From 158dbc3665de0f2d37d18551846fbc54323af957 Mon Sep 17 00:00:00 2001 From: Artyom Titov Date: Mon, 6 Jul 2026 12:59:08 +0300 Subject: [PATCH] Initial commit --- 1course-9th_groupe/240Pu_33_F.xlsx | Bin 0 -> 71418 bytes ...FI_distributions_v100_table(таблица2).xlsx | Bin 0 -> 373825 bytes 1course-9th_groupe/ваш пустой файл.txt | 13 + 1course-9th_groupe/ваша пустая табличка.xlsx | Bin 0 -> 11114 bytes 240Pu ansvers.xlsx | Bin 0 -> 10487 bytes AMPLIFI_distributions_v100_table.xlsx | Bin 0 -> 368888 bytes Orekhov.xlsx | Bin 0 -> 11085 bytes .../h_174-66_Pu240_2-3_gid_Qw1.nb | 9365 ++++++ .../h_174-66_Pu240_2-3_gid_Qw2.nb | 7921 +++++ .../h_174-66_Pu240_2-3_osc_Qw1.nb | 14427 +++++++++ .../h_174-66_Pu240_2-3_osc_Qw2.nb | 9140 ++++++ .../h_174-66_Pu240_2-3_pr_Qw1.nb | 9769 ++++++ .../h_174-66_Pu240_2-3_pr_Qw2.nb | 9510 ++++++ .../h_174-66_Pu240_2-3_фитирование.nb | 11498 ++++++++ .../h_176-64_Pu240_4-5_gid_Qw1.nb | 9365 ++++++ .../h_176-64_Pu240_4-5_gid_Qw2.nb | 7921 +++++ .../h_176-64_Pu240_4-5_osc_Qw1.nb | 14326 +++++++++ .../h_176-64_Pu240_4-5_osc_Qw2.nb | 9140 ++++++ .../h_176-64_Pu240_4-5_pr_Qw1.nb | 9769 ++++++ .../h_176-64_Pu240_4-5_pr_Qw2.nb | 9510 ++++++ .../h_176-64_Pu240_4-5_фитирование.nb | 20443 +++++++++++++ .../176-64_h_Pu240_4-5/rename.bat | 47 + .../коэффициенты_Pu240_2-24.txt | 34 + Titov.xlsx | Bin 0 -> 12275 bytes media/fitting_sheet_big | Bin 0 -> 1196508 bytes media/fitting_sheet_small.pdf | Bin 0 -> 961562 bytes media/графики_фитирования образцы.pdf | 407 + .../l_118-122_Pu240_394-395_gid_Qw1.nb | 15821 ++++++++++ .../l_118-122_Pu240_394-395_gid_Qw2.nb | 14286 +++++++++ .../l_118-122_Pu240_394-395_osc_Qw1.nb | 15528 ++++++++++ .../l_118-122_Pu240_394-395_osc_Qw2.nb | 15834 ++++++++++ .../l_118-122_Pu240_394-395_pr_Qw1.nb | 15837 ++++++++++ .../l_118-122_Pu240_394-395_pr_Qw2.nb | 15832 ++++++++++ .../h_146-94_Pu240_702-703_gid_Qw1.nb | 14650 +++++++++ .../h_146-94_Pu240_702-703_gid_Qw2.nb | 13206 +++++++++ .../h_146-94_Pu240_702-703_osc_Qw1.nb | 14902 ++++++++++ .../h_146-94_Pu240_702-703_osc_Qw2.nb | 14425 +++++++++ .../h_146-94_Pu240_702-703_pr_Qw1.nb | 15054 ++++++++++ .../h_146-94_Pu240_702-703_pr_Qw2.nb | 14795 ++++++++++ .../l_АЭСНИКАМ_gid_Qw1.nb | 15088 ++++++++++ .../l_АЭСНИКАМ_gid_Qw2.nb | 12858 ++++++++ .../l_АЭСНИКАМ_osc_Qw1.nb | 12472 ++++++++ .../l_АЭСНИКАМ_osc_Qw2.nb | 14081 +++++++++ .../l_АЭСНИКАМ_pr_Qw1.nb | 14702 ++++++++++ .../l_АЭСНИКАМ_pr_Qw2.nb | 14441 +++++++++ .../l_58-182_Pu240_2-3_gid_Qw1.nb | 17254 +++++++++++ .../l_58-182_Pu240_2-3_gid_Qw2.nb | 17688 +++++++++++ .../l_58-182_Pu240_2-3_osc_Qw1.nb | 16192 ++++++++++ .../l_58-182_Pu240_2-3_osc_Qw2.nb | 15770 ++++++++++ .../l_58-182_Pu240_2-3_pr_Qw1.nb | 17192 +++++++++++ .../l_58-182_Pu240_2-3_pr_Qw2.nb | 17099 +++++++++++ .../l_58-182_Pu240_2-3_фитирование.nb | 17659 +++++++++++ .../h_146-94_Pu240_702-703_фитирование.nb | 24451 ++++++++++++++++ .../l_118-122_Pu240_394-395_фитирование.nb | 21686 ++++++++++++++ .../коэффициенты_Pu240_2-51.txt | 35 + ..._2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx | Bin 0 -> 12179 bytes .../результаты_Pu240_2-51.xlsx | Bin 0 -> 11114 bytes templates/heavy_case/h____gid_Qw1.nb | 9365 ++++++ templates/heavy_case/h____gid_Qw2.nb | 7921 +++++ templates/heavy_case/h____osc_Qw1.nb | 14326 +++++++++ templates/heavy_case/h____osc_Qw2.nb | 9140 ++++++ templates/heavy_case/h____pr_Qw1.nb | 9769 ++++++ templates/heavy_case/h____pr_Qw2.nb | 9510 ++++++ templates/heavy_case/h____фитирование.nb | 19504 ++++++++++++ templates/heavy_case/rename.bat | 47 + templates/heavy_case/rename.zsh | 47 + templates/light_case/l___gid_Qw1.nb | 10951 +++++++ templates/light_case/l___gid_Qw2.nb | 9002 ++++++ templates/light_case/l___osc_Qw1.nb | 14290 +++++++++ templates/light_case/l___osc_Qw2.nb | 10224 +++++++ templates/light_case/l___pr_Qw1.nb | 10004 +++++++ templates/light_case/l___pr_Qw2.nb | 10302 +++++++ templates/light_case/l___фитирование.nb | 19515 ++++++++++++ templates/light_case/rename.bat | 47 + 74 files changed, 745407 insertions(+) create mode 100755 1course-9th_groupe/240Pu_33_F.xlsx create mode 100755 1course-9th_groupe/AMPLIFI_distributions_v100_table(таблица2).xlsx create mode 100755 1course-9th_groupe/ваш пустой файл.txt create mode 100755 1course-9th_groupe/ваша пустая табличка.xlsx create mode 100755 240Pu ansvers.xlsx create mode 100755 AMPLIFI_distributions_v100_table.xlsx create mode 100755 Orekhov.xlsx create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb create mode 100755 Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat create mode 100755 Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt create mode 100755 Titov.xlsx create mode 100755 media/fitting_sheet_big create mode 100755 media/fitting_sheet_small.pdf create mode 100755 media/графики_фитирования образцы.pdf create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb create mode 100755 templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb create mode 100755 templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb create mode 100755 templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb create mode 100755 templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt create mode 100755 templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx create mode 100755 templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx create mode 100755 templates/heavy_case/h____gid_Qw1.nb create mode 100755 templates/heavy_case/h____gid_Qw2.nb create mode 100755 templates/heavy_case/h____osc_Qw1.nb create mode 100755 templates/heavy_case/h____osc_Qw2.nb create mode 100755 templates/heavy_case/h____pr_Qw1.nb create mode 100755 templates/heavy_case/h____pr_Qw2.nb create mode 100755 templates/heavy_case/h____фитирование.nb create mode 100755 templates/heavy_case/rename.bat create mode 100755 templates/heavy_case/rename.zsh create mode 100755 templates/light_case/l___gid_Qw1.nb create mode 100755 templates/light_case/l___gid_Qw2.nb create mode 100644 templates/light_case/l___osc_Qw1.nb create mode 100755 templates/light_case/l___osc_Qw2.nb create mode 100755 templates/light_case/l___pr_Qw1.nb create mode 100755 templates/light_case/l___pr_Qw2.nb create mode 100755 templates/light_case/l___фитирование.nb create mode 100755 templates/light_case/rename.bat diff --git a/1course-9th_groupe/240Pu_33_F.xlsx b/1course-9th_groupe/240Pu_33_F.xlsx new file mode 100755 index 0000000000000000000000000000000000000000..76df20431aef61f44374e42800578f0480bbddcb GIT binary patch literal 71418 zcmeFYbx_-Fv@IOm-95OwI|L7|1&T|7;!bgQ4Nh@_Q?wL!m!hRuDc+*RDbAPoJ!j_o zzB%X4+`sQVnIR#WUmo_epS9Lrd;bP4RRlyr05Sj-007Ve+_6R3-QWO#Vk7{70I&}C zR?gMM%htuqT7zB)Z>ifpx7k7F(6wUq7LY#5YYUw9+`l_H41Akwg8x~BDti;66j@SzyO&USl0%)~iqnHUT)06hhkR^GDIHC(pag{c^Q^m~KSzf% zhT~a2+F4Q-osLIu(@~7$Q9MXhOQW9sa+16$!8q#meXP430Of574v;Vl(8OoN-s#&L z0jg71`_m?097Wx~<^CyXaJs75fkySTX{@BkR65<4#K3jtlZJYEMY=v{J?Kw8WAPzp z_|>?>_Xq@;B$F_(qzWjO9DBO6+X3$Q=SN;TSF`j1vfhSK*}fE6rR1p)i1l6d69o>3 z0^o)cVMB*my579?@t4Pn`XM}}bm}u%eXY0m@+ODF$_bN|P1EfF#cqZ#JtnR2(>-s6#rGHOYAmzr`HtsZqh z!ylT~q%sDXzqgSH;b80a`P<*K(r9WdQ;`8qu@#-2 z1K}8XGNt94jh{~De$b4MR?Cl7%?SzQof%K`RsvL-gcuhm9_48~+LM;{^XX(&wm&lV zC8PVOwKye~2HvBh1fbMNJxJU)w+X1b`f>jXvdY#-lqn<-pYqw4dxudyyIz$Cno@}% zy2@X~n|P$NMkr)jGts<${UYK{ry4h>ymck98Sg1`d>qDAWM6&PGb6E68M&=)b7wg) zf}>{+JGTFd^`B_ZEby>8^9{xXasVovpA+|gz}?r?!_mss)$yN7^PkX1{0I85Yya*@m}&0ZiIEbHhSex6H26>2jSi6I>-E5e!d3(sPy1 z+m&a-B*^az^ivsGQ9qa08n3h5iS$TGL;$~kStw|!vXBXva}Q|?8Pf24lCQX7D2-=C zie5c~LKiF=Sly|e^S^Oj=UJ1HA9{cIjx{Nv-p2Q|6lzt$nw%N#Rwo41h)9`vb?oYN zQ4Mt8w@b-tFdTO!nX$nYjX#1b4Fem7_JpG+vMrh^hHO-M)&(uc4?>s3 zV{$;9b??8Mg?}(6ijLum4o1gJx`90J=G{_iqH+JRW*zfgi^<=xy1@AF5cJvxMRbOt zA^@hAI523y5cL1WPNL4#Kc%dj{sJfKOd#%2Z|O5WygYZToWm^BPXPle@n+Kn>TTgW zJgKrLykmJz1^Bph-yZSZTotAk)9P^yL*^t6hlMy+xB@cT8?kcDgsxgV#u-n}c0O{Q zP821(#i;}p=aXNnIasprr#i-d=1FDawn!O2yw#A%nLC;o|E{cg@3CQ+w8Qsjvst-I z#Dcj5oykUTr74+aZIOkU*0YL(RIOy)Q!Y(u*_A5OP1p>-B%?OepqQ2ZDJYe9|Lq!e z4b)j1`u^>FchIHw_>-RHT1t#SUZI+lF&*&t+kF!Iv+?8)P1M#Ajbx>U;HnK_md`eA z5aS%N@(60hE@__)JRfgFxrmzR~0Yov-9A) zyTIo_)pN(F(BJm(j^bH{D;>)46RrRsvgI@F zu`tEh>$?Y-OZ>0gUOT3EEk*_aqAC9IkpG^Hm%XjCE%(3Ay#Fx!#Aw!qLV>i8{sOzK zr|k=Ycv6{|{>cjB+Gp((;u{gO6yM6+4WqA#=?@0wN({KAKrZF}CzdC>_7a7 z@x{tPNWHnMt-d>0Dr=~S0x>J%kB={}xvryc8a7f$*BC)M)WY49`^_=RCs%Mu5z)R~ z%N?IjXsg{M`V+^X+evZP^`Cm5zw39Gg7EPWubWH;u(!Y<~0S zlfP!!KbdiEXJ*7!6WDutQC(#(lp{tIAkph0K3C6yD~a&tkJ(`t_N$TvB5p?i#=STUP6qbWJ&Q5t_|wJ@57}b-bMi z1}IWTmVccu{W7j?-P^(%-^u=UUci1+UXvhPoI3Akhy4j*?GXB-GL_bjBI?{WlsjAZ z4ijmW=c^E>)ws3y_a6!8l3Zdk#b{&(0*deRQ)zE$=iiDPVZ^t}bc5XfB$;0B|A1sA zLAmWq$$ti*MVIDY1bn#Lm>L>8*xw$Qe@QQUE=s1Bl305kxb#33cB9-wGY`DFpfQ(_ z>63oB94XUGxZq29-G9Uh4t`MK#btY6F@H6S9USCw{&a;C@_4Ha7pT4!O#QPAFYSP7 zRc>7Zem&9J2zD-WdX_c8(N8k zoT-75iIiJRzw0IxN)YNDjYM(&D!OZNm?U1dJ16=k*tEHwM1GM37uUX1IlSv7!dLpr z8EqYffKL#0E#51q9OmuI>iyKI5;VX_!{(J;%2W}>bvWOfuFPMGMJ{VHsvsm+MYZYl zQ&xQ@zRrxfiwhqez6E|iAX3yN5G92$Io|NrZTJ$qFHGMMYU9iCBvH>vBrgU`EV~U= zHj?*L4ejYDHXoboLm%p$7)?tcjQ>M;(H$l_OTT=t!9J|56M4EIGHtz?DV|zN>g=wM zxVh&Nbzm2ZkgSRMmkONkR`e6qWwBq|Aq)8MRr$aWwCnTWD!<$Jel!sz{6+M|RKD-})`~95{KBd$63A4B-vXy|A!<1KDyZg*@6NX1!?3XMO?ou-SFqgS`F%$g z)!=iRu^GVaku60=Tzj7`c-q(lJn9blqfT+~Yt^M1rxN@{#l_TCb2wReelMxbmA-Q` zuuOQPQ(PP`3zf5TG(yZ zMruoA4vUFRtW7KmLsHt804YTx0w~9u>3z684cWwN(R0Fvedvr<$6pi2jgS0Z3?NsC@-t{qWaDUQr7{;v~+d zC41rJ>`!sApKwzS%*63=QFxq@s`!+VLWsBF))@2P#PEeT(!7#wg})fzgym_^ znvX7!FK`j!g&}`Djb)!@a76F@J^jbM&RPY}eKn=Nr6{T`Jq0HA< zRtE@Lun#_|;%t320!uLad}{p*+J9Hjn%z0Ch+$Tv1NKAu|5^=Cds|yCPwszT`2MMC ziCVJ%={Zmw&xTpGWb`5E)iqn8k+^QY>E2dLw~Dt}{b%m@t)Qc*^<+DrZvK&nb)$$rKs{2fF&c550f!9_^RrP%BlRCjdfq!In~0{BTiiJ}GvTXL2O?$eG}$cY+F z2^)EOJ8vp#m8zdfXkGl_x@Lsj6Mq8lNV2^&{;WFMJxiwD+G)m)U@UU0m|<|)Hk$gn zd(DZ^+rlT|czwPD{RD2d&!b9~+RXZe8xg2iqXPUli^urG$vG2L+SzP_dJ2Ubp>y(q zh`W}R3$_2f@&Dh*CIA2A@_#Rv*FC-yT`)WXVYnpx4_tcMTYA{q=z4iLxY&9AlSiA` zCRp2mJ9^PG=Zo7m=D`mwSLQ3-=#)EXv+Q8ecN7e0PO_c%u0-cm7oQc{Zao%U4L3W%Gp_x)G(lzGoI zMd7!DJ4W6Zp7OoFsLjg2h;9B#b9y2`%4(AcOH$n-gcW9czs9=VH ze~YWiPo<`|tM}pPn0vzI77U?k(;zKa++(YVJf8dpY7>3#-jE1Th(oAwWJ>xaO4U&& zJhI4~8=-xxpDrt{L_^8Y{Qmn0(p|X6W0V0i@jB)0N#l za&EfDf|>hEC5^VMB$bEDI$$0-v5|vQ5=n@Tr0kMh%{YTA;HI(k^oc?(Wp)8T8YRnV z=qQj*s#qB>+V9TBwf{+YEc+LHz$UI_RZ{q0Z;knPX2-g*^wXC87#Jxb$;6Gb7De>? z(lLyW?*?9D-VZ*QCA*f}x9VkYBdX$YAybdRC;e>7;HjTpN9I+Q^`xc?W-ks-H; zwet`hqG`E6lqu0wpD<-?!~8-pb-2C0{dnS0w~KqDX@zH0+pj#le_vK)ggfWa<0;n7X->prQkGlx zl&v@>(nRSUp3k1UtES=ES{g02DIrzzf~lD?!Z`YOFGVk>%jQx~&sS&WAupHfG}73v zF)1`sueZC|MZqtpvmsA+(ywDz(qCz$1D|gX+lr)~FZbL2`8Y&67~K^_459z4QKj%eOWsAX{yaN5o%ya;ybai#0i@3WAX zKgZ@FuTO`S`xWLP_bw8YGn>y3hrc(avdCV}A75uF&0nr7i$b0PUoUqzgP)()+xRBV zibC$MlYYNGWEZ_Y-0b3PzFzZN`=C)-0ne>E9z2~yL z8NIkIV%Cs-FM<=J>;D(z->Wh-?1NlQGIqN1PfzsWag-7@~8n{*PzdY8o~PK)V{SJB%ovZ$b5E)3@vBu-XG2C z!L9UAfSMa6>%~iA0P0vAAhzL`^XqD#k1A#C0v_dirYZHszSoeOXnw=;wjVWijDzZO zx0FHI)kC_9j9=N?j^Ma6*FCxRVD4q3wM7Y>MN5f-v0a{m9f)MUOIEDO@2h(c$=S-q z8{=%J4{eo;ynHERyMa_(km|1s#MFA7hv?!lyM7Q-llt07Aqf%R4{m=bLOn#|WI6&d z;XS#t@xt!;C~=n;_gVIxH;=dV7X3s_XWwLn6e{Wg&#w->hHeCSw%rQtSk?9xYZtKS z<2~97nPau0^bPXlbVFSa5Tn{2dFaBzi41F&&L^SH z9}?e~+-E@8_wazT<)QqJgi%8HQa|zQ&%_;jqI0G zM;)9C&Gr``6LE^<<8YV?L}&<8X)v2TCwhucll*bWz4s8icIZ??xYgSkBhc%NhC?WB zZ+S7v!p}$WboG%`2{n~QO5Ql_w6TzCtVfytE-RTyPL0d`EXgYK}$PXvrMEIr~YQ>*F2(B@U zQ7BTHr2d8WWmyW;iP&N7gcBu}R67P_47Sgb zniPXsL_sDZgn{14_4D;(f!-+NDmLfhL|SD_OqFU_ON$Z)wXcZuWMfrX8X zcB!IT-a(bH_^Lz*hrP|tj4S$9Z#ZzHUI-BnT(0qB(RlnsFJ{9~*2XK{2WhFF2Gz`P z^N+nGDVt?PwgK3P0l05N;i8Av-#j~<(Ce+BNt|`#U1Z?|O^XnI6CA$VdWT@da1wp@ z!?)3vKW5&Vx|Y#PAPb)m~>ig9XNC-sX52;(I(JkaWb*LMgP z4_%vX%6}H$`BRJ?qbVgvTCseYwa(iv*4*0mhbP*x8%y)+2nw%!#;21#LX3fPMKOWr z^;W&BiR8nIML0pp#Gk55{z4Qdl}w3F{&5h0^W=flX`stgI(n>Q{bq?IZ2m!x1Jw`=GTb6$NhOAH7 zuOx?4Re_OEHKxp}mcSrDZspwSq)e3y!}J%WZbu<>@Ibe4pk9@Yi5h_bMG+wGnpJV2 z#F(#z#SqL8;wF<>${1)cn5Ko*n+$B+_0HQ(Yyih@BF1V~!dW83IitSSxW3r8zvC;< zcLJ(JZKmpA3ju$`I@8}3)W<(UnnLO#LuEcAG@&>YrcBryfE;j%396DbV@Ho$Ath2Q z1Wlskg04LtQ*lz=lvrlSg6%N05kv(OtZ=FZ3H#evX^ls72^ zw|%EUnhmA$R)iwoh!)wEUh%>|yJi6aOBL=1bila8W)) z`55VnZ#n3?#5a7d0Hu!xiktZCqG$L(dK z)gE<2?8E&!72~v5yDv{;njFm)!Te8vI8joJw29O_vI|a3-l1>+qXPWSy2u0x$`3A3 zc$PHh$THQ$2uPj01AWtbp2Y^SO`d$29TK%!BcamfT3Bpvb$%E^v{_$1hjHK}bIK9= zwNa#^@F|I4We^n?@Ofl9F|p<1qI}y?L!?^0sf#241P+Ga8&l6_U;RQ-r>3mOZ#Bux zLf9#qh&Vkj!QoVj$O@Yf?kX%FD7Muq>zb#>Dkck;e_A&BuMf@R(fLioE| ztst$@AL4}mii2rU`9JVo-4{-aUT3VsW33UH!Ai5o;s;#9}+ zzmvgW(X?;aXd5qm>Yo({D#FKCiU2_#=jx~@B(hpYgf`~kC=N<0nl(Ncbr|iRAgi;v?U6fhTx-2J*5Z)V7?!jl- zoVrmef5$JdEB~-;o%+$P0DCNg8<{!IQm3qQW)!t3IsXPo94b^5)eix$@a(L_WSW>k zvW`usu3`B?9IUU5j5H;Q1gb`s&hWu~)Y;)XErXO0LjU6J5sX3rVoxtE_&O+b8F?3t zz}t3{25?0vVjFyZ=G5B1=cx0~Uaqg+A*fJ3MYm7-()jH zM@f~_CsMluh5)$LHWnyNMzt9HVTO2&C3L?|069=ZO7n9gI|k6$NmwUh_AWvX8`-@C zLo^Lju5g3#cfJxFmXv55ei9!*`DUsIp454C9K*5~Lx5NW!TA8yufFvgU9DeT zrsn4ihe|cLdd6ac>q?Bnk&wbS$(b>u2GL|inOYs9fUDeTtXO&^I+#wN6lT*fqJa5q zVsL`wKL~{8G%Q9SB zD0RQ&2QJOyAA%k{Mg%l_9iS<0iz!Z-PF{E{9KA}vjORFSNflW6Cgy~Gp40_^7T@=1 zj5eFmhb)gf9w*|2_$4!1Do=u#C+kSeM^aU;BxV11*F3lVWhrjL91cBR#*6lZ@|Pwb zdtOH8$$PwXNp{*L7dNpWb%u)Zck(wM^g)(}d_ihpI=^%;*N(X{h*CuKNBmgJD!$b6 z5|h4qP}|&QP-z>z{Vz}lI!(4aR2xoY0G?DQAN?IfUVd830HhPRcM4E|)~g69`1G*R z_QPwIERdf&NxKFe$*FMp@@M!+Mt?o?k=*}uDz*~V%s`v|5E!ccR_#rr93vtbVJw%dYAuT4_nL)ukQ70yw)ye_fJ^^=dg1gZP;jq zAk8H^8s6DV8|QjV@CcjkpGnbIi(}dl*uu34^%?;64D+3TnLyJ&U;%4p7uTPpm zdK3F28i+A|EyqSo=s}ZjDSCD=FEgNX4!e4x8McGlbe3c@1lD~5+8Prv-^rH9nxTBM ze+WbPnFB||PPmhpIN&cu>hqm#OHnDNW(jL}F)(bzW{! zBYgO#Zg)M7_!IC~c9(DllfR8C$-Pvq*Z|l`%Y)BAcj%}R4O6VWuf!6v_4qY{V-}s; zSFGO#L0Tvb85^0gQePylT2P&RA>v35ulOeb=fWG*}Jr&9US_3;txUYD!lye zW4a(?MPw3)yt6IDR>#_`HF56AwqZ)h%=QP}?7#?(moC2DzEEonWo>>2=Ha|r7piJM zGn36>-8#dln6+q@w}8A8(EW&oce&{t3Jmw5()prP6X2Cn-n~CD6csyCYoWSmm|Da3J8hOaZ4lOfuF$I459R+O3gp7|8Z zf)(FYc}(#piDW<55Rt9dreVKY4{IIwOZNf&lmqiyhkuVTqf5xY1l1NKVO>Xs$YzneV}UH5Y3~m1+wet&6ml(eY!ritWs3 z2YP9m4WTs!K!2mrDLb&eUO1?Iub z5pHB~WP!c(gs=ClKANCnT`|PvZ8!Q#=oY_oU%+>=>SQ?;HO)p1Y_6AUM@GFzqTX10 zxnQrWMNamIVh^?)j%~-TLWR<~%Ins73`L8(l`_yNT-eH=3?2;;RA?d`3F7DlH)xe} zs?b~Uo$Sw6TLMgQ7E{jVG8i>XAc9G1*lxrWc7Tl@d>J`9Swg7_r9W^P?_s5|!B55A*+QZnpOV%$@i@QeVVC9zm4gxWd!_RWaaPx7g2eKM$YNb6vOKvrVU-!G&no7W*&$OCN`p8zocW*wOYQqp2vVIth}y ztV^$d4{|djg}4GHrrJ2A#nDoexX#~nPvjUG@VZX)XgO683o$2J@ZS$D=XBO8GB|1KC<-wh9@u zn;3^S>T!9Nk8uba1kq9z5)>8Fg)Nx!b@zXSq4CjJTWDU;h&;V-Y#K3|kXUrKi34=t zJgK|vAA*b;{u;$ZyOFg}R-@xRzCcAE{e}Bv@-*D#FIg~>#~nmWdJg!Zslr?;UX+yg zHbsvNA~HN4qqLG(&rlpXn@Uaf5$)DQx}AmyErG-C-w)s88(iDQzt+Cgn+OK!gEQDH zHnkI^N+l>t6ANEp(*WQ}wBAf31ukkbNB{5R9D>Ux*1xxgXdjq!iX}SoHe%fMXR6O#ac7avJ97-IJ^yXyPXl|zTo zIOX6Uy)EN^*V%mTR7cDQzg^_g81hoRtBYhioO~=+usF{;(ytz0f-qM+(?AC*?!n)i zi*cB_3#(0%jxQU9DU^4%grVSQEFku0{{utRwR-@n!|z|#jPevbco~kLRk(>lU_K%W zz-Dn0Mi;M-;U6?oN}7q=2l`~fiR@)rXu!YVQHsOLjg+Er_D|g=MGva6ChduYv##hY z^C>u@th%kH$;74WXK>~&#;W-~Uo6F5^4?rP6ZpGkgYo3v7;UvSN)=8TH^9}W>oW{u zlL>H>-_-08jObuln`op+MFk7!v0TSX=z?1$3_y8q4zKh9rC*a)W%NKk@6+~~+|?O6 zpwGrXVcl%8nk90lY!>#_XD-lGf)uoyP(BOt1x8Kzl9c)YF)5r)FK70^#u) zwMaRc3)zo%Q8|YMaaa%S!Pd^<~6)SUwiHh|Z&A=39J; zEXXCY1*%4EG|D&MeoUdOm#{iA5(j48rREt ztKIrV&{!|}W$bohlXu-fk!k_`a3~4$)A??oQ|U?ss+c;1-X%O3C#|OvET^3Kd>hL* zak1_;kWtm9nzKH+7KL>+Qs~4|ElV4oKo~JJXLM9v7RKQ^4b7S|>X|!E*YF$Q)xv zSev(h9;y?0%W%1E7Hejfsf7=hF^GJe^GTl-W>g3EM;fg@Bf}i@^5%22-eMzMR3_90 zfGT#1!B6saq71(#EPNVsoUH%bq2Q-TXk*jhq;~E{2cuhKG+CbaePvmwV_$3|qe(nz zOguiQ7)29xtllsX_(BK*koy@oR))^!JD5K?0PZxfeS|sA%>%fi3-FShW1$GFVyN)byBPj*&9poz)*XH7;&C zyu#gg%Pq=;4|+>H{z%0vQEa@Qb5TSC^yr#1x(P30c|eup`ebceA^ok7eKc#!ime>mQa>DmE{P`duePV)ZiEOH#rmdO~p&~=3|JcIyiL|BEc$mb2MzJ z6+sS(By9%mfP6OrW#kwT?k7AxX1xY$RAW0maq{mOSROf3e*NpUkbz*00cZrM0wuQ3 z>N9MT=_N{GsHWmXF;1uL5?d1@>@OdFCDRyDCwRDe@`pMTSJnW@{E+za6Ke$w2=RsE zSo+eLkJUfqQ9AM87qxGRtG6|NkXvak#o_uLK5cdR`#-a^%HuB&67S~?voT=_a#7DR zQjG~Oc6<<%p{f&H$DyMRfq8o1s7r`b=$GtDp}%h!hmB})uh~7`qnXBbf#zefTLz{w z#=eAc5bj4Og&6-l|3lE!q4}E{7f0s->V;=;Zs`Rok5N%&zjmAa6T#kZDfOS@zSxziE+{ zBn2FO4Vf*)g~QFrR8=f}n%Pb&B-asmz8~n$qdjb{vcNCp?P?`w0$JMWQB> zm|q)h{sUt`T(LvyIM(-BFsd?;csb4%eNji?Z%rf=V_#e(9c@VEx@#;>s<)fGH<9=p zHp5{#d7un@*kHC&YBzpU72eFDUOFtI9jt|h3CJ`~T~Z1=m%nL5+veQp$f3q8xfT18 z7^KhEA92f?I>e~n0(YA9&g5|%GL;|_>D&1qL!5{8u6f-STVEOxQaRaRMUJjC;OEj;M3pv9Cb(9c-#88rtu@cr@_)*}0*LM$_R35H8@v7~6; zj}tq+uK}B#{QYM7Ph|M9ddJPjV_L^Se~)RiI@i4iP`6rVv}s#Ybk#_^@Yz7{C_0zc zcuh4bK+13rAEG7pRK)(=VYj`L+8Jef2&9LU`NS*2!Z;14tF@L>>K=|p9UrmeiF+Qg zJ`S#V3~eA|yG|Vvu^r$cyq{lYh?|hVSFwQ?soP)_Q`M+GlDUKRk_pr;U}6nCDWX9c zSpSd_7q%-lLx?wcae8v8`(_hLTVf5%~#UmOo)mC!|U7T#&U9bn8Zr#UQ!z%o}2>nF*+ zxyZ2f5AD_P5Q|+45plvw?ndRafo$X&y?F4DHhq$v>dZ$>QCcutYR^$3$nI!x9_y&e zc%*VERjRw2n6!BpM~BU`_B%(S@RW5NY?w_1;N}k~G-Eet?&=Qe zW#Tdnn7HYiezlQ{$bd~^NU=1kmjI5fZ~k`v6IFtI<;;-a@+#5Vq{~UdQ?n*pj4OgE zJgGS^Q%N75Z6J4x^V#6U& zpi+e0R(W1Cx|4_lI7I{&a@dhczf_wnNnG*TPS1z zB;~X|-`{?AMb|U{-~6b>!V`}Ti{(86Pt>#E^AlR|){##8D2nXxG$o}!p@>A@ktYN{+@@nec;UN}ZVE@-7=c6KBIOHK z@TFq<W7uzrHX?im(!fUKaJ0s2(ZVmB zD@#(8<&{n2%IB|*HYlkNGBpJc06wd_Vm`Hy6(P7|vx?~;zo8_qq%M(nk&GX7M0PR` z5uB}TBSPi@Yx|QLm4#+amZlhShLQ_^ITjBXxpoWxB7#zi% zb(xji?nFZkSDitU9}%8Vp3N~Jyt18PBUB}@;8)SoRH`X2!B())w`JuN>qEV4?y@={ z>>}mWXJj2W8##VbCbAm3B2!a}FUpm#Ad>p78@X$GVpMVY$?#B%z}a&lOLiKIsY$9! zG)Ig+H*CM(XwWpiW}Q4WHw9eXD-cG$WTss1tS5MGjZ*qh>1)MyrilLTLk|bF5bnj` z#u@N%#3TLTtq``4Ses?su12$&6SX;f_C808jWk<1zIiHo3(!^cqICu>;2vjy2wjOn z79Dd{w(6EKUr(m&)p=VzyQ9`NKP&YG{Ci_MikJ z?C$k%s51J3PIsBK?&G>+`S2L~ot*~NeXH{Z8s+Lh^$Txd&XbZn`pI#uGMVy?ejftf zKNl2u%Oi-g*-G11UkZryt2NFe_nfynXC;r`% z12@Gn5ot4m&gqm$b)n+CkEZ;jOdT)m+k|OO1*qx~naMTEJxu3AtWnyu#cxdd`Dn1) zb?^~GueNe5sAq)FNt5sLBjfIfGb;w}ln>Fv;FWwVYC`gv^}o*zNwVu8Tlu48iRkR{ zieyFf-Jo%_YBS)ugTt}AIURNh0?sn9Tv+GHD^0Ki1_f(}%yRFiAz+ozs-X)D{?+Ud zB}bpsnjmiGcv`S-s`*%QM%cKV$c~}*I!1Lqdu`>Hh@`DfDtEAlRTbtchW`-Uy9>$f zSY190^DKP=5?S@p>P&3rh|O~4gyi|ZP26^Mm$^cCqbde7@KuF>-63nfyf=UJzLC z1;n+Y2Ro4(={c4mBI_T!T6<0m6&q5TsS*3jk=->R=$~4P<-b|W^CfLY(RT)tTaxO) z*&o6wsfi#W^HAZF@IZB}9Ihv1fb5y4$w<{1IS7qxOp%e{Y}_jHY>eq?5u@T|QBIye zw2-q-LiHc(HM~mQY;fw9Gwi$^}}R1POv!MklAo2Bh+0DqTw<37X&GZX3W&7HrZ;{ z*k;gMYZQeET>aXZ4;^U?J<^LUgB3!WzS}SyeeSjGU$%w`K(%CW(^psjL zMz%6Ug+tgtT_lm+^b=JQS-x)26cuGvX+qb)$L%G4<*&4I_PXoz=tDmIUeomDZ$ z3Qj`?%F6!tr{VZUFye`mT*@qtWTMNmSYn;J2Ftk6_aoTPH-YY7I8Q1aR3d&-al zK8{AW%vjR0Gg4;;qnyBdJ53@}kzI&dvPT6=af6V-G})-h09Z{5%Xq+OTGUhe$ful| zMm20K%|%E|NybXrNKbDIAo*xBY)OBYcug~>vs`aJ zJXU=aKR;b_+VD4&t*o%7oEz_LcasRG(jBEHN%NYWfAhkMOcox+I2J$%NJcA}{8%O$ zjW|Ip#3lABldqoVXOV}5s*5Jo&f4i91%H}xhhv5f)Xa zMm2Y|i8fiWq}ZHz$Julq$c)?~yyU(#=@&}Vlz+b$o2j#YgL+n_N&jXqJls5-S*mg` z7MK!=A*-95YR=ARgc{B!AEg(`@l@!%Pazq^%G$`2W#yU=uLu9p!gDhSNUX9IORu*7 zf~ud2gMV_*;s+gOl{I;f6A|KtS>`aYt_QwJgN*@Kx?qD7HHAa=gm_1TyTw-+Cd&Y`t7ui@jl<7|yVa(#iOTE8a96F5rk`qboO_@!Q zQ`7iTDd3JO!wx>_6NTmVATr3hi0lB;LEL%e5r5Ircqxn=^YLGs0DlQM22jK zSy>Ss9f`ECuiGZ9P=Zfn3|>pM zByac1Fo*Zxp4_ID-#&*U;~H5lIrIF%-^n=18Odv2RluX|$+1>0-oX!1YJH1SYxQIQ^rvAkcO9*iT^5l zq{qAjsIgLxT@YbZ|4DfHO&2x_Z#x1j9i@Fk4QsoF7x?IG9DP1f#6{So2{+RCqUd9- zB<}=dqCE>n3C+aD)j2=$&~Xg#fTUzXgpfVty+%;ibg-~w2RzFecANCbRm9d|=|SMyXjF3p>~2?Aun94W_zhLEwEx6{ch_MN<8U@f)3>xMC=N zOR*dp2S*09stiN^n7%*6$_qS7HgL_WsnBlKBCCYbY6sx+3bqHwZ`OJsWt{-^AM@u% z#W^WqmE?XuXBpXwkuX`rfT3!vtr%^OFs^GSU=Xj8Apvu%^e|f<{p+kYMjFh;-&Hzh zQc@f#P+4CUa?xf&M!61B>Dl0b?fO};18%Gdxn$`Da=A(N*(xnC}UwIPLt0`l?J&Rmz9m4v)E-51j^n3e$;e zE%kB}vS+$ML;I3bGs3Fu-G;a6_C+lSx5Zk6g^)&Nh+z^8A0Dp#w?aeRkib$3hF%aM zM1}38SZ2*@p+*$;9*X)glD9HdR<>>d32zmy_Vxk@n(;4lR38YY!ed2fqC}UYW%x-Kid9sKZL)18X^Nk7{0`UawuZIiWZaR`6>6^^hPGl{y9(FQV z=w?eW>&b6LhKdv{@D7hYh56Oox7B;WYFyoW8tS8r0B0yY9c(_u89|%Oz9d*y0d8&D zdJ)qaW`%RFW9kiqPX{caQ)ERc$>&3U%#DXQ;Ly&ST2NxTi}AU`{-XlO;5`2$US|qd ziuT(`&8b>q{Ug`OMV>*`Ve+hQMc?l;~5${v^*5 zX=bn;VWaE3!}Vs0Mv7w0#BT&Uk~Sy{1CG1F?QzQG!?F3}GFFP;hVxj=kMoB^o<8fi z*SywsO!TM1wroxjZ-^00c%AJG^G2rOG|43H9QM3$SO#!t2QUHA&oasz_UdO5?YlWF zpwU2^g6dJyg@cB_iTrRA6Uyl4-?0uX=!G<~S#FJCo7~JYIlKM2WZ{AK_uc(GlfvDW z!gTLfz6>v9ZEXlg+!?dQO97*RX_v=)ZQGIQW_PwTRG*XrxR4RQDU)tP zV(*m`>O7I7|FLh^THieHwEO=xztiG_I57z}3=E6os4FE7vgUqRFxoPZR)y~*3|f(! zgZxiBbRZKkAam_f{~sB@vP8FIXRBYxt(*h#?!&LdtYI3D7v zbHe|_(pAPq**$Gi8tHC!fki?>x~Gd*n@aJdPgHdmR8oNuY+VShUtJNez1@z(f`Q za$0(o1?Jt^#Q=lZELi;JckUemw#U{#g^~BD6lwit`UI&P#kil`1PA^d{^oj0Ewr(2815Dy}yNB zKj)BBpTcv%-Ly`l)EH97v93cC`=a~EIR{zK4}G{$*=3PKoSfQU>mL=9%3%9Uf@nb0 zF%l(Wk0S@vFz|l-Ms_PY64GcLqOKwIvrBecSsAEAz86CLT!tYJ9Jt@z)$8iEU`b+VveCyzY zD-NH$cF+b%SefF%YXH$x%oD*Q3AWbjJy)e2n!Va@0r@=*|ASxY|ElIhvAE+kRbqyj z>H(4Z{F^@t0sep1JQ13#^Z3Jfe_3ZB%G0ola6G)h;K;{RSD?^8x%CxSu0-_Mzg2mY zdmomeT(DO@@<@OQk8!`Kq>2Lw{msl;F0r{jFuh3ZFqPHx2n;|Exz|+85I)FGtt}A3 ziG*u$KUGUI$6wOC_0`hGGL-uDZRQa2m=@0#?N~Ztt@IeR*NJWoBt67WI$rsLe@cQ^ zB(3Dc(UbI(@Z>|3!LLcRfcO5^Fa94X5Da#c;JtM76yh^#c;rT=Hoy@+k14V_m?9^-_k;b7UvHrp+&?rQ~>>ZU7vzY1U z9ch^gl&BBfkt@06E067qj^kTIyH8?99e*O0_wUwnq*I$ z&IWrva!z4bvlmFzUBJkmBgR{T^##ZJ(_YB@@%t29O;9@z+LtifZ?xnz%fy(KXI64g zaqwT7CV7@A=)|T)^~mC1mTo-aBzNQ{n2)OT*Pt?^TQ?!6Qy4?ZH5P>U5Qwp{J=&bm zj5OwOs;iI{NL04Z)oyF2R>TfJ`&C3Lol8-s{tg_(hyn7H0&)SX{Pk$2^u zml~(fO{sya_w|W0{>>b))d~>O9jb8ARk=h#j*YeMh&Z3wTP23t!mkMQWPvKS_pS?a z{4nJBeJ@!VPNn{`0v^@CR>w2Ze#rb@IThD)cMxp5c}kp!Z@#`{HY&_-O^DUpuxT)(7#znc5)pB)y%;qMa|50&6qDyVLFA_>gl6ZUEzu z)h1AzU^*|~Yj=IyMqP!LV#o}eUeDE`6Mb(q>Emz(On?ekm#-d^kk%wY-uk|DV{zO$`QKoTd;*^1gd$YSp%KE0AxoNT$RVAKb zuf|LwG}x%v=4?;N&FC+wUjj%v7NyS8K!mMKc(Na-Mjr?E2F_QH`2fQexp8ptUF?Iu zJ5bSl@qYi&$I+D=O8wFcar*GxS{RmF;Uts51XL!Z%ZBz8srJ_{uEHOL_$yj_dv8N@ zAg|))6q?w?$lm{Ees1|Yn^X%Ig;~U-TSd|M9AuCIg9e3D>IQme(`>r;RLaasj`Jk+ z+uy3`1}*aSHo3$GYA2AoV8 zFH(_HcdGn@9i#FQzNeoTjG2vSNZ+TzG^+kpg%3qb<$FdAC?&V{BYaAwb)U+@G=F?} zJL$)HjvfFcpq$^CB`j02&ns7mkv+#%W72aL$0{4BKlvs(ax6x|+``963@I1vxNLi< zLWQTy#Jy*ZrvPTjm=V%_e)2etLZR@M2{ib}CXUJAn(A@iwxNX%H48;U4;z9aMgqLe zjuEtq*VBsX+{=vsOY=<2bx`R^FhR;|ZPkXlxMIu$@YR^ODe}veTX&Sjv8NM zd+_4|zdAC!h&3p}1L>VxSju=Ti~UOs+wHlNZ3mw`oEZRkKsMcZOC=KVyEwcf`3)+9 zjt~Hs@lyx*nhL5LoMfrVZzRByazS?lf#3P`06==+I<68PvX|QL! zCfbyp#rTAnZ$6^pLa4Mw#uJUv`ERjIWDF-M^>eKWwu1?UQ35GF5qc6W0b24=Q{_AWzmzMVrbFAf| z>aMlp*GPxErm3atm2nwv=msu`I=Rl3+{j}FN+!_)uXAyiwB&jZYMm2(aIM!S$oBNH zTl^l=NP``A*jx-}@dELoRb$=Wfb16ZPu|N=#msDC!~ED!%iCjDgg%r=!5L-boZ64m zp{IvOXa>S2ud>j`+Sd~B3eIMb2a1%UVaaK1u{5AF`N3dB&5UokWd_b*L3mzlgdJbC zly}POD}!!5lZ<_XKQWt1&*4<bYten7?w?W;x>*z9GC>Lf?P7ycHpWUp;jo z$bFm&9+2(2J64#*kR+RttaYm3#jx}IBKPD0n{6Sj!hH>{ha8@&Pua|LE`;cJ$m?*b zhwYye&)A~t1JhY#!%^trrvXeypnA29g;#f>(1aVz3U9~#n@jwGh}xNhibiF-8dp)f zlW7_(Of;RXRJZ;z^&I-{kN%GZQSk288@kRjf))`6$u9(Oq~VljJX6M@y7q6EiwA7r z!RxI7f=qo)3)$ZHyq7VjLg%|U2p$cIortdHW_7C znKY_hzH0tHY6&L_4XXWSQeoDk=H7n&6pliFO6p9;sFM!sPgx3USM)BZeqvF1?+qs= zY#B#>`2Ou38)Tv!_px|~idb|)b0QIaPGU?DOT;j)qJw4)ckA%WyRDVkQ|tN0NEC<*yA8MlATV{2?{t8w+^Yg z_#q?J?h!47jz8)0#e-yV)%TWEnQynWKE$L|H-c`2cz}GJ~18*YHATI#|*S(CM zUwc!E`pB%jZQjw=B@aDpsE`_YI@z1?Su#%Z zUq3KG;N3)X-Ylh$i!}|cvD@h?BV;dryv-f0NJ^i2b=6k6o13>tZh0eoNP@)n$WwlY zzIEqw`AN+6pLy3G6!aH`xD(FcfhF2wx|yXBY>>glO_1lv=6Qpiq@(Rml%0*53d`xM zlZYPCkRrgrl&Zw86GZj8cel6Sf1WN7FRChbdce zQ6u|V0u5nu$jq#>=cF$UsD(U(6Rc9uDzY>gyq~%l;5wf?Gm&Z&O)yo1h4hUo^1`(b zW$)#J*1FA>6-cQo(o|KQt%bglK@Kzd7F0EAG>>yMX*s}IUVM9VNQ)b!=wO06be*=E z3p)){HRmF3yO#TH`qL(O-aR5Yw4u|w-l3+_Qdx~*OWxVKnDZy4tlS%Qgyzd9BN;r3 zmiH6pYHBdyL1yt!w$Gg8&9o235lEaLtQQ#_6oy(Z0V_{ZKwl{bMa9Ev=o|wM;;RI{ zS8zUrmvGwJ7jvF+F1=7fw{V7{eWV!#`0LEe{tj%?P<7%sHEup1-AY^4Tj8nk`lJ6E z{@h`Z{k756C8v|dm#jybdX&M(f2~OnvL0z8ZDh|G5&+BC0n0{kQh`-bk$YMY#o-IT}O!NYkCaiPo z2+SggJQKSTl0Q+p(}x65xorIYTwqSSx4Vh)BREzKdXn-}QNhi_>1%05uHexjI0;FhXjRj&$(-YW$xelH9F-HA;ckpo zGYp2~(z=DvjC}l40d9V8J6NlX?hu(*5kqdPlfJU{CWAoPlh<32S~YZk#>i7-t?mED zB>Nf_aN3p#-WU;SAPG3W&>P``!VP(H?~Vg%n|%wl)ZC%B(Ls8x&TFtevCC^dW(c(G zYbp_$p^r6Il!LfA5?J&pXv>fmRzn#qV>}6$wW5ASO7fif=s)vJOh@;ssDh&d<}69Q z%FLJEF|(-hGk>rSjP9(L*$Z6Ko`fUO&Prgd4N?|@u+A36;*Gjji{iaKNRj{-{a#z0 zXZ8%GF)|7>>GY2nN$834nDpR9Z}BVD&F}D-E^Z&dkqr;gpUTAzQZ-)(69PHZtw1^{ z@t~mzfeT041`6^I&GRmG3mRPF_LY}eAgK$P2q*G4)cC6jh2_T|ZH3Kp^Qg;Mx@(Q+ z5@mOggvueM&R6@x(Ghj;`mW9gBD5s=6m-%3nW3G1=sh2PI>uD#V~_6)RCwu9u`2JA zR18nCoTignzprreCFmw_8X6crsCyW=AwcjJIqYaEjjN}nK~NMXe<#Y)jIK{XeTsU2 z^D%OBKTqeUmxi;*P#;ilE=HKcgkW-Joglq%6>`{BW zLU1Wa@AKK{??0N9v*$N8r5wOU%jD1f>3D@RSDvc&_e^*^d#5fv9_HOm@Yv)oe=tVP z3q~Cyx@150HKilJ{WlLZq9*8#U>XtP(cG#Y5>Ae{vEVGm-EgrSLz056(;jQWFXLC^ zN@e%Ed)ZG}F@a|f+h=8W*X08RA&k`YL>gb8hj18=ZaCsdu{a|-l5i14 zD3l6cb^A|PreG5$5Lh+lz0{{ZlEvq)eVkdxhmuOwZzV3PbIB#irWtIfpVO#6IQqde zXtHyih@>(=fsEhu@osh@E;F{$ktn-S)m7fBb6=QLXk0>`fs z1d6_|AL1L^k8TL@c~R+uW!Q`)qhItW2CA1bF2d$*;k*3jDbzG+r`B(gD71lf{kvA0 zUc7_*r?G7M$UiL~)pi8iiz91|!wQKJND#-(G*?7Z*VVZk0|#D>l$yf(5LM!?_>{!x zlJjag>lIJd3gb;-VS)yh{(8_CzHwJIH@LqS->2K48{ryo)=pfb;Y)=jdDTUrj{V}L zCD|f{>7~5#7Op9ky{#QtG&)?pTDv{JDUUXSZgB@4^{t%8vvIr|Ei>06wET_2*=lN4 z(}|xR3Hj-x{z%ey&}!^eDchQ7F4;`!?qKRl3R7CKSKYU@kF)ISwUKmZ4QjT!Y9usP z?GL`j*NsLSGX>tNds2~lsr>`>6h7NUrb1)U7K0Xc)Mo>?--HZR(>z{T2&GzO4;{_W5VBO!cgt> z;Hj0zL@Hvo-QHBu1pRmbhD_`rp7=|YhAVC$^DdNuawya7_eQrCc;rhCi=;x3iUM16 zFY{XK(gafqx!-hDb*EYZiP1?3R8A-Y8c*H= zw02(Q_+@NQG3cj*FSX?NET(bqT3L0N{;_~VPin04wb+*|GyVR=DDCug>o9L^ATX@* zCg0&`tvJMdT@A~7({0P=dR9zVjKb;Ii>|upc$Cm+4I5<~;}a&B6xI9ukv0P)3Znq0 z)Ds|kqE_;YsW#GmS%mQByvv$RM_t;)6i8kDlH*NzzzSRzZbJlc0Fs%BY3gZ+ok&Th zV(jy(gmjm(f#Yq6jBx5DeN&g0Ye9f@TVJQKvdp=V+7C7#4UVAfkbcIBbRrtU$Bsr1 zef_k<^fm782;jt5&EtpZ#2|bXVpar4?{`eF`p{L%ZY7q^PiTRjtQ&)&uP z^H{r#56cSEsjpzlvqGy0xFAIXJ*Dv5=)+mgtSS{FkCTvl>W0^wq4M5|v0}*F;X%bJ zZprCY3C}48<;F9z<4Ddpr|Y{~QxmBX=QUww$Jk7j@W#OXRi3SQtvA|1e>wCSmhb2! zU=w4ScHD2+1w5Lt^pTT4E^I@rc9{QUQ3N1~+VY6XIip}b2 zkb?Y3Uz-NUfqHdJg=zk+^@eZVULgQ8Z)Sb8HWC|6S5k8)ue6~1JiU3I!4qZ9V0C7{ z5TZ?3QnGrT)T9YjntNs0c)Hl<^R1EJ=S8_sDAoBV`G9t18avP4q);GHeXW*Llm{&Z zE|@!TKQkjtUgcSi_ZKD#EqGrX+kCGH6zk?&?r-dfcdl2`CT;n&Y~Tvt{A)-%S>D*7 z_)2HBqBmQG4@z2>rc*}6@#ig6YDUwC0)4ERu0chI%M#EC?oM$ z)LF~qT1nyXi0bdAjj5uSr(Wu{oFLE{=#l^Ba{qS05frllRE*Eud2%cAiW(1o{cs#K znN!eLLD;lBG+GmqsgjkZh6sI#VIbUMi{={~zZIc|K$9G2A=T#Md>=c6*ujJJe@jsw zCUpVX*A7ppB|WFImCmIeTJQ=>{8t@c&QfU@e$@CJ!>D_Fu1l;A6K+e`)N;WO{qQLZ z=|dsIUupA&Dcs6^uMp_Te$`vVXLnnFW4auUC>{0E>4|3?#Il2TCPf0tM2r7ZCU5v8 zD-$m@T-@ahiw&G5CptBm#hGN>q?L;11ZPo+cnG}8)GLu5GefpUg`bufR3yn?&5Ld* z7;T&I&=29l6>r5DglWV=n+I%&OJ+XoW87@v;48p{5%OGLWUt~>=6-V4&SJrlXOtpY zZ!^eO-Zy0@qd*QIGw!x@chSJe$x=z;8t+f1_0fqhV$od2vMT|yn^xzDw7d}=&nNXe z>w)x^5WhB?7yIJ zZR?P-shLb~9}Co3p1SRBb=n%LL<$>N0G9D=^ynaK0A30>u z!&oi0_&e3l8Rq?>%4cUX=wlXlJKH>f2Taz3GO3)Xer{d_W+>td;&`RBcjmKlfh+he zvvfi&H)lNNUg#swv{*nEL6TIDQvXcLWTMc&)rx6Wj)dwOKBhCN?=z82pUO7ad3GhG zCq`R-4p;y1^oi@|w}A>3nb#TJf-0~HcWW0zZyqDlss++wFnCb-L$^0>>kEAyQ)PM% zFjV|CVsAD~HRi-M#cmRb?T}~iZs!lJFFaSmB?R5cok`{9>msS1Nl}d>@;CGeGepvj zGP2o`a=VM5HXRL`q+>5cuZJkk>BXo+Pd-V=+<+=u@VIKMC%xY)9TT)daga(JdYAW*&ba4Lxq zkvH3WpTo&gh*yp4>ya0+w+>inM_X)+T@au^Z*${sf+voNE7A@!_Mlrwo;6zWAG}kXVbZdn2y+FXF$pqeFH?!N5VGd z7j{1AGN*6F1#Xi}68pKgINy$X!|imtrjv)Gml3L}38H%hQ?ru3L6dhVURXhS$$YZYXKT3L1y9^Z(|T!|_=E?scfc zJOYU_fChgYa&X8MN3_pEzByT>*s>`C;q7ZmhY2t;5TI@{sr@(tpQrwy@oy6qhVY(VCO3DZa! zl0jxN)8jy)o4nqRft%IMc0`{9V$zM|} z381N{>7`-8cb)R{reD02evU-qcznvLr=OI$U1$VoBB#96qEF7scJQtwWMVW6qY`k9 zl}wieT8EVS8W#{qTY0)!(f$po(!5iCXe&2i?4{5G){kT%8Q8=(PiW*^gmB@7xI0M_ zwtZgjyT_5&QL5h`;4T92YX?Qjq{=|e@S8{n)DqAB91}9A5&)5A`{BBVq%Q_)54LN4 zN^5`GI)57x8`$aHrhp>1F>*Atxh#ZTGV#O2NB{A6l35hThVANn9Zw1L8>f z-vy)hsKt}Pm1paY8Y zW8@Vn2-!gvLyy^7!GUjlIUbEoMEL2Bb7pPW@^;Q@5x97a-zLfEC6kozg#Vhho>-N5 zJd+KZ4r|mBp?CQxxJpOFNCFw<=_fLyuGY6|4ZomX<$=~1&&K@`H(UPkx_Y&d+EE=E z^izpJ*16J#%5yvg`SS?OF6vey>g9?SB6ZeK*~%<`)gtqL&wN)R!uEGhqlceB9dZ2L z2N8k@QC{DE+~lHkDe`GwP`Y>V>L-#eJtX_@8jBZ?QZ2#`09qQUF$!e@=RmGA-)xbX zPo`i$&-?jKOe@}}WYRaB_}LsKoKJmRHCGlh`mLS5m+1kP0*u0Y)W6R#L478$5d#A4 zOsTZzQ&`W^f?ujT^TTb@C>4q1w>JQv)k|&5^BX-dd-=QXUj}aUJI@D$FME}Pc3Wu# zjry-;Ej*||Ulb?VOY4&~?OEn}6aku4j3qYbTjCq|P*zns3jG>$pe8aiYGwP=n+V-& zHxUVzM}ITxPnuXp+@)6wd*72RfbU+hde@s*1=a29x9&bBx5D%`(#3N%WiVWxtTl=3Ny z&rivRfl#2rgKQ97~zr^a9q2PfEx?T+P zXZ0Itc|fw-J+g0{;}ms%FpJlZ?nUaX zx#8M{e(Agi2l$QYs<)D(YZK$Qx_~)`EkV%a4unWZa6MXC&Iee_$N?K!~5CJ{P2;u}p zTv59YoXTkA1AYwqJSme+AwL@g>fhagG@pK#rs0;)Dz!Vn521oXi?~FM8h60+Z2#bw zfb(RLgz+;q5!xC5s^BveFS?wwM)AoQ3I4C8DD(ih11!a|O;>{R31~Ehn>FGX+Wo)K z?o`83pu4RE2C$uzSbSE7-G60)s$A>sy7|20;EPxnjb&NAA)5Zu`am*XO{ZuyKG$|` zDMxT3A9B2!QXNLY4CTGZ&I_OMtF`-yLaRi?>1}*N&DjVtyTJj(m5W`n>~qwjK^``6 zn(GRnxHhq)EPYpJ(^hH$W~QJo&r{zmc@sFHeg(b=ELfbp4tWqxWlz#?!?0|4_HjlE zLm!DWlx!&C%Y9HR-s%?4#Iw(Y-MFit`-qX5e$f+K9q}|>crW{eiSzQ=Kbi$WWS308 zp^20=YuAEuRKKp|j3w+SAKV|w07C|IK?*2A7o_R-$8H7?klyeV-L9y%hx(Dk?k)3T zstoPgI)@Edk23ZHS-4FAx5)o3TLt%0))GC=2Ju6nTB?V-AHLQUrsmwt^Fz+NDlP5k z9|q*C0n%0DsFQAv+?UpRU~ZR8yuUHiHsND^eBdpX zY_>d^)>KJ8fDJeCzXW`Cv2y==*QwNt{YDzc8O{{2pZlP3*AUnuKRu4u&&aouyqA0T zq%KLNpIIv#(4fBqqAlA2(z9pFml?oOPFUJ`zgTnT+}a=#R)A?Mq-j5G*22#aCfQ2A z!LmV3r8kd~8yu-jp7Y3)ZGUU1krJkTmMunGr#GX_s~JC@`pfh?3v`T6FnuOKz|P6( z#z?0y!^o4b^n(?Zn)C@ZM$F$+9skJjE5HuDt&mwg*d%U8 z3<{HQY?nOc!kw8*o$v5&T5+IHn$bOCc?_QJ7B1j~_J^5L3)F?pyyC9c>!7{eQ|S3l zTZ;qFX|$XjfHHb&e4D{iADj;*sJ!6>{b9y@qVNxNy;;B%mRNOG-cp;fQwW*uq;tB? zBu9`8RD2Me`OOm)STgGEnD^1wv*QOW0EJf4K1n{|=5cp;{hLQpl6*8tcpOdTo8P(g zTLR#}$SSw-b^$Jk@ivnvDf-Uhow^p*qgM=*^1U5blfA_);5!*S*-F1T_|@T(z%uEKa_*Z$PnwV{Ivuk?n7C5+$Bxo zg7qm7&_LSBA2E`;(+sZDjTkghpo{2EXX^@Y%;JEOQ4x=)U--FefA>Gg;Wt2LeN>OH zxrj5b{@%oX&I66_qjL8dX(wqKOj<-<@og~q+-W(b_=SCU$z*ETV`83mnP;P)@+fBU zDQtfgNA;Yz3MHiFmZ}yI+~F+@j;{uFW`E>78C;=#m`tHDTh>>coH@)e55i=DR&)7t z1!nmQv$*X=l#P1nnk-#fuL}Lgbt|p({N}02ti;5^C2^`bAD|%UKUQ@BLoJuannX5F|4EP<{vC9F#nkuG{1g z#iJ8N+IoX=8wXpTY`2WjAx39o;-%ZaQ$i^YXHS##T|GM;Yk6Y@fh+ z!%qn*gf7-1)p>l1&@_6t3A|Aezy7|7 z_9600n?+PBxW4YQBE8M~k?jBn{tSrfl^o_P(e{YcveqdZZZ@%|9H?SJ9{Er{FiJh7EGgPykfN0y*?nNPb@z0T?kN{F zM#Q-MoBOA7zmDl}JSH?OvlVe_^5r*8TRb8B`9M6ATu98X%CLg=ueM_VksS zGt^oNiUBG58(d;qDQBbMVZi$a$_)g+L+^sBEC_Z^90irZttnGR#d&3fISDiJoV zgh$AtO5GZ@SRJyIxl=TC9S@U*joR8ChFS=07VhlFK%mu>Ih&$WUI+a(-rsqkGfXbu zfTyRJ-(7UZe2plbk*NyR#b=8;KVKmM*w9Nlg#_-G2{DQ9y0DkDzkb64VE9_TXoYLB z&VW=H7@`i{;@`hTd0wJ=d{5zV!p3vm#JAuduOge|IGPr6X$JCZzj9 zl{PoUN@)>zQ~_TcGX$iWDQsgn&4g5Wn_V$0nBM;@qS#D-SNqrd0F>RK?3T;?!!XI3 z!@GSF1h&q5=rb1$pxo_zeUZGR6@})p=i@c>#QYrMX8ckCHX$S|9`Ok=o1#_NoP`Ul zY@DVK>g`r1b=R+KwsUnBo?+)KbX24CE~xO)H+*$~va27Tegm`y`3h*0l5!X=z_D#* zx}|RM4+fvKzQ3RraJ?f5=nUZitH-JH2q36XIwF5pg7ai_}AXgv$P&lDu)6 zgi9EU@e1=;J6vHvYT`)PG5klKWI01EbP>qm2oHHw#kgeGv!+`>WHY4r%t!K|r(v0K zZ6W46kC0@u%81hz<*aOZh#0X>=XuND%hq_u_=(UdnEc|cF+bm)9#M;fHhAO2STCgd zwMeQw>tNN_M0zhz-ri{1^8k=R7b=)?6!fqsUQ~ev`kOG`&fxZ;(DJ@CBPck(GTKXF z;yt%|KaAUojh^UjEnfB4-51iV+qGZcbY2**L`S_G|Im2_JA3tg^7P+S`x_-d>PF_( z5lp+L5|~9UWtb1UXFuej?)9C4%j%^evKS_WMKA#AQyQRXYo-CZ*Lp>0cfZc*6a2?3 zY;=HqJvOb=cV)y>@FX}KWp^bPKAdIsp1W4uDrYOb&&~Up&IJyAVA*y~@to*eJfqYW>$oc`E)}U=(qmYR7+b~PUI_qC`(L~VMe9R4Q>Y=5SzLlWzlb4-&;hL|+p%Yj(>f$h30lhi zLr<0am2}Q0;5O+4WrQV$vG<-mOJda~Ywu5~iQ_f>CJ>HbrmHNYR`3I*Pm zW_MYpM8y<6Q9e`O63#a-gGu~SSrQKa`LeKvQ9G(3tay9Z;sp;QFfmfoZ$i|ZwR`%7 z+<%7!DVgr<1|8<^u{S2kBGPDVlOt#B(Y7&&56ZhYl^wYuM8=gIK4Z*3{{mxpczgc3 z?BkkA%nEO9c7plj&Wa%PnT7gl9th9N)$Qf*L%3%Dr^W0{9UP>Q#+H)K{f))Dxb!&x z^Oyoq5bp}rZcs50RKo>n23q2R%HhkQe$=3!kh@#K57l|mpFyy@)F*#o0Al^inYhAb zH`Fly8Pr)i{khD7i~KFUKicdsYa?)|$A}V_Qn~Kr7cWnkBv+yaPSaMt;th_N9Fswf zDiYuPau&6M0+hvq^Mo2IQS?0c_IseLWNCp~mZ7gQ$(J=i8w2Mlixc-U)!; zK~;N{5|5M$2(-Z|?PcR`(&6aL@)lz^u()Lw2js-fof_!k?-V!MgOhM00+%GfSk((ordanfWgk|pz<;-`aiAfe%!&;D;I;)LtF%IYK$lhuBJkuA~r zD5t0~(Q+SqVDzbV`jkPo4E*KsBw@)C@tYuH>~EJ4M<^6lxN%c*hb2}vshqx%ZmVwS z2wyW)dUxc);QgZ7=jGG_d>|rE)Q-;;kUGkHzgY8(XnBk8`Z~QNV**!TMQ5~KDk!FE z`$0WXparl9M|V0WmpA5qDFiBODoH@HaiAh}OyUK&&Get!*!9S~>N#z#KRP8?7dc#b z9qtNYyT^eHZ~;mOL55@uc4P$7CI3-o+54xdm%X1 zCg@>+Opcbe5G47s^hJ(YYd@lOMz^X2GX72W-%=8*>&e+Hi{52|^7c4=Z9*iBWuVmO zW9Ag0*%21rwm`OUH7vHA&@~SJ{QzjAKnPB#YMyNn(~_|&Ddl^rq#CRCrq$^onEIC5 zvt<8=l}as*Z~ImPYP9T&I;5w-g5=&!Ztj-uTfn4U*8ZAzrq&5IYoIi|g5%O^HkPdj zDn$P1>-SePR|+JfBP%Lx2cpa_b>nwwN>P#=JkCl zq$c0USALs^rC0ZQGkxlE@Hq18-PQMY0KB{(mDFYYDs3#rWk)vf#KLzBRaBNmw)U#@ zo&S6Dz!BORs7`Sja)21y3WD?3oge5OBlj9LemJ+=#fcN@BfW_dK5J(5CE%~$^#it5 z&8SyxK66n$PX$z_QQG?&otvYucwHki12>A9&y*&O)(Iw+kKeTKPHL*{1<|^Nl<1nW zk1>tE`M}^a6B?cYQcg(!?Yi*!{(3GOFs}NaaffooVuZpbYuR2M4zLf&>d~Tb%^14Q zqc`tNW(>)Gz1$1EGM#@wopT5UkQJ|sQyw`{f_~5T!l8{KOqiLzTD1Nh@wr(&Aoo>0 z8LwQi8;T*$Zix}`v3{?yC{kjx(|93Lu8z$$PRypB5SieAI^jkmZ^U0uj|XHQfx+L8 zv;4n9uvVdBMX~w%gR&eR?pAX+V&TdRAvodvoxel z5D4JW?|J_Cv`s0v33;v0m*NgRhG!Mx#_k&epD!VW!d1;^385x&_LC~X@(3>gU(ro1 zpmumh2LX6Ry95zU;JM4%Yc?$Z*{tw9(gc8JPCOKK)^;{?p(=6ys9Zv2_o4y&#=+VZ z|N1(f)*AGgjtxeUd)3d&7h9l1N9s;COnpRpoRNM@aT`);)rAnHm+t#zdi zI@>5f-04!ZQgLjp6&xhTCMRb3uxBmvP(WI#2$kw&TPH7g4ZN{yVSt3ZE-iV^n13Bl zb4iRu+I=$2{1Pr1d6MnCh#~oXN|LzJ10#TVruhShZK1ejcX5EtgfJoJNk7Cuu$Gbq zJQ%Pul1NQHUDADc{mcY`+~~YjXUWa2Ki=~KD1T7dW{rND;;p9OV9Wr}?mgGtSB>u( zOa(@VmZ+l8J7pP3*yT2&P$oN>K1!NN=-){E2%SBGAGyti%!AIwo0{)JXQQ6ZISEHyp1B1KZ_ zC4A(2cfm%0$YpQ~2Bu3ZdJU0L%0{tqM{bG#rjzC%wK>-`Z=yy7Fwq+m zejLZyM9<5ovs!XU8()b=ExR#LZp&0GuV2$r3W*tr^kG0M9gERLS02p_i-brK1_np7t&h^1_(*3JR;Z)lalu3wp6FY$i*SR#C)Up zP$6b=vU`<6LwmB1K+#U<%g^!Bo&{af26VDQH>MAV^xpWs1-@0O&~PVakO7smcMHoj9)}rSMI^2;CHVMsVtjE_@VQ2j=NZv1e1ZSa4fWX zT{=gZ28LFep|E9B#qK~vJ-`ce-5gp=2}`<|{i&jv0r=(yD%K(!v>$J5;PgY9qhO5_ zT*(2TP)RsR79SaWN7xkQB8Tl3-|(AFxigSRviW;>u(gAYBQ&KjGH@{vy~F(clIX zE_>!(_xIDZiszs3*@k~$L4qe@9&3;-kx>Jnu~f!oO$q7K5^c{LKW)f$QX@Hvvp(lO z2w;p0TR2-^TB$%&3uiy0s{FWH*a~iS)b6)LIsdF4W879SbAe3@Ph>%)=K(-pN_jM| z|I&IW`vgTF_etozs?ekk(&u~mueh+z+Gt=-pu}K$C|%LwwZ~5ZUo`)B&b2(^+4SY<9f5LL0} zRq)=2VX9Obkb({Ee)l%M^wUWfF5!KJ<=8N>{joLZ>DX8!tFrpy^_TDJ5@pl{lf*!Z zI({DYS)Fc=%gP813VFI|mPG$nr{V^G5ZLFS-ok3Sg^1(ozu`#J+1I7I(dfX-VHJj= ztA`~VszQZZOp4wX36FQbUCH4BLsl%RPv5y9{l7^92ZPkS;l%Mj$jJyT@dCyo6sFRP zN4oX){o+MW6->8#OfU0^mSt?VtbMt9(67>Nsy&jKaL0B+oUu>Tgkks6dYo^RWIypvHw{fk^W*7)0zV{z`iDjydE|cxY zh1O#2Zm7Ri^z&FJ9|8RF!tk2Z8%ULVEI{}2R}I?Fx;EWvQ=}Co#nnXlhQxX z@5x2tA8zU^bo??KW6fhrr{=Wa_O6nIC zEIOst3C=XU*cS7 z5VP6KZF56xE5l-CJUDU~>d=i+!WcViCHqAb7q4ShCB?1i=09xy+|N#+dc##<2W-1$ z?{Bl4#*>b5&h3{eCpBn&9N*EpDB5cI<4m1P+uF+;Q%h;VJu_4uS;?Nvs>jWw=g_4A zfJwkzFQ@uzM$@L_hNIKER!+-wVI#VPewLjF^ZSLR>5E8rjzPT#9-!Tll8N(gIytKr zA$ClH+5O`D!!)2~5Eq5zPgIC7T#$5;O;UG8lF0dI@b=JCjR)f9QJ;frP$o}h(tl+B zVvuhj_c7H!(>K6YOIlhlG<=~2aMYTOOu`U9JlT|HwY-?~^ivv)gCGp(!To|(3W0k# zFp!$d(75K{1AMR$Z~F%Zq=$Dqld#6wI1*8kuAv5CDz#YsthI`|jT^fsbXpr($}?{@s1|maT+*h#{o4l&?TTN&PM)Ae^do z*w39f$vD41=hern^DRt()gh>_5~!cJ85L_^eho~~lzyQ;e-iy<{78NWXkA7Fb%`kd zbbn`lJz{Qh8h_~uIZ}U?+fCa6wRiJH@028pjw-31g_N~_lynAK4H!de)}u3F4|Eu} zv_5j;Xw7qxGOsvdjL1pqf2M80|B;&mt1&L4f3uXp57u7F*zXKT%j=Z_+Trw8)iLZT zsA8ju9@rPe`~$nN0HFrYZm$ST1EzndqE6-$Ssar5R9u}D^{)V+-){X=%z|2;aUIU< z@BV(Va?@kJ)M%No&64Kbl^OH8Tr?Xrc<)3mrvMW;rQAH5_Q%L5{d@Ebn3s#6iNP+r z;fxFLr~}%d#!-ZB&YS;CD~NSD-(wL}RSmG1wesxw#MAk3ESakFX7Y&a>?&<8>TG}z zaMD2rrna3vO|V<^1RSZEkI&dD?CpAR+sw#>*Dr;q=B7Ui942cNQ_cBEFusw%ApF+n zlyoxt<_Kul?GvoF`aVeyBl-H2-^F%r?5GWHPT{j4H;QovZ8CPg@>dMydggraqPt(@ zwmz6l{{U3a+Rq2)eDZHHGqh{>glMI7fe#hVT(?5W(*<`0DiAeG@>a-;PjyRAw=3r3 zzG7*sY_a+<$lcN?IZewPA9MV@{yPdv(|x&?$k{6>eQQK^T6hsajBMW3&7~~4I=cJT z_6fdM%gm-qmn!40+f4*38D!ii^w#KCEbGU864U`A2$NlbKvfQ%qiIOovq6VP#OEW9 zY+$9*TZ?u_IMdEv?t|$tR%-f0?|%w{n{7Lu#$eQ%ImMe%#!8QiRbUp{%>IuA$s&^d z_)fYPfVY(!armloy9Ra@w8dBIykyYiE>Qf8Pt8C;c{`Fg-C-rf3ZxFOf6#uV6$ccW zu6RN5(Bk-vLX1wa_y+(F8XB=TDp>qh64D{vNG-8+3rOb%xpa4n($a!-v&({XE*;XM0wN89NFz#zgn)#Agudhd{jj_9 zVSaaK?mW-E=Q-!xxy?)d%v~4uhDcn?!t#=9+sNUP=d67BE`s%5^_NEAALi1ONQWOZ z*6+?DwG7~?4sTVq%nV1!;FiGZ73cVrU30_gah%o(>?^;7dgeuj$+YA}76$N#F3UylRRbDX zw|IfE5Y(h#%GuIO<>psC2SK9+SHquf8fj0AaVU&m9I~#dkt7r{hXMU^YtUJ>m50Dk zPXj;EEKu=;-jV@A?M0d8TVY>m_3CLf5wO4@MJ3v6!g)XKnc}B9_tF3A_;wAS#`9 zKu5S1b6a2P3%QT(%b(%IPHyVw9>H~YbsIWiW=g|6Sx=FOE- z^9b=Vih_ezPUm+IFY37hN|O98CgJOupJs_yKTs{>$Hq?ut&dcLX1M^<0wA&yddw67 zrUfB@qoF=fFycSC_o7nLRiGSC0HopNCzt&6IZTjgS96!dn4 z4)x{fc72C&q>$P_IhY79Pd3B@oQe}MZ}z}iMj9RYEdxT}?U-M`3%!wkzX2J3pShiN zPkD^dj^{@JBQ$ywz?JgVIoyq;3C3<^tWE*eL; zaVjXab<+UL@0x2DbA|Zak9|ymAf9G#69@?y9L^h!sB@C5AW+#O$5{$oS*H@6y7^T&JwJBx@VvgcKs+4 zxJjVX2-~3#foYYNam!oCYPr7xq+t~#JyCHvNBEEx9Fb^0f+w1^B8T(7nUfnlZ@jMc zw8j>J);WHhXNfYX$VpP-PoZVaHLU&n8}rJANqr#dBLy(e&2<;Hm0S^ZJXG}-NiLx`?A;jvCmev$eNnq0a=hfpkM`C720HH?UnhQ*+Y$m z*h0mlE!wy5jG}B-t=~U@+CQxq>2Q`QqWM+Eb@{B8famw_@mJT;wxa(MirT~QZ_z(@ z%((Yq`J3->A{RH$wC~$#{jm;_fC=c&j-6u&zc~Ho-PM8%78KedC7(Lb*Zyqf!`L_J zbSIZ4@80p3<-zG^9sqc#^W&VYRCD+Tc18Q!7xs&Uv+j9*>gJPt^VX~>K7n_~G&?i1%90w>@D%W5kQ7oC^~_ z+P-}0SwNk3)u+O(WXa+Jy-L+*t^`T^N^GFis(DI$kruI|Z2DclRwvYftkdJwp-9(> zFBLN+Nz`GB>e&5RbAClpaXdf3AFRLgFnV%kIBio;1}wqEJCsaLI9kk#kEVO@+N?1Z zrX<;)FL6G3XyUsI9p8kRQAwS?@4Xw;^&MV!LL(Mc7zuan4@Pm(0u%m0XzsMfC zs+MnI)_r$vcMN2c+|3Hdg@`O`)#KdfB)t8_|1COGJ-irSi(uxJpp%wvUvvnOld=Bw zv@%1;iWUQMzI`k-_wu};66cQ;89?`2V=)PBDEWR0pCR#v|Is?plU66=`g8=WU9b66 zqyMN*Ze$gZ_WFhn=&WfhE1JoDdPWB0aqHP$~JC;eEajn$0%AXuz$%k_K;&Y zf1*>LrJ?0vZ-3k#*&SbH^YWVaxC;kiM5{6}Wt@xE5!ddHe+!s1@`f2OZ7RH~7N|_D zn&W#+55IGYb{Fz}G}pQ?nlsg7b-%Bs1ppYWp+2gWIbLza53-KO)Ix^(XHCgzG}y*_ zS*qCwBi1>4TYvwP-pEp{TGSHy+9S5H5Wc7hVpg9nnr%PzF87h5T25j^wY*dUKtgr{ zEcpnmUqnnOQnI6?;gG6>(v_E>kO{DxFy%&rtXU)tkxo7tC+~>&XuV6`rwJPrlk2j^ z0gAcf+K;$KrKPGauc|6d(iQ)oOp9#(ygCEW!g6K5Syuo2O$;d?nBKXWFB!qP!)7@DidsThgA2zaQ!AQZ-1 zT~@S`W*7Mo*$UmGdGMM3k6l4Y5yF(ACB9BRO_)oAR1DMb*a;&fSUS+f*+%%7l98#e zFTddeSB=Vozsl%rt>4j7l8Ik0iUS(F-Vphdy}<5*%uzBZu>5>;DuXjmKt0Im$(KHq zf|W7DvRMm@KTzYRw869O{A^S-OD6fmdD>G(SvjRT<-nr^1(U0>=3I^n?{_s4xf9i7 zq0;usl#Nf%J**|62!svN!a4Vw#lXb~O2L8l@c{w>2l+a4aUY`gLzbiynHbagw(-k@ zz3YxOVfYo+k@V|tiAoxHxp}z3`YP0=bW>@TKH6iD6@z9baLYRWTfaP_xO#D1bP)JxZk;s|g&l0P)6AcKc@KaBqLxam)L z$npg7&6+sZ7}iAeHX6E&DX^i1L`%_ z-o{rQ@DYcwn=yWlaC>OP_ihN}UgE6o;BGu$YVJ+vN634PbI(-mrx>;m;Kfq;!Q)`P zy&mt-UsrU837bco8t+n4LWyDUTFt%epx(_UZ~IZ~=8GDA&r@dA&Ybo!h;8+k`Ql(a z#`Q^=DhfHa-fzvIlL|gTBbU{fKy+}7?cpX+ zvm2lL_P5&#lCk9uH5e43ssfXY{9Wz$=eW%#mV;nCZ>FKPH{$gNJ@IL}Y}L9h&LLo5 z1WN9tEy^az_lPI?>Sf5G}ZNB z8kVnJ_Fuvquhp+GVelBe zG2o!^G*i73X%HGGdG#h6#&`T^6k=%x<31(+(DxFN2>orsF9u$Par10zRZvkegvOmu z8GDN9SW!yh)_wm#YtsmOF#3CuflV3P%`tVA!kSPx4Bp<^8%Z`KchSGo^pcBr+%WpBemXw=O9IUk~nqMz| zdK9y?Bhv#%lg5YYYhFiVpGaCO+K}UGj{(P-r~T2`9*Oq__w3r~GNw6ro0jNJ&J`$lg-|VP!F~Gs z{Y6Y;IEY+u&+XSL+}VIltUWKUrwN~WSikmlc|CA@Fq^a%-7(-8*fS)pB?*g-VS0T( z54DS1DJ?!NY>xZM5j6MJ;CoQs6Azm-IlZx0>2i8+)6?W0DS7|by<@fMDN7?-@0@fX zDIA7R-aLz1H)ZpWJ3>LB0p@Fe;gV zuE_I{DGdbLt@pGxU=#lT*|$ZT)ixHd24?&jgWbEu!K)Upw8!pSzLF7t{@KYd==VZMkGe~=~$oy|~V4TQ- z{F)yE9}7vIP7k>wdfI*R&^{LD(bBrU=LFgQvmtfU`_=7}FP9+DcTPebOw=_iOyPqw zlHg#^b15*Z#_zJJ1+5;#}qRq6%mY3dr!wk205 zl&BV_RLt~2=k0yw53+C{JIHVyytTJ;V@VwD-!39JfpeCW@HcE(&>JCFhi_h(kEaV8 z{9`LkQh+Xl6-$yxMy&Os(#%W=SBEu)gtRtIKGe&0q|uYb9o(2|;CFEL1R(_Cvf9&}-w zhqymh0IxDx>W!r{S$d8K8%6jz6;~ z6;+CDHOT(K7^(en_Pd3GMX6HV!cZdln*#2#O_nIAs5|q^RnEG zr=m7ePqTT~Kg15IRp+@1N1=yBwS)b@ zV{Ncueh9Ls1%N1KtyJMEE@#ddLwOxXNZYBgb)V?qdj5pUpvvB@uphaf`b^pcq$+rl zLD)UIJJla03*0-`ywu<2D$NG*Y5MtZb2$w*RKQP zh?04*7xv(d?EQFZd__^<&&br4#xymT`ttrh0HPY7aA@Y->r7nP8}WkCmYkvhJ(Y*h z{sZjgo5pH3ZE)c7we24gj&0X;7{`RZA*CdK)_Ev`YRzBO+ zXtsmuReHvfk>^ELYNTY>8+$0u6tJa~9BoD9B5?>r{ov{_X9)_9JsHedVrEscP?G;U zy9tkb`aoEiR2FMqk-@`o@~bH@w*B0383s{=GdurSGarMrHT%&S?jRl&ho(nAAYwqv zR}em8(_)+q-H&}hM$A$@C%7g*w&?RUI>mqFt;3aKf(IAZAu82Ihy7amNUo?-04Xzb zGuU|mWz0-ewf0csQ;>RpJNQ;9^Qhlvq1OIB>0V^OuQMR4{*?*R*$?e^ze3J~@+2i~ z)76X7QyY(PMyrs!nFvFHaB3{s2C4JQ&cfp7PngfjIzlj$$fW{S*_766mGM`X<|pR1 z37XhG5nm`_BU4d_U)8K_&rMf2H9I}z_MPws_w;Y4FMeNQW;J?0m~N;1^!950>59^L zh;rkiP$}OfR=gpiiD3EZ!A9OLYcp$VLb*pG5W^N-Nkg}1`6ETqg^*S$`b#I$Eo&y3 zKB1B0$t9z;bt37Qe#SL~?=(4r6vtpP)B&gv@`&u1OhtZ-cl+tsk6<@ke9_OZ1)`cC z+0!H!?D&bsd*CPD!@fr0RM95TiO2YJtnIQWYA1p7+b{zh6k1ZmkI9c4+kOH>Cne5@ zn+;Z*ZeP@TLsrC3DqAwAsNvxUX@2z>gi)E0q7dZ)HXTc46gyO9ZCqMGw8wDZHh6ra zWi6IUPfSp*7|6h2!nuA?7q&=>zj^rSM@WEv+%Z?OU7DyK zaJ4K=ka>%D7{Sn;NYfkdYMn=UJuOHizVt%Z0E484soc72K>~F`?f2Raj3&O#95fb> zC~z12hID!Wg}L|9p%a6j#gim|jl}~;O&66_{^c?H;loh)VW$s;Yje0+DjhC$J*Jr| z+4RPxai|(RNqI);Sd!my30IR4WDGLKnG|~gskiEU{}^8oI<_bjbt)B@Xm5}Y)Eer# zK53fXl_L9;{^f##vh4GUFpt6m^+!dLP)oDcd`H2o2&?DVRyjCau~`hOd)H-V;uLkc zAyd+6J5z6mw89Y%P{ckt+g%Y9`nV`yekc{eiXi4Hk{k=cz zd-4NGsI6IY^0lg@<6OnKT|C1ias9IT>sBZIxIdACP}$enB=4J?^!G0X@tMnsSf@iI z8;_V>^>H|+64Dw2kF|zRs?ZGg+FhadTTDbFxxJj{xWny*gqiv)amv7}8AX?4Vmj-i zN4CLFFEo9OdQ*Bk#o~Rw$ZQtXr;b1OH|OT(VWZ7Ca|Kc(-o2i?u2E&h%gPDJjkb#u z{ro;4H#|^1P1$s*28KTfKJsQ%B%;(f+fgKHR7v~<3A&5ZA!1e=PXu3y{0&8DwngR) z$Pc=u=&O*&Z7Gz}N58+9QJ}*W{*Z@0o5jwPjY7j(;XN0ld!*05@?J;?xJW(%h0{al zqgZziW=5!}M@W0(L{mYtxY%7cggP5kQ4_L0UVB0PXl)7Yl?H4;qSa1V6`^5$9@qml z1ZwAw3v7eguYD-$$A>TLw>2CW(ciXT&OpMC;P9HPpj=HkaDPy^RH{EPucXdmRYdc+ z2fY$6%xH^E1wQRPZrb^r?Y5ulCPD=&gL6$Efme6tbjS2|=1vL7f4I3lEp%luRo8bd z*IMeEXz04Qo$PwiK=gb&Id~}Z^Z@ue@+vw>J#7sh>e!9qAUiOA`63Kx8u&PG1=!fL zb)|Im81$rc6`{ofc=(?>sPm4SZs$@#KQpl++XXAUIWsO|Z4@Hsfo&QKlZ6Qbfn3th zg{V_W_e^LMqYVrw(@MqL4z13iL~&(~wXryXep9^8Tj{Ud6|iTlL=S_f>IgnB@j~Z> zlp(q~?IN?wF80t|Ef_));tf>Ro|&w*~M(;kGsiR zfhDzI3WxTWKaKl4dY`(y<7d4dYN@S!PaweWb}iAWrS)w{IL8>yhEvFRH~aeefq#db z11s7$7@18g+Sf%`Bj2!meA_HD?)*u4fRWSccTV66fKhB< ziC5igY3e-7BeNN!@mYY)qrna<^YHdt;f>e28?KJ1CR{Zig7wVH&XQ%WoWkF z%e%8N?SvG}qksiNtlY6Ijs}S#MQbz=J9E7p&(Gz>f?WOl))7E@}LBL@~5R5Yd%ypH|i}EZ70iu4Wa%Oz`aK zV=Hq~9bv(ClQ$Fu@kSDa7uQ-?ukr)m_3&kbnj{~lPNc8o+S8h-Nr3kl&j|1S0xzub z3NgH|1LNVY(h{E9#qyCo9C~t7*W`5HguD73TDv^_Zs5}D%fBkFA2pE7V@+w!mEXBV zy5Hh+y0QiBJbwPbW=W67)Wc!-!vSC#U!i6hCLJca8tr<)%gV^;AJ@AU-95L_%NnFsG5hV3o;w>@_A}+C8>>x2m7q)q18!dT!6)eUUH?j$V@~`Q zZT1hOz~>pW7XQl8f87Vr|H?KhFBiv=j_0N>FeJVuY&r2(FZj5cqz2ws*KH`k+g`(tU zdu_A66Mbvdp~w7-D2?s?nsmjMCs} zqo9c2($J#2KT^qvuFoDR#FCP_h&_=i^AO=CI{^4s((h2%QXk?)wkfcQ`pft<_I8S> ziArdUd-=!h>ncc6wZoi@846vmUtpTz6wUrCB@{!)=#Oo|XIC0s-LCj?1iN*ozAk^F zC*p;J7lU`X2GCe!w&~SrFQu!VfBdbg(e}r`d1x_K%Vk1O5S^tn(IX!6xzI={Q?~w4 zOJ6IHlm3vq#)@Py40_ATlC9&XTrYdzu?Owfk%I#C>)7NeF%?xJtb@xx!KqI(9rPB1 z%~d|}6UGVArB#msAX&74@5_k9Q?pe5%0LJs6gHkfhgOWaZAz5}lfcOnq+G3qDl|4; z@G1Zj!f9(4r&SoEob0WrWNl+@AUjv0use$@L|u_Dj?cX?dp*Pez~UpTgVHn#=rhYE zK)#0sNl`hp*xT11*Q^7;-r-Q944|Vmocr)6sB8>j+@&jM&{I)IAyDv>*j?-rzf^Z?8DOTp zH$IqxLpqal^yp-ivcIIGvhseSg=aFFi$xtHA~@$7j7LfNGb1a&&~-1!g+%e-H6g2Z zy)i=B7U%QFB1V6?dkJp_u&&%fxa>?A#rf2hu|6&}C76jzpA`Y}OYf4F`kem6GYujF zp=tW;rPi(&bd*20y@@mKmArk9@#MPAL-)ZRT<^=(bw=5T^n5>t*6h4EDT^&9bVwck zlZz&OO7l{^K}Pi1P(6>zp$5ire(4t({6DM+83Mp;!Xlx(t%|`M^S9KN@68}F&&crh zGb@FRuSUDSRo>AtqNC0Vf0wJ#tk(acF+*K~wAOroG|22pADgLfMVj4&RbK~Q`QX%t zm%a$Sg^akpGh}y)uIjU|VaHWMot`Q>)C;CEMtgnS;pBuumm2Ll3J3`7DIeWJ#;V)P zlyEW$MVF-l)<>|L02GfkZD<1k#NO*2CEwB`2|?)RE1f%%TSnpBO(~MRJ`~1({!=qW z+kz|i{$y1z3X_rvPh#s$$w)tKV?g;g6G#yuzQ7A*E}qdKaqSLq%WBgG(y46@N#G~u zHk1}I1_?D2W%ZOY#gk|Y&{Rd=Mb5}ZQ0YYf&qhuZx@_iitc=0HLivL~qp~cFXz8p} zzG)oY5swL55l&y_`fyb=@$2t;c2KoQ040*l=~5vFQc$N!kw0P~w{hjyT@NXtFv>m# zW6pN!iukj2!+4POxya6yeyzd9TVlv`RCE_UKhx}`%Fr>L3rmwnF`2OeosHz~>x~R6 zKD`)vBDxwJdnN-;y}{70ZW)*q-tRP829!@|COlg~tkS*J`()*uQfZVaue&-mW$>N- zf6?+MbbXr8rg34>_b7H~*A<~!aHGJ)%;*^Y_yYTCU6;YlJ2hCEn)p~^R6`F`b!nXtq$?>SmNAx!PP^KbRj&-OJf>B23(Me!w5~m6!BG04 zOBMiicDiq9JG9SfsmhVX&91jn4{C8URKP)kjoZ5|IBwcj%Q-5H5seA8KQ%!a4;cdV zHQyOD2{L&m&@3xy0kv)U1=P^9`SR~CfSQz)F?&A)By391V=7fe8XLcUlWb6#(GFEd zZWibVvN=S2vJyJ>87A-gBXT)#jxrkMj{7A#{EvxR1R8}4JDjPU=feKGU}^%Np`X9b z6?>Bup2$=xD(>Xe%tqs>3KPF4|6vnBCjB=_9iQ84534%H${%}+9^K%!xuwAUG16w9 zXDoz`{S9OkyYeE~(36*mZx;)YapJg%=wiuVP0N)DxEQmu#DNNHs7P_~N{bS@&6`I` z(C@iI3@%HCdSBW~L04voZtNs7ek6yjkFvN}B|Z+YG>mxB;4T1A)+7My5`@efM#?Pr zZ?E0ale_?+&?!$w!w%t9-+S8*9RzZi0?OEN_)yrlOYA4J8 zg*5bh#3Zli29PN)+IrX@Pg zQ^{yj*cUQi|C+}~1J*^vaPsCkMPH9YNI&)?2*4Ue-7?tHuJV3Mc6-KG^g3@%h4Ic= z`N^U@&I7pe-ZMo!umRQPlO(n>hV!Fle=y_a`A46yd)e{OG(4_&6;o+n!^V#c6d%09^jI?}o_iwSDgEwx zen-+7P`A5){b5Br1et;RnOI}|7xm`E6K>vPfwy)^kEJ!nsAYk}Bawa`hv zm%-K1)8@{>aX74+oPb2E6{e~+LRH#kvsdnJ@XifG>+*{GDNQ;}18l4Xi+b<9Z zF3J-+#bApUkmxhoFYqIZ_38aA3&6Lq^*bh_7yeawtGtUZ4&-ds$VaoIc6|Y7!Gq&h zFqB<;@8{9wUv&N4#4^7bsKFBtBY3X|D7y0@Wna(vzdoeuq*1#UL_GUD>oUzOaz4Ug z8P8MR*{ zc4&JOe&jN|DIqYxmLQ=R%(z#!z9{;}UouV6vNtUsP_cw{Lf?C^QuME z;~tI;^Qp@XylqrMv#i23w~7>iR88n3RS{$cSwk2AyM`$C)y zrUm@<#_Pta-V{p7fERr}%t<4<98b>_Zd`KF#P@qI+}POlmDdfD z%2;lRTk3r*2W|+}Ze3H3A}xv8!;dAiAyT@J5>my9BRzt3NJm3$WaN{0oG!jhUt<$N z5U1X>ykctW9169T0O%EM*TdABAQKAo0R{aaVaQt`2sPMh3j%+MeoK-7ae%#xH4MuV zB=P&E5|{)*Y~ej=5o&m(1?M}k@hEJB9fX1Q8)IzS>KOT5s^6mN?m}m%;Vw( zCDIgLCCShWFnI}OZyExn0VP4A48!tTQv2&240>h(Cdyw?#xYo?dK#yDGPL7Z3kuQW z4H=vxCvLZY*RBeRx1@b{#&zT$;L9&fBSFP8^e|<%3|(LaGmtVv`geQ`D2t)Nc4iiN zrk|Htv2J@#Y_JA9)*Z~4MqYM(BGB?v9b_=Tmj!=}kX4>lbn-A{LzOp-g*rmiQnO+i zP~NCjm`pXLhPtTHatd&9rYYYD@Rm3^+6_3MjFfW}T=DDWZM6sl2Q<-B<}j46veGk- zoi>gI%Y#ka*m?Dd?D|ZPejVs1msnYb_N=4d?5vuoweYzE`#KxwELTu3rQD}cg7^N_l-mW-Q|H(`n1BbF=;RFLw5w*7~b+7j8AARCPqit268M)~wsDWbRl zAeJ1Z)ZZ6KkgVbOh=3*AO7)-T)`b;K3|I~sLG4zAqK%{u< zvdjK_$?1(z(ez8?T}VWi(!((<2g=;o)kREe7>ftiwKo{D{+s%0%FfoB9msnhTrm)m zlbJf+IVZOl!OSJW*Ii6QJtDlzaa0hgTwtsvJvIT>u~k_}j2eka{*~@EhMI1 zXNZk(^mXZd0lM8tE8e=g{ADSHd+7iYb5Fsk`wv0O*h%#u|2tYel=!t|C=ToUk!s$Y z7eNnwA40|?y`YWbR&S2>egV5vP2_^Q!!=e`=_p=Dj+vx^ zDzd3cnF_e@!6$j4v&3uBk@I>`<**+F3okBCnLq=I4@*=bW}}XVOGi zXlQOnO3T!Xw-MVyWt~z#1=UHai5upHB#sD|T6?H0P=lW$Olxi=jv-qcR>l}{*1zwD ziHoQlHfD-A$m|=b8(4Vd-2i2G-Z-@e;bf7BIqo;KUDDi1-sM#P^yR1PnrA_57k}i&q}p4_NPNN`C^GYB2dF#lGOBc4ZXv;g!;?&IV2s4{ z3oOMU%LT{#0nO8!b7^wA37+1P*oRWP_$xC#rYPSF+~EG4Z1vb?_2~r_;)~Q^97m$? z=xa=Q0XAV4q8+!l5w)H#mR46wsi! z*bY&1M`?)&_dL2UEJbFC5N%Bc@#4YYAOW(v5wmOCkiA@44s3ql$D3G)47!HJ#&Vt!riTx z&{35`T}S)dsiB(Y!es)YU`(eybj8p!Yxfh)L;=gb99K|gDIoLM6@|ZU0!+^sK>Hw! z&@M)(5!|m%@P_H81oWfsy+jVs=n~)Ot9`vNd(_Fx%vC^hC&iNfzT)xB^cHLLCqAyx zCrQ?So^%-l2-WOxrcC;mTDY^LD^rA(!1&Ns4MWxbqgW=&^JPpR0k;k0yH?#3i=Zs- ze4Y>d97!AW+6!}od>kMikm+$m3&gEr&xk*{ zNSA$*^PqScI>SjMP@Z-qx45+7u<2Qu3VoYU$xqUf&Ung8YeLFjqDdph`D#jMqcXE- zTy)d@o%!{TDxE!jTl0!?5kO|q+qQZ+gl)(bOJzbcly>g_CE@)Ov=6^FS>E|m_RhBr z5qdCt&o`rdOMzvPdlp9fSHCjgAK-_SPs0Sh$=J;*vU`kTp40cs+06oBpPg!Nc>49_ zho4(7Ucg}VW7h|OL{L}} zob+eAST%*TdymUPWhP=5W#iJrr4trE0+3l5OT&uxcV`C~Nc?M)UsLq+V=ZE;#7k(& zgw~F*#SvMh<5X@UzW(3oL2XG9n0&0M5*oO3bIilevu3t=*33(%x=3?}zQ@Z}-vNzB zRYCXFDe^ucM#ShfIufKiyZebZNsh33I=)y_L<0nlwb_oqBV^glnEdu57jsX5bA513 zz2)iVaEfg@Y+m15=d%@qxKY)4vjzcPgy4vWI2D#8 z9J$((;zs$aYFVXz&h|NS1Un6;V`v)F{=6fu0tI;$@3n9PnigZ?Y#|fR3TwSm#5?cJ zNJRQ(9fn-b0wXkgE)xjSH8LQ4J{)hv_?ypS6tHGc{yi;wJEM_Y`p%$}PYeW}YgP^E zT9(l*!JEAOF`9t^F(JDX4Xrr`ZOvA2bq@`TJ?==b-PfK1%(H6yhz!bGtln$D^@&RfR4stktX zHoUsOF zatO=b{#>sX~n5e;jko@gT6KK66HeIH0f#h#-%yBUZTLCnp==>9$-@8Wq51^>s4oQBUG=s1!Gv38tN=3Qv4a1KOxT zNdC1{+c1E-mnv_Qt8G9gDnwkK)Cb~(*0>FIP~K6V;m$lsF9rhU#e@Nix?{4X{HHA& zbPNa_j(5RE)-zCgQ~uyz`3ps~!@^a}hBcKZ&V0UoU(&<5Rsx$^wPu zGG5WCQv06w{F2~)M=!!mKq`xQi?TZ?PdW^U#te%p;`+XQg`+y z;a>?o0NKJ;Z%gJc7ONJ0%8Al>c`$&R2mXaG}Mn1i;*QsT!i{kS%? zrW0}P$jb-%jU+-heE=%E_2NWN>O7i*4EG5LBlImK&U!M94WQZ%51axzp9p#zlV2gx z;$a5&$#aP^KG!)vLuOzGVmi&8c7DX^WL=ifxF>?rNQ?T`{8%Fgrs!ISp1^u7jx=G}oC}%kTbHc&_tSCJXFYfo1MOuAKkGJTn98PN1)4@ausD z!?Eq3vRer-ZnK?b+j^o)(!+`K49XXwYmojJsfZK~f{{Fu*LS(Mkf20npP&7dw||rP zgx_Lop~S7W>RgM*@cI12x-(HlPRkR+D(uqS>pOi zNeT3?JWV-=??1W9eVKu*_KzYdP$YP8q

cpa|5H;%$bm);OaKPk9o^Q2_#PCMV~@ zkX+6>m3UA<;IUQZcz~u>5l|KX6@o-5xZwG{3ODrAH=CxT(?OB6`*Eg$JZ|Y+f6WyT zZT$TB62}^N#B_TvZp3`KzjdA#z31f)!k^H%3v>!y(4@?qhIaE2n>16+;XbP~l4%*P zKYgH+d0Qn<3S48YL&R1eLKH=Uka|!ULNaNhjs*&a0kEqN^Pmh`ox^94gj=ZhPckih z->HawV{a$j?a&5XBTcAw&O>sO)m&4v7Oe)FaK};ca6nI|WX}fl(-%mqgm6EplQYSl z10GFruxza$VPaY8=IU6o1N6m|04^8%WboGa*4KJFQ`|rTe+G3ALaJ-316k3r+@XtO zUi%0{4+snpq5mYU4-i1oQVveXdoD(qMw0bZ4@TvHkP10SD8`@mKXq}2B49hs+xODx zD1ExS-D-jOj#yDme!|F`ktVAfn@R9%>GO&O1%+vh&&of&cuez@7{O_-3XjQ2E*Jia z4X1LnnGmy&FiXo=blXg>4Ag>P8=Jea`zcb_~cfzn}=J*LrZ;)FR3vQfkMmUWblox^rd&fS2DRPRS!2B z!s>;&GhZ$^KA+4ohFx>dJ^ni`(4?MckfJVaF>dDO$lv)1C03p^h>Qa^(3$z%Xnb&6 zbeWSGtD#$L<?G-W_NFn@?gWt zAOsl3FnwuBNzn|HL6`N!O5{!L_oLqCRvXok;Q>;(ZL?9vA`d+-l0LPD4U`GqzDK}flV zEVJWb%emPo1pJ>-n;IPU>$?#O?b{mhY*2z$bum4(mL^un<9<$df?hd%bK31hRx+%A zo~&6kejvyxWn)a)dAe{Tl$lhCZqUbzK#<#7}&QlWa*Q;#MygtysjsZe{&F-1V(V zpgV9ME4S${mV&uklqRW#%x~JdMKXWz*5eZUS!2b05<6%SH$vc|GM%?%oQ6s~zl{k7 zP9Xbs0T@yfVD-iDeD-2bm64f;#30%G{+Z9y9N1}sh^86rUd;FNA|H%WpT@A@QcAt< z4U%f({o0t@os0}`Qg?gCr-JKJAtw)D%V)#8&*q7t5?LYTfs7R)ir=hS9(S>yDlL#77GV6A zqp^M|UyZihv^pU)SU~V8LJen`|IugJ%+Ni!DgaM!6=Mzc@Lz*jG~WR=mRb27S#(SI z%U59y*U6rWitWcj#oy;mDjuR$VRgzVZP|DQxC#dJq{+xQ7e9BpZ8DdV+>%C~JJI!7 zX^fcmcY(A7_Cz%f6AUfdTcwon0v+#H>v6Z1=u+!{#(+Er8Vok`!gzUXe7g^c22R&D zWNLpU+XxNzSNiz^z<0zob~$N01f&BZYn6ZwX!w_)%mI2@gxWbfv;Cs-MlF3}Q$=1G z{P==Nmh8l&_PyUbAcW~yCAiV*Azwsb%mLOo>33wX5Pvrwk4X_xevYC(4)u=BSPti0 zohV>6nA7!C#YFVNu~0;qf$gKX7akr*LC_A@tt#a;(0h>v+PO%pFCe(m{~^OF*`Nv= z5_$2{v!P}EBV-7>3yvg+ARC1`*K%Y^e)-qA=Vf>UZh+MO54{$LgFa8l^B3lzw7FV1 z#oq3_0brK2lNpuIPPlvUumtjzgE9F_w6IOwyvJLMK1SU~=SM|p6TAx!I_&x^g))a9 zguK+Z%c?4`%9evYL8f=u=$mv(0p#+l9pe|Hr_A7TqK()AVN|y_5=seWNl3DwM5K3f zXcs(!4)VbgZ9#{O_x&Y@-Sg$0V0{nC*{`ptp(_K*uM9a=Ffw_w6@|^UQf*~ldLmm@ zSm6wiL0-Zwe?KXb7V_Cm6<8?!8}=bS^0lrLd>Oc=y!;gVR5Y<_+h268Kw2zgw{M@) z4VU)(fsi1327hUal0;QOl!aqtcSP_vlrmN68{FtV{8n9VHe@r(1^zRwm+; zmKL!FZ{7-=P<0U*lLsdT8tCrgsSwIGXoXhD$q|U5&VH-WOV}m{DGJN8I-ZxESx{6( zFyP7vWyB%9e?EPzGkB!|)d4+xvd^Ma7t^EPQUR>hJzV}pDzsPa|E<}mgaG(;1lLQtBKsempB_EUC7`q)5#2E(G|JbG$P$^vS znkN|I04Ls}1}jPa$>Zgg6kDH>#;stZ7*JIRtbDeQ@3=ES$w_`;E8nlkdXS5ul&6)* z63tn(A;Lm!JHJ&nlX858^jM1V$2jWU3ZhU`ls*e&=0df3!JRbpI-kM?@Dn6_0Uq~MlnNxFrY0l!P7--P0@-M zEeCnWtWu!}*OEPBGXPSh&KYU+iV_Y!WY@QUuIL6EtGJZS(o>O$4}v_WrQg^SK*%^e z<%Lmcw~sva`}C4pJyQ*RB=_YR!jae6MT^ z)ovvw4QqMkox&Zo*EEp?(4A-}>~TW^DutL+MrMdTgS%NTaZi6(*q%*uFQEcfad^b% zuC#K;TSv}yfUVUVl{2`&R#jC9YM8|WTn-I{1-y#hSb0vPF#&fssx6izFJmg|cqGZ9 zBKS>`51NbKFyFMkV9W{nPR1p1miL?PF%ye;us^vLJOAj#rag`BucG{)`EDB*6Kk`A zwA)3zdII+XpF0WJ)s%#K*fB?jL>`6qX>&ddJVeUajl2*Ux4o7E|9bYMYO_9-e-G!o z6!=jcs-uUPz;5ftn@S7Cl;trQ!U$wz*89+w{C~-_MZOikAo4!)gR1g&E6x}H9KLfxIxsBSRtvyJuMyowta^^bzkKYfsDBJYb7MNo?1KuF2yekYhPKT;18n4 zxBh@X8Or!rp-ArL=@d8S4+C}-aikT^#H<4<8T!n7AoJ@M3^w&lFtC4eF?z4>J&Ia& zxu|uB>Z(uAE(9paB*A?ZepoOV&H~SFdp|>@eLI;Van^cxXZPOaJ$ob8D1pt?lA?b1=w)A`8rfQ3R zpo5cIoFsWq!x)~hx*$|vHGil6^r1VkH&xxr5UZOwAnGV~uN~l*idLayQ1EC1gqwyH zj) zvo~6@zbY7w-8-pl$KjpRh&i59dQ;HUkuSjFV8ao=+*igDxF@2ZGqb_OI;9Gs?yWbxi! zEiS5V#eI+ES6e~X*FR}UDLFSalosn)Bj?VvXy6(UejH{MImPQ3zhwgcWOy&r&Lgc+ zmo;0pkk^%ops~F3)sIO|hmDb`4;9U1Kvu^>V%Nl z4?v5p1@Yan4y}`7D&=ZJ8~-mHZ~D`KP_t}*H)al&}d=}Uhn&{)FMTI85?;jNhUQyMHO-=05T zDzh!wg)XEeiP*-vxLAlLfx!+$b0IhU6u}eqBPB^dQ{qsst81NzbBi0ALs9Ixkw+)Z z)Zt31+WtUVf=fgxl^^BP45Ph_F8%wR$ z!U1iaGY)TNWfJ8z7n=BzJPO`U5g>yL1qizr!U&}0n=Wt7T;M8s%O9l{F(Koh#Ia!G z^=L2PviKOxZW5*KBSqVYSsXKW5qv}6_oll2_={?eB8oo;hQ3iXsVPYKJGPhT`^6~3Xdac_mAV0P}+%*Z9RqjaCrnX{a+~Dt>qI=*jWyRG7PS)#D9Q88M_{636x9wGG%d?5H|7n z=iM8DWD11%t&Fq#zY%3-r#<@ItBA)gukcKUlp?Vhqr*s)v;|~+&ZPe;9^;4g+K0`u zqV1aDx%7Lo?zOXW-Lrvnl%^K`P@4B5NfdG7)UsZmK7{0C{CmRAth@YnWLvW;_bbrw zYVp@nWPsp&Z=^tSg&8kqS<^&w&M!4RBf(F#-2}oi&Vyvi8cWJq?5wATw`#}sjJJ}` z#0Nhg>mk1ql4oTP*mFJaoI%)Nb-XgjjDVQe0`p2P1@=TI_Cp zyUJ(N4s4A39d!qyiA0{c6FR{kzZ@b0dSFipl00kS%WYqhLi1a8^Mh(AiqmJ|juuR; z;3LxgNQjKM^@`1duZ1vBQ1dSZVbN>n_NVZI{cX&O1Zi!lLq*oN+Fk@zgO7`_gXSkw z@@aB|8b`W9n(ml&6SO;5wxA42vCQZzKqwKuq{x%A`pbZ+bqWf z#Y3{DF?`zefkHhjhdbV=&qG)5=*2~H+stPtQ5`gn5<WK0 zZzNF2_In0{LvAV;MF?3RBD-#c1I3a-@>G~yeAaNSGdRz!T8_`hJ(vol@SVH$^F+K9 z84|1yATQufhn`dA?r!9H^eb{0yikUavcocYM|SBVPlKIT+eUOD`C;nx zQV?d&$1VlCCX;2vT`SEEK_Gei$UB*sb>03tzv75TAh)~=#a;0g9&Ml6y`mrm4|ZA! zBNS{}{I}U|W}*_bU)6|;uHCnP86NQ)&01UDw^O3$N+3&rUtAYydfJ^omK?NRMx zk#8GP6JROFTx$vMGy7~CDUen-DxkmT9A_m>YH6R3U%XveC!=BM!uc2IBGegDP8X|^T_Wnnh=!ftvJm}-|&g96?OBf;~G(F^9XfFhFWvCOUAL_pVi><6~ z6+AnuI2O`?V%`X^JE5PqVs7Atpo?;j=`QXk)u#YC^77SQWX7FHJ#Saxr|Nl-i00KPHZlLB$a5n0Xi zc`+C1ZQ7qPg^AsGNm#r*)a0TdU-}4__5!LcCGcv zj)f#F{VZB9WTb2Nl66{tQ?A`;1yu2sY3iaiqOg1aWe|bnRFZy)GyDbbL`1p)*P17s7Tswz4`ForTkn6{=zQ<&Hu}4(c7DI9e2hg z%pUAv#uAB*hWfnQiG6!~eHH974R4>gDlC4iuXr*&NTo`=8W;zs=A2lW|MT` z+k9+k&Wdi6ot?yl@|ZvTt}y_Hbgd7VxyMmpWak^>4OHWVSbh}4A~$w2e%4~wBPHhi z9Q)O6<`U#OLqHBbTEf@4_~;n{IYvs}=y;I)v7DvuAif^mec`Pzl;vNH@T8kk?Skfm z?Mt5#u(F*SD*OOP)ELJ51A6WAOhal~Tv4<{kfS(WE!=8S9gB2|jU7aodVXbYnUYIW=OMved@c{)||zuZ47{Lb07Z_$kP1I1-^y{tI$2 z;}=vGDsN8k;L)pR39Aef=?BfhCP1G|=(vl-DQ!XQC?-u=d=rCQ)ZhV}wBkm+G!cF6 zVI}M|4G7dYQg^7k>5PIw9VqlXH2%P}{K4VxM%J}uvOqF?nDvarTx{}tL&su2z5yL~ zfiUh5zPj2(QZny9CGqmHzmpOrU`@}?cQHBrcEhf%#%`rfVyUz`3&8L=W?7)Qsvc69~m)`kxRm_f6gt_5~ zP5w8A%Tto3dC_F1Bi1kOLiUNrv{kcx@ps{5zBto6gowXrG}GN`K&|13g|Ip z=1*;wo;{wV4P(_EzeBB%71$-j)!Pg>;h=!QMO_}%+GC`8{LIGvvj)@zxU6Tf(MY)@ z+4n5t&qK6?%n$NqZcJD{p=k56`szxRG_thJm2RhJBcF7A*tLppkQLGz{G1NzMf+VY z1CeI-D$^Q#n{HJBpK;hwm}y-lQUcbyAutki1Sgb+&Q=5~lGla;U$PNCSHdkxj9!R% zoTB*93a}mmM^j_p%_uMh84o8Q)Z%j;n01|gdF*XCfWTm6OwLi?@Ca->U#>qz(^t7F z{cpM*ZS{t$&Gbp*arf!b4S3_>1teSTc<|U;LEj`Hv@={5{J9y6lHron?@7DvXnia9 z69N!cG4o0DHW)7%Q?DvgD5?OsS}pd2uckJMlmoJk}+nD7Ems;7t6D}?c;NqtL zM#PgD>g9LEBd3frC$c;&SakVQVJ#@%MJm3wkJ{QJL5YV7t|uH~JBGtHnk=kTGU%Jc zdS5e4ZtEvXQYgyAjg?mGDEnJoE7`A?0sBeK9O}p?-IgJ~(m=9Rs6Njcgaz|?N`!VV zQGO9WF@wa~HvoDK`f*Y=(FgnUcwVru4q~dp7r*LFtqtClBvRCif0c2bY6DO?3;XjG zJ=75c*c-#O3}?o z)1~_QwvP%`_h%E^I%g*z?KS=+gv7_^47gUKWmF@5}}_A_nO|!&;dAvjL*B>pkHKQ@sl)U$61LAW< z4aueI&t{Di%{rm@HpV#sXci@rqPjR)5eSZa|MJX6@u^&49WP|?b14{j{d|sX#YyTU zT5O(Mfa9-J@{PnZul453dEi$}1|sHr-3GI)iB@Y0Ec~I%jJ%KclS2+h!a{Wms!x8q zjr-l2u<+k8$|b}xbFAFeUVq?CN4EFPW&ft=Zux~@8gJqrBYmnhn6~6l7468K6Sxgm zZ&X(gHZj+C-${=Ujz1#i`t4(f-1{y)*ZGFUqd>{(T<01tp?^CjGBB{Kr=EgLgx7Zw zl|+*%Ek6Hi>H*;l&?0~P3Hmg(ZBkW=R8;LyUy*inaG zXrcw36TC1W>V9e&+LR;UpG6X(E|$z=4)%~05)C=r0V3(tB4Zqt3MmN(on7Aeowt;L zTdn1mFHV#`@%M}Q?C2w=O8#*Lrd%pyqQ`oov-L#3*aW!}115DfrB{6tOU_4=vrEl> zAAkZ`%E26z>B=sw>t9Y+hVqXFC{Chq-C=saUNed<0l9HFEI2{jy5CHy)!AD;HI@sp zU>?=g85Eo9$bpW9Xv)AKAC)6>1+ti>XwYRRE-^X5kmLe+7t?KyyjMV>nsg*V7}5<- zP1Mr2zMYq)+}6EBra)zL<=52J7N-X5`w>nZe`<(;0<{>nu(CU$XQCQQ1aJnxfpC*O ztN?C3=wu4-geK4|k)!Z3X}`w@vWGrZ{tE~9Bqg5}eISQbnXPDu@zZo=3a#@NSEXz#~{k;5Z@x#@{BG7 zg67X`KR(iuLpCUxKL}L&zKSaO26fuuK9+l@J4j#u)$~XZzWc&%n|6V6P;3ICN)2B4 zxqu$`jBp@G-L4d!XRzL>yCQ6bdHuv-+*ph3+Xi0HHbODN1>Fe_fE0O4Nj&8ENddD9 zT!Z2LfP+nBv|y_4fEa+9JPJw`z)0<)0R<~2Zy$}gh-vn`Xm!X0ZT}Gd=C5D#&iOXX zthgQM6!e*vacfOY#Yy0F{VW=?7w(%IJ`qR6mDYY7$RN6a9CR9V02vZ%GDJ|xx&N_D z+r$t#8erX*sGFhknW7j?vMb8VfUe~f53ok#)LXY8Of<_tb&5#W>Z|K(dwSl{N(_S@ zN$T?ZT4jSjlrlyYs0S2l0Rv3leq!OVjyge0M{QsHQn$2QIQgxIN!Dqe^0Q*b`-ghD z62)BIdy3Ag!9K>st4Y7c+iL&A+35XrU1hlRn8|)SJg71xE~J>cATU|Npv%cZlygO{ z@;%?L(@QfR2nd%Jt}uL-Xz=n6ff?^0E!80BKzqo#gGllzY%M^QJc7A#=6Jhcii>0t z-66f9&f!CJeS;bkFtPw<`qyTcVlXrog{+3v5Z}37S2bjUEV@8@ici+=ORzQ`aDV$O z#!59!>l5HcsN-b~ILn!Biw8(Svr%KGLH`fhOO^4`gnB!mi!`KS*l7;Ix0s}mT`_Vg zFs%lf<2T(*RXH_WNL79}4iR^gX?=NVGCW+$-E=7+`vI(OBm{#mzJa%fzKjU(*itcF zKlpiDZ}UD^OM1lC5(E%Acln1DaTtb(uU;5*a&@0Dm0=TS1Guk5WUVhtW@|MeE?`^w zb)V?UZ+)4nQhY{|V8u8%C23W=i7P<9)QB5vUibnSc>S#<^Ij(mU%TV_7=2EVy^u(J z&Yy?YSREP6DoL)ag7wlrj>qmtF2EkfjGp1u%4lmX>tw1z(8>q5yR2IzQ10*a=u;6^By@_Tqc1u% zl6)Y{xRPU8gP3UZG0tpfK**jhWnFgckVzZ)Hwc7R`$g+-jyH9GAR`3}3N$2~5jm}= zi&147rgIJ_?~3B#iW(K#FgeRtqpW@N_49qN;BPS3BMw3_;S^saD0KfzIbzWa0oe!B>8`3UTays=oog`l{ zEkEGs-n6#J{efdF?Bo-x+8-yXR-J8o^kPJuE!o*lX-r7G#1!AS4 zno5OlR8u+8sBsg(^K&Ek>U7n4X`s)lhojQK!XhdNB>t=Yb3N5+LUh_XEOWKk#P(TE z);n*Nr4!r(1xHVv2~wRHAxXjPEuTXy0alCG*i%-&%^8KgzBB_EB}rUdDzmSAV9Q!M zhJ5X4i`Eby^?+S6?9D6GxcTI&z}{?Yh6ph0bph@-tnaDQKkzX!tIJ^Ce(QMCdBZewZFgKy$NOa1`7|7_s^TId7g%9tE8~oD(8P5k=Ar- zK4sYJG{(@Dv0&h!{j0t})Y>JVG_8WFRUF%*iz{XI3U4mxTcnUKye8vGmh}tLdh>K7 zz%pf%S8l$ndS&V)T?=rBg$bHkG!Z!kZ!PJ7Rf=Z5L9cey`qYF&5h!lotf@WkoGlGK zV_(Y{0EK^Dnp=J_ltzMn$pf3v3~*=cj&y#s5u`(k4XW zyi-F3X9s1YZqQcd-%#jI(Qo5_L4R=on&17Kn99!@w(~upM9Poy`WN`7+H^sDv?A=} z3}1claI7$O`dMzmGp&13nbfwA)6{lL3Ym{=ejuXouW5UeeR{ zoPpuPqo*lr;E0I{`?sv@1V?6?tZykBu(B+RlI0QnC!G3v`Ql1kyFZ1;pwKC-FeA-S z&JUErQBF{-Q4YjVUr5-u6q*mmRoU-s#C2&|eZX#ibKR+)OOVv;J|i5;cH{(uj(Wx7y7Ae)1f#JWDlRCM=(t)J&fd*F0@d|PTY-Yp|ARjEl_ z45Lj?@|tIUrD}ED*}w$3m8_;}<#TNvzq+12cViwI6P)S~&oei0ISu{nwSMt^{KSfx zm5LMpS};XEsQ!HlFlBpVLz&LpTDo7Qo!yQBXm6KO6pKA<>thplJ)n4%B=Be*o~l2U z=*hTDAOqkRIcz}e_dPbx@3IX@!qBH?@i{caLZT~E%k4CM`?3R+1S$6{MTPX7gy68a zw|lWPl8Un4{geJG;@|QLD|NYjHXQv#q|c48YJX*si}R>vFp@p87xT#gadKOQ+=)M5;*CN z^Bu6Cmw4JXaqQ3)3fkZKLcaXSb8aWAK(pgOKbGt2!*s zqk8BJOq?S8xSs!KI16gpdGHgvVfV1FvrkpiWWmd>i_Bc|_^9W#=;O0M$8SIs9Be^D z_Z-%58IZ1ZNdewtX1I`}Zaf!>p`#=aB1tx2e?E9fZktM<&Gf6aa?;%5zWhslZOBp? z9hdK^_s|m96=rzYa^9ufgLdl_2$n;wU6d4^S&_oC6LdYjfUD;WTvP-P+>@&LbvCKN zbYmz>6yv5>rzF$4fkY>Gc5=sFV?I7)R=%$@Yclsq5ed?A5QTth7MqAtn4dKzO3sPn z+EpZ-&T4i5qp}=rXf<#>JAD3^M4~M)s0XK*^S{eup4LA7?5HeJ%1uD!oOgt+HEqL! zUM0-%yBupS?%0WnoSzi*=b+>~S>bsq8Jd1-dL^1}?YP!+0&EuWpk4(otw*vcT0uOt z#EQAk#1;$9C{1M02E=RVb?#?O>TPLm31a6s(jKb-*GIj5`G{?euj?eiWsnR1Ae_Hy!6zGV;K!>YaY13YY*->L#s6`2xK z#4}y1z3&M)Z$AU~b5-lRL!l0aodKf^3`0PAQ&Y`hOOR-s@{Qd{NSCC31F3t5_cM%b z`Z_!Mp8z50ps^Gm0$`*9*U|kkX+1(`e9@lUiGKfl;};QNkCgBpJNw@e#(hbWtoB8q zX-=V5EMYpr7Tz%aBrtA+VRe$}=CAiLrS@Au%1^JAja;Q%JQ84kex%zgi^tn-BhzIA z4o9KO==`JLEXZ0Oif+~iUf@X-*wBJ-f+69RUtWr_2mkGQ-GqS(h(fqj5Lr<<#S_O} z%+CpIT3nbfumBPVtw*R*;;$0Z3zE`)-igr?S`X-1dzyIOj042z-85Z18D6T7>zYr+ zFuZv=_zO5XZt#~nnth{Z5B8{{>4bw<1G{Jn^u@mKYup#dmI~(5eBzF#w;=2bM@~jl;3K2Ft(Lx}`VYKlv4LPPJJ|2}N zAZ|`brXFi;MU#YYZTx!7mMr4d8<77BkP4aSwjlCT) zw`yy2$F@!vgf9^tq~`E+TOr!HZGg4>cmmfR%w)=bK5(u+u3uC%{VXS5Q_GS14MEj2 zeyq8XW6I7eW|{BV^5m6Lr3$+e@zplaH*S=T&bVE8d7qg^5!>S79CP?HL-uP#^M(St z{Le^k%__1}z6yT^!e@;*wUjfz55SEuv2&XEGvb5W>~J&Qe~cJ0BK#p_IHp{J{BA81 z^TkbfnGQm?c5?wI+x!UGXYub!0A-Eqt;G64?|LlNXum}WE{Xqg-VXP3Ja#z`Sy~vl zi52=HA)x{`8gNDe17z33|qwN9M;X)hHP(ukqMT}@p0nVAHD(=MOWCX-I6H;=Fkk8I*lrM0IzT3MiocUyRUPPgBf}XYDfzPxNWO)7B$idW zSUBAhr_H4;Ps0RZC@Ex7avuCR`^!xeqq_Y4{=X*c0vxd9wPo6;n+`Mej)J4gan^%I zx9yMW&4kz|maWc|xyt@Q$mdt>EKi@(l_>Y_7LQ@RP;F6t)TGXYOFyCDtb3W-xVyIi zkV(%;Fc}hrXlBSO5O2954TRY#gBK~nT)D=M@_+qu2|GFkZxFVs4?H7G`TNrU+z-146@z!_br@5Ic^|pFlF~$CX)OGS@BriThLe zCT3NFjaD|s56XQgnxdvQhwZgL`?7kM61^$o$FYqvEEBl)3?Hj*zr~d~wQ8|-Y)Jwf z8Ew_pV_E7OU`fkbzD-_fKHZR9DtJB{@^5oJw%1q(b_>6pvfqjGY(bRIlMyTg_C!=hDUY@`5FsI#5xgljj70;=^`6g(wd<(8l&053Mlv)1cE zL^o(3$rP(k7?Sxa>t;h^Zw+fW;evTJEGy81NnHFF zw^ip@>N^Ihf?LhI!LISG%K4)a%IgR8IcCgW4&uezJw=#O$PC7P%cc}n0JKG8`!qVP z2&8KeW~9R^YdLUusotjp&#Cqr+H9u(d(A!J(szmmQ_(H^#wY{Dp<}pL@F1xN;(KQ1 zqS+9Wx+^oT#$hv!Z~$43qTKNLP9HWC&Dvy1jx-dOoI8urkerfsI1UhD>iQ&=iblh8 z!P1|1PtkO2$156NYYzmMr3Xpd!~^q%<`3*)i}w1VCm9||P9_{N?KBasjOTr;oJoVv z=_TVx^^bcj<&YV1$L;Jmp>8lKv8vZxYzy1Vt?ln}7 z9IC6o;HCh7YBV>3QRW2R$$0ZR>y&=NXQq+n?Lbop|jFZes!F!q@2O>y7#gx zfLso<9j@qmcgDp2b9n(E^;)Da-3V)*wy-zxmnJMU&aVNat(JRAOC{x3*WNCzEOdal z*!KU$+b<@#_HOijbvj%DO4n{Ole`VD$j)~GG}*GE;puoi@dq@of2j-;VA4p*d{Tt` znmTMXJuu1?YgUkmhWI#hG}0fCU=x5o2%Yk9gh9R_o{ z48~&4OapeO^(`c!q2%ZoNPu#8F_(nBm0?BT`n*!2eLtg1dqy2d` zlC8YIhes{veTrGx58f&DEsQhTy70}m6M)Brn!Y&riPgY=Y-ui(%vWP${izRT@Xoi6 zR{3{(fVe#}iQRz_o3EI9WRS;8gf+q+kJf#2jkA8E3Lpx1`DxB+K7rFSI}Wxmi-Ej@ zrY|7QNqsv!{IH>wt=0)NnyDiyEpo9Cpa!JK;R^7I)VN{$k>VvdFeBJ;!yMkR<>~B5 zi6m|)@`%xVBMGU>N*i~0c7~>>5?h)oPK!>1FUGe4ysXtie~O`d(Dh8Sbm~+Mh%a>~*K!G-V5$njif9UB9v157;uW zsN1VYEfcPjLSr(AJnQ-?u`Qeo)FGivlJTzvQMTOvT%W2_gCRc!3L=Rk;43Jz;BqvT zu@_zW&iHddvxE5BbgKmh-vS7no^LCLJ8Iepr`2`IS}v;1Qt(g+6k+rYK^r9ch(fZ^ zlC6L27lB@@lJDldmt|s2l(PK>{2vlxh@TU6v?M4y9xzT#ZrXbo*u*(GSrtrvW3Nd@ zi>>&<=w2gcW>3)~xqSLypaEGT?9T7Yqh)abbO%;;rRVHp{EX%(mS1d2Kqzm%Bdz*h zgRTyzvy=gj$BuTk<8M)6S-QCofv0e&G~V;jyy$Npwo%WAtiKe;!#$Q`OmYN}nyg_B zT+g$$$VAX>IQwcayp!T1W(4@GgkNP(){dG8Oah{jZl&(5&9qdq*<+Sg-SZE5!iyP; zJVQ=J=r=O9Pd|QH=H!VdtJ;2${B1{Lwf6c~(KgAzLLAYgX3tuuL3KL#gP(HFHov|t z!%0xffB6rgRxXnj9sAMpHJ}HM_Kw)-eB@I)Uj+Svt3kfb!jh)ucM5dixy-i`1Jd87 z-+>{YIrlL%Ewv|srrMM3&UN?=i1)}EXK zvTj_ZLG1Blm+HhGLk&&7=#fm89z z6K?6mgso|%%1V>F^QSbrVYJL?Wcv$~n1EX3&S&wGQCiyfw9^v?Z}FH6bZOb;oLxI* z;Z^k#^fl&c?eFYU*3@3usvN%@-{8HO{{09g>M1e%;<+FafXG>Sh4;CR52DMhNb*lm z1X%tdH|N&N>`V1q4#<0TrzfZ%BW3SLSr-A03`X}P&*_Plz_yC!&!$tBz2J+xJKT6O z<9clvoe!t)c zu%Fku3XCq0#cbPa=mNMTKBuN;ZC8UOg2IiqyA>r4<48>d40xUveup-KpIo#+tr6`WjPX2IVV^N)Kb3!9n#$wp3H4dB4R3Vc28Q=PjbVv2F?Qdwt*{{@@Mi zriVoCDL>nFOLwC7>nbbyJUvtlNUH%kuCCV0wy|Yf^bU9QTJ|l^`LOZ9ise}mVS}|O z7I8GF%l~A!H)<%Uw1ZnP4~wgun>rvNHrhM&@z`1Z)mH>$H*w-$#hn*s01re`h|atK z(Z!2Bz5oVokZI4Iq*<;wo_b-(v<}v0ILITVR~If0B?04?i4MnPkG_7Y;Re`9Id}Ck ztYZfgJbAy`GeP9zmx_4DZ*!J|JC_Q-V*r9I66>oMbd zJV+iK5Tz$Ga=&9GI2`aQF|cAU(%GgV1g3uYo9Oo8i__ib2umJNE*kbnqfvMx(5YC) z{wf@4;_UvumEoQ6yi5w6)oATicmuEYB3lPx=`MsQqOL2=Q#+f$?K63vvQ#qZwQ*Mh z)?YjEB{Ao_eca1iMSl_++5~UbC0kn#M4bXJ&fDZWO$JOBkL!NZ;C%=$3Zbi}P0KWV zCe!$!OW0vI-Qmp=hZy6832k~aBmZ$hGq5DG5)3ql^K063?A}_^?{)6}>^Z_uby7GO zOtl8J{rY0xK!(_sIij*j-gIGq52a&`RMy=}R*SQ8q0cw^Ru8h4V`YbtZu%4OY{1-f z2k?dIa&v^uj}+h2{1L@ANDB~-2-QF*_HdIy`z(er#6er$tBrf390BY8Kq{q6t}_T3vM`D2Rs zoKBYwoj+k^4z)?th8dUC!CKa8?y4g$ol_K-k2bwnS|# zsk#~SD}wRrgLnEw7?!z9b=g8vb8#keC<}M$ez8pU=|-}BfEAowX>O!M6`C}^empHk!y@)n3I(K_};1Fg|thEO$-?@*7@1Xo-DF$U5# zq!!C_F)^C3pfY$!=>)v$I5wL&d#F#ZYORznqSjMQ`MJGO_M>u4#Su*}I3HL&CbET3j8UlQqe zdf6fWkO7>m(?9a_1<r`y~5^TG*giU2XDdN`&R-{2F2u;_~FT zo#dafBk18#Nh>lbWGnF5qLgSEI*sqq6{7V!E@v$w5L&NekH-D%ObJyN@kJJW%DsAc zBM)F!STGzEt8qQLh&9AbM9GepcEXqVY}`Cm3(It5a(Nc<)cyxt89D_`8X_MvwD@)* ze6{mZ4IZ;9ogGYUbwgKGVKkk(!`uzKWUE(NSXL}o=C88f>OY?R;gm;ra|yb)2i*$& z(szH;#=6v?OZ)X}?QH+v1TeO)OhQRT4=raeRE`zKo(IP&;~Abk8Qkx_cJDZhs04Pn z@~_FQ+pj$~J0j56c*F!4O$Ri%#u%k+ihy`nVIWbF;GHoLT;U8H2`O-(xsg4Wx9zx7c`I))C%;jI^mh7<4)50nf5^62ZH(~4+w!(od3X+ zkrv;D7BK?9AU`}X5hu=Y2$QHH4%{(&_b^=^3U>&wiLstIE9ZU>g$*F|yf`efNck^m zsxAt&MnKWM1Yzb!`h?!)*8Ga%LUJevZNB1jw0MLl0K zT;1mb;$XK-M$K=GK0saUm9vSe_v^ti@YPJDrp7CEgWO{A?3?744&S8PL1DpDd;%lGyY{~44nB)OMF&Y#d5v8j}o)#Fm&jcuNhU=YE&2D&_ z%>h2`mY{ZYnA^C|qx+ymfV)v<*$hu^ z#dhiTyc#TKh;1uRF*XVPSiB_hcDbv30sAo0ka5`GX1X6=lde6ldHbek>kmLM-x*NC zWQ-umi=v!+4;aL7HMvQ(Q~X@AD$nqk7OtJf5GRsN0IV0#Bp4J!KIth&Rs-_JmkrMS zv4(f$l;7sOr~g@6b8~JN133TLW0l83QlDjNe5^A>NuDA9I&xm_c)+2KJBBCfl&o2> zv#pwfOn~cA1RD&rTXQ7l%mRl4q7ldiUNtr!-l+H!xCR}sYQwFL^9sSbH5FD84wPiwOAuKN15QAoWa8h2U&X`U=WDSv={D))@gM%OST?AtMgY{ zPgQ%uBYH-m)HcT1$y56+CC#HNh2s zz;`B;mu(jN5L6Tt3p5lIViX)ytGAZg?r&W^crD+$Tl4rjJ24hwpmG$T0DtoT_9qVB z1?_o3*?$sx0=%GU;56ricR^hWdRO!&H)yT#O-dwa=~vm?O`2i5_=)O&xPO-O$w3P=a5bg+_sX$?h6{*6U+> z)Nx#$Sb50jJK_p7dxGB=&Yq~+u&ilIo9HX^@1@(s3vKZ_JrRxG!cAMxFi+UPqCCip zN>J^3j|>#D#wVgxz$HO^$xy_2^rWM-f0UeH3oCiPqWM>Z&g+9yS8L7Nx6YFkhhGy8 zbSgLQaRZH4el%%4!Ji$8K_AlX0*iE-SfAbRZCE~f`D&e-f1xrTta^2A^cj!nWvkqY z{7BeSUgU)j`a()PX{SMcE}tH}z7Zb@Z|kf-D$4g; z$x5Q0k>v-(+|m5s=HKC(Y-&0%xunohP>BA|`Dfwk`v0fj|6X!ADdR57F9`Zh&@Txi zkK=RdDI;YKbU#1*QMy_AD4%U+2!6pNOEZ}pZUX>7UQm1%)wHhU7u zxLuw~Wa|+Xp7L1s$PJOWF75R>^EVp*FblAODDJphw}-{iG1a}gIStFeHj|e{=VQXB z5NK3--k+n=9+4Y^4yOZ0Je7z*L_WDvvJg~n|8dgE#8AA?PKb?>t`Mj%O;b1LX0q{K z!{f8#w`Nm%HMF$NPtU6-@$8{Dqd(V+cwgMOPnct##D@NSR&dqzKYI|ktm%93#tWwo zwe+Me%wairp4E^!R6lo}Pe)LQ#X5(@{GKNEnYqf-{sahS&FKl%l6X2{!>es(nMu)Z zJfA+kf4u+l`pfSx%O701P}eMR|91J=(v^2j0t#+MNN-V4iBZzyjq14Hy_4$)*T>TN zI}$T0^(EVDkEGwoYq~f)tNV`p`kNAs|JuJ@-O;{7YkJ)(fn8VQ#f~PeW_t1^YHpog zhh(npjaw<3Li3m_uYV3&!Jm5fA8(O`)RHfz-!EQevA@5!23TA|3R6ZVT?RyPTF7Uq zT>wnZ3s@N#gb}d^WkoyZ=ar=9mBfcs7Ni!(g3@<@H>v?!Lk*O_0+ss!E#O8mpaz&j z;)_yqiuLtCB)Z0XoPRZ#fHq$NDw9Idn8C)tP?4h#(OaHhl%15HpAE7bt2zI-FJZ|A zno|vQ06&U3tAI5I&>UnF&>eB>weL7ZrrtUYwDdT2ibJri@54B~b{gDaP1L`LehC^oR)t2Vo%T=-_7I;AW!b z?PTF<#NuUdM^*v_L01F@0kZ%9um6obFrjT?yUvCdNO~`b*O~Fn2KGlBpa02HvqQKC z=?;aF8M+=un{B4wTmB+fTrv&k!-_GJoqV^bKw&^brSfql?ZknZ^@6mpHZ}}qHDaZV ze_%_tpB6Sd6ru=>-2#rh(d6{jBuNwe@0878f<=yURsB?(I>)N({B8zcsb`}*`0NLu%Ij~OlLAwTYR`{EBK?Hl;R2VE$pn^G>|fT z;BXGVaaPC!!bo!rE<<1H(l5UrbI31o!YnRLWF&ibo^39_Qr`pT`$C)4vDpW9M8J`| zZoB_BfM`{(>XPhE_hg`b%j<*k=z(I$-Ji((WHycRkD$}8^b`7LeU=+Oiww@(8)FZo zyWuCTz}6QfF_Um)o6xp#3WRG3*nmMI*Q4V%F;({Fq}i76C8c;?Nb%J$4C_AL>kY8cjLA=Y=8~T*Xris22-GB+BglMV}4iwz$6oQXS zc?`0NbEiVW$jfcvQov3w@ek4loC|OVBQyU`OfayoFGw)8{|CbVYO_(^gTht`1YkrE z!cAN(>|9w{{=5JG$o}6L&i}WcUX`M(+Rug*aV7U2Ir6l)nS>^x=qWDOPOcRYB)@_B zH@=jLaI>412u+J16jC;@GvIw}eN!m@Y=r!AkE<#c151#y$+J2l^VQiMmVw44L&mvk zcL3dE@nP{XTUNoF&Z9Gtp|Yi-SaEclQfB@}st#?MMV9~`vy3PLM>soJe@Izx%j~%Z zd{IL4qB;WD%v*GpI-MK1obl@vSu~1Y>3l95d&JeuYPH61#E$&og+N==n%@R!R^TE) z;ca4W*K;S8+l~3*$E=b!qCvrh@yszTJ4{{l5UAhCbu*stJ-`d!UpaC;8WKxdu>~T# z|2If(kC!AuA;G|yKs1O7@{E@qtEZ!jt(l{v?SB*q&|Y`g=Rxyloe3nnXNg@HtPkTu zG-#Ru8|_<}q)7y4o@Gau*P>@|M#G|uf%wRWe$`-#xnQLWTp;(4*2E3Z#kNy8h(np4 z$U|4%svd*b)myVPC*4@HJ+Gnr2dE}a$UWI= z_A-O;oq=Sf5_)xMKLgkFf$b*hFz@m}D3vXEEfHbRTpC+Zs!Z%B;n_9=V`x4TbQGSy zsc4fS#|d!~S{Nkdq?v%Dr53X~W2}1$!O5SF%-E_^?Dv8PhF^Ks=q*{T>M|v4!+3(2 zOB?j+g1#kyNaAZzb9v5uY*>yu%l3dzE1jUmxaPTB`ske(I~SDGFS)B?ya5TZjr%iv z^IR`pZJHl0cU(Q>@ToHm&RNe*q+ZFw1b`pwgs>koh;Q@e0x$3($sc@}joRbN`P}z2 zx5X8(zYyEj^x+Z=3c6>!5Z=*zcfCwg)zel2FqAIpGJ6(i9k7sPN~3x_(14#MM$V5j z9dr_^vu8QFtzJQBei$$~J{wcw3#dbGldgXk9%t68KYE@oFrHJ$@Ol)vG}U?(1$d)_ zS!S3bmoTwr40+-(g-r#+$B_(jzaO8^a&D^^*<4m|tbHB$%rsa^m#;S@#XX?hGVxMu zKV1X_ezv~7zuP{^K0&(&x|_`2v2HFOZ?~~-9$!uiV~K4Pw+P6-(KReRkZ){epdC)F zaw4qVPFN>TQqA#FhDVw5&XL%aO%YmLlKG&#;K7EnKT<3|YNo7-L<5CMp8N%~0LEx3 z@*Kz-%qafX1B~%4Ui(kxJ6X;6+RR)fm*Sj>4_OX6p0TkHeKgCpKJ=e#v&D8>pRB`) zPC%S-Bu=p`Z7TAT<8J@md^>;zJEW z@-7q@7y%d@I0&!*i`V||sQte<4jiOjLAL*UUma=VKl|Cxq@Th+Lub1(E*fpCLhafOIh6(zLiQ5&{9a0+RtVw zL??cXPliTC^UCchK*cic{ zE9#Dt+=DZu>7`Va2|l8|L|Zj7ra86u9bZLm(SBXokJryW+dWuCMode|Ay)_dDQ4fo zG7PU8pc*XD8o5KOq$cmG7F3HL;T)h!CK9YfoA^j!`?0~ufz`tX=^m&MMcIB`YEGVY z-^XSHXW4lk*7N;lYAR4ZhgRw#nJA>y04pML$ua2kY35txo?~X5RkyB_3aKK0!MxDH zsM%QH|0gLl-1}C!#X*3nU!j2EfuiUCBn4M%3kx?_*8lln|BoH={B076WK#~GpdUri zHeT3}<5KWF!^musw5#5_5@iB+)U;x)H5QWW+@F{pyRYu5#587sHu@cAvL{?b}-cuP+~tfgd-AgD*#(ALFACH&AnO{Cnhlhcm_uXI1s9(?bFODVw{!f?x5WhWNj3=@Ne!Mk zt9HNNeqOXM7jAui?6+@sZQ;MXU-swLo_uARY=3{(~I)m@WypdmI!M-TzW}4}5USJ#=?1PrTX= z_`E-yXEm_`zMs`hdp!47?k?swCuW>K(`M73=@xE(+=vMG&}tqwyZ^Q(u}@bW`s2v8 zBtoD#|M2qG-Tn0f@`Go<*Awxl5g>4)J9ppc+h=WL)7R5&IcY#ZB5j_`!`@xHNq}D~ zU6+Zk(Zk`muILBQFPvq&`)xS$Jh1z@P_hq?{&KW9wDG-aPKhoe(7_$ zTs2T}Oz>oqi1+pOvcJ9g^uzlG=IeET^R*o{X-lfG`~B&5DR=P+SG(=1a+vV=>#Z0w zcU<@5`7Rdp&2NvcNV{qRU!5L4k88U>pX&=Bh<)4wKkny6o3=Z@{?(e)ZJp_@QjI%` z`Ul~^-wh5w*%0qN_})#En(#2U`B|0r{A~{Wx_y`*_AMQ(m-UPp59kcIdze%e_4~X} z#Pv!g`#5~!wK2lkrez#&=f=BOUuct?R3vxXL#+9{nSYPe4K&qqyrN#Jk{ZPLr&D4X zy{uF6JsMfI`57uP zdiEQotQ5`H3VQNyVP`3G2UXD42B)l)<>BLe#`%86`!7?_t!)xv?MxM?3F- zTh*YgcBhQ*^z-dbIA-*BptTu2W``5b4{FX1r;H!enjKC{Kd4ITr- zf_fgbwkW$hXPQtrUe(J^pK55}V$8R)vR@LIp4zK&FUVii`zItg-mv8Dv1C;ZGMv!| z85aKq8A{oL4CDVZq^JfNYOkGu3>#-bhBlOU9YGu6 zf38DzGb+K9r3Gh!zQ_AJ5tWvbOLI+W{rC`{8ZVmnE)ob zcnjtJawI7d{xl+Z**EMem>mB;a)3w~*q7K~E3h7^8Q}X??073qkZZ+cg0yLBKIKjF z+BT)kL%2O!+Op%!&Fx;yd7CLzQ`|#HM^oF9i=08FnqGpRQHYyGkKVd#oRRf$j%tJ^ z>H)$BCz63E9bz^uM^;93fYDBti>@X=&n}=qYGFRL@~0KE@)*(5eZ;kNWp#3M#R7q` z>|dE0$u}91QY8njuYNN%+jFj!NtO{Kru=%Lz`sKzl2ysIL8AMj6S)Chqpl}%qsn+Q zn3H_`V2gmon)t?vzsXCDJacACGWxA+a^qTrHo-sl-MQc!QM6NW^0{heedcBK4c73g z8T=wQr6tIy!sYA5`XS+Z57Ws2x8ft4hdMsb0-HhNa_RhZ;N+-%;BdY6L!hS+5i=-ArJXf|;b2_KU~2&udZd zDlCOP@<#4^!XDCqs&NLd=t)S4BdEf+iJ5>SYPh`o)OlF5kY?IAbZ~H<=8jE+R?fM&MHWp@Seo4-!^xN? zB`=^UXai?^*FU@x!XknK(u5xH55V1{{A&#n@OAOojI;U?#0_ahVSC_tmJQiGGH-1) zQoWPz0jB8Y=|Vmj*IUMm^GJd4&8q+!Sma2MN=8~DNqNN%{h9QpW;;B~l_wQ{0F4wC z%{5&rbFNPJTFzJF!6G_?(2wP>+`;k`9qFR(okR)Nmr}lEOXOm zDW)0m_{3v&NEReq^}utw%-Wk#7PJ45k>hTW8t7*isPYW2qn+LvGnFcEnAu!8j^~nh zc-voPm1Y}Cb=>O5TWK5fTMy{eyFbYIlN=#-g3)geJN>%ih&eDT?wxx)Q#pYXlVYX_ zVZ8bI>?a;|rnTksX3`fqoRt`SXYTEH!~JrB8BPV&MX;n10{$vvaJVgcNHLJtIdig0 zRY>~5(2UWL9x>K9!P6=@+iwL7+&wT6#GZf4bHS=kf+baO9uP9bBkxvg*d7oefsHzH zLr*0!s@XPPmVYY^uU)cEx20sZvG0hZxn}qY;I<7?0C*E})i9UH=tsg-NaZvh>40II zCwtA}fPAl|F*i&qn$29;K3@IH4nT;eHtTpY6e<;@V(Lqj&m~4X={hSfOt@Bj@!G`N zZb>Jwc{JLdSjZr$XMwoz*|t4)h%Ss5Aynj8ioD(`B!)QQiJ-3q)j1K^Ew2+Tx4c-? zp6E-VLDfR8N6o--<@WU$B)dj=$nbV?Fre+?Z5IJfXTfR1+m_(seZF%~Nw&+ES!-#r zeoTn}D4%~FyZX>!VX@D^WJ2j+;pyiU$4n#o*3h$`cX-UaO9NZsL>kfS&}n#!xK1Y0 zPc9-mo0meS@95fYGDFoo{#}Z@)Tr;fQ`LpklE(|VKv1NA7zK{E6<$3bUZ`I< zeD=W-O}J7?aWY|6*f$E>a`k<^1v$m_qExw59pF!6>6}I$WPxZd8$E`hZ%{e5jZpvd z)LJb@JHq)e1J6<`MO&Sya>>#h5@1qJh$djeEmU_yhS7tGM;b}Xyd(dHd=2=0d_mNW z64^HNB$cXn2M%`08yb_RvDrw$RJFHZCQ3-Blknj z{}CDO{x9vEbfnzC*krzcdI4_rP7Y*2jDv~+G7c5d(JdIWbn>wQpA7@(v=p_E3aJW;iOwhSqqk=}%4daE*9=<&+mIt&$NK6=%wd#dbhrRXFqd{^xmbSvtPM zA#G5Q_xfxi-Rvg?Bb>go*hlCVw;+D=46IVRAtM4Ta1T&E*(6^jCU8j&aiTzmr%* zu$y~Xfy&f1OPv~~@ys+(&QRthv*W03FhNf#za=9o!rHJTDsvN~-)y$KLDDw4e-_}i z2+o7Q+_V%)!yrUUPt8pkcWWrAyuE@VYC8ILa64{@S>1ykjNu>}l^f-zt*f13_NPb6 zaZ4*Fyq%TeuIWLPHKxj5)RRpx`L9tE4LR*ZSua;I zw+nyx(U#9|CeVsKb&n(Y?|z4~h9OP82LX41bo{Y8r8ks+A`9hYWks@1Yp+Q1k^M}I zjIH)Aa@3af%7MTQ7L$^8+O z-0M_P&*uXri_y9g9%jf@8!HKz_tz$5Lj;O*0zL(La|}t)BT3-1^#=O;Kq1FwEmAuH zlM;m$y82@cJGq`w(`Ko^u!J;yXehj>!T&-haSoGSaZ38yw+0Xf4|{uXOU&c-=l#uL zcSxNj(a}PB+w;H8(`AM|bJakPhU2h8JKZN|iYxl=dAPp8(Y627kG-LT+tgjZnwdl0 zFmz(Gyp3**msb?n6V8DX>u_b{H)-q_s6vhlp?l+5DNgt20-_RK$_ z1iocE#Hl`bG0*PoV;LGpYr>G0Zy53Xl{$qnR0M?g5u#Fn3k2UdyK#W!BTdWFDkt_8 zgA)=D2D#*EP;$P2X+Y1){TV5E{ww8<=zWdo+J;=7qq>+ZhwCThe{Cp>xOXE7;3Fs)Ws2Tz6-8Ra1)?t=? z+gDN48dRK~#73eSC0x(GUmj)kcC$rUoHt9gQdA4Wb%}nJ5dq}QzU^kH)M3uLSa}!b z+iil_lb7au%E;RHEk61oPlgGjlfK)!<>2Chi8shsL=(>^&Ps_@qGq*HII`wM?$bWo1_t#`3%%3@9&SPj#D5I zRI}U%$gRl3sr~5B7IQ_~8H}5twVxE&8|xAjNW7ol7$6Nfqb7op5R(&Hx{i~uz+97% z@|5#Z+Z7Qiq{O%6pRE(*$-#-&K3pGj4|bm_m>URHD8e{iTL`V{rLNiRx+eJHiy?CQ zIBYbfF-^^#X-@jIpmDa2fF7hL)&smYU5Zqb&md1e(40fF;2Hw=R zg^rX)GfUKYw_xO0&^Inzc=QX)Vr@g)6%l`)oRSu<~H3mYa2VF0Z^hJ zYn*ha32B&(JeBfirp^co3RUjXH-2eaLFncQiSJ2gW(LI5H1Xwm?teeB9FmcmbkNdK zMVHqBK&38m55&@R;&ggK>iBi-Bs9J+xtP7hy;&Q)!jNENUD{)?l6!K6 zb|;aY@exER5CL?a>BzxE$!f^YlKk~3v`F+pVAU|BTl0mQ9aO5=yPa96S6arl1O0Ge zE5O7FrQUEUkL4pn%ZQYoOlk%goWn%S@UIQZTvgZKwH#I?>vq|UryAtq7`e1e4O(t0 zR8iY(qgcOWsB)cPn6Ja4-=vOu7IUZ3E1ZX7fs(#XY}vUNTvPjY{`O&yEA2`OcqkWj zKeE#}h}M3fYI=q5`4)pe(xx9R@Zk%<77IU;rk*uO`VKD$AYUcnrk~)wMay%qfzE-E zZmk8*-Mh1rh1J2n6NPy@th!m9kxh*)knAE}f4N`BI8T*wPfp!z##O@+!O$c=_)^aY z8K$k>;ZI2l``Qx2(cw>zY}r#dNM*A#W(;k|8@n3g1*a!}&7kH|#@=5M6y)((@Q6RP z*I3_hkO|7xN19N&d)EO;X8^S7xix#r`R0fkU5hh>Y&O;Ar2|6j;VzP!RypcsbXoLt z9qG}TNN;=bNpkpL^uMK@jIrtoa>WJM*n>!UP(&I%!zj6dlyp(s^EKr@X5~Z*#^(g` ztmHGosp896ldfjM$0cm6vVVTF02Dv`!hT<-U;&9G{(5i0WNiiSYkQQR=wpqwGM}~W zE-R?3eHtbW47H5QqZ>;d1%+g(wp@?+Ng_HiWXt9@c4M!tr;#XET!MVenys}>ytbY$ zJE9~;vbkey?Pzi#|Epe719R<%6^G3}W1}ZgQ$bjD`FBQNFv7j)6HjmZ+>hGpF5T~p ztm+NWIA>cj)j_;-LSMaQ3+>O4_#uBK+$oexAfD?3EiPx4!eE*#P?yCJu4ZsH>yG}R*@55C(rICMx`d#n_ zj-@(1X-Vt6c1EZM-m_I9^wA#Eq4X_X1iv;o-wCo@JUdfc{f*da&2M|MbGZc7QRmQ= zvIlMrsB*UV2)zQ-6Jl8D0u<(-z z*~9R4bR(m9Tr7`*{zflnhDouoJ#(j1xRb-|kA*Hb^B`^gaE*h%8L=%l9$vcbobfzE7vPJz^~CcNdIf=rk_PKRxUj1N)t6gua9+AzZvZ`2rCIE{UpBNv#O7rzR~mt)TiI8D~csqIKjgY6!tlG z__Bkdp-ba}B(*i{lG0A5&AHzl*DVdWaC_RpRp)%cuZBl>((VT;`5PziC@TySG=z~t zjZ{XzkffjL`qC#Rl1zi-Bd2_m$H<67#6XGdNGF1I@mj^_HiU~H64Vx6%2Db`BSRM* zoDz3B`#PE7Y##8J^bwiDZlNd8Fh8P^b)6#M2q3x;xvz|lB- z%7Rc>Ayy961JAz<$)D!R!e0H+%!zC%{kXDA=fz)&-<-ry?}vV745C(ICP2)kFQ&ew z30VgCZ;0_AE%kpsD`Sk_*Z_rtND@Hb!(!4|f&Qx4pZ0%k%nxlN_&B5}8UFeTZIh2= z#NvPCrN*Vr^jQj&|HdWBtXWAGmHpI!NGSL#->+A|8lG}J!Flb~6z9bcN4Bby>;aZo z=un2POr2s4#LNo3!4i-5T6L0>YMyg(7Nf|!w&~+|TTrHw@jj1-r3#apiQp+Avb4~U z+of`QIGt9c9eay$!f@%5fzWyXM2@i59Zf$Bhi=H1G?SC4_#}`?@D@nT7H?rsfXh#X za4{upUvwAe2=WbA*6K>zk8TWV1tf{M&&@FRH)M8}HUlAegqRvlTYCTBa{2 zo8Mmx^c|YcouAY&owzJGBslG1`fSKGI-e&q_gYw2=N(tb-;rt1ZU!(I1_kRz~v4d4QWBg;UB!Yd@JtUD*HSXyG$kA7@oj)Iksy%bZBT zEF+C^GAE~L;v347O|Iq(r1p{**r?_u)in93WVnLy(^DnMY*P%tnJ*fT@$obJ0l`xl zHN7V@LM)@B{Es?U*_E~9~uaYu*Xxt;hH@)bK%rctBSQ|*bQ zev$!(+OGwpR_=&*N$ONP4Ka{$2e{i!V_g1eCXGJ^)D^Ia>dN-8gY+^QO+98C`(4c) zZP4{tAT_#O!qQ)ZUT3CaGB~U{HqPErz@(Wk^1XJ848i5EqDcAiB8^4z2&dN-QMSH^ z&nYH~l=YJH$9k7D5%E((`(QGe7h=tkmgbr)$Z= zQOdJtk?ru8x#@$R#5}z6zM+ds9o&rLA${&1Q{pe9{M!wAHBX4Y9Vs~6B%XfKqm4&U zF%wFlg0zCRDzud>C_t`R0b)!qw!pmA&?m(Tucj$8d01*f@U`DU4U;dE_=*J^zJb&X z3u5kwUd&e8B`h+{FFO1nP z_R*MRDqdq2m%`>c`E%Q~9j9jiXME~Hz7Z@xKq2LgUSC@|Erhy-mD1EH;YM4wJ;M~7 zw$-9p$(d9`R1J;6G|KPyChkr#_fEscW89@VOBQkoL&jCHsCJ)Bp5ij3{@JI>_*=;# zx3k1K@mQ5#qorXpUpPhLE6yP|JjjltBH$^48J+yQSwhwvp4QOxR@P&{rE*2jg%4Bp zKs?yn_23(#w~j`e*$d)jlf_IT{SHtLa&?iYAF6@r$q-y>0eyX&K!{gxg4p68#+v|bo0PG?KY*VxkFx{0;NkxYNmz_UI^04 zOwxc2fiwie2wY5;iUA-9N$23$5AXT|)~2RWA&uC)UUc-H9VS`0 zAW(*S=f~>`;h#as6!0YQsxg>LfNUy+7;+)h97yLXu`C4dh@%5tIs-eGV3yao_hp@A|gvo%e*a z%>xL_0&27)?v$G(qB4?LS^U1&&sY`=(XC)oq&S>a^23KaT&#{!T=$Y--%&x}+VhB{J5gCNS2J+Az@Jk0@o55P$Mq)e=F4 zsy2;gT^-rhfmY~-k6*o$ z#zLuL!}U614PEZWF*F?3`z6wukpllgNBkWipEqZb%r?jCq>$-9UtD0DkVkkRk-Nu1 zfLgDb%tsuM*(_I_znh!=^;l2O3aW+JG!m=qX_g)S7S3hYlkNL zG|DgqnRnw9JHdBUk3;m)=ms%7gwaQkM>S~{L;mw|peCBy0D`~L<1g}}BnyFaVL`~) zAc}F^;=^%ZIxa98IlQgITG@_n4jKXhzpQ`B>9EZ4%L_-XHAEd0&BTOlR%twS#n^Fk zNd7rp@rHBZ_YOEt%eTy#voRtLfBNt)*m|Ag!rKJ=SligoxZ8J{V^)n0tU zbXcFT!pysfd@L)Dn6Z~X)6Eigfa5GIpf?y%mM~bPzPj-$c`x96dJZ>QLUXEmkrSiO zw}%|<_#3i@7>#xlBGUU_c*OG}6r(p$ODjMyjf{N9AAP)mPIDC6*v3HVF|)?P65(pb zGhqFhyS+??O;F={%z`Rrf_drQ!qnGcgqGqpJktA8MR%oJ*}L5+4AVWT6PAaI|JR-~ zQaJHiI_(Km-J=BLo0%z5GEvwgC}qs4=vpUkh6Z%2N^H&p({($fImv_Ftg~@z^t%w; zz2(=uR2CSG<1Nb>+pY*|g$SpkPs+U0t7DF<$dXtnAwW@llZOp8H;Omx>hyWAkHKku zBrYJqnFi7rD$K73e??FC6LOUS|g-!^q za^PVZblHfW6A5zQdb7xZx%PdW^ng@JMnX1$%=B7<>ffdikl&ML;Laq&h&J#Q1^0A zwc-_b_5;&5g9929C5?>l|M(J|-MTcP(Ub&r!7<qq+WshJZd!LW5fX#+$Q7Qq&Z<*T*a@rhq zz%RW13@a^N8=7_12DaFTQJ`NX_2Hk6(^0JNAq`HSZgbN}Y2815e zo0^66Dub%Tx<;actff+(G>Zi%g(&2cjWG@kXaf_}3XJ6Wno+K2HR^h>V~J0@ymu?g zb9CPf`WY)mP&05`%FNP1jE3N}9MED#{FonMC3e=DCAex8Zm<3DhZ_odqR!KW} ztYwMu4TSFI_;pu@+r^`X+ji~@2dgY$5Xg}<+uV#<6FT_Lc?IaYTeNq8acJ8+Srfp*+$%Yk9_KirEF$aTbWwaRp9v8 zu&eGk9PHM#xF!V-`NwvA<*nn5?h`5Y*r32|`7z4yN7=oV6^-!CwnKsWD{Hw4vl+ zD+;xR_{Duzp2k|9)Np^yq-1#S6}N*9!ql;`Lv>ZU1&Vlii^Gy$LG#Nxd_Xbjwf|{@ z5+X^%q#4Z>jo!D&+v_3Ei533UYqfx88-5}6FO@>!{c|s->zK=-%Rz`*xlH0nXk(C^ zexC6DFxbKV26G*w@9kY_VZ2fqq-&;pAB0;|3uF95G!5fbz2n7_?fT$=F5LMCp#xON z?{G)&w<-}$A2#q8s3UHeQdTLd6KOf}Dl~VHrhm3J382j9D=4weQEFNlUB}Su4e1%DpBq6{VKy`YQ zgr#<)Jv)_*8!#rTHu)N(P{VvJ{7Vo_ztnhh4lH`61E2qCPiqOh{y2Z0%dJi;AGYZh zyv+3*UC;hto(r^?hKTb74V;k%?_An!`E*GhV>U9H^w7HDGKbm@iZ761^d4^WCu`bk zB$k-u6j%7xZ*vZ{Q398Gza=TjK2H#w+K?70Ya4IzxhylmNDNaRzyejL^yH^!Z6NUy|NbcPUrwLN@ri@%`#w z>+gkFPH=*96b)N^!|BNo5Dda7XHgQ$k$|KGQTjciGfIsfbRs_1L3werU)upw50WS= zX3%+(wy>TI4Z$ropR2%h9V-AZOuDYGbs_>lwwhOlm>thw7gH{&sw|C<+UP*fybNjF z3gO}Sg6issQSAzyciXcOj&rjyQk1PX%HQ&!1H%mcLIO@{6GUajwd|wJl^5p{)_t3- zG71$kJtjnBdPVo@?UFOfiOU&j=d0OkJ;B@#s=<-+fd1PaHenR|D=}rOot8tORkY6JlzKDw!%ciB;pdtr2y$tH(T6MD4 z8WC0__(0EK{k{F!STwq9F_RXB+i8tmQ=6c(>8hS9|33uF`$yY3{>Rkq2hN(c0*&iU&Yz`Acfa2$#@X!>4iX27AX;KUq zbKGn_?`*+1=(*?v{hGgle!BJDff(-3sjHV|@`%W)EDI(N--QhkRhUG5LBf?&)*pFt zbXDFPesfts5S1pBTfMrEZ-ml@LD1@`xN<96fb_c9^lzl<;(NEqu4|=;r32sUt=ZdS z4z30Hq2yvjjh)!&XeRtsW*4=TB-T6HRZ01Gv8eYAL81qph|@4f zoLeU$il6u^d^gi=LW%IlE>RH%afOKibK*qiZlK#-yfa^4jg7+R9LlDoXu@8cIi~~b zf`#mlUe$qOKRkWQ?eD#+<}Xx@6H~n*g(DoSzK8+;6+3^%ZS@Rl`_VT+s+)@W8U7XN z8uRaMNyE>dA4Z>aflLYPZN%?cyfEgK|UtT5%u zF~#2O7$y2>a~FL5#u>xl3qCvI=qM%!dVlkcD<$Glmdb^kA%^|Zk@54;B1&6!>uJ9n zv_S=$G`+4Q2!otiUQQu|x^?iVu8`p747+t8!PgBXBYEvCw^?C%3fAIOk|;->FO*o{ zc|Hw~HX9qoJnxoMUNAW3$e7S?-2u4Tz~C|QuAQJL;jE7la2c@ka`It-r6=>Z#Zzxd zTCIRRHr2s5NX+vtVDBFs;f(kb{%tqsa%Pu2rDJorE!jDtpwgMKHrm&^GAZVSTr zk7cZkVk7^MknucBBl#a|I>d>F4!Z+2C?_Nc7%RaxjJ}MB6%fA;2j#uCLE2F`aqCHF z!J@FFEwlJidu1#@g1JF+M&}U>M@>3!v11Cau{)T14pj2O57CNtCujdj=X+ z4w|q!-j3K%1)bHggK3Rk^Ub=aN7Yn1lC?#!o}=-$eWjwF(>!!#i_gKxHp#(dLFH0p zGrHF2%7I5Atg1;VGl5fLvx)&41&nN#qbQMu|0OxJ%3nFF=q4x;Nl7EDID)@4OKVX< zbzNns@HNZbt637Pe}CypbZx|^2ffnQ_}l6DDho?ZW0_yjnwBbT;5I^G*p6oIH(gLd zFaz@BMBYtE*6t#uj7zB#3&P=!)`iiD;0U4Iv&acgu24}hXE+l>N6HJ#rtW8FQ=ZZ? z$F@@B4%Cu^IYTn9RhvI!YTX8OdNDH&1(&0BMD^kzfsGR1fPGy}E$MdO>fR64sHBQ& zJVU#aarU3-!dN^g`Hl1*YI1DmMTd67_TwjE`Rm0F8?%vCPtPmtyFC_>U>e(F>U4j< z?BXHy81~g-{O7UcyriDkz|K~MO`8FaE3nGJspnxxGYG!ZHA7(4YMJ>_XZ6EuVvLOw z3B6#|a-Q+J-QfDgEVXB}Mlkw}Ck>TRB82fGGoWsId19B!P(cdH%fsiR>wqAw;sgo=9)?Cq1hO)R*!Ot{ zY!CVGV4En^58udI$`N)pQP?NC+~Cs|obgV@uoP;hm#bue;ccCsrrB{&%nnWs;|BoNKy4XHX|V?fqQG*`>G z@7zrXhkM$>eAX$Qdcl2aw%Wva{apj?f53SjO-B-lkVoqfA^-f9S+z-zHkO8HSVMl) z*WB}qyv-PA-Z|#t7zwZ)TRN$0L*nH3NyMB30^_&UP8(by5CxeL*Ij%yP089B5f3R) zoIRv)#-!VLcRPThb!sdJ;E7DNb*gOa4cKi+hdS3my6C8U1et0oc+|^RwYi*oDeS-U zbB@cjV=h37$&NP~wu1q)=?#X&3BcyA9Y1d>$VNiKWu;-`RjfmETz3lW0oYy5oH!YanV`TUZA0pV~2j_Z0UNp6$ zY_oV=<5rN^nRzqzp(eN-gkGp-N^bH9^d5W~8=lmV`Q=&p9IPjN>}nA%Fxl+EJlMue zb*(y(W0FL)+TY{~ePAJ~qm{;sMt|ceC0vdcdxK+1gI!Bx%cKTq$C*YT8(XF107T@@ z`P)G;fB!Z_Ql2#<>MT0fZFDA#p#L)6%L@AI)#^VbiW-Cq;xSIrVFp=H4Z$kVey+&m z5aZRn>iaDYiz7PH-;%Z{!+X#`2y63+rsK+fp>2p!haI_An{W*wdq8(1^G2=Y%q^v! z!O)~L(rcQ^;Tkk7ZfU7o9?jY#uio@ci&mSV`n+biiPYWhAw_BXV@8+THmrKyMW+-N z`_j+2<>H*uV7)?brz+d)!zP#2icUMbzcX@_V%D*oB8)9QQGtVVEBxbEA*13z*Vqo_ zI{r@T6Cb)H8qJeys_bYJi7hC5ca6_tQ_LI-r(K-nK0j zml=9O`aYv`yp>}DTGM6aBDaFJwq+D>=8(-Co>GBQp(wC!+)EapR0R84>kZqIkKmPH zIrx^&#;!0>b+9Q~-n4EFpec6-zY~OlU~#a~&wPwy^kGU!^Gwduuoht8x&5!Aic(O8 zj1%iaLE-pF@W&TtEAu1xtezIAUR0s0yX)`mUU`_SmWf*z4-tN_pKKu&4B~P()hCOE z)Dtn`1rTMcPYb`ahzolz8$^?I)nrxiGJob}>X(XvX0M;wQj*5h1h;2|)+6F7-vH-M zEuuhDoSZzBeR)AYl(%Udcyg15B4DWGtUSUg(nizhXgmN@kimHGTEFZ>3;&=N_QB7W z0VTGK@5q0C+~EXDlQ>B!alf5wh>UM92@BYZ5X2o4e#^^{za{&Igri0>PYg`Xa0)vr z${iL6$y7P)lo9bE(i6ahKJQz5+A*Xlt)zD!(jYZVf`BkI)IOyGjGIpkk3H7_w)y<0 zqrq<|SX*#WDAPnRP`db-4meaSi5|W|;*@}!m+<{iCJ`tHdcSG^>wq}upX@@(eIYV& z3L2CFy(#m`3woHL{Qd&UW zWJUZN0Q0n-5GY4G*NG%MP`NtfDPeXyb8Ej4^QH!$09+jiLarBV` zjW#Irea&1#-7agIT|V3gkvhH+Nq^F70`AC&$@Aq04zwv~YP*87i1^XDAG3T+<6W{C zgH`}HR4`;E?6(xcFHk#*#xp3{+AF^VsTSr@6?}oE9DH~*s>wXxNzL@7H3Vduat2LR zt8wX?ISfq9IEeerD8yPPj8e4W%ur5;6fvHJoOY>Wjy>gwWYY*Q?EMcB=q_`gcmhwP z3fLbV_Jr~@y+?cfPo;g_sOg%UifUc!W4!R3;|1iGZ~;NR=+%FQhp8YZ$5rPg{>t`^ ziX}f}23}P4{bgWtyJJ%mQRIuwe41p^eP-SypIx7OS{95BH*pMRw0*rEw&qWc$GV|y zfE;kZ?T4&gV`&^lu^tOp*8w%iCex5eoJA~~V@+JGg7!?5ifDP+plgW2AkE7;kUynR z@A*0i-%!Fa&gq!mqc6uVd-@9Ho;c3$Kr%>i1;(f3?RKv*xIhdydtKeOYU-2GQRE^N z7yS8iJlG?=0l3-e;HR2h;XIOqODZS+U9?RT-slP)mg2bYN(+*t!39%dBzyGAN#&Du z!K07p&Or+jAs%l&2Is4%Lo48;_bcATlaR+?I2v+T%J;tO>-T0&|GJ7HFFM3jYm%Ok z=qQ)TbyBR55N=z}FSLwZr2OsBj+JyFvefc@S~_YgLZ~!cN=YB;+sBk zFrQ`j9d}$_#^(I^wWw#FY%(YeN+_4vQd36ME|+Jk z2OIR>fPq!gog67~;h)#(Rw+ZF8d1iHTO8DOFHmlD-%EjsvP5D;#XVwl@~Nv^#l}>5 z3%uTXvAtqu^*NarXOx$Z3j!e|G-s4Jy`!tq6X4n6o5(T!{dw7v8e%M3@p8lSh4BEQ zWQdp{rxlZ3HcvHu32nfznUJ`Vt5yih*jIaX@L3LV0t|yh= zAnQrqFkBAbCSJI~U}mWSc1Z@B3zDm1qO*@qR|PHb)85Dq>8x}8G9V!6GR<54x3I!` zAkOJ;g2&35x=!-h&YAL|Fdplj}J1-1I}_nM78YUV6E z14~7QzC0o-XEB<4O3wXcup~(KV$uQ(d@`Y6{zfVyGT#gvei8Mrl|&_hMyhjC-*}tB z5B0C9{`R_Zpc;L>AGUrMih(2OrJDmB2Ix)*t^YO1E~zZiD5<$G!lN8D{mzolZ`AyFM*mz&2Zj1 zA_W!wtU;&h;C-|ASeLgzXp9`-2FFE(BdvF)oUD)WB9nN}MXQt?E0wH+n!UX=xLqqNINgiO2ZSH; zb1IJZYVVn7wrl7hUHfg`PV=9gu?K$bN|Dfx%HRwWs@qa|%wm`H7Zlf?iU2q-Jdk;2B*(l;}TMB=F}RuepspR!bSu0Ag-K?kkmoeQ>#%vz-O zq(4?i3KCfN=v`JcdY83|hfLY1SdpkKYYn~2D#DwlvgdxJYtP4Cd;Usg`E+~8l#B|H zDZ6`~-sRIc0-4$of^WM%YMR2$5HkH-A2fLT@Q`1E@824`$K9)@slVolY04fo4VhY_ z{BBRC{Dy0%2cTH|{@cieE@?tA5#T$U+CQ#j1?F?`*~#hOY8!m&XJQk();28?w8n|M zZ?rj*?-~K9w=x${4wS!dy?x}41k5orEEnqYL4rQEJAB} zSJQP(HXl1Qh82{4dRZIkT~MJmS-+clqS$T|Q-F0BD4GyUmEVaWe)$Kg8QIl7H6ODDn2+%?$2T5pTCf zyxpEmybZFtSziVgX|y&CANf?MU{M@f{}sI=0eH&b?;!#kRtj5fjy$QPddammhx19n z)Qz@jmIJER9{+d*x72(E_(%0wJVd!80mNm2y)T6*_ax97Jzy^IKmr!mK`ZEkjUIWE z0X31!%nLk;zycuF=kCiyt(so(=aI;ZOq98iqGGuufLs7B%I2T&>L#iYFB;t~0y6`C z4iA+_bO7~)10NsqMwUK8`cvm3B!aHbFBw|v-A{WReH55YZQxlC^6}-pggA!Th9e7) z3??$^$XLV&6_`CPNutJH!wROx7{fZIs?05oO22rlU}}&Q>llw?GB#w^9v;VJvaA&k@ZDkwvkAxz2RJ!g7C%i0bc86A>$CV}*7MmM0O@<2~Ou+R`>Z9P&W zSm#>`#foe`cqcCjq1qa-N?@XCLyi1|Y`b&jZF!d2y2-!7o|X#t5ebh3;ixdh)Y| zRn|lThtu`C-pF1T=4)>#Tc7LRWn_eBC?jF&;7G9R<6v%tMI1s0Fy{i%iBy)&L>Gq<7}CqITNP<|Yoy`r{~!%VeO%Z} zeoxF&4&&wD2yJrU0Pf1z@1Wwv6$yYj+gyvszX-b#;VHlv3Te0)bZvuxZc#Kh^k8F{ zg6D4>1Kv_|6z7HgFEF{4&s~DYy2}IA@2OWKgd)pD6n9=e0fFjM*0e`@0^+)xzKqk3 zV$jPcpgfC!qg`hqEW zk`kTu*BmgM!Gwp1TUo1lFxP9@IRa1u{wr2z2;K}BspQ=Uv2%AawrPOJ8tljTa6JA& z2;W0KH|!M!c&x)}tZ+~A<^>F6RQe3oVl@Ejg`QCd;S!$jH7l(;2$%K8>dHg7O!kxJ z<{?}r%PPi0xI`8qXxUxX8QzH+%d$Pr7)K)rhwI}IZiETF{l31Ek^IATE%ZARjd}6c zCPQ*n{O7IlpSS;m|9pmYClD$0FlAV%juyJ3Ss+TSpO+sa|9QM30aU?VHs!C@fZK`$ zfWVp-RW>y8j3{Ew!UTEDWe31>^H&iq?0&IK& zU}=hMYGos{+LDzfAhDuhfIyzp^#T$rS#SIpDgOczD_L(Y9TYH(eu@B?Z1X34$qSk@ z+js=ncq#b-F<_I$5Aj;r20v67wFCyKb6HDv;;#bq#cB`=#F;?V2zOM9-v&1Og{5sS zWiOhKS=+ECG7hx}h4BgqCuxANu4M(LtNY!^?g%=)mHi+os{li4AG?zU2s*u|CWCrL z@pioltz3BlfyURMjc`b!dB_sTA@nnhpqq%vnjlu#}LU1Q0aeq1Np2&*PFU z30NJzf!t5d9ZFoZu)rcZ>13Xc(18~QDZ1s5JX-pcqYq=X zr@oToF=OXol-^Uea03d4_26JhI!~10O}CJntbx0Tu2Jw+kA=RkyQ0J`a|fFSSU57P-!>Tns^VF1jc2|6A3W;|I3oI?Ylr0kRz|h(T+%Eo z3TUEC?G*_O`1n(Jw08z=N#NiOL}6sLMG-eFa1T(De9CXMpJsu63bdxSDCu&J$TEj} zq|K~dQ3j#np0YW9+ONnA=dC*rG-P}wtOoM&&kH<~0E*HuIk-m_Pb2`BVoz>SFYqky zy8$px%~&t8%?GRdT>N>Obv+kTkn2@;6lRe7^4?^XIB?B8;SL=!E%lt8f04C{&o&!q z1Jlr_Od6OxKu2Y#RsexOLxhe*fPF?m9MxKeF%ROgHnIb#MkW?M;8o|7Cm(evr9vS) zYOui0azPR`CK1(A(_!+gru5UsItf`PlSu12T?5ulHD;mPw7)yLTbKEmv3j#2ssl<{ zf2?*qP|9Rkp{VRGT^CjrD$9C7@4lx!f24Q$czd9f&3B*m44{2 zy3yuMqt%XY-BXvng0MSngMhV0oCNpOW(oc;lvd7A&jShcXIP$6AxEa7a(xhyf$$%P zL!PKt6zOfa#BE?J;`a)kvxppmH?z5T0|=x$ejt~I6L_VuA_0N3>^wkuBLRyzpCIsj zm(@W1@DhDQ5Qyi{O{Eil(i0FFHj4~IWvBS^v!^G5KrGOCR!~H`^GKswdK+qk=p#0d z1u*HHce(>Te555bDFi*GL=BbZrMxm<&PE+rSLv8ptH2@6e_?ha=^U$@2_nr&z_JAAE9IBC z);0}1G0KeP+SpfK3_;okp~6aScBgGH`c`at_tXX`4mIYANd_DaB!C~rD8!ep$|DJ& zupY%)1%z2o@}i7~!owPBv_NwGB8WqhE!>0oJh$@bo^OmZQ_tK!&wm%TQNAtj$K| zUpnJ$|=*+~otRNfQ z!V-EUq2Iw9Sv!xQTuqm>KUO<6(buembbJpoKCx;AF*>Yrv_IA_4h5xidr9x^(z~oT z912QhStB?Ul*)dlclpR`&wRe+?uO5@-sMxQch9p?+4sK!1&z?0cNxt&ZpJ9+`}&|I zh^@0D&H4Awiv$Jzw$4yc74LaxyyxA?yywPX2}1*ZrY<}D4}!221(owb4ljzQq@Tnq zS^yAYfj+Ac2!ex1z)+C6=?W2Xl4To2`txcQB54jT4xf0;I)x1e9-F7K!fGW9s; z*!%wONnpSlqSNDFz!^#c$V8fv<-|YXkpwIhmZ&iUj~NL-=Ppq7uJ{Y^Q@IcDv$$-1N44h<*c}{s>vI0u0#P*U(d>B%A5TZ8;Hw zVFIhorASOy?qkhW;||;EHkfvx$$E+aPPQvfEZd?6ZI!EAV?kn#R%4Z8mF5xHsUu(o z<`LMb{XNsFX@9Jz^zJT|eNFGarFU7+cvO}Vud@bmwyE^FtSLMyOP;%74d78(Cd=pi zC`-<_ZiKYmu8-TMzRB6WZR-2FD_DGZh}fnIjk~H_ zpjO?Y9bk7-P{u^q!*aq-aYgfAodGlDOif!7I8?7`yYk1Wf-+*Rg|iFRGSOr=uFE+- znh6qW*VBy#lx$YyUA4mWhb>N5cELGG9;YWy9Pr=j^ z2_WJgG*yLO4+6Ml|Mshi@_{cR06%W-d)tu!DjG5ek~bl}%F3W@fHM!h$-=Z8apZB; zyDW@_%kxTV0JqGuwbvtUKBZ0LpZg_~p@_Dq`0(Bd(04h+UgdsXXbIoInzWI{u)uz` zIGxLDUK{0zb<4PVxtPYe3$y(E38_~BQLlp$S7kC6^C`pFs4mq ztfOkG@Z8cf^s~$gs?M~Pv5T`hs)}Gr$H$6DNB^A4vWoE_D&=lZduFwvJ+qGRAS!z< zs{#+AGFd+I9z>|z1k+#Z z3`A8?w|7R}-u(~ib|efT+PeXx4C>q>I7CrYIiD8M5RDJAxuQv1>KfGFc)ayin|Dn| zk-v(Yg!H}b=Z;58yKK9*{24Cmeyhy^AvHGXj@qn1kW}&`%>woT66itl)RtcXzibaA zfDrCwxo81R*CPo)Q^FQGfuYK!GmR>xnl)6-jIPu1-ROJc0S5j^(NHp9)lJjhyZdx}tcmoK&uT~SKBYZBr*~h{ zySwx*>jfRvTPpjW-u+1L@+tT5C}l~{dWPpOWl2x(o~L*Dyp6%55tj5WV@b!&7#{tw zq|5sJv(82f9RJtn^HM^7yy`&$Xh+GXug)w)-5%) zY^!bh2Hfe2fruFuwxgz_I1+W}Npt*G2ZQ9_pMyiveAd9>sSdrejj?Ldk7AE*?rB;b z)(V`Z$G^yo#O%)qd&%n(KGGA6^Rn>))=#|SK#0}T7cFq&(H6A|BNK&e=n23HQwE$J z2>?^KKBoGW+5qac1STQ~#KT7BKmdVcYLZ0n1U}>)_TIYkDU%_P967(f^o2-0wuC=rDb>d40fvp<44Oo)t_ zpVI2%A>jj!)RN68zbfFLBmpySl(AU>r{fdvzB3fo%k%J`Nx*9TaF(;f1urDfq5LC( zL7&aFlSy~%Jc>ML<+3h7u}(ws0&g=57Avm~t+l+bY1+gMNz`QCpUY4K4;E`Vc<^1PS!Ik6P0Dnp?6tL=v~$c9`|IU;?u6O z@9AoMq<25lyL^E4xqNm#?n!0@+>_nq)97(eEX%mZh#@1~gX`nC=bK#HIgkFDXGo}uf4ejO?e1j$ZKOk^SOY2+|NOfW$Z$y$GDc}KV)&2sm8<}& z)KU11Ag!%72aV4lj*Dw;gKyznJ_$GOu?V&;?HsI4ZmBsw_`@m(cy}Z)Acu+4hoT^& zawi~wzMl*tDh2TMTu{KPHy1t9kYN4k*i+%N{6%2i1^kQ8)Clpd7Md%Y;zin^_KjbF zoh)&?qF?_J;wcxPN6{Vypzd|Rm%X7jsLaA3E{G>OmrY`C)|IJ~8A!Z$(CdY4hH1dY zil;8;josrt4AFe0nq~Dtvh^nH_?u;ZGkV0Mja)+M>Yh za%C(4k3zn@z?Zxrpwm1&d`|*EdF=!&1l<7XqccI?KK5$85s4Y4Rs_*n>vLJCi1vW> zBFMei!4?oeUC3M+lt-N4th_)(9RR{B-6}yK7OND{B2$+4P-dc-bi_$X3>>TiY8h>#icT6cXLl$4`h zE$FG`TCs}8h`IDoOW0MHqb_mWEqU(v=c$ZtNdR^5RwV&=5LlZV_;wF7_im0iS;6TaRL$$|sl&4c^G(UqtxC0$A0laPLw85iKn_FFowq z(Hvl7X!?l!iB1vHt*8Ku$CPh;?2H7{ulKv`nU?D1%{+4YaHoNEdc^+3Z`AW+J1QuB zL4oOuR~XS`zS8en<_}Y^Z?us{hn3fw!RN9_wD2=KC*Jy14iNjEQAQA)bs_s0++$)! zboJ$A*U(QRyp*8YoJ>}#3cU$GF5>yL2@Chr>cU$^o$ybXW5?9AnQeshC{S!K4cZ;VOhEMRRw`*1Rko< z*G{~=tb#mL%VfXO=kBw+fNDw4FrsC5S%rA07RxeJGkVSls^R)LR2$(I@4m0Qg21?5 z)QXw*P5w5|z*`l$cxU9|-TxpLU!j5qRL;-8GbIuZ#yBr28IjfG!vN;m55m)AnM|U&?6q#e=k%v9^Bmk!b zz80x{@qq*o%f6aNaa!eA;gI5lK|k&%d4aPzvM`IkAT+&v0^C{Ms{E8jTvMe0I28J2 z1ktz=g8gzrs#hBK9HtBn7ZZo+n+P;6zDxw(MF6NVUzraQs91#Ev99pyN-< zG^AwpENhg}>Gb#@09#0m#K(L798RRj=G=H~e(ZGc&GuG@DKun=%UHGzwi1n`Mv-cWDp`ji(s zU-~v*`g&lJ=G9jCCaW!_2_vJNtjvl^HyI76gKxUt^NIMn^|>tOlC5vp?9N;#t4Z~e zz|s;Bw99q}w{Q6uNT`;=ftrwDHDye>ejKcsP$g&@z0t@Kguw_V@|eojsW8{cMgl5Q z9K|XOxhs>dUe;mrv%sSFAbVxnxBDm~6`&J1Ri93lU?o-s=k$~~aO>=IB;nwkoQMiI zm-eUXYP!FVv_Do(I(k-14$fsgZ`SGEO?sF0h_l&^$TFN8A&T!aqIlel;oSH2l@i5U zXUe9Pz_|*dcpE_loHL^M{$!%~4qm`HnA!1B1d9Z!r-;VCr1>BX6QrcMzm){6b_lT+ z1tvQZut+$B^JqeWYXblh=Z@N-oCy3t#pw#nbR>YJ1I)zX zkq2r7J}D4W6uo*Y=pzZBbWT(dP~KAm1JneVW9E18(N2Lm-r1|p*v@6ecC!83A&B66 zl}6ZqIVsqi>?tIQlpho9DP_(gfkO3LKcwHbjXkQ33=j9GH@5 zkt0jql}vA#qUTs|MPd<9uwKi0Oh>=n$a+jOdfdu-OjEG3Mmo^O$&UhscK140hh9{I z^;1m-EGwv*@VO_M`83jdCW$)SCJL(pw`ElAthTEBsx)S2hD+~$q<2{td5o6LgH?_q zDON9fcax23bDrL1eKBTo8=;NwGun9EJYY2W7@hxI@5NyA&pK0#R{V})pm6cmIy1Rd z(Z=^i8{eNy8xM>&LsF*EQ30SKLrvYPG@k?S_>{?wX_@D+xQu7+vbHQlxmT zZ5E(tm6gA7ZBUx1_V~ppOC~+_Hn2BY zjTX6@jFlZm_sY=pJ`+G|7KBsqI(z~oRyiF_PSZCefaZo19 zr{1|9(=mUgclX&{*s4d8b{%_@rsM_teIK z(6U^s$n(fV*;k{sc5s=vVhzeE5&Ca;M^t6#Z;Frc#)Dekk4;O1k&<9WY#E!c18z2Ra zHda=Mj+pF}wUq}*tipZVn_727Q8~QC6$At?1u^xvtahY7R!VhvDWfBQNT0^aN7w2p zm1VV}vaCb&E-Md@jj|cNrK5UJ@A857*eH80pKF!nL+outDeZeUX4r@_Sw3`QHX`Fp z4Px(mTpth1`k{SyHlpwAgYuzTXZ2Na{#s`!sfq`_Hy-%@WFGkLtV7TVqT|h#*EEZT zGFs4lkOqfR!l^0YiUgqdErRO!=b^%u1k6U%fI>^dvWV^$d6sbHI2)0)S)krNZ!Wt zEUz1-z{_NOABFcK0toFYtt&wcz8nx3PVy(b>WM=3X%MSbPShyH=nLs1lHRFTt4Ks8 zo4vv3Lsy388N@t&>dH`kA#+G+%A`ybRDHRfYEJ@iGqZsxL`Aiof*iS(i+Q!CcGkar@Eu)wr*DJMvWOiby+#enVf_@P@_DF~QHI~> zYxcIOTY0g9rto4#ORrfyRS|>HGxR&os;SPtlui06eHv>WkD;=jcWKY8JhbPxRF+kQ z%CbK27%Cg{SNdE&)*eG;tnr(yXJDvImXGKdhBE%u2t(oeIEMP+ly?~F`}*Kwp@^>< zakTb#JOt`z`)!?Js49~AzB3GUGRZtx!Dk4@0cQa!41#I0br^~nzEPpZ8;h>`vJq

gOB&rRFlttyBr zn*c;D=)3G06&`3-u*xlrcI)^TxZlbr82&Bz+z_%ISei-!WS?SQ#b+aOzm)NgDx{RGQ0$sR14!V8_?H%a)zOKPQ|N4>w_LoOx z9CZD*&OlccpM7t9_Wj9x_K1HTkQWW^bi|Ji{m?3(J9B4EF1>QnMvp+G_mNAF zh;l8U2_fQYtdcgMUsp5X4UO*L_FJtSqS9v}5ZFaA3B5BMjHyrZo*s-adszHZ^V|ao zAf%}$Kbv2oM-qU)szb$rPq`#-Be=-d!{w;wk*==0$_HjEbAC=%gTCwPkUxn;cZ!2&tGZJeEhvFE9rT| zCthXwbn9J4Gh?vIs8u6ah3n(6>W9$Y!K&};gNqqw0_iDR)^F53pq|!MKF~cQg&I|cnHM^Jft)SjLICn)EhVVV>R5ZBpyeb)5(VZ$t9Y@eArk8@54pRg2hTl$*Sl0J=fkcU@U&#Y-wmeq=f zS6R>RwAWPjBfZOdL1n*ESw8U|UL|7&yvpvLr+4|lj=?LVLyh1Su8+g3A69w?uYOqR zWsd)P=F_&bp(@#bqPswsd?gx zW{o2Us;uG|N4`R$riHa((U%JAPHiz4(`1UxvmNW;}oQuo!PG;E5 z%MJt2*F6cqeaaN*-T?DJ0)V|t-0yM9BMHDSg%5c8mYzreRwtnsa z_YYh?Dxg_lMsqlTOZD%e)2pl!%&et=4-J3QNwZJPL#KBUK&kTb0~cYfat=$p=?Npv zr|czmaRy}%zjO{!HeWdiWFJfhNv)~V0sejZ3sBKU-mcMRcz}319hABr&?&*p2cd&L#6C(v4T-q z)+QbnWj(W=P}yC&2CM-*EXtnCXWPS~OqNfrhees}KARDod5J7wQFiw{z02oq3>F!^ zXatLJeH<43Fu*%l^nHElqR@%M^oIfdc)aA8Ui81sGlW#d0N)z}e19?nJi<&70Mmjw z+V~1U(j;cI%fAttUIO18n79jV;lqNiNWg-fkTox>wAD8F8frP7Yi-lcn(_97i zhoCCW6Lku6(QJ_?+&zoHJjl0uk&Q4X1_~=#C#$`asVzC6%p;gr5I-Q?3Q# zkD7>BirW}#8ZWT(-jxEN2IbIZAKU#Y@7%Mt3wHP-0dP0M(k4yz(qtZZ+19c-r}+Rj zvj63)A0VM~*%*R50(t<=^pP5w<;IE=9shiYI0?*AeP+nHB%VcJ2JR^zA}*_ew_1)Oz&g4bRIob8QG1ou z0HLb`P;a^zZQwAI=^%B%$0O;KOPY&=BS~qPWcm`np*5=L1f};NZ)a>I%04jyV14hlE{n;4c0m+>#$+9ChbuVyF0{9fVqHnU79!LNx zcwjq;w*ZO23~7%AItjv!NC5VRfnx1FRD0%ajJz&liVniOMF1~22r{WvWB_08NE{*1j&;L(0o#A50d3ZbxI#$BrA;EzY;I{QGDqN4-?scdl5k9 zMQ+AguVt%)L`%lx;S6UfZ1wzsS0EN#q9t!-FW zS(-2X1%#WdxnP?OxGeQ(u}LkExY45$kPuLl8W^WqYTBL0YN{qPj`dVkE}fiTzn_#$ z;pt=vR#hH=WwhEmdYa0!f`XUNqt{mYS6cJR$t8JuXTpVs))h|BMKk>2T{0j8^UygkYTufhC$3e zmoy(lqAsX>mv=y2kpMXGmc-^4kU){Zp*G)KapARV(=6pHc|%PQmTmm!$3Gt!bt?ny zVLB@mgwJlfBLP$$oKJw$dtJMRijepxJdgmKci`nJ=HQKHk0bypqt&YPCkCugA^>`V zGE&$JJd*%eqK#8ETh&jk6|$-NGDCXXFwDu(LM9u?s5p$xx?>KUsm*WD2qdtD$jV6;@-;dy-8r zSQD>a69-v|RTYAvXVgfr8uM7L+)7o2U}yx|A8RO&?=pIHR!b_&I>_U@jHaBGi^q4F zEGrFxFiT@SRejH**bxzot$N11{kIAo^Vz!M^4n{UMvl;tzQjJC9^JAuI1gpHFYK`;u3UqL$@{%I7xjNdW1!gv?_s z$BW!EZ@Pa3upD!LqtJR#)=wHOY(vO$tXU5(Eg@7uxHqHm3Pv?)E@k&JFPafoc#I}% zFp286GCe809Xx}z(;Pf=ejKcwYGV9ZJ%JrftWyzyG(d=(X;mPC@v#Z zUuQkTO`6G`r*~Ot97n}gx)G}OA){)?&Dcu!eSM`t^48g(mF_ok?6}FqEPV0TJcDsn zTH(SgdI6{X};pU{!XFBuX~ot29FD zMGm3gNML>j-*axvdlvyqt#rfqkVb%ad9R=H+EJ;x6!1~~UnBq|&%_cDykq`#gcSzN zqw-Sb1m1%vJ|McXTiEkj{mr7t?OfId3>Oi+W6t&ijji@{REws25wbbye7%%an`YU% zk`>`-%m@*(rm_`@EOJ6gQ6^-xunFk4`QDE4Aq)xjY_e?fp9D=W~rOrkZ`RyDPq zAN1`{KI4%jYD{{pylQAGSbNogH&tKLMnKkI9`2Ppq7Lq5JnyWg>fm11A1kPu{#ZkK z2$=D~uj!q8LtZA!`o$aaVp)cOM!6c~Ne;L^Zpa&9nupNAkmr&Im@oUVfkeYy*aHtR zF~faT{PKhG%MT~>%frwx??G{j5^6oD9-MQQ38E1jmVf51{wDOD>4ebp-2SvB0eAow z6JFJ860nj!_^$*+YSbfkT{L&e3AZwYmaG0on6K;;A$Eu!FP6nyjPB_PFlo99GA?4S ze1c)~Wl+{o)*5&$cji8k0GvJx%O;dZKT9JJpnCZ8LXD6D*O8~%2k7lc0F1fwfpA-Z z^LXc>l22a0=#8ELoChkD)Gqlh0!YLNV4j@ei0JoI-mVebv5{8Ex8%hkS4U2j2<+vZ zEL<@{MNVsZL9?lB4d6Upa8zUvVC``pFHVQlqw+5TeX^Y1;k-Vo#Ba<;zm5=n5QWB- zy<%H4tO*0&h>_2Gr5_L$YFDWg+Ap2c^7OO?j{DsWbYZ z5qKNksr`MW{jnla=*3FMgSuoT5q+241+Xd2X@75lL7fr4MxYMY$3fi)ll}00edW?0 zh*kC{BQ&w={Wj0=T@{u6&>OxxnaUmkbzRfKFZ=tiLwMzc5FG)E%=EK)g_Sv4HW6e@ zl{cI(!bru${I~v&1mMlZXFRapG2u4M zeYtb`L6>V~DUO1<9;p#(FRqAm-dn+*NWjVlnd!zMIexXh4fgmKS?pvlz_{jm-O;0s z+JSQ?10*N3*+71-(Hr#&zJqoZMa^+f_^IF-NfKcYUAZ=kGZaye9Iw29EramDUI>lD(Z+4y&%KZp6gU+C zuuIv$;@k~D9;=-O?g9FC2L?6PJ22B#KsH&P3Zq>qfh2SW072j#t0gn*(q9-=S3V=m z(YTlG5}5v258>yLM|G@)YLYTo4b@ogo@GBx1Ev=_JT;JwzR?b{@hg)NVC!kh2J0pd z*-q_`HI#>Jr}oGC$lKwP)j+~Tc6XEBJx}kl<`{Fu8cl2j*>HUvvi-2+%kQW2;rlv% zOYOnFc+Is4G_t_Ntzk*1dV>nw|jc1Xi#VYTS?j%zjI<*7&5;TNNNqelrUQ`ni)K zA=9@s(s_Y<5*QF`htdMazsNDmt2ApH-{_Hgg&%x|B9g_Q8}}0lz`!^A=67lIo-{l(tEY|BaD^UqAbArven@RQC`2E6gEYy`(1)u#_C zI3Xa9SF_`S@&S0f(B%xqaVaa+sghW8lPDt!TJo?kx@tJzLnLP z;)hwQMw3cRq5HOchUpUe3nW;lA#8`yP5=TQEXwXx}jOa&CdeR%R241{@>r= zgB)U3YBh{`POCX!twDpV)@pphtmA4VSjlB zO?#QF0ka|&j=`A$qzcoX@#aQ25!c6Y;t$=w!-?P5U1jj0B%i1$na2=r-#Jcbu)gq#b&{1ol%L}12E?lB3k+6YU^uzHfK|^k#$8mGfu|KT|1!@@ zna`@7;2OIkfer?~KF=%Nk^m@C8Y(L20mU^5;G5I*`xLuHrWLG8-h0lNDgm%N zm#KC^8z`va_cAsL*Ru>VM~@oPBI=AlnoT27L>*6W5hAm)O-=RzYbm50MPzfbUwsqS zL}7RuE228=#R_5CEy+qszyGX}YB)z8S$PT;Vf|Bwvl9OOHEWwXoR#(WnvR~8iZ_B~ zJ+r#-I4hI=N=LQN?gD2eJtIdoyUWMe)eY?WD9!+vKxn_h%|ni=;;f(R zu6+36A;L7G2?~F05_Dz#PnR@UT1kWD$t4XCA~F2O*_rG}&MevaRT|Q&0pagpj3gi} zGV8B-o`*&+uA~-pfmUCjB|w0lUY|#1R{A++Vf5%+)S~D{(w)x36E+;%&t#dM$cZ}4 zC%eICG6~c+j|y+$llWW=PypWSda@9c_g{#?x!_>8vAcNbW2i~+l(jGfZ&~NT_x1+i zs_5q%my#j8#PFo@7F!P7F}Z+DrXMLafB#z~Uw)oF8OR>t8Cr(Gvv` zF=!2UqybTq$mW~kpml(eSlO#EBUBj4lnvS)PI0$q$B(TIft6Urh9p|U3#3l&1) zsadSEr8l<8)hE{?upXRKtP1?<>N|KZ7Jfd3q#=G)p6^q6^mBRiOLOxzDxoV5R!JJFow?(i!`LmtuQI%Ie)K7mO ztVq;QTZFl_MVPN{i_ik-dz}6jA(Wd&5DN9SgfI0oqa`v;m%A4}etciZS>a1?H{(Jt zeF!N_8w+2)3a2@414j}~X3Dsb0J&TW`bN&!0xic#dEUyPmJLpQ>EmA#{S$+xxVFMI z-irYVJsVA=i5X$`m{6k?_0pL5F9ziHNLSHB)9sV)UK&CswUD1}5WKk-X!&AGiTFy7 z`_VP@)mG-T5lMrnBJs^u2KQFYTE5#HXb#_hyds79VFs;Fw!52bn#$iAfivFz%M2zB zQ6+5T#vW+KYHod(sKRX$uzMmF{2T}wGydT>l*9iR+0`T1-FchV`)NM2$G)Bt|6D9a zvV#JM(nxGfA!;OH{@RzWS0oZ_yVzGNP)-fxfnp5e@Vym@o7xX#aoNyL8{D zAb6MV`xLkW+W8{tUFyNsDbj=dZbgxX`V`EqPr-b3p91_4r-_Ufe$+2p@?~}&#gq9o z@dW9B6Pd(wF`zbRD~T|XNxTpPh!g6gBATX4_R@#%B=37MviHh|@3-zydhJ8V#1U_r z`=3;DdV7%IQj%dW=O=8cYHS&|>aTDnv3+t(Qb;LRpi1l{fzW91K@6y7+-m}I!mU)Y z{V=KAKrr}Z@4;ksXo)YXzXA@*V|3|!k(078yGV|{+SHC&Z%rEm+Z7U!IG^;HYde5O zE$y}WVQ+!5l7t=ov`4s6#e#T+U-n|EMs0FSH#cH&@*2D(E_G`U(cZMg$@E0uC5z{P zPu|J^EeR)(d!+1XJNA=~5G^i5n z*O$(1%NMK>fc32Mxe3iC$xQA4FVmoVIsZU|?*2ct5ImXh_e0 zZhHRn)q4Jf%ePx%O{e2bd}z0ElJLwX#BX|J8TEC2?qjHWo6NuS!pEGN@8%H)&DZnN zha)-FxAF0&nc)s7&a+4MTE?I_yNFakQc@@e$WhXtyaS>bF?uTo=sL{O7bwz^cVf_# z0wkR#3%IE|IWChv8kD4x%N6*Isg;^p@J$unw}fL8lA~JIN_Cg$SNUu!qvfCNgJoWp zFJeI30qtBAtIxiQ0fAvtB}f8sCS5OmsIs(jTT1%L$Fy=8GZR7ek}cbmKW(1sV@n)A zzii9wSA`L7?7r9Yfo{zr?KN@VPS(t|hyk6OJv=A9Drdv3Et#hI`a*Yv(kRq6W-4(9<=zF=EAN^1s{a7CT zR324q@#`v(L>5&_?3dU5ULO5X9@W=AvZzu{zdG}+zPph{RcF>0_R&_uYZv77=SohW zgL!!E?*F|#5RcD-t!Nraw0|{rPG&eWE&eZYa}2)nGXhu(5adnal?b z)+9~lxr}L@$EA7A#u(2FAAUkas(0zT_edKQOncIxE_W4w6>f$it;=P0uVwf`j7uUj zk!8FQ12TI!}L(skqpX!u{M7?&qr& z?%@WFN*wpV&o(rMd?s^f%`A!kJ^n?H%X2Ykog|@pfs2V;Es?y|c&PAg*>I%GCwm63 z!ezNnFTj&AGe3pr{__>*^2R2=XgioJg4f?E4y_H@V2^*9L#sESe%t!>1W(d?xg`{9 zh=C>gRxxoR)`0QuJM}K&|O1OM=pe$a~cL8X}|oY0E8=!e_yykWH=+6uJ63 zFN+wSJ}m7Sp4IH#+FDvNdXjea#9j}TZOv25b)~E?d7@_Zh>v#;FB7j%=%XSQsZ6RD zk(KJ%T4_7`EJFH1EJhlNzZ8qKxKAMry^*A)k=0+I0{egayMOyH|Ka9ad1l2JKl6{$ zR-q(1#)`Wl@4Pyycn~RAWeW`%2ro8i)r^Ai|CcG)y&ip_VE20TcAtOFqThO_N8f!T zywBwC;T0Pj(xac79{v39(4!~Jwn2*gbl@YrJGp3;%!jJto%Bu4=vco1#N;T=FB!=T zTQOWyct{FvrVET3)o~lRnM(E|1<`ZJM9fs~0T<08S+ddKjTj)v%CdB`%!pclOEeHd zkF^J!Kz`oY!b3E&Xk&lY18%*Q=8GTXtfbf>*JJ1wDprFn|?Y(D)?2-N{#(2Y2eY|n;Gn;B&_<~2B95WOQim=eR5pW==^Dq zomgQ1wTybCzwC)lQazhQdSPn1ehUrYl~xDg1hb$wWPejhH_0cqP{zA5VSBMS7ti*0 zl`=JZrBp^CDQ0};yWf)El4j#J^K~|;a0U-ivXijEm$p_@!ZBajK3dODdu?+~lIRq~ zG9Ov!E^fEFUQ3`bma@b5w&jf-vgJc}aj_WDlTa8N>P%!)U1x_1WX_Df`2N-tCJA#2 zVSYZvtLS7aWaMuYmE2Y#C^EcKzFubO9PYL}s+i%nMy!4Z&ouPeq)Rh~$Nyhuco*dB z=ez$8oy7V75c;$i<>~J+6|Ec6te;Pf)?KYx-&zzRdC;UAH?%fB1eFFAu|AO3RC-FD z%dAO)M)jvN$W$6sN_VTyn?#FLuFzy1P!sRmWg(%=&aYp}NE=?u`Kbp#5x?#J0+V?o z1|*pr#di~ZYj4efHkfN6P}7grJBsA$y<7oB*u6Z3q%V;e?8$4EPM2ABnQn~Dw5wO? zlU#uk_|uA*+GjC94Qi1tnHk^fZwc-1lL#!tNq@CB6!D1K4fxFr=;&S>d^dxpG#B>I z58H4%sU1mToj>gz+iF+R7{>i&PnUY(M9$P7km`UYDiOE#gj$8MfN;m#So?xVYmF<(#7Wy;b+`FJiKUa$M z9L%%c?*4zV*YeMHGS7Mo0$mSdD(W|+Lq9hi`uS=ddV);&+>pX1#7VaDCaO%Rk~CVT zb&C3PnKt2Dd@0?#ljzWk0p77$em6(w%S$ns|3HzozomGES7tEd1ngdy=zn`{2B%go z`uG>W-fzr+Zq$*pzO{)`pAql%oeV-99Nmv{`QDoWM7yRVAH)D!NTF&;Z9m!*rNXvu zg7irY_{BYo`!Wl~s(d?v)&2_6;EP-VT1W?~@)yZhGnkG-m*R8yW^XStr17zTw?V|m z<759}gGjQ7wDqU$jlHs$s3Z2vp5kFzQQN?ir;EHu259E{yR}7|Rem<{%RRBVF4`J0 z2C#1&C7W(;WOk~tZwYi+he~@XEWVs10y=E1*P*`f)iDK*$Tt>BZeDv(7|c;)>O1uhly%cF`$(MOn{ zS$%{}?KSfe^8c58gclU^=ez$8UCH_XLVfJvV8sxJ1oG!5kUw87kPjon5%gFye+)t2 z{`T9ujf#HdDtj*TC990{mj*AyfO?Br`k7?j!Ty$JZRAv1Xm8F_kP^5FZp-1Rk zAw^GO-nBDQ?1?_UYtQ#n?jX{+;_jht)zRDXsNzSYZuyyox-Az(_}l+qq;4EceSG)- z@7)IfJYVFuOq!{p{XSSww|3%n_5G!(?=M%Y@3-FHyD1PhxoJ|O@cq@{TrnUIjLwy% zJM4uRP!GBlA%w)GCkDvW?j?{IKcBD6;6$6`?v@h5<_7%uE)Cw80ip4_FXUUBG->mF zSwoz|J2Tj7O>3OPdoe(P?If8}@d_WrfPBnJTL?$;W>1>d^!?U|Zn95ifCH@d+dh zoq9h<;`XyAI%{cdLb7h`30a&tvADHI1b^>uDj|_iZ22dC(dpv2OV5Cl43U+N1vgK9 zJ$EZb#W&AvajDm_yK*A;+}29dDbwcUwpQCD1pLxgM_#EsplfrDI=sms8*xqJDCX5qhc6HPmoi zt`WR@SKoo6R-l7dpHJ~B(822NZxx6_$hWjrfC+T)g00fQ3w;EZs*eB%&vejs&y)NA z=Y>$p_h&ns$9yk0zx+MAB8Wqs1(w!XV7a=pz!@lx8~h%8&d7UmDY$1gA0jU?TKZfD z@kv*IUSxYO#DEAS?KjJB=}R#nC`uu4_uDG+fmdQc1)P3ZlYBohU|F_FZ1#-}!f~1S z?Q9U=!k%=+<$GuMO3_5`go>o$y%|i0Lm$9R{C2i{l<(Be%8&Md=q%o|>$rTM#DEx* ziq|B)FwFpVBtMn|!~0^JY=^dS`5WY`7&NDh2S|-Welvp!{hxAIeis9(Mo=GKp@fPK zTa;A7M1RUzDH@ix?n!CvFMm0dEo4c4_IRo3?Z20a#jUOWv9E_eQ<#wCXRCP#KRqHP z)YUmjDSs;-3UOh3066XAAcZh~T56a!a{$`%NV~Fg{c~^t+VY%K#x5)4u;tli4nW^u zfz(76sNG(yVkHUXDx@8qHzxe;t<80W6!v#@ffU-C5qaYWdoOe`vL;lDVj~n!VQh>P zUfZNWfozNvR*ei4wnk{F;#MSu*Um^0E0V&h9m0(~)kq4X0(yJvnHv3V$k&0 zB$}P5u$Tdb(KQQrYX*FeYO%a`K8L+DNRM-PZw3ncY8Sw zrz!6BA2w)G?dnLEf7+f|M5<;JHC%q#6Fnq~dN()zP>w0}vlm&kdNNw}#MW%z8h=K% zryz2a?1oGM=BY25*2E|L@R_{_i*l8Oay_?wP28gYOR9ul*tV13ZmDxmaf=Ei{pFL$ z0V;@1I7{WOvPiJ)mk}b^KM&l2>sf#{bK4h*K8ykxfv45HK}E9Zk0gCjv1=qzP{C`A z7wS7;_YK^Iv_Dy#F=wH^5CgGexkhvr_U9Ypg;fs<#Vo&?0#xLHRi_Arp~wL%Tg95_ z7#!#$v0UgQ(fqrXT3gzqX8_GvlwlZb!v+bXGnIhf(VuL0Me3Njn_SM+O=l0EZ^s*7k z8#&u|GoYF}(%c_52)Utn>7VwjsHp1KB}Qa_+0tuCbJA`DW~Xbx zqKFW&Zic;LnN-md9@jd)U2mn=M|g~0abdG6?^#ds52?CP^iM2ys9j% zScP|ZRX*mGZ=UsH4||DC=p`%mu$h|-bVAw`uSP_j-`PB}l3#ns>&`sKt95#$fHflO z{K>Gz?kX$!wRzZGB}KT3Un8{at6U?}Jbhi(??8bpy8o&c8VX&J=9P^us(IYrmPenI zMFVnpHMi+tR-TnXMddYvDuVVeeI=_W0zx*Cv5x=2U7fWk(v0UBi zq6L5t#1HZK5L2DElefB%36ZTawIB0FKAy`U`gY=ZDXGB=F+hoKzw|(q5Ums3DDnC78vg5fWGq%?YhUm$P?b#6*ec0 zT_q&2zXFxrgke|we!8rXz}_I<(nou6klnfs$0sppeRrubfBcIy>$B}8vIFbi1YfS* zd|$<&`Tbh(Ed+zLg#{U`b&dIVdr_#piD&)cZ_~^sc>GHWKx_-l67){}e)dF7bS+VQ zu_vTIsnP-vTk&&wOJs+-fO{#q&)kNJom9tawM&wA_|%qjJEcxQd+k;`d?=jZ3R{gB zE1vE7F}>!Xduf|cE8vpGx;KhwWUPiK8>7Mf%yFKr=07^789M~|Ln*KUf>|UHXGOJ< zwj%Fst(1B)}VCQyYdyfXvMBHSc$&}KjyVILpMT!#Hbo2uhVX#AtC{XFgJx}i^I zfRat^WBhDefQ-!kvzWOL`#J1dTeu!$BOm=LSHO#K6hC2n(%)?B9wzOE5zB?mfF#_S z@%|74JWHr3mYn*h88kiO9S8^68%-Cq*)y|s4>)$A3Q;S+nnD9ZO1 ziT@Dz>YM>Q;nh^dr}h9&t%$?;BQ#w(3&TwPaF?if_08R(-GvaD>5Ey`741?E54f|K4`-l#KZxV@7Ia9LUVinq)~T zlJSc`{}Ky@GCa(IUOLPDVsnk+;clT|mWI<6zDC07-|eMd_vI>pjqqYeuyxMraJFhe zeae*`Szw#jS}2^waP>f6lI22QlJ@_X8R&gqlE6Uk{{IvRXfNA+|KrG|3(q&Q#yW?Z zku0ql$@1@LMsnDZU3J)@S+S+ZXds-%N!f$PAi?%F|ROg)-;AGtj zua7R!_hJBp+z4HZ?EQlnkRh-WM{(qLAH@LCTC@sF58Ed(;KLRCROT7{ECyR5?JGYh zzK8*i8!}3hh_!B3Bst?|{bo;;vi%;`B5V0>>m4f@?4|x;%SVvAzQRvi4SuEe_#d5i zzic(uqsBL8L3AO~vs>G{JFUP-BDzm(s`T?$%w;q@Dxc+eEJMnqs<`COC!a57}5F|SQ^{kyLqHq@Bc9_zZ#O<~Oa zSBhC9cc7r<=Tn3l>J%q4^7APk`O&YXts;=yD%?arVbx_sfh76_%RVC2J;Tx}TZMth z$Z}gPBDv5aw?&QyQvMUOUA4XRm!J&>KOY11IT-{NGsL6gqo)U_< zxWkY`whzrSnGe5qG+RG%jpt&}oKMI4!~Q}H8bz9x+3w<{k0H8!G%oxqjKOnfRP%MX z)=ZY3I(6TKF_aSOkhd~~AEs1gt3$;M-iZMvFxrtes|@M4QLDU0;pOo!^Z99qkKHWd zW|883lv`?i3IV{!zvy85WIKV*b+sJzXL}V+rxnSWFJ?fqws_xPZS5Cj5Rr0x^9`wf zrdWykT@0Y6nh+MXUVhk8;us9X=cmmLa#?%Se)(c(i9-@)y|GPZ{V0+uid(Tbc(PpL zl6hjAK=eIRhm!&#MWsm<#8Wxz!uuqD2~kp5qV11bB;icOr4fx31t!v@S6xF2QzNlT z1uYystIi~au#q^T0@?_hQ+ylaX4f{QcrVX9al}$aWwTFk5O+Ct^`nEsbmGZC)O+A*XsRsvh9(MQtbExGN!EUeP z80hBFE;vxSJ2%>ObvF;*!d9B`$QnZFuJ!;p@jdULA^Ihrx5fL-JBc=IB%~1;#tSik zcHyMx)xgY2_0oqUy5Y>}RXF8dRp#_5y!PSf8%ns@d6`O*)9a%L74VI>^ut$X7lWNYZJsKM-U6_e zul36eL~>`-sysZw>&BkwNvTBQ^t!dBF}BD|{TffiB4j=BdU%it*iv}_t-4Klnpz}z zX3y*$GSZZIuoSsQ2#rEl){NJus^~RBXcWsv!fOg=BiDH2+c}UwuU3647XHy!{2IA~ z_vQH%x%_G$OIyVxxBXn&D)P9k!b~JwRhtY25Vuvdh=i*;vx0)z60$6tW0Xhr#r8An zOMHoNH5KM88IJ$I9E!YejuAqUcmF?!!dcVFZy)CnihLMTxx0pXWGt;m#&UI!43f_l z>OP4C@lBm~6!f`dNGTx<1-Sl#(#e`ohB8g2&1zpq(uU`6?)|tT8@>Li! zZ+o6#{Oz?5Ct+*0{KPjhhM(b@S(H^u^mC!w1Lft8lf~6~Cs#O7(<1s9(dqPF3}`2@ zTd52FAO`p=Ni-|tiXX**Y<7)}#^By3Gk|Q>62_m!03s#zCrk8LeX&*2#Kxq>>{nZ* z-6_(XZ@w@=X3sX*cbn&KpYbbw>2V_0QN^D&H7PR5R5*T_LFPWXu{&L5a5uNM82f~@ zJ+U!K$t3{PF{p+8FMml{=TotuyKAuUPyREp0KZnfP|wA}KVynNq`pOBXz-&5NqvL9 z^y{HM#hx){bZ!5Gx8fyj_ukoLE7xIGB$9Km| z1s=y2ROx)RbsrVOAWQuF_kaHn-~amG|M|;b{_DT|^FRLMfBf=4|N6iG?$h7???3&g zfBe_K{oDWg%fI~f|NZ6v{Pl1D`cMD#pa0>1wCUl|Ad7lOXNvQ`RLU7!@>#*D5E#=z z&%+=nkGEEP5eDHs=oP%&9TmottX0sTSIJFKL)l@M`KEL{jmC~EjmF-n1u?$Up?7D* z8qK$A0UO#&twBPc)Pl#e=YOi8-FvklEnc(QBE9*b76fee5@CxG-;Zj6|7q4{^uZVP z$t||pdpKU>vpLWuj(_(BrFOd}Nk77Z zZj*qb56YsBzkE~flbGI3n0GSh*5|#hhW5noP&<|-p0yi;$%)MuJzYni38;Ff`PkkAlqTX2IFEc0`X}I;;AD+=puHv-Q;A}*d!|-e0E z1${x9GMsHZz)_zEDeb*8B1yCN=Rxz3+5!l*=b;%-@fx72uJpDQJKL>;t-2zIIq8T1 zF|&0uEr}$(-WSd)0<)AZUlh?rT$*IK#~KX~Tk@cIfs*hfq)nFvgtr&euL5b)>F?MB zp%a)6BJn}}QHguY0ISJa`mKccVb}(%d0GZrBV^D(EN!_JU~Ap|X1Fy{#%I7a!u|}o zMu?Ze*dSNy_k>d#xLS4C;L5EHrxLDKo!sCk;cAt&0ZqcyDr>`&gsTh;$kg?{lGe^1g^3kdX4d^?fffqDHk z&`8?t`a*ytP2VlxzI7TF%&ou1mfo<^U?GwxKu|5n1*}Ujz(sv&=0l5!+4=yFItpF? zl)CAtY2J$CElRlQd5Jr#kXK}WxYYVJva7SrT?uhHpyQk`RfYaF; ztujX(ake>=TQOLJI<2Zy@HGoU}sX z`b&=pp#?x&cN9Y6d{W*ip#0>9MhV%g zPHs4pkiEjXk-h4$VMXGY%dL&*^Oe2a2!`iG&&;*h?q##nW#~WK1BUh%L9K(9_-%&Eg<} zyha&8J#B1&>{Z=F3eZyv;(`6AFuI=jS*!EgA2$7$F!BueU2nnnO3M)=KL!tb3o2ia z;-*ZL*W6-4hO9@o%rnC|Gk(PjiO-(Rl*Z#;@lYrF>h zuD=FKPpAe*0StTR;Jn%%DC2kic_;b~H$hx`mw`+jh3m1-+yg~*m!YrLf3G5Mgwxrc zkxkZmQ$|OfK2H_8OLFlVr_)EZPsG7MVO{G()*S*c)-^fx6*_4<*9K9N)xT|`$u5$H zH%^z1;-CI6lfUqH!8$7>ZbAbsB;JD8EHr5Kb=j{r-GayIj9aq`Kd)gJrI|^2gTdBF zlU2j55&bX&uC&dnK~u_(=sPdy4~~>J_zq$eoI%BSqSmz(*s9&@IOZ#iU$B!xq6{rZvYR_XYS_<(A0<3C5 zGFJV}!PVXZ-^l^lyDlFzi_Yr4LW+Jxbk}zx3zd2G`qR>8VXxoZi~*{}hOQvp29L}V zwCycgg{m|jiFXA6s|C55ku$;obyK(Vs#n;U574X|PTO20?My*yeY88RQcaX?L2!Li zq+rN5Fpb;lngRjqUOinRbsc7%Ss{mNvO6RmM#!PAstKSZ(Ottln3Flv(!j000NU;$ z%MLWu<0sAPRSfnh?@6ewAsx=cgv>$?`}?J*q0*Yf_h;xvKw;Gca%gX(nk2#|hHoR~ zum*4=)vbnbBW%+kZjd_ao3rkJggW*n33ar$B>V<($_sU@&S+pZLPibE5<00boZTY3 z(aHmE4960RdF2@!?JQ>9+=kU*XlHfUfamdcjdosW+JG`eNjopJZD?j^+8K*6di~x9 zot`2_{4l(vokNWqxTiDiyt;J*b%Rua?oi!0?2i*7y50cnyhy*fG_n!Roe^s>`kC`{ z^+d^L_ZKX{Tx}-M3NSl^$QyxNm7AX@{ThU8fWN&3TD_+5F8^b2^Y%Et)86NsItuUEPz;JWc&m3%bJfOd&pVV7RxS%p~zI^P62a z#$hXUv+)styS>GZ`if(`I6g%kHEm9{Ul;W4Ezs>1a@lB&w*XTMzB4ofE;luJ++PFt z%A{RC!!=-# z24i$_Dy?|KRyFwU5X^vUJ?LzRHb^b?i5mT3LnmHI z-8W{!4@x&Ngd53%G>A*6<+V3q;O1w9TJ~ogq?Wx&LM^X7qk&jLEw4Odqn5=zHfmWN zhFVsK4RtP3%M0BY=nPv@%M1M&n%S9JdP9cu`P`#fm5My*7MIj=s5=9fK2yu9`!lp3 zbCfX>JfjW+;^h?{K(313?+@{_7Vh1R$$T9geiNTH}_z#R-xtKFP?J z09>`8uUOsw6};^&NKS;=gik#XtD}S!FNw1Xz*P%wq`#9iU~TulUGYPLzG^`?)SgMl zr^fI4-lBO&SJEWmllIi;K-E39=z9iwdkd7|4hdBRZFT=Fbjm3G=8#LZ;Ahb)x$G@) zc1|gu)a||;j%mDFN9|{66C8b-a7eXinX%>11E5&948O8#-Ugr4hqI_f5(@^M_32Pl z-hWOLrUzo{G6Ekfv<(!uMU@vfYhMeptI2LwvXsWPb-^@AqP>+#m5IIp5_-ubX>J12 zNkVR_0BBH$>oOsSFi6`{tK`t&4cDbMUCpE1x<%H@UkvOBRv6z(^A&Y2Ila^|)+skp z+%bR~5zq+;x6Ty};sz5G`?-u%%oyM$^wQp#u;_{BvNuWSWq){(URGx`NEakoKG<8319mWx}K(wCI}xZhH&l z>*yuWy<_p458Cz?Cu%X|w|Kk;WU{xQJQ1zW?EfHNwg2YDX8_Ks#fDPvHDal| zk5t4sTYk*9pijS_N5^!GBfS*CeBHF$Fv<6 zCJC9eMN*T5jzK1MuZeyr%N4I;P{*$rBTmu8u#Oq8mg*ST5hYuVwj0`wh!sLDb^6xw zEYVOj>`Rj)3B~AJpubPrswSRGeRdXm=5agUf?8f{0=4W-2C1daWu3qp92#2rVW?$gZ7Af{&gFhHJqv(e=!}7ztE86qy)h!S zygNWBI8aLwq`sq;UG}_7GX#57&*c<9k^?LEM+R`3?uE&`E1=dW-G3f+=H}I%<2`_JuK#GXllE z1zB<$V@z45TI}{KI@^G=TC`|GxtCy^x-$qntTRr1Z0+Y(_ZNG&-GJ-*6lSd>OWdDe zy)Lk|nNM;m!GE3ovWcodHyzBj;Lck#`3OKLsAC4FK-8)Z<04~cqnmOj~!Lg)t{NEii0>_?GX zjug?_^xj8VZqxPq5T7{#dfQh&l0abhI+tkUZ4`iWJ zveIt%(gC;nM7F^v?fI+bKn7id`H(u_b$_1$*+}%+kZdqut=rRXEU8n04PI+vV3x4KYtLvf zmaxHV&uCzlFvR|hiKnqTZ19vY#L60mm>*V8<8-O-Njq?vA#(IAogEnB{Q<)B&JfR6 z^2R5R@0PjYpH9EWR}`^bZa}nW+BAwdUETNuiioR`WU^&TJ{&#DY`)JP@AB@4Izo$e z*z&nrKo@tBE4I$`sZ3;(_n| zUlz9(6Ii4=`x1&}ct#emvY(Vi%2oDsi!U#81wQ?xrtQW_1@m|{Gwq1af#w#_iQ?mV3R!I96Vn^x7xRmNE4)h3_y#>RY# zwxidHrvY1JkyoGbyWV$XkyoG5z$~&zIb&pz<>A}%c5e-eV!Zmo$&E!eVerh)IB}q0 zk@pQ)B8$8`fCn|ONRc4FPlc>l@dOw$oBV6T0o+P4$A5v^qTA=Zl{GS_7H`cW<5 zil{1;EE(R|Ut^C9fYb=5yiqMkORURc;ElZnn~dK)VcCJyeiZqR{5&Zm+~3?{bBebM zuIg)WBrml*EmTo0wmT&WNny5FEF}Di6Dg&Qx*0Y~yApN>ZR|~W2~TM)wykvGH+*=xM<5| z%rs$;22}i}Nn+K|LECi+E#^0^4w{naw4o8WIN&(6owDAJ(7*{T&DEYS=I6 zz!?ckS7)RMyF3hC>@S$m#r&|*#ikve(nSswbn(6iOr(o<2cTGiE{aO|dV1sZFutUV zV_jgTa~GKD>Mk%ezMwdnZW%P~+anpb2}ed73)t8}WHeLqs20b0CE5*io5dmp*72@jm1@!a zzU9mTZndCVx?ig-c5Q1#US}4&wr4Q&L!-mh$lpNf{!ZX0^oK0(9o*KPft+VuYXfZe z7ATvmIC#n`)q;L`{mzK=AJEoaO-8Wz=fVyLv(;kDMY@^C7(9^OTTIMDJmy(^+bqcC zjQa;~q@H);2V%HiDraOEd{t9*6Ve8N+s-tHT;zFxx^4)z&EJzVqajo*J*&g2^se3Z8BY2XqRKqvY!dEM| zp`*I^Dq5A%XG1u`P6@|0P=he9RxKH-wTxk3JI~^Tj_TTNfj%Du0qqC1+*bJm_1)2F zu*O2FNfML~xVB!;9)KNGBkClM2g5 z*^~TI!?po3-AJkKiPawlji~k}Bh=S$Zp6fJ?oyuR)WpziqV$8WzSfR0!m%5H}xI6$?70m7Cw0E6=^?1y#*S{vjk@&5d`nm;-m^Q z(E_+vi+PdmELk$9Ti|QzRx~TvF^i+>+ovIQy{jEb6(v>WGoY)x5Xml|GhYF<*lQkO zBw2g}^qEseQ4?ss0cx>3NEvNbup<`GVO*7AXMp;;M=9~Hm9zK;=zD;ePMt!_CqOOs zTa`4-e5Pu#*@^Eht|%XX-U69-O7%*b-H5K5>=NZHYIJNAyCH6~8*siq8Na7djn{qV zsi5F|Z$f^E`gs!vE__yZnyC^cu2T4{ZX7xg^h7)1kcM>l`!strxe9#NHpQA+)Q#aD zc&c!kTm^D#4_Q*NvrJe+K3s$?gyoOI(5`tyTk4~a3IdJI>fTa|_BL5UWsBU~ zMhSbsO$_BOve_o#p0ZgE6m0gs>rZ5}cL$~^R1Hlc7C*pdAI6t#cC7Eubng2zUETKw zHhZ9a2B#V7$$WnfF(_i?vIq&s>MtqM7Qyy1xW7}yLj(_ zyWPot#gz@Vs|D@N`!_H$X4tH*=t4lg)vwb+qWow;ZAJ(#t;D?T+aUoFTruK6#JuNEjn)J|hQ0KG+P9V0!R za<{FTK$z>>YSdOuR@JN>;jn872~L0E zvigXkGv3*tAsh{DHK#RUnFe=c?XD6?!@C{75yU3RwKc$F^_A8n?r=jqemkx@lnwGm zdcGUx&3xPBkDq&q7gyg3V`xdb1I$+63iWC=-;iGgqO0(fhz|tNTlXg$>d|^PUOM1h zq@Z@Ujp*u{*d~hk9F6GqCIj;Ojp(Y$IyW|)yGV4KpnOVnIZzPY`#wXF=-wTeV;X`q z2=HR~>EUR}YRB3NP3N{k)75Q-NcAU+4_D;<-!`-r`hAxz=>WwG97iQb1>pNxQ}Rw0 zW#*UdN44Bg;l9zm1Eg!?fs=kXGEpV5*pL-_I_#rcR@w_N2x$OQmIA`9>A_KoxFZ(; z&UJn>jc>v#fZ+WodV3(MSo%2u@ZN%G*IKw7{MP3|4oF-pAiEz$XDAeX%I6GX_ZEB? z$k6C4G9gaeOFO>Gr3H8`ZxA`h(zPi~Cr}H7E#oKH)5G zMG=JR-yC*BXijPC)9PbFLvmXY%Y8`HEZ8Ri+Vw~-Jaokq!{XHQ`Apg@+mi*YB4JPi=SY4sLn+_pN)q) zVc<8n?#D<=T+GKnY$OV7C^pi<(I9Qa#4yd19Sy)n(kBhg{EP-&ei&leudN?8Q1Zk4 zO0KL8dfeJ@#t$2)_+j{7b#16#ak$aC>aZb%=YSd-Bq^f#$t^{+3ACrwi~|KVyYJHz zsoC9uIR?~4Tt85=hodDm8*9rmo!jzESGVOMrcA`GOJNL+#;1M`)SPOKb|hU;v)%#( zAU=@SvJs4nJ1Uh;%%VW*rS0fqMK) z{fNBZA?El9LfJdex>i0dt2UsT%%wg{@(1D{2JKAsn#Q;Y3U zBxO>LCNIVx)N1#sPLb&XhiZY>DEjz7#eNjsOj|95ksGj47tX?FF=_~0_7<%y!rK?w zH9$~Zk|RGgA`!DiIIQ$b1X;r($X7o)d_Y^>S0b*DapY1Uu&$5hoMa}Tvh4ufiwU!W zv8l;=h!p;&Pj|fr2L9HYG&NdxD>>&e_!^PuG5q33N?^5q6+^QT#U8^p0^F;V&ya4U z^2ESyq=O;+tzYC3>I8qg*2M5G;cwTT(U30TZ~Yk){#G3}z)JXAWo;Oh@VCm^&?n(< zm9?RaQ!GOiKWylc@VDaHO-3g_Z2YZ>q^JCi0|kG()EsBJJ21x(vZ%2S6ofyFFB#of zZ=C7e8)v$@HxA88j+?`LShmx2BH}qkMyJgXmU%^|8c6IdaHB2KayUAAKtx?Rn$R6i zw!C1V4cg8WZ!7r%_54gkqx*PQAa^z%VmH}I0XdcZKTVW(J^rQD;JrnQyGvv*^}6*I z#7*{ErV^MJ2-jQe|CqKb#2H4Xk8;|ti1&bby#;;)+8KsBfzkD&$aX=nCyNH_D6-nJ z0I)9Hp53Xx2JGQL;&d4f(n2UnaR4oK8TN z){h}OWR>a|MvZuc45UURatyLYsEz^H2-AbM_0u1@iXqy_^r3D2Rh%V2(XPD-1F(dm zRTng9O6XW+jXSM63>~Wu8|L`64PX*FR-N2%B%x!KwZTO~#|rBf5v>l}EAJ<_*Zc9X z(Xl2bp3*T66m;xTLz(IBz#LT`RpkEs8F}>K8_xk~9)_1}Y^uJU>{m@XSZs(hqFN0d>#ssKhtjbm-^WmD#90L$ zvn{bo`V6T?^jn}~x-Tqw5>V}ZL1DL+p5FRw(789kgtUSPD0zNlN+uiw5_miw5>X9 zNRiOC+}dbclkiSy8wU#7cBy~Mba!BmvWlV=K2V79Fuvq%WBpsEbN`m<>i#XQ{X8^@ zzR^e)9uNCDmKE!)AllR3ND?S$gEnM$+ourRvq6NkJkEZWA<-0U$UyZ!abas;H`%?YeNQsR1Sw{h>~5LHJJKgo0~s>4GdWO7i`MjHqCQ&n*U0aufeo?c$c z;fxX#)-h4${0NbsAhQk1GQJcJr=z0D#?yH#98SA`&gr&w)dZo<0BVoWW^lz1dXRjv=;gC_?s)3ILP#V~BAcUrwm;AJ|OYo=$A738$p z4dG?8%kZ+57asOFzc@Z`^u1_GQ_p@}ow2a-+dGoGY|j!Y+uJ2lC}6R1r1cf0)6O!b z4>-mOQTChGh|<5+v%T>%dF=5JoR8M`ms2(C z<~RW@%{#^Uy*|Jx87+BWx<2<;+X(1>;*8Yq@i(_11asxTrkf2SJX9l7ApfDiOJXwl z4tR7D_D{9A{dADfg>f?2ls9>j3$rG2PCq&Qx6j&LbJ+EJ{HM>F$Mdv^0~?=*o{EN8 zf^R+vNbKDK?q}MHIM!tbyq~wdqj3T}OOHRWt-!Mw7j~0h`WV?UaEwN>#2{`@ZfOHNQdwzt1J(Skuc9uA_3#7hZ}?dQI^r{X7=uCE9+~iu{f`-rKP7+rDw}M_ zQ6F!6yRr#t(fvVoEz(t=Ns5AxxM%j0UfpoJeN?3G(hF#)<8UPFNcBfDo(3{ndwjTR z=`w2%ELwZ$Xk}`h2m15eHP>L{fwes~Ni=;`_d)|6H7WjmTO^+bEUN{PwUvO(uFxQt!lKRGjVX z8_cXfi+YjdLZDMy@ewd*k)Wy0|3l*ulh>Qi|BAbTxjO$xN&Yix{kA{`o142Ph3Whd zWY%H7pF-Xb09sqEGjaghHt^?=To3HlR)>QIX?7Yp@T(x`2x<~W5Mojxc)BgFq0#@e zb*%@ufomFw5iB1(1`WB$;T96T8C(s&Uik}okYRC#4r&rYRe$GQv^*U=y%Rq}ExNcA z3=Otog%AU(Ap!d&22!WEv*v*fs@7+}kh*%8J*>@;YbVjGcL_xA-G?v)3*>Kh!+&Y7 z-P(XCkiXfF8^kz2Gi>q8h9h0)llcndFF%@*zmZ}(l0Pm?$lt3%CELe^M~hHDPjkB^hI}-vn zwRFLWoKR(Jb_+1HT8zvdBVUl8#(E<>nXaAZX*zN6Y<_P*Q&ZH#Am*h^z)b6()_skN zU$tP!^{6%Z(aAmVqtj|&onXQAw3@(;v~+qc~&>!}3=bGl*(hT7)Vtk>NFSk;xK#hXV$ z*v{{CogB2*Z;zY+e02^jadgZdVw2b-3GA`RYG)(Q!D(l1kUbmuYv7vjJ8gATov`SjPiGWn2V&9I5&XUl3Dus!XfdR&gLBUc7td(~u5T3-V$ zw6-O6GvwkNLH`0lgzeP_qx-1>viEoSB!*Ud2%^E&9&OR^YLDs%+cWUeAqxJ4$a>Wz zusxkx8=T-f2-}?yz)9f5kLFVbxUa6q_N?o%yHq+&nmPOOP>-b$IUyFL573mu-Qf+8t@jw5@o>Mi*a`dD+lD9I*I%a(plbbD zQcBj8Esyc$F&YJ^Rtuo)Dv5Vf(h{?v4oC&>RHsfX@Czp}xZp?%v9Kw)p%u1g2U9J@ z`2`aA^%s>t%?y8fNQ#aw(SfL%6aB_{{q!CHs#=Uh+EWW;z-j@RyoUe{U{za@{HFI1 zbk#k4MHg=)2cT-JjqJ(wA)5tsuv+kn*Tc>(p8>nNva~KJ>9uVR|N!4!3jM#*RYT|+VahnKE{24j1oRp5rU>l#;b zy%AwhpFYT#a6?`8Mwr+rE*=_=?a74)H?-y1NUPtaA=z4QG$;$)@ZEo5n9How-lgAdsVVxq9be>%n4yoy)uY`S+ z4VR*C#e#f$tMCNiSCh1FFtPUH26463Eu4sgxU~@kmWYI@ObXzt#p!UVFr8vN%!0%y zDXzmF*Qz;p&I{mb2M?mxj(2F64mD%=iP@jBAK9DqX2E_K~1yr@wfuzYR zeyEG-blB!qiGkT_LF5YG0ZBU4RtGA=O+{D0R(JO`#F0Z4wGj!1`nm*Vbpbu}E#DL2 z0lYeG7byXk>N~&{b*!&eE-N|$>R@jV5nu!HgDdJd;>{6{hILrR7md?S#6oR!P{A&6 zNC=@0%Siw1l*;f3-;2-)(x?595+gB-v0>0CO)az{i-op4A_LSunVV#G@Uy8_?hs61 zfZAVm`AnIPVSxJZnE}=|JJms(!zGeAlD0INx0fI1xZ*lc^Jp$1KX0oGsK zsSeJb(coy$FB&!l2KeSP4kyCNGY%DTcG&Vtc#v1iN%2rwT__s48e79x4mUT2gq; zyxR{Ff!u0w!UJp(a{~TWiwmI@atPYr;J|OSpkgS2EmMUMI;a+Rw5FA&SS|4Wq4Mw4 z0&b`l9A?c+uY$yCL7+=j+2Rqi_5+?6kCn9*uhaS}Nio0jB*-g|M|E0{nxf7cnd|0- z$oLYk7I?*L>g4`Za7JBAWC>boifTa_ym@gxfVo$0u~}7u&$GU17SRQ)`2GxRQ(Gv zEe&GHkrc^f{ozr9Sl`c4UDR>Oj)mH*$1-J&AsgQ#svZXs(4dXnl7X=rn&Gn)8u4+f z8#Hh>gDi4t#_$lEr==_jU9`pDc%5sEe9qd+Y!tMB=*=pN+6Z%*!M!FK@y|2ISrw7PZiwkhCYDc>V7+WnkXt_zC zK!4=}xYdF{YOO=s-~XU*wctpakc_Dk3Kpxy?I!8Ux@ZV}REz6IIQZ9JJd#$6?I6Jj zDSeFfoU`Woo{m(~Mwj5Esn7>1>kN`osA6J&DnPkfAUQr{U3CjESuIEfIj>#J@wBbP zZ4p}ym8=#}Ny@QJg+-{O?hg)imr|r!oXIOQy$4XP78Jpo$I*b~y4tm%OW<5+lsbc? z@=Vn>Y(!0e4(t<**CD-%+@7k#g8SNEHur+C@-9#lk^w|ssl%dG7+;)P>$u2g>N6W@ zkSw*w{hU8UD65H}0DX^V*tRG_iX20|mYW%T2{FmKX(aE^Q%eoeENZf@)n>r=Dw@T5 zsDv^wT{x&di4n69)yx_8yC#NqJEK{&FKfnVco#Tm{lz^GVdxe(=)1oN2dyUI410Fj zP%7}viS^)?v&)7%;cR+lZFutXYgWXUyG=P zxO{IurI!2ZbZpN$9oyS=Iyj6ya~ONNT|oTnhTnb*Z`Mv7p-YKQ)>hET(`8j{ZL1bU zSyM-CN?)Lp)nWwOi0&8ZWVImaFcoK~)aZlD z#8Ydv0N^V$^)qN7R(lSms-qiEt!;GqgqRW@09I#^g2Ssax?(Ys`wZ5SG}ZMdMdDiH`*XAvoRXhjZ)+>E=K#9@-G^qfq}}; zLe^}9G;%L2DIH8vCsj4(7iZo2^x+8IVC*w!^y_H?xr8a|x?giR1F}8RBOk^(r8+{R zzb>P~6m<*RgN0BR!?K<1vEC)H$9EqB_Bi`R!!N&~0asv;lOG@KadsK@IJ?Xj>g+P? zF<&-iawM^i?2!u-_V`gfB(TSi3q)4v+Rk9Gpfajy)}IjFjp;5xcV9edTnksFrzyW!Wng@ zOh(J$GCuGtHV10!I9~OvB1cc#pbp<&=X?OVwgPsdyjWY2a9%w_!;!S%8R64fo`szl z=zBNcDh8)e$n7*r%UAQ z7Y&$PCWIzVtj7WN>@qZQcG*znrN}sPYDb#Lg$Ygks8$ka;>QJC+Zs)j?A<#Ku)nvT zGRA#%OtxnolkM#~Cip+z&!_9<$G>*W4#H}Bdn$B9m9e%uk;Xy-Wx8qurdEqla&5se zVUN{fV2M=a=0g# zd#*7TaJO3AJV|38D_~bgmx?y?gh`;T&fw)rWtFeLcxYWM@PEX4bILbikGihz1Sm}z z80=9k4mT-O(pMtvv07|n?Z)_O-3NDZ>dlIyS`gJNr}`<@S}jJT)U>xSNuB4rY>7j3 zfYe#zEPSm#>a_8NTwj;L0})`?F(pGo6dbh`2^{MW2NN*g29=DQIz&NmtR{(bg;;Cd z40`6C5-Re|tb-&~i5{s0vq2yqI+kBCo?6=~To$P@5ag)XDj3En99vbYh=pTsgF%!@ zH3_blhJz>60R4+8dvw7B@@vo+kH!t`_NbSJb|=pb8IH#JSgudI$Hee%4?#1)+e3a0 z@q!eo8)mJCB1Kk{aFG4(FB-B1d2({YAy3XO8$5->?U}V<&@0|~dR3-nTzJhpx%#ZT zX%F>t0wbOmjz_!li*cnzUKh>F54V3bpV7{7w;hFBPS3(Er?(5Yj9ju;a!rq@YmTiS z?hX1s-l^jNT|4>vl{VsRdzIk(*J?3}Tlhhm-QzcEL7^1FLPD^$%mHUPkA=$hJN;e8 zgO_UAXq}<`-YqT+-;^Evq21#w38WL#w035{O> z2n;L(bPO}${OZaWG|XT6u-?Q`HT9)|7`pU=tQw?2R+SaS=xy7xd^Oa+a8z!f1`MhW z8C@aeE<`mhgMSR-_5}YJ#zAI+=xeY>?($_(>p$w`J${Nu+R{V3m{b!C@}|MsNcZjZ@-d=0E=twG+t zls~eHoLU;Z?fFH6H~&S0vX^XhWE@W_=!pvxHu_O8rmLWs4Vrp9wlJRYgFi~ie9tD{ zIOz9AQx3YXe$44vKj!py{TNVyG$xb}B#HP4PCYg0Q@V1;Nm108euM>j*Ul6FfCpiF zkwQYX@B<+zbCD6ewyFv$WOi!&TeY}CFU2Rmi*ulLy~jrdi|NrWU|lVsencl1izI!T zg$DQrK^EZFd+@a|uQ~`J)qdP@Fe^`$q))Rzx~UM`EdX(y4q4cTdNqls;7HDXw(?r4dPi;+zRW^C5*yM|vIH9lp!!qY=Tb-vJu z?3>A--Vh9exHK^cw(f2jP0oV6hIAMK|^c3&}^(>4krp588ob3BkKm)H35 zvQd-ycJ*HI3aGsrg%ITvvY)d-WVL<*5>kIP1NvHZ;6x7bvP?QH1@o)LNJn>>djo?1 z)q;a14S?vfSg6YMvO`=ZbdF9Nkd@138o^Bz!( zjgFN0=x5)&26S{u2cFLDt<~`Em{L1{U+4L8I?hx1fcv&GR4nVdEU>Suk79@OqUWH# zTAas*`TFbk0Q7YqJRWOOs}@lB`B?D=Pz$P>&Oau20aOcKMQ4fW%fwer@Oqp-7Ugs7 zF54|+l>Y|k>o0>ueN&PoU7Asv^d^psS#j0nd{?b3xR4ss;Z>xmLW4(vLEV`zWjVVJ zcj>sNWgh}RHsBjtX!wXQu)_<}0@=F{g`pip?i`-j5RNL?x9%G9%}|Z<@@>GKM>bf~ zs#PxtuI_aC{EWoefQ^8J5YcZ~#t<{x{=AS_+d6wlteTvHJZ|t61!e;*vaT%Ip&`~D zf!QGIK?aW?TJJOF|8&XUg#hD%DJpz)DE@y z$-|0{`I4B94DFGaa$!PDKML^#V)}96cx*99Cr!Ek>~o7j`q600M)wuwIXw&WoZc?X z0~^I%3W?}Al2V=t#qhXw=?cDyik|(89*EY84J2GLJ;KB&5V~66kBZmolnDXQ)q=>D zhos|6G3;V7zEnk7i4tqQ$8}Vbo=4As+iF2v)heT=S=?@m+BiVC-s1+tF2md9PnfAa z)lG^|rj$r#v0cSKI7+Pb9v1@J@Dlm@>+=D$s|6oKRZmMX>^A4TiB>6*%z`kkIVT77 zbtT@$ec;!I_n>F9$0wg>gIs^0_nSID|ug9pcu zWVKn!SU3KW z`WmJJ`l_=hP#M$MH|!g}UCtQ|?nsVdS?Rk8gjIKa*B65#s~ap;UNVdu3foHQYcppZ^fQ{F%}M|Sy0Zn-caw;vUP0=fOTa6GoisgqU{ z_~`W4L^tn&@6D$)cVF$G)3bKa>FwG<94kGj21JI+k>v1-7eS-BS}Xup*Sd70_dvDa z1NOeio(RTQ3$zPLbWa5>Aii3RfLYOkqbEVNAgml_Jf(*KyjtMuSxIYjZLJn~5~w)U zp9-uu3zd^P9{}pr0ug*pD8YU0$88j}`T9$#n#^Lmh-XLd2cm_}2X(*axk7mbsKrs! zK}D|uT_qGu7h$JSP+kYs0!T40wGe`D7F1=OCk^9epsStGr9NxmzqUepo(svqzgi3p ztvxS@Ut4kb%y&}Vp2_`HElwd0aPCfed;UU0hNIv)pvubbBq4Q{!xS=}CMw*v#PJ!R<|nq?mX z9qi5ko$)p>3#r4PuQqV{yIGs9COe#e2YuCHw1>~ytgb*a;lW(aH7t8cUq^cTNME@y zp|7v%9-Thx9&J4UOA_g?1ONG@4;R@ff8AI3==3anbo$>EKDyw~dV75S`!ER=l|qX& z-1M+CrHvAc^T=F37hOShEnsoKi5Aeg4E(iPu(jocdz1mOexOiPi~CRH#+sL11mD$y zBizb(yRZwqtHl{-;whT|-K`(^gO-)wdk%k93&hQNIVSk4j_&DnnsXe0zFLelUW=mV z;C!_h0ayg#ef>pe0=3{xXm4_xK`_5sAm*Pm%WC4U)dC+nmCHKM1pn27^Nab{0r0Q; zgAn(=`apbbMeWM|6#!?|Ryc0-X9VVJD@w7W+Lpi0I{g1h<3r!%f z+KRx}#SeF^(?HBfF6{7nt*aLE#jln=|`jt!|cbU%2@>g-uYg>Y1FfCq&P zRL?LD(iqfDgS9=LtA=ajRn$=l>L&cPc99b+H3?kLkPTUXX#%&^oueNTDW7Y@wspu^ z1Gn{Qe?z*!vJL0GXDqCLBbLmkX!IRC%Y+C-o4U zP+L32CgcRN?8ELAh<;HmM(n;IU>617FTCwy3tjmus1nSg$4zg=4a0KmTe=tH=z z{wPRq?QvKzpa$Bthy@ju>Zfpz`+><;3$)vt_}q221F%;Mfbu4(y1NA^uTun7p2tN2 z`PG7$@T25q@9YZ1uNFkGP}3_V9MB!Ww9I)T7;k%qfV9L|bx9qlwp#u=Qv=m?6d6O~ z(Z)dlbsdvVQvh)tgySm69Z1*iX}YbTpMmJQ#59*#$dm-2>k_jFra*)MbnWY!q5$Y> zlB6&oT)R7xT{zhRw6)Q2$@E63t2P@de1t$3$Z0j%6QOQUwI|b&VHHwq4|Fkn+LPMI z&}z?<7+~#5ZDjbhCobFoY){T5L$Ez224SAh$na{O!w#tT7MVK7oIgG&mdj3z(4&GawGt5wbe+_bBivYwH1ClS{|TV z0DEe2lDMsq#uFq|3(k|HeyHPXK4P7}fsxgMs;zhN?g3g_5$*OQR8OB!7YR88Gc}fir9(XF{iN22C+VkRj6^@x`ENM|8#rJJQiL z0kX${e1m|!YXSkQCV_y}%R33!>=z+mv&)7=fq>1dAz-u11}=es&8!VJ0s)&@8#)96 zHnAQAY6WV6Q3%@p~f~(!(AHq>=pfp9Jh{!}s`|@9n1q zY+ntb)3b)q>FpXqBPbiEr3*=sC@Os?>bU7;+AFFxUE~{H+e5{yJ=E@D+5{kHjfSvN z!Z$kmvi3*nup1-;aeik)0OnzMuCa_K| zj%09|9u)(1)dKPBAsInpd``94e&RfCRbx`_v7u;+FM1?v^&Y&G&idwUq8JdV7N_mj z50oKj+KQr`eWn0Ro!gsy4+NG2hE|IU*;*DZXAm@sMiKAMO6UEI&fs`HJ#C!5Fl-9e3@LvppvhG=5ZPXG#!>>aEU`Q z(?03}_?UM8UBfFJMpm9uBi2Tj%DP4m6isJ7_-q+|vB%ocY_Aq%{at6EF$`-(&U=)? zU~KyE_FQaIuhC;DwnvyV7~4b1__(YOwv)wG6DK>cxY=ccsKDZ8)&@#$Z3q-t-0a5< zTLO!lSsR1|7B{gTEN*t$03xusY;7!VBx#QEnXSGeDEnTxe&U->*(N z+rBD3r)L$P)7w>i2v;7J9KTNLj9vkQnt=aul27)|2tYx}fzJm!St^Z%fqT~IcDg(a zP(eCtM23xHm8*0_K|R0oQ37D?A^1qG?MDgBV`OTz)%7QeIoG#ROjcPfs8(|ki_UPs zxN1R;WCGwDs{z((E6RQl7h7I2{dYk%wYb<>U%LnLnXK6n`&xS&*_m44<2|pI4)m!7 zdB*4WfT^hk9|Cih2|!j0>VK}BzQ9bK=Zkulb!`gPrt^$9|B|)oJoB9(Z@{Fn=?wC1 z(;5M}HffqdGRtae0^giJ$p|;8CcGlmA}}K0TF3ORCgJ?mK$Fd*fvS*-z~^*SHG|~v z)(euG4r_OY3hd5SZFqXaH4@<{!3n9r4drm1U2-)8I)uF?(KM{v!w8{wwnVxX2%oEM z_V{HP*6q>x4EXj?KtsMgC%^`Mdnh0r&$dLHZu1%XX5bfiU;RbDY_Jx1-^|(o%dO#k zGi$ykXO|6x0`Hqx58gMsY(NrtU$$1>cYak^XIyyA`?#75>wI2t-tvp%^G5&o|9s|( zbl&&l>Wue|-`-J1=lm?AbAG#w&LAb6Z2rIvkF5S5?E{I7kGQ~n{UzTv>GgqJkvF{O zwe!E$pQRCbX(W}NyR-R^o)1US5u5_Hhj@^s+SNK~#1ZdRf=4>X`Mo|iwR|=S`s}0e z2em-0+a%~Bg=xrBQG1tLlo3zPZDw&GSQ43yqTZ+=K$)QeUee@6v@y)P_@lm0tt9?In6C7ddT>`uOxzB=? z4vf4{`hst#Bu-D!n!ofhlJAa~w#8r#xq2Dq@GI}Win+P$w=LDcK!2k@yC>B2x4!O_ z^$nieRXu}y)}9jDa3X`n*Iz$=g9}y*xZt*(Zgz8E(i)LC?_q=vVAQG`WKOO? z*S*hv=TD18eRXzv1}tis4uUr8mwJ)`#o|K!5#b_{0@iyF6RVzG-2#Zz8Xb@OB99LU zsTQY`rm72)pjZ$Sdsz4k{#EaRBRCbT!y&Eijh`NNK$s|??52@wa~_urNUFss0@8jL z3aG6PBOU(NU#G9Yr>^#4QT`$YtQMs3l;smtJwR4h!}YdEcL(n3+@38Db2`ek$-QVD z@IdasXB{nM^M!N>W~&Knu0IRk&AN?GOL7JU)KS%% z>w*DTV2Km!!4hYe4TYQr8sY?&n19?@;>Z^sSt1uEEb&$KnDfVlM~k=MLN9&zHRFvo zes4adjr(fHoS(I0&TrR_83&PxzXtXpi(kae0Zc#MUEbg~Er4_&aI&%Y9 ztHqER2}rQ50F+vz@p`u7U%<0Adf>e%X`dr&tQL1pz(m;S7C>jU;E0*L=4B^G)~F*w z@|=p$-2&j$wDx4kPVpAfih=+XB$;v?khA_S;mtP*Z|*z_;H(x@TQGSg35RNN2#I(= z%G!wR!p61|QB;e=`IIIIW7yK0L41m>dKlj;Q`M&keo$CLa42dhd>+QfI5(u zkjVqqr(>6V{@{7q_frVzFaRRldzqll;3(%BX>eqRx>?<`1rf=c_Q_79>7nyI$eYgR z+I!G2Xit$3xSUSgS`aiu+C%>glJ*cYxSWod37{}!S1Jvm0+-Wuye5=zxoQ%)T)n(U zfrQJ=e$n7)&o3Gt1%CJDGY-x-dB&j(&Mq6M1kRVOjq{BJ*OBvaVZ!-73$qx?^Gu(G zSq}C*eC=B1^s&wi^1-(6jiyv@UtyN>X_N^(zg?IG4|XC;Iln|C9BK2mPW3GJxW3D} zZUxd-3!?fii=4{9u4EpE_g(R;YsbabXcTrUuJoM(YMyn@Ppjj7e{epZEi*e7Wjl9@ z3kB4!-ZeRQzX$lM!%3F#dN$h09q_C9@y}GynLZWhTP<)0I4mPQ#A2LJFOoEZz4abM zlaMleDhUI<)nY`G$SGhvM^=lC@S`b*`@8QuQrpcfz+&C0l-907OMfZ^MYTARCAzUm z5ZTv~ylMNXFd(ffgI!rW+k=I{Xk8hUKbc#=8FkhepM|^!Z0jUwg~~(#fpRs`sPa^g z`U$1=E13#W_0=4tO2b%QYI>*~h+;w9aiDWW?UuigN)B#mdr4)u5M5&U$2sM)(zF2} zlG+~LsmoAzQ;K1Mg;tY24vYqgI~7G;V`~RS1I3++qIN%cUm6bXR1|d+8b1tSFNTCW zS*Q-tE*4r%0t;2R*`+AXe$ilVCkvhZq5<4a7CQSygEJ?E23>yHU@EALlY2k8){atu z=aI%bGEOc`80TlTl+HLmtEIRi2O5S<-Yt~)N24j@+*c#z{H&33e!E5rj>MNE!Ng?D zpnMymU<*sJt{_cyfd`b;4B;qa{p1>8)zsrSBz989H+*eH)goSUWe0T`2q;wx4s#=+ ztgSdVe;`AB{iU4I^1Bqoy-KiXbVk&B@Z=Rv;z_hVJIY_ZNgr!~R4on^9Gohhe9dc? z_*07ywWSS=>P&I)IHzt9%4)%hx)z`7tAS5>T{Dk^K35VO)q;Z6^J3-@%4&h2Ns`7g zA$>kTTHU&jTgWj8q109vzLDDVg0b3))cd^^#L?EJ>ReH5)cHJUp^#AB0`%4CA>O>c zl|njX5Lri?f}sm~3USooCVFU19CeJ&%cRQ?$7+Jdw7y?MCO?Ryj+h-q2NQ#|Q9D9! z(_>u>-^NGP%EZ8qA~(x8Y(qOL?FHHkRkS6dtR`rjd_L#P#UWTu#&HOiv&#ldL9oo$CRmO<&yhZIVL~52tCe*6_*t#wU=eW8N69F?&I;~Qr=!l=nG%gtUIxFc79*Noj*$Bd!Y^$t z!Tl;2CVp8h@IE_)jE3N^wvqtpXE21VJ~(ByAg#_(1hwe(s1~&Et>Blseyr$9Kj;OQ zb*3&_O0B2A;j3Q9ot&TZ!*db|+Q4(29ilU$clpaArJ5X)b0qXq z$7o%k1A3{0v@XzLNQdVxsO6E+25x&wv>DRfJ*Xt68MF;=4wT{G+OQ5!<#-;hbJ`0m zhx2e<&}+fZ@NExQG=STa8QTzUXS9pPQi}FrkQ_RX#dJ{J6jote(H}IFbZ= zowx8u`zb}-SLfsWtn+bxyUqt%-t}}p-)Ndu`s`(`&Z_z4Q)%-SF)(7uWFpnbE;(7xGa1B{>yW^1E;Bc*kueO#E( zzRz+Yo%VfPI39ZZiY8TmF39f6_`T7T>+LHNa()&GIlo;bdNhpAAcY#|{0>H_^Fej)`WIqLKyjTA(iAO7B*?Dgdy=z) zR67{7_W@p2D25)Y3DuTU9b?-UR#NTZB#5Dj%$hR7Khq4w$& zj=&A(_*hl`6TJKk=ZHmYBr60xYo~U_&1e_9PUv@mA!>)$$sY~tb{<3PRxu`*kD>L! z)+XqLI%3xSd<RY{YV8*^b1L3ln1bSq7yO%a030AT&Kulkk5K%dfTA0;9h-pHj?yWl+w~GAQS_ z%b+}Usxz5vuGfu#($k}-z^S4W+mqlDkTh>_8`B6_O6Q-cHulhmO<4hK-zIYD_HqD!jZf}Cgr8Ilxz8pY;9b0Wd4p^lnWCs z`dQ4SbJ33r$D>^VG&LRm2N!J&^n0Tz1Kn5D<@_w_a(=t0%ZS>$9Es#ZWacdcx;F}H zT_G2EI?%4IMvS5qUx^tVs|7h`2oWy$(1{TsT`dMNT8M*SbhUt}a{N}dekTM#v|5mZ zr(#970HLb|-bxQCY8MZ;^&St3OHTdB44jr`CdA>cQfJ>yEYH@hT2T458*40OX&N+z$s;dRwUq(gJfwo$l2&+k9+O^d< zC|?wx0h`t0Dk^TM6%912#Rz?CPXg`KR)=$-$-~o8m+z(n5i;$d8t6*7rju^~TUQE& zz3o#eP)(b7)6t@6sWXpn@Zv6zP@TwgIJf6BT1W4GU!AB!JJsY&nu_U{!8b!Rn9O7G zG4ahHjSxUR)eb7HVH(Ft>Kz$O4AjW@u*^sa3)PuO`H&3A;MvRYB11B&uWML-;MoRc zIO>PkeM7Pqf`y6mS%Wgd{guxK$5e=?E@|^14JHsz9msVC&4y-y^20QBd4^jw{o;wWo@Y0oEQWZRoYb!FBLUeR%uW=)&~~xp~*bU~LEc9y)2g%NKQ3ZhCoDaAsV1 z%}u%bEI8A+>E{Kgo$I8}JN>9Q^Wk3owW;io`r0o*>fsM{#q?YB`rzhoP<(&Dk6$c6uc{c z?XCS=y~l;hJK~g>V#4JfPgdMp{a%0f%J@k9M&}QIa0@tU{p9bx{bRErB&KvW#ev(i zUk(zZ-S6>dzsKg=R=9G}nIp||?G{w_!PRM?x&`agVS z-EK}DT0D+C$#6ou_gVj!uW_p2^l|vNw>qPPPoMWcZo!Ftbynzd?0?mQ_#t%D>28CW z8cv;WAwZo7@*@e*<+1QKMF*8`7g(NJ03R3~eL;>^`hYfs+M23wsF z!#nLIwug7x{$I+`KQsK=Ar!+qweCcN{rx=rVu9~Y?P+<2#C%6Bnz z-0oTYW=b>nmAAP(%iCPuE^hX|%fFbHm2af8#=U(`T# zZ8fqV%87b^p#t00f)gCw0NnxzuNJ&?wguq@!PNo{WM1k70N3&1l~aj$q?u{~&7X&y z1K(zGK2(cHGt~lKI!^@zl&b~tzw!Kh*7cGHxwV?K7CoUkl&NBpg<>hG> z=ZiWVH*y53>*{-G>E%vw0d=*ocYCCwYC*xzIRS*0>dv{E2-W%lz^ld3GJ`NGt$3ZD zMdR!@9M!YGB99&ve5`SamI&Qqp)sIK;(Kt<0IMp&BXKp)wH1|KD9&Xm|W@!InT(j*qTd75R|}jBy5I%S>xd4<5`vSg)plICy#nnz zx7WLPJx0}3Em+KR0u8Y1ibE@(mox|F)q*jp?~ndepuFw_wn3-z;JodYlN=ZKwGYf! zi&66L-tP{wYpYSkV5-axs;VX@rC0q?25nUn{vVnF?zPz{fhE#t;5UY*BP?;1g&o?e z%N8e}1)+qt>KexPXiZynu}LKdj+Z)DYxuTl2852G9Pit*;Hxt-Ra*-8z(Ebj5U+-$ z7nrI|rOMag_AphQR`N8Mq~VMT+NyJ;@sr7o*YJygNM#e5w(4f>K~;ga>OM4)Iw-r) zRy8>WW!KP*!OwE4jeS#O0yV8Bq-a@+m(g92-Smej_euIfOpoqZd; z^=Q1oRCQEMDh-0H;n|L$x1p{Ygy?O$fAAo#)#N2{9Xa14apl522qGpuJk~ z60bp0Ddfp4c)QlEof0dF#T6Gd`P_(HwLTRgXsnBZYkfrFt!i=51dW|R1N7BmgglAA zaUWe!U)K`UYyKsGI-wR8uGjkkhpiSP-*(rp!F+9GNizGRLt7OM*kALweGp$QE-7g| zv{hSe_juN?jSiQ^NDtOpO^6SaFTupeKzZMVtFvNIUKh=I=`0G$+p5v71VROa)kUE4 z@(bbBR)OyPz%32vHjc_yj;}CSotKei*cl|8RU6^nz2M)5Zg{au1YhbfY*y#HAAmYn zGOWYTNz=@SoKXgLxL+yr33L!@tCMFA2q8iZYHO3H0~U_``8HRRL*Ty#agffXDRZWArJ@IA+dV91}Lp>7GM!x~WxjmAsfnNVvsBCSs!z*?$ zTLm!N11xBxLqn3))oIVpf_4+byq$gn^)4@&?Z`JDnJpJ4%=T3!qRVF`A}<&T1Z#bP zk8%3ydUGWB-h9ez_thl2oJSSR%iA@HAUzjqol|Y+wq4Nbwywx(*$K)scXj~CYe@)V zN#-7kV7!z8AS)pS3oGn-5zN+pqwbM50^sdOkK1;$a+*N86-2m7otn-QL3Fj)?zegH zHGp0%(339ms_E1TJl7Gt-XuCJDy`Lm3U!)ozLPD`yjs94wfarh3xW1(frFE#B#-P> z*URmphh^<+0$^8*<3%IYn+3S88|_9B_vyD2u&x#-JTXG#lyBfuEQIcJyYeuEvg+It z#MlT8j8!M+g2G+?`pG#^u9I_xzv?jbT%b1A`cd_QzUuTGav4h-y34YFQG?5M#!(n+ zeHJ1@^;Hy-FQK{WPCTf;eK0XF<8V+3Tre>-qkvJ+-C(Rbk|ucumS=zlQ3y9TKpRdU z{RrDIjCl1%C!EL{i0w&9Whh1*tKKCXJ;O>3#+K4z!?CqaXh253j}$d!^AlK^fz=+@ z%!XFsSl{r8lrZ|&Db_b=r-I7b1lp;9v1Dc647&D&{Tq<&NiJYWw!>tQ(%P3j;Z2az zcTFIr@0u8_y(Fb00e&Qq3D)P+zA{QuH7c5Q~e6=R2~Sg7C0hE(e)7K z4T4t-+#{|F@(+OP^xduAVWVc?ceOx%M30{yFe5Rj1yOnRJ>KO&u)SK~JqM#s}Eyis2>(bOik@B`651j#%JX26c&w_PnJws-3;|`bM?`?b)HC zp6R_opPA4XH!?D*MZK`Lc>IwyKT=69OsM3mI!Kq#I!IfOi_+Q& zOMUZu^QpeMuME=VSqACyb{Qm?Od90DQ1AadA|!~Y5JzMKi*I0u5VhSjao^snI}l=KRWy&_0EvW+K4?2?NL%- zV+N_L797QplWR)GK-OwORKKRHif8lHf)_j`3(6a-TR(g8Cc8F|- zJ6eaAb%5ZGy5@t!o8cAN=$3LBpT7De>vZgfUMZ40kVPF;imko#fGGDT@-Wb{hZZ@+v z90}ZPW^Hic^vR&XFB=T_W!v(Bo8?C{ZZ;CnM{dT22{(IHtmyJ_;bD&h*hq%^9V*}V z_ET=QuWZrfS+?l%cG)5#yUCS)B+c~4zc+(ju&(xMRJ4?GHeJF2>Z%3qSt?gVo~9#r zq*i*3aWOHEZ(?hIBx{ZxngeX!h~HGK0?D+*!uF6@?|wuKxcz_5&NRt!U01?ec`N9! zELpOC)}7~h-p1X3#QW%Wbs-ZlNnih{IDJG&;-FLt1QOc0tL~GQ-oI!8?b?u9`1)l^ z1l&anWStON4X~WA0op~27BSP_(?%Hqz1XTrj>vh-z{zOQ0uCieC{I2xs20nPe=E3U ztF7l~!Oj^GVO=5%SgOVKA@%iTQxQ0wH43Q4S7YAS1yXg^5aa6m+#ql|2gE7IYvk}b zfLG^((hk*@v<|4z{2c8EBHMr-6I;@1!p?lW_rhNYaz_)QD>M_Nh_D0Ab%dHEsOu(CzzyGwHN*AZ5*j z&6^Zk_}RS6@8)U--5xcAZg1BNf(tai&~-}k@Di&D?riOqb0c7 zS0$gW)`+k;d4DFyo3-Z_e9ITq^DAGFXb*^!$X#rYrb&~4|N7<35&$q-pna@jK_$71 z7WjE~xua|W{6!1ujc6=X8Dppx^t!K~2>3+{gp-&1s3?#vZC1dj^tf5cREH} zP3LS_G+MAQF&rZgrC_XvW4qJ2B8m(;r%NU0oFdC^eH!oS!r!!qWB;L{*-Ygd=v=%? zwLe|#*Xopx86b2{`!aSp8lp|oxp=>hs*bA8;oTU!<=J(JsrI ztIKnH)aALoU6%)i-|H6SGL}@ANBVFfR0sD&c-feT4RjP0dfFp*ZEy}cS|jAO_Z+Ba zjc^B2z30a-2kQBi*)-1SBe4->ba+DrYL{sjU>Gf+cIbBpi@cQy7DfwrH09m9Te48Q zXu&r2Ce_6=+W`rq1w@Tnj9qUTK&Td%>p;|q&sr^8a6^f{67A7e*ZY8Ef_%~9v1Q%& zsqqbLv!<%l*+T}m(^>{4Faq>2gHb0emk2e zEk%-DY9Ovn)G#v^qNgSgJtj{$0gPiS{5r}vikwpbI+{?qN!@S-S2CF7!=~87h0W=x zR1(%W=d@R*Y*2*n8D0^-S9Hqo3YX>3Z3dguaWEHPK>#6lx}K(-bGBBJ&$9@|(=nO~ z#y=!6+SCG4S#)91S4jWPxKE0l`VNgNt zde#Ot1-a{3H*(iIY}iqdyV_dG-Ttb;O*`~9yif$p8>cB7K^_rG@|QNQ@Q%QhO&Jv4AVtN53x(Q>^- z51F0xSE)TAYJ1w6wedu;6FFE<5%xyQO1X}XCr{dwa(EY-l(#y6r}w(!0VDkD>sM*r z$Tjff-9%bE$Bz9$ufa~$?HW-yZ>RoIEued-Z5P|Lawn}S;Gk;apY^;X#9c&4z1pU= zYe1~>nEX}Gi-_M%wgvOH>EG0X%1VhC{au^fzMWD>r>F$|54C88kwo003Z|3pQG96? zhfozvCl-VuiXXS73?%2BS&%$m1k>3#-;P3_<-_L>fE{kX+9R<|7iocTK*|3}iS2TR0)^nKxY-874o$gUIP&z?6`IQ^4HV$J^yx;hvp4A1Np#3&I z>w05_ThKsjCa?APzH*G87FRLYn(^@&Zp|fF*b|s<%sq*QVso5Mt}z@2y_JXx*|GR(qKi$J5N%XD_r|Ta6Y5%a{#83w#%3-&2pu_22 z6_3HJ(VNq@G`Sm-(|;_!FW_?245fP%liA-cCesA1i7LNR>4FNm{I_u? zATxHV$u5X+NDftl-)R{L>X^i*FuS|}Q;}Eywyd{3#&Tz}XYFs7{n|^y_48kjO(N-i z2iJOVMfg$OKej~=glZj&jr@&ZQMviVf>ae~T;gPart0^%+Tig`m@L4|XwjU3tqfQS z$&*%O_YsrVbpV2r@w~+TAh{MSD%YMp4#z4xb=d-p)CY)=fPPIvc%PLBSkKHlK~G(g zi^>P*txNz_=M%ZjM6&*=jfj^#1{t*=txo5rd8kzwo=@k9AA-j^QQMiFkEGq&z>(IH zH*`T~9bQ&-ZUso|@Y?=!5#nZ0Nr|??Z^k#Tj#f^0a9U<)#p*XNSY~ntSFOZqN%wRh z#xi%m_E9nJR#fYN?!~JRva9SRD-VA__jHWLawvvXd~)P?LinBbw}?43Y{K`M&tqsb zL;C)tm!2VghD~!RverR!$rkCphE8)Svi4-yRhUro^L!Xq6-+NqOu_VehYf$S_fBrt z4;!*%?_JNjF}=>MA#UA0Y=H5S={2?MlId}v!}OjNSPV|Mr)LG0i*=UU5y9`o>^_fn zncZBymHkm~Wq-TgN)r#>NX`3!A=z1{y6y+%pSo{!pfXxei<1%}UDg1z6a8@_+fbo? zy$cIyT6^M62(y3H2N2WRQwn#DNSm0Q_TbbPaQ2;nmeGRE8!EgdJ_TN?G&^PT%#&ga z4D^f^sD|ByF;>YIV$m{I*S^j;P#UiRXWO(^S|PQf>zY)J9Ip5mTl~~$9Gn*D)M3Bg zBq1{UrXY4Y>_}1_B_@pv``H?5eK_l046@fs~jK>AVTTG$kzA0O{3 zTkyFp(1M?G7@TJotvFv+|FcG9I+cV^hkYg-&&FL7lPb{@Lr>PedISs49b8bC@>o9) zE@%TeA+2I2FI<1Nm^1G&9GekbF(_kD^jCNkA%8k3vQRF~FP!&pt%n7%GccP8;4?Iv zsAj>2tvyS|jab9(sWUvA+2e&88sO_?3I=BIHtF1pS1Fu(y~BoF1?B5m8z#9ml&@!P zXj4$Wj&*bH^$tV%dWRqM>MO4yZ`i)DHs@ZGfi5W@2RfARS-T`tzGv-{OUlC7Rbcz^ zcpA(CQ=g5x%x|t@$^NKVvcFxi1W&{QP1zw^fB?cHN%us$g3KFP5+mlP%HfB4W->{D z`H4O^k$g9{c|HHa8_?6x}wOCOJ?|L2~dHR4* zDY3}2utq2>=Gz4k^;Bf~Id@`m7Q}jn`lb zcP~R|*WkNar;vCEc}taSPG<*I@{-NzFlx!UVsn{N&o=Tr2z}m7*=K)xhGBjICfi0z zbADIScs49n7^4iw6BEk&4l4p1PLT#)syExHSbde^R-kjb)NF&e_T}lyneyf7Iw&Of zpmVwk#wi@oIeY#}*IsNhQAYOz{`Rg3{7s+nu?G$QW;kRvnOGWh75wepn=k|`INiHv zgy%(*g6F+^MnkHC`*kkZxL@xu+^=`oaHimXwY71-CeU1RKMr)b-?O?$=6=uW9+xDf zylV-82PAgt*8OPSWr1_mJ@!X+kNxfH9tRGhjT&X7F>E{KJ?<$t!#aiL+^BAySgiQM zZt-nc?(C|-J8^^kdbxZ#t7boy_xkyrAgx-Uog865`}Fv3)=~o7E<2Nz{EAuJF6@7P z{mQsLy~d(d?@ETK{U9bX_9I_|PiVEcsPso>x*)I$$HN=qu3DZ!09a>`(7}HFV(>Rw z5YebF;oNiJH(C(Fzb*ZA6x@Sqfx_dc3W!)h4US^J9ZIPW`nf6>ON16!RttD_Tp4)| z_##(}<)R~$t^rW%TC!SJIoJ_Osk4UgOneJwi?$=I)5gF1o=R#m+nAoM?6i9xf%*@3~vRC)KOUr_awYAHlkF5rcxAvdUyeC#cRewslVdOaY$%kk=n;y_o|CTU;{d$ z?g|cU*v1}faVCSa8Sxjscx|$kBh_2NK8@m_EK*XSkvgYi=4p^N<48=HW{y*CtO)tD z$9zZ;4b^6Rj|OW6tJK9jwK*J33Rd~<84bP)R{8E34Xg@Q`Q{lL)9m!RZ7lZ=8~hYZ zv$i&-*`%CHrpbX0(|nff$V~HDvg4BTLPRwBnHLh6M%rrrY~Q7tb0s_WTPq~Dzg@C} z)V`%vk-cAAA}NWXw(S52t1$j`8B|aj_<;f%h2-d0q+ocsiH`gbq8(V=dT6#GX zARstekn?*E%DI8ZYH?h}*;b~FsKt3Z%8rE0_OG+89aX^!#$Z@s+ zesx6mt5or=)ctIxsJvV{Ame$-z96HgQ1O#Zq+aXC65aSm!X8Jas^$~KHm1cN#2}}+Dbkc9$TM&V#uQ}RACA=dDJy{x76J-oKSl#QkSIo zmBEE-($=|0HX3lvB%CDVvT(wBM_H%Xyq5Kj^1CK@B-1iBC$sNcLnU=h8(Aunh@p~t zV^bT>W19 zalQu~>{%PGd|4YEZ2He79ppfV4nE6nWIFgPyK%`WB`V+kSde+s`Lj`%1I`uO*dN6< z_P2{|G$q!PtXq`mNH4`bmN%VE6aS{UgXwKYxS^`b@BEMO5a;(J98g8{saV_Jv;5P|srIZq#eg^Jr0WL$zqi zG*vo@j?YyE6*I$z4@L`WOz))ce*N;D;9}HSgX>3&JO_M?M++idPvJOu4ggSFOR}%t z@<469!V{wfRYQwLpr|&wlJ4DI3{XRT3=RobElTWxwQ8}FR9{g;T{38H#ur`=e*}ef zYFiGKK3O?IPVcC@Tim*c+_nV2pl)KhCrdmF`QV|5yeNameqc+05ZmgrAj5f~uGXBFxQWmJ`9jCIw}D z_lyQ@1&w_7j0S22wd{1EQOn+8sAcc4p-|yztgVe&Hs$G(T5_O6EuU3GGPV4EfbV1V z9Kv*?#`QDGx3{PL*}O|K=cf@}NbwGaSVjxBSoQ(w1ALu3S7T(h zh-I{BDOA$k(gCS!iCEMA{y4-kTC`ZqK^7G(Q!QEz>4?{9bYYqL9FTk6&!h&5)nbJX zc9|^BNL@?BkHptf_8U{1 zE&^)h4O;R~8{sA?T~N;0>i+H2o#Z-D(jJV$$!M5|lGm^#oq---Kw4F#-qf~XDO{Nb zbnsH9(fyrnrd==dC%`-N>8BLrq!Z&+| z4TB24Sz8<5Y?9X{-{e4tZ$68dWWM?R0K_8kO%d0g*xCMU-zA)LWlZ)*8I%3(GA7iw z-L7c(A)>PKQaC&^6vC;R^2@zN;#=PVUlpt0)?4YljID@@zY)9n^~*bbkj!YoZuTy2 zt#UUzTCkf<3}?7Twg8CL0XJ20%RSU&woO?ahRTnW#uVj^R!6Y(7xhwSepCQ=sw zQ3vsjS?n@{&pMxX-AXSUo?y03=qRbYaY>z@P0KtNjFpdfouFOTS>+>T``e~#RJQpe zf!pm`FjfP%7Na-{3xHY1d%2UZSnhboM$oz31}dqeJ(dVEJVPRA$Z8>$HrfTNH4IzY zc9?w;IL9>*qZ*(x)?!c$#aeQs{0dbegR$e=n2f?Kby%%XOyLGLAVd08Z>)$YH6$ah zCNpWMq^;T^K{xO!b%_#oWq+!FDj1N>33U`02CSO6I5E4=hX0@lj>_$CBvzLqD5$>FHekmHknF zWq-T=N~?asD`{QOn>kmAS*o(P$4;T%DCsw6R=xwxqXk;g$I;Jc0L-IBD+$vA{Bz)C zY{fPa#o@Zd6Kszb&EF?JmeL=p7I5)+?`2+3v;Z3kTnGKwp;`f~uPs|7UxqXVv_r@9)Nc6WrAYNI_`AozBzH5|3o zwuHJvRTv}~uPYfL9eMRtxjeS^ulq2UM=cOJ=zC@X_-L_wV;iF%q5{6F1u@qBJiV67 zqb6*F(a1fQkG(wH5MiZi6bU#1S?iQ+P>py8S7EVxGs5f!U6}%g+>g!G% zoP~)&9d*f7ZM0BPGOVL8`LM<{-{`(Xve(zJjx6-ydEv1($4AjesB3J6MuNWT3(qS= zHkz<=W$9*_hC^g+zJ_IcAhJ4Nm%?ccb&ZX1Bo5CDb=BcECvd^34dfX7Aq|JR>fkR$ z^f262pB3Zkg#-ZHRR^-5&4z0f2vhP}Bx1o`bx;bQHDp!W*sK>O3CoJFkAz-Brrp@7 z0*0C7gs#R;b=-!o@FqBEYb$+O7}IX4G124|V?AD#kZA{AGggj1O2{O}`aG~KDOc!m zrOz5NChz!j{0`RJ7lflRu7trk31o6xi>5>)Q}h7O|024#!i>NThUycJaWciIZa2i0~1 zY-eKkd$)iZ#qaNml-juC;p-EZKl(LRw8*>O=|8!}Wh7YnXCEIbuJnbe{^AzgRo}Py zSD$A-68e<(Z*H-1S6$EX-+lG9jf3tC{=+Ts1NZOhpKd{3TEFN2@+W6MMTRpwZ~yHU zD^VIj2rvt`3NKEQQvzu@EscEF=0W>pkb z2DTNEl6<1VGi-3jVo)D_VPe=vRy@x^_!TAwe)#*8zZE8b(0RcvQaE%I;AwbtD;VVt zT|+!-YiP<<;lVb@!*8l4C116fC`i1a97Au>uleQ;=I}-jBSZ}6>SE>wZ8QF7!!{m* z>=`yRW8j9K;RI)6z0`zfnUKR*4RSIAhoDLuz(apIe+`0aujnxiHdK2_P@52Y^VLdN`S&em}szk8k<66aM#&B8NZP_k5}}nxd?aia5vH6>*je&*1e$KlAz5LrkSp zDKIGqu>t8?k>kp1w9A}8^k~7_UZiAk6$u~~i0|NTHpxpXXk0Y&F*L&UI#PY8XU%p=j z!m9I{zbo9t0FLeDA(J+QV=XiRct5eBTHCfS1g#9o;6|tV|MH0q%I>62$~(XCF(xdt zf=2~4G%#brW=N_&>$)l`jemnSDvT8r+mH>GS}`#GTw z6x&Ac^Nz&kmB_}#TD4Qxqe;o7I92I7Zh>8LIxzBeQdI(a@qL3OB2oAkj5&O~P7jx#<3NabpI8 zkjwVn==Wm4htKm`c&rWVTJ2t;D+Ql~wdx#e971FBIf~Wh*ho>$T6MyRVzZ$vT&p%= zg?xcw9JM?PK54Ml6#tdQYpU-q=fC+LY=`Udn+EFMU;j=y(<& zx~2pwjs#wsXz1tBE)AWlJajxN4;^n;9@<+;$bi0AdyGNq*oXF2h+bolQUKIiGvXMz zvY@0|34w}}@t5Dxz_eOG3iG=kWR{u)#5L4jF->+5|CC4P8)}$-0hDR z2hZx#=VdU`XhC6Nm3`0GfRXC3Q$C;{JP9L>7O=&OXm6E1(rCe_@lD@bSaFzoROX&9CTLhXsQRQ7_o8KMz5pk$&TPlj(q zWNNHrVPXI`QLeU@hqw2Opx0V-Tm(Y5#fW{ z*e~e(*}ltf=V~e)kD5xy+clM1+R}O4?$jN*9vf8&?ZccGLhMzeG=izwA<4@jT0rJh zktwrP-VHi(3latH?}gG@qs0_zys~CG>3x$-bT6dt?JvjT6{bLbt@UuI#AHcrZ8S#O zNKo5ofopjkRG5O=MvGRTXb?CF>f5Yd#4VED;(&g%c=#f#FhJg8aUZis# z?x7@IYOUB(&EGSCxsDtQTA(ViDtr&o0tB_xkYoX!)sb5pOSXpwEVscDg@D2r2bAkD zDz3@uyUhaOz=VkD9Iv*;WQwC-{u{j(NE~{(P2v8A02$!{WHzae0Xgt?L zG6$E{wK`LN(@iRgDO;U-BP}{Lmru9J8q+Mpu^G+;dDR7NH^vLiZ_H3_MlTBTs-tRG zDP&g-?RgFNG4gCF0@&WLUl#Af4K4k@&%An)>b5(N6%1pTLQ zAo0V78h+Ry!Vkm7dUtNHP%y8Kb@LAP4%@Ts)XJXYf_c>^H|Et;=u76sfe!O}RlDeT z)-H1GApk||FFYPE`z{AiJ{xuU)?DqPV{i26d8&40 zpiOHrEUIFZxdzClLqI9*yjcsF#a3*O?1lOd_!V2B%T67l#9M%|*osXMWU*2!kSn$# zF92U|m71fg7ftZK>JFHu7U=q<(}HZV(H-(AZ=IY-0NCjOt&()rRITlq0{?Uv_QJgd z3hF3awPbbP?F1OLf1B!ommAI6*`by>6iPd*yS7!q9U#>wedG-TX07kV<|trm)0txT zoSGTpk-woY^Fr_?;9vWEh3KnE5mN=f(hgg^T_Mzx(MYdSIExI92ze{{RlE~_7aI6X zgj{_%6dChLAT%aRhC+Ui20wn-aHrr+y#X+!DL7Kk+VG^{NIh$Vje;ZftPLFsj?}Y; zBlQm3L+&)j9%w&o4{yPdI@f-%gP4;1V}Th*YRc&)N8&(-BfToZb3BXitaiH~hG?`u zMbW>OwY{o=i_i95x-?gX=Xg}%Io__qLzQKOkV!Rp{&gu$5K4Om>pje~10=;Z#GjKx z8NEyC)d?cmS*bRT9N~{&c1T(K?XF@Z$sy(EM|&grqx7zq1HKY|>8^pSXaRL(lP?%# zMg(F-3$~muEsWVHDZmw5wHj(7e3LD}vS>lw8I_tSlT6eCA^hxG1m$8YBGwt^?o9G= zs1{_@WCjNQ>Btd|8{h0XLjiK7BiAHx!Y^+7Zm91E11iz#kh=n|(*Xrwz#{ zlnineE!ap?UYH3AAgi5iWwLF#g0$K_+b1n{3PE3+^P&+Lto>_gvd)GeP&$9chKfx* zgToouQ9#7+a$vdMqQ}D5U8HDAwWT(de-)AyR|*m1%c|Eye0Ma z4%=hvCwIp3ia<4K?~*`qphKWuRh2oORb{-YG`Ayq>1j9b^JteY&DD@O9yMf+w`<6t z61xyg_4O*s-X#%2|8~Uzbu<49fTSf8PD%}j*J0)n;E|qoS;-NN(Wg3CfRVK)Loq!RB5I6x66^Z4Y}vje6Ghj2G0X zW8L=OdWY??b?#%2XhDtYlbdg;X-JpUhyxvJ^s1oA@%_M=>X~q$moEBww9Aa<%9k9E z@+HUH6~`7m4oi9~Rl{Hj&oY5F_^L)M;P`is#mfX5mgyyERW2h><2B9{;I z#sMzY=z@Ahb{WM+$0IMY8_L56nTna8*L$WNkfGRWL*ZJ=TVzKKc%+Kw>)jPxZK!~# zXhFCu2BW|wwYZQ(&~*j@WU@|M!I{1V%t$Rr#W0>@{Q&Nw1yvB#gOm9h%t&YL&wIZM$hNUAs&ToWaY4=rEr|rFZUkuks z<0$-R24)n=Qyx}i0UESXrhaH*KsO_!Yp_?=ZG%|ppcG;KhI2DfUj}+JKDLBWBB zH^XKLJfdSY6NBK&N1J9qY#GdWT_k zy~BnQ1*@yAmDSx}75!)jUb8xm)GEwsZbj&o4JZz{{x;rU^+w5fwmf9gX`?4*rJ4!yF)o3{boh2uqu)0^3GB9g&&sD>?8`FSqt2u?r|7g@DcXQP-?vLsi_qVHK@ZQ^-{slU} zIBLjBOBIKuD;HGKHXKv#r}IWFxZ3&)D8@nIOb7bL7Dfi6vqtQ2O6@Zb^78huB2TXb z^;GtnjnfFPd9M}Fix$Y>sg6~(mnjxaE=_8$=6I+-=rta(N^u9ciujUipl_?OXPJ5d zc)Ad8>i5d5@y~9tkn}l-{*r4nzATQi?Dhfyb#yPc!B!~rE?S^*KdLYQPP)Xsz8;G( zdmG)mXl0i%_humr^&t%rD;93y+;Y`k4+I%zaAZe?{PC6S$o{yGqmwZLb7$d3E~!Gu%#Rbc)-(YhqY8 z$?f!2GWH7^+7)~+o-upzWF!i{*RzK2^$!25e;B^kvxe_=4&%k^9yT;7_+Ibih7w=a z#`l`wZ^`#K(BXT}8WXlGL9=I#iHqGXwu*YJ|lMKHmopZ7KPL2$^{IKCvLCkt5=L55M z_#gelhAo97u6J?+6t_0?C>(K}lao)->lkHhyNB&*e@V=mc5O+_IM5+x&ms$%m_3Uu zcyJiEBPzM$gv=l9yHsti?85y~cH#bZ*#-6kcY=p5pMSF~t@H}j0h~?Y(a+8%sG5$$ zLS3)TSQyx6jd0K{kv%2WX6=z)mGTIQz*&2Wb%_vF+KKg>-bgFeMnGU}#8_xZVU>_6 z7QBw{gOmUOFkXW&M-2wc;|+a_7OgPGTBRCDD>OMtBd9o=N>D?3Gbsh^bR14Zjg|Ns zhXVhiMPqgnf|WNn;c3wVC#MRzXZ8q6>d0NK)MUleeB^|pmRqhmKKCVWpz^7!jc#nx zE1$OE0c4{^5;o0yqu_3|AT)HSzYlARCJ(ukIBSKl7x=7`uqc}>1LtfOBs_uZWkzPe ziLW`;r!7dF4)JEv_*LMX%}SF$@$(vXC06i&LHwUe(OFK%T4s! z7HL?%D-h9i&Tq|G`t_?K@YG_M#Q`4bv$C(EV3D~j+)ypn(Z(^{(4I%sVAH(=p0O42 zN3t+3m0E|*+A03rqW%C78?Qlu9`PBUWjvnFnpUYOEFgzE2Z#Zh=gc1R55QRm=s1L+ z=P<|*09#G2TT#J^Z+LxnG`gYM$py>x;nC8;t-}Q$)KMK1Rh)V{NG(yS;Dg%7@jf(s z(1%4RQE?UcpsqX1y{P$MG-*mdeidh(hI^Ga&P@#XS`>)>%1vACesS}Lbu-x;eB|mw zU^l{=$TbVzHZi!H+@;n2j+v z>{vIaVeha3j-TAX<)zcG$>Eknkpmr~_^dIIiQ==yfNxoHJ1U+1f+&7A>Jr7d$^!RC zWr6$Kl?9scKh%%N{sk@dV_S1>hIZw+i^4-@7m&ti(c%Mnw|)IG=K)-!1%9Nnc#ngp zu@%mdLp(6q@5SeJw4gZO#@&DYGM55P)q>Ksed#j5)Gg#~QnE<3SjF|)bn=t5oAn%x z{=U=;z^Y?KCBqm)N*fR-*+kt4*q`mmbDw(aIP~LP@?WKvmb$&PPp{ z!E6DGj24eHm)r_y)mH1a_2(J1)#re0qP*hx64zEM*+l9jw7G>jss+KPeF+=B*L7~S z>UZpi(Qdwv#L7RmZ797^Ft%*xd5Jz7`nZp{k@x7}QrPx9?aGOagF?0jVm5>&j z(6|ou?u$EtDr%d;18WdAQPTY*Vc6KwX&^Sq4Hc8@Dn+J=!C1i!;~6KpVKgbY;k#!v z=qkA3yJs|@DjbWQE;Pqt@34VS;aKch8>qbGi%mJW8|kR0rO3b6AMEm{@~VGLit zOe(=vT|Y3cIMMlY1Bw_eporuxbx9g@Q7tHQ+K<u!C$pNYq4Jw4C<(B ziRp;%qSEQ8b57W4w8&fIP)D6X((>a<%(*$u>8KNOGcK0d8(^;E%XeD;zCK`*I$XQf zugi%rjY+D>vSk72516EmQL6=#^;&#b)D>Ioy2BlHSjIv!a7P^${ZOpDtcH3EIdUa; z)P-XVrVwH_q}x0#rO0G~J8Fl=l`IVRP!7+oNVucUV!=TT+h+2I;f}V@bx?{xNJFBKI119p9U zBq1QvVNf?(>?n?~rT+EH)ELl>7Q|j^nTtGYP|9f0ypBS8GC_n=>RO`YZXO?KWNZbE zL>xP!Z<+&uS1r)>?kgKYBlS7JU)uK$0>x^vUWMc3@qtF_S~@itprnyD&zd`vSrvG# zv(|bZegzMMM(QNM>r3XSLrOk$ZUv(2ps4gw;WBMxQBAJ*(bhT4F`DqOo5*v?BXwL% zjIkhZ3FuUlsoF<}N7^8bD%XA()S=`w48`R0Sx2lrGftf0k+BgE{LpP_ScfuGxj(Hv zWD)qbx8Yft^K1wvpz85^1G9X9AG$YgD8WU}cLy9Wwc>o{`DqvwFs2yaLn{ z#p>^l$lx5Y_CVfe`!1WDtEX{))YG`XT~Fg7DYdtd^!vjrc-W&4n~c4}5y`LnrUqnH z@&2}!+t#rW1oF}x3N}O_X>5fb@`eKP*RLdv(W3bwg+`TrNVOnCy6*!6RMp}{qp*8d ze4DEU-H1t+d3*p|?fI#p1Eo*W#tNrS*E0wDMvMI$kqrH+tbni18e6}a+<~{T73DdY zgOMLnm(0#%)1|Ty$Y|00kY^r6Kv!F>x4{N6q*0gqeIJBg0>f&tty{hmh@!T_U)=Xl z0>-*#R^4OGgbt#p^SP?5OidJZst%1CE%+dqt#fs2!OtE&33ThoBQg{}fQslz!%yDq z*TO>@P_v1Dq4u1JqTfq`Fofj?_hJ~Y6l~TewRN$h)V3v}2Qcx3F$3@0{Zo8iO;b2GJp4d-S!u>swT%hphDCf(g&ui&6M zpvJs2Pi`DEnmCIzJe%lN%fjxR(TU)z%$uf!UGh>6ba?5rbV=r=-w!NaK$hDP_4wq| z{5;xap>wrM?vL6f_qS`8oba@5{VFiJ8xaJ;O%Z+-k3!zD0>PsN1zPVKxs}K!03I#y zb)oXyr7hrhw77jkTgP53)(_x2T98eNu1r|M*~`aAf3!I8z{#s9(=VW0El6O>nH^xc zwrb_#x_1I4RSUdh{qX_GwYS7xM*3d*G}VH9oW9Qv9M?IxNzQz8>DU|q<2uij?u~Dy za+_Q&uFKN50K}sOFQoNL`-vrzuK|Xu1qtN26|k+VdcPDQ5FoX-qDW;v7vLOQk^fGm z@$Q!$*sK-=t>!s|hH5KF?z9~yICZ#&9H?7)IaB9P}<}H)H6kcHiHN2NiRo-vk zfUND64+`{r7?RyR9IMJQ;k0UJ_n8mU>_m?0ZQNi{0CxC$Iq zXRpe(H#CEWYZg=SMPP6SUo0*T4~-X}kx@4YBWi3&kQ0Vkk)49L%gDyB>hIO!B(+e zBKvB8s}?*ecae#%Hsa;3S|0tt*YRlTutBsx;I_$!C(05yzfOTL$M}K zB_yhFBqtavgA{(9mWx)KEV-$z7YaKLsI`F?6r<|o@6uH6gKCacWASNCE&`|423drA zX`L7#%OeB+nC3{y8tctX48RCVEokGP{pr4z1k{E*d*uD%hF=W#P~XbHjD1Lr!zga- z@BVyPnpZ(J4bBL$$ev>Zu$ge)fB86$<*f=hQzDsfEa6%9$HPv2JtnGYj0SdUFGM4> zxzrC1QhV>|MOvD!6I!Q(FPx@l(T)Xy0Y0 zbM<7-M?IPI?Rqk>Q}7%n^89;RT|cl~YbxaOVTMNFx)wWtne?4RzsT37rBbmN@h&3(`Z5T0O~_s#st7e3--E6zUscX0eiIo>-#dFV7*!#6y)o^!hw3b z#vy7snNfoDYJuoLzvlqGTCmnfE>$00w6MDUfWhi~T(5=vIjHaRJjhQ1^wq*#iJ9|) z`MUa!O{z^+5=Ul16h!Q8z6LJ0`#NnaaL)^=yNLlGdsK?81R=f?D;%K)V7L#|rXa?KU^8`+5`>up zx$p*O3`;DxF<2e!JSL5@DoEIv@LtUhRU1a5tX!p_tnn%@9jZ<5y`-!h=up;IWpK`C z8JufMX5z^I{ns3-fwCB}2T4EMcPZ;!VVv_(80UPuFb;)sSA@5ZoiFYi`r=;A5%AX9 z4V2x>gb=*e`Wxii6dU}~h+z2R=*Qpz(DAhRG!Jpglz!7_frABE#qi6F4tO?;Q>6N; zJb1H!lE-&oW)mQ_-_;g-p8El6YtQLJpD)8q)nd~G>D+TLJ6g2x3DGCd%nJZliz_6j z%W**SXu-F|Dslk1=de_@Sd_(=epX$4N?n#A~wR%4gdGO7#A3)P7xJo z2bVWUBRD|5wX2jd7-zf+fs(^eSOc})Sxi9y4b=$kNW`abttuR3UQoDJ?dcw-j2W;& z>xadl4A~Yu?*55V@Kk$1hdxwTtImsgE(`ytf!ppJwulmj!|EW9D+Up=PzW%(B=XxBbdMJ74(g6v_6LFVQc$2(8z*4X%L4h0T*WP# zxjE3DZX~YLJUk$Kv>=G$yvKJ=m2WQ=ybCVJNW#gc;I^#!PN1mqPWVzLjV0WCwgAba z1+n;-fg27WR|~|X;?$NDRTmsdO??q2U|cPR+4G>dJear>5xWh)ME?MBwYVXiT2WMO z#b$+V&L)*lTXD!WM2oxw42bLc*;XlOn4M%mdbHSKECQtkFM_)2(m3d@E)Az;AiT~r z>b`@GX%Jo~j#8VMA{vTPw!2W~CrZ^OsNU_@>7k6!;1&(ca09k@nSzoU3Jj^2As9qL z(|QWep+Oj7OG+aPmm6f&9$20F!ry0zwju(bU3ms#ycLwx6dTsiQyqLkJ;tlt`B#&* z5DqXDt3yN$xMni747sSEmFCpB6JOW*)R;W^6N);$`?WBhP98HId@g9HqLj?aPG)m;+I*zc$kKR=*C>*u>E4B?WDo z_9X@7K!<|9s!Vh~D-&H)Wg?Dbzv)*$Ow}D2{cPVQrE^7!&PS1=^M5H)gxhA@*5}{D z<`Pn>Q}Y_$F=6hwo_2Nw}A*L)sb6T26^NzUa-j9qbnLiJ}q1UG`I5;J0~vN z#7(VzQwR<3FFQXtu5~5g6>*F*&ji$UjIOJsBxD*6rbi2y#fEs)*Dv#B9I4TQ^!cl} zPcm@_-*v7@wjPO#ibeY}mK6Q$LI&&OHOM46_Wm`1dbL<@Eqp8oscNgst{$-}NLA-x zk=Tzjb2XqoTC@$|K~OfpZ%_&ii!P(iNXqB@Mq!&_9Bdz^rJUCXM#)tsuiaFH!d@uip2@`iQnqZj1L z;EmLpVa%c78_~YS{lZdpInIPRGQ-q{7JqXj$aDteGzi6FI35e1cuU)bP-+tFf0$W@ALW|to* z9xd41g3rc_6e;@lG_*Rb0WLF*1jFt5;X|Zr0fg)59(;`GT^Zj4!F8;T%-4Wy9i1)7 z5!hKlY#kj{U@A6C|DUrn>5*p1vFl$Eq*Vh#cDTn3NQ-&C|D4frrSo zc72|t9fzp)T{D|j`@4~KyV1p^BsHb1f!*5zJN4@4TQp4GR`PM0)~&qJfl$3LBfnw= z79@=(odj3cpD?z|ma z6DI#bQz1WW0_2BHZTzrFiyt-}@xvw>j$9@X1%a`+^nQ?CG`_ZT2p(FgqsuCFw8*|df&L(`OZV?r#-&j&?mJhdOuJB9*C!F%(T zpw=q#+#eNr?oU_bVUP1h_DZ}(EJa;TXJbLMNb=OP?_?h-gg)~WAw<@mmYxw4IkHBl zu{Y(@lOj#temhHMi3CvA9l1H6lBeJdI*9khCSr5UA7Hr=<$!?c&?@F{_2L}a6 z!h5I$sA$36*>O^S{FPp?Xu;d!bSsxxb#7AnaJrLPEy!P={bPWVjv`*t_@d1uff7aw zb~5QwT!t9LQOD%0E01}F5Kz)FnFjGAq1sy@K0y$qq@6u!I8P3@LR+=7y5n^)lzp-w zx7u0V{87YF!BE!OX|NWmZ1=XvvVu0-tyK&uVvf*jz4&?QKNC%o;b$NUO8F&kx?ad| zGkO%2>DEdnYLl)-|CaW5zLe%#mN6@yaRrJ@$O_DgXY|7$Rd*Pq>JEcc-C;h}y2Bt< zci6PWuiS*h51VQfNY(we=|O>1owYsoZf(zafmF@O2U2y1?XfM8s(b!Fzzf7{_`XqOgxK?x z5!`ykYh;rM_2ib)#PK_2X@Umk#WV;@$BhdSze;vXS$lj*H(TxD6VMv%RDw=!DXp1s zqmW1IIDx97#f3l>@q?6sY+7W2ge38mm&4Lfv1l>Y{Ujx1NmbE;%$7=SnS{`~XfXnA zWR0|3TeNxrsZzP!0TfZk>YkHUAd5OWR-G`rl~79Us}>O&S&#B+qW1MtTnG}XjW(GH z#o{1*rQMSRnN|1{LTjDX2&RlRXs>p5TC5MgvKw0jiy_Lf5j%UQJ{yEOnw(#3ajc*k z_)0In2zeTUCEoj@4L}v!tYi}gsPt-$!E#!(SAZ&-tSo_6`7`%&^YEYRic0@i*f!%MuT#95jYf7?&-l~a1Jq6P6)W6AX6FH;jrrm5Y@u@F^1 zdzlcoXhEirgY1yZ9y0VUT965VwB+rbKmyfbV`;9+UTx!}Y3}lJ9O4))D88VpIoSfz z(%#;6n_TJ1QVTW=#1YLFc(Sy&Y}!aThPLW-)*&3b3e3v{Y3XFJh@nh4D6mcj+2>0I z&dQTzoy})OnXP+;BMN=iduhvTMQk{ltv7RChYhyU4$hrSCZ=UD5~yXSPHi4tW7=&w(6{5tM0I= zfS=r+|AMW$liQPBuvKSmPjJCjjrGVI(jB&E(ogO%Q?nKBhnlS(2R>!1akQ)o@_vB8 z9epQ%_scJN61$Iw**9Z;v~Sqz@pJR4AT+~S#s7c$r+@za-~Ri*eEZk`_OJi)=Rg0a zZ~y1t{_!7v{rCU-m;e0dfBXCY{$GFn*T4P0zy6=U{r%tm@|XYe&;Miek0qu9c_EHp z{~KC)r?%^vy2R$7(nhzJGuc?%RjVJS(~?eC0%r6Vev~g`)Qt$gVM~Ci{Z2@)`Qd(& zF8gqfFTxBsKUE8s0Pm7HA!FCi)PgJ=#E-WQv7f8Okqjc9oWc6>3$W|*Po35N?y82VT=XpQkYrf?|HAQ&UH>tPEK?Q7mM@?3e zW|>s3Xm>?uQ35vf7k>m0atHrvXg+TxBj+2{M-Jp=|%#s-ue&yVbcOXxjpy^xZ0C{ zV~@96+oPO->$8)KGiyJL)WU@`>v5m~u1^YG4710&|Iq{0zx>jA8Mcr1EpROry5L+7 z;Ci~y1wql5QGS-3hg1#XWnw|-h?t~i#`m@JMoq+JS)y-J9kW;xOs8dw>h5l<)aX&C zv%@UARP_8~fd5i+_n(nn@gJif)1;?VA3^BRyIK&>Wiu zW@!rc%UP0JWG@s77cKCIU5lKyztUC&o}4DT645@*BTkaJzOo6(mF|HBL>tqikd~YM z3Ur0Pioc@87*TQM6^<(((PI^L<%39~?Hr%(BSK#3)CgtOVLM3bxne~UvDL>cMkxYD z)mB2ESNa>338JhM3z?07MMi#vT4xqji;Q(sK8rMIimQjRbe>q+(IOdw=@sjkN-71X z0bM#%inUHC%X_Hj&3-f}OYd)SwP2NY(A<0lBAR}!q`U&F^p0j{q9;rMwe;fWyvLWK z_Qg!-zPTJ;O~Y0Y(L}7kw0IGI*rck!w9eW@$gRP&&KgYX4*$MC45oF~CME@@HP+wo zW!4=wMJO<>v*zonK5Upa^6!?I#(@UYJ}K^id*y*?UIl@xk(9#H5(U!@UDmiej z2a`Qr$zjw4Auaqz6p?2n(>{>3f&B1W_JYNZjz&}#w?@dCHM*UM@&3? ziugiezEW7z77w)z!75N*(2k5g=$YnsKAt5zWeH@O7JFnUNZuwCEVd&1k?!Ry77T4R z;ZI}ZLKwdE8|as%yw+`V`8NQvXu;M1eTNr|hdw@R0<|}|%>#f;$A>+hQND})f@*=! zMD`NY4lx~F(ggROITTaJO4Iokzk!IV1=|EFI*W}c4W#RhMHsvfsNCekh)FZP0o8Os zt@LP-3l$NLCWyc^r#!-}LwYV2EP*o{#e(2m7RfA9Bos?CQ9+`Ld{>i|#HQewj)Nu> z8Ed;9UvDzTCfq6XL1#89`LxiP&8FN29E)vMvSgWjEv0<$F_{ybiP_2q0&q+pj5)!X zoUIU?=~;nj@gfRD>kflx-C+=|J8Xhec+xs+5Uo25qIHK&F$zywV?8`+-C@&!!jo28 z8={T;v?Zc(ph2{^QU>NP^KrqJ|sqaKiV?dQYiy|>A`4Emogv)7ccIQ zaNVnKRn$I^_U93mV(f#~#hwCbM3&u5-cUDd#DZpwUe1ta?Wr3p$yL+pq_rm%YfNJ5 zQT6G1C~t5wqCn*0Nujz;N>Y`K7A<&HTxGLiu{}|L5Ys`N7f45bbrk0gu!sD` zyf(uZTX@NAVwF@D+mLSFUfV^8mtO9olgwt;l>JP%R??k9W!hf@xnlhjNJ~THd+lGy_S&1fdjObv_Nam=jqyKv;h3}%OtVCUKN=vV(o*+);!O(susr=FfKY7^PWo-(6UUEl%#^X z*ou4?ltpb36sU_9V|`UUXF0LITby^o_BtmcpSk)QqdG(`Gv)V|;>?iF3P>94Dtg-efR3LPUYEmimCEGdWvv`DN-T#jUtU0}fX_ALW0CEMq>9}M_(vVFdg&%AQMKN5_w zFm~}|``Rn&n;a$;+tE$UEY0gSez|7X6|$*mpKs*o2m+9)5e$ zxIIGm69pim+G<>SdnIV7S?CtH96`sIv0AXdwXf@rpsEF4sXnF*J=O7HZ(@A+=Bq+Z zqXjuO8Paw{QB%EZ+_JtD7-AYNh_>XzW5$Ozm(H?2nH`JBYqTI~6}Xp+J$WmNCS=}6 zSmU|2m+MJBXY#z{ds{7zq;_e0i2Ozi)?al&J8#iIk@eml_Q~=zOsIE?XT8Kg9qTjE ze0uGv@~98v=_;$odAGU}k(T8ZE@sajbw zHmzDDKb@#^ZzNx{(WD?hebnd9O31G}qY2bXw@jf5kKnV{XnIr-V$+2|h}~fbu{&&P zQY_`x)<%dU4{k|_9B2sfEqi|^#JBAIn_Um8CK-1Z2=TprONdK}{Q2z%AwHeR|H|4U z3#MeUXDpE&g@*3O@sN}kD|ukxQ?Qj zkuS1;4tb3hgp*w*w?yVh)Kx8R=VQ4UHMSaG&8NtbB^ByeX=^FHd?T7f0BY&rKd1jP%0aDZcETmVYC>92}oo7@t1!Coz=NS>Gn)-kYH>D z3EqoBp(w1jI%?_F{OgFW&Ubb@=lPD#YO9e5Z$^S@K|Y<{vx)NB{Z!b@><9_!-Ql}$ z!gvU@4fa*mA@h&CBHB8pQZwt}k#>?q$Zb$}UF|FxQBC$sL6R_HY{hqVTgkC!!d3v}vln6VR=5u1 z85aREniK%}>={kQ3V>{WZ~$a?*tDo{F?QBYY@eku8F_n4faE{}kZ)xSGC;nSG1xrk zF4Zt4f#l=G`XK^d#^9rQ%a2QC3^><=AD=E`K;=ymRS=7I!v}T2MdTUcyi*&Ckrh8` zKJU{-mO1l^9s(OJ28l=l{LDx2W3(7m1mw+?IS+Y_7Ppa$HY$H6PPA4nt|4v`Q7L!a zss#`pb-&0C=fA-+V_&rrq1E3Yn_u)}mMp1bMIDFUQwmE)i$@io=pV>EM|ABD&WgCB zxzS>_>cf4rOe5*qVNA6k@H92T z!KjV6*8H%b!8VaKvrUeC1SR!$ZZc!W&IE@%q+0I|3+DZ5_CQG;?41-x`f*U8q>eT| z*a_nz^EyVCk+;xK3`*Ka7Q6{O>OdlS@vqoP0zB$8H+U?F&9seLd%DNC@O+xM5$!vz zMPceTc1=iM3f?q%!vi?ow*yMX?&AShe}_Hmy@9DWjd=qiA`w zV0Q1KfF-6z3zloNOjAZ-lssBoUUuDXS}uM^iz{wUHtc--W%NSF)q)Vg_*d>jjuue= zttd)`a_f27_tEcf22It1eK36jLv&lmhh#oIlq1_}aU9<(AAcp9Mhl$N7j-OE!I5^K zsn8MbK_)jOTrDSBh(6aEIPfog7!s}PyR80;Vu2}pEsH%5WR|BfJPm?zsa#fF^Qyu=Jme0)}6R)Oe zygqdET44g6#$REXYFbFvRE_M9Rs}6PgP~J>2sM#-6YVRRt21!$dM*=8f$7Q zM|f)SX<@>)g5&V0J`|QSs7TxckLp8VCIwq(ZBxW5B2kmL&Dk0})fui|7USkQj+@kx zIDAU*rh6+PvV4^5+_fJmoYtm-D|sqS1{X{Q#_FRxW$Cfo`dJf`#1$GgN&FOdN6zXJ zcRA4D?pv{rjJt2eI<~ywCuYZf|7!aft+Y-1y?KkfOSL+vhWfzWr)za=hnFLpCC>YW zs7Cf?+`RZ1XAZ9&6jc@=4|zue?}KQuzpx>uU$f-h5G_b?O>OlA2D}bptFhTvycHRi zcpF3ur2Tx4>{G7fM+^Ls!ee8h%*Kazfm*N$CMrs{;8ma&H^K#4AmdG7778V$Csr-a z7x7w`xewKXpXkSmmx7P3+>mmEw_5D5T^OwVA;c>|?>V0F+*{rP+KS-E7{idy%S%9K z9N&BW#(3TVYC-gDjK#=T#VbIcgX>*BIr8k|4WJg(&dH;Q=xeLPe(pyR&5ss@=^ak- z(aGa8Fj!4U>6xeUaK&mf>LTWm7`Pjojf6rHvsgr)qV3TH-O=xc0{*~Vox&_DOV~XF59ooJBA&1p00@k!?Fp3sI?6j)NQ+7Y#x4}a|VVT!3VO% zB)@)spcZ_4;}b5TQRTeHm+LOuF7g}xM|$4Duo8`$-<>~J3mEny`==|0m8*hb@!^E& zUNNj$Kw0tmsG2g|pxIty=KaL@aB#tlW>^xdpX``#t`@_vhe> z1Hb)N`9peg$S|L-{g2-2aGWHj`jc9~u-m+KBAXzx*pEa%0VLW@0Lb-=@g7Wx|Gsx!`isGCmllF(M{rlq6GhVisqwtUVri zRNTbmj0oi^D4U**(zfzfgjr;9o4SjWx@C_#2wS1q$Hf%XYjU=b)(eC+1u=vzsMn4V6}VPF-PL4bN5W!pKUD#- zV!@j+Z`{xQW+x!p<;_xZ8a`O>WHJQr#&Gcx#T9AIMa=qH~WyQ0r=vcGho@G=-*j0?U*ffy`shVV6j)hYe zIgiaq8LNK80`-t{o4<0~4@Ecwa;}qWltK@GWfZK<6#`$PN#RuFn_O@GRi3Ll(7^8G zU82Hq!?0>XiHH(gwG}a4m9y3EvF+3^aLZJUPiuA0 z7EV!eD*vQ0Os?)wB&j zMG^eGCTBctQ}Q!C!}U^PtLkcjwx(Gt^)}&D9k}AB0aKlU^EigAU#Uj}OjTnHcXQwZ z@d0A8kl|r~sS1YuN)BEgzQkzqDVUDb?j@LVpaIjj!a5mDzZ@U{(+f^-S}ox*pPF#k zugzO9T`RS-Jxc9tPnX)clHv~E>Wwe?3uz|-)C8unQ+&VglK?-!G+LaGnuwXqMr9e31Q=OwJrgCgRs7TYcqldlRG)d!l7x84Jbu&V{J<9WWL<=To}jU|A_ zRwKkrK&9HAE&-yMZ17Pj`+!T#!531c# zbpV$Eu=$=&@XrK|Mcz@|zW#>$$-re+gRRJFr=#s##1qACRz%vv}kai{7tdz#`fV&~~ zid0j2WAaNFRgV@Vjv@js7-gtJ;dSITTup**iq6QpwFf4zb~_MsKPj7|!q>0~ zv@sjHwMWY1`C(v+Q-^M5R~brf19K9x%G8XIM~ksJP1Z}R_*JoB&wkpJk@DBu4Ze>2 zwI6?(Zc+GnRr?F|4*JrR=)GD{s&kghUMxm5lhhl^ql@^*-vA~?h;?52*PCXwB{K@4 z_IlGs-ZlmEl*(Q#a1j+rIU&_}S{Brf!iO2K@ImMpLUHmaCJaLB)#79uVXCA8Hi+{T zVzl1I{aUQzBk!>ldqwrHATs1#N4|;^3?ll7*YbT!1)!LsohYoJ*OHmWB#q^HCB4Gy zXPQPF>eL@+vPO33>4lldVWN)0g7lzPy%Sc1z2FR!Ix!P2d>Sd?hAnE7@5=Se?-J3>5p6Ow?A&OF^{pS5~$*nZ~VU5wNFz zj-DoYD`i7X^HwqMd=LdQ02W^_EV!-q__q^*^u;^=!b$m|83|)8~^wRI@_{*@1 zMBDHbwL=l**oenu2197Fj))ersv-i>WbL4QlayXBG}*>vnk@+`)&9r%k?AAPq*1eeqmBrd^{7uCsNnpxK_$)C$h3 zGFaK2pSqh~lUPmtV6UcJD=-3k>Xe*cnCX}gunE{&38i*`LCkoKD`zyl@@q74^1~)e ze%Lg~51ab6_*MQzwj(& zfItmn=WpzD+RJ@NQqq9ZBCO|z#gfc#)_&|D4&E|rj~x2>j~<}P_qeq=un)`LA*i5M zk|5}{-;n{cMGL&Jms|F{B7?CN&fxpGT=b5u_%h#Q#k5=ij~0AU;$@C+g2Y+qUbGy+hmthAm`k;xOe)SlmF8#z!= z?fE5b6R?jVL{%-eTj^oc&f2nJjygkawX>AAFrTEu5DIMfdAc@i>~vmR zHX}Ok9D;gB6QW@BWnK7yf_Od@*jEAz2Nqzb55|0n(xlAactD(vPSH20Ew(ABEgmLJ zNdF4Ql&hA0V!kH5nz~fRwxRACO{rEe1z_vW2%N>kD`zy3D&Va9L6aZ1Hm&i)Kv#Ei zQ;`C?I&0I10=hbDlYs)d8tW0#*d4Y<*-vhd?Z;t*u929&gf0#=(DhkWqV26J(b2Al z%aIiL3yZ+-?OXm@t4g#zsuFEaS0y6#+}MVUD~f1EQm7xYFHL(zoVIKkvGz!owkQ6E z9CRuY2$wZti6mxs%kZVe5Jm2P89EjPwQamqVOTQSIztW+PFw4@IN(;)^RWWn5Xxg0Hl{cK;Y5k8gsn z^dXpohl$n7x|B6~V5*=A1QZR1z(TdPmBPt4>?ed@?Ys8A_Zo5$so!E#i z!AFSj<1f2-(4lBCYFytUT;&Bqq$yeuo{P^fNP7Ma)GAu+Bb|FjB}7Xn72EhEO0imA zREw=hn~9of2X7krl{bw7KG9;7L-VwQtlXLd#Q+Wpvd-?Az!1aOh_xVHqRVK3 zK5A!mgY3Yuj6rs9W{EOTQMJ%yK!qO%D2f)N&b<6(%s^{(9$WZh!8_=$Uea0yY3S#Q4O(Y6p>a6(+>JHnpUJz4fZBMa7jXkk` z*q+XUn3~@nt9bQcBc_q2yCfzKG{p2-DVXi86wER2Du@Ze-*y!QudyKk3h>^(MW(e{ zFx#UR%=UCG7*bf=$c0Dw-xJtG+?DkT(a~P98I%x~#7VKyoxS!_#W}}-qda!n9$*4C4vMw;{gtT31_83z0 z79-_ic4i@Fu@U)OPena$G);5VQ;; @3_*w(D4PvJV1~NeAm7nP?7ql?u_*u3Lhx z90vt5Y1bLt9Hk%<0AF^*=WWDmYf=R)V2S zl2!l>4x07F{Zpn;D~nFBk=}?o)4@y8#NWQAPz5h_)}}pfZ9-G-C=uT{p9dcZEd_Xk~NpS#DRvF zKC30Nz10$NzX_KkX`#O?z}aJnJiIq*A!)6G$o8lpvOQfvguRrY!FC~R>~uNZ&bfk! zb%mgfy@^gjj$+qG#thNpj1j1j4i@gM^PZhd)`(@gd)%6&{Db&d`<)FI=9EH$^jcXU zjLeh0JV25rB4@j5pWOqYiWVpKDIR9^Ld1eh?QA=Ya$AM7$KPP9{k_OIjH<;}Bl)LL zX%22e=+uIw2hmrS*$tA47NnmUg}=>vgaYc2jD#@S!R&8}77U5jt<9+~&`BMVt*HMC zFKPcyvl3+pXtW@&fG%a_B{eiPT99yYmM|8u(#~ErJSTg>P+slq;N=3Pth3YNYG|@P zAM-7D=(Kis4r3;kmG7q@EA8-nbr7<$xvb1rgh`o{twbc5maQz~K~{RZ=i%8VZY%s| zQnzAaTIV!i!d4Ji>{dZw-C@(Jg1|a!Qz5rD{V52nJGm)KL13M=2}nU;owZ4WTbm9P z1lF8<5LkEEp6r6aYHKC1{j*9Kn$Ryd1UvbNvnS z>t83e!hWF^qdce-TF4%!U#bPf#*eg&_batv)8JL=2~;d5J%1E_>VM-mKDrmJ7MR!g zzEz7e)dFRauUZw9s~V|XCh+$=A1k&U#G$HOT-NhZNHqncTbsj}Zr13JJ|NSrd4KZB zQ>CzaP4mT;6f?bjrDvae7~uD;Y+?Dz}9`DIs(#dZ}t<-YGX)Ux>$3zsHj zB(j*&o2eSpKf4Zpl;lL+T1CwHkNw`6BaDl8ciT_gWKMXdb1S&^GyRnn6H~g(Xe!~h z;At9`8LhScwO(#!wAR{m$E|lkrZ?O~Gvhp_MT)(%Bq zZ>TZaNV{8k$#xDjjP_Zn2h1KjQ%-idT#h6(_OPq3M_VFWtL(6Eqd3|AbY%x>@DM+P ztLgpEumvrPeYlWscM=bdl&QrXgCHW+20^hnKyl~8)m~LdnPf{QTs^?O8v& z*-23@JL!RRceXDQt%{9U<~T{zR>@?Va+)x&Sqzr^1{rU6c>`3dh+;vWV*Hjx43@NF z#h4(ha5FNw!C{)I`#QVfD4kkRzOIi9gTpM-_enCm=iZ`+YB53ti^OBnilhmeIKEm@ zv~ge97HH$n7SVpQB6_Ohb1%x6qN+ZK0-D(a2#M*CjNPi?FI!N^!DjMJqsfX4TL`i~ z&60xp;f8fb93mY}2+*5uJ~X8qsrVH;s(cSVVAEeQEhEc8k+{s{YbCEfBo;f2r0T_& zdjYha*YMqb=HtwcNntk4x1ABZ<_`cWY?U0kX?7!grp$5 z&e{ax!`jGhq^d2+jsp$ZeO4=Bf2);nN)h%PNy)rg@7sI(mi5+(CG3x43H#H<5-7bw z`g$V3-u`>9&__!se5MG@$6tm8#M1IbUu9!n1`@O~T2MIsBn27rZvcMLf@+q;zz4<2 z_=QrM1qmeDe!zihabb&Qu&5SF&0;%FxER%pzk#n(%OF&N`8HM?YiptBd34cC%~ie4 z?jVwBcaZ$0?REhaGg{z2BvLPoRSr@^Fm+y?HdzqO_Z&cs79_tV(OAMgpioK9NU`22iegwaV)oV9ozl``d8Y(~sN=4w z`Kq#_h`0~DEO2IjCq-#(w5*I$!J!bM4)F0ZtMtGNKu369?-b9S4zcVODodoA0)noo zh=bFvNg%#)br2S*%1i^v!cr_}o9wM5olUxDJ68)=r3qhI5(+}p2j0N5z+2P0l?-JN zqRxrpv?gz*%hLpHWe2P&+DcGjlC-(Y(==^m>D&ZvEo+!PCvyZgxhuSd@y7UJ6S9IS zJ8P3Dr$Un>KWx%dFlF=G!(CP%Hl`eDYfGl&K*N+@3K*R2qL99~$_88Z7RCg*3wsba z(-#J9nR2bN!TzXhus>bd0DvQ=4tL#^YWCZijPq$lR}+^H|5}`r>3xl$YHDRlf%aLg z(9>vfej&A)O#Ad3h^r=vCPRJvXwTWX&{j+6tw}C2cOb25antIKB~z-!{U&)Y^Hrg< zYC-!*Dpf8rv*2~rm%u`Fb*$jSIJ%j?k>F@?AuGES6RNf`q&p}+<4lMMaQqG2pM0vc z+=~9{ytJ{Y$7^hL_Dg{r^|2aR4ITVoMI99_#Cj-9lC;TZY3WQgZDV#RkrsGq;ETr zw%)BGEt|<3ai67cQ6EyHq+;iaDH<834Pf%GK#qD#=XFC((^eociQ3%h30LZc%{`bV zYb$iVCjmtW9D*^;M2E zwk20`pyA3d^#uy9d@DS#WnZP{(*81WKjvaumVR&EV&z)hf&Ec;V1K&q09m9)F4-fA zHrU)sLa|iWb=OW&O*J|y@@o(6wOr@-L%&Li^hOJob*|U^0!D3PE2QMeWrx4?`UfSW z1zn|XZBUbp0%)yTuq4|%X8C4Ui<_pJs5ZO$ZydH+U03f1J7HQkE3zA}itsDQzIElI zx;nZiau|od44;Uu-nH{Z;t2B{M02CXSV<@J@Z&GzDw3;niG;Or_T|w9CDmfo%4}V^ zU}dx*BJ6z4y+w=lIk>aashxdDv0AVzDos(S(jG7BZM3IFk9ETBu|fyYz7eZ@> zQl=(!$(vO>Bz44248HTO2^}H5##!0Kl#ZC*>6RRmx)l;Nts@DyqFIq956aYuGsYg4CB8Fb_XE*X>q4TF9uhEOo*Ta|<@he?f7DCZpRSj{*4~i}c6;#L?Q%NXEJK^EQ=`J`$6v{y(Sol#-8)<^mq!cA zaZ!_@a%aX?tm2$wP1Qp_FUlM(c(34ZYu#rEbF>(MUKBAvi?!8$CzIdDUv}gn#cIJm z?Vj*ZV!ih3V?WW?tFLm`nZ-uZoR;vAWgSsn6))=DBht}=A`d5tdn@;^=)JvNPq`Jc ztgYC4V?HkX;Da@FmYt4Lk}A&zL^)cF41ls4ov#W_R*Rj0)if`WVSPewR+Fj%PqjF) zN34CO5N5UD-pYoX^c%P{b;ePzIL^4dO=f_nPKTRR2)^gF_u3XXz zpU9@DcvS<8 zb}NcTCU2vZjW9!jx2A7IO3yMaQh&ilQooUgU)&+u)Q*(!(^?)TcM#$<&=v61VYNL= z1reLztw6LX9^cJX0au%!7Lve}_MlZ0Jfb6}plyoBsOHm}#%&8_L`>vX@*A1rt<;6( zTU&*~AR1Y9yiJ;CBUFUOn&>Ui{Qy**MfNMqBJ;|z#rkOz6TJdt<3)T5vLpX;39=k$ zK=w<4i2`KbDo<>wit8RTJ-^MOz!J%s`rf<+*|owG`=jv0{(Rwy1F2~NJj!nEM+$c4 zJb}`wQEO86(Pr-l>K=z-Y*#E?qo{jqMJnQpIE6}QYP7(2agoTo5@e&r<%Mzu8CMW@ zZ8a)zgz21-8f}jjRAZIR-G>Z2NV{5Wr%Rtq24%P3I34=f2!vhxK~>&9P8D5Oi{mcN z=G=2+UGKpS;%s3VXMxO6l>BLctg8i~BmKt&BCj* z6R?u0lVly!9d)Konl)!?6EJ-DQw#@7b=nqmZ~C>6b82v?KL1ld9vrHwZr9F}ZD99} zY1s-O^YI;jZ&h{DnXED=fAK`I!>9& z;~FiXWCy08(v6y379l3^0Fo;KM8( z{BWn*Jw8t|$WzW%OxUciq*{1jla|dB8kn%L2&aX93b-|u!<(#r-ogP5x9Y7RZpl7# z+?#AV$E}cWsd2;I#Ds2TTNxOu_eJyjR=)zq>Vsq%5eiSSX&upaiS!Gq)hTYi^uh}a z)!KYlGAv9?`by_=5<6Qv$hjE?)v7!h)$)#VL^Tn_*Ok5}3aZs1nuD;3;HOkO@{yNR z%YlY!zf@o;sP?Ti%bvGIX5dmiUi&6e29LuxKOiXL@<8+ z%dc!+0MP;mDx2`rm7w|BigGr6WGj-d7Wf2vrbhAYO72o_I5RbZuf4@z7Uihi@}w4& zis?xWxz~Ge;jV?}xr|d)i^Fz_pF$4yP`nK#x%3=~c8=^_?Dr;A3gR1pWztImY; zt|(rjtW68u*H(CQP1S%@O{q|Gt^UfiKK9^RyZef@b(nzO{aCS`@n*s}*qO?m2@{Za zeX$+QWR6=|U@0W4H_vJr)Fi7nZ=dd2gJkUqojPqHS-TVJ*)CkekgVPbixe*QqnXsP zmsJU>*ck`O#$UmQt0vs({M zE0NZ6N0m;2t8VTpoSg8h&H=4kUil(%Jm@Vw%ST0piSVo5A*x^6r$7-JpeEFN&pkFl zd)(FB%0!HH<7z*ei5M|sV_C$n3l@#nMS3_TpkmS8l#6xxY1UL&RBuaB_;Pqv{b?+D zQ^#?9_&AiBJ`u|~U08=Vb>8QQQU4WFC;}l0C^b>Kd5VJ~Ce~DGh5byHC@eblVwx@; zUuvY(!Ome21ybrb*4|KUGj&_O!jL97GauwDNEuC5+?J+M3mLfvVd|vK-=&3fRJ(74 znZsyD&Zube8DSnjs{%9*d`_4gebksR7wC8Pw*%CzQHK2PI1&<|IAMN0+7aeB`9jT~ zsg_XHf1IT`X3PbWeS@=iI0#fgHF8xfq%FZs$JC)s2KlkB0-z5Yx zY4fHS3WK9IQKCbzg7#9h!c(8Ue#~hg22^2gTc4< zz~LXA!0>O~;)t&_jnD7A6{$=O$_)K~uNHjAN#@-{b`bu-@AJhfS{LPkWcEFFANEej zKlxo_UQB@O)o%j%eJ3X0r2D2jxC+1BLqlV#sEch0%0%YkN*vJ)F2AQ2299gUU*Wei z`MXlvRNh==8Y#IgBT8Q8N`Z1ws}e}Y$adTAAK@SsSkp+QJsULsoFw{0SMOlLw}~&Z)K{s z@++olpAziI#$WkJj~r+S_Dd?6hOQ6p(j8>+?$|M6e{&UUA ziMo~_zhdx-o?CnBi<`F>0k<~n>rNr6-iBRecl$9ETPtx8F%@5hxjV>rv>;>2ZQ`Co zy`#m5u9Z07%#?_Cv>0!}$tpeC9WD4c!5tB9OUbR#;!&%7%B|4?Uz3(Z$Szs9RV}Dl zpGOp7*C}<^w7A&`1*__a-iBk+JXHw04kAUxQzN8YN8u*v*~Yh&ofbM(i%pkrGt(jD zItoV(ip*Dqj;jS##xnOI-8vI(H%LKbNVg80m7*+|2I?Q~W`y49puIfg)e zP^#3W-e|hoYWh^B`!q!Yr;=~Tamqvqr@X%N3JfwFonv5QT^EJhX*<=_wr$&rSp4hBck{R<1|A zDKayt(jnP$8IC+Xta86ORLZsgFs}dTsh+afn9egzZhmn#eKfeTD9dZLADyWrD}n9R zaIP*(ue{z&q*K7=bYJ^iKKvH(T~VRR@-~(%)eklb-{Q{={1Zm^v%1&F69h?s7S-;J zj$ci%KaAJ&X8XZFVneM)3B@N zWdKv+)qG2~Ro@mEFGr8RL|_t40zem5PjUttxbdFr%kUGQr`np+58GW+10JJCoqu zTFK5prSsp}D$_vI6%lKjEpH&Sd4OPmUz1LVq5OIQo zTH$T%pmw+o?{=KYR69{qNe6MwVKY%bimypd5{FPs;XQ@FV=hU}6dZw2a33U+GAp!8KhtT-4FwrNk5B|N4oW_w+k1Lqxz2yGxO(}CGK1_9a_qcxe67Tc z7dagg^-y(IPda53QdW5lt1CNt^w_d|e57n0DCNMXDbW!)M*rG-Ck8*D1|Ay^dF(`z zp8VZmis%+9tWcXYJVEAEV62{oF`A~rjn=a#-4{z`kF%$A%<4H78 zNOo&tpTdS=Vq!oduQeK6a|q~eF7Uqx-skWNrxh3eZr0vj@CsH6f+@lvo4m{G$c4;1 zx6R-3ctFQKIU;-3z2;8#p7u_*@#<$!Jhl_--`m`p^u*1~=Bx&FkE3Vmc4wc~Yebgu zC9;vtNBD!APa$*j*1gs$>kYum-`u!<`Gg$T%agZG@94MBZmy(ktpT2q>Cs9AdYkTi z+mYLQ7>W43uL_mpxWb~6#a+LSl_{GfDZK2dBU6?wp;zPRMHI5XVbXV}IrqR6E^cDc z86$2_g&Cp*L3zj;4BJQm?3g5bU>hjxj4ItZ^rgk%O0LGMTFSAUv3gkqA;f&Gw zM@k0{4tE^KMWtC8z51aN@7cv)tUZIGWsCE+_*gABe`5btP2hbBR32ej z7+al7WfR}9A%H|t8(XjBsxu#1H%Lg=P5dD%7i|WY*}}PkvqPLsjuUtxwN^5c5L;lW z)FZNy2D%w0CIj@s<%WVQhYrk|82HP(=(R_Tl!kWcn0>LjUdH&&mCITtP3Hmhbh;?suL65U8cz^Fpw z8@tx0SimLR2nQZx;kH;(Kx9Y$LJpiq2_v&Qw(kQGnBqpZyEHV}QZoU^p9Kv0HOdXd zj&qbaudJ}7u2znDW*N z*1ku#)e&eO&`vD+YUA-lH%w9RfUZ&{fCb4E^Tv1z=posF6IiELtF6|!!_jE^SSPZv zwF5~>LK51Tc#p@Q)6jlIcZejst8_kMt;$RyN$NN)b_ug&(38ZXZoy;8`OqY!R4B=f zB`#}?6tqHLeplhNP3G39;oo-k8?V^3x(%L;^JnQ#o_2~@t_Zv^@#511)jI!Bcvdr@ zmZZ;5y+2ym6D&kx(yLb{B<1O(M`9N4@Y?fi!VAo+&%;l~5^6?OI^-!oP`)2@J5&E0 z5=XV$lEPrh><%k=MAoV9-G6W+g55utgDHEEaeKlXhnBMZ>f}-v`uo$2V_*F(6*zj3 zMs<-B5{iIjSW8$!ptL7T;fXiu}`z?ifwCVtbx?^rnIUtxd#XK*H z0%LSLjAytr&ZGvzNX|b%#6V>xQYi%-1@!J6;xx%X~*d~`gucZFWF!)#pS)O^)CA9;&ipP z2>2e1xYM>gh*F$Q|u(l;G!bs-j-^pz{?-&HSGD87c(rErhbqiivAiQZ~qP;`IIOt|As=}kLG5nO#$ zY%E5p20N=rfS*y`be2OUW3&P2rO{aqV}6p*OHrIp$#_pKO z;y<$+jS;m-a42N}G9Hd9+C```Yk|fHG6H6Jt+7Eq-U8Rq7f+C{dV(6evX&6^$|kHW zl5xG;fEiF4$(c3zG6POD1VTXv?OP51m|%sQ5OG1_t#4~*r+#S`)-KQ&-qIO^I7JF7 z?BD_pxq$u02*17l*XFHY*D_rM%PtXoYr<1Xo@<7+=ZsDEigDol$#6Ulh~}%=KY<&4 z5$+gFVVIGV1lhI7*D#LTgYx$h;bE4<;~B0i$NJxlqO;VNa7J#$%D0OM%ze?WAEob~ zvRP2+67U9Zw061eaACccURLdCz65aMOj_MeV=U4k|*&q^l9p-X#%<#G{sO55BbYkR>Ld6Nn zuOu{Az%+7M($$-!*G-Vyfvr_^tq@qOazexvyRZQ}9Wpu);j;Pl%@yWaN8|%}I}lWy z^UD-f_@J>8n*xq@q2T|5v`{Au{w2*m=M6)TDv;-JZ;8{A#-oboW&7VHGyf7n$Wdz_ zqLNVO(V#O~w(W>BzJ5CVbD{;6DPHtT(i&;Oamgz;tf)Bg52$nv@3N0!m6V zkSy+3X7#?UvDnvevao42I%Kg-s3v<9o^$z6SXM;xN?zHj+;eu(`(2JwN0`h8J4$k; zp^T33qZS_vM1}jQ)x?rrqd(DLUIofgB0~@(bLZ1zesPK519O|%WpQ|3so9D!e~S|b zv9P;1aiIO%EPB%P8z&VH+#)fP9RAgMvcEr<2K3rcR{Vlt7XtY0OTvF!O{v@}1v@T- z+ObUkiXU5svmob_Yt>h$ZNPBm6C>L#n{uYRe~4Wm+=$hA3*-~njR>lS69TCs$;sp zhKx+jjr48KG5#AF1+J*U>RwjG=8~s;lysy1J~7+JKd+59Bkuy4=^sBbh#8EB>I96Y zIL&Uw?IOj{=1S6iQz?}aWjf9ulrHIfqLI@(=@0+XE1~?HJF@MVdbt#mFEl%zRkdO* z1GLu$T(|a7{<1^Zaa}~#b6;jJBW@q``fo*Ea=q-j7^BJrWACdLX@Kt`?}1-wjlz$V zwS<27)skT9)R;rpMcnu$Zu8YL2r94CGBusL2?o@tu7fl_5}aYd2vIam`mL<*j7!gJ z{J#}`KWtR9SnW0c4e=;Kx~^U@BG;ML0Uz1rvSQi2HN|LHg{S#w@jZ7i@Hk=Pe^;m$ z(W*HyoWY-rQ6LtRU$zLC0m@iW&SeA0Kz{2Y;b8e~*^5MM!x5dscK z(u@lPSabrrS_V!SVbO2tUw~Q_M5ze=Fux_7m~iMG!BHWRf6xl$XuLOMHbR~LKGsF4 zks3C$zEN!4{#b6H^f(>rS`XL`I>sG0ez0%mX3#4h{k#3!C*`_-Z~G9t@yuL--nz$7zSB#1nUKf9_NZdj{{HI=lYO!>I9?f1AQV7ZR!Eq*Q~z7 zih^%>R$g%kUMpFtGII3@iKgy?fUZ$7Lc+WFUcd?tD1fHWc$Y&05-jq1h&&+WrHOb` z=y|>Vf??p-zme_Un%C+8ovQA^QjG?#17jY6HX-@5QbRWnOSHE1Z(zUgxCX!)m*3vp zxp)Q*=GxNJWYOAjia7={Sy)EKCMBWh*OF|E4w)@`4?^V&StHz*D8*JH`%Z0iqyn}_ zSGW<`sb9-W!OUWRm|CxL-Lxd+SsdBC&vZI-#*9rUofMRIzq%=dv%2er-H^pDG!+nC zYKw&$`U#5pqvmrr&Qim5Vds6?FZ`Bj=Jo5>Q zN9Wcio;M{N&3$&)5^vlB#oeIEz*zEuEbf|O(=GbOuXJe9gO%;mCq-P2$<2r)qH4|! zUguj2WunOd<97b$Pb(D(-c|wa^JVG+B@PNA(D8iCTUtF8H>`PVhY&1)J<*xb&8}Gi zp47{@pPE6_wbAznrD1|#5|OIiC4xMM&;GD~!F-Vc41eMd&gamPp9uKw-tgF9gKP`W zb<{!@?~&(uRuk_m1BRKL8QzlTcH@!yH@l6+L&RO(880SiQe@hKU~Y}WE|&2UGQ6pTSO_`fZM4eY;4E=7e2Sa&S0-KtC)HJ|WK{vw z<&tj1^dZil5@GXm-xV@}1M@!`pfKL({PRU^YE|u>;InW7<?3*lZ&4lXmL5Cap)= z%LQUZ+wT>JL!aTdgJ%8Z)DH6vC)ML3tGkNmT1TVhk=L418cNM0q$gks5{rEznXl)O znNzRidKae+luFlX%7V7YMKMpU2dXg;q#tGIzFf+!(Y;KESWl*YDil8Ma19dg{v)V% zkiK~EyuqZdK~jzaA5i;T-&IbnmHbOA=QTR{c&lMCsZ+CuD3#^xC~A90tZ~&|gg1=g zRm-K*^;^OUIg&{er~}<*i}t3W(TeY&^(DHr6N_-VYEEWBphIyhBjb;5$!u-O2_F7{ z{k}&|9Pp!SnAwrAksnzZ9=?5LI|svoI=d9mxa~fe&chxr^oI@#-g$tL7N7R1L#ekE z_M>v1im}p?#!lUd9iLYXnxaN9qS)WITBIAbD%?mx29X`P7&p;W;0eLaxRSj#Gh}`7IPeJ(CrY-uMV=IDR}^ywj!s`>N_rs zzn-7;y(W*_wdf;NQ-?o<4_ya0CKJZ1gOnSI=UcW`q7To!h1LFb9{GUJ8|fl`(|-Xg z9kAqs@t6E67$74Y67GSt2LonQkQdq!4gUdf@Z9~FbH=-zS&oW|2m*w5k$y9f){*9R zJaDh;R*sRw?k;B<$dv9PMWIxx*76nkX?TFM&JP@ZE_{qlPhd9zQy*VraxKV zMg6y-0iBLxyYae@hqHa}2KJzD6CYNabr(8NF%QcA#=c$OhNL%~L38p!Ejm3)WNs#c zZV~O4rxFZ%VEF^3r4)v_D|A7_AUg_tbKrs=yPy_x7bneDIyi24Easm3_G&d!!L?Pb zb@Z|i!n_{Cza|0}TE};%n~f zE5AdxSsJ)YBZec`M|SS(OaKu}k~wf&T^j{=Z7D?T0W=B0{O^c^AJKDVFliB8H>6IE)fJPQP4wH7G5^l076-~~Ui@eQ5}hdw-FC^W#M+Gw$u7F` z8Qt1^4Q=ph6cr;f&`V^~sv46ef1 zo5PV&c3qm`a^o%TW}?nzw#qR|kAZ?%4DhKTpX`7GF!!|js)GNMDWHeThf!jV&u=#t zsVSB%$S=s3e$3Bct}O)Ym3HW+qzdFL1%-n%@3#=?&IN_L3%^vrq;Qz7 z3c^i+&R;otd(`4Rod?Y#R(>koQA1n^ZrAlFWtLiulO6eJN;JF89r=Z)jT+9-FU0LA zN~Vr7vJ-dMEKqm&PVRN1e`=g0hGU4QkA_gyM=3m!Q8ylsqszRsm0B6&_K?3 z`jL`VBlb+oPSq_m_JTURAaqA2!i+jR=FvoGQi6O2RPy+1K0QoJ42Hz%tA^VAx@2m# zVq+7LcD&Asq{Zcvz9bU0O3qz0YwU%yM*_FtLX~@_@4Uz5#tlr{#L}FA3Z53B zcJ$PONQP>XE(3QZw`FP^ZlPjhZk=++BvEF3ncgiI`p9(X z+WZ#Qikiwck!UsAgi${H?@}7N$q69;=4x;`Qrbs?BkBT5F(*|7dyxra9aZ}(uI&lO z!cN!ORdX-2r52Yc0A8HS7Z2|?QW$)$fp3+5Yw=rhLa8QP0O|IeYV_$+>tFppga+kI ztwD1_yQ~q&VBV6g;lOLrjG6^TrSADnQPn{vyI&!5b1-#~D&9qi>1c8bPkoHNChkXt zWh-*upc0#KAmvxxqH>jh6F#Ox0nvHt96VL72>qwTL=d!c)})1;9CMP1GF0Ugi}Suz z=ApxYw^u3A#{^5BY37T176iUX!1u6Sdt({-T z->%OM*118wn~4qrk9nmJiykB+)~SY0@n=pg9ZiyW^8Ix3nRg43Uyo}&f06Hnw2)1@ zM!$LKEgos-VwT9C)|>e4spPu5?vWbenui?9=3-I>lxv3^iWwNY>XOZv>;~Ew41D^} z@qcM z64UC1I;X}ZFT}@uBK;O!UlCXSTGu~Dm(^@tNuxM7n98f2Lu|t&9;tpGYeBRc@Ve;b zkPI-f<%-lkuE(5mAcmGBGSdjCU5m+3seH|J< zZc0Wl2_;-lF={MYgX>ES1QKbpI-AP>u8cH95Chi-=fedQ1{&q#mU-2?vn`SPb>Adh z3#TN={-_+)Jv1yAK>A6d?aQ&$8VJte`k@iztD$E0weIEwuMTHp__Ca&kMv|TlsF7f zHnI%UDWSg3D+}n*e6bT`lKVJ^w%Q{H0!h_!039eJL&xScKFO&CbM zAMpTA#LFCy zYcn^FmuFNGVv=27fY2CI=>|RdgPXc}|9VJS_SC(NTgx`uqVecLVKdA{6UEnM9mT4P z)w@RzKqT5={Kl90U|K{ch6D%V91l3~g!ze2y1rLEb+}^&CV?g+zUMW=svY#%4yajc84JX<-YgT1jiz=_!p+;~4daTQAO8~)2OLPhM!Kj-#1gIA>wBz(fD<2H z*slO53uZ$md185pt!XPakS9>}wIOTl%&hUKzPsm!MWcJMa$?ON2C(Sv@wpBAQ`(%H z(yhl*+DzN_cnDjxZ>9ecpW{>&5xRl`OK#>+BDqd4oS6T~>YKT; zX!nh)zH$TIjxw)PX8lKc`ryQQkYa#)R8+AC8%~kjE#;ipKpCI05ghkF2_d~AX|e@S zbCs@X(|wUrlWE0yzk_Kd5dy(m&>GqF(PxqPR$A6hiuIi6sN!p;6SP&h;%5clXI|Y9 z^79nqR{hMbUZUq8jg;p7&%2@+!_pGU;QHJ_$b0ohqH$|Z=Xp$!R_!YSq-z# zWh0%|c$m0Hf5DR4i@#Sam5OKYrF+oDz!Byz%zS$`$)0Fs>MKUk}2znDlM(mikoGVsv_;?T?AI`A5qBP z1EemU5|QlmP9#9^HY|kKvFEVY)im_*iyHz9Xc;3VmSRpL-Hst4Y&Nay%6YZf-fT!? zE9e^wEJb^)$Kd^0-DHknE}dS*e%+@Vsb#gX&pc2&TCT4J{i;gOp+lOvw= zF#bz7w{OE}@9Qmz#@dxzmO{iCe%n_p<+q$Pj3nl{p^>(YF21A@%RPBn6CRSYj&i!7 z^*HRTk4gZIoA0eoGAjO5A=pIT9J%r9~%Y zESZ$OzoC|DI1;&13pN1B>^t;5OH(hM*tl<8`n$grVbMF7Cva)a%+w!Q+*%yd+ws7Y zWMtm2%WINuf4cgdV?DlW*~CN)198;)tW>|jK-1d5=^5xmEfJZW1(86+kA$;|#jwr8 z*&iZn(o8v9f)rZ_Hgk}~pwwyM_+oIU^sipZoHyL`tz7v!ODk@te0`;$U>LEHJB(sV zB2w8`rn7zpK2+m04cQ*KTA3HwRc_dDO$9rlyu-9j>*_?z)OD~jLdtUiWd}4$&!tuw zFY2}Wz;e*5?{5p!@TmKAJpa&Hd8dX!RH&WPV2a1|i%rza?I{8tG>2VSLh1H2pq7w; zlXz`BZa7j{VZsbxm90h?Jc(XayE_b0Ol9FSPGJ_Hs7?sKD6vcn1Z%*&nnB9seKAZV z6|!knK?b@TJNDwC%OAo?K}M3Hq_AZP;IzpZA-T6n90 zTY&mK0DNDY9a)zLe&HR_>=~gh{wfp8r9LC&@|BMQ-%!Aw6Po2xvlL72#f6dZ7_@c( z?Ahy${ZC4hj^0|ggzJ2*7TR=P*;iX&eXoAnQ*WKIVO=&0 zG&<^@^0{0)HA5-77xKFsQqz*-mU?9Q7z2iOT_a*mmg~PxtZ7Di{if7IGn5H}Uo9on z9|&g1OUZH^^t|Kifc*-|40HIZ&RC9IRN8k-str!n~Y{+qCa*wsjEDUz@1j4A&(X4PS9WQd&pmI z$;%Te&bbSuS_Jk9^D*fPFlf&@hlto=k$L+BUx}HXhP43OkF9)hvC??;g4gi+ZRdRE4x&ki+2|Z zt+$_)<#wF9FKcLe7zypgnc*)ENR6xaG#SB-eQswwQG#k#wAnz9HDlSD{YxT9fsE%8 zYU)G90qt18mN4)#%0QK$UyPYi<2w%V94Jn)@m4QTP8Ulq6wU->1vOk>Ei4i)zTBt8 zg<=JH6cPTbl;Ho>$MUwujwR5Fs+p@vxOmWuSjByLv-MlLmGzx?bk;frD~J(V43JQ1 zGM_;&f!FhpiMkr|5{hXGVh1podaKH=Y*wYz)f^;!0JgRs8^qLJh1I)VRS#t~(D}T+ zh!yx5tq!`$T`0Ap<`~iY7U%Lo>L!`7@R?`b<5+rsk4W0XyM>~S(5RejPYvx*ghrfb zYKE0a$=#-WjWkfaCSvu9TB3p7oS#L{7fQrMZVcr-slpmdO@y3b#i2k!)Y^Zw3`$}Q zh)>5UnBnI|4mlN782o)Wf}pD~y&Q~^Ag5maY50<2e%4FdMlUG7VdfwKfTBFPd|cAF z?9jGeX^3G|{=r8t4NiVC$8WA7X7XSL45JdJ=IrJ3IGz&myRf7VLcb&+*R)@%36|N_ zB-OzJCLm77#kdGo-eIttFe%)^w!#J#?s=SZupVUi(=OGXTSRavBmZ*876nOZpU)%m zHgKY+3U;i!i^VulB(7AUaiE4XgrAf55&VD0uRKMhLHcr!oh_5Sh%|`IP686wTh#!)Dqp?`^7--OcdPzjZ7XO&w4nowl@~cFP+p~`&A>c7uThfM$yp^0^uzFOy z)t*rJX_`Lp7aRlCn6KNo!_Wf2Y?63I(U39_P!1%xrI2Z z;YMdmJ4!7UwLVz~sK)jHI2WwQ_+hnC^<<#O4XzCxS*QaqlT&FW^@J|PK}~o=LbpcG zB-oFp9dHs`|Mg#?a;ePBg5Z0E$v4f)Wkcq&99^eI^*=NDwrHS zVffICp6pybA~PVR8#doPvi$UdR{xsEGxy#*7CQmrhI7`XL74Z#!X?2fR%ZG2E;w{2dSgp+VBpKEoPG z8vm`lDA09KY>z)sL6gj=+UT_wAJX(}QhBqE0% zd&Z@ybDNB2xKwaNODl(k7O18r@NAn-%;wHV0}5Tx%U;&`x|Ea%BxLO}`j$y(2qfw% z`mIeKMa>(J)_Asft$=g4RhnRM^Z|wWu$jsnqpi}#e`wFZEaSGNA$1&*CvbHM7>t(W z8NsgumbPg#kp>39=`M_LxG#NaWq$HGwx3(VseMlkRNxhx*ih@Q2vnFcF|(XUx2E(O zBe%9w%vBV=kV9#<%jamOQmXoutAS4-^dkafW)FiyKdX?p`+t@GeP` zG!*hH2;WhqhTTza2Aa>p^ri+LiiM(xyYm};>XNPO6mJ@u5jJrEYr zN7^#)xI7Bx9$GUYkY?)HvN7EQ^PDoy(rZuCVdEn)TcB>j8sFhkEuD^01~AiT67f+> z_S!d)em(V?&ICl9EE$mzRr&bt=4#~phQ9#W+S}F>I!vWO8zT2QpwJ?xPtBTeuoB2^ z1yoiezaf1uQZ$+2QD+1@MKc_ejK>@gLEk?mFgY$mWSTkXfI>ZkphDR+h10@Ie5e7V z{Z*0Zvm|a}`uRPxp5=?sm$r9Jo($kbJ=WYlj$*dK%ChD|1oePVwgbiw5(K3VPvrk(l+U5b(Xz_DL4>G-R+Tr{N)+q}gnhgdYFE@;8a z8Tg0N#90R4q#v#(GIkLu(+$I5NfW|t!_W^A_Cm@N$$q1In4a~V0oX#79+-!XpC+2wi@jqX33Dd_a!B6LB6}eokuhN@ z@yBL(*eV3#`#v(~XY0Th{qcCTKWHtQW8k{lA<^o>VUJ6X0PBKw%^pUijIQ3|wLPep zbN_6m0cmMr@jG1(mp#6mS8&|yWxc5$4bi)3vvak0ZQ|>dmbXc$wiv+nVnwFeuGRD5 zvueT)=(UpzLMFmY!Q>>%2=>JG1#-&})5iV@POzCu%62r*r+#XdAawR#3eeUt>GK30AgrdWFIv=1MkJ}8Y;G6 zG4EYp4?bvHXmmq0zK!-G4prRUkJN}Y9lH42l0D<5LpkEE1fA1kMlBIxT5b+01am{k z8}sdJ=XB?EXe9X=Nbl@fE?d8Gu$1R5dg^9Qh>IWsa2X^|-B;SvgqBKyhkKmn#*#e! zY78mzO{(hYUE=|~Is#e+4Xa3}j)T?uC!Z>jwfUR9=ykw?HqkwXn!MIm$fr!O->|_m z0oO8-EWm(`d87S(?f}v3a60(QN~j1t1_!0h$Ed}yil*MHl|a^3p#9{7m%~+ez83vE zy@fJ{t2#U!w?sHjXK4rOrrxzWonz1y)CA0Wcl z8+bMai=k^VDD*ph*PL1s&TTw;BW1D0>4>*(%;o=e#Uft$02`B`%7CB0F=Iq*y>lQ| z)rj%AHO%M9n77FL_V}=l#U)VziU)?%=yQmT0FhZB94 z#YS=|hZ5pYDNy8A(T+E79opK-i=uo_)9r^><3`<)%jQTbjO5A@!xxe_8CrTau)n3s zDpNcwcZ`P;`Ih}keC%VkN$zq~->;9(jA(w^Vn+tqE6`kQ*J2p!wDlvjC`M2_YgZp- z*z#2}sFtxF%UfS=o7%y>p)It(fitN9Khyiy&LscM0>lnwu@$ic3bB=_WI#ngOQM_R z>ED1v`F4jr!u-ZEtaJO86rPnr8_Jg)OPqoPMeEataa_tvLMpe!>U3T4VpFz<#%Czo zy7DeT54TQD{<3rgD+Lqo_uLy=v>*JKBU>CSmUQn$H&IMjlTtBTsJcAUxo5yr=(YOS z91a8ueJpq$)o$8KFH3EEf-7AEVS-b&m80lEY57bRhW3*16sur2MfFHGUbQkUt#Sr zmwr!R!jTTbdkaSBHr!6}r{l{nBTAK-*1$OhTv=tCHZ*p0~4h%k6G;xNqd-OP~s07LpZdL(jBks zV+3PE>xof;_^Kr581Fe_cVJ_|qvk?HQnRGK#8B2>kynodt}$cs=)udNmpnE{ie7vB z+cq{UH{7?zlQ4mzeN|NB3Ewo(%zqZ-^$ob6FYyYRz))7pzb$-4YYE4l6-_<8ff(g0 zm-66qS6!oYv`?MCnUOyj_qNVBo-OLeSL#-Y)_3FSUf-(f`c7l*dH}TkJvr_5fLv;q zCMQtxNEu)&a7q6iMF;lMmcZ$^E4<(Ey`|^pAzI+{T9oSVCG|aMZj#b$>uVyrTDye7 zYOV0*aGx#HW`*D^!G|et!l&P7+1CUIN4nluU&`=cr~&j@IZm$A`{hK(a6A)1fJRUh znOwC{J6s*|=n?0Td4_5Y(dnNb@~lIz=kc)|rH5jFg)rq2RGGJ!eEoFU4V7n7^Tqkf+fG~K>?3cX^CT4DiuB_B)@#A z%8}X?U?acc0ELsNmS!bp{-kD9o@DmsAUtsVJK zg7A&ll!UuK{KG&bRYMw5d)RtjG*9fCJb<9ezrkRvU9jI@W$qH|qi#yBm-<#c_Sa+A zOe{5a`0K@Uzr&_Cua?DulTPtp;z2sM0B$%`5L<^td6Vi%ja6x+aLuGzwvA+M>f zdm;JF?Mw=DX6z(fK2P(|gdeit3Nmv}>qUHG^79TMR@u9xj3AJ9GMy_KCMBgcBoYv> z7KUy+)bm{M6M3UlT@0w;NB;3gN`B?}#=Qk$ywH}rj7|}_F5oSO5eXLpVfe7Xf)>Kz zt@W`$ldiUfu~)yVAlIAr9BPvFa6U~AtK~?=Y~B8XL&#y72{S4t%B zMW)oB{3SV4cQ#2{$8@D#Vi)Vv|9B&@Y`g@Et78i9`B{;FHWQHjb8VK&U3{+q>fBdz z7h157)QgBAtfwO@zvi$_^b!>5C94#fTH2wN)ogt(g%M@-v3;~TV@Hig$64_NUM=n0 zPKQ6~Ugnkw{yiuf6K^Xq@Q*@}Ue1fxYC&`UDgp)O7_^YqYX={(P5XCmY=x!wK8Wlk z^~let;VB%&;Lh^*7(T62F8G9oLq3tChxVg8J=^$ZobDD0|MBC1y0g0mjVoH&A_2t@ zxY)SOcKuDlDS7^V42b-@N1xfBHaoFuXg?tcyJ>i<3usSNh{BWKX|F3X_;WY3{cB!t zt^W11NGrG(yU^FmnaI~k8Lq2!$5;|X{({QPXh%7-aL}^#zU872QT4CqP0(^Kb;=8< zw;~0>e#JGmE7JD0xnwfSP7>KC7Q4p~l%0rvw0~j@!*mR4AF<#ESSB>4Q>)?4^-iR# zR%&D&9W^U>o*B3?`el?(1Q)F)H3P4WJfq5F*2nD_HPnyNmCbNcUYo)#*X79R=z)PY zTq#dc2r1E&Oqy=w+Dw`$5C~&}V{;}cz9}XD3U$@n7A!pYd#?P*Q~sM;IM;E__)yL^ z``yNiQ2XE`^TLfhEOBh^UstPWGDQ+BcSa(5UNA6udFg44$`nci&%es6y6}d7bdLtpMv!E&=picq>;~7QDm8AD z)Brg<788%dFBRY9Ps5P9hn#fI)+THVE<;FPAsBbR&Jhd?nE-bF!E5pL+|l${IcCz) zBz1V&*&K2kEv+_1*Hl`$?8K>b98O3u*wG9xTCtd;w%K!G2$BVRy`SUI-EUWcbIS-aVlAdxU6e_GU7vI{nDMO0m z8m#C0=NKcIxRz9mk8~YvHk`Eg+noa|4OsrP+bn$I41Tvo9S1MdUp@?!$2PutfLwLR z`Jf~OVG*&hq_OH!sLY=Zoz_@P4;H3f8itR*plOo#rNC(&axSgyL^-_d$|LG3tt^^O z4HLfvb>qkYI~N5^3mbkW{Y#)nKX5+R$REwr#E_#IJHK2k;p{UVDgzV;V=zN8h5r#& zxEf~@0PT5!A2UD6s4dAqt$d{MiQoDg9&`yS_-wbLW6P-6$R0tk|7iRWkRT>qtt1eP z(G4OifMwxZ{p$6Gk~-xpRo4PSJ1=Dwpi8vP$eO?q zZ@_UnA7`!1{1*|v5d|BD6FS@jkrfqcK54OfXwFV@*JohlE<_2iL-+*s;C|ZKqJlD9 z?csvXs%-0aksw^VzUoqwYw4dqLgdo+e(eFISXoF;~l>u&0`xMHTA! z5p8@8^ptgQR`Y$dod>LMRh{->5@bQxC?4FkY#8Fd`H=+Fs+=v;W9i?%*GfV(q7FuD z1f{&h36I<;w(_SqPFzGBYZfRUvG753%mfp(jzAozk|io_UP5S`7inOaFJfZW;uoBe@Fl`Sh1IH5H|pUe zK;0NpZ~JnIIk`-P8%8!byV!aBj;+u}cha%kueJbasKVA=_+j3`#OW(+TRS5cj*nIm zeBpl!pnp#{O6IYaD;WJ5L8;6}gTBM+s~MZEYM{k_bHyRV{eZ#ihT(6rfzwkBk|lrn zYh`n2fP~{bnws)@kQwK{nnw+)Ap1w(Px+vi#~^6^ozK-@E&HK6tcBrq;W0IS zyrZA?|LRQHf9i~i`N*1n1#0h%*BRgr6L|RZ^gK3!_ic^BHSDpgP9U@Ys2>DBi#Ev7 zQT^$(6RRY)SlF37nx!tC)FjkLmPGn;V}21&XFb)s*3uso_ zHCsS69TC0!Alj4dMuB=0fqDF)$uFJGIa6gJ5|79UM)fM(YeeU!o>d4bm5d@yA2KF` z>UPx4(?X{g_+YyckkKJy0a88@bf1>YS49vTo1cv6pt?93>m^Qwla%#oF`dz7yVY08 z> zy*8%zN6q;bTpiS$HioYO`3L3Sn-*Pm-iB%P0x+O)YrGaqM+_b+lT8nK z50LS!#T%mO^(jL@a!q&!fu$h}XDiCFVqWW27weXMg8>9=o3{3E+;Vh=Yp|2ze+l{d zP<_6Ms(}>BC;KZJAC;(^{pvP!^W5j{VrXiSm<2Vl6?rCi(hpdsLiS+7Zw<{! z-y-x|d=TP(dbipCL&>+uULf%2af9ieowTxwBON9@nU`uiOrweW*+$jqjhzu>D_!n( z#q30sywHhD!hGDs`Tf^Pwzgff5eEW`I$E1_Z77oe;$QsCKdOr_?Ny;p)|oURvzbDV z=iMOZlaMZ@7F(n`qhWgLJq_Vo#CFjo;ZD(I4UGy2&&km~PY{v{LfO*)pXG`3U!_F& zuRhLVwS%mGW4hPB%x$YH(PBID{g(BH0#Y-qV;?GBYi?$xO>}Qjp>g%RQUD|E_w?0u z``y1~(m&{{Z!4M0inl%&IweZ}-O|1lw1a-Wd1CxxM0pZo^`9S%oXi7*YM(rjWuS(XCz3kc{4J+i9pd3doRv{}#IFtj8=iZ$yW$U6DOF6h8^i zC;^YJeO5}7wO7}$V2O4-j!B#l6KL8piXB3|nl>D=YxDuHH@m6FLE`3SNRqvZ)I>}! zgw<`5y+C~DqXj~D*0}Fc(?N9?#@?lLm|Il3DbC%fy}{1tcRYwKVVeH3iO|;D{MIi_ z?)@u5Ef{vS(w7I(dbgx_V*G~@aROpH3Vh&c+fjG11*?kS1V|1*#9vYYS<|x8GbYl~ za$lO)=Yicok5~{;@w;-D+kD#$yF@gZpA!SRbT)nmZ_d-Y!mVOBi>**_pl)Orkg=-+N2$Zw-Ju>iJ0 z#3B6HZ2iZ^7`UIT$SBcS<^Ik}DFl;J%udx`K4l-JClMKMq{bPZ%17tAzlgkHmuihF7jJ=uI`6c$PNlI)(aQ>0P83`2!H$GNUEqB;|>@4k<0gM~Q5NWlJx zFletz$i6Q}G_EN-ZYG5fSHd$ZMZS(=Edjr~1AZOR*nsg+_l9aU49frd;XXniNoz%y zV(~`I@Jy?vL(}FRr-X13g?R@3=DZiTZ{TVmD;57v*8v4*z2}@%kFY%Zmua77{>9kN z&PBsK3j>MK=&vvnD6jXv-JeGeu4A#2DZ>pI_D8g@@lIvtX4U(_PF>k3H&wvnp!|Fi zkLU7!BvYt5rhc{)A4~5~e*=?*o$fSUQ(jcWCx$1U+`3uXbfH}cY!6FEt??5sUC32N z+C9cH=9GqkwtJd>Wc5WVOFYDFD?3LO?6i)Ku1U{-dq|dDWIdUNt~x zchjm??Zs<(*dX^c?i#li){FJs!dqX85m2Pi=sNH@3fx5SDUvFi> zH#sUd86ZbL$Sms=DF^tyh)2RGB@1gF*;NWPR?CV$l%a|AMp%J8P&8CzO5 zA-gDy(%q%+0cvg znquq63IBJ#w8W3*ExgT@mbgAjOI+VBEkR;QR--PU8(aIpxYY;<#nWWod`Dt@Po@e4 zPqV_asMrUpqkftzdgN9Mf7z#n_-Tgqldc)%yFv=pf=qi1nHDCmGps>Ooy zDfFY-=O`Ap5g31zqu0i2XT`Dg<{_E!u5f{}tkvEXimCa`cQ#10*MRc$nUjnzu2E(D zMlUsUH${c3TopF^hTOMz0@>+&CHq=@&L!pPYkNECx?e?nYC#FXDo3x}$*5L;uX6O- z^W?`s{HEmvR>)4D&dO_h;E%Jh)>AD)&{qSVf{V^xXzhgZ2v( zI8Wa(>0|3gJ9`0W3{yk&ew&51LdoEOM)v?EUn!B|Me_Kuz~RFI(5m0BXWF3Q!0s z7659>hyP#y%KT_H#R}dtu_Mo+p0-%V1`%~q9akp+5p{;lBt)|}$`G+w)lPzELsX=Z zHN~6pV4CF3Y|#K4b+#WnJxu^-*cH5tS1ItaI}BcShr!G4u&J3}8@z0+2VQoE!OQNj z$xnfowYA~p$fsN4B?lV3d{y@0`YijfrX2V92VSKHExu661{m8SH;MO!uXHH*akq8`#3EylvKgdyc?psdk?D5R^1 ze*SbLtkHt5QkpHipjG8Ev)DKBQf3QOR<8jjMc+W~2O_H$E2&6=o>l43tmiDh$I-2J zBACV4Npggg@vhjNsl{ls&l7?5CrC`d_g_x2hQ3A%oRh5l7P&KQF5OO&;5d&DimJ1Z z1SkFMLr|jynXC4-4{b=)Lf7?)th&*)MooPro4VL))YS31jV-si0)&k!iDz;vfKo>? zySm&xX`(m0#9~xntEnE@st@VVWRIwd!&P+Cy-{7QssLfbvg8oWPgA$Mmo%suQYV<9 zTCq|NL+S)Glj17;X13X)&#Ul}!jL*!3a&OyEB&aZVl#eJC{bUBV?S!vG#wPCu)AJO z)c!wZXSO3tlN{$)A)qS)!eQ-|3Gk+eoPFOn%*6#FTZXw-jN$$$#&CbR7z3bjC2Ek0 z35V+uakP78n6Xnd*KhfJ*aq;rO1cIxRj1D?#ZKaLugnYVs@^*f-tXR^ZnVIScO8+E z-~KW`#eo?u2td1uj8@4u)#46eZ#friQ!O~#@7=?ov08BSS_$l0tJ6_q;R>ZTA0Isg z&i4R~bwqI@_hs9_W}P*%r!#W}j&(I$cab8=d>S;47H6UtgwSMnHejq49Hc}Bp1%vg zVq4YwweKwqQ!S7Q?#rmbFrx)E;;$1|DhyLC&YOg@X8sPtR14&?Bg@HSMF|Hn*?18q zB`(P8u(ffXRmFG%>vh_#}XK>ttc%U$c=i*`j;aF4CUT~+rB+r z;bbjxId~q++VKpa6Ak> zkP}?&c(~&k_3{Nkw`!}SCLCYjjL^V%wBUPOvrF?H3ZzF1&Tj6aI9o=0NHImh%VF(J0%<2 zJvNv?u*m%Y<@KqqMAEk09+0=O(i(H+fxFHJ3ot%adHAjtN4R~&xx~Ricv~fC<+K(6 zyspGubB#(Ks}?93#S`<~bKqUyk8PWjuK?ZEg1`>}_|$X2JzC%#*(Tmtuw5-~Cr{n6 zbv1abnjpN`M~e&|t0qI8JU#v3uCdw1t0$~9%Pqbc_~Oyu3%@7aRae9)m>B*FhHL$^i5b=}mF(I^5YNU^&Q;3tzy^YY7K+=s7%@XZLV~6a*#v_p z<*S8z)^PB``IxZ8!o+}(`m==)H56Ch91UlxvhEH1V3Jc&Z9_kXwTOFw)W%1-f6*R} z5EkdbkXl7Ni)koK4Dw*xQ-W@oM=7}}L5I}pYg{;&4dzPcvH{ylu{cAvmFzBqwgo;t z+^mM5>2tzZ`-mNlCM)FFU~a|4VD5u~8s!}#&n4yMLPL2!D~oY|mc_WHvKUik4CDTCF${?AzTK$9x?k8nQ5m!YE^t0}h4U><^T?nL%ts62 zrOp%gBq$#(#_5)9Y-Jcgv>1iCCl+A5T5vjC9{tBwl$)I$*MjOgKFDA9gbh$v3+j$W zY$=ca)#9qb0;OZtEL5_ns(fZo1+$HA#L_WqJ*OI8OC!O09o_p;Eb>zU^=g3xcrOGA z((63muPpD6zf7P3dbJqpA&kh+be{EzXxo+&8En zEug?0P-LnJ(rdFDQV8w$)F82Haz35&8#YL+HX~Ord*=snjm;oflF&CQaujF$x*#_V zyQ~lVb$yYYZl4f-7lXG81WSlPaTmk4p=&kcm#|o!*b9RC`gQ6LW(WuF4&SV|g1GAN zt7=9S$6*jR3JVrLY_K-mrZSR+pBS#HqptxwRn--ktG=vbiFr&0TvgvZDlEpo!kG+L zwHK-8s`gS$BY_RTpnGYx_|qGLvGSF87QzGuVJr2R;i@)}dY2+XBLSLPR8$=%tHU~v zB{oPaE7K$pn?A{)t_luQSMZ>&x;*VJIo_D+ZMO3AgE>Jqp!<}%4wdbax^khRuAh}2 zxj##fxL7lfBWnA}Is1OK<*aL!M((#!!0rBWrI91pw&582c6Mb!wQyF|@;{3(cCmK= z>e6ezZnwO5f#b0ipM)F!ypO+ps0oZmi}Rxdr^2{>I)LKQVr0ll;A3VcAi7%YH%iHc zzqGpp=sG^+lb23dZM9t_RV1@=@H|=oL)Tk>6b+oK#gX9Sc0|E;yT?s-`OIa2cI$^F za1`o9W&!z$8+Pf0)q8NyUcCvF*IC2eId#IS1yLV87Y5_i;-Fz4c?N-aU9XVC{x|@H zSBoPtwCxH9;PoxK^Ln;(4&18+27RFJaKfs|f!OCvbAkBS?1*1TmDEcoteRX{9J!g} zC_cr4<>CW~KZZ`2=2R9u%fO8aLmF~Z_-YN^Z~{vlc$Fq*PkbKUR`a#sZv8^)p4r2fj9z{cC( zsH~M)Zo)OAmW3D>AK?13nh&>d6+>Wkyj6a7WP=t2R!vlbt@18IU~Rmo-em)~I+nxm zY=ui3pgkO3k;N5p$cAVfyDIG~ObpV7n_mBt+j}rrL&4l8;n_6aV^CHd`pokH1sN!;exr)niRK=sr z3fbJ3(}{S&>|TvsVd-e@Mn)aLTswbOIq))$AX-rAgj&Nh+8Ql58o>9{Qc93qE$%pf zf<;MNwdZ)p`V??*TrJ4s>WKp|9xW*Rj1R6QCqTMdT!?f`yE~Astw!!#_}xqpp{-`2 z^@dB@Y8D6C95d$t-R;?D>HUDaj}H;5AAe;Gtj+-$P;tvH-K%PG!{OJiK9F54PNW4^ z?p0lJyk|Y-2HDjD?e#coc|-wrwKyK-1U7&0f$P!YG&IqQlYFpTn{nRXKm2g7stE~k z*(pEVtFakTk$dHZO%QrL-SavhL9P00EWth;c?7kp2@3{pvGZAK~LSV1@ScqBR*MKQIVaN zFibblO8S*=ZwDBe;==U{LDeZX>92wY8;lXITl_8rRo|AmRGGopaUp%saEv;wI;=&U zf&tlr*4ZGau`gHGn#ge(!^Nt@I;~tj_^RSy&hi_4HMaTGr#h76OTNm5hOa)W=$I#$ z2YXi0Ii)H(TzN@y>b-f(T-S=|+#f}B?k^Y783jHrXaTT&Tv3%lz}$=ISf{pH5+L>* zt?ZMy9`eQj$ZNF=oSA*f6&SB&C=MJvwgdyRYK1Fc=E0(j3s8%@%I1_ouWG?CmXe{d z)%NAWvxj#xTL9@gK9`F)x64?7XfaAIOMqzZE$|*Kc#%naYiTo3uk(zaQ%@v8`e;Fp z$Vt91%2E5fuGBdKF~8_;xvu9}nhnp9%Ujes&yTxe07mXTscU1@STP z8=+dX~b3^^Y-e z69c@Jj4ngG6?p@LyakiNWOZ>`Uzi9}3m;7ORTG1}#W>e^mrsf9P|GigEf*SM`>bD- ziS4s~(K)Afi7x+Vajx%;S~|N{wCMgQT6BN8Xc0>o7JDBqM$TDLX3q+$u`4)9hi5DN zrR^G&j~3j345HQokdGE%-kJaN@t3(97_S3NHrn}^Lk6r7UaEU4TaC%2%0NT+4v_Yn;wE)7^;&RHv1BPoO^nH!%*hB&0HU)YrmDwaDRi^-l zbNtI}5&*XWmCB?=Fd_J@19~~=#-C^&@U1<+ZEV3#>_BX7^$->FR)DmQiTWG|)pwo( zNb8_zovOWvCB*xnqhhqQFu~8N!!q6}e-xOg_EEExDo>YT6enecqsm}ub6NW$pT=+r z5w}v-K0fXWk%D^aFwDaR4YGLOl&%#IZxFVU;STlGg=2((?iU*P_BQE*<>b^7{IXw>lk*h=t$!xSy4jWH$IaA4OEg;trPGe!urI*^DbC+V%&v;7C*CDvH3w zKYDL(np2g}P5PgaO#dGze^g869HDp^MO$Kf&)Xbo6g_{`G zt(X|tIbShkTPv%i`-D|F`jrl_-_StIFB@9FvS4V-yH# z_b$=jQoFSpO53A`()Mx`5U3hz7jDAPJz;QV*QCMTb!K z+<XE(h2rS7$&$Df0py)i%6_g z-axUqeA&?84_iu(0sz(GJ<#jmCN1d$=%U35;Z-dZSa<`)f?dEkQIQv97U$at%(vAJ z0_qaE3i~XMaREgg(VJDgPQ(eEj20u}T$w08z7wnF|i@=Tf zTQWZhcsahg`5aN#QE|p+;Dv-n{#nDWGPBmus+6ZOuv$5`Gw51jT#z(DFQXw4vhK2h zlyBw`t58!#i94h5UTF7fsR`n+W2LI7Qbvb zQV^={(F`sMLe*It5V*Cy^#!5oe%#(?vmS)1u^xn~yKJwh|G2%KpAxDeL|zgqE;NMd zSraD{s%K4{bIP#TMDqM=AXCO0vq`Ohy7*fJpFpJ} zNv`}amy;2J*jP%ECc&4Jos7WFQ zIZY5$)y`Tqyler`YR{#F&_fj32pRNB`(e5l+0z3Y>uOhabtpolfM}iCxo-&A*41l4 z@C7Xb%C+-zC1c=S=VZ>LAYX0wSzI0>1^KcuPOdRGF^F3vU-2%!$wIVVeF(!f|3w3_ z73yXvR*?QJi} zSM%e8e07)YjV;JmZEfDHA-r9ZFD^9X>sjC>ldorimy10QU=bz0pT~h=Q?oNPkm9|4 zOTN}ByljsOFWbu%UWi%UFVxmJBfLgoMu#III_W?#HX8jFM^u%>D)*-R6FC+E$*Uw*u^_<| z9$68p_$0(!Aj;ShHJ~h7a0+sn)I#CYQY{X%%60&rYT$E_+$V}ayVQcfuk3gO3S%oq zQGYhO)Ii5*!6Be<@j~Vjz|;{%@VzHzV5mMjITrn~Ayi8(PS>nr2e|61qOy16jMVrT zc&nY=ieP>Cl+C~T#EQs!kXRpAlpZT)h{TG|XPE?G(`o*^BJ(id;yCs@b4)IO^|7CJ zc%D^gC`HC#B3&MaWiYi;-_1a4C0@!PZ1IfHR_ByJ!nC5v3OVD0@l_KTSu`maS$ElB ztYBoFwEV8ffXlir?F6zA#s#Z&gyvcre8SqQQSMd5b-~uO$Mf>T24MJp3l3}eb@PH~1q(C) zTgkLE1Y418J?1lJiB2QD9o+ z;7iV@^9)-l(OzBt9P>wLCGo(-FfW(@(-xu<-0JjeBrgbF> z-CMw1M{6Hpi=MLy>9aA_g6stwHDE=KM@e5Hl>zC~^{+nKN(}_kr_0%nw+r8)Asu>R z=A+ALo(6jqNGjBI4e1_YVV=`q*tSxSm-9~Tq1A3E)X)sw$QM$=$DL$6mo80;ZDIjcyWMh-J-8Zwmy_7LR3FIx zCty`Aka+9m`XP;KL83w&pYrThdrM$cbSIULLbbqKnh6W28e0+ihmb`T3>RAsX<|7# z%)bkcMvIXJJR#D+sI8fcOlavGj26&Ls-Cw&eSoN1oV65krn2Cwu6@W#{IJPA$5W^l zqu=dQfxc>S;Hxan0Yp*f6BUZMpOr*WXHDPQs^~0Ot<%PtKz!4)W0VRRHg9-eOQNVF zUu2a~eb@%#ddNOcs$=+YY4Ny%%)$nB>`sLP6aJ@tCvDx1>7BO0|8&jT!G6Iq4Yr7C zo%%c>hq^ux?Y3wDe=q~F!jWpAh1!aeqr%N-sI`(H3m4RBFIXvD&|b0Z;WU^k6J%j~ z@po3v%MGPg&dU=_%{e6>x7xuu*)^bA6J?XTtckLTNx=%^a~G_zy9_IAE)QQ~ciB*- zV1=Ev0m-MVaH#s0tdI*0EBvey#rCX3;qqlXj_3z3`YE2emQ-Nys&uMsGv><2kKFQ()Q=o-T7(%4C*#aEaRYD{{9NlaI4C_jSHuM&taJ0Z9 zL~v(I<)Djd!G~3E0bPt1xR5TBsus{iwV)PBUQ5tLZAFl4uaga6>*~{_lZw>=;<_}3 zD_dW@ECy`zw#fh;3hyOOMw>W|7Ob6&IuAE3T2gRCXr&GqfybH0CeYLJiB(ZwcxC+I zQ3gslL*X)nSL(RROAUf%SEOMe8CjZdQn*zO1kdB>V$LgledkAkTIxuu54f)d-Kpv3laK?%_Ff=ci=cIP5_;Im1FOZrHG&%m>) zpNq2GBNW{zE$AFA&ZF9BPb2{6XhA_X0xsKQWw2Rw%y*J70(6yr%V<5w`I;u?5hH+4!scs=$)RuJ-hibUCQlKpX+dSvVP!3P- zl&~7il~RYWPlXWkjTS+)hHNW&QLxW=mlaxU*tSB8VW0YX+6Wcl1_|Bfe%=IiQAxbu_EM?eZ_PU@ zJMOkn^kRP$z1UwadT~6!W$~?2Pjx{5{hW^7rBkDX#boFCz7GQ%Pu$<~q2dqJf|%}o zW$zS+AE}KZ*bw>VLqrTt|2 zjjs|?Gwl2{CGN;rv92im+fwJ>`Fg$SbYznHd$%~^>QA%w2W>TUtnZSc#yrEEn!Lqa=*O6`4gx@~ZWSVwY~y2;P|{Zi$y%GqmxM?K_e2!tUXACA-5 z41>Hf?AAbz??D}*A_&4zjub7*vo&BViy0e~trXoeTw9^ne{?j+B;JE& z4cQjxH7r&zXTj@?dXJgdgXL&mYPT5}&gr$m+-IQ!`_R3ve6r(0!)!k*`hnS?yhoRJ z=5eCJ_OoiDp(Z%{-l*lXYn49sN2QPbx?vZrmii1-4Y?c`Y z=C$)T*lFw11oETBkb0b)dV=`T0%z`NA}j;oM+*dC)EQT~X07L^A?5w?S905U55|fh z)WktR_}J?9<#?KuTm#_M;(QceM}89U-7K`|MHMe#7AH7!5mIWckROQXn=Jrz9TSwK zs@x-MMHoS5(4e@^A^zqVZ;;0U5Lb)y$n{9oe{C_r{i7=>lYcN>m*3^gm-okC9tI#? zmpGyXeUTOrT`jIql=SR?xV9q1xBsXZ^iHT7r&8a7$3jYV$alf0ipN4q)dbzI95P`j1>3DcNer2wVw#*(#4jXhQjx477VB&k z>Zxxr9su)gy9w0O-q5LY*pOOiTxhuGXZ2F{XT6kbN@n89Km6wl1?RrCZ)xaS!Ib?`FlB$aV9F7&I~*>Y z1yTt2fKMi+z)P<Hl5rA-bf*H%OV zRN<-CtD7o7XYvSm$KPeUI*V#!eiDFOEymv6_7G54i~F^TNVP_2CRK?_snsNV8{oE^ zi(J6igp9s{+t$GgOuggjz_wbPZj#SYGS6ti@*^xb+#^2~5Uv(bkzSA!1Xl|}9eVFO z0IrLSlZoi6%gYD+RtvHRGxY+p^`+P^lUW0?)#5rN2Et!vfdIIgzyl^G;CVC|u9V`{ z8#Gj#-GG$-VZd-TIbXF_d47KAshW_3IibG@1jxXw+ETRVt@`#X~62y#o%2f*zZJ;-fZ8Fn_tLhYS?qZ&FXW9mI_=Sra zlZI_Dx}uT68E((1yV&q-rDC^%+s#>TL17KulI&KFkQnq-2QvHQjr9&ssbT1hjt{o# zfasqVeiuW!Puc1aO)uFh7aF$uSuvXZS&ZhIiqUW-vDHow{agE%t*#ZL*&oGd_Lqy% z94Umt`P})8kBk(g?QRMI0DbJ$$hn-9gN3bXWrd;a+3s1ue6$#cUf2Gp7nD~E$`baD zSwKEooWGDl)YBgP5!!S3X}|XZ@oFJ1y~+&;!bb~UN1Tu?;RE2+;)I-iYXR7+1+|9^ z2#tmU{Aw|(3AGdv+_!t+A!?rr*jEc8dGj|7NUyDqvnXU>U*}*~*~?6bL4BXK31MOj z@ONU8_s@QytB-Sp+*`H)TcaulpGhz~fLibc*Hd#gfM~%vABWOYdaEYaStQ2rvZ~4H zxb*=$gX%_;p~p&L(3W?z0jLQdGWqk4e0^(nIb0{dY^aCJaGQ;i!5*m}lBBp7#M5x^ zA=ew<%tGwIfR8O-WbTS8<8Ow16eZQVNrlHWLElv)zX}t>J|ZF{tFzL2Fz_2HZAB1; z0p1{G#kd&A4I!+el>r;)g?t-@zry!z$i_;T)lPUbXhXn7<@pP;YBJUxp*~K zUZc0~?OS@gR_6CVF82e^yWXy_TC|67DV^@A)}r-_Ru?bG2()Y0k5uB>Y~2Iq z*64CS#%ygP)*yLqFMFix%6ofCG)u~nOUz6A4G)uKo9EL^AUr-1@vPS^;!xgNLGWmS zQo<&bH~SJn^JqcJFOyQmu*Ozk{=N3d##W%lIddxTTN@pj-pcVBTT$5B@;r*7it@X_ zZ*lYpMr&_LtxvxMDqCljo#bFVKw0~A(H%W+V_>pc98S3rD6I2;QV&%ISU_0kUq$ze zG;t7FJ3EvEd?N zkjU<`0ghWk4m)dzV0YO7#edwO#4j6e_+xI+pJW&sAEg@N9&tG_sn~veri)l+$)uvi*jldTadvElYZVt*>+t}%q6OJf=S%)w@GG`D z5$`l{XaQ-_g70EgVkt9#qQ$83EvXIp&9HeTqy4kXk2jE@TtX@e#mY)u%CRT1me(cv`7XV_>zymLOO< z*2b0!8FEK2#i~K3^u?U>FUV9hDacfJ*)XXfQ=PRTk6S~gI%~rew>ALr%Z3&OndQ<$<%w99D5!R zL-q2%eky*fdKVG;*1Y9XYgKagN0prY5uHquhGx0h)Y6qu}YJ3WOM2d3V68Lq->WMD}Q znzDm}kwLGl`|67;?gHD=z8D2z<~@NEwiQhl-B~)wbLwPxwo*V4wiWN<`?P`Cir$~0 zS;4mSC7AO!!?c2dbzLyDDi~O2ZJ1Oru+G}hreI*5H4Ln~%m-O_*|4KvV4bz0Lczcq z>%qXf%l2j$46L>`1~vrBO9sY;hJigx&SVDmUUDXD--x<=B3$oRTf((gVP=0+nAu;h zF!NRLFvOEsAAqdb2h>gWE$$E~3A``!Gek1}3ult(HYNv_H9B()Y@0No z?R@zpv6{jZGs7_^xxQOBq*Ny2qmCS);S_=lVnrqms+47EOEf;sQ^TssiTM{ zj*LQE3(&7~}Np-9?r9e4A9&pv3@1vlMJvt`_Hax>gnu-nD zn~7A3QP|@6P#2aIg2xq`PaFYcTQlaX$|iuc4$7PtLce@H=J6 zt2QltDF|Eas$Vt~D+pU>ZTM6Ww$9p+$E^)!{IX$6LD;%`L)eafyixz~z9-vm?FKxy^T(p1`-o=rV!-xPpQDf)i4ULdg1u!)t zdBM&o!8rdVQi*k@05z@aaA63--k6^cOw%5rj3Pjo#sEmuk_QK*qN{i<9b4*@^a+HJ zv}iFR$BM8l{9-!G8wHT7;H}t-7}X)n(#~fL9&Svle(Rk`RGh9iXd8 z80X|pU|3BKl~5pPtZUX}=Zd^VgG4w}k<3k`L9R!GUz?O7oumv`Pp_WD`K?_<^4n+IgQw{OYZTFsRG zQ8Q(Kxn>I0?T|MhwUO=nKrMwm=a{N6J@sniiAnbH0GZK(!#?Ub=)qR1nIaaXc_70Z zEb`V2e8zihWD-cmXr@7+r&{df@3l__ma3LI@*TbA8Bl8C^XFTiD+`k9Q=Ro5rDrZ$ zP}zEudt`4KI2tVmDJiNr1D&xIqJkHR8Y{!hbe^|Mq1FaiYAY%L=h*=tV=MBWIW27I zGLRW9#&OwX93Xva!7+SE`gFY`(lD!yBEQQ9N^E6#_B?VxuB{W@{Y!V8&f)ziEIJcQ zfLX_#y5n)5DzfgmnNDZop+fYhU z5KzOa6;Gsr6~*tAkrf_9XrH}vQ<`gV^^j)HW%%T0R|qIPPgjAlNmhZgNrSGHBWc62 z6#{BNwn9J+$<_)$OZN+o7)PgY?{$|sEa)y96crq?u^t?;yKLA}aKzeLI3k3m=7^6A zpK`=;^-+t&IpX_;V=DIi^-k}qdB(NA`*F2lgpVJemmZ-R?mhnf$AA2%-~a8u|J!f= z`rrQj-~RmP|MHvv`M3Z4hhP2u|NiB_{`o)t{=fg%U;q7Y|L?E==Wl=ikH7ropa1E9 zd__@q=-^E|c`||ZfzriAK-BlO6%vl*CS*6Bwz>jbs$HKfeyA3l?H)zPC?`VxNG&*~ z(R*Yz@?*C^wz@Bz{1dmh?~-C)BpA2_;d^m|&SUj6@A*#hY0E#ajD5__ePkmQpW~{TsI+DLAi;-)bw)nJ-Y-&N=xz zU;8_+cx&-{w;-0YckBMaEsm$+B>j)RekcqRe>XcP|CHtyy*m8@a(?xers^W6%Z1j& zcYNf}n!-^y8~-Iw!>km?z%{AqMB&d&RRf-WO+Qc{d|5@$hgDs^MGWGbAswfr(@M!d z@NrdtbyXL`a1U*mBvI%5(tr;#Qc*`AN!2W=I$VIAtmqBjeuMz~{r-IOR}yF8q$?0~Z=j`K$txIpup55PMu6MwzG7!8s)Uv?Eyyc!75h`qNJBr~yfId{%4%hP6b& z{Wjv*-PNeAE?)-eYTbYUZ~R@Li-WE3s%94*xN92eH{6pSf0^1rIHLtly}NLtA_&ke z$h(L^fQ24NvS378`UnE+Q{AZ;7{;nNYj%s%RiYV7!l`3*yIcxaqtC&9iRvwtTC-c6 zhMcF1F=+~ zz(v)ICPFgRg4pQ1vcO^oAPLYdif%wGZE1-_WW~(DYHh^0-bhLIL3WCo@q z8Eoo=^ugyNV#2Gx=OcFC3V*C2+BlglTEQh_CsBK5_fkYljz=}&L_ig=i+zalD3Q!3Gxmbl06ulx8Y-1m*m`s3VGBeSr9|WqrURR zsXgS;x}6E8!4u-qxs3tRvmV&T=oF7jTExFhGKnjEW+-h;wqIE?b z5VgQXalGUw0jlHgvH|jKQPlhJW~a-kXa-EjUqd5Dl)4YKn^G6^T~eZ|LUFK3T{i$y zBrApPFg{CN23Pg#77P$Jsk3UX;G!=H-pHHJ{!@du;Xss+sN#nW-$vEXoN@kUm8qaDya+A)K`Q6toT=uUZ|$7 zeqFAWo7P}%MRw6}Zb5JN4PL72)k12E)FVSW;s}h}WoBzow-VQCSXUBeL$?*eZ1A>1 znBk@Re$E}e26hXCdGJzQAydLU+@K1AX2LsVsU6?plloN?1Hn%@?GRKhIV~3&PWvnc zk~!^rDG<-FLDD62+5jfWUHaa<<+MwcK)CgT)4pB_WI*IYv-m=0GS0#5E>)py=!Utw zGQrhhpb$t;H`oodZUDu}diN2VfmT4E97a!%*%+b)QArfNR%eFwoP9y{zON~{!7SJo zY^=2YX(n3i3Ti=abAL|Erl1zr3xYx)e?|UuvXFeC5vAspK=M<`mY6Nr5%j5$b&T_o zd(MWSqf1;!dJwh%ZFE9uI;T(j)Dj{gdquJU^mQ?iq8*35^p@&^!y_9l^02c5s0AMn zy|@4yfW8LXQG8)J2MYXGi{bPQi#m@e@UJiDzHhT~%WiUG$wdgrR2lf!yAb|8DJ=*5 ztI1*Ca);l5{Mc+%SrDWsxF)3SGcXcgZeR0gw7h0)z#n(yjCh#7?eGNPyKPBue!LcTtpFUYe=>tXAXU}m72ap zJSsL}nSHzz?%xDvb4^b}GuCIO>j}T6PcrCh?C%1v9`se;f4d70X3-FXzUorT59TI@ zWuMa5Aq`&AS1vU4^^;N`=fktqN24K zr{*$S(h(QJ;hyPh>=a?3n%FFMTzV+ig;e+e|YO&(CRSPoFGLdEr(0PW=^%arX0n~ywp)b712A~!PO5e7G z4*a+EdX>#L^JU;)Ek-m>dk@gx-lBa{ftkHPEzZYL4$2VV4g8PIAV&;P$yv48jSs8# z4SNIg)dYf{U#r1cwb>E1rv8`VtkHxLR;t~VV{qT#tkHx_9VzfVB3V3&!JrO_Rn5h( zV*+&TnBIB8j1$=1;q2Ode=tM4q3z(I&2D0F2XE7NzM!p!ckCnr!d0k<0Uk;FBWA{* z#Xydow5SsF2A_>XnM9rnCvrlzIcqj(yHEjj<`Fh*<1XK8uRG7}o8@`9;BR<6S=Gw?kOG$E|Ur%UhhG!P{h)F4-nog$dd|Vl}8tVR}0GZ^zi`TyIPC{ zy7nHxyIP#i)Q0}}%ku%c+kBkvecC-xuNF9v?V!P!9k{O+C(Vy3V-9>JPUK2KeYJr1 z=0ksg-rfVt#Y*o4I3F!eytjq76KK~~XNm>&%n@i;6R;zbUC=zXg8G~&u^s-hNrKPI zZK9$728-3ZoX*$Dc249?hcO{YK8 zV`!{SmwhG`{%r%ax`MLd8K0j@TnnyifVNUl+0ZR1cjY1jgSaZt&I>9V)Gbs$7`g57 zE}s(Dp~qelS1vTf^^;;Z_=CO@*IQ1*66N=4<-qYvUmdwEb6u)-!*4y9>&w+{j!5l{ z4DbCm1fcfA$>=ypAA5yIQx{oANIMK7#}TohtN!DH*z3eEg1IR`v=0S#pNdTVamu^ zwIFn&_hN$fb`Lb4+MWaUYB2-_st5vYMeKImT{E`;-gORk0!6}zmbq6pYkK}!M$4)N zaSi?Wfb_ch_Vcw56anaMz1}6@C4a4e`f7pG(TIq>Ie>n&7^&m3I>9bdLB z^91zO9iHFi^D~lK@p4cD{7A(kA5og0Zc-b_b0fHMJY*Z|n z`F{-olY%UG=FA&{Yk-#gscr(@HMCKa;w}b)sHzk++HeoQ@-zh6fUov48`j~}&o>{w zSRHK*B_FN>bKnh18%-AUdPl5*j<$~6_!jiL7`lB*X@_EcNol#zP})zb2b~Yk>Or@h z{w3P@Q$^G9OAC~Csh$wO^`Nvb*Av1SJDhRI3h)l?7x2}JVSha3P=y(K(sJ06K>(cB z3Kf)K?h6wF^U-3&Cly7eLH5{+K=@7G`%HTPcD2|~!eUA%ZM5KI=_0RM-eZCFXaQNh zuoHg#<$HkYYC)K9zuQ7@)c^oN|Gol+gvc*4B>~{o0(plRzn1A6VDA<~JJHrS`0h_4 za9t*YS#Q;=l`TMbwK$r?rV5tTS>t1;CnI3H%`=6?+gStJ)q?8n{oy~zuB-2kgl_9# z2IkcQy3Z2CLAR6FYz0oA5BI~!sNJO1RJOcA2NMK z(h+!|CYSSh!nL8dYH}j6vZv?JTQxbLT-H0O4fZy2x#UZucHhRkz*Qv|vkFT!5JY(R zJdw5?>0`QbsZKWW#X@gw>F&a?3g%}x2v;piV7(dk4GlSYnA&}7%c{zeGr%K%NmIUx zA2!6p^`gAFrnm7~(Am)_g2J;3y^SUah)?5)69AeAwD#ZX9G|BWyas_pL>RBjjMy*` zx8u~rKoC$Uk^&9)aJLs-G^m5C76BL#+BgmiMaBlbjV23XYlGg}Xsau^4mHp>YMRA2 zJhsu~Q+hj8{Y!ewg@)dKEve*wSrGZX)>8J^O8tNZdi&nK_1G>|U*f4A^!DZIOE_#f zqdo2rCN!ds1hFQ1tGyy0igPzBNXWDThfS;JXnO!XJ`ef8S4rZ}P9g9-S_~mCIZ)3`7;KLg7cwUFv^((|hBtoMz{M{ctoUWa5Wj4I;g<~^{IWrTU$*z&E)NdZ%-G;--DP`s z{m1RK{kUubrb9Wu)gAa1y5+4<7b%;iPf2 zd_ALpbR;k1a^h1f@i6TbWnrjMlXzHcL>Wt!D9QdRP)mOnt(?mtpOsr9;>jb~G2t#i z%G%>RlCSVYzGC}3<+kM`uyiU$3rdI*&l7iHNrcs!_z1+2$w#6LH!_Hw!~*1gK_q) zt2aNqvnL2w+uxkxJDh{IG}D9mT_9Yqnn1XsiSO#{56eO&(HZUkiSYtg%Sa;c8?}CKY)=I*TpH(Ir7d|Ip zTpfp-nS?zr94|>0>2as`%0!1b3H#Q*BVprq3$==lhe5)QFV`yKa1znV>zP;`%6X6d z{{M4!ra6)t%5k>E%h>*L(Y&!VS zyH|bswf<;0@8xW_rULy&Er`h9ZgY~)Z+$%O)PNt){C=kv1RwF_$)c-$B%P%w|9O#4 z{Rh1V>QY3nHZ)9rm$-nFgm%_b=0EB0Zc&A1J|+9JT12^)=DhMR-iiY4^Wo!P)#65> zSWmPua`-nNckOIbpYrcMid4LpjjHgzfB5)ZBs8FjhWe-XoOAo~v;Xo&RAikWgyUS9 zTO2-3ChkvsNFqzcL!5qE*3vRuE1)WY1W5qJ59D|G_p(lw8NNSPlakC?!<2|flm}~_ zc7|8HJ4-@n=tVe7^}zkgJGjhN#nENxye5POV0(1L4Z-&K`3%DLi01s>`?6+y24Z{a zmH+YUcQHt-+)g(d-G;sya8+(MS{o!)ZZ}#R*i>#eS{tTRZZ}!O?Z(T78I{|;u{LfO zrQkaU+mQAAP(Y=Q^$}Hd zpAfLp8}aBl8pr)@(mrY@+-KSbPUbtH3c_Qg8&nboOlnv0on;K`GOfjepk>V;>4Nxd z0&qaBPCmur95wS+f|Rx_9*^4`j0i&NLOQ}xM#2i|Q^Ah&?KbDJgQMAk9VLQ2?7f5Y zX(Ixz=A<70RxPOeT7Aawyxb}d$GlRgaY>+8-;}%Lax~|$@Vsnsh7#4p1Tb004H2-s z=QpVg@H{nv1}{v&ZW~6`w`szlz;hc%2`B6_YTwZ_j#gL7no=S08cYZ2sI7e)sGQ5UH!U^?dTvuZ;tZUh+p<7!G z9M+d_y`y*vX(zS_)(jTbryVqt<_sCuXW+4PX&R>O;g$w!drS<~8g`hU+b)h`E7s>RK6G|Pj4lUj%$2VsuBX?=fsj|btHqbCp0w0=Nl zM`8qoW(#KNE~(L#n}DD?pf{2uGQ5?Z1EARg9|x6}I^Um8EvdLU!@SGu@WlYtXi}A> z6^G0k)mVQQkjzgKrK02jvE_kkaSRW4`YTTbl7ZT>AvJJ=do@pJct$Y% zG7=x&XV6h-krPrwG_v8Agw!C7klxC34aDN>PX3yJMMJS?rEz~+c%QyZ)<1^PkFw!? z`ZgK6Y!1xfec5D>f7BptkAIYJ+kBTj?9xDOpANa)#YrKYF+W7Z8K=u|#^Ev{d*fw8 zASZ=}HVtR&?`@nhs++f*kqZN7{81~X;fx<5I`%vOo#{Y4*V*U#^eTE<0wr8aQTg)lv#wJfGiVlk|jY0rF};Agp;uYW<69 zv0;&VUg;+=tfPy*lJS+2Ff0~?oLw|*uTU*8S*0AvXr0}9K(ekYO6J$`0fn^{&yi=X zrp*Gv*@ASp>sIF$+|^c$`s_i4Oe!2)?h9cdkXS9Yt9Zv(&bsRyRytbMuEQYI57E3r-V*-J+u~z}CroIXv$7*s| zo#MyAvW}}&6mQZSp_4kum20_!6gsJcd~cYd!CMsN6kgOMQ5wEQ6>FtZl?+2JZGkS6 zY#^7}WKWWfLEMg1&2Ty9yA+Aa#;0l^$A~S7GSpMM--Lh~uC)}_kZez0j=|cVBYwlR zJrveJZV!bul-t8c4d(Wk6wI@^YC=a1^crVoo=d-M$kq_k$=VR>)7pq>)EIAxDHjG} z`lAX?Lrg#9aY`=9QER3zotYoaM`F599_RR!$2opk9*4laGr?MjtemO6%ZYb&W~v4O zNIH8WfNQPvPmIr8(-*W>$q3Hg=g2p}I$KbhTSX@;u>iTV1tR6}RE`utO z*`v~WIn@HjkOQ1rVyYI`V?&BSYWrPOs?#L2o=vp~rT1h}pB?6F|7G3~J10j$COt2ySbMl{7vT0G=&yJ*kXmOHy@(-*2@Mh^>uI zS6OiNYYV{67EzM0jye#njV`A+FfC;ltrZ0k>sW;|GyfP^pgGtL+L``}Es$;aQGmTuijgftnG@e>RGuB?GPwqoh+rT*U)9z6YH~iW| zg$=;=P~ie+#yELx+|3N*RM1+I)Nqe})x>aa2YaUIqTHo%qvnTr%T}YXc*|C~FtF7h zHEkNU`XP2xlWwGh`Hx9AiB=d91YbYek92jP+RgE)c60o?+RcGPlQXr@PN4AVc)!)a z%-pM}Dzc~>2E3ab2FW~mNpE4>v|=sd5(Mq`}Li8 z6kQM_oIt-?@F_V5c!2zBalk{_5!u{|4e+qg_6$<1Ca1g94y?qRVvA{yr>(oyo2q7aHgeivA+PExC8 zXz=zdOtAQ2!#4^lhcIWAY?RwSeu(d^hOOpjBothG)v!v#v7*%1m>7^n!Erxk_XmT! z>fo)N#Rg@4fj`))E%4@f4X_>_ZO}x_8e(0kdLe&}NrkVLpDO&Ut1cO0aTH-3uinKV zs|~U>kb3D?fA+B<;D%Crh%@|DfqxkW5&Tq#$V_TnZiIpAB3KgV;HTMS52ZCMd&^m) z*m%oXxiE0nALVQs&ic~1sRHCjsi9v^`aiCY40WHX&GD&fbNsrh4OkWd{NG<5%f<${ zwVJyYiizN;qQ|JcMv6_UhSv=Z*j5n({E#!J1;Vw~{*6s@#Za}x{PjfY^ygpeP}QE} zIm+8y?FWts8>@?WRVt?i*|P<;euzy?PgT>b0Cu&&8=g}IDrW=N)xt`ScjdtSsWjlR zT7dC-4+;P;ovS)lH_eD@!%1yE;B0BE>U;qAI_LMIx>3`L)Pj)JnHPfnx)O;XnO6zW zuNLT)&is~*K;MtYDS`*>*};BobQDvx)dEfP`7H{znoZzNsB?}lUa(a)p}zkd zq8rRrO($CH+$fcTRC^3uGxfIs9MyhiH9`=yh7Nd$BhZp)fS%Bimu$zFc89~ zvE7Xi*FcbPOAV=Ne7NvfopDNN=FPkDC-b3hGp_k;W>JO+R1bcW;F>$Y?{!*O-+FUxvb270LQ zwDLCcyLYdr#V+Czwgz-?c+2k#6jgsIkZ{@o=vh+_s8$PNA?MOLAhnJOc?@-<1*xq{{z04;bxZ*2Y;i@!@lt;m zq}EmxrdkQr`0v6cMiviF+p|BketQ>#suno!=TQWu)#7xJZ;O_h+Ds8^J@S5z{ng@3 zT29*6+GBsUI4EyvV*qrGQp9`qGXv&oalAo6vD+sA<8kO>0m!EE%4u!!6nk&(IPl)`nnv*epC# z-#5w%+AHdJF$^PwqM@enOns%AG&y)?ZWAXP^4A1F7*Y{XrzTCLflRGb?5jh2Z7bh zOMq(CU^wE2=y;~Ky5ARSZ-BG*@NyK-Lwk0gEke~>z@p`xYH@npW=|Y2trk~gy+_v+ zkgXPYYqJBX(gy(CEN%-iM)2F7if)XI75G+*^P?$~31Vw2q!^c>raEgVBF##8;I+*& z(VJ;REAI!q)dI=QJO?f3)YZp_+w6k`$<+dG*z(NWiXH8-h)4mu)#BPxK6s`!L+*PH zjtLKFHi4N?Np^Ocg63*+rOL(V><%ufCVb1y{_)_YYCKdd`*Mrg{ z`nl2^-sgv*O4Leh_L~7535HsTt#Qr5MQu&1T3$WRirSmH;I0}C)wpKiqPF@2@_~g zud-~Ism_;v#CEy`hIE92mi@`etU(=xZC82<-=MAfx)GJNpv(q#5vQ#rw00lbn(wkF zl)|8|csY9(oA1JxV@q3gB5Z;ihHALCBmXW)ZNAG}QX3`YTT;t~fz-Z}=sCV5da4pQ zSH4DSKiZF^cArGg@hQ=B{IWz3q!y)a>IqS<>vBcKx>kqJy`s2e2#0_ERWUnufNTNM z+#+VG7KzHOc#5VtIWV6aA?tX#R&EBe>m!nuHH&cr>}qkPD*U)FgX`HM{3Yi$?o?Y{ zkdhfWAKXsDtclvZ1j=Qe*?2Bpm=q=^$jw4}6ZaxK-X3><>es!4=n)aQrB zYBRob8`m!%=D8UgqecuiJkCH2FRV%nGz1fuYQ9U9W)=re<6ty=Bc668V1RUwEl~ZS z=mLEW?MNIXGeN)RoGlvMQIAcl0W>29jkUF;PUt3Fz`zfee5W36fJacly`iB7av>DG zay1*ug?799CY<{j%rVERP|&2p6`a#*72!7byTD@=AnwZ58U4n?Y6zhZ*7#Bl>fo`x z!`0s1WgLRR8_c!g^M+{T6z*}c>icE+a@CO=@v7P69apu%){l{%tLk7cYefWC%_i@- z>h?~_C@#F`s$A`rj9wRx*OFBAywewyjJ~&@xN6*Phmz6uR5IGWtYmcLoCeWFKAuPu zCnvjdRp}L_lr4C{dfAiAy&EQ;qTqzq=K0B+5b@P!847%us?cl z;bQsQv)WrzY-RmT?|%B>j=bvVn*F<5 zARIN9s``go#Gzml*z!+r#Tn`x%J46@0GAeY^P8GLH@9}!Q@qN?{9sQ$Z$6Qnm@kb7ku&9jGkdui1-RSXq=k{ zT9+SV=svsLkRd}Yu)jUr_bF;~Vr;a7Ph zV6CbuNF(LXr{3>=8rrhGR z(6a)-?Wt}eB-N$qd(R)+DhWy~_)r%J!e28>_^U4bbp?TnZZ(ez!m7)* zb>_#?xu&wL|WUEGS#0I&5*uYXtF0(DKRocmAmLQMah>-x5|X421Qa*b~3^BVoN4 z!fJ9O(FJ>ffzppgBTd~W@w7c9p0+PbJV8^>8|?H*5;ax4?U5ed z;IG+&kAT~vBp3WuEnoxL(Ng`BAh=mjo^xbB0JvJwkVK;9D)o<;gQx z`vI1##dg*RwDKtgub&>i=X1$aev68ZHdxYoqPd+#SNIttfcg zP~n8E0nd1W^iaIbnX)Bs?+CkJ&6%?Gc(VMOE>qu@7Zw>B+XMcxT14KnF)^rv*IvY= zIY&3FgV(B?vN18RYb_vU#(L$w|VPS4IO}%qjF*3s4sCT z+Z4dnm$=lq)bQs@2{ujdO{t3dz5Pg6_o+*5Pj#v7%j!~5Y4=9B>F58Rsc*dkVO8o< z+e23KDDZiri7hok6GwxN8z01!4$z;4pVmgg3$#6uZS4;i+()iYFOBfMAc~Y;`|2JA zqg5P+LP;|v0HReJ=Ax=r^&Sw?Y!Si0hq(?Fgj7{eu2((MD;xr_RtsWh=eSJ>X|^Ex zZsps7km^|BK$`bva9hWUeDsWc)#U_i+gL@JN811aYVGXpq@hj40-UztY5Yatw2p|$ zqSwGPU^-h6xV<_G1hjQT#EDHBRoVQYpgJPz=<5cK~~ziZzM+*CWfHsKRoJ6zo?ajtLcU7wwe+pCKkke&RPndR#y25WoDo*T05 z(dL1S=DzGPF`%=8y>~fH`ye|B*z4Ct9UT?o_ukz<*^B_iH`<9(?VPI!3g{8{QUJ6U+ z8eXYt5YMe>I`aN#K9aM23QOBlVQKra!V+=e$aM4Nc*To#x%1gs$eHK@@Li7IE^R8t zq5!qro>F7{X2P|Woar54a}q;ed78D4<6!%+0K%-%;ad6zXyr!n2`UH6Ejh~;g!$Yh zeWe}+0%O^NxDz})qpt}R%N9`xTPk|A-ok7VxruUWUwt=Voi5d@h58pd2mGnUMyd1h zs1iifm2eeN<3l9+qCbuCO{4-*GAoe z9e}PqG&a}NDTJG87cJ?ui5`QSX&2X`kA`Y{WXz#z+F?5pYaR@$mQD6ZLK@EPVRwdl zdrY8ex>jvoaL(Gc5%le=CI)=YG@x%^{Y8VhhSKFsxZTOt(T=|XMJ>O7Q=P$jatbD@l1S75 zA6;8OqK+KZ&u^zn@2nBJKc00D?D;Pp9%ti#0G)P;ptHOwS1Jn5WeYqI8aCMFe%l~W z{eI3I2IW+MfhwbO<}kpQEzTVNOU0&2Q^7q|Y#?7~uCNci%NE4-6IqZ^zNwpO7D#1h zKV^FuobN$k&t*|c2YRO#B&4r$zikFD=A7#2oi1Yum+X`o0pBtob9e<@Pv_%EjHQmQ z@ktcf*V`Jq~Hkx=Gx)|%Ttez-$o(k|P&^VDLyh(1Uqy?~;2 zm7P4}Vtdw_E!azmHcL;{Ca>rOJgCq)axoAwTX5=kZqm~ML2Y%gqrQ&gWeXM$b=^nj zC9s$+qLA~Ujw0wNFBT`g5@27$$N)^WxS*~&x*x$%wIJAZPMrZ(b#BQM$irUGhT(PD zf-1wS@*{w+&Vh;&^t?{z;B;>o8?db7eh%pZXMdoxj>)am91z*(ySJ<3O0la358=2ONd}GixTOb~v^XU&weILLzTM)B* zT!eaAH9QRj_3o0%R*ezQ&kTBMbg8k9n~&W-01*PjmLc5Z$Pil~F9Vhml~J;O6n zJ}cdW6Y6kT;kw4VX>djYkg~rf+~4pFmew4k8-(G{Tvl!|JfrMhrF({8dlFv_!dm%1 z1Fanep1&Dtktb1~)^LjS-`d8IX^%LzLDL>KYS^@gjY9f#C9l~iq%WK7;fV%MdrS86sym(tCp=4nWc@)tS$ zoadUS@zH)Hhx?Rnwx`m~_GP7;JJkm%DZ>W-oyFuYDM_t@j4gr z0BBXO0lDjZD%6(6$rcbzPPo%nR-KQ)Y_=fm@3tg`Fg zT5!CbDP*Ooz_hN!Gmhkubb`{^0@C@o)D;deYb#<5W?wD1tZxz9_eufBEXXpdPXcY! z-(`)~bqQ6}Rd!Kvlcr_~z^yMB8BBS{YSL^0bDf`MCQndBouFG(d~^;9&ikYYH*P$m z@J2P^J9Iv+|5kwRqG~pc1JsZXLeiCgF?5RnKXKhPoDdqRuM=8A_BG&cQp30SK(CAz z8mYr#>WPhsVH)(bVaf($ds0>n$4DMlLR51%zZsA{zlHOtGz1q~scW)1(>LrQ^m^&A zHSpTwS%qclo7#l68eZ*jr5a#SiB10)6L)eNdhJOkGWgoVccGQq-! z1SQQ6=A_b4tnpV))&^B?{gqK5yrraE7%1sWr>0WUmrl*4CZ|X#@*R})qy0!p_vzGZ zPo0|W%Q`iI1s7^!fBs*xQ*y7U)Edz}wFaXWZs%C9x^uv0tq30sZ*%|w&DkPOU8Q_> z<*FdFR;K5ic6OEl(^~#MoNJ@|2$a?#p#siagdE6Li_=-e=PLgKvCRU(l;TnYq_x%I zwqWL9wDlHQmDJnH>p*O^z{5GKrUTeI2gZQvtbx}y&s!V`+N%d*Yb(N5=Mvojwyrpq z`5XxfUaN)GAFZqqxYo6gglU~A5L#OuNje`L=>T-L2wiQJt0?0GKC1;X>vPHVD7L63 zhr7D-+QK#2giqRIQ#l5*sjFr!BnX`AvO!*bK_g+FI$Ol)R7wlk)UijDYw^R7O`9%3 zk$4rII2*bVBdEz(4c9h!ixPXy;~S(!33S=so3rzRX?7Uhq=p-)kww=uG8}`wDSd0$ zssR~=%9n)PP%T8nJLPX*xy|z$cHO)@VM9<0cr|`cgDcKgmUP;%D`eUHyTk((47?Zy zV|CRbYv|QFZ4IyXIBgBQ_Bd?~z4nmU0$)oK8}u^2rh6DEl=G`5hGl#1Vp#T$nx5Xt z(!_=L)Re1FS(-vkUl;H%dgaCEoxUJT^S%8+WgIFm4N z1GMc8`8gh`RI3Nind*{OPs=aVf>3BqEk~~ROSK5Z({#tYaArdaMrrjcZN)2v z184M>{n{-^Fv<|p9kSc_oH#!n`Sx#pM6Z{H;^Xh!f~15zqMe7-o{B{3x%$o@>O4#7 zw#v!==oaB|A4m63KDszaXQudPx7euLHs0eezA_L;pO5ALTGo=4aBB|PWpqzJAm}vT zF~zO zGUzC;L0!~GY*?;AT~wQHhSK0IxN!53ztMi(8496Mt-I7wa2cO!pcVsO3Fz;Ah%HK> zaqk+CMNu&2IQ1@uWFh5P8yR@@%7BJfl(pA;H>J7_un4}cl(Rt8x;FRUD&nlTuz}Pb zAF!cRo3rL^NKHr(G(Y6pFWrP?cRcVUn8%H4)oJLoeh-Uf1O`fTv^mZe6?^Ui^K z;=;gEUxGH3rM?7hE+rW#e(=9OSSp1zpMRhI@a&-P%}0{DPtfM{6tp@0cLZ&yrAU%B zxeufnpC6@CxO9rcTFESK1#N5?s2emBB%oW1{@*sulITdPmdC%MLz|Xm-FHE86`$aU zvbyL%an(g21U9qOmZYl1O{;@<^?u|YAx$M^TB-$jp6@~A72?Y2_2?3W%z|IYZ*8>z z+wC5w@I~3;2hO$C;dq(H2W+?T!DO5%fL<*SS(-(y!Fioqs#nj#*`U5!5PLjp-~jr% z;#A5fs@~XGf%$52RtfiN0pzR2;jkzbzy_di4zn@4Wx;>7z@N3CpWuHsA>8hqWV)WI zJJ$7JtZEWTVbvE4=4&&O-sdU=sN0yyVXH3;vWwD+d_z4)Z{tF3X@iCNm1(r4VX3-O zfvts!K^EucbblX4xZ2f37 z^45I{H>WLx7*GElg&Ve^NV^F+#yfR;{M=u?a9vsV%tYQOtfBntu1`s@!agj1giN~#uD3Y@0byNf0@3$~59L;}dIvvx;0 zu#68hR9g{N(M6D2E2`PgWEHTswRn}Y=sG4~wOSlEk;AMOP)~g;ZY29OXZqHPul)JM zA{?apQc{S2?rzXcH6b2o{$wDU)J#s4l&uUkph>>zqtt3`mM}3+wjONMvZXfU5wB?e zWqhyl1=9H|4X&tus%O#dslKfp4FG?`H+3nfgEvO0;hVmCnpTEnxDVBp&^*3D87!$w z4>S0By43S_-4I#BFWj|_PZx%nyM@cK;Zg;$w6aMImvgiNS)ItCp%i+H4LgNJ>Pz@& zJjjMcgfM6Y)F!6bfC(9(o<-`ru{FPBP_)NwYgiQLqVm@S!x|W!(VBCjTydl z!5ek7tE7+J_5ao0QxH1$>OviK{eo%YNW~)5v!r}V-P_@o zDjb2UbWTu*XR10ycmqcEf;S*rz&Sa3PfM(_RFGPGj&4nt!DOv2>UL{gpZdFaK4&fq zPG<|YJY31+vjf^@@z4a8vU`KzWG3 zb)N56sp(ng1DIC}vae@XJ)Q$yeWd@-((G&iwqB3N>~*PMQsBQ@pbfPW_V%|3?bGoa z39o^^cew7dZ>4?%1TW1daFJ)7rN;HC%_v>aFvg$yuQ9oeBh!!-o&vFK`DeZ<`P+nv z%|1dyH_A&WWo`1j;Gg=UX!>C%t!?@OP?-6x8Ud#Zna0Oo-8{Pi(+O!jJAoy}vU*3zg-T@va5hLX|E3HFVan zjcl^QUz`COxa|qVHFTrSskw+N&o+3AI$gdj{J{+0sGU$e=Wb#EM^V8gT{VQ;6W0sF z)$L&Ie>IF_Ui7bed4u69ELIT&W1@aBs1I}Y6Bha0cY- zFof*)xU+)z*&<}W#rIS>Fo2&eP89EvbB<~O-e(H}oSFze5MDcr(9}$nL3UwXqoxyo+wUGrh{w^@DQ+qEpgp6^4@@m27^h_54d0lY#v-sY+Bq_6CSDcIZ1M&JA z;JM0MNxcUMuNLRWtqUc&Ps&bkA7rjm26eU*mqxnd0_bC*eo(e^$FDn!sQBuNTOa3-7 zL}dM+ixMT>{S3f`jY)yVc)LsDzgQ63b`sZU-T$DssxR_D25Dq8>;>5(KEoDi&1?l~ zfojrR0EnF+TM(s7<@WKZ*a&Q_T6U{#IG)ZxUfo&%zgk>5@lS};vRk#dJQn01c56?y zQSRvTuTmS>t@U-gRR{c!K*^C5rL;-!B+1pi)*()mq^VMRbzScOi zKz_F1b83_DhL+u`#kMVk*kQN&7ToaTcR5tr3Kh4RnZs_gMfg~yC}w^3aLcL*E3^)L zga~Leyt4DNM2LWza0;?80p+s^x$b(Z*fU*SoHupS^`Qg4?gSos*R3w2qXrQ*1*;6{ z@X@UVrXo~TC;S|#?@hFTj_WhQ)LR*(MeL&-xAxJgHesR}@g_P|CrrL&T3LdEaR(*0 zeW+&5Z621s2IfU=ObqDI zFRVWcnaw}Dhh`RRtD(pqO8}X*6GYCay4Fl9Rcm?s0AUzd8}Fns}>icL&tmIxiAYH z@Oolq9!s!YEzl61eRx2-t&)Q{?(0~A>^iy()g00bu&V`L<2knrT-P}#6npk@!e-Ti zgrDqQs51!2>q;aRVE*0$^3?)Gs=4$lh_CO*?S7j%Hh`}d97fLma^OE(z-)sur@!iH zWj9b0Vn*hh1j|*E6K{I!!_{U)Z`V(=@Z08Qcg|0Rg!F7y7pj&t>4XOG+v>Wz=#g{d zgf$2xqDcax`|?({Dozo{>!cF`tMhu*qlCr@Yrq#ZPt{@8#vbVK1`a8GU3gwq7s z>FZta+v@B+^joB<2>`X#*|P)lp4#f{$=MXHj@EChFQ^4;HX*Ere;g_{zD|QY;#`YM zv57;lnP~jX26H&Tmu^?Xxo7@io~{}N`ptkY(t@4vJMA>2<26{C7}Ui_-RdqC>soTF z<5=l>kXvojWM&zD?IFOhSzWW$_uR1AZ1R@PhTK5QX1Or1*>^%wrV@cz7?S;y8G#ih21Hytquo3U5A0l z!g+^;*Q$67ey%pWAh(JPPB|EC!wXc)g)FlE;jh^Q4bQgvzr7|WJw)##4Rk&0a(2&;+Oc@ghT|L9g<{i+ z@fzAe%{2PG;nmProxGbe%Z4Ny-r<@o<>s958{pxrX~xJf?(Qzn=5*fxj~u3@wionO z=evt}Fp%rB!VK5&_vjzwtSK8{ulKUdtsz^lf@@&5C!W^Oj45fjz5y87lS=!V95F+% zi)-!n;js2T=|EN*AO2Wyo>4rSh}26>x3qnJNP1 zw?Jr{aFxWVTL*BhBd2t_Igtdrvjx#2O?)9VRJ;C=(QW)+fVB-)jDqckfVGZ7C&mdp z=SCdnt&Tsz>TH1&kLJx*mkUs>gHY=i`345r)D^eRjsdEDOk@*jww)&;<`RFW#)}44 z=ijBsr|wM^-h+1PIVdWYS`WQfHne0Ba9N`0hCeE;d@Sk{1Q zPepcvtvyOahFg4q6la&~9T{-#F)`%YqeNuTwZ{YwnpcQRYZ`$0WkW8%Y%t}Q4U_z` zp^;xU=<&-2I)2&U#xEPT_+xshJW#g}zy%?ZKgH`r$&~tUaaW zB`jRq1Bu$v?S9Ee6ZJ?BM9da^$?Caf8w09CbKB%dtgTj>E%5w4BzCDfYJkIRapq%L z?olm3!)$?1*EE_6cLN}^1?9o%NXPKB)$t+~(JOBSIXgJiF0#tQw z!=s%3>ft3gt21@gx(C%O1@!8;BhXYxApopHjofZ&1PtrAosAV13y@jI?Iv{ux>!BX zT1~cN6I}>s+Y;Afz{XhvXzPkyD`*1bIx2Tdtf(%Q1fEeN3b&aSb8H?Aj%R~Z2%Ga@ zgR;oh>BQ>gcW;Or$X`8~i_lJ6D=SyXH%Ok2k=~?9zW8Q{#$o#M!3@$!is_{5t-rRB zGek}VVRgDD>`7{n9Fn8U{`y@E$M(=o1F}8b5%#B8vg9$}4A%DC1(ula(y+wovY}VQ z5+`c|sfHy^)`mq5OB}3&B~F(OT>QrkNZv8R^E;)bxbU74a`maSR2bpw0838zHP@sPSuU#JhQxBJ5qICg~qpfF#T( zK&$lQx86U3Sm$8C->C()M&RZP2cC`k{jt#c`GekrAX7@eHdN2%pTMX2X#G$6yF|rM zIca?MKdS|?_EecFPx2RS1-zrRkbbvI_tEzc7tMlz{>|@kJlE;`yHDp;YlzqLw|}Sw z2UwMH{?n(U)>pCh{VyMAs`uuNwK>%L<|EC4yS>eRsP_{e5`$pn;g`Hg%SgQ}_CWdQ! z2&sYG9;*0P?aLk$gSpBN1vje~alC9mR=tRmHD1K=vZ0X^K!c&m58wRw|N77W`~UvW z|K`8{@t^br+3*b-+)~`K=-`kIjai7T1`6+UA{<6ps zF*zr`w)sa%L}ZR0)+^vw1pyGAo+Ir+UsaOe$2%{fv_gOk8PN3JR_+4c=HI;&Yb>W_ zb!!KF)#7@PJ+*QSuvaZ2l|DUH=QcD8POY<}u{zQ~Uh9X-eO3#AH(Q`dL5yHwRA8-Y zESP{^eRiNWTM+ia;s40NKw6z!Qae^6M`jUO@8dnd*?bR9??NQ@^RIqC0JGU5>S{F= z_d!-|g{bE$UEJ6HL#m(FIe<*++d_`XoG1^OR0}?8Y7aqST{CBZHT_ir3Z2x|aMqeR zO)M8+t&@A#A}US18vw3zg-S$ACw1h}o?Y-%1Jh@KWLFBwhdT~GKL46$DR@R6hR}t2 z7X!2#pFm>K#Ed~F_05vX#cl4i!5e=2WmdD{8(&&hsJrq}12}y0#xAP~P_5OIgfQBBx_nv#vOP@JkZjLMzQNia zId%x6_QmF^CPsfVVB14W4cYdX7|bvLr=werR94(ChT#ZAN;rHev*W4#ebbbmGoxdzhM6t8O^>jTVo4(y{ zu)>Ge;Pg&ah6Wg$tb>-NsO$+W&K6X}Tx1rVzR z=el#c1URgc8;7Hm{b-q{-h)*2Il%%v>c6?HNQ*c^WsNLGu(w#e=Pk#$v{wZ>oV zEr6^RC?Dk=sjdd_I9ssw;|?8HHE^sJq_xaRBCt-ifL$#$jchU9^+=*U$F|jUC|ZT? z_r#T;Q+-|1K7&}uhSa0#GO2NI>ZI^Vz2>7jVwQ^BCd}9%pG(qhEzRlkBA>OL57B$eVrm#+vQNmoF}a6F&h=GH4}>Kc+2)2O}x z=4!EB#LZHN2P`*>vz)3|&IFX(Q$hGrKe`kd>p3Y#!Zo@R_IwW#%det%T>Ama>l6@o z+EG=VS)@)g32hJ9)dG&*#ZuZDyIq8`)FA=abyd=Sb^!zHy7I4=I8L^Y3Xoh|9Z3gY z(bH@}mL)H1`CYJETj4rgRu?i8sPzCCLFc~A_^B==CVc6NHfxuW40h{EL2Pa971gD3 z(y)RWt3djU+yzy2Bg@s_iHp=`xD&Q4cy`i*`NsEZfX0NWbG+fYuuz@7XFzZ*n<=dx z9L39~-o$xAN_F(L9%dI-04dcssvgXH$f=KgQMyqSTbQEI_*s}lQ!??%O=6tQqbXB-WrwWTi(irfw#T{k1B6{ z2_9WaF3>sGw14FSrMKUrEWzB5_9KPer+9RJDjuD`u6T5y&}5`?fBbLD9hg@!1N#=P zn+cGwwf#BCt;7SAS0RbRbrCTD$Y%@oD1=ke!m67(v{ltf4#$NiH+ZiWw;}^*gao+P z@xj}g{fS*dkXc-m1hgmndXKBddDeS?^=5IF!_+z-K)qU=5tkl63c!7}IBpVH*m77K zU9#&F;MSgl`f5R8_1S+3=<6zpswXQytgWk?)~qRHksUzSE+^IIz_V4texMfA^2)Te z&LG=CwjkMsue7lr>;`JFAt&1r-Q0>IWbnz6KvRauUg!(u%Em_tqN{h|S!53=&qc9# zGr?6|TY>rchwl{mYg8u_v_7Nv2`-lu@+L;XaE^p(4LWUzssSC2D5+l2Wnfj*TR8;C z8?tFVNm+;PE{1zBy-UOS4eRi7E~&YJ9qteH(K4zWyI#S#2PGUdo1iGKYBD_swO2&eNngm_S0kmm(q9wvThNSZ_tyQ!*{TbP@B4+{8bYe; z!u;ut0)S_xAg|4x*Hvn?ln1>mgQX76oPWDuM_ zbfq2*;y5AH(v%I^G>oIzhiUk9a-24M7COW1dG`(Fh^W;v3aocGfuGuo*gU;K9mV67 zz%`r}zN+uhF21TWVUfvAIENwMj!=!DuliD~%V8E6w7IKvovKSdtew8R?lA9STca|3 z%U8KD@YR=uQRS;25=J$VN~+-(zWQ->g0Floe6-F1Ty9i17b=Ww;=`N=hK(IoGs=yJibMx$g@NaPVC%s3AH#!GL!i zpA7-ck@|w}YC&w>9E=FKtHmAN==Aot&Q-NQooYVY2ItLUTcpQBWYvO%u{oh0lvfK1 zI?Xc($lK`R@g3v?`lL_Pr4eb(eJ1UdiiKSrKl@Joa;L3CNEo<#&}c?m$NY zc{SN6EgO&fwb_}981tY4a9&La%ML^r20J!Gfk>R~hj0`QgB?xCOV^l@5Mp5HMrD#D zd}D}4RKY{WDEnGy!a8mv|Mr_kXB zWz-y1d7nVD4a*)ss6V;x65OjgtfnE9-K&Z^>q@o;ZHP!N8K_}f>8c2M%E$k@c+I;U zObp#vyn9HiE-|Sm7`@AeZ{Gx?Lija`=(9^23C-zEUK*yekrIJ?%;g?|&;yWsShrk496jx=)Ab z^3)-^d|8L6B;juyOg>KR@Ymb%(%q`6mvZcQ0)CHeaI^r;)6EbpSGALeE%X!wppq(- zxE!~*zIlP+w{I4p89}>aEXD?!j^G9lUdMX?ieSEiQ-C=xpon0lurnH6`-^ z>DKBZK-g&m^i(a*ciHQD#31z4-j?zP({TpRwMP*@7@0|bTi{$Rs17?9WrwQjINxrP zD;FaI)PjSBd1@C_Rc9aJ7IPOeP_7oIt2pTUQ-SNcCWs~Nt$=cEMJ>5G@r0_57HnPW zZtC|aXRDf20fsrd1=!UDM?$8m+6<(~F#=<=I}+QH2@{Ch0H+nFO3B|ARuEzYbgnTC z#%&$9i<=nK6+w~hH?Uj7I;tA9IQZaf)j{55oux z=r3#G8tM^85nd72s>{e+ku1=Vku{p|Ef#}T6+e4Wv0v7}4VJ$0aK3e~R1pY{DtsJmnlnA1zAL zR*tr!r**X8gdaXIJ$(nz)#3p+pIU(DqXo*CCvkW5(|6!p`-*BzBiZUZGia_BoGOjo z+esr}t`=~K5ife&BvjTcc&uS@#j>jQRER~cJgxTTY<)xTMz5>(?oIdc-dCWyTAVb9 zpj!ayI_5XRK&E33!m9U) zI+qX8!jWLCVWMjiDKJ`+}*Ao2DFXrx@|M?!cO&W>y(Z`qxyy_aMS47fO}HGgF9 z2}3TN7<#Idy{Y4)P(Vg~ctK0Ru#1v-%OoWOuM6H-;RWH086v7{P3nv=)jHjUmTKo~ zJoJmmRUL_S9a;l0*nW6=!>mS~f;-YcD{@SODXMkpDLMe{9J688GQ6`21!zC^SOmX| zA=n;GhK6T>ff|6J->rXiqti(PvmI3qDmGQ8n%xB~4y1K7c|}^UuQZ|Rhu5T)U$Z9E z`wx8fyC&50PTw`5-iw@lzK6%Ies4bGtaY~?B2m|;NYwSqB2hS5&-d+qyA1ZwDi{w2=p7I$%hC-F;h)fsj*9{|~j`JMOTI6tGovLBwM^U;pLzI3AK?^sOyuYIyXc{-1cW%XSav_CNJz zHMLSImb}da;UjSx20r<7y)s1uB!Th~LL`6T^A<(jaqPpvy}{d+NW_)S)~|eq9Z!Bh z)ZMJ|`keJsY)(J7dMcKU|MeC^at+mR#;W@|&}oA;XvK~&R@(zka*~uv%>I{lQpIx! z1BjkgxeM~FjhOUU0f(S)qHbsgQC?<{nVP~|qYnzuilq4`v+u_b7Sinc3MNrs-;gz*M z3f|q0bVg}Y@|9fnC8I5Ig5-w1^23DDzEZKmtf=ns){?L4g8%n}(e9{q^}YR+((Y5S zx;|B`u3uKMI#wRz>Bv#*`@fyinzYTutJX9(tn>qm2%a2Lu%s30A}UHBX{;*du$Ros zT>ggo0>g-qxNwxJkNv3te0^IaTj!2c@ZR)l&Z2_aPi3L8YJmrQe)0?2tHpNG&ARpO z@7>~dl2YfXUaQ>$wmGk;0PyQmT_19f?pg%*{mpd~YVQH1RSW8A&7F3jzRg!H@1Fu* z&Ei6M$$)8n1fjHg4|=NiD4?&iZ-ZivpcVpN&4TjD^C}Ae)O$dDiF65mSX*n1)I89b z$N@8{2^VSX_>OpZZ;ML8_+jPBR4;*4DOodMefyc4P=m-#HQYlzI%}0~^r0qTeH1B;CEZxNo$WB*TYT+)1WF-+L zA5p=?pbTHcbrs%WSO)G}U~WpyvO%I!h>(Mnnq?-`X6~&F!OAZh;yw(ukTEcSWMr#4 z6K+c$X}CoqL*}OrZY!s>VHM7wz^)CdfRSbFE&OzR6q34^$!`W$Rf4T|9gI|0d9FQ3trk%6dDb>SJz9|7d8Ba(fsbH1D3Vb zQ}g$8YDGF}{eBcm)aMKktrn-NBr^1SfY&-_9$KEYe>?%#YC(L+yrKhWtrq9oLIN1* zR*M6!uPKo(nmL;AEqW8rW#D4Kx|&>=LDRKflv7Pkl$wZM)UjD5c8MTyc$fiDpFV*f zkms9+ZBQ9N9tH>DA$fiqq%obtGdCO~;whAfHSi))NF!u}>(-Er;0I-p;bh*RtjbER zDo+`fabl*0w*nt)!1j=U>?9b`knOmv2xia*8(x;nHEb&}<&{9Lfg3DJ#Qjp5m?2%2 z_X@sxLpNsGF$|cY8wB_iyx@36$92K!g0k7*6gEh^k+ZS#PaCH3DWrD^T+u-7LVS_X z;SiGCP_2|*++Ev&Z1uv$NEKo@pto-nyG!v?g&XVE&i{*_s!8|o`d#3sqsdEtTB-q& zpYp?mpS}xOS+D`m`5|Q0our~qu#Q#bO5gbGl(Fv9w7Nbut*&3zw7PR}%v!#G{Cl$Z z1=Cdy;&2c7-axuaQyjO`JXalbA1&ZlNc)78Drtqt6ty>p$=6T0!S?aGgiz@O?>h+4 zu7W10$;?aogY0TSwa)q3JHW0M=X)sq3YP1$KlHr4dwGCzwVQN!`A!+$Inmn3RYN^Qv$@bzme4&ce-#64KvklMKdo2qFSqi?OQ2x%KFs`Nrrve zV2piQq7#y06ol1gafqHY7%TR)a)%j?!HYt;s6kf+rKTeO@`PJe;kF&$4`>a#E>M5x zD{f-g#boL6l7?0(r@d>a`l3r3sy5K}em#=$4c4g(NZ+qK;I3TS;L1#x+HPWa#rw9N zcM}7w9h#zVhF*J249YCxkwhrz9sk(?%N0otocw14BLCSy$A30}dC3w>0wA(PeweVt zciE`U5z75M?i9Sgj^8Mjl?5j>S%!;LuI@Yz zemGhXyuY3MP6(Ket>6t*XHT3^6&{EYo#*!erYcHue%!~;*S^1lrK1H=En3R4@AUwy zS^(JN+Ud3nlH5{s>l%I101@I#f)s08`} z>iT=Y4|SZW>@d$E0)5qjsE(1NN3N(d4#Lx)1iT$v;n$#gP@8c;thOS|bIu|`SY08A zkoLO+s@jUv`IL`jtu*s5oLvLAI2op-+LJzZP9r{|r%62kc*L@;Hd`xKzAPX(y!mldEWJdBhezOwg!A58&D z-ipc{DpA+717M;mu&^PTKCF_+N?rIts9onC;Q44lmiv_|^Phk5Y+dyzNc^0iPlM(v z9z*`m{L~XLR|^db2nAZfa71Jb0AQTeTHisTI081 zx>^vb7th(pR;A4*M~(ff4-{7m!ZbR+1-P}<(S(5daW=p`np6pT30w=b47RGX=0VX< z-5s6p0q{B@&aEnyo4{6eMyyX`VXHd8N9vpof58C?Th;M8w*>CMU2X6x!pB>|U9}ap z2Nus_SVy{!9^3`G3wPC_s2~9+xQ1_g9IFO!XO1?6HD z;R~K*gS9;@*l-ONy!6w;Pi=xOxwfHP^wS!ykxiz5f#E_|ZLTdJ-jHoa38bQ{I@kJx zxkDAYsteMd3uJT?1G+stx}n~ZM;BckA8Zf9HPqW|LRBcDXZP56Lo#+L|wnE6IH{2dllMAOc>~KZ1th! zr4RVQI5c=qMRf`9uVu!WV`39IjT97SzkSNAfAF5f%h8xf2^&SUm9S%>`?*aVldu*3& z+)3lPyjl?CInOo${B=CG1F=(|f1UGz{c6GJjU(7OA3K505+WVuo?12nor$*;VFLDR ztJ9#f##41Z5A^GrAd_icw*ln0RYbORI2|FeN5wD{=t)Ggg$SHp8tQf*ir| zu~~f<3+u>d@jlI02kWp`9qlXlq-)6;BkWa&o8Xxdcmm0Uz1m1F6*(KcnP_iFfH8b4 zWi4e#o&7>(bu7-;-~~2N;{;ve!c$7Sp&AN3%bXdwtPX{hj1L6TaBYuE7%r<5ey#fn zm(@-(EvXR8V9-XPna1>-{ljc^z8lA8zPq#5z^w_t2NOfLic^xm;JY<=BX+hwi2)jU zV5x?wb>p&td{J40ihfx`usv>LxU0@IW5~g640qKPykyA5U2WR5InZlIec1%=s?)}9 z!m6hSyH8E( z`c#v;eqBw9=e(adI(=|#NP&{hXUCT!{<-A5dv3i-Dj*OeyHDFe{Np`=`_hP*>@YjWXxM+Uc7;n6BM$yb4wAPX(l_#YInYBUM!kDBhfM1L$gT z-6-w#`4>Y3)B=h(_En^+YEd6PZ9GA6>roPUQrM`rI>CE~k&2-JI<^ET^t*%F+NuU~ zdR-`~&OZ)R=YbDExLOxu}^45Z>F@#htkn`gg}ltvfvWnFPL)l4ed?D*@MasdHUDUEO+!v~QCxy69XjeO zr$4VD8**pb+uXdD*q7^Gk@eEQRNB-gzVXOFf*a6_XhfGvYYBDjDXFq+u zdh@S-G@sJZeS%Tfr(o3e>w-}TS|HL+!AJ6`4{$7dDLfFS#L*Agz;RO^A*E@$jRE7T zh{9&kH+P&2V=Ky%!I-Dl1-MnpfuWIGdddPJz>Ap%nl+3B;pdPr}4V6jWPL54RIwpxJusDk=uiE2<+x z70abpR4pzKq2)c20y?S|Cb`-vFLYGrB5^A7`lTSYT2Omv{?P+|j}{eSd+DPCWNRy= z8|T+8 UmPnW*jD5o#Y%3CWj8o?(EYL8cj_D~$ZvsRE=o1N|}I?dO*nowtT9>85W z^`i;L!W!urSgS!7O6;0=9x~z$yQ;dg?D)aNfQ$mW?Z_!qCe_))yL1X^=*3|w0U`Qf z?H4xq!sDhQsv(8~3aUeKuj)a5VZ$#9{)zZVa`qaSp?Y*#C}+PJnw6B8aEm}F4bDi> z+9CR6s3rO%QS8%zjw*v19ua6Oj8vDU>Pn=t|L{{aIR*Z2=yr5H*x+|Icq`ReA$j5H z4c|Ct=|tBMZBKTb!CT{j{VwG&HEiBPP_-Y8w1*N;4eB(@utv+7v%%g=f?5^%BSGbd z2|;~Vi0TCOLm{f?QzgMSuNEj3^;W>T z_5*cV#*T=rR4umSg3*BRYH_Eg>(ucJz^ldMyr|LxzMI8CA}9NM0PkwS!Q8xDCLRX0 zxT>;NzX#xMy(=FHm04qK9&Fc9BOPR35(sEli_5KF7HGHWLpjkDq^i?$qk!$yNeGy$ z#YuPXKH-4&(V~hzRuXm7e)47XGKYK$k>S#jQNC_lK`DF%Oc>MI+IxxJB zT~f5|#c{sRt5uZ)Lo(t_%Re97qB>)q<=_G*)iKi8=NFt*O-`2k70Zl{CWNf1lQWPf z11&P&vL|%B?v=vTE3RumMQs7~&l$`#@S2qJ>r(-$k<#}cj$2E%dfsWj0@U~BGg4Z2+o1rpJr$s~AEN+uym2;8Wy~uz zMvu3a^)D|)w7JgRbfj8(!^G+N6(k@+#U2^eh=vI{ILG_Zo#09OE4Yp`%|Gj zJngGLwl_x%b?R^allLylV~L^4lU(_LU(|X1OB?6yG{z(Ld;HZc$d#IBll{$SAKZK% zfbe&>INhrBv(31F_&Q(-&ey>|-Qr9hRG_Q2z9>pRo(2Sh_of%d*>V@@wqWuTH$h!O z{155a-{1kQu!Yj;&-5<%XO6*x_;YPVwR-u0O=UEH;S-WYGV+q(0R3f~Ya;%YDiavg zJ%w%OANFsCbyZSJ_)?&e26p%w^t&UN7}{0+a*c&dC;c{hbjRXd{?q5kp^D&jek&KQ z7{(Q=Y9MDCY2oDj4?cQ=SdSXL9+WB%2B}=uTrix2RK}Bj>&c1$_nRBCl_xr#^gHhe z4BYT*k7APn7{>!C^i=MB2~oaX)yXZoGp z|BQ#9{~KJrq@`8NKlw^GewfhGcNwQnOW$Rjww5ea7yK^c^bB2RX}vzo|K5B`OZTZb zZBG@a?dvK|2jbrdEjJjY(?fp%SuJjNDRtR*VCbjntsq-IB626Jz_D6vu+QPC`g=e> z)q?8$^OPfy*({C=sZW4eEpTPe({`YrYN7llxWj;D>s?{EMG$P3{n;%})O;PbrEURW z>&)PMbngCxirQQvP<2YYfpVRr8w_gtR3N!p5FOL!5>#|-#kO?`DQ_la)Y?!0^!ouNJWhIx0OW%BI&t ztC9pV3IEiw-%v|d?{-h=_rcc~&_JyW(}*nIR<#BU;D}sQIu`C?Xjk&%;Q-zc4!2fn zWvE7_hh>6(hqX?W49IX4EAQ1oW-!C$yBM0q zV|<(Smb1kac4}tug&=N(3u+TF z01q<#{_B*N?vr}jo>EWS*QK7wdBR=yStixq4n!Z{p+p~K^`|6$eQScST-dH9@rwn{ z0V-)GjygUG$Ma}ZP1z?1t`?|^&T}|G^U;EmR|q^#nFz?P{d1(ym+p8?_Q@c6z1t2%6{nE*&p&PDwkYK8c_pUHrZ5<%4WrJ>6V1A>L3%KJl-YyOSO|Z z8%klRHewVdTrhNlIQ%VD1h}92+kj~laecnJGq7Qt6u{$1sGAtbU4Bq+ZHmh@l&eGZ zl_S<*4zgx!tv{II9BYi}<}Yk8x2J@F;T)YGQp60}__$N96tepb+peBX74n=6+}MEi zFQ!KM%vY1ZtsA^8&-34)usZXBpq?pZZ33?~G}}>jph&7>PUq->q>d&pNowgdM3Tx6 z6O#H$?`eD2d%CsMD1K?))K5%k0;S)ZPg(0exu@+Z_q2Uk?&(<4e-{Lw4xIBNg6Z|N zz;)A!IZ2#WJmfbi9J27IJPt2}O1==lG%qm^sHVx z$UE?^7T2RxY3bY)*MwS>z`@X0ooRyfqXl1#ThMm|+_e=1c1}RRcDt_TDfedw+U?ni zxtWeL$Zq{}T@>vH=GEf(*gEG0*>!Ah4~YotJPMe%*?<#oIvYTFopFzFL;$X9ql?OS z_XokTsul;-DyI(us*e`;dsn1^TJ;N_% zg6oln)BEuq$%1blJ~uG{BLaCzfDOSYDJ5SYDXhTYjJjP)g#sNmJj3s^taNLDRv*7B zGH>ukP{>mK!SD^99^B#vX{AB7a*IP$$HChXvp}q>?{F)RZbbo%ci|hU(_wh4VZL5A zFlYm}m%O#)0wQnahY4?er9id4D^T59#uUGN^41+CroOkI64!m2RNGUNYWuP#)sb~^ z!Xb*Yidezp`Dkwi&a1q~@ftm>Dqe9qFY<2zcGHs4aP_`Pf$M64=WEV9;i{uW=`k+? zF7dXi1w~IsLfnZ5TvfXV-Z|n-j1Eu>iYbh|zFPqHqXkh8d}&O{4Op)hl&zh|MS%Ne zK_qV@3UF0xrD{f<&j9smab&7ZpB<#v{vm91o;(lGs|CvTBL?@U0_Sbi(8-#9F97ql z3^WWgdR}!dmBI8LfV^5G}x;Qh5wMDN|zrm*qiPhC&F|2`u z8_1nW6H=GF(c8RiLM#bjFmJIEq40pA-GyjsAi54*M z@#~bq?$ff`uBEEFeOb%u$j2Z~@6SWZ&R|t{;<^&72Fq1KgM87Y>(yjnP8`&K{`GAY zgdZ*VZlna{)B=E4iw7rVZR-Hw^=&CQ(~r%et)|7H$HM)(K>BFGa@`*D@KF$5Ev_m8 z)B6NKSBu;A(%qC`xVFMsWlj}yS_9!~@i+-Ock%|Dn}rt3>HPzm+fyAwSTg{wt-$Yj z8CmdKEiPL4rISLas*O}7<;{-caY(4e;ViM<(ch}`=cXG`A2qPs<|U^Y!$Wlopj$1V z9Wh2=Y*mEzHm{vfF#>8rv8cd%!E0?sIo?H4se&&_xg>voF6&V2bTom`Qo^jiCX7^@ zQ9o@y>E9ZPfdmVGHSARHazgYYvQuqFw=BL047`xDBK2+f3xw8?4BwP`go0btU=8M? zDNZ>`V0;%+aP(j<_(&VDsit7j5T}O?+32zHZNj@4%;CL|!1#0*!#T=qRK=%2Rc&6U zR)%Nzp;Neu;TeADB=Bn(Rytkb)5LJAK8;p^AO>69$G0b~MQLZ}WN!vt z1mJ4od?2@mT|_4Itg<4S3UJ5Htcz&sXsJg!aNZ)Cx;#VP+mmUH-pcRHPGwZLD&ilB zCO=Gw=DXgMB}(yRFZHILce2cWo4R1-ho-=kZ|+l>+MX&?+m}_Qj)yw0z-Nbg6exDN zbiO$%AE1M@3TOhURW5|{?m3;SX2y5s5@0I)v^d{cYzpgUf-0G8E)5gIYJGYn8!pQ<+N!K8C5Kv^xe^P)~C zn5-66G;-<&gnQ~3Y}+CL6RcJX>Y9zO9*_EUHc*9Obh5^yew}d$h|TW-o~s3OdQOIb zb6p3_l9^TuB53~XRn5Ea0F!{;VuSoeC%jS zQZO-$!+p7YFax=q5^uN$TMG_5gEA`S>fv}VApd4qwog0Cr(sN@GSG-gRJQ0>C);R8 z*?bD|qcG0#vQ0pXRbpPZVw}2swc9EV*-c=ax)#lZ2lKd3_@}{Qd*6^XrRZfA45$l1 z8G7xJN;UL)=>)BU{*jyV!-Si@Ye#i%`cgY;6X^iX8TcDMUz>K+_x4kox=%Z5dum5* zKSn$1a3$Of-^PXWx|2a6*gd`!wOs7;y1^pQt%?yxb-Z;)0W4KjKT79hn3tVjf#Rz2 za?@|Eeh(0Rv;cVT5*E<+b{MPbOC{&XwrlSaH8J{YVhI4V&?NQf zEw!hjkizg(-RldmtHpMa$g4gcpuAcfZ;MJ=K)#I!`FYdc1@YB_suA;V4!jOJO9+0P zdpPkx=uD)f{1~U!`7Z2LEs$ZGe@(C#==!)(A80yD*csG<1Hicj8^dUUw=g)!*$TAL zg_D9vUbPw89>MbnVI7;{xkLLy2Q&~?oy!E?be09m>$vx@jZgr<2VO{O;Btm@=z?g* zW#*_lEGWInJ{J?Jv@ajW;Lt!o!q_@qS{7rgO8}y z&-XAskDK75{gmA9Q=;0QN>tm|m8d9df;Z_(EY7!oyAO7JD?N^V(=9oPjz`}> zVYjBpLAc&H{%y+z|5bYeJ*N2?DC~B$;A{Az!Q$!sf3zTD;|0R#yndaNXXcK)+g0lW4B51@haIP`Gj!gUD#@ZH3SVy?Yp~_9)e6=AKXX z1hpXPeqI@rEkVb5Pf;tiV7m6N3N`_qakmOOGN(VVuZOhb^Q&wm!5D?$P!&K;bZMq4{|02ZgOwHrc5O&THU4Fte1o#f4_4DE@Ls;ob>T{B zkElFlU`8Q<;I=jV;wy8Rpkx462};hL{M!IdYaA)h3D#E%fx`*C`F%r#H1d^`^ETqc??Dh#IONw5HckRb2<9vBxP8GpS6+qHwR5 zr&1vYHrBa65}a1Gh!b>Sc#`fV1+&$HRHzYKyT=U3)|cH5i)3(^=V(D-4e>iuh6wXi ziwntXQwzXbE%3?BEx>NIAl0-pE8yB%rGlRzwB4Q3+|%a;pzRGQayhjCt<|F9O@^`U zBL!INND(GC_d9~sYGM0q^q;E5@g!x)I{OE=b;jLJ;xq5W71&k_0s-dfPoVZ_0bjXj zxL;dqV7OXbSJB2rN!6sXvZjlzDCuZY#d=O5*cBS8&8YM=ueVTTtJDPjfc{lfVW`^d zs1;m86ev7&G|OZ26hmD5=RSeR-K@f-H4$8 zI>m4WM;@vpeqR>)G9-f&p92dw^r}?xRc$YWFPPX;v(>QdMLjLUvOAwD@)v>+49p0& zR99!H9A#)m1=%IpHaOdv=x+n24;H-NFi|yG%e)$*@ogIX(gtEUT>}j^+~Q-h^?j)5 zuM0<`OG2^MBA>b>%rV_5ZgEjvAHDpU7rrtO+fjJ7sOfl@SJd?ON`|U_cuh_D^(jNu zsOkF;L5Avir~NWi-U&0{L>gf5dDMTP^s zU-Gpnb-Ff+jt8zPt)8`-gJV=0RSjr7qo04BEc`}qjw;4oit+R4r&_Q+&>EOdhJU%m=@AOp!a{9%KCYUh)guCa;wIDt34sGY^=4Hxu3znE z-VERg8Sy{YW)CDhJHh&eHYyjK_&kG~)ZnS~OJoNO5edHv({tQsgUPRbww*M-GRC0V zOycW35l_d>dnBIL>ZmEvfl?Y?l?K_$XKH{|nd;%f22xdiC^&WvnD_+Hy9efF$OK+4 z$(lhEx`ay)rePBW2$rh$fAN*5LDs1#m7&wgi5xxVep16Kq8p5sb(6ohrMHy&GUU2@ zP(ldRHR#&B$ZIe$?Aj6C3n{hbvSyfuV>_ZH$eD7qRD#{3B_O3@@{*L606_AW-uPic zO5a7OIw^fALRA<1E<&~AApd*&DJ$KlLUntpP~Cov3e_DUq8qiRzWr;}T><{_tw=9g z#bSZ`riF703AI4|*a{V@Yf)Ttw1V!c9&>~}4-=yk0C=g6!ofa&prK;}${Z7dIVChu zQtbj#Oy+sKK)hO9DcLi<2MDhg+e19cskpyeTq6tB%a#o8wEw_*wLrUa&MAR<@6fwl%-zEP`)C0e-b1BZ zuv}Z6_)?q(vjF9z1&4%)uTCwBlBx;SJY&SEHA6RfMC0I#1itmk9O%zuad3=^2}Fb% zV8dTHZicGrgnLMUG;*qxM zK#*gy=pw_nRJO7o;>(lpIk1#wGK3?~e~0?1t>;v96F#d8vO;=$jZ|A*m%#H3$XHN~ zg7otJzEY&GQ>?7P8eV%f;e(|MP}#IM{uxXR*f`l+-lZYilIOiOXbWfX25fu6U>mZ9 zGkAlt9dWO?O064hta=_;u~I`1of1K$%3$p!E3JzEk(Khpgq6N4PIXrLQgP}g+5+EV zY6tpaj0=eUXg_78`!uL-PYtTukI|s2luz;|HtPP|`9ODVRCy~{DW&$Odk3u4v`|8p zJTN{sDpI=51Jgip)qcU1IA?kg)X@SrsGhm^%@xL~7N}m&`6r038Why~khq6Nv|+4j zLCVAU9-SqC=W0Qw*!(CI|AboLFrK@1!FIK{5QR1jbN6OJU)6&2yLmZSP~Uo2<(7J6 z22@rpPLwd2vU@OJXUUCEh$#(+%G$ir+DHAv2gKL8yP+kqqOxjnq?AVTsE)0kb^7~k z0Ohq6F*)=2OhA6LV7Jx0=-%%|U)6-l@{7}VFkek5y1pREVE$-AzN}`H1YaSTKbjyD zBjrO5G27oJs@0whzD7R9bxvpjuVV6n%IXlS*m6>{G7PK|?5hf$27(n{x|XK0aX}S! zK~oI|ae}IvUGQ}p4lR&K{_38?-_}1`XuwFyN zM*6!7tAkyVU9~n{qpN(e+Kv4Md&K|)nq91Syi4oG%z8(Ym#nuW1|sX_hY9O_m$2%r z_oal@O=VZU_0#98dob(w=2OzUPr~Zyo~OBk2-d3#6ju^q#+exMsKf#xM#`5?Sr%w- z{iB;oXB2?_Xu-kOQNkWN7YF&(g3#1{UBF&johd&sbWo}c;7{_<6ynxDFkOAy2jRX$ z|MaH<>D7V?xwhxp#~@5sEly{-M+_Ixai;X?Jl+SMLIc zTa*-q^{UB%G7vos0guAii~{H(%eJ|nmhH>{F z#9u(nd@2(lPkf^&r|_2$z}isGvioDqs{x8mw^Sy}aE=-kOQy{yy)Aw9;|3?RAzjr` zTk&}at&W}!UMje6xX0*)^f-gMoxujWCYRx?R1J`)#|fQOSfx#h9rpNDLpQ!qQ~H(T z?24mTIKlXWFDYzk2t*3Y4-*Reu4dIK>`OJPo2V5u#`^K=l(Fv9uDU(7t8PC=yXuVC z>ZcRNY88OvDnoLSAiqP88Uw~vqk-h`xvvuxSG9=a%JT$>s|9|Paq*^HEU_Rw_HplV zdBC>5E%mwPfv7N6wb&@0HTBuSSXB$AXU`gk1I^Xqgad5qdj#3l;&NICyPCyy5mpMW ztHqgs=oNdl_gGa)0M)IpI7w*y1R&QjfU(Y>1RS?njc(h}qkU!o<2Ex|MWI#_z-HY2 zC_K7hIJt$XxTS(=?Ue)5LWnB9@0MK>ia7eIJU^SBqj_f(%1>f~9#Lo0D4aBRY zSrwHHtw8nhVpX0%f&_z`8N#Y27fBh+dR1mpAwr!BH*_ObHN;;Sq}AD`ocPAdR`LMo zy{r2@nD9wHz9#Xxf`ZANYzRkUmmH4;Jg3Z+FBT2!%#>B<<)(@oF-^;+@h27%+2mp_p`s5I(?lay1u{Wn)1o*@ zwn*Pi0Asb-w(AHXorZwLqXlPBs*KPrpqpxe+~~Xr0d!L>5GI=M_W-e4AbLN#-TIq@ z!=puIl8FdFCr4niSx`-9>P!Zo&EmKi58zqf1J*J>fCrteuk<{-a}&T>Ev|=3tv2!q z9&4);6JtuQfn%LZeBaC|Ep*dnAM|VGELDs1L*P8pO|>|XLN)z7Drf0vf&xz{C|3Sa zZAFks&a={H4A1=2pn_UQlPY0&3Pcc!sm*Q#=yblw_p>&;QX(eON^J(0SOniT7~_CK zs6oGrVcMR!2m>|fhZ5PqXbrhCoWLCI7eqT1l#|oZW_KFA~)Z#Y#oh zwbZ;{4APiMOBDsfG>GhYo)L?48K^;IHB2D{X+Ss)Yc=Ac6T)(f8W65r$3;dJi7YoR z(9VW&OWlczc2ykd5x`D>4ewqO*Agv=#FZZ=#PyYm)$Luy>SmOd$1!=4=XUYA<{Fdz zXg+1K`}C}CTj{6XzOHA5mgnO^s4492aUpW7dr?(c;w}ZbIJ++j~39{4GqW7zrOzh|7t;G!92DA^jC{J zvfWd<1Ne^?6+|Poc4D%YSwJ49@4-Hx7RTdxw1_bPc8@x;{`~7t#V(+4{-7$|O#6xr!Ny~CUd?`>7NU56D zUZ56`ijboZ{*TR0e9Q*v;o`O03}@@YKMUro$>~@JhW15Kymo8`uU$oyQ_;#yZd$M> zWRbyl^)B>Y;N^U%YcteU=2?4h4d0F$fgK*k!0tgl`iiB%cgF|2LtaD40zOX0c5M@1hEP8=tB^Dv_O?r7EO z4e@-=U7x_XT5LjGD>0?VqN>H|C{C^zi>hOL+a&y?k1c?%7Qp_zM*(-6aR>Q0>+A&{ zsuoBM&u2A2Z|mSu8*?l6Z>{(;n~wp|uGb|DW+9#mw2vkvi!cUL5?!2BO{m8e*wzy? zKdYxy6~-in1rOD$9S-FnbGi!m9GgMJQVte$Qztj;a$Ipa%v5LLd8rL$FjgP?{!!rc zqv4o^GzIo#K*kq>rtxG~tBt>|!CdZ2yML?NZh?AgD{y;pwryBe+VlC$e!MVc2Xd6D zj;hJJh67>4FLr@I(G0Ti=C*{zP#!>gSbglNJ{8PUO$wBI<$hZQ>#$G*D#Ahor8I21 zdqF7>vsdo7HDviyJ&6f%RYO?|gXO_`EmZ@}bqy+mDyp20Q}F5j4S}UPZrw= zM}-u!B?zav@c)g2s@wuGiw&5do%-gCZ{Iw?YZdi4+!u+|!1ZW>1M;${Knhxq7B~lV zePe(nO|0nHwr$(CZF9%iv2EMdj%{z_QKhg?W{7DF{Od{dkAa|+plYET4klx3o4 zc%={5d=ns+ny@Ncf9V#a(3$~}?!kfR6gEIUsgzw5!)$}Pbh*mA-EmN@sxSK<9`_4) zVb=OzG#EI|&C}KMfzMDH@NMG+=<9^ncapxHV^i~CF4dsG^D*bYEcUAWLSNHDG3^vJ zJ!l_lVU~C_lxwP@%#AO9cCfKZ2C(u$Gk=_y@7Cz&1mU_ci*=$x3ZhH$9O#d2?5HNn zq&E$ZsQQ+nGKx0x!&F0MfXrZJ=FMA9&6fi~r8f3)fVlqG~+2+M?!#+Y-t ze(6PjhHkksjQXFS%KI2FCw=TLu+2?-nc_%H6(Z}s!s;bu>lD8(X%8PbVXWTQ9o84s zwWs9aR^7@jQF&RiILfHv8(9w)wXf)33}{IP!Sh1Xn-HY zbm`q)I>1h-c?AlmDNX&7lCWk9g+!{bLi$~MN-R)-Acs}Z8DQ(x+s!{Poa(S)re`SZ zus&Nus^a#Q7+@RIii88s-p*T1ys5x5E$(gMT*1ZOYV=%QIisc^$2`Ye-^a$NH)<^b zhOv&@JD^l6nNsj8+)dzs!v_U-KX@VaR@i@TG$;LVO067uMNtWNjE}3K(QjMe-~0o` z`RB)yfR2aqUWIkgZvR_`0bu>4@v!Mz1GZ-m=1=dCMN2)vil%AUB1lxNs%eGCU9-Ll z1^gxX-}v+%$bfAb+K_!}cc2FxtW|-}xcEh(&t9#amT>O&Z2Al0+ohBdr9HXAeAT;T z)+Aku)+1z(E?h801qD>uHrYHrh?;p)Bv>2$)x%X#P)+qpfr&&r4*SCbUYdAuPrUU; z84ho|v8R5%5wgU>tvM}p2d?Fnc#1ahqrbt=JT2AlcX|JXOhI))18rh=BvlY7JJx-s zu>-#fhE%7tE8m2X|HFZlk$}kF>Nz5NUH4E1$QtZUG0fMQz1;lz3_qC0yAli*i&$7_ zi+lNNj!65t?IR(3VbA+ecBR-;@xJm{MnxUVK{J4rbD=zSWIq7aHEB2WJ{Nv|Yx33v9qJ%MKJ{ry#_pH8-KmH#nMU*6S;BAjYKhD1>J{y^Yw z-vrJ0`QQyW^Q$#N(>4FXu;-6B4R)wQN#E;~7vHdGnuzF;9j&6MOw$ANOZd*g3)f6E z&Bvl9_yX8g^k-eGTM^JwHYX{flk(0PrS;%5`7NJw-G$;-NTbU=&0t6*juJ{T240Kc z^A9mo2Ck;UKfx)OYq3Gje|BMbO2%gc*Kpj3-8!KaVQuFEVoHl>;BKq8na=MrM|2p` zyLYP%$-$>$isssCF)(v!Q7Szt5cVeX)tD6&g z7x(cBJTy6QGK*CKUHj>SGVg<2Iu~XGcH{XWKV06ugz!V2*`K+P$JRTg*4sK;hb(X5 znEaMbJ>U?j=YA-}!!J4R96@<1DiOu7LJoxw{}Iv+EXL14&^+&*t@KJ!9?;k9r3ud6 zC|Cm(@SZgj0HF3KO+RGR9j&D$pyVSvR?d}_o*EGmm<9gpyU{Vc3WQ;xG? zRRTAyfA&dF=k)S}Y!-tr0McX;Z;O`C%UWc4r-3UUJJGHqL)6F_<1{DA{k}@O$vYTQ zb!MaK$O3e(m0h9A%#i0=e+4nYDgN2Pm}+h7Q9il2uj}Im96=hQHAPJq0XUQNhbS&J zR7ERIBdagUjqVBDOk+nh_KOCri2g~Ykx_?E&KSS#EP~HPQGq0e94gbZtJ+&hzWn7K4&SX@) z_Gh`^2BM^A2ylFd*{6yDq5(o1F1KQ;3mJ^b0Jv%NtZ2jHe5YC62w1}{1%Z^vtwYEPo0lV`~ zI!S3zj_~)4Q|t^3b9P1wZ*5iGLSk6AOXg*F76%h92gIw26Hkx#*^G_aSGYstbqeSI z`79mHA>hPYiUKc0vPsm*WySoskAI$WisU%SFT(jQ%WbS)5R3h^Uvc3RO0~^tvypmX=*DVsOnd+o}+9eu;PJ3vrQ4;dCTAN?CkstJmsVc&eWkz9OSSABJO1a zwF&s31LBG7l0rg=Zv`u6)m`J1m?-btNXmL1xc~-fR-MB1l8CT=X2j8;dKeriMKJ2< zFbcmHu|17ZEr9n@HS>)A+I%4s5#u4Pis(8*!Jz}oCn#kFO$ee-^vR-+icf_ITgB;i zBL#*QWWX0sPJwHfE*M51RV%C-)aM6UDny37X9Dp^5^Vy#uI6f(j56{Z$L|BoPy2N3m{r#X%D|9++t1^2kEIP8+AX*Uol;EVTydkJ`NVg`e zEJD=wb|mD$_fgL--UvR~KUOwQ5=>dKfVowP*3!-vLhG$9U0BN%1qu*GoW2$U97t%*0L6+8d~@x`mSbqvqVz6(;riEkFsQT(sueA2ngu=8x%-M78DE(2m%NS za8C>*_pCfM00#t=!3P9{1;BXN0&?4(Y@994&0U-s|GTg-c-YzI=-N2!kD+|}mA(@q zvIxQe!OR%Fvi^SOxBJ_^MR7DAS4O8Y>bnW@2k~-(Jg!W&kKECtVZlBi67)0kKv4j%}2+_x*mPn?I}4n zTQ&#(s1>J0@wm6|P<_`2dfe;9g&Cgv$$>-Di*FCH_V2}coO?rnWvz;_cIcx76$Fi0M;&fXq`zX+b39A6S7v+++jYqRNi zx4UaJ{HBE=jSFJ9ZuZXoio15{$(_59;LT0jxvCl}Uvb{>UqO5_pm+&!RckT-=rlYr zdQRBV=<%#iH=Fw;`)Xh@SXnM+9P+@4UtzA@U$)^9?wdO4yFi6>eTPmoj`D*Kk*;wyc*DHJdnH${m;p#T+m$a%mxi0&`^TwgSGv$vrnq22#qqphc zF)lWGPpvT8z>#g~N?ai!$eEnoUA=Q7!>$$(9p6{8e7`1ozQpVYry|TF)Ay2?x5wFv zU~SKkG1bMZ6OZtec2CHDh#pppL0Y5Y-d1`e5z~^s_uEDD<^5flcGJdBvfu!XFQq>Y z%#FOBGSC;AFR9-Y8c%9B5-d+Mg!!U?8X3uknBbo zB%ka?8$?^q6T>-gq{M>xLR-!o<34X>*n;_9Th155Ie+BPg85xr&L87GUmUo;90-HF zzX(DL4LF*{NEw3eJV2bdz8nmrw7&=gL2yw7HTw7HMB!u~J*{L$HFjK!nQgcI{KlF` zPf=UfZDmng+wGgUga3gYdXFToL)R()wnuQ0d;P7B?B@7yT=ZFf`QrK@UfC@Tmy?PO zm}?SO-CO-Kd)of0B|CAC+|C*#2bDJT1148p;cWnVqAPZzsi<3VOCtrbVk7E~*;Q9r zpcH^V0g#X9ywxzhGCk`4bV^gwD99;Gu@IlIQlX|*Q&^PIZg9%dnt(}LTvE|!&Y?(e z96Vy{Nx^r>GMb3voMti~%`VGmJdk&mTe~fjKHj)3)BXpn{sGT_Ao3r`{0A!jfsTJ* z{2y5R2hNrOW$$auN4ztRb!p?<97m&DcW!rQY|L$7!ckTe`)k3T$m$sbB~d)+0zskq z68lx5`I7scp}Q0MWud#1`fZ@Q6Z;FnwqB{({J!eh!n=)SM$^@c2W=-yzGCt|b1fySPi-5G$fTB^1ltJmD0>shlsX#GY`-_mY z)Ig$DjFe%+^Q{W&o!U<`?P$|bzx}opt$)<*QLn_t`1j!39P!h^S#t8ts{ej9wi5cq zL}cBpZixUT1KJr1tT5#2`%qY|vneooAKX9wtvzYoCx#uiJmF`Szb}??@+)RkL(N_` z6$Be?1{&v-xTx;qc9tHViyF?7eLc{0s{d97Q~?%rZVi^-uzN7`@uy@jW(47L2YWyC z`fupdw5mVU5(pVQ-e9Kp8c-IKscF&{B{>GoXgFi zkdaootj#mGn}gn(c_THCw_xB_;&V~zW!u`IQ;4VzyeR!Rjt-?66~J))qo&X&1943+ z5+o28F!7o4OQp+J-=;IDEpVUNd)20qlX1~*8bT{2c5<~&`71F0Y2Gi zq>V`j8*FY~PY0jYGSJASr2#p4XQWL?2ODA@T2F_Z#y;36rKJJAoS~@F(7yeWU(I>r zzg_K2-b`Agk9-+vX($#i_MjyON#aFP^ozucqUeOgi?}GA#EZOWg~W@rNEEpTeV!M& z2Xh`0*%xh|64@6+xtdd@)3gWKSQ|mhVR*igsD3-5*j(DE2U&8msNah;F3mjfQ3Aj% z=tV4-P8!5AE`Vo*YR-L2ZG!&_2>n+e^1lKk174)H(D{`m?c1lmCc1v`icj&ED~sed zJz~Yzj|I-2^LrcH;C}`2kiv(N_qtH!20p&8*bN_lSM}jJ;lzd47Cdum3zlo55JI?M zEf|ZvEFh@X=dAu2wsS%B&2Cqf-h?hkRiPyD*$JoCQuu4N52gPb8Vrc!1`e>*vOrROyH~;Ef08< zVzX;`P1_b#xYGGMoOK|bFlRI*Z1aG|nQU&k6(*^x-a3HFLVN8W+P-%rGrr7G2?5Y<8 zXcI$}Bam|;-MSQ#AW5pd>r0s$x2u}O>JY>bxXaIyF3&e3IeZy9`JPUe!7I~21}>}& zSJx2GjOjP2Qkh{CrA{H&$PoCckV_XPJ)v~z&eU?m*QHch^8IrhXzzUJ_gf>PWmgmg zA`V*eqtwVM8#3E$3ft4*K&=(&PTvZ|-!bZ$?VVDCaW;c-LRb;5g(bN8Z$?P(=KJR) z(Ah1}x-iB>%b`j3ndia6n>47Jn9{2!@-ZyX-daXkTADIkSi_erKV4%(==X=qlj=Xg z%OU|)^zr)pJSqzVDi#~Oaxy`aUgZW|9PU&Y93VoN9R5R&!cm4=EHzk$n?bScn)KD1 zH_HX6T2pFuQ6UBg`rQ>!b-Fay;c%}iMJ+=@J$@b*IZEqWKU+g>l1u!q>F+O$BlQ)@ zRcXZ-80fAL05zsGfDzpkO??7mQ~_ofGFzq~D-(UvvtBWQ1Nw=o+PHfEe5^<0CyD{K z28KjOrieDGx=yaaWq*?t$<<{r0B<4-JqbR)|5bszR{?CICb^0X4nPY5Sl%w`K3|7I z#6v3P8T>&5U>Q8=s_&5XA9?|5mIkSqYfyj=fPO?qfVc&4rYYeu6^PY>-0JwRwRo3V z%KU%m6-f_~AS`qgH~)X=B*(Ex-Tye=+k-JdlUn7105m7D;9C}t-8L~HOJJPRcfZ>K zSeR*!)yV_+Lon<#SXfVKyG*>rQ{?CU(vHaky8t15pTf3gi`7R|zDN!PL9~uNfufv2 z-AVLtbmifsPi#11Q{VPYgndjnXf8x=TF=bM#a~3elycAT+qaFPRxJAcBgZ?+yqFP& z`B$f)@Sn*Rj?Wj-uTDL9^2?9wxF7yAz;a#Dk$ym`f|lKRG53AxU2lnVN4q0`ba}G~ zXVC~h2>&;?r>FM*g=r21sMH+k|8jd+|8skMt?KYN8;_oWj|HK!p7+>q^eQ)5;WrS~ zHQjffOXmrf8aFX?8u^lJ-Di!y-to3mPsG&B-Y`1NE3gL0GRSeOw)6Gd3yq^}d6X3;Mo& z+)itL+}{ft_`W{gcX0}C)A)YeROZZXXcF#pe;*y`!|(Xzsf_;0_w)LG+PYA5@PB`~ zO0RQI_3?Y&o7Qapo}9h*|GZP$7;RIne1AE<7xaIB%x=pU_==+W`uZArulw$;c{qxW zcj(*t8fDBE=zD#Ke0Vn$|2)2o_V@k$E%VXmXpoy?}imKEDmVZnomDZ^KmU3;++Y_{@ko z(l)u`s@&uAION`@dbawg^L^=jIvYBAC+z$B_?+}x zcAuUMzg86ZYlwpYGoQ=mpzbEj-UoTe9D zgtT{eW5++k|M}eg;ry~^ctJ*uuHgr{b()7AIZj$TzOlXJV#8QiO^JD=JT0-St#)MI z#cC@GsO(>@NRi*RE6CLCY5bBUW{JL%VqstX$cYVtE@Eak@p#DC>!y-ozn_MY69@QR z#mro0tEH%my{{t1P7Sz7SUS_=B4VymNlA*mF9E3Se<)ZB>@=2cSPSAbmR?v3>NJ*q zSPNzimO)qxZVi@USPOm)mfx@z;uKZIluon6nJTo(c)h;=?soG~; zys}LTKi!sp)ExY!o6#9v)6Q*)Yii=N!MCvRT?P<>)VSv4qU&4$2%DDygqHsZ7yc2J z#sUcCZ~=t594s@k|37qC^uamNT-_#o_AsjRiT7XKxP3gRt>ve7c=lqiv2i!#ydyC9 z1?lsBSBsQEn6F`Q@)kT6-A1@5@HONvSQ_5<`tds5XShww67k{a)$8x#^z!C&`B#t; z!~5joyW^G+`q!uAZTffTw|k_2n*Zx0Z9ulW1+=WD|L4Uw&-?3VI%a^Z|9f2@h_S!V z{odzyhxm>E`-Xd+pG-k%rmMc{(onbEvH03Dk1WR>K}wV7O3KB~ScdH}%XIa170Khn zmnzn44IuV7{a!YHh)dd+J2`71&dk{L0Sv+_)|u1RBiEu|Q-8th>FiCyLYQShu`b|V zY@KZ~CQyb8+2O-^v0ghl%uDJ&HUvW#Z|F2oPjGbiSX~jV^~IH5_rsjIP7YV$<4lCU)3waj+-)jJE zTghug>ixdHwGum(y>bQ&XNxnCet}2=TrYfd&|d~pUy%oFd*1o?4a2Xvtg5Or0p5@F zT9~^kEGjJzoV&w^7Zhl`4H{Ob)yXp;&2#>|uE`ELP+22AQpQC+cTGfizpJdbQ&X$B z=KRFG6;mqoy~9NiH>+_PV*KfqDE<0}xTJ0icwBgg4{Oz%=NAIq0@uV*)l#01P1_^k zJ@1uF5DrF0-c9vY7x$hVE2V;VFV;;66mZ_{3(^-Z#HyFLK!*>%4eYiJ-QC_7f^#Eu-urNicjP!2)t-n#h%h2kYeK(5zV_$j@=sVuX=l zw`)5E$1G3llSAi3SRi$zYz$$o3T=pMtm*mU-~5o#4J1OF>EKNw*{lYzhfypUth50a zD-<2AKrL&+hTV(Qh|(wI$*q;&=*a{`5#$>KH`hCoY!uTy{pVb1^PGY{7sr{OQ58+d7cIgk^cBTno*vY5qhGZyy=PvS)EK$5@HjT zB20H@LkE3T=!4J1#zcu3&%s`vPaT+8vmct(Tc3zdul5l2$qsFC{uJrqgf(HXmuIGu zk5uV(x7leBK)OLLxBte;J&HkR`4?&?x(6&q!wpS&Cqy6gQHKSK{r#qVYAb^{H6OyG z&=u5&2Ijv}qH0o(R_e$K*-nnFWz`>fH2E7O|3Z(npE;~w=jJoMU7Li4vD-@U!^Cum4SF@vrx-= zwvcm21dLTG_7aL!?-T6!Y)}r`>}*h-W>H#-$lW_)>6`XduYGA~-6AMfi%S;p9TAEV zx|%?oI*w85F}7AI<6GIqx@WWx>8h2qz&J0^ip|yu16bFY-SOS3T0^E;*!qOS(Ve4m z|6Ve^9q!!f%u%u~M4YwuD=&!(oG&Fw7tI2CXvE*M;4lf&y!VbVrm9Yo=Pcd+p9z!h zO}!KPoC-I`OzER(nkUL zV;~iD$J{5zRIsoJ4DBb*2-4b6&f`5aw7N&BF2lDYdd@>hpi;t84D(YcDlGNE`HRxK zBe!w&gS(!RTElD4;|#_$POBjJ%=3BOGQq4KB*v^9+lf-Swm`O1mO^2%0X(wp_o#!s z${S;FM9X#}iV$vMfP*eG(6%G3iy!TcBuhL|&=*iRW|E|mH7czaaMPgGp0K!gJ-qTT&lC=qK0y`@w_}jliYb<#&6xUU!D@+Oyv&5YSff&eY;KZo0B<$+E z0HhmH`y4#Eqog3)ss@<*A%8%0NdW8jnJH)Fv|eu}ym;y)FGG@^pU|C{&2#Ui9))pi z;YvsyKC&=M*zb8a@e&~{As^y5JhR;h?X{ER{T17<#koKnfC;b(7uadFJ3L7Uue+v! z?TK^3KK#W-&W%z1O_~nbEd)m2^tW}I@?&DpsPU5TC^8pBXZf2rxvy&7@jU0`?y~xr zD(x{{Z;T7++_^|7eY38!(C|^g52lTSr&x19M z4rC|U!!_nT7@dNw&~XLdvMEm%3vbXNECG;)6KTDXgp3_du54#U9hI5fJQyajMff35 zO0Qr7r45H)4oYxxyFMmhX=jE7hY$%7n$~T-pu@>UR+*;JJU|S1!PWnCN3mH+wJAhZHSc?iP+Dut`${^!`%N==@>G$IlnN%qcLuvCDk(kmCjS%7G# zMW}TaupoC<<(cduj&+vwHfTwvTF;gvhjXTz#uH9*I>W!WS)kE<(>`XS!v|)T2v@?F zfCL1Q2SkZ>h*if}HTC=pDUmxVh`oyp^DHr3?-(~IRP~?1J$P7txYr3gV@h}U;VStP zno=Nn^4H50U)%}aeHH#WOrLitJSAPQZ3JKHeCu8crB7%KO0=Sxa>|mz==Z<@Q^Ja+ zeJ~>?3xdMfiAtxsN>JG}OvgUOGqj@=)JfLPRgS+qZ!L0K`Vtmmfg>*2D@4^oN#Y?) zMBmS}n&i~3G}>}#|LJ(ffcVG2__C?#h(B#byW{P0Mav1$f!aAUS22(hB#-=l z?jVHSIV0^5W7*y^T0o`A9t5QN0TKzMhSOD{B zR04^0mJcjZZ_{QszjBk!$)!ciVN7}rob*<;{3Ww9Wv=rfW8q%87TfCddUzCn_6=SY-uIY@ z!K4R-bgj}fkH!rMZwH8;dbc{y&-9fK4Oz;Kr}^V8d`djUY9iXDso&0OV`OLcVo#7% zv4RTrw7R75Ut@Gwk86LAVb(bsMQ+w&mRkw`NN8B7%t))@u4PcSBqlPiQhK3fBK{%k zDhxFvYrX*lF6sS)eMzP-$`dpiI#n${t@l^}S_T7s0Y@*;7lQB|Ap2E|n}%6{>

i z5RLvOe;%u%JrLm)5CP06IJ}VXkh79fu$eSoYQ>&&|18Im=s3WP)+Y~BLuYsJDSWXB zX($qA!*``l?v!Qp9}K$v&=o_9SFQ}fN2c!bg5qP*G1f-Qd=}wWYYt_9%~?`RmVK7G zFW*mz0VSv_6j!31(B+>x3XIG0#5>`hIJ&?F`N6!-ef+$o>9V=`rm3JsAVk!*fxxrh z0(?$((U^Fos`=D#!e`44igA*`iU|6F{knW|Snb$Gg?Y*$s1A%gIqQ8=AMX+!KQ~ZH zqP~42C(^6+)gX{JLZVr|5TE#Q&~B7gErh-4k(O*csqaW)9KAxPa%*h%3;BZ2DJ0kd zx3D%VRu5R(A;!3Sai$|kSnR`t@+^HiUW6!fX2$dQ^vwGM;&%`8J3tG`QW)m}#sOY3 zlOmuCpbxGi*=CDG8bKlM#j*f;TwTorAAO;cJ%e&iZ^2q^x&>fqH({n!14QPXUrMeu ziwMxR%XXr!T`#}9oo8O3i1#0qA<`u?fv!v5Mu8QXA@`||X9M_{WW@EKL4AG~-T`m?|P!3TyRdO!GXU}fRqf2rdLYCG| zv06x#3s;_VqW3kDOg+I)5^(AM<^?hp#-XTMlJ3)wf*@s#&m-3!{*~{eI!ME$mkF_% z*8R+@J$zA8=)Dz|IUMyRH%43SAZzg1eqhC09WVa}zYCKxDic)3*w^+~nc4GI_+x|q z!n`?YNvZA6<_9hxh7A{2ppE?mWCLJM2Z$Cj>@Q)0jKH2QLC{8Hj}QS#V;8OUL} zi#+1Op;FY$gU3|XT&t&7K;RS(SzMU&pj5v@y{)ZH*~zv8e;@vw~%o ze>pRd22&n-mmIK>gu<8#Cdv6w`<|+bBzZ-Nl^q5)GhOQ#QvF(9om-7%(;ds|wk5Pu zWu5S7TWUKR?p!v5fg1j)N6(~~Y1bY5d7M0TFhU9s8+G@#+k*ia?d(DW=mW1y<;f8A zdf=?EpgRUj$ma)jTr?{MxzJ1Af(2=YlKS4_`jptHr%SRWet6k64lOgZ*fVi0R>q$- zuQW?XskVvAb2LQ7@4of?S^|2BAmBvAfUh((enY=%Wt&hlqVFr*XT$o-FPrueuwRcoG|N zFGVO%`P5;xh;nz-H+0cNkuY369!*7xJ`{xo{Sgcq+?3~T`)NYASRF%ZWxB+T# z%xsksTWQ6yeeC}AFcx&$Q+m`YC&kJOgbOyY#@{@4POlpm|Ko! zBZ_gD;HHSug=F*-%tbT}qMfdT6U};yA$NN8J$)GSmLg@wg7^JpGXaQ_z)M6v9g94^vJyS_PIX>@eyo;16oH0 z?CMWxOLrk$p$rHVq#akCrGV9(eJIxKGj&UtrV=W0H{81ZI3$Zig#z!433L~;m`AP@ z*b|tzit*EPsHUwgdL46_I3Ot*D0U84#_sI^tHW?Aih7PL_c=+yL>gwyJg=rZiorPE zH=|M9Hip~@Z00!UGB>@$cqffGio zLlb6Zl25^8^6MD#(jv?z571dV>RHts=9-ik69gyZh=7k%oIus+Porp1SsZ-?6X!P} zWsM|avL(z$yMT^bcS2d7N*fp~DF0z_U+Il3@XSKj10!2Eq+(DAqv64Bea2FWoo)b8 zoCwqprl@3s_h5w7YX~2FRS^Xb*Lgy-e18khYGFdNvv46$tr98>kUCtJn4TWl@%}#d z(ulk!2nf657Mmz6459r#gljpN)I95GqqkiW$jpj{ynQiUO8XdEOd%so9J(~RK)nl0Q?2i zet+JQ!?Mx%$7{SqkfZ=dL*)q0xFhsuN4PML12MGS^eE=Vit4CJOF9%@Qerad-Sg_d zrfZ?I=4Lk__kQbDB@AX}0pFK3unTRT#;WeMCA|C&=QG&M+NfdyAuFcb@zTIe!@QV3 zAX1;?uZ^&*`tLctQfy<>0|q#3|Dseh@7+V&7+t8${w2@j=;1c$FxL%YB`6l4Vy0gZ z<)9e}aenJE_FpS$H)d_6>TDn!%fYNa)Z6QS61^}rWj^E5S{3Gie`9L}#kdLS9@}&F zw6d8_FJxe}_|t>n>QJQe;w$2HSkI>CWmT0Ac8)Et+lqe`h&p7y z9#y532s{h%C(Z*g^=2N(i*?K5G`)*nw0 z9O9i84O_yeQ-vIdj}DHAh+i+Ix+Z>dt%!(4iv^$c!jNh_^ud{bE7?v@6<6HxTCe|8 z^J@yL9-2$>(e=lZ^$#?3N8&X#oslkq-a#CU>BeU|S`$@2)w^kt$-UYkcj|ugKbK5F zJa78$j6-!ZWPGvGJ57^l`=>-Y&XSoNlQ6Sl&KCZtwb|TSf~$WsS2ZG4dsf(vby|)_ z-Ijhe-d33d`@Kf0%cj&eH5m(m*cK}n?~Tx2%1e{1@O~1%jD^`?UZ#aDg~tAyoJA_u zT9Xp+TKJ1_kMKag-M=pLWSHFa~dwr-;HBbohNT&&V`xv?L)S zAF6PzIvZ8F->zEYR1E`^W$LeGPNEXa-owQvNv^YskdaXVU<=|Vy#x@3Yn;iQj+7a8 zpWPi;n_H&=UkB4UDovqZlGM58Nsq-bldzefB3XxTfp-$}!SW`Tc$TFY^Acs%4iOv7 zeo3~$Z|hSzdKdE8aX%kMFe-CA&4g`z;B@xqf6h(YYYpTzYnynTmQI7+jR)-Xz5qVR zj09GXQfCS&``Z2}^NcKdTP@dOR4$qPFV0#9o+Hzdk{pOrOg zOsM?e!E1~D-r-9#r$k`x!zgj3Mk7jHmDxH*Lp_;God;fRINBeQfD?g)FboL`l7#{` zgLys17{@!axmswhzyqltZ${K;oQ2_T(}E*tFmfiJ?(=Fj8vS zQDtzAuVb$kA3F|OGj;+6AJW5{2I_$>Hgl+4PYiotdjk!F$a0}&>`40K$LSHd55 zzV{|y8)6RAb0c&R43mzrM>cdyrTiIj=Bg3~S!I{fvi})}BRN|liMvF~v=W+{c zm4YZ7f68x%&*9iiZW<;;908;;SYd|_`H76Qa3HxU&nwXl6#pc1tB=koqqISFIN=?E z=Co;p9yH-wi3XYAC~Z}?t9LI9!xg}GZJOgP1!L4tI~KZ^h;igA1mSkEN#G>cLV~-) zACs@CMuZui<7prkkDk;-pQB{41f!QEvb)yN`k*I)s5y3=9bbyvnJ{1VI+x}CLterm z#^6py0)=R6eCjyRs(K7wJ-B8IFCIye)v4iLhL@l4IH%h1{1iLF1Q;tm%n^iZ)`&Gy z>z3;Fu=Amt&|KYQC=~5%{{4*8ya;;92~W>w{D zf5ai{eni4XChP^6-*my(a-s6)hugz1_SFda0T;@L7;2nfC50Y1|jc~qt*s1FT zy&obeQSZupLQZGO2b)ReMf(i-q9gD!x^W`jTy zMkK>Y2nOCqDpO!!d7uVp(Dy>FiW@_y}hisY+cT@#e?g+w}_}-Ln~@ zbmN_vJ@o5|*r{PN8L-kR%^Tn-Z;_qfG)moEaWCyT`mo)w4=9J@9y`|bkfkbzFJuan zZCbQXP^2b`?0*%%E99^SmpFR=sGn*IHk)cy$GakRUdfr*RWr+H*PTVoqVX0jG{RXM ztf8iUA_Enn+tkJ5xj~QuPG5j4O_r1p0Sb`kPSQ|>dFg?}s6YZDn52b>HUI0umna=q zJ@CSjrm74?6pcP(MzzN?Dc|MnrzBBfIm)1usJw5L+ntu>#prt~se0YAIBb2+x0i*s zi(^b=3Ooi+y$b~X-o=zI=cvYOoFi1(fCeu;bkD_RZU)}RwIoxoi+#-c-do(DfYT{y zHx@!LE4~4Dv9Z8OjoX==NVwc4S}H}j7cYv@g1g*CNh%N*^fdIg${;T@hj_sYBfIu- z+GVC&TxzQo6He!I<*DU`oMsSKs%cEk=xoPYXBAx_5_NmpF$t!fXU{&L?Nv`#;$pDQ zhHi0%T~!|Vbn}l8+A~pA-V`+!Tr&NgH*0${4kb4HXIf838pEcSpKQPi4X*c=lPe|o zC>74YXd4JJm7>3^z^N`+7{PQDD;*@X6It#rZMqs2>>zY$%;4XFLGv0uUh3W z-_7@CLbn^Cb%Mj?n*^LJEv4&r1ZZ02XX4c`nA+S`lM}*}bcRe+mOJAWYyVK=>@)7ldTWyU zZqoh0bXEaxocX|nEjK`_kj6Kq@&mP}gk98H0cUwSWhLB9GWZK_PhE=;w}2W`M(e^b{5b@J$f->DbWTXU9VQWEtdFv83D6|4%&pvZ z$67j?3LIkOzR9PX8pKNtTO!xKpS{D=+E~%U<2-@!Q^F!0 zN+KdNucFv7S*$zVWL4cNM7%k|=0J5TOVT@zx=5eLtrfQ=Kp&G*V?V&R0CU+}W69`b ziRJ_jW|!pkG%8V%_Ks}!%>Z37qiGGxg-3>NrxEm_C&=;O zJO?Ukq>U`;^p`OB^<+#&rP%{^fP$IRq?jR=Mfr)fJeu}fB;T@nHB4(qsl*$j^_-8c z2TGQ4XrZe9fd}9&*cK|z86HxJm)ZbSPpA5v1$dn&_H9=2+%tU5F1uoCgTvTMFok30 zuU`sMyo!2&m%M$dL3f`c9mnFv;oBxaaXa#%D?fgU_qIh3SUD!m#E`?KNqh(l2JC5Q zL*FqQ&HliqJ??T`?G#xAT@oj4d!o^%(l)WYh)8O67MXmqScRf8Et*ue!uhTm@w6kN z#5HBf};j9{*(!{pg6{&kY}w$A^7%EZcOLBGiqSrhFQFiz|0Q@fQIEF`%P8iq2dxmZxZUc)W|U z7>Baz029y7x6N!R_i-DQTckQcdVN@%V#RDW4P=Y%-C>1`Q#Wl7(;?y)^nE5Y0rlGl}3g{UQrzt zl2yIwW*1}SSh$sswq8l>Ox~1t*i$$wMY_}6tr2m=Ll*0m!D98y(A4XR?+s9D_{(TG zn0{XmUH>t?hNE4bf95-f*?_;;SVU&=!x?fwT6PyIRTZ(c)p4<~;AMfw7H3SMkN6i& z-hlqYk2o4iA8>9E*4f>v{>-y$hmP?cKajzktc*=LS&+*O)asJ8H!JHMe` zO&8J36L^yI<&?jw$H36eGV&t>LX~uYE{JuEH>KD=`%T#1zX8AMVa1bEk0i#?4LEcfI z0JBA4sU8a!E}raW^3J=r>9XBwXRa?PVzS<%R{6KXu$d9awWBk}hT3++3ifndYz1s) zbca5W3It*S1L_(6!>~bYL8f7%Xo%TfSWFb@vQ@B{DAMJ{Z!uA%%gfqgqDc298eMpc z0$pIDsB|qX;M`!M6$Iy{kQCqAhNo%CD`@>uIzmU2_|412 zZ(cr!-yGM$VAsRmnwXl9(W<%AOb=Z2;I@qR)J+8kSfCEUlWX9fzC-b>)x)_62>f!$ijKqforI-qTC^=} zM=V^5-rGg^Ts8+<^Hr$Jt6p_^iCY&^&}P7;sB|qX+KSov;G6Le<^3LAplQW%Rx8#yn(zl`UB4*4pKJOf& zahYQF#$HQUl-D|i4st1Th9a>pfLhZzz=zKqkOnhE=m_Md@>Xnyk&KQL5ZsW-A<;bt z$!tnroy%mlWIl|uF|qk^ldpHA|B|BagzeY>O$mIlIfAR%gx<_OdeT+FlX#D+!3N1Y z!Dn4h`Fot=Tw;?n%^eldZ?iG7?x;wY&5y-bkuDn+>yC6+l;P?7mG}yUZo2mU_l7e3_903c{xrE|t6zT<4-i*+)OhZ8l_#CYhKcZE0}bjgwoY6h#p39wgXZ~SG&-@=Rhk`NLRab z4xEw~g%gr_WX0BcObTGVx+R~H&Yh4D?sh>uEjRA=20c;0p+Jkj&SZ|rVJ?R5 zi*6wDvb1H$kbaYIG1h5yDZ__*yJ-_M2hy%&_-al&a_-ZUk?CwBZbW39=6fL{$uY#_ zmof1-8A<^ePK<9&#u6-QaTsv{LzH1I+;PV!&C6ZV$>=Z@uqncs`|;~sWIX3it!#eq z%ZRay1Jl?7;i#y?3$6pe_{Iqx?#cj+JJ{GbxmUiZX%blGB#X0cnw0b;T^&bqNAgz2 z(IT6wNf)@#GbRy%lZNqjg{9|V=|xz|hR1ljLfz}Il&y(DW0CH18J4m|FlcOr?yJwA z{`lcL{E_a;u2v9yr|(yzu@wa0P)aDRQ-bf?hcLl+o@FcUuSe+!j7=i=t`fm_^&En4 z@Ol>w$c);)2FJIakKdpUrTbgxx(w?w*(3$r-_p@ZZmY0G3b%Pq?Oc<}RR-tSiHt~+ z%1xDUsmZRit1|Nngh-MvMKS=E?8>vTw0%+lyLm&tKgZ`q3ZUxVKdI<1=YOkTUXVE zydb2%je)eB78f3-agdfPAPbw%$=N1d%h0Q2?4rrW|RZ7V3aaohQkjGp&Uooy3AOP7JC4bjZ}&2AT0=GyM)WQM{kZ{!-P;D zC;2i?NL32HcYgHh#4qo3SZWQwKVE7?U|YXG1o{ zfv1*CKpc8*ZgY{DG!7Kiu8jl5Q+mb}*mw4)HQ3B4U}KwRTyOL=3-$um?**GC)nz+m z!CuHk9<^%8R>p!ozh(w|E4aw3h>IMBzU%Go`(9e|I#u?_lrVl<-=lbh_9oGiS7kzb zf1Z{+ArcTL%pd-&H5H6{gtVAy;7f3eWzDc7b3(Pk@iL^yo&f1nnO9xe+4h}@5d3&C zhwC{hz*7jfZwMDJL;*KN+O}Tmgk!b^>q5JdS4{~1HW^B9?~@n7xBVr6BMLV%#>3bR zgo}lYWePScDqM;T&Qe&RH5oEspx8+XPh38OuwV(orxTXM1sLBRv z3Mf33(XsGLpTQ<-iZAe3mxh7E3JTR=je|nAUeh2RuK|IPPSzaTvMJACV`gDrMB2_K z%S2phOfBq-D9+jND0E|!qor(XEbN;=o?az(Q75A zn-3)}EW(uo+$8H6%r$VHmff4Kn=sb^(OSAcMyp+u(VrLa^QjQqQCOW(Xt_?+A~}L1 zr(V*W%y;&!rYOF`H8yQ^%2CKa4t!rpZFYh~#|{Jr`l%NS6(Zg^0c`dj=Cns|OMB{c4DKPaiLSq_ygv zKHfk?p~c2r$ylwFPZhP?`4J<8IEhHUN<{M2vxwx|1_TpziO64Hfs#_rh(0#))c`~Ot!*oQMwAab}{=bF-s$*=-5*_(EBU~r8<_VH5nn039U zpF8Q;r4p)2vpYId>)q}w(rI%spRakl*mhw_oP_u}1 z0hdC``LL81;?r{(E+tZ04=&;R)o|&aa^AqDd&+q+BCjhZVNSL0LqQbr8>0pAPneSpOs0->^xQ#Z-8Ki*1~@v?(Twb4 z$yiANdHusEief7Ij;?5SknAx%0q0jhkiqD}oOocm_NJzgqwVymOfO8q*k5}l3h7ev zaFotvSi3p9S{z7~_W}D6C#5+DOJ$V6E0|+28?U_5HPu?;`)f5M=_IZRrsgf}&{Fy# z@8s(*q^acg9Xtw+C21hK#?NqELTjWkB}&Lf6PXn3sB%)r)@5{D7?lssq)Q9g2nZd; zmORp-?kZ{(_(Q`)KWGY7B@w@ zY!0lODI~5Bd&H|+Yv%QA-AuuAm%M5fRq+bdQeKVL&E!9qaZ{py^>7ouUyYmYiR%q+ zx+kueSoZ6R8Jfp%(}Q$`n< zpFWtQ`_c5yo~*Gz}vdi!(1F* zPCgrZ4_OYp%28jZ0^97rkNwgVZ z``D;VqR0sAV-upFg6)NcNm0+w!{@RI(3&qp-K((lIxM}3N&%CC9>Kj7mGT<3Fv-_t zn3Nb{J(z^=SHq-x7JCDe?!Ir$p-kpxzJ*E3VqZPTMBr!=i+z((B>E| z87TlA$^AG6mt4xo0Qtz&HUYW3)1V$fw3XkkNz&(0;@GJZ^1GoXVZx2(n=hmja{Du8 zoMqC;8wEah_WL;+Yx3^IkLTpH!*mgQnVYcBgXv_XZ^&GC7%SL3>3+zz2tNf!qlDXR zAPj0U-O?DMSRvy%V*4--yY|Bd9q8NV3Z3JOhhcqeU8cb#vdq$7wj~xOMY?P;RF}RML{fObtig`pwavrPlZnj)k8 zS;&;{=*D8}20EZh5i!9vOCex5Bn7Zqq^pafpxhBD{D01_Y&&rs2>#JMfL9(NlY}f} zC4}(*A97116I9jhmY6)uoP*VpwYXjGr5ZuExTjFyl?2i^ro+oB2Vt@FJZVB?-caEd zE3lJ?1T1gyT71ajfomlO9(%KRYJSjihq@MxXDQ0(nG$=oN~3{4yfAb2=h+dCbQg&q znBHezg+tl&8HZXs_MWxOlnN}kj<_q`F6TZ}@9|fXSEu?~?t`bggk{f$Co#=?*#^W~ zsm6-JY6*(Z01CY;(M$$0$+J;JV4|T6fMP0nHmfB^x}j`kZ6^J(TB@oe9rnjcs186y zl=E-lXz$@wRx=hrg;e)p&!6GdLwNNoyviED0;rJcKI$0&Dw5^rcM3oys#gy{;rD3( z^+R=U0MrlFy@~o37Uy)r&)=m6O8speL8&V4`zCSUH~+$Y-=tV)gkJP>L>!qqIX6u{ zp`?Qr9(>9hAybb-m#p1nL%k+r4;aV{;TKW!0uO;JH8;nojY*m#Ziq^waPtRq2Pljq zoBXJ405wU^E2!dC7}-W*O=nNkKTs#`*a=q3dqo8I5?P$*KP&JeJ2uQISjC2gy^=se z%Z3(g3oaSW1KsS-w=4lo6u9&RUjc?lQ89ZgZFp zpn|w6kkik#++CS)o|RC_B+(Txb%1nT8EH5UJXT2{5UVgY1>E7QdtC{qY$7$$H#}>f z8Xw;_?2olgU6@idLDn;MSSjj{HHXG#>PZxSn+ISi4OOPCZxd~O z`!BThGt~aU`}g}_ylxl)+|Z1YZJzi9?7RAw1W@f|gsJNM=Kv>JGjLaehf0i1+6Gkn z#6T&)$#gmNlvORjNt>fk5PgJm^G9k9ErIN<(5$m10i*^2I2cg$M2)~DVX6ZPE`KJ0 zl;qx8jPoMfH(!=Qmq-A$f#8n~C-+7I$bAD+j!~2dpssn$gul}h#hA$EwSCCSfOIT| zEPGu_^J-P&l&lgcFl@4%%oFgk0G#ApEtt~MW~m)TKukOiCR)jHD3g$`Woc~KkV&1B zc{{fOMMaRR%vyR)5+>2i3BYE>Rl^&=nk&`O;y;UaHsVXU>kG9x-$($MZ9ZE6=({xXYdgw;LPz-<&BJC)oDNfM z!NR3W#(30;H<#7uOHo$`T|S2MPQ1CS42sXk$nL01N!b}rfck1BCrjSwjtOcl62gb> z#E@Ufyhm~P*+4DmuuOv@0Z?lEI3%bta~Z;;L=}m-bLXtadNrOop304^juh&4jAwTw zQIj)xFRSC^Dn97Rv6%8v&q@&?vf8SNbbpe$$?5WfwB)Wt!bw#c$GDfvAKn^tXnLs3;F7!p4Y4&v}e`@Q?PD=ufC1=>T%JB zb>F|6;zX%4!&iTPYP3}3Z}SM&Rq@rgiLbuBoUb0`LQrOU*|#GIrxtL)h@0?+W&~Kr zVMEr0c1r>&_K8gW4$p$D8N760IL{txg>}5dfGus#FCf6{-t@lg8$s6(+6KHmSdZU7 zgXNfdxJCKI(8{!>{^7qx@t@EP`9uQXs$e8zQP(pGAi68jXJvo3W|3^`yzO%ngX6^{ z0YrC?%b2|LjRe5JICH8Zy-Oq1p^T%_b|iq>S6sfxTE0F=0Iz3+*73@y7gN?A;g90n zGxj%T1|PVLrFEZ0@mgCJx7p$UA@(s8m0PN1OYrZ zrmPo9X|q>Y!mc_#-@ z>JQ;~n2JTR9^xu>5G5-xFvfaNE??xDV1L$HHT+zxwrX6ethZ|5;tMTKP0-$}Y*HC6 zvg)dXa+k8vvm&!ryNFwUPcyPsyO5VYl>G{?9;2&k)+Y+lSdmz(UBr0L3StW0P4LpU z5idP1`ta_DmtOAkPwMO!-f6Vi@5KnrRk6^wO#*Y5v(N*~EtiY4Y8$ogH{E{&8xh4~ zJLC@}fY)t_E`37+r&5!Rm_F~c2_nfTOHb``#5fBlAi~ZJfRi?;G^s%Lk%q;aY(YLS z>jd4B0O~p|K>u+5^Sq|a4Zc7H>`cJ3zzH>YUjSh*vVS1K$lvlFYGW$#wjqLZi{9V( zgd@dHIiobyQ3TqKNM)Vyei6Xt+la>x*(|Y}S*r8BY*wGZrU7caKY8RRP>l!FaskjT z2x>4Re9>Kir@Se!MI1$7-Y_n)l2qZ#+N;aK#I#Z6MfYCMp{Cqf;}j4kQuVJB+nOmpq$j&brM8i^N?#V*>z%HS1Akec&0V55R$=(&WOU>}Hr8h_ zo(giYAa5)4ai~R}WI9fhXKCVityxXgm;+f))#RJ1q7pQTyHYgCnyMxgkX2Px%^+Hw zI;0nn%&%BWDOzKdWIeV~&qumbi}WJudsZSA=|!>tJ-MUw*W^Q#9Bm?jbuvoR@6%Zl z6U6usI+dC%Gi~yb;P8;+0|ErgtYfCWQ7*YzjCC&` z8njOgsBEu~((AA!8aFGj6#=}Wb3o;!mdZqtx0=HMhv$_95Hk+;TE{8NYYh7SnAZN4 zdWH3O(K;j@)F{0nn4!wDmytkX=R``u`Ohxjjs)O-!i|UE??VJYUJ?V?y_{);D#U)` zPZ4PPfnM}x(gzWkH4D3oUwXdT`|RYF$_90#V|!c4dM~M%fn%2he9I3C?2J^(!UJPh zGQA~#F}Uz8A7lO>sDLcSyQXeIkj&h#4pL(6)T3L^^~wrK%&ra&+~|TZ(TS7x!Kw=3 z3F2k-ta`j4Zh=TSAY!C*$^o#hswxmEbFC;4DH3I(w`bYcvXSoPVhL7WRRtpDL8$?I z`JUAPG1g^uU@zk4XU%0zc#$mYBn#{!*(0r$1$KcfGAyF2tV*&XW19evhqM`Eacr4J(+8j<; zfk(Oxc&V3*T>o20w3YiFu;?LRc_IOP%JLi6j_@o?3HG|!dHg~GNV)Bq48!d1D+#oy z_fEwvt%>eU1d!`WwgLwS=KIh9^3y(8oA8cC0G|f}9rGb9$G;ruC0DofY_1)u>kPe+g7I!0SMMYju_D^fmDUHT^{^^cCI<>m-X1gPws9qpPe}EJE~U z+4PtAd_9DS-=`7cMA3rw`}a|c7U1{H$qVka^mpE31&DuJM*y*^d_kMa7qpj`F91LU zZ9kF+Mv$Z+&T66M3uHnlH13eeQ6r#2aQ9{!#q;#$%LE#=o|xb*(72-!P_LND3oKZ= zCxKH?f3D-~2oECAvxUHp@F)T>o0e!&@=3$yxF9|@FZfTn%PBS4?!z*cSv%$EzkCEdidrD%Q2Egszxvm zfV=1_s|O42d|3u}6Qvf~sMG>3rZ31wM!fp@y*GYcTWTR-3Qj|x;{76US5l z%Zo0cPBtJ0k`nNW1644X>XiJBCxikGF}K<6@0`-Qb)dgRUCr~K#S0q}7-3*s*f;nc zH9A#hXj{n{zSlO$(QRaZ9!wilB*>o_<+&q%>Qp1N0W;qeSl?3b@Jo&Ko$Uqf<^7{@ zXHSL-FLxssfFG+RJB1gtmkYpN$FV&ge9HxptV4+vDb-MmoYSNi5LjC1^G=QM)r=ac zA)wlc0LnLbFfG5=5$a(d?&nyuRx(irkxQ36g{LjR!ttpl9hiT}N>NiMO#%vvKYfcJ>Y60dXCwVNmaZF; zKo~($f;Co+g@{!a>{b?1iNa#FvSL+bxcnU4B8p4;dz48F25{I+SXJqJ{7Dp98B;v7 zVwL-Q39r6}SKq>`tXM48BK<9Q^%3^Wy283pqn;08&tKuyV{{c5Di{|SD!R%Kti@2i zEMus|Q0y7V@cXoZ?7OOh#ZceBYdOq6tuT@&WqMXeCja$s>j*48;>d6j5wVxTO_9)x?%cTibW=h6KQVf30%3@kOF73-A*;4c{x^WX2Eg>r8sfM}{EXh_a~7VW%?z|0GY|8vz!FF>L&4E+urLyw&v-Qh|M!7_y znYQ+!E8UzT(}$|Lit1Fd59NTW8`%hP;yKnLRy_#!@F;(IBODMW>cya+yo0Jb=d3pj z`pNsNaSF1MvFJziwZI=6-TxfkAL|kwjTMJpWi6psStVHXLt5LQpXe$-^A`O?vWIXr zzQU{g2rEWeMY2FY!CisNExO82<9S>{Kix$Ag!KC)`oTrlg7ovdscC*1t@a~%Umfqxu4A_m(Qur>9 z2AGfI==z-qv$y&_0~-_nkoi**uI zjKwy$dc=zEHC97VbOtP#;+#505nixXLJnuy=|^Me>-&+e);QW&K^eew@r+mGiUCof>_>QYA71?oud+hWyZQ=c`N20JDw18V!>d=}Reo%zK-5H? zgD$FbfQvqe`l)jubNrJ!I}>SqKQNhskQl4q))AblDs#}KG6&tilsV`TS_S%x0kQ93 zmTe52V%qVpYwertmSzpBGKybjkB;@qY)IhbRm13+2(QzfHb*ihxgxmvy*5uppVVk% zx&$xqGz;&ex#9V2VX#!bREUrOH(h9md6H#AqGxVA^RN^X_%Aw?YmY29FEj$Y7&8ue zwo&#ZfYioi7pFG9iNK;G#x)DK-{lGEhJy8JCjvNHj%kS+ArqHtCBfdHw6`PxZ!vAY zlT!Fe0;w1qM|Rs9RI)NHbNo9|_A=4*i4(f>jv_EC)pG#M;sYeH=1yqPT27Fq$g-e| zRiJ0sQZ-qwY;`Tqim;a9oS6dYA|cqt;g(=EHuqo}D=wsb6af+Iu9~&0D{jm-*rm9euwTsGrgtGhaDk}`_`4Gx}g;)8x zw% zJYi8Ca@xF^cgiOBplwntdH#8-b}G4HBqhvc$G5r)R3p@h`*|V(I7(p^GHBoT~zdUWGq6o}EJYpK{s1d^3xRQl69et1h zoWFAqHt_;1OQ7ac7l2^CgR>4YxAaIDdz7$`vp>qBn4>I(_^-S$CXzrfniEvCmNu>D zos-#+Wzr?=f}$ba=Ea0x%egHVFu#$#E!SXTz2k-&ZFFy)Xe4Sxwq&i8uu&gnIC40euAE1 zV~Va`g;)8(oI*bnto&WX%8!da`uYCd6gp3xT~KuCw|NAFs(AXl#M9sX3r|0Y5)kYS zy6?rTMcji@J|agj|7F8?zKx0 zZszG=#^5BqBj~*ql=G-vBK#}}65mpD7(KetiBh6QNTXY(x;I+SoEm|u9AR7q!xB@) zgPA{$EPJI9PTBfSWD+&PI|o)72mCO<`wUT3q4#bl%Y=SsXUR&;0er&?r$HoQYC2y0w{?WWs%Z4PHsP?#Y4qW6Pn8vuHw?T$O`}PKH#8yOu#tFs ztO4bg1Q7m>8r0ciY0=1r1d_F>?M=ZXZG%ebLGIhVY2JYXmZ9B)wt*8VPcPGom(+Y& zj*#Axz<{`UeXR=MdLjWtgmjd|WD)N(38dV4a+_J0^rCwSf2HH@6JB(jjWF2!O^!Us zF=AqgcYQ`YeuAAWA2<*4w=?crfYOI7A7v?=7?2EhW6Jntsf^Gkjey)bc9mHub`SxS z|IE*T=kBAL8%Vmh^E{f>)9^gypIXVv^bXV0TG}u-NHV5cfX3&fb9#kB%GB}#wbS?o z?FCZt3N#)?g06sLWMeIa+*BuYTn`MRKgY;)C(|ioIaWk90a>h;YQn1?bvcUuM^;TW zG3u;N^kA>X!6XS9Od!k8o^7lIYK8?q|IqWSS`~KZjBTtem%c$e2jD!6@AL;wYHlBHA%b=1vb(znf^Gp;~u3=igL8rD!>0_Vi?K) zT%^UvQ;LJTNQ;l#=(K^R$@CmDKKX0IK}cs+cd82K7^W2Q-N<^BNu+MgA+v~YBWKLT zU3^F!quD+6Qp3%_s;4Gwi#3rO3$~RBJ4uaC)TF9HI7w7dQORkLI5*stDKM#fYYdwz z@h1Bw0{C!|ck7B(P8IhkjbTk-^gfc5!hI;qIz@YCbz&h`G%jlmYXS>o;fsu}UWHd# z1DwZY$d!0UJ;;UMry3o++=ex^E=Mm}K zqORg%iM&A2Zx6kR$;u}L6ByW@LVR#bD}eYc7@rCzFyey+r2!&?1=ieArzbPnFcTGh zZ`&-DA@xDqfU%yk8#NM(>3>ejU#St^2h99$G4`9Ba}>oag=q1E(e{Z{QMP#}z0PrToHW6_r$kdmVc`zf z6!i)MTdrN`VJ=?dB|+ku^@JW|jloJUK*&UFYkCp;c=HyXz$%UTNG7>=oJ zBkR$ZD}$T!>y!}^6(O-|PPQZ~t?oYuS3SyO5RGL_95};rD42_ssxrQQQwRyoskLrdbW7|9de4ZB<0@T_S?-E+>LVEOOt? zGvY=A+L%Td5U&K04$j(Din_JOake%J(U=dqxeFNP=seB zpyjbY{j{p}ItQ>Y+OPK8@-oDB-*B-$$i{$M5AV$-iwPa92eH-z6gW?q7)D0bW32 zItRvU2CzfPG;U}bh{ORQcZf4?Ng&yn*fC|^;~Nqf@dE9v8Rm`}rJ{?(-)_CE_ae~4 z>X<#(*3|VN0&}cICSXT+l>2U(n8}W?B>^N1v?#lH{NQez6(tAV)(;*DQ$qlAQ)UZvGOo0!P`0fn)F-d)rDjqGi4_ z*Fq-*_v~?XB(7v_1`B2Z{#Y+^sVj#fZFMcH$(0+t90*og9qI+q>(;CDBdbGk3~m`n zR$Is&pzj2?#G|f`V+CZj<<|mYO$GSOSi%8_tg5QYe#?3Y2z8yUd|E2Xe(OmvhBIr< z%f~=L1pb5evCdXea4g}1!Ca!o0LU7vCjM?mGp{q}@yyHck(F5;7z|kCSFF>li7%36 zZDqk=APX=UU1g19!Jse8j@rZz>w!W1J`DyZxb3^|-%WXN{C+|4$KTcwEUeITAei|AlWYDv@efQtetYLCOMqPGr?Ynn*y+p$jY)s?LBtZ^DaF>xB{g1oKHja-w&@;^46&KzKOBS)D&>SmsV zYOS2T2aE1l>{xAKc{mT)kzl=r_%`RxSyjO}<~X=nJJmr!ep1U+B&?q%EPs4H%4E2# zl4^1#MpzyZo-|uwTTw&#I~p=SBUolCn52l4bQ{ zab6$`oEKeXePVH*FH1PDpJ4G%zfa;kTy)7nettJazE6WlPU>`#@88w|&PyYe`TYCD z=imPepZ@}`&Ia{jP;V#EX{q^-CX_N*oitQx(+o%lQvn9Ur*{da1V5-mo@m`9E9VjPDUB7KNJ z+cBwzg?1t^hxOY+JK6Sz(tVR>P`N{77w0fyvu#&n^6aMMFB=Ei$r>YGE*J1DezM?_ zXllL4tF^36KjSirHtz3ASJS*P6>vgJk@L6AfpRSeUTjfb+N!LTXYkX-5i6SG`<1D7 z&cLj+PFgNM29Qvb*1a4YiKTO*;8=&%RJvp(<{~&&TQw{tthZd>Eo-V8Q`(DcwE!^3 zT*tbqDlt{|u?!1Yb15X+QGZo{jwH0deR%aVym|<)euY<$(be@TyvmBh#NmaqtPmzV zw*5r)fb{z`c$=sm0HFlxmU5qePJ>hviu|^Yz*|-IfId|Z=>Mg9z+y3nCkuH3i)O^1 z0dLGi-EiR?YxlXO6&U~PMp8#kU>*saG9~7tX#6{EgF?}r)?d;#iMDsT9>4=NN1`eU zI)|2*N0}IsK60RF;p&zIQo(H}nU&hW=!N`&(A)Y<0w^fhE%SG{9pQxp5RSJX_F)gX zX}yRda$^CM?zFwW%Yy-k6?=(yB9Q3*tV>ol5%K@Iy0>&3dlDG_n=y2-DWjjVK?|<6 zXd%-<)_XM3{|3eJ@(t{_wIdv5WtJrtyVXi0P6;&%s@D2Iu*1{IjlGfsj?C@+&r7C| z)7v?1uBi3NEaST>e zDcY6(oCI9fR4(za>ZUS)d6La8OR%b{;uMi*r))cWB?*N=Z~COjO*^)@us_yGbucZU z@?Wtws96Bo?eY6Gbekwi0HG6f z(-ex-*|{Wvq)_}`jF4JYErLGPBIy6676FWFsLK5NP^deV?jM{2h?~yNyM1}yk^mf^ zh~^3HQX3LT=Com$8>B}3%m6f?6w$m_)6ZxM5NH$F7j>vdYJ*%pKnjBpwlYarYI3~f zBt?(_;(kV^!7?K}lK}Et8!iiN6C`A#5HA^5nR+Dwe0zh2IfSZjB9JKh%x%2$c~2x9 zaj!cOfW_BCWK8~!eX}0gz3d!PLvvMc2}3?*Q#gpxtBI+bLRB6dmX|MzXM@ zg%uLQt5@Mw;F2;iZ=c9}Jursfr@`1ng#>hV0%Mx_a2n*V9c>2Ad;DeJV}jkTf15|} ztg1pnpDHBu|571g=#cv`B9ICp-yo>c3|E>F;sV+sHh|oc0I~>C-!OaL9A;iwGkB#K zSqMLzX+EMDrKGiLo5hS(zmW85bNGIGt&l)%;NEEZJk-VWhUR3^s8>F;`TNSLmp~)* z2pKGJAU~4;>Xpw5Wj|kJFGny{WXjWtZ6g8LG!}^!Ow(GW5o)?xJo`?Kz#P|68CB04 z$~^mE?{xy&q*sg_lcVhAaE@%WvVOr&5&*2`I$hTAc92a$0BQcVaq=HzQxF*!!>gmL zH!O_#2(CAj*Ru1H6V|epFzI?ePd?Phx2?@pfJavs3FoE8_gbJw3fpg&AbL`vFftW?b18=pgXWG(5T`9t0N2DBH6EST-GYqjuzHb zhg#iWU;k^Y)D{4l0IUh&wpMx8xv@c zT%^DvihCL%6=_H9QH5+o42>oOUd=)(XS#tePHB9p4HyTI2+YO}5qKg2e69izX95n5 zFA0E%D=*b`3S?Iz65WutXlKjU0>0H2Me5Ig_Lkmg1ZZXsu6I%sNMP|FT<*5lot!*W zvLaWU;{}yE1oOed=)J6W`b^3GES~z5<(si1-x|0MvKj&&tO@N)R%4#R)5QjMl*IsJ zNQ~;>?95jKmF0@eAZwYaMC&_XEa|?pj!Vf5^oqrvDx^`ZxOA;-{CtaV(DC%Kl0tSj zzv&$b)>3X97waXY>lckxck*aj++-?R$+lXAqK?xClF&EyqaIf7&8 z_V+?pYtYhb*dJ>iU5)opmi3FueuT2DMXW(As&2sg!5YNE$_UY2!5|h@H{i$HdMCrm z2opVXRzRWw_6%b9ecB-QQyIaas-MaTa-V;CW{f|bZ_$<4zilE^RaFk5?-HuIyc|NZ zwtx!+CLM5rzzk+`K4}^VW*EAdDgTxPlHH)d!LcC$1aY8VclO4xAnA?-5=d&`I#oLu zF+Icc38FBAq@>Mkq$Dl_svFAUFeqKocIROnZ0oyse$!P&gZA@PBuE(qG9nv>>lv)_C984w8TZsl` zPrVMPyhd^F4ri|{ACi3YmzIs*KgjZly~+ZzFPW%Q;Pfa>n$DrySjp6=TI&gUE81Dh zQ_Flm9xK|FZgr7)jWwc)i*ig)XZ?6`IUwYd{+wv78=1K+YpO7X^%anzQ^`uF>J(j< zXR!uQ@p*Ni-vf1O5meqmRsGMfzbA9}c(ttqlNFHOA8VUB1Qikgvu?2nDw5rWGye#$ zvYxOADjJtHfJIPYp@ZnIfS|%c2jNwIbQNFmV>)G*nkaP8M}-b>(YH%||E?B_KdCdd zOHCI#_-!3wsj5N;eJXU&|4X5R6wx$*H5YgaamwmRyP*lepgrgKTk}r4B>@<~7OnLc zZKx5_;~T1FWZ#r`B#@%Q=CG+v0-1Z$d>k9`l|I-m5$3K&DJjA*LzELY*-|%Ph2!9Q zFOM?sGbLVju|@8gMgUg=xIjV(^g;s2qil(H!*0hb2_!aMa===2^CqXFmEuZH92h?r zL+g|o-O0m)5I1@kI{1le9&`ZJ*`F7gp9`F7b;oe%Q&tAa$GL!KpW+e*$YhBHzGTw9 z4NN=gx)2+O$3(W0htP@7TFa@LakQ0dkK(DNOcQH?;(cB^xrf*C@C)v6ylSk3K>1?~ zFBT#3y}Ae~Z-Npo+^HLgFQx-^cV(Zd`PEM?K1tl8M5a(w?bT#Hci#4bOU^ zMqqRs3jp(#1mI<3ACL!u^81FD4Ok_6A9z7k%sSp7rOvFzj&38-YC1%+AJhmr6~s`o z^k7duG|I?3j9j0x03hVbUvDF^q%{+d(5Nv01IsCetFrHJQG zE^vf=I+e_2a_pA$xV4~4$XnO)YBV$uCLZVJ(0nFhoxs9wkFK!Z}SKeRdMt8iJQN_oSPpWGjOkVZMOgk(sG8N86jb% z8KL+Nd{)_GVPCGdB!DVINJ%vB%8jhkJh=h|FWzaJIdGf0-FUg@3&c(553PbDX^xqU z#_gtUK*uPkG7t6$y(uqGU(`_D$LoR^Oq!hDu{$(RVQLR z^hpA+x-Dn~Yt}iC07{UW`s{|pK~|45G`;jeUYUWdS1z_AhWBZT1B@>%56N{>tbT9r%%r2|hkA!mh-tcd`~Ijhc%J?GUao3~g=)v(^*%UP2# z@Mzn}CO$hN;SxOX>fm^pYMFE!HQ9hq@>JE>pYq$N3rxRMg7sJ(Hy3ZR%mW9>R66H3 zkpXIXe-@}kS6Nf3EUP68)S{lh!h1eOR{_+5o&e}T7r#N~5M5<;p_VPdN53n{;Zlic z)dOnyeHy6!kmVbo_Wk={g3yW0^#`b(kAksX{cRorwJNs!KC$KZm$T*L(|-w54qm9= z|ITElH$C$sBaO=fky~m6iw#O6X6N4nYP?RUF5YVSraS61IrxySZxRKiAFzt$(Lh@N zQoF=kM_y%*)CBxoC<+-)WlI9Xf5SrKX^eR*zh?xL!)}-9UTf%krV$YEG-qmbhv^|7 zA(0o-J$a~&HyL%c;?VCmITgr~%in@t1bRLK@&{qZ3Gx1pMwll{p*8${NFyv`3{UqY zka8agc6baB`F-Q7h7%OM{J~rRmJ}j4aYCWK=$7DgB3G{C$~)>4S*$+3l4U}^um|CI zhuY4~AIuvq5#&y(MPnZ8D3DtLm{`=tN4#u|+sLYsBiSX> zXN?79=%B}YIe`+|+tGTc$F2&gfVWIAj(g_Phvb=bOXA6ejjB8{+tF8u2l_*|7{ZhyVQS~9)C#m_`|=@ z`CAPfXvmMjp-7B#2Xw6>}7ZR zk&d>5@?>|Vu%i>xMFRMS;-ZTdIep1yCEqa5K@$*Vvyd$i3#?YMTgXAkC9ExQwH67~ zJ}5|B$yPMIL&a|tBrq@=jn#a3E$d&VrMQs|kP?=j*-jQzJid-Mb|cGE_V}_kgR9ZW zwq$LF4;x7bu+a5Ej&s?3_(&3nxMeuuxNcd$Av(gTk*>?(AU-)B4)A=DCXShr^%SfL z^5ZjkQao!K7zS{C2l<=Q&f&MuSB3xiW9NKU52=Y~t>JN!jf4H1fAIWpz zazGyB&%eEV``pls5^sPiW&`hBZVt~E2>{u(#3$}#IFbO?d;#!y{;OY3s!a)lq0#`wgO+eyBs#}xL{?ohOqzzf$W&7AD=&t{Z1NzGOqv_uVnT61(~=U z^B=23_|=`P&1>p)#Hr!;p2OKHOD>f$9Sn6VYu*1{0x^F~KS<1#{A$lMS(@`>3f0@Fa&&Slt|i$Xd+hF=M^u764#PRZ~3kO-_e( zQ=7t;GB?3pj!lpiR}C6e%~eK&d%CMC(*27i4kTghdg0Y$bQO3nBGX@oS6RveL4GojED#$Gck(E;ULk-FX*6#fK8(HWC|udO zs#xQD=tg93Q=S9}ZJ~WcH;9)%8h=EDQJcq3; z^1^fdvgSkdo|l>+>sl_lbR&zFa$Ag7Ru)aX!>&;-Ujo38BILT0CForsClwDEA38C8 ztd9`(VT@Gj4rS$pEG0%VUgmm~XFJk0B&@3&Y3)%c5Ss=QQ%|E<)6<%d^GUchA zVDld$Hh*075#9IiqwM&f)LA|C#&7Eg(N&T84~fiwxSY%%7PbZKPvF=BWolwsHHeP6 zr17Pk+drJ7Qd)ry_7ZZ1S%D1+01nRE*qe7p0okjb?B7RA`le@^0s?!$~Y+B_7J;*10b`Q^6(P}38tv5|y38X@KN6pq7(2!IDTk1DVu?B${E+qpe6pVA1` zG2&BskW(qh%BDPgkpMVbP?(4rMfPO(0N z(Yr|F%L)xfQRiM&hY475%x$d1>d>M*t3@RDq|aVa;#r?7i~U~YNh;gxUiF;wZFn(! z7fZbBIX6?aXpxVw2srs1tjcPzAL}v`!$iv@&NS)W*2pWidv z`X-763{kNFT=bFQ_wS?TX{646k>O9Bry!yBw|N8&tLg>}scyhMMV0t0@ zFd*(#1m+!;7IlbB#S@bP&=}_GDbD$6g`TN;YNDIgoKJ8!=;0>cjwE$s*64 zUZJn(JGz@W9bN01nUYL8qZ?T?VKVWOIAjexQy!}+e6kdwC+n#iMqgG`h~aY~AL}L| zlfyDw17R+KTqA}~P6{t;ry9aKR!=oW7M^8a9Xlm!q#CC#tE3u->zkfzV?DKQU@mJ> z25_vQs?s*-t`wrNZmKf|hLsG$(O3uBaK5PC04o<8&KJqD2C=YQc|M5%sx;;17>m=MNdQ4PNW08*kO%DYNyAm#QDC7J zc%>1L_t>Al+=Ggr5+rTRVWPc%|+R2l(oc9HiUJ+;kVZ#yjA~5fgkwskd zpK=5e@lf{XC2=tIJW878FBLC|gEt5VAQ!N{<)ds67fy4MfnoEL#ji->V7-RS>Ub8g z`LP5Z*n$M>PJEa#rgEa^uI2EH0nl*;-^f}GoNw#I$+14eK`oXh-N?)n-=HZ1Ds2)m zqPAgu2Cof+5zNkztx&ISeg&&Aw}b;LEjPf9)fB9eUX}*GIQZsgj<5AacC#$Os;P=U zMYTxLLibJ*3V2v6)q%OFkOAwUIxrXYcL?wPE4<2jMIjgK5DVslyIQkuuwc%YWiXd` zgdLuh0l!b@W=s@SfY7OEis<@3sj~|_yMJ3pV6LjD!q6u$_fJI?V30$oH!4`R4MO&m z5054UuuwAU+>!vwv=7VJnzA8*Q&G;bk!8KpHjAcRC^??#r-AcR81bmh@;?wB=g`N4 zZ~1-#zEOL}n6#x4lGSX;N3iJNNfsF8xpIf9=d#UjDOG2uYC>Mt2D8U6N5tu$|2+7{ z0tmm)txTR>E*DsUBAVZL4wPeod0U8w+{ts*!;I|YIH5{kXvF1~~Jus>BxQyMqN@FT=FVQV~_zu5Mc?bV%V-eib6eP9%EpB5V4Ev_WA6 zbuT~AP)mg85C?}f3qFznOa=|{pI9`sC4m9F_8_f^;L{TcfGle6RDF1+Mu;n3+vv1Kgfpg0!5 z$+ftAFVEpTWqcaDTi(%#1t3gj{fP(JxR!!gll{SfINlRPfW`)^BaP4~JaD|1E7>3{ zM!_bwmZho5#o!g^;5@Hr7c^0(2GeH|SzcTamrJDlBzm{Gb~ir1lsx3p+}+ArH5GO@ zo;f{(K9!#8o1%s7UQSgxA%k^V%Cw?CHz<#vN{950)ff_dJt7re4cA1+n<54`C%NH8 z6&;H>M!i>(un_LjJ9rQK+sWfn1L5*Ju)fv&YMnVQ>W`I@j`kJKjn$1c#|7iAS&gXd zRWxn_D&>-0L!wpo;2M6PhHDe`DbU%;9A^?Om>B$Y_OvL)=|&QrN(9oXic$=zD8+Dj zQ3}MY!JWATgE194qAcyMPpxmx4&~rtJ41m^GaM+enSE{wI~yxJ*b{{ zl~}O>@em%bRpP1BQz5XW60khTz+GbOJ^y(YxqM)})sbqP-KpnL%?0pDj(Q5Az>_Rq z19PMS7thoP@3UE#zXR=-ypTZqA52R2USFvZD#DLMkZgN>69K?zd#~@*2>vM8B(oK; z0y`2&m5G?j*THQ3oOSrxa4c`!2!x8UclGms&dzK%l4eQHuQHIX1`v8`uPi{iAp7rq zCwo6Q7e~?vI>2ZK7zq%dr`H$7W;4v(%Om*LMFY)D&m|(#($W`mxr_xdJINZ0Z0Wnr z9BqOH&JzOHU($}=Fy5#nsNd<6xH||POMGfqKKMhw-L;KAg-e;^%?5Lu3f}3nlKIM> z*+MoiVM@#ljr5J41YH%5Hc9`|SRY{vYAB@g$`*?;lY}(Aw$);CCaLGGzbcA|^dt$T zdTXE`(D1gU+xJ#iuEWW4X7;({z=LnWDl}44dkTnBi&iiZZF; zuX6QsJgqvOVo&60mF>@JByp=1w(zuS>(g>8TxEi%HR0rpr}6j8JncezisRkiPoeBV zHQvvQ<#I22j&kROs~FomH*!gYO;3a3+gmeOADZ}=P3ULYsdcni;>~@rolt>}H1MnKg!47?vgyp7)M=KH zwBCT3lK^=VTm4}(x7|rpEfccSiHMD`Vhw|K9oV2Jsmm`k7PGNAw9d)C(^K1t=dXVa zrbVnenx>bSRFXck2f=PO(G*c^B0E!^cPW3f;Td-p^Whm*tG+UfF>aNlt|@W_F^{B> zL2-;bpWttL=P7^Fcb7HJNGue)F7P*9!p3%zz~@I>2gbKjKU;r}xl}m4su@lvZy;|a zW^- zc&=-(Z?&ht{>~Gw)BDHyEQ5X&zxOGqTsy(IAH~x8Q7n(|M}b5F<*Vy8xx-CHc<1dX zv8Du9~s-o7`t^Pe4qYA;KTbfNaKi)Q>hPR>2!*@sk+PE^B?L z%QtVtfK(OQUc~6B?L`0HIDh%Y5=+%Z zf{i&nyZbw7&Q8xn-+0&(ww?T3*-$aHsWuWzYa_AznKlw=>+VtezyH^36@Fjhc_5zb zcan}1UzRV#;DA=vQpXZsiouCAVd*>&dB-a;Xd%#@2C*#T&5n<%Z2e+>V+LD%faRO~ ztr(EGL%>zvZ?;U{i2;tuqck4K2wcCe7*raEmS^}NXP{nqozzu)l${8lZkwmbuJw~G zfMw&Irp(~R3^r6AmlXC^3~<>=6W&Ha+#6>GXq*hhMZ}=F@3ztV`PFvX9(Hl3Z?+Td zPvTDBZ9TxA`^idj-o&7Fb{Vp^emyXA+7c^PI$T}ZtdP7g;9%D_$`l6;SzCWqZJ0-d z48)SuUrK=n&b((fw&T{W&+Sn#k+&oms}RO#M-WyCp;a3z%d1NXosHE{+W2)CtE79F zEhHlsnGT6qQ2C@LNgafO7wN4@(why3`LwbeIDf8&UPJ}2Ir7&J`IHWcJv0-(IkA|b zW1k;w@kJ~mA@r^}GNW0!LwP&}vq%VwRuNY}t0P}4Bst|%_=$wDYEhxEa)}ULXfv@? zZ6?^56T-W{dm!+ScCgT9!qi88?^BV$spb+(Yc8=ozPSX10&#h?=HM+r_HwXL@^iV3 zCYmJmVi^fkh3`EczLG+{lrt>6(BzGlQU@%AD@!&|ifXH1k6gEo8e!in?oQ4Hue+r(xbeo3K&7?3n~ z+SKCHH?~BUqkJeN33R@utTk4``t(`auTJs0zxV@31x!quv+-8{Us99s&4zE$M0@zU zm#*6IsZL!hj`gaCFdBnO)Sq^vI~A=<{dWEMkw2i3x`YQ^%Q?^}Q*w~Fm!8^vQzvDd z(V3GX?15N0 zqq^T%F{-KN4ohq9uspuGL+ccJ*sLE41VRL~zkafJ*8|bf7jnZiA#W*V)f@b!7|@z= zBP=9ytBGFoxu?<26WipVEkTZYK1-#2FFPun_Zp45f`ACiUR-cI{r$drj z_StsYQ8XA!4`e6cS-C=VV0{&X*4bnra`DZFPXn77qf)_plI!~6jtOf&Z1_~zE}>vQ zZDjWAp%{n_(`uOXb#2ScdYLBS#HYS&^r8|D23&Q}$hsK@IiH0)7e@yK+8Nn%vuI^E zzK-+g2@|nA{43!=EqaGiWIDBV4$GnwqNAVBL%CDtT+=XSY@jS;!KfjO*rIn>-)S7`>Zy7>=3*hnK`TnqDm z6az9>)L)UsHv0*um4S96PfA1O47^(pQe6;TO}A!153ZgWMPB(?3{d^t39Cp1+ROl# zWgV^lY7@5^CD4Dfc_5)Pad`D3iIR#|iAFy6!v;oL)tyx$yh_vz)-m~wAgA^&;29r; z6R&;rv{*GsW_v0Yl!0s8&7?L!ffDCy;%a+9$GbF(lyfOMp&)2C7a5ohM<5w7j;R){ zDRN9j)6NCsh~aC0F7-OHqEMUcG)+y1!!q--q5_}mAz5_D8hi5;vu0w93R*K3pX@&D zsuIb!8?l&iw<&JT#WAaH24Ca~B8RJN6@Ma!t85i!B8Mw%iBDEr6*-)xDM~~RmmgU< zT$A6;+-Us$vK#GJpM>B>yZigmYeW~(_`UlGs5spH?iGidYLu|FMhVNGX_P>Zgf;q0 zs06GJRIPcV1i2&P3AG&z~@wmExw^&iouD9g|uSGLX|qmYkW&b^9R1RiNIUI zi{Imu;W+zUh)?$W(9z*^tR*zw$%z-(spKBTyLm4LNVlOM*C9|w<5Yp1vXI^&bFK9T z(6}vS6WuRKQR@w$af@71XEla!sB$Z7|EJJ{g5-DxvOmwVx;q@7;Iai(14>|`6I1S#pwFG zx)uu((W1xl>Z$Dm3$BOe3b+!1Hj4shb)=3h`l`-!Kx{a(KBtOUGks1KvRbrZL>*t* z=xmc~Rm`G-eS+5YBbe!7gf>||9?IDgm!JY#Yf3D?G+Rxds$`cBHXLII-$${SiNJoc z2V?BuQy80}j*4S5aoo>xRa2c69&PbeES#h%hDG`(FGVYcRdkBoS4D!TKLTx+kskRc$hdfdh6;7i#F%C`}xOcqPkfdy|5;*Ih|HQyaA zx;|6QiJ&S_FDD6xMb7rtu79h-9?{SBP7G*AyOR=#Xz*SPXwk3;?~HusgN^$RS7V2G zk+XdigH}9>QcTSX`%xm`ibPvU!EWRXz$vbs@(j0Pu%Ru7`a%*`sA~5ovK+fJWa(^b zz$Z^#yYf{o2^oalE-r^}wj6d!!6KphZp-0t6eWqQprOC+{gVT3Odb2+-Rlh~XlU}z zK~cmeXtRuj;;wCm4#N`Br#66#%J63LB4)vNTfFpVHsmMo+Z7|M{eYmbsLkvXH=`q2 z>_Hm6efETCk!D)8pzyjIW(2;r(NSTVR@~!P^~Nl+*s=l|U#&{WlEgekG!z7eWK|(; zM%Y9#t;LV@7t;k5)Y2YbpKRqA^<Wk5?DmjNDn-jzza?O!G%3E9C(a^_gs{&J`kCm;lw%_Mf`qaq23C7h-_I zFuktI_xDRNXjKZUm5<`9un%D?^V7ceeMlD!s=u-ipW~{I7qh(HngIAuQ=2ac}Jyo?OIsIy9*z6Kvm~XZO_A0%brQ!9Laimy#P!#&Z zW_Qt6pOHHLwAn=ra_Apa_4=K~{UaN@wg-QakF8AfDA%Oz9L!>`3@#y(&&+}j zFY*G5_n`nr;kiyms!r066(t>-m6y;;g)k!fNvfYh7$u<-v``-yBXCLh`;Co`H0WcT zB9U}_vp{u95*53wNkn4t-mz#%`4sNb&aVn^fWt6Qtq7N@-`yCH+l3~TDYy3M8uMf{ zoOvp$%{U~#_;VG;&(EQ_HpdG4S)H-?E>{&1-wN??! zpJ^4bL3wz4Y^hd9MB~;x7#pGTpj|A!!vM2BgCy=+GHNkIYLkXgqPhY;2%j zg?&&xu`7M;`?RvyP@kbP<}l<)ncm8Qno^eZu!^3lcXrEL)VNBH^}%VX`(XfRO-|{>~G{UnnKA^3)kJ60lv-p%i^;b5V1rVxg5SP zX0YA0tUSBXueKBF+Ht3EHq|>VOo>_|-)-g&n)n%&+J1-u3H8#wI3Z6z#Q=YVNC;*A zwJRHNvq(kh`b9vZh|z;YdDuo1nwg2xsigkqFj7rH#X=k?bAJm4pv4~lKetNE98-scBDaK z#f)*auwoY-Vumd4qur~8u9K9;PyT=p&!JE@6PH#jn{y88SlN8AlAP2znvLCw3T<;V zP~Uqq&cUj|grZt>4puEB6t0};UCXRS8dx0}{xd-Xo1Ae*1Nr-98u+XIM4*9pe_y;! z*dm(AV;XqBd*v>i>OZlx{u9gN`%mySOvA19vcnHX$1Lg-)T8-a?uh;qD@nnQWaNby zpf5}vY`5xSjPs?9*_zg}r$7UBT%lR?o_~16LUoAkzDD`WrtpnjC(UhpV2;=MRt)e0 z?FI(##GtiilLFC5C*O;~o{0OP(Bgwl4ss>6YxbiUkTi%=Na;}fBnCJ+NI(dT>&A8> zKeZO>yA=bz_34aOx=TNs!Tuy|*!AQ{bA*B<#;I zW1-L$GYREgXt{#lWtl~%UuCOsrip}GaV|BC868%*3|17Vlq~&|7!ZG6 z4t46{jTj)Nx5uKoq+2ss@5IFuIo@Ymt*q!o)x~x~H#>R^Wgog&93@^G;EV7p$& zIr(lot&lq^x%LlRCaus**OliF`mB!#;?0DtWvax_^!v1_jhLtD^VrzHRWeJ3G z4q_L|O%msx!WiEp3H!5KwL49yogx?B(WK>tP2{-EnSxboStP$C8&J_|iVWJV8nt6^ z+$G5&fXcuP-9lRDE=HqdmcLT2CYI^cOSOZZbNkPcn~7oe23&4!VAV7cEZc zciV{vFz)oj)|I3ateP-Mpn%#VC93g-dJ>zIt+s7Q$~dlVR@PeAlDPJs+9>1q9=H`9 zJvG@ROErAv<7u*jN#dYCQX08U9F8w+tfJ~ms4lUwvI>^0y2QpR(|J}vV}T_pi;iJ4 z1kl!wah{A1YBPx}H_&d!y6+|~#t$};NqMtE)!GSQa!|#pIRdEnHbVd(+jK(VYKAf@ zUO6TEDnmCF4;BkQo?=uafMwf@>c|kls&$1TOo;uKwu&5=2;hab7pJQ21sih$c=vaY zl>X5U=F)&2#CQte@7*gdIMo5;)H-0C{!9mqExIy9#*S2EwzjoiS1fl#Jd#Sxg#Y!o z4V}{`K1utNqn?OCO6q#X|Gc9Gz9g>|v4c`gQcKRg5d)N>(WmL&QAu*38LX7@MJL`n zF*rOyIiq)gMSk_(hWnItT>W4>A=g;D)jo;=QAGNk#N|x_3JHg>#IjDakgEnMH1n)vD=;!;;4v-F4IuP`I$X4V#NwshtTj{1k_62{`ER4Mejl&Jfcw zg&4F-I$=%Gq481-2uo-S&O}5;3|djh`ndLn9I_9}G;~Vu9@j|4-k8B^z3-zAk>0$u z%cfaY53d>7)7~39?f)9@^Szt_+Pswtgh-n|*w9liTr=E{W`Jv`cX&jn<|i>|MUUe5 zN`#?p`Rs|nma+L;F(A2WMNhWw7qw%|04cxP;EO$&%T`hmGZLsB0r1^L?*Gk>x+1<_ z`X#@M0q))<5rg&#RcBu;LHTL(LsCFLcu5}Km5;absU#G8Z5F7o_rHYXJ+-m9zy$kI z=9@1Ppa-~YfZN*p$(a+2=V3gOejIi`k~T`en=HJm3nHr;dFAV2*zxVPEeI?9c24o$)#Tewoi*XzRhj z&V0`6HqIw8KG!|ert$0bPH6Vkf_HE1GL}(;jkjj7p#-;k z9<$JGuUmd(DCN}@Z}h#Kfl5WRUAkXJ?XXC4IEXT2qZ$@{vzsfD@2@Eagq# z*!tlf>WKKQ8IVvIlkq;wP9zsBdr2t@{O^lBm!hh}4J4_2+RK3gm&oqF*-;U;&f>NG zk(z^8a>*hS`eD<)S1()4R{Lp_a!ed?S2nD>O%iUs_F>(|Vv?(;cGKrRd7&o5M~2VG z(iwU6Oe_%1RN9t!x)hoyLrwO1VYj^<`T-S=NIXlua@HDzIf;I_exE6QXMY$Y?NZFi z3oUHqQ%{>-ezMC48@F)~Q=w$4&_d4P)Wm^fdn!s~L#rXSWDt4he$La3xr%+U3a{ukc zX8SzD_Ab;~5wNM29H-WjjQqF-Ql$C4lbYa`w|=9bx*WV5?SQS>Pbu=e-B zD`PF|CpzP9Y-X?1-ccS1llQgF2g!fs0iRzugQ{;3ybTgc;w}_lhXLN?s zRmb~kV>&*b0#J0X^=F&mhzd86(-l`wxU|}OU2au;h@37zvS=osn(A`K>G=C)PWP+j zhH>ww9IVkDph7)nf1J-^{amfxx$N z2xSu5qo7H94CtN7&L5;4GQQ7W%8<46e2K+GgI8ietJ$?QEQkiL%>XxIPm|(%{*4$c zPw45}Q`ATx-tqZrWcbS3_^ z$fZ8nWa0biy+zT3cOwQne1t+CGJ2=$r!CF_y;FlV5$1C2zsM!QPE-&la@w!uYuUzf%qAOj z_T^*1&wx!jrfwzUHM{f&Tx}q|w48(fmxfsTt3t0b_0{P@({#l4X%mYiw4sK!AI`Gl z6x*nWO)7a6&QKLe_E7|*iruI}=DO>zb;d$5ENyS`-X=Ts$4Re#y)!Ts_Rqune*gT$5XJGV|~@}epaIa>nm)pugk596_NGj zM^@I?bdxjI$KNlrzF(a(0_(f`JJN8@`b3@imm1!~w43_Kv(x?V744g9o^fi;Gft0h zo zi?8a}X0Ras(mj5W0lg6eYHksWE)Cwg!B!$c@si%zC7oz%SNh!En*kLBJ>Q7;@Ied+ zZ5+2FQ503eryXr?kd;knV}ZSvM#h=GkxPR1?OH{EJvO(pQxgJ~g3CCRpUnW)+`ld& znfxLKXKCkpWWJgKd&klECOc7pu~9LNaHHSNfNmZAg~uEHAqLG2D3ms%cRHgdm0(Hy zWLGvr6v_ARsg&#K<9-un_G0Lz3O9*;@3-vfT0zrmmI$Yw>b{gD>pr1Bb0 zi(qw;OQFw&6gmSyrCHpcGeQNlJbJ4b)|QuWqJ)_`h|QG58UiToN-HGvUdQdv6vt*H zk`>5uy*yhWkuG|+;3or(F~L;unj?fl08D#MVQa1$wmP1I)EptKj;HYCbXKt_y8MbG zL;k9**X7oyGdCjPF^8fc?Jrp=55p-T>ZxI!34GC%FuYpjT2am{mpS64-5}(`;Nbw{iv|QzzQ7 zRAc|y3=loZgzx&xXbA}N;*K-=RgT)avke&hH#4Bsa2$>Aw$pmoN+E3Z{jjxhP%m7@ z>vXDjxDvZxS_+}FVh-0dTH9NYLMy`O8Mk^Wx51E0JCiKF3r;DoYmHkxDesx>#0nJ7 zmXSPt{H+T^QuUy?MekxQH%RnG6vSWy8Xryrxw;~)&^Z%9_TfogdiI`4?oPpq?`0)B zN%e)I73ml1tOBi^PbpkwH3)9;!S60NyplrfEIdxb5|zG|z2N_6(+w#xUKnsVmsbIwSv-peJmI!SyX55Fu^Pj8g)eD5-f1|MxGVUa!FWj;Nf ztUc|+`d{pRA!op+w-M30ER?Hj2B%bAjPY5{uzf-sV?yMLj9(0I@pew}Fx*nSIY>CqjwCpzw3ESc}U$BdsqC6+}4v9B7Q;TSX`RAZqs! z-Fv+SK~!xdmN2&0Hqh$p%j$L&-Ebi)tx4R2Z*8o`ec9fbMM82F(H0u!xPLX$KpoC_ zt8Sr~)>6ggmqe34If592i?s5_*5|m9+pRCw;W-r7NS7R1D6q}MxE0xE=G4n*{^7Ei?@lGFZp7o3rNi{tFx#KmCt$Ve%7t z*FsD0m(bc$BcJO{@ZrLny8Fe~(F?UWxA3Zk)LyCu_(F|wNgrOR1y9*poFz#>S}l$^ zN;Pa22*ew=0QLF@E%L0lZb9FZx}@e^uxQoQ55LG3-@C>BByNp_!Nxn6q{zssKl5OE|h5Pg@v7k==%&&N-rj(c^byAi5gNdPn9i`TwV z=#w|#z)yXtj8$a}NL!FY9;+mN{miExQK!L$8PefRRk@plQybLbby9FlObqLgR$dZD zZ}>(8)*86QkAT-cd&i+hj3Hdpgwl6*(gfINPuo~G!Eoo|hH;s&jGGw9@d_CVIeze` zEt9o2VB`BHw4?S*F=WfLJPpinTqq+;!uW<}$PW!oK05${_0H74gmpipxL*UZg%24& zi$NRXI6O}{4BIwno1oj*26Gc>1=j|16M8?_26Gb*=`(*DmqepacZt4M z%|)8o1^Rlo;ppzwyAxRnP4~(RboO3wyQH&Iy+%0ona)1G+X%63@~2uG+s*1o*y`wI zG=5jS>*K2%T<_Jxk&K}AM2xEIUbuJV6_X^a0qd&ZjsS3-ajyZ0dAwG-wr08$Jk@uiSJ>r)g5drB_!z9gNf;Ucytg2M00Hd|R+5q#wEz!s7I(Lq1k-(z z)*F$riPH*}o8-P$`$TRCu&V`Lv$z*n-tX12$pjDMl>p_v1vx8dAOQlp_BU6hBU#ei?74~QY(Oz$|T ztIqJ)od=OMB-49Ie1-;oGZAt_znP%5LE(&vVW9`&4fsNwUPr<=8>IPW!>^EXSsxto z+0Q}fzxF|bN1zuLUq6A8)Ng4Zwzt?*zbJ3%$YMa)-hyu)s&~4F zIWi?kWN*=m62u#l1nYfv_&=?fD-x+^I31Rr+D0EE*s2y3kknyvptZLkIY1lKC6(7c zQZyFnZ#?yU_UE9Q^t4O8oi=CqE=%SKl=c=RYiWIV`*XDS+dAcux~BP>h${x4fbNB0PF+Y3(CP}sX5 z)T=B$Zpa1?)l!ut?a`o(tYMANCh=~=w$_8kzl%cP-tX9&>}5HdZqmH>eq8vXE;jRY zCayHYG_YJbRuc6#P$O|>NHO7ywswXl@I`w#hbHhveL9U|vi3Y;Y#_Jy1~Ez2Wtyt3MC zkaIDHexc{ddQ~+&Xm%MVS2@1zL^UBA!K|ukK zcr;bmv^SxsVZXA%bKuuB|4*vj8`D13f=}d?B3R~~)D9tgeZ5Ay1hMQbkY6OGUJ@Zb z+*KF;h&W0AY-K@pwb&9d>?~r&CNQiPD|!c(7ND@+2dz=+b}fLgj@1UK%93n>!Mz34 zl8|KS-~@tui{|da*-3P8g4DV)AnyI@i?kN-)_FeS zu-9iIp`1F=BpD|XKR&rsyZ0~HoMq}K0Adq~RXPw3ZQ>5>Oqao#u;X>7u?` z&0Wigc?8v<@8Ehv31>Cz17(!8C2?88Gy3mj`hxuD`Yz#e$nv;8mk4J1AEdJU5kKmZ_zSfnjEvu0qnEii;}P- zz3?7>X|P=9nHN?qe*`x77A?_B6#~Om0nKVb$y@&}NdxD-MN<;m4Z1YzIe1rZmpDFP zu|5aK164HLFI+q9Q!TcH5lRb?SS{#)K9C>sHF^{|%9df`@{+z9&L#2*;k4DDN}7pG z5m2tnfz>l+pE_5_9Sl6FK)#x6v>Q{BPzn3gQ6<$RWuLm2JcmqMG%=tfsZR-OQj23q zM-q!NqlB;;)Iq;O?nvku<4=tgNuEx*`%}l&OcJ*$-`zT5yM&<|z|m(>nNm{dZV1;B zw&a(vT7$Tm;&{V5GDwp`cE7`9AH%eilNyT6a8d}SK7d9r6Xz-fQ?YW)Ndu@ETTGm* zhH5jM)L?C@v|aBdA)WoLCjQTAvmsRySFfxMfiC(#o6vbu;f`Q%QR3dVULc)!8y43z zIv?-1yw81Hz4CwFE3lWWbE;Df=RUK}$M>pf(ub$jvOVF$A%H_Fl_?wPZILi{+7Hys z)#9ud5`Bf>uL|j}j^aZ~gXwBPje7kShiQt)JsFu>gsVdurXH3TK}}PD+uj1_>q&@B zyjiffx1diTS^(V>o<`7n3-bL(BAXy@Z$XzvV#*!xM28~4+gtE?fU;8{Pkie4d+|-a z64zZCL060I$k_)h_ZH1dfmr*)FLiCI1r4d=X8=Il??qM!np;`+rS7#OYd0g2x)+%Q z^@9M~>dM-S66-3Bn(I0tmfycSqOT4Yrp~(hJe$IH!YFmxDN3qOas^K7jPBGUnENwz zg77`3QFEIhrK*Ya5+qVhwwVW(k7eD9@7MvMg+$umYsNwnXg3feP+$xxDR=jw9LMGj z#&|lE-Dc{Re*4DFa}uc|wqflg1w#E!)SW3$$w{QHP%EWR3T_O_X8KzjmXW`poQp9E zB9}f!O;Jp}_$i912sY)ze5?t9o8Ba$n8oJi z*Q_=hbR`tCvW8;jn=N&-sj8iu2^GCakb8F>iktiuKU+pY};_^9`t zP~0)x1A%>~jh37SPTB8&qCy5I-oq~qo%a?ESmlKk=`ftKw`e_mL}n+RgU@*#K^!ZQ z?*YF3UQN_eL|jrHsq?ozh!#z}b~t5kLA5s`TcwK=d{Mn+L%Kc z-c6KBUj@J$b4Wa!di!GziD&b%CVXr6CQ0bL+RRsUvAI#qYBLnG+Dz!Y+H6R4(Tmws z;ZusqhJs>VXv;%w@*TyD)j=XZKT#cYzkf+Fr#ka+QD=(z_})C|bK}Cqr*{9Z-4;OH z-`4KQX1|Y=0S|ySz#!$UN25q&pqM&bXocdsQZ@+K+D_{&L{xVIUTr5_RlUfz?N3Zx zuk}RMKug$jgUa@#SFx&5i6OtuT(mzmEEp~_a zbpx*IP9(O~+Cl)aKu*8FYHvZktCWg0K^S9vpsFqa8Zp&gG+3oBfK79_Mk1;6VRD=a zD+GddsF$PokrEFiu&gFASGD; zk(B&Yn+?Mfe`I0Z$YQnGP$}_8R@RWke6#r@oA7%|7THjc#S3kGkjp%i#ZxT#5rz2) zvUtCLNfxJC`EXHZviN73`Ovz1OETK8e|IkK-tPCIQBUi3EJZ0PaqKPjh-!<|BK1vb z8xAy(dX$UaJCIf_h?frqiPWNXQS4sd@f?s!wb<_lgb&R!Bv>o`8JtFxwM+lhw|BH3G@e!3Oy%t&tm-QI%eIrZmdR36M# zi|zVYdkZ0$x?WjHaTGyW-D`u6R2B>G_i8mI>zb^>D%AoG+$#{onSxcS1;T`Joq)o& zvZM?@iJtQnuk(4LQ>%`35)0P}mDZ={{JbFZ?(?JF+0))XVdzy5KS_cF=yi+^EAh4F zfpIm#?~rC!_In}srHn0Sk~*%LUL)L5m#ubP$}$}d(V&~d=s91>dXH8=pNGPG6ErxK zktB{l12w*T)AAj?Un{K1*`q#zW5Q{m2E9&wkoGvugueCS$IikCWJAJfNH!y5WKcF) zFs}1ECY-Rx$C?<*C5*B^V&ZqGce!GX`!fQQNj`#P{ zn#4(4+BC$iy)Za%Ewl~l_7>+La4m=f=&F!EZK)#>1ZVrb&P^g~dJ1(^3&hcTd`oL| z)M9ZlDgU6F|T2QH0(`?YTw}4VE195f0RxKzs ziqsk!se83H0b$&sk-BE+#%pN6HPsAUhjG%;sP{V#MH_ZG zOEaLFEb{IzBB6!VX2Yh$(O6hFM`N`aT3Bs{7FL^~h52T6G_Ei8=V==*(?Yi9wKcys zc>diV>+^}Mpu2nRxWM`E-7A9FPBzi6XT53!asBvyJvgf9XiTEoZq*bMw^86+?rNf! z&I=s}@g`)evu8o z)pInt&HbRoqz?~cUvszjZb1aMw)mhHu)UER_M=)*W^)pm!g%MO+yW1&_zD8cxls$g zHK^n&NB34ONT_TXe<5@&lSc6u-lDMA7k@gJ=4kGIiI>ry=iRc4l=+(<7lGD{2KvHk znH?e7QFfw|RrP5i!};lRfa_e|Fj--ZoTMp-jxraoeHIAPX8DaaT!&Vt<&-RdZERXnIuW_#8x;&x*Q*;(q);J5x%}?vi1~HeMh3h7@o;eHK zhJqDdYI}p(x&L7(hdH0fSYeQv{Jm4j1?QUGtk2DE){k#?b1wN^q0+cJp$>iAhh8^w zD`+6lH!UfFk-Z>{C{~tldFY?^y`X5dfAhr*K0vj%fTxXAZ9rJH*pa!|T~&N#1F&kr zfYkg3d{v7L+Uw;xfLFcqBlQg(K18|!7qqd`G`-AMC>Atfp)@+o8t|%(M2>q=15Ei} zZ?S8w&+9JWfU8<;s2nao4B&s-mVyRMwZaW>+gq?k&y}~fk|Be-R}1QuUdyj)fq!r> ze$F^P5X1f)y!g@8FP{ToxVHd?wX7oYzaPFDSaJ474_S>i&l@e;NwXSl5_p^kBohGF z@ujI~|0Ye&0;ub7A()iXN8M{&s`JdpXc=~?fj;WPV7ZS;VKN`Rx>Bji>VG+X)Io|d z`lx2^Yf8_OM3w{aX@X_*`Z|L%j@(YaXN z0?x&9v!PJTVl1tpk@?M$y#gaRaMr zLFsRQ=UMr+ShU7|BI6U;5E$E^V-GJ=#k?dIZ5Di(#A^p>b!DJ}-m|R8bm5e}MQh?M z3gz*O22R;q;Dsb7w{#uCFV%v8X1o#*SfA;I-cE_6kL|Tv$E67L8ay14=B^yqAg@mP zX(wDFQZ&BlZ3-pfIE(B8&^kLP^3?nk6(1jL?aiHg9(A-=yQI;?p$z zN<5Hy*ESmo(c^2lH;FN5d(y^7GyqGeV{yVp9jncTLJ4)OtPN@|dLWxvc}gAGP*BHT zJ#UOv@d16e0rXJ5#pS40{&@jZf$96*OBOlT^JabSd9(gAJ#PrmEtJ3P>FA5*xc3w1 zBVBt@&@rVh0)R!T3jeYngqdNH+AxB6WnIM!%=Q*g;qAcB2#Zt;S|0bYoXB|q+1`S@ z$HufDevxSaxn`lIneiO3NWCihn)g20Ot{DId?gelWsy3%i`QTFG+e@)49Il3@PT~{Z%7IhXWqg0F5T)w1hAhND@#AEua%8F#nVuc!1 zc@8jIabmw;;;cb6b+7f3@N&>uSKLwCH%5X6z0|qgi5gWd5@}Pl56vPAUByHcmUabl7b1L)Ujj156*5dcYGomRH-<(;oJ@k8gWnqx|yCehIA+fq#2EN z!_rxnmwcArXzReJKw1i85BWG2ZumCS@0-tLeFVq-zG0MxaDlfb&dAqU*I-)_>WSqM?qJdTt=Ps;UoV(h5W^@leKR>u3 z&PA5l)X7tp$%cYu{%U6vS?1jax;_S$srvqREHflM-tSa$%egK#>vI>I_2awPK$+I- zBM!a;ZTV0N-^NI{b$8eu;+qhhRRw+gf5S+(%JdVquFGaY+1>()?X~EMN9G2f>@7%_ zqCrXb=tPbLpX@Cd97=k+$2av#ss)mQ^?iW1YC*DT|Kd%(l4`L+e=#Yjw!4Mi)m~dT zq>boFQqbbv^2M&Rwrt0d?%txs#w8#Y=Kyq73!Kk&9SvSdU448l)wu(3$ljt!G?V$; z{jwBDwOEmvTdpNIq&_*#PhXw`P*#ieX&s+6_@u4|tx#`0sbi#D=Xr~;tFrP~Xl;|g z$LD~a0pU6eRH_X;oWQycDp~CEOT*qeMx>$+E)1&Ko8Y_DB9$Z{4b`+KLn~qUu1tKF zdi$#Gl<_;Lrrv(S0S)yC^bTY8277BjEajH^lubpp)x=7u^T@V612f)AHA$SHkVzZs zA!jqJBRgGx3{h;;EoVvGlX?+jnrG0K5J$aryT+uci~(6f9ChhW5y##naZgs84V)5J zWMSQ0k=15Hn8X!XSwj-@%@)OO0^%u2WJ5s`f3=^9B=K$oZFvGo6shvD7|;5C|B^4x z^`BXv`_HT&-+yMIT=oE2zyEg^BigE3ziH)tF^H`K`n*i#b2wN4mAwTtVkdJuI^lK?A zq81C1|69G+!!J@&P_{n@VQ*zasmoC%d*+lPIV}vT2QMN?+_H$z4&0L zkIUD)tsm9bPNK+wwNCDFFH9_{LI%Kft~6|(7g77rD^esuaDZON9?y7IH|--i41&W7 z`vafw^BG%BNTEJ5F&QwbgWDMG682``MsDwr(i*ymlCuDKd&yZ9-B*k4#e5OqmU z5ya|rv#A=1ws7PJSGyvyA7y+1%lY? zklzcFK1@*XC*JQ~^2532G3#^lnDyhE$M9iAmt;b6G*|$sSL-0wxYoPc>>I#Ef~e~F zyjtp>!4SmWf-Z&{K}`u_Z$UWeC?ENm%8s0)c?U&qG4&_*=b)T>BP1)0Ppbv*;kxb` zY*hgHjC6N$FYJe_7>3Z)2^o=kurh0I)kJD)(sH>-QI%e z9!&*HdI{$0x@wuZCH2F%*jqsTmO-mS$f8Qqkr}iLK`$@1FuBa1r&?Ye~>cpL>GquvR(WJfwEZ1SA2TxjRt$VHH10z%N z0p@j7c1;V%uNbFczt`!BeCp6{JG#`Mhq~mC7UE5vhB_`|Ic@_wH%XxCUw_3MCLQgsbg<4Q%_^~Hlq}70Cz#S(S|6w+5lp9g8*gJ z`L<;f$0RAV)+IdVfrevq&12-k66*Nai{N{=H%WYp`pk{VsG(OvCyNs{I{E)OJF_Im zaiv-Bs7#`$=`s61^E^-6xcfJ|AEe64aF0*`>U=0`Ya&Dv0G-a5ygO_VRM5%J+HmG2 zog59qOFGGchE9GLipg~Hd4Mi3iB6jE!PsZHZ02)NOCs0gVU7=ZnB)8MFfgn0{c_wk zV$+uqtV*pKk9sf1)3x+6YR~=Cani^IY>gIZ>76CfJJU5j#8nF5N|kNcwq;N{T3q=Q zmZFqQRQV{67Pm(TsPzW&g{~GCD%e|M1c|hBP+uI*k?$Ok)%&=g&zS~-t2&BC?*05g z9Cb#~F3xKU&gx2`aou|_A&b$1WXAhpN)~nhpkLm1Zvtf1;)o7S)qf|B;`OvkGp5YZ zAc$(gXI0-W2&9b`l$2g40dB~mTHp>V*wP&=| zJ?QQ792Uupx>yG-=B{h5bsY$Wl+;mY@*+|JBNCk3Gy3GS<$VxIHahpmf|MDAA-k$R zO75yCrPk>-wpawaaVF~A*&P;VF%+Y9smA&XLTxZcr^w<`47p%#gkv_5Qs@X?06 zB&Hl_i0OAxnoLZe2k2Ooh^aI@UkHSMj&C{Ynkvolp-OXnUzKL05s~Cb;QIM*QQB=f z2AcSmBWmEg>J41+OvDXRMa84VPM2IMB`%$w(E>N=T~g(8j2ozr7BtCJ8M@4GK>BEL zrQM4FLm44giwjge*kt|(>YIfM*_26?c2&E!KdBNb_0DgqE0oW{3qUPS6iBpR1MpZ| zkDFHKr>o*^pcaQsWSz@0Z`&mosX!@rW4QD>yt)4YTBI*RO&J|yu0+N%k~s`urOn(t^baz#A< zq2RH)>CURAUASX;1Lz*wO#P)KwYrJuOctN&BHE8XRQCj>i_xUWDM%2=<1;aV@anEO zY%`@vKH6=;r{5Qbg5*?EzaRdJ&j5o#K9yDoZ@e%{Le*gK3@C(v^NkQTqV|gsa8r<`g6MyVPAqrF~zO z1Awaq9?zL@x9xYfO#dMVn(GrnC0<`Y2ezvPgk+lH87&~gH>DS8)dqo86MA&@rS^ls zstKC)`5E~D-F28M9}OR=E!+p_9!+la1eI55;V~tMA5F;U9=)du=c{f`zVjy3)({Pi z0My*|8TYd!c)N~-U>^lF)nz5BVvm-a7^czmUs7`_2RqbMXCE1<37a)kqlc@yGYY4+ z!5U82(bLN>-(c;=DB%+YA%vU8%OA2DGDn5?8E&dTLA=No%;~J5+;|_!g%x=hFjZYW zE7mG54Bl!_rSk0JECza`o$l|pon%YdE%+w9RVR7g&dPvqCA%Xb zpK`eF>ifuLrgk{{?m7W$_W&Dn*T~WYg3Jz zbRYkA3&`%QBuVar4B4wXe$qMq>rV)+ANqbw|8tA&c*@@o@Kt+Qp}2jX1bo#@&a+ZP zxT~4azcu@d;j50D_o6%0$1imlv{p5;i_C>zsR^_;`TTP3fIZ}NR+|!5+n*#6#T{KR z=>%lg!TmE~^$k;q!+#i%;Z2;1u>ZkloUlbcy`dNMNfOg5zHIOXlbv=$F#NiHQyJ4L zf7k$w^Z})U1rs(jBLFz1wFYM=JlWYVYiPzd#nhGik2Lv3vW6iTuH53L475_;ry{S| zPz#@nGPA;!`yU6>;%5!0_ykb$R`_KTQspsFO~)MLk(r$)n93{{swqFa;>tCQdPy}$ z`}fLYx^bYPn%@P2GSz$@Ah|P9O=&bg_n3|g_T=XvD^1C1smHqqxb{1x3hVW80jcBAPxg`dwL z?E>#8Jhld7^!bp=#42|-;TSt?a`}8p>*hJC)3J=^+rBX2gW`@2)^NC26>J7&2-`VNc zZ6qnnALCngx~4(2Jv4~6pQAx^#Un~h{!V>6tnhSq4I;TM00{ZQmTLm#DqBI+z4s9T z>#8S#tY*(=LG@@snG}`t;i^jiXtbc#Ui)8W3z(`};Ofd84H&oI)kXoCn*ix*L7SVN zCBaVhZs9!fiOReRbk`ZZXj*Q5&jaq!;*75OB=QZ?>pGMF+P9$s=xt}rI&p&Y(Slb4 z%{!HRWWQ;&7`m3ycqrdFD6bY9ReCLr0`j8;uac8|k>qoL_-e63jT55-mE%emY#|uE$tqf;_`8x9?bVS%Mh!zA^O%5YHF_-73 z=`JJtHtMiRdPs44!#3XBMbOsZjFOZh&C(Ezojq*_058>hSAmAQN4(vlc5kRm4AAgq z7PVJ~VbqZ+=_$g$24WDy%wP<*2o_W=n(UV5O6!JH_!aZd8aAzz9vL{TlpaAs^|>&X z!ibl3&cV_ub*aGUG&fk&@v{uDx%q4MbiN$I)}X zB#s(?Be-3YX_J9O2TE-lylOfc+ zXWpoH1vTh{ZD6YkBiyzvGaJBFl_CzB=anr$+GsK2Ve; zD8g46&8n!$Esljp4V=|$zagpEvTtBkEl!Y`U{Mv}+l*e0^j7-%s|uOKVl?iYsDgvQ z@v8WIJstW!_~3E07@p-KrV9k?p1Dek`og&e0;>fcuvvRgvB1|r8`l{>jOW;BQ##?& z@I!rCF31G5=Ky`xg3p=kBZMCsww&*ocftvE_wq57NfnT+PhOcW2{P-t4U`CfMZ^~x zs7pdpQlTfV zw5m7@oKWXZH`)tMsB@P^fc#$IggTLDtDniYZ^#9Ww3bm-<&kYLBRWNx7Q(2zZC-K1 zhpx_8reN-TGxWlRuQr8a&ETt~oCaPil+(~_g>v$FJGdn%4PE}E=|kkx6x$2ZFdWO5NVk$%Z9Hefqi>^Rybwva=D z(939nU^hO|@U&<81ZYPKge-Sqr1>0RcC?@~-dVy}r7Kb`C}fFOl`TMQv%tUGk~#oe z?*p;xMhsk4i3F23Tj1!x^DMn{5cAN&WbbDPjfPz$R+f%R zea?z#v0>F`bMPOhFHQ}!)Thj7agM)!7+S6LQ8MU)Nv|-=cwvjo@?8@{ua&bHlof0< zUPQq*yTgV}1>3BxjctyG_9ffoK*Kg)sTFO{1Gk)*Das0oTz(#H$>o|f(e{ug+TNEY zdgj3gUr%a1&)t2wVaX^bv#WK%fVt5Erxp$EgGK4Qj20x_sOnJWaj;9Z7+Iv@naQjJ z_*KmYS_btNps!jSQ~@r#m-Z<$?1bXXEypy64<|;Enz*{X~)ia4pv%p{7Hy;AJ z<2h)?vP(OKGU%-q+ij9`4C_>j!|9rtI9RQFNd!_4Ls87W9D!=xOECPn`HCDySf?&D zxuFxMB&^d`8qwUT>r)qw`2F1VsV4KD_E1or)}6-1`taqdcV7uDH>qRex-6sNZ{Zcy zCr(|xFCyhStydMJEU2PkAl*c#1u6!DBc~%@JrquBi-dXcWTpudG zEjeA&McN*^NZb3mNR*^qwi{dmZZHxoT@DnFK)fwl&x_}?=%E5RRV|G>zSZyqWa5ZF zK&OuA{?#hvp`)t7aFsreg_tK$tQNdQqw6V?WRN&ofS7cJ4-aCt0G6W#ffQVG$@K&h z+l-tfSe$(PDI|n$&WE!qH;1-xNn}uF`^ns>M;O2=ZKk z(9vS#*9-f}PHg~MEhw7Ezl+Ntj)FucHS6QDMjI&cM4tr5q4b{|LHbMj8 zFFPW^VBHNz)ql;QWoW0at!c3ro=a$_E*14q*>wkE+wxpy-aZ@(IxDwnAqmKCQ(t&z z;g)gGC=Z%ZA_Fse1}`Wf`ApW_Qs+*ey($)Nct)niv?#;?jg}%)4rqwRV^IXyb#GaG zy~u+!IHR~bxzaq2ZFp9uR~mw?#JUZ_%2>C7)=I3~P-}(q8Emb{7#VJ@cq9$PRw$pL z*kVRz+!9Xt48Mx(%g)-6sUVDvHI0tsX)Fk1XKk?ZGW&9Lp)Uy|2O7foO8IDe9=O}p zay8PXKlv^{kGAx1P4Q@ZC?0L^D;`m5HzIal$t}5YQM`$r4iqD6JIQ9st?~@g0x5t- z_Ow6=MGJtA!vt)PI!9or4Z^c`wRBKW(+6!N5$P|1lW`C=I^+Pf7YOr<7FRk1-?9@G zsEnfs>Yt^;BeNNhGFlLJz7!lAtkh}0?UEUo86{Au7RMz1Vv7cFMvD_2tR|gB|Q4n+5Pb%@|45`gJ!}* zl$A4WOU(U$@JD?j=KeoJ!WCv`P`Jn+h_1mRSR11(M4O9yA81)bB#5epWXI0Lh~U5ApY za+TD|-7KiVnMSzdIS6l!jx6@GK&=jTD-h*lCz!?2aiL<6x!Z=!^27u_Yn(KzZpsCUoL;DEZbj`D$3&@<3hR~>dA z&rz4t=mg(x1v>+Xb?UCy+JmSQaVM=;C%B+}YI2f#uBx^L+NTq#>B&{jAYZr91WKcP zr66R`KHJ(rYN~?B2d>_}CVNydYQr=L&ooADpoRxgcHRhOxH}LMsJA~) zI)oGI9?7j9iwLxB7`?E3oG#&~)qrZWz_ zW{e!I#dN+OxTiXr$BAZIIzI+=#BrQrK}+ZK(9$`*ucbrME@ce2GZRRV?Shxr`$o#W zP$;pTdUo+^$_Ya1=IDbie5A@)6bs5}W_@~otLHdCBI)@SIE;Bof2ZR|_BNsIufM8P z+pY;>TdC^EC=iN!ZCz%6)GHb7M3Bk+`pdKPC$$(#lM>X;*ZyZ;f$NE;@7+26;ubU# z?Te=Vsun|({@e?D|4l8(cibk0S$}tn1VBOHcBQJ!s2@#T2R zbNz2UJ4sV`p^J`?@>^urN%dEuSNPwwPh<)2xv|gxd<~CM>0Q+{f21YR?k**vw7I*e zEMH;re?CRG<1EYZ7kO5TAO593)!JpVQeXL%Pm&dslp$%k<5d4!1ipXcTT)k|3Kkop z(Vw@duQnLFSA`qDpWI=Qg7^pD1{QTLXr{r~N_wH;7~f=7<4BonG{+L*b^2z|wPIq} zwZf(nc+GjGp;sn}1}}53<3DwsvJ25bW=`o0z5EydqbFQz?IRbFNn&@Hc9HGjpZdcF zG}*2A;>V37j{fD9Tk*t!h9tg{!NF{>$9t-98Nc^XwfPpq9Kba71t z=kyT4IlV7}g9ZeReR$K;De}1A==+@LV!W%-WKVhlX9@*fj286vp)*WNRzO$PFF0#S zXFdnu8ZCzUtOWb=YaOIj>5DtbUg4R~uXu1*&w->!RdH>jj(8oz-DcMtNUK)@I7c@? zmGo#9lv?z%IS@vj(JQhYtqT#*EYX*ZMIYsOkEPPWa6zb!P$Lj^ObvW=Vs($f&)wazy)=L zZQ4_!#J8Y$28VRrS#V$4jAg0h9JRLFpBKLvA{NCjhJfU#7y+rgmG=0}>zxe`7n!F% zPBrt?&20n^C@+|&udWys9!&$mMdlgLvQi5J^Nc11^VI2BVxHYE{!34|=ALY?5#||B zxX3)aYc%xA?#b?Ya8I^}VV=#o(Hnem*qG;Nm0mJW4m8a3DP*(TEpbiH17M*GFmfbO z&p^67#QkGVZcf|KUp)OBg&Q)d9+Ir5ffBb%YWyR2HBwuoK}!|x77Jv^P~;Ae zaMk!nEQa2z=+$NmsArsO@^~(iJeesXK&x6HCzZ1(si#_uW_+!8lP`X?IBYa^>HML< zZnPi=R9I+HRm1nbDwGWA%$DjxL)C(W*O)1lBiYcS(4tZJ?31%e6MUsG){N>LlscS(VAiXSGh!yq~y%+Yr`ME|K#k z4c%7q8sU|C`$crw0Bt3&(Gacdf@2tlSGM$7>g6pl$7r(Xv((3L?%d=1S@*z_&oY`6 z%u%=d5_9Z+5$5>rZSis3{i5MiPJ3*v4S@=l*qnQ?#P0Bek%gu#P?HNE$8BRoSK2S;-Qk#g#&eL#5I!zYF_3Nv%)j zl0awtT{`5F>eo6~0aCL-CS}G9)dDYee5F-2GIk#*R`!jrVTL+C$i?*)!7#&ULFSki zVpLg?wrcF4K57oY#&f_WCFQipWP};&Ub>%!+~?d!n4ww_G?!wDB3sgSI5kdr4FFzy z4o;Um3anKOphZ#NAQbpjizA|ng<`kuGF<+>#|~h&^&A|=eROa`U6Hdk=`K8hV0N0| z_*$#|jXHOmbY`s>C||rbkyct#5=AvRps1kk@7(RtCh4w`+&a3gGiIUcI=ZbhreA{N zOQ7&K>b;E55FZ3J)InR}A2mcH8%8-uLC_4+O3h`+pf0I4)*MTkb0GZ*nz}m;#umfd z@xoTpCi%pTCeDBiwN{F147LhdXd6PAW|4Hs=WBP3hE8k!#oJ#rTv~J}cGqZ#R8Ymn zdQipgFjTQSY;f{*Zlj8$xp+wxInYqWrx;B^6`u!av6iT!v@w5nYYeo?s3pPd&+#o+ zT+^vJJ#=bLKS!r#JD@|nQOt0Fp`FgDw))3qK11}!eJcal@#at8h>!QdI{2ZA5Re1d z^B+F6wW~j`waj1u&^T&z(YZvfQ1xgO3oi`wVJo;+G7@E zIVQpc4b)9`qS&h?@*r%q*jOm(IFvUspsN;#^Q629dKfK8=_)FsL0%nnyok@ds-d>^ z-!-w1Sx=3@Z8eXoCR#Z7po+RsoAd;&*d>^)i*TSbL(j;-ahp@6iUqp_+jYKnDFCb3 zWx&&iiWnc9@&>L$)4Kn~-%N^0=4X5e>+N5r#W;p^RMr%6V*|J0MJ&mo&dR3l$vPgb zD{P#OxzE)zwkZI>+;GSDbIA?$YPlo-9mA}Zz^;MTT0x9l?PA2)w)vFKK@g)!K@j8N zwdOkQFB(=YMx48AG?*&=EKVg2M2ft|`p1n7j`rRq8RS4i2A^6n z1sQxEI39BKi*}BG?4B=vlM@?1hqqjCO;+agkd-;TFDo-#W4xE>iwLTb>Ss?YZbNH_ zFU?d6R}W~ZZR@wQbUG=6%c>VZi;g}+4&;m$mv0xCRU2Z3B1Q{bh-enJM2QdXXaPl( zUXDf75sIi5qlUcYDo{kVKqNZT0%)O*qP0%+8fCHy#OmFiSlw{9+2IAk>WrS5(!|D~ zg1SAR`HMPVSMkf%<<~aFM{&B>0*3a)9cx;s4?|Yr%jz*UN2)&XqCQ6F zNZY4YCWdwFLMv>}EHi=KT;;{kuJY*>3{tm<$|+6(qB>=Bu7fR5 zdS49&2i$hLg%*RERH`ro2~zz_4^pYp2v_8w!_$q`BysA=j<(#Id&%vlEu1KYhI+Etm(p%8hc7Ue+y~(a08$@E#xygo@K4Oqg~h%lhg-veqjcB1(VbX zwTl4le0E@x(Zqkzux&A(-Tfl$Qde*~QG;s-_ zp-*Xgk=PqjEAJQ={Mq@U3Of};tcc?F@L zx`MRd?%Tx!($NA+beam+*j|F$_vJ5q?Cb6$>9lfh#z7lwPU^dIES@iZ-TKJ1=Pe2} z>nOVUQq&7=|GR zstls=qT;O72{%dV!UV>t6P~$X)+hA+tsNzcD7xVoB~Hon=w~q?TVc;cYIKr~a2N4& z7-uv&yKrI=-Zv~ut(=O&A_KEhUWYGf+s0G6Z1`0+LxNMrpIu4)H2hjg5HK)Xq11+K zD;cDGSo@Ri{%a?|@X-e&eM;IC z9QApCzRZcEN;CCmZf1ZA`}hNGKgYKubxrr?^w7OIy{~&iVc=oJYtW3w&$H98Cy`X` zz<vT3m5#w%$ZAUoD7M_chNzzRuO{EFP}RyFh%kz`NeBIe;H6 zXi2gcBn*t#b-tZ7W}9Xd#8->sT=+&T(0`w9z*4{;{HAiRzu2+()#`~cyj35_(hIYQy^1mSgOUPvy{Pf#b! zAiQq0qqfv3*e_I8cf?)KQe0R-+DCg~+E4g9u_*A-J;7PUCVO%d?Cn>%nW7}haF6N> zZFyhZz5yS6X443DzA!^R`k_}1><#Vil*+># z@5}QX58tjAIwW2nJ41 zdo}`|s|BS{eH|BYZg*Sx7r}F##miOrdj9SJ&eZ~DJk#f~wY`%2+0Hviue)J%jH-OD zy31~)8Ma?pV7pq-im_+)K)de!`%YDS_)Av>va7{e8y@Dp56-Iv%(P!yP(NB6N%2*I z@N`v!&8o@yIx_+F)#QX8L;Dnefck2J^EZE7jl_UBjJMX*OALdJCcu_9sV{OA4C#2@ zQzE^SUW2+Ja3ut%NMA@;M?(L^<85FEIh%UC4ebcVOLL8?Qp@0O^n%UI*bt7cL;5x- zOdznf#?wnNyh9U18B$GP6~3grlm{?-&kgZlDVhybINS~XMi<{1GXUQ}XMh-ZniL zM-G}fu79JWs2xqs<;>!@YC-ShlT=b<-t;@QfZ?8{DS74vzgG*|m}??Hw)lfvpvDs! zZoaBNs>SdkPuhR~$u0P5n|WVt)sDwWkE*};eV`f@zufbk|25q?Kpq~_ipR=T(a&=~ zWvcRb|6NNF$*lArX`Ru?3<#5bssD6~jn+r)wf`&cK7TtT4RX2L6JcUWj>+@$A3q0Y z$n*1Ge{!fbOOMz8d=P!m@(H1+_NBD$RTN%QLoqVBPcx2bkT%HByw(w7RxS2Wq%Pw5#r~y(zSrcf@DXRh4Oa3{U$yeUg zodXU3d@2nU{PTI>cuZAP;|E=X$oL&-`Z=hjp=-)R`$KtXe_weB8hSg@Xzxl-qZ3WL zy&~*aUza&Z_#jOZ8p{DV09@~WH1@1$XdDF%9cqD{vkAyn#fIxBRR8)bX=t<{Ura$h zUlr&bEqIgg`(gi88LVbOI%;1a1d!`F2+;SW5>Ss8tO5PoTjvy*ZWegR!(3HK0CrV( zZGxKT3PjiYxSmE7%~%5kORh z?n7-TzFYF0gY9a;CG~s_XjhBFT|x<&lY#8|6p?q{-#Ngp7N_LVa^45ds|gS=@r{D> z(PV^9g(BqH8eCOP_LDRjElhxYH9_O7cZv@V8%;(IrOa2s=nMhLgI5GB+6Wi~UXW{> z3BSW(b=Qm31RW=`Khppa4Pk;{;g5H#`+VWBy2DPAJYO{{Fi51Cg$h~~6drbK8%9Ll zs%rD=7aOeWa9Ty&4Lqa}Uw82%8W(>QHmw$CBftuag>S_K+LH!IEA!V9p zTqGnIGLkf_e?_i=K_hj2h5s3LtIyH+uqpVgKWzRT?k0wS6fjSDr$HcJe^V2~K>6$+U+`eJIz>~ZE}X3nVfkkb=3cVf(IdZPw;X8L?JJq1{kzQ3ma4Nj zlGtrijvVIRTs`GtIpXtsA4b5m_qD-xzyas3F1{Ca@Z*!abg1;JQ(U?-nbCHw^8I8ZY z(tE;Si{2A@i)C7?qiLFz9Qk+Ho4Jh#H#H2Knj{P>k_F(V@n>Ih)6sRm3PjJ(X@YC9#}O}Urx ztt)#ezfAye)r;5SOac!18DT9I3x4lOCWvS`Y%{Ueh}c^wv@I zcb_uSXn|XX4oc~F0dM`?+e}LcMyeM3=$iWVSG5bUIk_DrOSEc-Y8I&Z^u_;Rx~-H- zu;+OP(xU|`N*AGyd2K;-wcw@OcY*@YZO82rJj_=Go<|GZ{^v^`1)%FFG$i_*2+%!R z!0PUM{#^iFM|x^@+xGBO!qni6m&DYGX!y3mgP^Ut*(^bzpia>WJK&`CrHyB%~?>8J<5s)$c(05U<%zDUEz5B2;8 z29l!%jgk;NPrnNa$5D7MaNV{}EI>F~&`$p%S>*ZJL1eQy$onu~JNWDtLsG@Ur9iS? z`*oDlfBj|N1tP1(wn@oyJ_mrTvk2|#1E1h=v^e9b5oyTG$bnjuvET!W-I%CD^o9b0Dt$jQg5RVqa{VF|KOF9}YE~p+#_tR_v9o6-?bCPyFKybC# z4u$g;(2k=ZlvK0@R4SdG(SjP+O&aEu6jUuny=qI>0dU=~BwO?r&{4HObE>D(z<0DD z9qwE)bJG(497qPPb^jdIDOGSjD61~?Sp@=$P%5yl z>qb;|!ug=Aws2Ln8pPKry4{MxCRnPDB8_%JYz^ml^J$515&blvyFk-s49t*j)I!O$ z6yZ~Yx)Wd99&FEz{B0`tfvn9|my+BaJ647-@IdV9KoxpI$Q3(eJ-xq#S4%=_|#k{dwS?lR-s+Avrrg zkG2GKO)zSI2uAJi3r3MeOmo6eVR=u^&Uh0;JV<2!O2=okfZ>9&RgIIVE|Bj+CvL+$ z(AU)*q-92?jSx+>fMrI+E~D$wg4Bbf|B3kpZ?QudrJ0A97&?xPK#T?tqlN8vYll3jc+D?z^v^CRe8#; zN|0CAb}w@App&{#B2dO=t7M^kr8H_^_%^|5ogkX|R*IrN*@G&11^{$YA5ck9rgdA6 z7DFfX+0zRio@{4V&`F&7kRlAB$c@hG3(Zy%L(Yd9X(O1^b0R>ZF)wkdO8( zG;bTqT6PvR4gP32Fm>S>h^;si`9#*u!t(gV8*Ys!&e^`37>KPn6BCNforwlxE6mPt zY{dlr7^i5(GYEft*Ti7WnVn&nA2z@$cwxMrf){p&`K0X*8{QPWu(sCz`1@$0U-Ci@ zG`#SYh7-Rx@_g>8J^tfFuUjyE_VRCe;hJL8{!nb%-&brR`ivHQ=s#mO0mQ0!$Q|X% z_Vo?IMhiqfrR)5?QgRZD!;p2{-0us*iuM6S@^aX&%3`5~J_r#a`>+F3UHn1{U^Ck! zRHU~=tCGkz%bd$-@$g#o1tkD#w15?o85?mau{ZEkEtrnJ_y%;17F5fUtkAl?09Rf9 zF?{BJREtq1)t&=rjTXF0QbBGmc2^5p!OrC9^;skuJ}MZJTBwbp$$g*w36$zyx?aWC zl)ZMKt3MtR4$jO7z}0n@Zc$ZPGz`(!S!+j%@Hc$XmhDn7IpA3*p2kF($$`>w6j8(C zgnYy6prf|iufyUxb=IY)pnC>iE751eFFuN^i|j|kGuY3R$r+%L-dYkw-2+D5xY{fRYFm5G_8^G% zG^C67vlxo4P&Wvog2&vC2SJP`PQD<6-C;wkg7|gThC>DMYph4{cz4*4r3g`X)&?do z9fG6Zd`bK`&=9{@!btn`z&)4XXe0mU=J{IPp*mo zD$UEb@!!YfAygR>D#$bO0XTP54agE5O^m6t7W}VM75wlOneDsvH^%j3*?!u(tJ8!6_Bb*4)DF4I0}mD z3J?{X_C3;-L?*H`LM_y`T)&J{T`NUJjLvV^=% z%CzVAhXLFxniywcB|>bNwvsLgP1Gl4$&aWPHs^fM#CJ^$;|iMi?k^g;71S~QV&OCF z4jV`nKEuX(ly!H94QL9VVQpdbDsN*XYqWyW`o-1jpUiA%i{2bm=$2AS2 z{h>j$zpp_=1JMVmH#-8_B>sT6m*sT` zh)dqh3j|$^gYIZCND!~2i+X=I+QYY33!3Wv?fUL7Stcj245|O={MG*=R9(?@!cKL0PpJRXY(j(|tf4^(h*a^l22hs-uX0 z%PToq0IO<2tJpm6&_x|Zo`I2}+^t>r&p~oLhs)ep4%9JPT&VmP{*j3w)KS-#s@^z> zWt>^pc0Ap>8;UA!U8*y>Rk~De0($Fg(FnG5De5RbP$xf(Pe3PC$@Qr9c7{d>T4&YB zNKvp1b<}B{$CIIsI!TtbS%jAj+~9%JvS_HI&e*Zwmj-oL_YW4nKd7VL@LXcizz&d5 z7F$Q8_3CR6qwNXfQe_IGEwEk*kB$5F4B=M7%LZ{PfnUS86%zwFr(A|^EB;7>w}Lgs z$y@nFSYtFPSYvnCAggdVHrB)8*c~?9DIAWSwSmhkhvWH`+Rr%fnl*B?R{QyW;GSw? z9w+({X?|u+1Q(Y(9DfY&SmQX^g8I+-q5gAzU;T%d){dq;W%5YoQD1RQ-GAh+c=9%p zu*+}WU(?<)RBThWp~{t2_aCt!^h|MP>~~?V#NX-}7(b*r?49;I9Ynufelq|~RfsK@ zfxmH+teu=__6I!&m6)_G3iwy~8*Or^^z94E|D@-DZ z)&K1~>!Rs}nZ*6a_sMB!YkvJzK1R8ALZ%vK&6Obk({qq0uYK@}WWNuec)l8@L{YA5 zh?LBl3jLo?FrMBjJyCx6?gAtQ>-(hxjk;m08jWB1M&AoZqyZQoN7^%{2qgc;?@^^S zt4lEu8}jH?vZBn&8Z{J?l`hlRIZ<5tjMXSXE?tlzUz}n1#V2mnUFq(p@k13V8hy~3-WF-o|3COC_0jUnz z`3bJ-bAupxpN9Akx7aVj+Ov}qq&3M2T38l|i!y2mYzxcF4n*))cY`%ZE}3MsK%P`7 zTjqrzu&$JK)2>{OHt(7LWS66v93-z`EN*r=+MJ@tG>ul9$zgQE_a8POMKwi(!Uf}l zN!k;mjIRjZ8pNFz8Xg+P4Q1t79N9pQI$XV%GN)1QWku_RPi5UymY`U;{S5h5yom;V zE5$0XOnvT(f@nj#m0}e>knNFBYQ+5(wDMgOXk|26@zfdOtvMj&ECsE6_aY4J3R?N@ zFB;4hv@-spA2tBX4#;i-a6q<)p^(kF2Ziho8`QjXK#tDjC57ZbLm|Hl;$#Z>T@dGx zYF*AI;xO>#E2Y`k4ygAzyd{%sf;i`gAkO)HK^$`K&~e*vl-^FGRpMp=A&@rS74;G) z>1thiAfp9rmGYYKh-V9MR)sB2>OIK>2x=KE&~Lj5|Ea2_?HuQeL^?CI0c7>6hJ&NM z4=^@bTyeP3S-Nu;0k_EW!$-Nx=%=y)9T__lt&01uN{V4RH#`Vq;A*V|QtT z6?WE!7cW`iXiQ$RLJl;n@VgXEW`)lK#7@;o#pP%>|Ht;}SmEdJmKCn4(wrZvH0PhA zN`pos2{t$S4Bv2zT(XPN6f`z%u9053e15AEz#FtA|Iql~-P6|3eSiO%M9cBWoWa0tdss+40 zGLMoKMvKe0{YH98$8JGeUBL@l&Mkw6B1Q{>=Z9loeGEm^eRbC_fz0cnh-$IzQl6E+ zPe9*jF-YYkH37P)7Tm_HirR33c9MB#0L%K^9WQ$x1x2(ScMH^6q+^(WXX+~&{a5M{9*hQ$eqF4i=r4`MZ2kz zGujh0H8DtANmJxYSD&X$?sBgkF>z*O2)5EO(IBj#i+YVqbTOI~bkX*{{$vqyhc0%% zXt=c20lfW1C}eZO;aKbr8`3xdHB|A#1}85mWOs0^}161-R3MswG zpK^wQLf94s+CIm(9CA%t=DZJO!}I&vGUVf3c51099XUhwa%Q8p%-;&3Hb|p(ygyT) z5FXL&r{N1*Wdtr42|#5E2zW+|E3t1043(rYTHLeJvkLA&fXtH*W!5bsB$1TMg~0*B>Res7NegWNHd;U$H<511^bFFdD@c5}_YwlR z(Sn>Sx)ilE6U5bhwcU?+>m_N77UWW@U}foJR0|{@t3nyM5?B3=yemng&O83!xPNkNdyqz*_=|QJE{ddqa-GMkHi9Y60=(-K-Ot4j z4^WfdR=D2hjzyg#^NQA_(I&}Co=eiGcWiyKi%dm>Jw&EgBGtM>EFrLTF^NL|v!cn)&GE>eJ+=@4kD>w%{I zJ|-4Bl1>Uicigji7vw=hx3-0JoBv2t|x%Sy9Y^G3ur^8dWDVe$~W4ZjmwS z4qsx7(WGFEIy*~@vHL|sv$bk!nQy;F!?A)zcGm-oYz_|=*&R0IS-6`K%I=qSPlC}1Pid$QT%sImdtAa)Kcrysg_8Cw7SmJHur+!P)pw#LhmzCgjz-m-hb@Q0H&q)Fjc-eG z&8qqte-0+1M10Y!1$m`CSqGkV1>qO+7D*foni(xfCf0<(9AyT?b#`e#Q!-1P(M?Ln z>fSIurM2+4je1ceqkCUe2uiU?pcZ~)(i*f1h7Y$xkSRTBw`Nfg$ z_{F;(ys`U5cw>Foc;k>0FL@&e8s7NP119sv_XCt9C*G)S4yL^Eb9l=e*Sf;opIu?@ zU+)S-`1*h^((ZY@o%iEvepb*`?+W#~{N@HwRYiZNf?*cHjuv-{NQC9&bHE$59{}lW znQ!r-9!F7`h{SbxWJ|87+We=7gq1Qw18LRbj3+nTZJFw5SEZd#O5Uh3d=JJS5%9_Nefu(?s;g-mK?){9qP*7v|)7Vgw!=N zJY|;sy1I^8>#ChcMqW`2qw`K=dlG;K*>xIst+p>*oe)PgK`CHz7K1k4aT>EO z5(f?E_~$kHQeOHpu5!#1KgiBILG)b_}Tw0+q`5s##;L~$twZqQ!i)A<%*mA31r zCVUo)N&e9UXBz4s9UpT`LHSWs%+f3tX^y&u=RtWxH@<79PFjOEit_cZVDp4o>=DTK zYlybu`^6Wj;FGV!%X|#eR+115;#N!y<5sHD;ix)AQ)WJVn})q=lhXkPZ~dwXyfvB> zd6)HJ|t~NdJh|- z7H1kA(_(nIx=?4%k#xN)#0InX5s$&uRye5Ytu-lWf5R|v>3_e=U%4> z4jV1#*>IIc%9$;K>}qjrq8Xm=1DKB%1o&|X&p51}W50`-N@iSuyjt+)@AD4UND2FUAPdT2st>F-pFtGegP z5}jy)YT)G(uf443RtxjbmzkH*0whlI;dbZ1y;_X^^J#uScpY^`H6V=w)O8dM1oB*u z49hqSQLLLM^%hz{x*Jh*oiIdz+%}ggix)K7(3A%5NxVO|vGI+gIR*u%hPvv`vAV<} zThySA>MrT-IzktIVTN_kmOD$~qYU5B46rbLHZg!h4t2`!4dEc`Nx#(@vO(NP)GxWK zqJgA2l@4cvH4?F>bk}eV-)xcHYEXuF*|colu#9JQnjv9eMuO<{>J8ae+EGGZo zlGe5EIrnGxocq_i=bTR{4qq?Z<%Y+QIC)WT9`6ce9eu0i_YJ5XEs)xHT+4EyI10gw z8RY@gqXqJgkiD==GBp9yqs1Ncy5~{AxVB{=_oF9YptxE9ioHV@cZ6D?wH+<;Re|Vs z4holAr!j!878l|Ht-~91*ZFx!1xzi4t`@h)t=B*T+tq@8?ER+((5~xDLr@WBE_&&h z1<`{{Z2@!Lar>2TweVLtTh-!9T4}rEKz7~xkF(ruehvV3wYaMcd;Ww0=G6jGgMOVs z`Dih^A#2P%-T5H1YOq|BP^ws3LPn`X4fWDfr#q*=^2GGZ0^u!XqtMTDe5ZGt} zY)!KaAh7!Uu(#zUl+R*Nhjx*ACJW9Bfz{o8QAw!6#DEW`Hm$KY-TyN=<$IU@yB1L9)EBPixX$k^+&Zp83Z2Dp5ssH9J^?;=d1d&TO2p( zh*Fg<*<5Y3%WkjguYL~FnR~zS-+TpgUmAN3|DM*Iyq1=3{=+RU+VLoRJpY+?A_*2P z3I3N`jJ%T8;@@sTn4{N@_>VtD8~u{nPnZ9?1w5j^4=AlY(CF^=%201Vxyi<-Y`agO zw00J8^Wf8JAP6N> zk$}R_Z74Vx@GL{cU~uQcgm4sG@h>`KcVahkD@D4A0U?XG;H#DOre#1uvkm;9!&3%r z=(p0J-r$dwn0_)C{yoqimcJrV!T>O(A{Xr15HO`D6lXCAgevQW<;pyGudx;L5NG!` zyw_<^rqc=Y=G@pY?RML3HmYl%Ake@BbR3;1v*W3%w*Mof@h*hE==)qQ#IinK-a`0ceK^ zt|e~7{4#?LM+@d>t!0{D*>JRKL&fz0RNU7!}%$D|h|uL8B$H(?Z++wvw*i(|j^ z?0^@6T0E|juaKE4?*TiwS|ndNb;Sffu=V4toVsSRX?}Guy3*#O8m_P^)UNb?cqpxQhggBms zzM1+(UGUC?h9)~zaAKoBpm z1h%UD3PZu6Z=n3Ha_RaO8Qtv*4s5$ZJ5UsS-mni2EDuq2`38QYl0-;R;R=NV8zyTs zzA!QPyHOPCl+Yc|hJQGSm3q~T*dQVCJ3kAISSMMLzfz|#2;^xkNWY<8;aE4s!#g~4 z!oERyb>b~?BJD!I}GL3S=8^SvG3eFoG>p_e0;m|vo9&{kk~IN zF9#aR`>JWu_R%!yl4`>^@-@o)IliU5Yh9DJXV;|d>s^yZcftKU5-P{PWYDH0Te&R~ z#P*^j3tW#k4+W*PM7MqBmX6$!Yj z1)l-&+Vh74*d8sY*1b*Ijsop!LC~SUTd1vCocT+43z)}IyuELiyvx9E9d)}%j$WQc zz+5e8WZUlmz&%>vXhDX*NT#(>RKFFuv^K~x&+{}4zpb8~z63>*0I03QMhn|aXhG^Y z>_DrLr-;! zpyh1e^v>@LyGHszCV>!AT_d7ea}TYWTu0jlKf7TRRB?!G6&zI8ey%EJz(l2l^0p#< zH=$JSD(bw=VCqU60UOTZBTi)g1i;7pAV-Nh z|9}$t9N>GjxZxt1@Ot1~m!H&(=q}A{26T@WqwkSM856Mq+@l4)y+gW6Wnu-=tHm7& z;Be<9BUOvbSwtqX1vsy}gfgrM!8vmin2#3wH|Y@dtRc78Iw-G?%8(knt%@z3JB!us&CS+ta5lkXVv6fjWSprx>3ayLt1rt>!bo5 zL$dtjt_;c^-r%z!H-=?w0%a5hxiMrT(MTy&VPZH3JxC-ZcWJUkwSajc?8OJS?gL%Z zv0Q!@*sLz9YHL&`d~)l$98(Tv$Vb&x;p#N7gWDBiVuo)B+$hf~YLyJ&aIC9IA*Eml zS1p%QGlRI5Y*NUq&V4~e4b|{5O`V+vYh@!=12X11SDP7hk=L$&g=Cpw*Ftly;WRb4 zOHYQ^Zy9!7T~C60$t7R5XYF2inB2tq;dkPqItAP48c@%iGm3%$V z^p*VB&wd6iU0v%BwLSYoZC~#Xb*Jo<5HBo*C_0Kvn>{zs)!24n$capn>%jPELBhnLfKzO=Ow|P)Cbn z+(hIanbLyOI#Ij6rz-7Lu^_LPp0Jf`H2yB6ba;=&n5`xS+ zD|5+H_@++Frm?vqCThqu%K!DHQT24P85{n?tkG|S&cz@@BNA%UThR#!6jS%3O+71| zWmauN&Ye~UTu60I`IjLVbqkg1s;!TD7>hXQ8=TURppwM$1<7L!sa9m947OI7k>S=# z+foCr6){&su?1%IW-zv*JY_hxVq!qHCebQuw_;+rwkF&9)w7H=)wuC;BdPYVf!9kf z=;#Sh(n=0AwDMIWsqOv1BPXLu0|^)R$Lu|B-*U*cwo%)C^cda#FKwexypLMw<{t#9 z<4sVNcb0g0>GF&g5FJ=&>xsin5G{tH$2GpFvOfw4SBw229<0n$L2&K8aZmaO#3R17?7Cmkpy^AHz;$^{@wmFYr_C;~t`?A& zytW{@jzR&q&$j@`b;pf_aD8&J2UPbDCFQ*ZFs|#Y3S5sOZVp$~h1LeERgxnxuIqM| zJnt7CP+ho-`Q$Q*9)KtPN9QFxa8)(QF;0&*8v^1LQ%YRWTRx+8lC89;NX;`0B$Fxm zqH?b(+v>+u)X7i~-d%hG81RuwIE`W(@;$ukeG$}!xyCtyv`w9Fe01wZEF5cwd_-KP z+sF@nTttfI({=cov`Yby|H^7~>FfLA+#?At_B2i(=E z8!__T<_o%MgHHG3Zg>o~Y8MJ zr|yQ6`c<=+6j;`k!a*N7X|@=tp|(`y-s%K7D+9jOo zp-7;v&7v;auny^zOt}o*$et|SpSp(AGLYf^w8yV>f5tH@e#(Sl#*nyp=V5S4eVEK8 zoWrqihG;7uL^x$U%L>~wOj|KAP;)wGXy%6vx(cosZ=v9d&EXL!?+zQ-6kM^hHV}E~ zl^n|bC0FD?!xdjOliJ=7JdCDrHQL(XeMkM+ipfp+IlQHcYrUklXD_Mk>%F9)iu?6I z3FCsq4>d!#TrL#v3JSuTEj(VOn=)DuPSYa0?C=6WrMUvgPSvozn1D(iN!|7cBrU%Y&i?Zf)8cw4rWbRV^sC$>bR%)u)SZfW9aPAXN)K8Zu!9 zJ9X5F0`B&Dfm7QJ;!__V7dZh_cLQ$tK7m_@;rQjvn48HBCqMnd{@e@w-2-VDT6viSJK)j2BC6b-jl_?-dQN*o$W zXsb1K%|Quuik2v0G+7~Q24strFrLLJm_b-U|2k{vUw7D$sGxt1^`L*<-L;qg&WZK>jJaVd|HbHsro<`lC-&u%KueD^_o-LWSueW3ZIw)4& zZ`=KZi-TsOSqW5oLZHLZ%Q}Lk)I40gHU+e_+$l{B&ugmDvGJsM9j43* zs@kB_4S}2=7m~|$;&_tqRSG0C5)f6}KHO=D5^gjHj{($Z0mnO}he~E_;AynrQ~iF+ zoC`$N))1^`Up@n%ss(PssRmNCKzzqUQ`qyo9qQlT_h5Q-3twev}i}nnx@Wrp1@U0t7oJ|?DEpo%|7Y)b?ZrE8HL=~>V&f1X3 z=^Nazu^tJF-C;wMf*aP>#tnyU&y`9cZZ* zI6Qi;16W3j(T++=Ch}E*m9m{t{(oe)3;)wm^p?sVMi5a)ohf<`ucv%=K+;x9{ckyR z2>;WSx~WGx>!kpjx>C4Fd;c5!FIw<0%_6OUtFF{-rX|j|xULkfM|&S15Ns>8)ipD= zQnPUP5PsK1P-pCL;5y9$v2_(pWv3`8f&b~GQZ*Ol7b`PCbi zLFT5y*al|AZwr!WV78*#!l$jyiV1<&H8XmP^W;5)w=#JT#-|%6d(51@8ltV_@)eLK z=P5$9hG{Fgd?{S4d+=V1KBf&g}h4WkMI*jXF;6a=ub z9t5yEY;aN#z}i{~;Qp#n&^Yj#0CM!%D9BLaXONZmLg{($Qg7-sKF_Im(Luk;gIv_;*J%h9 z*V5wF9e^^KoR`**crd^JrKqrvrxi2rtJGyZa>8uE#oP$Qw z7XjkR0Voz%)c7TzS%A{@DY04?!T||X#5)rT} z{C_s+cI0XMZvvNFnF}aCMHYiDM?p@0^4Yb5g_7mjhMo8PHf$uHbeeMa3%}#Jnu~!I zk=f+n$(+w-Y%bekP)5U;?7;htZ!S|@E=+!_COp*2v{>$3CT%;X2*nzLtyB^J!MB7_ zJ{~wvwfm#ruT6ZBo%bhSUo*+dCvOSG<|cn}fSR+dglTgV1GP-~^yQ?lx;KNXOz&Fj zf9V~%^}qYW|LG4K>|}b^T^jVRJ^Z9nL48}Ng_7JC)<*A!PI=|u+d0tCyN~ubncjW0 z$2p}sk@17y+v6Dj0Ifccwrp;#8P5J}hO>XY84h%V?5&vVmgro(iGw_5=_im~Ja9X; zplxGBrYhDe7ErhA-S7fQa`ufU&L;K1ywCqO?H z{zuR=-fZTtfS+32Dz$l7oQ|TsNng~lVs&Y?CH?3yZ$uN+wN)Ff+&ydW&1ZCD;&qedL_c2yD}Bgk0i@%#9HoZ~ zsJ3aGYUKpL9G}@k?pZFrD8hi=>9m;aVi8?7^g_wG;Ij}q+nS}eq70%4BXP?d#kH+s zB(Mnl8l0_E;2NHd#`f+y^9wUTThK^;Geld-=u426J%>&s4dB*%dWI591W$owiQq+( zg5Z7i7Y*GC($}5PaH}AFowXs7TO0foq_6q$LHfGGh9}vl_rlsp-w^CBNgoFq()ZCI zCX>F81~I2p@UdG%g|UeZR)Mn5K`r-N>k6|!yTa^W?+Qce44qHz_n}mGCA7KOWdffn z>rQ)-sYbA}8U2Y>35ZxwG@@u-snM7PW!#ZBWeY$wUe##DrmxmQ z6HzQkLA;1$VD=8e5_K;@5#tN7WQl4)x1mV2vIUG$dkTyU(4s?(jiTXUzFwH2KF6EV zwrl~ys>S76NKV2AZ70tD7Q~b? zV4Icwo-deIhCX+rKcruAfX%@Ghj8cu1JtR=S6n#wY+j~4l?~9ygH4Po%gNXsR|1O$ zVnqbnKy`M*0ez?}4Wq&qk*}vYPg+`$0m4%`U zd;H*sDxXh-mXaT;Ec$4ztYNd%HBf$+cnMizt-}p|7|(%=j>?s=Uo&?DTB8L`zF}gC zD*&%Libi;S6clug7UN6#(wEc13H2Ns;ymHnD^)_X80@{BQJ_`lXY?lz=O{U0v>3g5 zBxx$IGoHg}0gKdJ$$TGh!f1ih^SESQ1(e$UA;YwtA9!H2K&F@f(asOxsuma82DVHd zyw$x=sZ8&%g&*3}av6Hbw)a6@-9Hc1Im2HjPk^qiZ7QwL-a=g|RCwYmt&S7hBJ5gW zP}Kdi^D+R?xgPXT zcb9e_tU8kzpgr4x%f;lg7^1yWhVh3q-J<*c4AD>?osvI;v=t8{d{Os75%4w?TPymo zhr>t=kCSss!?CrTKidUM1To%kK@bfF^uo)WKe>p)Kls&OG{h==hTSa~E)`_3u^wcw zI}91@4jZZzWU#h2GC0JsOESoTh75i*M9F0Eqali?%zD zSk*f}(}PXvL=v+W3mR~1OT0W+xDRzbPB&b2KmIBO8C&xQGIuTAf-1&y43!#@Nvvv! z&4TxTrnykX_`AroDKXC4Fi=I^)jQ?diN-+>brcLe4FX?vId2l+KIP0m*r84}%r?Gj zGIaul_3_%xX;#IOb*ibPG3rsc5_J|?{*n;toZOGX6$o_OQ=y)tA{=Y@NmxTO;ff^2 z0HN=}WGf=6gULEC!$ny*5A_}`!d{pdoI&*#DuQK>&}*nFf^Cdt2Npg%gRrvQnt@j3 z>MVlC_UtCkS!4(5CYZYdA&1e#>4t&SicTLyu=_=Wq_ski_7@F|{1yy(3WC>Nu7OQK z<~nPGk%G)M)`QG-haq#_VMBz1%+=OL=7zv@N#;1vkhzaGB$>>;AAm@x?+!2$?egT= z`#joGx3xYb`?C+p{`Ed21d%R}BjmlMUUqsD-=HS>B?om=h4>9J*is&_E?Q6>aS>hA z?5BgeMGNG??oxqKdiF$1oG1|y&`#t<&M*pAXwvd}JO~(npXZ*zEqUQ{SS?PcMk{O{LG^w4B72_i-dydC_H8Ew<`W?G|DB{Li_GFp(Ns4?}@+ZQd6 zm>{&=&Mv5_7AJ9r4)01*h_>B*Q|<6F8Y~Yr?GuK$hy5-PtGk;^@BM1(Ihz$#Xf7*!ZKKKNXa8iX zhPO{ANm~?ECI)zvi%gpW8sg!Vt5XH_!J2ok;{#RqLGBz_6o2UA6)rXdHz=Sv%qmrA zL!LQT^8Ne;(2F43>nqzRbNcp;7H1Jvzcag~}Xkd3j!>ED=cGl3q z?l6fb&EY`|XlUR^kC03Q-w%+XooJwG**_nPA5T-_ zg`dM)UbxmHWZy=Ay8Y`tLg0lrS_R+FcghdYGv1Q&->!FsIA9s^jiZodv5 z2aoeDhFUVy1rwvihE~rd^0BfWBwCOz#4=aeeY$?vt6Y0taey&eP#SyCBKyZ*=1N3$ zqXj(ga`b|IK&4s?H)H#?!3VSM*4r%e0Joi5oT+80c%H4)p1Bg#P8WwP;P@`(XOpa- zSdf@?Oqwc#w>s@u%w2Uhi)STQCF#>iK^AlpE(WXZc~PQNFt~wNp;~TKSqYISb)ap+ z_JT}8^K_2p{gR=1I!A+I7eQT}m7^4LvHdiBy8cTBQb0wD^%Ybuo_tN~*(Pf#jBC&6 zlnfe(UFdiTBQ*KiN-3Hld-|T1z>90+sz1GBk!`Yt4}T zaY{SHUeq*0wkfi8D2k<_hW5}-&tf3ALSLbf@hpWW@rxHRXl3(@BX6)fY*1Cu%G%m! z3vAZ3RP5FIT@N6qXmtUZcRTeQrOQ!A-5$dU z|KqQsrD}oxQ6~35w(cJ~`}Ld=#Ma$#(lXl2WZ|W{wtJysL#q*ghErRNq8wQl6dj}Z zfMr+cC_vHm*^v+nfBEW1HHw0yyC?hebLvT=OOu?&Rt-8i0!(H%o1G^zy>Xgj6F(2N#;G&IM_H8k^Bc-EY?}l)r zt)yH^F-Hb*#OaG!ftl(GSMB+rrusmcgb-8bjMtEilz8Q4g)5gY?06OutEMJUQ=M)5 zMkpk~`Nq~~r5FPj)k!Jp*dd=frl9l*x^$Bc&$=fP7 zmFoRY`T0+VWD8__I055Xevn&ZuR|8QWUm}(*y~3(l+0e=5768vb}0MT+o3$jCnB=FjZVe%EknXBu~)q-Mr0NSkjGKD$SzXUQkF?ai~F}5 z4V+u{0*ptCjRbb_qGT2Zibo47e(q8@lbv6HxLQ!m6Y(pvVlZ4SP=AZNJu^KZTrEb< zV*5P+p6i{{{v&e3(s`;De4NB!SH5$wUDxAIufdj)0rb)0##=@bPs=iCwV*0LI#SC# zN8MM5F89SQpuAcjdeb-h2IQj!VtjnVRXLA33IXsu3ZU0f^j*mu8K{q=&ZC`l|IGr@ zs|9-A=@P+q9dy|z%9(?us>zA^we-ViU&}D+zEmiuW~RE!MPQSYd)B8a>IPx>jExUxFS}vb!__hY3n$(1R(;xxqZK^e(5=kOHEg>UWoCXQ z25u{jcM{Z1Rh|ZoHFUHaPE#~!tf6CKzIHEz#kN&5*oI8%Xl6xwjqM84J^U-4Tmln;u%$tDuXhAaLRwU>F z^KsPp8kBxxnOy<-YJp5r-{B6#R|`s2`@lAUuNKHBMljCvgDXPsb{K>Quk^Os{Lq`N z3jFJ+%Y9Oc4#4Y5QIOInk%IPW!N)+KDgfB41$hy@nkHDUJ8mbFqGjqpy;@vp&fR`- zfb?o{I@NMNaTLH!E=>EoK)qUAuUp>lpu3Jb&GbSCk&Px$YSKm8OBtkAP41_AzLw!) z)nS)?%b$V6t*XOlFDb9>%&G%&zAOGbcF8c$BJFR6Vnm*3dfoeb4aPRIgj}<~Ag{LX zwa#VH^$xaZA)5fdr3YAtE657xsfJX+_3@M=zBe5 z_=ao`lG25Pa29tF!(`*-Q&XT^upqxM*=WMsA~hlKvm~I?)b1*)*N~3YE6A^b+lq9Q zp&JkKGz;0_4d3;YVjI4(63Xmq|7@Jrls{4MWkb7?FB{e^@a4f|?J1b~z6X<4bei+! zjC)hQ?9}nQCs7@;$EyxBwL) zEp(tco*ih8uXmt<$lj4GL8OrIA3OPxbSveqNT^En17`6nUiKmRjI^bFq;n-AE2G$m zH_6b<7QfNoy^RLIdDL%p6c52o3aK)k`<+`*fz&%MfA1Ew@ac)#AKchC@ZUTJJ3 z6(`Bv;+UEFjQ^?U7~8V&Q2xtDT{Is#U;DrPp?IY3HFoX)af>^

V?5!^T%epVFIuv*Mq-$>k(MvBib`!c9)}1L)84OEn>iFKIp% z-!c>%TCtM^;zDJ@XzUK??aKf~^CNUI5&;X7dx);pdKyBpS==-#yuC|q~>RKqA zxCU!DgfGCF^LxX!;SetF%diZGus~TQq55ZER*i){O24bzBx(Mt$57O^8JyANqsUb- z1RH|-Lh(wrYV&Q(v$*Qyvc#LKg z@9n<{@~5oO;O*)y?U^I@q8ikZ<&wuFY?~JI;c1lxe&uOBhG2W;X&na|e)_6~4rYV6 zo-e72>UpM5etMdxyM7)oA&hho8Is_LUkLy8pA~CH&Q&Sn0+!l0m=7$8@ zwIv9JPcsosvEXBD+xj>?z#h*ra7N0POX3?UDH+7_aBpFNH7wJ3++04rJ9v zX_zx}3Q%1wPEs#FKF@7yf$-6Sj4E1UhbOi2x|+r1O8L}}zmmDea{$9nC2qSC*s6{q zOS&(42j11Z3N($0Plj9p*ASQlNSZp*wXK5>P6d1rvCm)`oX{rPFgT( z!!tN(F~}f{2TvWVd}nz0-!Kd@<~+s_jFudEjA7Q*rCbXRX_&R3_k}0b@GGbLk_2F5 zvO9Tj(YWJYa?zpdUUE?mG+gvmXP@K47wQeExg6E(e=eInSwQ6Hpq7BHb@n-)oqdk4 zclKe25ZWG6hCnaj=Z8@aFj_krJZK@^k{=-2IxXC#FeXzn5Ly)Xzfov>zZnw-lWh>P z1BXp2knF#7rx^YaiyPj~iTFLptcywQeJnN4O9L=R3z*t%K)!7fuvkao?3NPtWC0ZGBXT?-MV!!ml+d5D`v@eC7O0~VcMpI0T?;Pj4k)w& zz-3)?vM45AIB;1_PTJX~@UMZ(x=(KM`BHhSfN9+Vd}mBZqQT^NVH94tfRoP;e;iaZ z_Gy>}Wx5rPJHshh(v-d#P_20J47P|c=}WxuR~d*Qo~+rE1ye9cqmO;zEHe}vt+-~4 z2_~rF#X_yR6Drs434H`IW5Hmd~hW#cT!FbvA6 zAgd=Csf$*MG#IEp1a>RjzMB}dy(FYVTfQWu9B2sXs~$qfM-QP(s;1&d=r2AG-hU2n zsp(o%q2t+9==ge5A^O6cDQdYPXh|*{AegdH<*x7rJS51T-}OL#oQKi1sL+`Q55TMhzEIS;OWmou4`Z$Tdah zUP()%1z`;e1;aCwCmA%47SPgd(g_JLj}~ZuqM6l_L6ALKfLid!_NoAOeFPq4WVGi1 z<<)|@n(2$C$E@rsX`Aq*uJG(A1J>h}koBQiXxRk>s@sgJMLq|ht}{BElsZ32gv##r zkh-gaBtl+&MkS6|xUxWa-QsgE4+yV&{65uq2jO*sEv>PLn}YDV%T?L8aty&_bx|b0 z_gTf|WC|wht5PY+`_?WPqJi4r#QB#D)JVfDsFxwxph)^c%)e{EMy9P=6izC`Hry0y zQWSeuI0^ zi{;^_(PX7qK7rVjcnxl<4@|xnzc7Qb6(v_byA_q}_6z+h1G1I+`UGTl79Lr1cnzwm z*f%#ZAX_W^m$SU2szW)yq^cZfsOqZ@N5@Bpql>iy0#`+&e_k>5eSFJR*E$>>&kje& z*E<}+Rq?8zet9}5?jS6iWb);<5Hz`p3RTHf<3ymWL^)RYE0a!j>QGhKBP}vY3fkLv zD!rU!gZ4h?s`1X`T($8-Y0_o`aF2sXf*7tYb1DMoIsyA8amUPVLGx%q;OUqMMFHl~ zg0lO|r4OJ2?a^YSmkovIdeHJt|SbqSD7==mO) zud|CzZEpeO>+G_E(IN*WL42Lvv*b$_h3){p&hA+yr?T8Cc&~E>vxpB?W}(2nZP#f) z6S$8icXDcEt_m+0aIdpva;pUi1@86ct=DC77Q@#SIU{(hPFPjK0#l8HRwy1{<9fq$ z2Nx_>_lFV5f)yId5y92JqB_MeujFD-THO=*XPuiQ)SH_a2HySRv$yKaKybyxP;iAb zB^aDjGZ?OJqdCtifY3iRe3Ie6j%#9)dDigFe$~XVa7E43z|hr94f(R#zFeapHcZP> zsh#z3qs9qvVN(MpKWreBWl>-JxYaQYN&b>wa-iXtubM6$A5E98xsFL&TRb;zSI6`@ zyrq|GU6_t%7pCLuU6@dGqA=xhr?d9?_8|K@HPGaKe>iw?g>I5cmB}LD8!bkL)};6x z?3K0&qxSW7GiC?c+Mo;i0p`{KUwsgCC28%a(@`T5-qglsLD%@Bk8em4#Q0Vvyl+!L zH|$t)Q`RuWb3DZljnJeXnR1RN8u!XvAZt7a8VI|z`OCSH0Bf`$;-)$<`P%|qRSR+e zd#5h2s*lYbPjl;V1y$`qXck( z@oO;Greri}Hzz67(Pm*}+l0TIaR(afCew7q5utK7AqX8!5OAClR8U**R})7o|0UE> z@1=4fLKfp7)UEWd$TfpH>Wa=g2^o5oPB_D>72;>;l`fub<9x%gY()tk>ZtQLCqf2p zD?N>%j=B(2@6n)+Up0X`MiVC<24;TPkjoDnO!;BMBtL8bD|-Z}u!2GP%H%XG~Kjgn_0I)IvXV>sWWR5z0;FfCf__})ZeF_Q%#O{dMeO6F+; z(V_)jTAG0;5(0?DQ6tkvl9ux1f@{$NFCfjLS~>*OMT-Twc+gKRu6q$p1_a|Md=+TV zraJ@+b=3VtLr$R~xwu>{&fAt(1eDZOrv-dZZ(wG+hNQVB4g`GavXOvMG(oa8Ap5mH zH)Kp_lwOx5|I$&2phXT-6tV!hHofN}s}jnkqp~WZS6>+Z5d={7Scu#}z;y1ci+d3p zHaHr)+1)J8I1P`8a2Anb7?|F$x_>KFoR_2q!dA11EdvFX^6BEku^wKA(e(nE1p6Fs1;Y4q19TeOPSSz&BaMC*j#tm z;K;3EbDg!Jj`K0tTw^_gz};cP6#sGOPp?FThV*;M<~Y!>xmP`jj`stPoQ5bG^B-*P z$5UnzaG>mSe9Pw6S`r=mXmxpfy(JOevo9NT*(5-)0MhQJFHPbWK0K$ z)s>>rQBS%+U0o?YH=;!u#?`s9R_8Srv_%*KBhJ#mXnS0YIb@F=xUF+a6ZQC45W9h0 z;^WVk?<_3<=%}3;jHc>tZWAeO9k{46<4~u?;?9MMf!V9><~A!9-Yuw-;ThS+>TfJE z_zc}vB(kA~dc$*`$H%Ig6q$F1X#4vM@y9+WGVc8T-l>||*HP@incwYUnl}Ij> zj^iKSP$}vKxWUP2!IwEoFaZe4AZ)atw&5gYiP`4_Xhw@65hv|#Q+T3j~?+m=CCdo+*|tup&`Mt4iMPjrN@XPr@ewLLK+6cR0XhiWEP zrfYz!u7TFW7quTyLR$mVYpy7vS|D#ZrGz@8CQDUPLR*7;uR~HY4nkj1DMsP>0>X6- z%x_mXwP1w02w6YQ=^aq7GbHVt%7PLYq2BOgstC>Jt?leWC)@Dt@vTU!GfX2rcS_ax zy0uA}nm`C`qfNbd5JKBGQxgL^D#1(VVEow?mz-hSV)CA?Xu5chStoRxQ#FIP6_*@@ zFkaY-34}136ojxlY%o^%06S{~D7S_XcGi52c84K^&EY`^yTgVi1tILL4JBR@!l7wi z5<(6%gz%#!j_onf?4u>l$u5`65%u&$06&km1aPeZ&hc!3b9}u44p~=Jd;XBt$no2F z4=Bj&m(t@GN1aAi&OP%y8-oz>mZfie&;!kyl3@0iv&-9m?!$FoDr7OuAJ-}x18tPmN2Xdy>^ z*bn_W4Wd(b)G1EYvHqjO&1B2*+w`Nnr=zSx@~EXNtrKRsC7dfe`9(uK1VyE`gy((J}h3J||kOGE};3 z7XPLeq+}}R%2em?K8q*G=__gx{^7HDDlX)oI*3-p(rLZ)mD!YRgMFlksSUamB6t7M zbK{oL!hpvqe>dff9~w^|BPy$sme{a%%D$pQCxsnqd}?WhQ#R^L=B~sVIan)LQX&8EmZt zCKGPWIo+T9Ugoh(L#{P~rpT@@=QqQzOwd|uLngO27|H~#{qcY4{A7aGS{uS-g4S8% z_-YRuOgMitfbhdVfA!;9%J3M{(Us$C9B2sIM~9M3&^|hpoD7_}9MfBW?%mg+(C@=r zezw-26wrbP`_2>Avo&!3NSs?Ih>oj7> zsR-4kkd`I#60C|K%;Y+XJ#*rl&9v;1Q^nB0Y@Il(H7MO|Y3AguU+_RkT|5iSLJ3>p z7KGyIOpb4rT=tNrB@cqe#b1JSuh2LJ0aFw%ve*p3h*&JdIsFzF;+%HF^V(bkw3Vbb zL$np{2&>b#={$yMn6{P&XG=Nfjxar4{kaLBs`4%}?g;z)>Mt6g6^yVuA&js)Y`Ek< zZje+k!sf>ZBkT^t2)o0EE(Ig3t&I^5x#yA*a-d;^AALeHBmC$Sa!U0Ok3#V}^$Gbt zsO5oceL^13J|T~<_X$BDCfG9wKKD~ZXullu{xwl7@`p}mM&m}U_%F-8ev>(ncF%5iL%K#dMq@QL! zicNj{I+4KxOrynZlnL~T#e5P+3%Dj6EWCvIs(?~G$Cw^|VltuP`&ccml)I+8g$(K} z@;>9WSJ`l4F)G`n6H*mO6$?7K((XE3d!}|EXS}M*NJZ>*jR8)5Y6PGAc6N}#XhEsQ z;Tkz=UQu9E_YZ>3J=F#^)neZz(JikPKpHK`1KflLXA5vtEoh&Y{m+m=eUC3nAM zTa{q5-LbR`;RQz8aVn4#ZcFXfRe#$aq9&d4^9uY*Cg&fMwC52?5p^(qc9+^TuJA1hB8<(Tv)sHO|eri3v?%VX1Os;kIxIa33++XkP z!8aidO>wuKPTQ6A^m7jS>Rs)3sjtjGs1Qq)3O^Hw4X;=BK7qEX`G4kuTE7y+QgzaY zqDnYN_FaLs(c<<6z7apuGXVs6)q=(+(G^vaOtqjyBRU*%Bp29K3p%OANK+-FVir`H zM3zu`9CfYepqh^hu~ZrP(=NV}e7B&kJv9|FDT!sYfQlZkJ$VIlbuV4-;-t#w0EX3q zmLBF{OY$mWG4wM~4*&SeI~H#IMw2C9UUNS7U-&N>yf#1KNA zM5~&fLISzAk)`=xk?jaM)TKs_CjJKI;5)#q3&(d@v?%oU_`=tfBY!xW)E-E^cl0w$ zr=!lI1yi17_(?l(rKW{D5I(5;Nd<8#M;#FrU6-N$SOlbPcN9#`0PM5gZ*sasc1rCP z+Z~!JdZ-f%^~udyn86kzHp;1Z*aaVqXIUX`&_i9wqJSAb80V~&dids68dNYf11qOF z1WN3QPnnuQQ^EaSy)6T!g8RLCM8l@Si5QPqaKCQYAg17cjrHJu-7ws*8+Nkwi3Hz$ zh%%SlkAa5!J^No|?)U6}vE?!m5g$+f!S~UY>8-W9xIfxm++S~ZL9lsrAN}TB+pHiK zXjBDtJXn1QlketeL3HAJ>HRH$X0!l9Xm$}^wak`aebIuz657wL4-(d=g6r257Rwol zYC*%Yc#cY$FP&qe5C`ki`yixT2A*}+0S8v=j{-h*MbR^!squ*gZSAj@o~r|%`kXH( z@#vIHFIpTqhlJ`%rWY-SpXr>LFzile?Kte(-2kZSuBM2mB6>RMh%Cy?4X9h@D7$j} zO6Ss&XfdM56W<%GPnVrUhj>w?OHh|x<#LLum=Sl@6@6^WA}7&Su?hkM+B$11WT=O) zPxm-I9^+qG?rU52q(RNX#L#TGI!mHwH=kILb3;Qg97}8`pJbp#IJjW1hEq3$pyaP8 z6~^&rJ7UV(AbPqb<{6C!RrL5sWXQQ8L{FdmT*}XYYbB$R$cCQ9{D1{%HRxJNPlOA` zv#jJz!UdyA!3FghRHCcSJr)5#nnSK^%2eUCZU>YqUCK>t&;)SN-w;GWY!b8NOw$7R&z_;>+{NTL$9*M9%NG2 zWX`4eEVh-OGWLXIb1n_(jAvPCc$TI>x$f@4G zS%4bmQ5%HyRTIOxg0RLTeo9z}m~}~58E6RWv-e0QtX~JVEf?E}Z1zIX`+a^(Sl615 z+#k(H?yol=0lop_+wJ{-ZY6hDnfW8N+Ev|6oJFx94Lz!w>o|+bkXhmzkRC0F&|jtP zM<#b5dbA*R1{)9WO(rq`x>`WV<%grHyYX{KNI9<$;I8*^J4})U!FIJEpd5bzO935S z-JO=pZBhWp9xWiLhe;YNBsE%$x*Jh5%pVQFyzUG#;Np*eUMoOfE%tj6YX;}zEU4^0 zarOf9YH`G(@_*`nze9f8RRq}80^O&Iqw1t1;r{lpAh}vVgZp?tKprjlK2t}0!Q}vQ z-DMAPg~H{jI}0ay{3$AEE!eGF>!hD$MMfqZRri(_ffcy`gRtsWp#f#Qup&+mdsP#o zqJ;_URW}a3(kEwuz1l94!n`V@)1VH|fV6L_9M*<)WJrp#Xk}txhi^+g&P5g}TvqqU zcx#*$8^8hW1$8z|L;6Fnw;m=r?89MP9=+8P>py zN0JX~&_(X9^133q)UXRlST!j!A)u)G1{!%R@(&Eja41ZD>QGdDH?rWXJIE8T%}Ko> z8=tQ!Cu49@edVSsesEI7HKVb-3`X)sB4)d)nUd2JPE0=KsY7GC0`Ub**E{{Wf~!-CysRvK`RZJCnJ0x}Nq6l|4x@`>tZ} z_$K4i%pM(3Jz7w#E6IujqRqt&s7DK8{Fg)jiwvem3)%xC2^s$KIe_$NK`tmxz}5mp zSBvvOZX|m%0d%#1AonHjpu3%8lah=~s)2g7IG!i1T|jzWE9$m-!VA!=1x}Ve-Vf@l z1$|oj>`{IK^qGTiF$S1vIKKdDu_NAI`B>wu@xdfc&U{>c0@Q+6q1RaA7eFo8to?rF z2SDG6E1Iblm(^LLs%pk%)dHdV{u2wtj~29@K25HD_*>QFtRhs|A^pY=fST}nn&;Rs z;Ef*uH9?r6PfHn5{%A6~IY}K(?TL*hs8Yy>*>IZ|ZrNx8MNp4v;h{DNJfj97o3JoR z7&z^t_+}sotB{Z7Pl&DVm%9qS7bM+aaLC8bbOsCu*<-3JTAamz5F#Q`osnki&&80C zPA{xA+23y z_T3K_Y*3rYbwWLp9Lw_m51JQ6vp>sA9TMmz?PZ{$y`Qy(xj);&?71dM+6E++`###T z+_kna_eWcp`|E9Cwrz+Bp&I`F?&rKz?R{`K)FMdQc!6W~)j^-!_1}hPNstP2v zINjtcw#**T1`9Oq>m7kWx>}s6s%ftZL|2O&uEX$}<*NeF&0+`!eEenR2A-S6b=q0R zEG`$c!ax2pF#+1`&hh2879hJ?khU9{ZRV2zyFNkEq5E9|uB*j`+W2;@fOWOlukrzu zR~L+r7O3|hj{P$S@YTY8k;@DNwV(*6=k&n6zEM=9=W7SybrwPi@fqY`1pu!WsL%9F zda&GR0%^I+n^&`3H9J>&B>+g@U^0VW%xygmAYCBGMfQRMNJFJYzRg! z{!|dbAZ)~$)Js_MRC}w{!CO#J12LTc=10wEfwkJBDA=$8*Gh9JL$Q@Eng(MFJ<8>;#^-Mp_3({RZ0|L_0)AAa}O|MsuH{>y*;w|_nU=}-UZ*ZMI(be}pf%rV@cRmY&g?x>__gO>Y zt9Q1l1u0+%prw8CN1w$e>9$L+sA-v(#}_rj2l zsQjop3$z%S@X2+mv-ru=PT&>sRFk3jAV2a2!!qPT@}fx}ffW7>O?;@BXL|S=x+{FD23aGAZR#!cXFMmE23jd&v*2-t zT7-2tt)iBDH4U~PnA27QzfPDi&003#swEnJo8H`lb{lN1Bpn-u@s*~o&mtA!4|*wh zOViHxyaGeCC2y%O;OhxP`_`~^N5El7d5oTq#=TJRk}_xj#ls^@sT`T5#`^LShmJ}CB2^aTXh zSw~d9TBkDr9xZUM98bMt8~j#_GfD;NN`P#gwZj+MbpXHBVx#kEd+mUEw4j&4CcmVa zlYr&AXSRc!A~Oe|T=$Gd3JM1jNUnS49{Z?1!j#TC;HJ81$l;DZG6m}c$<@TPF$&%R zut$?4zC+I!@C$>dstH;L@xls1^gZ8#r>nS53!?aaH#v+XO}`ccGe|%cur>h06L=7M zQCu-R)i$2`R0|Wnv32Je5*I;Y1Gpq3|A2WnIBc&lc0+dLZtiCPgNuP#sqYyJ6 z7tX4{LPpDk8uFd3CLchdW>SSWd`%GnBh}HfdpEkcW#y z@1@9$HOwO^Z^|tV^bq{gd&$AAh2a$!t4B5y|n4S7NL$-xdv%ygnaqT2k zUaLc{uHvD}YgLm^DeF+XFDWYn4Q2hL*%3Who|M(=ug1vVeWR@Ajs#QRM_Yor)a8g{ zJqYUSU5>^#B!xd8c0VxgGSlBb%u-767+S4Y293H%l+6-W|cN-U5cIoi@%_@yz7)0KKCHS#ZbU z*Z%lR%nT@x7JTJji%KHUTW3)!RkG4JYZM{~d(3`A7^-Y^{G3C0$HEE#w$9q9c53em zywSwx4-(?hZvU=2pFn9MN1hg&Jxgc zxDUwEP{(9Je_*Kk9Oc`z%p){tA4^=1gS!m1M7%_RV!uKKj5?zcAszZF5QgoH)0lwsea zY|H(NhIT78{|0v}Iasml__dXU-I zyDT9^b)nhK$jL-NX(VeY-2?LVwx~tBIwu6=<0KN_RYs^N!%ByxkUOT5X8vlIu^&zn z8cxpEblJC)Ju;}QcAr2YHg46T>dJ3)r{{f3$iQ}O4{}uZY*BTk7J$b-Y3~WpYp0LP zO+xuOz6;Jr3nX)H%K8!&1?Hm#0qKjdl9J-8MWJ5?tm_lNog0@k(>y?4*OOik(IUr> zf&6FzT@}gwg06!2x}M}wSDaRt@SuIobJ`!A))qwlwD}xxT79oZGNDmFAl)|D)H?>G z>;28s;ed3#+gqwqcS;JR>+KFleZgCG(x|KPNifwoiTKUbJ!G)8k^pBQh67N4whD#? zQ`Lnm++k2tdvOvqb&>)#wXHS1UxPAKzout_sOp9B3MY+x-&}TBwxd%Fn5pi^xk!HC~TvNf}1@u;EcsqWbLM(z6rR@fn?DprMnWv|k#>dj#)~Uh4GqOs`~= zzBd?X>Eu%TCC>ezldrd5A{u|Y4BzOPQ25YLHOd7pYts!HHT4aNfMsnHL65%}9>`g7 zptAH@7~VJ>wkdk=lVE@5w*rW5(hflmt}8nzC~Wf&XZk<|2+)fFg5!Mh-%uD0v-7<{ zCw2XXgnB^OOvAwAXn{9cf7i-f(rAHalq&Vse+?Q(3(}u7q?+U6fN`{dPNE6co&zja z3!Z5{F7T_n1wtQxfO0?;^tBzS-5qn-6Yz}|_*K%~+CBn%b$w{h)YDv`SML@rwk*N# zlXiJdMNl3>84pW1Pk)|r^#Sx!x6h`Y#ljZ}OzZy9z<(vR33TfMq3IxhnG^!&x3` zKEGvZOYM_5)`O|N-aZLG2%r5U$MOuJ!TV<4OMsd-Cm8jT0ShxX0pg+sV0%2rkW&7& z2Jm$0h)N$$b|E01O`==M7HLv){rN#5N#R#3lQ!$Zuzl3-4|GkwFrZFvl#A)*B|*Aq zLGtuA=|u(5MGI;ZRM(}XZP9|dNYzoy;bovNS`3jrN%YTdThK6C4BB?iR{|*Ntdpu) zWs(X`>N7wmY)ad7MTv9ApTaWG9W6#UOuW6>*9gGs`rsn3{D6A1H+Ar4uO7&&7C7v( zy1h;sC2~SUazGcRruV1am8$NMz_e|Esn|NuZMR#{F1VRas+tu62 zS#PlU3WC;IL(sZm!;gZXb=C$GZVf@}tPKsEV%eMT!}gXJ1g$yu zs70=aji3$X_mZG7&=9mwx)71j_H?D?IvCNIpNhJVBYlnJwghdd3lYb95VY635D|bN z9E&i=*Z&+SMP~K3HUxsA!kqCOU`@sQ&-*F<0G3IHb_N_BG3u9nYBrzpLh1XGn3~P! zS6=`sr5?ul$ii!JaE_&dWzm8rg*504XUG;nS+qEPxg&QIEHa4&-J%7BE2M`8i;}5D z3lfnb;WGzYv_M)y$#`Z|z@l0lP7<;!UWtrk*db zTTOEQxkpgJbA7h+2r3*-Z+=dkz z)Eh3csi1JtWQ8d~;a)X?!bKD30S0kCYCV$Zps$sGw$@wV_Kv%{ptt z4YxMLD5zO?a07;dnswGtvu1es&bncHl?!UtS=%f6VQtiG=%bg^jDd!lebR4dKRo;G z9CN)#rT6~vf~N}Q_vtM&TWYt%MLn3=>+N=6X8ULWP1@YPpDz2&Jc0mLyeo<=5IjHI z&k+z6C(-ERKIz*6LfK)DNBH3fOl3M|^Kbh#_QbQz?Vt&bIUEcf{sOtLC2&ab0$83T(lT;Y$6~H?&-EY-G>wP+h0k?>}l`f ze9GhsCt9?i8HaGhqLT`Msdr99wRed@$MnumCm{wohYeWOJ3klQ1p!yRSxc?Y9wTBE zdb2st4b0WM%SVBI+3l!2Z?2*QiuHCxt^VQrbt(lstBLlItlVrsb~IT@#D{&U2_(n8 zVPLsl$-D;#bj$9yq+9wdjBe$^!#BgSMY^Sr)97VQx9onW?k|J16@~`g(#^Z%F^eVz z1?z?lu-w|v$%hS!d>9JWo!dahtqoBM3f3Lmu%e(~owY%NTN@k{6s$YAz4uO{>>c-E zd!Gvm)|`8I$Le9DU_;Nlq+kp*6zthb#`3PflV>ZLL-vk|a(H4~@1rf_TIw9bH9Q#C z>z!jp4$?K$fTqqd7?(}DTrTk^GBYllf5nGl z><~<{NwBiZ=QIvL@+&2uEeMs_ML@FR{44qHw@8_?pAV81Er4%CRc1b~XaUK(Nm^Oy z^HNQF)553%u1ekTl2py{MxEgVkiN zEdnm<-Kz9-Ma>?#7z77gvN%)5AzG+s8JdMf$wHj8Sh5gJ5{W7V)(pgu7E~5hb%nCBsSsP5bHDs={HfVBd$XsV_pi_{!&f37GAajlNC|2!;4IupB1_mF) zM&^cCbxGzJXvo~NK}sfb&ju+T6XbG47JDHV?R|br@0MDoaP9}ad%a}}RRhC8wjU8O zxgfN6HD4JHHEk*|)Q!VSS>~c?=K^{>#b{PpHK0q!Po@6$r2+z*PtKA!I#RIH=9AHN zF@ysX^|CXAF*XS#Mhh~!cS)VfED1!67U!X#*vqj1h|%Ko5Ikz*mEfT&!|&(Oo7Juz z2vjln!6IjFv}ggE@8@2$8ctb!J~djg_q+@=)u(pQMrYX_ z2*B!7)Ar_rLFIU-J~civdUqf&tWOPL$SN^SADZb+mO3lCpejjIHJ^a|`7_8j_y%YKkTO4W6^Yww3bP#4FVuF9o2xxpCXV$)bJ49^xqcc>?DOU z8VpajiUn>90TKwGuF;%&8n~gcnR%qaSy?7w0JcIL4Z&6%lm=ld#L@6<#RN(hm$9I9 zad?GS@`2hNF=5r*y=h=o`0=_ELjAg7!<>Tpb=FY7W_W~ByJ5qR!jIQkJJX}Y82Fs}G5TmhlBnNvU^^uJk;j?d3r3$`U>^>Xq^0+5ddK|6*%msGY=^=8w%0q5 zTnTI4HyWc6$UGyhmb9MbrpQpgoN@-%4>)u1{-HB|zVx1=e^v`v(`D-$C;W?AARL4= zUf?R(($l^%(#E>Db1`}V4S zrsqJ=8*U#g@}2)&E$HX9iLbA!M6hRmxrys8?~-5YIUZfo*C_KOULl{Cqx}+|V{GC6A!yKt!*>d|(tP-HQnqxnZs;9=Ny|6+23MP03d8yfQJ z?qj(y@?2nj)rzrP9QaWK{3ST zKLA`)PakRJ_8SVss_Z|)cM%)%uPz9yqTSTjM#hjWfZJ$6w3ddvEms12qXktESFy-` zHlSB!`l*75Tp(W+$g39HS$}oYTEQ#rsx+Okl592$G-G-u3he4yZD&!FtvrnOJoXb_ z*N?wSm_#g)OR+AVMY9pHAiE0@yTYqzdkKbX%*S>g$g7P5*vk2O0b89#Yq?&L5dNrJ z|8mvPYQ-hhg51UaYY9Zw{Uahck9e<wD5$Dcq9ayDhL0z>-+13Gds4T=jc6gj2_bOoz?^|ts#?yfOm*nFW3 z#0pl~oDgqicRhnucGiYE1*@#Bja3fe=8{!1(6Gv9qmRrgpN&4YB$~2CiRh7M~mtIwJEWN!h|s>OELa%Lpp z8fW49ISKX2F@LyZw7@TU5gwe+0o+ClzWce`v>V`(I_s2=1kCCjYJU6HEFiBw&5fLp z@R!pk0p4gq&nYdI$y^Zjs4Gof`-E|U&$@`WtMm&g2q&1WCbW-2K`IT+&}6Cokh%^dfyD1AW7d?d8Gw;` zR5~8@1+#`6MF<@dsFzy=w+*Gr=3<6RE5U68rUCWxSCc?{yUnK3LN?Gb3+~s`H4Uc< z68P#x7%CMc@YN$4Iu)+Pc*I55Vl*j8;EP8b#IQNyAcozr0ZKs(YilEhLwUI*h72^s z@YzNq6T@d4jV+as>SkFC=vhg$jR_0zpz0TgMj|-AdUb1}}^jw=eX4h(E6Rs=!!P0Y6@jeZC+N zs}?5|gdT-Hk0s2OZE8Q{SOpsaMTiOx!S(9)_wHV32 zZR8uQRtuT}_L&GUN!=w<3XV=sk=|&}9I?^3b#uHICTUMleOa|1QXdEj5))bo$m

P*;D?9T|zQ5xvdQ9uje;w0~CTK6I!>;x=>QZXFr7GYt1Vr^x z`;Qf2aD%{+q#>-aNbfWZ98pj)DcqF?f_OL!k1XHDy7=>Aasxinag_2Fp?5<*vTG9C z^EkRe-%2wS!#+Cl>V*{nem;;LG<;e8!VLXN4h`?r&1yc}qHBo(-b!CML%bDttwG+3 zNy5Cjr_?}iMOl*XXI-(muhU>}rDGdBHlD?qs6pJy5e@GOZd;$wxb2XWF1alO4Yz&v z^vK-y+0$c7YB!rm)+Z|aKH5^*wGJNJql3rxdIygi5l=#s-$+Q#$W+<=BVNLm+u;#V z#rm5TB4lm{rbi3Dff3sY?{LX#qXoh;`>B_r0nwwy?F+R#5wObaOtrxK7k^x{j}de? z3%(6zo=>%)(5cre1l#S-QLkxP6wt1#OVv$ZLj$r$3%qN4k%bGG$5~|IR=#iWTW4*@ zYkr;}xbB$~g5Tk;GLHtpqXn75=rgtJ0Dh|l>A97IQ@8v5yv0=3Yyn`a#rY~V*ZHFX zyjBZ@sr$5F;94yX?2>ftAhd12lejo@Nc|0j*1bU^!Au4LYTXYcZ}g#O~;<5{4L1uHhN8fAgm-wOHE$7uSN#c>Uws8QGJEvU006a?MAHu8lT zL_yGttW`rOqH_f$H-Op@{miE`eBw8A%5@E(Ryqhcd$b|hUT;IP9mpMrfAEOT!}DcjO2D(~ z*WWZVp0_;dDvHHuI3FdeN0`fU5kTsAjz@WO|N9GUM~jh2C7rkOIY8}bftnwM4=rs5 zwAF%&_g?uB1Xl}u(WT>5XCV(10U(nx5ZtbW{wwXZ1K?_5_4@g$z;9hqgeNlv2f%d} zm(jbsL34e!SK`?1rv%Wh7DuA%Es+G-qXiCGMBBsquRy_CDA?u zP(E7F;`vCc#gD&|hpNR1e{6dWAYUyGvXzQ=jURw$0e3n`^WnTR1}9aM^XZ&vH^tyK z?MTH_d-a2q>XEl??_c~uN}~yWQ0?Sbgz9mfMw6>oeHU(AL%quvz91$98&ayT#(wkf zKqsFG_t;T!rx(Ro27E*JOU_dGx()f*hw{o+)&B;4)G29lXmJ+9KHP#AtzpmH8!oF) ze}wIH!}y9B5>jJ(n+R~d85E+YrDUW?YA`J1>1*9nVPe2YE_6YE4GULXPzZs=Qz$| z{%V0bQcul*YhNpAMVBcJXss4ILOU%f1-kVKj%>_ek@*nFZO{BRp+f+-?JESWs(SS} zi<;bUf@ zO~}617Kr&HeWZy-6NFc{SyjK`9+-r5NYB?2@Ez}yWR5pOz9Vs=f^HhxjfUr%8Jp>* z!QCjn7q(rvdJXS}Ueqj21cqw+VoGXZsA@u#C2qq25Sa5Jpw=Rei-xl&fHwuvazFSVonm0(;d(9w7tIW;Wb|F-*n23Np%@$sP41n zO{TifmN$E@d=mNh1*-c#zooisJ#V&0&ztS_o;OH*;78^2?{+$0ZbK3=vE6uExLvP@ z9Fhd~<1DxabDL;Hg8zDsEja>`PN!L* zXCGg@d{v--JO^1@6wb7q5Aauu)Abl3GrRo2etjM{ZTOR2mq5Q-(DSFST?6^;nOD3L zu-939p+x8|8E&)y>mObJauvPKI^yqccO2-h76%ess>A@@?^nE~Rpq?SI%!pV>4a4a zq|q|V1jFMjNM_3Ov~>W&)#AcBWcCMa>oh)V^KA{rs?+ve3Y+qM4aTY_h*sq7HCSq# zc5}_2f=j|!qY1hA>M$$v9AK=`gm8?iF%*=~po`qSV=>F%iWGh=D=XMDB-M6k`qg*- z1xeLS!Y4*%oCZ>O;O;DUd`Z!#{LNsBJlByMRCrG9>6^zdn;13`W7i;i z?K#!QDuoL7u}IFj5<1OOjt#2tqfWI8;HCP&MBNU_w|rrIjvElvepFpn#kNnFsG1<> zXLP^drTR{qv$jYEfS2l%P^F1G@1&DV!!(?%O6{_z^UXkwa6~%nAfmdCCRJ8DS#^o> z4Gtozb8-__yTRdejV7NG(IH1)5>W;kBKle5pY7TBXU~;Z*2iLOgHG7#eR|77*E#`h zk4`|_>z#lu(4gxXwskw*D8`}Vb>gAgMS}*3eGL`B9xeF!p!O)d5&7p2ke8MLe5Z{z z-L4NWlkS90Br~(5p>|lbeB7%HsO#0XOL=ar}>{PvUkW<^VDqmXo@F1sZ0@I8yU%{0i zr@n5KFl+=}XJ;`G8xiw5;BVV=x~`B@+j+xz?}X5BjE-&7w9o`(RYg_8E{%Fr zj3|NExL)T#uu*-ECWTN4VHseJ3>;-NB^%X8uNfJYMuWlEh9`Z-=Mt6;ty{lggEI1r zGiBpbSzlDsNhl~Aj!=D3Gyi(S52|ZD*L{U=>cSPA)UXTLi517E?&VxvHwdQf_e??! zo)#n;2Eo*|m8bgnWbh0Ob^o!&=VKDpL< zXnV9C+Wvo958>|*-{`rQH@ElEAP)MeEqO}SQ0>`(=1X5$1Qbi70c!FO8_K2M{xY?+ z`TVjUE&Tu(wn^0O%a65p^OpGlGKJ4!&t<*}9>+6~+H{n#Whv|wEvPXd6QK>jg3Zx_ z^7y+%r%GZOEf7bdAyRt|a5`E*8S!w3J1}&#aMJN?y)>%}T%R?vhi*AaK|l4& zk??cFVda{bzh6#+J!^ZEcVN-D$$o&2#L|g zUcVQNQ~p}-_Du86imJ+C@e5lRDDkS_>S0HL$wWK-clJ_$x!iJX_V0ZXsVaq9l)YKT zByzy}TJAWgkY24O3l#xQKfihH@%$&lA0At?fKeSxP3P<6kBVEWUtoz z_6^k5nk30tR!j`z*3?a3K8rz~i!>R$WmPC83d+E6leWVKQJ>Pup^aa;M0W-nI{8^M zCCmoTq((QMOr^ZS)pWr0SPS*;2*0mxP>3WYL6c4!jd~&Y@e04rR9gqJ=o$hl{ z!Rcs$y60W%2@;h8rlSQ!eUl8GOz=Qy?X`i*M1NIacC?_d;3g&RIg$>7YxfOWPGu)2 zpslmE!=7m%I2~t=PO6iRj=;38;sI(L{&FVUuY65TAx#Cu&b$ne)-~BQt3SIIf8%$1 zx@2++D#yd(BcDa|pqhHKCLEb_y1-=J0Owpy@dv-XV?GY3tB=o`5ET>z^B3`LJP=4;v`?u%VF;8}#_F;fxO(sQ9oUhz}cf z_^<(m4;w1@umOS(8x}alviIJH?H%`Fd!K#SUgeKrl}Xx%2z|-G7-$&SXN`wA-d6^e z%5NTLvNq}FsQ^pfHSt^8wbpHDe{>t#U+*?Fifa*VIa6Mam?6r8p6V#Kf(z|H$krx- zUn1|%q&tNY0bdg9viaxJ$+f0{E1!g4?sI1!SY`8%Fv;+Vo_%`OBY_&8fV-8{rksH? zA+kPOPZ}^4&p|n-yMjA;ou(8Gf08#bvmWt|gLpWh_+}j?fzM*W~W9NtD$} z^NZx}viS()NtU?h1Ild<9S{j3RfQ&EF+_1CA2_o%@GD*uiT+pd9+h!b?GQ4^aTQmM zvxvdahbPSf;NmPCXZc8=oOY-<^QAsxT55qdcTr7ZH?C#ZMKvdgs5cHPkJnLpwDk5Y zpqJ?wxT%+3l>~sEc7G!c-!>=YN+0Z0?E_fVM|QQiS&A$|uI%w?ns^bg1by||M*!Lr z%D~__Y4nMbzrqU!F6+Z7!e-DZz1)Iw!Jq8<7DtBy|5+z z6ipWSQ#A3PR=83(3|H!g4QmRn)LFxox?zKof-7~_aHVb-uG9@1G89~?v$l8Mt?g|u zxKej;d#MYq)L0L$)D7Ev>SV~?$$~4@2RE)XB)&_o#6ZK9K5GrLKU>2bQ>_Fei7T~% z!T0$sS6XWpvp<@}?5{VAAw6fmpKk}$tkJ(XUoPg(0G;%<9_o8BJx56g&=lv7yfe}J z&cCD}lbzwXOXrVNJK^(bW+EzZi8k5s$+VN&uSA>TeAphUhE-fpJ2D(MX&P6ipsA+) zcHDd26~6wo6~H-Z_1e<{xX``e6I9n~vmE-$kELrxJ-Gag79|yO4zy5a3|(evJ~rwDey0I!n!NuSf<1v-Rzm_ssyu^_J#tD5#d+Q_kw~pd`#oufE7= zH!wr}S^o;sXLz=f|80P_7(LXBUy2?^lSNn6t0qvgXyU*BP_k~=0L-lot$Y|t)*YM= zyKdM(#}5uA>#Pk<3QE>lL&>^fC|Ngb5a8#w_r0KG&A|sH>xS+1E+|=NZLjTzwNbJm zTwPK!1{zBCSwofm*-+(}Q~y;)`|I2O@ouGBfcNPwBU|gIvOoH%?63DzA!c~F;f>m0 z6t_FtvpHxe!r!E@xP%Izr9BRiq=<2gl7#s|=`b83cA13Pe3YCe&pVMYo4?aV%6_Hz zJk-lRYa5On&;y>L1-gG)dYLUitY|^d5H-Yrwq?*TTJU%dB4b(x4Wq>_QF_Dk-eS-yz5T4QfLyfAnNu%#R6Oho^&;eFPc*Hn`_c&c z>BY~fm*Lb(_|kxCF$+ugyj@r>y?cXiMU#SWb;IzjZWzAR4a2v(VFMq(G((z#Z*>PZ z3~_7tR%Z?0>W1N4-7ue4&G6t`-7tKs8@5-zaDmm<#=(CX!zD=JwWzn50H~x z4`?IO&WT>VkGAw`t>ef3==ia}-thzJYx*72$>aIwEuH~0RnI>&J%Cju7a|rojI>rO zQwoqRo@10wQvaDLmQA`0jn;qyiDLOdkA&}%bIT?jU;#D>u!@uDth|XXNM<~+s%U{W zJpRORr8xl#sEQV7MINs)Jt=#U_*zsw@}nw2lnl${$S;x77QI}+I29+qoJHfgWL|24 zSFZ{d#!1lBg-onyL1~*7iROSE%uAPN#8u;8<<7F@$pJ;6Q*V#*kt$ZGlkg_@rv_7X zL9|`QNW{xLO!v!($re0J*FfuJM=!;Khv~IvH3ByQl+|P?$M__}!WCJ6n3q0tO@JGV z;!ZCEtI;iC#v&nN`qbx&4F*?8XBZVJ%P#G;$a7#`an4Gv8O%$UXr60kV7B6oGc;S_ zcLrxG{Lb)f#RP^HZ{K;2p_dQC&^l`vS~mxK<}{M<0K&e~wctzl@LwV_Gj5o@dm zL+gfNXx*@ZLBY^!Yh!3bR=8wn3^WYwYln)not0~PwyxMRLlXhxXX}cO*V)88fTZ{N zEoWP6U9mq}SM0C1uDH?x0?I}kqp$yOmaGB{s+2Py)A1KJ|008e(SkM>3!F{$urGr+ zef(uo#K)+LZsSplzl%AW3PewXrY@(#WUU8G2P`y^l_ejb2m zv_KC8D%3tfa5Y*Cx#OZ;1n{b}*si@OHi)b5#2Gr+t`8ur7W4(ls|Xg`Za52r$UZ^f zS)VOl-QJ7HH?^)iPTFWuNV9?By6|)Yo|u5_x~Ak9R+?|NDs+0zv!Hvrc8^M1m&^@t z`Zc@$s^qJnv<7V_)GL*IW$J0zwo~PjC&B6Tf~m|l&hC`f@Qlux`LGGWO#iHKYZ`>D zbPa&h*;}SOuwcq?I=$aQ+16mIlo>OiqKSz971gA$Hr@Yb!ZNy35+)Z-R=A;I)e6rw zuqu3VwnY-{_v<#8Dp=sFw`HJIFvC}mXmC`p#dt&~bcQoNY?$K14`vpU#MC)6q#f#W z8(SQ*!X;Z|pka$&+ej2_@!4Nu%axX*i=6y<@1rd@Tx%z>KiWy`ueX!9@->Ps?nf*n zwKdyS+?lvzU%>}{nt1hDgiysKV=&EkM?2G1@9|Cm(;A zy#TDy0&aK^v5T?>(=3kS#>-3(SkImFLqY1Ov50~uahWF`nqkl{MAhPGSHO0sVTMFr1`M_klCizWrn zd-aG0KLyWgPB^@R-7q|_8#W{x8lLyHn?u3#o^2ksT;{2|zz;+) zZV#ZnPipDjTDOP&(d}V>z1ss!>3kqj>VW%WJDyO=N|G9SFGrjh?av<=8Z92_cfEuw z5E?BgdPG^Yb@G6qDm;B5kt$qO{<($jMGNR2g%{x*Iid=nMhm2^=yV?}%5qP$xF4ds zv8-XxtGb+}4?%Vpfwd;NeN*9zs`OJWXw#XgDqw5Rpy0)~gP zGc01hLBLhF&!|Odc{yw^TEO;Bs&ZE`Kea$eZ|eQi*WiK(OvU_k)-E}pMSvU@s9WZw zvA~iA>VvwAfJ)i%!Jk@E0x2k=J_O>RnUew9w(zL!C^qjfw~UYg1{PRk=~kG z=lY#P3gdCfPEi6|q(MRo6$j=4Y{M( zc4}gv_Hf+#VGYJsk}VC#R!rcH`ktCA6nJ%)BHy!WVzZe3;2&D zl4=Guh|GL_oB8^;joSY?^+CVl2Fw7tdt?mm;JQPkH#8dIfWb}h87fGbNfS9~xVA#X z;g|U;4Zr;6O$6s0{9;IpeD@a(z8W6dUr>4I_O4VzG`#1bv<8}09{OrHd+6PNk$Lz% zxsf0JN0c-!w@|!cdlqllzF)innGBL=x8w8QQoBJ$#nVSJMtK$gO2@u&&g1nT%{%*R zwK%B1dd=`&ukjnTpwi4)PJODyZ`Fd4s`_o^WxsQaLjk>Gp)x;r4nQSJuZuP`3o2D) z6zrUiV!=nmMPB`tP5(*9aV0)q3vxDMBytVl(2AZGi~sf&BtXC%S+?f?qZYiC)TLHO z{ukd@*Ilx2tHod4;$_^8Y{j6SPgWa}3f@rko!6|JkR$E7)r=);N$2wt!#d zeY_MZAC*O4DFEw!8LOMPSs<7 zZsH<5{G-#5ldjc!*q-$sw(r+_I8(ua1LE6_L(n^clb&1xJgZRrO*J`c_9$4bg6{lq z#>@JW2e-3DJdax?S^&4ovlAUAI9y)F;I=B(pHBfx_F@OBwb#zo6YNyt15&HS4QJ2L z_Xkj$#ToDP*IzxI1-8`!NtZEo1+~?Jc;xX3JD{yI${v_i7&D6vZ}V{EAiAzCmB6wK zyvuh0?Y zr~d81wi55qUT%RKPWp3!9++GBB>c%(FLsT!V0C6F%@X zind|GzfcptR4?M?YnZSh8t2J}1b|jV3;L;>_@;i>CeG6^jl&`m#Po@G7qS5y@5&}O z|HD8HimmdA%_JGZ;j=pAF>g!^;>hGF5=_a8q64v(n^-eH*kPJvtL2rwXp4Kq-0X12%9AnRw+xmGT?X5r#3X zU~EwL_^F9{g}de{TB$z_chxtHG419mP+0}td8V4-9+B}gPj^sRMW< zqRc^0zhA&f`+gymQ%v4+*N}T|xho9=?)r0WjE1|uie_BQ)ywUOu=G6f=STk`ja{ps zv0b8U+4lYV8D}>6ogh18j(`5wrWw#zRd^CKDiH$^N2pPpSj8Fit6biKyucFFI7maXd25}upsM9WrfGhF56TJH)xw@r2z z=33_pI9H47Nn$(eHx1yf7DSlWUf{VtAbc|BmtLJ8;9M<^H*Qnyb$&!mHv3Wwwwk*U zkN1$Q`#N>OR@LNs(ZraRxvB~Lwhk=Vs&+dg|2d}4u+?nBTUHN?8zN@FMYS8Hdkw)g z6uVLbT;BhU6V_l1v8zi%gDZ?ZJklTzdH1cEN(ibh z7%aZJuno$1uf%iUWY^#efyk>ch~|e4zc?bB##lf~^Bsp;hVY4o#~OlBja;k$G;A4C zYG6@58yixpYh)X_Vao<$m!INO+JDz@i_eZJb2Z=!mD&2chFejuK>jK(`!L{IDR&4D z&9kx)3KBe2=iX`nHH6U+Z6OpSXsPb}sn_|*!txROkKjpjsfMz4OG{}O(9)mlh%~hH zRbb>&GK@CS@Lr&$pZ$llbgjV1_AD^6eZRm6-c=H_NkjSkw;uWDVev8FI6lGi+zIWD z?LJOg2hOv_^(UWnKsN*ipZxbHHjZ z62-?(dtLz90)D#pELM9R50MvWoT*^Gn&3-qC@DCv-Ok5EaXnaUHi43g|2L+kCZ~(Z zols0!q5hCRUxgqU+0CI?#0`ANa66>(x46h-vwnl{%x{1MAoUqKU0;SajyG(;A4A34PxZJ3w8ln}6 ztR`>*f~)J&kYEF}1=+A*v^uMEXKX>YxihvPT^(Rh*nB5%J*y#9-cnc^1{C(^@-7X9 zebs%rl;o*RB+-ASuqAowN2eigT`TsoJ&V0;-!JxpjuQ1iw&T8Y=D2Mn?|AZ*j0MLd zx!L6f3WVnoUpcCh^W{nrL2#X;c;#kqWs$y={vkjql~3A0)qDlscQ{9er>a1Cw&2(U z6@g^Y(pDY!W0#Z9N;N?BY=QrUqt7y*pt|-tLDGl!j+-J|L}bO$rASGyNNkf+{dy;0 zdj8$*Cm8TpD*;H)7Q8hd*Lo+Qxb`~OdPBMhB~=Sj{>S7G3|9-z)yGi}KzOzQ^&hu3 z4nTWBSjHJ)fVNs}JZ$;ss-vW8aYis}I6ok`TAVINLoh+@+zpj+@nv>25Y*P^V%Ha2 z<23`d^})EP1F>OSfVl4Y$mrCkui>Y<>GvYp<|cSqbw6KYb2gOJ_wYo%G(u9ZL?*-XbxSu~(ZFn> z;8QqN70fK?psFDRBh4mn8EI&>w~UmA0VDmnx=q7KUuADDr4r$mRpDQQu5qfLora8b zt=P@>EOxVfzt|0x-R{@p*!U9McIv9QUO5P!$3iI4LyE7o>{Km?4$Y5SeZvFhqM}dY zJV$Gz+Be>xch@PsuZ_(D>h}8x>^!pj(ly$pKc^ZLZXWVM&^=!Pnoq%>WYHz^iv?fr zhrDSjmj&qaHTIu&s`Csv3OJuFV3UM?4H-5tpDl>^xlOJC%IjW#sOz$g1yGACnR`Qa z2F9z!g~YBId$lK!VGOSU-s=k95kO6U_1G4;&ldRJW;r?dAF@SwY=qiXJ_7dZn&aNf z!>D8m=+`yp{4`tCYk>S}L55)-c|)Z@e%&UA3W_!+ya?2UN6si;jXra_;%M_*AUrk5}NZfVrAI3;`oEe>NYz1+$!5S(-U8atZsxF zn_8s+Y*ne2X1mQz_$0TD(D*hD>sEp@4eW?7X!IBi-y*!AC9b-Pc6QwO{2;E11$GYJ zWGoq|t*EX-V|9UyP&WkAVC~|S1Aqf3kA`atOz^{ijqrl{vj%0j&RgD^2e_DSr88f7 zt7kPCdMyZeMU1M>yj_K{_*I~>3Li@}Hk-Vqu_0*R(pVY>H1_ABK@E+4RTH|D>W!O7 z=f7eDzJ_i)hbXMi{zFE)R$pj)))(5oUtfrV+UN7_hBVbiMa27luRc~C7Ao6%(Ch`Z zZ5j|pM_p7q0ps?gcf92J&8z*vaO=;R{kig1?}THraMj$0L&M{g0}QG!5U!dn;4NoS zrD?sW*#f9KxXRaG{RRNPvjyiHCt%l$G$im_eo4cCU%sn_w7qH}Z8arI#P;7E+<$f&lFGFLNZYdj()RrV zNSv$Qs8fwo?|!**tZ6I^Xx5=1b9vnC^#d4dCl2Ay12-hVZ2j-2>FJ+$}Vk0bu{ zGrAj$R?P_0u!P0_J`4y4v8LELHV z0|cmbfR_k^v>O4Mb0<<})X`Q`AV6jvU#JV&Qvnp)@Me*3AhF);^!O4Ww)JBlIXMJ+ zb@}GHj_^qxpAnYEAp=C~aOZ>tKB;#k%nL^M8iOA<$cb#u}+b_ z&)H|ShParlyqqDMHmim9`c)vC*~A4W4ZBuu!obUa(U8iU4VJvw@W`7De7xCU$D0jf zyx9Q7n+;05*>J;~4Klph@WGo644fnx40y9W^4@HZw>R6P{MBp>EX3(s21dhxfxW9Q zw7u#JZ8iHx3lBWsD_=)zMle8?&+bDmwpMUxdlnqpzF%+%4B1XF8|uJC2<5$T@QJuT zNtf`B^mLn_6I9dwWEGL@UL1VZiD<>$ehK9AUm_CAeu)p`+$qkA3{WjwP~c6^RVzaR z=ybG)DJqt0fPH%Jw_80*1p&1aK@#Pcz(KuRp~M7Z7NP+(>T2F+f$N~9-R(@O1OQcw zCMpUP)mfW*TL4xaYjs}$uC^(v_Xvd5t!B=_MgkDj%_b|aR*+atrUyfjvy)By#gX9e zDXY9tc@T~@`b9&Y75@l)YV?bSKr0hvc;usoCw+J74SoC<4QjmEaK)PqP`ugD!!gKC~>x!7+q3a6V$`-5$&b0K>so5StS+=vpbq&Jit?LU8?tViI3o^-TF-48Hm+eZv->IS-o?M6Kam&-StTA;9QiX}djO;$=R!;$oE?J6};<^ztTH)ejArdSBP>ANQIrflLbK!+y9q!5Q3 zSsMoVj~n24Gkj?D<_r01hKl+ad zQCx1JCd~e<3A2B{CQKBLY z!@&G5xI!)gSR%r_{}$rKeoiNy_y*LJuu67*ueTj>%f~pB>JMsxf|eEm>q5fht_UKd zTuz4ia_aUcy$0zEAuww$%s*=C~m|{qF?SGb))lT{NFyl zOB>%M)3%bd_aFMZD`hVJQ%!bv>NHHs5Rm}sX~5JkeC8XX_e-DnIYIlC&;0zP%n)kr zJkIe%FVhgT-|CI|>-BfzW`m>3mlOnztNn5O`DzzVxn031-j0&8|ybJ=hy=Q^tw@w&DkInl;VMi?Z##Dsm;O4Yly8LB)R48~T1s0_(g;;5lhwlxdm^jIY*mOhnpuNt)LyCw#1P79!7 z`4_zzDmH57({9uZ6&p1hEcvyeVk7Inj++f#8Y(vWal?&XKOV#_GitF{rfdH z(6^=lZ-h4OQF!B2&+=?oXUN>W1T{$~%5f^Y>Qp%VXHm2w;C#Tybau~I;-*I7=H>S( z8DPK+Y}t>VPTOW)Fn}s|!d=C=XJId3lZw2b5jq)iQs7E;#*af7X60=ln97V(SZl1; z2B@jRJ9(;OA!Tq*MaF~p4w)X%rxs^~t;_s?fVo#3gHEar0E*e-c_u2al|p{NNu8gF zLn>kAHX|JOHhGFZ361b7t}7jPBd-Q}>Zo@;f~)FLkSpC4S}3AR8U$o@*cT-+P4qdy ztNWsI7!O#7TsA(>3D7Gn_M`9sTB@qpta(7GXz^PF$i0U|1u0)F)?QD=mMs^L7lqu`MmqdCEu9ViNZrA4!!))-JO}>oc+#e=P>atCj{hj zf0CEa`SkNtW0kmwkCh@oxNO1E@cq`sR!Of=OGA@wn_)P_%j1ibh?al~~||YvlHEiRr`ejU<6t+xb8F}s$f`4P-KxtEqNbgwMObCMfZ5!OEXHX;QlM9NoGJ3w#K#Y~ znNA8REBUX{Y6wJ1n27dXb0`Wo(=pDaTj6H5o2KHYa5J5wx!cZQ>2RLekVXTk6=74T zn$D5kSVI~O!g%B=X*AesJ$(jLE4hyaspiDeplT%}05YcQYo5NUm-=DAwL%@dbYGdD^*`X!+-rK2JMeL@s?W8u0_aK9zchL~gAP!~U$puz$Y}1GO8EfR4wN zfB87yE%FP@RJm)!S!+lWFsbUz*F%)Fy0W%nf#)iOcfbCs7YmRSX=4KS4+7QRGB6O* z`;#b{ge%RL20Z5e5A?I8giw0~nk|TmL(+ceR|7g#)f}EVF4F~ass=Rkni){*iLn$QMuJfdhMWH|$aouc=uD`?Iwb!rxec(7Lu; z34wI&R#01)>T(rgSbdVzz_qm^q@of|sG!cHI?20YR8T=R*_z)?P#Vxo#T8B9Xq!&0GVzuuyV zt)U(ut-`^aTgvfK=R{OV?S~b{Di#2Cwjdb)UJrx;Y?D^jDvFgLf!Atrzp5B}xe>ry z6`#@d7$4Gt-D&|D9v`3r-DSZ;Iz2T zJ7}GI9f;>jN<&LCbvYlL5D&e`V6|HCO_4uDs#6lE&K8kyyyX{d9W69dEy!#cR~ZJV zbtB(!!InJ(Hft}$P)aAzICl!_5CxZP(P5U_>o_&l(_oX@>vEQ%*QIS3+%GfI!UPj$1M7Wxl(P^%MCQrU{f#${_n!1jZiy0sLlhauiQb}2*$q-Fl zRZbdeF9R-;cbZ^<4?`~ed1M9Y^H2+a$>mo{HyC!2L9IUChN~KQQNu;g)){fFm*7uP z<2yF+A`7bNWO&t=$})&z>Y88$LnvZel|Z)@5^SqB%+^2&hwzl98Y&S6U8%d_5Kzz+ zJ@7|-dTE29m0|@3N-NQ#hEOXE+2Cryha9v~5pK$m5&bZPo0C(6s}((5=XmeVtwS`o zrJOVjDCesrg1r^E&sRx=b9Hx$1b0d9_-q{#%(Vgt`?CPT{`~?75y^E>$o$7MSx>1= zN1U3pL$&}mn=m(;9381t#cwhu$4MaIbhbbzo>0c}yRgdK>yAu@)CH^z3S?G`2Ld8# zgq1g_2&zm|_8Y)O~$J^>4VZfpE3h zi1_TNr1m1**4RX)mAY<(D2(|Bn60ZriRf(6`2WCcU8Xs0{#Vc129s-8#c99bo(=Cqx!VBIcOMzlFPH^AD65s|;n1HB>Rbm8SXA8nHiQXL2K&Yl_z~e}*_YOqoUJz0k*N~d<-LDp$xX$Xsngz+a z8T0D=fYy5Nx7#zu;nS)*(g16cF7I>&M zLa(j|xUGAM_<|f5);crQ;(WbVY70{5UYuA`32eAW0cy245nwXh8Q`=&Eqq3d^SFU& zwYZSlJfyk!5Yz(And%FLg6eL#Yt^ovg6eiSA-R19V+1K5plHRM+7a z5!>mnC8xG@>g8l>*9x&VuhjdPT*Y7y_nHQ9Hc0!T9uRJ)XJ}(~S8K!@l0NX>i9Wc)hj(96}aKG#g?KH`Ry0SaR%_fV!(QNYeI6kzQTQ*C>fX%*&NmMrbDkgER!Z#}Y{(N#0RuyOI zXZInST`MNBKZ{B1|BGT0p>1>K4Ef-U2n7`naD~n0Q4#H^?uhzY0OD2N{%FGH0QKAn z!52dChSUN~&lVJqpM^vM>Dhwwsrw|M1w>bi8@wppRi%&sdbYUnauOZk)^BPS{KW7Y zfV4e z3n9=MeK)v+Le6T_eBgK01-Im}hKn2EEtF4=z){7PVjsARRcEzw`yjX4N57C7;fDV(&|Bd4k>`}J@|N6&RCY^l zX&8{(S5=ToZeLYFF6KJscCsjU^~`>@4!P`F5s>{^1Z4ky5s)+Ay{9`~S!LS5e7<+0 z{;&0L4q%r7@?|~=W(3!>1-QN)`NiM*W7XnerLVf9|7<~y&Lb3LY}o+v+$(fxCYn0n zxLVxs^A3Gzz_?mGP-hx?K0)zpL9oxEGB9NvfVf>FS6u0+9~iC{xWvcBZ-H>NAhmpK z0fO7?61Om<#=yC*8X00zf3KskYH=JADq2Y|V6GNtA_0d44`|ojN4V~oc7p6`L4?Pc zL;~#D0{_+_fw*-X;JR8+&v1NKz`9!CIjFQe=xpv5MHBg-ufO_u2Ax%tYeY(m*VLZ8 zptEWc5}{)ghf?4OPxIGb^-O<2XY*A^bvncb%L`qLqKmW@8bhhbnK zPvi53&gxzzEG5rTL(QSHy7hR1?D)rdwxQsK`a`oYU4ubR>l;D%V6e6=3b*uoG3-14 zw4G)ydjmh>9z;2$`xr6wLp(*P!p7AW%C;QO zvMtB=%eFva_k&E08wZIuYWrRcS$>I2CdnU=OV#Ah{z^L$sC5>u*5&2P&u(b12wru0 z`C<{8LbCJf>-D#KSDaRm{nc<;`Q3x>W${W>N96DQcW+jIqg>+;Zb2UVm^=N^EeNO` zCtdxiT;nX~{`D>YXSd+{Bm23k#eciSu3Wax)&IB!J8i7j`4_d|3xu4cAzS&YTkI#% z>#S@3H@6_`X?z&)ceP-@s*GiwtADtK1uxdQ`lmld_s4``|H~~7LK%j0_3!3M9V=bI zYYo>pkQv7X!)wiir@M|9E^FO3G62iNLzQ6b#^oFS{R`~|XT8cEl1+(Md4CZmas zFsMVnF>HOVAhVvsVXd|h)5vOAt09%etJeS!+^%Bsmc)h%eCKvOXc&;#S23MRVqe8{ zE+yY8e(*;zotL~+dMr)13DEuQKV-3M<#mo{d7b0?<#mYO0EREru0=L#Lo~6J*O6i2 zw#92Zd{Kh)c_MgLw??uDXwSXaym&o^t~!uCTZF91 zy#~kA;}`)TUM+C3D=n(ODSI6=<)sd)!2Ru%)zWfplv2{B+^6at(kRiK(I2 z4ye!9KxO8>bz<+fe^5T_A_;t#JtWw$rLMX!FK0<8uQUs&&lXX*Nb;6i>Z%s({jrM_ z+*b<{%4**X6mdpkjTy~;%e-u4hhY~KQv`G*@5gExYvtnhaYJ}`VkoOY_} zWdO%XEAPbg*KpF``F;aM>%ADNf%;lts>zr$SPMVuY?2Ju;H2l~Q^T-~lwlPjXy_u$ z)t0qX?W*wtw#IRI*Kk#Z5L1_ENGZ%!pYLhK(GR}L)nrae;j#KqS;%d3V+L-J(uVB9 zT=glm7=udwJ`B)0;Q(i)hHktU^rNAP{xx`uNFD#su&V@-)oHB((!pGH9&1EIP*uac z!n1>$=00z^Y3Sg$+?0j^H+@wXs@(KdUFcG>w+^jF@iRtz&6vl#{^&lWrfbE8j%RV9 zh7Z(K%V*rT$vHPTo-H11O-awFWDOWM zi?e*3x87E%hwu#Kzm-ba^0O34dcaM;{;FFC49`D%CkNQW%xnVz;n{)+*)yXZT>}Kq z7R2pd+9dr@m@?6C&C_34b*?%}~S*sT_50gU560dlnKm=8afKq4Z!S4S=$x+bP~9t1cZ025?*$&JJICY( znuI3!EEAgp@Y^@NN0o#gl ztsxsR+Laf=K@C)EAH%K%v96$``DYizx`Lr*leY{t1pZrwO2dGmzN#!$hWe_qbSW8G zhg60rg!Hp@NJ!UeDjm<7O2_}ErV_{eImNpYQmv%I3D@}54V!i-eNjcLpgrr)77^XnNMYd&)m|rJ3k$&ls^z&r zV?X>g_FRF^+Uty7Z<9(Tz0iWtcW$kI4$ss%B@A_Z&Ilaq{7#7%Xsq*lo7H3jn|0cR%0SA2*h^id)RUm3BiBpGE9C(TJe~qJ_ z;D7cXveLBzQO6#YK9BDgh}t;}JZ-#}KmRQSqGVX%KNF5w9g={2o(O~lATVh;TUM%5 zcMg9`-T{S`mj1V^eG>rb*69*82)=f2sSoA-&nGE*RBE$Je^_agumus#HxY-5qS#n< z20->~fhPVg?z}pCzbQ^ZO) zfpWDtX-sbQ69Viui|0y|fO4G%f*dkbRo@s$uG6sPFPmo;nvpSZ-KM0tYRm$Ds)OA( zr96f3f$G@;VV)TkfuCjzUfK%L4aor1b+R;vybE>%)OGC5sURq>qcvY^V-ld10-p$o zn|hPrsyaiq2n|VrtJ)6I_e)a;$zW_nx(KeSv)UYRLQcyxI(;zcLKR?2++d?N^Ih>z z>r-7!q(E7pW(WpRE9}NFYDM$NKx&2E7-FqR$U{XH1E%cequ|$^sTqK+D4`mht!R`Q zo~@V|psk6g+S4~>Y99t^RXkOG(X~tst7@gEp|wF$6-s?$twO0s6b)!eBn<-+`Kt6( zN#v{2(^hkta(RM4}yefav*{@}3n-_E4Ak0_+y^n==0#haNs zg&$2$l`0VflWq1i1*=j*5IS2tt6q&I`vGVzeM2JWIO`vL)-pC!c%5c3Y3&WN-p1KK zptD+>qG)US>pY%1S4i|{NU!IbV6)EEp$w!R_5#g1axKys!d15aL1rDteXA$cV6hEW zi^W$03%S(6nl5E^9D&5T%uzqVoJ-J2TUb59Y)(CaXuWk!(h9eNd$6FB`WVzBOs7Ra zc{W*LWUxye?=<~@6nq;?PbY1urUcCZZKWcP!P`oSbl9cd*qoaf$gNNS$Y#FEiV3dI zY~mEaAkLc&&%D{d%bN|UycyOwx;4Wfw}uUltPNe<+MvXn4L7{m5W|}d9=zGGpkV+x zLB_sigMo!xaMWy%x6>|rlp9vo|G2TT(710|84Uwg_O2Mx@hXPog(^Xjt|-Gh+5m!l zb{~?mwdzR6vpUl8{pv_4ka4oL?^ODGAP4`bj+e+$gLE?6dKyGEF5kz@ZIx7H|bZ>S`V}pdXmj;hD3mdZj>4z4N`&B;Zr` zrxBP+8z5GCuk*q*pscM-b?X4Ndb5pN2fWojHB~dxy=|Hbsqqu2gmjTJv%*mD#Obun z-3JCdD|EwQNI$_MNHO1pzxoV%yxDNZn+;&R+0ewB4Mx1#FvFXnI-`LZG`O|lfH&Ji z@6GnOd$T>;-fR!DH`_Dp&Gx{0vpuWcY!9Y22h|x&YGi$kn(fi^AGfFOtJ$bd2%xuA zhlT;wc~`0Dcvb4zYOaS0y8ny;1FG}ceMoiID)k)CNZb-CQn=R4Zs9P&{b z-i09wz!EL)%@HVaJz*|G)ilB?7(st1XH zUAEwWvLjGnp6+P!$=ehTUGMWnC=eEv0%eP!S(D@i08&SI757&Y8V_dL2(?mnd!}il zjkA66nAJ1QY(WsIa=#i_1la1@PHX*vzdDYnHC5eCdgts)JHK@w62Pptu5n&nfD>S? z_ikb3O|%jKZi`@)rBX6LUB}YUEx1$ev*HkfJLv|RA66NTt(-g=kgd=y_*A|zf4{<~ zM$Pc4Q8RpM)NI()@Trltp-#i6M%IQc4WAlW!>2~g1{V#V8d<}qM$Pc4QL{bb4WAlW z!>0z#!KX&e_J}%Rvd6LEQ~i${p9;6%Fw(2WV3#iaor3BOw8T2Stvs)G`Fk^kl z<;-Gxl`{EnK1eipd)@~SS$`x2a&&kN0ke5|X#KHHkT6@2)fE1@ufIwwAyV0bkm=ht z&UgjVvc<+~P12MhQrUv&XV$li2a~N#fgq_hUI`lClWM^!aZPy!26Yx6nkLXXmUI@Q z_@KJljO0M1bWV`+=}zf%8c?km|12n~13ZXz9Nq}Psum~tL}+py;Z8bOsey=j$E0in zG;vpeunsm{rOhFoEnriF4?xbHNFA6ShQW`r2|idg>FJU!&h#nTL9 zc-`q`NVO7WWWcrJCxbKP8(Tb<`>qMxDx3Iw9&R;iHf(Zh1EPjojeZ<%HEK3&@gFx( z@n*Qy=*JB%+!}5*vNlw3YlDD>TaA7kZZ&8QZZ&F#TaB9SQEs?ZZ*ANv6r@{jMZ&KD zB5h}v6#6z;N-fS0S1mPu28QX>#SxJUYlB+WX}@vmTVkZF6P`E^YlB!>r_*J-+Ao1c zI*RZ^B#^I88{jEhT#-ASBv*o1*&-6q;^4|=2jI%R$WOX8#j#;cxfdx(CP~{dD78Qs zyYeBBE%)NJMI@Gz3cFvxPA%XR{#x)=A|l8WYf3 zhw`u^$V%u8GFP-4@KfpVYi6hiYC*ho`16BKc$f`;O79HA+7iA7VNdPcCfYtBV(9TJ3Jqr3iFZv?H>gUE6@SF^kNAGH9z zRotvgjFh{A_+1(?-@p3ro+uzWypzBA#$&HE&M&!m6!)x-w}0p_Ayst~mQo|%|LOCF z(o2)_XalGC;na9nA)sIFw4Vx3I*4oHy{im9s+-o8P9Ve5k zu(gydHo@}=BLj>Pl9*NzFuZ~ZO{4k?VA(~Qq)9_Bc2RY?8F&$GSo{3ex6NG2;dj0z znx8F@r6e=r7~I?Uhk`)GRp}-MS}WeZKNYYjXUu+;KRf)IMO93ozJ~0y6?SMSRtcQG zGc3-|u&NTcq4nSOcHP>*s1ms0kN<1@;|4I5z>R*Kkg#F1fkY*6Z>){Lg+_4aX1mfb zAaL(WQ(*Q46Azw(z=<01OW5M;F{lLYv;UC5t(B&@K1)+vzh9byB*WVYQiiYvk=R6r z*~u(`sA}8@?T%$Cz{6}o#1GZP5*k#;9B`-t*gJt|={c>(eSo7*c8E~i&5;Q@dZ&H6 z7d?y8>5RgtCnHLyCx;uCyaf++NN1{Vrb+1PPlyG%-x^?46+}QoooEh^$AWKwVYa~G z!hfWR?&?q2^5696u2MjtP!+%*YrBzj(Y@g(V)W~;eo6KTY+IgmBbVxLbdP8n*UhNdRXjTvlR znu4Z&Qf#;t_1WdGA+d&HXqZhIDI6~^1#W94J@=C6)5Ii9uXTP~mtA2Ga@x zABJk3!t00OSkwmgY4p2=)Y;=WC8&mEEAGp`=v7uYE#yz18zZQVqM3o*n&^c+cXJwS zkk=4LdAk~?H8885Ke?ZVI1YY1h~uc)pr|2^y|od?knU}XBMk%M_^xim^;I{*l@5SJ z5eZ%(j-UO9#Br@~#PwM?;`;r<5qJhrNhP9)`chyxN1mQcAj676(^6BWzGH!4m2D?x zEpvj(H9%lhpx+L;Mx~knu!=a}`AbMpy>Z}gwm=Y_>a9a22mEFWstls;o1VAIhCpAl zxKAiE;H!5u*?TI^{0q;b^s0Eu<3IMS-~0~VVs_CuoYTPLBd+VwI{0R@S( z1+L3oWOZ97q3$KBNmX_W_G&Nq)0o!-z1bpS0JZvN$1m05Lb0-;BNE`v7BJmiNOv7A zTvIL3m?<{`B5NmtP3z+DMW1_xinP2cdVZ-pi_nJ3LcwfZbt{e9YWmu;6A_)?+D-KZ z15@gIX@W{yEy9*`*9?{Fi2Z1FTy6AfS3H&5KjX!O30|RTXWQI zD2B&T=}#k`YcLiC7iKqRIEEsd(u~FvY(N&Dbu&h6NXF^>)U9h!MrihwFcw^ESTm$j zajEg+8g_M*(77rsQn!~f{w`t1kgN^jH0)ZadGNuQmAHPts>Jz3{S^wK9te$5PY~ZxVXG?aj`J-;L=A%n-Bs@X z0(ls|*I}zF5q;c4_2b81eXj%bDjI$}NG3>sOifL3yvKTq>TzK; z;9f0AHLmLk!slMVHB}0SPYVFA7FROdhZb?#ttP~>jBC8bX}6l7xH!JA4*))!@a24( zgkOfA)SfXVIn{fNBAabH`KUUb+RD7PqfQ(HrN73+V2_%hJ*U+bo+{;_HDc4MF)w{V zG+(?Zf$sd;@QwFXxc9x6VcJ4^HyXe;-&Vc1Vc{@WeS$>_@)RC^_ZY)mbt)}py~$aE zxvI&z`CWrG+^kdHZMeovHhkV-4R=ZT&~UnIxJF1>`D$>J0&G?wrO8i+%Id7tZxg?Y zL0cO-YhcF5h!MW(Yd2(D;o$~tE49ZA+7`Um!Ce*nb?LgY7Y1!Bq}rhEi|!hq4Z-P_ z&(bj9v+oL0Twet#4&&F{PL{TQrN^Xqo}DlPv!DHkgm$eU#r0W`;`;r96lczkE|2Yg z;J-YRmt1m@WmND$B^T8X09YfxNw6R*Ru z?-&qQi(PeyTW_jbAmdYg$DnxbMLgmzVoCLP0dch;DWJ|taMIijNIlEvRbBSrq-t_K z$=6b20&uIzM!B}KX@iGqH==~bUx&d%vk8T5r(II06&`?ah90>nyWxqb@ghjYpv63kG}cI8}4lA zcH#V>a&iN=coPd#YN9v{>4+#L!tSj8!Lct}0+yx8lPtU^fj- z4sWYsO&xDgRKp|XsMP^a%``DtD5^q6^v^HuKRQYmVu zqyF{46qoB~_aQ@Ft9EfcqGa0j`_(RBsNv@bws#@+4gOhNu6b0{V^W>BdhQ11>pa}? zfOQl#_X-_i(b;d^tl5H3rCq8?)t5gYpDiMDRnnR&sfDg)i}=Wm&wcy20M@k^azkVH z8>p_ccqSt@L212r5MC`V=Lty!;O!b3(OYK}d{+wsM8?id;9W;flKME96?cSM>}QQ@ z?1E0!;x_Eg*kupUtHqg(F(lNWzV1GA^4Glt=&Qv>HJ2gH2lMTjK#6*I zS3tg696QnaUwfKSL^@vK3CleD&N&Pa}D|8t7oDS6%JTkuw4tg^z7EwSWXDK8#C}DbU;0tP2@yD zzj?%Rfj^_F4O=w)L%>Y+0~)6<>{i$1-cVK8t#+CR92@BI;%{cfa1ILG+@V3+N-<`` zw&SO{R;hv8im(=ZRv(<|8#SUGeAWR`eZ$2y9Q4-Et@bH!)^J|KvbO{_6uDahOT&P` zzAA%M0{f~A;u1OBj%a@`gt&h8A2Qgr(jeDoX^`vpOM}2*NqZn|gTnB)GfcJ+*gPr< zX{ZohJv{@~wZ6b@j}om#bx3-J2SGoNiv_5zH3@j{wvnv47h=<}hO{GF(wZ$OC3S5w zXn=0*#ZglAYk}6<3%~I=mI0!w7Wn$ACkuSGUX42vMAlAsPPK9Y_3UBVkHGPD4i)nYquV;%=i>t@o_pXRFt&{m7%bkv0cr?nT% zW6a!u>1;u;E%d5vevnyvZG4Q4NhHXuCZ~N8lN&D9Y(g$MX^`Wq0Mu&2Me<+oZdDVc z4JI5K4yq=nEy8aNQzB$FcY8+f=Z({FMMJBSk=XE77^yuqDwE!LWevL!*^SyX?!1JA z>gKu5B;G&x;?_mJb1b9Jd=mwrCYPJ+&}Nbh*4P)M2j~;&S20|R%!tOrYq-W~yM(4U z5~$%-)iu^aLX8G$^SB+l>#7|#|L!geIVp}vMd@oYgZEX7`jL=h0r7W+?# z|BYD&fUXvy-Z*4r;CZ${N(!Z*p#{WLEvS8y@w~n!L36cubW-EeCyrctwI%x{b+lC9 zFX*inhz3{b#4AXXJ@t}JCh{mR}rME0R}b6+(-h_ zMfJWffB(IsFIvzDYG5=CXaoq*)6W+?S*P60JtHEgE)EV5;Yl(WG#Y)gt#x7j{LAMK zTB`-k!1@+|wOa6c%O4GJQQe8WYvR7jX98HO#ToVF?%oBt_4(LOLKMo-zgpaG=YGm7 zxUCj6^vXM{`9tHh_W8*NV))Cv4qmDzcP(Mde7X5U)#S3>^FlU%s7|BUv!JX2H(Os6 z0>P@_eTXmJNP59Vb&FjKT5D*< zx68foM;bz*&9rGCJfE;Z6ogZOrS^K-4X3qPpQFM))#Rj}?P4VjzesB==$FA)lgN@Y zsrjbfp>fXy_@>>V)Jw&41q{JvO4kg+p7KpyNR>^mG`|hP8uQON2!>iSasu#8eIP6Y zmU~+8OCAyO-XS^&Dhj`hg zHxV>5&T54Lg&zWH8D}+d`axI`YN-|*y%D=)1Zo*A?r-;tyq>dX6tGqcJV<>~1#qhc zF5>(S1*>(|?Jix8vXczofLfea5i%+3o_u|TB9(ciYH_^`vIRlyXmM>R6@Awxq*E>E zHDIrt)ScZdnjm(UxB=O^!TA)~DgEcZ63odS`*6QyI`fW(o>V%711kcpF+Oi>>o53vO zq}!W3P)AcYH%W-4U4^SkD}yZhSq(`eJX2SA?4&f%YWddWuU`JAL>7ulRngc&beG))h~{fG}r@MKPGjF=$z!w{gC{*zb^T+(&>ge)g6x} zmGL)n?NY!!UJG9lM8_&38fP_%Impcf!Ckv!?TZHj;L&0u{l4%4g4uBv%?|fL$Q#Jk z-`(jp7509nx~DJ|Y}bw;VzO1C9jW)ICRc&1g~tR)J^TfV35e zZ-Iin0MEJ|m!?PM6c6sH8>*NS0I@kW30NvYE1YbQO}*ExpF{X7Ody+Ta!G<@MYkxu zLwn1#@L2{=$F-S!<3LPc%hIiY0q5GqQ9@-cw-NlDoEh>zs{PoHo76juK_y+#yhJvSoHa8ozw3YRcjv4@zZ~ZLgRk|bRU4Ug{825MHqs#8`X^uO z>~nDb^X?{8+7GzncYIB^R`c&a{M~eawC7t97EO4GGW~!pe_xNnccXbTvXAHoYC`&% z_Ixig))IoLKecj^{m5^3%QDYB?(JzZQd@+04a0Ew6s6gQVLWphQ7C@*XTA@bXEpOs zdrCEBwS5S>iNRQlh>e(>;n?ndk&0wL1G1Sm{=e1>rYnN-i<}?$Zcv7QZb+wo|fC^zncYLHiUK{b$@(GD<_n`zi&FgK%?YB)F3u*q<4qH!vm)!#|! zc4yA|vWbD-Q_kA@@K;XIm4OateP}af&ic@1a$#*w$24A!&G&ibUO@kKdY7}#Ni(g7 zG}HRJG}Dm~yxdx(b-Ut#*iz3@xhiN2jcU4nE+F58L2iR|IuKv9637%dt#%&JRGY)s zfZqZj-X~Fl9Qmc*1JK?NOmS`WrzG|o=kwW%piq~?!Cs>U>{W%yGam=`RYRnCPQxix z!FjR37d?_R0QBQA5LKt>se4nw{AfYB*o9<-&%f;31@hH`Pojv%*#gAZ2Z*noz6F49 zj~riAiKBw?x*^Y^bXvqtf%s_Ay!$1Q)kVBWi_TK5$(H1z&BQVn1mX1p52kK}5lr`0 zP+nH4HQ6SUv}krhrXyf_JPJT0V}#3~`HI;l}@ z=U9eSGto%{D>{l)vYNJ5Mnnn|gDyT<^p(lUdz{qJtI8&H6S%5Alw+wRL$C?A*1JL2 zOuI^$tL@<-bu$o~Axws1Gla=ttU-bN@esHgsNvY0K9fB+b`-$Uk7B4cqeySCHq*}@ zA{+0^j0r^cRTG1`xkmePl&tO49X2p?YlE@eEdR-mYst~tI_j6ilYtKLd}upm;`z{a zx}=h$<4FJQKR?F5Y|);x^rO{(mw3)eJFSPb)B3u!6QtvYBWFKTT5`pk=vM`Piy{G? z98frlU*pQnfO4C^&_?IE4m&t*^RL@kvT^kHA)tOf^pS}ut@8nNn@^ieXSG1M3OQ`6 z1Ryin1Hq%kN(QXDdJ_Esz@r5vO=uK!sT=qmE%-7+lThL>gkvFa!gwnHO<_Fmv^= z?@TiJ-7swCCfWwCk zGJM$Z!G{eD3I^6$^X4M#4cp^gFtFO%7+C8xUotQTIt=U~SCkppL$2tOYI0VS>u4{N z9s~QB-eq8Oaz*PQSG2w^S41J;^|T?Jz2M5B&e^j%0k(Kmr#He-5Vb_RbQ0lXYFl*@ z;ANBU%lT|UeBjC^k>)31*hH{Y@B}gzU41!?5vWpS3__)Sw--pIVg*;?`W3@c)rVG? z9$~OZe6$U7rGB`}$$&7u+D)q&a@Z79ix#vj)5?ULD+bW%)eieTgME7CM^h%-A|RkX z9rywJ!AU?dT2ObG9XueTUfxh_5U|vfWzFmn2Qc+icPN|90X6kbSS%}-5CWvp;_d;n z9F_xH^;8Rw5j;!hXn3#^@B?&p&Bo3QfLL#Zz20;B5jEXn;_nSOm96n8I7DBe?k_^8 z;xEqd2}dM_7KDPj2ZScY1Ns#j&iJr_iVs6|dOr@;=?xoB_>UVX_^=^>58LDJ!}g&2 zuszj2Y!9>#+tcgA_T>7oJ+wY-PpA*u#It+BE z&O^y2Q=NyB%_Wt3tkN4j1vNiLyUb=zw`M(bYu49wYsdm^y5XORZ>h#ZE~1qtFBh*! z231s~VA;>nZ&D`TMGJnmHCBt6M9HOO^C?JyJ3I>+13NbVa@nMrUkY!U%mQi*0rIm? z2WW~GhyxJ$>IMcuD-~JT=;ITPQ3g0o8bA|+s|pY~1_`^jK|2~?E*^s-o;Ck0V5e>V zS2CnMGT9Q)fb<$JUe#%9N5cJhkAFDTm$a>d|qY<_7&=@EkO=d(cKyJO1qPYd| zttVf2kYGf%$CQ`leC@`Fblt~H&hTs|ECox_lQ*Wu^?Fze=A_p$b_Y4E85e_1#b5My zvq6>*8$S6kY^wL;u&Lg#!Hoa70gMkDwD_>$hz}cR_%Lj$cjg8M1)J(w+f!e#sh+hx z&jp+6SU1N}Z`hv6f=$)d#->_>?2=6}&|y>0L|4{_=*rd32Xv5D+=)$njCR@7oW{y} zXsoQSYpmd&rgcCNG|MSs@gk_=Y&tCAuc)4t%O>fRw^5fgfJE^ajj^52_v}HkNhrcB zMqoi3o5aN-T=@0ReiZnz`E;JRTWJR%6esO(=i4>rd}O8tE=3ELK*hkb1yB_&@aND0 zdE_&S7WCpq`Yzm;vaCTH&|j{i?48*h7^nT`uS?O92dLAQ^J_u106d*Ux0`&5;9i^s zMHTUyLir6S)P);LvVo4e4C|jb&)X8qc4k+m)!4wzASbNEg8Hpfg$N74*NSG z_h)BcBwZO0%|!d4M0$UWs}=OlKx&4o8BWba`x0u6xthV&jH}IX%gF*1E3S?YL$P|p z20sPG>RB7&6cnpxZMfpr1|kK;>ixLELqV~6)&>a$#p+l$iq#vohrFOzwY5>K*4eqF zSPXP1)-zd<^&ty#wfZ>FCiakiNG}Jcj76t`nveNi(lsXwvfi7p-TJyL2x7`t;x#QD z==gWBpbGF7FN<_s%1$eyrJdJlIg)!$fN8o!3nH_zTWaQ6Hvi1`bxhk$kvf~d(D2Ic z6ZqvP0ndsl8Yve)&ZmCuDtYoH<%$+Wl~mO$2MmEOUA~LTO6LU!&7uX=d6i1996SWz zq6LW^cad-?DVJKDC_3)aI_OulAjkSNs5}N4qeW{YP^cin#dH?UKXY|0IH`9Et{>kt zIkg_>)OEK)!|XzXe?<$l5=S+Y0IaSe8HoL;BxKB1F%vd`S62j)-r9~)^9 z`C&TKsYQ-u(t_F6L`1Ah$y@_Vs(ps-$pT)s8vmA5pfsYaBh|~dYbmM^pk}&$PQr(&>82Pbl^N2N1%yzu__H&~?NGC5GLuwh_%=f`4d7;IrXk!6 zXN1=2?H)5z!#F2Q251G!gRp|?^{fq?+}e<+pnAO@H^eEZUdOsoz22}vNI~^# zYomItEptir80b*FXWAR6AQbukXQde9ST zy^+UF3t|4B-D}#`dLsv^8^r@GwFfskMix&>YH(tKa1&mYV3KJIP#KTW+J+$8){R~I z{F|zZq}Zj;zodFkP%=*1-)>skms8LI$!O66oC8G=Ffv-KFuFBXK9-5`y8Ii`oFliJ zc0fn>D|T(k#{eLsMbqWH_4~YlkGhTaruLefiRh#YiGf9rI{7Kc;k_V-V5UBe7X(_X z1|s&%F6TT81l60M%6d&e#lDXKReJ_Z1fcS@=}q87BFo5;UZ7WRLfL&5Uz@J!qJ^;e zcN^K$MY%Pt)1ps^&f*aqut@lwuA}xvsp>NWN*+C&Kr1;&K|J|3wauyZkA-*9Ad6xN z=?YZTBD}-z^zz%MN6{z5)~N0bVyj|wqpZEu?KLhxFtDOyWd2!$C&={hObnk&HVJ8q zXS;h5W8r~>v_+GdQpto#cJ8daM~e-VX4oV|POoK54f#xc)x^MShO_d~8jn)=`+CEM zR|N^|SsM}+B(P)MNMLUm64)CyO!+*vk-*llxFmrLbV%SceT?;?k8#bp_|h8rAp`um zOR~T3V}6$f&go;Uhd##ox;_S_=U3!0$kG1tuX9^4)f!1Nx$^gEQ)^Ux`Sd2G`^9e1*B`a^?T*=iL4fP_)Ry~3A(BUg3A3|H?USMsOF4m zLYajCwRYvFbDt#xywQTpZ#aH8&<*a|{h$|0x(7h5&ccDzZ=(m&MhiMHoh9)qyBPsm z-Ang#EB7I+dma=&iT$qV1uJmcbyp z-7V=MS&2=+5_MTADH?FmglPI`R7Zg&>TQX68$4D80W^F=UsyxOHD}aCmfkpr=(*EO zLpZpd_7TffBnW5tB3q7PCbNcdt#7yd6};L&jt;X0UpHKv>4IXw);ea&UlBPsWSi-5 zVla1p8<)5k&dszdF`%ou@V*<&v5gWjFB){{gEywb26{98*o1)N6Eg^$;kF46$E4c; zapEYb2+JekEY`r!hYjcoUuC=KW^yp0U2Jos)x&c<$XqQO? z*=m9QU|(>BkN#+ZAVUfXC*?NVygSYMA~vS&177=fmrT*T;eczkz{@AG-*gPnI$9vG zMMv*$!~n2X3wqh*JQ1XWZ5pk@BLm4N-xzEBWdH%~o$!}yTUy*&_Z+u+z$Iasi&iifc*eM#H1QwZK^QUbH7Ji*MK@pla~D25&oxHJM^& zbW^%qn7~SP?JYE4vr>D|h623?a5D~KII1qBsd5x221iwstXbjIAC9UU+&YKna`4s- zSvR}^JbD64D@FBwxQk(c{bRa?1pSh zH2M%|?$u~A!-Ne2XG{zNpYhx6nSw_fc+PJbtra{T12kGwBKSS>2ZMsgMB3%o`8|Hy z4mTm;u^kc~+v^e@$Q17|5#;3`|JvjJ1HCMA?Zs!<8mFcPDY6jD8;v_GteArFV$ohR zqQ0KrvOm_dqWpOs(5aue1rkr0hyGM&wVYJVBuLcbXTCm*cK@ofGUaN?hQK%2B`d%1 zV<31OU)>egwPUm@>wz2AEXWQVMdZzbY=wTY%{O^-JRH>sv6oZCP2ZFH$L7IP_W@&dn*($%;{dSt-)_t46t7k&t27c6}=njT4%UlQ#a~%UJYx z`lBO2!K@QxfofT`*sgl$A%?Mv$wVqKnsZKC(p}D)b7Jz8v9@l~l}C1Cpu33k( zs4SgU5@W4ekbkb07iYKQ|6A+2+$F4Y`W@S$-?6=}-?7l!geqq|LU1z@FmoH_uc!GX zeQS|GdQqJKa$9$On#^=x&Y-wOi@k2|mIh zVO5JeT(V1}0diZ>lN9>rtA()YUBj20?=2)%XWh=C30LJ4n8iuEIps3})^(5GZ<1S( zX)UO(7ERi&`{aP}`s8e~Jk4)uC z4oLXV8bUp#qOIw4NktjxP|;_K9@|5)~R*RjJ?;Zn~juvp#<=oG61*O%3x~t560cM@GqO{R< z;(^O%alQ6)P=RH&xZn4_s~1$ZbH^8+XaKORvq-S$I|o5!TX$5u!_}5)uZwT6fuY8x-?{&}u>7gMK|Acy0TAZLgHfEaNO(tlBTUW|?Zj2U9=YytzNs z1UK%03xem-1Y%0QdH3_OF-|ohT`Aww#xivp?7I&gG+s0lK4^qmWs+(zwh`eN#p(^y z2!HB%6`2MGYQ$9(2>mQz&VO%3k@C zE@URw&53H@sMIz4v}rCRCQq4b>lt4%R|Y!F^_ddN_E19crrDg1bf+IzUwxh5rLJ>Q zDBB^0vb`>avXC9qT6Ld4{!KOba#>W*NdKGykN|yEIXLgv{!0tYS3L*v75jV&$XAO^ zeY+*6jTU4$;^gVRN&)<6!MENz@a=;4YC&&pX1S$FYp=HCVD&Eg`OxA_=Ay;?L8p6)#W>D8ib)2`nYpx1jq$Mkrg^H&r& zZ+A^Qf0kTVE$~W3Pg-6pxUTNLo!i`H-9WzWR|*=tR}TKG1*(hvSOoANE#N0NeZ!Yw ze>J)BtmbKOU7bdTbqszMPFUUm(S%@W9rV{pd;k=Ohu!M5%X+STs5%Wb_~M`jXcPiy zhtq;A8lsW+r>Reci9y<(Oaq~$1@VQ&>eC@Al!xA65$d(ZXP@ z<*XEm5(Z^B2&Ln0#dQtKzBFf31o6{1V1w(n?`WT8VAdE`;g2=|OXXsPx6%-7hTbL! zvs%A``x%Duc2iDS&``LlKBBFOV&O*BCq%j^ANeP4V!%aYr0_W#Ra) z6LzXkgw+Y=WP=v**C!&obQ?R>M_|gY8cm+E)7F!{WTy;t*y%&O#u5uS&xd%;Ir~*b z&mcwgKSsM;bWXfxJH%_Y*TrjEME`VOK6zQ@qALBM?PLm(S)f~G9B_v8t5iVlXwiH@ zQsbZBTmW~p;Mv;=eulsFdIYzl1)Q2LSY0*%7gdX$E{|aoX2t;*)wQ}_B&tRv67trol&`dt%%Z?(X^+V>3u<+eUZad*!OBv*@t_W2_& zs&|doVBg0Lj@!=Aj%Oto)!j!1YP^mz1=aSe`i!%;5J*>xg|=$l-3Pu$i>8o$%1PD$ zyw1Wqn7y+t)l{dQHgUHX?oB{Fn!pp*z2J!lUdCt>x&ryLrTJ9#*U(?+f44OMs+yd% zuUSEW@vlY`>cuoEvGC9typhnVCss34-NoeX#J5?&jSS#$w`uBiabkvWP1i{>KMT%i z5Jx)=NmQ@cpkW-&(yh2+$f)gwttO*7>mn&Hm9x`;4H7eImGN%KMp#;l%nAx-&<252 zPE&AB!!~Z1=Fk>LF>u2_S|kBLO!Yw=dqfS;YL6&XRM%e6rPNL5gW8_2;-U< zTr=Gr48<;dxawb-n5qj|ctj1t8a0x?!XujCEN3}1uW3B=Q(oE{*_XVOfetTy$N*(t z`j7!Sr=C@tw9J2aO+T+RH3RrMzspqTgn_n07-)N47-*rg7~#b0M%PUu{}k?|h`$P7 zY!dFRy{4)kvLhuF{_+b0rfM=Dq>?7~1$f6<6iD60OORi8V7FRq8r{yXTcA5y@X)X> zBX+75#*Fe=f#PbxmuSBh9CoVr04=9Jiv-a97)5taFx<{v8$D#60fegsuAMv!)Ye(N znERefKwIw=bhIB22f@|ib{@2b0KnCPKxsaA5M1}-dMUmH0BxN`tKI%R1i_<4)4!BX z2KlJ~z}4c0JVO=n*I6W=M1oS#GgxRe;Z25jwflg!h`*Z94R>%9AY4tZr&}h@jgjiK zrH=8(NjpLrLR$-}2M3KN@DokiD|j0mG@6iAI;5?JT*ph+Vi-jsly1Xe80y_{tWg@_ zpvC1IkTt)hcX=qhqq>upLd@#j(5v;YD%^{PShy;|K|i2@6s*&f3bKhI)=D9+FqArv zG+x%tyFS%@IIR!{US!+yy@8R&4( zhfY%Fpbwp-b81MnnI=hFz2N#v&eD(RT?#rUle8T&N!#l(N!07NvL`6$h4?y7pQQBd zS9L!1-I5@=3VNUt)PFq#-`R1h z7e#eSKTQ+X8ZF?Ui}V=H?@LVhr*Ng&Vu7SKLgv=8WWehmWfaTWo*n*_>A$EjM} zv|VN9(!je~AfVMRBm&*_+yVFa*3U!%2CM6{;pz?#Z(dP+643&00TpiPI{-M>S-b)I zp=wyG-rMV_$q>*UEe>_4zDpF=sut(dIt=Sa3tr@O(oa{54?<^AV3YR@@U8oOzYSVW zz*N=Z-m2PqUnGFHT99_zPwW7@)neI;?=Rq5XYn}K?9?{7z6c9K22<5Ns}*@wFctu} zEvW783#!!cE7Y2{UM~__Eu5XOR^5m11o{=)`iM87RR zu52fzcWkS2Aq~e`Z-Y8sZ+k?2`2}k<@Its)L)nE}E}_?@a8?>%p?5kAksD%Bu&O2n zpELNvpFCuZhF??(D>*BUVgLqfEG8LdQ71oB0A;tU@Xi`$wU)*5S8z51Fuu@~8D_5a zZU{zt!qCJZtf@@MUvU(}Fx_c|x{$t^1P9VeZl7j!h5Of-Q#*jQ{k z`qgQvVpLm`0w~!j108ny5TnZM^dUxd$vvf17Ujz&f8Mp^RQ;IVWv6pmRNJ9NwY{!I z)q0|wPiGof0=f8F7L&{Z%vB!-CsDt-4D?i`ZurrDG0}*k^K_P&L1uSgd9=W*qc75I0hH^_*|Y#BM@gZk zdUGlUgYQ5mk!faLV&_~CQ@tTj=}Ml|7H(gP-k#7;UEW&@nEDZ6oI2~=Jmdw*v|F_l zvkZ$UUr}FK!88nvs7gx3G*AtlXdq?8qY{y_o2SA3 zs-PSCsrOrRQY#b4sNRZualr;qwE0Zjy=Yk~znibm5NUPxR`fhFNTTPF@~RvYem6{N zF+csw(P;yyQvcN;X@;&Pe9BRNXLyEIrDUw(6Jh-!aWsIMY4dLgHK8)we4UC{w(#66 zZ!~InHK7d9YMpfd+EMtfE83Yxlc$c+rUg(^PX;>F^C2*mspmsr${T+ItSVG6q@Ews zyVP?|Uurw_rMB1grD$8i+vj#`ueR$Ihh(On@v4sJF8l6)_&94NVl-$w3BpH4)uv00IpZQ zQ%0rVTt>OTZ?&lEg+XlHyi)#E7B+y`x;|FBQTWI}Y+WGZXhmg&LF9$X8TY3+|A2_v zMk^w=d>`wo(C5rn-hbB+YbJnckkwlM%U{7-48UgGREA+Z@0r;cgv}^>8lY9LWM?gg zXy>=W4`&!g`-FV9hF~T8G0Z9@K@Fv5=#IhE1l?&wQ}Nb#7~9WPw+ z&yQjd))W?ele>vw*o+A@RI$Sj!VAh6LJPUSYGN=pr&TIP$y%k|VFRnIRrd}o(a6+m`Jqpu4clGxJ$3$%(tK)yV?l(S#E;Yb>up)>rTUXJi551C z!QoGJ5={jcQ2@+7s-LL^A}-o!q;gWqk^v;Ni%P8O7y7$|cj)Qd_0;}SEslnc{p8SJ zxy3@MN;;EY>#Rom#kG?QUcXTb0$^IqncYXf@vGgm5;ZfoZ`0L^Te=8+{x)50LSx%9 zzf%jiy9V+y`T4zHIc5CuFK2)K!LM9feYSA4v6?^nbriJ_fAW1iZc+W7HgbCNICuDt zpSvZY6*S?yZelOqqW<7}YO)u_s{Ts+zF*7u^=?2mqjPAmHuK^&WSbEQH*lLVai~*t zeK(M^*W|k)nh*b6*Vcy(w|v+@%7+b+eAuAKhYfdp*g(dI4N-j9;KPRvD}301!G{e6 zeApg&AGW96d5=BWK5S3158D&#!}fH34jZXzz2htY+|EFUR6XQ|GO2pV4P8>bP5Z$^ zKPdEg53#evvOcDFS=OA~(0<4b?XSxX@zu4XYk0boy?CV``X%YV%T=A;F0@D9?9zdw zc0>0~|`IVX{z%*+U2ibsG;X--Q{ zaRaNOMXNxU_AQyO0bkJqUPW7|F0TU7bW7n#>{|eGwh7mwCL64av*1IgQXA96XT96AdY9a@qMvI9=dN5Wmc38{_?CN#2 zev_GQ#W`$aDh*pzv4id1fD?0WR0OfkQ!~7zuZ^UGVeL%kS zT5^ob`5NRan)v(8kZtB99Ndfo8J10ws@^#ocKIb3Q2DT-k`EgM`LN-Q4;#?N23~ zVNNG=Yyq5lfo%JJND?g7jU^e3l@2oSs#k7JFS7Ft#I-Be%=03J3>4N&&s@V}f*`Zq z++k58Xsx^7s8*5uWROXN|6v#r-lW%}=hZfs(?)ocUQ2N%hFLQKH3O{)q2hOguo?H6 z0on`)%kZYFTEwjk-<$+Myy6P_u%Va_8)W&g;gb&=82PZFkPjRD_^<(w4;#w(utACs z8-Dn(frSqnGWf8;fDMzW*1Kc0-0lwBqwGKKOy^0V!`|9&m&A*K4)J>EzGUL{(0#e4 zLWko>Uqgfs*Z1e9Pu{GLzTjQnH7EPBAF?m|>#{G+Z-ax19%l42IpM>}-Yo5kzS2D} z0C#o_fnm|2060O%zGVtaPk@}a4unOE16*S8CLaR?lcwruMNxX0gNQZ>y}GEhWt`_y6?=>-CZ(Snzx%6{dDB?zf&byXFP zT-69@>Y9+gl(OxCPF<2KB|Y6_G0@bOr**PO8D%z!X3qVer8Bl|nQhoF0_@ejaVgT% zL14W?X}VZ3$>xO8OVl-~GUXvtYEp?nK%exfFt1z9rfmBw<1Bo821Vz$F|RW$q6RZ_ zKj@QfS>-~&hP&Aejb?Zq^vNFNVG5I>(@a>@;Aw^m8dlAi7<3hMEM96s$9lttQUx9B zSsVTobgXA>$WqX;p0xo;LB~4QjgIw(4HBGh85k6Ftp0KHgSD>HB^_g+L&u&8o$L>x z6YsnX4q0RH<6-E~v5)CpIyR?#vLDJP`|HXlu%$C%adbtwoUgbBZaIa^8isEJ)n4eB z_W3tASdP*6W70iyFrTzQu)GvNerbQhO%wTI zNy7A!a3@D(&x-)cMGFFc+Vw7TQb0}@8flhcN>{YN?KToegQ`Uf($Pj@F3>i$Ao$l8 z8wMP8iy;^j9d(&NLgDmL+h`OMUvNcF6tlQqNIMIEMGdMy&V}|g*s8bLI&I~$N+_J& zG?CLOl!QQFy=kVzoFl<}Bik)lgc28pqX4zugVtR>{1qmEx88)CND0-gQhZHE#SV?# z>0_bI=_@%}*qtshO+V!?7cj#0bj3tphnB3_#9)pjjiM^SkPWIGch4E$;w6Hg9&{fdFp0$BeK?^(9jTZKX4Ot3W*t0go__Q`! z*qTL`w2*-gEqtakvOjc2yc;s76WdbHghxN-cX{EQ&d7e~jO?%LjI5+H(}TG&!{gse z=7rjA8)sftI{+lLJNTK-&Ru67h-ppz7pbq$WB~Y#7PR@hEwOemlQXbXEt*nq_pE@@ zXt8^7YZ*DUV-VpC$0(zyYH>z7tjmId)o4M7cU67PR}RSP>e789QpRin#zqTjg*DAR z6Imcu@AvPkTfe z^_igGq50A57=W-^(Eg`y0e@7B6JHjIyaLa9rw4N8}nSlyBVHKm?NIp z3~4pQn=vuSn=vu`E9hxF?;?oY8#WLt=xNW|`QWo4a%&u2(o+UH^z@ko$^MWax#p4x z>!;p!iUo*3$B#)}PC6$%vLC`D`|H9Z;4L1?Rt#}HZ+Mkfdz<68- zi8u0b@f}wBDz)i5k-b89M1Gd$MwhLmq4B5gG!JbmqIOY$Zk)A}VJ<0ORi|dNpyfuy zrILE;G49$qtMpddS=}Y`Js$%E)~hA?Furjzg$9q+f`XFxCd{-DIF1&yV^t?#Nj=r# zBuSpliIp0f$T28iy&}i<`InEur+qvIS|d2ux}O_Bv0AX<`xYRvZe&sy`(bc^SS`-@ z>AQp&9F7(=dLV_PYXJORQY~LOUJd8Cb*+>;_jR_# zzpMobhHL6A62&T(KL0RWQ_;d`Qqfu2V6XM^le=0_ZMddBH4;VGt6qMPPkjiacB^cY z1NpS4VAw# zFFy6PwwBT*nPs3uW}gX@>FJ$u z_FZqZ&m|M?ociy{Rkc#kfolf1kL$n#xC?VCD^XM{0K(d@cHuRkf&`RT^ce?lfoO4i zBLdvm{*Hd)SOr<$gXRRzDxhZ24GhULfQSU(!jj$0BKU2`8g=By9_Dqz8)hWuNI`T z_E{;z(%Pa{%CL;3 z8x#PZg>skMt#G);t0Fjj)+S#G*1&P=QGdT@&nVEX&F|Mrg&78_UCH@)@B29c z>u7=Rj(4rb60`SJuW->z%#02;YHLCbP}fTaY)1<^lwQOQk$DuTtrm1u>`S`<+Geo| z&nyG~YC&asWTs`{U$2~e)VLi=mTGH-s7>W@)mcQH@|u9)dT;5p*ynu!xa|h`QTI-P z-@4I;yj14AuW0X>>H2;3?!g zDcY3OR84LuD)&tQbTw(uZT{s3TH3GcUQlBgXq<&?(YbJLLOOLn?|PC2wKcG!axsPb z3m2;HDb4OJnlQEEXxk#AlKywYG46hQApBh5nR@r>?k{|>B%O9EwZ~TBjW+axk!^#P z=kEqze3`v(@5$C)45cFT0%Jo7${?*>3%KG>EMhaQr@d1hCa&;|_JN1H4v?)@rD0 z0eG7QBF(`f^FpxO&WifrF7E)k?aE0s?H&W0r`~Q&3qi{X%C7nNs+_=_0$I?3p-_n zW-*!2+i4McTSZ-w>>zHwQC-EMuwWymYGQXc=VvruU^IC`OxcSyF+B#J64N$XN}YTR zEH{@r`EsO>K1SmTsn7Wxs(Ku5EPlc?oTL2v5C8B_zyI6+_~&o``rrTMpD%y@^MCpF zfBo&>{?j*q|9^k^$3Oq;-~Z45{_DT|?f?Jv|Niao|N57|{MUc_pGWs_-1lch^B`zn z{`E#idRb(t>qlR9IQ&p8cpz>XKh7jpEg;W}fN_3f{#Y$&#n#GNdIa+)Zn5f{D8KH0 z>Q_#!b&;m(vyg9&fS+A_KUWKK!btV&x^I8s7PnK8a_~!^g*&C6ZuzTZu`m6KrC%qD zQKio}Zb4W&UTskomDY!pk}m1~*6#rs(~)N6PnzGl1*yX3$}sZvJGbDosehk;?>mn2 z{{H>=gIio_(UhK+Kl-d?kp%IA#Hz)agyMnn;`_Us@N^Z7^gBN7v=+SayE=xwc9w*xoUonoq$^f*eG)EWE(y(}sh#6ei3_yhV$Jfi5ksk3-+k}R8%2Vh=R zJLr7gk1c}oDlkFjqqz}0#_w0VY@*Uv_*~uMzIon*9RrAuXGP}uic;3+UlHSXiwkks zt_1+E$3RRva|$rsX59x>Jm9-oXxsR_KES(L;P~s)O3+;`xXA-QtKS3a)$^Hv?(ui= zmt3xS7J#m^$S}yxJ}_K&)_%EXf(&fi{<}*_S-vA+xLP27-S>P0;r3K$om&w~2g22a zFQI~P0^2%mNo7vSx2h&BV?cDG@)EtnQR7ialWp%d|KR|ZU(~uTtI8ji6jgs1fAy)Gf7VO?os<~`6`kyb-U}}47VZ!7-)pJDL zV(dQkyCNaHvZ~B*YC_NI-9U?P)1i~r5RAHzVIG3P8N?O(sQw~fF~hSuN7o>XwI4c1 z4Z_Hi8&XPxGltLdcPE!z+75V5O>FLNlmA=BZz~Dm)il2hW496>^b%t_&+x6_!@>Gh(G` zakvhMG@7Ql&1=QOfEfN<1cbx=T?fZX0dV5&(J(cNr z^P#HAZISM|g$YQnCJP_7N>~cw8cmuHZRFeq>DA;;gX{iLV6kd)DVlt|8_qRn&r369U$G!;M2U18U(Ih=q^J7k(?~*9 zpJfn7;>u~{^@PakR=NziuYnv}X;cXD4y)CDF)kc~;;MqD8WTAsyeJg=5%|j;;+u=4((#o5+zj zwz*bywTJD`nrl@b99zgDuK?GoqV`Zhws~5k$x~9>TJV>omVpkbeTW^I z=bpR)qQ#xQJ%Y`d#qa`%7JQtsk<}++w+H->7GzXwT)0dUFpFJM7mAjuepc&UdIRNS z0RDO%r1-|ybv_2zA1&y$ut^F=wgCEdbb{o|B>+d$NQ0wqx z`x2zr-{oN`vRi%k(wHJ5cV;gjz3vkWU>1A_q}PpdN!?+cRe|)jQ(7v4&pJT!6B?Va zty6M00o?V*-?eI;ccz=bWA#2(jh>*fI_WA;XcaFvJi{kttR|m|0UDrbDUC&Cf7&fW z=cGXz4n@7kMGh#GHeUWllvfBq(fpr}cHI>gNh-qHhHCUtQJPUy#2c(p=C3rP;7EpR ztreN_wd^W2U;`X9eUTMQMgM+ZRBE;o?=qO1@kkoZ@pV=3J%hHb2|mZaOsn1v+h#-= zptK6*L-O_xrL~83cwz>76bO#|p6}3I!)fKNMH;PvU?oJ>_^knOQI6$cYA4IhN*w_l z8TDjOxg~BRwDC-y656IMP!d`OI)wHi7nKR^LoVv#>?0fPOz_`|o2`)+w5i=^oVu+yh*=Gb3Dtg$13Y z)%QDmHe1}0VZj;p`Pceub#)M!A^}9hB!GMGL=7yHjw+X?ltQ|6r9!~F4sXYSoh(|? znk^_1t3?VbF$UbT1(^q0cB)PY*sjY&_54b=Aga079`%F9N7I z;^1It0kUTc%7;+QVz~SOyISlQiHmJgwcG+0(}ob(+Uj7d2L~kAm9mrm$_D{*U4y%p z<*(ch9M?6V4xK=7ldPHvFhcp&ABh;1&gmE6;+=>Jp!uU_!&Q$ZwFjZ&)Jq z)mC_VqHOp^O!HKD0Qzc=qcYxxSQ^5?-ltsDAP)Afq=HAS)c-F}r&1SI!c7eD+H87* zI9#PuE@l`5?DeT?wbh(0(e zHia-j?A$ASQu4lRDQULA->}MeKpV-LEl8W_^b??@vQzPXH`QT5W$m>w5eY%-i8B~& z`$C;=^;{K*&KCILm1fmg77$uzahl`;K6^1}Uq zYwcu3i|fyV*18q>!ZhaR-XqXj_abrX`L7{DptVlWyy82QRAk>TP;Gi~hm0>_Swa+x=`3=&k zCUbgZ5O$=1CZtoJaJvdS#onV42B2HmOsXU6%@FNKNqU2~103be@a>2klmXlk6GONo z+D-;>heW4zk`IYaeci+$uZT|RFBZ|MakJr85uF-a8y>x6k5SCOWsfur*yB@lsoky$yyqh$(_96mt^bA4q{1t$4=gcurSd;8SVw!&1I0?afM6ZR`Cf@AplgF|3T6Vcx|&vhy!ww| zk~+Tn_A?3ulhpB@W?DL6tls)wPx2s=wley8&7Hd|1R|+}wLF1_{{YB#?^EvyMAA&A zZXH8Pavq9_GYV*>j%Cg$AelO=Q-8#pVb_s&y~CFRS7h|(n>g~4cJQ)aG}!VNvf-6C z8#sBhA(1y51bMUJjW-*(c(WmiHydntvtfic8#;Ki;et0C2zawS@!o8Yw>R69ZO!4l z%R9)M?TPhfdpf<@Im@fe^Qdj#QYab*6zVB;R4LR`>S(w7;dWFHAh;?fTW^>wKulGK)as2owK4aKACkIQ2^5v6jan&l^c8FvALwEuEKw=#JRDu1&6 z#E(nuhQg(+|Ctn}p^wh*=d@o8p8=)Z=|c3*J$o%$UZrv=SE}?B_61z2tO7$Di`s)= zs>-nx=@MHYKutH@cAuzBf^*s8&S<65M?EwI`gDG@Mo$yt4;t#o@!XAlUI3(y9D*#b zyyDIRGj-$=M~ZE+07lhHQsEv;>`vk z-fW2B&4v};Y{1~n5U*_Tr}MMxx>@^W3*N#7ui1N{Y$h;0o`7p`{^ZL4!50y_i=|CCd z2ww2Yk-wb^}=b^HKj^aUzYWc z%AD1gWt{+3f#MRtrxSBU3@P<*nOL@n1UjPN5{oU|4M@ut6t+Cw#@7JlRJY=G)$*d{ z8UUZlR@|-{YF;eBLbX6vb9^QWJZ1|@%w6v_ln|8EUWAj@Sp+O~d!dOl_OF4T*@F6h zi=2IO4Lkb;Qgs%|>CUg%dPoV%+MK8luMObS(QZ-*zhRDGvF7Kv0IhGCQTG*x4}Xt#dxytM7k(a74;j<3)OvK` z;?kRMynxUx+sk^p4cjzSJHj^cbLnEuc_6e*Z*0ysp=H_R2$O@VebvOUuAy)F7aRIE zYBtDf=-bHJfT^KxBWr`7hQ5ug4OklbHnKLzXz1I(I{ap%W_#`%`Zlt*=lLali;Co} z-;9OJbk7TZ~rPU^`ku&Iki z;gkHXYMo}b1ezmIPelP&oluS$^DDF-k@C50vs<|!psVvqVe>*Up=LTE=T%&MO+Eu~ ztR|EfY;!Ag7OebR6L1C_(`o231;A?^m6lKKGBOiJzGqXI0$@W7;a@sNm7VFXVt{q^ zQpb(Q(GZJo;OR*)>`WKFQZ08M!p`g|sV+w7nD%Lc;tjrzM7SG%9f)v$GXOhsaBB#5 z#Ka)%2$wWKJ7Qvp=CsG)tKoBbO}yEFso`@YYlEDI&yB1NS{gn#uns;qYKG5^nhhnK z?ioJ3;&aO@@tA0M&F5%+h{qH@_iR}9l8ErQ(nkeu^9cQfG|y*}?TEd_j~|eVSx&*; zmaj|2T)%M+NW$c+)7hVX-e!!RqD8#%hi~Sesm1<{u>G+B$H++l_o6yYtyT1QUv=~5)~LFF_X!cBJa@FMRk`Vx^&{25QuPo9dGosvRh3{Pt_TF$zH`J#GAr zhH=!1p86XN@Y<{kgSf7e2bl^6!p4l7+-&oi;w>YF`mFc;rV>@F9;prrWYSbX%6M>$X5?mg|05-X#aA z;#U$7Y*gE_RfiO)YYG*sRFJAZ8bCK&;KG^}&;WC@1q7H()FCSba@B$|(b=G~ED%>^ z7^wSTUY(MmU=}-4hC^2zcxzG*cPXCOIS6eWXa3SaDh~vF^EJpMAfa;TR|SgI;>6?* zeYYU7t{@v}T$dUk&K3{($}S7m_7V>2{2fv)fL`5w?BYDyy3Qc43QJtJYu(jwO6^6k zK;8}20<6sz@YY4EfHc(v&4OZr<2vIYvR;G1);WP++D=x9&8FxdV69tV7h%ATECS%V zqQnez)dX#QEq9Vo|8kIpa(Xuq%9YZN~_V)OU@_R8nqtwS#*v{ z)qKjaob7hG9j)5_zH0|m^P~HaY9142SsubH%h!cjSVht_@L7_B0c>4w=63~}^Qe#& z&`PiM*bbPsvih@-HBefsmLq;!-pSx{?!*zus+CHM1+c6Z_p?M;Ri*$cTS@#C@9F1X z<#d2@wt)X~@}1zS`msQ0wZPRqE}aKl+ch{`PuHm26!6w@+)kp6Q!RjUwV>K~eu-7D z9Y}7otDdhqyD&|)zz>?Kf4v5;C1T-l@o6=E#D^db}9G1UTY*SlP$ zarYX!QGQLsRU4*jSQje7LJym(7}!zzcv>9X(2hdL%9@(Wfd+RZwP{FoV`6y6*}SGc zwNRt5%4Ac_#05&kM2XNdrYHcd1$mO zU)N|^$l-bST2cIud-YNAIxyh|)edN>uFeAiQJK+HzR1f!YrIowX6#wwU7&^JPuJ5p z;*(c_S|Fu8(;yU!GZ-!JsLITE5$Ie||7IKwz8 zhu4Ab5w7$2&8vMB# zlpz`Hu%XP5S>4^ne_6O%)7o~oeuu=<=_YVn1w1SJ-8i@lm>C`BNo}~TV$;0Xw!sp+g2d#xvC{1q@tj>do&_mgrEm_rK+I7!3XM2uw(iwvkQ2u1r-j*oCGAdYaplIq;uQ7-_Z^payF1$M;oWz<#&N{ z?L}z8c;3NvU#W@a3#3#n>_uO91E{VRCn^<{dk4sMUtSiXoId~RzJ!&k#lrc>@WTKY z*QX`ioI{QYsH??xos?M$FRhx8Gc*yVhLvU$-qTbl8h(BRLsb(}^2h3r5qqj86ur#5 zqan3;Y_kaw}=&hyp%+Hglaw))Vlp?2;>(4elo2pf-U!8(qY@`xK&XkfRY z8{FKB0UW+eGVJtoq!JVaWSuZy%S@lAQVp(ObJ zZ;dm^quResB`^SXE%hJeuZN5akXM0+%>>Z8po45dcE>6jef6yd#H+>q7NXkU|JtAf z9rtZY%mRH8=re&)s;b-j}8u;I7>uWaCX6yj4vo z_+Lj8(FNL#L;QN1(9_)O&LO;fA~j^sQ0)4s8lfoGaMgSjJ~cH1t0A6nRozLgjAO+v zDU#6zYQR->`@j#4Q~B+~RdvaEBiNThLtJ(C`L3Gye<7}FvUfqyhFL^SY{KCidTXG? z`TmsN!c}#_8a@j-)fFD6;sTD9J!~lN21_*M| zT1MjoNL+>xY;##t*7B>P0hwdlHstQ|Bj$kYm4cM#2d6%S<|R^ z)dD^|&SwJl?HXJ4UxNGEiTBjl)duX_^lbM!K#*Ri{k}^;Z}pJ^^lEV-OMAF|zyJ@M>)(@)|6rUZ3zX17aak^2!Ed6x>ve_cU3$7D)Cy1{m)8{#&1Jr~> zt{QO>zSrChckTJwM+9g$)X|$?gSToo3hUNqG$LWO8~0Y%f=Zdvjfm0HEE~*V?D~z6 zh>4dJvZ@<=TIc`GfQ*u`a_rPa@*0wb_OgIX?`5@}rAIuC|J1N7;!>L*HvEdu8+961 zU#iLJ`c8@gLS%<6(QS!;%9k!2?= zi-*K-%pi?yGj%jJCWdL0=$WdM8mNT|S-lmwt38O##SOY{9thk7Lcmt@?-G%%ZsE#_ zgRL6S&pgTDSv3?cAqqiH72l?U48c~j$xF5x742KLO2dGyzS7!Ro?1JXn!zQt^XD}~ z`K1GF^_bYs@(|luzAm-{TfMKSIdh!<{%@@okcUNvcbqR6r3KnmwPK6-%+J623If?x zfMeBj#mX=McC{b|cTDWSbrr_Aa=bgdD_~s*%m0@bJ}wCDbfetD&|wFTXN#!Z9_N$B zz`=3tMfk(m%?gaGMYyojoz#~wC~g+iwd#TZwAcA2$8dE{0CBr_qAG_|4Tk%iTx&@rI~ z%(DeV^djFF4G#p&)g+GUho4tLMAc+DNhC*e6|g;h5spM*--b zCRQN7ryCQ4HA)4a^c=kn3DCVj&5hd2a19?|d~v#$*03yiQ1e@cUqpmPypI1CEY#LJ zh^O~5%px2_*$JnH5X^!Anz#Xor-8+^u9#sMp$5vznyVOyQLnX$8!+7B zL!s$pP(@I4Gj)beS7)cte2az+s+s2j_iOEAaCF4qYH$>BH2x{zcVf`=l4?eY`<80b zFrb>R)PF0qi9!8n9Uj>q(-K-9T0+a$wS*v+IP0KwACp^((KEcyKw5~U z9>&(^8i1Bz6A~~vzlCLHi})VXV~+03K3m`hUG_0&1fA95x)SgC`Bz`f!?dUWNKN^5^wOAoH!!-xdbtm5R z`KWgVysO2IvwV10V7*!_r}H#>DqBQ`*112+*KRup5basMb~{m@YB($56U`?0MDJP< zx22+La^4y#`=FoNjS9YFjvl^JH96gtX0^ODn-FxS#rB(`35I*{QmGl-m4Aho=BuFe zVRWbxC__GYspkFkyi_;!DT+lmhy1$9)}r{{9P;bFxLE2;%S&x5>3McfQg!vHlU#oo zl4{%H*06d*w&rSvWDwM88d!m{Lj+Zq98m)w$jq zf3bm9)PAeK1VPQebo1&3?B<4`W|IT)0pSbP*`8KC3)iU5_94ESO6- z^_85`@|06@T^{JOX_Y+QF`sK&2<%7qA%Q)nrnEfNl$NinDaASd7T@!fCSuC3n}sI; zt8YVJkaa1)z{3qd=PeU|aPP6^ypEy!ERQ&RaasBIP@K>zty9a|u{ zT98&fPX7nd)q;fK@i+iM-G~+1?m5F%K+!L z$%xM!ay9sW=4!;k8cH8=R4TlUCoX-}#iSCnPv=L{jCWN^*4n(kByRqfu{Z+Xg z*q%)y4O&i28)s$#)BQ?vS^BG2fv4(K2uvCWJ_k=#6NFV8I?g9~?nXRgDZkJJpk@=! z^jH7-brZuk-m~k041V3A*VW5DH|hMgT}ge^t<(@z-+g`Nl8V75L} z?e&NW@tZVYiyiKe^YHl+rSt1Z`B|&n8hMB2RInS{n{jT}i%}Y+0I< zdtH|Ps9qOkYer}Y#^c!^&fC+aq_qjYHPnjaMIV!w1~Ay-u~CyIoYP?I{LMaz8b)gn z7I7_;8w+}>6KN5?48L)wW|LR+bbX}`6%DWHDXkG#>F4u5CaCApusD(XpJ@5?M1JH% zeGc62|0kdQNBlG{cR(*{edtB4U)PJmH_6E}{~?yie~7kwlD`dWT`qcZr2T*9)36Zx z<`rFkUOJuEOZEU2b#}W64%N0(5%=^?WV5eDl3hCSeMWq3deZ7K_OJC`DaJjM7x;}@ z5GAxWnHs;poo<}S-dBHd3-Mc%l2hJ;e^raC>+n=y|C{d&{@>=x zw&>q|%`IJ`g8V<+q6vQcr;oLBOuT8QBbq@!@^zXE06pOG69ma`u61M#C_gIqeV;j& z#$Q_rD+82|RBQaHFOI%~f+HBx5n3vH|3F!pHv_UGCCq=JS2<$xOEqz=onMWc4Zz&m z(8`+)ro7oO$(s#;y!j8~J2z-?Yr_$5Hqh{9LkMp+IPhkB_PyC2bZ@q&+MDfxwq{PW z^+l&IV4Q=)W_v{a$DPJ}|8cEozed^n&gmBo16K8}k<_rN5Ah_sA8yA)P2xHJ#MvUk z`Mvv)R2>sfT9**vT)!@!6nQU?@;;%(N&4rhoLbAMPMj#;Pv#f|jYL`?3U%P;(ZvRT ztkd~&yQDXEB~sR(42#{~oxqKCT9z$mJlKzdKe<0a85j9X?h(TmPYBVlVDbU7F^U$WPIm$XUm+j#f97zdD+%rAJ9|BXPP*b2LY%$*uC;G zP*v|-A}Ai5&-fTXn=K-lME)8o0{H4;D(8!cTxTx;vflgj+m_R2U)z>P>9m`}fJtlLlHJ(m?CirGdbXEkr<0oCuIf z%t=V`PU*1dx~wIyM8+w95P6Z`*4c1`t_)^rp|2GXosu zPWWn7v%7UwWsCE-Y3>K0l`Y7=CiizpX27v*5pFB-q*t;Bw5g&2=iyyWiS-KckQuGY zzgt2rs^bY9)cGODc6`o$!Fn zjyyotY=M+~4Of9x+3=LP)dCnGt}VX?Rn=?2v2=JSd}i0d8e58#yh2(cka+K7(2+SbS!gH>0nk_mF`^o zMZOMPnHr{*O&X>(YBq#&YlEYPX^nmyrZs9dglU-8$l9>Otqmv|rZxI;!-IxtjjZjt zZ(`ZO5VnIj5t6c^-xgWCC4*OnMU2KJ6P!raG0MqjV4jF8RjMXMvcW5z zx@Eatu9a(9CxUx&imUYpo~%D7nA>YE2kpxJL!7dyLjgpoUchycx_C7<9jc|J@zJ@= zCy&(vAk)hD+j?$K1yxgk8WQ6(K0H|2BAk_zx-6hxwjh|0f`nzk0l(afd zx;{PCUkAU+oru!cW4b2Q4mj2=qZO>&>Dh6iWY$(=HxO_j}Z1~hrxRJFXk6RneG!$<1 z;g&SB0g&Q>+J~R|=WNpv=O9~e?uv-d8!+^rQi?B2l?y1hQm-5!DRNFq_Ec@s` zq;SXdTGoeN%ldV_mUG-EUxoL`ZRFF|MQ6ahJS@)8RA#uo(Sbb`F5s|m9RCjLsh|Sx zk9^!womOC=PWA!?sG(in=QQ%K0f5&3w6E8a4r{l1MsYBGRM+VM@$%17{PTuh`R89t z;dBD6j#v%Z0`IZ~N25fR5AO=N%NB81cpFzu0ReR*u&O!Sy^>5oFj#DT2AXW>cxeLbxQ*);{ovtJbWYt-}L>QGVMMo&&A3$(;fie(vc65H_bfSqhSOhpW`Jw)r~5 z=4`^OmRMz`hH9ZZqSU3D7_3qMqan$LWJfCf8k7;2K0Qu`-Pxm98K9xrfjYf!&^ddS z>dzXQ9SN#~zv*K#_dyz-9pRz|Xh(>pA=(j^XpnZq#4xSletC8p?l)>SoNBn=$l9>U ztqq78?l<`H;C`cKLz9O4jjRnNUUI*vDcy2E8V20&UBRT`eotwWy_AbyrF!)N?)TAu z$o-Bq7QkHb3G@u>h+fiM*t(W82p7Gu;FGVo^nada4O}W{cam4dt{n zKP?y3`JwvCxZDTWnJp-+xkyd9Iu4*STW|urO7?s8(t@12&VMDdBTGvI%@SJbJ!cO_7y7cU2ud#Jw)uJ*Ef$269JIPN0YSe9j%B1?J3z z;kysjFz-mHBpIzC3d5dYp*>4!PF%+Uvg6y%`lX+4&64*jU_~lB-6;JQT|d(XBfJL zXKs?o97(3ONL{sKgEvTB)HA9TO>FjKiJa>~DRsWjnkLi~mM|DY%4Eu@A(;9MMM*oq z6)2@W1kL?IB6Wf^{iurpFu01@suwqe;)7j@Q!Rag4vE}KS33Bu0F?6A2pw_)YY0V! z+uFx4DL!*&yx2gAS(x%-h+&@VBQ9Wrr6b`8hD%3Wzy+k{B)1^e)Feoy4&O{_Xlf+a ze$~X#%eko`)l2djMXX!$NyC7AzUz!M+ z^N`Vi;99|)624={ApouxceHBNBU2Bs|6oHdCluMz<=E($O&dX-Eva3 zI5nl#0DRr9kb&{fg7<21S|?TCfctDgh7g4S)6S^V1KO(v1&PM0k$`=+2r-Z-s%4v+ zl6%%|zuhX=MUBL|t&5y)Hzt63zJdF<>uplDGmgWv34sVwQL#Ixhmz`U*3Ze#e+wnm zZE%zC?Iw6ND5)+nlJuEuH2zzIy#u-DZ-#pjLp-VBgQT9V3$+a@3pTKW_grRT&ahQo zy(rV5-yjWl)uoUE@~19C$?%TKY3f34f({Juj_4^H;zhYx8B0U44f1-?4nsLaJEkgh z26H?VN~mh7IO_7*LoqE#_Xf|k9X_ST1@k5L*hbyN+Q-oB z>cO{cdUG5Hb+tE&PC_kj6x7v_yv&h}ZHwX8TV;{0JwaYJ*Xc=--0A5E+w$C^<7<{++ zq0-6l8n`C1MF?t%HcBNepu1XZ>XmA}s%ioAAM2!n?RHmpVS#l$fOfSYVmJE%S`Vwv z73of6g%Ds~EmqvaLxKm&>zX49GuB1{SfUaEyJ{0KPsG z)ZHEj1_1wRK_tr9f6dE4Ef#e{)}0tMH=BfBb0Sj8h9N_-G|&1ZwK%REhu%F?!3?J5mZHf(#zVWa$X z%VB94aM*W!lZL}Sg-^~k9Z5@rPdV&I_aTQpCVa9!giqFgL->TRh3f?xby~M8bylvm zu(TF&U-9DV8@|@@u|oBofC9W#D~X?}AJm1RYH{}+O}`;S1lhHMJZcr=G#h|jEyz3> zYx==kbxtUOGxigL@oK?Av`k}HBT+3#6dP;$0r%O0BcIz|*%SzGy>{^!R0{xJ?}Qh1 zp3!OnzN-akNcnND7QnmB=pr1i`cc7pT{Q^XOqI_pa0id?3gFjkoNg2SHgI3}D^Vhu zdDd|N`)Wa)^*Hhd)Ym8HdH~u$CBNUtUuJ;5S`f0^dSSH}rz+W5+AvyhKAVK1iTm{2 z*9*?8$$p+F9fn6%P0$%_f*kO|=5EvvyUP2p;fnCqY!YSW#Xa2fR(*b`ns4VR4R6)W zy@dL16D6RVZBgNn=JpNiHX@&9E>#0Ny#9Ks)o^7)yLex?(oI8Yb;UFyt8<9MZ`EXJ zCf^{As5a$DjjOic-PO+9D@81Tcbb-JFvPK-=Kd$>aV<_+f#=;yr|(6vz-25ksDw_aF@FwTY^xh!Zj~~!F*&bRa+t;;D(Bh*I zRXTMmWw~V#`?vcxaZvn>LPAOOg+r1{NK%$yRq4fDz$qF^D!l+*Dqg0IP+#%C)T{4^ zO{zzwT;o@6fs3rV1b?l)IJlw;)5Lu$_Z|hkCm{;I^=n-35(ijE`#ZO2!WMsD`kc19 z9)Bp;zC~h*t=b>G7w6bBnLV2YswCCl{j;wD>Z)TgzQ4FdC^Dz@s3ZKVTab!ZoyC9C zUQzusGNElA{_ef_pw92DF2vOK`+e0nd%4Cx^%}t*Bm}oPfq!!o$j>+mgL8g+T8Uk+ zyPx9Q*6mEKiD85eOwvp^1vB@S^VOfY2_MRpJO5OBMcq%~3@wqAd$~r|V7~i?@BLh_ z5|O=#UKmDvo`Z$phamt^}sgd(-7=JjEzu+h87x}@p4m><|=CR4!`V2!F~ho8icSYwcEyo2xqsA0M^>V7$QsyDxpwBm#Z_w0frUx5u2Op_ zrfy$cr4D>kc5A@*l7>bt^v+ef(J-K)ujFDd3x0|eof1uMCs$qnNc8(0M&YF&-G{vN zm|V>Ekc-*AE*AqYJzuUI+U?NOo!Gz<$SR{E9$#L-5o2Clr8W=yy0pAB&sMPG#(x9S z=U$v2Xt-l{#BUZi!cT{XxA4+@jS!KO=&+WfW{Wc(7V#ffi{I!q$c4xnExs1z}-OvU|{oZAZ8-}ZEjGwz+-9V1l^0}Ej z12$GwiBV5#byX=$Y+oVOJ!(r7I@aFF(2PZCVj3W>whZ-$46-1%4ed0Pg3eBTsRmQf z*@jsgG996_22EXhm!HWSG#wCPz$a=Tdx)FrWY^#bVo&8~Uy{+NCf|}#8U|$amFCX& z^m$%NDitk75js8GMG^XY{~;Sarn$4NAzrwBU2_LEdfCbNyxoY>BmVSM*=QaXY;>2; z_=<7BwTen`OjyqeLFnA;5jvGWb(Qtx@u=K=7&rgI9Cf8=-77)w(IV@-sK%t z?+R#F3og**Oj)nfB2jqN0%+Ig3*Ud6GiBX~M4xy+f%E*!k6N!y902YG?M9Z@I3gkZ zs%nB*X?sF%-AI@3ovHe31VoAtulipNx*}^_z>cfbQ+c@=V$_K4P`qiFraeR@uEk9Z z)%ar8f>aF$G+5gZd*93y^4isk%bp`u6*Uq2^8$B36%MlTc+a#%xcWlrU6%ykr{53hx3<4PK|E z%))!B_*%=oIdwL8dr4TMc797(X&4aJSJFk>Q@ZG4%fanPmHzkW+62)?aQVRh=szT^ z$E1t4hjh{Qb?KrYtS9sqafuMHcH`vPv!!HM;Xd_D_3A!VT@ECMDj|cgs=&#HLSuKV zpL;=4ckw*5gjFqWjA=$#vjr~$q%wyV5Y}vg`?RY91eR+rM7PK8OrTsXE;|B|>95QW zNUj!F#gyR9>k z05ig>7KAyE^QeG&-F=jx93S^XSk+>?$(q+E2iR8&>c`i>1CT!V;wjhEsWubJOx8P* z52LLSF4KIKh(c8M(WOY4$ps(r@No+wt5?~#)5PVQ(DiZFMRv%f^cl)Vb`{D7HZEUC zZN3>uE!DkrmKsus%iQ&b8+5Q`_Gv2iCY2A+@@d*d!CSZP<6D(3b&W z_$Fqds)mG++9<}>_)p8enB2a>U%38e!MTQi5n&+f%@bNvsbpU9muswQ8+d99Zim#c z?S|s&>P21XhSVw!NHK2)(z;#ML{9ozwF<*MC~o5yHmD;JY#MlASa<(svr_$-Zw7o& zTqUdxUxni8lVkjxX|1_b{^aOYnwWwgJ0c&VxcSCjQrwUTXellY1B&}f+G%@AJ6%dH z6)nXlo4~vJWIy^3Def_8r|lu_w0&LL35v^C^qm0tI8UN@P^GweSOoVdqPIR-QwTX< zs>=k5t9mTkRg$V(x~qaF5z#Pw1LMh13tqtWm=K)T5nhlhO}|^o05G2|h+-ufEm^b? z0&2n6gn_Yr0Ri%ALGgpJvkbbc7Pqt9RZDlxg3Oj7=>zWluIfVJwa`waQsm#Qo8eDx zv8v<0y8K|cwk?+?;1X7=y{L7Sw@h6qJQ!*bat(#2f#|xiLU?|-Wq^0J;Qz-Q9(30S zgczP#e!p3quj`nR$Kk(TWL;$-jjt6}n@wP~T57F#&#K9VppW4`3s$Qp+cgRyHKDHB zjpO>p^9*~<-R^M`o{^*RwZdex2{pC21HI>l$z~HO-6@r8;!9z&`lujkH@S*|8VM)3 zCdL%o5N`X{9;F+q@lj;OS=+OJ-98HfD&t8qTnjQJ?#jl!YQPrdM`t63$?Cp%l+kKD zvbx5)_am;oA+Ne%5?=Fg_%&ex*(6*jvR(}@HFVoTY{k~Np|ZLZ76IK{#juVix#7_U zb;Kq&oebTG!f1HE0UA$~j;SeQ0A1DDZpfxVSUe9ty$wIjKa1n+2tT!*u2*R?x(vcz z^3%`{X!$7(1Ah8SerkKlPdSm}c0}Ew#H)U^4%z52v8nALHnn|SY%21o$e8)W&7u`A zgMf|daaKhSaNP7@E?P*u%c)Xv6>_S^**T!Ns*_NnKJTbDzbacqeiaeNpMTW?3|9*h z)XS{{;ki@P1)PLR;(kyIO689O5&&?uh*~@8*6Uq?-)a%+u;t!?Z0mIq$3UGD$f(^3 zX>CIm1~awMQU+m2L|~?BLB8_X?FV-2LQ&+XG8dSs_BwA9p;XXXEg-z(3JyTGZcFIk z_@e_HR|}%X%R+(Uxf4#VRn%0g1u(7_XTl*WnFGnS8-d!5Cl&&lyW#%g23l9DcDsKT?RV%RDmV z;;=?T#G9+YKXo6TG{31i`8Mo|r2mEs8+ehqAc=b2?HhU#1KE|=GQ^4kLh7V!ou|62 zQRv0z+YpPdipF1PAax}gOP0O~+AJt#SzC>X!4yTXrdKhXVo{E8OnpEj6vm0D;S`VO zH00EPiV~GQ$JA%Y=p!ax1$e>ctv>R)vp+Q)u(-4RLI@!um zyU+r|ua}H7bOu_+NyC6~KGmk|8=U)ms!i=RN;NAQoaTb3{L;Gzb;v=F2~TYg;i>KG z!c&xkTQ`m}Pv{KAdA<(|XMzrk2Zy90<#YZi zwwDsTQu{=iG^H?R0bXYdj)e5+r8+@?YuyT}7TW0Oz$<-WC;kkeTP>RG2CzE!A;hb` z0s!aShx18=(dLW{aMnv(fL6ux$m`dwK79oQ*HjaGH9?SE(h;tyKuG0B{~^0NrmVC*l$ExxD=WpvAHn%6G395nD9+A_ zKr9{Bx|}tdybvuF+<>`d^sP(=w9+eZW^|R0pTfGVKY6SKS$+Sj1kC!M2*1)jdo~|VIwDL=_MjC*E*@Be9&~r6@0~XpeXjpe8W5A4YSHuIUvUJW>|HEjKQpQL5=b;e5ZUc zt88+FIvIc+WLxo))qX15daC{G zHM%cXlz;lNh6yYm{fBJpnB33yko(!bF84!53YF5)a9F73V7}ZdJOs-) zY6@bNElL1$rJR75%34HnZg*bU9n39>+;CUOU;))@-tr2j6oOUJu6 zzXZ|BozU^CE<2c2?gOizp4u2Fp~*fqF;v3WJY|W7Q9Ks)<_(vQ=w3smY`l6WV1N@g zJ_dCS=N!*K>ww_io1xYbj>q?)uCJ{FGiE0dZw6=$HOs%~%}}#Zv*D6k8z42*Z1m#> zH4QZzSsREn)NEvJSkX|kfpt)`QL{bo4K?enjhaPq^41YX!+@GSMQkcHdy3fXwLo|- zgZ^>Mn2x4OsM|;XAvHUuVzWI|Y__kf*nn$fS8*Wr{I^EBDkGr)p!KKw*S z5HDNcJ<){CmZs?pB6&0BR^VN>;8au#k5rNe++_>S28*V!?R@x~?gXe+K1Xd6FtP=a z+~nqFBrenwoXi$cXQeJaXsMmh5vjePY}#ufq9!O+D{S2S1Fs$^rG=oOvBJ?^j#k2J;K3&@+V~OABZfAYaCFC*&iw~``1-sz@_bs zWFd9zs8>tbk0M-XW4Yd&91n!bP}bWkSEuYv2^aXO~_r z)#8_G0he5)Y*@XkU%3Tms^cu$U%SQWHpvX$h<277Q?j*9GCL{c_{w|T(r{;J6qP+t9Bh1^L zs}=4#SEEzheSq&G*p22}u$60^qS=RTFB7w5mm z^Jrj2N#)8l4W1&jRCz`~ZUZ|ttn!hVg|CDR~ z-XH9FsH340;r*4K8V)@~tvxpXPkQMihv5c8M}ip*la5f>0#G)Ke9}2lE(kR@DR4Ds zz5np%Z*KBWHK|@gK^Jc}h^jnsXl*$3X>B|)YHxR5!kvZzPkidPRG#?MZ#kD_g!sY# z_rVjNUP4<*Q1PSF$Tdi(Lp<@J+OmILwdD>^zS96= zD=6RBWRYI@rYL=wz_)s{fZqJOz!YVR{y%4Dy5mT2BjHyu`~b5$>X3l7fnIxk-?#k| z2K;AVe?Mx}(-}dES<^kh{83V>%F2q0Vv-SU&JiFsw}k7x?;`+*#|XN3P|Pb@Uu_ip zYJ5~?#tJIy_bzIwl2coNvKX+1}2RUSc5GdSZLa}{tk-}}!P)+< zMbHB=&Q-}7$KT+c1Cx&Sr~vCRBJ$Us)U!JjtkwwHYR03=s}HEQRgD>Zn`#89HG+!Z zeANKwaTH9J+p*|_wNdQ7=2Zp+>v!SYn7<1l78`b|WTrvn@yn3cI~N(opZF45C0`t! z6rM-~taS~Ywdb%<uYFiWayIcUx7jD6+X$WUuixk;JO;tRc){~m3!4JYsf{< z;Zzygpo@~fVpVIB+Uj* zC22NbIzpOZjXEcKu<`!ubk-p20BI)U=!lsXf&B`5(BByqo- zXSe})UGKNmr78?-z;}&6%`>kIAYDhDwx!Ta0mjE+q`a`#ZkIA5*A~Jm&2vYGtPNwM zJio-TJ1xVI)R1(2MY!Oh<1y39j;y#Y$byIJs>j`Fj3{>64Y~l2srQIs7jHnPNh>zi z*LIoim7ARb87>=P4&Wzg;1wo&xqjizzzZ6j?8W_y4ZY$iJW0?(J@pdJIk7<*+a=nS zUQ`MgmLUYEnd5@)LPYhpFxFC3uo{{%`HB5y0YF>(RzFcROc|c>B-ZlOBFSukM!Az7 zSW!j*EmfQ?a=C_Kp;RV+1r1LiR&>l8Z1IXcCDDdqRbfQ%(D9586h;IORWPs<%;mR8 zvly=1vdM)J!9&MidC5aV(YoZJe9-XFryon^p-(@SHMO%WqMiMeX8AY|<9dMX`}mfU z9`j>au3;d!e8P_r(+1| zm0Ku?*)0-ORfnOEonO0xs_L+;8s^^|U^Z+nkf#~Ay z8Fxs*Xzhw?=T*V34cS7`QAhv><}}ctZO5uws7Ar*4BJ*0uq%GWz>VaczCacshHfF~ znUCJUjm&V-TV{C1)7mWbDhn37b>>Xh5DoKbik(oQSJksKi|f;EcTe?%JQ&WSw3aC^62}yKmR}9Q({$B&#gp1@81FWDtC`KU&&le zBK|Bk2$|6U@+y?RoTP9x{{|SZV)vx(`X(eGUL&w1>tjw3wR$RV8`2htKTBjg)JWy;I2n?+pjro4W8?$?J{Wu1Ke#!VXjIU?4|_i z^{S!4oR0*ys-y7T7_U@bKVZ8?pe~$8!BBNwQlmR_60`_prTVTUz+CT^8~tW&Y8))r zh~+ZzX$`$F@(IH(ulm>5R6ts7W&#UKL*`(7$w~O83&`)5F9XilNy`^ zC4@Yc7KIkYss?WeE=-e@Fj`yDW<{J?pn)A4$}}wwf5m|r+F`6R>+z?F$gcP%u9+1* zHN1la>#r2`90quiHYpC@K#nbEUg&j+J5@H6gZCkx_%L%q=b6^d7|V1vCdxGpKJ-V~MJp8;K6IBYlk!Frimw-jPilzvm?}4MpvenDRkGOrKsWnV7zN zt>mU8m5+a{tK5|IKB#4*$1GQthvmxhDa#c~(l|h@n^-B^H8&-x-oHvz7h7_`wVwU5 zYtkY;dO&LvmZ$i&+U8fG^~)yt$IO?&XY(q!7Hk4Y)=}HciV#FrmH6{ro=BOo0LU6a z?rD6`XYK?zYsBq5$tHr$8gajfQgxnDpxGiY716v;YDTw+{Vtj5%sybFe&)g|%3@QE zh$@lxsDNc#qx8tPTn%Qb5i15P?Qa0s8bOAAeD>wp1-*5>?i8G)RSjV4C~{AIK{R-+ zcT3y_>3dL;5_&E~#KFUz;h(|R9bo}BC zFB)f2*%?qmQg>33-i3e~KunX!hIB~uPC2VV-I1DJ!#Z9cih2u!w<9$QhIQ1hD>*G1 z;SB7KsDT;sk-1HYO?Lz|djQ<`Pg@Fm%&}#8IJPX`@7NNqfn@YP(lfa%U_6O%4V)-TLt*8#X&2pl z^Dro^x<=5})T{J>@ah0Th9W-)0d+lgd}R8>6?9f3VwZ7PcbO)G?_)&R2HyKEbm*)` ztXFYWEEB34vGdmwF6gXA+}IsYGzW0EQIut-QQ*1#I!@>9uR~ky4418^d!V^STrm6@ zej`(Sz}(j5Wl|mimTLrQ+Fk_s*0#jWDW~e*;t>BVx<3 zC>Q|9b<~P2cze|%p{gO=gL%F=;f6kFKmzA49s`|IYLgy z175>*TmH%of4xMeMqBV%!!s^XN{46LYP(*VbFbRv4AHoEiyW+h7EwAC$*M>en zLW3%1TW79Lmg;OX@niSfoD;b8%>bx1BDAzx zf<;O}Bj{!8rLw?mji7v?CvgC{MX-fi5l}mlhra!{qc8KOezsBvS+-4S1T9T{eJ+4) z>k?C@_EiA_su8Hq+k?c`K5(rOXWeDYXAXAj8YMs2ry&7yjkuoJ8u<9jxk6BVjDUdR z0yUmUl~2`(m6yoO{{V6w#(YlrA3#2a1Q`uUP%kotfa);TWzlH`e(SL7B0RCqn`#Jm zc&`^5dDAf@>K|u3%ODNUE0KGvHmD8XAfu}9Q1Dj+IABGZ4Xa;C2uBuil4>=GW8*(A zMUgkvwXjJ|{)@b+hS2O__m}^Qfn0c?=0h=DgNsThVpVovz(${!dP)~5L73@y^t^8* zu2iH=$B>m9ah7T2McXh)LyE0_13Fx;j`UO6{jTRy{E9&xO-)5PgrOU0?qVVh&|s$8 zA61ZVL$sSWY84y*ykG0wPpe{MQ(xzPS``~SbqqO@TQ#UFbE}4PFL`Q6)t5Y#4;r5O z${=WY8U$^*qe|^Bz9PuSnsE_&zG&`s9lv%&k@VpYw0yrm5X6=Cic3h5qB3;5Tr+VU z&x%)j46%p5lDO(TtfxIcr2zJE6vTC%C;@=$V+4qMEn0AZ@^KVBpeOM^&SV25*9a@8 z%a2P^3_2$l)yl~<9pb7HJO}z#D==LnP+FfU(OX3LLk@rC=D+?1tra~v2HrJ-Y+U|c zGN(GqT6at0YBRcOOd>M6=3s@@KI?A6yA ze!V28p`>4uQ$A?O=_`w*k z_^oSkn`txv-x_f_O1KT?6f)H~_HFa1hptTDxc;^^$BkLo1y@Es9Fe>PmIC57m|Gy07a>4FNN2H7t8Y zLDyG4P4U5N3d*OoPt)@Qmb?2jJ$`BC)AVgnM?B*<4rE2whfmY`{XR{xoqs_N2_K*P zoqWuavZ8V>QR-bKLhXck+V>@9zd(6vP>~@iN@^uNeSWE<*uh65GL8C`j^e$O0)jN^ z*FK7K?itB%Gy+8u>~$AC&9IRw!ilXI%0Z8@Q3spw?`A)`%^s6 z)gL{AW6J5dKc%y!7Ov&ce@-)sy+IrC7r$zm7}$dSt4FNZsJDdWZys^xZ-}UN?Pc{| z+4~bA&dj6!kyrA)mwElC-yyfy&$W~Nmk**uVX~Y3<{>mbP22G8_9jC=>6QA4{t8dO zo9J(p)ui?-*Q-<~mYew&az2HyzE>0cOb>>PnNr1)kjgjXHmY@PWg=8Uwx}$(U5P9# zB_Y&Gfy2XJ!C^DlsfbX~AaBSAik@atTn2sUzH7xuQH)^N2PrzuXs>}^NGKJutp<3} zxnB@<13A=mGbJ-vqrA~Floji=$Dh@b7QbR3hqgkIdo*0*nwYRt)oPy}nHB5wTUE1< z#b)~7{Z@?!v9n~uuX0b`?wBLBqc*t~QsgHMz1RmxIcCq4{*MD*mS{yE%I5Y+?Wlyj z`SE6*pw9wv5sYF>&j{O0+TvYg*OZOP^_v#0f8_OyP#+0!{>!gy`_ z##fTrlbpnYaiqX*#>1auWg=>X(-s7nr`qD2%l3O4glK(!WP!!%@q*cDzXu8wj}Z@{ zwO#}hB-V)iF0L?{Y5>IMZ$mrkB(-S~^q1wQEjVn}Ep#8XJHBADMr>z!Cgevo2yMTy zNLnW!6(rPrP}E5&M}W^hKNF!Zz*?^X{JBp}LP9kn`o7z1014HIi;A7*xdOL!^^sxi z9VP&AjaY8dy^?kr&EDtPg^}v*wX5)F!Q#Ml4Vh<8!E_BdQ&Bxji%Ljr=BpS} z=8ZqqUy0V>y(m`wUmtd*UT2mfwSze$Uy%>M&@H_3!7Y<1baN&q{I&FmZeFb%A~Ud=+=lU z6~>btdWi@apSVhb;^S|SVoFG2D+CbNxtdnzf#Eh++P{}I#i6cx=6m$F+kwDVbx?Sl z*%(smO(RYfuGvq$;Dt`w4TshMh3*z5KXF9ow_hmy;UqRkwKn~dYh8D95?{3 z2WIK0oH3!}-d4bLTaFEUJ1|X`Mp2^g7aG8kq?t?|up??{LNpY1xn8Or&`25J7W;g^35=Nwm_e{9I)9~%t$$A&rn zu>p*KY|!E#8>;xn1|j~jp@)4O+^(4x`hnVy4FUYi?QVZb*FxI9q-%W8(6y(LQl@K9 zBc&x(R<7p!5x3v)Lh5Zl--fsR?U;|!`tVU&zu!kG8qm?Erh2hwz6SROt31JTs0Vxf$wB~5_b7(qEH*EMBMz`Ai1Y3D+2 z3dB=C3X1kd0#+s)^$tKg*89dzCDHvz#qBeGx363Zz9V0jD)WgmI$7dvu5 zwJsTX(_zmd{|fM}lOl>uWeAY&D=2?2l+6}RQC|j08wW+JjwenElBSnEXF)s!lBTm_ zjH{r6hGVf2EPuH(0X0uM;bIJ|OwZR&mrLqI&JZlgRDv5GVh~o@+IWaz*b%yDAa;cN z8KNBtF?=f+-8i8Iqw794m?{`u7i|DkFuE?1r+3|ozZfOy>>c^dx7~T8umeC#a z6k3;X#$3POQ;7OicGEb>ucC1K)rbqoX!`x?bD8r)Fgi67I6=Jze90SQ;Nln&B}F2c zSk^L%Y(E@uxr>jSPBxh6<4?4K>mWeU28Cj#Whj9`Jyv`_$HY+h<->=%XWz0j}wy)U)^Yq#;$?n<;CwQ?PBf_aM6L@Hx-Y9oA zTNCR96LnOS!4|DCHj19BJfR?@UIJcSs-&9EAq#4J*5;i%pmU61M%4x-C+?tVI-_Tm zt;?lg0Ibd^dz<}HA!TWEvQ2mT0AihNGdU`}4*_Ri*1}8*mSqUJ;w(Pfo`SvU6l-&H zMI;Te*tIO!rh!x_uFMX_P>K%MqE{Bartn}yvJg`-Y=T}Z#mi;PV{6uxj@tV!=J(YYK?@z??`X>@tSSo#r71UPriRhO%iw)Nt(x_vD>a z7nS`8uxL-IH$%LF6OP|lWcj*}4aJHqUlSc!zV2g#A}4(YI|V1KzuY)ssH>NpkPjM8 z`1JG1obc)Av*toVGnR;z+hzIQhqs*Yn6uCNaQ0ch-`OXUa5y(3L%tyAhT2K;nOya( z!jE~lB}-1IrWDl4_a$7Qtr;mGyVB+bf!;9!e>ifLE$;+*HG+M~zE=U@9V1|>6g~}S zo>>>TtG_|DTi;;<3Tp(+yx;o-gvW^e%R+(Wa8#K#fx$Mr`^5Df2p%I40@h-}e9b{% zz2-Ykn2Epvy5lGc1omaj8$D}zmb5r8gZuYx8>{ruHF-o zBOh@(ojF-Rjks=Wrmk>I9d+8Jdm=}G&bodU$lUOkbDnTaTMeouR8+t)bV(Mr$-j;SGRSL6aTXr<2T7LDj$rUsMLQ4}G_qc?}ZE60!{ zdNK*=qBz=Xt_<8z`Oz)$A_r^eM#0~-E!g0VPL*U4>IY`{7L}kv&I;~r09SEF{}n?x zB<%C9dBQY1-GX`>s8J$6rQU{Wh!Sc@k;65J!$)VDT!vTb$^$q(n{22?x!m+f4AzcR z2^g*&N&6bG9ZCBpl(QM)j&QbaFn5GU8_pdF39_p9^OSl=QuBL54Ce|`JAUKKt?Q6q zFG(#QG^F-v?UPCE)7ocE%Id2Ky?=dy8}P_pMgZIQ@hz)8X7;l_%zoBSnEjkk>ROP$ zdH+9WI>*zxQ6Me%c78wr_9~Je$(%wLNJhbM&Z3o_BLI7~0SNX{b!v~JNaWIK(z0;i zT_cdBnKsOf5$xxmp_ap6Ix4{3BGhaovoo+=kLte3&T-DDg7khKW1hWe?FHyH;)0Z5 zI(D#K=bg&Netv*anPkd3;7*TT8B}%TQo(3%sT9J z6`9Q<1Y{mVFrHK8rJ|t#2I{MG(svhSg|>`v!_?cX;HI`J#5Jty05Q0tO;#IViX<=G zRIlYCjrLX7g@G4YwD2VI!-t&erI>p*8hX*rk@!xQ0$R(7jt-om{drp&p>pBnHM%iUY(tvffD9F!xU|hxbH%%jz%0a5| zkEEldODYv1Jyrbc`b;O;2AiB27XsZig8X7{#|XHO5j+n#_2CxG88@(9BQB?+0Tnp6 z@8ye!tCX(+eAJFzy=F420_c5yCNArszD8VDsR%5ysd}Anyi~Qz4a~QdaoY3u0`t1! z?xvGc@llOf)j+UR4$=the##8$IEs8R9p}Rt=6MI@HR7_1S!Vu?*rgvsLIpeQ*gyVq z2Qw(IAym9fdZR&k4Z%4&-@0!gyADHJpzj+C&N_xfMY9wp6r_)Q>KKwFV~RYpVcQxu z@#9~SwKZ_#4Qp1%5v?$~EO;p^Ijde|v}GqO9nNa&VoJFU;?SbBa@%}hhH;_2Jv%T1 zxkw&L-nK}_8_HEGPR=_G^4K&|G0P%3Y?z1O&kS1OwwaMW%+-^Se zC@MvUG~`m8u)*H#i(a~r;BwjxyB)vxNW}>3b__W}yCJ(atw+eNF88@=WrD#>yMx^t zI#pWhHYbPZ?D(}W>1=4Ymvoj78an$l0?KsuX$0h|I&b1nw-O-?_w|EfWFG{FGcGDFs~K^+gWVJ%9>Ht*563Gr$;8h zuEPH7R^I5N8E{=s3j4$Sj0ehf)GGbtv3+UvA|Sa&ps76O333ELK1RS+ zsgrDJ1URk{AZ*XNfpPndt2h_sqXNb4Jdmw!bCxhyjo_(0zCC0v2Zn3J^(0!!C3Ds5 z%$|PFz+tW$vEaVh&Mt7SD~^O&Z&weR+ZshMs%4vixkjAs*D}L8j)KMRg_0}GRY&3J z)oW=6a~(rquDlvfnX86u7Z=#hu9fyH^a>QIUqel@g4_U^IuBqOif`=8>%*)NsWIS! ztx8dP2%UMp(O@h*3FT>CkV@F9uCQJE^b3NUKn?tz@K8fITuZM7!!uNa6^$K@j~1*V z!>SkdvBrFq!5RcrYW1r$vf&y8HGsPi5*mM=T2j5PMTM?`8P`Y~w`xvmC}13|%(&_; ziYDUtSNw|M8R_2Xfx$_2_HRYiwP9FYw`{P57mxC%qIkk^Yxi5K$e$W;;jvogSas%% zW*2-oVc1m2A#$uXbER&Oj+r(EMpAVQNjY?uuq81gsXB(dWTBzkUb0X=Xjtge@h7v; zcgLUH#bg#0k7fI@8d6gAeRxYkk2(IV567SN6OKRe5Te|3L-ZwTR@Y2I$Fo9yOABr0tjwt3anMnoR0o}rybU+ z5gUoWbR;0Vtv;Lq+Oq}N(^bnYQXspIg8EN|F*SnTygo+{%Ig~4)YK~PnFI0~ao$Br zvt+7c#6wZ4?@R;nHR5`kC;FrdiaWl+Z6dLh^qazc6~&HlRB zw1=pUA&Fnr#Q=I)REZ)aor=M5x>-H z*9#_lU!{bE!P}9d2gA3`6)5Yv0i9$!m4aOx!eKmL*;X2)sW*KgEf%R%ouW*qgT&f2 zRwh9*<`rw*UYP{N2d`NxpFT{25^H^aaNbg%)#I0DCPCi@bzC)mC|{dL+~=(aGOF zv3{iyfV^(sWG47)kJx7}Kfm$$A(hnY3;fn2D8HyUsm(hcG1Xqbjk;Tor{JL;q5as^ zzP}&IWnxDECqKiLRAjJmQ4we7my#?rV|9 zL0{AQ506m$gChI>PmQ2QdYN?I{mUbkO&fDETYU2nm{WdbfP30KeLGEDSdqX?Frb!< z`CxwPAvkg8^#~7jc-7kYqP)RS>_)$!Jig29sr(AX=F?i+U--J;&qAyUzGk4tPN??j z6$fUhMm@FeW0$E^16x##<@_sBY9W>)FUoTb*myw+Wj1HKzw@hiozm#vrwbl7y8gv~ z&`~IxOl{5os39Ar3cf5dLzQ_6gZp_ZRYJI6+LTsMXG1#PL5o2Kbg#TB(``6AUIVw- z#Hd_@e z+r7%AZhX+N(x;73W~EOXp)EB^#TS0q2t6yRKTgAQso#dT{PdWw(Dv{Z+CJec#IoK` z!BH;v>kdgxxl}nTa;bW~GXnjb?H-wjbt(4h!E&{Zpi8Rnpa#m#f`tl%;ijnarxFo@ zm%=+Tw}GFk696f;nbW1s5Br9FjuseKgM$6K=VJ%Pbrg~{y=4$6u3jYUp^Y<|pY$NQ z{l*{R+Xr}6gJuSE|{{x8r#!* z@$&{{lmnQvc*#!nvZ50*{uRkk*r@`h?b?_5Qwf2cCT~+Gv<7Ekcq<21vs1s@XPnZ& zjfeWQ#MRI(EV^bXSA#d0D-RVvVM8=ZT#qnUyApaNWyaL5#5BoD6@cA3MUoY&s#9+o z5xImRn5#lnkz_SEdr4J85Wl3Ve9%zUSMEXE(>-WQy;OXXsH#B?X@K`ZEkQkIBD6hB zgtqTD5jwNke>yL4JyftM6FeuEbvYOO)O3$CzsW*S_3YX9?H_tTyL*R7DlI=*LH02M zITqO1u&8qcX@@Z){4I+o9t2fK-C6hPAqRY$x64he(KEq-lxhUP*3(Upe2n02bIV)~ zAlE@>5zs2Ka&S`rT9x6cIH?`_ZPJMbC)EgwPe+WZRH!ThPTH$4z)$r;Q6tgUJOJSu zu`Hu@TydE}a9w2gJH>$?fBAX<;I=GzIZHDNg6k+O7JJPt_^I9?`+4u{O39^a1Zoz& z8XJ515)z7ya#%%P5;z}!g>A)~v>_;JMZeHSCZ8+ivZbf5an2$Q(Aag7vgK2qN!8_f77N>AqY7<$TSxeMW#(p(M&UaV$X~%A4YO!ARMJ_N zo*G0SN|zdz&e(9IOAQ*U1}K}ke1g=P%9xj=Gi3Ek(#Z!6>3rpZv^_nLyw#nH--oyK^Oy(H_V7U3zTX20`pJVEE8Hs*@*5Rlsexb4insox^pR>!Z62^+?mMbM z>v85n(Q=|s3H?;>k?pkQ=REj4jsh+&OJAb~R*w-;tsqsFnbrc;8o}mFpZfu}HG;fn z-ys8Pj}df5?V`(+`5XwY5tpxq2=Di1W=;UO{l+qR-hWD9y-vH%$&2OvboDy#V$!(RKq(V67mEonj`tGWyn$H7_*9f*F`c(o))d;qa z`!fgc#|Z8s7-#!R21nJ1P)jKH_{U+PfkalTOQXkrzlLysPExh-QVl^*q}<}yQD-uu z!@LxPm-qZJgrYd@?<%%}$)S!RG)rmLwP3Q4RJ$9dE$9Y&3!Ai(N-DTy!o8fFE)uGG zk?*_kta`g&LoltM5N?CP5Kf(S;2RE7Xlznd<=($ueOd*pHY&LksGLo6g$eznXOVNS zq^cZfG!IzNLBqdDmCiDfkXgMHCelz8v>E~)NtGG|k}54Kcn$SPjux_826V_yDjh6j zw+!hhqNv)aY_f~*F*JKoV`|fRq{h^6sjM-zG4tLkV~a1zYv})%>GYmt4i3>A=V5xl^(vjbuE^N>D|{2Kta zMv!5d$@yCZ36?$rxYnyo2Cw3%Iw(pXTG|6z>vH3<-zVsSZd;(b*PMAU$gL3wwM{vy z-8TEJr;?z$M)1NgQHdgtI);QBl5g93wiCXpAu5$y{rFs;kf@w$7^BGE}wbBKv5thbF!5TNl4# zxEIX;GGhhDH5g=(gaKA=^|y<>>Xt>Zw{O@NG^xnl8s6Qa;dlHis8s^IEFR`t)d}%T zeyU)P26^avA87TrTU2xHm8+S79vxI=tH0lr#jF_4kGu8BRp-kWT7j{qhmRs*PLeh?SD9~( zJR6H`F47b_4>W9Lx&hFu?aYD(XiGO>w_^lq+_!>z0`21{+B2_G)R-v-$gUA=%JmXb z0K3kKY5eDE0{E>)tWe@MEeXbJ1T3a6oCNPRf@b`_SqZqe2wpK-4h`DdQC+Wn;}T$R zXHFr?@EiGhkdM#^IAWh<1nTt)qBGf-jFOGe2(&Qz(rF$7wyy3)@(|qDHM+sXs^S1& z$&)f;60c(fjaG1p_DTWt8nJ5TugGEo^cuplt{bh!VPQltlWqmvHDtX{^w4Pjw~#9p zuVq1ielu?%c~{_#Z0k4-zN?(0&bE#rJ4L$k=22t?4bw<7Y1>nsZPmq&mRRP93Dhte z9G|FlNr0{~P`+%T(o4QmCaQ0^1z)vQGNs#wW#m?>>IlOx>RNSIyCdpCag zhG3W;)>+i?9MKEaQiFoj8fsD2ssyIaq8eCCbG3$BwN$gqz5lU(hI{g(xt(TNETmec-$_EW4 zePukgJ&mXK+)pKz1*v`N{nM6#9o7V)vHG&!K`3GpO5sS8gm9113!At&(jamd^qlqKHK<(I>(BXSCs{qS2;(U_p zoUa-TRIfqQ{F^u57S$6rBcK+{=8Dv?+3F=VHMRp>&&EDiZk4gCQ4IH!Vf zC+M?xvLcb2u#c^}Ie*oKe8sQ3r@V%Kl)XrTpsIp3_=AH*gKD7%pcj0nU|o|S1%K5L z{Kh9C27uuMHtR7n1f&5;%X5ppdxJpQ{WRTNgct_WccLLhNkjrfEwl+O4yUaN5i3&x z1H^~ckKKCyy@rUq2TyB23=*kF$;G-sZuJUJ`_Q7?Rd4C3(m}LbjUfjt5hA}hhP))V z;So@hTRv#W?JGB{?dfK<=MF42Ie6R#L;fnU-S^=w+dbxHwLRRdwokZOg+a%DLhx`u z-;kX;=X|T0NZcaLlY&(zPfrk_T^%S^O%&xk5y);f7gRsCxlDjvBS4eB zkq2B?_l+~t&=LVSt@(AVvX7q6160=tej>9{fP5T9y#oreEqf#>p%FB{^!xMVBrHPH zQ<=X3>2_2qOjTx8^=#Q#?Yq+ebdA`l1gy#iY~B-w+dc^pt`XF2^dt`i*N78&o^~|= z=eFW_18n&?Xs!`lf@y|TBTn34`tbG|0HA#gK{JP{`1Y`Z-)hLhUQOnKz_|{?7_Ps( zkzpM}qK0ASN&u(T5MI#gY^x4in3aYvOXg%A9yK2ap_t5;!25NWeJ}2c_(P%Y( zGi_qpmtK%hgEe++D~|w!GAy0yA^=_CT88za&q|lyO~kWbkWvi+h9}(7zzphZLZq40 z8k$A=QLbt+lLlvDkfYht{3|e2T?totMXyfZ04+qLid;LSbo^qqpd_Vy(2&xnCzVl8j_lo&Di;B$1;XS0`k>?IL`vU>x1{u#CDrz@ zq}smUl4>V6b3Ku0T-pEMFKisAA^<%r3eoyU9eD{grQip~t>sKmfc7yWq}SwWkkfRa zyn300N@+{Y0QoV3(s2yy2LvpO1I(X-eY7E>EPmDBxbL#npCh2I8bRkyPGdq>^=zq9 z7|}aNKwWi4@vs>qGOYyd{Tj#)W`5QK_G3hJv&BQu?h5dI9K|cpD!oZ%SC+0HC`6x7 z1>MJp*c!{618~6TB@yaD5=eMCA>*y zbsTm7V)cVX)t@04YVz7jQ)HS9!s2F-i7ZlJhG8MRshf=X5pN(Co#e9+n5xa>Nc&2i zcWA4I1SEM1EFsrir^sOJh{C4f7#f7R6w;83yFZUHtO`*a`76HGfQ!;kooW`k7iB_B zb*br(MCF6Ai8q6;YEC@FfQ%Yi{p0jK#E|TO<^5ZNGW!)y-+#rhj5|&LSVh)L^Jc(y zB*b9uKuB;_gMitA1!vWJV0!w&S;r7-feN--fBawn`S<_*_`mt@2mkre4@q^sVyk@6 zu+^t`Rc5PC@2WM|2aLuA&z7tK{q0f#w(sLxx_ZpKYI~ShZQpNR#dZWro;TjPNV&r* z7dv6lUi}y_=k7Q70DCn~IWPRg$6rZT)u93hr%b_s_i+@uGFoAozZY~@6BD#^`s^6s zt`Q-y-zJs7_A!DQD9RFsv(4uL(A#h5>suzZ;JilgYSG(h0rNUnNIH~N0y>K1YW{Vg zejLTiHg6N{s{u%_*AqwEsc?Ws;7-vCHi7fH%9iW37n=g+#|R#4>L!(6ia>ddzzVug zssZw2M99o6Wh0i3T4(unU|l2l+I+kq`8WzB*9MYe*AyhzrA777_>e8~YaqFm{8l-47rdo-JI{P~-7qF${|=T5(>6TU7Cd5PBh1WmiJ;9iRV-VHZ8FTAEqVas#ihxRSr3G}F*4YMeDDb76xo z%2$gMhNkLjx2nsc$;Y6KEVEsTOhFTtWdneMwHh?#uQm8$k9^9X4ZrC6pB}sc7+KnU zBnDX|>-CS6>GfCsMzC+A-7k@&i^?`@^bg|AbZ5 zi5K{tf~s%V!xO1;5<44H8T)@u-TNSv0Q9eueX(C?1iBO)#keGjZGZWVhp9`yrTQ!V z4I~e?iT2O0HG&p>v{c#+(%*Q*Dopm2x1WFO5gR>hE&2Ujir7W)DJR~3pNog^6q`={Rr{;2J_0IYDl3jP zitl{8M*r^j!JU@#HsT*1L6v4di~mgb8U(vtKmXDQr~x{yRVk~&)fb$Ki(&uc-v*T( zkGN>l`iX~}*jj0CE4KROU~s|_m5)oBGSN5|oV=XKVn+Q#H)tol6_2!DyyuY^VmKv5ajc3SbvZO+~8x<%DZmz7mt< zT-tyQK$x;zL$>H2pAln&wh)b*g&4MlS9v~qgR>C#@^r4BuwfhhV#VIR!5PKQ2RN%- zuFwLOKi0GpZUeU@)K%oKGrH-o6d?w0fK@({1ZeZl`!~J2lDt9Aag$4xDLRnjCYNeY z47(0F$4!1!LSAy#a2u$q0d_uUIP25TDs$GSpVexuOB{~)8YIs8{%OlukJ(r45BsY9 z6ZTbsbmR=bJwuY#m7E0jRd`(KBQlkz>S?1xb6_7qgP`STy;XBFfS)~Ywk zrsAUoQ#5=7BT|o@lS^2uF3JnfGrb)>#Ly1Q=_IC9P*`0UTXGcf5W_nJKbN^qfL)ih zqSFR)Y_Mx*S@8m4D0jzTK(2Q|bPeV(%2m={u*-yVI!DoUoPAgAraq!;WjCBQmR0oB zppNX2NxbF*GpysCWm-pS!1qdt)$St^kD=i&lT8CYXyBAw8}fy#kNg!mbAvwg-87_B zxw0!^6h2pa1f^BvnI^Y`(rQR?B!+=6IcyjllpK~18V>t3y2>2(-RLUGw(g^q!m~zT zSU{;p;M@3?)gJS_+8>@*`=>mwZdX$4r*HqKOsraiT=f}{H`{mws9jA+7PJhGCxE(8 z!~$s}cmSx?1qsleD}n#&DRaGuUO;|)!*(@-W9pNWpuf)5dX8;IW1lcwGh5lE>LTwc z1O8(~fI*??1>WnZ^BN_7Nvkz|7j{S=e^u$K9WSpyy_y3|R?iT@`M!FT9EC=N(ptL$ zfOow*l(_VXdC*-WmQ^@YnTpkjQ?xF9{N)H(t*y&Vvv%ov0Q4Gx0oJSo%kCDe>3dEL z%J#UQ060xFr zAGSM&Al!Y_PVa&|@YzG2-$h3!nxKY<+`ca`>4T1dqx12y)h*I8S#a!dcMJ2Jp z8!UFll_@4LL_EY|b;b^{SexYRu4UNvlEsGgM9E_Lpkc93=d8?P-<`8kU)FB69*?#E zF`+3n`#!uSvB#XV_J?!U{we3I`*Nk>{IqU6n?_4AZk4klH7ohPqOc2O*Lhgc;+v6J zwFg1DbV_2!h^R)8G)8``L1M><=nuN}-D2RqM%*v*OwSYsxL5a_h05BNAcFQ9aXU@u z9$-I4fD5!Vx5NtI*NF3Jsrs_~dsm@fnGOT>cI-ECZmc8)EW-5Ns~#<1eK($m!(UZf zpjYj7m)^Kc(jm7Rv1pY;Np3abbe;5?L2h-uu3`Pr(P8jkBhI7)+X#{vdKc}hv^eMU z0R1%rXzyzoB7LhNXjSAXMN&Y9k-k0Ss?c4xNZ*d%4DsRUb7B?H*J0uy@#r&hNdyS( z7;^XW#cd)s++* zWktePuj{6gRmGtg+QF~XRIvy#xQklNVpXNKn#QK4|Fd(@QJU z*{7G*mKwKqHCTAuDux?C>-(UV#2)j~+8h z-_jhA-ez}KQ_hOe>J?*9gm#PoX|>j*(u1{#OR+l- zht-?twp{a@2QY898oAT5K30bz#$)srw+AT7# zhgGRW6xmb5xy_k#K~N3oBK1CF&W3bH(zPlL>$BRJ*Z%2v~4ByD97hQj_ zSiSS++7t$GrA@5C+u{bhxzsmUtio|7&{0cZsHwU6qD~;;T=CNeY%ghR_#Bk9l@A)) z`n1T(wDoC`wdEeJ(NW>Omf+)5?Y#n!eIMU4*kc}9`@Z)a(fSGKl z^i_@kx^*7V6YDiJL2iv8yVpy20o)pKM~-#IPREExQnpVn!%potZjwDIt70_*?SNkM z70}iQGTuD{2D3HdvQ6q}fo!{iGv)|8)d&*0eO)u~tq~`c_R6ad^w#yNxzoaj7bw?= z3wibSZ2=@7BcjJXFIS*k2Q8O1U)sp3>afrqX@5O3tYZktoN$r;_$xN{L30f$>yd-0 z>M%Bk`dbVm0t-Q*ZE`RMXtyugsdq0ZC>d70%kEQ4Rf9K_QIkbkQ6Q_UZB@g%f=(OQ z@iHVH&XxE9@8!07lId_!Agdu4m5;6St+q&}3Z@2ru+~$N?B;b`zZj9;3F$V(Lh>JYQ=V_>$CySwTr^`Jf@S zPm`@oYM&-sTW<0)zlO)n_VJ>ZN((;)7@9X{v*RAlYz_|}MS6<1C5!gUmQ7z8VYX12ZGiA<%W=Y&w@q_`_8Ng+SWi6xd;g7VPx8QeI}a>)BQBJ@R0&tTYB!8DhVRWY3es!DqGo3~0!ph9e1Cp91KY<@tWhatDEKBw zuMv2a_NyA8A0zM!(Ds;;(`v+Z(Y#)ni5){iO(uk8i|nfo+mMN#a#{_c1Fg@F2fx*j z^Ir9d!D+`~_b(fQ)P45S01eF`re86|Nu9wPRRgL`R+qu*Dn3&Luj{_xw7T5RQxhmd zI}8-7+5$s38t{Z!-j(Sw46lJh_SxwxlZtWUF_AlBoSJeO{ zG~4Q=s$P{#UFxcLv~CwwYWuvC>kS&^UQTEYvqED;(t!n`HPAwStSA6B%qqUdFpBAv z%OAFF#ooUzc?)6QJOnnXldH+j6I0?m5jLvxRySnnm}zra&`(>v<=+1|<|W?@AA*u^ z@WDNBXY_yH5gyVcjbW&RqVjVW*JiYQPvtPMUctZ*YhJdX9P{U4h!QT1g9ak-TWqvwONKB zKs{aen7-=gv2bG|wx9@FPV_062u?*DR6|rb4|nT*-Y#MW5yht>hW2dF93IyhN2BA~ z-xeabc}cvf732`RB6hS*Ud2#n1oB}!_6gI_x*~81?sFSPaCL?Z6DrY5AyP_^K_M5d z!pXr^g|OR}yASBFJvp~6KaAk&47sseEh*5s9&3hNSq@9MDhF3*2oI@V*N|9Ba8+mC zO&b>ElmMH0n!lP;0u-`;5Kq;4anjgu&R?~8A#K^xQ4pdEp@nzc__uo;s>zJvp0Ph= zQLVRV-Tf9FIzwnlnwtvf6&}GFos+H}jo8@ySjIMu*+#eFs7m$HotK>ljLq^+y^-0- zl90ckIgQQYPCbifeFE%jtH>NtQoY#LY9Q-Uo!endVXP23MTqLf&!U!ndNO#cw=ai=j1_Uc9%>8?@u{PTL)Z5*Y&?%*1OFoJx#}50#)iulbdA0RVZ=2qK?^8(V=3cPrwE-B}->M0_fQu11UaBvd{_hEt{1 zx!1rc%&ri0cNU*I>~Qz@3iVPtY`44i{UKh6e9jOGobgVX{(`O}@;O6jIS6QP}2z(a`J4IP94&0Y+l9WmhSj1*l%_wPrOEd&0vz)X=vmK@HV5==H;q4KkTgt1a_bBiZWFM1sC&O zi>akL`>s^wwATt+SHzK~5UtLH)n~-v6EZXI!|N!*nsxm%!k;?qa6B#49OOMihFzBg zDeK)G)%yye1N;152@z954GKZaEu=A_P=$~$A5PgA4JR7y*P6qh^EV@4r66%^7rHny ze!JWauJwrz`|$RlX}Mq!jmCDvMMYFhP}W9wRNlx_FeFXLE!8<{-Ai+Bsm?3Sc}Yhx z#v48NS2n;#d6e#G|Buk<$~cdV$V0fU#(AW7sI<+wrSlmRRbP4;6xP$yys=0NnWjof z>rSf1dt(dniM@Qidr}*_OR|?Wxk5-%UxbN``kpDgGVY7{tVr1Tm)yMfYL>7wDhLZvFcugiIyLY(=RKI(JM^OxU} zw)$<3as&F_R=+BDP3wc}F@9ZU22!$B-M{hK$EJT3Z@(>bbiat5{>~Bf7wR|ee_x** z*+U2kq%RIRV@=ymIqInFiKa+<*@o4qf(59>6g{N+Z9NKcJcy&lalhlk5If;Czw5)0 z=Rsh9&xh@{Yxp+fG@9K@25oYVHB!4$`zDGbsAXd{iq7@UL>(*FnQ*TLm7|WeXX*@j zDj(E_s{%nSOZ*}0Sc6dgv^a`U8zGs|+^oi1{qS>p z;p-~C{*BHtHrAhLLnS9Uq?oAH7;&|kAYHT{s8yQ@>n>b{)WmfLa;{?CSZzewR_9{0 z#v*7XqbZXz!dV8K5w8Xb{R@b=%AhCe!YBk1$V2ryEC^BncH@Iay*_fk0(NhKaxH~X z;|u@xre0sG{Y~P+s&9i@&H9`P)^<0++CE@{g$gCfdb^&9Eig@PRkNyLkJd$pPI(Z# zSv`c!d+1#UZKsg!2cxTD%lV+5Cm|_75VQ`~cWny88iI<7dBe3Lkf~}`Lzf*}a+d5= zL!3x%Yy}}QRgZDK4qNTwdu5~OD!P=W^Y@Z^r8yfZ3@gU~LDa34*wDHiL%obr7}m~% zV1KB9@=J0EU64?tdg0EyOHCt1f$FG(z4*(~QK0%9&`ZBwEXZ0%(eVO zh{6v;b=n+DO<@t5I*Oo(Z7{f+HiAOVTG>#&NXAxd!D|6ukbp*4RLUzP)JPe35gA#E zW+N{`JRx*k_)70^Fkcwb(uk;BBMVRuX{mQ&Entnuhy!Z|L9G%SLUTUKL!mib0;165 zgGOk+T2z^wcmovfZGvbKs38EBQSE~v#%vP4GhM;9=zkf_rRINzPOsVpUgVlA^ zZ9DZlz>vDSq8yH)WfnZHqolAUReKX6u@y@fyDKi zuua!@2!O*CL7HQq%K)G247ltiX|3KV=v)!ho%IlS?tFR`#u8<)iQ?98EqmSz%p8zh`Z{A^8 z+vm+rj5-$nyofc%8YCTBRi6d|dA3-r)%QNpt-3nx`r9nLKm2v0-{uj@X_iMY?mftqbZ4x7EbhAySQUR=;FKLzO@3479-F5UDfdp-3Hl z{i8_bgGQvjI#5-S`sP4Y%Jw&P8Tfq8@8?nW^52HHs`WVss_pJTwSB;WibVM1{=DC) zzc>-p{98)%P)ku9t^UU4IPpt0E|r@B2GK=Zc^!dmn~{%@uJ&RJZ%ikhviaFKiWoc9J2*mdt=56#6+w*6-r^RFM%OBWho)Eb@V(Am z8jMHxwQj*_}vO zkiQ&-wK*mW>0GsMcbTN3wSd)GMk(rghuahk(s7W0 z1Yzf2k5R669*qV4#t+XFRN3RMGbFc}vYV&tm6SqiR5x02L^-RsYwQcuf+~N$!Z#U* zU40SG(v@vUZk&TwkG8%}K>Fq|5>>*pH^<@I0h zG$m(6XVcJHN`|of!w4wlo2q96d&qqx4&pW^h|9IU1yQDI&2mt`zxqZd)}RPTUBB*IwDpN%aciObWuXFUQrUCVr zz~qXMt_HiY2(+02kVXwGVvl0bqBZRFQ?0 zHY%h9swfPXUB-p5HjM6oFOuYi+Yac4z;SCU#E*~^X_tluHD&03@s?sZ9Gs}!|mR+IM+wfNCKIcod z-F>OH5BO4z{A7Z%SV)f6m6x-HkT1UWMc^CuWzA-m(s zFA5PnLq=Ppg*d0dfI--=Sy*Hti1jF>M%87}5W(}XoMLJ`#~!QZ>}A=jkIZGaic}iY z5jW7v{U8;M>L4y@JCf2mjq50-6*IpCF|tGU>XuQcWiqy-->2z~np?s8UvJo@bm|SV z*Y5EaehW(1Zt=1}-U#pdN!I+g6u7L6x5}j)by-F<%M=FVJY2&yc{D3seL^k$GGsj% z0}dx25oJNPvMZ&x;`D@hl|gETZf%k!kSAlh^A97YtD?P1(vg**_oar4N9wH7v8vXw z-{ApT<2{~<)h`)Y33^pSvV#%bL!~<`2BOmCgGTATx>Z%B`{q_vTMCGo0p$q%P4BiE z(|sG?O5Nw|s&{;=RaRd7+f>%s0%piZgR#Y+c(KonX5yJ(y6;McBMQpUKYDGS; z0Yy-_-FFq`Eno=zX4_xIOF$7PiM_l)ZWfZ@59U=fMj= z5odO=i-?8ubrg!dN-P2zI!6g3_m&YzT}4ne*3W9mesHzq#GFVk)a@lAEUj3i$!C;Bln^XGO{CwQInlQP}tZG*4DOOL6I8W4Sf{? z)JAcnA#7oxVYEh)sQ415#0%rKjSh37UVbzBE~3%NaG#wtg7C~t>xL6oK+9&6MO8dtNFTKi|Q6bzyjYidfk6`xg+rBCu^= z`eGRbO}>bz!uRu0cnOX^CevRm7gNZIPLn-k5Z+vCONQ&}C_{<)?F{B&RFz3{ zkXvjFYmeV1iPO0;tUntX4-d)|G3ygI_t4UbM9$bOLPB`hn2%+VZZhP+txhG{)!5oA z^w6?-q2`3)C`em{U_4aCxRD=8waW@Oq^;g#%a_g4c7|Z}w9Gd!{yU+DMGl5CEh9jP zBZq43$$us(K_Svbc^9hwUySugK3wK880}@7En_-N&5B5_)~@z^nf}dURv#Ao@f9*+ zwff|Q%vd8gdU>sW{0PqKBn}$c*zBQt9li!pz4Ae$USA!xs(O8M)T%XNZtgNp^ZfxY za`tU_D`%f`)Y|TjTH6O4wdiYi+a307Tnw{Hdi|7y+xe^r@ypKoa2+wuLeA=SxSY;a z60#wu79xZgYmf)_R(}kVbo&S%kqEUs!9u;?{DsK%4ELz}R(2p~6+s2{vd60;ZkxnZ zs!)N&X9TX17V0PJ_Mto^tRjxA5ZYrv<~sXW9`w<9xLgr*gj;qwPz3!QdM7d@?2H(RlCtYqLybsS zMX*5VJ8_IEu^B?H64t_1_QC8r?6Q-+g*vZCx`9HDJfQWPA$J`%8uHd*$kTb)jig!0 zwancNX2{62TxE?KrJd=OCGs!?JB{B6qUup{+*PLnJx3Pu(AW+?i?UdBMQL56*7=9gn`dcOWt8`f1~tw@ zgQ|84iquGtMEYe`gR$NSMXgTXXb(lI{aSOrfjxUm)o#Q`!QCpv`GTa?`?Bm$@M6?Q z+fO}8&NtA9YVELP+{Y6V^9}S81!-KEjz_Dy!pcQ>s9}e(LDaB(&}i6K+pVf$-)y&P z(U@2$ye1gDt0DXS(C^#$R>VGM#I@axxV8@%aUo&}n4Cw!F5U%~TQTDL@-s)z8$_&j zqORNosVaH+zi(zDVzX z^%xMmA}%M%DXZJwu)QM4VD5|7Aba%*F`KITa);{`VSNj#YJlqP7~Hk?e!%p09{P5O z@!4{%=H+ZvN$|WP4wuCSIyA5M{26hp2;JBYWn73`oryQiJFXF3I9?HSjqhWpP`o0j z^{z`nSbZLapgo9ZP876?IMCjt4}C)FGXz1qTXew~1!W33-xlXP#H~W0gN5e-LRTTI z!!7h!ZDa+)9<$D;pw37(n2$o{z=M#i&eTnM%{>Uo>co>&eYQtx=&^9%Rm)cc#7GdG zt6|UpF&5-4uC-1rh8J&&PSn{gvL0l zh8${EADySvtlpQW)U00QtY-BRWi_i~vYMU8JW{i_M-E)$gU4!?Pwx&~Ma{l`u&*Yv z_al9A;PL?MmrpzGI==h~!>!xhaO?H~!>tipxse$AHeXC)f0qY*+Owl_VRRxbF;_iP z60z(1`}_J$gyC;$`B%a#KTrgQS?qvJ@7bygf2asnXxQ;gPeN5kKXSzFIviB&o%dtE z3e;@(iH<*U#71pf``dr22=W26rl+3m&m2L!sQz{T^Ky){WPQ({6PPEpj5Tgt*2umXrBT%-?elVStIbI!*fKdlAcXct zSNZAMoqDk-F$8h^np zA-mHkYgqA$;0j^QZ~XaW56(`}Yod(6C@XrRErDIg;Tl$(Y}uf79|mKs=h9j2YFo54 zWWXASoxP4KW&qgZVM((!C`)#$P5dy%NNX5^dZ@bwQ{`(P%Fkhckb7#FY9&dGM?1w{Jlqt%ob^Os8dB)(6VX;)Ty2=UA_DKO_ZuS z)3B-4=L^E=iWr^GCSpptu7%X+wA?k=-Od)H z;Z|!x^@`v%xyo;~ySA;W;30aw&!_XEjq9%+LGz*hKBH81_Fe93$rLa=Z?k%p|BF(c z5d_Dm6)V>rX4g??{@Psuk^l^XbKRnE7tF5Dy0+EGwg(2GYstdH0Hvx&8QT>pIlzYP zZ`V+}WsC+-??&vID0)5VG>vlKWx_!WGYb4K{$fNHY*`V?50S`p{tqPG=9t%&U=EvM^w5G$P# ztP`nXZ&e&Ltq6+Idff+QD}ub!`H8E#82&Z{9-(dY87{Z;z(}}7KqeDs?`}*dUdph1eoMAZX!(K!W5n>LcxT+32cp z-%T^UV&bYlM#oiuS7Sd|TziiO#clLA%Ek0#lCP{yMWyi+_%#A#Yq5TLY7|#0(xXs1T#Q(dnWNGNOAZW{1f{6tjHLh}lP`T(?(KuB{YY z@yWZGeRVjPo?TnPL%MI{TY3AOE7$Gr%60pIE7u9SAhJsBEhSI9_Nu&9x0kvNgq~F+ z4|ZPqOguQ=oLbJ~4wsGrGKvg=!@`!Gh^qeBJ%zt*>=IH}#N{gOCabE0(`N*Bd35A& zH5z(W5v*~0D*_l@5m&Wss0tWDSH$fk&DT?QsvyqPsz^JTsAuP6fMB`MiV?`&eic%_ zy&rJ9B53wiV`-4Pj-pNFtTpRzN6*?lxJv)bsym@}MPL~^AEVv_^sLUMo3^H^_W)w| z*|+c4c<{O+nBaXj1+=aR5(kzY0|Y{ZPQ8diV6C>`jPva#Jp zoMM&8V01^dnbxz%G*tOv!QCfB5{ZInH>nH8 zuKWU;6iHWpdwMHdRJwS5p(pYRgIG*Y8*oA^agOU zSw))Z^dyjn%5_*DMCHl{jdFeD&2@YA=Gsb`6`%Zl%Jpr0t6ZP+=DOXzxo#iu<{}km zHv%;$I)9L~@6lx_T}>^{djBie!S3odvAZnNAt8E2T&Y4yLUtZSGQr9R32IlwsHtd0 zCd{s9drz2{ULYxnRS`FuT$WLA`8ii*7y1#1>z0J{!^a`l59iCUjo)~ejieUX2GV%{}7qUhv5w8ll9JPskg~0j> z!Hszl{)P1wvd0WNrU}f$DEq-_r4RWU)1fj_O4AUp`pu(sv;Kg>X>3m|lqlj=znQAB z#TvsH?nVb}zfHAQfE)!&vYW_}oF*{;u+l;^L>G?-A(T!WSFY z5$QdKtA~`Ge`GFaGfKO7+k`A$=kKK;Mq{%%hd}SWw(m$H(?|_7h*clok=1IXw)$a1 z$|_{^miBP2(bz-rI@}DRc;$meync4ox>|6RU-r;$i%&{g>-(u%11UlSZ^K*d`kdX? z?QXYq`+(gR>&4@7Pnj_NW{_RS(&tLfYP4;Qa@8y&Ru1P-yBmZ^gPQs}g4xylg5ua! z%PT=37^#F?#bDKhW4kUqxro84(+3GR{Z1;Zu88Ydw(n{X2U1rA`KGIuSAw8o>l|BN z`6ynNt)xM^>Mz+&Tc6!PaKfEXYGe)C)U>)_&xS&#edS+&nHRvWHCva1pH@r~Ao%dmE!sv$|^ zHR6lMa9voE>r}w(ZISqkKAj=d)oFE7*giLAgE6&QC+IDswiB&z>bAU58m{lh$s38_n}6O-D#>RmG|s1%=!_i9q^hi9-Ok6-P)~ zwWeV6VAb?W5Mv!JDyGK9p#S+8NLp;J+Gr!}uLvrlmW5h+t*CYDWi#Bb2qK{URxs4B z2uxS{+7?~|Gh#F$xb`*%yafzFP_P7(wh>SS5sJPs1EfDAhWUWL8dI9AA}E*dBjV^=eR7Dp_ty%2s|ex+ z{jS6)+ENHPBO&I9rk#hOV~*EF0xqPlkP#T}#Wtj`5SFGf0IQ>RyGtm*LekE|NIF%+ z`_QY&*bPamDZ>F`^mhJq(#EYJ=E;&>XWNmrZXb;_f*VyhE8%PmM~=v{01JJqb73#b z*d)A-9Om-VgQJuy$=Hb%9pkG}1n z2Z*sAYFBdsf~YjwBY?H6sA4T|kErV7@WYJw$o$Ou)*e0m-XKw|vm(+s~F+LEk>~(z?wC3a`nr zomK3Y@vXpp&Ry$vch|ao$X$zGjwg0PU;i~nTiyZlX^|1BPiu`)@Cr~TiF0Zs4(qGc z2Rn83O$E`b*~O8Tq-~@Xo>xZ=O0#>(2+b>keZ3k=gxU2vAoTm!H^i=p%UD3X|HZTd zMT{O#6QaJN5wD7%s<>}755*gTq|fQEN>mtL5hES5Jr6{!BF?KUQADj@-LP>CrR$yA zZd*SaV01-{p2h7Ih0uNe$Zf9I2R_$1N|%AY@{B;OBFOHku}b)S9z_AmB{;o7;W`Sr z8n)b_Z5_5ht(sUNSZBy+LccQAg0>ZseDy{QR!5;2a+ZJ&+tE~_UFeJy*BL_opEf!T z0aarw(nWROF@$Z6x~P&Gk!IgzHtHgiYngCq+(osZuI$2AzL6IeuNIPwO|WdnoP#Pi z_9F7PRFB9~yZiebcGXc>$l2P`FQswTjiyi{ZL%z#k3#XAN}C|L3TvrN!+1hH3Td=O zp~SK_$~X-Dw1gOm4FicMg0Om#uc4!t5f{sdrQ9{HOT&o!p;8;{O2vefuBhFx{cQd5tx>kN4)ONX05l%;&o$kNYVSV5LPG|9TDZ^Hcy z>upf0MW3_Ax^2Vh_4XlatlQyAhCe|I$ezLjx5kolVP32fcVKrt`!n5L+V?-? zJ|n2|*v_$TOHD3L+Ssb91h{=hj3iSnJ}glhs9h1%+Vs{&Xw(@&B!z%QN_W*!8{1``W%_2w5FQ7lsfA?Dynekgf_L4RZlu={-YkqY2#n7Zj#(+?DoAq9+2RlALZYhKvJaIf|c`Evk&> z$h};a(i_k5o?Loq8PTzzTyFET8utfrb;VG%3JDpWSYgSatLs=ep}M;YgsLyqf;Cn; z!mIimnbfaA+|h18pCc2TLHZiMjhq@^9)xTHy+%)E6U>l@vUb=JL|MxRjja7_j}>I? zL*J~Mnj?I^PVXmPtOwqPw*vP$+pOE&HtY65+pG%&Mi>)4L^5I#xbsI?cEXI=(+<`fI`fjV9cinyG# z>qZj3ioh&qWuYa{(GP*E z!;m-&cP+&33?T%oHP}I~A$Dg7Ay_T4%VO6a2kjS>qqaKpt{UhKsi%ebXtFTBkHb-n z`G!Ai72!s9BcSK1CO8-9ogkXL5U9vtg`C1EB7FT0Yvkm;byOw4)+UTK(6~45G!Bis zySux)TjPz>I5dsB!$BK&cXxMpcbh~1?mO?y+&gR5_xHEXS*NO!o#ffiPEt9$QVC6? z=^|cTuzXr&zXWW5GAVqg1POQ7{xGwm5jQSO0%et`J4vrmK7Hi1XzB}kkGLH(NVs?1 zjcj1BJiVw5X)<7DyLYo`w&9c`lZNEbL=!l3VJK_-!5E9Ed>Ra?FL*C>I~(YC8hu<kv2rTo|9K|D+1bJGzj=U#_=J#P`?K_v`)k*Y0`W$8o;5X@a+Hdf(S}-=}-N_xa4X_00Dx z0^gTyKHp>Cbyy_8`$`*i}eYSg8W$VR1$F0;vdY$k_$`K#4+e^i#7N~ZKPs#xV0UcGgyZJ_(Ar?juL zgz!Z}pc3CgWNaKypv#$n{#Aq{+D3u;u9k%ErqWzwpB~TelfruIDNg&oviQBoW4j|n zhKS1d*CjK8RmPyM;ge^Xt5HUNvUq_F|AziAj zm${%ta@kUNt4UMe6qo$Qg*3m>1m+;)ih@&4W{o7q)~OqpM0e#HWhX@r9GuvTbI#i3 z-TlFPB*}mOv97XsoIPwmQ4B-G516MD)}r>M-OWN?Fo&#FjOo)irni!2Gq=sHEG%gq z+HNYpa}52R9TZc?uyo-CeXH}-Iu5O4RAUxcu7Lg9m8vkHg;{c2cBT|``#*FIm zK2;a+egQ2j850(x-7dK#DALvePA6BDF;@|pU~<+4pEt@W6MN$ zu_@#HTxMCoO@3J#rm2G5v*51V_A;v%q*`mVB3JpV7`{jKvPdGWm|Ouv&f~ ztNZ!3Ug*qYK4Y>lEGwsN9E%@7<g|%*e6ZJ z!mK#w7As_8b9U^>Vs$4D;s*7}yaqQ}Uo?EEW6ihRN+_9pa7--#1f~#TC-bahxiKtX zD@SHv7}|2l)#WEe-PkZ}t`hT)UzF&qM+fv&|1bqcNCiRswwww174R06!Wek!6(6#> zV9#mwb4XG}gySYfJV$`q@O#-$`Xb|WOiF}R^|FZ5f-$3AaNjxGheAn|F zD>HRH8V7q*GXP7))b~A<&7Wff*F_+Wxjg0ZM1syn&)i&FBu1P|ZZ}2(5IVkQa?0=> zXQUtV%_N-BUKcVf>(J&ru(z3?NAAwkq6CwroH**sXG`T>8E#eN!sV`UkVpV@*xb_| zWDD8}rrDxqnP$A3KQThRlsMgm!VS||s?sG!rDun#D~|UbSyrf$#p{_3EN-XFv1j`w zOj2~`R}$FBrIHS@*l8|4D21J)`zg5WF)VexObqR@r+uqX?VydIKMUPrJ4;HXJU2pX zprw356TPIwGKeOUboK)xWn$e5UkhGW!on5(IA?W{+MkTXmo?HHvzu0j{7-{6PQ1`s zKF|DM5{`^KDGHi|_P}VrRuFxs_&j8C2|&z?KV1dSB(ep_Ma|XqwS6)Pv+`nrmhGt+ zqn@hBd6-oYW5|?k?=_F|4)%tQ#Hp=3D*)!M(OxAKVg=_W+0&6!aD*slXbo-r`u8=8$J-MtyJbV1EOhojudv%N)Kz z066nE2$l4XE9;|{GQX@2={t(iNOluBzLWjA)V=-8ZEIGv$8(#~aTt~bQbKR$KZP!E z*%oVqUK*BF<+_R=(sNqOZryrI@23u|Vbf4$+4ds1_fvtCqUPvT%T}n5*nNSWx7kgG z6ceJidK*qbGvYBi(_a>Jh*b6P<0**3u^87x4Pz5~0fHBs$MZ}=15|-m4ZQHX`4d{s zYxqDXh`X6;#jP%8=PGZkGLPI`mSe=}L1GEc5Ydf=Gn>a2aMh@&m80s&@b4^_T+<7V(@M--I+~-%-BH*YzVKxp|lLga2U1VkK zinR!oQC&AutglZ4hdFQuJ)4JB$mlEZDPJJSv(=|wYOvY~wX$4$cn7)Kx2v|Yd6*z8 zXc>&sd6+%59?|-tJ57O?u&h}Xoo)UX&ZC|$^;P`e^^j{c4(16a+K3IIl#+D!5qZ=A zn!zhBXbc;V@VLKAiDTNlzq4hAn68Y zlYw3Sa9@DFkW`gIYAI3+iits1bXNc_DC!K?Pap5fjtKiT@hVjLmGKA#gAz~F_(0S9 z6mrm1I=K9IT#tg}7vj=u#O{Ldwyh?sU8HSBsxcG0EkDEAenTx&H8j?3Zx!D*2Fxba z=3+<dRf7XNV26Gn%n##Ch*byc^ILd zkwz^7a)1@nC}q0pbBTqhC}l7gP2Zv~F6OC$p& z-3LVV_G^rDdDZYvObK?Q>(Vr=$zwU9E@(O)`-v(@zkQ zUp!YfeX^zYD~NMzP8_~`p$q!vrkntI4{k)4LT+`zQl#fx99MMf0!=(!6s}Pf@jXW> z^7O>mP+Nt_NJMkQ_|}tvYSJJU={E&%Qr*pL@bFw`%qakVewNoyskgH0$+*>b31+-d zyZ)iP`QqirF~%^v$4EQ5&7wrd?zO~(CjY#ARqc-_XQYHOV}wM2(x;<(d5)&(R`D7g zT><_bQ#GSiWLPl#c~nv>z&Kw}AG*MkP6cANvxv2tg@P_UVgxUVC|yc*)+zhryNXX zIWZ##hA`Y^G4!4B(+`dz(%vei>wQn zufE<6@mLDa6ES_nfusKD7(kW&t7dL%$dKy-k+2Ey@AMyUmW`63yV)PdnntCDEfVhuCYr2P5i#u}vA1xvqL`Z+Pb>O?)9PTi(N;7!ylS5tPAYC|5k>*Y zy}g_hq{Un$3sqvj>$w_ZULvwIFtmEgHUhS9A*wddf~XbMkkQocV@dPMiEX(Y>dT%Z zD_~7m5KvjB%)FS3J6C&AK4Y@jt7*E>5g^Wgb_k=U(1ic$oFiLo*z<;Y`C}X zFI(Ku)%=WTnN_epT7WeF-NgB9+w!J$30bx5wJNnK$D{RK2l?d7eYR)bSp=rdvB{!x z1!8GAv={Qzo-N4@r;zA2%{uK}x?NtmAf4H2eG!9%xGquugxcn(lzD|`rq}7UcgK=r zxW-r|ipj3Z=>%X#XUWb@g2Scw5C1;QW!2rWY)nY=M;{?x|VnB>>wN z&X#J8_n7l+vayPg04~mL)nY3%G}D>TVTmog7{gWbB)b#@*|6Uf>YQCexwWEaxuEYn zww)(K-!?p29Fsz|NAt)N6=@3gaAbk3pq>B-&hBN7Z$V}Puk} z+X$a@A~`JlhXA9v#9_^d<`-FWcJ}0M?CGj<=sq1;O*wX4ik<8> zk~D9oGe&w4b2V;k$*hk_b}hWS3%#*tTesj*I^8y4WskcS^~m3B_bLp;QF3(+*AP+lgeQdLU92X(Ov+-zum94Fv@@28dT} zwo1X(n}r8j$?|zWQ70YCx}DO0<){rGPj>#%MuAjj7*U0}&!yYi6`h&&4^G*&T5@=wt1@R$rXd7d>AG6U8YV(Pf;oR&uc%vY z|5Qm(=_MYmu@X#x1MZ)>l1alkz-U-($H~%qXr!hOdb>arR&`{4_`xm+gQaJI<>$eY zG=0}D1JAVq`1i0`x`*&89G!{MaLd^@Q9JIlY?ivb6fF1=&@xvjqSVazhho)CW*OeSIAQ@%)j@7kRb|J%{H;XeY89ESP|5XZ}f zW%}Mje&HmmpN^q$8;sJCc zhe77HViKiyAYtp2_x~6@O_X<^)l~rYyTbRDFQ{*G3TW-)X$0FPuB)}r(&#Cb^~AEm zxJ&B@?$rJmMNTi(XT%+=tlMMi<}L5Djfk<-{>0^abWoc*!700<0o@88I$3IPkj^?&b32#A{LUUH;r$?=;w)= zC*@3`RB9tGRX!FK^hHizWULN`%98qiV@sroKC@`&qc@;0<6)ypc6YjYS#`3wf}k=& zjqJ&0i&%-Arr`4R{FPg~!3S&Y^Snb1`AXegGm-W^f&DTu)(&(0aYj`1KF?yHZaA44 z3(6lwjMDTc^J}$-_h%nJ+l9ND=W?I}D?6`M*+5n1LP$hj&O?O`jpj)xKsMD^KNRTdxZ~uZ(5B9`e0zrbq4&&?w0Z04yImb^?xxrNt|gXM zFY-8cjw>*|*|hcC%EwXv>)=<`vo5ZGp=y!T(@+SWgO@l5h~rQ9b@Ms?n2;d;`qzcf z+rYr{14RA(?c_a1r;=?cZ(6QMVY&qe5|}cJE$osulM2va zkK^&Ci$Z6KYS~1s?6Aa)EeycBm)d;FvA<1ju-4VT2`*<3x*e#v!ACR#xO2o!sYFiG zH7Jw0SfX~KCFOP z-RzxGmrs^?MBvb2On2+C@Xpvmm)nN(*FU+39x5FjTSAw-Ju`*u++sHH-KJjJw-DPa z9^JBG&zTPTR2jjqAFs4(n%(AXPE>}mr{|Fvg#lkmbm{rSl)zu4Pw2Hq*Fo^%5m>BcRbHd5KFB$e(GayvoTY*R*G1Xa}KJAhFdOYk157{;6I_B#yTI{2DwNk=DWdi0X>vjtyKIjhlOU9g{a7!g_@S-g$#NCg; z-n##_jwQYVIz?b4vG5HA3^S}DBcC{*7^x*}p(Zdt1Im9Md7l$!!}Fc2@R4fnJm~Dy z`cP{sI0CuRRm7pdd>?V7A~e9&vZx(qOAR8sgoEfSy7S`8;+S0!APUjOhH8MbymJDwHeP@fC1jw{LBZzjnSM!}hrn&DgUCvV!p>S0=>i?u zgLYP@{e?XtcZL$MKqWeT-W2Ut<}bu5vsverVn%4Rq(S@iWwc2 zk_g9IsDYkRkE(tR6w<_HMOKe^jF; z1yujIViOfu^vk`X3P3Ml^tM;lNGk9D{X^@78{kGTA#%4SFCkEKu{7t}`8m(v(*CHE zBE#RpT(Xn6_!5ioXS{AAMXSay!%wsFHX}*MjD)C&^n{|*k61CE$ma#HoRg2BvlC!= zXVQ?e6AFkV6%zN2<|8wgt5(-|>qE}0xNv3V_Ir)o5Dl9=LWW?v5AD<5@t^k(HR6A@ z9`{$hGZ5f4yRO4K1gbTkKRfWM+uHTtomD;0A#A%}w!S|GIt5v6>@N0RT-LlhGk7hs zeZg$?!ix&fd%gH3P~;rQkf|9Ra=Zd%921yKGT=G`C9WlF4r+TZ!PruV_xkarj3W$c_jCk=oV)m@XSVY z61uzb6PZQ?sNxI#J&&8l)<+w}g5OALUyQjNsh_ACB?*1t2TU6^*hE`RzTrPa`heNH zglR?HRsdJz4kdP;wLd(%3CU(dpt6QCe#@BT!FmMxA}81RHc#ZbLiF_y$zvw@*l!(J zH0XjcGWa3+xI5Q9JG=AjHa{C*Y<~8sY$5n01uK^oZ?<)dh8NYhT`9;GleeKa)0cBLef2d z2J0EUpnA$XwW3O2anjvMDE$|mJ8gDPYmd%>>jVGw-O;*uOHf9Z(GcaCU0Mo-h}fTO zElsid>?bR-6S1!I9(kJ^YziD?0N}HdG5>Ch{Y{N?Xbt;w zdsg^H8=Re3K@3eI52-qAsUf@1&0T7=I|QuvJ@n6AUgMYWt6*I?7TSR3h195`TGFN& zOQobYjM^xYRr8}$-|Rg%luN}0PUaM8?yx|F2@|IzpHY=fWoQ2Oqa$p4V~8|^+L^0U z_}mqTxFb_dL`X>lk2jZ0i{7VC&z)fVn^DvjdmE`#poKq@i)6?NCm#ubZRg)x*U0Gb z3nK&w2nIX|2=M#Sx}2QdtxcRh+SQ4gjO{Wz<|^VhH>8@xTchDBcnJ|3F@8T;27bm4 zYm1+Mek$e(C}1@Pls6yX?IBdBiJZr*6cI=aCam_zPMuZ+?8b%q%H;@r<*-u=FJ!z98=DScxn!JHdzXM{gql-q`%{P_a zr1ZrEij?06FOHx|*WUR~v<1at2gXY*{_%v=&?PzH&mTrzrq6pTh#Gst&A5>LB+HDd z8W*_ESCAQRi?%3@w1Oz;X?Q;bK@`Cyl)e9)A$>yAlQApmDQM>hgX?4oPPWLPPI77a zx*ZQIRjO8%Ue~@a(CU0_`?kY!5u6X91{p+`F*|GN2V9-A^+|{f8;%s2y`;xKf1+yX z?$j2x1I}n_Rfa`f#rDWbDO8 zaU6x*9c1^Rvj=+cuZc`Zl80$l2ZMdv?aVHQ6@tRG3{bSeZ~1ItrH;k%=@ADPI_vY^rKFzNowViH z)`)ebB-MQ-YXvyo0c`oKr*yv5X0vNH!D>ZaFalNXr4QMfS57J-df7{_h-8BEdPLVsd!}w*ESp+n!OgZt$;Zq?h0L(W5@p#nM-qpfk3Ow! zIh~_CqpGQU?*|JXMVq1rg_oNnF2}WVMD)5=7#$ohLrt7HWkMRA+Z=exa^85EF^i&_ zG2#cyVn1~{a;NBpSS)Pgw_TMSH@4Z)jfQ!#|H_*&aFu?qS6~N&_OH&x+`!SqSjpMZ!q)6>A7ebjCD;88EqD{}=R1=7f$%Zz zax4EYW$2%NKmF*eRjo9oe(D%PIUv8ME91qCvF+7vb62G)r;eA?@@i*#!PRDIP{Mq1 zbvWx9%JOzuN8B)whR#Cyda*Z^$H0Qg_Z3{sVcpEw{&uxwmhvebt8ckKh00Gp7&ye5dFr?JVt#2+p7ZOJJJ8W_&boI`?xNR?Ue2Q2FHIc{vx!)CD9BnXnsfs zZJ~xqu#sv@q(mYWti{~2^Kz1a)X>ty#>jf zRWMduqVM>49DkN7>q^w(YpRNV;c<(tzr%bKn=0d-@CJ?^|D74s9vajxAR~hRFJ>4& zZiRoD35@Qv?EZ!%d>-@?u;59`6(S!-rYA`>|Me9_M0YvoPSU)d?D6?vAy6=?+i2~Z zj<3d-+wdSGV%RcUexe{|;S?ILbl$p(EOl;pABjMW@_~uwQK|c%;fb1C9Hy$Xg4PBY zgLZxPNe;KAN}?sk(k8cxM#<85o6Bw^OScceSpDG#LBg4WOpzyVb0VI6#(#DM5zJKKhczy|Q_QJr6T@X4NuFmxZh{wLv4L*6C7ZD^JrsN%odKL!N8vH+;~Di{a|;y*3J#>Cmc*udG~ zLtA47DLEVlq&BrJKJ_-c79upknq~^HU12h1ilf=8{+}xC#-0|cD({|Vt$~p2i`!Vf z*E}hy0W3S845!v=op}M2pyVwxw)0a2a;cUQ5<@Ezz{P$O5MmBw-0t$LVj6dnQ6cP$ z^PkhY!>UN{^xab)K@hlx#D|fFhwCyz7JKh?)hGh$RHLGq+)C#AYUfZd?WSDor&r#5!;YGi<_q+rz=;YpX6d=tl~hC|B@4BZ&YfOTGt_vtD>R z!e-xjjvtnID$;r~qpn}hkI7N=LYVEnB~$i#ye-iT4bq&+;cdqVZ#O4~to2~=;=z7H zVmL`+(JVVFAcV0CN`XiGY%Fyw_{EL*aNCr1O8=b0ZB)Tf;lj@e&6x3GH&mTawmmIr z>h(X?XES;Hv3Z~=k%0Fb@_$Tf54_Phn>Z?&I6Hsbap?b#YX&+)3)?GwXnlG83j=Xu z3R7_t3d0MqI5PfN5JIj@BKQGn$S!F@F2tg*P!!w4`p|)WaH9OI;NT>%Ox<{psHSg= zz$@}@8e3EZr0{ei|DVX>h@{Z24wokS;7uT*JYZ;EDB()sEs9cTU}0C&is9i**Viac zXkPH}k&*nooe%@%P*ohoKLqN2jDQ(XVt}JbJ^Hm!kRlsD<6vWBzJc$)1$>6s=2J(T zJ;mm?g~517B5{sR_5%&v%mVEsMN8FrvT>4$x%oqQNH)!pyL5mHtj_tl){=y_%B=5eM_(zlKIQCL-4bcp z3bEllN zo9MuSa8>D1U5UE2m7UhHZ*TqW&+i7)O_nA3Tu=<{nshcP=`$2U?PG0At`-@2H}5k? z1hrXo&7mS%x;#rY1n)2iVu)*nr&1GA8wa{zt?du>7m`XHJ3jT{Cw1wC7Z`OK`=h!y;%pS2YN)VI0G8p0yq{21Oj3vZ z&bxdstTIv%+b z?#H$r!Ot)s7E55>1*>JBkxgj1U;-Q73UZ^~w7Z&lrA=e|uki+#`9-k#q*-woRk5fk5hU-llR&Zi9Y1}yl5Ptc<$ z!k}iT+SPZ=NYn4E2?ix3&-`^(KgB7<zZB6XOBgu$82hsJP#Zq;pidi)hgq7wnbNi|l8J@ioyU ziD29haaJM}K77)jp~g(am*9eNF%+z%D15}E5vVP^PhhL zBx7X4y4<0C6#cCg(Z+->ej&jv<`w;V4n~W7jl1~XQjmcKmjdkt;qb5H!v>80Y8|O5;+wu z^7< zETK_DWgSI}&9=QB3D!L7ZUxH85$2A@R@-JC>qO3f`?UU!4R4&6+W6(;=J@Zo&;Rdz zE#v=x`r1je{3f9H67E0uwSNbcX-OK)<2B*2k7$pTz<4< z{BV2|Ot?Rx6G0^w;{smp)1(HS7UiL!uNXJTLPBPBZqrN73iaAoZOeT$@S=`i&rFHh z(ZT_7fYYmo-8X~UZu0x*ZddoN?akTS%gsv7H9Wlv)xy&~&CdoE^~1Nem%5vS zcXz(Xi*$(ZUf2Bf&!^p2HE-^%8kuY9wHRv4%jDyFr*|QgC8@p3-LuO9Z#plhn2!)@o#*!C%G6~n(M1HXv~OmYtr=Z`7l;i z)ubv)Ip&KBaoRHInY2ko_A+;-^1C}Ok; zGpH!unuQb$2d0eFFgtZD&fDTrfi7z2K~dHr&M!TC2}!3|TqHD^lEnbvJjKj5oV`&u zJo?0@Ok!zVX>WbG>k1PhQX-gPM2N0Ir2MNmh+=VuMrEU4o^Lg+?diI(LRODxczF6x zORH~`B53BclCBLaU)q{X?b|8`r16z&W21MqMuw`}`Sr>LXhuasNcR=qf-d*-=5D?3 z>l^*9iO=QY`W74gvDxXbVnN>6OyA2*jZFpbx5ry;BfhtX!Y>u`{ebiP_P3kf=v9B; zr^CZr-^WQaxr%YfOWwF>*e-2bDVJWeTx!ZmQiFRYvbzNgGo9Npcl49(y3k2hw`Ogb zKUBryv^Y||xxknHzLSZRN?73h@rnOM!r_LMZq?_Jjh#Q>cg0~bDPB^mfuji58z{!X z5*H9Owi{;eC0QId5`zjao}U6Mk+1SorLvtujVBH^J?$rdaA9kB@}F(U955x;t{%&P zI~zJm{6UHM8C+e;j-q&e0f-ld0TFAg-jdviAmEl9`(1Fi9#E7jDMN6$LF7bLrWM|V z-QN%u)G0Cy>V;aX72a&|{eDSte*FQylT9paAx44-i*->oJPB_M@s{)X+Yq{e7O7ES(ufSIkH192O2_wa3?s8B!5%y~X+qY0 zzsBc&ArC-hC`>l83^#qpywM&JVmB5OgC6^R1ka(>p<#NHx~1P4CFQ~!SYqb;ONiUJ zUrc{h8a~d^5?aYVucJ0*nz6ReT8Y9bP>A1H47iNOpG1oI0xA=VERr0yIcTujAf+OA z*vS>hI%+Oa>E9daYZ!ic?Gk z!GiGIJ2#8OvH;ygGW{3hj<8D_|45D#D2El5NCrgNA5vjSqNS|L3k`edup@!NE^=8o z0_CXEw1}^kQlrpnzX4#utgr|Y3V4(SJuy7k^)P};wbQsAlfP{JgiQV5el8Y<YTAwGqlM7+jSjZ3dy&Vksk#&4kM` zl8U(G#c#D<(JD=Xk*V`bDq^ZT4y){Ubvzml0uzc!x=dC}XH1Zw&%t+Y#3eW3A0ruF zT9ym#ILU`Jk%)Xv%D4`49`qlX$>7$G31nCzHP}G-0xZ&5EKDlt=daowWvdOubVO3a zOL0*b!RHfGK4D%ln%6&PzNmfm{KRn^c?@VKH_FcFby^BA2tlaF=PaZNjypza9qd=QESi}jxMyyd_viU zKp{1_>Se;rTxc#uN27V{D07Kioc%Bbe520~Mz|;!QdA}G9Tre(6}wGk z{SSt<74|y=Rq;F)Oag@z8%RXHFTx~|89S$_7V<=xPuGza!VjT*;yB-oK|2$7P}P?f z)03?Yvp{50pDPkiBoReB>^4yh&a)Q_6RMy=A?GVU0LL_wj|fFwE6e+xt?tVZ21LYj zA|8vP6eonYl}A-{WZ`Dgk~TX)~g_! zD>$)dA3|6NE|+%33egpy)Mxpf6$(GjkWN7|%ilAYdD2YB#&Zh;MGT=&*FU&`t%3oM68==38rQsb$b&NvO`G5$^ecr` zP5EXhOEWy81jFl1zO@6KR3&mDMFy^ClW(WdqzamJpXi5W8F(lq<5%Jf{HbxfXg|}r zg7t|cmW7Ryrw)q%X-;}eBUaK6;&ir1*}+r_RRbZ{w-S)Lxy`YTk&7SQh3~xVMhEVl zx&3(N^S)Vr>^1J%;$F|g>z+8q>>cPV`S)?)K-SU^8lZC*JPr82`=9^ZMh4bKLgoe*wjX{J=k#S; zyhdaZ;5dgM@H!(_9DmjS63zox?(9B!Weq|D3#W3|&jey{eZQl`Q008fgBdVjnXzij zmRK^Z=kvOLe?InheQ|ks8q)tIny-c3>wUGJubCr_$GgeX%lrPU zd%HWl`yD?6LC^PgI@8PD_x|i{H?_Gw+N=;6KT{WX&FkrAdwhI6^K6~FrQP#st2-Jo zntZsO&&$jA{_tiznlFv-_2F{!>~=aeBt-6fJ^emB9B_SK2#TQR?e2Sb*=t~x7*btN zkDwM(?N%tok*4*`R=ujFn~AUUFldnw$;3p)x5OUyyVurRM)%!YOIOMq#9II>Zy)ZT~k8fEkUDvqUe&gvhnZc=0!oFga! zx7hyziOt*!DwFHY_XZEt5Xi?`hh;0MNv=*Gl!+bxA`UP|Ac=R7@xVYc&oueNP?+-$ zwk+$K^NJS?Af8L0*e2e?$LR;OAn*Tpih4|YfOE>oD*&B`6iT!aKTQWM9BAMxbL#&? z7_$b7=qIcp$`=T-t}F&?7Iqy{%<%Bm71}i8Z7>*gINsb>8P!iffaEAh7d(S z0ccfN<$NCVbUF2WHwny}67lOS?WKS_*DVd&j^ASea~wovqS64F?<%IU$7vg?Bu%qm zMu*(ycH|wiq4q3-+Jl51(nY41-jD3z`$uXk+mNb?&#{v3BG_VwzSPJs73@mt11)0psue%1SwH}qiN_a?BU|EMF5>A3vkqeq64GD0J(H-WFDn0YqpmoL*m^a+y zeRI%%$O3?t_*u;YW&tQQ5L!(xUkb27A#B-Ca!hcjfXuN;$;NQiMq5B83b#ihflfl3?aa%jMBu<_Lc zruyNs_Otu8!v-5XV?Ui;oAE%!Zx47RM@WRj24_C++2nL+Fpj~5M-ATa0!sc@3YRT= zATa%Ox1rC+J)1xrF?;cNbARIrM;V0RlzP62MSNs4&!GYLraQ-A0ax7@+U+ue)7`@` zf(yIyl?!|?%HT>JQ@Hb=!ttgDD56VIL!=-ZskZFX9S1)Op1=e$-R&YtE%n#bjKlvG z2tHwf_&o$z^gr@Mu3s$Pn5Mzhw`k@Gqml_`fFpVCo|~U{55AYm4*`QA)gj!2tPQ>7eKQ z*$w|v@QZyV%d4T2z)f(hr(>M!@>v#$<{^mOXY1$scf}8RwhJSk(%J^e4KntIfaBp)qq z?Y~j}E6fn-zq9*~+Wc4An7x1U``-%rU$p)|<^HKgA6P!Bk--0Cha}`Vt=Y+A4JP)| z6wCMY^+nPi+xYy|%Pzjk?0W6_FltTA4JkE8hJR>U~uLIz#Fg-Tk%d~XgUWeBV;488)J3d0RT#9Xe3P^D+FMrD_ zz^eze1AzN0jm^vwFxTd~-e!iY`ivK6S*vE1;#D6%I6V%XK>}vS780wqcc{695@U09 zM1x%{$&aVmxA@S}kf4W_4jXk5DXh%)j}V8J1{ zW)OxykfAzUW}Z3~xC)nNR3a{OG&}_qxN-waDNgqT@U>z!x?aVZitW|VFAmm6!KEzu z{S`PW0}9{;139uJU)v%$efFM0=$a*nubsBNg)%us(tZ`t;5t}B?>UG2J3mH|}G;zK#H)eq&|>ppZI z0Tx!8ZUW#-w>r=Vr=B0Ha`94cbZsent8_et(|Q4pFlshFTZODTjxP+>M!^kf8cG0B z(0b+pQzs}ZzUnL{QI@I>lNB?4lA-O*d+N5V<&HZ-1k6rJg|+X7#V3#5aVSaQ7iUyz z(h30+6(kTSz6vNw;S>Y4+znQK&nYGgSC&&ROh8tAHAvUY5x*rz5ugB@v#6$tMIpor z#8OWf$bnM$ECs1?Lr7X>6Zcno5=U>KBvV;tN7O(d#Q29a5gUrV8Rz#)x(x2*u6 z2FiMow&?fWk56m0hvkN{lBak^e_~*B%e$wuUFUBom?$B~5OTY?tXq zZsU?fav59fnljN0C32~-x6+szX1hj=#$8A*g~?7cDJDe|hNy;Ww;OWFb;hOA-e-+E zXX>l7&-wqH&(F;FTeF^Lz3;o;HP-ii&--K2$<=o123>cKBKLBMk8|L9W5JCWeYmOV zkgB+2RC3!z#gO`aqi9p9d#P%Qj_DgL+OFf;#LF2+-IzI6?$yy`ugwo7uY9ml4wEbj zo!AI^?kPwgfL9&BuJkv;cbc5Kh?N^swG~p`tu2zet5-$Ayjgy2SFJ{T_mV?eL@WZ? zsuT-82LCU(I#cS(nlwl7Hxita(OFXCoytWK@&=>el%J|5UdQ;s?M0JxP=sBPDPC+J zc7s2M_*i!4G73p2M*GXTMTPwE93_2{Zb*Q;ZQq$W1DZ*oc{?FffPCAJNU7$=G8js3 z-HCagGDNK0l{IEgU|ck-R_cm5b?;kVOr5W###pylu)kcSoE+=2`JlNOGGiuhHn{Ns zRzi2g3C12->ya%TLpLN#ir@7HF&|R>8E~{+NG7!j8^Xf8+b@b$&!rR0rPg&R*X9sY z9OTaWVBeKuJ?kyB~yj=QHA!EQfKnkZ*es?2o8%cYCu$s!f;$- z&k3Z_DEi2ygH%t8)+3jKy<~{66z-(30Xpp5+TQLSu=SEHQ(J)9ZThI z6q^%By>&nKKbg+5?^lC2^>s5!IgJ@pR^;3Wdf~n4JKUK7dx~1#4bSb~0vMeMcdKt= z(m1%bG#P6idqh>gQYvi5RM?~DiAk9`nHG^RtJ`neSy3*KNkVjj) z>($g!dy2`0Hqu|V8mY%jscwET@To9(EqKLEdVvLvn2S6<7IE)#mo@TMNvECHx_ zSp!1*)N&KP!j9=W^^hK;7CpGB+|#D*lQoHPSXO)FL1Tw$_2>b5f)eWd`WqRBW#$35 zGgcaS&vmLf&$F+t@}S4%hW~-bG6=^#CblL!#~o-v2DlGrcy9J)6Mx+1y2$`rn<-Th zybH!J+c8~6E{O0bWL!|R$szYeH&Ny^x~y=+i?*-rRSyG7N78k(%N6bTQ??XkLG+Flk4BXI zK+q!YeFFK&Yw28P>nZ8uIu=IME^FxI;U`(LR@!@xs^hV#U>1j*c;)Vi)C^5;7BU;y zSW!@pN&U| zFDD_H#vGj51WPR~VnBkd#6Oe$a|b@9B~KU?K3hh<`)byTz_9>qB;l3gkxLdysy@jo z@|OH8TMy~?wjtoG(}of;$8`?X7W&P}zc(m!63t^%Wc6`(6niPM-D(sAtx0!>`5#js zP@k+TD+75WW(RC!%?RIqD4Fl(jL7$A!!0x5#J($YcQuVrRaUhfuuSU8Ro(&+PilmO za4JmrOMz>(=Rq*7ZNh~Hlg=rbpScj3pKq5Gv6_4q%(xf_Hy~hXM{gnL3coN%UxBs` zm+XjsJQfE$h}t#@JZC$?!DN0=`PVr}Gma#PV_d!+oZAvtu&mXLuV6z_u5AP{I3m}- zKf$=2G3>$wsk98lbYE%P8DsFsq{cUSGkWd*$nN~-w4u1&Jodw-`iHH+WUm%mny406>YyB!d=JG*V*PpxCxIJ;wp=1U|Pg>Mdd;jNUy;Zkf&ljN{sf1Zbx^;10na?kD z3$tjxPvb6r(Udf4R3bozoG9Y@*tc2=uTTOMEw^`OTx$8n+)hg~-sxz`p%k@T;$%G^iL%2<+7! z&7&-z!p}v9oZwWflA+&5EXGufyStBQze+u@8E z_IZq!>u+$RY{I_H;kpdwCv{{j5hz$Y96*2A!5LG)XAeB?oqs2o?E01ETz4cJ^E;zj zTjM@4P4i&UqjayszDB1{3eIV&ky=PMB#o;V?{R)N;(2uVsI)9%PSaaCHwA$+$$$J1 zQBGRRx)GP%SWmx`S+7O6%h%ku_of#SZR*rzMAARovd(hD?75;)8fLDc_-6XD+=i_2 z)+Ov`US0uO63stN$?Y;735;p!tq^}iXlPM?4(B!N_D!a7qFWEU5w;~YGvv983-?Hz zkSc z>1A7|XMWnw0N zJJ+OssUntWcI;R~@h>s^o0n~So=K~U^|Jo6^j#gtEbHnRe&Y2ca?RzGYR^N0A-M@D zFn^y?evz0y5aj=}!p=bzV|xW8{YoHN5mwlJef(q-1Qe9V!VX{}g8f4G3s-@QJq0Cq4KfpTrBr;zRP(y)JZ+fhWpvy)uvQTCuI;4QHpcYA}RmTMd9r@m< z`Ejz5Lgn%+u##7akl?HilnMgyr-8qu_^uH(f~fMaU&Uaql0_CbK3QVAH0SP5QW F{{W>k z{(^gZ>$s(@#xzz4cU8SCzaJ6f_0^761nT0EhwlN13KN5CA|7Gys4OfP>T&vaxnF zvUb!}cC$5d(582_vIOTsLsDh~AYZQk-}YaufzpH_*)B$q$hG)`&?cSa;#Yn+)c``goD)34T6wSFPJO^S%&zWwbgI{54i zJ$(mcZP>VR_8RKP*%&|!2$r!&rksQztFNqh4IbBi>*n&uvQaF(L*Xi$4VSUr#T^fCQyn1jL(&mA!l<7Ex*<^GNZR+9(J>%6R@zV%{xY4}%L! zJdu0-#8>MqrQv88+;3`K%7T*b?3{qqXtAOr&D=JLsFtm3#DC5?|ipsVJFpnpNs&*>jP&=^9$Lp9`nAp+9=i$!7E`lCYrN zyd4$mBg?+@)~IGV9m;g;W{2-8=|36p3nwaEeu+?jCrKmX92W`{05JYSA(R)*xLPu} z*w|a>+t^tA7Pm@OmSh(gFQ9q8y%m(22(CS;I5Z8v_^^AzE_E8jTPOD z11hIeayGvyo|2{5rJ7MqZ2g5w4n57@Ne z$)i#e)gl${l#htyK~D&96E2e0?|LiKCk`j25V#sz@Zn@U1g3h_UqVnx-4_lI9sc4x z#KJRF9=54Cvy1;lef*#**DwjGijqlR0wl^O1gmaRBQ{?(FY zuApXKFUV%JcuR*){Yp0J z#rFOk+Rf%S9{>%Vd);`19t&_zoM-bJO72RhvX-ShO1JbHeeOAzqB++%U=Z~AVL zV`JG+tD^6g^-fD}INNBwMk{`*iuHWDOd2%{I_AL(MdR$G@?STj?=VEZwck8Ehyw^-0A2pbsi|Kf9h^0kFS_bAfMt(HmU;iLxT1xm|X1eFR zP;*hcRC$rLR0li!Bb#s5vKXW2?D#R7L~R*R@l;NkgoVyahUe zk@!&>`B8P7;e{E0=Z-ILLh|{`FO4q&1`hxS@xq;d#h5=c=s)oW;wAliVc>uFR;nl? z)y)WMdG!>`=#uV?i8|-VKysk6j{-MPO|?Ky%%G?RdD)`I;4Z z9SZ%jgQhSH4f-Rx^akFze%dSyj-NM_ zWVpe3Ur2;68YY5R%tsiV-kLj%y&in=w?oyNK6e312W5WMb#>r0D&wu^2BC#3*iU|L zMC0eU@De;oZh-NfDPo$N4v{Okv*rh58MhIOj=Vd>ErJp$!eZ8U9zl-a;C?Y8Z>l(l zt=!ZmmE$!>!TUj~wuLj=p^IbV&4Iq@m6w(NyU7><2 zM+b)A4@|%L-Hdb#r425$pf;Q7r(osQQBq_mDEd{5`0nfbLw9l<@z;X0qz>Gg_bYXn z+_j4p?aE(_an8gmG!Bz68_0B@FWnz`Zq%(^N`{Aq-IPd+ogDOf~$ZhX9MEBCgl^*+uTwCBsl(s5?*DtLTSA&PV!DzI;v^;~XF zVo*M-oGZt6zpM8oIMk`zT7Lp-@I{kvoc5TusI?%LU|k%F&Cl}ilqPLietW2**S%7C zvvB5CRq%A2^}eFXz+!((EKQT4*8AD@v3jvow0|1{ zQ<fVNC^=+L;%ZPxosl9d4H@*;$dvlzJ`A$G*KMdd^jg6<$e`XQ}2*^O#G(XU+@Z2iYYY*2frczN-O_ zhvKD_yO5zp0BYT;30E*-GsZ#dWy z;m-+#1(E}?fNVfypf$`$T9g~+%>;lbbFy&+rg=QZKg2)9Kfpi1Kf*u5U+~OGnAmDv zGKYt*T+o&Iv%plhQ|J1}((&#ZNbI=HQkvA)76fDt$cUC3Qgul2QnbjHmK)6rL0x3@ zK%I(vUKhR{C%(=1B*^PJ*XZ;Toc$k{MjJlI@S9wWMIhvD>p$G?r#lSUy$1<0eT?#b z>g}k8)cxFH-vRsT$IW~hQy*UP5}s%U=C_%!X^Wntn)M3}JNGiz2edl^=$1z~_j}aK zt2akAaTgjA?q!B8@6U8-dfeZ0ZDa(knSJ{VT1G^971ZUjP=`Oy$pvfRNAX zG@{{mPD_mHP2!p?4r8-!9W`bh$9r2L(KN!!Z{#-!nTSLURHiTFIZ9kPRskdlR$}<( z<0!)yD#{yW4+^OC7t5BmW#L&6A9OcDW~zN--K#DpS(+jE&dJEZ$XUrz$!W`B%Xw1I z?A68$VMDqJUI+gKuYtF~8{qBi7=DVcB*zXD1_dBz5=~!O!@2mb7x+pKYwXc_nz##7 zp|reu_E&)|pFxeya?O|GNc>W;2z1 zq=QmOE3Iuz(@#%G^h^!i>uBjx1oUYYbTd21{{XhLZup5X5fcF*V*9XJLV2Hz#0u}o|<4d37cxo_~0BzI0 zFE6ha758)VWPI;-#)t%%J;MB<0&AJgGQup=lYOqQd6jcrnQ$G-(4??&01011etU4> z!F%?_b%ncXTZ3hv<9pLS>cb!%ksT9e(VG!Dx<=D;GX995>fw`NB9J=2r3kafGf?a2eA3 zTnYPDy`UA4qVgKIU>LQBRN+d@oK628yWusy{T))nV-Qb$GjB|G8?&CbN$%4~_hV3; zmylUoPU(vLvQ44ujJ(TDcz3UvgLxuataE6!flfiDAZMyTCMO6g1il+mAIi?Bo}UNI z8v_vkb)7zhDfgOnl*WNE%CFV}j|pE#omLXSuJ9J`i@O>Bd8vw`2nVDbE6OKN6KqI5 z+b02*f&3(3rWj~(1X8FtC@RAVT#WemNj0DmMWjl+i%a4jSAvn*1fCeF(dTG!Nr}8M z;haE0{6J&`ZH$kr+0PI_C>HG82DsrKN@@9&Tt*?isLtFs2gtth=$h!_meZR{!(SSs zSY82Ap_qJ9_-VmxAYjO=Zm6~glp9QbZsHg?aYRyxILHB?O@4$_M<_3QeW{GNgD>S4 zXGes}+64}yGiGmYvnpaeMrR5$X}=q2mW^@czBkPi0S3||yt5s9_VI^Edo`{V@KYay zoKjjLC5KT=ZyeP*xP2hBTq5yDoP9d0n~Ozp`I|$TX<^BzDdG7{$V7PRSITUK1o92p zXYCBnP+l+}XrMJwXTt;%eW+nnV2cTq155W{wFoG=%ud;hqDTfH_y}d=lKefIir?1+ zcN+8m}1{7?5pkN>fCb$X&dWnH=W0IFcf)E#>zid4Qln+p>_j|F!DH!Nuy%g^9YB)M}N z#}b^#V%qyzAyJwF-BUJPyxKrMRL#`@zO2Qm>T55W2Kl}|Y6Mv|@|V^kNz)uDPo=~~ zGu6A-OSrRmWOj~r`vwCE%zw=f$g zc4M+heyDO~LMvVk{Q8$g6lzlY>>fyD#$gqEkGSA5oQ} zsrB{O6-1<^x&5N&ac{5goKDs5!Vfq0jM!c2iI5qRCmdVLmU;7Cx=mH8+%PLL!s>cj zZLaQz?{0QOb;js-x5iIRG~9VC+3q)hdY|34?ysKzF<+M9^PvrRDNXp`{Z?B4JzsV- zHL@~d_wOE(rkW)SXE`~zVdQ?;AVoTNYt;x)IR*0S7>q@y> z!oB(`Pjb{u9@~_>TqAWtS8?|*HLd9qWJ!!QbHR{fdu36eRL;&dFQZ{aHQQ zF z>`4mKyg@1}pw3WNBS37((fXK2bFbbVE_3cKO5U8*wNlHc5-oj*vKMx^2_qkJ*e)#a z&8I4*2)aCX@etG*gSP`XCd_L*q_QZe7UH6YmKcg=j^b$jLxZ9qMXTWh^EwEKMjV_R*NHc5lgBNlAD^ z$04yUS!*sc&O0wNxL@_^l~troljG=~lsO{~ZKlYazcVi*zs_rLwIv;NW|*z+dJ^2+ zsZ>8|Vmq3abuPc^vw)nqvJyAVOeMv`LK}8^W4Pu-I@MnuAhOVzOSV*@R5P+pj=^sg zkE!;SvvO>&-uKh-qaJ=BW!50iRv%#hU~p5*?28Lb{2nG?KiCN-A=O%{oI998EID}| z-*6tBlb9|cNYjNQW2caLr#GPTvr+rYR5pcBl^4Dw-tdp${u+$fSM&Tz+Ek`{87_;J zsO@gE&~#i!h*x*EskGV7^;&x*T)|M^Li^9KpR^NPiKZ73VhMT8m7ZeuI?IXSQ?bz|%Q)?}w2;bXsTuYp3j2UX>7c~a zheWBmdA1Y9{dtQrf5Dm&wB+xNHjKokQ-dRj=5eRBh*HD!8Zzdp_24lQ)T59E*K-kD`c2j`Dm?dhHzM(w{v#%_$OgJSUq^C zJ)Zi1@hS7%yrsSy%EsEL*g}JyiIXCQ8BbJ zKWQr8|DZ@V^c-}y>WrgS`lMVOR)4ptSaSTdxefwlQs{ZkT35U4)Na;!Z&vN zOraaHv&8lA`PDxac~Fy+iWgpL>dG$>3+Z1$%fZpj(#YYr%Fcn>u=NHTs1KIFw_%!N&2J_(DLYt#`ZVw zk8>q$a2vGHbLl=17vq%G&~Ha68Ci7NIgv<_eE1v_W`Lw!V_&R@nxSfpY7%wah#qV} zEkC3;@~wbzO|4}m!I|7GlvP_%^s;s>kTz?0r942{bpT*~2*dHs+$Ptf+BSlRYlMp>Pm`lrm6nLU14-@JZS)}KNW%HlaRH1YU3 z2Afdwd49L<#C#!Bh`xbM>JrMH)#Xf3VZj-sgQW3;6Cb$7w1iMo;+=bOjU9^$Q{R7( zovS6g4;oWzO7ElESq8oK&l6#eW5(T-kBv{;WJ<%ES3?5|+^odm@w}e=sS4pRIBQx$ zM;y8;ZJH~LkoSJ3bv~(*0-~?32Uh4)W{aZh{_UEn?Sy;Q}fYW8SSf^Y-| zUTxlvxz&?K(uuZY*_t?+g6ydz!uJTTJIsy5RpV6!rU{FakYzBph>Ra>II5jkXZ(AJ zIKuw;pLHpGD7Qz(ZSa(GkmG8FOk=7&54v<-((dEJ5MD6eVc!%VNtXrre=<&1iJx!#->b>W^6DB z3>>0SWQUAk+tY6&ye4Lwt6DgY1@pe+>h5?BA>!@}CS1Z++4l#x41fx+IA`A_@LAu) z6;?N(Am*%cLiOYzAV(i93a-1-rg=i0UWqVwE06{X3ACCLa$t}`hg4+fq~pOC=PK+v z6`af`$|p5=_wM|RPUo}XTYB<3zdkHTZxcO9#vf$CM8VK)=dK90A7NExu_7c&6SSc~ z%3!8|S!VRC!H*apd-C0M?8*V}8b1nGnjIygsNKNAJhx@nKeF;@+Q(QA8cqB@T_ncs#@0#45 zVF`~r{kjBH%Q>nd8c8<|DK&Vs3u(LR=9%G}lYti|l}&?BGEdBD5pyPxkLkmVNM#6) z==JLBThV}`o@_%_&P;kM^<8vcn!Cx0&BW=OLWR==oN9@R3FdpYQg5OaS%&iBLTi#i zO(uT3Zd^Tt!T}X69_)&qT2~t0jP-oiXOH4As{qZkvn;A!(9aIML7|eZ}2$+JjORs&)63Oa{{#__MYtu+wM`98E4sSo)6#>Iw zJvZ+esmy=(_U!Q|2v@D7j)}{{=O*bckCke3O#al`W{ipx6LYd`oQG5js7=jjH9has zMF!l5)ekaUcpb=5CjW@8gN)c^9C z$eZ_x%ZuBK?@2xmX~UMXVA;${cmMXo>iXg=Fak`Q@y42#^ZTbXOwv2xsfQ#FV?^_I z#731;_u3DSS)$XSG0_tsmh3ceziqRr9-f{5rh5E5N8=c*Hymv{e`A(y?Up)lNj&uW zhVF-4R$JiH<8hx{`L^n}GnD~3?o_JVhs;Zxmo@p9B||{cy+o>io@)Hh%Khi~4>OMP zQhycj*ZHge0Dn6sztH1P(^$U(f1OGB1KRvj3i@S2ILy9K$KUTAT74Yl3#2*4cgue^;{s z1@HBo(|vlne|2uxt*YO>RV6PC4TA}Q1Hc0S01&|7D8o$W1pp8Y0{~zE;Gr~yZEYNl zZ5(x#-0X}Uv>9Ektw?fVps2F}P>}ckcl;M?pe+8oTsJeS=(WUy@Fs)QV)Z+Cjzj-` zblMLB9X)Y-|IezA7Mv`3-a^>)>-S z_4Xf7wBz8$+H0sEXJg{OW5LzcjW9_AB!6t^R$v!d6O<~$GsD6b@ZHFm?^i)v>1#sz ztWnG}u+X_Gr?QO3{jFpYbz>Z3%EFw+L+5;hK@uj6)MF9bS*JiAq^3w?pwMK0mn7Zh zK;6hTt!D_e%nXiheZ4fY0{69zi%6Coue#*Z#b=GaXiK_wPc2XPcIwEm3;DZdPAoHB z2F=WOejxveIe@%nSS@xrtIeoa&s(fKneQiEBun=cYZwGQEBHpunNiV3azIjR`qhH| zOp*6IT(th)MFWG4+#T-^4GBDL3ddh=!ie5HV_u>CY(DQ0LLKY?k$VLnt`7X<^*9*Y z(hN8{P5kM@`UD36JU>GNizI- zVTmtdZvb?)&R!OVj>$__?@|s;wR39}ZE0h1 zj`ZLPnb_p1NEPZRqbeQ(MgajBn?J=*qfb_S+2E$)#k7#(VLA9q16TH5+-RE5Y+~V0 zaO>eh=q?>N8T1b$E?$N()Zd+Cts%kkc@U-|+1$ckfTSq!rE(74PEO8WLuaXy;jvAkHlJ z-t|v+!8?{GQ0yE;OA(sN1IA?}yS~DsG zRmNhG>a_e~sBY96qK(P&o&8x%>hg0bVhdXmR=YDQh%XmIGE@i%Dj0qqLt|hvV&5Rv z3Q3=ZEMBRKsLYe>sd2r%A|XN|Cuh-Zj3Ll?etQ$MDV2{v+aOavxga{uxSpzf=M^HtjYwf<`Xepv6++vOn+D12UUaC(P?mKDBw^B1drgn%(8fq++Q zqC8XqWzH$e$yG=1@K6#N2Te3OsqxfKJ)bbZ)ev$Jcb9AMR!wm{y)T{c~+lb1@R}F)4|`gk*75Z`del1(w}tM z*@c9YpAvLuFj>v^pR+sQj2b08oJELIG50sn#6W9FIN|hv%%AVIaek|AL*-oJ?sS~H zrPb?oebsLL0NAs1-`wuKjKQD0PAdIQcCBMn`kpJykZY7N?)Kp3v1ZHuYJv9N=}p%| zzi+Bxmoo4CRJxV@6&J({|L&)L0`W=bkSEO$GQ$JFzkvAZKltp=-uf?YdjVN$LcIOI z`zTY8mF{6iZAE+vW_C$)#zOny$V7UeypIAuSWB}&31aiUSiz@l)>fO5W`ec_yB!br zJ706WUWdlG?4&FHgbw45VRg(4Ydd^C3=MB^SWe_G4vT?)u(w}&i1<3y0i#JEc7Q$; zlY9GyngTaCuaH#aqG!6v@e{|f4?|3*&OVjUV+T?-%Z9PNYBR>vNB4+2LOPOH~tyg z9n6f49UYi{zp(rk(Eb4D@ zc^2$^S{Acp`r86}I-50~#7StS>jx=!(l+pd>B8@|%W(@Yj=Hj5J(LS{!K8~+GfX=1 z?QAB!Q%7(p?6#$|?qxQlc=Pmru$ZHFt1^*Vk5u_qN6LbK<}SVnlN0(q_1o}YUJWsU1a7^}z$lm}WT zv)6ut<%9d-H_}g=k3s&lAE$JvZXX8Tp{U%>C%gvtbL`v|IbASC!yOcoy~Slx_1SNU zXmV=1d56!8Z@^Qv(eLX)S!Os;q=aV3mO*FM)gEgd`UwAh%oWAEO*D2|p;UuLby`Z> zY6yizU@mt%Y=`%X%qkz#;vEPY`Q~YuF(w57rrVg^%A#-5~TU$6QQ=`VleZ+T0kJL+;IbDJ#{4KU##F;N?eY~I z4+6=3X|cXi19nN$hl|5zv5W~tXI9~9z)j_5)&Uj5#Abw;!dYpeh-s~N+qX~L@+!mH`RtDn{5hhBl>uJ*;#?7o%hA+aOD0g+h7Sb+M> zeR}?#m;tzO4oKKQdKNYPFMWCeo!9|{aQB!4Q_w_;x|P9p{_Y(t2?SNUe6EpJ3Y5bK zZrMTDgCM>Ry%0Yl|IK(J{V;O2L z0mLhGWgc6CyBO52!?qS*t}dd$VVRd2gk7Q?)QJjB7=Q+6h(rmJ;9SSl9AZv3{L-Np z+W9Jg0}dalp1X>$ey-?Uq0sQLk_5Lg9cIkMc*xP3hS`Liv+`!#K@AA>#u*PSjs=7v zR2Vn}pMp_MVk9~6imLH94J3vf!2c+cEY!)>Ki^W6=QiHQig9cm^y1{8&up1+J7`Y`KEvtC5kv9G1(BM6%sRGu28O+ANE2IZ*(+7KOi!pJ~T-w zRuHG6kV%i_pCkzzSceWrMt?zGNC@~C6ohnNp)WqReZ*rn=N|jBCFC`&Bc(?MFj#h@ z+zc=5GN7@Lb$9kdMJW=VUHp3`I6{tZJG24VxLb4y)@QEmeRs?g>4AGl%Rqbd&up$# z1Cqrft20?~@)@120^;qx;Bvl4?0_BXNbj&tG7iWet5qp%tJndiWLpc^0sXqKD}MtG z)(oyjCb6N&!p%0O^Q9p%TJX4W;%fEUpINas+H7r38rkK2tAf0`@uGqpv0}Cf-?WW+ zvBv2lfF;8mj7s*1CHz?Wy=i#0kQjelr7E;7BJY zLAq|)=RcAZOlC;P#!CP|g!H%E+3zIfXl86}%=G*DcYZq1ShB%y!fIn0b0OK*86Vp1 zk3}=iS#iZ!U@@TR)lon%&>zBmMQ*G~jjd)>d1Vp?wUEmNJHLF9OKp)&(@fpGOXr#e zdgt$akIKIp&Mq7_KX)tG5LAvhYS-p)bDG}W&9=GtxXWj<8xJq(HgV?9+ZHUrx{Z-K zq_G^gmOXV6t;C(8*M~82mMG#*ymWsWb+oRH6_ZR7{eF|t#w|wSe92xtG6(lNucsWk zE9Vwz-z%HmGCs5$q>H{Xf;;b40>e~S>Q0v8)`z7nUB+i`H$NiTB1f4P54uM$xD0Zs zJunMKzXq>5!sFG#P7+SiidI`=%gq&A;}hJ|^U#2t925g6sroz2o8Gc5!C4G%PV${^ z!bsAvC>oizPc3JyUyWPR5LoI&>q)qneNwb2nRyUovkW*jT=uTJ#W>XVxd4TnA0NR_ z<(IesqA2}Mnxx#3Y?W(#eK3RXgmm!Hww!#`DePkc@`zx~GD2yhH?-8HDpx_s&C8P-G0)jZj0yBY*Lob)7fp- zm_UXot+Mgp;hK?3{Qc4O+vn@bx5CeN=eBM4dpI^N^y|9Mr(v@`_x;x;!6iv)>(fk3 zI_-_Fm!(Y4x51SJ^9xW>pH4s#p(4SXNc`I@NMp%e+waBJP0+jH6{VrXvlnujD@hSu z8+(R=_E8rC-@_Ua;+#CKr}SQOqa%tE^1lr?Ky>Zk*|%F`?+{*6?d<9nWp!|2#1>sN z41cfffP#cK$?RA%9b}fHKEgA0sr5ku>5pjc_n6x9pGyJJwrzCt8X=D?RPg9YAnL`Y;md&6S(==ql5ayuN)OOf z_4qrS%l7UACH!SFYEnqAOKOF#l80`v1zvuq3pEXm1BO|rqIB-7>_)=Ki1l+5SDi|t zxk}^+1-gF3+lql93|c+1opi_4w>+Gogt0kZ!N&F|lpqD>V4o#UQn%{H~WzmP3>qBSIjMOP=>eiPUtwll^9$0Wf)kc z-F_NO<2yf3cS01odf2)({h5YrE+-(>EB7(J*?mj& zfv(AqqF1I9-4V`#FHmwPhb6P2h30^)+n6tSHRetmsRlQFHatPX^kE@Cu_^jRFB6l=V`DA5rXF)*5ibMpb7G(?7j!5mX>dz(R}dNICw?;I z->|E5XW^YTytI^T1Go^2$FZ>+Af5t+L#Caf4wn!T?9x&5D>CJ|nKVtS`JO7uWYn)3 zUU!~(hX3H}`Vp%zv`w=}Pi^^T+r~PeOPkY#dAATjoUOI1?Y#PayG}!sQI|OFHrKoW ztJSKx=4Y_x7Gl|%@{~cs_E9NMLz9#OSgJ`&O0d(!h=#SraTO_b znZPB3vnCU|oOH|K1d6?Co=PQZsn8@$8;>PZX3+UKn*OIJ8P;(FK=L(t5NGsc_24}6ygk3xV@+vP2f zyrADObqIT@z;Q4w9g!jRbqaaE^$T*Cv)9s|82CS?2LLa(Xb(rN^ALK^M+NE0c zxL~{l*`N=m(WO(eP%!9b|1Ve1qj{j6?x2g7Dd4p`AkKtNejj`P_PNl695inMH4q zi1aIYy0;=F%D2L}Y6(_cEP1*I-4e8-H1&%O&zn~0 z|H_<(nb2%xmW+T!OEDc=Dt-o^yr6N0jmIF+X1~e(6mJlnpz{Q=MIHl}%M8d2B{m*V z0jJh|@B&B#We1*9K)<+MhBN7&@RZV%rCu`E%MJ?i`+=z?sy~Rat0sGIujyM%(9$es zvin-Tl6?M7@ZtuxAe(%WTE)~0Hn_eZq&~(4Jz|Xu7!lm*y6Letz^u!;8ED$rrEY~1 zA-9wX)JTD=zV+Rd2C;=~%-o?JXrK%iV(z@EWg4_7ZofX$g(Ddv^FVqn{c_%lyBexJ(Y@S+|G)s8+=w-ukETBpF z;r))K@~ut4y~;h{gi(okxuRbF!&tdMkJHq2Yg6b=g^$$WCpN9Pp~B)r4NK4QsS#z4;gza|3%yv{h^OEex)b}U*G>69qE2v z?YWO(Sdn&oF2bxJO1jQWQ@9#|@|v|cdpI@O>x=@RSBS0X#1)zRXSD;FM&def z-Ogh$UfXSk=iPRNcGcV(#DuqY@ZQ&4Yn?F>Ne}J6j*s`|rlH|084#O;dl2QqUTBp= zURkVu;Y@tb4RkMxIp!JcIM1*P5gRe%4oN3J3+QD|&k~oM>L%hp|Iq8;)$W}+zM2S)J$mdKCm$1!S*jG9 zzIz7;SeKop>Bi=(=f}g5s`&kD)X~`SS2Bu3#k22l-V2l@(Xj?KgqkF}+mk^f351%Z zM|16$$3`3+ZTF7^PX}$y-BW5*8{kVL6pq1S$!%{1HaI*h=I$<*1z7qJp^Iy0P}qhb zX?)edAh}+fi`y12)*CF*uxF_C*F*n#&qfSK?P3nmW&lK+XpmgAk*%S;y{(-ClcBA> z@jtsA{+EJ=m|0-#xLg-ACiqy^Gq~V7Z^74Zm=m2tOVWT;Y(smJNblo*YW=H4T&9*w zSWkHNQ~o~uAJ)FWa2<}r+fkRN=lpTK7}F6l>I`gBG4Jofui;frlw=GY`H7mnHqC@# zi_}3RV$x$~(FDYzGUzJQjY>f<#tLJR6bQ1(;p0Oa+Ec%SI9>0Cr=1?}sFzr9SD28=KpMF%kB-7^sTSRxl|J@wG z>U3;%_Tm@3Ki-$bh$@jH*ptpJ)h!U^;QVA+$2TSiMJ^gmFFo+J+;S5*HCd*Wbtjj( z1SOB!$KHBQ;C6f0l6AXAsY)ofG>Nu{RGmnrPS zo(NxvyVMPtY>kP}7ORtP9YwuukL@#essW90gVp~9CeqU?Q{PPSPp4J(>wqTt6 z;EsQ@*zRlt6n>lvA;TN?O~b?k6rI(kfi}S|qB2xM5yVK~m!yb6R4&kmDHI=~Cn9em zZ$fXnLH{c5K*dA$`r}JaR69G`17tB&n{-kedXD5a6}pg%SErs*e9Yl3Md2HBH0vi8 zL|0Ld6AdpGGx7U(!<<$ot>Sh>d;Bin>+#cdns zwFiDZUA%lSNNoRpYe~gHk%gl9_TTjN0*V1bRsXrg>|Yc3uj_wkIFpzDtAM{Y!~6^Q z+cgQ|C4Xv-`4#wUgTNoq7D#RBmv(_)!GEn<{s9F5j9&c?{(owizsmWwl=X+CB&2^2 z;%|kmU#0w-Yy3kBA7rNi`IKKXkG~4|bz|~}0C`A_4Ir8mAn)<1Ud*52n+}a2oXqp?*v*LCIrv(}J4D6~LF=LKXMbN%2v?%8w|_3) z3c_ZSh1kDlwfLk<);+CH)+PpuIhkFZcA zCB|Sy5*^5fm>!q~x@`PlkSSp?6@qzy|6?=~1R$WF7@C^A`y}R~+%#6CT9EBr?f~<6 z02LTU1z5%xvsUNU;au^2SvV$?wp#xx7-fJZ7 zeDJmSN65(Y;$|$epp=_{csr4@ufN0wQe#v;Db8j$1un8Ob|AQzU#IWK*!m`S)Y%Bp z(;iDj1S&cgNt0V;aPpgj3p6#kW0I&t#qI!#>*C|$Q>vJx2c>Ig40U-+Nv_oBHi_u` zt#B>!G`$)&ELtIMFeXpxU(F#IjV;5MD$qqirOV3Tnr60~v-s(BzvZN&Qv|+H4(W@z zRE!ZPL$lQ??-6UF$5(6>C36mo8pA9{PGS!|W9y!K;q-2_Pj5Qej1fg*7StD}X|Z9l zoJT*+2A13LOpgIJ*#7d7o6&#>f|4y@R{P&Y;;Bex#RLul!URlzNI+!Vtr^_x9IXuP z?5zIFbpM^aZJ#ag=&d{G<^HWhq@}9w+iuc= zYu2i2tMroA-1yPc6B&QY<<{$JmbCu}suJa4L1=VHnvj9BP+>xldW=lhbV&Ncaok2* zBNQ4VMNZuy1hc^L)3FhiD#m0jsbh`{dGJTkU*GtMw$s_M2i%sp(&VNlC5f*ssckf$bX%MS&b?;_q%ei@UniW)|t2};mV_;RS%H-`*^4EFI2q=_=Wmj zX@U2#+7&OFDcJbxRNsLWAK*#fP@|6L z7St+)<@!-srh@mh!pSuWIKIa6Hh7JB{yLJ}o?$nS0#iRAf0TT-%xJ4f--lJOh}+10 z%9$)0$T`9iH`%`WRm$UfLX$%5_KeK=^ZfZy-HKP8<8Jx;9xs^g2}e&vo%L9$K~pDRONWhRz9yWom9o!yoIA8-DF7ogx9E4g&$ zt)~x;M~qeGQTNAe-8UpI2V)f{%Fftt)%45a@bAe4Xw%q_DkA(F$S_UlHCYXfv1uyd|2)3bZ zwTu(6%>`~gHDx%*#h(N>0c)A0fHvv1Eppz{v$u26>Ezm``AktzA&xc1q@>n>LN+zx zepA_H;mj6D4=If5(H{yg8huI5QmeyB?27(cbvZcN(_V0Ed`4Cjd9;pfjj(qXNXIv@ zIiGQg={eXS(Tq5ea#0DrZ)vt-b}IhZYhx|A%J=CPt+%tTcEg+*AHs}Bk$voT&+KDY zg9%E-Wtan}X{Uo-dM~*Hunfv%Yw*Tei_X!ly|1K}P@4h>HpzxG| z844Q&1{5f-|2GZ&uOj>ZQW7X|R|&NJKl|!P7?74#{|G$faX`%>R4)F3tcYcu zv_M*x`)TJIAxhCT#IfVHEyM4`P$~y z(UKVO(;6|VzQiPklx_8O_3anVj(uoZ8wrXwt%b&KH#bQ@X$@q!b_lC8+_Bb<{F|bS z{*!#3$(hE$es7n<%Y)WmZ;O|9*Swz}U(Ma0FK-{#`|V$k)SJT zW3L@P_qUht+q&CYFJJfQIN83hho9~1jdIst zx3^Et)z6~5+rIAa7@yyF=kMFy+?ww%w&ATYc6{HT1l@kmSM$T$27A@ld>!9!*IfD4 zdOqIIpHJJq?+>q+dVKmD-_&Q#*SeqQ%wN?5-)b?p+Om+`eMI@#Ud!|&OC z-k*NQNPgS9ei08buWn8qKis~bR-V3fzaRRiuW$d&m+1O*eI5=kN9?^PHkL8yb-$j5 zw5y%$eO~f)8-IVDov(LiZTYtNJU?PKQ|Wd~+MVd}`Mi0dZVVN2MEbU(iHmM`y}y0M ztS_!35%_v{s^kRfeLZjb%ysW$+GSkH>Xl%n5 z@9!@e?7nYz&+i9)m(&hBsK<^0p)%lEZ@761V4A%p~Em}6lw>`5=%4;CnZ^EYp=weY3mF`G?P{uPz{a7 zB_FJf)+OO-YmLa@QtNfZ3iN5bqQysv-=jmNKmU>tJNcc2jvNqh5HmFnM~6;ahLI4* zd!2=jTx4kg6iuHuPynl)_QJ-l40tH1n>1p=rq65tEja*}u%?)3O+2xt1Zhotv8EJh zO#-l{3@eO-v8Eg=jKi^}JS&W&v8KW+jN`DT(khITu%^l?jMK2D+A5s0GJ`Zuxw&ZS z=R91KObhQXDke3LS2Z#kr|RoDtuoEbJeD}8r`{@DvN9nx&w+*wOF%>ON}%EFe})DB z8A{>+4O3ZxhMYFWS!x+BYa`s%?B@*t4_${P3zGYeJs+0r<5vXUbGdC-LgwrB=y5qc zmtU8X9?z8wCjRBm$v7T}R;N&WU0rqq3}8JCuiox&@p7;EH|1^wXmu~AA$p2zTfSc( zPutbkfOSsV%&cpIOx&u>>a5S>LBnhBPd>IUlHJyC%C84Kq;H))zHz?KQ-qz#OO3t_ zzpwjm&iBX9WHk^ezt?I$@K8VR_ubF$R`55!*Ks5}Ux|~#)Wyx2r~4wR@h19lL8vYO zQelP)vgWs}sR47cg_(@Tv#2Re@-I`N?8#xq22o$GYijN_{( zD?d*m&?nLu2E#REO-_C&mj(v}lb56F^3O|aNy^P_-g@vH0 z5xtw1U@*I!l#T;iR`ob;m2gvaUtRqo;e#|U4a28;K4*cC6&ZTHNk;3>99rY75q(Ya zH&X2EC1p>F%{(Gs>(7OS*V=U=W+V5=$b{h@)WJy@fNXL5ifCGBbi!fKae5> zDr@KU+1d%+9F7wXU(5eI{WOg7hWz;TZLsxlFOwxCCTZK}pJhHY3R*&5>1tD8QWe!u z)Cj<=XPp~c6xA$R6aS%%Q=KP~<5H5=a8lq9w3N;|w>CFquCmK@L5~VXM5Vt6@zdUe z3Z~Q>+0m~x5x=SshY_Zf37U-XK!F{EsAZBJrc^QV^pLP1^I3*@Vm+_&+*cPSYi%S% zacZn=r2GEKsy=nRnK>sd{Id=urBd5BrBNk&eBX-XZoSnTjKXCx?0E$RP+PKLrhKJ-M`QP^ej~8zg=LM1qXMF z6=#j(;p#2pn;UysG?-LB(pc6Ht$eBRD)V~+`eoYU7SV2t*F9AywW@ukP@$6Kr7M0o5<|=?vA7DoFvp+hhGZYN7 ziF{~=ElMI5X*L(|oC4-I;#1O?e?o*S7Igp#9~#Cooi}t}a!YL45s7WlXlZ9*fsKro zqN5=k)zJ0d&lYq%R;Zz+KFERNQUcPKfhq6fmEIQ1a|kd4$~xUFad(us{y#TNaR(Ma zem{;2NQc=G`^uBl_`6H$g_f@ZT>xgxt`Ik=U6i?--0;b0bI1hiJ#nsk8y1>i5UwZ~ zVi!l`C{d@I1^E9yu`5}?-lA?4o$3XN{ZLiffo}zC6g~G1|D*Y08Kv6FIv2Mz6k!g= zkT0rP4^<+Z#wM^oMr>K&V(u?lAYo+-D=%;sie=M#Sjb;^`*-Z~P*sT)2z<#2oAajv zF+W8OPqZv{PW(~fNkJCE<&3M(da@2PdZz9D!RD}BVr~Ufwx!>u-O*hrKD-eAO!I7T zr8a&J==4hj|OMr;KtMygwzU;8x4CBP!_)75d0x|N%? zA0(kJwE;&bq?Oy%{tYG8K4Dy~zV7lq3jVzy`gQQabE~e-0VAmzrMZramwN~^KKoN+ z$6@I1KFK~FT)73QU%y$G{w2r;IeQm5I}bCfi9?LZns7h7U7oWx*~-)7Ww31*W%=3!>Ogy#4slREhQeWTA3Zmor+t815`4mr?<3S1 zaUcG6b$a7~*C!9%jXaD9=-PG9bY`PW7Ha|n`wO2d@)dBnKDU=6mDQ9~&&-H$x7odC zL8-(VDynvJh%!TL2MTGqF`3n~VkokO0w>$*kT`cjX<)itBKkvdKZM9QdI+dl0S)B+)_67Y?ZaUDX9E$Wcj7xW zTE&`1{6l}o2RB`6+)2GD;ZR?Q?3kMZ;VH~L5>DD!_O9YLh;BR4z^9#8L}8UW#B5r} zk12e4`WP1TXliyY!H+cizPk9OI(7SyxoX&`+=?5PgbnC)>UwpPpxc$fH0J;#McL#f zC&w5VT#Z&SdWhn10*Fl&;iiQjI|L0px*xM93={vI!c&BYLeB9 ztqsGuK5zR-$pff6(1z$fmXu7fCzPY#HV7;p>%PXc#XY)vQB{5LaRV-9`&JUmK7E+6 zc}2gDy1Ech+-2QxMGn+^ygMeulr|(Na>+>D(R(akFdxF5-7en^sRBRp zDFPBXMWRpy&`9UIhgx?l89{7ypc@ z0Mgcw1wc-x6R1QyIbL#0ZP^ixZ2?QYrVf!tL!&@4(>s^O>0LH#6$V96ymP0R!Sup@ z_*GX*Cdsy=Nlb^X>xT|I0~;BW9}jwB?9Rby;faojuyR5Pm9U?HojM8~OC2g&Cc^6E zp^QxAKz^U~l;4>+o*w{{T{BU<67%FrpPk1kQz#6@MXb0aM3ld#LLGZc6l6$mXhWqI31MA71L38_v@GEq&g;$B#vc^KI5blSk~;%@Y>DGtNPi7>e0qK; zG&JLmMi;Tc$Ee*tY5ch!YCU;1d+_Hm_dxFWk9Is~d%!r!bjVzE2POP-w+&rzt05q- zLH{((3w9v;dzB>>=Zfs`abqxCnwnlNeF29{AspkXL0F~ZVMDuDKdz%TQ^GIvBaWi^ z$d=^R8aDh!kX~VXBqV{^lW${=%9U7?hxEEWz7oeJ_+yAv8dZa91W0Oipd;uWVB@VA z*~yrs@OyR=#N(HmdZ_?MCJW-{ivvo;GMY(H#X!g#Hl(@9=Cto|O0_9x+gmFvTe{Fo z`A_K=MTDr4mSsj~Hf4TR7&kU!D|^Ht+Do;~v)fZ0@zW1};N<*B5x)_!QA(7BG$&4% zWWm?RD!4uBKA1?hjz`zDZ^{upd7YM+B7;QFVmuEOni7O_yD2P5wtKrMabLw$-lPF? zl9SrwVE4Kd-hPsh>79vIm~-zf3tSOoLV(Gh)j{@(o+<|w(t~0*pMy9E!rAKcJTgK$8t0(h!7>JPYD#_On=` zWA1vX$NkWL_AhFroBTo}Z_aE^B;|vmSEZA6jzDy*2P`q$_KrS?kE;R6hKaIqg zEV8K@+)$h9x*2CE7kH4g82XmRYaXes4-+eVy26|Vw36+|NdC#A4~)<17szA1=yRtj zkwQtwcwsIl=NAm%hWyhHjJv8%_bhBr7ni)bujT>1N^l5R)n^nSVixBV3}~vMGl)q* z{uDTR89^$gZ(6*yo^c=3P+N~VB_Gwdf>e0Daq1L-a~owFu{CI@t7J0CFL2^@Fy74F%cpRAyo$dl8>(F zhZTY&#&Aj`aWd?InC^W8KEzHtXOqV; z3+($ME4e)EDHD^f*vAe{T}wh<7dqr*@F7ntwbGKm5HD*(s5%61H)lZJ<0YLeGvG5n zXYk)+Bpz3DJ4q}vgWX0VB%LEa2MVw+Yy2)S&}}k8+B&vWlChebbc2$r`+cq1dJ69X3wIwC$oH(E+N44;?&TcM8p)Jb#{065(1g=yTZkD=olacmr}s45or-rGv1OTppd93?wK*%8M9UBN;n0p2HN8FK+Q7WtsGmXFX z)P45rC{#N}A(P!G=mXal%St@8N{D0(u2BWa$R}B2Iac9E9JN`@3Mt7Xi^|7yg}%If z%5DO1D~P#k+;-s7*FCq??MlvMaEBY1E;{#Cg_M+j^x}p_8;1oj48%_S0uvP4?#5lY zknD-@&(dq#aF;gXG33f_K!}s2%dQbGFGom>$q8d@?b#Zdi=Rl9R;gZrxHG3V++wU5 zE$8a*urKhyYOR8=Aj=7Nk6W!@_ys+8!fSbirP0;MKa*QRcEE~4xT7^z1y^=JCHJNa zcO3WPXzL-`;lKDHba)VgEcKPOGpAAx2q8*RmuD4_xHE@=w}_MW46@aLQ{*BYDBUi== z`MMFo`K+Zdx9fW}19VJS^%`ik$w?L~EHv1=#lxNMaQ1?J(gkS>ANf1I_(&A1-gIS; zG9zC0F57$Nsc~Xx>MsY-IfXQlv)KE6ZRS_Ilm;{lfnVT$;O@zs|ta)U# zK76z>kQ@Mbp=$CXXifJm-Pa_lWkvP<>*&foJg<2K0xb>O>eIipSd)k~$&?aj{>+^c za6WD@2Hs!&m+E<$D|Njwz=JFvdTOI!HOw<1T7Qf*X`6WV19Q9QKEhGiTi`aZnby<$ zloYd0V83-eEIjp&O#+l}jlHsWe3^)KKp1p`(qM}9myDJgp1IFz^>v9fhd%*h=*WqU zf+y`Zfaeb^cR6?)karS&3x>$e!{JDa_%lF*pGoS?{s=UsQy-KXPj>ru(TplKEMrF>y~9-GduAXVzAMy;il6QhUShM18(b4(yAThxk@9q2#~pB8q$UEV&vxD1-Kdvbx~rvC!5I?Vg{CV_sdj=aOl-+r zTo++VJNQo?tebn;V?C529A{8x0L#OS>DknjLVBRqC|QhJ*gM9PaRSwMbg3;!{Jp@x zp+wm3;lm6AQ9KtChveq?KHG^AoNA$jz$p|EElx=W{m1qBF6G}`6*AtX$!U`8LC|n! zCqHsEoUzF;?1CB7Fl8Bu+u4EWv0INS3ezh4K`z-TlL=*83bC*ED?+Bd^%7>bLJ~Kl60R z)RM3;CtMN3h+uQytbTGFohq9`?GCXMJBz}N{I$7IUFH}Cxx!#ocohuZ&#-hUl}ecI zsi9g?yQ44oFn54np8K@CkPpW3K$C=ipe@Ls+ErWO**~5UBwV82R>%d}27@ki&+&cq+R z&sOtGLTXKMktvJBY;Y1*1*rdxk|%Md4YYzfOidCW3xlsBjXk=M%^cf7o^GI!6<5>Z zr5NY%&p<~N&$mM{gs8J*FwV%pM8ydru z?uPQoz(w*|RChe9>dL$}#yhx|Ribvmp`5G}+*Ic`qv{HU`7GSYSxjN%AXhM6zPgw7 zU+7_AP>=8;CN|YgE*rO!*ShV^mY2)^iO#bTcs}khjY@pH_vL98SLu`{S|9VY@-sI> zVq;Q-*p6OzVk@$aRN3B)ao|Apcyk!3i-@m^+GqNpzAemSgc9{eV-QsIF2YXAB#n2B zVU2Z5v{a9yPqI_a$J|UrDwSE+*2NdvKQHM? zw!>b&%D=#EAO<&5h=E`#>iCij`npE&v`{R2W+ygdutNzmIwKB@R~j}t75(gEYUj_u zs>!bC3db)I3#YNp@h{rcddh_SW3^bpkok!dsHVvCaP%H8LN0FEickXLyB8C9sPCJ5 zK%`a3qrHF+)3B(A@$}tQ^znN|oG2v4Z+x-1zx4t2(~b0U(@<*G>S4#0+JQdH=p%z! z)??(DT=i6-8F(H6`>|HZJURSToi&L($w4v)w1amB=C732JcwGWhw3Znk7u+E6Sf0= zMI(16=Bb^3HM!2hGr25*M{Rk8uh+3Erb$#@dnm3S){TXqb8v_Zil54y z7B)0KtDGUy=!3;d`2gV6Zcw`>;Z6-0dC2Q;;c_eqZY_YCWd$Q$Dx;4L=wSraPZw#)}Pa+9*2?8vf>nz7?et6!jpSvH#7NR3mTcA4-4`V^RaEF;()7RPnhK(GTqF6f}%FZf&-YIX5-~UkjN$4Zk>8 zf5|$&DQX>Z)zdp1^+FVm-chMi7I*!C>mI;!Xy zAd#+gmRgC}GJlkhI#6hHJSR?XFrqgW{35j~cf{gV;`W_1x{`T8-o)uJm$c|4^IkNz zpGnw_pNtQ6MNA$w9&Z0&uEqLGJa!xfV!B=9?)6APpk()Zq!GsyXp|6F-shxBp1EW+{7FXm@q;_tG4Db zK4S%%H9(9X?BKw{)pKJ;wpbw0>!d?E&CK*svc2X`HmZH!ml=T1uHimK2DTpXuq_3pbWIl8ijfx{_lC1j6x5K|?muCk#)TsiBiZGsf9TLj-R#51}G9Zx~ zaYK6sPcjzyrYrPNBcb#Fth#}&h&zIbImqpVtJ~%yZBw2k1&_-8kO@`f2$SZGsfLH` z01f4{ufM~&nC4y*>9Y&u_+P@h2fK=mk!T zVw#5GD}nCq;oK`Ag=x0(Qe*i!8zz3J(dh-ZsTrKRtc;bY$<9|H|3S`vf3dT$t@Zwx-%(67Z}=(LZ)u0WzvImeGymk#D}i`piTtQH92Az1UP^N zQTu_i`)G$hDkUO{&OKK-q1cgrWU)hS=mhA&4M@jk-QouaY~fA%Nf`>q=rxAx5I}y5 zzfabN9f5!-PLydU*|>xlL`3DklZ`~+a5g0Yiu3z|sS_8E980!!RrV%m`?#t(SoUaCzTX7FtOn;&9a5}tJ*Er zYlX;_R7rCC8Q8L7FM>4A1H}(=<3iMu>r-_F$D9=I+=HxY!`k)nI9fI1j;VZNny=>Xst~&b~kKE9v6{ zTfpS)Yjw>^tNqqMT!YzX?$tV2J zaxe@PXrLngkMWC=(YoOGKt#oC~?EeUVvc3ib!;m`Z|g0d#HJN&I5RtF{& z_h;1Mb6_=2KHwfk<8g1=v4Vz?xU0o&q>!W%I~PpRf);<0D)QEplg|zGn3zpu8n<2H z+0NW>%S8DJd?9=2(!MQJzTQX~`uz~(cjSZ0z zn`-}ETA_{q_)m~-E=5_D9=k*62tQo_`wetEo_D-q=l43T>78v{kP9J_o%e8LW;_DY zp<8-VKicE}eK_#oQIj_-^5rcbAu{fO%gm&K6M|6hjZ=64zt5*c)Q8qPpZ@4Q!jF z4Ls-1*&-c6EX-s&z==WD7?03vi$g{TOKQlY;jq=^&vOg(#(QODE0>c$kbx8JZU(C6ictG~AcQ!o3xd z0wo0u%U^ls1A$rJ6VX|r;HifnT$1(TnZIf-MY44wFrUOhLuvv^na-n}w1HizoVop+ zXvzg=ez?<@c;cyCUQ$Th-oN*X8R(>@Zk#;NCSK?P62$+lG@``5yrB<-(NI!F1qScZFwRUwHF{?LyNF5E}a;M0G0n0NNv#FoES*l(xHxMN_C9Yce) zBC}(B=LB$#oq@NxCZ)8o=ZG&Dp<5%{E ziK*Uz>=7mguOGg|I=WlHVqHV4x(`Jsq_TsQ?gjP@{syh_F0X!Pc-iD89tNN123WuM zPNRyR-hFv8@BnA`Y4^3DH7gwYQ!-s&K;fSy$0wN1}$IfVR{X@;dv#LENDB& zcSJBwilvyeb5j+k<$6k z=WoHxoDQsmD_Wo#KmS?e3%`=E4kzTOwHY*ubf(os4SiX`jn72$3iO&xg;f>&wkeMm zqi?o1RC{+uf`q;3X-Mo$gj5EdzuRN)xCU+=v&62wFwg4b6gDH|pP8&p_;Qn0smy7- zKz@`EPg&|713j|_M!n4hT4o8m?b6nTE}uKQ8Q|4YwYX>H#^$ldg3AB6@DrrW*gfN< zO;UJykqud=AImiqhv#Dy+BMK~dxFp+kR+WHLOMVOFpiCOH-gDV#Y;Vh)t2W)D~stLCHR`-nLLSsuRe`;5pkN>tz++-DwL++F;c5#(%; zN58q?X$4y5Z~VnS_!&5_>8c@+O8Ml>(6hQ>Mt+)xiRfOCN^!R!wQf+&T>9!WGaV>R zsgwHhP+puU-kG-Us^XX`GGL1z60QNLh@3xRbnTMXtBVn!W4W|1$8W;m__Mt|FoI8R#S4Hd{6+mN58 za%~WjXY7#;3~*%2Q(OyBOj0tp@X@n>en2BhfQlmxzNSjKC}tn@?rN_9_Qk|=vv&Ct zJ~-Gdslcts^v%)8E|LGaX4N4lz z5F-ur_H-6OaJ(3e#iD}`R)RnmHS;eT#)PYh|7u)9c~w$5bb)(}A7b7(VgEAj{$pbG zAg&XfirYE-+d_S1$gbpJmE&(vW>Sz%YbO}Fz+BT5K67x9ln;>~k=-IZ*0N~}A7 zu_Uz>ijCAg^zl$={jtf=7FYyaWtl7e#JE+l` z-l6dA3m9EgqUQCv81X5M=AjUZg}*RRIM-6ffZYT3*@{u0U`So90!Dp`;+hiu^nX_^ zeOyihm17Ai5$SxNsVk|dUV#$=ysloBj$40E00g^T4+IpOhcLrJ7J>=Uj4DUG8A5v} zh%58u=2$blfh3A0W;-HL`wqi*2?9)}?>@wWBdhfwx5~PH`gy<2lcu4l={a)Op}MC` zSa0wLQceQU6))@yTCNqLIOTqGndr_q80Nqq!ZR6x*-&@1^dD&=P$D^GC>s#@oZ-PV z5HryQk{25?a z{M)tUnbQ1_54!szc;BR&Ijn`c!Hsa*8@C)c_-Uo{9Ep!zl|7{DuD^V^&MJfQtS&LxD?SP-Fj)5?Y8{7rq-L` z0gw8zj7}u7dBeScNv`l)U8yH!h~N2|>LYGZslHXTC|=ZoG1g}Oa$Ebt@B%dhhJoNr zX+NPInlA3Mv9iXlL8|^a8v9*^Ud6_xikff5NPubuQ*Itiw+PeA34;=4X!qtGBs_N; z*3sYubCN*fa%!)9b~wfL$^lO`AkcwrI*xv%Vn(?(o&?tMbIFh-$4!KbU9pjiY}wc& zQG6miPjF8^94ZZQw$Rp1xjs|`PTZMA^~BeB^GGF|XJj~$r>hhEe7IPdR4t^VJHQHu9v35)gaR4v>@mx;ova|22mUCJRK+01gLJSD z^|+yDN9Nh0`dhj6^&iY(!5xw;2a9Yov4I&i;;Xy%e)@d0EF76b@vbkp zPuVi4f?cKp2GAjS@#u5ET5RIuaU>|3R5}KB8zpB;nMU-G&R$(ra51GECcKK0H)mjr z)+kc(huth91?&evsq_OeK&&8s9NH;!cE&vYqRrvXJ7 zuXCn`TM25s?oE{zRZ}{PEaYXUfP`piDVviJPaaK)NxapO>~?s|LId9u(Y0s56{Ykc z#r1YjA2G?8U_Yycq7?=o5q1~~=XRDgxPK~F^?)1+N%z5Hz31rK0f~5=*$M{s!{)+L z3Y#A?U8edFxEe^HXkVDkc7b%xm5#U;1~=AY3TvafAn-zraL((h39J#Pm@{G12gnw9 zp+twO)kj_b8#u^41deIkX2zy)TO(lUybT>+h|5XE0c7{KA7T-KICCNm96+4{aXx(0 z9E9&s#})aaQYyHo#3Ra-7&uTNCI`|x1(yTm&r^!0ew1ShjsHr{Eh!XX-tRkNo>zz+ zDcu>wRF#!HF4Bd0BuTHDN+$N77(>L9Ave-1kDWd#^y%wZ_Gn7Bwe`0#4EYVVYn!i`T5h9@%>fT~3Sb}jeJNWa?VMOyW z-*r>-n9a!qczg$5)8+_06f^%lJ?R_@Hb%&*ix6<*VkU$yVWbDj4xD$yAk+&=+K;fS z@vEM`Z1HE}i+humF{u?O&%F07;UrK$FdbuCvC7>%DS|K98;ai=o;T3T$^F^Tp7!8= z_$R$4zDv}mT{1TmF*h_H9tqJq)1;m^)U$zV3`Nj#7JqX>t*QTcmX&2;fj`>^4h7yH z#R?lur;rfwXSo&x_(q`5O<^EQc12BRuBbXdcyfY!gch?1WU&rIk*|vlfGYlgUAsKB zsWmIcF?uJRH#!btMalqI7bj9+nZ35Ln~zwndJjfyxCi5D72IRaiPR2Jm&p1}IkI2Z zjOHna7p`-(=FX(c%d)Jlsg`96RKnZh{QL*Q(AI#0l;w%7{BZHo0;RRRq&`#B& zKL-1L6E_Sy@LRMk>9_q{Gn#!Xz>Pf9D)Y0|OWz|KyU^EJ(OC6>OutSwIW{giBn&v3 z!niJg_&V=t9)pK6MfG!&Zyo-!_6HdHQyxD`>V0$v1^rbRe2rHs=2O@Oo_t8rZq~?_ z0=wU^0gV?-gje2sR#4I^=n6vBe+Nphz=<%C^5;VgOSYB(UC?LY|4y&_qfBtL!y@PU zd4T6h&)hXmI2-ppQ*_-r%haZCGUfFn#NFXuz=*QJ9G1~8d9bkhhujr*vZ{+L-prmq-I}ZCPQ^<3ePoHX)3j9}wbm0z!46)MhbP+NLpbXwHGW ztttZ(1t1#&{H(iqaoHN6rB1SYF_D!`7Se1iEZ)8B^~oRWv0Q5&Y5ROYv(`_CSVb~C-^XQV;fjz% z_c7#+(!kFOn>wTw<-9z)?O6l1hWtIk^4We(R~0BT?}fXbXK^U!&B$ML(*F-hXBE{} z*KXku+^x8~ySqCShd^<6DDGa|U5dLyfZ`N)E5+R@?#1cJ|DBucwKH;)wa1b<=ku<; zN(VbM4WYF6R!-$j`>6smcsR`^D?OAA8LhQdELxy5T`8vccmC5%{M;@Ih)+|N;>M38GxnI&BA;eRv+qA>NBmbFCUUqRaV)#xK zGWHV_Hih?tnWW1#DcXvlJ^Xpaj-24%eRnoiGK|2n*((0EnjY)o)%v0^_lq_krs*Kh z5z?ntCK<_f#xO4BN++fM^sJ#v4bmQtS69k}zKM+;W>d7w$?w*q#nAz$uE?LHy9GS= z(Byajxp`WS*X^@k%QCF5ovRA5ef>MF7w|7kc~Ec4NgP8YyINNhOCtFbVrvsOhB=s$ zkeKaS9vE-Aa_nQSO5MnBFT`keR&cEhl-H2W-tS`^ZdttxHguIEp_qu0@)a)kp@AwP z%93{sN*x9eB2XqzBoB-%%=2-@Nbgm#=wOG)6o5^lvXJ{e6;zIUpZ3(kz9T?AJHV8C zZ1Yjm@wyz1vswCw~b4{El4$(xgE`CEj21$-gs?PGl`oYhv6 z9dk!0cTMaE7dhL-lzxhLQt z0cMIrt^kWH*IgCpl1%ySr`k8D&y-M~TA(<*Phb3~p$<@4Geb~g2zTMVwqdI5=50i| ze#TiHPa-v%&WkPso4lxluPJ9#9~%#}X<<;*ScB2~15>{~im!BA5H_;_ksYW58SKI+ zq5QR;&-OVcDwJ~sD51}$GnLnhf2P&R%T9kaOqQ`>xw7l5AD5*bTEiw!b0b)EPsjRG z3Z(y*7KPWjm0C``q`32pX7@*y=2AADOqZ_3*0FTtBFd1}`HOejReW)6pDb}FBc}oIuTnHN zk{;4q?aYmjWf+I~F#09%Q?R7+eS3m7umO#~sGK|5bS;Vrp%0KTA2|A#?(aHPwVK zXC>3T$X2Z!+^h=9fkva1PK#NL~`r6 zZuJOQixX0XJ`{m~lRiXAumZrYrwEG;Gv9R2{gcskc`@E8&P1MD6}!6ij_KNA!ay!? z?yg#Ce5+xsZ}4sGE(93RgMDh40XDsbx)OR#Dnn7M2~bQWu)K%06z)Cn=kP|c!F>d? ze$xFB6B@q6scIn_LoqpQcb1Px**9CJqQ!;!QaKkZqrTMUTMMF&>M_O9P9IX8y_S#mD2)@qhq9+m z%;%grI(BESwGj55@U?o_{iR7e86#n-hwOcy=Bib3cUW@qOLK&)XWVz|+H^7hIV+*4 z0yE*1cfWFE8eb&9*z0h)mMb!UgevkQ$NEoIOns*#ib$TaZakZR8)(1*=sF1X87*^I z6&nbdSPx#91G69etqxf109ZPwR^(__mNpBlc$IQrj(inrlZYhN5iZ*ov(*mT13aa7 z5@0YcIpg!Pits-PlsWd9C&BvyL%&6k+n*&9_6u%n(Cb*-F+_$$QNoxt3CML2ogj)^ zjJ+x4d9hKlhdFcOtRw?^jm3GZ7%sG7aJdxYA4fX*e7cw@70^v4g%HWplkVPx1z(dg zc>o-^L8R<~6S2AX2!Z2ZURiz`dUrPD->C&WwP0E-{_pk653+wd*^T|AR$mMrS*fUm zr8o#$G>eE#FDx3qkbk9+Do6TK^2Rm+jM^vtX4o=a?$2-J0T#AOZTf}tYf`MpgLn%x*wZ=7)6~a>c$wop%=8%u_3y2|DTu&=UDe_*~E%+Gq^SnD- zcU0f^X*W`zi-Y^%U-Nvv>9SeYGxyi!*7MqU*ch*@&TSPbT_HY~VK5lqXBYxV0f8w1 zqowbm!NP#IlrjVL>1;s6g~vq)pq6ajmt_)WpdMj^qwC2bCKG9=KJ5>toSd;Q%21fl z)_4GbATj6eI+ZY(iav))3F8-IW2Ypw*A7b$)&+UUMF`Y|{@<`CZfMXbV-2lco(Hb- zYHDLbI_}Xad1g&cjecxFh>wl@i{o3I=im98vyl^Fy|kz=e9{;VV1e03})xbe3Dl zA8E!(tK!%}1e6oYmAV-2Zl3w;zd=b6C8Dh7G(YLA7$R?Oox^zrTmW8{=U!?zW=cSl z8Q$f+8@2%_X>TO<2uVU#IKy@F!Y`kuQAJkp%XglMMuXcHh=+Yl{~;?o9lB-iG+o|` zKlq(4A{33eVh-nJs)`rBr14xN=Lff6mb2}*l;GdrBGM;CjI}Q;Jt(UJq{9N7fyL>n z;zvPTOd^$-(j{CWt#q*_Y61xn;o#dS3pchi6~bx#+uB#t?nxb3I=v3|t(6A~XFOrb zGI2Gz&qg}S$rW>v;Q`42hq811`wVbTH#4nc{DpJ(Q%{HVa5elZ5nqZ8@M;`ZI<;gV zqNZ;f(NVk7W+B;p*+M#oyk@WofXQwC0IPXRO(S^LAYj5DhKP>YU{QC}Z_r?Qj3AEq z)Bwt(@a8fpP4OZdn%Nv*DTgApZzS6vym^AB@JD~%Xw?0*(}Y&jG$1mbi^m?Pe!>Nc zT?AC(`O1=nD|z=WH_$zf5>83ApWD{vc4PCTTGo|-Yt4kim3(Cp^gS~@BD{)6zz&IA zBfk&^c3=3ziA*J(e>OB&Q2%o=M1G%64}5-uMsgvvcd7H0A`hBl{yCtoiE^d7-}7E6pS&qP9t$M znzMK^szc-dHKxnLfDyk`F#)NLAK`315^h#Ri2x!t8ZmM>2k;Yx5!3okBvMI6AGrss z{rKlM?ciPzs$>X1b|v9%g5u43pViOCmg%x{nL7@9q9y5(BHSW&BdA?!RE(w8+CF!W zpG2!95*2M=GHOd46Zs2sFEBu&;&H)3ZI*tkp06mqMjc!Kk=`v=7F3&SH&2v*Lg0}V z=Ml4WMDFb*H><{cm$Mb1bk$qo1=(5E>UJZ>_nM^icFy|BGMZB&zol&tH#N|GOJ@iFYn@2~;ZXV6$DLpNGqo5!v5gmO5t-9M zdd5+K50^NqEj0!yj(r9q-QzYKPRokB!?9)9oF!fdXWdJr9sO;`5-(> z15Ga2Icf3wMws{HyQzn98ilUWA|t!GBcy|spQ>LG64M1 zhCr%RBl8oB{Dip>JUE8V!z5w-m$VXe^VW*qlzk5KW0SPavAc5tdL{t5Jpr7XZTP{t z>ljmIgEZw-I5Rxj8D~%_G~M1e6k+ylgKEK?`#+A)I}^t->9cRl(nbWPd^I^a{Osz& zoa9Sf+KaaHh~R{(>d&cvM+s$``rQ~`Q?@qCyo`T$IiGAk-e1c3X3n;ZO0I6LSc^a- zTb7>Y-q(jDQflNsCKUxEc@?Y2%YqP=N1NvOT02K2A$_mDm(dZX0?kaEz37~a0;PRZ z+cwg?^?{!M085PdKG!MK1EOw!55plPa2T#b^i=_ko z{B#UUssNC&%_82QilxH}R%)VatHkrpc-#cwS6J2JtsaFf2C#kzPj}|WGK@Vy@*b|S z03T78N!!*>&~Zcxs|xnnqC)2@lA`x`RBLFg41q>V(}#NAtzjJTJU9RiV@) zuO8~GoUnP$ac!Gqvu@IV3e=;Axd>HOE2bkvN)K7s)wDb_>yc}a(k**-@;p~7Mdy!i zZ~lriocRSb#1Pxi&GV zR_&b>&Y*SZH3m@a)Rd%dV4pjT3~ZRHSzi8 z&{|a$CInP?S6dk6ew-}Zde6H6_e;)!6xn26;L07|_eoyKMgzfDF`AHZTFJ+<_j|lx zJ116M7o33D9&X7q{xkLZ zp~xgOVjp|x-sm^Tae~tdePEblro+tkC06p1ysq5(xm&k9HO7aa$m z#|1cgG@hdv1vr5q>R_@F`k~DF2`a?GM$%z@*l<17+v2#$fk8sM7ID{i$|$K6mW{Ay z;kMg9`Oa}%ni(J3nJA0*8hlH+kTMP#SH7jLT5-NPY+yZ{Ui_+X6wdN6dlVgQ8Jk_0 zYigW@aN)|NK6@2NJfhWTQcYK)c3SqxSa9F*5NM93P}^eWqE_>HF_-3R=MyCfym{={ zstnfC^e`>{xp}110YRv7=-57!o&<0EH=28S$)90-U{6wsjvQ9opjuD6;s!m$lP6LO zf3rm-Gk4ITO;D{dF_Pl(-~Xl@J!k$;X%k>s7kc{icjc?w-EFjQ4C;s?ThEKUM_X zo3f$j6B&#t6B6Tb7_reORRyu=FZuusvk=i541~}y`98IzjuRxzuPL^7a0cjyN$t<^ z&S->xzXoOV7PJ)_AFy6kqH;d)AFsTATq>CK5f=a6H|`@)1dd7PBp(im?Iy!8f6A!j zfKDVp6hCHFd#HaxzSitOzi#gM^8EGZ*b#g+E2awuZ)pYWLn-tdb<06&K8IdBr2pX5 zm#)BsBDytqrs8DOCN{3cywerR?g%Rw7GI*}CL)!uEWaoO?9)5QAC13NsrRnQQbz?s z=YJsRH33mpHkRi!OQ~~D#vBDOLrsA-(`E9?x|inD+WTl-^N#En;;9dxpuRikeh2-K zL0x0iZ5s(4BCH!>9A%uQYSfhLLz;qIUj53oe}8~fPc{u1U;kTf!TC3p%v46!sCy2Y zCvJM0-dY*LUW0^vC1B-@*=O~P@6MYDwq1r~Z7Kn&&3@|(j~=>>PuCbtDmWv~tt#)g zjaHSlG0i<(Gk-6GTz(LFX}5{jb;=0!U6vNcMK?wshUb|n-5KXWaUCkFK&Jajqu-u~ ziJGvMLk7s!c(sZ=?eg-Y-{@lxix>q+!3)yC0Z#=NA;WC9_+#^ z*QlO}_wG5Y-Vh#Js#w#Ice}5Gnad+z-{F2O2EsUMnXoNfe7_Ge9OEC7#qoY-edy5z zwPwi~xu_?pj}S7Von@FR=T3m+7PWRe%B=rbXX9w)*)o~qS$k;V^rs~x;v^@02&7x$ z>`Q1(Z07%+vXk<&BH5MD`fH#AODb&%_CFAbQtVi7es+4ou%Goe85LhZ@bb(2+O}`y zu=dh>sfho@+HOtoqjwph{O1xuRCTe_Ra|G!E7`(@JicU$7ql$FLWhh?RB@%NC`&N~ zA(=&UnZlP-!i8<`?uT^VtDFSNARIo#6TkIYlEgI6RZqufE`z0aom^;1JBN9aR=p7N zssp(k*mG#=xv+yOmY=}DRZ@8X#m1!TFJMl+99D37IEyP#DqYE%TJ<0*j{TGKb~$_@ z^G=0oXsWh8_#aYVmZmXT#TZU#@qx7SKkWtF3u`7tMfYv04c%?#gS+KfI>#s=9Yx35i=H;&XL`wbx%B(Tuvh}}p z*M}%fj*9uja3m!mmqYl)R3Y=>**Y&Cmmgx|6%{dR+}HDPyK^#hrbC76?LCdV@s_zh zu>;ttlG}V8Y6QesdtLG)??=HHZM8vjx{{A0^~=-LAB(GZN93O4~a)-AuK?-Q-JaVQ!CVhJ)*KSMpR_{R0se#zCazlh3G#fbl&4} zs7WhDF5ns%aDtqS!eae%HCCLAFkvD)1hzlG1P9=aOc%Ly8(s5(PlGf$4+S2)Xl{YdR_qlqV%=OH*OwL_E-v`2xuJtjyL;Ia zyN}k$;Y4Kxmn_rE^3+7qt#J`_hPHP!itmV9kj0e*$&04-bprvT<6@vII`@+m<0P+U zmgWzFo$}&>cg!hMNsFPkG#xT@L^7Mw3Z9fSmj)!yzCFrf3rH8`2x7Zy1o?Q_)Ex$>{HAr1FQ&cwFo+=ZZUjyCe>o|xq16?S%zceJ{O)daK- zQeOaqPUGGz`iZ7ax$%>_zXB2HnfUM8q-X42$?^i6M+0>4IclqfB`(}o3E^KI4p@H8 z^~!lu;(I+|Mr;;b%Fw(z!X5(7Z=My?nzjDb;J1fO6~Yz}hxU!+gwWmH+#hG1&mK_H z6`WdPbCsu|F`R*a=uT$`t069SVx)HVx&6yV+x?}V?;|8L$m!2b1#>j>UNA}HAYCziZ=RV0f)Fe?s?1KyQh9#op zEOk2>jJj6Q%x^I^=peSxjaU)~D5!;RQ|S^uLx?jI$kGc?&m9xKNKRHJO>Gh)cj(t3Pth^RZ|m@=QCYm!l-36Cr&acVE0Ae(@~ zDtyW%fH*sz-Op=#xpiPf%s@41^=cX=TU*`NOZH^*9bNH?v{gA_k$Zv4Q(;gp8A~gO zDNQzfYT~(A&1D;o=CD#1+1IW^r?!~Gj8$X-%X9ItQi<40DPQQrhq2@fmN-ebwgP~3 zNN0Oo10ndn;KL6KfMfYPeJPoKBUd2j3(Q7E?7O^bUq!+5QVFQy7ST#7jPLdd4^y-W zpyR=~(e+7OT1ja}3BAjc8-4{pN0c(CSTo$6i4m~RaY#faMAd(P_Ri{8Ugqn=mH1tB z!0ztYbq6yR%iGjUbX#CL z^iZ#L8YYaj;g~4gV^$WXVSvCY&;4%%HkwLay3};W!4Q>8#YeTdBYn^Cp#gI_8^Ch> zl!qWVj|V4^OeQP#F?^>pcqJrVQ(M9$ySgu%yd!Dxe{Emc_@QQpS=*$CV!1&IeI7D! z%xz<>!7E|m_{6vr&&yhLW~O#hq+Rwo-t>l4t2C|}WJ$;wl4@1Xz?@glD9ZWeCaZ?J zJX*Ad(B}OZu!#dR@=&ZZ)#7~H<^#7?JvJ;vg?IG<-|>Wm!(Hea_>srZ!LL#&0-aA! zBCgIZ$c5>p;|AlHb zxXWkcgaPyLi3y3+$AYFS>F`sg4FHMF(kJVRC&Ig1*dIh0&6Mp!XEQZ8W}k75>QpJA z!t?XXDnD=w$VGa_^?gmDgqVq2n#CJsoY5gL;=N+!LEWf0?$gipPl8QwHM>K;<Tx@P@BJt;ERG;nv;BYyeC%R9;iMDjCP@#pojV88d@Qrp0Xt*6D;fBg+;PrpN} z5YneGk`l8l1Gh7|$-LJy0-p13$?jMX$pZs;Of5PoL&BQS>baZdY>A%Ih<|pTS^qhn zpRN0m9g-x@Ndi%4C|(zgk8E3$an>T~RmfvY3IG!{=Bsbj$duFa08joxH8Mk5XFCAK z=Q_Vx>fr775r=}JpLm!6+KG4%ApsO6Mm-X0wC)%H<-~^Yb}1^m{fx)!XCN-{b0w`y zatc7SX^QBS#jxO3@>ps6NXZyodA@rMY1^W;jN8;AEj3+F{e-pz%HvvP*-sSHxJ@*3 z*Z};1n!A~OX2DZsgay(EhI+1E?)+u>2Si-d;8(-Osx6OWSWXP%!LEi;Dd8g&2xZ6b zmnPL*6~s9bT$LA>i75enqwunvUz`+l2*d^5lUg(=zj~5cmIB>@6{o+)v1*5^cfRLi z!8_#zBv2E7PsLV;I-dW~GE{kdO#VAMp&&PFH{Rb-dps@J)1`0)CjEN3h^Yr&eV~%Q z@eClIiN_e08Z+5ajNU^>uZncTk-qs`io|a%ee*speM8b6?8e@_UxI*(sHKV-AEa<6 zK}ajF;1RYCys zDJ14MPS%M$Kmk50dXNfz0l{B`yqw4+M}NM?5i=J5kjtxsf)A=VXW7xcEui3* zQ0+?*v5Xo<5{#OX+cnju5>eG42EW2G*w=(A7u<2;n|rp}p>27l__eq%1kq6{4Rqhk zLY@3GNrjL`ym26eAsSZzeBfy5JNQXt^hJ>x7Yg>QwRY6~em%Z+l)GfK4)O`hWM2yH z`2CGu&Bm+2&Et;@4M=R!q7NKejacB9lC4VBW1Uht=vdsy=<-Dta=d-bM1!Kar&arZ z-l<3OsLiS{=#W0e?4j6;Z?%&57@{@s%xT*&*PcX6;zy^$##KaRkHwb#I9A@8XVPw3 zo=AqpclR1RtXyk~uFIcH5Lnb71g z$mCSnI~PpL_WJJh>F||~=5%>bPMn9p zBuOJ{W*$dY$j!B)X9X;qocxT%z!*t{=z-5aPpWrka zjxAxRx|-PQpS9E7KoE?qc2?$DDXc=9U1vk_oC!q??T%Gp>=n0!n7K4Z6^cBiY&i`2 zA7!*J6kYRte^hjfJ<}$Ywlc(n`*6H+(f%Y{>ZE`D{AwUx_c3iN;6DYYXYZY> zGtxBE*}q??oT1v|CQ@$xp?G!K+|{UEHg$Dk2u&)pgL|bQ1<7H5Xveevd?dINavI_P z6ZveYb5-C$%WuOfc)!=65)oMawB@(&ccpsd2hT$(93N#Y`S%O5ZZ@GU#IlCJm*V~U zn7ok!&_K{{bRqpmc~9kjDer%N=;x!7M_LOSn-xCQs=GMPY0zh^tQ=t^==Zl-JoKqB z9C#|V?RZ=m37!KR)QsJYNw1o0(u;lC%6XJm1;mcTh$TVMGZvV@$x>20(w1BMY?DOo zYOFj^t`lDkOV#CZ>&s7@^IhudDKeJ0Uu!Vz3n2!Rg(Ni$*9ip=G5v0K8;dj#7$eqE z;-rVk&Y=tzXjk`FCtA=kv)S!2@xx47d5%KT9-W?P@4IhF7TL)h(O$rewnfLYmz#rE zeHlvVyd@%sP2knhiAu;iPiswwm#-ZN*vQrQl2#Y!9>RfvVT0v(Xsh*v;75uc-V7yF zLGlG76LQO^4C$7w#o$`0dsZg&#CR}4Pg#jCL@tLsuF(6j7TBjBN}W4OGhF!bTCGHJ z>WR9W^HT0Bqncg$8IV2hzt8mw5&eSLc+YBe%`esbkdQh}YZ!W)2;D!36W!lyiQ*5; zubZO@` z++Pz8YUh2QjOBQZ9ZSyM!~s7{sBq8prF3#QV>AR5x@T;o2Wg5|?x;mZI=eKp`)~J{ z3Rep?+SJ7<(_1@tMNCq6C}#Ph9+s88Ndl$ZmKwB3)x8^^Tj`+MvscAGQPQrWW2WLi z#K>Etks+gKA9G&IBpD+tO8fpwslu^0923Hn1DWV|reRZqm=MA=9)|cQj7s1R8v|oB zo`tn0=m(wec_5ZsT{lQV)4Qp-Y`HeSI;#HDt{Fh&+_E)FbmoNsoVK3ScF(Pb}hGdQw^9V%MUblygUsBKT()UIf|lO1-;G2%$U# z1h_P*4e7@7>%R(-0w0>+f6TCJ;f(ul6GRARTaec7aKY>cHv@3s`ngvHQHD{rE7kVn zW!8Hg!gG9?kl_Aq|7F4g?IO#{Pv(N^75etJtpjY+zn0S$ugSPcYvUPfAG@U<1*dHt zmpfkT;7F&d0E%(%4gba=p>s2V4sm6>Jl>EuoDZ>4{^9yNA*`Y?tCRu2svHe_&6pkA ziXm{NPO>MZ3)S3C`wERsuYSl@qp3Ub<@(}}62ohT@FaHU!YYGir&!GYGj}lf#NIu9~ zk)pimCO>4p^AaAbxsgcXwU7>b4eMRSL!M3cgx00pSm z$r4Vq&cH9$g*7p=y?mmt9~Pp1Lt^M-v2b33dvcM1HtDnZN6_=`pf+Hpk$`Q99Qpj~ zSecx32ku-r##bI41){lzn(XTcSudB@Ivq6ilV%Kr^Wv=VEdsQW1v(#9blEHs=D;eS z%Mcih`GwSiX|`Wfh<(P3MSFcWvx8+2r!^1guOA}-V_*acBf8uulM>^!4jFfekTPvK zO2_1fBcYnyI<(KUKhK&;)R!T6Lr4PH!vr<^gT?*2i8xv~_TlgM6gAu!x(XO{4-9lx zwmcYl@rrm6=MJRP7apdRTM@12O_oWUZND6cS!)0|d6WJ_LilDZTXa!6r9a0khL71= z)YDbOSNa3sru4t~xD6DMT@x6bM4MFN$Qz_et2FY~)Uvx>=?K;}eHpL!#8;pGTHDvX z8S{9|y<+ZB_TJ=F-4rJBo6!3U?uk1TdzV&*M_ikwrO3|;k>={_AGNi|4K3E9A6pse z_uaeL4PgJy2iB5o4v^(S_5aKE2PvB?lf}n}{^2;Tkoz>2vo;U7nri$@KlAo0RjYQn z161%5{0cb3#9-i`P)>xaD1x+2-BT{}$PYFmme~k_XK!Jcc1oz4>Xqr7o9dY5dI4t6 zeV$+^1Gg#1@9k$gxm1A;Rm0d-sBz9wP6`q;B8cRJ&WxY`gun!QW@0m6CQ=6%tc%c8 zytds_11sV4o0)}E0fD1vA+6^!goy7Q6|S4(8fH@I`s?ONx_T2C*zY1(zEn^L67>iz z(x6yApV2a4F#@CL;We$`pL+&m=ul25JT&|CywJcjs>*H=J5|+S>@>Goc2!-YWNNgy z?`sxRDhN}FEA3DB$hm$1@4|{Pfp(L9jh)Zk7>MUi4+Dl1UoxpX#6uT#R3v1VzVH-X z)OOktd(`%*&ADPxMg!f7w7XY+V?=voMjBWKdDIVtvjj}rDHMzdjt$n-S}$=kPTCDa zTE|{%_KXk<*0QG%Y+S`$;Empp!U1h$`9J0lVt?^zxj=?Y5 z@Vmt7AX}bP+O#eja1}mPLc{*lJvgY~1E|%K+-BcGuvL(CW6|vC{?XE>=edxM8&gkK zqNIoKtgeYMlB4+AmBPn`>R7KJ`P!9C#W+X16Vj>js>#CbIBUjpP^9tq2dE!n7hM?8|%^6VikAo-x@hZ0K+4wW*6+;|m$YYDbt;Oo-%j-+o?T9xyBeZ{$>@nTH+Y zc;fL^e6AFs)WTeCniDTR(!4J9)?tPGlL75SrnafHezu(G-46Dv-+%i9h*tmIE}|#R zbvU5(lR$|8wA4)1tD|)UPsM+;^GJx*rb;rp{*p9{HhtF|WMEwzquITo&HZuS$T*+K zd`8kUsW>8)7q|YJY?K%&n9XdDm~Q#LQ}lU>tH2-KgLC!KU6$;`P_&cu)MECKiV++v z7|mSx*)tP8@9z}61I#H3mGB?WfKR78R`RmfZUI&Ody$cESk^PNMKi{CFsCae<=I^D zRFY($X(dMm3iy~{hIgd6$$aP3Z#jBP5wmH+L`R?&l5yClidyaKTTo3hvJC255dnI1 z;x{8A)y_({&aL-qcQ^(b7ORheeUKob2Ce!Sw;(c@KNY61^$X=5;*==$T=1^{iSB(e zVfNuj3^vI>|0sUMDfIxWu?}iTzr$TJkWoSs{Wkps%09tPLaj!@F?GN6ML4# zzT*yi>Iu0=|0vZ-no>?|7?px;mckm2-^1>r_vtff+sDhk?U6G2plF-BZy-BMo&C=l0{@zEU);eWY1aC7#&3#$(MNQ~%5awe0 zFDKg_9w$Z}S#4sNdldL+NCM$TOs#0Cm&-4oHgO5LCI8>;_U|sTlg(KOXzWgcQvf;l z2At2Ad(T>+4<9XS5nW)5zl+s&wx9GTQpuoB3_~zWidyz^dzT`}U@wLB(TfXOTzg?R zOg$2vPBU_l=tnr>{*`9Ag;XZDe>g`=?00KhC19kldQv#nysca%|qyj|0)&I#oFN4PlMj~DLyvHI=$u6~K z9`ZTVg$gUU$FvaShrXEaLqydOn^hdf?u^-oj3(JthG{lRC)uT70xL@9`$eKXxx3c% z(oyzm0Z!u90?1vEwiag5p`JG{hd+))_1G{J8~Dk%b6`;V@3s+4l23AO(~|w_DfzDy z4xgu?`yI1k1Q6E4b%d6^uE1gP5==F5*cT)%SN1| z#`bb1;k{!X1LA_WV=pB1q^zMtB8#KIdmLyu6f=_v=S z6yz@eR6KTiqT*28sCtt_@n7{#YEShOO+z3fE!i6F6IB#Yku=~Q#>*+3Be_3y3ckrqD}c@B`C>ESovqCK&7=QDV>d=cprs}}5 z$Ug9sZV^v1W&a9iW3l0wMszB76p^(GTvzhG>_c$8M+c78Jg+XNu3H4;IT?jQNv_bI#R|>p6CMw;&D#R8vI@$;k z`RY{tc2njZu1wlEp+%SwVxvg7ck<6KJ(eowGx9_TiQ%flO1cdJn7D;|YskgPWD({r zUfM$(!vQ3ck!As$DM68u@=d*8L#rW=s<)fIl0l2R<6j%o)Qv9F*adpjyyL ztmLFEo=}DI#=-(n!@yrczWB5&R3_mvusRs-64>Ss`vnr#sy49fF!k4fG`|gI%0u_i^Iv<_#t;EseOT>aX!tmQ1h~4ae_GuRX6(mOi^( zPd$Ha^sJ7)v3`K@PcdzWHYf`n_>52PExl2sw_9VHd@jirxuX+fWl`>3#kLLEc;4~ z^W{XgaxF5hnuO1sY4h0K&`hXdCBg48FfYwAgHzF$Ujk%+F5e#Rh@lK7vBK7SG@TxaPTXNFvM5`= zkic?Ld82sC0e3z*?vk=@HRm3SAc`mQHP4G6-)j z%cst`GET=}UXymnPuzZx**LUTl<0GB#wJZG9G{idu5nK;>F9))a8OB)MgU1kQ zL@HQemZY?`2OL6Bi&tVjwBaLR-eI9UYiq^#Iir_AUltcU1LxYrp5x?FDmhM?ZmWyx zOfIycx3mIOh@kX>eA;y{qXgSCZ@Qavs>A&Bf@%vPj|%mW!ej*gXSvrUD#S)V!*d>s zwIl!%9@-_*3GBSIQ#gm)l1jo$>z`H6*5rJlIr z@oR&IZes#Nzy5{Dv=^)zzCz*K4Z?Ni=&YdYD?MQxYme%&^2?B_))iu$}4^Z5c@NGsJe zx(>P!$T6vceOx1`inmpLx?~+jW%X&cQ}7}UNCdPg8#BGYF2e{o0(FP5)8$~E;5+Yr z^<;_Q)={5seiDtuiJu7fjWOnt_%(m{--p|l_Wr-=ML1hV>2qf%d5P$^>{HiIQ6n&k4)UELx7Lte#>oY1~P zP))ZtO|XIK=M$lt+&21nOhEd#BroE$TPvQ!p8ATJKVh;vj@}i2AJhMi#>f}pF_EC3 zrld>X8+zjPm2+3T_rSt=$UYH<2twq#2bJ>QLCBC&3L@88Er^>Ns()M;9`w@I`YYx9 zbZNop2eaUzg8cLR>L=Q6I<}-c3_a)XS;!fUZY>U!V_Ed;(0^;0u*5fr&1N)+Hh2*6 z2Z(U>6MylX;Bhv631CK|!oj}Vei6b7=EEzv>GK^8UuSCvtWPiFM>_H?m96Y) zr=0h3hV`R_Vj{9ACyG3HTKvnqvTtnBl-dK>&pGpuOXRhKpUFc>`aWj`{oEnzyukE? zwx<1wXH;ajBGmbw;;P4#tc$NDAf*qW^ZI0TE&*sNWqYJ>Ws=cQb`9I z5qou0#rF|XftO=Gg=5d%glRGO@OA9(U<%vMf|&?w;kp+T71! zzYfspejg0dMVbAgABCn~s$ct7BPx9-LHmy4@G>g)PXS{529k53`hHT^t;avt7U8J# zyPM$=fm%VVHDOq2r+~_O&#41k6L9k&wN?9g_a0^RF)N>rzx*$~@0b0Gk87PK~x$ zIcTV+1#VX|Qu~ezvIC{)L5e$cd1WZx`-ZCs2_n_1WLhqg;-n2$qp*k2*WN{w1abQs zI*q2{kmJ=VdCh-%f4cXgdCj!(w@QXN<1&$xB`JD^jIS6nt2#mzMviZn>$e2uN`Kgr zO!6WcNo0kf5d4!g6*$Tw$@oqqtWf#Hkj2@~TDD(;g2K>Uqx7m4*^dP3j)Gg^P{H~& zH;By%HOVG4$4%zXl4t(yh)o|k51FFz>FJ}<1eX7DethG*umr}8^x{J-m!zSQ9{ADM{ zyZ=s41@_e07Ajac$zF{f-x;YBQaaK56&wQpb(z{ELj-@;Ag7M~Y4A;M=vsL4%QDUB zej2TSQ{ZvVtghLY?o2%j%p$GnKpk}I;Bz506ub#K*9}fhQ6#|(n^ov1Iv=hv;Tei8 zE{L$KK)uB`s>F0<1>9-2G-HSO;H8NKq?<3)tz2VeeRvnlSfBg21Fyha-%W`RIQ++M zcWYtZXcarj)N|4tuLooEs=b|OoF_G<<{V(ICuAEF-PSBjkk{w@DVt+Eac3>XP#lo& z+`Yv8gmo3n5U5!XhE zlH#@1y?rJRuo0mf0&jhZJGQ&-wCCD2#QG){M0fV<2Opyo9K>L(vZCTp zQZ<8AK(By`aUiDfNC!nonCcJP1Ng-{``;lq(l>a&B#D61hm1~cY|RpT@H}mPG@lBs-h*Lp@upNcz_1iv;j*c5dbEJA)EpV4*7#$Pdp*_w$+= zs=y>yux+>E6f8d72zZF%8KmMsw3?Apg$3wx%eKR72?=EkWHT>u5t$@+yO-Ruo#pnC z5UsYWm5G{~__|<0)|eqVp)So!_qxbus`4qKqKUG4(5M!pd^4rC^!|00uqwjsAUVCl z1anEugP&=4+qn5h)u5hUP{YX|y((`i&=OY-a$+;*YJp827&ODc^R&$qsoXAX! zB}0azfW~HDec~SThVVfpbZew@x(#KGf;3;ci2;Q>JgYWGP!d21FH!dYZc!}Xj<;VT47(f$`LLXvS_njD^ znzfhukAzr>!GXn1N;p5rpw_=sexoM}B4W@Q?nncoB$3TG#X;);BeAkqVMeGhk|`Us zJDlQf`Dzbk5~A1&ac%2-v;BAyspHnU!3@6J@)6bST^!L1^~07AY8g3`F97I-z& zR#=QA5_x0$N3>`*o6NOk8%RZiGm9totVJM)*CFQe1412xf<-5)YftSlt|xXW5Y1kV znZ&phiAMTJDHM%ZC@`Tck`O9;lCe-B6rP&JI$L^Un_PWzEduMoImN2Ludcp>_hRAa zQ%D-(SLOLWl}A69N57Ou6<-3EDs2@x0+%Xnf0jpoRYz|X214+#wAI%;aH$Kn%B3!} zMVPC$2pr70)O}k7yOTfL$sSdC^+Wyi_rZ!p4Yfs>TU&(r>b3|ifWF7+ZxKSdX#}BA zZ%g=6KQme)({#Ce;p4~mg`5?>1a~to^wNirvb3@A<*RU-<2G<4(PXBK3ki_RrJ!%* zj4jY|jFjiC3~Jfn)R#W~CDA`IXo_nqT;shMkkGTyM4FfpW{(LqT2U{JiT`3iZjW>o zO*Gv;>F%W=WKs+H*#^OzYk`(8wv>pk^tc~gLtkxWP8*Rlh$<4_Y-Mn7)vV>a&4K3d z{l_a(m>*`)`eeJi$)>6Ntr0lm?Z3=m(hya`MsDnZW~}DccZn+8CIP!AV!_XWkTK&Q zenUC@kC9zHf?dN;DmjcDL;~{69{YMq{ByAw$qrIbO1(x3N+Yo`g{YB)`PXve{smTm z8o2{StH_did>mmlicOIvRlNp2mUB~x@iQy7_)!HCKdPt^8Bul5iU*MqRklCN`RYsV zyhUH=$cU;Q2m0DZMl{f;V7}0&p#A@4@6vsrg5X`c?^ECkXy=Qlcc}+kr$`U-yA?$m z>QgYcJ_YmDeG2eHoF+0__)))X$(PxA6i?>U#1o_gPGl0##emwNtt7%kCh9r3b6Gyyh?tfCr>Fq&+OG$>koS(3%s>@e(YEwIAy)|tNY*#+liStRHxwZpn)Y4v?ANCd~D@oYVPkV$LRV;{C_+>Aq zYSbpTbaNvXC$GUv;!?Nv5baG%oJ>#jU9xx%_|*MeBw`)%%bj{XEzkGN7ENPUwfDAMuy^Ir_vKN=3}3pBrLCetq(POe zzP|L4235A-%Dehr9@SUaudDB?AJvyL(x6JPUtc=6Enl!k0M@h0=O#3pBr~=Dzf6Pf z<@^H;y8HjoLi~IYYa!mf?#7y){vKZOpdmf~x#{`OSL^u`F5hm6HJy$#@uA(uNy0Om z5Wne>Wz^U8xsRdhZ8HDP3m>^SD zNlBp?AV*1m@(ze%#OSRUpzAP8U!X`w-ibj|3XpV~Ea0Z<P8^1aizoAn7$@|6Um6sv~1j{9pC=HUUaSN0q&M8-Va z!traJ6TOjZj5vf8!Tjs4aOFqe%hmkohw|vh^601XsA7v>SAit5s8V9Tyzck%=#TQK zzV?wtm2&#knQ!&ojV!74`zVpqSod3XuEp9Br30;Y!Ek53$%R}1FAArmNRA`eX-4W z6fM^z1L>=+{Xt9cBYFE~YmXxQTAWTr=V`{emgA%VK}Bp5sM9f1l8yDt7f<rfzeWPJk+y4jDIJ(t{Ecc5U5N@k8xxR|QLh_v`_+%MT{Txt|)AF!LioVMg zs5L!hNl^L_d5?NuLu8acZMj8K_$;^-vdQ&u9Wp9Pt>d)@$t^#W#aV-eN@CEl}Ys?Vu18UA&Y3KVL`A9?Ymtv6? z_bG&-H=4RJOwBkRCMWkE( zUK^_6E6=Ck6e(D)!2aL?)*&-|mbRVay$vEr`CJFku^9z+UO*+N4G z!i!B>HKSns|78kxuSXv!*u5UT-RGaP=(pbK(Rben?=$&(c*Vws^yufNM?e2N^ymq* zZIB{A9ry_EPA*y{^P#GECw-GMI@T`$F*!=}OGfg-Rt(n^9+HBa=>nrhb=(GSrjor# zLG&Cl5i^y0z(uo2mTWY5BL)bvvMk*!Goset5)FjVW9id6ASFWmQj!Nmp#!*s%Mi(FHB9> zZ=nIa(&`|bU>5X->~AXRCi%n`%6L~MY%dn);@SSLQl@6Fl*%Y1#f;B<_gnH?(rnyj zzRm^}&fp=zW9E*&m$p_@!ZBajK3dODdu?+~lIRq~G9Ov!E^fEFUQ3`bma@b5w&jf- zvgJc}aj_WDlTa8N>P%!)U1x_1WX_Df`2N-tCJA#2VSYZvtLS7aWaMuYmE2Y#C^EcK zzFubO9PYL}s+i%nMy!4Z&ouPeq)Rh~$Nyhuco*dB=ez$8oy7V75c;$i<>~J+6|Ec6 zte;Pf)?KYx-&zzRdC;UAH?%fB1eFFAu|AO3RC-FD%dAO)M)jvN$W$6sN_VTyn?#FL zuFzy1P!sRmWg(%=&aYp}NE=?u`Kbp#5x?#J0+V?o1|*pr#di~ZYj4efHkfN6P}7gr zJBsA$y<7oB*u6Z3q%V;e?8$4EPM2ABnQn~Dw5wO?lU#uk_|uA*+GjC94Qi1tnHk^f zZwc-1lL#!tNq@CB6!D1K4fxFr=;&S>d^dxpG#B>I58H4%sU1mToj>gz+iF+R7{>i& zPnUY(M9$P7km`UYDiOE#gj$8Mfb-kulNAZKvxd9RImJ0(P%U^uN6}gHtOPef*1G?>A;ZH|oe)-`Yf}&xrT> zP6nY4j_yafeDBQwqFvLG4`Ki#$MS=)Din- zPw_CVsBPfM(?wn+12psf-P)qfDnFa}<(}AF7i|q01K2l?l1(=^GCS4Sw*rh|#>X-sY4B!$Wm)@i8%StNz} zri_rnO6y*+Ys3?(Ko&{imG?&!xKzw9k185PA7OrG^$|9;*UU%A|6leIUQo=R@BTk@ zCFlPO^|6P86+;{n$e)`){(QASK8y@U&|}T~F$8`4+i&kSD*BbH?77UBtTN7D8oUq# z>MdsJXOejb`&*ikW0#IQ(f{~Lt}vseCZ(Ry;I$c?XdzJ2v^Qn|tLs-OQk=JDKx_B9 zzt1}{X!Wh)ortUS-j?;KZrwQP4`R^7(po=h?^|wz2wm4=`=4w(Y)?sFqR%o2#|w|N z+%sRqVEe~R+%nwjR~v-5N4>`1^i?Im-8^%)0^e;=Yb%lX`&28PcJ&!6><95kHIf(U z)Gu57{Yfkm{&iyuJIkArvqF8}>9iUt+Y?&@s;S~2z({@}TMN;Y3F?b|(sJ2E(CnFQ za`Ss7kz$3XtnR`6Z;DT?)@aQu_|j&6NbX!Q3GS!GEJ>!If>K(ct1y%%`YG^?6!9wZ zr1ETzHS0u2!Dfuk^_ycXY};FmgoYJ|BAwF>JwoRSDS8s~uAPx$PxSF!d%mA?2a(Pd zcMo-|j^36>6+a?%%g-#-ZMh)A-~Rt1b>m>_6}7`69n%(o7ZY_rZd?wG*$a z?=MY#f4N$HzxDp!O@XkZ1hNt^G>8sZ$@nZZ_TTH_qvivbF3C&`qG zSNI?X*nI$#DGthHZqD-?7JDX_-uLKKg@uv*|>Z^Z3|HA)cZLSx1T-HSxajZl67NG$l}C_ z#jQOe_ znKmc4wb~{j;Fq>K@=E0aU7KqxkMTQyEf%N&tGkS67TkWmlM+9lP0o6pCnr@%qf#rL zR6#7w@l)6uYB=s&Hca3Batd5S)K9K4LN67%h8m8`HG+5V>N`->3Uu)5^C?~hI#}KP ztpZU9`Ifc{Fo6zUuvI#Ep^v~)^%3CUnGV|Sd2;{%ybwzH{%mLSnD6E0m%m3>1aYXd zz|uMkELV3HI0MCTgWrSC8F^1G1^3M6L*yk!OP|XiKI!Vui)`voekn!*psffeDCaDDVpe=P?0pe zH-qVL=mWTk-_Dkg@}1gQ`OzK_oyB{09hdKu7!X5J@tUL;rWwGFX-9xpY${r57lxV6GY6pWuRv-d3)F5eRVj87b@sK?;cgb+2ra z1}JBx`6NkTrNK)vz{$8t+8({KK{MLO-C2{=KQU)R9MV_!swa>yfp*9N3~eq zJD#wx8kJ!Dh8;P(VaH1v2Qkr-lcVf_`AIvhtm}I`VSj4sdjaw%Rg<;EFx92 zi5f1y?1>%{MZKFFe<;V4`q_&tT0I#pdtz(0Z;d}A+fxuZN_Io00Q1xrO>5#4e)!DZ zgGISYLb;yXz9w$b|0PwzFKpY%Z@1LBr?}OqpN0vOEI{8=>fOsC!M0yUh+zLbh#iN_ zwvYvAGq-(_=))+G5qPrrXyz=`U6Q0PDt3(|3MzPw@j`tE?7o4!koG5wGv+MRsSd=B zjh*q?8V7gjwe6tnzl3Q&;)R-Gagh9U>7Y!z#wV=%W>4tSxD#8UN<;9$-H@BW{1 zROf&qPw$lP;b7$l9BLb}w6+n;)omk?w%;C6ReJ!t$tdizwiq4dYdU-3TlriDQQWzo zYPpaXVt{(tW?N?tz7&Haz2&6?WRlk>2Fwx}=F)5Q+6<0I@ifLOyfFjPr)t;a+i(S$ zL*^gs*S;k)w$HRZp!afCGR1bN7C!z(V)Mb45?54Bj6d4LI+B97LizgphVs#stxVbb zZ2MxqY)8y=;W?M$Y!#45+4#H1~%MLT)Ht`lmfBDysT* zi4oafw)9%koV443+3DKz)5zSbLA6CJ$d?R_D58f?F`-o|>GO@8Pc3$bNL-2Y_Ja@~ zSF)1{wb)iRi>%ngmq(pRiG@NH-sDwfX~inM!>jT!uYB{YmI^Cckr*B35u?7kF-!(J zA#I9RBcjglY#v$3uRY{-XP)ELIz3Xr8WDB=WY}VN1L8Dk;KM{2HNUU*)bM z&Aavv6v(3cuV^W8qtF#;USUi8w>o-T9(__Ch48GG{4N(7U9|tdoDO*3=pw{_@BV*s zz2ra7SFwI!o!`QhUw#j-h~H4Fi>0-?Sgvk$(E`8+;)i&Ah^fxo$y;5>gvi#I+K+i7 zAJ1hFeLL~Il+@sb7@$PAUwR&jK;L7zY3 z$Zp++_b|J`~Pyg{?-670>qkm=@}g#(#Brv;r<^tb3z~M#gG* zvN0OmUt{`XJ^#@$&DbHxADw{xHTVgy3@C{>E2@pO6?tzjtWxjhD)zhjU>hT0po(N8 zIfe>lBq7;f#t!?%8F4f^n5{EVMYEA`@;6(Y^?4|^MaJ0Aa;QdF?jW+rs(r>yWqW&D z9(__CHSU&c1};rGI;jV4|9_c9-Z$n5Eb{LEr_JonLeZzb+i4wFa9QZ{O*PV4vB;q& z9ZPG{v0UAx0}U1`@!)Xx|1S1IKKp%#&1t%z3oSSiy#UX}0B^)Tsos1cgZ6(AQjFa6 zr3^a!vFs%GEq-!ei9vhKr=Eah%u$;*90~aaKJiA*+T;O+z{ZH*TQ}Hi0#&%eJ2TKM z!c8IvZ3d(f_VKaIW!O)&sXDHN#y{HH&(p518~S7hDB09L#?Q6|$jIzJi<$edpTn-T zh3hdk^3kty1-uAH@e{@;{mr)SVbX3Gv0T^;NW!fd?+-D+vxJIb$*F&uLE|&wHh$S4 zL<(yuZk&v|@!Q+q{Ut%)TYI-q&0cXCKCuUkqI_?W_z!`v&KbZHUQJbeY7gMlia4Cl zDuhuLo3snQQP`RWs#+Ao_a_azAo^zQ#pfq?e1-S9obcf9hwze zdW;6rsgs!DT#4(_dSV<_WSd|7o_3?MEut(x#3O5ZDFzE}KdNmW|FYT@?^$x#d+)y2 za?-Q>^>$~P*Kh2?c+z^V6EFPMrnYFy;z)Jgi2+X5t?>Hj0(~zAFvyM2waDH-hym_} zoj8gkzxyZ#h}NQ2SbEq#i2)z3;HNUr;Ab(|5@}!gLGeWlaNLklnnbL1vm(hEH|sZh zqLl6TuohX%cU$jR$zU(_4_iKh-1QZH+G_ACwa5SHwEJbNu^u(PF$h zM#4Xy*i>a>p<5W!@PH^`mRe$-v7)E`=o3llXFk1EQNZW^RQ21IIJ*?I@WSgiI`N<> zYK@4%yz;pw{o!QDP-9-3>iTzIL2RfouRYdvpPRy%`>zzUM(#jC%g?6>HPk6iX5{Bn zJo2MoOIt-Cw^g`_e!{BDhyqFU36_0Cs(Xf|RkjKPk&)%Lnm~A=kH}K>5#eB-KzR56 zv)##`?POOJ7C(%xJc2_VMV8i4WVyPd2vL*$hCC${adC$shio63XEGmt?P#`sd*EnoK7o}GhfVrW^M7lzuMX_${-@;_~si@{Y%#jae+f}iSfcHZS|s62#iboEBYz3CQeYxYdet?gFf|gZRM5iFv+7Jz2pfqbDxi(9 zImNdzZgy=`iudx&BR9MDe2Qn0n-z^JZWO5^536hykK9(lC-SiB%nB=RtAG-DSlQI0 zT6=g{+0>&vs&D(_T`3Q{(9~n8ntE_B=V5pMKZjag5$yIlj)86-?SccPyK|#mS9kN^ zEo`M3kE|h-?rIN!6W{X=8lqp~d0V{Sypw3dMygvQ!+0SE&@P-5y&9M~sb2bUL^qr{ zy$Yw?tIC`{h1WhDeM1R1J1RA(O5+M2MulN)LwXsId5++_U~niDIL zj{6{IZ4sBXHXdR?_1$S(>zjNM1L7^)rt}-!VX9zHKjykQ$QL|(It)oL;xKG{zR0sbAxXScI%6UJnm40b42$pp+=(X=;(=nLV?2$VgK{vlO{T2#rEl z){NJus^~RBXcWsv!fOg=BiDH2+c}UwFJpKs7XHy!{2IA~_vQH%x%_G$OIyVxxBXn& zD)P9k!b~JwRhtY25Vuvdh=i*;vx0)z60$6tW0Xhr#r8AnOMHoNH5KM88IJ$I9E!Ye zjuAqUcmF?!!dcVFZy)CnihLMTxx0pXWGt;m#&UI!43f_l>OP4C@lBm~6!f`dNGTx<1-Sl#(#e`ohB8g2&1zpq(uU`6?)|tT8@>Li!Z+o6#{Oz?5Ct+*0{KPjh zhM(b@S(H^u^mC!w1Lft8lf~6~Cs#O7(<1s9(dqPF3}`2@Td52FAO`p=Ni-|tiXX** zY<7)}#^By3Gk|Q>62_m!03s#zCrk8LeX&*2#Kxq>>{nZ*-6_(XZ@w@=X3sX*cbn&K zpYbbw>2V_0QN^D&H7PR5R5*T_LFPWXu{&L5a5uNM82f~@J+U!K$t3{PF{p+8FMmna z&Qr0VyKAuUPyREp0KZnfP|wA}KVynNq`pOBXz-&5NqvL9^y{HM#hx){bZ!5Gx8fyj_ukoLE7xIGB$9Km|1s=y2ROx)RbsrVOAWQuF z_kaHn-~amG|M|;b{_DT|^FRLMfBf=4|N6iG?$h7???3&gfBe_K{oDWg%fI~f|NZ6v z{Pl1D`cMD#pa0>1wCUl|Ad7lOXNvQ`RLU7!@>#*D5E#=z&%+=nkGEEP5eDHs=oP%& z9TmottX0sTSIJFKL)l@M`KEL{jmC~EjmF-n1u?$Up?7D*8qK$A0UO#&twBPc)Pl#e z=YJmm68@wXq{VAiTckH1)PjJ`ULtHU;`>o8@ITGkj6V3HKDotKdk@EJeD>$DXv3_S zU;afcS~EIL*a;!JufDp3n8ToNzM%WHh6vw%L8;xYNz#w7pxY#%=!3GT<1gQo`y{4! z6Xu-^y7hUltD!ydJJgP4iD&J`U~*#fMNijLpOn=yvKQR{^Gr<;tz2bl23sR}-UebL z-BVwNr>HlU_{$8+MjCFt_J?P*ldCxGG&mbk|aKx>D*4Bm{fw+~{w}uyPZP*aF+oh8mdAramf)t{{vDJ=V zAa8dEJc%1rO1edKDZLh5d>meKx1oL!oa@ZpuI?B?%fM-enka!o1h9_NK61ByQs?@~ zn02o+CrZdKeDf24dLsUOj#usaZ>=s5kZ0p}1Ri^*nT`kVZ2UwISDOt8r;6(2L)%Bz zXej`v^FN`XT!vV|x84HhAhYZ)5|gstsRh+V%c0gBey+hsx<*kG^ z;b>|>_%EYny3eV7tz|EuWooe{i!huQ47B%WC+scKJ*Zf3L0^!j3}+h;aMb5PN_+2& zNYd>6dC)whwg5u=Yw$cY<0)PPRMnN00b)xY6faN`o`kgNvVidRg8Ee;Z94rOdmwZI(?KLYs6Q%kZy8`U zIZMBl5I+ptU^P$6U~7a78i=JWw*qXfyWb4AM#}gMxJKBYA=e1;G8h}=YW<#YN&{D` z4jWv#wc%94)vA*l93@<>vNoVexLRdxc#?3n!n$#_>M&fbI&5I@cx~fqP2o3*LDGex z{)X{XpfS(PbKT}U*qNB~mZ+Dt?6WE%KpC%Hof_JSS)S5R) zf=i;_tG5kXrR7D*y+FPG8l=!K-nr6~^wk0aeH7nL;nIA5-{u-^GLcZZKqzb(1ZrEx+*4R%09%s*Xt-C59tm}@JVeROA!$E3FAdg}*KxTCZvcf|E3d#Zj1IGwH0Ds#jUXPYy*6@xXX z)2d1Zze9Bst-BH7bUI5ypXfSO41l)oD1^lM z7S`)T-=aa<2=6mY8!E2U8%xMuf8Pn&s}4i23QesV*jgzQx(H=IexUSZwHUUk^8 zB5};+)<*W4&TmTgI8a1YFEnc)G5n6~d6IuS&{bOoZufAs;Odz6&Ew_TFY43?hAw$-q zTjrVTuR*#FCSeo+*pGrYE{7HM3%A&9v>8Fn_g4#e<56^4#@$<14VV0p|93|uOe@R)7hSpP1br-Mn|1KPZhdL za`76c(}%lH#KAyeUF$>E9Re`cH97SaI%zvsXq=jCn`p9&q~VRT7gXJGnf!&n3)Wd7 zaT6M7A@LTxW}!i=ugiY5=@vXrXWW`q_<0S(D9udD8w|Eanyeabjp&CNaHVZl4XV;C zJ-Avw?~yn#Tut}C(L46P$AJy1M#?kbYWhIdc_%+Wdy|B#^@m5;9}$G=jPSSWuz^v+ z-zsZ^8MlVN71py~4(PfM(rr+U6o@X9`;DqupthYNBilg6oqa1w+1pY1~%V6bM-N>gf`x z>oDug3OQ7h-68QXLJoCRO#mf{?i%L7oXnY)25$8Q&~^`5cA%jiKWSF4Vz5VfPeN@C z>2Mwbi;HGmtbZZ(7(VVeeVgVa&q zoOS;r)Uh{7sH43l;Wvm=UZ`VrMgy}EGHPg+&`Eva>=xOLRvvI;IF?Y%E6>-RqB^b|4Thv6md9BSOaJ)LRi z)vX(-8>9+!hw8>*f1D7}^#)+)Mf%O9k&S5Xj981&&zzsDCrUQEzhD98YBPaWfY}*D z-U#HX-26Q0*C1R2{Ov8!>P0QMyG9H}0>)}V2d)0DQl@DZ)R%PENSUU|=5MB&(}Bcl z(L`BGVgwND>YjAwY3iR^&=sy{3h|i(!@UJ%CW(KU-|V_E4qK_4jgJ7_?JaiHR~+NT z@hR%4X>+Rmx}a}wfo`vm%SLOw1(;g!ouL_Uxv9b9{u;PfChhtet^w0ji|Nps57?c6 z%DTy@+U~z#F?P6#RBtxtglTQvIF%Mbwp9(jyTlKv zCZwgVFlDG_Z$czQSyk?b)D^Qj-NY4Wu-Dp&$bBUo*l>?+nCQ9~)FJq`+HKabj$BwJ zMTxQt#8Y4Sq>KcnsSh}(mO3VKbPqZkq770@eWFHx*wBerQumFS@PpD#4Bi!Jv#~fvh1kb3$fOvU@2av0x z_xr;f`4V1Cm0d>(rT_Xx3IWJ!Q->q1t=70@Z*hX;icd1~B>-0~=qpyYe+6%Q3z8FI zHsMnb#Of$v#Y^I>0&vxW8|m*P4OrW~Z&&<~ps!lc4Yg;|@u~5}s-`l`N%kZCx-;l4x&bQe~nqfP`K$Nt&C0bdr#pDgYYP;kr!7Aq>*C z)G9eNc*Aw6O;__Mw{DU3@)rX;f)&QM(tJgoOHMC!jCIOQ6n6~ZMg(*M!mV>fgSf#2 z#eOa$6*C5S3B9y8CM+yrn3CXlWo>|S zkxE`@BY|t9q>}fIB#bcvjCTk4)@it#+Yuq=)%LQF<4ZC*)J}qPoyp|Y4JBqEh)zqp zhkw0I17uP=WNfFLO!lLwFr+2rc@ifZN^z`8s+DbnjUF=7YAq#fe%B z`7Iu=0h#PAC{IKzE+dmV>PR_n$qXQqYJvN+4@jk9aJ87W;$)2$V6Dz}f0A<9luY`H zO1Gvo6H=erOu0zuyMs*j7W+TQSM9%f@fm=#YO$fzdyQD??jsd3&XynZ{V1xiHySC; zJe6ue|M~hk^SqDdl6`5&ip)%Vyoqzt-Z5>*g-JptZIRR@p<|Fq-D{#B z%5uf47}W7A#)wliF|1?8tED;yc0|cmqwR)vBVvV6OP#*8JY!qAi_x$zO^zfKqi?}_ zV-175kvN{%LWzXAq zQi29LX0$;AEi)K)rj}PX&A=5$MJ_CjKC&AcC><>;0&1!H^ialHZUykwJ{z0kO7a`n zt34lDW3H000KL7%5$H{sr8TQSv!`T$V69rILyPPbz zYj@RhWFP-hmT5Cz)Rh`o6sW5UN;YoK0HY(7-}Ai%_4C_9y;iVHwV3F3(mjtf9 z$M>>)g19er^BoRSp_A6$^cLH51yjZ{b=3B>?F(ZfX9S9S3$o-i#+b59wb<=fbhZI! zwP?|XaxcL+b!QNESZAF2*xJvn?l1Oky8+krDa=|&mbgE`dR<^^GoR#Cg8w@EWfN6_ zZaSE4!KHI_IPy}1xtUBv;T=haqv6~E_v4z00UhyDWoEhmQrAVa^HVAd$<%deo_1%| z26ZFd-VE#T6OMQ+_3jh*qruyVs1LMKXPCs|4bcXZD|Or2{Mfch1YAvwt#V^-0*~xX zM%b#M+F-3tf0cw=UV9S;XbHEhE@)7d@W{ftxhSi{hBt|eva&WDx#*&7(${JIH3y3N z>-&};kw@MgAp8_~q&5J!+ft8vF%~;I6tN#gZaGpwYo5s70>q$6SU4}h*^ffS zdLt?G(H{qHss;6~y{8~@5`K;QH6*7gRYg<_;-HfC73Kkk>TGdo^`6(bq9CfS=;6?s zvf7h|7wXfYP^)I$@WS4LP&P~2J*l{&K&bAMWs=g4G-pyRro&3}KYpC|7U!JFn(>io zqJ!-ppS+s@!Ma?F zL zuUbf1F|}bDzbTT;Oz59&oxJi!r)YFLaS)BqWD4dz4Y zeAoSb24o}AXG5~VfVFNaf96 z!VoKK7-D`{J&n_)z9;R#WroPnvvhV~i1!Bw&pSgrU&$MvJic4z-G4g$9$!(!cDaGZ zC)1`;#OdnBCs0IOjUi(KJ_4x&_pFH^!6 zWl3R+NAXQ%NswaEeqV}*CtAGLJApawRy2R!xW$aHWa%+`8?LdJ9`}($ymJdw&3g=r z^LVcoCzK{7MKCL{vDH0LZKW=xz#_#01*iQf-uoxL6PV*(Jflg+Uf(j@M$I+9xCPl@ zwZHbOTJY67iSA#P9VxS=%t4#JW!^=zz>gPy75wm5igzz^&7ZylHd@Oc9elt1oucdG zic9du9~HjeRWG8|T@p8=j5<&k zbF6D8fZ6`yBtLE?i#^iLS874><6fL)S(Ub2gXG6q+LUBf+GcT_nqY?!EslLNySG5uT*bjtR;d>B%jKP}Jv#5bw1Y!*p=sbSjynQo+1_r&Ur zHKN*^j8I?0xe*h?xl4JLQxj892`vW-LVMrmCKB4a157axT9IuZAhZwTOF}!=`er(} zzL~CWeKT$F`0cj@&=Jc++3m0d2dH*1K-jVdU{JodK;#m_)|+JHwzt@|wq}t`f$RM! zlzP$pStGQ)1r%8F0GpnPJwpJ$w?HF#mf&n8g5bScoK#^ZS^)QIF)z}cB}>M13w%x8 zie?2nW^q(~`!uAkceNv_qNJ*P26S~7BH870<}08Ud(8ukB#V!LK6A<_Y68tSKrMC$ zDWlB_cEkcYjH@#23{YS9C?(#tau(kJeGd@RsZ(hA1gOP+tCEJ9&r~foJMq2673Bla zTOjjJsa{F58_`vhU80;tjgF0CH^gmr1J3s+4UN+BI*8{2EF8$qC$vN#fFl>*~`J0ftoW39hTJrwGWgzaou=>*}MRS401o zGhbcTrrO~2*ieo#{y^m1#9(f5M$J{6xEjs{x|o>2b#;fYr%D9WOHLbbj!ocqYsfa@ zvxeO2S|^;@z-)jsH#Tc~OMUcF4xq7F-CJtW-X>$_Epl%gWsS_Y6v*D>BAaaz?kSt) zK*473yZ%Hrdv{=(Le5OYHN zS&?8QEqRt0F$Cka*+Wy_D_JKHul*6of2>`2Abf8@COo0i?i!I10`R@Xfmw_6QvB|N z@4dy5z^A$c0=EF`)q<~E@BT=cty;_^LUbEHT7dL!v5WT(xZ9oVS6ta(yIRoRynh2D zV}{M@iY^4?Oa2SatHpk&DTrZ3fq8w-lo`ow1q)DKEy#ALl~DnC-F+y&_ZBI$Rf`>2 z)tP%%--B7pyW&#=^VNb}m;_3^|Un5<0p|NZVqsd~{h0~x8FTZ3oUEs3%ymqRUkSxA|9S*yekl^$eE~}3yI^&(%8N$)fR&!bt zmT7QD*6u2SG`!pK8$oQ6Tw4P?R$pmN;tn^&)-Gq2BaI!m$I+MG9(n+la2NiEW~o&(Vl( zZ!#di--xc7taD?-xr;=%3CgELmjeaSz3(#=iSFHjIi?{F_;5wu|7}BCq2G7ek`7S3z;RS^Q~@=GgyxjCKCM0` zG$gkbvD}A5?Gm)MC7BZb0YKXex%$lppmm0=PlA&aAX&Fb7J-I(>MhP%vXl@8e5z_9 zx~La)+wB>yM~b1IHbwo^C7*J`sTQNszxefshw5C^^VxW)69#^B>wb*1#6!9UVk1#t zL$Q$-js|HXCWdLA>}UWsl0Io@=4UkM^1~3zer^4*fs!BQS8`=-(BsyIGk(}W#Sg>x zs%t~_io=c8Rfi2BJO|X!AW0F;Pi`rqO`tucW*jJ}*?pg$NX_mJ%rT%Y;`)J_Jsd5m z*;rei>D-oQy1Fe7F=ZldT?%7pG(PonpypI-v?J+)n)MbS0P*?qBM<(GVt#A5b2`{! zf_OFvk)zoV3yiZt+bwg`g$LFAa`>@&Mx^6`H0x;42-M?W>PPG?P^;H!lhlu>i-vQv zX29TCZ$YA^;(267KwNJD`=Z)DutiYK9{4N*^zpm^omy;B!eOOf zBFGvRLB9IY;RD+0z7lbLj3bus~DP%DE1h(5#U~>e1>!*l_v&vBOMIkZ~Y>VP$&4? zwI+sl34goxjD~axf9ubf@VDx)0an7_Dr>{2guhkRhCT^@tE>%WoMIWG_+dkjgufNn zZZYKiu<^GhlAiK64ixX^T&@%i-wg0TFfOXhL^5+46#cHfTFjyshL5)bleD zjqc-Jf!x`6h}~o-1>{ur|1?qF_4t=ogZCCK?kHX(dv>S(8nA~0iPL2` zNDHAP#R0U`W!N85-EkX5Q<7&YP%GLRaP z$T7$op*jX&BTNt4)=z)rDu!qy(}%Y8S8^|9V@I`M6^0=ue_h!Uhl`lM#q|%cuL1OP|&eU4P~ag z19Mb)RFV7hXXMd`Z#)N}c^F=@v9WeC)483@bagu!q*OMv%_A9kX%#BlAOrsUCR^n5 zfF_#wmf}|zpi`lGDRHLYIg5gd+B>}yw@1lqQwjyh+4wD)cG1&jgGgGG&TD~}*?98C zcQFELbDI;nbAYQKbtGOV#hx*$3zqd3tn#)ogec9^k0NR4AT&2V3;0)Wfpe6Slgy*0 zqc+-jG4-hFPCwA>GUH$NKCr0+cpr(bOsLuA3WKO}xbOSx+9GuS{9Z|rmE{}CXP8?*gF`aE|wwdrR8x$17-2^b! z8E#kG=K;`avR^gnV6h?2h-x)-tiKA`97@NMd>=!p5oZ;2%(lcT=`*An(Qko{=?+;B zX+pCs}4iks>6msz7_^J32m!RZn%=rw!*s6w(77UMMB$hYol#V!aJpH94KhprT#6` z-GMpEDvDP4Kq1D%_>#Ac^>3NZ{adE1`?s|A^Ux&vMk85xJnZLKR;;svXis}1NuZz& z+K}CCpF(iY1`$5PIq~=x=$T)6HtGNhLG`{1$oX~uKWFEaAlPXej`EsFb{pi zJzDFtjoH81e95Zr3iohkg0~*ptPL3iQaK!+Ax66B#>i@;=OJZPBD$&vs#Ob!*F`+f zy9J1Oxf*gZaDOJ{w9|1YFI8fFw z$!4_`?!_?eMBB90Q3F`x;b*lVXi;>*kpZStIGri;-tP`vV5QC!u6gyP)&25;PaSs> zWX?|`K~x<@{3O${s16T-kjX(!8*LomPgTVc1YAuU zPMcX9iUeLZvxb*VE)Vat*=0inCtkMu124-zuDon}RW)T?c+JbWnyaRKUU=B!{Nnh$ z(f6V$O+EW@b;iQRZ|^9PvOPH6GXZ6l!ji8E5a$KTw75X_bTnr=3T@KB9Rf&7R5E{VzHJK)ht*gw_c_R~Q^7skn8 zQ{LoBF3g(9IsN4H-#%-1&0*K?@t;0x9?#Pv4s3iLdMX-X3BLIxAhCA`xSwe&;#ij% z@P6L*j>ZY_EIt0fwgS&$T-Z&1>0@Naz%d%Z2FYqN2NQ$4XX0dk5`(xsxup&8NM)tn z4OH{DzKXge*2531zu{*M=!nnkVGIUsdt|~t`qLWWV$FNxgMr%~)@SIp$K)^iV4c>< zknK?s4b1!(|31H=L6%z^K6R?6FG79oeKX|gRBvki-|3S>^=8&caMQ~M5}oS3ur{hU z5?Ut-ZsWp)>b)v$g4r``a|=WmzxV&%sE_xf{gnLet8B6zM}55Q?aC&oMfV5UwMbWe zCMgO&;-1-0dUeC?_EC|#OD~|Ij>D0xBh??tcpAuP?eXENrOT{6uxRa}qm`+39_Y_= z*Ia{*2iEq~B+>L$-3twP)TH?LZIOH$u&fqD)?OAR_Q1+&ai&tr;tU(8tQI)bpBIUb zK}xkC$~GLdN+W6!$mEXmLfaTnzxuNyHJRu&Nxc(`QE|4jZ!oj|Eb2v)3xQ5;#Ye!L zMS`X}{|}8vOkQt3|10hW=IZ<(CHc>&_1gj&Y;NwF6sGe-kXeWQehPU%0BCKs&d331 z+rXbgay_tHTOAG>q}gfYz^{U!BdAFjL5N9(;OVxwhDQI>*0mns2Ciu!MzDPF7&PP} zhg(SWW^gt9dgU+VL59T{I;cqqRsEfJ(eiZg^iKQ?wdmqfFf`bT6+#TCh6L=B7)YJs z&YA}{s9K->Lh9;W_OLcXuAM}$-X##dcOSwKERet14gaORc54HoK>lVwZV==A%&^5T z8;*3HPv$F-zx-%M{zi)FNdCAmA%Cw5m24ju9xaN23t!~#GnIGQ>K>N*qxqEk?JHBV zJC}2yGf#x?SouaZFHO|W3>`VyQ)Y1hfazd4@*)71(YB4f< zjC?_U8taYlWV&{qr|HDOv-!ONO-)e`gP4~x0W+c+dHNz&7pDn9t!1lC@>Tx-~j$9dp?NyUKX?+d2(At*N&5(<81pNyH5w=$! zjP9oj$ll-OlNeg_8fY#TVRB@ET$nJxSCu`sj|-0$IKhR+ z04ISHKblV&;J&&Z+q166_I6zlju&i=D8ay={2Xef@R%0IJrXC8cCd+42}~9-~o!YPA5$ zu9A2+B`q-v>VQ=6PIc5wqgA0zN5DS}v8(Lv|b}-daoL?Y;Uw={g)6DRvhotD} z5*>)DIni&N*H7;OpsK}4q&>Aj2CNp4$$JRU09LgX$!~fOL08?wS9I|Sm*P+b(V>Po{g_bZ253khwhGFrgqm!BfzaA zWZnT?to#NyRFl(HB&^I0byTGi;9-cU&b45Q)r7AxO&gmJcXicU4wWDt!W(tO#y5~Z zih&p!_bR6O8%$BhXq0^R-!&A&e|YISXfU=XS_N)syRLC1*BcQA_349*2{+VbZ-j}B z;^Lv<*q&T?a6?<3jkNk*8j`K`MuW1z4c~nT1F@h4>V8aPnFyWA|>S=5r7alE&g9~qQ$nVXk9CBYZjqO=Y zV|%-r#{H+mjiSML%TekWI(ckC9M&l!N$1&R;gFgx`byYG*>EZPRxHT3w+c@Heln-NK0|h+7*$V2MbW%A^3UTAU7-3ezdZ!z@UQlHxk-ajlwj=ez)}cJLs2 z?RbZF=}A;9c99ZrslEeTQOEjf z<+7q9pbqx-5CJw2Ke(cfBiPejKt~}Gn1vb1MbwWrrf%tQoeW81g zAo<>WN&)wkp4gtHC$_gsPq0fja;k7-g{p!U;-RvjtR;ol%)9*{5y-6;Cp^FwF(=?} zwYU&kA%~#-4G#QP3o3>Z*fLcJp@V91M{8PXiq!(|A1eP&E#QV~!C}_C^eRZK76iIf zl`S4IYd_$L@mN_~@j9)qk`(hRPlCMicvPqLs442Kk-2VOh>S1sYJpe0rcUlp1!vT? zM3$hXrl=N_!J8N71DLA?D&!`i27PqV8g)+)ft932ZFD(^2Sz-3Rtx+c=Z_9v+Y;53 zD3ME63y$MdoeV4w2-jJ|FJK`e0_!>nI1t8@XB~JFLDjzy)6yW897&N()*l`vi1qy( z)kPhb>{zJ1dMs1c7_#v_qUv!F0S(&7Eg2ZAp&33)p%EXqx#XFvlhuM$kn`Hb98cRy+!nFbP|0cmm82ZoR9J*c z>i*zRcPT}x#hJV^(|Z8rYC#dac^nN$uB%-Ox&+RJMyWGMD$i7H!$#Ef=fFO}cpcKK z$nB{*EV!@zWpghGEAIj|AsImAl{ze1h4ICywT_E?rarTg2FX%;+|T(#gtD3l3efj> zhHZ-?q{uPUYq^=hmk^Vzn?~{uJ+;&j&7vmjT5Se=ucBG3he{{|(}jcTlNd1zQO%rT zziVP>w=Bud)FyWRT zr-Q@TGl#LK+XckGZusrD@Mi7Q5xSJo3wtwK!`eLp-%s3jn@CQ$K?SVzuW` zsye#y)Y?XuPlzeu0bq3oDLA|;qbn98xzDN6u&7Mdd*EJ+em?z7fllg5Je}pEqu&F- ztrjB><0wXJAC6E+Z8ZesBuDCQA;bB66rqi3v2E9`0t3Re6%;`aPkYEUR8i*>S-q~A zZZTXRb+D=9Y~KeV_(exsS@Jl(53Y|okWle8Z?sV*Hb=6DCrKbWLc%u!{G8>~|-6%yK<6^XrDgUA&8W^bjEM(0#NF(>clG4Exby8Jh zesR{VPalrZ4aPo$M!%jWkV}}NuKP8IGa%a|J@R3!Q>r60`s*?(Oi{P6Jy-~JF)Z83 z9_w8KdwlmHV2`t3H2m@#8gK>nIQj9x9%q+fkF(2sq0TPD9`j{WCPxzM$R4>cVUHix zLjrsJxIh$dV~;gm_UBr+uQ=q$?~SIMabGo&?O9D^d%Kzlx*VyfackQycaBnTn{@?P z)vh2F_ID*nT3Zoec%m4`j5#4eRtx;(?%_=hcGgxTj%qQY zxXXs_ECW!j7QDd`#-~gMOx1f3Ph4fk&P6#7QVVpk`a+A|jXG8*M4U2K-2!~A79-k5 z4%<3=1zvU5&V(XOnI-62EpWFdz0Gt60asm1Bv^^Ph4AVHM?+*`6tPj5@!ll8O5jcj( z37p~BPM1hs1-ocsH3@=Zy}XkW&VJDVYo|-(>=zB5cDh8)e$jx*WkP7;#CjZH&n`m~ zXO|6CUW$w(r*@=?T$s?rk7^}>CVpJNwXM-a$=>#YBx2Hl!R2gfl6KO0YP^POkU~07(CD#@l6ZTjw29`)wj{cqnZL0+@ z6bYXQ`TqDOR|{Od=FASPRf~t_itBnFP^%VKjb4sEkKT`?yyqHo0e7p#&670tu>y8= zbg5`FPnZPi>I`14R95-=i-*?L0{=&xH>Z3P_NeRXPJq&sfx#Zt;&78fC4D8r9;?MR z)^3ci)_rgnr{1hMss&Naa;l$Vt<_>gN=>%a%Aq2S}YY&cfH~qfQ%N$n|v@ zJP-kP9aAziM8Q#8k-)M3a4-S$ZBWU`sY4V5$7+%|SBSON&7f!QDWM|Y%sNO?mFSU5 zFdGE&p=0?KYkLCKbdrS=P_7F4!yglUC5HCoPx?$FOC{koK2?yEl z{-PmUkS8ZM9P;GsvcXe0+@4t*2EF2)r&ncK#)a3sldI3VoAyvYCotl9;drzwzZh3q z32**$)v78FV$EF=V5%N%f)^H``{zti7kJb0;=jn*03@7?0U@J-pl zAKE?6l0Z5!P3s2}Gj|gFliuToe?dsD_-7x*^F_jblQt<&LRdVMH$+}bE6M?(50^3N zJnnD$BqN!eBwFkie{ZWy6JGac|A$(PbL&t}`k&tFm`3hjz7eiBNuJ*C{%^N9>G^UB z$!-WT0-0?m{MTptrqnBj&e$Ysgnn{f{F%=W%WuI6pV0UPfWW{qK*ul>&abYFLBsr| z59>`FRa0LYh@nd_$f`jaWK~&FjNZ0A%U47F3rFP!YQUiCkkJ)V?m|@KGWf?JZcp%! zVH{*8h`t7E_{-s7iuq%A$fi%B)XAa5G1jl>V~7f!+d;%KsFy?=F}Scj_{ z%0+F~a4iyLL$W>kt-;!!gqMbKdye@H2l+n!%Ec=KO0 zD0|69N5=7_f}XfAVWS@fW4a28*`TS%V+-RMKlr1R%=c{Kje~w~H07ZC>c^a(^PK{Pu}IRVS!jT75M%*vy$4?l^Qwao zQtihb2ea~2N%}Mkq?-z{-2xET`5;nho=6A`R}1Qfcj^Xg>&hT=z&v3lAYLto#;~ZE z2&Ah8X;J6Sp&+`h>c?rEZQ8~M#I@C#ya&_I6EIvY4!5nZOJKXU8p#GjUUraLTb*(5 zY|n@zr8OfNe`p3u*I#=KXXE-}56A7Gv@TTYsaKPDDsF4y!RN5r!Sxz+xOy4kVBazrj$~91<8hWbFXg~%_(a^ZylVC^&hgL!yoB}$O zDNzUNT_c8t>W-G!xER@FV8&(*ziarlQR7plD?B|kRObtg$iA8U=?%dkh)WZLFy8D- z?b+~bkBh4T8lGfIse^|^Lo_Qk8MNmHX=cKzaz6~iH!@!JHil>{)}^Fv@U|yulwsWt zhK(NDUK75k%&CI2c{9;@2#&NrGYs4zMH7TBcX`QPN4E6HUb!$~uOAg}0((PZ&&XXuYlUCQ3z2! zA^SNSL{{r3AR+ZvGoY_k2TtS=FUzFUQZT<-jC6FDxi=vAUoALT(g4_g58%IAust^E zZGYc`{%WyQCjo!8xLy}|Gr@kdxGxIb@FGwP^xpaTI`09s*yu=^kAC*eYd}Yrbl~aS z-dYXsjw!VR_;sEir{g@854dkDL&dVL%L4nl`Y3idFM1B@tHpV2n6JNn4?th{!Q-(e zwQ2!{pN|!90JWg1>HK4Y7eKY(Rdkk^zD#`81h2>WV^KcG?y}uNM)_}mzWy>u)Hfwb z(xn-tNpIrFm=#xD&Ue+yf(xl39bQG6Dl~W$7}TBlQkJvpaF>pITJ|CEV*|dSg@%s^ z13SDhEs(wYP#D@li^*bkdaj&px*pq#uo@Y;<2?p3}21&*|;LJg`yRrI3h@BPr#XPz;Y- zm#*NOsOZ_h=z(ah*g(Q1(<4lb0->t~{-}7ZPMHt@T`h=gc}P0G6vHkS<4aYPl_;^+ zdt65~>3Q@FxUCk%Rjo2=n#Jw5sEq@J>pgBT>@vJv{)Cy@Q{ANaWJ-x-7TZ<)gQLV+ z?{Oip4KIs+{Wp|)Y0G1Z{k8n{Jmx53#`+a2Uq5y+To4`mzVR^eoA zVmPIP3&P4_##4F-z^etWo|Uvl*Vbx*CxMDn{i(ouvrsvy^8uhe%wYuo3Fo=s>v+2i+FbQejr-td{Fm$o-34BfLa_i9aQux&{aagbP;wM1?6>6 zEr1mBQVSvYW&wMApOKw#@#@b+Jpc{hX`9$fMVmIN`@Cd}AU3$7vyeIr`f3BG zznit$YO=%mchFZIMtk_I&FTs?6CTXvT*I=L^mU}SkMxxb6Z-n9?$PP9?$Oo*uq2WG zI`E%g`f!n*^4EQZk513RN2mWy;iC)wthdMKzYmj8Q7N=Y!%YuMQ`#u8IFHQrbI}!4 z*8&#zn`i-@%fMf&1zTHAxJMZf>jw%&wYdL8ZmfCPMetoMIKr)rw+p+#yIP!aCZ4hh z(B1lhKWJI`z31>(wLsjQmt%sz>gb+Mr#Z&~=&Qv@YVIKP;G9RUBjKL~N}s}IE2R@AQSUjcAd zZH41Te@0-wwxSd}s%`n}yaUkJHFKB5_oE=J6D&>_BW&pEZcBykF%?R z-kxwWL%ltMsG;5-2LVI9JT%RcO0f#?_2 zV#MwX0(M~#qATSRe!_};008XUk3NLk>W_l-)*goi18SgMi&#)m zseTIgxF48owLrVQiO*eUI{1P}ec(GzAdXK{&30 z+<|oMo~GLh`Wc9>OH6Z_g-l5Rx-Kz`Unft*&8JrU{#ReLfW8CD^+_COcIr#-2S46XJ&i2>H0)JBG1d*Z?k z!1m-^G6dUWVi4x}j0~^#{GtJt{~~m>E*8IRu;iDanKNqxAGbE7@ymuXe%Tre=Ou5HMz;utU zp!IjreBoJB@(j{d3;feBAx8q>R$Gk(J-6ucSzF<^qvZj*1+b?UCyCn%X*@wfwctEC z>W4bM<|Eem8yHzFsM>lLU#{-p25jocEt3|3q&kXJg=o?gc&Z(|O1^}^;DA`Q*fvoi z`aQ$+rX3z9$vtUkTPP{}yfhlo zM)DU}p8?Yz7dXQvawc>NXV4T=1Q{~z5nl|Nc0^~4up=E^6CisG$TtYsyCx8@Y7z)o zy}Xlv&3+LAHoI&{6bRVN8Ui-EY~T_I*v#5sBM`8ewV^{GU=!;>z-E_ihX(?dt+jH{ zX{42p1dIz40`{tM5WhE)AwBGIKpM$k|4G2UHhhoY`QCm?!1mP;Iz4L$o!+h?G=j2m zTDp)FiK5bXqK=zhroEzC(?!1FwLMhK+C%LgrcD5H)@TSTC48f^FKd6K4!c1z5a)L$ zM83-MO(3i7M;1@8x+wCW--(YH`|b{XiLlrmZO2*=GvC)VaOM z_dsAdU}&|tkga9mat1-unWBJeeY^LFUyxR3>UinCdk{38ob9j(od$w+NGQ`3k9uw3 zQd9+itOG~3Ueg(!2?5f!#+S)u3@Z65Xdb6QK+|D42A4P_Gwq`ufRAbS-!;6#VPxeg zHDYaasjO@CK+$yOgU^=X7kjK7&Gu?R*57po8pE(w9BTZsKD-Q)rO}x zTq6;V5}c3<+)xhJ*(FyqphMVO5>3OpJ&X`~XG^4Of$+K7W{+Q%Vci~`&wy_a1vKQ_ za{_G8w}%44@oY=9={BFCZw7vW_tjtY%LZ$K_sy&gu-qEnH?!tza(3B3DDb|C_27N8 z%LXKY_hoD4edkw&b;gC)ypOB7u+HZN=PkcDK5z7Y|IcTxNauY&uFiPh`0X8Kbk5H* zI_I~`=nPWA$>tB-@W|@_(LRvK_=pSK*I)8&lU^Ul6?wyZUOWG5{aG53mqt?QxjUQx z==pFI9l1R5xlLC*iIc@KFCC|v1+^AM9tw_b zW^uS*`vLbqw1=eLS5DSF*Z%2qJ6s5K-0hp_UuwYttmdKW1nu9x8V)Bpb?;C0AGP3> zx1}fzn;hyy)<+M)5Z?@&7#|gSy4v?MH^C9M-X*ZhpZhFW>A=YQq%Zh(O5*est@%qI zBl+%#XhpvwK2Kf9vZ`S>NEfUDY#)SUde2){Px6 zf8j0$cCjGLAHBcEa#<3t{QarTui6B$&;V`^Q~ZnGWgqR6QQc$mH@!=zeQ*DwAzi0} z`X1HP^BzX%07k94LFVKNblv;xcmA|k)K_PxXTYMC z=^$vceyJxJP%JLg9}zARDPX+^F|q2|)h&QXtP4W?xPXjmfr)BYMgStKSwhj3B zl2xu2f=vziD2t#b^uAdIjM@*WZiLDV%8&b1Bh_EZ%#yxZf62qV-d zF{&Ee3Jvl0$c-?0kv>=bVy zttbdUL6RxQ0XggM65f21@aE2=0M2SbwFQ$`l5nUNhmeQ|q^ym|E^KTo5k<8)oUh5V z&$iu_lAaZ26H(NSibFywXz1Jd>6~Z#15Hqu1{E7^qD^-MPj#a2CrRVdDHViJr*Ko| zk_AGYk>j!u3Q(-0t*)#o6CUua1IbxLB!t@PcnGu+4yXfp37I@#eL8l@=MSEzeLsbe z4g(;=zA=_WYvZQQ&uP zKI7nglV=>t;Ow%2O5l9i+Bn}xa2+`x7bcwVvoMRHJkRu5nB`#4!`H55P9N*cARlb| z-e^ko_7!G1pGKL$^V@}4@L(shl=DkO!jU#_>r~HjkL$av>sBCbwIHhRvdF0n>`LZw zc;6Mjx^`S_jYeU&;!58spypZU{IojW_Xp?m*)p?ZQMPlZxKKdt>Rpp__j`c9I-Fz) zuV1 zvprZCjMkMw`IET?oKa_u@ma`wz_w0;R;Ww_5GYp@jVe#|sGm?;zmlmCRbS0Psx*w{ zrKX3DUBSZFob z=zB@cCygfFB-t@WTCTPG&ploXwc=C4W@$1IJx(eYwaincpho2Bje=4gmHdWOX-aB zvs#KPa-d9ph&V4mf&d(Yt=eKL5;7EKq5=>0S49d453bwEm>k86T7kEHf z%@B?<)=#bhR!u#QLt-aoe8bmPR4w8qS9VaBfq+uA;4n85%G!!^^9M52*I&vREx$`a z+^YnOMrTC52Txw%B%Va;v!ndgoAj{;NY&y%!NIB0$=AGQi9faYP+Qu-sLm7zk8|n< zp{y31sB7`Lz8d(H*ERDv=yN5pQ7tG~JuhYsp{y1Nnj~o~6Vm4cq}8qaxP=^p5K3)z z;Tx$vFBq$>NWI@%K^$#es?HU~MxD=t777W~EkIwL9^%dGTPdVN29b5NDHyt-rw~US zZlZ_Q#8JoSyiB?bajYhIOzZnKWb%VJ>WJA|(q5pwP(@oJ%4&kf$>*~!k#*i1sG`lcF`X`X@&T>$9nQ23;dW9*?XNvZI7v2) z+esB|OX#R(!LphJs;I-Ues06GAXw_|Sd&jfvvBzQ?k^gq1;O&oUmSwvWE_WJIlFAY z6a>p`ZGz><^Bn0T7bf)avsy`~kDt{_4i*6ieUyyS>#Tr3+E1C}zG@}sXSI^^|Dsw6 zXOP4eeE!>V0!p8b!)vk2Ie@OFPA6&JJdp~RYbo7NqbjG3H887H7EU**{?WM~C|fO_ z4nLIvbruTbs>Oq6pYm1^w^~qEOf&QKb6)^g?}0KQucg*=@K!Al$mXfDL0=s!atBos z+ZieRvRaU0=cw!=c{=K>ohi{c>Vs2O3)1QwMNo@gk7_~t-U@!H>&J?&^n+e-S!e2^rPO-*8@}pw+{yVl zKRhRqpbb1n4ht3teA}2_R>ToV*C9G1dY8W}QmV-zIY&Y-b&S>pI-r+2Nb3R}hIDxD zf?6I4ZQ!=2M4KVq-GfSEnnBy}=0F(^t_|z(RF3E2I;XwBaySpy1-%yh4Bz%}MFY4! znXwJwc1F8sU)DU#Fm7kGOT9~=m+wA=!CRo0vl~JsXO|7J{KpNR0&Sf9_@Ich%Z4#Q zVVqezC;M?6Y7}v#rj8Vm3loa?S>>Zs#E%Oc!Rq-dk0VL2*Le$nw4YMMeRV$0&pIFH zx9fbMz){P}ub~*7(g35?f>4}` z6sC$IWVIMIVn+(vmPlHD_wf@YM&`5QCwSZwJJyI9OIn;^+gLP)9Kr<(NP(&T| zGa06IM0yE3F*%JC1~DF5hkCO*B;5p7=p(nvwqsCA)r*T9k_I9PMfBA#Z}*sb+847v zS1^GhYWH76Kx?CMqT)Q#(2Rf=)%HSI4d1`IR_x%ItrS9_bsdDD7(+9XNGin(KWlIn zvtYvlZTa`dgZA0NZjz{b8#c@`KFWK;O$@Yls)~jWO+^iEkkus6zIu5Nku;DBv~PAp zgP))v&a4e`0_~ev585}o4DFj;HoyqVV74~eH&R+h+Q)?n?fWbj(rMqvh2x>euV_;B z=Ys66jNcngx!%4aA?Ih2kn`I`LT)1rh2!My3gsKYqg@cxt`Oi7gPm)u;S1*_MQ!ll zdewsPPeKQ#8~}8z79@zEj$7G+onZlv)dJt0qeP5$sfG{cYVm+i3MWeiMBL(Zkk@K^ zy#ti`R7Aim#X+@z$;?X}1EM-s++cnWFx2NmvQT$63WQdR3ofgg#3co{R0~R+kVAaM z`*d9~RC7O0cwe>PaF4LLDT@PA)qYjio*7t4{3e|!cuRJ`8hPo1^g3dE4 zs7J%-3{t3Z&hKD^Iv-T$u74r61Qgc^Ax+VOM1t%(z9%^=NVS7OdmrFcg<|NTnow;y z)iJhxVKr;AGovo^gXUihqzp!=gEYz*2hmW6Wr&=C5o)ha;RxJdj*nI4Kf%k-aE@5S zMzTWCvvz7%+>Cay>x6z67@~G~o&3?TZs#$yZWUv4`50OsY;A&0s3T_G&&SZ!BoM}W zc_(3<{h~qHPLIXeFQOg3`-~9F*)JMQIrlS2^2-K4K~J3Adw4A7%SJ3mmhDI^xiBG? zpJh-wvHZ9|1VYmjH3|O*vHV(#Ein3f^C`vLR|e($EQ4}>y9~-xr#h3#=6c--C_O!z zny7smMYE=FZ17c+=2K^D&I(|g)q>PBXVLSz0tnlz7D%E9g=GUrwplH3LqtO@7LjeL z#RJ`S+H=0ks|6JXa0o5;h_N$zk1O>^$~`)x1%lP$KnRKIM7CZ*U>z%RlGpcjSLa}x z)q>D@+*PMNhi&Q%;<`WQb--`6pcv2j6qQ9=OSq^^IVlXYT0D=R=j;!LsTL%RnkQER zmUT~%|2(ovZ8cKHCpl4D;lDW#bO(=hKCdM5*4Z)c2}JAc+%$($c6HS0IZF8bix?T5 zE25|BJ2gmvFi9Qy<8T0VofDMTA-bgcEy#&BkReIYHx8L~@WktvQA~AGZ1j|dr?3xczY@imr9{Fgt1*T*w2$F_l6bLlR7PUuR zEq#cbuo{vPhO@kjL0QZWY2dY|#xssIIz&b{g9>U;wkP$tVc8zx)WB@dsXRhu?aLlo z3h#W^#BeSMns5H%5IL(!;G(n323A4j%+|(5N9OOyMY%BHqMyZFIv4%8a6H--KvUD< ze{j*pK)*MdGSGcRUCz&vuu`M5_fkcq&$O3lO?m;H~tKqIU6c zTkr9pxb&3Z0oQ7Qd^IOx&`uqz2WRe6>IPWb=w8G5EBIVnA&wju>Ci!Io#)#_3b;ht zsTPNae2~NgZC!mN=$w;Cpt@S%{bf`n9cZh?iLja!rd?Z&gYrf38L(L`uA<_GTG2qW zT8z-Q_9W0wZFM*Ynmjxmb@^^O5FyhJs)4SQYdZM`uyv(S*xNpp0@bvMHytgCmOAtJ z1~2Xc3Dt=_hjV*AqjmJ|_tl9yv{Oyaq^X#G8GJKDgULJ=9~0jU(g*?6Q|+MA8m4ia zq~4Li#6XRV56g^{uuz?eln=>(44%CVFES*f`nrbY2cB(EhNFIn-8Up_Ay}9=pEW2W z++X=@a7=}G>XJ4O(qIDd)PY=Q&}?WHC_hY7muI*&)Kc3pxIPGmS9_}X7+~$8(uQ6; z99###)Q7i^jV@e|kehc+4AyqA@1c{{yL?es<))Wc1!u;E*W8q=&w?|Jn|@w^+PO~p zywi`0Gav5NUz^Gfxqo^5(R{{I$K7_6pt(Ft&|KawL32EC41@T@ULeBc5V8tMrzond zu-N5~Uw!p!j324lkUgi8GM8UiA*WTK{)q7m1ydzGDDJER* z@nprl)$jFpuZ)kxZ*>0f2e*Ku)=&Q4+dno7LSjm1QyjQG`{f`p+Wj7X_In&}p|Hze zd=zizb9ci1tG6ObsLoD`$MN~R9eS(3>+f=uPldhdtpCGT*6rrhp~d6KlME-cd!O}x z`5LDRP9KMVd#f`#`1E=I;})FQS7(JT$NpC>h#x{Xo$fZ6so~W576R0%G-%B>3fr`O z_3h{0j2uFpzJL3LHoN1Py<)8eAU~1-T^Q*=;yW{LvcRZZ(e*WhY+jLW%n4|}3s zw5<`s&H4}j#^>@fHk4Cy!zI3J+V_&1{LV*QZ74-t_;uy_YA{6|?PV#ThEvAV zgV_5g-_rNMC=HuNMq8mE!9Br%Y9n^OOW=l6jJ>Lt!Q^i~_9wQ4J5U%-J$^Ed9|)oW z)gA`?&o*?*%R<6AhKcO?9$1D9&6Bwf5v4ZLrk|F}%}WVtaU}?f<15{WHU_ z9YQg@Q||JTcaG%dNfW(rVZu8BVJUwNC$v%Jma z?eaFz%*W|We&O$PXwItux0a9~r=H1!27}t_EjYo^ z4bUxs@M^(JXIl_n5L_+LK<1@R0B{{2UOAPBN1CY?(ENGGIq+>3=R>uKG*d0$rSnuk zK)G5F|2wZ!4U*efu`UV{bkP!6R|{%ScH#n(>pVk{S6-fGalWX-aU(~dx~{&5mR{}@ z7f@FVd$&g_sumRdoD)E3sqUPsiBPQ{0K8fZEi(wC(u&vVSv3Cs?1PHdA11}kIi#K+ zR8*UtR>XhMQZ*sJQXlR?OKUU4Dn0oK>`)XwJ`04Gqosyj<$E24@g5(=9szHEiRfaH%rGS#?~uc0}NP zF?1ttp|eTDGtz%3i3G zuXB03ybiRLXz)>z=1hs56R$l#!`~8 z_W<_wsV*l`E&4q`eYL>JpbK6Ay^iQ$EFn0_T5ZRL+bhtnb9=pu*JD&o)q=%5C(r=9 zt~j*vc}a6%UM(1t`u^xo1kHQ56;_eImvNxU;Ds(wHPJ;?)~l{yS5rt45rHL zpsH$eQhL=NWzbeN;s2o-;9i@J5?CUQ27Y5`I>HiHS=gbix@>XsSrAHStFB>ukJhwR z7n@Xa;CQKXwT5q-W(FP<9Q?82l`!+SoTm zCQ#FALW-89h-nbUD{zmTs*BymJ}9sTXi04h>Z%Up+S#|kTaU&YOjSqKq|zYB8lLS4 zdK>DhL5SX_`v(u=T1{RO*OBu*5?3xvi0i8gL6^@8L0gM{;z}zEIXl(=-h9ei_tgrz zJZlAA-mVpN$FJyeIoz-3`{Pc^=vzysWSxTE&cjKNTdi0GN2#k*eXG#0Neph}t!i<< z$~&sR$KkEj0-qUTYeQlsYjsz*&~5=&wcmwhmELx~2imIzFYy{Al|r7(g12kk+9|P; zSX^;Ylh2LFRqIm`g2uWixYkD$-l`S{P0-jGG(cZ1M#z)+8~4!#^>r;lz2;v6s1s^o z;d;FvaM)@w@@;qh8qC*5mL#)3IxH>Ba<#o}Vm(HS~ysaATN+47)SX~4vFTW68Z58Ow58Tp#ZsVwY z<@gGN)p;3NhMhseS+x=F-3$J0=!O@oMDV2!!)A59`vItPCBr)WoHWgR$Qfl|hx?T> zpFjtpwmNy{fDj_optd%7I$+`0pKo(DIRyS|5C`d8I=&jl;XkpYpaybK&?TQVl%q=e zQq?q=+Y@hQptnamHPj;^ZS)&3oZBPG8tC<(h04}8JG^2CvsD1IJ-~uCIy59%U7hyq zENC||%-iWVQ19}R*^Yekk=b%#!fanvBD#E5BJzTfK(N*q_!y_Jt~W=5@6D&oc3(}R z%Xw76yu4kL2-0(*);ZO7ZrcT|ZtIGymYtwHb7u#Dyq1I@mSpas2*yhp0J0KNu&~0O z7r|`pH|ic~BLLoh^tf#|E2jyhTS0`Y)T!w_5kyyu?S7jFUjyjX0zK&>ubNJsz;hkJ z>rJAwqS9I|s8FZb<~!K}&8r2>Qmfx|y%1=x7C1O*O7h5Fb-mmkdRW%JCIEJ|I9@bT zy;*?ky3uYFai4xW0qbgU!V@DzPWc8t#X{&lw<`}rD67sbL5z*iz*u#1E-2jPub-R) z>&jo5@tshk{=&Mf8A(yeVp}Q;#7&W+DXB>sG)@LCiR9{6Q`4XC|?!<%o z+XoW^GY$upzy%XSGYS|5-3`X7BWaRnV0i{;5QT7a1GM4v(T}hV!-!XJbi#?Of!Lmu zREA>2vFcsI(KD>nU~DNZHXK{)ga%~f`$$n!Ha~%t8CdOc&1`5Dj`aO`x3$7)w_6&7f;f*uMeUp5y|CWIId-DXo3k6W#$<#>p@hKYJXkdh+o>_-ny^8(dAj+=<;@bqYGztByfb5e*C)`hXd7X zuizyQNg3aH37}prMk=VFY=YxDS_GwCE_Q+dj(ej!IkCR>U#rLN?KhH2**pQ__M^OK z&-Rf7h--<78;Wk(#GSx_;o5C-I@Pb>PUV5{YJnqy6kQKt-XM6jz&+x+ApZckPT$?? z9X4tPepd_RNA&pV0W%VVS`d|2-{V~l1ly|x-g7YOL_W3E;dJb+0CXMqgI3Jx{0}_0 zQB-HxergSz>nIXhHCMnua~+ctacnAIw|t~FCKRxp-vcbS@zE%w9^g1cRb6s-<#mDc zfaTSMW7?%+2A1n^*=Pm&1(xf0tz8A7sM>w0ea6srYGz=D7`7uhsf}2F`TMb_K^tON zqZn>tKu6HeQi6i8>WBrNWl)!>XwO?}quSYPuWw{K(4HMC>Y3gf^qC2LaTCM7ef5oO z9j;lJq2Inl_cmhdz8L=P$=3w8t<$|Pm+9Lk292KL$#Bpw8|e9E=xXgk&mT3rJZR{| zdg!3D%LYk3SJVq@i^m^X^COky!h}k`s)Ka-tb?@mxG1fiu+%rdH=pX8`^q3)o@J0O zZ-Vg~4&_q$M*rf*vN zX=1)nepU3UyK;lG=)ioJXAlq`FZE)az;^*lF7d z6*GlA>Bv!+sSb6gg`j1%ASKR0)@mnU0I2rxq0(cw08{nZu>b-={k~WdNwq-jYZ@rr zQ5Tj9n(6Qn0M_2>qo=f+fU+(W^${NOrb}S}wLZNCZ->ZcxTAG=SqBL2sB1nrycu4R zjczHI@#(8ivQEct=#?V516kBjHGatuIeCIC>e^m&6h}0LvTufEdx(;OnZN%Hx%My| zIAQIU|Dxg4o?kSe@?SKB^2-KCe%WxyFY_fk>y4pJ;AS&x!;!$vX4VE5PM-`K{IbD- zU$!kDxLJNQ<7OlAeB@?am~gXK#fmN;7asOFfQ@9h-=Xq-Z$IT``^pwwo@I+JZ>HUiq(5?-sg|AE#Odsg!1GAgKDwt__u;vw%U4*7VMl65!NNLfTdbo zA5vdmHWh)>S)+hzd^P5MT_9Cw4Kc31&kX{nb3mMOyhaY619){lDD6;fN$Y?b&Ck(( zAhHeUF|j4BChW||doTQjAa^t&xQH|r5m=*h&4jobP13B zXohYxyO{=WGi=SUZia+H@M2#Ig4a6?!RsA1%qj?8&)U$aAb34%!(q;vWN{^exj;27DwtjO~?d+y!tiQ+1x3NvL zrstNsywQTJNGan}1mMB#begZN5TQASfmxlWCFyeJja{9m>poy=fUyn_>^i4q@X@WU zw5n!Z5y(bSl9w)(*AML0VboDm`PzuIs zIJP^TE27AtbGlS=&MC6&)~E5FF8obzzH4HjR`~Ve84KFiI}GjX9X3?*lN%ltw6Aw^Lz;s2b*vlh>m4@e zC}>}8ZM3fmrI)mi10CA;sy@%{`vG?n@kJ`S?}_Do9__Ncxw<^JM_r!V+jV(R_`PmH zE@Me`d87{)LUnLYgqMwZ*g!{7p{G4^*9PaHqcuWad(VM-)(CeX)q8&Ya-g1HnN8!I zJ`x*IMu#_4pmv#d0fx~6YKMMzu*h4PU}3a?M^oOtyCn;?ixzBSZ&F=6vmKByT0qpO z#n|k9S3s(76cG-r|W6TIcIAn`8tedaR^nxbYejmqWE!J%0P17 znFY!7MKGO>^X(|)Sw4LJ0NCO7t349iMDB%{Fz}k zYCV@Jz&3Wx)#)BZ1EmwBlV7>vYU3~##rusv>RDaT3EFSdv#vK*xCITgX7XBp?<>dn zX>k>Utr;Jm;nrM&g*}1!#@v%=C^pCG8r_N8x6eN+K?)9y6(yUWiME} z_P_gw|I#wAV$XsUjHs|_CCgvkQTj26uq*vf#VkUVKcb{{c$T?Zg28P7}X z50Y!aqH^uo<8Z99Qnul72;rVoq_#t?#6SbY$`AFKW4IF7Lc|#X;*5PGU=T?BU4zKM$ z7a?v2m6T{J{APUf>S*P32d8C*R;+&Wf@LOWaMenzmUK@CVk~p_YabQkZbh{Y=w7@E zA-l?6vhwf;bWg`17 zJ*9Bhh_s2>X%9|)0cYPCXc;ZoyrIHd;#1(IO0!cY&pau{z(CJvfoj-I7-N-eAr>uT zb?xhn1EujAaJEfrr4>>ux~@sp$l;2AvBgh~#=&WUP965^O%furZwg|k!;X}O4XF9W z08X8Poz8||6_00AaMOxud0!aD7q8Kh1f(BTu7ynj`tk9uvIU>p0xkF{hrxMf(TekB z^*?Jwrc+7ybl7LY@od~RF{u(gG4y2Zt4FZ#+`$EPDUbE@;DR=g6VfVX^1}6Ji#hWi z!?78`6@xMcMSq1y5%Q;lA`9ix{K9$v)_PbFI|H+s06s&riE0*X*xIvX+=w;oo;t&` znLS>pp#i>LreI(OZsUAEUhgoJuXp%C zufFmc@`mjTYjf^38R(MoaiBx_p0!Id<$KmHxuh(NT?MuukEg*bF!kA}%lzglmh6v; zCHvbIOYlT2(3Bmr1qdKKl5|g`E6BW&B{5=tsvLf(XC{*bn4jo#6UldDo7eL%yb;+N z!X?rMuALN#z%?b;%1J3hd&;&}_7B1FOc(twnkFURQ(1J%R7YT`@-O5Xt+v!stZXo0&EBN7yY0ztUr;6HTC`Oj!Y^=u>0gV5*QlzsN6XBg%eV6ttbH0O6Ejc3DRg)z!-JTalX z@311U;S_1$rFyfCiq%&sZUs80OU*WjYhRwOoGD+Pu7g5y4?3r-V4T7MowMh!bnV49 z6J>Ni;BW7mz~A&4AA8W?Z-zr=lZmB4SHa)jy$M6Gg44ZwMtEK{DR|zyXEdZLxL@aj zjr;Wu!~J@P4QC4OS6dtRYXZ$B_v1i^`#r0BWbXH@?r}*%%Da{jctB#OZrzXOT^2Z3 z-D7`L_t@XA?s4EC+Ne=R8pF0z-s7HfGpti+&W-BUiN%U9>=xgK<<71Oyc0Lrub0c0 zvugHJd9R<}3DT+s+Q||2vrmujW-TSK?Xojj$*-8j?ZW=&*RPE0(`zhR^{!-y+7DtP zV?XjW_=HxAi%NfFrV9eAa6G&r?yBV(1b}r02_5X$F9v_31rd$<63#sbexn5;{M*t` zN5MU)7AQQ9s(^?E)Zi%g+o6>Dpr5O9u|#NrWwn4;$CZ)ifG={jSS~t3=^6mFt|hBw zm4h9jlsan&&&0Q2wrD%TI&J*B@2R9FvyJK5%1*oI5vY$RCg`pe$naLMNF9~6a8JS; zVXevb!sD~HOR=j2`l=>^a9EXG!7O8#Qb+5We1U8@}>aO6xhHdPz7H2Xzn-PEE zi`OPwIa0kP?9(U?$|5BN8mV(SW}XIVGmgZBY34ZP#)^PnoY{NWSSi4FwJMl zj?6TlB|9!TFGNJ6pLrpHX{4>@&-PuaIajh{zqLYg``aZuNbOr%71{f>C6baDYTFKg zunOZ}moe2;!T$A>P@YU8fMBf(uw7aKbaQ=zy0I1bqNSHJ0Rn=f1v$Uxpqv|ctQN;r zoNZ;=h+3StqYN2L=Z%3%^aqse6U z$h#&`$!Jng$#>6apjJ@H-USV=3fkDSHh?N9V#m7C!QNqm9Orw`!Jf6@%9pj#!KVLQ z(m@V%=-{*LMy7+$vKyD2Qlj$hj|G`Goj)6OIpAEejr~zfgd3`={LcRf4{?4!!U0u8pNh5pO-o=kTC~z|qEeBs0jfp|WTw%c z2{@4*KJY=cIPbDinYk>V=g|T`2lXsQ?nb=^J&zV8H&lzJOjD(k==fY!P%$%X_+Yf4 z#`I45?$Eo4YqE6Hz5tdDP zuLwKTale@eOu1{VW2)t|D-}UN-3PVwFlr;*>&7|?%BVx6QN5KqA)mTBMy4ZO`0oPsHu0(^knNUY4qfVa2a#o>^P)0SG z@;*kB$#fMpF_u{*k{I4iQbv7@#>CVRub_-N(^KBZXi`wdch6|hR?x_I&uE}lP|Hpi z8nx^lhFbOx8wwSk#@gDbWmBFmsU-(G)bd$1BvZ@p2lzf#&ml}VYFs~~e0zJ^pUt}@ zbFOO0{-_$Vzg;y1l6mL#hq&6>>UHtH(oTWC+9|w}`CSR%s(QSpj1=!+h-I{3i)9~> zKEO9xKrE$LTX9zq%V=>&O+|{spE6K%4@IOyN(tR%Vmo%*GxqLTAj6(Wz+qDfLKP0mO>@nEgg`$mWVa& z?~g+)qeY9w9Ar_!GS#BhkdAnrMi-W;&jGpD{Y+}0SS?oQV3*0_jMTM6{78H)We+0Y ztaDBbZ0tt4kF7IEmVdOUy_7m3;=jhYWSly_1d{fdaEp`F;Ub_`-k>G_v=MHS(go#= zt?u7W-AS$kCGEi|oQ#HfD0vM_(i!OS1*BC)>P>AMmco^3KnE{n8r|P%*ft}YXyCSg z)31{Txw%lVOd~~5lvox1PJ=f_rHqZ#VHm3<^4a{ZNrE>cg@sC@;oA(sg-7a*jR~$H z+{|9NL0rKt-@OR~w1QhIdX4$7!B@d8-#laEo6*D>BYd-W*f6Nzo3*v^%_ezW@=XqO z_~x^SN#>j14?rvu-xP7}iJk4w_Fcj`SH@(2lrh=gE@MJ{+wF>mA0jF%FNMP+Lm`~1 zDZkuXB);_>@Kv$;ZM~J=%h-yj_#3gCU%$N52g!^U>}K!c)+%?iqXoO!#BhddWD9^; zEzoL=z*>4Q)#4!UxJ$brnQB2AQ1sho>I(`-3u0Ycme1EO_k-;qwYZ?s)4eMoSw|O{ z#dwV}%|>T%U4^3Ny8@7-#fB2M6pGHP1U%NYbf|}^^kk|9dH#JTC1@NiTCim9EF4pp zKBAzRwFAT2isjRf)Pz^6#g*{fDkd_vIuYNIamfBoVj^_`5OomWn8hwL_^k7J*RAxz z;R$BjgpQKR8<*7i*|f}a!C3it*9qEXomDbQbRK0YBH0CO4_O&5_AKvQkN)U zSN5m+r-A|5OumyL*^CJs(?Qi&kw+jHu1%;PHQuS@s{lK#193NG-e=LcfKlHPCm!8hmU)dk^SN6B-ue9nHypq-hy_s`` zn58Ovd+ZeIjgo$IX5~B3JX)X?eH{IK2EaU8w309_z&{6G##U?-Q5>#IJi+#8(fobl zV=4WiY5^CI_g?1pL<_Kyz=iNIlzBaBvFK)gNmcc(&QmnOORB0C1a3vDTIxBf1-&Tg zsm=ims6Pjwx>`^JFgoB$daA3TX?I6>sW#f91%hwaTEkIWZA+*-RE0r;@w$=`(veqR zmCIvm|GE!zdDH@tgT7}LfR7f-H?}eQAu8azS`cI1&(mwUJZi!=Nd9_k(V5ze4F^#v zOe55|YBVAGMfdYF?QWr(w*HeQW8nm~g?bamT*15Hs=n^T!C9CX)KQmQ)kX^yCBr%j zlMicL^NsFHBzt`g>&QYMo);c#b9@wigu2F7Xe8*XzVN(4WTOc?SC(#;X*fjI=4)8C z2O_KUbt#&tlCZ4!`bg+CWZI3LDqxsNPUvdvRL5=T3U7jw zwzkrjg)!}x8WT-kG1lW%37K}_HDl%Iql8Ritj`0>l5&L}SNg0WWActa$L}yvF{Yh- zLSFoMRE#;^t{AhlxPmp5HcL^V(ud~3bm2sMIsEdgUv0QZC*2AmonL9Im5*M@5XhwK z*J{CIwFynDB0=TeZ|ES3Y*4oNtzLr)z*|9;f2XZ*d{AvSz;-5fzjq6$QT+a{NU4oG z9=<+t`J-QBMT@-ao&J+sTtMw4=UG;sNfAx9hBcV@e|K=7Och&VA z|J_$#+c@aX;6K~~KXCu9{^=IvrS*IMFMo3OQ)D=^^Y-6vu@a@xCG-DL3!D*>3|55J zKvosTzL7hfA05c5HA5pHhm}B3t=U3=ZRW8*(`LAjHK4EvEC_(wfT!g=ir!-3KmLV3 z0qiBk;VT%X!5cbZ#0}|?J6kra;{#mx_6tsKU%WX1CwgkND|;D^6Y`CDP~2b~w(B85XY0iK3Ow}Mgb&^5%PwuYu$6&`GZJp86= zQu0-siGsu%$}#j7{hDvyU=DBeFhay|t}bS7&^F_LHf-Y|$ev+CGX`$x8BTCE)=N!z zmI*n0)gUJ`a0sfj0X+1V^VcA#_KF_UU_-T+1homVS1#3q1090;tcQ~c>h}Ze`}mfB zJK=xdD029teb1*#qbbVzsEBjCT@h!w@C;s0^fRA-J;YQxl>(D;5F3!L6*;cFM!U=j zM2{A%?L|r!SCIf>f#{CD(6YsE^cs}fJ*B8cwgAqxJOxSoeFg}cs|6mozQYkPw-Oi# zM0VZ8V7XZkhS=p=0J~aHg{AN21J|wRDgaoyTEzlIR(MdNA+XnYUcMlz@-<+2Y(*wK z8{z|(s#)*_(U-&m$#umY{JPfw*41LA5`1^uL3Mo&?x*CzW&R1qs|8D;A3OlWs|Akm zes&%RA1!dmULls@m&qf5uO?{FmhM$+cD?6)kw#ecWEVP3~qF)|1Y1|pzKcSq`dPBA7jEYD|l2;LjyA=Y=)%jv#zV6 z()c%MqrzB0u?^W^sRcuZm+Au|SrHGZ2j}62W-ocEJ|5$^2t%+Y;w--+F2W#eCN3gj zm{Iq_C!9en5#~lybsUHNZLBq#v;-6R6`ojwvxx{}+^TYwm#npE$(O8^10B}-sNJVn4^D*w68Hv7Zy_K(TG~KJQ3uUWsf>tW`U8 zJ(`qUic^)Y;}+N@rz3k!f%14>VpcCLMl5aqODjB@kD_$e3c!x%V&iE?O6u#Ex4pq@ zvpD1xmtV?Yw_2c96!(;>4S%z^A{Z2&g8WJc#^W{cX>W2@xgVgoTC5u%e_y{mqJX%L z`&}I+*#bv{T7X^VS+V&5!lOkiO-|}vj~RjIY5`4-5Se*0;2tg5gGIL>tsn4QTR{Vh zoF{42B3BsruU|eba2`)feI#|XXTlDe>tjS+&`6W>H2`z9xGm~xOZ@=L?NQxj_q!m6 zK)af-E2-SgX#l#vwE|pQBi9j*S%6tW_tBC^j3)!nJA>R>&6^#!<_&;FAVxP4Qn@ zT<)Ub+ESj^pln8=%W#cCEP5x!embAs`gr7s=N!3ek4JG@12({O#+#~(yI{W=%Sv7v z&oe_Z4ZLPZrh(T)S<%Kzm9gqH9W^;z;17iH3e2?b6V> z%0tJa^3d^i<)OWmgbe6=wZ|Bwj(uofh3GZ*CRH6xCZD+@}hl@O>n8Grd54NR*A zq%gnxL1w8*K&~j{#$4V2vz`i##CZA4F9B(_;Iwf_%H95Gaqz4zeO?A5jTRIZR@wJ_ z4H&5oJLLoV!ILo3XaQTii1t?LBaIe(8sFqSkcke^trqyoGMfgib&=uU?UOX1TOKWT zXJi{L-wDXA7I>*kN~*1{>TAj8g_7!OxN9y@CQKlAv>>BTYg1>A0VUPdK(1y)`^~%OJy&Zn;{y314XqTCHmXx@RRul0_x3U7Nl%7)Gj#$C_GYrN4EH9444RkKUnTx^;bEl)f-?zR27(h3 zVvWtl8+*xSn;L$}W;xJdv#&}j9nX?V&IGv~(cS+Z5D`A8js1eopY6N+cCMz<@u;bE zyj@eNr7fMu?M~g1>#9g@5pq6K756`3+y<=vnow;)mA{$41p zHCjxe#w%;4lioMUME64K-u`kdUSSI4*IEyUN=%m2)<$EbjRdug7PywzL4_%(ZM10h zi3Wj_puWxOMcg9UEe_~Mi-#|=O8%EtJoww-YY3Q+=S4c_;T}rTrPhiq)%-mJnCr-~ zparTDtHSpXEkIC94M`TzSsl5xv1EH_z;YWbQ3xn}aX`5aLyrAQ(xqmhm#7lvL2_M- zR@l7QS_R2U;j+3mjQ|x9gm76~cSAB~h{kh0By(_CU8^(YH{GO?n6lNW zH`1b0bNO_etTD|p9Gl@xkXK#Mc4NHI{KgE`X7r*UuR5xBl|pva@NR-;eHh@)D76~m z&6pVe&6pSfW+^He9nZWsWXrNsU28+EoYw!sT4kq>rovzHOb&E-=Bt8AobQ2b*PJ9( z)tdNPF3FAh*}O|L=jtgPk9tbS+x3(PEV*8ebpxfT9=%+>Q($xK6mf$jLx(3IlSXJ} zv><9#t9h3@`%)-@TOuwlK!)X;0n(|x7Ku-c)7#&0F(#U6jd10~H>BMJ_^gF6AO@p4 zoi;E#9;oh6!Z_nK_LgtZ->ipmMho6wWQujY-Z0K+!7HBH3SsQ?cLYcsEt+K0RtB8v z({P}tn>L5RV{JvkdGrirwDIt)l-RD@Ie zM@iGv2#D3CbRBu^@D}L8u-&|ZFoML|K}pDZL_)fw3y!Hh)P4I(Egr;0^+S!~7j$X=-bfM2l{y6n^;O1uRai>=rMK^7~u0=Z%<@&fSXR;f9$tL}hl zYJsj#IxWZ+8{Hv~^47_T1c03m&?-q+P1V|-DezB+VK3ZUprDSzRZCXq-A;f}`?skc zc)8K6ogHeKL!q>@x@%h%+yPR3(nsDfVAlFxY>oo9Hk~PU Rq9{C&kGA{&Q0{*qn zSBSov6fsrsEA6nw+Z94B8IANRg|o=uh>*9EU&TA|ccFpLM99^LLy<9`1VUr7WGLkK zXz=5Q4R;FO)EfXpnt~(stPM{Jj?}X@*eEzs&)U$T;7C1dI8yJhJ>*Vf?1A>f_V5-Q zsdMcIJBTUCKNgsAq^6u+awHCPIMS;kJjb&L&uX^|Vu(ijQxyGcS=*}`xcF?}rAu>F zc#cOEp5yH*JXBdm2$@uq=U%{MNlrbB4V9k?#?71hiXAaO=e)=pN<^ixbe-N zGZY|KI&w`CC;al(BPbaynhr{)G4LrJ2K=${wAptAeAu;ChKen0;Th3Y^d18GdP@a9R)=EE(ezDEqXk> z!4pc|nc5gU&BPZOKF#cv@j0inKISu!s&`EwRnf#>=7vyy*x;xjP`#5I=oAF1XKm0@ z5U8HD0Z2ihde#OF1%c{W8v+yrs%LG_wp-g{T@a|w$y-uy@31|#esX6luLx9=_AUt& z2Ra1mRaKeeSyjfXN^?7+m!5X>K96?k(p(Lh<55HAc)NxSDzOW}R9~;6>|GKe^lw)j zP&f0x07zOg;iS}XcpYXQ0UqgTmz5mR7=5aP1sGX-LjJD?p1_YaVsB`(MgUH1M0yT^ zauqX*t=gWas4Zs;peR~Ut?PR2i3`iCm zH3!x}*9?-Roh8~(UJvOS;GNz&H7ffS5GJ({b)HA?k@=QDMV;Dn6#or-(w^^`%Yc@# z&7-E8(Fq8W-s(M54q(&fE^oPkow3b~8X1&GdoT{i24l5DmSR}=Xuw^)`GS==+PNM> zu^R_J(g_=Ha>0*u<(Uar@dzG6rc@})F_TbL5+Hc4Sd|% zkfxwUy^|ZD6x66^ZBS8Aqn@>aKtYXq*7mR$)Tn1|&v-$NI@WFft#{ZSTjxIZh!)hS zKDqgpnuc^qjX2PuMz0E*9N!O|sh$Z3dg-E{N4v~uu6)VyC|`2CUA_dD@a?t)kq^Ta zkVpi#$*)@VousVlWC^Qi}^o1YKtk zKql+76`bi?z>L&_R1D)e)(_w=T2KW+Jvf=K!Hjg)4y{0uy+nYb&KfGlef9-2(iyy| zcvs#F1UhvFQ8n*-qM%JWADdd_G)@3kNB6kv22hYaL+IQ!4`6VOToC*c5W?)8~g_l`h{F zu=-zRc{1tpqgQst^G|cTA2mWOUN1+e^(3kz^_&4mE1Z3z#7n5?{v$5utJTcc~Ny*!wzx6R1 zi#hyGO(rTGd>FdTu{wXyl-3nK%0GHvtoKFApaI-mT)f=a9IMm!q4_8c+%l`{S{rO- zR@b#Qbjqx*YyEF~lUm0Nf1G$3*7#w=mF%nQ-5POVFAf{4Yx2jHukOx)4y$`rDFd@c z_gpoMyD<&;wwhC@{EtRmayM5U0hApi=&3Dv{Z3ex^h7!ZNo9; zemZZ|f~&2+fMOgJ&UBz}Y+++7)yv$xT`i&l0Sb8i;1P#^LT znd|9%>{|Jwa^KkuBKuQ#>}(3`Ram&+Kx3VQaWyOuS|>r};3|Rz^V3-{skFkEX4pyM ztA)^K_Z!U5Ms-3B!-usPBbZ-2Zz>H`?D`tW5$vf`Q3z}qGMyI&lyC#NpliW^UC1by!p|tv^j&_;eTuF)hqol@h;@N|JY^mv_af>s@r^wN)UjL zBB+e_haE^8G!W4m9VdBw9;@b!_EwlQaXmXzi=;Oy3fI$K+{r2k4{7PWix!ks+Ro^0 z$UF=TRLyRx!S=HTfIt;UzasD+fHU6}2&nq#jh}aU7+g>FyQvvaIqYI1(lj*qDRYaz z=xGW58|l#kc-mPl$Xo0mLhrP*r0*K(OmS=0+0zOoRrF4W=O(hu#a#iOYQf`EXiwOB zD`*fn8c#$~71eUh`<6hfuCTEr7;tM#Y{;8{U>$aZ^W;}00oa%zuQD)kY;2i_h3`(6 zvdvJ|t5Yij zuNh4XL$5i33VSTZJjw8D(m5Bq@8rm!%MTk)6~wG}ay~G7hyT$(Y}isb;(8}HKyhnB zkHQhxIXU?Ry^c}FwtLu~_Ls!0Y1fv-i~}8F_AIiHiP^Krf(M6jJED?1PRRVxzDw2S z$}Zd=Wf$&mmt9~#a3^@^^7%K*(n_yT9l+TX9{ucWf~x5_EY$VdjD>-H)(8jP64_H? zZPp&?RVj~<2%NR2SeFP5a5fZ3G0yMvR4q6jlkDV!`Y9K1c}w0OK_XbJSq4 zJl@c^XweE|tW~Okv_g}UG=hq=sRT8oHkLxN=;Tg%|}isYPsdA<8xo~1}dMr+UUk6z4B=r9zZr)Bw^FMHwx}X z3qnJO`uni9X!4LtiL+J+dx6h735&AHGH}jjLBbQbUS?zlocNkkecFP==@4%wjb8=M z*{n4A6F;wESK>uQD4HP|iKl5h(TN`{PFJecTPSidAa%M_r#4{iSvF!+I_Y#B8pkU< zZg4zZRbyJ1Auc&C3n!iSWy(pXeHqh2oOJJ+7!=MhNyEZ|3&xu$oOHdzaKYYTxM1(F zA(vmDc6==UL_mpDl=e(SE?-1X<@kB)QA5s}U^Bs7fb?z=|fLy8;nS=ls^3rC+}) z0#7Z5SsdV@J}dhw3Kp5m!VT489c>)L4efbE4L037;2B#He4qI zMw6!W<5zLkX}DK;1a>2=iCnYbZ4-mL$z59Q z@0ghy;1vWgo^j?T4Bq^VhHG=R2xRaIr(wLuf++S58$K0I!;W=x8uktw;P}Z6TwXd2 zn;dRQ6gki#iq9GYnJ7MM4EUBMx1-Y8FNor2qb^aLt1NJTR2I0uU0I+B|3m$V>|fAQ zKejdJW@uNAyC^(lb^&RO7A-!IciY!5a~{AoTHr@Ii}yHq8e8EUIm82#{a$=tM+=Jc zZQT9WFLNo-R4pi7+m|i_Ox;4>CMAnhi&b2&O(#D|yIIfC=%=U^QCsvf8A|dg)<|7Ojk-B$VX40#tP^?R?aP8O#>2$Y}9MbIGlMR&BLz zTYsKGTYV15Cdw<0FL7pI%FrIOe8%C3Y8@_u+gRX)bzI#Rks=~3@=|XcX z_6{5P6pqE7wSme@zSxw5OTNf~4qtp$M#y~eSsCGC`=;EEXcSLuGJm%3QpdR>3HL{l zg!|h?5)LW=vI(|*{>??Hq*o}0KZ-r()DKlJr$B1ySB$N0-;iyK2%o7ObTL{GmA4D> z=4$|{(E_@Na6>@V{JIBG)#9#c1!Z1HwBRFoZKZ~6Ou$e*FM>4Y>d6#QEqHq3zI(oR z@KwiWJ(iJ_i&)?@zAycJV9?cO4avdorvN)I(V}I+5XSKJ%cK%))%648iW8kbH=u~o z0*Xl9QkSGb7uA9?r~PT*<<459RReiiA7rEEXKpux%!P8185bT?eHIgfw)U{vHnWACs*OW|v*t!-1fX)2f8kpms>_^cR_ zx#P29#A5dYs;Tt)W8DVVO-d#CY~H1ga|I*rN2{-Of4g7=)UoMn+<7V9aIkG&T#9dV z?NrP=p@Vt%5O|FiD+JMZ$CB)ySlkG{1x8BD?@MwC)5 z&aLVA+r5LWu@yAZ7-B^!^}NR-UZ9-m0nn;NlTPfCH(=MtM-l=u9R_uy#g5_#Tk2oG zOpO8EXhH0ymbu8Y2BnM^&Fd(nClf>{rLHAP?&k4s2^j9v^6=uBB6h0ZJNa^Q^funN@+;I%}=x;aBi5XrxX8yuM_P zI;7-7=T;!P4vI=26)w|87S-f>A8nn(9HR*jyNNuPJW|KS#25?mmViz*nW}wsc%%)| zsB-OxK^;m?!%$2MGdVA;`r_vA&$|ca5}zu#^#9Z zoUxI~-eH5Df=t%dMkbq%bV(*T&>@r0>KU0#KC5Re#w$QQQLO&%hz!mVYY*gow(qjZ zxq2G+M?H=E+x0Xal2UsMNxwh5f`>i&u*ujf9FhFGZ)!kR74L6rxosUAK_D;9p8#a(}ya z$q7%})~^DiyAeSk+!Wzg@hIdSD-b+dP@wg$kz0vu0^rdCUl%IRUD^VEM~mAxv~}#o zV*LQVqXpTN=*om8oV|Q}^hb*W51hP;GW`O|)q(`3oY?`EYpYf+u6rj?QnkQ4)*l~` zTzgCGWu)(=Pg5<($Lag*z;T^}o8-(lmyXQ=Fs}1V>E8HOD!0ki;<_w-3qU+t@IqR@ zw4Yca`5IujT981VTLIg;s`pC~0s&HMD~eR+a{LfevtdnhYL6NOxj(DewhL<-Yp9h7H+rGChkVS!j zz7(WX=bN%bV^XTqdef>c1*bMlYu+;HOW_qZP{VuKROS8l4anMF`Jh10hauVB;~{HS zstsH!&(j3Ud3&muWGNf1FvZ*M<2CU5-oimSbUrMXUpSC zpT$=$V|VF~_C2E7E;mt*<$RQ5Io~eFvRu9$D`?io zjsqEmxI(+M^H*wtW^D_Q3%|mTDt867J;W=TNz!lh8f+EoC9<#fw`#$oau=ECY9n6m zs^!rSd~Lt?YwToQb;s%t$zqX2o63*sceNCr#XtFZ7fOv3;z4pQN{C&T>>K=xkM$MV z%&zzIuWHd0R$8Q;5#7IetM#gUsn}$f`z2+8+ArOe^$%Z*D?9mNM)H>VKYhKQH`yJo zh^pLGE1X!2;=j{#bV>=9eBS@41q67PswMf}A*ymKkfVkHU%$fSCvLJXYrYp^GVRP4 z6cxHd&o;Z5+@U)1-Y8h-&(#DTpnKB=AN+-{&ih`pG8Aj#R6?Q(M{=P{_f9*rFj)p)8LE{i|jcz z0GkQt{g;p9Sl+6DGbNJw#uA=oe?08e*JGlZ#%N%t_Chp5n@j!RAhq|NUZkbzI-zws z_`+#=HeK?{Y1$5S*y*!|OlGIw4=i4Jh1(GY^l?_vkM>=5I#*BTeAJUU->xSEI|a{S zBG134)%63*wWdNYA7*F-u4}Oam`UGB1gu93Twi-EM_9PNfcR)ZeUYn3tz^aoJB=1Z z51>BOWlR8kv|z8Bf|J7nsS%*v;fq%7FE~_}$5_bpvqXqBOJJa^{D>x@F12rLe;DeuLe4T>MO=izUi)D7 zx3AN-0{6U-x|L%Bs}7dYv%(Q-0EYWOZ3<#+2sTqEDM6SykPB~c#<0Y48-vxs&STOj ztAd1$3GdbHP_2LfevMTRR-sLmchBEWG0UM-+#@a8Yqhq zdyw?AeV4M%6~;Lqg>lZe3*%5IcSU&n*!kkVp)c;$906~w-9XvBObEeit-nFOO|ii* zjR=N6j(!Xt03A<@PxBC`OzAg`7C2atRSdt(=zwRlI7O1Wl&N1jnXJOG$iizYNX^0P*ZCTZWYlZ{XT?Aq$eiBl`ETpuYsdVQZQP_7m? z{K6Fj)mFsx^pm=pKUGbdu;tL78cpudnJWC$7W|@*VPOIn)wQKg__K^fwWYETB|;6( z*lRx3yO;Ztu#Mmd`>ZUusIG%;DPkiG-SB_ki*bQ*>J(9dc5r!vG=c-HQ%9sHgw0>9&%8+fr=d$pR8o2GwVT&kXIIIrxxMF}o9fUMHL=ET~m6u<^Koiojiac}}mTJRT zveejSBG#ah)@U*lYrto=t~BGhMXZ6r+)L8hq~%M}%7G4PeN`gpe3l6Eihs1+r|CHdo(?nQ9G^w;&1m^}}Q%Y%tK5wY9wOY{#ASBo3MsTD=lR%}+-=4?{=v=xV3L$t^{ zz<{`}pKXe6sp2Eyx1qwYJ{m;wZJ5DWah$ zWxESyexg)ug6iFVogT^v4Q|oE3^!nlmnkTzp}>%O8G=D1G_9xb92$fXwxl$&aJfNN z?Sa*)FZ_LmXe%P{*_CG?##=#2O|fAOJ=MV%)MLELoqsi13*i7mu{uQ5fNLgG%aDuu zS!qt4JMnd`PmQVc7Y z6DeNJQK}2uzFb&mdTg?`2 zDNx)AQYaL6x8m->U5mRHcPs7=MT)xzclQ$9U5a~fxcTqH*)uuwJ`nMWmHoW@z_uMquck)hyr0oT$5c0=Gy~M7yrRa!l=mX_W_hG?u z#cC<6U3}$g9NST5u2kngwv~OLM1*daL%Pbn1|GlGQ&!)jDOszB4eubd#1j=jV;6{i zR=Qhau_{>4J zejcw*Z9#SZ=j9Xxl@lCgrO}5_RKXTvMvV}?q7ieq$G{zM&?Mu7ZHIJ1zJsDzML*#d z+pILpS`LYzcpE^tCHA~`ID8}JN&rJ|_;|zzbz}j&oJbUyjXSUaR)#A!Zot`ieE*%j z9LWew%r=ye) zMSQ+pw}b5B!hUu#ClzL3W9TX-FJeF9+W5mEr>hEyU%VQ0azk;(BM!RATy9+1jHz6W zVPc{zqcuZ4-2g0=X$o!T8(lXg#?3a`@5i8p9ETD-;?mcWT5((v@fQE2^z6-Ar~NVR z;Q^N+KdF)4yJt)38-JAHzCK`M_5$pDiM})^iU2tuo-JjvJfdeJJsM$?3fWrkh5>b6 zYLCK6xWJBkY=JZ$)fvtvipo$3_fauBlKjf2oU*)9y{KI8?TrsOLE?95{ZX;`sL4fUe@Qa~OL)3P4IAhPM&D{2q2H zfxIC7Q%v@VH5w4dujcDPosY*D9{OD#=4rauvX{H_pyY3IEXr|67ZwRLhtpUofKU6g zIY!BS@M-=PC|m4uT9#N}qpUyz0!Nn1tHH1;**IEJK~o;9uKWnEJ>P`|RC+`Pfw$wc zBc&_vEK|GT=jXpJb6xh~{lc?P1T-NNdHdFlSIbXs_8Jq#9YjSW54Ob;;o9Q z74gC!WmB0B9p|-HBE7(Dkib41x9ftVDzwXwgR%%u>f%?4n-1sd#&TqYZ2xYStZ}ea zrL7GF{>l=p7;*83K8+{a&KwPIyJfH88>~3ONE=zrupo_u!?#jsdm9{zSTn-Z==&k5;%EdI%#uraICH&tJ-XG6an=R4?CYU z{$rdk33kNY3e(FIUI1wwgKqX3YCSv=LCI7Kw|7D zM>q-M{07VwVh}0i*{Mvwr*jMLN_qA?aZT`_(uzU-eT8!5}5G_GXDx z+{R`5Dr0F(mk@)K!M}3v8J3ACLZ6hC#+W^4??iuPfeT9In>E;!vwku@H8*zO6mcxp zM{8e2(<_;ZYW&dPFCc+0YwIUfcgHV0M!P9nApY-XF{9r;6@}lDT7hu+c{30lsqnb+ ztj^uWdkDGET0tI2Xr`TMw`H^o1WVoLR3!f^PCSR+VCRyi;wxuH-PL5}M z>^9lvb@Vfz?bN<^2N6viI-A0CsW04(#m0TurL>k zXz|+Xg+Hj*>yEAL%C#+9qvr-JSe9V@be6N44EYkuuQQCOhRetVTOLkQh+;ZRhD<>b zQPV+``YTc*s_vYc_M2RJB*3&u&3T+6WI-Yd(~;b!aDOF#{*!dd*cn=0IIqV2??xEy zIdI)^$Z}PPinSpqe0szySrZ#nleQxouVmLaDo+FWyiI?WLorg>SAwB)QYpz|Rw?2Q zYM3?ly-ZnOBGW=qj*VGb=DS-aodfT^7)P1F&G%?}T}h10VlZ57;MsjBUoxl6Vi7LV zv_VOo&F_R!1Dl#5PW-fi^Z!u(Ku=G_WIFWYgF3&-N40gM0BDD*>`{L%<+Z^kXoiOt zNpUd$*@*wFYVd#7dkQ%Z>IFnMih7Gh^i>y~59&9o=zig_H?Gy%l?x-``Y=!@689xOKnG2eTY8e^6^~(Mkv$TZv2THVR~Nz^jGu5g6=nQclejKCJph*8HCF z#$^nzA(Sg7@z2OqVgsHj#D!LPB+!*@M9`4VQ6q=p#8!}g%yylgNcmsGhMcZBy>UO-wlm{~*S0pr z&GFonjg>JtL6|YCx~M_c-|Jj5s49n(6;am|s)G?_iwk@KqUySaJ>s9DWsyCO0{xJh zjuq_tRBF{N?5>re_P{olL&AOHHlHFv*Xyx%SQzplPNpS(Y=LjS?+ z|H%CQA|&~)Wy~9oxASmkC`NxV=O&<sXiag(jAZIcBK_lGiFGg5mOdM`>FHC3PJC$a!_~q!hzp1(QDh*A zT}#OC55Sf{NdG$JMMXDI#}syAYp)7z4q_d6x+q9BhY<_!>3PmANTtb$t{0FLhuD_T zsUnDy{O9E8*nLCWn&D7g$Zmkj^X?3%vJh~({CiO375wZzo6;b!=|6VQe<9^F*{oMu zj8OALb*J&YG@$CDbX0bRA!#h717Y(94bQLYLXk<3TGaP75Ivztoj#Qu*sdY^N4`r# z-tQF8Tq*sApd&MupiQf(chXOU8F9ajO}upI9eHX&jDt0Y|O(mnIK z?|+1Bb+)LRKMQ@-^uBgDy>hehPR4fhb#rzyKMPCHX>l|cK;!7Sllc>61kt(|^2&Qk zGt^=3hk(1_s*6PNexH2QQ^ac{rFmi-`%3LO7*OE+7T)e!0ij;PrF^f&Tl?%IfC=(Tn->29~ZVrG?NkN5-x z1CCJj9dz+S)aa?Vkwp`zRQaBsCX39}H*mB^l?SyN52l@iYZ8MZ}D zu8*xV0<{5_CSEu*&JBiv)t8!AnvMA6bk!YwPW$9umHE{^7&497yR*LHBlOvXe=2!x zKSMR$Dy7Mqp3(8W~8WXF^6m4RVY7C-TkO9q5mG8Nm>~C9!_>0ZMyQgo-3ZjZ``1E2@DP&+gU)+Zjfxo zX5AopijSCB$@N?eQ^GWqp3p?HS=ss1^i2zH40$C1{8?c3Woo#=w1gp0e%3e+1#WaT zBxq2>RA{EtXE5l`B-M+RtsX*un%}3_`sBqnJEnJdVF2S2Vcx~1@zwNj7%&e4-|YDz z{^+50n0?H>&QOW*GGoLbXysdRfn4U+278$Cv6dC@<_MhJ&N_tP z`;RGEKKQIwL)>|pXr(D%8J+)-^?_kA(+`rR(p{zh4hB&=niptc{2nLEkcbR1wxXhw zR!g|Bu1{RTA)0lXHYGE$TiiVX4lRZ7g$n+gkfh87@HQ+buLhXZP0FS+B-IopqYF~G z1hKQ~E(?E%Jql)}=1FS64PqCd$6z!N542o2!l>dy$%jsRj!23+7O2pgNaJ}et>m_h zO=TE$6`w7klE;j-jaXwsZj(3%8V5AGW31=JOm9|~HaPe&fmlj(ENsB?LP}Rsm(Hw* zSpfg+NCm!dYiIBkv)cQvDstuX%o~5cO0@5E+mb42%t(FK=$B*j7_I4O@HoLtrGTpm zWvjJLb|a+FI7UWZpj=QNeIHdp5+_`bpH{6|My5OwoDWwMSz*h?&_sRg@Y?`_X+^E@ zr-O^Y{}bMluSz^r8Lo1onG9Dbu{cJ$AXU}LioEZ)*`tG`*U43a1ffYa zU*#dXG+I}2H%1~Iii0uoL}plwS7gl23D81ZvMV6Haq~YMGJ`4!R1U326>-$u$VbO~LkA zneXe*8XeX${#2HVjW0eK@uRY!w-=garvm}XUhYaXk1@7w*}-xs=k%41zmMc#thu*!Z?&;i z>u}$RYznV5Q?F~wBiQje?oSDTy)V%$Kln|yOHa_UXj(zEN_D9#zkOJKxG$L&{^*%n zY24{w!FSwqXC#RKg!-v#f8{TfJz}$I6)~P5UyqFPu+e4KQ)K%50tx<@tI+fp?>a-1 z=|L)p6)?n@tAm+KA6#7pl&e1^o#*eRKeUk*HJr2 zfI}vp5p4JuA^AhrlwamCsS4Vu3pd|eTe$NOi{MhR8G>=|Bng zqoKC9X>W36)}b;Q;=A6;uX2J)_sl|WCOSf0V$b_wy_a43^>Nm+!Hn#RdMjv9o$}nn zmqle9_G<~q-)}YGAjkTOz0?t+h_>>WLdM_DLX_$x@bTF3zSj+D%Lb156N=OSfg5PuWt z&T%n!Y7yit7%mS(^*+&nP4!w4xqYS7cL?myi0r98ho^yE?-`-4iDpF(i44gGhB{1Q@t4}?s9 z18LESf0s;HG6{w>SD;{2>tp;RI$8j94-dd)8k$;(IBVdbB6n~=j3=`Ea9tHG0zcBs z2A_4fRzz4#5%1HXB_!T6j_yyfi|ZY}fE3JtQxr!S^AQGOGNl&+PfyVKsXMx&Njr90TKpIQ&YtJizA zG2J=1bx>00x;bj%^|Cb=$4xtltJRRXl5fkbFt#mO%i(cler(D5wm76(QRwqUmjPgN ziY0mQL70n~Bmj;js(SOL(F7=Ca$^c;KCzUs6(6Q{vToGdVL17frYyKKX-8TJ4JmmJ zJoK5*NYB(@_#fLf;3+~x=F4ahcc2upGzIe;E}u+*RQ3UU99&&Sld_HCJw9HJA~tuv zZwZJ-etoDK@kp*Wi^{>{L&>w7@F?_Hvvpik$UGGarDb)XkR7N@%dly& z+ukFsh+;Pjh3t*VnpM#H)zB_HzUCL&xP9Z#i5;Y}rT0@;ZNl~A$k6RIo^6Hse%JcD zp>5Vz z&R53t^>&&c5oO?@eL}|BWMzEHI6zvOesfl8)FyZ*GAjv{kHnv#bJ__+D$eqj@*H0P zH|I|usq$yd%K+kg`l2n_GH@TouVy#S^5nI(0 zT48@&wxq^5;+=lTXIxc9voWIyRiB&RQTiTk2)50xuhbjp4*Cdo%BHpOjE@W=G8xn@ zi429s$>VQi@HtFMvQNEy!sSs<3jRe8=!Pjj)}NmbpgW)4Lk-iLH~FU)_FlU0ax*+o zVMSPjzTTmcE?jb@sa2c_NaR!}e=blL8K3&`PmM$rNMRt6mN}GwDqN!e@sP^75HWiw zGjj|xN5@Aey|!wLhrb*>bRUHd>%OPpNhw{XcR_m6uh30~3l*Gbx7i)ZXE zl`92WE>_3UhHN+k$v&_9nG{k9sBB9%M>eS!E-A3?>7RnO*J+dA!T^O+=r16a(BOJP zL)(Bp8b`~s1~g^gxo%x7qr*eQa@}V4il8LD-K?L(#?HA)6OxVBXV;IqYpr}sy=lAZRBwcx)`Z4PK6dte=6*}J*M znkE>&H|S=~aSzbJ5cp!kdaZtiG<~?`m8KZW|LpOp6b|HaO+)sya$KAHtSo+00B7VC zrt0(a`T+$+16#%Gpp0LyZY8=c+>-+Se8`;qPy7G_Afd$4n?uC?w*60lkfUY^%eXAI zCR?*4twbzNO+`j_r@SI+7u9d5KGX>w7?j zi95a4>aC6UcZC9W`3ViZ&0_P@uUTH>z$p!wAmCq`pLyMVsLqZGLB+A}6fZb%Ka87)`PDh{b`)u}U;abO zhsUT*6U7Fgq~Rl2ZVA&6F!-GEmTMz4U0Q+QWFBwW0%s4}`1mZ>9Kh!6GgLDZZtqOF zyt8QEd%$ypxT4wX@FIxay1K~!w!p}RSWYaleah`u0r26(94BO=zu$GY7pdCzi+jI# z{ob*D~RtR7@b-N($VyU!RMqspL{+h#yO_p3=K$4SU zUKlZ58~vg@LFG0}$~f!tw;kfNxgsVxGL>vG7}6nOf}Hg!yX=cq@5G-Jpx-~$LoNNf z(N*a@A#%sr=Im0qJDdZX$B50saV8p-QEZgFPW`+m%pe>vkMn*3DI#cT|^D z6teEzUIA$w&2=?EJV?@ACZZM`b@pTLUoh`;~LJDGVtXblg=u zz$&i+tU6r;;)Kj=1B>hZ*ab3c0EHwKdNmLq?WIhA&r z$#$~D6qGqBP_qUR!<-8EeX>VbG~I7V0B7S8+LLCf!h`!rwW#Z#a#)VW zQOoC(V^iOq z)md){Rh=_Eo2b_E{F^qV(Qc&ES6-^~X5BYLFYQ@zS>9Lm)ELW)^E7#YW{|`c|MS>{ z)9#a!GOSR|D1qW?@{9am$Ij%X@;05kDys$AP9Tr^=jsQm9yNqITWJ^|?rrXKh|%7cu$6NA&jm{~J@kc!Dc-iXCSmOZyswF>aF%%2f@Zi8mCG~_%c zN~nmSBN`yTD0^lbr^2^7TjW+<*wWwZwJY}~x+3#|GtlZ3XY=Bjq6eKN20-mhvGeKu zVLTw@=9^AD{_mAp37>#Q<4s(A+$r6`&*6jF0YI59tp4MOU=cBjD(!^C$Bo{03fdEp)vgH6bTdlfK}cYz1HRrft)r`95;9yu45txd+7 zCWv`;^9ZciN@YzJj}t2)Oh|;HtFHMlh_Olez0;)z4m*U;NSA7lxR6yvymc=SQVl|15`z zXT6fLX7keIP5MpIHwWqcj|^U7>6W&h%nVb(0a;v71RnGGQH|+cdFqRu<5?r9TkWti zff(;%b*4v!Sn@fgPtHoV3F`r==$PZL@72B!jr!q2BXh7y!DvY`uk&hJ@>t+66`=~o z#?E=b%4{)XtWS#~x*?WIr~`>NXM^nBM%UmR$XaZ*U}YNe6ZD6Ds<TNj9Ink^X`uIbQ%5Q4k)0EJ;wVel_ zTW}4z|Jkr%u`Z6F!Tg(OXK)t>rB@9g`S|yKJzf;%B*opY>wjc#SKI*+n8w*@Z+FGo zcB9dvrJWm%3C+M>{-Sz3WIb^S6$NR|oK!ea!KD#AgAWGpFQwo7k%+<5ULc-j$#lB1 z0Ms3yQ2eT9r*1&S!-%)-AT;F#eK?BeVnWRhY;d^X4#;Oy(rOt-!opE`eaB4w4MxwZ_eH8EH}prWh7R1j z1~0i)-OeHbyY8J4m#wFbF1SSy^i{#e4CH5L5q34Vo2Sw%dS!5wn>Q-?jm|;vt!n2X za!MS4-2bTTe&yRWuk#mp)(+D7zqb$uq1*}d*y2?glA1I0`LQkQGxR2ZgChdY#Y}?! z{W5WrxsY@zWED@$&%c+DUSq2eS|}SiL885PO+-y~GNfWwws#0$kGVJUmccLnV7V;ygOkt0 zJDNzsg?imzEaNf=GX`D5#&A zUyguOsekG5%kyuDGf84HM_wbsNvlyE#Z4B7gfBd}d18e;%bLq8!y&c+Vf4w^b zU1m=6QB)` zQ5xco@i0XZfph#KxZ7#(AB^ruJeZ|H@pp9@3j8^F_P+9(eJ7@`qE<7#7H0w-HZMz} z;i!50$*jVjnjk2vN1bVS;e#5QY|{&-lyuJ+iWn!Tk61!rR(*4-f%#)zS1YSXtsnTZ z7gHz0r})D1Hoze?_`ceBf_bDl=x~sfp1wf1CFljWVLk`#4fj`!k^SC>$~6e97Q_)YH(R{?EaSf-)y zpITu+_0-DkpZ~0BUO@GbR|tn&*qJgUY1QP}X(`W!qL}$l)F;%Rz8Wc(-W9Sx|05(& zz`ga6U3x#Kb}y7;*~OKMugGOO zI}*0fEJlkgVtJj-$BGqJh57C%p{K^ui9jBV4O0&V8`Axfh$+9PqZCB}cB2+M1(ve_ zjF-VlXPwu@Ru#K~n~drnJJ~af#5*V!wUC zOLHf6gJ14k-xM3Rxlyc1pz%`R&#>3?!KxV8vh!g_R-QmJwSJ5KtY%$Ea%4Aai{2OE zV9UrDRL`_OV|M$=elUv0u>y)C>@867_~Az%E1*e2L5AY<+On|sCK-u9sr6AHED}Ey z=+=hP4Qi43p_nYXW1v(vr^g)8*LLByeh3fm`%;1Cma?yNe?bCK=KwhxhsUkb;A}ZzqN`h6Y9SmaI?K0_jAJ1@GRUHxpJs%x&bV#W9!H#-%UJFblkDYT zoayUN8l7mu#byLe&p-?-sEWej&JA*6j{hf6B;Z;4Fh>~?JR>v6B^aSnnTj`WOh03u zZ@$u-CF!>hEC^6+#HVbfCODtwKO?1YJ`iRN2o9=j@TOuJVBs=mlurA{rjr-9qPZ%_@)!lhEJt!SYIf(nuVn_UEyMmydUWqp_r@g9rs$`;ANzzo(Kw5mzJWOZc zyA*C!c*GPD@d=gHR|Co1n;y<(q8-Ut^s-qWuGhv^Ism4l*&)HI3NQgFg=-MdNB)Ha z;C9|te!GX|!gM$56#dz#X$wyoLg@sBNG)nQ)tshSw`k(BAuSh)vgCFYwGfN3*#ilF zn~+VJe9&ECX~Mya5IxGlID8RDpuk|sZiziSxe}dDEvZ*71(oDb{-AVgdbW1BwypTv zf~s=d7vL<>9ZumyV_2hA#ToCy@6+H9rZc^~(o~sZ21TN`jVGyj^ur>7@++?J&0!3M z%EP_a22c^F+{Wg;SotY#4%LgBCHxz`4+RI#wjSNhNX z?Se|U7+$KlJ9~E^8(3Ek!|1s$OcgB);a*w=b>p zj~Uq!f=`Bi5u+omQ$boUKo@SSsEJ|3OleuGkMM<0U!mEhn$%eTo27|Eeo}nF(p>_p z*e#CS1$7dqamM-AW-8iuQo#j3i{Q}jMe(Ga8UO_H8&hWV_`-;hRkVUNjqTGb?j>t~W;V0}>$-XAH(IsK;4BPY5b2S~ZHk#& zaA7{&k%i>8!_C(}0lXCC-=f`Ep0o1d#PVHjT#k`{s)U)+AHVm>t#r>;iW9&PGLF#a z$!UAapaP)~gx+t;Xt>J822IqzqXsO=ntXg7t-`b?r;ROynU#Nsea4A-tJbso(<99G zpJ_*A`S=ZqLn>{V=x=b1RH)48F=dL)=*KAs+sM|?vS9B0< z-z%|(crL#OIyF{@T)C0XKfW?uVR-TxDe=49_*@kDem2=X1jrhl#;M>#`GG75)>N50 z@Ua4KW_6RZAnlrwmX-a|hrrlA1Zv_76TTC4-%71bGSzhNvX>I(LxDD##Qw3>hOdCl zRI5*a8oR{=B>Hx9kBi7g+XOnthN%vT)%OZv4PsZ`Ti@Ux?`o2CjJlPgl)tJWF`CBB zGS9;p?@H+mJ*Vi@T3yoJ!O{Vea)gkC?z*qOkgP{(AWzu%Y?cpZSO?aRXjUPOsmG`> zVLv=)$KkG`?I@`;F`Ycp6lMm2t0s-)xovKxNaBwcI)ong%2c#Eiyw{UA~QC+u2#FT z{OkqvmNjXpG!2g#++N_eU+U?HjN2o#oj32lSTFlThRR{HVQI@BO{&Elo9Y(>)6<} z?JjhmDcVQwEOcK~y-$;HO^!q_xJL6-LTX0?#FpH>Y{K$uxaaWg3fHSTO!+<&N*?Yb+@Hv<=?jcZS|ixJ;HN)=WpLEmV#0T1@%Un`650` zjm_=EieMyI2j^)K<+a>wTi4JP%GXn3Gr7$ zCMz(~7%ocv>NQF|dZr-QaB%>Of$+ZtN$jv%NzA|ki43b~R$7>CksF;XqAa_$F$LzY zTJg-}mDNeaKTe*03>o+-J!C(BnZ`)7_k;bh7;Gx>ixE~k*IY*A)v>>g94#T13icn6 zn><+g) z7&WrN-8vL>%4;)H&4;oKTMJRp>J$ORpRxbqv^`X&XikaKGk$M@Ykte zMM`b=yev-YbD4q={DU@h?SZZXa>jb+!a4 zRG6dH(Nx4(Tn)0hv@s^{iG-s86y20ytv-P~CFr#QVp$$b6XAH@qF@3OSp~qhKV~=Q z3TJ)(vEX}H6ikkE-3D!>u@;9hWPUk&X2#gF1U95}x4P`Hygom?1-*m8(cGU}!pg3( zGFqkg4@N%PEq1Twx|mP<2^&@NBgVX_u2L2B2(A{?llm z3WG(~X%$5_u+4%`6Irte(NG%;Np$Y>Mo&YJ?rd8MiWx@!RK!jrl|#|^EUcZ`=StcY zStaAd#@6v!4m-1>HCTH_n{)wc7g(-V`i{`6p$8-E`XE|9nVj?RWx#B(H{$xWW{NHE!@m5HwMov9=u(Kb5(usTd8fWkpA+A z0Pr>vi7WsDE(UwE4Yn5OK;vtH( zZLS;~(BRYk8O)cRAlrc6J8!Y$)^f1?LDiZ*pMd>}ynE$1Z#P~$rN*Z{mkouyb|%M2 zTql>AF<4g%MX>dv9flAsCgVZDUeQOL+__D3+mg%XEsjwRuGX3 z-m}?{E;fS`6ZDQLHV&<+KkB^;nK3N=@gy?J?#%IHYPHdj487 z!=i(kH#R4s17n?3=%(3tUuQk=RoVTAf7|&7?LtYWW%3BFr8Qa6I<-aDMFnLbCokQ# z4f+{K@9d!)ZwPD|56iqNk7u%x}V?1+eYn-AJ&bM8(zHux{=sH zxFHsIDHzm}p}xJ`W!|MrtZ<140XaeT!EluG#&ct~`mI0A8cE4ceI`34qVB%8G|ZM| z`%2g8)Y8)dl}l&7G9TMDmPo|8_MO#dx z(KlLWHW?e|H~q_oZM1wbz0BD zMgoeP_vPA|Gw&*cSXPy4LEp)+;b-`nZSUKlb+6!A&ZUxZC*;IL2)tNPx^)lX!SXm#J`FNdt1{_3&P95P*e_!*jvr}KO6}P^!YRTI~km-3VnA0^iJ60u; z?k~Lfcb#aIfO^908YG}bRCd5T2Xlgvuc*C7QaOwwh^J1f(zh7H9JIAD_ABf5OAEW} zka7*rR7(fYJfK7&EK3cc>kxFmJvH~}ILC$$w~>G3Rl)e@M_}^5j*XLG-b3WV5Ye** z8C&Os?MF`9bxsNDc4SG{%7n^)JtMir09b<=M8uxO}2qYi}hncliCEQ5+b#qevqh?kv zAh9PIlBbT%pHE(#XBRnKdN7+gWQS}fF2AR7{Uu|kYA$qNS2whelu+BX1DI(+t`;(s z`Hyk>^@Ccr1cZKq>}ITP@W~1ryA#HASHcIWp8VYzv7X3M7&>`Gz?g2*DcY7ro_u8& z=$_2)!5YnY+US5=2K8Y-7hDd!`D{mgDzo~?KV}a_Sltfz182&VZB!s&^NY{NU&D-S zH5v2@O1*6*=ysxbLS-$i8++WH5=PpwObZ70L!IFWG%?)mIO!Zij(#T)+Qk9XOj0J- z!%+C7+jVS98#cA2IQ)?7^WFM3gTY>fykf^|+$ zD-@POtA{nvxoy;vU#tQuE8zZ+zYfEa)v%w-8%#h}z#gEjq{{88pI34zhZsM>uKjv4I_ZorJ>D@S@~K)10Dm$QMH0oNm$ zX1Rgy_5{~!-wCfPZ&rXE^DwP(R%QYXJ$cCy-YWC$4l*`&ZDLuHDe)|^Yq3Hmr-d~( zi_g6(%4a#(6~Ir2Cs4eLwPUH^yQ=V4qVjV4#i=B_ANMg<%Sfa*SH%ANs$9ew)pA_> z!u`dD<=!~9PZ|&txgtyV(Xv-cT9dSaC!1%0!s4;tXA^BJt*j-L*hog^aOX=wZprLul`whWD#(LROfq z%F0x3jVr zD1hkcm>HpS>XrWE$CNa6U1A3n9-ac8nQFjiuB_(W;AtsjgZ{lwikfU&YFU`aNhLiW zRO}?%#^2shcw(sBA-iCcWdFdXmN6YXNPk%z%V!@;&s+OodFGePNPKZIG7Gb{ zd@}6DcXo9T(Xgp!zd4rQ&qp5NFj-)88YGwO3{aVF^)nE^IF_sk2r9CTs7`6fFICnQ z>UjJ}N}a?eOs}m&C<*mLYT-=j&#Ls>==+G;d|X9pKPu?5mSxL3Tovz7=G4DF5Mpnp zOMqW-FLCp%(G4?n9BfK}iKJL(MGSU}xJ53Xr?v08?L$VHU-8joW004Bl09_B;?w0D zX(fQ4FXtzizm9bl=foUXOzEOVDxd$B8C)B&RiegsosgzB9{9_;TkQvJDWr;HJf~U0 zNWb*Uw=t|5QgH^;J2}%)jj`a!q<2(?}xs5v8_M+fs*S7#al@LBI^7{%&6TB&bf9lkX;G(OA`CDrjrJ#UF zlmk2(O4jJ}_RZy*61evG|1^>7No}46v4&=Y?l01UJ;+ltwpFx9tKjGG@nuL zB+P0*>VQb_>aClY9mE^-F#>XpdYyzwf;V-ZRq+ye&{4UAJ9(TG+9bd@JD&0}INT~ve{ zI)5hXGCn-e2~@9G7g(y{juYx)<`*A@A=Qg_x|)OO6BeAMQWOF!?9b_b|Guo4`dFoF z@JQyw|Bq2%TuLG|;<5rNvSGMVB8*9xM>XgDSAa{zdu@JgOg!3k*IFnu0-x2yM0=nH z84$B5;l)FlXAE9Xj&gmnT2RwcbC6ShaQ0AtwPNs89d`10;7QID#2o*wuNB7ax^Wn; z{En+i1M>}uhEuuCGcuTrYC+8^^i@8UhJp9aIFpIk(7JH0cghF@PUVP(3DoSPa}ST zNMhFl+7D8bFe(@BOt13oV^d6%d@1XyLigMJo0PC@yKl^M#+CCJZy0YXLVjg{htiAs zo_kh;ZVlwbaO{{3gL#Lwpq_cb;NE6P&o)VR&!xlqPIwJR%-@R++%kF8 zF_c&T8i3ER%)z>t8^&Aj#myj{4&HvCDMY}H1fnn^^r&xQARll#?*Q}YOHH*|_*~4_ zg4De(CT3Dz8fAw#CVsFZO9Vz?>Mp^9kF^;w+-_!nY*$%T+t4#3q-|v+mo+$$4UD7; zm@~?v;(AqXW1hYHN79a1Hf;;wYkwV}ek;-fzFT?yiVWn~?jIGro6ES4sk=XMt(2Xy zNJtKqW3)2F1Xx)QqfJ;dr>wcD1gdA1;2;3Qe^)WTO!ZhTPHR(dCD@` zQW`Fh__6`Z(1SqA*}?f`E25Df5f&cB{EL?y%*vat>5Hv%u}(*Z3?HTAh%6Bxa^T1QRK2S4JVf!7XfoX2={=gOC}<-fn3z zTU4zRwSDXyVnWlTu|sN1*M;Qb9)DpeGL*PFAQ0vy6@{r!@6?q+i+N$mx)GG5?$yYr zbLkYsN4A!ls9P{tpz)ZjTL9NZ#TXHk zj^Rcu9vN98Dcu^|2b^h$aiHa6{878`NJi6z9zs6isuL@tkpvfA2QsaEXc zgGS=*iFxQHv{_JRs$S<`-uqXNDnou&$kaKb1U}`dmC1F2p{iK7W%Bn{k+2GsoAJBJ z5m*YIzK6K@ri2pVV>l}T^2EvC4>JNVP1#)cGJ>jX@wgFnx9MhUai!TXbw?f0>h~}(<>JK_vsJ2c<1y1S5>!(7oSC8K?(!AtuH^2KVjZpc6yFS*`%b!K9|;e z`m|kRg^Ejm9&lbLJ@Dg6%&>J3jw={M)ystC%%4&@-wM6Wq0l_@0Iwu* z+{XukztpX(@P$3;d`bKtN!J({N7uH)hK+68w%NGB#%; zK_C`F#~b6#CNt(q5GDfc`zLk7e_K10_b$AFi%K=+L52Ly{P~^o>hCx0fZ}g@B!!Q< ziImZKKZZHxHQW6e@bX8wATe0r-^EJ{;d1=^Xt6Iz(8n_!a+yH)nqC6pa|**;F#;y} zOhW6Qx@n`S-BSPC5vO zk-v@z(c1VE$bwW7dm`e7xtMgjzR0N?GfdbjGxgtMOF#B>n9-Mg?oxUdPcaCI-6CR? zmT1W;A@W+qF+0>qY8yo1@u+w|XbC%Qge?5tQCaM!XPFU}R$*})q!^yZ_T zad($6_a;{ZT;+x&VCq7coE&JsYt(U>JIfGd(th-4dOr+l4npLgpf`<|>NBU(>|vvq zV%Ef+C1#@z&Du|9OR;Eh+<0(BEf8|SIor(P3nTKoQUA$q>!+fIrgmGT!m$4i`Y3_< z@5|#db`}VhgS=RLyvNF#&+=sm0AbQ6_lawX&rZt%>f|-vqp}2+JSPo({KGAvt??s> zoORz+;6T)fow}3Tf!C_)dg?~S^XS=ihtN2!MmnMM0()#P`s?G@)D*+0o8D5ho)_at zZB^f+MUKyDTXmb$8}ZGz&TM*CYQwOuzhsNCu(CyEaMa89yyZ)Uk)3!;{ z_}SA(W~^JnuO`upsN^|eGIyuB_rMfx9ulz`V;(QX8R7(!ntyqgtn~)OJX>*;e)aP- z6}RV_K=w5)ofecp%xSqk7TIW3sL4X38RPShlule+o;c2nD)Vv%jYDO=vx^+;J;UN< z%k%d5SZ((Jl7Lk$;C%{qi?U>=8;~QrlN+{Jo8VF+xWKiKutZTxvFWIpC>e4*pQaOt zNLFTR3qg0*!tn=}wBt1?M!4(UQazFE87EP2L^#)Q^Xc7HyWNY{=eZO zy`tGootw}wpt;%wSz~Ig;cGi8n+R&0xAlMMNLTkQz8>J46L5fR6$n6X20{9mzqE1& z4N^K}MSpq{A5reh4~J9@ADA~Y3RHA6H~@Z;&RcXcsWo=hkkb&TD9O36(i=OXoa|H9 zOHto$tUi-)En2p3R?l$8r;V&7x|4;1QU8f=>Rz8_1($Ru8hng}-(pSSN<3NF zG&Zki|27zbC1Gs0OG}$AJrj8RS;$yWtI|l~G)IN|$_7W~X6=+;VcO(by4Rq4XN@IL zL`ZSveHASV-xS0K{oF^7`F00!$PQu&%I1pT|iqpcyOFL4||CcsQ zCsP+=e?FVQ`4lPh+wL?5^XeJi@bntnj8>cCGo$^Ra z0Si(o7ESS#FvB4AE}ZkL^;TQl;aD_7tTXxe+JTf55h-0vyyxSOe=z>UcSxjstMtC& zZ7R&7NgBAVpb%Dam?;u5_mJ`A0vJ*XV-f?0->r=4QfD?)E9{P^@B^{(HPUNwwprRnq2?~j%agbN_1hDKFFQoe3_Bv#Q5 zp9AkEg5bQyJi=5gkyccdW4_7*)%!t@3(b#V2{ijHX-wwKp0LtK6y2J>{Rekqxczf^ z*zyNi_b03g7-_4oE^ZCsoFC?#`xWkdaKi{#9>WE4SwH7`AHB*v_a9!lZ z4Q|C@24Z~=hmk1GGNYGVS4Hf}8E})|qIazRCf=lQ%u7?ubdg; zGuBP~F-0p(>vX~!sOw^eF0^??C6UVk&g+Hu+QdykuU*?4zNYLr!h*>-w2BW*-1@cB z9b9Y0WzXd`_IX3+Ak}C%&F!U_1f2>2m_x)8Vy#)?8S4Mie%ghXF?Q{pVf z=&CC1(Vl9g$R`l%J>vD2A2TAKrizDJc-4We!l<~kPI=G8W!zu!pD8Qs(Hp{7+G1dt5*6gZ) zwKz#?B4IqN$?VbMiy6M;SU%H3pKHbi<8aDk4Vc-D#*A7dJd_404JF1vpr{&)Hi*mt z0&Dqfa6qEoLXgve*CHX;Bn?hg9TDirX6!A}3H{r^nbX9~GaHI!Q1TDt_rgxPw_1U5 zp-OjQlER`}zqYO}gR(5_U7#O=l?x_GiZpcC!38`@AqV29fP=x;)~!(YGJOQ=E-^w| z!c$7VTZWAnNU5@75;T7@5|8V4$Eh_ii5Gnl?i504l#!bR)xF5yIDyxTnsfR6VV2bM z8NNH$=I@M>i}aRAMqcF##6<+wzF0S6+54wl7IeBKg5evTeO?EA7|5*9x+Bex5MF{= zyT^H)HC-}N8f&)W6+YUE-js}gNLdo!Ljg~HH!bFE&{rXOT29)jNLuB|*!}kjjkS!w ziV|kXg37?kI{!0@9wG62sNh#!91i0pafasZV2LmxgWjbdxHZ=ihjYg!L|Jy~>9Ry> ziY&P;5~25D9uMaXpWA|Z9?wM=X2BSAoRGpwLQ5rV6Soz8gK2vGB!xZLT4nbNq2($U zWL$|WJFv?!qZ0`}Tfo3VajtDtA&9T@yQ)h;xsobB40d93;L$ELLJmkB>WnF{q}A`T zVdM!yLaq0fxU6VBt9f6x|6Z~PED?qtwe=$@3wIq2xsYeu{lDLkI%DvG7DDgd&|gB? ztT*)OkeVP~z`wkjN5<(%b!kna1=N%lAbH%+%$j{W6Y;N+WD&C(45$*>KUy47_%0Pc z;MkBTs`%up^UgWM?sqxMoM1B>?Wrh~hci0Ek6L{#kreNzR})Kjjekdjc^9fgi4H@K z&Yk}o_m4{iADr9FE|0_aPR&+=%_&J7!p7<5!i5QFx9m+bXqr+wa0i7lIR35k;&^{9 z3+%I{s{9GdAq?=}mqLJ8O{v-{13NB<-myymiXUHwx1`{gZ!^%KYs7Tn7bo8>pLU_Y z;~L^bx|dbCx#Xn~CDUZE zPs0B3*L&m5*r!nTA0lD~38Tqyy`b?lm-(%PeWW=0Txq&rDwT4gZ0Grd@+G}*G)j6G z!(k4CGU|`HBfHM&mrG%VBJ<-}HEXtVKu2BRHR!SIr~UUGw?!0vk7bT>l8zzo|3(z0 z*UN5;F>1`P4u0y9h6J7po&;4kr~=4YOBjb=tqEq%O}X^lBu!ruwqLD7pz=y1Tid0V zU`T`JHbm%EqoP|srI>zV~)3f+IY;G?_T z)~vg?W|)nu2(%xqe&>#co+s=A?}{~|+I4o}wdsuhS6JK%dKwpzjqTd@Xlp4oH_}%x z{uTy9PX_LppQF-GLrm%q5-Z3t!oWc(+6lox%PwGd>);6}6Y7@X1*ly~occWg_LrnH zGcNrjI2sfRBAsxq=6hpi6ZGk?V?ESb=@E0A8>Oc0kL5-x&(q=V^}y}mW4sBI2Zt6O zM*Whpob6w}Dc1vg+lM%vU$5v;6W+fl4Qczw$tm*Xp6TiMKjam_Fv*i6*e*!*xmFB& z9eL9}*N1IVCz;$H7!rBuQV-C-W(^!y6#Xi)@=HST+sMmQP-;d=we%JQ^^8ltC%jAS z1+L(}>JS&1>~cy%fkj>qQv{~GG?Q!!Kd(1jFb@9wJG$Lh`&tvITir7Ra;@V&FyR$! z7gjhcGjjK|LT^up0Q+^vJqXsc{PyO-%{yc`*Pfmxhu(o(!a119$~rneB?Zl}mSk&u z$YRxZ@JFGDEy8_?N_-`<|I}7jI&gbzg$Id)=Cz^>%sdv+%x0DQrZpko^2ipHw&B7R zGd`(&QdrjW>aGIL=Aj>ULms=(Tu6MWBmT$4-;8RW4lSL0E#7Dx+n@1WlE%SS5(l63 zb7yc|NM1y(A$w1$!C>>zO3H(?_%%6M>BG8&4$@e(Uamf)xh(kGuuaeNyg2OA2oVp( zG6Sr-Eh#Fr27*ZWlLkbAb#KJ;%qJW^y?eVv{MengtJdy)EtJsonat24GUi4EK;qfREYQRIRGvP z%nt>?_&e_4d=3NUiID&94WAt@*skbYS3Pv`9%Y_)HSx|WaD>@~@hy37Hy(Llv&Tdt zRKhLps-g{AJ(Egb^Mwb(30?BItgOk5PiD5PAYPXE1ezVtms6)y*+Scm*=lVqT^94x z7<`J#!)zVwyu4=5sTW4I6?co}9JhuIATw?r5%W(5`-Byo%Go8PvEyxM^M#Jeg+16N zgWD(&LEYYV2r4ByNVnG311F^l8Gk$`s*`fuInQXtq7$;8kmE_~YCB6y!x{3c(J^PE z!XR4vcQ(+uR;YrY(g6U1oaKL@`J-j&PQ6VnO)RF*TrFb?8SJVH9yCer^J^;;h3YXf zy5()AL}o=ORP`g?#9&cGwa0qUq1)PqC~qvv56Luwq$G|Mb?0Rg`Gtd^7BiY>8lf+2 zqjsg|P(*guVuVo{SJCrFf-KdsoW7iNZPTAKJ}eMXk5+G!NO&O#BQk>Z??#>O$ztCB2A$hq%8>MJ&$!R>%bpEPiVO2iu|x&KGrP z)O2=2&cX@3Vz7>4vxy~6I%w*fwIAg!7f6)szEvI$e}>--t7*@YG*KHcSxIDrC|PTEmJslgScjg4}0|_x{14m)yY^NOtQa z7UOo;p3FuWEK67$n|$<0W$Q>y@(Kj*_djysf*)PO&W?tSB4%ZH`t_HCG^9bgyOc0^ z9llsDBc3k|hmMLq`GC<@-;U`+>9-V)qYB>2@v_pUF1^Ve-&alA;wCWS*e^S6vW+@b z9^|K>uwTIf+EIb*YKC8*;~?gqbR@LF#A18Szk5qjWl|QE0CU?WKg3+qvlz*(LTJmj z&2cwxJITN!n#hGNeEzFwzaz#UVLbAe8K09^^hP8Uckx*t@vRBq`nFV$%%$VdZ8S^fEkq(MfSuazX6=Q zcZhQ?_?I)wQBe`WfIr=25QZ|kGCWQP9`!vcG4eP)70g4tW}2?lmF1g1eB-L~kDB}v zJ9i2JFh*RmZPe_is1~Q(=6&2;U0yVQGDVsn2d?@;CBcG6NrXnp6ke!Jfz*cpwMz;X zAToo4g)&`^aG>BkbO37;qs_xD-d zkdC{5g39GO-$@g$g)8n46_u;{Lvx^;LJLxj@lQag28Gjjk+lcgw#ML2nwrA8Im&9V zeL>Gg&;b=)auxZL8(a&4<@Tdi0D1pK1H|y4Zs)Q6ME%FZ*}hLBM=-?XhxKOtg)Vf= zgGzvjUpK_C%!Z3OElO~!Zm%-AyQz?SM2FR>B;y_!h<{y1X_U7@A3P$B(1p+vw4l!+ zq|MUJMZ1*_ju#$_wdb+DT7z78ZCz&*z3lsaUZ3&uoXY_f>mU~E+ri_?H(`!JTy- zF0}c)#L)s226GsO-I95!jXOKCeRS0`hK=6_+5O!8T?ETt^2uIC%VU!_uo*OHV0tKP z#z(^4RD;`mm2->%6BVfh;9E;E z)d>$^>232<1OF>q$N*metIQH#&|xB4TOwCjP*@=ISdhU|R|MEA>(on070g`<4hLuA zgN_-x+mr>;{|fmt7aZ;(@=^(#!fCcD1V0U0zw!(YXeE2P4_d`+0@QkAMtG1sZtGDh ztaX?tI||WM==PgC3JXsgwOoI`khY_!m^;hKPdwnV2rPf!X`NC)9yQE|WBVSsQ*=HD zb3Xw6N=(%bs9n3MoO$9 zRXg}`Sc0rb=jNSHO>W{&EpMKK2XiOVkCd&OaAsO}s&8R%7BmoqU^+9u&uAcE9Zmj8 zN>IpvPM&xzV1R9n!IV6G)l{EfmrAWsYHB9diPt@mvb=mUkV2+W&Ap3ei@k7>npg<* zOyCh(sP@S8oAVmm4s{HLAcm z^9rBND^hC8t5@lqBF>C2*T3b)82$HWZGH=TMO}59SgZzp(zpQOR~aq+)Fe<~b2X#_ zIqf6C32gzjgo`?Yqu7+Gp1NZd&+deCVW<1-s-+LcN}F2@fFQx`hmU_7DFQy%$iK?4 zwFr@%P^JYRNVYwv7Ja(ZmSgan$gqOBEqG3Nmn{MX%txv%9C$63QM1#F|7@e=d$y@FA zec+UY7?MujhOCH-b51Hzmbzkcao&&G;?D@+?NwUrF~N%WAIn7ptb+Nf1!{)e<`Q%H z7IoSq&~LoaMbdIn8a3nLf{X(c=;+^>)BU-{HaDbyGucV#Ij{U-*^6w=2jyN^8^yGH48mJ~@kl2Rt5o5%!PI|GHP6FskIV?qBJ@x$ z4~sgmLMQZ4+|a~Lk9@{-H^`xI@H1de;M1GN1W*XQU%^z%7Nefa3y0zTMME5B$@<9Z z;P=j23B)?mGtOc!zVQmfVxiRmM_0d<{HIZ*dumepLUPP6I$+uT6>$}yeT_J_tZwH< z7R9x}Tv6i^Y8NK?Nd4^iOG?W?&CemefHCN=Uj5bD) z0N01+!vz%wn-t=f`80a6txyK^-Xz_MrX|ULs~*)qG%goH`Aebi%d^%Q3eDm9qZ1aW zqh`e-Ujr27fJd zgiQa{7CbA|n0|GyB1(X{@Dv{AV~NMJotwbVH!ck|&2A|C-V{^i4l{+wL({Te0@lZ5M6XbabJ(8Rn{m>gT$SYTeD|)2k047Hc$l{F>d;tSNHD)`ATuC{^nON(en>SS?lxG@ zd2du%S)F#=EW30ySr6YLuzLT9QsEvTed(NtY_ESJ>Fc4I}*GhR_m5 z)>xUfgv(g3b66OMUHiIfUVXMN8_L8Q=7v^>C%BM6tnzMvZVLMz#zgxUa^h5`SiNLx zt54Za;$tT}lCqx)G1*2`KiO@e)K77=EDd&)0$Cr1Vs?65f$NYE#;4h)(4Ns-h>HOlAq-xDj|S0d{NmEz z1Eh(H-@&|qOKaw40VonS5?DS?2VSJ3^Zwo5Q}p})YR);= zjiK{1(3wUuGCK=0fmi?;cNLp)o0n@KRL-=8YPJ+Pwg_zIAc;}A%hKt^@J{(}gR})- zxY=8U%5|1@+)l;%N@3v$QWH-Y<+Nm^il1y(!wSM5&C@g#2b3BWJ`^|k5u-I#oP>%_ zvv%#P6LB-Qp{fXJuLaZ{5R;x;y((VJd-Z|!pwA${4z}@8@9B8{p{wdn9h107C%4fI zpZO=dn78{=1OkYLT~tct{xqnbkbs+bZ8BjrT2yJu0$`J?`95?Ky{dk97_5}a%5Rdw zB1l=25Pnf=l@q)Ty@4wKKnAftmH(^E zUZQ~LhdkgVi|YbmGvNMhHABwQM;+V})b9Zh_}T8rxjqPp?1*L02zLuqn_4aP8>>{T zd=&cq0qi-WTP?Lnv*uk~7>kU<=mf%@z25x#L1o(6SLdGm(Z&bgeXEjJu=8S`+4?IR zFTlj(4fQK?-qLm!&LCTDc;+gJ!Ox~*k0!bdt}*wmwsz~xE-G8MU&k2v3wbr-dPI)^ zA2;Q*468CC2bqrKLzXdYPbhwW@2zH)hp|)gne+tf^|N5f5Hs9Ww7lilf<~~rJ&c** z=i#2qoZ$0H)q@8y@io7gLX6wnpV(I-b|HBWmQZ8NrP%jQAGM?KTNmusiysKxif{&&Ob+VVWokE|c#z(3vB zNZ3;q2CtKAT9MwrsPxf|WP=e_%ZLmHLm2Z@vYdvz?)W?5zCtsDUySCeqtq*a?(HQ% zaDm!3bD2@rS;M&1LafhybsB6&6^T4u~x9BDh_*sV!=pfC+OSjE0p>CUbEy z#NADrYENTu=M@>KV@3KCj2D7likDl8iiFB@oM0q^1;8(4|z7) zK*JrC&~AB#Um6Gy32ymx%(?mg+H<=MqmYrmJxAoOKDZu*mbF>y%c7acLn1*0J!5hW z}QJeShY94Za!!~(WNfR|B*Y61e{EKHi;a7pIcK@#>` zP@IDvw)`J>)6+@?qxIFIVv&-|eJVU?HW2Xq{l7{D{$G8pXm9FV0*$C!xSK^vhP+8Y zhV7ee5b4%7cM{QA>y&IDr?fYHoHO>SkgI;Fn$ zAn60Jwe{F2uKp^b(c`9eD5r_R@BKxhD8OWW&_m%$r5!cLgwek^R{%mc$xTGgyy_pv z(+7G*(;nU}m28E_4qaT8PTRZzBE;cX$>0exot5DS)CWk4r;w@YoTyW8z=Q$_a zK}G=GQr)>_1h)#xPY)b15R~@$JgQ&|F9yeLD20bV1Zp2=wJel~kU&0WDT*#9=B>P2Uv*|O^V*K!yjEXHmoa6~c(z5oi zLXX>Xh$AKBHC|iNfseeEnqRPfRJzrfRQzFXu_NP0)W?Vzl zeB%OHpE{~bbm~}KNe_0#>0ebcJ9)wKV-!ExyLm=tK*=<2zI$f*>j$sqSj4mR-8+>y z1L8(<*JTEGNs5Y=gsRzW;3Y#_CfrJ7**Tj;$g|~!6`9e?)1RFZD{;-)!S5V+G%>H* zdnzt#PvUekk3o=THo=lBhyXL7grosl6j;#zRmlIUp*m;{TtEQv&H_N_sE-apWkuC@ zpj65>8W7}Rya0?qUu)PMuzm`%l@Z$AV+;~rZPDZeI2-Fo^EO>vB%sfCn5}UYTZgk4 zz4490%^K^SV@jfGE+O1z!-3DRMUursR1^of4Tru2@;si0}gSKS_MM<`eU|^Rd7p zSB&zPb^dN;WkN|g`;7i&Qd&aE`pN+t(?>CjrlU39Ek0}D+-TZ5b$C$K**oJwis~B?Tt%>%gULx=iH3L2&vDV_cp~KRVeT{7xO`R`BZI zQiBxv#3wh@2P%UUXH3nl<}qxjyvHeQ?3MDAL@wk}TkH!sTd0+*e}bf$gu;jsAdO)d zJjPk2g8l!h%>OFc`szTwNZsK+R$Y;^m(Q(_I zBl21)x8v$>1{QR8MhgWOAi~He$#{8_X|RWx8|?Si@iq>z)eku;v^m$lr;oe|EQ%7| z$g44X^&93ooCQ)}_GB-8w&WnUKgc4eZ%i9zpre8E5Hrr|EF< zkyx$JH(^ch@TpeL$Ebr?X|#z1Xr+4{8^}MO`pjkmBTkl#$%(6d{dV&-bAKURL}HP* zuP1bx$$%zA{&i5XRo;MxE#Y7#h{qbJqD}!KbQLR^&hTn5ft{iojZ4L2O@w0XpAwoL zmm@LH9CSjXok3EgZkoYs<0n4Ug36kz@ z-(dDc$C=|*mfXu^i8uej+uW+>&oXqUFC4=zo5nG@Klo?C^#=iY-YAy6#s__hvBKc7 ze=^y`tB-s%l`i|d;<-PENeh={K7PY4%K@E9~1WwxBrg18-s#LoRk*Bf@sbUR-5`f**s^Kg{+rFu3-@1oDn z)#0~GtXEmxCZXA30y|2Sm}k3J&qvN`h&o}`PA-U;i86(fldK{*5<3qQ#ne5YccDLOM^(TBqaVO}FKgkV-e45u-)j?> z=#jTZZnOhQVDM0U)$t8|7Qbn#+JVKqcYi(jqHm$o57+uNIfyz|^YlE@Ak}v25o}BK zPM8hnO1Ker{TnxKjR@0rcT6Fi8%Eif?^rvhKc`10EyzHA=g4y1`h|k>WD0S+w(vc>-R0cfUJ3z-SLmW^Zu25!t7@9*;jie-n>BV1NNN8mF$DsMhU zErwM#_g$?7v9$pmrXIWaGmezV2=GkJC>i}u zT-A&DY6GX7?mU?tB&HCa>)9y+z>ZQ;1xi$>D3?QO*>b*c6ayR1ZpXQD!hg_t|B{^I zRBg$w1-$Ip>>a~NpWfF8cf1=qqtCUBOV12p*p(<_5R~7QUuQzZ)J-DJK*Y?LhFU5N znZK8mSh<8ioWI~fVgoNqtU=>_I%wCS8QPTO_WlwDXjk_|5evWNj#zRzJGg8D%e*^v zmERXy7=}#~dh0R!{enz?UJLyYvRx#>o25a&Toizf^ub%%gSx4AZO-SI^hNd2jb(w+ z@1PanWVJi%tf!TzYjCv>`}R2w`}$qLW7}KbBH*GHlyNz^Ea*OC6T)70ql?%HP@Ecf2;L3i~ zG^kluP+p4~K{_#c?Apqe&javc&vH1(t`*S2oT`ONJgPeJ7Hz{@JNZ#m?`e7i2*wn zPoO(h?|7|8A{l%JZIgLx+wifHk_s$!bOa zUVIb9j6EeCvxTO|`!DYdcnY)D@Y-ws6jU)}+lL;$-<8p_&jvqb<)bBIbC2M()3PTz3*)tjK3$^KTVA{Ha@Frr^jHQlY&&Gy} zty=bOAgsJA+_rXFs&S=4gwh=jt`hXSCwsLk^h_Sx_wq$?X==S#dS<2bsD9?8NMLng z@2keb_ZieKkvv$~?U1cFocIdsh`IEC0uzaJ6xmxa#<1majz67Pei>D+%CrH_DdNeg z*tVl{=pP+R!5>&}=<0}OQYH^+q~0v1+e}x-!~vmIx^DmqIqb)tjlWGsE!B+6x%vyU zbV!##k|-)kb_zZ&6X6al&Z-mkjB7}xAbt4VAR#wJln;FA8pm$2+}GCB{yb%6wcLGY zTFui06VZ%5%)}#_WU*{rA7nMd2PeHePm$*{Zf^uwDPH3Z4z&2Ay9_MUqI?$h-=rPos+>y* zPAtJ7Sqm<#i;2DQ>;Q$DIlX+3Qg*N;zNhLM#-_nsG453j+#J*kQqMdqE7if_cM}-H zif|#|4RBCFzLSbz$OO`{V~qZI-2gKL2S#6v5m{@w2%#Q@x z<}32*kTmd6w8Fa{FOQhJfPk>!hi%R2tTRbWAU%6scwRoa8O>~PNh57x19_LGZ zLZ+}(H41MFU(wnkac9NTPj5O+%PW@(;B!~qWAt=SUB6gRKA85l&N!bf>nB#~SBckm zf3*XJR6 z(7&}PwO>mbdoVntW!W~@#P)Ue2}3p7;Vt35TV^eaAz4BX(>_E`zs|C+2@j6+e6GG! z5Wvs^8M1Pn-Tv)Y5Ff+yP6h*-9MeAKYlJ)C>ruvzxP~n<)M|-Oe z{QDkmWBk~MZj0veMM78RVL%n0I7m|>dO(r0J&2EjxdI!v-#++@!-3YVdSvL6roOIQ&vft6seiatKlGO|M)RsF zO}X2t?gfj~g2|=*sbgI)g+LD?6pKycvgSeD!}+_c)LbF-iO&im=An910y7psX!q9M zJWFI|kF#2hB%bg3r5Xiu{)ub`b-@y0qhrXvrMl8u-w?aBlJeLaKj< zLa=wietngDNUo2$E4y79Sobq#*LH{*7QGf51kBY zw@TQAOW2~wF8EX$t@WC|hZ#KbsgmqHi_#Fp$+Qc3atVRnn744=E0jLTM$seG3B;r> zW*k}y{hmu)ZRb+#f|9vsi(-bor@QZk6*jjsDJ@uVlJNMwEdC@Q%7H7&&N;6a^NTCY zJBC_k?~*YsszoQ$yOCp2QQ1Ht1M%x%>9_xQoeO=UY?Nt;0~P%#K7LCptUTX%w0@r` zvg0YIR|2jJ`iNsj!iPc{JuI-IhjRL8e=N|Zt8ZcMHS8+N_oY4mG0l27|3?9*?L^ID z)A52!#A%fYJ4px&6nC8{EO9}f>G0G(pko%SBERwouO+ZVdDOb6AU|(79;LMVv&vcg zX`&C+D+Bws&>^|}myYJG5Ps~_9TUTvTzMe*SE1#Kn+57h>Qj|!i?opO+cVjD-5J#P z>iQ6YUm7zHmc5F_b|;Da1vfJgk6jEmkhw;vov~O0+xm(sns<7nPu6vHlx2f*AcT8r zjq|Y(UaHCe+U3fUJ1H6yfAQ@%ph##F6X~d3t$h*YjB1Lmq2L6PqR0fb(*ev(JifvqId`@?k z3Aka+A&|4}A&fTe&*`A$Ud=c8S*F;~t(P6T?A=x5O8~o1cHbbfvP@ln6em{lfI|8> zV|?WCR|3!6fm{=xamZd-b}fMvvpf~*b!7O%zX2v>UWeS6$ZT-!?Cl`29-=Z@1keeX z^&~pD!9d{3MLC=GmYR9+{LZ!{Cu4@n5(ZkU(Rkf*NNggjCiDVSMbn^wH{EEgexsjY z1jf}a!D;bCh%?T9s?R4b$7bpXV=fj+5)%(6arI;smfv`a^epI|7M#3~aAcD7q;K4l zfN(XzF}qZ9m?1F8dP}H!gX#K}RODxTLQ4fiJC3c^z=je$#*SbbFAk&EQ$9m*W17Fy zL*y_xKdOVQH8omS^3(~*R~7&e=*JaQ$+vESBmlCM9gCrcebI(p{oLs7w&|LDsacwp8%55{zbTV*+>SY8U@z9<9*0A+=@q zkVI{Qk&j7;Gbsl7i%OIdJJPcsOT5^rK(47qNv@n%8&^oNU;#YJT_K|!^j8}WRSJ>% zKM!Q+4M3?>con`HN26*ll~WBx-<8`bYK5l=Ku^w*$u0|CkJ4^AA79GZFb)XCUWyWm zdbA5!kwiag$`&EQga2k`+a1?qjkjI|3;2JTrJ|BmkxL6vXeBE`7j=Gk@uXvbsaW!# zgp67u8FH-PWn)igN5H;qWUtVd0L0x*3c+K4#<3Q%R-E-y^yo8fNF#KlVc#UB_)mkt z@Xs?*OQr;T#%tM<=&3~)3;^R4h5-Ycuq?1nQk0vI8i9i=Czbh0U0_$;TDh(#oUOh# zLkCf1fppaEYXSmfye3h5oL~{-FY(h(hO0NI!yQT5+9H*aoangBh2a;{Mt8{PX_Cq> z{ibAGg~iLM{m_=r)z2I<6x54FB;sMFzWABoG{TEtJDq{#4}^2n+?xNEWE47|3H^?* z*Xq=UpfFDj3SYyz?(~Nz1A;T zV*I*MdY8-HY*Qkcy*@Py1GM4xq!`4;eP#0YpQ-hT##;~FCGRU|%I?y#12&KQkT&+g z@5fQcQVD+7O=f@pnSfHE+um$%U`G7|*B_TrGo0$fA7@S8uPj3d@rN4FHJ^%0;R`unVYN{qH}aM`qUls`7s|=)eBw%g6qI$`1h( z&^Rc&t*2tj+fZU1>%;nOT;@>U7!+Aq>Ag5V3W8|L8}=`lHQ;tEJ0E~vk?Jm#ZjaKk z*&i1Pd=hU4D>(|gF1xMF=TfywOmvigucgaKZGLY3FjJ(b__3C|gZd->{kh?BB)Q3A z$4+;5IQJH5*6boRd(D4^XrunI6#rxf-EvUs+&h0;u^lbkQxf6+lYyv6KGPD=m?r~+ z{~O(p#HbFFpI-52VBr`n1y=t71zfw!Ho-b(P48>7z3Aj7MI*CzZD{q|8T$pvpVc*= zy5zvEjMWt~Hnm;AL%R9q53?M=F0Eo3?AeeGKN_ z2*~f6f;RJ}wcd+mTDK*L3V<)q@yV|s3|~%bC+ljK$xj-2(Em)@VP8EQEeX^7A9KIs zM%_CNMA?C1BuC)##$Ww4cPlq<&7tU z^eZau+JNAVsw&~{>JeC;zg_2aWmRSZce-RNdK1cAZ*40-HQ*eK>6g^sle`Ck24WdzSTy^jv%kQTcTXgC&LUDlMdPU3q ze?)AQViZK^&V2Qk#Q!!;Vu+ti68pFtmRauRGND(cOVX#-PRPAt#QI5soH%1a+j3I* zcJUOR{wY$w+=h{AN?T`mi4|23UVDc<)XkJDRtq=3tf$o>OO8lxizdgd_Dyn(_e1;IG14GQ0wXAa1L_{>nl;^U~_6w zZ*JJ*ftO7H1kTyUlcmH~>{~h_h~iEi=6Z`JiBikDMBVFz!pOMlWow2)sjCe~?PV9y z$pYvA@iSiLG*at2%oxT+#l1b5Bk0ru=$I;I9GE76xrckHeEABaSS_o zQ*o!dPiSTc_3_Ql=cBiCd2*cT7uklUxMveB; zljn+$;NzOj*L<5uHd?MhMrH?aW0C|x+QEuGsEfref z3{^SOX>-jZIMHEZ&S>?`zD>zbn#;@od)Ki)Ro_c1C zwDM5CS9UOGWsX?p?ihE;QD{rfx?kK}EQQ>3|0{dSBxmCRs?-yb)T7)nkx1KoJx zh+C=#kXqRD41<*Iw zV4j28s}bHSesG-oEZT^n?WQS`m`#{+jec=hzL<>FNgIMPWufj;kq<#1f1PBUYx!!6 z3uQi&Hz7irZg|I5zS&xVLgqj=-K^Z)e3k4|5ir=SN_nY@B;ekgJp@!C`ZinG3hn9= zBKbS3FXhLc7oFbRKpNJ6<3t_K>h4F;1Rk&ZlevIlEh~c<1ZENA)l{+;ren-CWhu$8 zh>q`6_U!VOKe_vZx6?M4>wKay`#luoU*T;dEf{L6_$O)xFIkpBs(|qhZMW`i_Itlh_R4u2*^#mpRfd_)2vzqzuF=gkv`a>c%129&K_c_xIMwOxMtrwy zjj{Xn$D%=0!9;-U;!B~WNrWWvZIgVVdBTtPnWHjNLXX|gVc{1@mPE48DGnQZp91+? z+{EtFXkLhP2{X^Rt0+dsOcXOun<@qS_0>koejT6NujUUbsLFXsMk;E~p4kVhTF{9{~A42EVI?zwFaO{4~S*N!N_> zT_J^PK_}vm?0gM`(X+T86m&o))ndW<6#7x^a}as}0G1}UNXKTX2Tdv(7P-|- z_I~==5*|wdpr(7Em#yn&05#zo1t^3R3jj6c!~d^;Wqvf9Vg>J+*pcT@Pg^WwgNQn* zj;j-Zh&n@N5~A4~Wr$d;YA3<7Au7_yn&QoPFirAiwrGHjI@^z(o+f}Z>4PE1zAF20eU^P#(+&fU zB)t6op=dE+sNPre7BA<@K3pGVAFgkgeL!tUYPL`{b-ymGt8HmT*E)5fN>lpaqOF?x znnmJ%Q4eX27Gq&q!jSScP}XQc6w*~hKYzLr)@VUjDa{sM(5iBoS?rs5DYFGCtJeUN zqHiGg1CdpWl~g1_&#Lri)^nEM&Pi5&i`*GDmu@FXaGb{nMb+6yf|GvsA*j)U%vJl^2NL2$)R&vG)P2?vWLGWl zc=mP3P-3;9LT&FRMVxgmQ7Sur8uNlQdachH_u#QdQ6HNYcB_hYq3ilYR^8}YqozKR zO;G|?MgVlgVP)l`pc)rWLwvPV?K;VQc6 z-l(otRe-QzS#pTxr>WcBOB&P+sT0gltyn3CA$5Y8NpTf^Guv#@=T-PfVMv`V1y`G< zm3~xHu^B%ql&G)6u^%;Snhpw6*j=wCYBTuy|0z4O9a);>IKK)3T@ertYp+azH$CL+ z`@Uf=Mi2!JKyd(3fB-$czNk}u+RfbCBdRYB@c$WJnX#mWrH8w@q1u{kuJmP1Hdjmv z2WA|df?+n72gB?x8xlE%gkg5pe9YFDjbRSq-jZQ*p<$Sx6=S$Ri!r#bkH=9h<;R-n z80LHPmSL_HW4J$xG2CA+#sFwsi5jG0!r^*E9POSNX6zKr^;U7jtxI(GT$43u=^F2Ug9Z{Ufec3j!S!a#x>C9Y#V_gl`U8G1d zp9YPi#hK^@AvD>Y4H&Bh2Pu((=kEfr*jDv^?RyKuR10K+`!Z@U%xFQ4`0K=#3d2;3 z^Csb}nZLs@)dIQf$a3;nQNlq?HeQ5Di3{>NY;BxpRWaVcdY$%dq!>9}G>k=Jhv1La zd;7+hyv>|Genv3j32l)0q|47@KsQRL<{a`jNTm&U)h`1yPOw$2H|J}k7GiIc2x9Mh zL2wPy7(GplDvs9Sm^ykE?^?KW4b)i1)6%krYV|2UtTH~ziYFFUX^1l=q6TY3+$3t} zu>^)|D@w}-a-&|d{^bY(L%H|hwr@{YIGGLRR>-j799Wu0%$cnL-HIWpBU)cJzB+V}hl$J{Z?$Ls<(p`4;d=Ic)EpGcU z?xvaH0_|$C>t32IKz5rCq6>AyPRYi0j}0aeEOI|Ud3~xYk+dzh2jp$6w8mU{;I8w* z0*p^p9=@x^5pExGE^%-W-c|`(Ijsc%uPbraT%(f5ss&0$@x(m$9C+9FW7{U>D?oR( zAn-!~KJ^@Mj}|ybwuv_uY*&lh$y0Z1T@4x6%PftI%Yizdh>Io~& za*J;UzIgQa!tV)p)fF)cCWgO)AsYamzaX?QVaN#qH?8tfa9@K!VutlgCA+o}#Iv!K zbCt3@uz}#9h2nNDM$AxwH5|NfJ|--&Ffkyc{%j#c4aL^+@ z8W+xGgSpbVY{0fsEY6T^CA-U@ZGle@H>=@i`kXM3 zNB^-Ejv-U~s3^g7S?E6e-iFB52hUM+@tc@<3>TfuiMi91<< z^lEWB&k3!*2XLxBq8Hd#i}Pg?_YLYt3n(xL6q#y*^xEu(6hiwwHAt+QoKNTch7A&{ z&B)cu-uXdXV>1YrB=n7n9K{*GF33&8F6#q-U0-CU+b4wI#o+A%!4hIn+{N&1=vvMA zB`j7a_JW|kex3S*8Nz|P!#C@#Ag((6s+v*7aTvsn!h*#Q8>|htsf=XdCx)x)=xe}E zRdogCsxRwUVjhzLSJgL<3XActa3;f5?M14&s=XA`NMHjn=w4ba{`7`mtb8S&g)o6Z z*h)QSxT+1L-ld4pNPwmm6;+4H>afmZi4D@q$}|bYrcW}ctAfMS6+Eb`E>F8ljyI-y zo2|V3U`~(?=su;cLuI?9u3TuS>u04$?$6RAF4oNBh}wQ~&c0u5IqO=bk^5~FaJ#=; zY2*mDZ8*lhon2W_Eu2-g{LdncUF;ozy7Zc_+b!>1;CO7sC*g)a@8d5YY69cY;`}JV zsW5Jz4xo6n7#Xq>_?Vdqh^`j! zoWK$XUZsf{)Ln_knn+d+$E&TjX)uO?-KZ2T^r&{c>cn1E=)W*AxZ{)OuD;96k|DD? z$=7q?TsORf+*LuvhH+>$slT!&u<`acDr;qyn{dsjWg*7J2e`hh=EE&q#SmB>Z1WN}3tvLPDBu1fm~6N9wjrq{pZ z_8tt@P%yVics7mq7?f3qJ~RIZNn0q7cOTN_B}e5#!%;u0;==DeQusX`32cob>CX_A zRK?|6qn4_!RdKmLs<_-=uHteWRq-gZLN@p1bRu3byH{gZSUQ@!kx>UQ*Uq0+4!n#b zh!#{jq1Nz>wnht%2Jro~loBLYi#yJrU{TUm?K$4DJ_Q^cR}1pEdg1_#M+*u+cFGU;YHUVSfU^W;-3Qj(AE7v8QH2(5^1j5?R?A}f|X*A)BR4Px6a*l-?)mOOe<^>Pr z3tX4UuE}x5T@1_E|CPlTu@DAkcps=It`O^eF*GCQYykPkUlEgR(8f7`;b}KCL*HN| z2l(9~sBu_O&{H>TL3|Cuh)-5lRAi?m4ATv?l78je+W|(VxN!YKP<4t;`m3P924jTl z7QYKY)wg9XRc0`DTu2`@9HUOF4r>voU_iE@bv6iU?90`)CURWHaIxyJPAiuWzN$Ew zv-}2Mjcq>lsSYLilCN^1;j7OoI_Amc!JbugPN|9xS6-5wdT-t`*R>)#_eT+(`^!ai zMuCqDS^#VxS5##XF!v%l)~T(Q1c*IHEBhp_hrBTW@>=ZzXJ(&r1;%R`iUS9aEx~}S zTHy+qd9Wzs0@UKJvN>hYt6DIOrDSMqwSBqp?BU(a7C^d=&*dV{?J^c1T8xs*5+Is; z3%o}QUS!hVTG|ZM>pY|9)DuaNK3b3?a*{8MG8Q0OK&|$P3Kux97N^4`?G2dMH{s8YQRV7tinkMo7FMWRKLo72b)!stpDUs51Wl9JAuja z$Afv?XM#SBpB+b7ZUURtnJ_n7L3|ASMrfJ*70x_EKU_ZfNeu6ZWS%+v-e9&msznD4 z;$Y(W)&^=T;iQIeRX{sfExJF77TsSi zTEr5D#omXDk#km**|UOb>kN!*GxZmzzHv_k06N-5s&t)V)Y{l0j6f(eQ=2Recw761! zKvLzis|}!z7NfqTYDT0P1E-?}oReFG@h{V{bXDANy0qUGfOfP1ZIJ0|Er4*fxSaCv zfZ^H*eP81`Hc>#hO@W?DWi|;()hWQ?9RD(#1i)=Tr7~#|ObCAKfL;!|@h6%Gd~45d z8(XjwI}lr2Jw(O46(Fr+qCUq#^_`~x(mE(wr)n=^3GqJYs2D9ROz^Ynu#9)g9|b0= zebg+a%F|^S#YtJ=s4`gET-LtGr!ibY#I2OIkB_@Tq@bQU4D)b7gDl=RrEA5*8-%T7 zxI;a4;TR#H`-KL+y-oUHIePHT5N#zX-XLv-55Yur8ChS7q<90hm85t>wMBu`_+Tq0 z26BtiRq-w^G-Z%h$W(RK23DS#Zzxry{Wm{8JfGcVgPqT~;r3aPq;cVMZphU~k)*^8 zpBG>O>L2`9PDFDKRPZ(!gZ}PE`;I1#+bvW{+8$MswwJ3U4c>w03LTlR|7M|m=@m|W zDGD@pJR67a>p0xLT+mK!NyiV=Vkd!0w$qite8)ke@qjt5)U>(A6;R6>BhfBa?g`E#|nLQ(fV1?U%Qfgu9yuNnGOEVM-i2= zxPxW4-|u})HseZ(w*5gZIMNikiXt%akKWsx=2Yc#(?7WdN>s+2GntgBLd0#VU-TVc zL6@l%{lBEnPg6q-Q&|yqkXMyYlD_O7n^yRgzL(!Pp)Q4qf!snk8-i8#J}`B;dXltR z@m&2Vy$<1E5Up+Kw5txV7O(rgq(r;~s1;8y5JFJD2)4C7Ry84I%u>?Kdto)b3eA zDO0;=38ix?q4c=ZdkLjydVBEi7zKjby-W1B)NZYY()OsKw7pzI3H6LowdF!`3@!vp zC>iVnds0XMq5*F(NCN1z)B`7O(IJ#QH{hK8>=4B_@(Y1Wjm~EySU{UKI_{!Op9x&* z5cwQlsa$@Pbb@^nh6%34pXEIHA`&Z=H&84tUp6%O!7h>ROAJj#rZY@^KG?*fVxDk!aj>*TtHDr^kx;W6LA73qs53gS0<1w zfKDAz5@M!wE?SITa#D5@I;R%Mrlkh~W@96~P5R{72M6*-3!->6N~k!)eDmI(R9>-& z!~&sp0a4z}cw+VqdVh=G1-s+#B5-5=mdsBAUXE{WK1bAbRGje{cp;&Yf7Y<8%&axE zD&=VmtX7Wg47yer7bH#4%V-FMth;O=<(oM~tFt!vDM(dk&9`B983NT^HuxwARA+6# zP!Ooj8Uoc_w)fkA+}`YhKs7(knQM3NL7+No2vm33Uc!$@GXgbq-b(_-g@!;qiv(o? z^(+!}wktf2Rw4NMet!UiXI+15-twolB0<}uNYM6jks#i4(pT66j-+c|4x49=13@B_ zPnrp8ZSm+!dj%Y6`y(<9w_O{7N7e`-a*2D^_F$8>zl>-8)X4=f`9mBDh1VYiiee*l z_el3>PkKS8Xn~FpTJx>b55ThO5LX`jWGkhk=O*(NgsEYbLPT>1VXCC$>N(T>ZF~$D4EDd zYT&3&e?CbyE&;Sg3xXRh9x8cuKwIs{X1RXJ0v;7DNH(6*3P3rU;JjAyQbcJ1)H-cN z8_-&NTLe{of|1`Ixj5K^H|a#pPw5P_R=AAe){2Rt*oqg%fNaIYvCJ5gp_p&a23daD z@TnkFap?UrgsQu2pySqtHh$Tl#V;F<6ojgKG=qzRP<7S@1a56_eL<+YAGi0}tOucL ztOud$F54^WKW=a5r-W(RA)#oH8snkv#tzh}Ir9zPE1~)ml-U z?NJnGd$}mi$PT=aSn>YvHG8DAS9~hpqoRt90?4H8DHMK{82Lo5tUbY8_XzQcTv>Z4 z3eKO;cq@Pu+jEe~iDS!~z^G_J^8Gd`Aqi|n3w%pNPPZ%wB#Rat-LVgbr^?5xd@V)` zVgqr|6iLC-ip)90Y*H(rF8&t5Cs64~k}E%zj>&$_0Z?F|4g)&wiO7J2+K*ku9I~?p zdZkahiBwBXuhfDHBmHq3o~dXtYLbXSP7?%GwX;?YFIxb#+H)x(^bmzMLI%Ckewgk> z_VfV9y4sap9f}YsAX=w(?i&KOb@f^hd_jwVa_#(F$ryOoIhivl$XDBa7MF)eLB4E^ zlWWXP4B{5aSGTXql!S1H9AqEBm1$e(cwslPC5{b zjYhx45mhCz%DpN7M21Hu0j~P0sO;T1BQ-t--fCyJB3K_jW%I8-u_E#wB-Y0jrN@dHBC+E0 zStbG4becb}$UF?VIF9|!9Fxmmee9UAuyKnc_N+g0$+7oQxq5|>y|-@} z*;*-*?NN$kd$|QfXp-gIC5H}yZzd{#l_IA(mK%7B7CW)r z68)X;0lMkg?I-)uz%`vf#MC1H$QIDEXn}tAMb1&P1?U$oI2ApLha^uw z^ekGi?~po?#s^%~R+r(>vDt)?X(NbmFY5+iMvEc3BaAGwJ{Xw};(nMjG9AS8RRW4~ zBtJ;2gLu*kc3C9^dZs-mFtN(gw1uqI_o{*q;IghuJAo{OalvXGp}Cd@pRl%SlzSC% zU9dIn@x1)70T{mDg2Nhq-Mk=L!2%7yRx&LO!B(o98J^+aE+gyXprCb}D6D(*4BS>K zml?XPH~|gbR>-B{+X_=OfLn~Vk0a)!#^9_VbDgz;Rzc=EYs033%yrg~x$d$-OhM)v z>p|wa%LW<+nd__#3_h%l%njM(lFV_TA#=})9GT2LD{{C*Fpm=jn%~LX$Cpk{qdW8u;(QG(jIHip5LAo% zV?MV73ZuoKe-g};9aA8oTHw8!>BpG`MakkmpPvd?w5Q@|wsn4iiqT?2IHLveKw4|0%MKJi}JXbjsL@3;_gGt62QlYB&TZwNZdf zwKyY|-L6YWU$h`8kHX=t1;DBn=bKWLLhRTq4kw9d&vOg>>f9nM9v>=;d4R||Q~DJ& zlq1aP4C&K3Ah9Oy_l3MHz^%i(X2kK??ZS6xNQa)7`RH<*r@2aIEKg_DJcxxF1}x8(z1kE?XMD%1iSc6k>%17| zXUl%-+vH0&nykrmyli54=giH(tzeDu8U3=sR^bBdtPPNy_Zj&3WdoXmH8%G~b67_5 zQ`R_yiA&bVg@!dgYh+~B_^gp}$teaV!#A!Jbn!^KuZnplnw^Y4PA(PCr)Plz-yYHQ{q6Iwb4qXjgRs^@J` zA0Vn0XDx-CsVumvYag-_KWuW(@f51X=y&^6ps!jS_$o_t08!NWM1>;mXC+b8S<|<+ zDmn{R>$Gtu5a0Cd7^Omn%^Tj=k|^rP7g;4#AGU$G9KHy;T0E{Gv#>!OyHnx7 zg#T&ZNn5vLdZ%shKV7qSuwSrDgDs+3r#?@}p{@@^yDb{PAIw0kaHJY&p|+yrsBkkH zYON&5!Uc8O3swpjv{x*9I1Q%C1XT;iksl!@3fo4ZQ^@94+t&5!~5QIq0HV@L|tqAiy81Nfq+)e|xGs(1%GMVziviobZ8AWI!h4C6(I!r#1#2gx&cjWM zmJ}QjTB!p@;Bn@$3G}plVpY@^UKxLQlz|e?P`C`?l{&8SQiGt`6=@hqMwaHA6mC@m z!Sgt}nDa_s-}zCXmO7H^1FuS181ivOUr=YrWc=M!rmPTOF|->RNZv&cyEM345!Exi zqu^U|8v0!f@Jdw}gSeGreZ#nw3K9l#D;(HRZsl0tU~Yw-8qTel80f8-80rWv=&A2_zB$(vnbRd z5v=2i%AwK1T=3VYqOS34xR8rR6n;#79YyYYuS$m)s*SMBnH$$&ZJhiIODyQNVH^}_ zs#^#bwPjtzp&G8O6lhDpHqUu7l*5xdC9DQ>rPLwpQz68BqeT#{A=^q`6zntJWrY?S zwyn@&*r&dpHbO)MPkLwfknmo|dbmy=($=jdv-SYkgURHTTb|UW^N$ zGgq$GRWF_w(27%T`mac^y;SP=Tl0>}j=L=sz1SZ`FZP#C`A;G1+;(@58{x6Zf}#sQ3f5Af|gCd80PGKh##2FT@h|KHMLv1>xnKZ@1Lo$8K@o zgotMf_!G525t;MimLmVuEeHVYY533F;(k%aP^3@WtZ`5t(_yn;@)v%O%O+BH`H1$@Z|7sv7P?40AC?mfZ&liuUu>Fq6`xQ1&43iny>P+T)1pra2z zAhTLb_{6Siy&1+5qNvBv1^N80uT!ed*!((^{9al_r<}+BWec_!pu;Xk_DO(ZGkkAgHQhOhrZX4Vo){)$$ zZt`<~zf?J_a`qbFQ4e_<0%3^9hvPIh!yvB=yETyGdr(KH2!b$_<7`V!iU5b-`kF4{ zYz^4TV#Wq#D@FGV*H-BD9~})ciT9vcL$(Ea4T}}bS@1fe-eV^AU^$wX+HD4gb9!ws z_gUz`K6I}upX|8MFx$_Heqc5z@6qL*d7P-Q{j8d3s0q%#H){FpTBVQuQR!oUxzfjx zLkv{)Zg*U9XSS)Fdn8@C;-C~hn`MT9dF}iScG|i$f&6GOq#h@yo*;g-z?plR2+IKY z(E}NO^z!mE1PogRvqAHE|FSKDN4jIi4mZ*8q66I3LB=k)H&7Hw!I# zQN;_G#R<+_gp^t<LAlI2EaZplic0y1-Ju(5K){OA=;@1K`4vR3vMN#X4Jsdg@z@2f%#WZUXhRH+1S8Hl!M9{z5#8*an!W zy-G!g4YiIOU(BA~U~5Hv9xAF!-xzM8p=BsWn8lP78;qebq9(;%GLEIM6A!a6P$Nq; z#TE}LYFLxo7;G(+L>$~xhjGfIN!}5YPr2t%5HGnW7aH#QS-q6~Suf?9l9{;j5C8c> z!MShkTN=7nFlB!fOxa&9m~sT{4u=b8ffT|$;FC!y@X{+z=OkID2tWhawdMnYe|hf* z%dNV?(8TU`a&TR1Hk@E%X_EuWwH1*7Rd}lP>ZS_NnLGmC@psv-&Z63wp9CORi?MgN zJp|O%;(o0nQmql1NmZg!YBkB;2Dt6!A{Q_=A){~Lwsr6VQ}1{>u&oxSo8)tp%rjcB z{0IvU_sCBLgsTNqq!;7_!PSCLhu-@Rfa@aTWFori^6~+{)q?E7Ouc|?eJS?KWY$1z zwYUz6f$*1EAONl=@PLU4cpgoLE2Vh#1`X9_Hz1{d7%*H-&R4Bfo}V9jswU)MPG~gr zG@5WstTlg@&zuR*YtU7NfbQ zVl-SyY_-!v|JJ@`t82w*_D3S^)NHLG2*}LZhJozgmoHLM=rE_w62dh}x$D_SJ$&-uz7i z(rc^ZED9Oe*E!f#_A(Pf;ut(~LBq{C%@ig3f$o0lIvk*Hl;A6`dnY*IO_?sagMM<@8QsFU8 z(0A3yufoKzkBA7#>a4UL4E%;lTMT&fukd{vvau3o zwG-Y9+7NJ2dH#Z|8qP7T>Z~hBumK(A(WgFMLpsj9r*#qx>X@VCC3O~USVv%zc~&!5 zH{c_>!YX2A6GJ{2b}>ctg#iCf3H2Vu@$Is z&YTMT)<#FBw{pD3Rus0jJddKNqWmuKTO2)t(b`*5>(eiR%GOzBCpj1oP}V+ObVtwI z7?`XUhf{6@3hVrz)I*g477*6?SJC|jS* z9#HoIXjRadpXLF{HlNeGKt8p@^HM#KPwjq@wqlU9qBUdywUTFT7`2jT4cpX-u-!Cg zhrGcyUo|nPa%CXHCBJMSOzGPBdXqeQqOiyM~&oVu^YV|HU z^j|r32z4@d3=s0(zGYHtWqS5UnV$XSGCge792COk?>o_3JJDy#H$W}z6;7s$P=9R? zf@%BX;d*t_31(R%j(lZT@>12QJzIyBIs~HZN2!LmM_f)!Dz+b==^~a{GO1`Www7yo zoE=-?TEzv{dOQHGXhF8r`I3JZ{EDqk#5+wKT0mN~;Ja9rSjr5bXfbMhOKL+tbOQKv zOtflY5d#Mn+W6?FcfJSks68iYwc=aaSuK%Ncq+h6wSYsWp9MW*BaS!q8$Poq09E^^ znb9NQEmf!X`HxY&l`IditB*b}R|6DVZ;MDU09j{~HqMqnW$m9)pCVHMq}BuD97+9^aB?y*|wXvl_hTPFhv1*VheKF_!3o;c=3NqDQHcTqW zRA+6-v$l7?AXA;Sz10PoYOKfUY|7@ z0h=PSF@S33UtpRp$!k(wuo=H%(*~29l2?IKLDs>GNRw~Sl0ZZV4{xCNpm(c z=i-~w#%C)%R@y<7?<)qStC-}u_?Kx2D5@*N;@nG*mG)255(>@*)@uI_`c#>vjkFZ) z?PVGT1t#m zDHvF14Fl^g^Fh{KHtZ-ESZ8ghP%yB@dN8o=vc1^_1FNl#fenH3l7VrdVPMaaGns+C zmz>GkH=-_|2-o}7mT;|AnAsl{X7-mW%zPC*4Dlq^2Oul<0d<4RJ-V6lCJ$moi#r5L z0`JTG43Uig!kHwxjmd#!jm{hc+a?Vt`7aT{7q%t)QBW$j2c<}@41c8qOUGjL{X#BcssP0`x0d5F)SH3YoA0n>LCXXO%5LQXQ*J zDNqiO2VAx1`zR=5kIspK4bO0rrecHkW+GK$6t*}%)P*I5;Bm#~6Gs5q){Ob8vI!uq zgEHrZ&@W#Py1VDQK)<5N=9QI;b4|mt70GD>vx*qGbB_;5?Mv|_@GWgq=#Chct+?h4 z&Q=aGAzii}jaFq!YJj#v?F`XYObpW2s!dB@3c?n<>X!}03c}V|8$K0;t+O`dachGa zzigON5Vr2#5Vq#>NOI^d8$LKAGb|_wTm9ok*oKmKN!Ym15VmJEm`vE-tHBsR0z)E? zp9tIg)t0cW)qdHxQ4(-}x%LbD7*Sgv;Z0likZDPV{VG*mGI;>wq6J~F2dGu}OPete z7cC%#cX8z8Fd_g?)Yv(BLn9-*B@_r6>zXy$xgu}TAQ8?~B=y0? zbW}zRos&=4mktC7V6T{)7&4)%Q9NM=BlW`-=dXrF1My}KLfDvgkzsJ=XV8R0JaH*E zF{D~ifitLD5WILZtXes;g??#&b%e%3cUPq$*UBlc!PpAPgQh7i%-w(nYR-=g!3ydY zZ|Ii|rwZ!USsMZs)UC5NY$<$gjrH)gb(ak+3hGu{8+99E)FpM}LPOo26;d*Fdsaxv z<(+qty?z$*`&hO1<^fsn?OQUpRx@RP)J)l5u9-r0JLC;WZDjjCP)lLYIi@O1PrcfB zVv>D4KxVYyu#Y+pda#vhricY;9?0+pi@Y@hpYa|WnFNwCnrRT|sTMo=d+k$!rK+Wl zd`GW&29%ok{Q1`B%7Uc&RA;?M>6wcbRJPva9@(1)jz)_?N{TAZKxb@)sNhAS#>y}= zo#*XRsI>u>+KLLmd3M0Z*owSoP77PQ3}i-&aa=YT2S}esB?FbP1Rl9GT%onUrSGLS2!5G=ZAPg^-#tRmC5pX~q7E4m$ zz4Qk&5JRn^;FgA4{@Me#djWQ7M2+Gp?Fl;#>-J*1g) z89w>h6#@#+(^X(>l2zbr(x7YQNZN30g@786tq@Q{vb6%x(*1%X#?dL_*jtHTtIpX8OryOxyebgdxj`)7zn2J4rz0w$S1#Jf7!q+amv>EI|fqe$hfyQ@cFPdPB|2w z3%}#}z=eiWKC6IaPWfI1#2%N&QHkoWYvN-y*%|Uj^Oj^T)dS(T9whVSdLT$%a1Mz- z?MT)FUf|t>{#12u+HO$sL}%u?6!x%geUq%Gq_g1p0q zWDf@CZTMK$B{}z@LLPNV7Q_(psIPo+Y7cp|ZfAmN@Pv4DZexJ-tOxcnI>qA|BCYUN zgQS%ZPs67bPig`yW5-4IwV~At2{q_iF!_!_mvcvhse)R@sZQ=nT?wC3%OS^HQcEs0 z)bd&6BU8)wA|IYULMp6$WiksOH|qol;` z{a<~Y8>@P-LT1Mf%EHl>!a~N-e^IjP^Gs9*v3{k z?#Ov*xf)oj7U+<~Z6Nm+;Efh{>NbnUUEb%xU9~tK#K~DQNPVjPA`an_L8=8sHX=XI zd<95Wi{mERE}6Fh&^iaSpF}ab1=Vf)3U+|Et_&P{aVO8L80^;7x9#WX(aSNWK(|_q z1g5Y`vIWSk?*aAX`ij8-w_2RFXkAeUL@jVp954Avfa>_WY=C@Q6!kv5+39jBngP@C z*U-ojrS3!RrqsoJmz1cgP#kPh*A0La$x5L+jL%Y+!Bzdb1p|al>a3b8xadoQH}dAQ z|J2}ZI1uF{s`z2Uw^8*oXPmzora@G0;&(4h4B(LP(dg*HwP^@9#Fd3976<iT3nea|o zYR7l@q<+=JK=4yeI|P+WPRoUc(>_aqWKR2D3dA#PkaWqMHh@WTm%cY|Iqgy<5N`e8 zw69kJ84&rf?AN<+@BM(DX7Kuf}qgHUy(nZ zEF@oOM5%ctko;7#C1wkD1br%G9pilDp0gq7=n@x_9)vAG8=X*^&gs)WwS-8>UXd&S zeO(NsXvbkMy`{R~@W@7sJnZZMYQe`tFD}3aps&Gp6kk}*fdc>4VmN)nqRt}<{OilP z@7t{0vYXskauEVDRR;d`E`)ziO3MNNYI4}O+~GGMKQXIsc)^P5jtye+qpneP#p|gf$bu~Bxua(Lb24#=n zQ-56Ot1fOU7f}S;8j`KZnL}S~rKT?tkBUuLW*;ww`!|8vT+`FgjP;r6dcv>ilMMPA z`@6ua2YuD|-|oVLSv16;ue#LogSm-e*{Ae%NQ0O3l?x4h{iM{#`S2|Dk?JmwD<8`E z&rg=lCHvmIrLRksKDhORzP?=P<2Yj5skzLSbi{>lxM%trJ4G0%rZ;4#2SDy+2qt6{ zSXZ%sJgw^JeZPlJdb$UoZ~Zt=_#iugTCDhO)q+g4Or+TY zbe^GeeMMw;0JY#v=nF5h0jR}+(zh+41OIKkUS;#md>QyxixG{}-UIZvw`iYKU}i5+ zi}P`mgE9no1OH<)$Poina#n42?Evf{)!Dr)8CXuJYiJXva&YBI{E>u9B zd4vty_)Jk*(t>EiZuM2PPnN>OkZ#oO%LLxQjqxrT8J=4O#F%n8%XB*!KXerx!qeaYl}@LM&p&!XZkhIM;!eo^q-c$ZK4?GP3( z`7IY3e)~xQ7Q(6?sZ-EF^|u1Us=EJmm_DW?xo6*-xBPag{tCB#@Y|Q`uN+T9a|Q~4 zhl*6u`yr=H#ZGbRFYcUCiz~Zlbr{Zjp{@g`jjbr>NQJyAWh%DfFo6{Q)Cx4$RvTqu z!y3&j5ir+YT`uzZnE3`+t`?l`_j@c*9xbjEx{+e9MS{FrTsMh`%cKH`*L#pF6tOhl z1B5pV@}$C8<846B2_(S!#KQlvP3HuZ6NnmdB91u;o75;so{b9PYu|pr>p@J1$WHI zrmLbbF=$(na4>9RzKTE$gEO{V)9KIj7#ge7WuHlff7<}9uAppq#^Ag&6u^Mc9-bqm!GMs9n&%csP3=&_f?l?x4V{iN6p{-CeK^_J7HMEQMM zIdJ^aS4VEkT$ifd@LLb&`f|0KBT_pf!+XCC0jT|OGCB^@$6n#l)J2w&63~wpEZs^7 z9OfEZjXHRqXJI@7m{$u*;^aLOWRI;ziRpV-{({e0~MMF4tRuXhP}$zLm=zFOdP zG$LYe4xk?`M(ViixOrs^Z>*YJ$Cqu(JOO<*IUPmYy>R9N`q5+r{)&2iVFKu@3GUM( zycbTZ%`S(nKkONvSvBEnz7KC2ng43SDL_BnZ-#r@I3bGTTDXi2_&6C=HTy!N%TSQ= z4H{}wP~rrGH_0chGS3VL2PGB1t{$E4Dq#z5PIrE0#8lWYAs+&M}4QdeAMWe~C8!RMB+&(gLMjswc#6Jt*zV^@MQ74rd&) z0=z@}1$?z)*dI?hRAGjmv>di%5CG@3LIow5`@)34e6$$xNkx%qkUh2{5Pp;QKGPn6 zT`l&Lu$au@{3GK0C=@P z-XX@XW%>r#yT#B>v^5UC`;!PboPM+d7zmd9{G<^byCPe6-+DnP~UQF{`Zz7UJ}xA87;RmsJy!cq+c5gtBIq-{s~n66x^lTCcF&|6!&yD+SR`56wvRf`f>Z-#wC zLrxy1cHi2vs&eEE@W@}%l&|844e@ZjC~vOmZG09020{70bapg~pzy3hZ=(qU;?p?d z1c2rNt^Kz;$LFa8uR$OY5ytB>BQ^}g?Km|t5Cjy8q(H+x-0ejd4eH>kMF0kbHjcwW zk+DH?i|B~Kvp`o{5ODefv7DRrpwUj-! zQa@mU-oCeQJ+@2Lmw2iNy?wd*5)NC=XpcLD35}>DL9B`1YOlzL;@r)Ol8-_8h$0^H zT9aZ!Fk1at)Zy{1hGk;KGIM((_2L?_`sAtoVbkh4+8#iU&qF@&Rg(C#QwThd7DLEO z4%9Of2HT^>g^US3?M}P|UK=f7FNGvN$gYhT$UYwkV2>8S$@!Xn-%wed)LoMRvqJ&*w8_$i`Ay^R9hHYB3TR(O0sZXFT=LwXJXaO?0$h0w>@ zta(2`aa}PQVqWC30O{IU%Tmt(558;9=jVywyR8N*NM6*?RFmyXmNoTkk_T>nKm@N# z&hr4!wYzggc&MxPcb@zWb=Cgzrux&uRb!hKMR-HB6;UF%s;y=9>F{8#zX?~hmr{4u zoMSyQz+N>mY_pASkkt5#e%VmVFB@L@WdkR_Y^day4TAi#;f-H5aPi9qD}LE9#4j6Q z_+>)}zid$8m+if`%Y(x;GdB2IciG-u|8aY5KQ5bq=}^uuc^DTO9`?09Qo+OC3nyha zqiFOm@UZvxEe~5NoWv=|gNMCbIB6U$U(YBY9m&hMocPpAJWP8vi3NSh+6r!x`5MrtlRu6> z)t#2vmyP0i5`+do>L^OoDQV@oXt|FGF6Pt-KNg8G zG(a|5a4eHNL1qE&>LSsYOeqIr zjqpzE@H9#c!lh4NP(KKlE%BMhV4QvH>dg=D>sb`)?K#OyC7k;wUV&oXO)S@h0jSCSI6OICSlJD$4in$dfe%~GSOj9!oIcdNZ7dD zLan0XVUV!n%e9I)oJ6$pdL~wfa^7RVcM|shIXlxFNtPT*Uu7@{c;jxq1JeU!RdrQ$ z?fZ6#0lI(8_2;8Mj|_^CPPOPjBLA4u&2%wQF)B%sUWK1)q0RRTo+5e1aEag<8%e}3 z)q?7yM-Fg|Vf{yGMA3UGBINEcn+|^T?p2?Dtv?#hdpX;!sX)I`3nKEj+nnU{TOW@* zHQ>iHzu&0^!ACrKvgm3bNoOg_e_o_h|3UA8x)jl?4GojuB`)A3p`G=V`A_=0TU4Q$ zPs#qQ7E!LHIj{VSx1vD%eE9fRwYX6z))Q@v9RAJ6T|3*INCh5MS%CnFS=|tHRK14n zCW1DVL4cLnf^hAVg#T726i}&SeMD8=Cj_kYMm&0s#&Lg}w2#^e_nEeVllcy)g76sW z29<;XliF2$XBoq~Olz?qXj$_|x*$HA031-OlTWcYN6oyIAf+vf$Ky5!BZ82+kdAPa zk+4GgRIuZGyUls*;ApmBM~Pq$d+*?U+K7OwIq3(0RSW9AR-Z9EFSm-rF|QPAToUNj zH{~w59L;$wJTF_Ep+q$?0Zi6$Lj)}E`AsSVJWoxa!3z_x+lEo~ZJIDB@Z82x!U?;K zS~y@fA&s@T?i&uMV`Sd`hMX3VvqS5~#88fJ7=5rB5RYfhy5ALWF=V5tr&1i&ouA4Y z&Jo+E46mV)a6)|<*VR}I>soed=+;&PhxO%K?M8&jmRYME~A=B!~M%evVI(pW~NBevn8+2L}a?>zxp| z$9Azo_28y<>fS|60hKCVph={W^k!Q$NSQ6*sLg&0Qszdm#)BYz^~(X2YH_n1&GI1N zq!!}GL71a&THl}E<3Tv)=*a^#tsjutkr)A?*@9WROKNoGCLpK|=#Auv3~#090BE+r z$3f+#&iAKNODb;8Fz@m@d@(>Znp9YoDU zrMld&cP$53EZ~G{fxBjvs%$Hc3ZKQ32MyE(Kr%yq^49mK(}}Fld`uj^Kb_lyR(xqP zKS69AQkKKwE}*#00&lU-f>%R<6Y8K+N?>spzO~ilAT`)~jdB}f^RzWb%?5Ol(^Vaz zhHW?omyS?FI;dAeNDbWJUd1^jcm9jAvH)Nq_^^11F`tJ zlfNcl(NOGJY22R{-ls2<^^alnqilGezD>q1n*(!rUpCp}A2mqZ;~(YQHs56ryEIVS zr$a7xaZ(6p%n#9U#_2Mgakxy#-gwy%$Vs80O~V=cdmCqr>gFwH*%7dWPGJ042uOJXBQ3ID^v?i zRw)NET4%Q&kgV&9lKFLfKw)jgbL3g8X|sTEwjkZ@y4AS_ceNFxK6_9hlL`ly`$AX< zBvy-UYcwBWleraMY)!7L8K_{iu7GFxcIRn8wZDZcKP2#NQzGwe$J2mx9Y;_nudSvE zi{WaN#S#wIm_Q(H>{S4(sjtGvv6>uKr}%NOtmA4G#hdg-=%fyEqRl!k9n#agLUCBu+QTcFD%8^~og*^^{r5Vs>$GhB}OE=8iU@u?cfF=9)i z4E5CRHzA;gYb}K}B-@jhW3aa8h~IE+4}~?5+e2Xu<@WGVgSkB>1@mmKn$S@Ly~dfD z=h815vNgnXvNpu}v^HWIHO5$02a=BIr0s#&K8vB zR?*2yEI{sTfk-)gInlF9SO9L7%b-eR_NcU8PPKqBNE+h zXHzXg={;H0X9uTse6BaifT+(7OshpW#M3=mFQ?8L@v!sf1Q4z(gBtUhBUc&@g4fTUA)#qBcdh zCJMmtjI^tBGcJZ<5E3nW*ic~uF>3WGOKsew1;tdsrz;w5Fm`tFa#pTWVfd%M5u9Jy z$Ag=|KW!+NEZ0yCiNuD;!#H)huZt5Jl93>&ET#!vH7H{{QInp4>KHBSOe0rrV`LvC zji=VojJ4P4llu_WHZacow0o4p4ZrqKVFR!|RJg#IF-~3^cQeB{6||NlHQb|LH8Gsq z!Ja9)D0gYxsQDq@vehUo-m+CL3~cpBO`C?Teu&-Fq#G$={$tWjq7_C2!Pk%WBVFC6 zc5{5H-5kHJc5@)nB@E8}YE zCtaYXT9AS^Cq)7Nx?YKDo+Dquetjn%MHj>fC(y4Jd`iv%9w5J39Pm(fL^ii#13WCW zJ%iM$$>}b&11s^S*rJ*6u~b(LNz>8{CtH))6x`L8yqp7cL^NS*WKP0Apvd}h>TYDX zt1bfqI~FE}bd-FhD1@Sr-vw5ylhmpi8oWIV6D)q%@Qs4XA(5@v%Yk0ssQ;>YUr1f{*S98 zL*1upb9}1W9KWt=1C~Vq|M!>2vatbft>&(UVj?)I=rL-qkz$jo;dMg;wpGLcKjh45 zfpD$0e`C{JF;p!ve?5^p{rT5ARJG@Lj`B8F`++0E#_A$omC9*B_H03|A7WF}Q`Iyp zfL$%{hUZj)%GtnmwXl-oT{&=nDh+t77GS*Ig95-y=cEj z&iTElZq&3QwIF15=7nItu0$e8=2Zgps|9+cGrwgc(D&nUir_(ecCcStT{PCSI#hvv zwLsH+ev5*wW)rv*>YU??7i?8csP8|A=mv9D6N*;U4hMD3%^tYqR?c0hYc`=4suneB z;$aN|uMjrrabp5?wS{N3qAPba41}<0YdlgjrL|3R;HyCGRo3LI&z_f54B zDv$x=sy;vrVBJMQ?%aw-`>Tbss+yb zc@#luwKyH*+oENrHdDk}kG!8_f3-N1mXr3i_Sj!74$52F7yw{tWS#mUtW#GB zNVage8k9Xjbzx#y#%`btx}n1cY#|)eFkl0-&^2s+%fO5hrIo+JGxI>eCUhJcYFhAX z(;8F_ONM9aaEo@sGql8swISFZHVefG_KNyl48sVaXs9VXQ(vhjO%9%!+r-I+ z{51g(hExR9sYw&5U{FO_<)sNMRENH2p*nD?Ul|834GT5Us%;8lRgxS$Gyl$8o*4zx zTb{{7)I~Gxw>=9G|K($1khOglOUsXeIGyyWEMsvxpCn zJNJqRCUtkzFL{95R4U+k-8sI>L0~oW5};Z&7>>9hI-aSm?)Qb-8{n)xyd1^z(4O6A zi%|6zuxL4_TAUuY*%Jp$tHl*r@6j~{WUB?<+U!88^Z@`ji`zns5&X8Nq8lS)1-{kd z{AkK#g4o&$DaK`}sm>aTNV5_icy04c^ky2-%KHItwLo$+&q2#Mb@lP#Hv1q!a`}pnox;qDUN6+r~x&hx&~>~^`P{Key%i!_xWL{615VW{bm41f}s{-Yh1H%QCrih zmRHZSqV}dPxT{7(HLh8>sI9(IAHcg07gdv!7P4r?zilqqjf{f%T@3PYlUYgA>X|mo z3x{GeNQQHiyi(^{!}JX3m~b^|!UP)Bt1KI4s`I5Ev7K&#AswNhWq)!qYfwjF+m)We zH)yNAZbW4*D6@fG#Az!Dt=)&V=DX|(r7-9#Ue2Dy=DYCa*wR*=2%F%Bp&IV($iE9x zoA2_L)J6&Umeg`#Ahqu#dX6uNo~i`Sm9LT7kM<*}-6zp=d`k2jzbw%MsYR)qdP0=z zx?EAQuGQgluP81V!r`BPRm_eZAX|Vmw}_dlMWS*mo}wvE4$S99$U0uGm79U=`iP`u z&0^dDyINeS3P0}4;Ci+Qf62LxJJnVfq+~|U2X|GA+vPU1Ie=U($kUzKE;w!$XUR^e zBMPS5Q{kl?eU3o7^&I*)`ZYmxwb+hQQM65&(pkgbKNB#}T`k!2=I8{#T`fp1pNSFJ zu50xA;27fbuYTbG?Y62Px9riaJqOvd1)P?mzvFrZ*wupiy4BeUrPWsCxy@geL20uI zY2ri>Eh(*&nZ?1=I2aAzh^Ji%7$Dta3sgTSxHWi;1N`CZ)m82TnI(4T+N1Zq22Dj3Fm$WbIh?S6f~)D1?RL{MYzrV zF7Q|dh`VxiM!)f}8bauUHNI4XI(TgFaJ6@L8HZr-26JurydfGng?n7A`hHoyTy^9| zylOUi$5m~x^<$*xsyf)qS`oojv&lQIy1i2}iVN?#Dpz|Yqt}JwwIo$N@AL&Fqwnn} zt{S)7p=7i@m5jD8D;XU*r$Ka)k0;W^$;qx#;oXvA*Y!z$;}*Buq08@=yA$e0VS{m3|DFDB zh*d6n_sY{fKdjXn+L}cI3?fiwqfj3@h$gFnJZ+`&*wR zGMvr7=8tdq1z$Wiqi2{EBEG^78t0~g*5$_-y3Z~*WXMnp>~9bEeTo_yXxM}oZTY-^ z@v(a>9gTl=6AN<2V_lu5HmS!ZO2UweT9it~s;BXrK^5_4$|IXXw1!*pM!09yLtqWK zC}^z@R_lpDJ&h;qIqbJFY8Y)rt?GR>$a>2)qriUW7u~opaLsqhN|*%+#fziimpqQ? zhQ#1~POaq~futYJN2<9`SZOM0lga713MH7GgY}|oY_*LErSgWcE(n$I9sb!kkf)h5>%SRU=Ofy^XDypBS zav5M-Eja3*Q?o#AwLo4zzlvRjDYrN+^sE4Id#alVNp)%Z-t)({N`ev#zEqA24hgdB zd~Adyk6ajF*Ezr4IFz3pli<2qkR&p@ePN@z5(${i`+IlnZx*=pS4mLzO5BL{9=}aM z`218=FF)u*eVM>AsZSKYjb09Y_f!$JIC@xfhB{pE*=8db8>ruK_TsAjr|ruUPter! z20J~HL`@a%`^laXAA?F=PzY&;FTh(n&*8mUl#_h1*ofv4QIyIpfo@gPAW(Mp1A*Mx zf{5&GaZm|xYtL~BWM)#I3f#7_I-O<<_-nS{BjC0u$pwE^3)nz*v{e5j2yPaX=N#D& z0In9eS!Xs1erwOk`k$W)_*M&YdGZX_et_j_v7I#nt$Ydr>^kSShg93G_W zp5(}Q6ROqb?aLtDsP5|yId>--#>GkB4w7o%&^uY}?KVDEJ(~t>B&;dnY5bgqY!O2v zHjRlv8?WIqg4D1LhgLK824|GTSUN)u&)Rwba8w;^8%B2D#>c8dzhuJUV^suf{ICVT zdZ((vSL;;GZQeRnLkFPcs9YF0>PuY8HU)6?B`$R?HT=0!f=$zVQ>vnVZ$Hx2edRYcsSe3fe_K?*)3VfbuVoQzC#L=MR#s@K_1N3L%r?rvr z0&NduTl>QW_mS(s62R3Wor!)q>dBIc^g|nk|UFTlsb%q&ikOkmkJ^+}5!oA3bAVbvXgsHdayQ z(KbMUT046?X=qci0HY=NrDg1KPRK9(TiTe%S!a zFB>}fWrHHWY`Ei>4P^YX!HZuuEb+^RB7WH*!!H{?_+m~nQ*NoXL<+NoW#&qo@VXiIM_Zc zfG}%xxR$;FTDehtg37^iOU|+dVLo?BU#Uldz*x2*?gS6d=xYMSvPBfamWm#&w=i2o zZlavpSKkd-r%Ux}q5g%=0e@<-QR;j=sss^rC0xaz36=mPvqh9%ln?yMyTDByUDA*8 zCfYJJ9bMAKWZUhSnvU)vs&N_t1Y>o0h~k`o7TC=eq2Rf2nSjJPJSKcoKlA}-9iAE| zMFjHtqYZ36KNIwNZCq2cT;Yjm+8d8%j4_HneIe-DC}=n=V7?rppF54W*l`4M-YFH&_Ryn=V7?zBo;Bcs%{0p~735 z7vL_LL^tzAQ~d7F5(`p_l`; zx+#TuwBv6;QOob&RA;cBoPvp}BoZ~iN7ojRs3S-9^V_M?J8OjQk7wNjd;Uv@$Jsa_ zK&M?I=qzu_m5PFM*#ZxQh7ESP-!=$Tzn?RQK{*v*pvvf+ISlY+i!+D+Qn9JhRB%rf z8^{-$E9^t>vITMdL>6R}Z|Y{61yb4BPuU&@=X(&?b6J$qf!?VF3F)icZ=1o3Ij1^$ zr^{HvB|BwCz_-lD99{v})A=|OW2vKSd=iM(`8Z0csz#;ozJDIaR49Y|n;ec_3!MMj~+&WM^1bBA)25pIjN3 z?QuQA@3g~4Je%_|13H3Q>ysGHwc;{{Y&$}_g2CyFu?*?@X4tleS{k_RQ5!dO+v96A zc-v#b=WFi1lO)*RblH&0tzmzYHSBM?Yyi}-zscI5rD1=Ab+EtbvLQ#~(3`9c5#BPr zsGi<3JuVDP?y3y`Yq#=N``tYPoeyA2)B$ToAh)*P+J}BsITLA*@DGGUH8#>2`pxdDCB&oqX;_6i^WN=1lZRwG5}L8E~u-H z?nf|GEeJN9Q)hrxom=t*^03#lVR&7(pvv&7{0QKybD*LGJ+IR_INck@1}y8ipF_I9 z*&pbvV{$7sdE5kErzYE>DNP7)>(EJDD0zP^mD5$OwYVZ**?p5xIUNd3SMKg&U`AY> za<1kshGwC8R38N@XRE9ECCFQDM3_|x5_47wm(x*c+=OsBTM_!R4MjBAB395mc$HPc z^Hh5~d;b0xyaJp>h({RJd+92jFH;jtsEjQ%CzztubIh7lJi00Vi@;FjkeTNtD zqy5Mh_lf3gPtlz1%c40q^5xD%R-dApIS!uc1hm5QO<^@4H8(m(+;LawQCgu+!2#?@ zVt`bw@*k4a3E67&Jou^>SJD(mQUJVWi$JJ2tg=}LVD)#ADx1%2!B@4w6*lKm0I%8N zMyB;5-xzew7Kq2^eELIE-v@Bb7R2lx7h;8AtIqA?N=1XuzdBYxt6ES`bf#G#YqlT& zfn26^kLoxCShGdcrIV<(mM*HrwrQ+*S7FDNKEV)ay;c$n(y9doRqOdb6j56pC_^~D z2Vk(SC0ulQgRhwoxc+oys1jtS(E?QKw2_}|-!Tn&)OjP%W~RrH->lPs7HMUr2Bi?L zbK|+h^``^5otxi+BI@9&7(-Wg&+v?t&r0{;ggRVSxUTVT8k~^;r0lN=_cuI)r8NiX z24VO!mz7%#&nUZB>7F6jp2Sy!uvY%hKx;>V=Wm8u-x3)24+9Qr_(6on* z8aC}=qmVvb$!j(W>B}a2c%s469uvc=h8*UHXvpDkImqF38FDyXHY9QG=xpp=E^$;2 zZ^( z)nh+^=6sI}9+!pIAwaEje!oe+dV7+r794M93R!6?Fs&=`j3ap@ouG8KfOI}Cb%g`W z+KL#1*;flL>s!S3y;8t23$l#rlRz8wcUhx#T|yOgm0eWaq^Vf~aO(?322yirZ~4xLZyzZIansG3dV05zn8kaXo=4BaBY zPh58mCxk}o>x7n&eGRyq)bK4n&?}>bM(VJbdSYW@mY8lM^bNZRySM8vQAB4!G)UGpZ}Nal-w&SwMKMLt-+{; z+d0;&?i{dLE5ZlE8y!GEbGC?6S1F%exhlx4mFYRBotE15EtokNZM{WSCH1!QIuKhe@Nmwm=>WFQfia*u zYv8rb^A<;f_UeJy+KRB%xkNXBtt*aYK1YIr*J@$)M=L7?u66ArVOnPjgw|F^lFmm* zIslz5LRVYmD$4kP&uW3p`do57iY=Z(}_2?FQ3Y>-!9 z&`6l4&K7YxmC`~sb?g!4TKq6%)22&MBwj@)&W3Kp2x>A`!?g|GqQqYF_y%cF0$sNE z=Ip#+njJrn;on)A9?oAQYNY%aQB- zQY`}UG+nc7kpH0;oY|0qQCj^0$I<LCBb={?YiV z{mWm@`?l3Z4P})d#{Gp4e|%oF70qPpONC3T#}8MP%Whci&-90h{n7Gqt+Q0_5;7*M zumHn3inOkzVkvxM%fPfun{$0bI=u0+3_8kdP#5(P8n?Q^T*jvwsKtO+0{VL&Vv7=J+`9&3Q4~x$PQ8mESx7n7Mh0HJGN9oVW$pFe zO{s1JEP}5qITgO3Fy|M z|F=!EBs!9+=X(%&g}8EhJ-P%Tv)~ueaJwHmI)_#2(KYIDo#cIF<5=sy8-PV7^+MRl>bm0QqWhI4nv9umR|s z!)(lMS@2&i@MkUPC-|RD2)8>YnXYH*j&(g4tC~boSoOt%`Pz)6_qhrI>NaL_*y;;| z?4qmGB#D~|n@v|9+$PMNg$)~pz$zA*U%4l+1{4~l z+n5;Qo$z9|1Xf=vt$f>+#4?nN@vgsXz!st&&NQpwx4$1vgs_1b@oh@B8lG%uh9te3 zG$FVJ&Wy3Q8jOZc>%v#gDa|^>REJqs&8vY1Hj+#O>mk221MF!wkNjF7>=!H$>L(3wLef(}iK?ZsBrlxKu$b zt!xs*BS6vxHyk!tX@J1c&D(Pc)`AI>h%9DdP+Bh0<>{MsOJ@=UaB)*Y!Q@{8t&`R(eLd?3b{{p=JZsZIel4m29ZRhk2#-z{eQLh z6ok&bx=;sQzhIg;Qn3j2EGeH-_jb6Y3P<27ofFjInW|0^-hh$4;0?$Ya88ci(-NyJ z6{Oalqg&HuFj=dMy4_mWr~WRU&zZ}D)7gS84_ET|?0~jeJT!r&?A{=_Sx~@!yaxbo z{ou5HiYI@fB0Or+#?CaT8kLN&FAL;+IG&>uB zt=Ho*dtK_66!@Au@uEL6JoUL6C1FR z@T0p?@9)gdLS?ySyla8BP-RPh4V^V?Bb%)77iYi*ZhHc84c(}7YA)i+vkl&&PM0qW ze=x&0Y9|!WxtkckQB-hAR}JCz#Pz~(bvs!5Uk&4!7yYYV-e9;2i`7RPlvdj;D}@Ea zwRfVWw7Jb&N*i_HTT07?fzrN{>N&lndYt?Lyt(51j>G(q<|CusC)IO$O7)z+EY$;} zC5i{>XacMVCWYq}r)cgJ<$ksWoB{bd3?chH?yMkwwg}m8@jX=z4B%&r6UBSvoTFNR z_t}B~rzV0AgxAg@G&K`t(B6jUEJ^&;2?p3_i}1)Sh6k)y3qmjQfYz7e3(J z>+&?IbYA$HCS|Mb&_#n5NYhNwjwu_agD=Gx%?Yb_DwG@!0CHE`tMt&nj5y zfl0)xG#*=n!P*8st8Lc70fvEZ>1`ChZ|N-;273EWqUiLJD7w~+s$6FOMQ_tLMTu4Y zXg<>0eF{aVr$W)`%L+wDl$3DTlD|z15n2D|qC`n|KLc=KV^W|o-tLn4FBXKhoy0X- z_dn>Z>We&(K^hqidqK8{&#*;WGh2aLpqexn0AeS|7DVY%xqW;pHUb-~mfdO_j;Aw_ zSGN|xuNGHM{1f7|>{cxlj8%^!TX*yHyK* zHX}hDQ9xg3_I8zH_R0#ue6`r9uQkprke@C1oZ2M3p=Gyfv26<>cG#`H1vmWoT@IDD zLd9)n=CIpr5k6KaidmmM+_GxI3atYlAp+VAuk8FR5h9=_oPsP&K>2J!uDhNp_Dok7 z=S`h-edvI%JAsGZb*szhs6j+c!74*Kd~_>;sR&io2|q{bdlN07ucV_%Qa$gLyue;o4jF8s+(0_R58Uy}pxOI=y6PBnK0&bq3ZjZ0QL&pSKE z$ARS8f=^h}p6>FiR6yiG9(GzLb%TYoW(yAbPD;MZJplM@L73`U3Wrwi4QJJ{iW;kF zy|)1eYC*_w9;=qYs>Oxq(D5F4F3bW4yq=hu#}aH;3p7M$A0E(dtK=Y#`#M%2yN)hH zHHY*9>}rA6c+Twt*LBVb#h!hfuvxVr;U~Kn>I?$%x)O;6n7_Axe6>K4YA*c>;_Lfy zyWeJx4dAN92ZP*$vc$n34G=!E)8)#GBswaJ3oH+x62d{IvdgRbzd{D4}t} z8t_HUQ+1fNu?IT*xHR$}+*4aM;WR;Z`g#}qwmN$c{T69z0zhqb_UypCr?xtKayEsl zqxIYB3u?idO$e*uABT#KuhSrpIM?D*Y~m1XCK^Ap!5j|orQ6kT?wNm>r>jPRelwtp zv|uOvPCE_hcny{&26gdKx4KKkx|ZDPI99qInOTNkdk8RWR@ZFxJvVGNo4jSS zAve&nSuPB0_MK4F=_M3(t65j7_V8m5KIf(QVn3RXymp^X)aj`cb^5YS6ucHji|iz^ zlGG2qZ$&7I?tc1WVRy=FtHS|M*I^*CaNZ%|wJIKipQ{Zo$gLuSQw|2(@B-CxApT;xGJi>d>uNz(;jDfItn2D~L~zdM zUwtZ2T`f3=pDQK+>S{sRfH@o)OwSgSz(Qhcd@A^>THx!RM>jmP*(98~*L9^UHMyQ{ zeGGy&BZ#JH27lFN0M#rB8-)Y135i^K$k>ok_-i&n!?UgaZ?DNo57GNb16|L$oZqBw z>GA}i^Y-32hM}*zb}Zhr;rIr2q1d!yyoPpAGmU<4cs2A@C-0`rvLVTaceo}?xj85N z26#AYnlUnrySvM?Io&tFBZq0J?FD_+`R-yK4CMN(FvB(cJ^BYZYsv=L>%A;A<=>C5U> zafWiDP(Z{7-uVAyodU>3u7M;9x|N|#i8zEcw{ZvW5X`ySVqu0TSN`81-k{jvjwstXUb=O{#DKmc4rH|@Cox6 z841v>76)S4y5ufhsr+nh1zg*DriwuMEfCr!TqSYp)&X4W$SIv}P9(wZY(cb06JH1o z)viBebQ}K{U~PjHqhPxsV6CIjiE#qYxeRr7smbxCEv? z+K)VLpXAf&Dfx8zvgFg{2YeN{;Bh=|hmG{(>Uva(1j@$eJ*ox>0*tEmawe@gO?I^a z7j@)FYNo_bp>Nh`dvK_lez?##Yfou;2@BWuK%#bZyI=CrL_N|25witfvU+aW#(?V3 z+%`E9Ypa!J3p~FMiCwCW8sIQnocUOmdsGY1Fk9f$HI1gi-2ljJL3waG(lI=3b-YML z^vYX-&TJ7SA3O)6$UvC|8V+@)09Bpa@F=IhdUy%W>P%g=?m_iR0lhlz2s9N^2mtF) zBez=`0mC|OXJduM0%X>4yGb2^E>;h;R+H`6L>B_uw#4-quyNJ^+PY%b3Yq}9j>_E< zE2@hnfoIf+!fmF-9GeG&fshBDB-i%E}e;4U(s0 zq&I1jFTNR~ahSe*FoQIbVmj%1>#uF(43QH-Se>p3dy*O?hvew8zkV0Pu|0ItfNT$U zg#9U&EP2c~gS9<(fhFdo z{7z{pF1%-iTzx7n6-M~Ffa}MVmY#R|Uc=sxp1)t6_+R|^4qc`5Q&;KyWnHD~50}W9 z{)F|C1|)qr{eTWjUh$Pq{DQql4y#X>(|ow~OSK@-AH~pglS-uiLoE(Or*L*|9++R% zMhGhzYW!Lo@ot`_2zytlN%}_?APMsc&?^1-t@n>0);SpPcWObc5xDunfoG$Be=M|q z{-F0D$duBr4b`*xC-7-LTK|*&E>SU5P8y&6&uT%eJyoX4ll(b-emZ4ULm`ABo% zZf~<6>ixurgio#-ANNylwRP%0Kl72(g6Ca)+rRtJ$J&|s+Y!#6+vzy9<8{=fh8zxnTf{O7;@Pr|(4cnsshzz<&&oO=SX|dSCu6A z@y<&qtq>qX1~k35mAinq`FHQc8p~-}-P!?PwYVN+PpupS>{W|MrB6@Qxed*NQ|s(# ztd2C0*ZQGypVb23%@$}<5F=O^6p7KD9p_&;(mkXGlG)Q*+Nky%96 z`*;s`-eeUMdKA?mqG7x%UQkm{#(4j_~Iwvb~oC(1)6 z)q;*U_Gh)NUh27v2ap%T&3Nga8#XBRxx z!1Ng)*_A@_;f}+P&%fqb3Z9XNA#|bM#Q^QbCy-b)F=Nn4eY2!;ahp4B@P^-hnbmCg z#+Q~A>aKj$01ltLvCC=#xzrWfxlIk!BGOa;s^`&A4H**UV9nXMLEN5$eZx3vW7a1z zRBQDlA&mB(E}zzbY!8z)B-?Y6Z?LvUjvd0NeX+T!iP7H-*!Iv;L$*C826GMB%+Fn& zk!4*RDtiKpvjr6~SNbhL zake1e44I&jvw*~^SVG!)<}8(a0mN#-x$c}U0S>F=#^ESsKU$`#_aIe$POt!z)#7>% zZ4LV-0EV^I@wD)=g2FnYM4!)WA56{`a8o@6tt$hBR*M4>tr^)$KLBW587IW#J5Ob9 zMV$-+HpkxulGWm{EwVd6WL?!~t?^fT3m~fn%13!es;dD!&K7L_xI@QP4IHZlX)SY- z2&_{rU{^~`BU?;&J(6h8v28USidLcfJ#i)IR9~00&mb1EA@!)bOlsVlIw^coulcBs zn581O2{Sgx=aO_=OLO|X$Y*Wm12zyOjiBMVhI<6GG)MIYb+JJztSPils9+Rz#4 ztX$Uc4WI3j{u73WhG~1)uYuYg_FGVG&3+Bmc2L>yeCAQzV*)|_s)@l`;~~wz`1S-n zs>`>el?wxDeQ6<8()!Xux|GzIv(~zQt_XWGz|fCIBURlefOI~EhUWRp0!YjkIw6re zNu~JEi5a0m?59jOWcuG$GG zXg1}Dq!B>|9M7k>x%G;gx`t%MG^#Ivxms)&akJFn0n5$eET`&~GXdrHR1m(@k1j>V zdQOUwaEP@G@~bEw*M5NVIt9d?c2reo7OB%rLfZp&wSc2{v6QyPZWo~}bx6Q< zU6r(-UBJM)uKepIj+5=90wmW~N7BJp^fX(LWy#B0ei!W4R=7@=)rHIiYCSW4stbt; zU%H~r+GQkz-MUf`TU&cYb*Y>*tf0m!kUk@KK~>$za`kuOBDERrge?o6o%CS7@x2k zKb?~sw6z&s24*|T@O(35+rxz6sQL=7BN`0nb}-@KsJaN2OqhsHd(+IM&HMSXNien) zboiFHMy2_dw{l_NtuMi&%3EK8N0*Wdbj~&HU%5c(?YAgPF!!VVNMQgILF~TwDIT4l zibvA+T|^83^4Wqt3gMKr zu4c@E8t;hfxAp!1neDJnre`1#qWEK}C0qx1Y-s7rqp7kDJy;+>) zFtyGHP_Gte#HGiN0&rg~j++D)wj9<*m+blkxV7h?zFJUNefD1h`npP@>dDFvYwPN! zHERl4WCzf-%Sp94@NAW^AE*VjyfSUAGst$3El76ZD{brtyMbD4$jNp@H@Bh)8GLdi z(3Byv7y3fEvhh)Z=;~c~7TE*Jb5ShbOmJ1#R$zYq;X6hC8r8`Jtf)=ds}(MIV+GCJpfRg#Q}iQG{t3NdeQ<7a@+0Y7tFq zbZiFFfQ`U5rK-I@*6~(snji;*Ha6L=B)qN2hF2H(TJvhdua;LsUv)U`XY11jea$92 z;wyr_>bTimn)>dBUVC`8LD^gS8l~o2`pSiYzP<#FDt-MBG^&Y9Qi8uEE`3}b$?87+ zqVrR~==^p4BB1QSk?{8~%t}_ZFh5B}w(S)CqO%GQkQiV6YQT1G#b$g|-$B`^Ky8&x zxFA03)MmKV=V1w#YBs^!SPnPbK?w)VCMe3QnoQ3@?G=%A(id{~)kvwX z^w-4v7Br*Uy>-8Fw(3IS`+niKhLGyIFn@aE_%)=9ubGvAr$HSwqmVf7i(wrl0V24y zR>G9WzZ2!)Y|DvX0XQqS*?U_R83d;fU8zTdI8F$)G-X3J4dW>GVH!T29H-5mh0ZX0 z-hD$kB5Jja0_)vP;HUN?HcxL*NAY+ia1E!0uj+fWi?8ZTSY&b&&SA*6BUB^ktG*QL za+n1MZSE>vr|OaqYo{--JIuS-)~F2M@>MPjeDx(^RQc+Mgi%eTl4|&cuYOz|`RYFH zqVrR`==^oH~k`l;x z&NVIJuGxZ5?)yRm9DG*`YKYEGFyLLsXG1`9q`siLS`b?|2O|RRYH>$5I=%g^b5$)+ zr<%{U!FjXT7U}U2S+yWxY)+^L<<)|MPV)=`@;177d`G$jk<}UGGoi92U|n0`5ua%o zsBUZNvG~3M;&r`VZ|C{*1B6!#61ysggw5twgcK6n+&NLT6;%o9I~9&oZAK{Vg6M+X z*(CII@v49R)o;k4uxf%&y&=cA8?@Pp(~!z^p{?5Na2IjdTGaI$v^ASVRD*1VjZ6@( z(`<61jG8$4ns8pju?vZ_eiTr}h0b7!J#2 ztgfLL6SfqjH%Mc`3Zrb8s=die69curR)pbLGbDy#yjsA`QfMSdu5dfP&zIp0? z^Z3gJ5NLjI`#c&q^QMWYgqde$0T%^?sSh@YiL0rqL}JPh6Jq+VM%0PvyBg8fldi^U z^gC*TUOw7Ssp>vCqRUf`=CQ=8XAs}As z_;2UF-@#N>AK-eGO|?7Iz;qQMIB(((?VBZ#Zb}koA=%vmL{|%xuIIsk0J>T{R!J~` z`)EPX=;1y-R(~p7u4Yl`bi-fU|G{~+I8a`H%7%e?eUCft&~{yrU0ZF0gHE3WU{?!5 zedjJWa9zjwu5+}{C171GD1|%M_=KtI?Bf`J&TRp8o3ET2Ccmq;f_BXh%t86lf-?yM zTc9W<=o~z<25VLRDRj6&88t^$-Y3v(!?MQ@>QAn_1ox^At7!;j_o|}K zx{|Fy8zPcR25Q(=x++4R^6|eeUh^&o6GJx^?;g^sOHAqsM(?uW+cyCy9|=gSj)Zkl zprnRx6gW$&nTFp>7i`g11=?k{T+vp;&F&oKBV0Rf?Q=Cadr4cX9Dby&{4k-duM~+c z?}|iQPrH)B``-#vStGFZqtTSB?$aT9Aj*`caB&bOQ7%EgEPwcuc3p4tUf)!9e5#oUDql&i(*Dh~So zRN%U<31UfmE1+CkQA=)4JfW(i1zVT8oBBP<*{UX0fML#V0d_UPk&vmXHUlYgjKJ9J zj>NWP!UW4eZvij;aPN4n8HnyU2`xTXQ#1DCE)rx1bK5YHG6og5OfbSTY1 z8cYoTvU;UKUY%jcr(|HthIxA;TMhIe`pa6lhI+(Ngja;M>M}A{BnvcTWQ`_#i^ZT- z#m^p8?3XoggQc%LoNpcJB5BnroSm!MrUw%gEgjqJlX~~fP~V8Vbg6eSdC5|%f`4SG z{4imuuLPGa?}AHPPqGrNfNv~ynq>9Seo9#P2`*ipf=ib#3oadT0-tg3oj?9H@WlTx zzSZ^v!th2EdmMlYn{Y}uPdNwDM~l+5m7}fbX&o&%;fD`QPu~G_wRphIrxxJ(Xn`{3 zN!%U%^c^_YzM>k_NVfXU44SJ2r%Ge@cG3u#s|8$Q#ETv`36(Vq9&1=!v8<{+6=IPq zPpiE-Ti?*T(d(+cd((Zq_Z6tF7AFlN=oWywj`@u+km;C%@M=LRr*RYSGZ88~TAY8l z9k>1@&{u7B(v#SJT@YT^1Z1L*6rirH&gDb2a3mP(*a*g|*>K_99LB09d?WR{S5&Ju zqguzjVp)X*sL6o}B}?b(XhO`~C}Vd>&P~{>&PNVnVx0h;QAa(5&xBPcNW8rP8Yvh0 zkr1ARvm+bHTXv^v?L%^%r&!jKCmhMp>AZ|e9c6p&FLUeFRS?4l&zGD*q6 z>w-5{ctJR0hKTA~lR6_zwN7`TrP}!#5B(x?RYzi7ht>cLwjZ9}Fso6g;EpuViX78m zifUbYiVi?K$84Cj4DYN$0oso}7Qydg2)0L)q2XCzpax**ck3VB=ycM+Y)6%YicQt2 zW_JOL18E&iUXj-8D@~~S;WcUH*Q^Qk{sW)=t_k(L(|1j%_abMX@8Pkl-Zd-xJX<$#wzA@^Vo?SD#1GN8 z;a}@LU>#;ZDK*MIpv zj)&wJeQOJv8Xo8+mX$lCNy=>O0t<-Vlw&rhkD18>A&t*cq+u z+U6w=B?%1FcDQp17Vwd15ft`dcxA1Rf_Jwgol)A9d?lBC$!JTQAh}_${4im(uT-os zE2?|EwdAY1;Q#$#v^#2DeQ!UdwEI-7u1^)K>z7rmj+MuFI&#$d{%@zWCT(-^sx{3G zEB(MCf+vR*ENO+hh>Frj8mo#q>?QLum%pLDz%U{tE*z!mV}B|DU*8tV*101Uyf?j? zv#6lgP!U=3h3+X+n|^usD*%6 zv!HzPyo$m<^&SvkB3*(X*47#$H4ii=oFBIF>Y zW|;}KnR_cku=0zBxDP`uWDLw78QH4Ngxiuw8g7xukol>D+sY|zScUT^uxo=VU}PD4 z3qKtng{1Cf@|%HGm0;^#2P4%LdG3vhgW9s~(I>?^br6>EwYXJnp_xhGt%gl6Noc7F zL=wsm6B7DL-RkphN# zYo}y@v^@z?`qL+YTI$ef_y++l`e@S+ed zYS2|dsi}y+JmFSVxNXPx16qTw3)J8FikldAFIgBA<=@#~Zm?h}c+UP|Zm z`el)*I|c8r<2QW_AC49T?{DY669T4VD|iFd*%K#Jg$H6p=lMN= zsfv=EANTR|weRm>>1aVziE6w~1XV<{3&a9iJYXnCK z5Uh)e!n@;k6$lovtmCd#B9c%OP_2VP%<_Wl6@Cq;J}`J$y2*_MKU5PI@8T{E(W+)w zPpr3rzzN)28HiO5kNgFv42)2FQlGcDh5K;~(&`{d?h+#P4AV+tY-M7ghC^ed@sH9FLd;36G4ch3jepv%Ex~R8-JC3*B zk!$m2SoZD2YIw=OPz~62$QTuORLoj4RD-!abQ3-~-er%8f!+?2@@$TG3A}Umvw>OQ zo!R<-{P+L)fB)-$^3T8h_ka95@&B)QCqGPh=eyoh=bi6*PuEuO>3OHGgm8Wc5lorr zJ_V@jQvvGwWd$e-4ENqCT533}yQWt&@YS+03 zcs^Q?<$k5g{O4ahTUR{_5b!Jeqbbek7tdACK z+gFJYj9E!)aUx=5I+p--pWzyZ*7z-$t`>yq#dG$tRcW)yQDgt=1I5*XFpbV{0d8$| zG$EjVoDFb~CRKu70@ng9gRSbUc~JCIcSq-Y0K86!bE`__Ca_hV5$n@f*s2cjkvgZt zUvPlJR&~72ErC05R~x*F@bOk~S8YY@fyJ{J){(BG2X}$)!d-PJDoDTyuHoAr$EpF` znWGKicp>W05RSU2%jiIZIF`YZ;2Oq3_<|?dU~LZzHe7=RFa5OeQ=6bmu5Bn6{j`Q_ zWRvM%V7Sm#n`_I5H)PvU0;%Y#&b9tv?ofrU>VmZA0vX-JfNl?uZm759(M4Cs2iwDN z4fXbz80rODJ3hoqcWRaBkM2}{n9$mHS*T8H-({h$tw7Y(^h=%t{Mnh!zxvU9%4+xN zL|vacQP(f)MAb0hUWIlN69#%5TYV^bDTD#FK2#5Bg4L>w0;lf=+!n0>)Q=W`^*kLVoz5(Ws7G#SaB#JTB zhiVqG;l^`$y~lxChr?6#djS9X9@}LbchYz+uNDM(&a+Jbe;tqQKNM!A@l>791O2)t$Yh$=Z2U_iX6cHj1?uS&2VdnAV+X~Y*wGe!aDLe!Y>(R*?y57*7;a?+&uxcy^yw1l*lb3w9%Kb+^%MTMi`>rO{`Rs?9 zRIeR13JZK>+JBCTO?&Y7qy3c7?o*SxKGmeIUssdjIqxTqP9Gc_QlO;s+3}@_e=a%i zo?EYy3JAo=?$fqdAYQc{0OA-zY62^lYbR`=y0)tD{wXyA)KxlUqs;lRcKT)yrfWAG zuR>M(QvvB}anY09NLAGWiZ`d+0J>USH%fbb{>2ahwSeM{eHE#yTGWS68&442dXz+- z6gH}@PVnAgq+%$5jx7NS{qCT)wyMFLUKdKL^N$17dEf&Ot`VR*{KwCq&a?!0y z=^MnAyr|}fr=q7el+VmV|7tK?qv(K=ju4XyRUO}W^SJ&%hz;3rAuls^psK#4Q)N?M zpZaAHyx9hA%|9Ak(~whL6qn#ihmQKn>CbD(hTNIXWV2|j8ax9XEhYSI~KUBbgVg*9N?5t31SbiB(;K3ZA; zk&p7jgpa<it30^#d7HtRg23*XnBvMfR3t#Nv?Lv3mw(DNSw;N zekq8p7StY^fAoOgqeVs7Ui#<&+1d)}#`$&2bE+oC)1@yr%IQn9^43a>M)1jk+T)d> zJru|9tQDlzW~cj#PV=>{Ce&G-2XI$T{b<6muts_Y)@sm&61ygzhm3f`uBz@VJAN=R zAfv!;J8}w@Np<${E}cRedU2RaK!|==`-Kg@@VKdnYKWnLg6dG*t9p=M*zk*jeze_nx4V(86RP9G2 z?V-d|gF4MJtkH7jY_Ru|pjJixNKpAAaJRHl8hBB&qDrv!DMK-Bdq z5Ow{!KvdNfBQTP>=O|Beimogg%vTK+LL$e}k8D+YfyyhLw}A2{C2LK;@`sNA7s|89$y%n&o{Xm_Tu_GcYRg3MoU^F1STHLAWI(7U4@M`fm zFRJu_?`Cn3$jSa5z`I&-FgGukiHAWguBxon?*X`5@5)C)W!4y*2itYjNC%mh1OnRC z;&SVk1=?-;P);-jsp_=cC}2Bv5(4IGanjwpPdK1`w5Xzwl|I+{>6QUXa*ewjfR9zXrI4h*kjmlSP#ah&h-YE|XHkc>Ff^3MmisLq&YIk><{ zb&NFj`2{Cclau9s#WJI#2_b9h0QJ53 zjFi^hb|^q?PX(y$$0$G@Z=8)&8S_ew(c`UU{mV-cZLV`S9qC&)kTKGIW51%ton-ie zH1jjYU#mqGzt^PTwq^ZBEpS#qUDT&w8|!b?;z}f{h!l1I+wat(a#H22G_h6d(evdz zcL)8K-vc^4Kdk?~TQF$j5=_VY{!}OrPy6bR?adKGo%);qXmr73iw1 zFN)HSrvZWBz3GKs3Lfs-^zt6hH=HJ8pxSOS~xlXgO8pd)}uzR2c^n`K`NIu z7YyehmGPwCda@$G{pN;j<%v!w{mwfA12_EIqu68s#_>Q3J(YW3LX>Y;b+Qf>NBPqu z?I!I;z^n=|ED0p^w1wbR*TzRN?rCH z82YJtE6A3Qh};P)aI6*^>~nak{vOazwV*oxJmm;vHjCpz>JwmA3tZXrv>oWDS}4B> z?l554dRG{35d@oMe|C!#HD8BqsapWpIx{#QoxA^_qBfTZRGkuUpj_wZ27{VD6-cfY zM91{G1Qi`yv29&KxmxI_wnAoNu383qj~4hhPYV?&j`_{xLh5Aak^s0~`NZK$q?}_j zip5{#WF=4|Fnlz@t3_;rj!I98vg!5Esw9C-!asHFH`J2VyWLazeeg8~G*BzUG$M<) zRjmO7I3gF7j)l7z+LioxIDj{V!>yHC8LCm~VVR)cVXYG-12P=NN<9KgGbDQ^%#IKq zn3h3VEhFU&kz?vSUO$+D8O(6`E{10D7~f{SxPr~;GvLMvA^P*KAVV|U%8ftlSUoShq(rLtu`3(By>?$Xn<@Sj>I_Xi6^b$tDo zM78SeN21CP6QcSq_0);#htyNcg4#q3z=KS`|2pNR`=p+>r_|H-b*U$Eo^aQFmPxg@ z1JTEKDA5O5{V9oG-Zw(wFN+uL=KKLxO>1@Xu8l4l$L0pcV znSt_ZaXLs)MJk?ZbN_bM<-blk9W!bQtf2UhEiCnjTl7<7YyAX4u4A(0q&>%Heeb>T%WJ* z3~U%D1@Jf$>Lvzqmmkzyo8mGJkno)#~Ne0`3oD&?I|H(I7jD) z6fuJ~KJJt&h3tOAwyS4Tg*+z%H#T7Xi>XmQ^VKA9>jrPj^ZYj`tj>HOsAo!9o4{)g z&32R>D3Yp}(>Zz|siVnDl3F?qk)-m&grvUGd)nUho^CBQieH*H^%E1CKdpef%-vz;^1LypRV0t|*aNTrbP7%}dM! z>MEH+=%0bQ4Gs)e#cR%}hp#-YF7UA^@(#SK#q}svS~@qyHK7(Ia4_^$XPO}WXu%ib z7W5qfcWniMof8nS-L9*7%Kh1ac6)YWZl>c5vRnUL7e)Jld9^q`w$6D$b{*T>Ln6XD zj{@dxHsHjY&IV9kXWSzk5rFI3=%Vu7{XuZ7s>K1d%ISlE>Z1idBuzn&=lyDN#uYjp zsB*H7CZ%;RPNeK`Rg;Z!aM9ta%`V53r3Go#W);xWuLe;an<168EKp^DcK-p`8@HOk z2O+AuHf}muLKLY%8u`*KMA2!VVH&Y?nx2v!t2%p3>NI;a*8-&+veJKV~nTTuYxUHC@obQs=hn6H-&4BEi$C2uXcfXG|^D6IgyhabJidUS@i~L)F z-LzyhT)l5n;JRAi`I<9Nxaw$8dd!P}OT4XWLDAEZ5O?AMSJm!;caAs{qXX1}VhSU# z?-qdlXhD<%Um8<#1J!eqWiY)5Ag>nJtK>@bnE~Rf1?z4e zrvTuO7VK~*iG}F2w@9p-RPNuL_X7B8!uMOBO>bbnHY3bo5!(vpk0#Hu1M}F3H^{A; zTt%299Cc6}z)a3s=p#^Q$gSSxNUDEl+J<}V(Ih$aW(IbY;nJYrK$Q*cD27@!cAeiD z!f|@0F3wD1ZPBaLZ}90tVs*7x3~S)v26AW8gp}d+cQKT!Q@T~UcQb3}G8)7=c{;B<5K96W%v-EP zC_G?jcOjZuh;yLl4es;=Ci&VM-Yv7wir^Y5^`|dNYoM~?@a36RlT(imA>m3Iz2vl| z6%aWsKTJ67D|M^wUES)|6Rt!|q6G|m{5oZ@`?RdKYpJSkU)HiZ@-c|h`}2^pGg#G~ zxUK}N!E%+*AYXLpdNmoC69@I5e|=j8;YSO;8z})fwE*DN;=xH-+d2SveOn67^kZ{q zt7&oQv2edGkUmr#j^gaR5)#7%&bT=g!uB~uZnN!7_)Mi%^5i;EV1>7)>pKM-A+@dC6(U@KD_X=vE78M~o2|TNR{Of4EsHM# z125#PNPQdr0--e|!#AZKq2LxZScAD}ic^jf7~h2y96gu|KGFtkswr4B#OYx}HhOG) zoA53Mb9gT#Fh1SIaE>w?Rq-iMRh!qTmEjqF=oGGEc!nQ33H%y{l}=aqG%?(&Poq^J zhyfRe5G{$%eb3O&@$E@#QQFx#*_%NZ0l1ntAIPm?7m*1)tE`Bo0^G4P>mr&uTI!Jw zoVSRkF3*tn_GDV4xAHr)QyJB*iugyO$qy5v`K~u*iBde-OTDS*oh-B8rY>0dp(!xs zoBLFzwx`O}_GOi+6|JCb!91iDlpZZM&Od@8JHV{1?znme0PIf!-_%|_=#JMdfMvB{ zghq_*3f0*FzMV1P*#iWyr|O&CaXmijhwmx;hs7M+qMY61gq78x@P06$D@9o z4OC$moviVwUuPTwV)J`|=W4;6o|7TqT-O1!BfPA`?7V4eH2^v_;zMRmoi{&?>yK;TzdHrAFe{f`;mVp@#xPpoEesBFwgPQ*;iMpvS8ay2NANsCSjT2~?$G|w0S$yz=Q4pe zon?XYI_^DeBNPDeffte*xSZh}x*(cynK`Ns3rcUY&&7l)?aRk8xbzI&AXb%C8aS$6 z3m9MA-XM)H1g$dFolkFuY2c=Af$XEfurhCkp(uvz+Sv|qMp_lpRn38T{@I?ULl4lxz5v{&7F#szEuKWe2Y6ym( zc6k?ru!pB$@%n+>j-9+CS-kuEk8`i?Yj_FC$}$!sJ2nu;3I1F^F55u<0klMKP9*Ol&H3+64mx~B`V6A;7z&` zi}UT@?t>lQiU@NHdr9opbW2X6;&3Z_1Q3GY-|K-!D)Kur#LIL)fIvOo&bp-PXhJdnRGNN()AG93XSkf}hx1z)telNf|7G5|2BZr z+DL>)F#uzI=w(?SPOlBlu3j*eFB>;8Y}->vpn+SsY=^TIpRSky?Ue2!uaE!(qnJ)L zw%Oryu84rq~RXjOe)i{DBSDisZ_{;jdkvi1gBLk;sjk7o}_z8!ECi46>7xR z?lA+h^<}riA{iX!Ia&}{L;TK^A;LV>;zIJ;)B^BU3w&~O3$R-)NHy)u3b?jbso*CF zZFi?M_w;!IXnRA7Tuv=OYqh9&lVNQ8NCDP5QiRFP{f=O@TG&1t{ikYiJV_a{&i=t| zopHC5_{=+T1-8|KK!ADr6R15}z*jCB?$_2D7_JuARkU$YQZ=cptm$GaN;;ZUv7S>1 zc7=v&Gb%mJ>n&8-Dm6hrpnnxr7^*fqY6aI21qu%xO&)|LtSUmmLq`)rIz>ey#Wcc0 zN0W`PgjHUUfgJ>(#LTBeIF|N>%!6Kl2EL*$fqs|b4+)NTU=DvM=yWog|7_6 zb`+j1YC7KK6*axRlA)>}UQ<(keacWZYWn^|kfD0sX}=8B_vSOMT6fzaLv?$~P~Cov z3>Encq~K8NkJHk7^O(vzq01ykk>LREmwatXovw|dk4(RzN5{^gC~LrS9kOBz+(JPq!eraK79Bms;SQMyqyukKZ?o ztJJsZPxS}4z+E-&n|+}E=oO$86_vFP0`Z(Y7_Y%eqBm6%)d7NsTQmcv<9Y=;a_fXdV~VDuuxl` zkE`Zr^@xCsR}kHv@P=M*PpU*#imBPOyHVjmiZlKF{DLHFzrh z64?PmM8dDa^c?ruVDf99Z6}Sdj4`M-llXd1#M5!}9*L*5I%-OEpp=GJr9rmxnHpeK zrh2%rfmD?r3XWX^CO!f5?tyt3GJ%&%vS!ePF5%LHY1l*of~BhcUwkEMkaa3bW$1Kr zB1ez8pVY95=mw)@-Q@3W=`E$c47u(eln_F74Z1cj@)}GGyLLqPLP~A9tQn@^*p6rk za;6+Dm0jP}K#$i%{)2$p7Ac%1ZaCP~Dy? zRJR|aLUl)o=tk|SZ~t0#SAc(fE7FTru~^`~Y2n;LLM>1~wnByKS`^nDt)RQA#~fkL z!^G$W0A8x2aInuGXz190GRK5qP6-W^RJ(u_lX)I55U&$V z*T_QkvL%B%?LV+yEzquMlbeSk1MWKZ4Ak5LY`58R7r}$xKR~bN4X7K3V{V_fY8;EZ0^iz7(gyEI|2a!66~yt5b`jq-sJn&lquP z&CpFA(Kz@bfp5Js2m13^92}!!0uiAG*zgyQo1v;YIeC0J(Tl`Y=iLEUhJGXU!+IOy z_4$56v$4klTQg{*{)nk=CXcC)c%-d55agIFy2$V?m96ZD`0^xt4lJda4B^Q0-=ThL z>p2zOgwN`NtdQPbBh^;dCGb20G8R;$AiaFQuN3L)6f0}6hSy$A_+aS*R5tC6e+Cl+ zHcs}IcWKDBOJ`JkdQ-kXEV>GBL<&(UL zjk-T~KG0noRo)6#N~!(n-T^B$EtHTY4~&nEij;2iz%)=?wO?>0&Y2zrb+o_@s%P$f zbA_?01*+F`{t2S11_kv#B<`URZ5XRskn%9TM`sD(xmu7ZHa`l*KcN;ljOVUhuw5-K zM4=7C+`U=QSG6GhZe9)+)VJPMxuqVN0hLvY6D3Th>>kY5S#skOVoJlIvNo@@_EG=v z0r7S2ZfHrYsH|EXDW#D-s$;8Xo&G)>KzVINOwK$$6ObP**ljg0y7zn0S2dxs{NnT- z%vTeNt}jS3m_M43FRK|P!B+_8k0!{(NcoUM%=Wj5YPBbWuaQr2ofBHXtC)PCvO2^n zww%H~xfnbG~uBEALTu_Bw&{Ts#oS>>^7kr(DgAAp*6hla-0U_~@;f&m{ zkKC%;0GMh5%9ZfdZ zqY8;#hJoy@`WH-Ky}CjyzBN1;tk)2+k^Zj2>R^{-SFKIg=qg{Vc4L3RUNOLcW*6%n z@6x(4v)<9 zXUY!@9h52q_>(*|g}C((OjqCbLAdYGKmDmddbOZJuI;(@F$mLDi_=-|5yJ&^oGE=e zkGF;Cs>S)ZMRuz*&Lo8U@i)M(76c*Av){mVo%;{IJEwCL)~gm*!YQW~uwJz|QrUQF zQLJ|~sfzmx9Rs3S%>)X!sL2ZJ)w{sq79~Yty=rox3`7q@z@soWqX7CzNJ-#rFkM|g zQ1G#n!lAxF9h6Ms(o^kB!#WCXSqYZTryKB5z{7yAhq?N!(t>{B+W@AklLSfS6!Yry zqMVw+Q>%k?X+@yj#4wIb-%Gf?Vch)(@fQ#?pUMQt6W=JxDf}e_ur`#l?EV<@YJj5C zEtSbKoTEm?l4W0+GVV65{e z0mp4tquVz0XrCFtxXp}KQK*#!uo-th3XkqzCP4al56YF_7E-yeSG7258P~oJ0CZhB z91<)QSk2^uBYRGG!FRn2u`~Tk1Mw~fhOny1MN$T{UX__t zh)}1(4c&-U4e=KSX?3m)l9 z&8X1tyxj1NI1MQilalug-1zod=6@NwA>p9T-H<_L@J8y2(&z9g083RwJY|-u6XCqn zQ#DNEv?>I8G#IOiYoQ(GYSjU%JaBJhP(|)oZ(}(1s5VY%4W(Xk&yp30+>;+B-1A*^ zs&mhms#7-+FlgNKZeHhb672)v#F|_ zx;q1GHo2HfsOSU5G|`AvflScYv?xxJEz)-rz*sG|?K(n8ry*eRXu%njDkF3Y=%!jA zH##pu0Nqpzgo)<+JwU7$h~AHGxBlkf@Muw)WFi94$q|@r7F5%jI+MX?vp6os19;Z= zfVIpI;6Z2WD?QKd+yrn|i|e6MtBpK@$J*+|#F&z6;8^Dp-#2qg3*EHY2mM+(OV#51 z5IB!?Q!NgpP)$FN%2_&^puiIfij{v8_p zDULXM0{1msD@7rhyn*~RU^{CGuRvrC*>D@6HKA+7Ii5iqzOAISU~mR^Re_SgN)6AD zA&`=5$v2gA|7PHFFmLF>>TdSeWGjtYJu3!oN|Ky zqXo2fL&Nd&ukXLWzgiGkFpn(&{ng@*Z1YotUg;7LbSOd$13v#qoF^ zEn*CS-J_1IKmYnuu?y&%Kd1^dC6jCdYEc0#)4pOuu<=-(SF<0e#c7jhz&>}`4s>3X zBGc4s%Wj|+d;rWf3)l?Q0ze&|I-O&(7pMiKBIM|U|6{WgAG1MvxOlBL!`Zs<&w}}C zayr(5p?y&luN|AgYgZBFRJ1aan-=T|S!D2Cy$ih;csU>H+6;A-dDh-r!?&YGV26h> zuzQe?zG5lx-SNThkk?SMz!0uVLkg4x@@Wu9InySs7Y_by-HIS~5`<_VmnzO0u5r$w zVj+QhLTYu6aRL?nrrL_4ZM_vd)+VBz)prv^F!J|X1v&3LgE0Jh_rUKBwkmNhJh4I5 zokYJ_FkpNwQu&n=2Igt-gfm|GZScApKEXSb--e)t22e{MY>`zR$cpC*o>OhKi=OJx z@1m!p$xC`#N(GUg^23Cle$%VEeO~r||J#56$G-!qA3|20o{pLbA0+}lw}>WW#g)F5 z6qxeUeL_~Zr;yd{>q1uOq#W+|^AXNNaUA|@$yll*b62^(zH$I?l>$K~t4HvG*(yZB z2i%-T0NJWJL2SZ2`Vhn(El_3ExUpEqO5c{s^7BfrfVcGz;k_vXOI0~ec()N=)gosA_RKijynGqUzY* zHVHrJV+)|G1+YKwQNZ11+(AChI(vbKss&QR^H~kh+d6pE#@veiTPwcI=3@Y~>vai( zS%{|s?V}0FB8DJj6Y6mVw)F(f&*~{vg)xa?!9(?GheJ8YoUXz>$7T?*l!FD` z)XB}d99LWpGu2smUTQ-bjMc}!e-t?VXgFpeO@Tcbknx3}X*}80YU8hKFqga1?%%4m zTcDoW3fx|tZ5x)A_Iy6GA1_SVfgEM3qiV9Q;Xv5%i(Md4G=nU>xh-Kaln2lrRv&w+ zPX+T-lLF;lx!+d7IxN(Him=c?DGi(MUQi0e?3Md%4O#wFPhvt`)lk;LV0o}!OVvPg zU4zP?iYlk$6nwgWLtv@S+ofVxxl9e+;^F?-<|PTO;{TC^^23CLe$$l-B=lWy%6|bu zP4;2sBmHPT<)HiYrfyHYsoU4}rVdEzQ6YtF3BqYE{D0%1Dz`w)Vgn{5u1kqFYogi0w7-YgbWd6R$ z@3;9_88Ob3V4ynk9J`F$R1c7UGY})LNoy|!Kb0XGhssIz)KH8pe)V?-25B(H=Rl^J zIx2W;7pLF`T?~=##K8apLH)i@#gWc<7xMP^RHV}7EOGHvpXtQQkZg|vt3g?1@e2_N z2gHVDjD%LA3Jli3Y-bj~t(N8axIr7Cj53fF@*HYc={hjx7HX72RdrmHxP`*`Zw=i7 z?QD2v5d=)CkhX776{)GV$!YrvIsJ`7+P?Oi_HUuT+Nx>}H5Ja@IiP1S9>-2X&KiM+;s=!#ezJ1fT17Lhzf~ zR6sgT&rm{ozM34hhJ5%MFz6#LQq)6I9*$vO)vi+Z5uKwkK)c z&}>hIeuJ|;HLUpV9{U011Rce|Yz^FqlaHzS*1bwwf&1V=)kzyFw?b334Fo3SLyc`- z@zVP%y{Y=)H817Yr`B^jw}1cPcr%Cl&ma+^wDhebK6}~2O20Rs(bBrx4!x=SQ*Y}2 zb-gJ{N~4WRFb3y(6mz*-Fv2hNrHFwSVW0Y#GqC)ncLQk?or(NPTM?X2(nQ;;eyy!2 zxp4^+_P^0qd~cJ5v+$G3P$4|RnO?j5@BH0QB&<(;Q2*%`8yQ_wi~n*9lu|oG`n|U@ zh1%Y~e`wbwiFn#4e{>7#uC7E-r56c=$Ll`5$DiA5!b?B>9{7uoE#g((=lWM~b&*O& z;T!31KC>PV@sOp^P^i_d0LHA<+tF4_V0QKh0$b($e zclwE%@O?=<&)n}Y)*ui5EdKw*Yz^~>4yl6$=kkVg6^|Ll_)prE#D=I#GB{)n z+?W=6${qaChHh1WU*>CYE;p#FbA>KOWmr|&$KL4gjt~9p+f5A7D!{v6*FcQ8K>J+i zCWdH{SraiTFSUbNQ_NpXs1Dm6rR$#BrWT2(w0TK9OBEnFMDP4CA)eo)qq;*Bvtp#g zS1OYPPe=WM9RZ`?+fSM2K253nQ&Z~xbxkSc9IpgMaB4$dE55E)y76a zCKy<*7AJBK+p`1Tx+v(81=9q~eI1oP>E~Z}TLR{4awf%bZUQ+~6GBzye&Qmhqe&?a z$cbl&N`3%6rrFx`C*_7M==ys zCmf|WMn)I7vB4ZU_sYWpg*BXemMdG_#efdqvK*4tNpVkavdMQa@r`a`PMjy3&6oP|>y**% z)1$gS^{DP&*Q2VKPBQerV`NLwmv?~wYKne}Mb)<^X-quu#BE8lA`TvBSL2kk@5Jj&N zO(cxPk#gqEb6@+*ZAPzmaJ9<59dL$dfpU^YlF)&n$UCHGiUDK3m++ zlxP!RUc66^e$HoFpgfN<^nKhH3CObrmiWgDvw`t!fjP;zixG%ti|HM`XGI@oq{*6+z(Mb|w`ZBF~^A*96N@b%39YVv@mZ z$w`J3Pp%+a@~+T?N-+^=o8yU545^}41?SQZveJ|Q0+&ZAiaKjs_QhDhLRdj;L(_^8 zr>j^o#)u-CA6XC$#aDR_qexPLH>@IXNQvSm6?}V;9%jY&D*(5ca5CDIj8{t1jBr9; zE5bKJTrn0osaVM?cC>0+`!gt!jMY`Fc;CXEn_oqsPpa5vXswN}CYtqg-+E_bx8H{9 z=v~|#Ry8vH$DiJ=YUf|P`?6u^ysI0uH7EOK!l`pZb+$+7T+k6M%fHB# zwevChkLyuu&A}o8z;uGsAH9#)1DrRS-PvwUh(opapAP3rF5ka@tMJsJTVZpUrCv1u z&2jMU!~5lS*1rG%0RR6308mQ<1QY-U00;m803iSkHHuazkYT1>-*0?efagSKfJy;-~6tB{p#ztcfbDh?&IfQ?|yjw@4K(B|NF=P`9Hq@ z=jShf`})h>-M3e$;n%M}y#D3ex8MHw=FQjlzubL#_jUI9x4U0a^7H2}pWc1LKfnC- z&DY<)+`ap0sr2dNn{qyH-+X%a;n&yqHT?0*lsZ2D{PTzRcW*zx|NE!AU%%Z~^5yR1 zyKiX!*Iz#T_Vuy0Pw%Hx_vzi2zy1BU@7{m@^c$-9%ZHC2zWsYy>FZaY-v4puufKl& z^6oDm(eHm1^}F}4{`Cd_EAjv8@iEKq&67TTc>m?|*UvwHo1x}6_ieV_AKnaa-o1aS z$@YIzHAVgA%iTXdq!;*HRr#_e70pv!<#T1#3oC1%Doexl<&S^=@Y4^k|L;cI4gIjW z_^xf&>hGF)U4GZs!`gT4+S_5XpRcuRZTk+AMl1#uU>t*`}v30i{g)KZ|kCZ z{pQE-ms9BS!`(l>W`BQ`X5?Q!fBsu4*uj(LsO0P2$Gi7wZoGPj|NP@_{qEz(A6{=1 znAHD!SuOsG3g0}{nE(B;_RZxSKK}CRFYmtIt$+S__2H*)zhJRot^9QN^Si%){Pz51 zKkKV~P;)%f$(rw?h-VXnRV*AK6o_VufOK2(kG z-v9mUx6hv*pS5h|z2dU1Z{K};_v80pKL7I-rcLV3Z|~9~EdGdEPlm} z?LU5;fB)tm=;8YZi8U)xvBbKSs9EBzm1tOEIojNgrel#!TS?0jTUJ8q*tQZq*Rf+I z2A0^h5`~P}o+DClE&Gm0$sz}ihz$LqBO+se;jP0o-B7=M8h{))k zTai*m_rej8(Y&!nbQjJtEM<5X&O$6@d>77AEMec9v+Z2HX16-VPk* z?d|ybX;;^tl*_$dP3!vo*Nwb~x9I^tyuL34{>P`4*SYa1^6LGkw2%Mz{m<#)@4kF_ z_wU#D=nNu1o?RRqpB}xvSU>;I%fQ8_AU+2Gk`1%SM>CgZ5C!p<5?>>I`KT9hW?qzSt+Qk^ z??E}6cTKtRos7v=F4N5VzA92rA3lYV-_GTS*}QL>OujMlJGuOPRuuEH%O4;xL!`@j z+sjnj(+a!3lQ*|7BJ-i?WuhH$H>$QNhU{ayahS_@v##yBOuRGlM?9>+_4rj64C`?& zU(cGlh~-am`D#`c^UAd0lwUt4h;8Q?Px87ins6M>dEEM;%DOf0H@=g%b&<=rSVVcZ z=CzT(as4;k{th*YS-a&o*XQ-k=V-BRHw$jU zxWXDMbTowC6JXGuEmt|q7bseXCh6`*rmmg!`4|oZW{oO589wK?(}K)SHKQ3aPxDl3 zBO9c<7#SQGG5)}yX>DwA*uE@wc`Qrr>0oPPb0f8pq3LE)S-bI_LIg59+EcPIh1Q0) zX>DX=v^KIRT1e(Y3(0P1AsGxUB%zIGIs-dE#XF*Ob-_8I)@@>L`mhD^~pk-dP`s-{* zL|~NFWug*YRcE$PkocadukIDrXsh~pne7Eq;Xy9l&xWRKvq7?bKFsC2S<%r}ZGq!a zF5k?mexAPri!_dN`6{(1-`Z{cC;X1PlAwkKrl&ls`)*D+)69u8mM;c8Awq!XJU)c~ zh5@!-kxwpP&)S0b8jF0mzr!4_NWl&_xoJnh(KX8p__AQ?Mw&bZG;aBomV~8T=p$o} zE-E@&6A?@d6@gjH?U#pVq$3W1$t84S5c5Kaco+Zy4S1dV&PXNXbQC%#1eIlY{sC71#ef~A7nIi*vUd@A(;a$q_wYww9vJXR<#yhM18-E z3a_Fy?P5_7Thd*Txl-9w3M%+rcHO z@+cf&7d&PhyVNPJ_5$pJ-`Utr>UmuN#B}Pe-pu<_&WeG5vRdqt%eRmxD{J@7?OcAq zkH0F%I{3vcAaN&`PY#;8Fi1v3%Bn(O^7+H#zo!+#_aR{*k(l>`dU+1G7Z}g{SFGLr z4|Dl$2C$QFw~l`%mxmv%h70ZaV@LHkm#^`gmIeS@f^_jDm#=2?5?;Ef{!^J1cncP> z@G7Xf2EPgAx#u!&^W069wk|~}JP!3h?g;!=7x_!>S5soB6s2%82e>5}SZTnC<;%tb zpPO7Hd6B3_yj}Il@Y`aaR`O>UpA5I5&3&M*6K9PTYOE^*Q}~rKIC8x({4NA`IKGLE zT)}`Ce!PcTB6Tt&K5B{7cX@m)&QJ)&Rzpz>kBroYu{WqCY8%;#NvI{NjVyyfEs-Xz zd4pOaO8C{`PMHaKMN93JUBu+x%!l6L^E*SgPL z2zJxk%H^@CVl&AMwUyt_<>8`$!zWwXHlVSS%O|%C9M!V&cSWQa`c6dlRHQ2k5!u%V z4UI-T4|0)VR&_=0HMfA{FqiLAE>!;O+V=G*m&cY@=iUq_*mIoA!`;9D$O46vTpj@= z;8Ytx;`d)wRU9Nc;|bruArQM%WPwx`^IY&Sl!XNcm)!F?homfox#C`xm96qxI^y_Z zZn$B|0i+-#muO}QDH+(o&*>!a;&?|`Veq^oEaL3@WS1}%Ic$NBm}pO4rNJ3Ik+2yX z??|LhHUKteG$6x9K%FJr`3d2jsBL5h5bHLfCj&d8+QU*20@#7d$6-ec*wMZOb|ARW4JB|#KQ!1@1b5^;fQzJnGynNx zH;JuWzL^b0mCHLWl3ad3@(e^~7Ko~%LA^IF-;D}i{ z;O64jZ2r^Gff~7dH*1GJ-?nY!=ZJ@|?e-WEQ&<)YZe`(kGuBuHz9;eO821M&Oh`iEt~=0XBbP8Zgx?Gy zRX=DG)wV4oG7d|k+Q?EAGbd?<4TZWt_R83zZ*HF_;@*W_~r0VU4 zvz5!Vv$EHiymWaxmxuF_z2kOc+{xurcm~-p>hlm0c+e4mS{a_v3Y)4__lJngkrb@i zCAmnCJmfOp5GE9KhBKb<6*5XJK9NOHQac_02am%*UZc4UzFf*UI3b@a=~hVznl>xsnw#7w zz#$==8-BZU{@v}kMp#}_V?2PuZII*}tV)wck}Dwo##y#bR_=PPpeFn+KfVAy)(1YB zGB+bu--?1K<1&d_LnZ`f$w`5Y)OWcv9vF$#_xarkeDHE!quR(WAS;YNmn0(U#|osy$?q2ziu_>H9bHwNMuXfcoYf12r3^3BR#-K{{k?AUAt|IzJ}kt!NCf# z37dHjkkntb_E-8=F4N*yI=fTNZnT}tCnpDzGUc&5B7);aIL7_-kulsA>9R*6gQSOO zg_UOa?rW>sfp!QvFq}*GvwB|T2+WSrVJ@HYT=S&d6qZ*clFK*9zZqhW!f`HN&x(eE zTDJZZey=!yL-`UGm9RWAlXI+Rk=Gf|{Hk@FUFWhoAQT2}E_h6Ex+(tv#A?4VVIVxn5bT=aV1C+)eC%2WYkp_Qc7L59A_HqSn z8(AUvY({H4h-xFNGb!gJs*P;Sl-kJ180-^0ip+;CZq`^~2)=utR8L3qqK z3L1cdhL@nA2Fa2*DpSMffS+y3hm!ZDoM9)4Qxdjvd7S)dfUKTBHXC+3mtUrsz~jPp zW=BL2k5Q_GT@fj}dI&r+T47lfnfF3DRJ4UP`JB{GlS}tV^QhvKj6)u;p+!(D%3D3k z<$;cxc^v0C&gJVF0%kGVIpO!+S9ILm`d3a_9zY>#~vMQ&;w}7d&h= z0~Y6)GYLm%pQ?a}<>$R~*hjj>N9f>Ekt%O_CLv!e|5zW-Vv#FU z>BmU^aa=HKtUwvuc$Sl4%Uy6HVT-pcQt@GArx6=Ga)g7IjZjz3X0CvwH^wmDY3E$Q zAR>Oell05xM7xuTPci}CN%fBdo?;HfQ_Nogd0>=^y6y+~B8mdpsFDps-GJw(WZP>`43R=N z1LR6ZBAvLx5J40 z=1dnx>ktE-%gFRJ>}fmJqeRkCgjHiubEzFQo3oxQl6J!pNn4a@(zQ&7QP6TDePBnG z=NXbdbiDsN0AoQKCacs*zg-gzMqVC0OR|X1Kl!GFRbaR>4Y)0N?{~6@H%LSGx=k~Q z75$lzS6JV+y!vs+(@t0)o2q+uFHRIQ2b9A4*iKE!?mYB;9{+j#d}@01byk4)YC`t5_bzOw|sYTSYoJtB=VFa;jJT5Xl5YVbFz0xsK!|t8eNOR zPUIyIE#i{d$41RW0g2}$XPIPORB*F}nZ)O$0JdumDp{Y-g^UcIknfR>(})x*jQvP5 z@s;$UPYFrtDH55I2hzg48-1aiT4O_Fx6*7OYx1&vq)p8zl1tj^k>9 zdCEZ1GWMHKGLILJG%P5}>x1`N94yY!sj$9n>9t2K6IQ?mXc`L2yPzH1*H>*&q&YDa zw(pQiC%KTq`i{d=HY(b;(@^&;EM?nZkx?|JmtoDk#I@$@P?uM-MMgoZfQ+J2UXF@= zcp+M3Pm_d*nA>VNGGe5e#Cf{h@cToDhlO* z-=#`{q)KE1NluZ96kV&Q<@Qx(KH!E8g+oklixWnqMKti^Y+$^tuz;P<>oN*a3z3v>L%?KZj5FO6NQd9P*quct{w6E8eAT?lV0BA!e4h@a9(DDEkl7%QDBrW$@G4 zIFs-!GSW{kdL~2TofMb8NsQ11KoR4rS|A5=vCYv(8!MUBkgjVGB1 z*i0e=E)pAX@e(@VzJn*es(@;c8e~pcZ&EiBM|e+G-f{orjE8VaAkQdU$kyMmO;1Qy zS>d$U^T%P;BZU-FOQD2JMLj`8!I+M`x4rV#Xq5$$bM)kvc`Sl3G8qm?2GlhiF7kXn zdE-EHUea+ICuN$R0M0^W?Kp9Be!i#U*WD$}Aa694{*`o)El{(HQ60BLy60<5XXpUVSAUO$QZ6Kn|12w&DwMKn_m<3A{Nc zyr@ab6(-It3v#$k6V7-^x4mQQ>+-go{T>!6v&M)S8>fZg!{JpX2!X8;+;m)@16j7h z`q=hNx&a}qZ&!xII{+3|uur9vu006rJCp|Tc%?|QIRqBgcN~_o8L?iTh<}%jh3c|p zuwI_1=F70nyuhuOC#v}-tob%7g_kGf6b?&yAlm1hg#87mnD?Mg(KCUMy>Jb~6Nd$pm``DydPf*mB)39c? z3>F4OHS?NR-OKQ~S7GUOSb7td@(Q({prA+a1VyFmVJWY&=jSpEN{oXZ48r%TVbB9r zv4KGkT*Z1m9v5)SA+aUB?&B&|81yI|!JtXR#YJK+E?z=i+;k-%Py^RZGqj-a(X8pb zLnT0po;el(vPC0+^R-oz+bD}_wn-tmcmT_|5j!eU)V*E>ysI+EeaSOHOwu&*Po^N= zTz;SKn}+p`I+G4arpNU}bj03s0_D%`kTF%|!(%;QNAv{n-wr9c>FHzrJIADeBp}>Z z6yl8&QYdFV9D^a=I28r>rDDu_xH>EQSa#tH85z95yq{jwD<6C8 zou!qzlD^Fgo4Ru?-RXH#cg~2(njiusydKMWObVDK-nlR{sI+f-2g67Mp1;wfWb3>H z47Ooomq?`zpHEoBrp#4)iKk6(j#zHlmf(!Xs1Hg^i}a95;?IaOtJ3enRLgQ5$-I2j8y-JP#zv2Jk$vBpDh2gMU@fP*9owW>xY?jJ4DJ-K`h!7~YAp*)}Hj!o= z?P@*n=_uRJp2`$upZg8;_`7LZy17Erc=D$8U<0HOio;Gwm4Xy#KE!FzN2IVk1(xqg z4u3K!;Nbf(I8;C+R3@(x9iMZunuVqoTuM%ai)T9Mw&N_Wb6pz1wWih!8G)XE&^sJJ zG6F3fv`aTynA2X|xsr3MJb1$jxZ6A5My<2wMqYd8#j$uQ;pfI^97|f^ChO!f6_BgC z4y>~#*T8{=(V!Bn4gI3aS-bEw@8~;ecyv4(huIXvGJbmln7=1?2*`Zu_T z2Y>w1EipeP+lL3yY0yE~phGI1mcdMRRT^~syX!j%+jkn4o`t1sCv3bc>c?eR^Ho@S z9hUN<)>hp{y1+d_o8jn*O4q|uUX809J&7pM!#((ZHST#JWj46y{`*cw;BCS5pULoO z7RknwOoV$T5i=KwnYnlgHFI6#?xtpd)i0X@8=<;)@^0X_zc}HYlpp3T1x;X_J+e&$ zwPapyG(h6`lmIMy*W2^%2ZU-kqWb37r1MEpbu&1T)4iUMw9wL)jI z7?5FRN8_A?k_o3@=N9Q)kOBe&1I0(Jo8^)eaCz5Q{?3(juHgg!URaBl3+{UxgGRXm zIz3A1ER(DsWn5m!91zkZ*AJ98Y8q@3Yv=GPsztPsDeD{Jc8s4S+oZlWGbh)2ONK){ zBp41wUu>bunMW4H#>b!~9vuhW?1dHVOPeL8hhExbXrB!D{i`oOyj~p2dYqC86xGLO zW}25Ms*jC|^%6z8Y(^|vigejPs4iOr>m`b6z6sy&ZBz=h6x0l~6qT-rrMx6pp{2yT z=%FQizZxw)utpoSbpL&)cWD(w?s(5np1Jq+K8q*u2slk5kuDO8bny}zX&?~bfo7gE zPMT8L3pc4p@TK?2WqJPCop*~AknM+`z+qTsTgI$F8i?L{wPR!&a35vWDu&|MP~a-c zF5i(9Ly34Ht^kEox%hzOZpsF?h~Pkmq#o$L4d+HKQUD@A=rSDiBT`7&5|nRlk<78a z)~<~&2|FPLfE%F^wsL$;`A{NG0JbAbs7N&-_BfW`d_f9e9p<=|bsb&G z@D+7F-0m^4yxoWvd)_7PT3QF$#|xgZ0x(ysa4X|tcT<})oj)RFjd_VdEK^{5TJI7! zwYR7E7cfTTPih^R4e5bg`sHvNu{mn>GEz5LI&TLI7y~7TaFGpC1@A6>oRn}jPj0wt zSB7K4Rim;*#{u5H%zM#rf@W-)rU0Hp>Bkhv6%ZaT*bq&FTv2^&b}ZzIbkC`87IH

+Yy{-FfLy_I0lA{m^{|we_bSMhXdgYuh3{8Gt_QMe1G((Ay5b+fR%7+N5w&Z1cdbT(MvsycmW>mmEwCUUX-A=QOK3|5Gmxi*D3^+ z2UKa7h^+J9>CQDDq<{lR^FGG8N2CA-ynC z!Gix$>WAu{OGLiu4 zPG&X_Ok+iEsTyqU=6Hm7nvsj0SK8_MFz00bnvR}DV6Xb2~O^9(kVh!u|#Pi{!h z`%zXUHe5)N9=)G_OD38?Eyuycrpxt=vALRZpl(;@%J}88Y_tk5^0+VKXYrfne6i7* zk|BOb&zN){nzU*hza9T>4K`v^Fx@FVV~WNZX(--e17?w2M1jqw$s)N(myM3<-h^#t zOJk8-M4`?jTPb9VJ8fmd1gc1fr-}_zN~5F?YE^`^De!Nttlz?Bm+V$ z+*=$v@D51W|ECK{54=W%Gt$l64HMLe)u8Rj$lzC*^eK^nS8ZOVim&qdn` z>)X~hDI2YqXRNi}8?! z&%FpsFT>KSu=F}CeI;-HF@_poPbgr{)z%_{pU4u4vH;!W@A zl@87u(33xZ9OiLSz(p*aKJ74%lL9EIDq`n$jx3S_a?o%RHEWV{DGMp2JR97N7s2OK zoi|03|D3mR?lW00iG@6zXy;~u5iqe&xFCgg1_y8Kyty0(hiB#IdBLDEVG$7%*^d@ zoJ<=sF9p#!S?X%gCS24)&(MvI%@-VO9*PQS%c=S){v|P2dahB1T~L&lSr&HiP}(={ z1v(1rI}S@v!cw*>7DYwl%=SWc**It^TLLY;3fs(UTy<|kU0%u-MMX^HYf;TWQ6Y=@ zic;dPDp#Onm0$OZdz|Zj9X# zyIqMJ>~OkH{ZKhMDw2kf&NYIkas^z}0$dXAyxTNnxTuBG={-C}e67fif&)i9ySr3r zx~K)jno44>GDX`dYs9|F;QIPOJQN4g0l1%XBw(Xyhok@s&yq6gt*h>c6p)zG6A7b@ z^&XQ#J!?Ru8osp?Qm8<9#n{2pJ&*!&_UCYAK7X78IEq;rVr#R}Kb?zVCg!bqk^fS7hV>ovO7x6bh;*UiL>Rql)N z(!->uHiTu;!(=c8k2qQKFiROq@{-mJsX1v_H&b4p#|>c!ufqD+08JsN+6n7p+cOOy zMXcFugC>!ChV5hXGtJEuwU3RBzAd&a*3A@hoQM554@=ofSb!8gm)F1Q@?y6DDXN** zv;{~Z$9dFW0HjEl*WfBQQz8#_QtC^5zZxJtaGV=}w1VS2RVHqx#$;bT%0#ee60>=k zn9a+VFq`*al`N5A)71#Qm8~>!le&S65W3R-fZrk^Y}*CMK_g$(HYvbzfKoh@cW(A2 zg%ra>qPSSUU6lcTD@`Phcw-ZrIRgesnKzF`mXSR6K>7mQm~VIwCghZZ+?vxXaRiwLaQ3QfA+g;%b)V%Yv5dC>C> zMGazGGwBlFutEFs;>9=Q@tTMA9qKC+=a6%~OIROU8Vh}*v0@uyeM6D%dDyCpu=Fx4 zy$VaO!_u3ulozpuJ`r;{FHY56kDi;h{|PzhD|pSzh}Rs2euQlWuX(DBp^xzgP2e(5 zPo0o7% zlKQHTC4@RB)Fd$bI6(JQWWYL}hpL>L?qn%o%6UoWc~dbF z_*|JqE*DfQ27``SI#dgnq=1}#o@*X9;@LmPEs%`+3^w95-xb!|bVIGc?|VibUcii( z6z5!dbeant@6pq9Yx>$f{NwW{-}5KI_>i?r9XI4vyvziRY|7h_c$~wouoc#~EnRXd z5L2QYRnnyiJPToi_GPsT7{O{clvQDUY&|BO*bD1BrqW6L31NL~CM@EKrqg*?Gp~H> z?1^f=3TwU&OL^()b8jQvHC~g7X?Xov#1r%=?fVlDPa+WYoIUt{wX^4e*xWdKRuG$) zOj(=uWF?T?c#?^nJ(Gyd%S3EmzKGZyEZ^YuEO3c!*A&$|RE$RoSLn@sTLSxgSJ3HHvX~-yg zp=?1cGKzHBPN?ohI4*1fRQD>><+W|YU{RZS)mmRrpo{ZrQR#YE$}4YG7%Y*6ddLXh zuSP}>)aM2nt)M78&5J3GMYqvUMA}E@VOVc#pdq0I9J5p`=y_9^p#ggK?A;$R?E7IbQK$_+yIqEl*GWiq!4heT%H z)B&;j0kt5dg5XA-=Z{0$Neb<3s6p-Z{PE&sd4s@$4o6a$g>_6%z?r5wXxyJa_D!D1 zt8anTLWNUNKt^`VcW@?a1YuY^KhAX_l}$`&c0me=AeJ^&=TZivBN8l!qv}ff215UQ z2edfnS`_fhBM!3N$do}&e*W>CMEMLDQU+Z9agNn5q)nEo$i~d_XTaegK*R$^xdwu~ zqd);>i@;Jn7A#ym+s)*icW={WyM-%koGX9XN*Kh%J$KlocESpFb;j5h?1dHV>$uno z*v#k-eJB+O!~zCX@6%D(AhsaWFi}9uy5MTNS7DC#YB-VFKdg5BHi0) zbm1)ubb*PY()F;E7uYIHl-N8yOoZ=OW1!KtGL`gl zJV!=bx~nn>WGUy;p2{R7W_X#1^%Z`s0xU&5DhJZZ7O6uaG&v*%80%)_x|}0YSY|)R z1mwr009I5a!jFKTyq`FLgiB_e6lr0yZn_wQoyh_ykO38r%sDAwj|bRg1##e9kU|O< z672A@hw?t8gLfmBwOr8?kUi9T;D<+VUXD1bZls^IjJ*5fZgpT7%eViHf{@5fypj7JvSQXQFD%Gu(jWI$Km8fn~1H<2*E_^?K-t z*hkZen z8Spm2`<#T5!;L~+mUZYth76heF|xXp5fJB=clJJ?oaqd^C6~OGz735RF=L+bdFK#~ z%M`OW_FBTCyw)jnkZUq$C=%-esCAtKeE7@(X)r^CjzDfIZ^dR9$>=x%!A+SQ65Vr< z%$D@kxlCqT=EFD}6Pq75`FdCSFDdFy*p3a*l)x98Be=kh z?#vcx3R+^5G!0)x^xJHVtUD^wW%Fb4Riw*?#k!*+UA7W+#d@4VM& zoslW(LSdH5;F=drpV}vxbj?fJa0QbdkWjkX1<}JO&UQ!&>1r3+_Z(&Vf_% zqUH^eF4$U6NCB)@xNgz>=7=2TawsE70f)Kh1|ly@ zTZRnjH~AK0omN*ee7LupHZgM`?OKMf=CmUV4{u~-I@^d_5gDiXUdTvt3^Dm-O#DrT zQb2|i<6D=p1dCc6MqI!UWta6I!py@ig4zB{5lsI&$&}8n;-l#V(j9; zG`2uED(dip>i{smaYBcCG63TaHa1S~l`m?V1eQ6;;%u8HB|S-3$C2Ezyp?gZ$fj!2 z1upcANkrhJVZ2>o=|xz28J4o)G2X6FmraWCc15~tY&jHBt%bU55eynzp-aR{)e3^| z^!;iywu0arN(rTPO7OjW2oo#iS+?T-dXkR7*d&7QDiM5FFCq8_uXoXa%&6^aaD40e z_)Y3iy1#|4%djq!EmFY!EghZYwhG&%u*`F6=bBWmGC0RhWJHowZmNV!O?IU{m6=x{ zM3Q_dk^!(}SDuZf9gqUp%^ULlIX*8^0Dbqo$`fF$SM7)t0LxbQHI zgS1=$S=f9|&Nk^r#=d1*Qj6+tWt0ZW%1aSFb041$e&GnMiO{^Zk6x^k5TFZZMmaDG zMkxbkIQ+m6%5ijU$c*J^u?H~ONR_w_(t=R7OSp`C^yU~gObGRHlE3qe9hr`t%a#rv znA==rbR^NtMQt*_7|S?rzc$=g)f6H~(YZGBJT5!#zXOJ0=;?frgQ@`Ol0oG^d< zv({8F>Jidns*!7yw@3kL${k(Z;i0{J%zB*u>hth`Lz_TPK-{sQAfHv(mA3*&fS?rv zyFIBCsaiR5u&%CsQUEOiE|?BIZU>}*OB|4Q6DCO=k^<}@Hp)!FLxTB8V(2S^CKiGn z%ez9-n}-DRT7fUYEtWOIj?5|53dhTkB6|X)&tzV8WoO%WE<*6*#T>2|qySGL+`b`P zyc7l86lvRfr4x?X7OV^HT3$6F_+>Jb;ISKd5q#TU0yv^@D`Py2-9Wfl$XKRev!cQ^ zk-=FCE3_^{1`HHCDdCCBXAl-FLHKln)I>jJ>bFiB+a}2%S#p9WE^h~-ckFg_;M=wi z2)Ep6)sBo#;#1Y$u{}ce;{?YXuWae63-P$GqTxhb**0AVe(5vV zL{0Gpp6Jpra9Ba18mw_p$kuBb#N#y}FcN+Mz2c8;*_3CnF|)8QB5h}rrMhgNEbNOY z&e`x-A77-)w#LFfUzcIu3i9+SB2P!55Bu)F?`1Q4n=1P~u!1BHx5XI(zhl9=E&D6~q=8?5hF@xw296!nE8Z#BxV&sF6+sdE_s`cKS#ZK!+YD zCmxdmXwGnLcL+;Qcxy345I%MDgD8 z89f0mJ6taw_TgLd((~%46YH#K3=LG_p_&;JL%Y^5~@nGJ33SA z-R>;YC%=yzO|w~Kw=x?jEn^rw;tYAa#V8HN8foD8i-VVv34H!FjN?wm0b}Up7;X`VSR@(|Hi?}QCJ__ z9vxjaG+KHZ*32eEb=h8M=|x!cWmtL@mR^UYH(@C+Wd${hNEdJ^BBbZVY2nfY%K0jh zw0dv}->-&C50vu;EgnoViMK4hm6`)kidAzexyj?#q;Yd2?Civy|h zQNn)2Nomf(QW+)i3W_JvKq_WxA6iR%f1`#Zoy0Z4)V!V!Eu|mwPQLy^no4fp!K2Vv zlQ){yMfP!ALhGb4B}&Lf6PXnBh=dpwBW=j&xG*XooJp4!vJp@MGI^v&Ko(Z8E6Y`I zi9`P-R!R9bsJ>~qDWYX(`!mInbQJdYI4ot;VsTT{QZ^bEH$}Q^4y>Cg(!C0MbRCxR zdbVz+;JG+$5S8)@Rb<4g(c&h*W_B|r`d1G(;rrFN>4CW3;HC%SdWmJft(c)XS%3&P zJxWKoX%dBfl_>11-%nu=r$tfq0|4_t48LwGMEX9+t4i^+Y*L4CUtzi^@cHApneq_; zZX&plerGF%Jv{+YzXC)S&mXI>LkbBuA&x5VVOM34HDx$9j12B=T#di>&0~QG)#H@+ z9Xw6-NbcPs)d{RrQ4*UMUd*3>Xd$lc36ab(J)uTixXiaDFWoGELOSc4-%aFzt5caF z$PtSH;+d=w%%}L4#dA?ew`4*?-(%ykkZnu{dwyw6#iFg_N=YY2jsfW2ZyqtVC zLg@qteVknOEnch!1M#4b(_x6sk^0!$Ahnb~&JoMKuzhT5ra_{B+kC-hW)f{i*giHY zlPEI6`q+dhs9<|xVN%rdi}1N@0<`95lF>?j5+Twzx%(8kM8My*NoMjce;Et&W zDTjIF{^k=>NTde2$Id~wr!qxwF(XieNyg{pkU&E?EzYS{#6rd{)4U*s6xtl4B_jo( zBe@^P;F2pD86Y2-+Qxg7cN)|qh_>?EHA(tBN*p_NLVmZ@Buu!`eDj5LLT-P?jI&G{ zd82TXGW-1;jdgi<;>UAx+F`ngz06J6=fQL`(l=$UJB$@8X4VS^6!?Q@0BamJ&tKDI8?U=mqo=`Y(73zH&Uwiq@F7wKMx zz2t?jHD8CiH(@ESUmJxB+6l_Fw-YnDR5a6}4VwMbVNWgmy6B5x9sZqcSt;e?)$eq(w>VtJ+ipR+65PFx3q zf0P4wRL3OrHI#}ffbe)*uWoNm^u6N>&*_pD{6RA9k%#9iukIrpJ@kH3<=+%i2u(W3^OOM>_29MNY6x*GbxAEu>)N zEgbDVyvl0E0;qr(e#HvJ+Lj+9!ao;zI`@Z=X?)xUiIwSO=pCjVP)XBMN zlrni?%?Y>E2$^~ux@7GpcO;OEJzyX+gkMC>3p@m_)Z84SHYRC~xFITy!p$Ge9iT9d zZ1P6i0BVw+S5TGT0eow0BeABlC+Z)l6L;(cE9Jc+f_sT9&eNY2c#$0&<`k@A!@^!k zAfe^P-s>ARLXZQFO9%kpMF1%Uac1QKZgSx+n_!iOwhs!JLInmq|%DTP76F)`(9 zpI)a0i_t-r5=$T3q`qX8;JbGmaQR&<;UJ}HIu@Um908b;^FNoLl~38+Wn>lI<}e*V z1#wj%r=M%NyE5TCE1{H0qAOtP0O`8Y0(dSzR!JZbD?*)nRu2X`$x1k76T=Qz`_%aO zwqbv)ZR*050&?^f>zO)ZQ`8@87;9{bWLbAutQ5(zRG$_RL%xrLC~f`eu@gLS{ntDIOKGSw zZGD?)>)U^!t)HRx58l5&|KfGS5B&|zDB0$TPr$ybZ%F{vUPhRzPJa$?k~IT&C3vXB z*raVhwNDI`0-Q{jLr+=N0-Urt3I)+eI5*!=b7%=VVSgGYO<5_ts*Z7umk~vJ|>R0!WU6KQ^4)8wnuy4M;ggQ6hl4<}nlgPEQnLBAeIt zAu9vYu^6)Kbt%oORgF`!N}#~7$#ODJz{>(~l5@3SN=uui_ALTp;&Cw1N{&OBgmf)S zW5b3_p+%Xu$DS%p%B-a)O?gaA*61K70Gkz84Q~Kzu2e^h|18?MGf!7Z;$9Db5yU-+ zgfrDgJ!$5~l`V=@SPdi9R?b@4jKm793Y^gx3NBccRe`gxKUQ1@oQ1Nik_ zl?7PH`}O*-c?8a?XzbfWW8eM@jXmi7;0;`~Ua{iE;F$gk}v z2MQhKZ!`~^F>yLfwFL{8E*axdC*E9Eqc25W9d!8^&O7nuvN9+>A0xYOT}sN%a01j< zD>+&Ab!&pCL_+w`ofz^~aupx-4ZgRT3AT7Bok#G_g zS##CFwfuBd6(^#*swz%I5(>U{;nk1u>OQ>s8D3=#WNdDsEbA5v>moM$b=32k^@H(G zPRKH>o8YT&BfffE^kLo4@1{6W>dX+Ao}L;l75UdZf^}7V^=;y-Z_nqeN4XG`nMS7f z2*Rla957-QyrCHZ)^XU7HKE;-K#F}LQ@_KrAZrFM9T?8DhgxABFEL88N5rW$h9ED9$}&e`99wfy-E0$Lc|rl0OAJ<|+{Y(XjPm%1U4s?S9bz;k2D`cV-vH-ZdmD^r>+N@CERI}X@uSr9=0j^mWo7(PoRbjx8W zmE~z2X0AJFWvzB0FFmb>g?EwccO<)JeWDPJ z6^XUlMXdF#Af{ZZ6TI|o#7mEhKD_(orI-7>N}c_|JB>E`yBLAFDi->-Nnq}L7J7iW z<#KUSZKKxxru%PTBcfPrhx~yA@VYJ0rQeajvD9QErq6qAf=DvT(o?$}*8(_(of!Zp zZBS`af$WBc#hYwFJ}~P9-I4(6IxRr|aQgGSrpyh#Kn3hfz_Y*!HF#eDVK1_OAi>Dr z@*ZkqD)F`&rL+i@>~LTw*ERSF(Iv$&(8RM@kFO$J!}Z zm$Kj#+UatgvMx-i&x8yev~*2l;3K72+44rtyF?&57Q0(rP!7#=G9FlCfg`_Ml86`7 zsYfJ-QR3-b0LPlZ$>n7I1&?rrEsh_47D(sa6d;nLQs#|)CW$I0d08BLSEk0KoPx52 zP_=-Fs?Ei;nu4M9b|EcyE zzq*V)=#~T$^Ldlov>Y;d5&+9rM^VsDl}QqS2ei}5DS|8>L}1wvag~iPdlZ2bmv1Jz z(fdYPLZ*T|7?>Z00pz4$8$JCwxty|;V@vOJCk257QusA-fLRFjA_4$1anRo@3Bc8h zl-|%{`9=b;`f}NCJBN2Ua03cOh9m4m05;ToSuHaC;71bKk5qliuF_rvnl6#6%OU%e zM&Qef@B2UkI1U{AZ~48xWU~g&({R!}WwWS^mj_c}$;*!@Y$8n|Qv;Zg+4d#z#xVq5 z%0dxy3mylj_>eAb(b0S@YbzPFu30ai2kb}8J?6kYR&+SoMJlyBS*!GAp$_kRT^$Gh zvOb%;L~pFZ@Xg8S$boFE&tNoG#PM3QnyN7evYx8RH&sO? zXcBj&Xp%KmO(-C%s;Zhnv^aH0FCdv;v6fP_#wy90^rD`>=}s-ui>U8eiCCl;$pZ9L z1mYzUSSO>j#qZNu5);Ju5K0J8xwEcPXXkiq|8E`{`Kp-l+r*6Dp3jVrcTRe@qKpv! zZI=rrc)y_;p^EH+qW8T(Jf>ftb-kAvkvB?2rGtm@nD`r9u{rj!_NfQD*JPASZWd$R z%XqdGVmPF%b1-2r9S9A`joYYbhz>c)b{CnKtc_jf9Cjon{t9g+@el->}`P-WT6NFcFuBBkK;XP0kB0&qX!#zXM;Ap#&Ti2>|h&NM<5 zVn6Yx2sHgbFM2cSg9yx;h26z3*>;qB%3rrmZmDcgH#)Yrm8|!YiWxX|Nx--Kpuo;Z zr7S!!b}7?a@)v^(-|{i$7oY;N81I_81wk_7F9#{HcIwfs=Xzy@BxY9!2j1y|Fwu#V z_HnN#O1!L|RgV|MEf6UOM2vJ!IRMsGRRtntt`!9$MWRgf_AL8aHqyPEEy2pGsz9VX zC^cX&-?OT^;xdo2A&`}s!Y|fb)`S-@=);5;U1eotO?ZJUe6`V4RxcLVMY4jYCNeA% zZLJ6F@cT5dn_%v5e|}fS_$&N=P7U$D<`J-~qV8`Kb$@$4b$=?s4RY7+_uo-Vh|`4N zr~s2zemWhSUcLgb`hdrrzHX8*Uowmg6KW{}vK$<-P|jdI(saNC2O*{KmB-Jj+soy)JehzmNb@ZhI!fFuVIo z0xjyjQ*ldcqI(koZG3e1}RqS3x+G>Z@eSs=vd>N>p2dPVW00J8~%m>7FK zgoxj#5#mJAg7)Y4QHvJf_sq!)hST(S+G37FyZ&n(0mQ2E1#K!{(4Jqu000rR{YV}d zL6U+vtA&;?kO`sCxI-pKjerWl-J59?&(oVP6KK?WVuH6oZi76LoMMg(9sEzzXplZMT4L40gp@Sk#*Q);r^hiAGaSOih4DpM~WeM&w; zB4r_zYr)d1?DUA}!f>bGNB}y$Coit&_04YyF-Z+2DSHSp7eHJ>Pkbw$*O#Bs5su{$ zQttH`K!tV3>nl$_vLzggpzP?3&asUz{Gy?ewNsA%%SXVY$Q8zIlp{R7ynZ7S;MovH zmNE@cH_4EKOw-fdzN^zv<4aUgg&|8rcVH*#W=jogAgo)C=tG9i_?lL?Wj z{#cUBx^ww_%$?b>(t?&_SmyXcS!;nG(aX}{2dYeayp_q-U_G9kW0YjwRF{^)do4i8 z$;oByRF`4PH(nm&ofby{&`w?oHQ+A418eHzXQJHSXLx^y@G5H?3+{qD1-Of@vdXaL zzepCaroykA*n~ZBhu^2c-A_q{M(*db{rSB&>~~D9eSA8nnS#;F4-|~RT~*PAHWgiH z&o8=wI@y32NJ_vf4phNls#Eeio)8K&#N1}Le{)KHZxEuVx|*jyix=)lV1$8jVc+2Q z)aY25p=~8+_(9tsN4Jsvc{FWMksyC!l;@5Zs8fy52F!d@V0}xy!!I?`ceWR_m-i2H z;hqc?UhYON06$hsb_y?OFBgElj$?Z~_?8PGS%(rUQmUaAIj2c4Adt)}CSOC3QI;=+ zJ@%KSdmSm4>>wgXUXD{y&O*X!<~E$SpYI{y7?Np0MI3viulB92?m*4TaL}k zM?knc+x;AC)=DPIAadydoHa?n?8?Bxv1TP5n19GhQBx;P0t$*heTyLKnk3R^BmFs+ zt{a($Sh^eu)>t(bB343&)9&v4vBc=ap1`W;;bh6?TqBz4hM zeqgPE%$H?0lf+Q$VJQ4QjiG+3Dp(Bl^ShSAylRD!JZYknIx_jM|F@1XR8_TwHdR|_ z&#$(S!qS%Wu0>KD*hEwPbHz|RAw&_y)`VMH0aQ(FskF6y2j7tZ*iTSsG}GVKGIdV^ z2~W+NJoUoRnGiEIFe9cZZ638txI^Yzd%+CbsK0qjP2jiXnpAcwPb82q6jijtw`dNWQZJR2x1X(F zJ~YZD63w)=4_)f!6q!C$%~e#Vl6@!#RNcr%h!fAT7P0C^ZzY)+IU`D-ONNT0*a~O0bqD(%Q0WAK^XoGp{}K z1FlyOVb5RTReppOqpTuXpr2sA;Bt$u^3!-4m(Wi)Q9mL5K8b#CFoA&B#EODOKeD{If#q} zA#P9fCO5&B8d&d!irZCK>U8!#JBV& zM`XZmgqFg0c{IR$97oshM4&|glrm8P>Zam3jiE2-4PC8q zw6TIRfa&ZRu{zTJUgVK1o1a+u7!Vb%2CEeVqC(k^@ajIi`Waqjg`ju!70U91Z$MNe zyIzM^FT<<+*iM0{i8=>eRObK}eGv6q=RoFol{z~SY5ahwOhHJD)nDrfPF0mT=u(-3 z?qA9r^a!m2{l$RTcQDH~22L^Uc-OV|O?FGOhE*BGFSAF-dS&iN;OJGu=$VLc;A(Ru zW0EUEDAcrhD*B{GBhw{#fu~t`H|B=tvxUJ@`BEW50^D?=A?8Vz4T+w)@yx?gOyIxh zP_8|)+`P~T@M6q3r=1AkXgQ`OYBXH* zTr0`aRP0Fr-eTH(C#CR{1X3|JW>T;}8_q6DM@%eT%@XRL=o0iw}^* znmhavYdJxdBFlmd$+h5fNsswz(q_QyKNn5sfq)-Edh5z4X- zF{Y|e_7GnE3a|2WZ&6lQb|C6`eHmWmr*;ZuO_UwzqOt?H=%cLPvIANcJ#}VKmSU^_ z+eFx^s@6c4Y7KP%RBHgA-w0txf;*^AK}0F;Ihsb|5peuLx6}w;ra5`oJZvQe1LhzH z&AxmE2;EcviNSX4@`Oco$Z7Lt-YJ{hqqa%05$R3p@h`*|V( zI7(p^GHBoT~zdUVFlL*W~JYoZx zs1d^3xRQl69et1hoWFAqHt_;1OQ7ac7l2^CgR>4YxAaIDdz7$`vp>qBm~UAM@n3mi zOeBF|G$*KNEp1xQJ14Ut%cL8N4Mjt`&5H@YmUCM!V16TeTdu*xddCely3@UNqLHXc z9s1$#unPgsOP@ zyTsGq{R>Y&h!PO&4Z82etVP^|Qa#X&64x{3hS|^kTM~e&WzpoHkoFaOCu@dWGFZIS z$|S7%h#m@WcG>Gel8^-n*SF6E@yJ ziVs30jCyQklj6nk4W+z?K_)99RQVJ_dk9(ZR-Q3DzN& zaNK^ZmlhXga;tmULAfblS&g`6MO9PS=#j>#L2azL>Ofb%x;0}w$)3y1ot(R8l2DlO za`r4)iCG{P@zcMD_rf~LnxUee_hHYU;Z@c+7KlaTvM#YeEMmT2M|TA?R3yvK{uB_K zV9oC$)_h#_f!NRQgBCSUov9gWI$r#*b%evJX!N@_;jr^*^x<$%l@*gW47@;1qe+A} zG$G)yk$8Ko0p*qi5dMuC)Y)Tc(a0SMBx_UKn}SK&29?r-+_wkQyaNR+L%T<911D0R zUZxc-rZ{sdYp#Wt*%tYIu-k!ST|4PzmIb@KN*{5~DQ{=;E!BiMg_H`T~fXT~sgdTz!2 zcKz2p0%TR(_Fdw(@6PA8?~tK{nC$WQUnKLXhcKTJDxHioFMvI7gshgHUgDlHjMoW4 z^nf2~43jns)HT#YJ!kxlkjEyf;{(BATm>l4sR8WfDhFa zXMg(he1uHS4U50*@0`3QJ%A`Y(r!g2wW8fOA^drR+hORxZR4sY#F z)*i8darn`PEM>7kBX?ag1gUvPNZY239>aVOy+;+*q)!OxTIhf1)N;6~alPii%23gT%Sv zu1tYR-CJYWREam)Hxa-Gn!HQx9_C_i4!W!!BMY7K~2?6Bsegg3e~ZNOMh*^L^B#q__3LyGGrZe{YQ%Muspej)*QBReAL@@wR4;hEp9Z&(Q(oQ z^G1oLjKablt|_`#5ZH3ITLcg`K<^w6 zobg)r_!`Ontif)zmOWj-&df(k0pKM`fF+lahvPkE{fNC_7Bq+4>YBy?Yi7A>xa>yb z_+(j2;Tyv-wcW{j^ySLnA~AO$Fsmu(N5&3Lwj?X9?!v)U8=11rA5dp5Ybq>&Qw>~Z z;}L~Q6N|NU+!uKmMFIqj#>LM^-i##RalJanV&)7#79(vW(&q!KjDg@cT51`(c2$DDIaT-o(=r)2s&4 z|9>$8ZB<0@T_S?-&L@ILEOOt?GvY=A+L%Td5U&K2wQ5jl!4)Cg>lBLOYz7=0xHKsi+5;rG4?GRr55S|~H8h~zul0PDH~DDeLToUH0%s@7_f9xEJOOYZUb3K zy`qjQSv|PGi-3*P6i%FDq`Q=EXHFKw3Q8!mpuu0ymOLj9@>);3)8?s{l>R$kUN zM{hd8ZC^B+%CbhXs4nOks4lw7D#oHZUzSl_qCE9b9e$ribrY2E-Oul))Hi-FXG#9w zCIWX=MDSfAg75x?2p-@CB&Ks3v!Yhpcicb#zx08M&fd;-W+Bl2Y-sQlt z`_`k37lCF-UP}RsAM!MUL(4YWOC#8x?Y4hPBjgvG(GGGngmlfC^uA=LL64iigsi}~ z?8Cq@c#geoB^%K)-9H>`91FdL{?Q*Wxr)T z1cbWIRz58iWxw?#7&DkP=Se{XMry7(PZS(WxL`1ssENO0ja3tWx1*WYfkB>m8QQTj zs~Lken+1arFFq?U3kD;8de%$|=+?AWdX+Vf1%nmb_FdwK^}ry0p9X^y-1g`!#dw(V z;KxCP-F3S7<6r9t7FKcFcZu7+JD=Mg=mbS+n!W))JpMy5KMjo&GU!?IKFCY=mSzo; z6EfCdZ*^ z?U8w>Hh_ymfzWJ60*OwatVwo%K15)FR1|Y^_wu|BK%u75r!;C%Gb#KuI*0%Q4dX)a zUvj*M8Mz}Zy80#o6omwSmsVYOS2T2k61E*smOnlpWinh=Nj13_tdmd-s{;F-%jeG;3IX5zhmBOzA?vHUK)d{| z>abtL=g+FD4(CPvv68Z`+(?$yk2U%QvM~BZS6QD}oaf7u(XXFi@lU@`;yhe*b5ehQ zH$}dWgH+?Zzt#cHOCy!}{QJb`-~S7r{{pVg2K8c4Zzs`dsrip4lrmVIG*oKSC#CE_ zJ8F~+cx3#t4$gZLKoB0#<4j9GN~fSUi3!0TMF0gb^Ea8jiwy|?FM>iWd!bsawIzWe zaiio)*$O<#>H&}BZ$W!Y&$1=Ra44{akU$F`D8WCwp|2zW`mGre3On(6A~2gdg!}K* zC?#5qwx=C6!i#YnVu$Ip#XnRaJ?pvX5d)bBIh>b15WZl~o1k=nk~MeR%aV zym|<)euY=RqpRyxc$F20G17&ytPoDJ4BjTH2lP?(09^FJ+t2SyxzDTASv{f1U+W0G zRaFn@Q}uxUU#bTz7IS#AkSDNcM*JD@#!S==7tXPEpIcgi@uC|^9XWw{Byh}>n2)0I z@3jpIMR!_%N!uja-syS(kJKEAswn6jT3$9XF(iHDK+(e0EeWK8+fFhowSmzK`2(T1 z^_c`vP_SF(?{GW93ke_`Z$a$C9&*!q5k=(20w~>SdwrJ&0}w0r67NJH(fwJMtZX9U z|8sS3X-D=XFkH+SI@oBmPuZXa*IKlY=^*Ppn&^Ln;&}N6_S@PKzGY>WB^JBYN+ga6 zH43WM`arP5(@6}tlmm{;?flP6rjXOyIc=_~4J=`%?7Ycz6$#IA%4*5Cgxyg;BfeSa z&v96?Uc%$cKmfC|SS{aeAg|&Wtf*47EB!g~Zmg+X;$PKGWdQRen_ZS*RaM0)BF|3Q zcJ@jV3WMJCNs*g&Y;j?Ktdr_sT0rH$Vr^7qcMI>2b&s*Tg|e(wjNL7gU9;-2&@C!w zz=&xIx+T(I$G_U+_i4M^L`eb&B}k`S7+0yY6Lgalioc5yQmd*((5G4i{lC;AfN>2~ zng1RNb*Iw(Bc%^<)7g2qFV9;Nfa4R1VGzPrCJ9STj+dOI2ogZt&&V`bW`t)FKz?h(Wua|?glrVzCF3en zuOxtPZ_qG@Q1wj&5=Ec6jdwopiG(BWbteL__yor+Q0}i$fCpM0ZuiR3htFhIB7-4r%~eR0)6;RSiUBt!3?K`Dk?j zExJEeR5}`KCB1r}wX$F=tdJ1N!j2YJNC>Z9hF2K_O@XmQ?dyRt{5}oFCMqQKKfkNb z@Cv^hBDm~(OrpfD|C&eetg1pnpDHBu|571g=#cv`B9ICp-yo>c3|E>F;sV+sHh|oc z0I~>C-!OaL9A;iwGkB#KSqMLzX%0>YV^foo2a6f2ej(}AF5&y>wL${5fqSFr^H3Mh z8=Bt(>Xi>|{=RbRCC~^xLIw*Q$j>AI#;#eR?B|Q@nP(sDy-q-z^oo&Va+JLs&XJ8))-U);0)W+Ar^_1N4zei- zAkE)4PX2>=z&L!|I3B-cy%f~kp%GPt0P*D!JWs6p>up5SsGz=NC?7q#UByZj*= znSa^Tww33g2Bzh=flA9on-r_3nus#hPc<+tzpFYI=(!TCx-4`%x4#csd+P!XDiEw# z9a-oW$$o|7vR1Knw4i6$(W0xD;Z;FQe=lZsflky^=%bnnxOh|`^18bG{k<2=aFse! z7pR!Qum9Rac&)0ELZ2!r^ygPnIA#WnJ%AeG%$KuaA=9{#X^aEuHv0~}C4mmHwiH=x ztsr+KFrsD_VxmufUN{>QXpdZ^z#@tV8X*;FN9|FCY(z+nCIep0LMmsvfiF&Je5uXy z0;Ie#f_NeUe69izXR~)`d`SRATzRRkW5oa^BGCUC#t z3=5L(Ng#ow2Ch?~chfeotZAg&qv>a)BrXH0hyWVH&QXf{q_(8_R;GozUb)%K^J6k` zJuq&}BnRI2SPsS&xzK$k(t}F zrV3M7UjZ39m8^8CPSJIF7Ha?%pH~O^iGmU;uFcs)vP#nT`I9+(yxKPQiWQLd$J(Y2 zK}E#>tXnLCiez^*H;bUcLIMhAL5gS^z?us@g*avP zq}|YjV9=hkmbF|OBme{0qP6~_J8FdV_=aj3**E1q38bj7Ic#c^K<2?TAIC;~rH{5t zgt@Cxil~=?pAhB5O}5kxSm8Lh-pixR`%HlJ<3sC|8QsalgAg}*7drTfYaVm})!CmHnV$+n_3GA)4K=E?8S&{)W z{Awc`S$5>HKC*yG_NT%z7~LPMnmWJ~^~Z|E0;Wio)rSR4k?fvd1_E1I3s}Gu_52m~ z%#XGOOhL~uIYn3bX|;gKmt{v@VyN{16MmltOusb+3}E{CeUPuXtDZ^fkLNLi7+Q?; zuX%)+s;Uh1smehAFI5JH25)SHW&Hfxi-GKhW(3RjxUg1=TWSO<2YUwQ|S`;(g_Z_l*zGM(&N@*MTW;-=nkB^=CU3O2c@wx0sT}(uoUmL zgJW2ixY6hLa&K;uAwK}+_^C(P1_6GK|7;_-Arj8qSm)IE)K~%4L_V!)3_E zx<~taqcyOQD4?KUu{yDkD3aZWJVnkRKQQ*ruP~_0@WnIy3djPe%!CovAQ%WcPv`m3|EDpHyX;Z z5k%FA7!Q4t0IY5c8o`2{0|_)p8zbMGMLu7$+!g7AyfOn@uUu@!60=13X)^}%MhL?z z(uiKtor9f^!I7Ij$Y+sLD?Kj#YgIB8lny-ErAxoXZJ1EjC0V8WF#Mm6d5e`)4eR}b zoHfBkIL$V)iJv@?a6EY%c@7=EF4kc+*?>>-RF%Qevpgjh0;|K2tE?_8Q1g3cpq7YM zJ=+z2pSE57lI0uQ)z9yP2|_0}*Pkql$aeLA^T>8p#g^YEw*3BlwtRg0FJa2T3-#yU znauR2XMSX)aaka8OO23Rg3^fD`S*YtuM?_^w_3jGo;pnqKBViLL_z5XtYUdIkk-G{ zF7eipSJ{S|fS(IRA;YO`Nnp4b78*}u%vaf5BUg* zypZn6Lv6gtsH+u+e!t17K$cvN3%v;Rd<5hV!j2Q-{T+=kPnJS!`1_DXSjHHh?nxl! zJ`n7%i0qRD@KwVJieCO;K2cawh}^^ph5Diq;B+EauH(x4)+e%9eS9U$gnVHS!toBZ zotrv1m{^H@iL+{y{`Vii?mjJuOnBS*4Jrq3D+ zrdkI*KFA4_&@Km3J<1VuOkAwAYIs#yYb}&P%yEuB$#O7>NIKZ2L?%hp(B8k01f20j zcj~J=J%YNhoTg%?%%hAq-(?tVm9GMHp|GAj(g_Phvb=bd7PpzmKv4SI0plpi4vI|Jnq=F7;owzzvBW zfA|-A{3C8TmR(s4BPdD50!Pz8Sc*wQ*OEvi01F%{Z)VS@LkvLzDZ;%2O@%lpwGGI_ z)Gqd5+Kg?^&Zr>I3=6EGQC!ppY!F?6SAI(Zsc;<`e=Ib4lGSQjVuNs;m?Qv{NA;r; zx1{D7iU1&Y4BB2vAceQ|vCZ{OjtHh~q5Qi%4sd$L0slJ@=uiMMS9dn1O9T>ca44{s z-R(y*)Hx_mc2^2JIx$@&fNv-+y670{WV4cQnCGAgh_YG87KjB_E7>jNAmkD@6JWI# z3DiC)NLsvN!7zaVXU~7HSdcUij@>R>&CKV$iQSh8z*n!L07OC;m0Zr zCPF7;f>l@w=A=Id?``QmYU%+z$srV0HwPiI7IS&bSZ}!n09aGi6wiE<(^0kwzRTPM zcR4meR$Mh`P&HQ>4esf#sz~?GmN<}vvFn9bSuH7MV-;laUPQIeddB!}C+>>vdJ{za zLqx=ni$31_`CW+=u2N@8AeOyH*>H9J*E)iGRm}WDV&)(IiJ2b-p!;rt7`p~;rnxfn z(}Ylv8dMB6Ig=WJw*sl3*G2JW8!s2;f5+%^QagV=p@jS9Y#yE&lkF z9bGcVze8^!JK8w$ZC|p9I3<=bjM^mYD#gHgk#({UjifDj7>_q%V3IMS)+!h5{x3XyB9d?a!`4Rwz6d~8WEJ5!AIjMNS_z(-L zch33(BbC4&_CR{0CZWi|9f&|40@VypYX5ym}d4Wpy%T!Aq30 zPBh+t-={sbzij>*jR&Eml}6d|tJGP2Rm{KE5u&Ri^B)qK|8PE;KP+qu*q^|$1j^HFZ8 zM`mmYxi%s&LmEZ)ta~OvW<`fLIR75@P#}|O_brOCpZ=W03*CnqakP0TFdrd((Nivn z6?ml)kZUls_P*b!QL5F&83_*Z%WngqrYBTmBMEmjLdxqY9ET4P01t2;RbWTh%R}9_ zb9-h!r4g!Q#HaEgr&5rWO?mht0dTgUGJXE%;6vWghI2bCpoH0v7awt-`3PPNpDZR= zrt{aL^<%FtWucZ_H`KKOvQll*cbIkPGOK!5%m=xl8v(v#3pOTev12|4zO0<+Lsn;? zMJtw^Vtodqcag@I6&j49&b_J*6R_f#+gOR!p+$LCi%9NCpS_~Qvp!cA`@P7MRJPZ# z>Z+-=u6nF&;d|F}Zl-F{A|GK9aPm1=mDONB)@3G!kM7y}b_3G>6{{x`!x!}oWEk|k zUWZp%pIBR;-!t3#CW-|NQLzAA^lg1VzmJ-ykvcmgq4uwN1P!a|1`Mfgz;J%u0DNJB z;H*cQ1Z-LhfJ3eGL^FckO2vU9XWcCcAmXDd(5T*#0D?+jEDJ}tCxN3MBc{ZCAOWz0 z45Y6;Xqay!nAYG*%Wlcyu#JoWD@G0tEn?b=0O||G9?B<~bO+N{!9bYL0Vc>LnKZ2b z`GrORrWdjg1L9sqVBS$_QHRJxjz-hf9m3{T~!2q3-3bb63B_^2Usml61qUFS$l2O)jSo{UTN*ej%3$)+qi2Qsc@BW4Ur zofyDNS>(CXEA$n8M|U%)qibC=Q<6z%bR&xzkfz zV?9*>$4aRNjS}Rx$`jV;y86UsR2Nm5X)nhLsGWyGmFmM_PZ5 zKZbl0l?;Zck^wIIkniXBrOe_gb*9F^>|L(z-Tzxhh_9-q!H{Yi4F6Qq09atzAY=&+ zI(++^Xuf=bT4Xs6(+ z%R2RdU4E_T|Q|TG&%|_v;wa*0@D7P&Nh0ZMu1%-yUZM$Uw#{SMWCK*h^Th*WG&}?fuvUi zT0q!vguMvNyJTb$FTkf9fkZr%{dq|o{5+tfY5r32k~nySZ~$@v>s$Vo4dTLSPBJiT zezN!#NgS-#kXaqi0yaOEzyn*5VBLuiGsaX-gx<9relY+#uHYM4tAX=vojAE$U8`bg z(mR=X;v2MafAXGiMrM5muML9{%+8Rl(8z9n1*!vwv=7VJnsP@1$D*8LBd^eVZL?_Fg_7f$ei}GG zg%OY1EEC~z4t+fMmhUIv8?|?gNn08rS1rUCpTbVq&TrRKxMKr(h94N;E^R^HVxs&IrhZ)()$K{8w0p*Tk zmy;(Hg)$t-mNyzMIw~@eSa{{|9b^~NXA!Tl2z-%1A}}PYiU-+v$q+M3n%*HFrXgTH z;xH}8JGz!tZX2diaq70q1I0#YkFJ z<0UtRZ87|KBvIpmeI*ISHg9L&!F$-Bs-^ObKEnR?@;KFCx%|LcESF!c!J4d>tg$W_ z4gT5aDk~R7aF?MhD~*#Zzb~~01b#m!7vuld5x%P`0WqW! z5X1Q;AX42*I4kF{A^^rfIlm1{_-K{E`GzKROapLIG4e^nB*nGNEkwDaP7|a<3ZL?; z5QTLj(SsLR(=VhA3L~g{`H_ZNB0PsUIILN4Ljo`vG{k>m(a@Fz2JqU0v?hX2Pb2`c zsJT=1;h7pCu6U8>p(J)S!>W=mMhk{B3hnc9Z*u|UYYe^Z^^I-=<*$2~NwYr(x#hhg z%zaiwZv4cIEn_JM#jyZRuEphhc@F0(<%qwwO`8yK8 zsYRLiYy{7{O3c=PcnFWzD)H25f`Rj;60khVz+GbOJ^gtWxqM)})sbqP-KpnL%>`hP zL_LL2;7Jy*fjQEEi)U(t_t~t=-+^{ZUPz!#CMA2Xuha+?;YT7!w!OZI0ARGe*LP|J z$0=-**$P;Jojf+nB~$r2nC(B#&a6d}XUXngMKDhTq9^x^gn6mzfA356zFqFa6*EE? zMsqT>TtRtB$AG6M0%?`>PsB+-ij_JgwULwA`xn=n_wB!pRv=Db6dQTh& zb*OK}04Li?du9mWoBL`zp#mLg;5XX|=WFI= z)0sP|(<~!ty#X^P0rDia`qO4^yOXF|CS<1*5gTE}8iwA2W^d?8>hcSX#cXU2t#h*P z^wf6Z`RiYUX%VZArs*Xnm88$?L9m-mG({Af_?lGbUCQ5VcqEfA?JVZQGpts9Wf)`J zDoI^aw%FTM3me z7ur#@zhC5ZY&_RBSV;8g-QRh_b$b6epJmXG;`crUm1`#$_oG-^KZ@n?{V0$~pnP?` zCU>~W2=BZdh1>-yW@O2A>pl{V7h*uh9PPnkHG}L#OI6g`x@SC+i&tXMvMofvG%~8! zZm<>?U{cy(m$Zx$_uiVp7G>9x@4OR(V{4b1FhZ6wgv z-J|w@|F737{Jz99PkplANjgq^S-ud116o;29ZP&E1}D;lrSm}K9k0Zog+O;2#IlSx zJ3gwi^^5t98Eo+ZmT&U6VnF5&0oT$o`A!UQOdh52Kt|yDb;Y34IJ7*&jhumcVWPw_ z{Y`cve7bF(B3sfQZ2>GB?=)owpUhxG<#9=2KZ^k_J88n(D2RLG%m9s(fw+hmH22*$ zdOyF}PTRvS?)2SuqWwwS>4&Wc*mFNwNzR)Xw9YO=*4D2FW=>mT#Te_=mCXvt3j+>z zZKF(a(2%wDSJj4jM94ra$t9r_XyD9yW@Eb>N&-K(N5Mqil3=Vt7@r+MSS551v$3+g zx|Gn_SPk#vbr`EesMr>gk&8@+L@cO$Qj??(Lcxpl)+Fi8hQoYXnQzXYtDzV1gILUw zzkbN4bV%%>nefet#gq=oqbg*FrI@0SVTU7LwO2yg%Hfxth`CmFfx?zNdK5;)adVrk7Kmd7`j zfKVVVkJcQ#1;}0w7D|3Dx6wqCq+To|fvWJm$HP}rsF!kvg%_H<(UM#_F=!-kLwM7f zpQv8rH8imbD`X9aL@&+``8J*wSvft$9fujN@ zCe7J+tN$;lN%(HVw`ih0%-Ty=ZTM8Dt`*06)k7GKK_%)hyV0GB)}?;Ce*DNE&`4dv zgRbQqXp|{ANZdo{e%^g~&(8Ff^P#_Q@p#Aley}KTW zj=qo^rU`jVDXZS#FU5e?j2mGgnOjZtn$JCrcAnTK2W<&*)bp9k{EhFkIvpa7@^fvp zgwYvQzdK3mR7iICp83mq1GFa81rrT!rCqDIMqZgHMFyN|#M%K+R z$oVYXxsa!%l;F8pw6dGfvO)HlQMgse3Vopxx6vzK@0r&#Q0|DOlN7p*k`Ytg_X|`w|7a&{koo+A6Ry&qcfayT9lEXb1DQ3Z0X{sKc}0 zyH})as;$D(+A1uMZ>s<)qgL|V^BskS<6#@zT>TwE%Ba{3@5UE$+oW2L+K#>y1LSS# z`BgHvS2nP%xny4w=M|y8J0IP9b1%FJhdge5pSNM3)uxZ!*=gU&?s)9zHrZoR7`XRh zK!%{kVPjS5jg2%C#Qli$tUX#D-M8||)7LU5zq{{84RqKjz!-hKpB9PWPi zio;DcN?2N>gyqjPN}xx=8vP|y0@eqr*1S=I+!67F-LdYd{z44kb1K9Z-_S3`;6%hi zS}|myN*&}izNMr217F)j;H}`r@A1iSoc%7uCsnwbV%l0l2dff{UR=a~d9b*GhOmIZ_FHd%c2$lD^}aXMLyWX+&{${Eny)iwz+ z()mjawyjWTz|pS!k=CeUbp2gjiv^<}J(gEbZ68>0Jv3Lql?b$16gaCRb!^dBb*2Mi z!F7`j;PB>0i_R&FCM0zfAw`Ix7VFcl-CnuH=tJ z#D&N7?|%1+{!O)3SXyg^0Iok&@XvL!_#nh~@A0+~=NVJs{?30`UIK{P7 zp5e0?PzGlSQVA1x<#0HP zl0;U}&|mld$pJT}j(za%^#&9)G=oQR-D? zi}$dyRS=5wF}GFv*p!Ad`pDle)5p8U4S_!1{(TA6uA*)2NqF}gE3!D%r(roZviN8E zH0(D^_liB*x8n0f6~5s(b(O*kF+gFMURUM&`=uDPDuva`NAXqIhp?6TX>>s^^be|f{m$b4k&Rv3gTKhf zRwjD#)aOf-YtnWOX0cZWmk`NkW7Fdhr_@9cj?VI7K4q_-29Xlq4#4S(Avw;=Nr_|FB==ES79GiPwYxx`#!BKHq>XRj5!QBQl__Zpr({1J*=Xq>Yd&47B#Mt zW4#vxQZsjnCdZBJ)aq8{g_RY$_BYqUku7o+(*9INol2d$hy5qHjHXbs)WUV2%>dtK z{blh*42W2wj9d=iS2Nh|T2`Lj=r`L5b?vy*cbn>+7N$fkksmg52TlBpN^L*IfP{MK zUYwApUt-X@>k2;AWAE()EjgL=mG0iSn?GCNwh>rBg}$&0(aP@=Oj(ez2h=l)pn31UX)Ry_^9B*vUTiU043>~bD zs3iG?idM)YDeXvu#EKc?YGK7LI>ZcF+y}c?3tcBEjUW91AD%;@Y$h(PST^Sz)UmSp zU?n-Jb2J;f6BXL#XrR9LW}Jgng9$~o=p3wCNGM!6(YuyejWn=2GW=(P1~xh4j0W=e z%QWz={Y0RFw|`%3PXAa$GkHt{?{}|g;8g#KrS+d!9^ZeWm8d~;mK}aDI%ZLypdQWV za!2%^SV;$m;G4S2r7cV3^pTvajE;k$dy>~(O+L^{3Do(9K#p%yMud~F6W#hQ$~ z5d&&^SLg;m{9>NtTQPtLBKBLdmv?4>+qHkq#!-52!@8sPr@QGmN;hHvr*G1R9X$?| z?SmPtC{QU``bRM!{=6LO)WuI?fSBGMi|Ud-o56Y~E}qEozSwGIMJK8*wiCM9(PJq4 z(8b~?@!A-d{%!`_^*YYU58G*l+)>H3f7&u>g+w;u^D0SSU~?g2)&o$%H3${uIFSNlpRc$cXn3KWVzn{FUq#f)*obPs#8el*By-!5}r&?c}TI-9`<6B=K zw2QNa4qgin^YOUbyT4Cv0|)*=ziy*6j2MtAg92OmntLe*)V8cdqc6IbUWow-KV-mn zXNd3f*JeQFM}I}}RsF^c=x@-+qhhT4tr_gL($Y1F6pI1E?dww?8i^F+y%|t%-Ct5t zTjIk?Y`Gkz4`KlRt8*ld(nm9(D{bAt?vpPKQ)LTl>9ZK%o91z6 z-DGr7pJX1FIuY`_9CZBzFIt??AGQ+@VBG1att&|t+u^&~baTW#Br zgqg2xR@PeAlDPJs+9>1q9=H{OGNpi$Y?7rKK457>={0eNL6!H_bAO~Xa+^3DU)Weh z)t69RVq;|$ELnAlja8=etboP>OHvjc!)6Get(_qeduMl-=&lp7l zn7mu%Thc8QtL6xxHp-YGfRAlDp>Q=r85OUbl6{k*n~DdEg&$8bDiXl5?L~ED2w>H^ zLJ=m!eoI?Ljt5&MfEU_coT|1LY|IJZ?cY68`bRsMO9K`ufWLRIxZqR=j8p4?ar!eI zFt+H*5E(mCk=feTdR?*H5%EYWF%$mR-!^nkpZFy0PmX#b1}UlQ8UOQ+7Wk69R>TfU zHAyWw_eKneKA}(3y`z%kKr>h=<%>?dcVcjOf^tUh0E_(Uy$$y%>$rMjJ0aItyVX93 z0Z~Nyoy6oo*$HQzCI`lA{bUC81g;&9pT&Sc(s9r(?u!|a)L8p*zluTYMJt7xab0~g zgUxY};P~AZS=9dUju>J<9nn5|zkb?;?&wOW-%o+^^^Zeq)HUdvhS#sRz^$(yxy0Fa ztrkgy*T!ypN{FK(;_1m@DC7Lho*D8x&D$7ChHZIUI$lD!UifHej#^^z(r(t8sbxum zW}*DI(OJKb*J42*Z~bNQUb}ParIuK{6^oW1AiqR!P%(_u#iZ?-KSe_psSq|(s;d|_ zWAV`*RlBI9DAp0pCLqb*Q%G~Rr1&-G?5lcXC|b>Nz3O;BWP~Eut89N&ws5_&6GyrA zX}Q%X)`iILg-#r&suKqrbFO#$cP}~kqaDnhea4=i{obb{cvB5IPOTxw>CZIeIHFri zav!Q53-5`QYd_0v@Y+{7KCZnXhwOtg z4V}`v$2C&1H)gO}@B64jq&IKvvT2sp!)r$NwD-nN`@hEfd@pB!HgBZ@A=2g>8+z)6 zYli#53~&wg4v*;6{3r&k=u!M$i7>P+pFI)SZXTk+XE7kTYDG`B?iaOV%m69B+Tg1_ zn9EjD5i=5~Pcpu{$o;?DQCGy*OTXj~F~HrsBx2A$q3Z05B`Cjaen<-F2QSIPyYlf? zK9z)GugwA#_WqZUyr(uc7noo_%6#)h0`vfv4TxKNKRI(^@jQ%2q7P&DBWa`byUD`4 zx*)QukypMRh8^Et+k&vtU+&I5Sc+L&dLQ{r1ld5J?JS_HH#d&GDo&+Ewu($s^3QUm zb9}C9TJcGaH>C+E7LmI>woQoQPW031@*lHNMV#oTd+hOkmiMd3;{G>9kr=$K8h0o< z#NcgitG>G?8=cf`ocR0YOuh?kJuqtU;sVNlw1b7Yu>ge(xgbY_r4a-<%Xzh(~b&B*@hVGiTg^BHNH4sia|@8lWNa+hF4;MH(-;r zntyFOq1jgp-o3HQSVj#t-kQON65Q^2%tE*Q+Bh zo~2$n9fC|}+5u=n-`O9=NV^ns@kaIXSao`wV zfg(qwVtUhdJRX@)R$E@*H`zMpMyq;l{CM>76es+C6%-;BE4y=4cYdt^5UJQicaBq& zaL%Y0f4@w{E_CPMU}q{8iYiR*zrEOOpJ(R_X@wUR0h?;cacV6&PLFTNaVrY9KHwMH z9Zt*c;PNTIFR|SuuR0>F z&JyPIkv*V~SDyO29JN*F4&2B;#NhN~yOD&lm>2icW)wel|K`ZZn2tC300YO@l?^z$ z*}X-|)3i&&P9z*N1?8tUP=|HG?0_%%c%`H&E1%G3!utGT5hJU;1rn9&fJ#!(6vA-t zs?tfq$P~lSqe&Cw?Dmp<6seE_&HQQoVP=$#-`WIQ_Ftk*qUe-5%ih~$jpa@hoMw{7 z6rJ!s>n~BgQ+SG;PKR!W)AbgS)9H-PaJuSv-)v0B$5Q}`?zR4GGaOOjCUUys>Is)t zTd&KliVu;~Sxe8CSWGl{ zB?h#bT}#7)XzQ1m>eP;$6ZGx6n%J#$B zL|Ix)$BueqH%dQ=9?K*7`XC0hJ6(x?Epn-kHd*+7dT&wm;C&JUw8=C>C<~qH`e}=E zK=0IGO@z4|`>%3Ie6gq?PUN)T?4dsGv_3F4W-|jmoNBk_4>Ld^vaSdDY3oM?P#Sd& z$#mL3Vv(jYnJDs=%^dQAiPo}><(N%2=^_!+QC$JDK4yk?jFfUE7BbZI#U{Vxr% zYFCAI>Z{X*rs;_7(Fh8R3UTS^+%ntPz+1k zTfDd1Nj-Tws!G0F2BG`C6tw18Uw@9s`t%BBSYLI#FTTRV*hf!Zbv%WiIZs}7JO!IM z)>j?xm)vjk4f<^1rAuj?8T19|8 zHlJmuCIl=6mvJb+m;tQ0e_cc}`Be~j-&BicA@}dqhcE2Mt_(A-8%XU zk2m^L44NBIC~ZdXbVg4q!IJpNu55-VlJDPBDc94-{V?vUVWYX%+epp?$5cK0$LuuRSav(OE^)&OdZ5# zN@5KGly;>R5_+%W_GgM?GZM)PWVv3REs#hTV}-0<_?TcSc+J$*Dw0Jvpf2heH=qy- zQ>#;unj?hO@f4o?>J^Kk%da>xF28E)b-DFvxmAJU;i{DUHMQi7{PFk8ulVw{%7{T|;C1Lx5eQ55Prn{Mis>>U@!(;K3SF212& zocf(;#el;ry!T$pPPms;g*P&pS7LyK3#tDDzSmy{^eyx*HO}!y&OkO_^I$#vB9nP* z26RZP_2Ax_!HSa6?um~y=)K*vDfni5&pHI`_q`7#bMy5E@b1$wIz2ziWl#jYl6t|c zDnggQZY!N;$_Fv2Z(UVO0uD^_yfFLjKIHTX>sI5EOfWdz^16mEo z(fDCIt#_>y!dBl;TN?-U!ezWpr+SAgvHPW^5IQU7a80ANy#*<>B7B~4tEX}s47s#3 z$>O`UKzUVWBu^iI>%x#!Jt%I`yI9K&l3=fb7;He}!)YK_SELm> zXClZxJc-*+kqaG|n)s5DLBn>yXtrfOLNY?>Uh6oOrx`}u*KO| zZBv6TP7|F0(}aL^Z^>t8Es_?RSDg5Zfu8X|GPb0Tl#C z2`6Tu+};2td)&oqeIrLDe5)#V8OQ67O1uc&=X>O4Y>}U*rti zC$vGX>Hk+TKx_rVP<}6bGXu!^Nb*h}j{QL^1rlGM8f;cVF*09YZ-7$xu!pYAG@o$& zOvi!^bWwDw*W_5}FgX>wwwWNoHPc4v58G7Klfn)Vt7Co}C`ppp_e^#olsF6uKR1iD zxV$sc`od5_gu_>vRLM&lX#F5+_YvKD{ml|Y)qrop*k0Q}tFJHPc#3Yg5S7*>?!mV< zR^z^G@5~}0xr%5D4Rhp|P|X_~&UmX)4o`=3to-uP5ybddq?L+lGhWKizF3FnP+Xf) zf>vOgiE%5k&6FB{x3RL@NNQ+)n1vDQBv${^#%fHDe?8U$C!+$Wog+%%KtvyF@l-4# zIqi>k!5PW7Sk6w*8!pn*w)L#o;{5b}!`h2R{_ zKmYT;eE<8u{ri`{{kQ-4_w8T)@=ss>$KU_=fBE!}|NGbf`j`Lw$N&1DfBTQW|G&Te zpTGa(KmYpIfBl#Ley)ajLho8=>HQK~TWaKUy$L>CcvE-3_&R!_7UvdTwUF9NwV)J* z8sm~ayiyCEvb8u%l7O^Y9C4It*eno;H*Nvy^$%L)S#RBfz9)4_&AVXHs;eJ`&s>NEmFqb4iMftonnGF4Zi(dnQ_ZR14fWr$I-HPd?}LiRte=I!`~l#bz(%3`v+; zEs%G{jU7vVeZ8I#Fp71)zE=w!cQX|&zPkl$v`!}cp%z3O2@FKvrSF9wyzcYy%Pm$E z+lS*`UFmKMj79>O317VSl|rAq0SA8SOJ%GoV?f%19P(Ht@#|+k^@utRF3gY)2BLB| z38yxw!%wB)n3x#WA+5Y5jNb5#2&^@5iyr~6efEw+jTl3?rU|9*?4${>&z`oiZi3;? z#SP;!VHr1h?~e}OpZzZh=-;?WCTnfL#`jHVN9~tl$i_@0E@1;R92d&Sk}$rZ8S+Cz zlP`LUye1=y{uFndXjS$-=f2y^y-K>s;t&Uzs<9EfoKEAra^5YX;mB`KLv3-AzUad(?ZFx@9RtK#091Nw?K1L0$d?!P-MmESMuFgvbmq0ufGMC6= z)rh2-T_B6M8;-7_b9&-r+NRcedpj2=!M1C zPoO0ATN;S%Ezqz~-Mh$QK-k`bZyu_5x`#P3B>=X!XhjL)4M~FaK0ExMR?HQN)H9q8 zOHXa1j}dHD3kpc;FgeiLTaX-}4eFB0Yab~Zi}W|1dOrJe97w9#rQS}PGkljN^8`wJ z3zD_8zB@8ckhHfzEN2mo#w15mEhw2maab`#{;fuC*h9>Yu zdpL(C@I`$(jbbKAn+9@w=e|kSWtyt3MCkaIDHexc{ddQ~+&XaQr&{od zyix?qyp!4?WUsH+NS7d%y#?}%#MDb7#D}};!XFVQ>7T7EsIC@UB8Hts%-95m)nY~O zz|sN~*889}O5Lsn5Z1BUAXQnCEikyZfLaogEFGLcaBtCEKLhm|5V*H!QXpO$Y;HvW zxVLDPJwkUP9Rz=S3ncUw3H7Hzb+tf=G?Hq*+I5B70*_8q09P&c%erom2<21@@?h&k z6DX&xS1mh<4o;9-R|dqrUwx6*0^T~$M;!M0OeB<3Cz>SVMB>LMmumO^1)H->oh$Mn z`%6j4q#-Vz>5+f-ssr7-I`9Ku6n>M2dF0n>kTjEb^oPvKijrV6lv9UNv#+x}PJ=yy zd+HWV*reee$+VUcnG#T4tUJvY&C*4EwVJz@5%a*TLEpjkh7!(d*ayleYfIv^27Y{- z&Ja+&{luqhc$b!)8^X=Vha1Grl#xR*6-UQJHUeH46EAWy#G9%y@+C1QvW9tyi?hGg zgo+lMTP(fW3>B?5Lq)62PW~>%!!NXJAyijX8?~($sOas6#kGab$McpgRXqG&-@Ig^ zQ%zeq^_hu2zHQ6#3619#1cngoIgv1TGFS$cRqkFroJsl_et_Phh5Y=TVj~A8YeN$< zFKd^h$xVLB-Finox<^cBD??p-2kzRNYzcg5`^UMpYmOlcUdyAInr3!)J zs(@y-pyaK8m&B_AnR|<-B(xiJX?6?F5yuBC*5}}Opo*sZg=>d>s>PNtLTLdKs|6j< z2l7L{Mvo##*)mLAUeZ^?xkNr8oVFTNNi&ft0?KtcuzJSqQ|Ah~gMlX%$XAn%c4JBs zDq){Gs-&8v>{IuW=a6ZOCI)mQ^(kRZYHYjs)FFe`=&i@^s4G zpE|B)lDJj*?$#08B@EpFjy{XZl#=QrL%5c(CBKB#8pO>M#~a>Jgpd@n`yD3x7^bD1 z)KF}OlNyZ8I9DN>FjSc@qbpE4XKj2dSz`0 zbkYCWgwB%+cLak=(s|dKCe{$$ZdhE?=zP52r1L(mUim-o71&GGIn}9#bDvq~<9pRK z>BG}%*`Dy>5Wpdo%9M@twn&&e?FVY+YH`*JiM~ScSB3OfNAV%0!F08tM!kNE!!$+Y zo{Y>b!qp)SQxD6Fpr$FnZEu0|^(4e5-YnSLThJ#EEr9L`Pb28P1^NCXkxh`dx1dWS zG35?;qC*kj?Jf8`K-npfCqDK2z4#_yiR&(npsU4p~MdyD3!K&<`Ym%299f`-)b zGXNm&_aZ9<&8;l^Quo@CwVRPh-HS|u`au9~b!F{EiFK7m&2^m+%kSSE(N~8HQ)gX$ zo=sspVU#-U6eZOsxdNwkMtABF%>9`S*KC@_YUl)L*-j$`u%V>6oQd@<|o8#m8Mq?&A4J4u01zY}$5%2RR@ zsVme<>63yRgR+_a)`n%|FDU0?Aq84EaARgARY?5N?<7MOzpa}BkzKo_Q zre6FM#q3QcDduBM2;B503B@cnH@{}J*`O<-n3XjYGv92fn@v?crI>6e%G57(%0WNr z?C@M-osY=3PlVX-_b(~tRJR;1>P#^o-!F&I#zItghnN!L>HEzt)~#zFg$<&YSy;W_ z>p+I5crzmp0iAWYpnu!7!2loiz7vW&hI=5e@3hg9)4(bF{ZCZL;KY0QrJ?iQq5-SC zup%9XQ}!0Er;o_&B!Wt6fy-mvDoeZ}j_%b&Ek(p7<&ipn+katg5b9%3Z&t3wa_M;iMyOH{oaDK`|Y4p5ByRs@Y<*0a@}i#u-M39sq1GaqW`Nj zLsM5n`%KdjH694+_7;4mNk7gOevJ-Go9DH>Ws^uU;H(q9(bkEXw5HEA>ap^sN<@`> z8jj+u&1#4McAJyas8R{yX%Dp$hJ+u&LVJ_e?p67dV^yQX?QnLDt#3IZ_FX_Z0hZsNs`csXY;Wpd~5e6N$9-V z%vW@=xlzn&GZeGhOz6DYY)Ev`i`i7+Q;Nxkf?{51%R_DQEyax0K_WjtQ5|%@e@QW? zI`eQ*XNvjw-aP1YzmJpw4?w@yS=6#eqex_cUL7v9LUCOw z8w6}^r}Y*hsyhL%wiB+ZUS!+$=L=u2^+eV{=`sUodkfMH4pRFNsUSGpTfpO~mKeD$ zdyBI}r2pQJBgnVD&I}b1Jwl}M@!kUO00{);okKU(qE%s)765Q>v1!7c(Y*-f>Ry{| z>%9^S$osu;Lb60k`UlFY#qJQlZopODiNv;ATL@U~EvR>0Lhq9z!!&p(?#6iI0YD6sp_nJ?X`0gPbN{>asI0W0D$a z;5HL?Hgv;fsF$9Em|>AR*~yg{pv@Gb!y^4L(@Tl|zW`}tx@VX+L-!2eCQHN>WX5#Q z;BMwD27XD&Pk#|f$xpS}Ff8#$7S@d{R+|l#5`Sc64Oz@Ln?JG%zo%r84Fy@e(8dS3 z%rjX$#gZRUn4chv_xqP*ajKOM7j-6!f2Nrat-H4*quu?xb8+`}zYqO(Teo8=N=b=h zZ?Q*ITbvfDZ?d;QkZ2_$aM61Q(y9gV@}VG+TC^^T-RnD^15&9L``v)>fxBv9wNB9+ z2JH40#KKjFI*u-=+gsp8p#f3mx759O5!Z2iU{_~N%eE5_A*kD1AnUdj?aWAT0o~q$ z=sET0WmF!_Rg3NVSbGckj@R|dN{XWh%IaPlbfmIac)wSxDOuNK6;`PhaNwR+#+iau zss+M?ah-s|wz8xQKZ&066|eJoqEoAmbrK8L36<8T=lr}N^X~Jb-PzOLKVj%q5I;$R z1n6~)4lD7s=7DiF!S9e}SN3}$_oa+2XOcRunO-B@QJ1ZDUCJ^Y4bh;R!{|9*$$F1g zKc6sE!!$HFl#wKkKm#?td(-kAyDmluH<8f5gQ7SZy}oN|GoG>sCZwZRVS{+H62`(f!!e z+EYf!hJsOEXcUBx=ax~%${lS5a)xh%U;;7sJC!tYszVURI@8F<_XvWytd7UymVUd3 zb=14n7;r+^ppLx-$v8Xl0!3mD;;IF?i}i?tzr6+I zf78f`jVO?-b9+2(`w@+E3*xH9itNP^b+i?ya^vwF;B9Y#pA&vsdPbpe9 z*I}G=H0u41*`;BZvor&$$s+ImA`)6yZ8mI59F2u_b2L_)p@r3EXkoP(T9|KEN8|cZ zf1bACGA(3lUeJBF!SnC_Sf5X10_WXp#|6%R?_LqacCv|nJ?m8?i0jAq>uKpe==ScZ zYiWv!+bD1@cQw&V=Y@^~c_FAJ4+x^113mEFpxetUJ;#co83ZUTp8i^QS|}nCHk0u~ zyAY^t?IwDw=V)@9`$3CIA0EcO=5FuZf(UMHaibQny^$OCgIZ8#a}t@t_#N=kE%1ry=iRc4l=-_K z7lGD{2KvHknH?e7QFfw|RrP5i!};ZNfa_e|Fj--ZoTMp-jxraoeHIAPX8DaaT!&Vt z<&-RdwMS3lXVbxj9t6wdNH}IXWZq2}KY(BIRcax;t#_(w-b5b6hAIV!8dt0s zMmazF5=JoO9>lU4Syzz(%H}x+SRV0*UgKQFb$LVsrsyoJtZ^2Wo1fO34Pq`i3)f9* zJ#!Ye4FxN_)b<9mbN|Co4s$+{vBDrT`Fp353(hsWS)ZHTtRLU(=3Mf-LZxwcLLK_J z54~>WR?tA8Z(33UBYQy@QLHTA@-Nq7acuI}{hKf5`~j-HP(C@3BUKv^RxNg9E_PQH zU)cbxS}-6rzX4y>VuSX2c@E%JJANFgZ|LwL(hazvTF^<+Fg%pXhy_hpD2)!Y2E1w` zk>g&}08{?gTkKlv^L~7?l51NT8!Cs(4+F4O+fvYgsaCiFZhH&X=(+ON#so5`d$pim z>9zc(7WfDE;^&Ox12OE+!HXYV{qi{ghI+1~8kgsV2%P%2)27T?*PJT%WqG8`m&p!h{ z@;KwgLoIb8jBati&bJKvCaGnA7N=;?NWF+D8d)9DaBZgBj)7c4BMohIq|%ZXxvl6( zbo?3~(Euzu7poKETr4*m3ONZi#PQA0$b3S~x!Ax@!COJT^XpL z_be+iT{vZL(VBRRLV5h60egE3ypZJN_Ry9&8`Xky0;E}r5ZXK5* z)Y0JKh&1=ZFHQ)^tCN1(373dOkZ*dMLP zt~>ES>Ji6e6zbTUB-Byw+GZoCj@1zjza~A9)e#M?5)Wiy-8_)hW~gJe*`Vg42eOHk zr__-R1$DgZd1I`KYr5S4dMMxGa#Sn-ya1}e^!@H7i=69uvp)B{S^t@yHw5Sw%3t<$ z^hI;r`-$_BuDvMem{J!3z#>(Jf7uVh%&^Gbg03t($#9RaRbaNafC_I1enwcNTF~;i zkL5(p1IYFk;#f$%^6J4h$M`Py@P| zo;8MaCXRTN<+B7TN7tw zZ!(wtC})|Ba~ovog(Y56L%D=y>Jg_{W^aHcP1%pGaQ1|$zUP-k;Qm`)n1#i`YWYhk|n|dYHVuk)< zQc!Jo3%#qows1%r(UYX0#k=K;U1x3Cjw9W@MT?C~KrGGy=&BYtpX)jrypp>5_*$xS z2jGysMU!YI^SAqDDUfQhA~UyKOK?bia+;sMJO`kx7VFbGK5OtvT@6~H-g;8UNVm@O z7GYOq<+0G(CV`L70X+l4br#lppXr28>Y$RvF26MFtz$$g>fpkln!O3WOD$4KQWc?^ z_GD-!4BwTB?^17H)txea2i4TuPdK2V9)aFr%-&#c4Tz=OQlGM^$hMkT33VRXwr60* zTd5|A6BIIOV?E?-hIM48>yIIF{%K&BxF_`@#x&2MEg_D2>voMvQyBxYggENbpCXRE zi67B0$~PN0`DRFBaqt$!t~MLOI17X%R@Qu$=9`TqHUaUJB(k9(iFfU1B1yd6KwF+b z5=E+fEXK3G-@oLGbNy%5=l(P6$M>IED3?7z*6;t_#fY}5)^A#QUkqZafIcr%`5X=w zKxJT*{2Mbu(J@_(!MdiX_33d;89AndJdD0Mli#de!$AVCrJVOciY zS{f7hRSRm>;vIs*x)&b|^>G1aTR*C=okWoVYn|NVUYJ-?g$#h}Txr-mFQWFLSENXS z-~hdjJ)ZHbZrVq37zBqE_6I)U=QFmNkV1WAVlrTo3#ntYOW2!%8@athN^9sw+FatK zG(aP_DmghJ6kRJ;^PR+#4baelo#BBxi{nn%&_a7SVp61mSlV?E;@2N%PHyMXCI(z{ zHPm*4Qv|WUmxLhdlAa=n)e#M$5`tJ+8xAF2#KO9H5v$D*#A>tQ#>H55QwL88A{z>V zc-K5862#jLsDA~5s9N>6FXx8|3jW0V-AjHr*F0u@ZXUCKeDfGStmu+VNbYnxfYhsX z5NllPU2XOa;37d(b$nheb&e6PsBDa|O6Z>;e z&b<+mmBy#lg7XqYIfwR2@^!v2yDM+MD zpsvm!DS&lDMB>xE1<^g43YPQ|%++<(GILAnhi|dBfch&9wbNByd zmp*QnR@A5k9h>4)1QhFDt8HAOa7CTkgH-J&!DcX8C+eV0Vp!CPJ5gt9rD>x{eG6Ew z!$=RFwA5PnTFD1SrsM<6>!|FS7LH#rPQ!k$(-ZmBq1|?LsX-5Q$saAmn>r13T*h+T z26V{LWK9cg?6i?(-Y&*Q#bg)r@N|Ficm~u1#)3@hu62maXO>gP-ejhp#_(-MDck@q zt*0?a!>^h(kFjUNZV;e!H>080T=N*4tT7KX9Ghz%BWFpdqdrIDi{N{=H%WYp`po@* z&dzH|ave#ce{?McQ$6(v~y5jT+Y$& z9FW!fcw8=>27;?Pibn49`2l5hM$si$8$eBQkY zkX4H#Iy9*yrjFwEv`I6j&e0%7TTP-Lly)6RVkVUn?9TwSQ9YuF$D+Ecw zXWaq%5Wc9D(ZxL*`AY2>ZFLWNyF7;>_^gX{&|>afbFJ$@C?rxxoyn_61&l~=Z_ntH z&zAQ=B-!ZP9|I{f2t#&thq$0UOU4#Mup4Kh&Yj&Ma~F~sb?(-L+F*=Mk>OGdxnOR= zuW4X~UvsIS*pSOQMTXLEgDxujB0*FbGJ+WT8yRxJ_|+y{3E#N}7-|xjt6|rkB6PlV zb))wPxPJf`lI;n@8hZ&GCIznvq6C zk|TlZkAFjHw>GUmYvNmvsDbaQH*mugq7 zP>VAK64S2%c&x3*U90okRq-}Zi^EA|onx7|?UJihpv0n_YH_B;k0^vkPOBCq6I6y8 zOTKltle0N@5c48X3xeg9!FRUGd!Sm3!i>PjfqorzL7KhIJ7}+?$PSr@B))<6Y67vE z`|?N4cQqNgBHE=U@>tz;7gf^^?pWRcx`$4t{t`*8ZX!C9)u%c{`|*eBo}hHGnuMH! z27x?23lj*h?ux@{r8LP$yDj+g`@&EV-yik+4t1-+1N)QWulb*t2GrI$K_Nz-&O};m-nUyMs=A(c`W#I^fPiqd zINzOO^nRDR%c!)USLFcUYJtadCERWMoh>u}kOR&2384~iUOxx6s|AE)nc`V3Aj5a1 z7j4xBfmIWFbj?fc2Z2=+H0%2_GJ0I>HB%S{Z^X!eoUBFaz^{iMcTo}C7o=WA};VcGvqn+;R!r-m-EDy5doXrPMtxmF~>;}FG zZ`Da&x3e7U9>%LuYTT2{}d!ZmjRYH2q@0U0trQ0aYm@9O2r_-<0g53P8dRN-3?bm8Sc05(p zZPagc)ab@D64&fC`CAY`Mf&ZBA~=p?db=@AVwuFLOO*xPNd9GCK@@Td#Jx zsw;x)k~!P&<4^6XNbYR&^JkwQGA-x1mVa@J%VA{y+4cU_N70RxT~4azqR{|;j50DkI)_J+s}0vv{p5;L*~LS)C5}Fe11K5 zz#eist1Stu?N5@3>W&Ufx&hg3aQ{wNeZvHC_-_VecoUZ*?7#CFCv4GAZ|DVmlEn1H zmkqvPvdeA=fAlp{8Pk+MYyd|3fKtK0gbmFI04`~*!Pyy4cK6E~n(fdBuiW_*|5k1y}CB98AN{8c^{GpyVz1WgAlUF;Gp%9OIFloi>>2 zEElRNKfA}3YZ&#CYL52r$zyurz=Udk7YOQ9^Wy-?osDWrqxrSRbX>sy4Qe`No%_Us zPRAh}d3s+g2-XQSB8m6;Z|kA-<1z>JCg`r)vqLS zl^L#7K_}K(N8w}To3=a!ogD()Dj9+^W$rHnx77lTl(`=l3|9*Zvg;>p=LSG{wV;0~ zt*)lNVi4Rcw9|g_q?!dKXmt%bYXrabKJMFjUWyKU+gx2F_pW~tfaPjIM~1#?z_+gR z{SZ>B!EYT!-BJCz=yL*?>n@|k)Vu`%SgscE?at$YZyj~OS)7=rJ{4D#$)~#){8kJ4 zD9pe22J5UQR91`1SD@vCb*jneKh<5HAi544p6BW157wzB$BXRqzVd^CRudAN=<{0s zLibJ>Xf?T!6tt4gG)UuvZuGY5UQ*j&=!Px)pAE;@VT;S>Q(8CAQJs!4ns58Ugb#ve z(_jsUd#YeFC?kJ$4;{5N9*MC&m4;uac&O7aFfSNr{bAN9WEdM}jYN9=>vYmUYk2vD zNCl>7s6~?e()(%<#(Xc6d=1aCB&k6dZ6B88(lCq|sS-!#-uadOAALM|#SE2|fKTJk;sw z$ANoGR6R+n`|s@Z>o%H{<&W`GcDhf4==9VeI{h~qL^nL5)Z}l}x5En057!`)+X8@) zFPw5spuA4R_7hR}xsM2Ts(KR0YR>sAs9r57lcI9ITvhasRtswFwf|+efT^kluCC6} zfN}d>Z4}VC36QQ9w7HqHB-p9mEu5!5QJq(T?mDAaP0Q`?dBD9|T+lUNM7}|KU1#!N z=WVC}dfOSRPMqL;wcyo2^G+on-EUeghOVVF9_n`v%B#hRD!nO<0`jW`uadKTk@Rzb z_-e61jT@r_mE%egW#|uE$Erzqfe4Tj` zIx6f3q6L9flfy_)?B)4wx?^PDMjcL)9uiJ(*v6YX1Z@q@C`k!vmWE*L>}5Luc&XmI z3N+*%@pg;ay&;(xpyAC7si=lw)R8Ia3E^J@F^FN(q_jJPU^){rpyGQ_*<>5+lcp3);os6H3Qa=7>|a&Aj#e3~h86T_!{!sl|9Jtl@$y_J*vVz0fQ9Ud&R zPLvlZ8NT$|`>C~o$V=ily2eN1$bkuQd?h<{`Z#cJiJ%;4ij^hnti{qlhfjIqKGmVq zQ+4R{zUmOQ2PBBmGUiB~458+&^G3ZZsKGqg2DYj&!u@pW%m#3+qlhkRo>#X3X{*JE zhspaZ72%5o{RR;ADNky*fGgH>P=v2CnyIMCEsnvX2F~iW-;q?DvTtBkEzXdcVv&mQ zZAPz0dMkbXr9vjL7>zp@s^B1Sy(&Im&xd&*eDJth49{|i=>oyJXKvD>J~-DvV70&l zwrcMw7Wf)y4DobAY~T!RJgW$hT4C!gbyWC)C}`$5ba( zK(ao0Fr7Q!E$PrOpurnJK~3MulP}!zNyj%GQ{! z-l#qz45`o)S6UU$0w>hD(~b6m6YAV`5g@-8IH6AD#p-AJ?Hh7IBdujr zsywm{W=to9Y5C68-L|f{fj{bubqeN`)6i=V;7=Z2MkM%73M26&E0;jCM=&aBHEO5%1wV_lmn}2a>S~hlRs#}2AW`TcqO6mY?y${6Z=Q24^O|>{)#FrGQrp_+Dx%!Ih7NB*t7##_2^WZ;V zt!vIpf1Y3fR;vZMnVs~4)^!wp;WbM&b&@xW!%Y*VngbB5uIGSi(ssX%;`3fdk#RaN z2Lhe-$+?mPJ^hS;UaH0UDmDK7S;G~n76%#|wQGlJ>b~4mb1`r)U|ToMwuzT8c=jNn zwg*yMB@kU#RO1FrFXFMpvi6GT(*+}La| zG3XjX67rWFl{yb0h0xH7l7{XhHLPMcEKd!y)Thi$di?d9q1B!~N(Nmp={?M{Uf51% z`L2nf*PgQ&lm)g~FCwtb*?OxWftwW8C z$>lz2qSI5F==8oc(MKM9@%6OU^W5E+8h90`ygjg9-pf=cQg1yl>uL6I`wquw=OV%8^+u2r+H) z7L4pt*MoB8c|aP7Rtuu!^HLMoWwqE)fqKmOD0p2h25(&SB?7&5Cq78gD09^rA>geR zurCH#wo;M!?y6ZV;#U`oyWL_eG>!r}d^{lz}Q52A)X3SDuj?klGF3GX>R&qF4F0#i*$Nl7m1Rz>*)@cfE$biOP2%1BT#RP*7M@|3_VmJ zr>dp#z_(hSfKD87ed^Q^-M?9dJakkw7;e(XF^G8r#cIJ@w7Q-;NrsMA3lNj8@Z~}5 z7I+4#1%VV?bItVx65EWNC0N{l7a&#(9BuPhF*t1Nv{DcPhO5QsQnje%0)?x^Xum0r z+FqpvCac9!s|fmBfzZ`rY=*p4#c+Qxvso@I23eN z?#n_Fklm&}cxU03bR+V7qq7;1vRV*!z6OpB+tX>kZ;~0<86{Au z7RM(3Vv7dbs}^TESS>mSft%H0Xi`dTXJmV7v0abz8ZS^&EogZ%Z~X{p%5#PrbkWKl z%v1|*d?jmS7JO>VEkIG-KerVtf(7c%Fdo$@5?HHij!(0`F+xfrEKnESKKFw64NTS* zIcr10U;-tyC1Fi8;^A&VM@y2xS0)g|dKU7=)dLo~bwd#C=~H)BNS)+!S7&T3d2ZmA z9AHk<4C-)zExDfoAO0|L@FuZMgTc|4)V-HoIn(x-x=6=a+{8dJl0kz(B$o8AH$nVn zm>B(khJt&@V1q%M5+0(ioM~HP?f-*6>Jzc{{}~eQVRiW8J_k)H z<30hR(^G)x^u7Sm4W%=hxRJI+i4Gl$kH*@-*m^G~WFt@WiVPrD)eWc>pNl|(u+@S~ z(uDRN$OK?jr-6QZ)t?Y+bxhe|TLhMYSGBm}a?@y-tvf7JElxKP?&%&kz*X-Y&riLN z9=rx>)#5`9+=gFZ-h`l1k~0+7cvUPQ`DCLq}64nT58@33Bsus2U?m=FCCn% z7IaP{N32+M;tb5{b{$Hp%2iq`ce9`dXBpwH=iu!=I9HPUP*moz;9hDiu~oRm?VeV%mMLY0N8ZV@a>Z~Czmw)K=2{<}B+afJI`e@_>V_V*jy?$TsB^RyfH!n| zIC%^qTZ6ajPa*5j0F5jbrA8tD(GYE)&br@ktpCx)J&UtnG`tF)#hJCCQt&KJtcPcDc9<{L*FF;QKwWGk{p9?sm%_M4gBSX}vnZ z!GowKXQ}5(wJp#-ok&ejPC0|nzG?!cQN9ug8MMzfw}#Y1uR{YddQB}=5c$B>+t*}| z6r(mw!=tv0Q5&e?K~y#q{C1E)z5R94A)HY6NN@ERBG9&B^uhv{Ghl1|zC&S(A=^&> zqCOQy|G2Q=UwqdD##l|9S{bVCWQVg~G(6kM4rjmEP|c`y2!0!^1^?pYgu}l$J8VD| z{EIVd7-K%H$&2S#Vmjl%YsSdYET;4Qz@ydCJWsUJ()lrHMjXc}c4+CGpISQS_qB9L z+NF%)eqjO$vR!ckd*4X87YZd#=Q+FhCFKMqb#wGV7e10Q7R7>cnpK~kU+XyzkVtyI z6%J!w(%vi~^y!*8(}+;`e$bqn!vcnO}c>cK)CiLupci zy8YV!=qqqL)AW6Ijz75tjYQ`~Q-4;AAxeLl3w!@XEy#B~Eef;#>K4aiP|W12I zcV*#HlvN`fhD9jPwx{@dJomZ&r=FdpDZJ33Bc%Km*>zI=74!=K-S≀iEV9`H!#R zQ7XMtP4l<5B--625=xu9tIF~PlmGE4x*u0rj{n|;{i)V2n@N4;7d}Z=P!dDZ za>uRyHw3L(df?`>Z=XL9;tBSw~IRrxq`p*ZD3L7Kr;=-_O#M59E%0d zhFo-oYlPS7n?cte6T_}OY^s6RnpYZnb&_cCVgxMogZ#U$Q+FX6$gC-yp;r$$zx|7b zTb(4zFLt-$^zhH76F~3rskMR1E4Si#^e<0t#c^Ol5?{&SU^dv}qgA*(Ph=$Vi#!;E z0qZ{ds!!?SJ`tSrQv~Pyz6cH)5H$ATO;4xD<94U-bEAtYtbvyBJcbBetQPe4p)<^s ztbnenUvSZq&Q7`j*J?4;XC>IzU+W;PN?$xk_A1YOf5n5ldJZH-QpL56I^uOKciUZW zAgx{r;9T7RDe2KHD7Bc&<^a1oqc>zbrY=NKS1k_5h5RL;TP-MkqS4`$DucPYGd4u? z7EVX87$r4A2~uw#vp8HAML2-4?r>s+D`%uw@UA>cQ^>x8z;ZnYWME|C&fKm4atq3K z=2rz!>we{Nt}nG-t^&c-6;$=|8MM zxO+2lF~NbQe&9eIVVm}pDDe#x&)|@*J3HK$He+2Xxks(-_SeNPhKQl~#SoAj6(b-$ z2n_SA6U5yvO$-lrGEZIX&}zpZa8H#=$G|07H4xm%Javk8G0$oen5Rz1F6KG=#ee8B z?sHGd$_M6IPq?qCp-4fUI zaR4lI0Y;9rPUVGkd5HVR@G14&r*LyV4gJOQf1_|iCe>4t^*m7Ger=6^hkrMYH#e$H({Zns)p}KsBJ z9@wVB!TEUYCxl_@M%LD)!MzB>tQMpGVIeIIM(c8>KHqRkon7s3nmR;+-a1)VZTJ#H z;x;KPVNa19Kqg3fG706RX(J}o(JXt~KqGCJYi)L@p@v54Bm<@}#t%Ok zS!rscH0#NVYR{V=hb@Rbx|>Iq$bkt<{7|h4Eb-$25!A*KwR`+?`^;G4=kO^@+^1)A ze(Kqr-`BGt1WOG9=}VW>@k-+V(LQ~_QdLcWQO+GDK&dv~zpZ+~fTYy|U6oCGokf;d zEp8N29Fj`6{4VVCEVVwJO9Gwscj=Hzs$Y3%J3j(Q%>tQ}6*E+e1DevsBGt&)eV|x5 zZ+s0i)cHX!Ze9@##8wM3$FvY5WkuSmv4iGOa{#uUV;k#HF*a3b+g^HHgxq%vn4#`I zg62{z5waz1hg0L!*8t$P=iq$pqrh6l09q8y8-zj=)#8Y#Vo>b1U53kl?y-X!+IkKS z<32j@Sy$wuO}c|85X^29TwiP1->7qUlFqD&fkG5*BCWI}5=AvRpr}y)k_3)T(nBM; zIl8SgW})gF-PRe?FTwF85d4jLFXJ<$SIO8Moq~VV5RGgY3W=}??qqajjoC{C=0LveN(syI7raPrcjIGT$`s>p!}Rs0a62~_dp04>%URg^a7 zAKe-Ytuks!F#B`-lq>GjsX0G&YR> zSa1IP6Y=qRunvBxA_U|B&iM}?+S=8h*IH*Vcn<5R(M9K4xkBpEC>CU1>KA;k*Z@rH zIqpAQ)uLY&(5e;}gqf$IbiTUP0v(}w^*H=c@BD&BOF2j9Rq#WdQ4|O3>$T4nu&S$e zzige^fUb2EK4q=ujhs*|$Z~9i35eBAcBa^CO5{PHMq#-E~=vV@OA3O^6#C zxD792B!@aHCv{Kec(grOO3;}5-han7MG&_(Jd2%i48dZDZNscRO%4sT_7%j)9qo)b z+csA|7iwrAh}9(c4eQ~3&2^@~Xjru~;yk-XgDJlS{Dw1Y$l&Dg@Egt!8?Xew;mq0q z<0Tm!?Y$!z> zR=3=3cX)xYI-?h+w6QU$psp07E4)?TI^PTBr|0 zSK;gGF*Zl4KJcPGM(0S|rzR7_I=)UUD4f(|?1tAWFNSt0mfKr4+U;xi$<*c1ux~Ut z*T3j&v_~p6;qiw^sUFMi^)`lmd)$WxetVd%q2C^U$0xD^g3VBi)%-LZBra&@h){xA6*n-oeV|XN)9GH;I4;7d|GCvL+550Ou z+P$}o#m}QtPPtDF=KNHHIlr$4g9Gk#zLyq*om6VidJ?4OFFi=5N+aBmgD#J3ck1v3 zUM+}49~T{-A(hpFR%?`amUE=ujbedM@F6kdZUL#(*82qO>z&8Av{~FF9M-8Eq_SGj zh5T}=FM#g517y{LGt?JAB$zr^ko*cesdKoTV|05IJ)eFK09RL#4AP_xBcrItreWxG zX8^IfmuP;II`qgWB-rTjI3;F)YW-baRjs*lPgB(AVAK>RQmLbkq>8x z2SOcn#@5m=25L0SYQDJ;r`C;R(b-Vl&3Ciyk>y$VaMl^?X9-MFp93?Ay?P7_%_Mer zvcN z(ZK7at8?@sk1Uh}6Bha*EfZMi#{phsE$*#-=0CRM*HScE`Z;_`OZTbJoS!N*=l4}; zM)@=41*Zo}G}qhs?^eUDcXgt;H>l8@RjFY^*`|#Gu2ll!f^0alpf_;u?e)84lz(5$2A=F@)*_Nk+2oRAVBb(d_)X=A8cS8${2g|2zXiqr)mExMY7 z=s3`=^Lx=$!dx+mYHcP`lV34MQSN68RHhjHq>b`={xivigl z_6+0HNwz}pP@4netR@#1P7L9F!?M=ODHIkNm_>OVzNBp%FX^)3S8Rp^r>sA_C-u|t zYfplJf!UtIcSE*4E?~H)Kk4qj_Rj;noo|{9KB_aeB*lZHzH0(UttReBHBfuWQAY># z$Wb{k;iw;yHi4sl9H1|A#=8bd+QdJA+ z?pbPuJFx`z)#CC{;oU|uAg^kH7|*;y2hdlG8;;GXHxbNN3!>HYnr9$i=jwhD4_B=A zRtvoA^EC(Xs|77dwm`zbcwOiFMPs&YMnQbFIIe|n!~*?C%9f`y3jEh|5H-_=jxm8# zcQ_93c@`|-uNH?@1On`@7G$=aPqDs7NAVDM@(aT2D1rd<&Yj;t_-aBUO>K@49G)P& z?#wI6CHe{Kgc*d_jds+QI)VLy`nn??dX{iu1!$+sJ_sa_u=*p_~0`qjZpUsGvp(WGBvO_w0lr4FXSpP)&_T@#jbuKIb$`v zgG;JOVBZFK8zM$>mSAFt#}ln*3HJiY)d%z(1{uonOg8@MH*AnczD>xvHI(C(+%pIu zvihj370(UW$c0+cWq7Ubd!4wHG0~u{cg1o~dBe8w2?3E+%nEa2xVD4159X@Vs8cf1 zv5g-O=2}g55ckohNT<=x(mn2@D7~7zWV56FdStU4n6TLo$(_JvKMowde4ERWM(;Z+ zjXuXu+3Y@fp7T?l=ls4r&++in?MjEl+X*Kry)!Qc?BII6t)Z|eAM+igfpryaI7;L3 z;Ew{;Rp;P>uf1%5?!f}os|Eb`ut+Eb)2ju1i&lJ7cQ5!}Env*FcA8oM?`ko6{*?QO zu2{9W9z&0A09{8RK|W_A;JI2*3N^3e0?zGjlYbFB*IB&Ygs=DS4&YoZV8$zb9$VWR zxu4T{2kCV;jE+&s=c>ExPMYELD+_E_3tBPGSv}CMd;hUf6<_|^Re|hkanXi{eeZ+w zY5_ByuPvxwEsmu4sz7+Vs=;Q}2S1Sg~~G^`_`zrO1-gVk+_|9D|yXh$$!nroy= zErYw!3$`<3LpZt)>DwTfKwxc+mzQFAhbD$Hq)cGzS*SN?Uo1{E4e?+pnhg{j?goFO zi|>l^8~%}{wA5CD-0B0a&Y+a8VhA`sa#j}x*R^%&0R{s=!n67peBXwE7iav;Y9P1u zO6arQ$28CjZ4V6Q5YI3tYx~(jZgmoR`pjUnI;K-oyQ9HobvN3D^rVWxW~<37HoLvj z2^t4pvssRg5Bbh!zaJm~=)T$KnSS(u_jG|DM`zr1{P+%qpzWy;w7stobUc#AN*wfu zC#i8)xru@3i#{d4JnC&D&^&U`%yIoI9YyVEYc6LNzg7#n37@5sqVuNTs09r7B2CFV zFZium(8gR70lLNS+yXV8%5eKt{a!7G7kSbC`wwoxSKG?_YO8iUE_zh`$?pTzsQQNN zcmC&g=Ky(mNE45htD>LhcJ5T=ul~E1BGOsu-`YB(ky#L?`%?ez7AIOCO|ShQefRm> zp=prI-JS^(OL9z~pMUu|I76SGfBTa|tyz1#{^Nt_gVs+7MYU&@^w#;zefyc4TxnJ? zrRPvoJIk3)rJXPTuMazJqaw+sm4pHLHJrrin~T{4VnXKrL$WG@m();Pgwt?DcND?Tr0U6{q|zY3K!eee^7rZ-!WSe?^faapynk zvO-vQuunrdiMbG*>uk(Giv}L*O${c0@uyNsYGW@2gD?o|l6)J6LA(NYHrN_6QXW%q zhHkiZq>!@D%0KlMsT*FgzHf$Ad*lENxbUg#U!b)O#=6fI{wceFnbW`S!iA0+AO*_W zKx<7|4ZvRV&(Taic~dtIO!()A(oo=^9|w-dRz)>_@c&jql|KeeY3M%Xq3x+Ww7su9 z1P#3(X|#8vr_q_F-Chy)3*H6gUIuBB&{z+^0pNP~qp@eAp>-5Abf^W+oJ~NsDmL6k zq59Wfq@mSqTmUjuYLVX@H1^FhQ{L$Gg?f0*BQdc9!J%)U3cD zk!BVuXcZ_t?AA7nh`gn<7%1W!88pl<-+++tx@z4A53V60A1&J8Dx?|nMP4ue=28Ng z-P-DD{z#yH28@t0%`@g+oKhMxl4_@aA=kj5k-EO%e}>)ab2L6|0-yDV&A-Fl#1N1I z<|Xem2;}Q;X<`^iUBn)CtB=95?ZY6uhMV0X+fZ+*)P=LvA*}zb!Q4xBJ38z~cFTbY zyL}~dw0)O3I<@L7jx=^#98k^O`Z;{cbN9&{ZBLn_?R}XecrGbUw=-qokJA+$#_n!a z#e}C=iwy$T>mVv$=$Aevt-!j9Mcg*o(fySUs#l9q=5w6)A^_B@1zA=nGJC)NQlXYv z@OrLeCK#D!8sDJd$(8)WK%e zgshItV09QS_vm=7qwYkv<@7NhK+ccy#YqChfm|85(b7a~<^s<(bR&geq=7qYGejeP zq>Y@z4;!S7lun^K;f~>{zF}exfUkaY3HaqhO?8dP^o`V1M~&KE|0%;RT&-I56$qSx z7r6n;tlNfOhviuyqxwWk&??sNK}L1H@9i_)`Jka0EliZD1N*-QOx0)VT4$adK36V~Yk_+2fC3!kJuwx0tmSE-Gw`kOlG z0m`cdAwcf6z2iV{9YuflB_pjCxMk>|)P5K6*5AFaw1i-!YO#&3sb7DoU4YHW{U}+Y zsU50Wpyo3#{s+@-rBs5w&pVJ_El^Rq3U%yj3!2x{g9aVxAKLx>pNW-DB&&3!v*Lgzx9sr{K9-pq;wPR~3uLPiJi;5J(Adu3L_X zQhf&m7aMSH`{686+d#vBb6Z}?mq{K*!_!eKCsEsQVFg`B(iRRU)pHNGkAqd`IQsq! z-9}`4)e+3#4T#VXQ=nUhZx_&N<>fMfqij3;uHhSj>F#0U8{78qQo_{WjhDpIiD>w? zhX+Ahb+cK5K%h?0Rz-$&WsyM~&Xt}?X`mMC`whnS)b|^X?GX+&Alp-{Z>Y9UeaXPY zNLy&WY8baqk?HNT@Znw8*NgQH(fqKXSMQlR{c&e`F9bce(cC|BP7X{s=PQ*ae($LQ z(vwY9LE{52z80#vLqCU4+2=lurtPWGwEZ_4O#{id#~>;c6VZ*``v5$r?<Q3IUwx1FfU*Uf{Z&I*%>)-tQJI; z=XGs>bG6{xx8>B?TmjX(e{QFRGCfGG7L4!L4mj6QC%T7T`Y7;NN0FS=ecCX~I%SNR@~ zZZ!ikoTbWHLnPUdj0nAY;({~Gpp4I@FvyT>cpz3>*r04Dxzstb@NMvz8JN*;YU#=| zG~3hQ)!^(E*R%(E<-7Z42)2`J>a%7nkUimDo($XeXah8$v$KR|s)l+yxn{kWJtl^M zfos-Z3|w<|*l?_OosuW`rGIlY@sC`S0~4IfP%hJyL6@gc%x(G*;P*Y{8tGQ947PhGQhi9kfjN4m_{tY?rK3T;7zhLyHgM7 zR*TzV@u~*7Rn~$iSH-f_a>~x}q~l+YUCcJst72N`@nAr_S`7EA^kj{6v|3zIJ(TXJ z-2ytQ>+#?u)Aazs)#7vr&Ramcj)G89(N<6?Iz6ieHLfRVm=k02YBB0nr*s_v*ZoSe z#oPiqsupNY&8al-T`fq5yTpd6HVUDO`KJbet-m`$gVVc(vg-c1Yl(jkBm>vFe~#*u z$_`Ln=!*&jgitD!Ro9KE?1J+F^|o*+S`B5@DZ1Z7VG}G>N0COmAhw2cy!o`mH$*=T z=&sPT6$3M*8?{g}Eg^hrP9NWppG-v1M(J2AlCm6Lo1*5k21*6C!ra57$uzWOUXT6Cb9wf4V(eYU= zV7Q=cs&Nw41@c|!#BG=d`nsBfw9M$V5u&LUu*{0sF}hwYNIf`8PEho9>J47WnM}S; zow%zo#o;$Hj~~!mEruVGe1NaN=$V;(hED3Urx%=Ru%VMWd75UB#Oa}vx*wUl;N{eb7#{h+7{-~2;o+h?oz#T#yoC(hZvn;3}g zaV9ntTRRgC#`Z8f!?8Uk@W(nudpv{i$9GK()|}ZHhWTLwtiTKF^#ooxJIp8T?6BcY z;Dy=Rc;V==A9*1MCcN;KhST3S#is3j#U^BW(1I`h zXY3|`SQQU>pj?K8+fV~Ovk+V26U|! zRLhdAFm-(auDbkV_{#mL7NbgPdJdqqTJS1q1-ZT0T`gz@yON{VXOU?5s9^wNY0$Ief|l_sJq{ zPg$hxeOaU{SzQOBi&SY|PbdES*gS+PLqY|4CqAI3N(bDpqFWx*A*;o3=1XUv&KJQ> z5e^tskQ$1wN7Swy;M6nl&0ncicl>~x)dGQc60oMM7mBDB^oOZ0fmkSBEuLzm^;5lH z6_Bb*4)DF6I0}mD3J?`s_C3;-(j7nDvf=6t#GNawq2%uJr(H-j+ ztHX5^d86}I0YGTAAn$8C&fC+2s%o)aLLD~Xs-uqQMbax&Q1=YkA@vo|3s`_)-2o`S z);Cjk(Ln`urS3Pe$dPDWDr>r%lP7f*$or_*70v>p+cLax9qOnq5gGi5I;(f}nT2jQ zutc3!={6C?;tl8Md9B1Uw3vY<>LgjC!{FdFq#K3$J6NL4Shy6!H@fR9^$0#f1Gq~f zXYfMZIeN88OUE#6N6+tX25_%vV!e_*5n{u%J?VnbM7`f#enh>nHRr>R_^ydzT%d{X z{-U8m*E;~)Una2#E_pLA5OlE)dZ5K1LA*#8_5SX(ho4?8XsY+O>AOG1nX3i5462Y3 z>0-5@Gs#uomf(oSFzTc# zxgNFN9-t)zt+Q$ZB%xp#>ZsGYjweGMb&@P=GlZ87+~9%BvS_HI&e$>VOM|+b`v-&X z59+8lyp~uru-lV32$R&S&mKnG6UL=t3ZpHsGE^QL_v;zL?Fla%#O(?E8piE0F_3f0 zW$3oY9|>!$vlCcjJ-p`^VU4q2G!zT0ab^u`oE#nw$Jt@So#1esSsS=~Su1P2yi)ra z2VS#Aj%Kx=?*|^OCgyn}Z?^uLHU1brV~yivJJf$JPxYV6`|3Zuv^F&5siH?RkNS#R z>;5Bm#glgu3A_I0{Uz-!rBORV;pQH(H}9|1g3vR?nYG`Axe|Zf#t&%@d#C+I2hner z-z?XW3bEzF@i(62!h53G@AMp0V$!y#;9v4L+T>8_J1;2zgPsGHe}hNO=-?mKVl=~B z)Xn_KEk^7=Br3|aBXO?vQQhJ%`n&WAz63p&zxt@H>A|(ovps4fn>7$c8+Cbv+Ma*t z*(om7nvcHf|MZ=8)%3zn;{N6P51~g4;LT_tncRzH0p*;H5$M0jlKm(qyZQoN1BNj z0?CG8L-ujyA~X;i^5`j9QD$WyH58LQU8oJl5ENQ+xZnGtE;~%42xO0A_agUV7kdiK zmC53DrueqWpZ$5ZyAQo>4A}O#DGlX1Q*4l?m(g$a?|R*xDcTdYzAZzx?q7WS7ymuK zMgy(xbCeVM;h#-^oVJlu>;HXq*x2Lfww`>B7Y-v@a-TLvI7tHK4h$2J$019Phd{TeQd zdRZX1T0k06oiH>2V{Huj#Z`Bq#i)Hed2{lrR+s8;_4gkT*M$-gP^&W|^YU!O(c1Wk z1uniw#J{=4b`{p%os=N0NlwthG9)g_s3EW|EU!Bd!CT!8)*v}D z$!dW-sZzGi3qfFADeI=4T#h#Ho&R)~qnR8euV5^0cRAXeqQ|t1R-4ITbi?-_HXubc zMY&jDd<9mYpZvJ>g=vJ~twG#*N5ezIxDjPtkwgPI>Tvh)N<~sDBMDJuK9zM-S%PA4 z`x)}>@g^Gd?I~7)W$JSm3Zf0|_7tn|fozY2QX}p+(8_mBpq15RkEhNMZ=VBF&Jt+l zyBA?#7ii_Xzi2QQXl4Dy?tq-$Arx|AjRSIe7z#PFe$utC>X9C{eqn7Ca&#t-6p{lI z0Q5i$zY6(X5T{ef?}9joR_k&x5r=^(JJv|0U?mK-WBx{XX$DkJ&@G`wn}+TdBnQ~I9n~~+Nj=>PJp16)dKytyYQb> zEp6wxTqV-ksSO~jS2Y|Q)B6BptHlk68=a+R&O#toEogurA2FW+6 zqYf8o6WTW%e#&Ywgy}qoum!Zu0_Sw!miQ)hBU5fuX-Q|TFiPD3ck(85lNl!iqjjYo zs+1IB&EU39JoQU!-=xmzPuc4@=0II}jqco~)+eaj;&Fuq`HfT~(RHR{VHRZjakj*Eg0 z5LWNwPKTKSE1h_Nw`u{eugoK|!fJ8-X}gnNGGn)(t*+n|E$1nNh9XuAg6D_hy!sf5 zsQc=nUjm)iLlM>Dv`KkZ|2_eItHmIdi_`?@qFQhpt14>43ED~aodGQCb9cOMeH0YY zcHC9iTPl$ei_!W@UUQv>euE|i`hHiAm zP;L^7rR^aP70ZxBTScQhku%y8v@|hD+moiqm##ifo!s?aJ7VI@$PjE#$3%m$Ko|8I zchSXa66m7sef`N0a)&O?e$jAgUkC8%FG3+FCmfE&*OLm*{Ch^PeG^+_|%T~7wQwrBij8mpr^_RT(1&<>NFGZtQI$7--6NI0@7G5?muk@ zX}T738`a`*la99i9FRusk57EPCi(PpfU$ZG%1`Hlg^)(Ipyc`gIXkl?$#GqY?x-wA zN%5I|=XoBt@%C@_4kI(G;0^@Hy!laP-6BE~Nx57Y91#feIY3yQtLrvtp$))B3rOQ8 z(k+>uK^k=hi4XT)LLfIl`w?%wB#qI6x3UUWmOe(cK=QFFl#wgp z)qRoHC}sYmJvdb~96;9nb5n;_ne(VCwQ0}0k~HePPnBpwJyH3&lT>S6=wWv+@4cGhJv8Z!oUeTH~+9X-Yb4eQYj;&92k*R2~hsg9w zq*`}~B?J~!&w%gYy^{+Q2&FwYmE4YP3M;26!p;VE$eZh5k(y{|SBh#IzOB%h1aNb9 zW(cGS^2W8)f8K zb?3>Di|@&70cfhl{XzN6kH3;Gngzu~Ed>HW^**Sgh<9FTcAEvRn26LRU5w`-7wjSh zsF@Cdrn(+@O5>X>(;>h#T8u^)mrTZ>h_)H@vmpO2@EI*eR=!9G8{Pi|^o)F6xZ#CgPaG z#o)G1>0DC>EZ6&mZk2Ip9d#aJ)kQ9&J|p^lR5f_!+uNo^-HN3?qwTb9+PvAY4Z3Ho z?=q=0q$37fgtQa5&84>Cg!;s4sC_s^-GgTEwo>rI=df)A<$JZy(Ki0n1d135niPytXJ?5qcE4z7wpL9o^X=DYI99O8?s{O6&Edf! zyTgV&3wJX@+1)R~EbGJOha7_6C9~u}!z@2~ykutiet=KNf#ec_S z$-D+&ZM1++o}{yMz7pu9uED69YKb&RtLsc{b1x_kwe+1K^ga_ssAaU^{m1SMU|M<~ zqXpD*zxKlDP)ps___ie1tg4^!=U^gA#239LZ75Pl(Vk;K8EnbCq|Voey# zQD#6~XP5RfC9~8S-K2D^?hWHpS_^;Ms24>ty7xtepcGq#Sn5QG`uD6OUDZ<_@GY5{2~mM3J+rZ#YH~YU84cc zVqCiWMT3_WmIrTaesQEbe(|mcZ|r^%-dG zxT5Z#+fDr5r5iF@Tt+o*&v`**wHOpD-blq2b?;iLtub@x29WlN6X z!VYz1Z`v@rbVBNynI33O6?M_hT3ubotaa7SBO|XUhS7N^vK@U?bmqT`aE^~|(~T@WlC~5D*EDS7yF2lz++xrk8IiUxnk0vSsymuI>gFL-pYZ7w|=y+$-MRbz}aKY&}eNV@Z1tzB>i)E z%Ujoa*xa8zZ0=w0VFOJ&)99EM!^72uI&+Ss>s=u>n7x?=ASP!FQWxWoaDpp&VhTi82#td{DAN} z>WXSW8U?89C>jXlxgHsoaTualH&5y#vUXtbdz4cwD>e{N&r z8%J{t3Qi4m)tzH?iAA=kK^@gy(%p50F8sm_>!2-nmcmCFzM&alVft)h0EZmvl;0b| zLDrLgt21PSxRIz|a#uwINpmV4&IW5FVo&L=;Tpc#BD>X~4DqsQ*}P#H&+0To!oZ9K z(dpG2vaPhEgucdUMQU$Kl3}yD5=@cPbwjfo-(T`q5NYVEJ}Ps%Zg|FbQofReX7g{2 z1a0|h2SHVkntI6xK{b#{b7GW!I97E|>?}E*W7Nh(lb7kALrT3QtsH1b>qqmPOj_R$ z(BUOHTeTy=^PanU^UvWeXodlNa^o@vczT(YIQD z-+=1T0;!G1HNVmU@;C~?iy7qs)T0IRj*z{uOENV9)1$>5^t$I!z<3;m%TXn1GHn3G z)dEoL9lE$9)B>&TXpyf9M7MKLxD@U-6A%DhEiS|Z!gH6`0Cd;+c}N9JErqTYx5us5 zKmyyr6vX5oRuW>6iu4gG_A!bKPE1-TRNT z+-+V1fL$%_D#M;XVSstHK-8dLXHY&`jBdypb5D0Z$gG-dXYKluO#pp0x$YBZ{~MsM zCT#KiD7*pmaTqR_!I;-ngCnVECUFvK0oYjc?spS7}TL%q@Kxw^BV4rK!m)e z3ljrAnA)_)-jI(_gc9K5ECz#Qw%)WZDc`=~AT-+?v)ROe@C;ijR?on1coB;$HozNQ zD1>J4usQ!uh-b;x1qFuBDjZeP`G#`Hf?D~0z7&JGk+eR$dKj!eE=Q66VKB!G7n#qH zR(+z3a2M$x25nU9PI<0j8^Tvg>WZp01Gg0&EJL>;u&jTHDGy5Pfar5?G=ET9HJPgT z4@#?(JaudjN*hgHQQGZQXPxoOapmRsGd1NN4W-#((n_%zbI>IsAKC zbMjhRy7>>cxM;_t{OR(~v=d3NXi4zD++yUFv=;w%3&I?|cEo@DDcb0l)PB1B*Dc@? z{e3`b?SV#jw^xRG`^ilP@X`%V_OEtmY zB{7~+ALOk0S8B3B8)u5227okdqSZwBEBUNU5gxN$>aL0lGdP3-7x@;y^F2YCTYTjf z?qq{NNbgh^%P1IQ2`DbiP;fBdS%!+i;Le2!;V8Ib!a>a?s>RML3HmYl%Ake@BbR3;1!@fF|>4Q zsNxt_@dk(%L(XL4z~Tj<9U{1vxDoTq3^p7saDm_xY#9acA1!z~E}{dO&%wJuEv}DA zFGyYmYO!y^C^EO@O`sOXe(Bi(F9NlATqR#2GgaOLc8=?$7@pUFT96?sk9m1|a&o&5gJPUm@^^3aToe2$1cB&tLo+q1n~k(R#BB-VJJBC4V2$iE?wUuqq}{j38zdxt=VyTt>m)1k zk3Hfh27x@SMUJ_lUg20b#KSv0bHctsd3E9~aU%2AH^V&qXfrO3tJh$1?j45m>MZJa z)Yx}UtP|#CijQwse)c8h9TNK`<>f#_d0#b6+CG{lT~cirN4`dRKgYL}cdcvE_UxLp zeZ6basD;|kBcXEqO9pL9vX$E+L2NHdvcUCt^H5MqOVn#&(*?+D%L`s=agUcy-)KR* zr-#(YYYPP;&Yep1DdNA#EUKy>~?d?rOnjK)m++;Q+Qr3#xT*leVKkyIK%*=QZ@LNaSE|Q~{XAv-03mVz>I{#)(nHWONqIu1LKtd-Bzf;R%(`pC@7&|s&!pFyjMlMr@loBLMe z@+ROy4JEz<3$AI%HCk5A0{hTY-6Ci?+c&-QJHxJ#K9EVE!PW4c&U&93UcpaB+XX+n zVH8wxh-?)cRM&p4DrUe$rG)afB7HZZRPHM3B+OvyN*e(oHU;4_oFeUBwabb!Is>Zr zCGtx#Y#Qy>W|v|>btcR|GcnXU$U&69?1+3b*dl1FCWTYgaBK85@eA{8UP!5fxtyj* zS%8%4!(!5HwI9|1HB-ujXDbN@awQ8YYJ-%Rg246L?*HYIIp{eGOP%}Irk5kj~4qk z=@9j-A-C5$D6fyokQ&o(IkN!dbp^?v?JdA~T|vIg%u(!Q1KO%4;KPIh0{Ob?o3tyd z9A3~_H91$K3|5D3R1su{wCeKKNd-EFWckTm8I+-2KTUKrEMpT)n>QJKwMGe*PF-@JF25V&_Rs%BT zx~lOqc(gMYl4XWn3(dKP)70QDJsDoVW!QCfJqhk5mweftwR_=Vauer=--(Or6l|kw zKuK3Q(9qRa{h|21_q2gj^7TB^SMp;&`x&%!b*(?t_UsR}eZ4=_ow8Fxys!|W=qNI6 z_S`^MW7~xxCo)N{1LLCw887&C!g7|0v(nmub8M%pAt9h{gU$rZGhOvTykKmlpsRkm zeYe{NspA+jeRipu$TSV0juywbiO4-Nr3I&TqIP{xRobg!L0&ICVJp{Y{9Q=t@E(~D z8=SUvy%t6BKyw^Lsp(y!X!+9vWR4cl3-BX8%;`!1X0^E7hwzVGFIcS8n`JbOb%D$} zy;rRX0fo#0VAhGlf7-jcfN7gWB{caQ@J*djTIi(<0j70I=-!rHSRk{GI!XOqMgBnM zXabp<_CbPGMw3yvA+P5ml@MgsS(!_o!Z&qVHjT{{F;PRNQU0$ljjE@U&DiiCI^%+H z>a?DVL54;o)TXzh6A&n-?nj$?RyfP7+J>Avtqi!3>YDN|LoVtTD%Dk6AN4R6anLt7 zr6EBjiRBBD#~4zr$VeG%QSqmL1v4_-T4`Hqz_lXgYACkAjNS~!R+Og<$5u=X$krrU zW$ji>4A<6VTfcgik)|3qUT!4S9yaiL=>;7<0ZLlQfreJTY9zJ2A9&L>qkUHK3Re5KLmzOTjXaUiIb+(>3P&---MUQKI zQDuJ=5Uv*cLp)fSr-I&stc_RR;wgOU|iSjEP389JfOO87xT$w5m*xgQIVQw7&!Xe&ls_R;0PVhObi9#-Nh$>0Ux3IX%yR#@8MnV zi=ZydHO>*FZR&jEqgyv(;aD@|TPTfrGw35NrX;eqZ}J#}x0TKXhHoosrUq~;G&Cbz znrc^OHHcelBw*-eC*hrJ)i-Yjc)8h>{GuN=D08l8u;qshq6(%N7d#8CzPL1VV2&;V zCDY_U!!%ztmfGGAJaP`Gv@3Z3W(vv7HXaoG9N%)!wZ>B0v$53n^~O>t^Hc6L1XfXG z$8%JK+qD%4HTiw93BaqJK=y5-sRQon)QuSVZu14w+Mv_@xSR6H9BMFBCo9#ltS-rnaD?hRYFspNTKS}v;X3C&!v_MV(XJ{Kw26LkYie4&|n$rh? zT(zJqwpWwFlMpRPy|_rGRLM4@#gOqYa#2BG9Yy&~->wP(juyNwk|<^Nf2zd|HP&`U zfnT*i*C4Mg4Ab_H)W#Jo3&7RgFf9zn=c&8lq<+=xB?XpsrEt(kPMR%7YN#z0xwkq& z&dPvqH95^<|D&MEmfu_k(~X&p*IxL}wz$C_kX#B&YkcpTIt zS&&jgI^qFSx@fppw>&l68#$ZVF>6qVB7wR#i@IpTI;2xFMfE-2(Vl#Ag4{KSvBGuxe1>j|QP_)3UOP0m(2&=mRH+&yLhaBqK zlKL@qKk7=6Ki!{WkVBpL+sKqewb5l;ZVYT(6-ND)|}{E`HZAi-IeqA_Y4$2wTyOg!JkDn2O=N z8HlZ9@$reP+n`8OG~8O@cLrQ5acC%^UWrk{oICdhCDbWeqJ+_8g{&EnEmFdG7N=ka zVFmr`tPPwB`qx?WP1+nD^shS%{p$`Js1&Zk+S*)&Lj%90e;jD&->aTX+xvk>PIc5K zD9_!~sN3^93sLH|mQ35TCDZoxmP|kg#mf6_yPt4z&`dNdfoe|(bU1ohN3hhoNKj}I zo}^5D09I*JKugP=($w(4rWzd^Pm0%J%B-NO4LaQr$oX+0xm+iXCkbDrKr$l%QMK*E zorWmkMsx5OK#dk~yhD1ZWX1-bMhiaG@3+jkKvZoF!Fu-PGXSbu;3k}EAVmx0=kRy7 zJPA0}2ZHc#nHs61_zan*Mydtv6Qa{2J1k*>YC*rLzSAv`s+(B7sD;=ztT0+^6mf`h zUe0F(cy(>}Q8S+7(7I5YmZIkjNDx^UiY+tu652{>F?JEU2D#Pb`k0*sG>;~{_>>wI zr6CZ;XoAZxIk!Af5yGgmnzIAl1j49uJl7^SkfVi1QT1WChLcY(zuzLbXyP&AAC{w#Js(Z;ageJVd%C({tVt$qQCG(dj_VV+zfD26TWrh zS)6Ra4eb%pUo0ZMhHV8m>`rK?Rk#K_Yrayu!-hmo-{6Lg^+;Ik4jY;j+_1JbZaBo` zOK!-4h8wKsaz(bD}|f1_rHOp z(SnC*7HNh5=}O&ZTH@fXt`x0DdmkSVY%8_ZH8ZwSvvBtie%D1%XY6p`I?V#Hbrnoy zrzj|a|LLSsH5dPibU*l?&gxu85dNprI=Zp>)f<*U=BC2f24=)>3zBGHw!-EhfI2HC z1YXz7=q*llt=|mZ%H%y5pKhG&G4tvjL$sA#z5>$ZJVmJ1Fl{B5&p>U(FJ}n1Vq$Pt z5I}vbj8WDEFq#wuusdw9RS>|=+5oAD4L8=qIoKUGh$&*jowY&7tJv`Vs!`B5@R|T} z^w}uLP~vBhmG?sElU?r5$B`dmlArZjKbF@i;rHPkB^+m4=o7R*`vmP@?-N9oEE+WX zf#U}G9-6J_RsK?M>NGyjsd&*rzsiGL)ach~2o=}T;?^C2GMSv0){l5FzyGDEu#cx0 zYD-lqG6=n7!omS(vg_*idf7X=aT4jQ2%wyUM$;GXZD&{YM?J?CH9k#7FDg{z9OP-A zCqmhO_Pt4UM2t381kiRfX{Omh`d9tk2Q*P|JBJbf<}(Vdk0x1fD{}$mr^sT^ zPd>X=uu!r*ISXGb)1KdkjpUO~Q|^A@cRW{fF|Z;so4hrd^Vy8eWm^o&?p5C0 zZ+vr^;&PE{_ggjLp;o5Fa_2H>+c`xj)(~u^iuez{C5-a%zDidN z))I=DMG^4*iv!f0Z6!>bn;58N%BL?Uebv1gTxELKTK`M$Fw?u%`aiw3!A|z?bw7@O zuRZ*vQbB!Nr-hQ-7uM?E+lNkh<=-0z8hZE99w*bgkM=mHR44L0)2Ggj@ek1IQ!l+` zb8F3T_GdGk{p-zepc`aw#ay>U=c26pK_0X86UZ(exSd+iwlN}873&oXsN3~!cmX`d zA7#i5nv`lnd=T8rg>QbRzeMreE{=_SLjYnt_x|lh7sHkWf`=;7PrsVJCn0bcEg&FN zSht==&@fs+0!KSe+k)Vqc0)L{8${->z@J*+!0f9hKtF4rKxt99^c=tj{M6!Bsm;UU zbQJAP`ifp)F3J&P;ajBZT4ZnB){=Zj#a5BV&Bbi9_M^l$;yHjPuQoB){PGkeHA%f%N( z7|=VN7L#2pqRWO}C^;8=7D8uRvk*!&$f5`%(UmNGV_U^YU=jE=I9sW}H9Q-Q?cH_e z7iNIApppD$h_;f^mmn>B4xL6Cz^(c83?-Hbo&w7f!HXsZ!Tahj8oCvvuREdPRzdnY zYeS^$(~~JJNMG~ggYAE+f{)!ADvV8R zunLrY4r;mIT349;*%fC0dRG`yXXt!#zYnFlE1}KJE))1vS$EotRHYpLE1@R)1f!R9%1v@~Uy_s>s26a83-4+WrXiv9D_tc_@Hg%dsSP)anfNfUxd%j>=8T#Cf{*Zpf z0X7E%9KxXs3{a;cUvc5!vw4~JR5m~(4>mC>KZ_w6I?_d`+d!;{KpSY?y*F_Y_J#h% z`&-jJ^hZYTuc#-6{^`>&&-;V^=|(sD$5{&crzT7OJ$(R|=%4P0IWOfCH<}dmPiJR- z-O#`87Y(o0BxKrOOh`4KD1)kkCN{S~=(oF`K@&S`1Db*+*4E}5917kgP2@mB6F*wE zWSaQVvc;8^0X$KjPm$iwqb)yNYtXVk8?@|SZ_q*`Q1r?|(S<#J@I#f)r$I}}4^)18!0CBhGOq$kZU2yA+RhI=Fj^qf%l~NS2XIx33vB~iCJ)}~-ltTici6%Y?P<9T zy=2?_pswzp2kM;RFOw%g*VZvYgUMa))Lz-^UeSd~%D34CbpF!G+hY`N0`=AJT8;Y$Jeb~ccB!Mt5%6+Xl677UjPGT2xTGT0r440eYNRSGg#TN@c1 z;@Bk_W$j6-$}c<+G>#&>5Sf>-*)!1qPPIJ%=k6VKplP%~@>*rWau^ga zjTSf@C71A&?*po+7NcCbC9MFfTF`Z3C?8ouBE!rgS2SS&Ib? zxV0r-o-5pkx*n$+uDTz8m4b||`2(4|mTo~6<2i;(jmRWcHNis<{#`(ry6D(-!+*!fx`ND?dCMAV#zwy zRMHsrC|rp;i!6Uh2z5^GN8t(ty6ve@&ruPMHT)#3p_y<+5@UeS_h7OWk<`ItotNRF zES!gWj}~DsObpJTdJ7f7GDqk&{LW+Q{4xm@dg22O2W>(S{_Gx%UGQ3H99pMxtGwJbRxGX&stn~2dU7xOd-(?v1Q-S~e zdWjyIOeR6ZXo0tb|1qO&y53A{bgERse{v3z6g8$^di&xzkeDE}+|DkjsTL=3h7Rva zQi!(QeN*l5G8!xoHSH6IxQG2N5UabJOYi+^@Ht(B`%TzRS^E(!$b!3+>3}wg$1Kqg zh}Jtq?WLq}I!ayD73%}Nby6&CujX?$E2_|3R`}XRlg-cm$y5z*pH7mtD5^{h@F*9V zHU%`q!z)*(3hIM3?_LMJ(|wRT2NuO2x_E_)&A<%`Xb!VV721$z&eixTjaRbb$TNIf z;co_Ti@AaE!kp$n`QqV4%Gdp(f!CVwpIk&i1G^I%Min%$vxWwCheFt1em`OzcEV4^Y%Oc${xB)RLJlm>4ZK zw0bU)kCpWx(E_Ic%Uosm>H1x-a_xD=0mf)?C6Y^v>>q!bD-qR=7Vx~w(F^tgm1;5E zjP2J3AI!R2Z?nt;+;(blrk17RdA3q}=1NdIT^zE2a=4q zch%V}o|Rmcq)#UWSa>=ONQp@ z91V(H1a);*j#9|Q_S5j``Y#zs0Tn6MS5Ucl@-?kzo2;cUu05kuGH4)np$E49W&UU= zR@Gqp?ZfPJ?u!IOym$Wm$$l!b2@S>8TFUtosO-0pp)nj=YliHPQ`#Zk>@6XgtwT}y z3^lZec6t^AxfS{fg^Xt@Jc(bth(RlxUmSUZ-C={Of>zenMk|NtbV(~Y(9p_{b|RTp zz8^R{5dkGd-g@49?)&(bSFSY_*`EzX_OCY-0nMooprPEEB%mAL=Bdco6ykY}g$F4+ zWPs>sK~f6ZFfHMLVnz!d?%SlC0J<41D19E)#6SMZq7zkqzY}e1uZob1T2R(JEjm$) zAz&D;D$_*Vk9r@xS$k(9C>||nlzf{MwgBQfyVi8Aj2cG^sOVK3FlE$O*PK1or&a>! z(E?`~LV`0|8ZAg2BolDvepHLA>UWnBWZmu5bCfPe9d&yQC;X4Uik7Mc`bU}E1KGNN z=e}vwiVdws{25MdF^Y0zT~Kt4;scglp`!pr*JnpzEd1rG zAJr&oGH+Ww=3mYT38N;Et4zg1sBUjkc0X?GkC+N~mIy~#1NMP8t;%QFcWoOA^MuUOcE}eY^3|6Z5JLTs;8ImoK?coHB zXZb;HjlB+8?2^55pkc2c-B2=neLp~R-{cfkJ@w}_HSJLL&*3e3U2BK3Kii?~UvG!< zAfJfH_BJ{d)3*!>x5Qrct{9P77(gCJ;Uc?8QA=4S9WCzPZZvRi*$XfpEjAL^#fwtr zIYtXAe(q8@lbv6HxLQ!m6Y(pvVlZ4SP=AZNJu^KZTrEbzA^we-ViU&}D+zEmiuW~RE!MPQS^p2y%^sN)TqWD&CC6Y4ajIrVp#^+ z#E^`p^HUki1ZAd>T2oV9W4o@x>1<#|utB9Siv(ChGvevfme$Z#gM{MhA*%MQPgT?n z!tfazAI@HO!?1_v!vYpgy5X(*v>8V$c)FomnVD8i2oGNAZMFHKH(M3>*HM@Iq!b;1*Oj6m zrB5OS?bU*hfj(6LuvZK6B6>AVuwHlEP9{am)PZ`nxYC@v{o(-W)#7xj<$mHQfSX*H z_IH7LwYXllyx&209d(-Ng$^PcO`z1Ii?o+ANUfUOPxpK+!^Nt@F8h{01BY8xhtXbA zUfY>f2jqNL{CVt>VV*_W-wefwJkj*J_xBo%ZDa|#W`99mZQpC3^`fvTf!c|px1J&! zs$J74fvd=Spmner2@z*$HzYp(->^R#(2b$yAf#&#n2O5a%9mx_z z3JL$QlOIX9Qtpa`s#HH<7Qfcu z5Zt7YD$}{&xdjzSz4P+-Zb1v5o~Zr7Esk?`sQobwn!VHilrH2dsiGBkm1!qa;D|jN zi>mIw_&KPB>NN%a>J}%J^T{0iZ@#qq`N*UG?xWz9#zs3xU(AyC#*eed}Z{R4RBY(DOAY{BKngL+jbg9hQG`( zf957PT*5so{<)i6P9hXrT-Yz%-^M(PtN({% zg6VJ-XE8wIZC@ml7@jfrDSOB{ya5_AFf&&8W{8HzXh!kg{+l3w$_fqMuHMp~IdU(m zK^<8xc}&8#X)zz3R$1Uzp4MXswpX6kaiHO+uUhC}Hi+x_lB%elXZqx)r+K>T_wg-3 zU2CdyJe%qqUvH{IaN+T|9%LsH(;752l~KuUK{sc9NT6L?f>8K06VVh4KE}4KkJAI} z@f-tZq2+nJuMI4E9Fx^{z~Q=uL>A`DskJDz*cn>S<-#UJMgX+r(;rJ2iEKUp$ev_IWSkX z;0zIA^KJm?qXqBphjbaw^8?VU#rBXsNjWb7)K?4mbnjgU^wk17o!1tekE37(Xfd_S z5tvsC`fg7s9WbvZc&f4!9t1qE4m4c! zRcD{$qqC1Uq~>x|v;Vnl_GAH(pMzQgy4Km}cy{(VzTVk~9YSb(NErgXgr6TqIlyS` zXz-wgbW47KXzR3am%^A#$v|jP-2XaS)1~ zcLDDFq6LGa#WDP55pAkUDw~9Z-brEF@;UG$#B;zhiMq~MX0*8B?VO0;gUq^^)ZWKZ z^Sm?wbF_e|-3H{_CIO3e6wYobVNVu7u|6Wl15(ua-#}uuz!jL;8Q`moigd`eFju%GZg$p?O{P4#?HDjNKSx}~1;kYxLf+bDqn*r5| z7tdge2$R0V3xAb?7~;vAJy|dXgEacs7tS(6vC)ca#+YD|x)E|{*QuQ0*yWoEO%#ql zIHv9$BaFqp7?Kg$E+*2zYbBO#NH+4|GFvt9q7*`TS$4v`8G5Z$Wf_!FxIA?z8kQ}v zwl@Q|mDccvYa`#G2wIX02MDGtRJkjBW)BIn=XX7jALn6oEh=>8L3z>qAIbYkwF_LgLHNU?qt!?! zpzc3Y=C1ibQ7Fu=zf$BD+YLU+YsOyXlC#B9$5}~rYJ*4icAc>GypHYb;7OpH1 zUbpz%%LBse9=}gD-a&YsU`uN(;-(Y_DtVokgsAYFlb5ng_jNjlM^kR9qX*5|WmQNryC0>J@ z>I0MS#V^cYY(>eH&u&E}yZu7{%7AR8zCHn&orOo%9A1N}D)!Ay49M0B|K%(%sp?S9 zFR3aA8mjuL!_o24;pk$mfWTGJ=$}_ieIMU))wK>s$FsxH@%0Wza8Ed))jqC!=2)i@C-D^ZRW{>r3NojOz%_DGA2l7jX&o=Pt#*`U1-x@x>LIah7` zP@1&a0Nmpsk|2hw%bbe9xlX{oN!&5BThKgO5O_K!LQ#Nuw4m(%a_Ix8Kzpt33f$|>Td&LFEQYTuaz^l0ov^Be1*RGYtx!C^#`T8h4lY=%?hhl91uHa^BZ8}c zMRkf{UdhFvw7Mtq&pJ0rs5dt;47~frXK&S;f#8aXq2LN>N-#L5W-wgcMsuE30HJ?s z_$0%B9oNJp^Q_^U{i=y!;fk86fuXCJ8uDeeeYr+IY?zj%QakJ6MvW8T!lnjHe%L@L z%c8#cajRn*lKdsVyb&K3GOyrq|GU6_t%7pCLuU6@dG zqA=xhr?d9?_8|K@HPGaKe>iw?g>I5cmB}LD8!bkL)};6x?3K0&qxSW7GiC?c+Mo;i z0p`{KUwsgCC28%a(@`T5-qglsLD%@Bk8em4#Q0Vvyl+!LH|$t)Q`RuWb3DZljnJeX znR1RN8u!XvAZt7a8VI|z`OCSH0Bf`$;-)$<`P%|qRSR+ed#5h2s*lYbPjl;V1y$`q zXck(@oO;Greri}Hzz67(Pm*} z+l0TIaR(afCew7q5utK7AqX8!5OAClR8U**R})7o|0UE>@1=4fLKfp7)UEWd$TfpH z>Wa=g2^o5oPB_D>72;>;l`fub<9x%gY()tk>ZtQLCqf2pD?N>%j=B(2@6n)+Up0X` zMiVC<24;TPkjoDnO!;BMBtL8bD|-Z}u!2GP%H%XG~K zjgn_0I)IvXV>sWWR5z0;FfCf__})ZeF_Q%#O{dMeO6F+;(V_)jTAG0;5(0?DQ6tkv zl9ux1f@{$NFCfjLS~>*OMT-Twc+gKRu6q$p1_a|Md=+TVraJ@+b=3VtLr$R~xwu>{ z&fAt(1eDZOrv-dZZ(wG+hNQVB4g`GavXOvMG(oa8Ap5mHH)Kp_lwOx5|I$&2phXT- zl$ZdyHofN}s}jnkqp~WZS6>+Z5d={7Scu#}z;y1ci+d3pHaHr)+1)J8I1P`8a2Anb z7?|F$x_>KFoR_2q!dA11EdvF zX^6BEku^wKA(e(nE1p6Fs1;Y4q19TeOPSSz&BaMC*j#tm;K;3EbDg!Jj`K0tTw^_g zz};cP6#sGOPp?FThV*;M<~Y!>xmP`jj`stPoQ5bG^B-*P$5UnzaG>mSe9Pw6S`r=m zXmxpfy(JOevo9NT*(5-)0MhQJFHPbWK0K$)s>>rQBS%+U0o?YH=;!u z#?`s9R_8Srv_%*KBhJ#mXnS0YIb@F=xUF+a6ZQC45W9h0;^WVk?<_3<=%}3;jHc>t zZWAeO9k{46<4~u?;?9MMf!V9><~A!9-Yuw-;ThS+>TfJE_zc}vB(kA~dc$*`$H%Ig z6q$F1X#4vM@y9+WGVc8T-l>||*HP@incwYUnl}Ij>j^iKSP$}vKxWUP2!IwEo zFaZe4AZ)atw&5gYiP`4_Xhw@65hv|#Q+T3j~? z+m=CCdo+*|tup&`Mt4iMPjrN@XPr@ewLLK+6cR0XhiWEPrfYz!u7TFW7quTyLR$mV zYpy7vS|D#ZrGz@8CQDUPLR*7;uR~HY4nkj1DMsP>0>X6-%x_mXwP1w02w6YQ=^aq7 zGbHVt%7PLYq2BOgstC>Jt?leWC)@Dt@vTU!GfX2rcS_axy0uA}nm`C`qW}>>?!HaE zco0I{H&YV>Ix4|S=V1KV6_=c0+hX#bt!TPJZ?3dEx7e}2& zR?a>1JR5@$@s_1;e9!~Un&jBCLG;!*+aQq62AxPI$kiFzCV`iGBtNCvjdn@kSEGw4 zlOKRCT8ti-(sv~jAxNAG_0!R<@6-a!sZRgk^OY}8*Aic6@7)5}q6NJ(XWgj5wP*ps z(o4^z0}`k6b1B-)0eChg8htH!n@)+9NM;upu&5T7LIfFb)HxI{>#0at121h3la~q1 zv`H&MmmsIk6Ka+5udcJuS*yA}Kk+LnChWCG&gQ1LLKs&Zv?AgLZ+PHzPRxW0b7o|) zv=S0ETw0+y223j^@UM6;&Q1)H{IKCq!K=C-H<&4SRcCDgQt+zI+Hk_H4I`Wx89Ml3 zcvW-mq5IMuHX`$iS3O=eXc-4y^D2%$8?+=|^>F~gng$r#|mL^x5+!n63?BDqnZmbX)foLH|eb^8EIt`*zcho6P z)v^Ag!_8#N@!RyHyr-kAL-MGlE9F9sr2Srh6ek+7p@3bPP5nVF2w1C^D6^?Qss;RO zm$t4I|B_2bMxIvN?N$9*&w&u?ajy86{4Rl^N6|6*uRbSQtuj=)Y!?5f7Nle<=gL&) z?>>ts$>}R<5&q$`cq%UBpE`(E#L{WK^p)9^Y=eEIh^Y;_6e4&3(R1UL(ZYbtSN^LO z=x)p`@Q=xr;Ix>^>i*;tR|O`2<`bthdrVyRi22M-yZ!#ccWI@>`%B+`_OnG*gMku` zZS}Gg)X5-=#)TtFXuPIuT0QdYeOctHWHK7Z)><3FWP;XNF1VC-ng?Mj-@FFM9R?T8u znJWUIx@tHIdmkXAPJ0}jbYoP~CbnwS1@-6nx1Iw!kXaz`YwI*($f*d`rjV8;@)E3y zAk5@Ciam4Uo6WTBkyFLcz-*m3t2HRyY-#4?tzYm!NL@S&%t8rU;TDAA=}eAqm0b3a zrX>%8#>HQPbg$4j1p!kOF0$ARz=&8Z#5w&I7vh|D!}Ho)1GJT-Hbb-(?g*>Xx9L2F zX_&T_2WLw;=Z-KvUH!QUpQ`dMGVTcb`|2+mpcRa;J0Xm)J8Zb*KW>mzFv8}?2P5nb z!w9>>hAssotgVd^4!P%&5ptkmgdcrEG9&!x6Y~F@ok@=@PjcM93IUx62#=LnJHSi- zshJ^X-&f3G1X0ic6bBFm2+*h3FX~mlb~E?(h*BT=65+W-Mp{|=Vtz>V5cfjyI`s+p zHmT)-YkflQk3J#y*ZYJZ5OO|T=zxjn7upYJmzV}Vtz`g>Left&AH}A=eVxeQ0jAO7 zHp&Eg#bQ2*qXk?O4i;X*d{scHo?}c8KQWn5@qMfoSIS+}-9iR+7I~lX+N*3hu^5$Y z(g~>wq>2TdTxoY5u02ybkTYJ@WuzkZy2b#fJ~e{ReLFkIV6>oA<8X}}HLobJsrv^( z=bmbVnrgA{lIWJ#3LuRZD`puWc!rH}czAgo#t%+6~9(CSV; zX~U|_^uXR|LDP|0uQU98`fRt8xY=^f-0=75!e6v`aA5*$+sa#!LFSe~xh~OEUiytM zY+KdQ2E$1!+%V1>0a^KpuDPKulGNVQJ*i}hx=7kXyXu=}P=~0wk*!Lw+3r|c260>2 z#K5kuur+*JX=ZC+x6-Zxrl`AO?!1I4>LV`Ps0rYfs9`+pNA1 zlp)&6MHr+N)KD>JPG1eo3J2n=M>H5KC}cdMvpmBmA2uv1oQmDS4P!p6jY1CP=8{4( z&``){XOB!FpPfBi_>Id^@#@Ex3O}`;UiWQ!OD5Mkd)yzLJ?^h}_TZb4hNigNPN(fk zdipsBef6&PyVO_aA5@5?N`;>Z#D>=^d!ImC)%-tmL9Jg2VyQamLs2E1Bm1tv+Guh6 z0^f+A>6rimylO$?ljw>nNv2v*q7fYqIg$(Pss)|YVx*~(Q85duOd?AtJ&w9obWqL5 zg;=VL{Am|oNxoZ9*PfaRnUusbT0ljQ*PgtBxw@CGcX3kXa{$9?K}!#FuqAmFu^9Rp zD2IRip{$<(LD zS6{sJvgkrgPBdQCqLk7b8P9^m&NgeV3(3?QzTe_gC_?^&WZJ4$vmlvq7S;Y`<*jdj zC42=FHJoEvrajyY=qPEouyRQ&^&T%pVxxf@%|Z%?so~j58xM%2Zk8N-_Pj(xG;&jN zNE_y;yCc`v_+cTE(PT}A#h&{-aBh&cNF)_+jHIz~vM#b*SV1K1MM$n;KO#gjniND* z-+(0|*&Wf)sqi~?)`md^X>6>KVd-v`RKa%GFym9wI8>NR(#SwV8lOEjGHHDF*x2l5 zxg61Zp6jrDo8Pj=wH_PyM~{vB>peC`BHWcc!T0|~s-OytA8*If1*sD9ccR;2Z{}Zj z05n=qw{}$TMf!z=DXJL$jRN8J*Bvl5Ir-5}?&Gg?L8`?F(6$x;t67{y@;UQYa5Y-o zzTC-H4Cg5G3e|#6&he|hWQw|0+f{U6O4g{)1GlQN31cikY_uR3Ym?w>8Jmt46olU- zVIkiKtWozB-z9MJB0Ht_itP?f6+P66h5F>? zEX-gF5gX-HJnVuG#NNIv%V(gvobv zv>-Zhz4ZPTKr>o^AvC)PuUckHu)b(PU3tAVE(6ax>wp8R^+y4px}xYA&(!$Dg0}Y8OV8B-PkqjplX!GWrWY-aoI^r& zCDV%*!_RciOc-{jvvwSI?QQ^6byriwQxQF#bVL?q<_6R)bCg{o>(j}xw?MWs#F;t5^kr0d1YN6*APr*Qa}&9*^;_Ecdl7 zd(xn0VPa@DT%9G+vzt#W$hn~*7>*^jlTR|xA{<<>SHr0rLQwKolnUecvmG&IZ4f=( z67!5kgDQG_Br@dO5Td6~elF!_z_pUmNMu9LVt&Aav>J4+q$k1!<5^bnCgFn7q~L=3 z4Dxjse!%XCe3{yMPx&fbusb3jrEz$Lh8sTlUBeGwJmSbxY_4%|##fJMkmMxQu;^1C z;!uk&c_af3k9;=f$UO4vz~()?xE#@?{^~;vKX67|_yB&N-!jX!&K&ngXO8>pojI;V zDXtqd;znzZ5&Z5pog7#HZS)V5fbMhOI2qMLmL9FHsZ2QfT5G|^tUgX z&{;L_H4KACsKj9r*fkKNbGEXzg2Ec2jd~_$kiFqCWdKH!s69kg#jl{mJQifg8h(FTjUvm9^_PS-z-24^QaBN`l^ZH zTtQgl5kDoYL(IA)tPC`S_1SwQ6V|T-+m?%ML^gXN=>0ywC9G@BNA8d2Blp*vj{x6* z@$L5hKev**tIYh7TJ5UtCeET*kcJ*r&2^kbWymb?4M>j`MCh;5_9K%!5ItHDJA;jf z_a+k=09`GhxE&@*f?&H^5KxZ4fTe(ruI^6DbJXF%FFRSs*zIx-|hS+p`Su*0{d9_J#96fUcKWV|)biVfg^_JTSa zrXl^I*IN*2_^Lf&WtK(Cf}tA7P+W=u+5TlTRP>uN>>{sWnha~;#UsgwHRvLDS9x8L zTx!^bB&?bgnGjG^eFKd=7WoH;WH=P2K6NOnz8hKa)g9ys*yg0(kd4pRl#?+yslIYk z7C$(t;+oM|UIrt1BN4M*)lA9h2`46>^3z&EmJ6%uvh030!n0;3+E0CtzyAchKF=u}MirCe=W_S{%=l)-E8ut`&7#J>doD)dD9=AMXeC)q*}PefB6n0s73r zw-^J=G@M@mwb&7FuY9a=*7#r&Cucq`KLKjNtI%sK@e809Y}S6i@&lmn#1+ldip%P( zQB^hLvTA`)egBCC;ztYGPM;>%KK!j}a#j(l?2vxr2S81DJG2r49-7lJ+vt(B9A5!rY&2VfI{;By9r{%Y7ehS?*d}nERtG%>DJY zFxxi7gisBCfA@1iTAXh36kl13vyTa|6%K;yUdtV-}YSTHzmmnV10W zcIWtVTMLj~ElAsq%r^5$fL)&;>CpWy0oT>yLT!AzR=~Pi>{s~!%Bu^;M+?;Z56AwQ z1NdrTzsO~Vfm%?6({p;@Uf(Dx((|>0@Hz{jg!l|{umXTr3)E+NCOuegG=a3-<;|;E zu9_epm9J$mTb*{K8ZW*0gU#x+jh^v&8m`$m?GCw;wJ5kHuGwgUnuTik7H(!3Y&3xb z>C-QmmSG)14^^Nq>ak$3x{Xh%AkbMK-|@P~<`rZHcla&utg9c`AP%*EQS+_Xv|$`u zreL-PYcSib@XfkLXsDT*HfAgc}v%p&IQ50<0fNP~Wl%d#47fpk)g&ygHr|SD*Jx{X_eDG9V z)?!Y=u$<2_h-o~|C;nKrUrkIO1D_JpFwo*#U;pL5{@cGE|MaK-^y~le*Z=stU;gd?{P{os>EHkMzy9Z6 z{_U^-_b>nZuYddZKmYk3|KYzsdr~8=#8ToRI`e^dbBC*H?N@4n zpGiTqD4}u-`a?yi&YugvaSPaKk?87spFn(`^*f)1z(T&p-}|f~@zpz9)q)f-1klnx z`J>O`qok+*Z*OiglAts5`_8A~0Po%MZ~x>bq~rGApKk-Sf_q^|M^t`PodsHqO!(wF z)mi-HX(#ZCc&f=ze2^dcf?*kQA^D)GOa5m_0K6ckduC;9?{>#QRxU#-&_0FM^9 zSB|INu?>E!#Tli7bR|Hx&f4J%?K*(pYO&Gzw7qt~JX+ApV3S|c%t^p<-80)kPLY`d zP_BDMBL#&62_)A&bB}#gA7M)89dJ|KG~{r{ADM#nf#hmp+871z0NA6+5#OQb3;2b> zQ`H2mgLq*DA^M(g!P8Y-rv*{`zMC9IlBQpaff*#A3RoL};R!qly(q32o@yIUeX4~C z-`KkI42g>%u>sr_mxAz!f{z)(osrTI9sx?EOjh3(^Q2G1xKW6ij|*p2U?HPrLJj%O zR+Ev8AmD&_M4$zDFACY$AieiVTNpEC(KU$ogv#osoCJDinw-?DzDWcS6A^+<+ZBG zr<8T5-ItV=frhev((H&HEKkbn^;cu$@4iu1b4P-y@1re2UFvegu^t5V^)5%_8y;x8Vi71rv}(`*qf!7RPT;pS8oAB)lM7dt9WMedVt>1f-Jb>@N0kkC1wVcM+?64 zuSF#h=&iFTl`2_joHYs&ggs`zAq-VEI)2U}yklVn09$8mR6DhI1zzh~^K2ptWM&6k z>&o55)m(UyK_d#p2?PvPpQ5FV6=w-(I@||jX{ckepg%BF zeU9>NTILZNwDG|PQMTp&MMJxlnty}4 z6`feayCsnBZ?_QSKu((WZ$W8{On9;RAXAM;x>yVPZgV?D_1>s^+RqPo!RX5?fd zpfr-Tl)$sQS0 zR=ZE25F58@QFY}vy3_N%C1hZ`wg)+?d$y>$QVYOipS1S`=(W?w87)uPZZ1J?Bk;LeT9nQ0y%uj@&#hiH-G$3T9xfUb(2N^0-t8?_ zsXHYF()D(SqrTv+I%(9^_#~KWoJ9O)>K-!KT1kL25W@keKU)REf~o347Va>psl7Of znmS2=n%dTy-mgI!s$bKyKvea@c!iTjzHcr&EZfm32Fz6V-daLGSJY;Pueey<2{1+M=y2ydZt%0O5Ym{v~+T*{SxPX z(8<@^FA%Rt#qXp?t8dA-1alklQKqt`zYtI1|s|C+A9~b!5-2$PH zKR`L43i{fP)b5Ts>ccUqYTJa$bwd-AB4~Tkz;v=(BOTu?rQH_FBI@{%B3v>x7 zx}wCn<4<83=#Ca6946l0>}v#Ib$xJ=SAIaf*_%3evsVw~RSO(;S>0YIjS@K_A~~Q7 zQ`7s??n+hnNMPDFz*KA<=(gJ}Xcyc}CsoagfN^^#l5@q~Q2{!?hOFn>h6ZEA8mGQA z!?6`#ngQ8LjL=|hrIQat&fdPMI|?GFFV@^0W$3m-u?*gvEEtygFa#}LV?ofmVS}WC zpmo*;JOx4PtRZOKu;E8R&^l{_3Acuzb=HOkPO3xd|1d(e^bvF*sUfx|J);};JH5A zc?1;>r#C+*PT;=o>$#3JjLtT84njiV^x}=f09+pHGpt*2c|qZ9Yw8Ub*;G)tXtKhT zpm496K;fc^^8kZ5A2vKIs9AS#s98762V^&F7*tTR&f3tWpk|%5;f7lqVieS@JGcQu zLCrdAs97^Sd}rOTy~+hO>#Xe+{jfG_HuTX;YQ{iA%|7Y3vmc)Qc8U z0io=$$0Pjk1Ew+^v-!9E8hhl~e6Y#p@5hUXYb83ScR>DNq%qk;2v$W4oEkHEaNx_N z`nlznTtUa8#h_!-kU0|{KrUJgIyMoI2KRK^p6Ybm9?t*};-mIn8XO9uF3ccB!=LY8L-Q}ae zzU+2Xo;O!f0>yeeqE`R#{W_Hbp4CKqNLFq(AUm3@B;v!q)C7{_-Y~FSuVmhX1G;7R zThc9k7Dl&n;o+NM*&^N2$7%GkrdxKuQ}>ra+6qI1Zt3P-@|Z=Ff`WC!23T%w=;Xr& zMLrA#>&|T;R@;Tj%{>-EktBM0dkYCu!x zm~nd_#TTf*-z7;b{~!Zd(E^TkplzD18jQ;(T`rgS6PX#8&A;M9F?I+h*(6xm<#QSb zAo-P&&lZHr>>?mpasHKj_gkb)+0O^biWa~(qAD|=SG0g+-6XB7^m(bKy=mo?H3}+e zf4biyJ1I$)?t-aYG58lPMoX?qM`$21T8#1;aoFVg14x#x)wY*K3c5U1Ob}kBD?-h% z{5n-WFSXdT&vOoEf~(O2Rkj76m#$%v;05058c3Ss{a(~jg28Gs*A@Yn^=?&qx}s(e zTnvH(E?Jx@;}9*>vkc9`qGTaXS}a+JCW%B90&50hNDC^9Dst5f(uPi;{$)alo6BCr zJjXz7C1z^4h747T%(`38plv1V->_{ZEe%3u+i1!&A!*TMg=a$CUNwQtMHA;d24)4B z>#Pl?+!`|1SsOIDHDs={Hqa@^TxV_IQjodEdK9a6!v+w3a07#nVIy-xthyv~3^Zi! z*&rp8xo3kEj|p-)B8$C{i}pUhrFTm$Q#kj7-o4&3g{pz!Alr|Km|PIryPB^IhnhAO z80yC1r7UyNv~vMHo?%PweGb0K{lZA*hREO;_booZMgxaj|Kv7lvmGq4FukSzvg&Dt3}W84ZS~Tg3vmg#ZbJ zPuFNpJq_H@*vvfA;H)f@FaTR2j)q_>4oZWt72;@kwqgRMi_2J0x;VVTEBQd}j+n4& z?%p)8D*Sle388-7uwhO?{W@!?Uo$*Hsok*QN8!iotetCp`?*)@w|&-vWDI;x{TO|; zAW78kIj|j){>bA@?**gJFR%}XNz&5$Hoaqh<7^8ZNVdaZe%tFENUnsn?i-EK2xOj- zR!dsXa#LieUrsp#>j#`Uc>mBDKVN!J(LbvNtm(4#jT8PwEf5Yu8ZU5_?D6`cT2S11 zl;~Qfpg&6IfJn4_=*NBz^1}M&7eDbkN0v8|l}e99R+lG6rhR)=Khtv{=nc0I7WvM9 zt`_w3+QipaRU+6kzud%imv_l8^&F3`bkXCG&+#j_;EBgvt9*`MtHqA*6$lD{g+R3J z@B@uL+SUE7o`YP#^YB0!xBi{a+ODUb_x|4Z5?e1`dM03h@aKHeB8ALi|LAWj{f*-@ zC={OG{2>gXAYD?INdC^B!g1Q*_n&;Z=(v-$mj}c}c~Vp~izXZ2^H0{{a;=HT_Gluqz1~CwMn^+CDkqQ{zMvT5@*e=Msi%*$a{CPh zVpaAZ;k$?p`BxW&RnczhYa?UG7Qk(^AX-a9-j*wYz0rayh^ts+KO4}iGW}FRL@to8 z3glIb?X17LX|3Ruc2%0rSV=aU1)4EE69sm4t+unM$yOdldmj4{Xtm;!YC-N| z|Fr}n>;4fDoJYLZNE?8xZ_ZUcqPge;jE)vm>PYMB5rxhTM(iP2aJ!Umw)H*ftrTua z@ZA>J2w+Jp)r9wLLULi51{@m6%~CFJ272smmG>=(X@WpADYTdk14lY-cCi}l!7`N& z7AA&!BVk(p3MZuj9|b&96GJ{47wKOSQa9);{hE+WeZa-l8oaGIDPfhm35>cHr7^Hd zeKqF}Kv-ooSqZztDx*okDs?&RB8nVS1G<7$zIt1HB6ruAFl@e124V%PY)*)`vb&za zDm!aKoq|=?*2XG_aC6Bj8E9DLv(ZOpmCr^WTM|v#qD1slEjj%BTh|HD?tOksE7w|o zY>(C-+v}}AXjgQp$A zT*(BGs)o!^z*kl6-l%d(*AArWEQ^w7h619R1>NHUs8%(&VsQiM#qXB=hrnw*$L$Nv zP2xH7-2%3{J`nY|qWP-8T73p6)%4E*sMY68e6qIyY1LvoY&kO$aE-HY{hWmQgPLZQ2cRNu71dM*?Pb4mH1hYZj1KpXNqRNchX?lK^kDpy!kp z%VaJHd(@Stu6@F|z-L{=+g1976oeDZRukICL_SgY7{PH}uH!(E+>uUZRb(iqB-;K} ziJdB14q?2tWpgpZrIp~e0n>nb`Kw8wz1?P0X(1cvm<9Li>6(U91qpohA`F!Z68P#7 z4V?B=E%}4r16GaS+39*Z`#-i`y6aKExl_d{tnqs(>Fa$39;Wh*gUd3c?XC3PnA) zIEqDPmEf)32X#3;s{nnY#g*=t6AlCx>*`*w635Ow3n-2jXM~WY-ESGkjut0!!X|z} zIAXNmYg`w%aX0qgssQ-!}3MR;vX~0sBk@ zn56C!DFsKTr$}$KXO7rt+`2j53zM`bsJ^V)52+7?1c?bP1myLJoVOzM4A$!k@p4ZN zOngU8=#`!MCg0z27Col*=f93=M-#M{)L~b98+9o)-cl9t7y_btsr|=_Ft|bBNYW72 zSfqCv297AGm=x|x13^5Tg-4ceV_p1tF}VRB={QPxi_p6vAK5jD?RgyCpl_uaieVoe zdG*4I06!nd4jR6!eqn}wC5MK0>Si?`Zqc>G0B@x)oFU$dyVf9Y#Ux?g+*4|xx1ub` z_p`3p+}CNax6-i<9vjc%Ow=H5<%ouN1-GqFXxw(lNtfJ~fri^YdwOJU`|RnlCAFJP zB{%kA(8sABz13lTE61Jk1g z-@u6Ngm<`Pwb24$nf=sD(SYdD;`W8wod{TEcBWe3{fj@Y*~bXFn+4wnGtZ}5Q0Ua_ z6@u+{=cw1TEDC7X)urmDub~0iqXpizy~x4^%;PMwa4X+8_^q?H<264|5M1}n3Bm7h zSD8lx;L(CiVf2~WbpXHBg7n>EI>kNtd@xOAzrwmopsEY6yx z>LVq!d_sS5aoR3W3DV*$257{43rR|vdDt@=PsrW4P*Hu5o3=+T{KE!Z^cPn4TDVf7 zqVX(H#)1_aSdFs4>~Dp9>SHv0%i_2OP}HdF^%m6G5DJ2BUmN+t45A?DMb@ez6w$eY zk{dv6h<@hN89wowIpw+rP%9k?4WY;^n(}rSrU7U6ZW}`JaX-EI1W|=|JAqOmSYVK} zK(mMQQz2|2C`5d5jv_Q>|!iSbN1KMgq#e1)O2!g8x zzUb0%siU5$w7zl1xLjRTa+5vF2uzLM`Rp7U-D8iGOf&<_>i_7TU-JrQX+bePG z_EQ3ASBoRj^_ED2?9l>;ETZjUeR2{7z^)eb*6BZ@z;(6Q_>yR!0Vp3WXz_fc)#Arr z$wSrRgg>@D2avB82iZ!+yT%Vdw17Jur1@~(8H1Cm$@z57w3}jZn|7q)slEC^O7+Ow zw)ZdoAf?d+Kd5%{D?;_SPNT`ytG)|2uA$!L3ttcuf(7eBFk8>_d5FtLlG)KI)V-IkY&7VIOY6i`KAb?hTjKr$54Wx?z093<;^R zy-ftT-V6%S(^4{0BsCZo^7OUtsW35MBp14%zlMb?u5trIzN+=|i%$eYLjoowR zhHwqhln?2@(+Ulmw zdBlUu>YPl(2YHQiJ|(Y1OS~kn3^e5R*`g(r*Jq2CJr@~?YWV_reV^Zw*R>Wc+oMIx z_Iit!jTW7>Wuw3F{YIu|iuuQTV#8jFA4G6F&f;V2GO5!Awxb1fmF{*e-2k=K0?$}q z{{v`8i!<@xNpu~|HVbso+p7Yy)q>jo-eU)1tHt#!74;=`wR0TjF@Lo{9jT{gz_qWH zw4%$D2DDa-9ig3;lmgxQ1V=Vzu*iG}Wa>P(e2h?MB0M&5X@-)8K9t-wWF=T)l>O zLoaHUCIUmXeK94qFjO@mPs4Vf^I(HKI=yPOT9Mjemk@+)!_% zEeNBk`KrF+CdyT?OxUZMXe^^jQ-QteB9D-PXEPh_!5F4uUj~9J4bBY(iLT09G_Kw` zvccejBYJRK!|>Tz2DjB^%}ji7TU*EJVGZ{_rMg3uy`;JfG*tK5@+MQ=XUm&CS3ZgS z`vTQ{pWjm5wVpTIqvy@`de0jqKJcUR`FA^=FSj9ynAmQ-E!?ixLk>v-`*9ZB72T!w zHyhNC7W}qoo@bd05H0w8R)wQ7!!=sqp}9>oBEf$>$CexcNvG2+(6f&(UcM^OKc0iE zEedB^&IkCb#p!yCkeOY6V81?(n>PH(u1la_E$I2v*RFy5_RK3@3E1l_zEC1`mkc*r zfc1~Af4PcYXC3i(w>u7WSBnD)E>&WH?)NL+(yDS^XPvaFy>!B=1=47lWrE>x79=y} zdD=Pv;c9VV9Wwg^wsjhxwfVLNW7TQ@0#J+|KV2>93d{BE7-iZA32gpmy0KU^kn{L;Kmq~X*Cz6?2 z(oj1rT0ZVo2GsRxZOXe9Z z0MP@N_3@Ya9?VlMjyPS?m4N4Q7T+PJSd%P(bG0}T1x~X-aD7|KdU!xvXAyLtW}&LZ ziLa}QZR#vMr~;1_^Hd9-`LyajTCib@+)qF{PQu@yan@3%Nw?oF-tl|Eh=A;9GFo5G zBC`-u+p<%CA_%T~cB)=F$f<2wl`k!Pc#u;yfoaB7!;?Paa|z3a)~(;LK^b|*nX>VztS_qRBovelN2tE2 znSZ_E2i3Kn>%PJ_b>Rw5YS@MB#ERon_j0bT8wAt#dnTadM!RBZ|dHh|XQzfyC7KkI!5UD)} zI2|pZjCi=iotGq2b~b^zB9sa;>ntkF@|pm~x?OHo?T~&uLFQ-ym}tgGW>ny`tvd?E zdWZJ=3{2~~UvByZpRNkf)^$H>AzF5pf!Vt5mfM}F5eTjpny*>p65=7yXMp2n5;O+S z)#Qk*N4r?V9jYcMvSi8wqU)1Zq1MVf1)@ij6(1OcGn!Cml7HJ_n7SWM)A%h6Q#XWt zRuy4VgEbuV_Jdo>g6ad#o~A+qN=>XWRzb|*p8B{{siNYDhIJ$?PFWUARL?Sx<{H|; zxuz~KcxgP#iX4F9-HIFlU)B2bO-Qw1TZVp>Z|=>ok3ugcIR!T~@T1UcYGUYD_LMTb zBlKR@P3ck_eJpgg4B}SQybR-3#8wUDR*IJr$l1MQ0oD59hGoMmr8W4!+PtX@4|P+Fx&?L=)=c ze*Vb0x+L`}xe2uKNqlQPfIraNzLSD}iGHjcb^m9zpr88XNcg$ouyRez-!CV__8+EW z9*@Vfk>MZtrSiewi){W_E#R%FMTX_5c&l72uQ7q8fIC&n0)6ZqMyqSt2$%aQ@?7swQvzRIP&3?kNZ7;+vdT;@4Jc7fc z3kM5*oNzDqS_I&Lu+`gL_imf$7vR7+<`vz)jO_Jm+D<+0spbDbiKzAiU-_%KDk!{zB(VEj>mtbPWQQ};B>S=-Se*X1c^!k)6oK= zzDb5oCU~H<_S!&YqQ5FIJ6cd!aFY`E97zYkwfhDwr?Qh1(AHVoVb3%WoQ|_bC)G(u zM_^i4@c=are>s!wSH32vkfs7+XI=(K>zZtu)t_C9zwx_0T{1ZZmE&RYk<_=DfxF&_ui)yHQ|hzbe_66@{RuVKNvAezyna&S2B0Y#PDn7=iUHp z#l#TI_0J8ieAuwbhYgf`*wDy_4SIaoaK?uXRD9SF#D@(#eAs}(hYb~c*Z{$Y4GWxN z*?aH9_Ky3oz0W>uuky#R$|UVWguY~83^WYvv&KUl?<)gK4Pj!@A!G(4pWNVYaFOm0W(w#zyfG>%4+5GeA zm}K}w&ptitkw6Vkz}-q}Q_et{5LutCCk>d2=b)Ta+aTr? zK#(h1;F*`I?L#Idj_>*uiuO15mh;Jg&v>LE87sfj*?R?|>eDo7 zlWYOV>iuamr^2ZQ?&|#=r!psCu|BA|y!Us$la00&iCbW{-bx{Q0&wfa&sD<%ZVvEW zX>tuE)7NnB=P^iIVLnhYy_Y$^GK^bcJ_d6uCQ!0?VgADn{pyAd!`#{c%ZCk}eAuAK zhoM^CrTwxWHgxfW8pi82Lz@Tj=rlZGOwT)_VEuk6u3e>%Dxa*}Ia5{P-LOGP!Ie5|xKcL^SL%ih849k{S=&4B*7mj+T&X*_z0?I)YODuW>W1w- zbuwh{WWkl{gBw>G65l0PVxZwlpS6bBpRHkzsaArK#Fg5>;QRcRE3Gw)*&oef_Sc)m zke;*O&$k0=*63fHFBfxXfKGZ_5B0s6o};7#Xo~Yk-kIoq=U-Bg$t1$&{WfYJMO*i3SWQP3gDcydhKZe za?xUFQHtBGj1fi)iqGz%)mxQL$T>)~-G!HA3(!&5>Y|khrRyqMP>rlfWZ41?)wR+` zTW$I`W;9$bD#i;@aC2U;jIh6C@?U816Zg^LP^);k|Xzeb5*T6(X0 zouy{CS0sah+4^?O`(}XSdP{RR6jV#^DQER~P!i^)S6^hb8kiI`T{mo?;|GV5b=C$a1tsgO zp=8}Kl&l*z2=H^;`(9A8=HP>pb;I_07nH2Cw%7K<+9=r&t}ZDV0}Unntf9*OY^ZX~ zssAdY{q=4Cc(+n5!29%;k*)Pp*&qE>_SgHV5Hq~o@J4MgirXFS*&H+!;crq{TtWrV z(jEs$QpC7LNy7Y~bQlg1yG+7tK1$A#=bcEH&EM%FWxrB<9_nSEwGBrO=mAgB0^L6? zz04LMRwtJm zA|pVa-uf%xPPYD!p}N<$5O#px&N|HIzwM zdV534Br_+yp`lpg4ktiW?}2gzBZh^KDw^D=d62(?y}+aNAzSKN;no6>eeVk6DFTb| zD81o%Z!u_<-hS3tKrY(m%&8YVDjs%)dJ*!oCz@8(eQAXJ^y25#%W!HXd}%;x#U|6G<@r`9w7U(2gu2;2ec7s=R~jGM_YQe*70M1 zbo|&~@A!fAHT{n1A)S3lR$(Mp~xn+|MumGC`Sj9Ov+~ zw4k(2i$rt44(6rHGvcc8uX1PE^5lRb(5bga`A8Kj)Jb@g`%{Cdx**yvV&?xhBAkMRBK>fz{}iFk_Jr zF@5TD#Rh{bq%(|)lx3IpTI4w}uQ+EV*9_*ROEk|lGca56#u=Ke@H>OE6@F)UwqgQ9 zi?{DQ$I#1%VQ8H-46Pf6p>@LsKYnf)T4!xACqEBBG+Lks0u^eXAh;SW zhTL({E&_PfS!~x{6dT0Vcj62kY}W@6Rtx%qFh029#}AC zIGx^ap=@igRmzMRP|-w0|B7l-Sex#DGhrFsDG8H{CM(>~uxf?p8dw!RIol$M_WN}k zOcgBf)!Q;qDwyG`M>IGp*kU}Q6FS2gA2v+!;RiDdNn+}p8PX2*xs5FjS>ci`GSINa zuWcj>w)pHXvE@oj(M3-Fy!X+T8?LpJ*dOgA_Sf4W>D(+0&v9I6* zKTW*)EJCPdy1yws-$l0~djP@GXo2VgIaJ~G$`&ANv>0ubxRZ~+%w7Q2XaP4oh}cD0 zgJ~8=apPsC2dwHM)dxzWER{*Yx-1kmaep#^okknF>R_v!jxM~ir8Q9!V+Dftg`s;5hL zJms^~;LMk9G=%fh1Jb&{dGFgP(%uH76Wi z!EP9y*9{wz6kfsF+IZg3(Jgr%0}apn+RdThdCxWvTQ2idUEl{I7`F$|-Y2zmZ>`(I z{^<6wzuxTurgT1#D0RU7u^mq+WhF@sy_X|SjP~ab42>3#^t)cd6$p(M6g{FW+B$ha zP!*oOkVqA-D*xO<_o4-KkHU*^jvP@1P@@IXR&=@#7G=4oS=1%L71g2tsI%}7l&muq$3)C%h(pX^00`)=NML?zO z_~1`1DS;G}P#*$u(9FpIZCiNMb`%@@zyP_f(A@;%N`9y&h%HXe60mjn1*z0lqQmxg zf(2Q$Wi2Kdw9$J-nOjjiYuJY9e-Sh{ID=%>u0UOfYe8TQv`BAFt#kd(A%*d{WTz;B zEz%$%g^C070Jh;4Swni3B6AYTsN2he@$5*C-y4e2^(`@LH!)26f1I63mg~%pr1w$_ z_>Ux#Y6dlk%zS;D`TDnw+W$HALBHY#%mBH2WDM@$xek z7+VRpG#pzofj8=NYOYY=)m@5w&#H+Hm+k2$_zV@K%%q8&G+bLD;_%CSm4;t_^Cp6G z4t_DDMZWus244*i?JuZ2bbD8-AsXKEP+9}cDi3`%oIUjJzsNlNp4`Zf{v%2nms=>_ zusw@6Y~L^5fJ_F-v)l3cZ>ilNqvGi!8Kb<4f2CvJIOp;DkLI2IwOSn1U%h5{uh;mE zT2N``ET=xz;!q~qU{$RelmGDjaMFjTJ)M@T;0-z^r86jjYbFxL!m@SFOfg}BRX4FY zkN>65>!St+;J&m)-ETGb2al!oIyYWf!#2K`HITF6o(68jA1Y68h_9jB;pD3^`Mp1~ zRuHyf&VMK?RQdlO{R!Hp+BpVkC{s?4{QvAz-xcgN7;7BJ23x?d@;+V)m5<7zuapBZ z;6epVd0*q@Ey&ey^nz85NBJK(m-jt<)>~ z&jJYLyQNmcl^gqFuSQQp-n(;?ZZr(&>CY7&8hZLF{otCp0H^A)KR0m^9{$m3$Vu1g zJ#5c<58L(8fvC3~?0)!J+4>Irr#@d2sT;)b(l==%ex&EkxA`s=Tr z&H~$Nfuzfrx`NtjK|J#KgdNb<8D$U5DvX)MhPQb*au8kDmP%mR1>WVrn8m(H4Twt3 z!1H_!xXrCuXCPdA9hBP`-aCM<7NNS`5l-FjRCMm5A?>NycJ=mkgj0X_giPg-ECcD; zg7>z$e9ARGfOIw4sfawB6e{4F$%Rc&e;F9pU*_2xKdwPIvk4z~8b#YM;a{i;U#b`J z@-bn8sld31a%hy9?O>j(25~oBv^;2E|tS#AcEV z;qX}<@|ZU!261Hal=3Hj`-X9RM(JTi^SNLk_xMSav7UwR-KlFR$AULhx&WI>razjP z3b?5*@mXnd!@dpLkRF{0ky8cNQJ|DO^Z^^Vg-pEip-TA;=?KG^RxmcGd;HWyy~17d z6s^=BhP&z;#+Y_<6{xI&?mSb?aF59NnWsCbtfJGjwlH2*hswgkDN*L2r{6E&qW+zV_~x7Ac^-~+a5drW268y;y8hrIjNOeF+W7Yr6(UDyU?yjS8m zaI$Ogg+Sz07)0~KhF=_!O=Bz|rTLCSEkpQ3!($D>s79{Ue;T$7DK)StpN$PE)itt> z+^}T>vCB{KDeb>&xW#A3l(`ykh01LGUBj)YS0I0tmwgy;t&}^2hvr#X2n7iqs&j8O zfEvPRh_(<460}rz{?zOIWMTP;{YUVmxl}`0yQQTx3~1@kbwnCk`YJGTDH%qaXm~Hs z($D@wTDn$XWP27E*}h+31n(+|*`%R-{#%dy^RW1sZycZCdG3UE$95kltpn%T;`)D)5P0t+ zpT?b<1ypIAk_GhZHBQGNM{3=Pf3}ER*JGTN4e+bQzKNr?3rIDK6TuF{*~J&3JCRR` z3?+31L4CD|IE0zgRW0~b%6C=A!5csyA~^fFjxw(Ud+exR(>Y+Z7m4Cyr#&x#Yym&r zdlsv`j)%w#G|p5oUrq3(Hk1^c*KX%yqPQL`Hk&|6#s3@AQj^ogVZh=Ky6G6_DF%(NSr3M{9EYJO&yqqWQ0N}lWMpZBsO1VB^07ynbanDRsnbB z2#IyraE8~ASX-k)3f;uuEKXQvSAo*%f?cM;6b5Jy4_t0kQw`CIL{<|x0m0REX-KdE z+JbCYFj}3}xihw)+uRvjkgg6eC~Uryx1QAyDsL$)4Fd}Mb9tAB!oKRhTuSoPCX(ns zQ`nL`^`p~}x2_d?*`CE-w(l2vK}U&tAlq@@Idj}Ll6O3LO2&fYk=*R^0tLeJh_4(~ z$@y}nh#n3$!&6nDJX>(=fr>z~XlbjC`?1T( zXQdjTdbYs-!qI1$Pf%TZognGMd&fU(%1Um78)YO-svK|>1p6xS6CHB!G7 zNT_YLhrVa4iQyRM^S5Tcp`^B7BABH)>({l{=<-fK)xhie(?zLMPS_33u3q)B zKl<0Fu;Ge^W>Nk^{@Cgsy9))?r(>Q7XLyDid3Kdxq`IXWu4rJkQ1B_7stRTnbWqh0 zf{|vEw~REj+FM3S!+??gT-~N&q_46!mr{vv%c}6NLDx9d&rU-|x>oFFdltLdzF+Ky z%5L}Tacq1EZaZ~VT(2Ai&toB!=pn^dT6U@yM2F_bt-j#_b5YSJah{{KQSBS=&%5iC z-q*%v0d@O*1a=NP-qwIIVVkG!E$Air*tLj^?}6J7*r!Xs#$qo)4bvfsM6O|V~=8m%~aW3-M|+fVUP z*l<_dLwvjIu4{;FHVMu78L=|#TXFnBWOW-IeQuTQoau=#L{>LKjZLjm0Jf@BOS9eP zCVZ0HMreGShIK2!nFe;m7c_bdhHnvG&=OZ&MLRoge0~sD#R5AAZ!(q))K*kip|QF^ zMyMNtX|Q(j$^pQElSjj~1t$1mz(#mM{aJ%DT<0xs%>!Iax6+xfyw$Us480Zvydp+b zXWp*DSo|u`ScQ)z8k)x3LGAPTc0-zKqaxyczgHit4hxlSJ!tlV+BOXcqoXdWoq%!s z(K}x9{N~mEV7T??%>G zuYLo7-`Rrmjgzq3>e~grvjq_w$TEHnmJRSQb7w)`~r3K=iK*?Qmy zlxGW+@I{U6RLKQMt~1I>@0iyCry*yCUu1Sof7Sr3)vhm))!d$e)T434x!e-$GmmJcj#GgwTOByA zU&SzMMfcP|Yef>@P-{g8s$kfZX?+-ot>~i~rmdJ5s4bX;Pc<)PRkt5D8(3AfsW;XZ zdm0k>Ex)8;z%Sp`LfT%nkhYolY4N2u%0i^9&0BQSv0VK{``DcbQfG?@Hqt!Say$%f zs|9*jb+jP2&5uUbRW1c^XA6AsA&_Ky3#is9p{D5AKL=9llpyXj_5lLaI>1YWLE4P~ z&AAgPGwNuoDG(sDjxW@O?5O~XZFsZDH;`Cwc6xjX5Zn5(kDMF=y}EpJT}Sw&j?V~7 zTrJ6K8E5oc6^+-do6{2Avw(>sb+gPW_-skMIT0>k+R$k7K zO`Fw1d;Kbq&1~X=lZIU@H(}uAzi3G1%?3-}Y`vn-fXzx z%?26XZ1~{K1_n-&37h5Yhv^@(BZQn0A1cq!Um<@H{B82kZIQT@|pQKB8M|!%=&k3q& zf3k{5b}tS->qNBTZodR_`7aTPWxvFSaqbjn#d0>;CirBFP?5fjC0{_QY{7>Yb#jK@ zG{7rcko|U^XrhB%x_KCCP2>l{axVhlPMV%sXa=a3EhzA&=c<(<0dzXr!xRg1tx#fuF$>WE8g(`Av%q!G((ZO9RRVyjMH3YTit4OQy)6K% zjQ*!7U?Twt>SmLbS1U-YCewqV$l1vz{^CgR_mov$s5}VA8vUXn z&x(HpJ~jG9L!gz3GCcB8!;`){^@cwFiv~5`Y`Egh1}NTa=;6%<72a&P;LU~z-fURl z&Gz7XvpwbBY>%`z+tcjL_UL-EJ+{^yUa7&Ri__6jvptFa<8Plj<3u5p-f|)u2At?! zEuQUFi)X9pBw97$XWaOr4_<_kANskVp5f7~z5d;ll!bPz69yi(R_+oOi_y9EHBOq8Dz zDyer3y#t=I1;w%VHsLvU!gWQ=@X&PyZeC|iwpe$QNmb$RCY5}_G<|M_n zy2JoEof5PvItr9KQA0`H3f2Du`so0#s+L}f8Gxt*ylA9fJ+uTPb%0$kJxHkwsM#IO zF&^Nlw=UIty2MBD)NXwy?+nE1tv7-h;H=)c#R)aXb6~IDdgICgfc0jZBP~!^H^mYk z$|ftNmf=Wxw|12pDDweF(i<~BOj9fb-t=7)cvCj<7obCvVp51hj;sxX{KpM&ycs?; z`fA**WJqh@;? zo$%O`*zlqL$CVH5?`pzC!+SnNYhM%Q)xc|B_x^wJ-uqrnm>>N|geWezP!nc<)`Z!= zUlS$@$8k`y|M<5k#MrRNQaEl-f}{_5{D){o*CU```()9d!+WQav z-IX#I|EVUsJ9Qc+Wr#?C^fX}V7e4b1(fg%O{G6cu%4dFlQf3IXb{^+=qL*n1+Hdv7 z{Pp^~akIfuS^E$^QN7B*5Hd&+1YoMqUPi+TOFk@>?eiK$Hhf%rv!6hTalzC|hs^ z#QdPu@7z4UDgE(2NVNcWBb5>Cgm4w6q_-W#bQA2hOi8ucZ=rMY^;ZcBOi88MQ5kF$ zNTd_Xa}~+{&UYjhWY^!2{Y!rxQ_45OYwMzQEE=&q-OA9yMm+_lq?4#}y{9f-UMxbt zM&5NTh0-blqzC80RvH6X>S(8RgP~9+T|cYl0Hmq~4@t+Ta;Hep(AQ@EP$3f`M~gYP(1iY7V>7;a8`VhnhpSbS%x! z8mP4yYX)O0K~#ohD{<7&DchQbaeAy06ic7VxmOL^^<5JKH>U+qvHXkP3>6zS^JzC~ zhKh}v4VL`cP_dEqU&qacE)5kM{kY*qL&Zkc1`iDt8(0Sw8#UWA-cYfTwLQCE)<(rb zG`Xc>Gz_TNyP6yOi)!t5yWCEeXFkmn7=QF1lC!m%8~d~7#{T`98|Yh8fHy*$_9(n@ zs%LpNtTSZpUV@sW6XiISU3DrP{G=hD9DxW3M~}TB@F_yI_!&*m?ruh;MILmIgAIaL#}kV zd!zMb7#Q()&b6HzL8o+?&7^UOL8ok;r&obp>3~&|>(r#iLAGqbU23B5f$5#Vu5`RM z^-V6E!PE+eGtgRbycvS6m>7hu#D5uvt(X{yIR!DqYMf+wz8hvXYBmsZYeSrdnT>uN zW;SXzfbkzUY-yO;;KzfRjhYQ08fG@Kb}IDFNfyGsEiqOz95{F)X=d*2X;8J25day}^)*jl)l2;_;98-4hFmKqd|>7qb2?<0)eyOn zwLz0xL*z!*hCmIG8(ACBI2AL5@n%DlhR6-B{p2kR^~3hi!)=Ki4Fe+guJ{7K_dM;~ zOSJs+N}s2lFCv#d7>)RWU!O|7Ln60Uhhcx#Vc5T4hk@FSM?lBp%D;S^?-uz5W~$sZ z;;c2K37Ay%=IbF!T3uONvA}Z`!nHSHROv07sO9LKr z{|EZnQbMRb0?igg#UW`w^s51#s%j3;9GB?=IaLFidCd%{^~Bj)JVb%Ft_8T6Ey$`o zi$Zz52C%8Sf-0@~wcbXNsRi+Xj&@xXz-x*K+>h}YDtg8kXr3gK@oKxkdtt%N|jb}Oi@OLe&l zF|0mGYT(*h5mHeJCsa`9QJv&nF)FB_nrzMQCMXSPrs9ewa5T<9gEc<3RO6x{vIXPL z4J(EG>D*nLUos@?q)6SvXsN=dC&-0c#!YZI=V)IzK?ST5wui=N+`py$-~4C8eRI znYx@0PKbwIWUyK-_@>AoBGoAgRA-AwINtJ$wvHB>sTO3mjH?U-)Vh&xxM0hk0h_fK zVko5(Xq-C*b%=sXw&*ZR?RA`*>S?e^?R7cJ(CgJdz~OAdXO&h+XsTerCUpZ+17++L z4KJha6e3*B%jh)MK$9n5xj=Jc5KUc2%EgS2{mJPp3#p{6(qxFHt|})DwU+@G$vaK3 zz=t6h{yegR^m(X-zvS{Or5g;p$e>mqZ^Km$yr|)#XX}i()=TiGsPP>ec##FwbTYi^ zOJx~EF?CI_f*}+!txBNV3JJDV8)j>ughO~rQw@~}gRa!wa0n>qiXQkQKE1TT&`Pla z1ErN{QA4N|hHP-P;6o1Ds0cS@$cTOz!p+I4!PSZ$u5-M1=hh*b+fq&%29)zv62aaI z+~=z#!nwLTMS{B|cYL-E3FcY>g#B3nVgG&sgoxxiC}jTQnXISOrXx;G+96v2n@yM- zO^%LKs^T{plj9^1a5`I{6Hh2(`CV9L?sZ2dL+S!n1_d&!#RCD6G{R03L@eUq`jSDd zJ-F6uAO|;g1_IJ*aoXe>^{zl{ogXwhT2`s@-xo@{b;%sMIs{GDx#qJ!_ja7Udy6Z2~-HW@zcKdAzA7orJ~)NO0whYb@mw7NveKI6fS15-yVG_=#5`7rFF zL{-ltb&jkORCC(SSFmmuDpb-wkbWMB$wRSiZ>E=nkRYDftgJj2j(|_F_`G! z7lU<@^>b5yMUWNw-TkxskY28p zLfD_B5ccnvLWo1_J*rG?kutay)fDjC#n$hYECSgo@*R>R>7lOF1jNo3QA|M8#40fY zu(Ji>m_%<5X&_WnHQ;fi)_Vt{b1w)fjB7|u`0iH=PF!d8Va~PeFA%oRC~ff4!H}R##nf{QKPzsiH|UKtr_^@@=rT5?^b$wi0k)Ah%Nc6-KJ#os#chsoyn$ zxn`3^-)J^@dmJCy%q^RxVZdfz#Uv`5eHD{9SK%9#et$kW39E{;^t1br&8`)b*q_BD z_WwmOiO{w=bB26yMudWj2e`s!^Qee+RCh#uEdcQTSEDL^PzlAiY{}oIXzA0_d{^uO*E{sR!`jyjp}D`S7md$X-o| z868(SjsQ?Kp=QdMyoYl&oA73|f+3Y=at5YP%zl$o)n_b+JzA4jJ_M(K_O?g zX+H3~>VjMHSi{8)@D|D^N8qSp%Q2HH|1iiSD^e*XGv@AWsIDS{$(J{w!3KJ0+&7U4 zkXwC@6hR_H+HVDNYftMm!47h(E7AC``GD7FZ7$Gm0LYh<62#^zhJY)XZw7&62O15n zp9}>9r*#9v`>L~AxqXmZ?W12vjc~(%80al<`^a<3S9wcrLn^x^w=@jM?W-zCCAY7t zAQy8Tb30j-yLx6nTZdeBtq92eECRBBzX-^g@7~iLudFg{U_ReFQUBL^I0vxH0QoYX z1T%u`*#cbOj{M?p{jqBCu+mrE(SNoeN9Pd=GPZ00dF~auG!so7a9k~J_<4suG+wjkK&P#Ksq4nW+lkt?or)DH|-3tZyk;U>+Jj+HO;lnU6kf-r^LuYlb5|)zZ zsG;W2S>1X(L3aG(Jljz4Lj9pxn6AMfr}d2>d@xws7KK~-y%_eLf7(tnm%V`>aSx&# z(tV5=`XQd8Y^`CM1^(;})R11oKSH9ECpVsP1HjN@RkqghS;GOPRn1ro0{iSZLp@fa zxnBdi=2`}9w}lKcLpGj`G9q_!8?-I(;$W;gZ&O|z1lEvoc4I+c)uiFYhHLK_>+!B` zOEkP^th7GswiL$tYB*nt#M1LhKXk}{E^IIeF8I-XL}BA<3uRl5XW5qH`(<08u=_!# z#*Kr-8?}8ehAh9tC6nY2$fauXXMd%g2-G?YSL^cf;D$o^`$to-i5_p*2;sw49E{<}A;zfrF72e%-PeaxNy=oSRjj+3tbRIYKBbN~95 z|Fc{0{gM4#)#AV1VplF(=jwmlf}J+j>->va@C8Cn(vYqE)h+gu=yldL|C?Ko^)x;V z_`6!LUscAk&ecEM!h#p;T>aCZqWfdQu>a*22cZnZx%zkWq>h!Y;I)Qp9LS90g5kAh z!qZ*H3zxNS8ySG*;h{>fb>s34|Nez`gR@@cEV2Ztz5U&=v zSn`b4y8`ZQ_Q0bAoZ zylc3sLWrqLG^7;fs?Ybd;^+roD zop6A&QbRZ13;NN}ME@GRMWl{@XxLSP$m+D#0O??^I*&CXBB-iiUg6onO>>{O+%$CX zTW(6jfSbOm3sr9VsxEXX*;|KJqxcykzGlqhU4L{RQq#5KLdUbX(DD7^Lbspx)8j_g z*5h=!hQf@6G63FMmV-CkIKu~Os^v58+vJ=Z9M2XHwx*|0fbeWVgzTBoj;;ZMXA9zXFLL--c^hc1 zOF+%2{LZT50L-%m=s*pD;a%Z{$QI!(5bsp$Y*mX>lUxs!>wd#$Sg9K5t-Yu0s+qAVFbB#vvVVvfYcaEfLnLvS)SQ& zPgc28+hp}1)J?!~-DP(zGSCnsU|qM_T?LXG$^*))$w_tC8qXaZRX5tEVp|Ott1#Ea zy4t3@M38h1Z}pAV)VM;C$~TvsB6Lnyc&P3bsk^~euJ-~D)tzH<15Lt{0U9OKHHoVU z=`=(;hyj)Z)Q0jHq>VWOp7@|G=_3Bk4zt!5H>d<{d@mFOxn7?2Sf zJPk-SRC^v~T3m>;I)k;SFe86$NUJ@z^Y~N)ww3r)L$+3k%Ybb~xz>=4812dn;h+Yp zwU1%ff>>8j()_avVqL*dv&mbA8Up_1a>W7eKi`!4f{hX1YG8G7^)Lh`R?RFQnA)PwV zy!JmOvS4EX%B?>sXD9Pr1K!pNz9dJ@dJ`ab?hktK3LjE9fZHYpt<|9~3f#^X;T~=T zIf3fjE6`ouRdvFlpT4M~RnVUGXN!n#YoxGnhH9@9v4w?T0oC$cps^qR8hfrlXYF-H zueV91l3r**=sUMoKZj@PoDzmQK4%1ub$+MB3pCdGz0GPefz3K|oc52sUO=;2pk|iG z(GWF|TBr1WZhC>$+AHK;opyoFwmQ>9deAwWJWz=e-qMf|m}NF0!mxNmoGidBZF$QZ z+D#0w$RL^4VmHJh{AjA=Z=gj`;?#dW3aBNBM_Ep z068@=RC|gmIC(W3TT=zFr^#*vWN=9?L$Wnh0E0{25wRugD&hE4gq@odT$_$1IH*FF znba}_!9lahTMim^09p=8!+?Xn3Pe>7`YI5$mBgt-Dh|9v`oG3ePw+qc4_WD2fv97T zN}tE~3q>OsODrBK@pnSGKH~Ai6Q?}Is_S`EJ4tpY+d-2_R$SGo_n?Si*oHQo4`UwGc zo5gb_NN;7PL*50u0qQ#T=2Q?A*U_4HDRrgJdwaB3%Sm)md#0I3cHH8l65EbfF3`C2p`$oB6Kzr}e2WCQ_iRPcsCA zs1%^4bN6g4A9oZQ|;-S zGPMtbv?`t|zvx<~hE=uF)6m)=sS2gOu~wnfBZ>yJB$9>!iF{RhswDDN>1nIEOu0P4 zLb>?ooki}`kVLLkdODt!o{sNVdJ0xZrYdh-1VV3Q6Vzm;JS=K(-{s({dagiUoe0R- z)hQl$Yn`Y|Bt`KGZ}k3Kq&|H8X@79o`fq1a+eZ}AZ~8&)tK!Yfox+bMr%IKGfyp*| znu1j+Aqbri~LlKlX*mcAj8bDZ@LK5H2pD!fj!n6&l=S#RU)AJADXPEoWq{dFEs zohu~zGo;sZO|V(#>QDw!4|{=T9k~|i4B;x<{~)uD~@ zI*veMUFN8tV9q7zq%Eu-VK%3pK(yYvCTWFR!97^eNqr3J5vJ23pgfzbFf!Psj(3`V zKnlK%rKgj&R8xXxfVNT*$KY+HL^|wJZ*0y@4CGcQ0Aw>?WyJ*7XEt#PU=ZichG*Vv z;N{JRRNf409Nn5>kXyqBN7jZeZf#KF&4wG^Y>45_1`pnBSkSPt!N9^TIBK@X+i90Q z$_*>)f81DEXxz7~jD`U#dshtUcojqPLY1IMSCru$Z2&<&yAMg(T6Lu3Ssm&4esv@i z$T->BcPjlokb{5J@|!ZM6OtaM+c^QGaZ?aXY6@_6OuUx43&AYw6bZiOIs>Jw6K*jN zSp=7~q{0OsMS|Iy`T;CuiwGxdWE?@F+zaYT)M5JF8gvLaWec=!ZnxSCjM7c=K>B`o z<_v791q7<|)#XmmMJWRMsK>70S+>A~I1_RO;<5$hPuMa_vy9MydO9U!ZWPu7_SyJU znWhpN;Lrv;3%CLybv2I~&<{-N@XXm&y;2~j-uYf>67Z?}(+EtZ4G=56*Lh(YP}Wwa zx^;kBz1haC1Kw(%nyMM;-Zo8z)c6ThLb}MASz#!6;&j^P?gIm!6}sUtq@Q3Bq?m8Q zUwsBW-fTGI%?2>uY-r-m1|!~VnBmP(ozcJy8r<4&z?HL^ZN&GzW|kK0rC)ofHJ1khWmL&JdTysOl6yejojY z%ux$iR6d8P>;uRVk$U1mkekTfisFp&{&z|Kt)X?+f5UTB1S0(=kg`6i2P*&49mNVc zpsn6GFe_Vx!eb_ijZ`-oV@o!`0-31HS+*Ep{(zzML{d$+LiCRzyqw?#0@QYjgr zu48HF7ThWKS#b!#opb}u533BvR!*J_$X4hUd@A3VzhB`~qh|Qjs2M&rYBp?Y_|(YS zP^aNjBWuH!hEI*G;Zvh#gNuewjjZ8Qqh|QjsM#LzhEI*G;ZuX=;8UY!dqkZu+2h#o zss6`}Ple`o%cp1<@TqsTVvbj>n5||eh=zE{O!#aa(x? zGwa*MgUME=K#wC)Ih|%V^X#Onz$=KSO*)f(&muP7O<(o z2O#H8qz+6E!{A5R1Rt!L^mNGVAlfjwt zjV&I_eb)qTl}-FT54RdM8#cMM0a3%PMn4X>8Z{fX_>UW?cr)B;^y3B>ZVk5@SsN<2 zwLw6`twui%w;D7Dw;DCWtwzoEC^y`yw>EAS3eqjNqG7Lw7cW8T3_r!~^7-$j=7Hv6k+!o-3Vj4YXlcen!lv*H+UHK5mmV5EqA`(kUh21Y; zrxtLEaa}y{FI%9MGpn=)B-+erqGgrd0wr}8kC~P(z^U`2)l?!Xy@uE8$gkT(mlisu z7BwQst^wleT$wyYLy17)Y!c#z!d99DOpsY;>!k7&jR|P2LwVQ{WF>S4nJd~2_^EXG zH8a!$wIE(P{P{sAJj{karFVv5Z3$n4u%~uz6K$U_z2b;7JX@iFhHfj4ID@wp6T`O^ z)@WeYu(Uio-V93{H5-;SENx_MDCO1$NexRI{kVZm!_r391|x25nBhdq@WGo63%uE$ z`-Y|Ucdjh$`mQ`jG`weNwD#pWUJYlL0RAruM^=UR6^^K`hH@Ms$5eXqBGA9oVNt%~rmwg1_WzYyP+10oQ+oZ{r;EV%y9d7irgYkf z*B;4o*cxzDdOnr2L+`|u(Qtcr_WOIi3B>InU#WK&$Szk1y^@I{?jQ9UU~^RUDRfPK zHdHx8+^#!06bmHY4hh1q(Ov(oH-c8`L1ej{tJz)sk6M77_||w1HFnaO_6=w@(7P z$72i1X~;!5_12@m>PMrThRumpYi(q<{!>j*?llpDj+4n%*jh>!o8b9`kpadCNldE< z7+%4IrcwO`u|_=|R5fmdcE>Um;9<5P z;)iNt2@R@a4meZ+?47`~^qkh?KEP2YJ47h%=Ewvcz0Zw)Z23L>DPPBe$dW5GATFk9eo;Xl$ucl9T1`EPo3S1BM+ zs0!c@@&K9yMC*m#@T`oQSm4JvM;QU5laM&o4Hv#oibb&iKGotxyjkf5it2ivvi{RvvlUYOMz*=1$jUGI8I={9$Ta@~!(!Ms=yK=f#a?K{?CK}b9JS}K#Gv8!* z5g;ix5>!L775C*|^eQWy7V@XhjS` zEp{}0(m3jRfW$gi9BI}00gFu*`ytWyt&`AJ?RpuffP%!?0@vj(vbwF4Q1=qmq$;}w zd$kw*Y0T?^-fR&ufLeXCee+VBQ$$T7z?g7tQk_NxYYP@4ZAu@=v);RsoP5# zf0wXhNY(~%8g?zzJow<_SiyZxP7S?QD6qlTiiv^Q3I#S~TZj`NOwgXqDQgaDs`xoK zfv#qghOYL_Mpr}Sx23Bz4Cv~+A`;hE5sAH|YS8kPB>MXHN^w-4yYZv@kgcv&mAF2u zN?gBRRpNZ2{tAUq4}`|3Cy4K;uvHay$N82aqK3hP?kabGfjkV~>#$Xoh(7M2`tjqh zzSjYI6%D@~Bom~+@{$MVvqd;xC#)NoSABXsapP*LpuAd;2a%a%ml$gn99-sWv}{$c z@z_OgtcynUyTXUu=!94=vXAqOR@wx{>x@2#+f1ug?;XTf3o5);q6Nt7+CE5F8LllD zuNDOHsJv|CM3TpZum2LPW<_;Nl?!Y{*5YR{OGoa#MBk!$huyB~GKEWadc?u7|dyHYOI+Yf)-sCL7T-D^<{I0bHqs#h|SXoi#AyW5ftw z^|c$at?+Pzww2mr25k%8>)@^m{I^ZYN7yztUsUJI_uSf!WXgLqfY&kmC9*NOApsL5eeHN0-NTKk#3k$xAM|$TBK; zppuK~2Laes8vTk(w~M<}U3OGL#satiyGn->E1LO1^@hS>RUaNvlzLtcuIFBOG!Uy9 z@+UA}Ehscsc^R;td&Q$BF<>oMRf{tU&t3SX_Cj?pbKrU>;JE!Rr8&|g*?LxWgb%XA zXI$0hgu+on&IG`#1-VZ3%LPo=H6-e{t|2h4z3jBU&NV2myNTD~*mn$wtHrK5#H}|~ zEs*i4zGF~4_aYu~7qO)JyMVY_kQ7koBsgjA2Beb(j<>3|X zs?JfI*z4*Eu63#Rae$vqjyOxqf6Y}Oth#zN*0t8@wMXClM^O#TRnFJ^K~BXc)&V}ntO!~vFPl# zZq{tUr_wIfr0UBbkk1y8xhiQ*mDEC4vqgO5#^=6$Tmb9Z3%Q}O`wdjrSv->wo1nDb zI|#29m-B=q0`PVXjp(g23cjla0U~4PCh)E!CrN!A%!)fgE%vj~^YC@i3{jv?JtKEnxA6HQcs+&!s z2%Yel#x)An%_bo!(1cVN((zjFT$>PD-D`Ixv<*9j(CXHCh(c-SBsQ$Wp87j~=ba&M?A>{dI?1C9;!c=0#0VmJo{Ztl>aZKW8qVcYT3T&vW;ZADlM zKC2H-^^F?Q4nFIEsJ`Li8V-7E=vMm_IBPhsVcA;(8;aa5fu&(UU|*F%DuI1f262fT zZb!7g7eZV=`wtoHT4|8$voy%{`=vo(u%tbZwn1U|+ZiTX2y7k|g)~$Mub!R(>snvn zwnvH9qBQD340%)tnaXRWkfz#Rx<}qe&z;w1C*cN(K zHb2O$y*56^#v~GCR+G~{iOCHYYc?U5oHWSsRRC%=;Uf93ceknu(gqU_4F^?|(-z^k zhA9!Un!7!t_w&YSxT2v|$w+K?D~!~h8kI?Jyt0N}i0npf8h2hoLUr?8XA8 zLy5d)p)?Fw=&NW;WudR4Ef;IycCzNVC4z&apRGgAxmKg)`mE7%{eF#>r`I&(`94>m z9_;5qAR`QmQxa!*1B_>j3t>Bw;80&fpm??*7nWkLL!tR*tQDI3I6$)uL-*rrSchFibXa?4|0Ib!5 z*IWK*fQ#x*?zwSeP=|<8EE~;DXTF_cUE52Rsg+I~|3T>uM z1L66E4Wb~N3M{qP({4De&H5Y__NgW(^=ua_Y4}B2V?nO!h)dZqbo5Z0J~&OtELnvoNLZ|VbK8L-^bf^X{D7rsUV zE#j>u!HmBH2a&tpK4#o|noz391~7gH_i*h_-RK!;#HRBSTAe5lx*lPcg{8oz&W zb9PfnKjwES=bWz1{m`|!zpiUTZPc>h-^9~NCMnUKOgZCakvPQ5F1?AMnQ>Mt3@H2% zP|G;0iPI0licm|n*yxSeB_mMFXmNkLU*z?iJ)?lNTHrzIlPZ8)EpQR%cPLn`vu=0k za+IB9_y*MCyo!)XS@-1YBNVC3D^-i@WsofhYDbG}OR4C)HX)sAL9YRO<)rTHX3+$( zyTlF1)*VL-65Jfiv=mNKf!FBhC)=yEp-;&$btca)H;oRa)ZD*z#UBps;b*5=l--RazNj(a&l~8sV9`!eb|;fmZ8xtW+ppzM&Si{lyv?P|dUnGo<1(O#eWHB6n2p z#8j+3noP#pqe;s+@xVzDYu7t5Y&6zl?Fw5%I^3L|YEp;Z4?^BRw*Kx;x2drA^VNdb zYC&hD{>vBm)~mhJ8!4?K@EvDCqFc3RZYi%zjkHgnn*-(1;!3-hz3<@y$<;zjTZ()H zfIM0Nh0JbruCb{iO!EZNq9rE;BP=JX+x0IZ5(zwgAP|0ydw& z65yCRiwc{v=3Zw(W%3c>n7ZW<5*TnK_@?eTx@$(0BCrZP>jtE)Kzs`n>;-t%?YJ~O zDyMjGPu)<(oB)W;sY$?630mP~gKX-(Zv7m>Utt2-RFg{*BrCc_=^ffzriITkcp@Kf zEiTgF2_APZc$`5}<8eiN-e9QJH2W*tDVpKXox_Vs;XO1^f}IbG)*+Y*1}3spM5_&> z_~sjSiA9j%c8(@d)?Ln-|6nZ_9|QExYL$F)vS`fQDh^bMINg4OQ^ zQhR!+~#*XccK*^V}$Q?wpBMeFN2MJ=%fW<-O7 z4t;hq?@{jlSf;RHgHB3|f{o;h@jI>^}Ul9s@Tmo$2oe_CHCJ zcx{%~EZ((~V@M-bhH zL|1?3cjv5`Y586Md%rtp4f^FU=O28nH?7*ptmBVr(X^2U@zy{2T4$ew^PhJ&q0)Z9 z9lzsiy0w~r|KabZ`=dSIim+(HOO)vcZ29|o6uukHn~{A)KTs3W&$Q=zk+GH#O#P{q zi|j{!yIYod?s0EVlabmY#A_Ia!>1_CHVosL(}+UxyFc@N&^)V|huTxBDXZ;6&`k`+ zT10Hb|Z; zdqTN!7gU41vJ0w#+>CaBq1;TvCWE;dwN%5onTAbYFFCJb^Lq|<@;qLo0Vz-hJffTr3Uz6Sgj0P#MF66DA) z^&Wuseqf4gqdz6F*EpZgUIc}@91ivxEnu%IOrH5Tu&){-&2t(~sS3`E1-|H!qyeBG zkAbK|ONwK5`7m>6{N$)c}JPTu3BhF(=Rp_{-}^`RU~B^iQExV7F5!e-i4!dz_+52>4h z*bHGZ6q_MT24f8he4*(u5C}~2YpiAAr?`XkCBJtrOE-$kvKG>v%WF~kZcKlr+>oRB%1YoPhWhwFz z!RR<^V`quiCWjJ%Xk8QXeT`}w$%1O?n%FTicLSiKMe{~vPbHA77f7{PqHBP#PO74# zz;2ubFVVnXcA|m0dP$m4xo5rv)6`446s|7(1$wrUTTmv_0mpg+$I3ZCwBA8uGDScV zrm5FECO(J%&{?q{858Mkmq`Yla~hXwAHc6NH(ohka*~$?t|?Ge?r@h7Ue$U{Ely z&YCwDVQ<(T?}CBV*2chEr}>hBG0D6vp&5*;Upjxz`Wtmncxr7iPjTUzgnB}k>*s7;mc#Pm# zI!D8Um4F|ht7|rPW&p%`E9~{2(~qd>788GOz^QDFN5LWb3Uz-GIu(C$hEF&mDYPII z)IA_HDIUs?+;%s7`O#aKeAwK*5I%0esjVcOSL~-G}X|_F;RVeb}B} zAGRmghwY*DVS7S-*d9k`BlaZvuswA?Y)_aEKYf~v>a>pKCDmb|Lvv_Kqy$X7Qo z2wJJg!bTsTaEvm*Y0?0i7+h6=$T3LRy$#yY0CVve6!EP2X8}8H^UrD~rUvBc8lJQ+ zFek=?g1RDvZ{r&-Gc|xQS{&(W(W3M%>Gci8Jb+KV*y}laqX1F8{nn^0voLT~FV>Qj zO0Sciy7p5pLWH2Np88n58AR5*W*m*EjfciS>1Z+|ashJdr4-FAfNwqd!h-}OvOT7} zEaz)CMx^ULW^#sSGhr!MlAgRVHLlmgQZOgIma#j?Va>Q0Y%2buzncxReAw{GhhbB_ zABRo#h7D%?#|>b7*r3IS4M%*~K*NV&Q@t}cI4Iau&)S~)f=%_T?RhTPRL8nGj(WrP zOcrdawl+4^8f2Gjih&NBdM3KEK15fpc0QnkwBk-|>SMIarsgzO)>l)QM8~JH_~_E zzLaGR+JOFY6=m2s9r72=2GO3?^2yqMgG9kIEl!gR-P5fQSc+ZK&w9F zbUjrH-1RHWlR#fR->Qp*fgXKXl)U7A2lQpJTWHDPg$WEvFLBu40l7ar`y%PefM_P# z2PM+`V_dDEcLq{3T+MK5Cfb)!Ys}RQwq{&yhFeY+pjdHrd>D$=8#eeUC|1wf5T~G6 zJ!``iw>A(dC|2*s4IT=L)w4E8C@5CPx>2m&us!4j#j351VztiBCBAz7nr#=|IQ7iv?AHw|H5k z<5G575iRY!PRo(pa{^4$C0Y=fjonf+&$9VvzOQ52Zi>{|{Dp>BcAvm6KM8nNOwmZW z_;EhDnJ!Bk;J>(8OL$#SQMVOlI ziE$D>Oiee%IH}B#t}Gygn#G@;Np6RlMU$DNGQ+nSnrQ$xLo*HGW;i3XPH*>^nHt79 zVKP7~s9rpv4;zFPRIg`k;N;eZLeWw z>OIrmSRdLO*PIA%{lpKHcot3rxjv?Mnckcj$9jlytgnl4(A9&UNb8L}ZdwTQ|Lk7V zw$>XtNZlwNV5vR0(J``kQc{Bx3xu2SssxivTY$=VjMg>;*|u)%(&yh)RV2kOef}lY zdxDa2(*AbS(!QL64oF6e7T_Exf`F0HVujJIvGTD@jMwGgkmek@-LwNbx?iztOFjkw z87-PF=dIu81$@+Pv^TZa+)P9#T}TWpdeq5JK@RT)IRrEHX}loNS~U={XLdQ~Ss1gP3GU?KpOuT5_PClXmkj`RY(dK1d-v-sL{O&2YM&A;2oo-WF*X`L2* zLUb07;DANK?{potFG^LP8Bp@*;RIUAK?>r@x2bJTt$!@Miw0Q~OGsCsq88yDey5k; zK0S&)A+|+JB&02x z%#=zdOtN!lxV`|7}>Z>LOUNfAPkJfmU!r#{$HoPiGV9(l+s33tI z>qY{5!;rwn#q;FPn%k!>f6sm2Su&z`9*sHq+`JRqQ&}l zyNe80cBAo)94#PS%dOulmrrE1xWjL{u};ucEf7@h=emKlYC$z;OcTm11gNzuKb`w5 z8Q_f;WPZc(yMbDMjB9_O+DsP|1Gd&NQ~rv`xgpz3hZBRj^V_(@#c*z> zU5No*)rI%nV2*8+h|31_he zem-nKSNJO9?RZL4Tj%7GrZUi>sm~-c)`w)qHP=zZ9?c(N>Cflcynq1g$NVl$om0

!4nyObFCj*R^y;>QeKL?bm>S(rQ8JMZeAjkk$>b!bZDH8pu`)^auNbD}3}v z3j`TbNH{6C+2-A8))%ocZ6EO3x4UGD<_!m2s|8*@iT$QyfY#9hfh{_EcOwRXwOY{2 zF6W6L9cos`sKjaanxBCIMB0-!*vKQLM=nGozc*<-!D3s%vkd z`I?p5gEkcCHGrFO5W`V*Ax)K|I59Y?nqwr%E#4V6`$~^R^I;-WRY9>LV9zXN-S+x6Cm6a)1OEv_)!7f?(g&zaKaKNZ{1?S^V&Ve z@6@6>c6fe1|FZk~_ik}sh&p`!RU}wemu7?alf0V?5^NTitHks3G5(}yb%-BJGw^f_ z2(dlfsDSrN-yp|MGWzTFX<((+p;*rBSuAf;xU*f0=|96&Nhs&W3vQjK4`W zP2t@Bp>Ly0r6Knt-w2oX?Vri6-AYNPVWVXe!?zY#cGUHw7}()CY`UL5%K#2%q2)tl zlb`EFl3b;3%v>W+KRbsX&7df}*1z-x7p15}pxdeIuYC3GQi?p>U#kfoS*5#0c7?$l zFTkPK+Hh`8kxo{O3d~B8&R;dk-HL<^!?x>Nk!YOIY@D?52VcgbztbNb0SacFAPZE> zs>OEILk}^GRZJ#QiP4;M(vt3S)|?ZQr;N3Alde3n8v`B2`b@tAvqojHz;}L?Jk${=oD1SZ8FX>y01k#J@1d!Xh z>(gYW`*H@wwX6IM5%?};fUv4gz-8n&1JG4|V9|_#O!~lc6D+uha!G!hg6+|Qpw>;A z=$7PFEmq-tMTQ2*t`@siif38^uty6rv91Fu3a*<)XoM0HA#&}A@^`Aq_SxUXuo{M z3))>53ck(cL^t0K&1r|7XAiXPkRiXKqWd!up4^HR8t z3(`{q> z=(n>-sZi!I;IvxooP75fz;v{Lqb}!uo+~J=7Svs3?h7#MtQDn=t`iSjHjC@EpMwf4 ztHu4k_g%f9vYk7=@I(WEWt~NWMc+9HD%-lF+8wU8bc?D5+&7;IsI0SEL0|WN0@1q5 zw%eeXAB0v5`X2P_0l{nA?`wOdWM&y>;bPT(;Wf)t6F!*w>E_M-sV2B_2V4+5k0uaP z^3A)SmyL0%3F%7to;H@L(_r6y=%DeUneag))GCuygRzYW$0$~Bm`3P;2O}~-&EqfD$Fy~<9#Y?)E3G4purw#%0vDN8P(@i zMb4|E7zpBfuc@g$p+jD5z{i~^(y9&XX7sF~s`~mE<}x?tYN$QKTy-Hcv2IRO14pH< z*{4l&Au)N%TwBlhlDRU_VXn`VP_~B>iZ{*Xbfi1|xcchr{4RB!lS0`JDU|JXDU^lm znAWQM{PAz9!I#UTdPe%^6o3TitIEN7zxH2RV7}@(kgwS1Q$W62Z0g%BIc>Bc!x1M> z_f-nuM+?67)`4#qyjKf)8}w^^fP0grxJ!I7GY`;SEeP($M13IS1`<%a`z)0az**E4-D4U^DbKL73J072MA-jJKO| z%7TW%RrL{VO%w|^sy-poMfu1-aT5bBA|r***|3V`F1`#5p6FUQq?)i(eIl$*Fee+d zh`&A&*`?dqsXhWze${C5l%2Mo>?J#8pu}4<)U-q zHQOOxv%M}}(<1t(`|`=lG8a|p2W=-)h|B`rD&v4Nq+g{1az~5i3z8cD{N@6~whyn=msDxTvnx^&(NNGNSLRd+GBB09-A0JhJI( z!EBpFB~|xofo!$lz0mKP0DP+j?$y3;7$~>(L5jP3Rv@`rEVR!baZ$Z%yaxL|ZgAXo zhITwFxv1_wGEn1nlqsmTU)5)vy@f!!S}e3x>+U}AJz6w{>{Cv%2HM>=>d^$Auf-a?QIv>>bd=(dExHaPuHQ<`*?qDc(;low` z%EVM%$igFP5Z0)X{1qP21ZO$Rp?OW?p`Y^7*2uo(r3`d<=|cu6^U{Y5&^h(2+N5Rv z!)y9^rKuUf*ZEzhIwuUY9l}7{>%u?_mBk1rUN^dK68WcaCq?{K_+pcAZ|yZz{g53g zq41Yq7%)|n`5=`vu`j?o&Z0o-E?$ECx&yn_V$Is&k7V* z3%*4AwcxN*y$5JH^;slFzeTmss9r=X+# zcsK~I7Ps@DH3R^z76eN3xr5-k7uQSiB>-saEL!dM?;!{tEt>wNbTY_K1puxVH{=gFbYUG6#L=B%M=3 zs?9V>+Uf<@S8|qqOz%?AIhmyGkV)EJmr0^tzm+{fK`+GDarz{sZ@;SZsqdBq$yLw; zm7xCX86b}qI5Mf}sVJz*b2M%6Elu5gvl3P4v26ClWB01B!WogLm`|C(UDl=J5TfU8rj>cc61bNs|3I}O4 zA-H#``DmO)(-B?d+9#?zy_KSczuG5i8+Ta0#Amhb$;-%%YM=(Wyp5WB8N#)u`0`>e zR?Hx-r3{bS(LzpbUufs-nyISE$y5tU-WpB#w9sn!!jEY%$7`Uj%h#JXF0wah!#k}d zVs-tK;e(R0BEW9o26>v{t@a=fdypB_wXO`lMT(%l-U-Y4EUN7d?5M;Y`8eMV?MSg! zPMRrctDMq@YS>PorK9S7sU!Tlsz893K_#Fo+^dFiPibqD3@B+U10CA>(0t0Y^`ZH6 z$$h3&;Nw`|9&P=Y-leT`norx>)IGP?HJ@mKzn$(YVNHU-bp6hbQ@tpvQ~GI|u-0e+ z2VJDcXntS9T28?GnWS5)dB&n zejyR)uICQ8$G3ha3NTn*pAA=cczE-Q;**FLcnhd-OWy&&xz6GZ&<|C^TJ_#uM@@!+ z_GodaL-k#vuvWD=pVnbmKU(l2r;~oVT6_>XivpXxXMk_r@B3}gassBR7WY=w*83s> zyw!rV+kRpP*sT`JUVMK6*E);Gxn`%f$@N885Hgsm?pdwKtAeorxNSjgcVAGYhF_u9 zwDo$C&}!lAgth91T#~+=`|EJ2>i)V)Y@}}XZ(HX`Uhp3_7$f>^`Eg}CDZOJ`l?!P& z)_NP%@p{`M>dP-!qk$K~#Tv>k+;R!ME`_tw01Lg-VTjxii-J`(Dfpbh7yjfSYc%|# zN?6HRaTEhESYt8CFpE0*nF1)gU4?hnFsrpJmcN3t8G!MHrpz#Nt#?B((i4Uz24PKQ zLjH=Q7>40CPCnqmi)xQY8M@awxle9Ux$ijX6uqFM(PW|t?7_xj+tII1OBJKqniN3E zP8sO1(}x&UW~UD^s!Q%ErLrhrF8TAWC8z4g^e#J{)1ulAEvoHxEvnWN<$OBRz!J#C z*Rq&o7GSRWFgS_&&1ImcDs{t;_A5WY^=QFE2(E_>lO2fAQx%8V_j5nb5QrB^h^Aq> z+qL3+@Hw>Fw%ZJ(>!F*5K{(kmkgu1AD$mfP8ZF3jV?DZz2Xxm(-)^+o{QS!-1#piR zsHorA2A_ZVI>7d50n>ztcaH(I>*k?lM4!2V^J;P4m;6nDqd^}vKCR+C$QuTnSBs{y zkQgk`uCq{ROOpU|y`87C#0)aK1IwcYULAdrW(%NPZ_cI#I5|oRHPxF_F&KOYI*Cj( z^AbDff|%+Jfl62Mq_%MTQuOwOe(LhxTENtg2;kwFqYkCa#CnDDz{Qj7WNUye>2K$ZHh z21zq?E#Xs+@;k#bv??WI4W9_>4~e4z)J&UyL#PRr+2-q1yt0MoW_hDg!>b8pfL80I z``3=bcU{rWG@3khj5aNRl6o@Gp`H(csZ2c|0#n}j6JS-Lf+6+%nBJwHbNW)-p)a+) zt}jK~65c+yTYI%#uQ((#^^8|_Ja^f52gJu&D-okX+er{US~NL(!iOeq1;eyS%XN)k z?~BrT0Nv-)HOTHD5bj4_=|`o%1i@4Z3E(D@rc7JFY+Zs~OD{5&1G1w9FS*m6e;3S- zvu;Q1R@|`j&{pK>t1%9hV zRWA%;>*kg6ud=WK#Mbq(+Ks|T24d?18AmHBBMc%hRL;0R#rX$B)HYfXvE}<%SA{-j zw(|bFhFCKJOoOb}`d|JE)?xrQ3ctE<9=gHlb>S@RK8MVtalRgRrKs;G5h{ z48vwjprMK#b`V}r#t>S_{Z$i#u{o_$IZDvp;}gnF`=Q*lzpmT_gzPi{|9oK?8T$c&b`hk) z!-+?D4i=3j5iYA@BFq)D`}Squ(;s*`9cxQGH^ z_EG&zEf8_hMkAGzQkD!LppV=dP#rmuhh|bnGXG{>m*DN>$RC{90!< z+Apr1T=4phS`Yx!V$SS7`i)=hrj@9fxqX|iR@~A>=<~PfY7-jUmie7pz}+>Fm&woX z{mLohkAFG)>koeA+Um1~qm9-4(XXSZh4_>2<8h1X_q37Io5#7scl_Kf39XTTK&9{NF{$9ssKC6@Iu zz00!ZUT+Y`ZU(v+h zZ-#6$C*j~`6v(h_l2rB1(Xh)e!GOw#4V8S@AjpReZ+zH*#)l16eApnwhYc@$7*f?+ zHG>7WHVp7#d*FT8o^Bt8RP|2Ho?_=c_Qd+IJ)J&mPofXoQ};P+q^h+wFG&>x9a8lW z&dH?e;fcE1`EWY1f%=5%_}BSeRyC)bvmeSi`|HX%gfVHz2&MV>H%aHnW$n$?AHh9W z8306aA#e|=+D;C8fkV1<%VpWTfhK5VlW2px+dG1fI-3M~J5dCM;v{hGEEFn79swr3 zB&bcvn&K=%94bnae;3G#7T34!a_h$@K{4(A&*JtwR|0I>*q=6*ucn#4TXHz;KzpzczoDU#)l13eAw{AhYc)z*pR`8 z4F+tOOtsz}qvdvY*dAs7ac4SD3LW;=e!C=I40MRsL-!>UuZQl-H5ED>NBSBfe7L?p zH+}MEee?zI@~%1Am;I1^*TpUDXyPWEPLSM-(cc>%byV+ah37A;d) zdIIFUbs#KS9N-dzH~APKm^4*KD~i&~97ME9=+#A~HS@6nST-LARVs6^Q)Nb^p*bQ4 zXvJS`0;JdIW5~+^j@bh4g-#1_rXB8!JT5RzZ{F$BG+phQfHrGte=eH$fN*gZ`DK@) zCn7)>XVD$=wDp-J*ryiDNG}jLj265kRrV`KEI~+JtE;MT(pkqC2LzaS$^{fp* z3Od%YZgi|SY>?o5%fO(ZWA%@lAFOqqF6kHp9Xj?*=wyEgop|SEaL5{i9}h!^j(tq; z(y=+^ll@RW*kd8JIbAh(01;M|**f8LzTMWUN=%~vC5(=k} z+D4<8_<}2XqL{_?LfTpQD{4^vaW1r{!B)M^)@du3RYKwHriq+Rp(F$X>rFEy<{Sy; z8`*BbB9yo&90jQL9<=WA;jb_Oy!9sBL`tY`mEvnUDt2h>P9Fm@anz*9ri0Mw zHn5fB+aZ?-*x45yF$~+v)P6&=iN+IXn%G@4&ucDAd{1~b4nG^9%`jF&v>EzokTzoi zEsQs-poP6*gRX)W_N)z*3R>8)ZnUsBY{*j3!k)Du#;3K>!qzOhq=gK0XyG%Rk^P}F z;@yxro!FLoCOrBvzsn2fbVl|=XJmg}XJjRvnI6oI86N*$GB4C_+c@*G+5sS`-NDav zcJ4a!Kul}uzes(3CIi4{w4lx3ZHcvmnVf;8YSEN>yJrQIMvL8xTg%9)9fJsGI7S&o zRf{vyVOdxX-4L*SZVTloJD>QvD%UH>sA1s6 zrP_+xT?0Y3_mCwU3byuqBVrAqly%KK8i$}lk_qP)EY)ytropcPA96mK$r{vE+8s`Q z4eRKpViYtV#lUVR;trkEXVXY)S&wQD+L-4W-p%k_!W{9$W=N|c-i(Ps-i(RiUqMgf zc^5(C-mrmKK~HFlAbcqp{LIzNcM*W$u*ZmSU>f)Q!GFPI(|&*a?&~B zk^K-J*bPOQ|>M2J>S* z&%b;OKJDW%&>F$H*8SW7iq(P*-?spXbt99y*bjpP#AYXj`e6>}qeo&}>#m)w3kNAkA5W}_ ztqTn;juL>j6{yi$E*HzZ8_W?hmTLLR@oG57t!t&+xv#S={$(vlFkDk_ktkNN^!bP3 znu-=ilZwvD279fSpWM}gYQr`4sgWqcUiI>WeCk6WwOeJI9LT3V1;Yk<27MJv%suyP zQ(K94kx5|SM|Vr*e1!>I)OM(v6x0o@iv;F*s6|+v_alX<+owpOp1en z-b`bcgnIT(ko(x7KVp|ZG-*Cmg*`LL*{&`7@l_Lpy&?o3fAOiWwY8Kk$t(jMGW$%J zWPb>g-0XZn+^XO8=gOpv$dBn=T0199vLC`E`|H9aO;7KPv+sJNeJ+`B=hS~suBw%S z4qP+9eOw0~z+ISAS&5=r0T9-HwF|ES6(pd%qR%*Z3q*_C8!_0-odJGrK#tq3uhjwW zs|9JLnXv-(I%~Vi6=vQB(wl`!fR!9qEl8_~k7d4EIIdbi!uqKXz`RL3Ukh z^j-QNHUPU?5X$a%l?LX02S}6J%+Eo2-DOB=_w^V7d9@&wwa-$)c-{M`am1Hr-upnj zT96BqzeYfHokfylT6Sz{Yh(_B$b!Znnl}M7_u$y^nE0q#kYY^AeNQ4v=CWdkJzaC19z-IN46e*>H z{}*glZ$;Cv@<|44tWrKk zqr~=LkxyZWRkl+!yqfC_Er*`b{xI~KpvR4c+Wtv*$J;y`l1;d#5hanMJY}Y>eRRo8 z8R#(6XQCwgLzLu}Yjvzm{&CSAX8JL`%S`7)N%pNt=IyVGk}T~ZTvybMFO<97ZiT}& zUKPRNvo`rkum+A>kNW#Pdq#n7ZGOL2D$FoY?Mlwad*9CqSVs$dcf4ygmYBV-dWDN# zVrF!(QCkygfVy5XU^`mSq4Xkdh|HrvZMC4QVqe+?&^C)zcxD;+R|_iBBQq@n|9a)* zqsHw}vQ%3uL~SaMtIi_ol-C3V*LzE+#Xj!?z->3ckGgjX{MH?34Zic5faYp(#h;n3 z5Iomer>nHg$-fJ_M+?#!&P%?B&{3U5W2pZ3NTZ|C1WzH~NztaHrfPCSQMqpdpsPuH zZu2iU(9(Wg_ktS3K;tZAi_V2}6Vj>sdDoLHsI7q&m5V9dU${_pPib~<(S)fLN81(| zmGr+Gj&b+f1L5Za&(yn5cYoo7CF!(VsXev|Z?vHojBFdUJbyR%;=@GGtKfYJzwU(~ zGau8s_$X<`zv6cxox1qeHk@7IJQWIRkDg{h6ebW-UDo#9t51j@#o!EzHx$}4Jmb5f zVA%#?>qN$aVOZIYJR#Va3?~Sik;!v#s$}vUTJjtyXuKa2u4BYW3_dKOf~C&lBx3TE zg0{}tB?V=mLqVU3lk5+1lACQQz*IWqCtv8tXqR!$X_4%Q7Rmm)7Rf@HFSQ(>(as#= zSH*$74C<>Cz!g=p^m2h?s;a;h$%*hxmQnp^fe%7e)UpLQt!I0}zuP?qn5`D~JDCoj zf7#^(-_&OH%XaI>qd{!7faCYsBY>?I8+WLC9pJTEv{pl13&7hf5NQq;nHPfHc2?8} zcX{* zwV>5#>HUne$e%l(V>)x`3RR0+>(U!lREqA8D%`F;DpsV+$(`&2JT%kIR zPuYIzLMuE{6WYP&ABKDCtP|Ptc^c$1PJ{8>B%oXHRmf*F;YF=9qmJL}W~CECd`%VX z4f3fwjE43D69YBmCr3Iut*5l@p5p8c$S9}+0QBSB8LlB2cfTUohF(j{pc-7G!B=z9 zN)B$Zl7?Tc?S@dif)*Np-En3Lt0?@nhF~ZdC+C?nNrNyn@B}1_9`f&yPkVNin-#ng z^63xah~gT$abJq04#=ncZsy}qPkT^wNs1%}sHZ+CS=cEnG>gfE-cF0q+bZgcWCwBc zjp`~6g#{ZiRTI0rIX|QM0;9fDq@~<~C(#s-CT|fG=!{LW& z!2@yA_;CO@LC3x(v1$Q%UIdKu8}r9%K`XXa*3u)GKXHpy-$eO!_fx-eYORYjRiA}? za|HbC;`_N;kP}9#U)O#63%9tPij;$2`YhZj{dCJ;C5wIOS1kQHS&S-uzHtk}((!7G zs;IO+q?B|?_qToz$e4~aBY)ET)-6aCHdls`uiv=^pH2Py{CnSVl=t`V#~<9{N{goS zwEWR$EsG?G7bI3K&Lk8Mlo#LM-GryBV5HyiX{WW|jo;N-R5ER+K{{;1GVz(-mH|_L z|Gt}?2@Vt_)~B^@WqF#R*!H$*+Ch;Y`Xl{ixUO_8E1Dv_8;;%RuPRAVMb@tY8A|Jx zAX>Ok(@qqytk~wy+=L!?1GZ_nMnbREV&xMvV1xOZuQQt%%C+jPQKE*yTvJG7lR67G zXlplI5TRgohHaES4BM>!M%NWDq#mW<*M@E+-WMKV12kUhLwBwr8l`jA8Z47kgEZo* z!_qm!G#0;DNP{$DA4-0Uq~Aa3LQdoff5$LwqTud3hHq3PD)}vFsexT3HhD0$s3=!g zPvN9_MqL@`P}e7dGVS*c%6IeXsV_%z>iT&P>@xzS{pc#+rLI$oGW^y-U0+v}S-2gz zvF;R8t)$0M!lcgNALwOKxgZY0BE=ujPvQ|p-%XvxgOg<0j64AIs@g&4^L}g*lvjZX zG9S&2;4yx`+GP`!zQX6~7Wd8b9_$!Ed^{^M&sUVPKL3gszgt|0!*(qIcs&MU(wS3$ z={D;=sNwJ)dI&~pH_nIYQaq&_*wlPP_LfP1ayzTi@)S@&9eY>okfO0 zcJ_hcy0iAnJriVL+xFjGO3Lyb0mIb-@$0_l8wj_jLhIa$P&yE7Ldby-#Zu%xK^!w~#|)7g+~f4lQ!hQA`P z4qc5$*$A`>CKb+2!!g=76;)E{sYy&Eh4_8rvLoZkS8mp{KU?BR@~oyEhGSd3_ih3u z)vZI(>B!CM`(Ulg(hRYhpRi!}hEmOCtI_{_kp@%STMH8=_o<#E;ud4~soxa|;gwZo zhEo%IR__K{e47rPw1!~Rg$(l$49*~~&`0$b`HC5y)j7HbVXXboIcg9_p4^a98k|97 zW>~1A@tC+8oIUlYHZ6f7(0@5G&>^Ky1bLd-fs1#qf;xWCRSvzR|8r88iB75T@LLBH zeO-m8G0_|1FT{|pdviM&VTOrD1%_5bE4Q$8qMCxoE+WnO-3Xkkv~m#Usj9HFnx7FXRg23-zQgm&9#*Or z+~=WlRV{8;;p0W-sUHJRa{tPKe!GrM8b6fIRkeT_WxpOS2fYV7qS;;dI>>K#?W}Af zu^fP3EzVU=DOj&Nj(o>{`zoN`_Gpo~0J!TU$ZFsJ3)0)eqVK6p$D0pTO>T>H&n-+q zdNo=2uvNlR5Z7qZd}t%*E=aE?cN$#xj{=KTlS|R$2)tc?G{Uc*8rFD36mr!?%_yEBT5AVIxYU+xTjJ!y-M^H=jlls`@O0I1*P*Bd;e! zR=3h+$bAju*h-^9h<8}6?u&8Z7!+4c%mrF_)(z+I4-Qje`4o>w;ZvnZwKbfZ@x~g^ z;f+mP%$cMi9XBsQhnpDe5fLqt6%6V4{wy5BhIDjo7&2djI@&~zys^!-s;fP0f7V>9 z`rz0?7I_7@Ru#2}3bM`98cm*(+SY=h4G=Bv^z9LB z&Mbx(K(yfFjE$^55xYI$f3zT@TI0fHl7Lz4lDbf|RQ0o3@6sD69|Q2$>mbE9zOM5z z!2W1KuZ2xgFtP>Eud92eJy}?*%!on$Xo2b@2_)S#27ur0Im)7m7lQS17KwStS9Z?? zs8@>MC^FV=pwK!2uSaDi=4z}B%&R>7Gd4*bsAKRB8z5Xr_OOf5` zyO+ik5xFya0qJ$0SOBx&J0QJoluPOk>#Pc-x1G{b34GQ8nxD|vgl(OYy9wZ~H~y|w z>%24F1RksRv1;@Ljnzq4c|xmrx#1Z;DPuMHR1DAnO-pGkD*MxJ89FBo(r_s1JuY%U zp|tVxH=?{k0E*`Se6;JXut-u7);3h5kBZWaq9Wd4jWU0w83ji&Tx+e!l&@u1sR0|{ zpy`XOSStGW`=U~_m3WuI+>A%kaE`C5g6|o$ZB6hw{$*PAZrC;>$^fNRC?ArycPOnr ztiuyC*rPyjfQxc02U9y)ZdU3D;K-;ad&(_w8=;M7 z@|4gvZGn=|GSDHk54osJXdiM>7ca*m?w$#4cr5Kr2L67`?-JT6y(oU`AhiDxy{HZB zAZPU7IXllBS(Y4GZ)MO6IFlh#0n-Ci_q5hpY+`_ZKW6*yV^-EFnvv-q)dk!GT(~nM zT!e)Mouu86l_a6mUK6|kR6yiJ&!K|^{8zOW%7Tt_q=5fy!SUNwPO$6y9X^{a?#Qs< z4Ey|R{k6I}2uzUxqG1xiy?3GpmPtpIOH)cAUAj^s;9ZBeDHmO=}0gGuv2yAV2u+@VDlIu#@Nq^;o0J*NgUCZ)UZU>I*8c>H$ zAh_}=U|ko1xSZMx{;IuJt=->HD9EhNJh~$JuQ37G)nuE-LMAYM4=p%Jw8;x<*=tA-wCt6J0egL_T2=P?RJGb_&X(wUSTTX^^wB!xs)sbJ z_^k(5{knz~pSkxdUi**Py?HT#&)bZ*04k#BlHF|%0CCm0AO(9|)d&n10f-O|qIi-{ z5vc8*aHZuZQ2PVm)_>WFnJ9!*?-id|etot{SlJ@7jD@eaK2;SXxn7$>m>_oU6+S6> zU$&GqTi|b4cMl1*DQcX3d{F03 zM@Wew){$D423fmPfyVb`0Ct3M7>0ET9&d0^o4Lv`Af4K0n)3Vx=~R&$k@aSXcBCY|!P^0j@@DvUL=MUT?udyY+!1XjgSbPYQ##3q zM5n%PVvtuvr}P(#=+wB`aI1(;jjaujUb4q1=HIeM8V2m~DLPfz<5P6XonqXM$Oe3S zyrR-aPEDKo=s)C>hxDho_JdD;U4M$lW`m<$<7^vBx1POFzYlAr_vJOG1E_Tx$VcAu zk&$Vxg3{LiLTFOqmDUHAm_rclH^F4T2f_(0N&!&LoxhA)>Y7tfShfYOMI9tHx_?a8+0aNgw|M3=!+x>7mst5A^lz%?B#UuC8eaN5=NgZ+N2ZQ>$ z)DcN)%RN+%DAb1HQT4~=F`bA~xl+yY6TghRfI-@SIiXvbyats&S%2ckrFKK%Qr7=W ziqgz*xs)qadJ6jju2fcmp^ZiDK`>S2Sc-IsEfAol zn{K;LR3^c>Y;k9_Qt6`}8UlSfKU$-wiSY*wb>w*N#y&3qQb!I!mRDYJXMveIa)~3w zwpak8YQf$todDC^i7GaF=2X2#;Hz$is7hIBl`ZVdlLqeU%}&b-0>!#aMj4uuFW^~C z<^qL4wvMFIAE$D_xSD8Xnb<#WVpw{RWDSSkX#7F4bdC>^EZy1FYvt?@l9f&T4GPK1 z%?C-==obyoj{G9TYxIkTWIhCgEpIlA@@4}hZ#MMtW`i1UHeB&$0}*dF#PDXr3U4-G z@MehDXwD4)+}fUY=SKEqd$T>o-fT~-H`~+s+5DgX`rrTi@BiYT|M=Gre}E(874f2B zK)jwxK9zVqm3;P^h>~l^A4x>{=s#p$hopQM<%4;BUCM{bC!BPkjPdbrO|(`K4GJk| zjFs&)Mt`>3Lih^{yit#nTN~e0^H0zpDC8{sW`bTBX>dUfDfT}=o z3E_YHj;S=;mclDp|bXu8VX27S*xu>+|3JUg?|aIPk6> ztM!3y*@6@RC`ZDT`rZcXvIV{z^yHI8n|Gm;y(|}KWr=L_PTToXBipPKX`~*M2!QDg zUiOK+BlwjqNOay$IU2dLUf@fo?Y0SJsM7{j%NB%mbIO&bt(KaBs_9~GO`T<+E_Whc zjs(3S%Y>a}i^$#O{CLDm0mN)US&Or9#(JU)Yg3EuEJ`Q!!6 z{;df(gN^AlbeRI+wT?>5r*;{c2_xULDNF&dA%^fT9iz(5bXPIJx_YVO#^Y#+#W(Qu zBp7z43ty?0yANS!_LNi?BXmsrG(qtOUq>R`4ZjXVxW5^I9XYr)1Uq745O#!18lW99 zF+_9PWAN4Rxx6OcY{1m;xskO&PQ&L$)&?yNpBq>QpBpv9=SIzj5>EFFA71gf<&}6$ zG`!|>v_8aR3ZHv6EPF{rcwFhD0=IdDenOh(Gs$+u-r~m(NX0CtU~kLUrDCq%I0qzQ z^400=Pd{%nMo-Zq-uS~e^Uu^`|3=vUSb*f`YH=k^Ow!~!_9jz%CnEn^-}t}O-=%&o zWvVmG7QfQ3+=6`K{7&pnK$?6o=Wuq{>^()ou<|*`n#{Xd2?%2-9LOiajA_@fB)%E+pfWZ)w4(mLs{Gq3l-N_ z%jm>}@OYu;U3I%3`xIRoJygnVD@Nj8)>OZ)+KZUnzDdIL>C_ZTHW1^BRXvIgAuTAT z8ZI3RG#EQl_4pS)d@Hfi&{G37YQIhONetBv6f}POwcZ$opp>3A{zk(%>O@cdjRtsa z)`dY_SIL7+1p{GY#!Yg=AL^4PMvX~qSf|Z5%cmvQ^qRvW7Men}0NJHYlpJ@x_npDee-rw>vjrGz@6tQ@Ewl#;0)0 zUW8j7SNcvHpK-OX2pT-{qbT^0M;_B{SsuDA%hz>Vpft;Mzbx;PgH-V=2?#c-ZP}_r z3e+`)id8B|RUZwYn=No*%?fCMx!D2&OeX4(6#}_xL7C`mP+1m;t1=AKeK4<1$xtwh z9Vx@1D-OIhsfW81PwX6oHjXoYX&{vc0>1egWD<~2IrOUn#cFY4a)-WKkXTocjWn)H z4G?FGhkRw11#5c=2X+1qsTM%5?ml*L9&KG`kXMBzF59*4YB;6#B3K~rhH3%UW(#=h zqE$eeYJz4#F~M=2aS&Or!C>p0z%OkltHfqg^bfGsEwGC)U`G}Ka9vSi2D)m3wmz32 z-L-(A%{EaHV-AhVpqXe{n(mIFlsbERd`9`b7@kq;V=8QCfObV!QSQDuFgHX41GUmg zV`7j-qNdJKlkRJn2EEmcX7-LB%fljdk|N{BI~k5qEwiEHFva{!_iv4pvVc{iFlX?@ zhpke@=4TC`sPx=bPVs?Gxi8dE=VqQMZ1{8}?biV6$cet8)sYqs*LrLROj}v~ zS;!hFtyRkrzb)@%a5;D42xQetrNshRR*U;tBCIM?0F|vI{)+eX^RIF`Ksj5$e>wS1 za8>K>QQ1Fr2F9ImHpRBj4*>o{&F(Z;D3K)G5_Z9Koks@D!Ax7k(CSDjs$ zrdr?!&D6hM16a=%c)w3MO(^t&jroJ>YJrE{_=;Ho>bm(ZSE>J7Ssa+I7HF}LeXT&c zJ`$Hp<0l5iwb#0-23Z*`Af7Eaw1IM6=9)=%~cHSD1AIF4sK{iA!KDuP31s?JCfQoq`EONyyI+MQ=i%@*0wHI?x!Kg zhIrJ7DxA@&vOyl7h0~Z-!#v!@m4O?|9Z_mFn8Tw!^$!=EvzmU5OWA;qs*ja=8?;fR zeah$!+nAHWJw1@ZfbLjTK-m&UsJFr10qPxeRWWc%y%A~ovI!nkh0v+HI8LLp$;-p| zD16;gT^a^d_mxP?@)T(~m)sayK9vag5`X*+sP0GiA=N#m(Xu==T9&VCv@GQCynC%E z{>Q!gsCXTiaD!?Gv{YB;fqmUmQTX1oY=uBd-Ajt1a8pcXqBK56IIYruQe;)1Np(1N#sTAX1T3BkJBg1+V< zl>YfwSuF1Wy#_UM#vX6p2-$+!g)AtBc39HOKupuF1peKz9irfsI^? zZPyE~_u&%oI?xTio}`j>y>;FO*#cLXd~*doH28t`s>QZ0;{aFQ1^S@g$uLXH-1A{I z(ZHVOwt^e036{c##e7`jX)ATzev$Uouo9cwk!J+h7g;+ziT)40hO1X2`7W zZsWf!T&-zsyIa3Q;^}k~xUB-7mHloU+y%^x4)dfo+*Yw^UToXojBLvKvjxEFrGvfd z20FxEv&oUl*@j+6%3vFMy=1RZ__}4UGz{45D@B&&smO9JsX??P_UaXMzPAp^>M{M5 z<)Oc_d|iKK!I^{BLMoJ|w+U9~K}6`GY|fUfYB6&3VdYz`yk{Y+TJ-;XmW-DAq5`P3 ztonYDWAy5V9pwBOY6QXx30WcOqy|S6+mT$F*P`$4hy{4J$OT+t3Ye?!^EOU#4=1 z#$jv-$GamUXMB)`Y7h+BC4G(h?k#<#VL)GB zNwO?YNtScXgvyoV4-_Wim)_~_kkB3zX;~g3Ez8$MT9){xyxmX|eE+w`8RSvz-=-26 z0K1m@kMh?;#s$c$z{6$&XkE}jwjjG>6^*|7Rs-VI;(iNJ?eBkW(1DKpvP$Ys%V$+f z017bXnjpVgP&HsyG}0_6(K&WhgZp|7zF)?71?;H56l=I@z6zh3nt|02Pq?b?q*lhUVwV)j=mIt1s=9sP zhsLS=_Tj3!=6d$b;I4X z)M)F6RSSyGj>BJoe6={;C}5WUx&Ya15#j~ciMtcTSCi@U9MJ)4LLygWQ^&9A{*wHt+X>oXdWu-c7#t7}1}OzB3%=xLS>W-xaBMo7fOOA1-l4L+^& z|7Ji&Nmw~{>LPg!$wGTsK&JPy+RoA=p2mM_SQc@q%?}%X#pjJW4XZEL01RKQR1)sE zx*-^3x6$)Nb6Rtw0(BEvh*7mU&Z?W$U_MSSMxUws9E>?**q>bYWN7y!Fk z5Q94=cHp`SV_Z4j9o`kNu7lNR*y&E{OBfV43+h^RK>*t8e3N6iIwyd*-8)g0!>IcR*V$(Cr*w1I*TqbrZjS5C*#j0InAMUD8tON`dBTflBC@Py^=K0wQ{mZ;XZq z0_JKGNA<(ct01CkvYaH6qqz#$o=qSq`1z{;6Fk>$=Ur6h>+T50s+v%vx+kdGjft$+ zHxR@BN>qCK>kt0(595E;5&;ccGZ?#YC?v1CCK%UnjAK;|gz2LIbWam2kl)jdiNPAB zf=_ym-i8F|UZCbi?Pa)z4=}zs-Aij&7Cfl=EyFJ&LL*+se+w3B>m9_?dl_aC4x;Rb z%R413pfy$EdMgNKK>$tM0L0V4Vp>vIi2%diOv zn4I6jGP6Z|kLfW-cV?e0aDy)Um@|UTYH?kO_x${;uXb3bj+_%>1Lswpswq2Ux-)u{HqpVy6tv!8ipSYK)PD2kelI}gXp>wZ~A=Hy8_NE|kK-nRJs!MW+pz8X}V_^-=Rt`NYy*2;~N~$!r^^EFV?~T9MKr3p$)n9_3 z=3lyb^#XQtLr}BHf%t&%h3afitDc2xRA>7TU(F^j`D#@7Z}}<>1HSr7PHB0{DY-5W z^x3pZ9`BgXwJikpqx+D+9#d0V9%@R<*VUBb9Dj@Nc}f#8<=4%^6M%9RN+CuqZ`bx5 zU*})Klrgqa1xTxomSfSe1r7zZxNpr7 zHbgb|B5k;d&BKMDoyb1R_+F<3ZmJgKt>h`G{1?V>E*dj`xT#J13UeHNkHAgU0xwqnBCaC`&DDbR|GH&>bK7LZXAZd*sk5!a`OJF+zxEdCXog$C#H=v zvw-P-CAlp9)vLf$^(q7=jRT*9r>Y6Ustq0IlRS4Lp0Si)XaZ2P31|ANfBm|N;T!MS z^*{!{?$GP%WuKdLe%r33KI&F#h^p_tK66U<#jZuG`^+hwem*c;pQ-kG#Dw@w8nAJ4 z-vzT8nBo0an$e%!>q<&#nNET>s_<{Pd=~B|#1m7BJMe?GL$x8zmZ1LErNfXX#uyy`spF|C#H3*BimdT9;J=KY{ z2w#TZxKp#qD|))VQiqC$*YuRuh^zGT`5zP1^JrL{$o)^We0m~3a-u#5ZukF_&;BER z8kaku7qve0qSmkLMd6#|q+dawOhP5siJvq|;Kl5o=h<)>lu0JoG&g&(6 zfQmZ1-2{hf+o_0qdMC2k*CNR-o%lW@zBWB+^%(otdao4Yp2-XRMlFaETANIb-)b)o zTh5Y0QTfvE)FQH|g>F|e@q4#eC<%}r#g2{2{9HrWDnGmR1niG`4LtCA6j@(ofAaZ( z?`E*8@2EffIM7ZvPGs+^zqp0?tx3r#@4>&S#np9qDzN{}cLx7&b7fof@4n`iE>S`L zA8yeEzx~t4+BqiPw9^sIpda}<%>{rS@c0RWraNoZtqUu#yTy_mNOpgN5P-mpP-D3d?t4ZIbs2)QkBE%1p=k=HTb01;{2%uKT0n+ z6}bjOuLk&~`|F~mG^@7)NV6S@duGO|bbc27UaedN;L8>i)e8+$TPENycOn8;IZ;ca z^wvo*D?bY^Y9}(j^SiTUPTAr@?uxu@Yp@UKspB(EoXUd$R2}SI`536GcPUiSebodWl}(P2 zB15i&JSt!1AdmX0i36Kr>6_u0zm?%p`GVeT2<6T2sFAhdP{X4}*6^rNv%yKjqej;7 zs8O@wMZ=>;)`kQPj~ZFq6W{QtfpzexQL{a^PL%8sZFp4wf1gtq*CS_3P3=V8<3BASX@)$Ry?@qoK`h1{O`m@Vy@ zD~&@7Ry7-;-wCWr7stF)Onl>=(#<<}Xc>$hWK}wrIjM9otE@_QuKglk2d+#F)5<0d z(;77!LbKMn*7k^gS{u`fD&sBFqG7>f5^0sDbuVEWt#Qt z$}|YuL7WIlSx`qEs*7x=3BT8k-K)($e_oT;`LFY6FlWGSX>z2_9)^RxMlnjX0IWaMjrc@eiOD9E3Yj;-x%5}hcl-!v>zI6B&u+K|Vs4Q3h&H~MiylZL_#tb@Xh znhhTs3OBO0=l&&yiyGK1g`;6W;oe198VdJRXW2`6>s6|4A8?j^^dC~VV|p#?L$781 zx?amU?vt;=d*n9qY3rgh;9edUXJ{%jT;J%xo(dOmSU8S<2lZ4?0ry8f?x;>HFiwntUYe|Q-TRo#Vm_DlObbxsIXDR-9L$CbvucdH0fmTPXhHQa% z*@B}{BFl$&1>9weI4r!4tEPZ}x)E5_9PVC8CZL!t2zTFQuBrvpE?e++&>~*d0_ao= z(n!at6MPV>1=8GwV}hx$5!%~S+(b=syO=dd}O zwu>AvHi6+FvzjQs?F!F<*4gAv0SrI)bOH#Q)152@$-Bc<>RQ`;9b$7fVOC45GE+mf z&>d0gQcVojsQ=NBWJ9tem3|G%h)bUyC&TXSQLGHm(Ck2+-Z$u+Jxldx4b6@O)xqEN zF`4@y4bP5nQ3JFi#L^J$2un0bJ7Qv()^NW(I}P_6H5*Pf+;3!U*yPp*L=E>F{CIG` zQL~{*!~I6qh7vEiU(}RtxgQM!?)R=>(r~}0w8>t|MXyr5`T+O)=s)Cs$D~cxhqTH1 zb!ijAl~GLF&IHkiJjl78lUnuq%Y-97%vgOvl{bT%YH_0YMA;ee zzuYV8)ZV)iDAJ3UgUUVB-vwB8@9%hYhdUWIs1^%e@u3CqtGmGp!&WCFh^%XSEq7(~ z6Kbeyi+4Paqo;;C@ftzURp(oigK>%|v z&KZhUos(Guw<8IJhHmWoX&qnapw7#@oSI=BDLzv&Yhc&Q8ymin{V`>x25@|cs!0>* z2tCy8W`T~42h<=g9(w;0amT7*9MT@sgMS0LBPl1)Lw!Ey4$%U0X2S5@hiaI2Bvg`* zUVSL$H)aTUgz6du9x*WtY$#~H?}ma7nuCIlnhmuY3OcejG21ld_h0W(z1bS*q!2tG-OI zSS@&YW&m$P_SE8jryA7fU+aXlYw)s77Hw99TI^>j0$lG3RMxqoxJ7=Y*YyCD)q*gB zu_z0eoGp02oY%T)z_6_|>7~OHVo+EuP)#1|W&^^y%BufwHKN9^(lmGYA>P+nld85a_$DNkeG&hQ*HvN z)}0c&QOUK}o`7KLlA15Msf%V9%2|hQo94z6qDGQw{mMb)l3x-)Bt|Y6?pjj3H$*Wz-N%eTJf>o!<(S(jJ25ej$-M zL7INl#Q+#w#cb7!8$$8HuEeR9zCedWZlx<7{8j);`D=s@Ie|5VqQY(MW0(}5xiemD zpu{Xpc`?K=&-D=(u))%ia0J7pBQD?qQgf195Nm1@q*8}(CN(rQl54+eV(8`E)R5{W z`HUjgE%~HjKtA7fMjG<@6d*a*L=mrg-jdIcPDAo}Om$>^sE(}vhU&=a8(A6TMlMv5 zTM;TK$st--KPL_|sEVk7vzDT#gzvb-6+o?3*0)8!&vATjlzFH7CkXe4U0P)p=kD$EfbsXTo?h@n#GoNlbsal+xQfmOdZdb^_ z_-Da;wK%Pls&Bx3wje`@LV#&!)ae23)q;XVW7SB&K3jwsNEFqwO-;!?>$cx+mFuEL zV%^q7PPZEqKt12U{oD06Dcc#x;n{>h1gWUlozp`}bvNthWaqzylIk|N$@g{>yc(2L zml#RZRnXyri>HS-PdOGz{qMyOv2qXP+V`9`nfUXl3vB zF@Nq$FB<*5`;gckQ$1N9sweBep?b0qI&`^QA%+`{Z}?tewpKD+A+Ke&IuDdN83)$^ z@mkoP*H!iVf$CaToELHau&&GoP}kb!7fQ4YxhVjzqb1vCoEi+i+x$@JWOxl+6WJmJ zwL}}Gk`~ZiEjIN^wO&=VfccMg(!h4RtGlqkx*kBgS`e|D{Q#|pRp*Lyr?El^Fs~LX z?%^T91Lbwi5rr9RqX6=1v7v%KyapI=JMkV&Iyi4LMngAf!&Lvy;EmO@0ESN5#MWqw za!5Wb!!%C4m!_BD7~vDj9~)OHEL8zOm2hJ3Iej)H+k^d27`H)L6si?E$?W@8;H>)W z%;TC3%zEWy!!JHDI-zH|_RZrZ*ir5XHpt?oql~PfoX}FkMKx)nG7Pj(s+;WGyS_=o zVV}Y$=bDbBrNO5h_M`id!yXepSs%hD>%Spv}0*yMY+m$*i*IHOwi@2|NarF&f z>-boq`c6Or-l~J2v8$1&79@&|HT{75Y{8MwZLe$!gtuP1cnqoq0Izq#i#pF}wE*AMf;6Q3 zI9Chc-DY$Vj#vGtV7;yygl(qEXBN1F$9Dzr>orcdiGCZnultoKk<2{nIDmb%AkKOm zc?0U}lXJcA<1aHnUo8mPZN0GCi&K^CENvJqIG;^I(Zqdv?&}5T)nq?Uln%oqt0w4- zHbD+}VRJX?hh61;*lOEYce)EQN2lVsa z4CvY@4TClWo?9=h!c?O<0%bKQn{nxIyV^umT3fJd&V&uSUUAgzmHJ6EyymF1_Ub3k zhUHw+rXE-N;SZkmC*7_3y>&!MZ+b zMj@dj`obZ}B_t_Ju&VUpF5namC6!))E)_4+MyRj&U+UFt3FQm*kUx4=bKU4p;X zUL0Ieg=ykGm3xnZ-jfi8-}*JKcZmb6qy3#*G+~RsFMUp1U5`JMYu_TV#8&N(-iveW znarNe0#%ag@BZ1>0Cm-|7~fyqA{3d^dejmA)h$THtIp!TX|JgM8JW;F4}bSwd{F22 zRu^Jw`~AM^o4s7)pL&g84-$ggoWQ@i3FK!Sg~2($J*~v9*WFL?ZR>WX*2FME2PSDI zoPwEq%lYb0+=LJ1%AJ3zy`t`?aE6vh%Dr48YcSt^!}or!SBap$Nnuou^9?I+yywzi z%PI}v2u+aJXLq)5CZ}^tByGP@FW5f7Dv|W9AXwW4V;EwA^+i|MuVRn|<5`<|G0>v4 zo_b&#@@WWmA;v~1LqiJ<&Um@0NpqDy6?~Ywh7H_^M$o|3#+z*Dc7%Kyyy0w|-k4!s zEJddSExY1Kn%qC?qa!QPIAjg%s9Zbq;o>T_=fJ`wT34w(6jQe^u2KiSDZ4e`dr3p1 z7JBC@-Dnul&{uLXm<2yYicX0px09=`eS4x{kWkM2WWdQ2{6d&tFXUzdx4m!22oj64>a7dJK{Hs8{wzJ z!&`W1zD9`1Npx7tQM1Jv4~zJZtHp2h8sx?=p~(IHufBaje7y!WPshOx0KQsK!pNLB z#sdI))q={SdF0h)2k`3(LVYu=bpfls=2uaR zt?L2o>ot~}1n$)x4(jXPjVEVFEZKD)CC zwV5=4v+;sLakI(g8$wUU(5vIr9s+8}Ws@c&i!XBBp__a%hGdmr#h`EdMhV;rdFA_D z_s>;>QCa1N@2ZK0H+7*5hJNp|#SO#NHO9|fuWlg6Yx&$vo&g)Hs>G-#wYsVlCbqAT z>K?Tv3LR_jWN5~sG%*bjS6hbqLk3xp+lF=;N`voFbLRFiMXC=CNL`bu+Wd-^;tC6$Vnq6nQH?xG0& zz5kGn9@E^})(|h;zOK0g8@=pgeBN$E=@EZ=s%$h53pTpTXMDvt;95l`I3}#;gdlY8 z^$4BHpYiqG1vAYSFjHz@6(0(iti5g_9{u@OEr4VlA=U85{1rr2i~C)wFxG3pMzckf zppj#_%3r}_wIKH`9|pA^Q?;OG%{bc!pf(GQMXS6I(6+lGX1VjFYAQl3 zvowBRgXNar2KC+na9y=C8S_IX4V1G^UGMUas&@sns|6S6a;B`;X^|+r zY5}zC^M&uf&6%=pM50f;pTK$kZ!ck3^8g%cPQR8Ow%5s64&A;hH88?nJ6o+s=uZCwxf=(Tn zd|u~!LI1P~O)YpvsR;X+Xh^660S864k=(=(jTq&Iw;G6%i8n2>YbZvPtOZE4zEoYI zaDDsz!ccQ33K6Tvu}P>h7-P1lPD&W6K3+17WQBKurUtLmQfA>jReY`G-kdrcyuBo> zQ9HjStTYS=>nrJ^?I~S!vE|@)q)PvLbZvrYBe;CvfAk*`)??B|+e5l&`?_>d5Y`iV zi?~DxSi5oZ?AcN>tZ<)trh0XssxAi-LzR$0SXJO;L!q%d*3Z2lsk?X{TEeOpH^ww0 ztl5H>0aBSm3kYkrz~;N8}lNPrn(RSUwL$9Yshz3x6r zP>zrLA*^b#-DJ({lLPFl1@+@=-~mXVd-0TO>QtKvWhU#L$cNF^2$yNTN<<+l`{+`n z%;bWPc=)&lk=3j0+iBwRP3ZbK>moa3Qu+*KBfAP^0~?nwq&D9Sq?YPlI!g_y%_bL$ z7tHD%@O7>a1m{|F_o?k~l>=*Bi;!B~N^Ft|+cxYwQs~QoFnklUP*p=hNNp5jYy78W zUrcV_;4fT%v*29Azlbo9_2vn!sZ=tr_{%j`wGBMA1-CFh5^NWCGE65rJXJ%mx`9+lTF}VeX<|@hZOgi zwA1#GcG|u!?F7Z;EBa1=e4HmyJg8FKJS>8H6wzCstSN+?FV$rN#Z^6)?J7ytE!|Z? zlZa>-zJc*%s0Aj*E%m8RdVWB{1Y7DTavtIZ~`S}nEKyJywpLeR%>p9QN`lkFOXkeX0e?Z$C^<9UX?=5F^m3D3yU z_*!AI*@T)}+=1S6!(_7wmF|?vHSwh|S$$LxwVPbUK#hbGToYr8Z3wr0Ymd?m)%Yl~ z;;il2ziyue0hRG28LkBx5_e_eUNvBg@}sj6!(??|Jj!S_9$8&u-TM*O-jG*aFbS`D zIQ*KhfNT;j6j`r^mm0clA+};`+)!Cv3X6blu3}inlicuVgF0f9n@)yqL}4_%-vEs# zO2^ccF@Ub>Y&T@nAS|8-pWcR_=AXrJc7&hWPS>k68C?cpFZpTc2ekZ@h5HEf z1*P)G0SN%OT12g#bnEr5z;Cq(b=Y$6K(_U|h-08m31rmngtWFH3xk>3Xeom*BqA_V zwIE-4?Dhk@b)hJ7RGACRRC}GbiBKwNtrig8aRmpUTel^2aQx8$j;jSx<7J`1@!Sa~ z*D7kN)dCn-i!z$d;Gen=PnzG< zoO~O0Mbdx6g$=yOT#!V)?)DA6h=J_NYZ+oi0U>o#w$4*s)+qGi^KFR5S4HD5G?2Oy zjU`Lp1Z@_SvaGGf#9)ddSktQ*PO&IQIHo?J5enl()NqQ&a~g7LKt+klo@44WWb_de zuYzSrh0M;3w1tB-U*&+%Ze&m?Xxfc6)X*TT(`kr9f1PaQs9k7*;nz#X89DQ4Nh~xQ-0~)gF57($AqW0hw#+)b>S(>!L1udnJ09H;ymAn zg)>2i#e+jqk@9J1r*`5YxGd%}#s_Mh5RjC!JN;46+WH3pupnCS*{@9gyYXlcId|gi zqCC2KNkQjq5qbD%!G8V#+CU}0wLZ^m5d}t2Wc~cBJOQB27I>yLYOLSDG07}g&x`1;R1kX3*y$*Us2zx;J1#P@0#+$0kQSggGJj*30|pvqD-1n z7_$Jcvjs;&dh}AAAi%Y51yu`ebaddAzOWO22GFe*O?CrVo%;~tRbK&sbMC|Wq{3)( zMg}sFt>0)lI*iM^U2NG|CJ*VOUWH-eiOR>AM|j}7D|hFnL4BMrxn zNIDvn9WilWQ*3-QNIUY2hG{Mw3A@bm?ahW(-pp6;$l7qotqpX%*$~E?4Nkn-fW(^( zL%i7l!M5tR*N{pnhkqcX@}vKdT^&2Cs7xeo=a^*FFPjKC_D zWw=wdJb`(2j{#q*WWeYw_R2rxxs z$nyHG)C_dh!Ab#EV)n}SI)IxkIBJ@SID)}?>sDK_ae{!$Y7*<@jswtHSF_<}K=iZ^ zIBk1UIZur~ihS~~nix(U5&ni*<*OVJV|g>IIzq-^R=S`@`53-aKA2TDIYONbzz(vl ze3gc6jhYRc8n!jEHUw(e*2vm$reRwnYlD-9ZH=rAC>pjkvNk+u*w)C}p7e%o4XlH0 zjhgLIZrE0D{h$B(-~apX|Kgwj_}34Az>DM++oEB>ww`J~m2ExMe)byOmn+IYeObc< zmXH2JwslPIXM4!~Y+slAAtQxK>1a5tR2E+Eq{fy6mOLzqz%5dGyz&r0%%nE>?ev%w>7uu!c-J4&6Xys1m_*Iu3 z%qsVR)lW}t43yAhpPCpd;cK3j=l=dr;Tc)`1zblZZD1w1%4HU-V|E*{IoY$*m2L8frHBaf6zMnvJXtL>g)~ zvNo(}sM)|esM)C5p7(~D_0~qsqBwc$2%}*@&7LAQm6|<8Z1!3pJeNWLIA%;oQzg{x zqyLba9aFK{9x685*Hvu5HL|NX5PSYxBi-_-fV5p+Ae9*af-3WHB9d-+LI(zB3l30l z$|WeNF*-n?&h-*}(clRT^iF66CTEqAPyo>S)BS8OM<7q{mB_Ynpc;smE%2Ub!e&d; zbOw>U8FMS}E?aOas)a`?$ph}P1!sdrQ`mMs{7rWP)GD8&wh0*7f=F(1b2Abb>IqI} zi>R|w7az3LPUwi#UQjmewGh%iyf`?j3q|+*LaWJ*P&S?RX(1HQR;PWvOd{3cZ#wO# z2;-}iO=o)1_^BqX6w0RabB>5=k1YbBwbv<1e|Rr|I`_I#>~-QGjB`hwx_Pw_NSn^Y zoH4@TbY9|f#~Gsm7Kisu9S_5(z8syw5{1c?cQl?v1F799V~sSA6Goi}tFGK!#ZZd? zwJ9+**dpM*vP_s+zLO&?(~znwzvnE|po;HN{cDb>4Xci@Oc%JH z24qgq47D2emxtxehDQzi8(G8t2F-B{I%+m-ae8N<(y+h&$CdrFc1E(0I(F2nrR+x$ zF0`>+?@jXI&prneQ?*BOP(IS?%E`#@QexpET(UBuU+6V(is7?Mua;`@OSOPYE>bqE z-qo+%f-}`|7VWRy;&hwj4FAT*LCLUL44TXpOGZdp8hICkX0r>`?c&a)7fg}p_TlgT z!Pgnd%W($qAJu|y2J-P5t|xaA*-w)Z{#k#Q$m~<|yMNJMf&CHYZBO!Fz1NxY^uu}h zn_H|~Q|$TgzBdT>Z+vpTxZxoyoX%G2q8T4erR6tYD$R)KLf3!fYlVDNNAToc!b>&F z5B(pXF7T%Qa6-iQ5-@W$>7SP8RS(jeBVB_kfJcd0WAbyKO45t-U*mZ+u%e`L<(dXh z5n8G|qna2#g;HegWROH|YIB1Xh4k8uAMv+34QDUZ(QwV*m8XBoHGl69_B_JyV zN>2@k9-`JBoBt=h^pV4GgP|kAjD|@^C~N^Jn?*k9oG2HBnwu23nzP=2`13b6`KOvx zFQK4|HycD%o;b8N9Qw32o*1>aJ1^l*!+<9~^;;@WeCoHHOEN2WWB0g#;u4r5Vk> z?=zPeU|w{6ea@fN6=v@A$f|0fUl>kiMn+m%dbpbsJI?**oiEoyU)0I|6xT#`cAoSS1Igw)K!0s}4M1eQ26PI}_IE9U9*A+SO3pa` z2Jal0bhJkWSdS5rzxJe_-JxK$M$lF>9#vj_K((!E%;4KpBS@_gR0QX%1~`wSV6xnf zMIWqXn$T0rMm(VKt;^?ICL?U3VYv`;! zhlMJ~fR#VIhQ>yQE(!k?7^Gg|lid21=5qqBt6^Q$25VEfSIx49T=X1Hm7xu~DETX< zC83qdT33>Ca7dkepnv=;=&WHE`T>&7E?RKd&9$X}FPb+EuP%i$hG%gNu*g>?+UX&N zShZXTB+}qnzqeq(a7vv>OVAdTp9!X>YRqqjQ}H(JZzxW74X8@eY|vDaW&@@pq#4$z zbD{?u@4rrG4YCf9W-^YBm}wE%udoOG=@0|914&$bO5|5wve3}iE?FoaG%WOK+>%-7 z)3{|#O&iOoA({e8H`Sy_VZ;BVW0qw0ve`(`yIiT#y@>h&#me@Y8$p)zM`JHOU^dtt$P0qeD8Uwz^QSA6!L>(o6FIcYX?(Em+JSOn1qwdI4 z4R={)Q=qrX`cs)%?MB##4$1jhB+B6ZTsSA*gjVUmNDG@z|Ah@N!d+S<4JiK1c3@Qf$1mZug;W&vhKMqu2BU=eq!{!nRt*vO?qRm)_QB||dG^GvEu>4bljY6Ogs;bLyMJZtT zD?$v@Nbj>FpuFE%U;?!z`FVPXq1uH#?U_-w!CKT$%GD^Cy5Sm#F7BRjhZKy~uDEty z73|uOEfgJv1aM$Z0}a}Ctg3}-6r9emZFK>=;#UmZNZ#oSWD#QM7J{Dn=ndS+3>Up+ zhG#sj%|frTV6j_g&U6jYFrQZbRkK*VC#EJQZ-!}XhAJ^E#HI}3s&0MH3`1%a?dE>f z3GH(ENRV1x(K+=UEOs0Nv`llhhI21jY)EC7ES3)%7W=eZ$t?D1xw59tpJf!~KG6B| zeSFJek6ErP56hM1OO`8-zMuQ^|MNX1R#o-fO7!#o9gweb_lWbA%+(~~&tij+84Vz> zLg~v%3Pxh5%*mXKBu^V z_b~!?yv?`zEka$`@=*cqdQ`Xln$yRG)W1gwH0kv#F+&e*rB0J)8g<~9GIaU#wxQOf0~Hwif`hYSR^Y zfEQ_#;_waR*mCBDUYEF2WkWf5uQI8kRsj+_UW)xdE;Her{Yp(@4LGz8p$IY53*BF# zcm)eK*b9T}lG5r;QThED(A9;*hI3&V?r#}RD50(6k8jw@%U>b5U`V%oW2qE8RS|dE z`xd!a#kQO(4xVaYmfZvsdS&Jv*~IaCUJ}z#)GmoBA2h`D>9vxH>ATlTZc0-5_{X}+ zO-b*AS~hyja%Fi~t}I`&T%jb51H`(Cm9kxPQdEdo;!&HJQgbc@*Ul9|rz12*bsF07&~Hr0rz5^0YLShh7v zk9^D3V5Svsv%?x`;NI_ zqhm;H7|N5aW}{;Wjvl%k2&e(XG>L3TheYp`vl`SLsp&PW#^e_(WD-fy8pXEkEIimPIoP}PW? zzm{-8XEox+?s%d(fV+*NEHjM)&+XT7I&Xg++G=OGY(3or%{AhJ;m`0Jnc@THwk|J| z@(8e8BS_QsDp)|dMx3vre3Xw0T-SBUn@V5j3ao2{QMLRVp!ygQTaHD+06?yzR&2rB zs}>1W4dEWlizZ3|#$k_&fnFOwlBgQ8(rZ>GQFR!Zi5>?ciK-#z%ekmafU1teP}o4z zx6jrYj8Pk_Qe4IMx#1X9{hBx}_>}<}%x96uXPr3JRY{NQ_-HIRw80ua5`{%l)U(=> z*=K?YhGk(QC~3fY_utn-G0Fgp6kj3qW%xxeul#snd-P^t#tX<1aylOH8m`;&S8n+0 zB{DVIg3lVBafwnoJlj^=_0pVs)h=g<#=TqQU=75mYc6Ve4Yz)1=<_2qsA9Ht=IUgr z&bD=k6$wnktpjDYkvlaEEeWWOnd*;4Ds>EbNkBuLy(FM~&=Am9HaE-D=4Q(sQ=<-i zCZO-1wgmK;sm<~*wOKxIYV)wIrZM$9&}RZVo&*F`E#xvng4}Z2-rPUHFQVJSDFIz8_ z1!ijmKL+L1i;?Y|#=nK$*bl{(0>ZAv3(Y3l290c=~Bm@>7m3J_3@ zKz-gGB)0Z}YmGSTE@M7(uv^zC`N2L736N{V^~Bb|$6wABg6d-g1QZvj@kFY8sz$85 zL}va6kn1q!bHe`s@-ZaHXh?#3ktqaJhp{e;PAl+Rhg}!piFMvoL%73xz1YZ`jv-P1 zIOACcX?R|V+*`FlZTJQmRegtozZ$>+E7ELO{YpYOvWSyZt3eza|8Xgbys55*O=|LA zvI7G)`n=Rrx=0DaOvj_=eIs$DB5gW`tlWsR zOe-(ihCv!qZ1o$^;c|7PpUUocJ(uEF4C-iVD#{@Y-AHp66KQ}3Gu8g6f_xjI-Mmq& z*!buDTIYUR6&suSI``A6*x;#S$dTNtL0y?!HJp3NQ$wo0B~(6?HF=^BC3`b>%5BElbX_$xR6^*3m(=*cngt`TJ8^7oQC)lt^ETM}2B z(N$v-83NDssv-Q;7nVX?H3ALO>4v{X;HS{%(SdedqZ@xMod)MM;llLmoNSJSr>0XfgEvTxls#9(&+rX_0kNg8LJaKK?>|y~s_TvN z>XNtGim5CL4Ao#e)MM!@R6$j3B}6$^v8%76&hnaHO$A(a47q=!m~H$kc$k41?N}O8 zBoz~~U9}#wAaZck@xaLIDT}Oo|MeQpbqoyL;7i5P!%lTtLl@ZTxIq|s)2aNfVOZ(u zWvInHl(O7K#p!sstM^~AaEe`gojIu=p)@^*7@Sd0Q6^FKcF<$5zSi*TB{>Zx{gRyW zK|@YoStKn_i=-_#N|~EToWjR7$XV6*;cZs+m_yR?a7bD{?~nvJJ>7solcqUqnx z3M_Xk6IrYon1OPghmcn>$_sX@bqUf}{nHBQHeZlXfcp5$ga_mvBcQ2T##2gBX~gZi z_nA6qs?N@JRh64`<^Z}z?Ce9%@~awgUy2ze_b`rn=mzw8Tj1Qj_g1__fZ#gnhOJqf z^#i~)g13&o3;_Jrh|5+;fkH>^>QG^l<`p{>&`}f-OcJ3a7c_)7(t@di+2b%epy>Z=bGNa1uOTQ972gbO z>#z$#%q7*-VWEK5F1+BKW5|uHkL2|V5@}#Xf37l=f;ky>p_-&=qk`QUc+vW=4dX>x z)6fgOeajn_b*8ptsN~Q$qat~#A(v&QNnijLt#Nu}`M`M5)=Q~c6IEW+;4H)*%9>NX z-e*mo7QICVXC%9Ar#Z7V!!z8TQ)gHqMy0oVSl9X>!?RFom?dQm+@gvif3M*gb){2w zX@EwRX)$$%VMi1J48$rwtb&m$8Xu}F)!9B&SE}p2t}8VJ%&gV0>=gxFU->k}2d^n8 zpVmH2&ktDc?$h-6rI}CD_dy-;jNdqr6k)Ls^o-zl={IhVCb;*fc%G}@dj!Xn({q1F zXG<+y%c1|6W)ypaHsViy)iN=#1^Z`@Sg}!W3CmwR;>_O=QSI8x>b zsZK06^DX3j3SoV(CisaS3>h<}iX|bHZ^ms@>)OghsDx}$S#G-$Sy)O!sFebThrfcu zX0THcp`t{q^uPM88V_P; z$%bF$p1j>LM`}lHaxJ9DPa1l$50G-qo+8?Do{W6kqt=^C@LHzkk}2&0}Uy>%;76{k+-JIb_0kZTrqwlG&4-#Da08 zz;4FFpJHVqYJ}4k1emAV;+)I&dmDskeSTzt#p>~b*=fHA3KWkK523YQ1QR6Ii2W|E zFqvuq#O7~9JL)90X%Y07<)Pm-zp+SKCm$6g)O=9X zNhwEw&ptmBp)bH%uL1nIPfbEXH6r@H+iL&`)rgCVo#wd$w{`WAVeK6z0CA02ZqmJy ze*+S#5ogWb=h=mk>g~0w@Mpo|z;q3nXHUU&4LMU$Jxhy9NNnb-7*pnrKh|G~*5JJ; zR{dWecBNitmLj!-IU`?@55UkZyz=BM3m#I0-G8Zbb6$yr0bzvQfZ&~VnLLzGQE z2ljM`T2dV;pLCq{{nM7S9SPyv=M3{8SeYnOn=C z8MeSrZSmw{FfdwAXf7iIVrz&dRjW>27^&VWmYB#O&qlpX$y^Q`0M`SvbX3lm&~a}o zV7e{G2EHAbrc0wJ(f11t;7HQV9$0UNa0fKG@r<&|t;@eMcr?hPax)#6dqNuO9SJem zJK)y%X1I4G#DLFs9p4P){9}VO|Jd-$KZbLTE6+bRWb%&V_@sABv z{9}U<|JcyOJ`QfzObh)$?Z<`y{^fSJzocs+ZC}zgK4|FL(?}`PwWpENk}4}#bN-0i zZ+Ic~wx93ATmE*;M`?ZdD6OCOQHln1w5h2eWCQAqfMcqxl(V8X`X>9SIl%_jjq?zl zf9yMb{8hc{5&=g%li4&31>DB3WzfPl+wh{2$()Tp-}dpHI+HmYf8y&0#$n^Zv~fIg zf$Eo+x9fp4ofwu!PyRqO^{QAXV`@ngAU8%(PReynnG>*X97Wo>kedSW)Q^Iqy^(;G z$ws{ckQV7R2*5=%r?`t2YW@wNa*UvQPWvfxJ^=L8Nu2H?0;o2LB86IX9e}YqSJ0dB z;hWPRz^! zeCwo$VpACcr27iW-wS24MN`z5LDI%S(W>K#lY*q_WzSg<4}qlVtQg}esG#9kYy`_+ z?o2?<(@wY;11r<>wbSL2I*~I3OEQ(k`iDY6~%P6w_aKPm* zK5{zQV4{yd(FU%A07V-VikX(71P1k3@%+a{DE zQ#3GejG%tMYTK4E4|UtVW)sZQYriDBYb%`K#deGcr^Za+p>cYn+}UhRtP@PsQBek4 zw8q#ddam+>f{=O%cy+0gYC4B3sPS2wckY1BF@hOY85gQDq-o>jIkmx2MXI-~4u z_D6-3rOnAU-RT2}b+XOmsPH}noPAjfGbvb>A>@j)_-uO$_NG&;&CL~&G{j=pvS6DA zQlYpqI}}4HI$VohS@@d5gAvI>OvSJXdaV>Mm+|8TpnIVE3$k|bY%Iuj}3~P^cn0FoUs0K8TIKI_BTXZ^ghPbA@RZbpWDLCy`eljJkG>RE*!^KeU+oKQ_E zsFUwYxIkMoQb2a4%?kp(V+8(iC>)z*H%G8qPekE^t?WgKD?F z!vqx82$*@l_X!A(5&O4=0?Xm3GHn8bZFcvG>pKuUMj!;N#f15qgTQ*tcbqU2fdh2M zQ4|R5%a}JT>7z!VDmuR71O)Q}>FYY>Nz&NR6Uuhf+XaC$b`P>piA>5&+$9jOv9TsxBXHDEiE z_Dv{fGsGR?Y~5h)2#+?LI}j3NRqy91^^TDD3 z&p$&ghre`GfV)Mg*+^z*V7ngGeUqKzoKXeo{XE7zd(qkp&}+m6DZzB?V7tycm5u%U z0PPyV)@Z-$4YH3Bc;-?xI$X8Pcfom$h;)5>oq_o=f{yAFEd?Kc`8Pm$jX0xOSus{! z@8rHSqX)}%6n-mZGt4*&-mn+!7sS?4xNR2lJD{`YCSk(bya7CM}Hoz1~Ubv}V%S9UPtF8+J zFS2OiN#utQIn_%s_iQxuqMal0oh$`pS1(kdoLd@VQ3tHVv7pulS@1>;DI~rPvqFYg z4!;nmG0+NGkFpJ0Co;Oe{S*zRVBEz?88U^Vsr(UAP*7d!bINVlbcAweaGLUGD5$R6 zIpsFkqCYL4FPzf=WJU72n@9jZ`WJslq>!j*>2^RD|?Y z@vrMMon#wqa%Nlzbk_*-i@hBq;66t1JmA!aTQFzbz;=zeoQeii;M~5KFCMN^z6S77 zJ9hP&$*c;X_xYK)tb_U*aapAzu*|0Fb-wXZ)h;(M-&V$H&)*Bo>x#RZPD;f`HDXl* z!BRO$Be44^GpOSz^2KzV4`-O?9hBFI%PwY_`8Q&hehdi}?6711_{$y4puC1q@iOU+ z2IVyb=jeRvzJcsI3~hnFZ!9?L7!noDQkYPXKJuw!NRo^x^2~;9YuLn(e?`{Tz>PPo zSsh2T!sxQ#rL5$vdXdqVov?H`tF4PE6upjm~>kP0Py?xmd_q@0$LwVK$J(_ahmh zUJKWK>l?KiICT$GOr6u0w0wz|z(!dx|ir}p^vkhvTft`XOhXeF1-Rj)I9`aJ`OxoX6M z`(``4z`3qC5@x+!J!o!g6v3#LZ35;Rak^j24C^=w7P}Wpt}s^}g{N1qr5Vh141u}w zYB*)C8nRtnU^}~3+ONKOIjNz5akMhys<$Ybh~r=JD~4yJ zd#48mC)L@%6;;=UVRhZI!4_UT%Abnj3B#@3Z>b`GYQTlZYMEoznKPPQ@Zp4EQz3`Q zvD(a)x%jGunSGR~g z6h1%xGIs;r$KMENA2M-W1gzB}>;vKofb6#V za0Y147GO_TEw@O4>^chSKNZH*2zvAS96cznYjjgntGs6p$ZN!T7b(q>sg4m3MXA0s z4aC=o>usV05Uf>0P+;h9Xe=uwgcn`7S>~32{`k!yO;`}^$g%3MGrouIzCz?!$B;X% zOu}yp;dEH*7!q#I@+jx2T(DNXQBX1+XQtp?uvS~qnsY0Nu7Mp|6RRWx3qA^K)s+-x zo;qWGE(UjiaOC$3)@o~^Qig=J>IK7qB7c`b8GGx6U{}Zq>6JA5>tfR$qB@2oepMF( z=w(qQijZ_FN(07_@cR&8ElL>-&e&|8%B>ro@n$h?w=-~yT~kH;QmIqc5MiU@qA@lX^^Jg^o6uoq*8T?GMx?*YtvYn1j(3JtaW>3 z5)>c2X03esFbPVm_4&bhOMO<4Uz(W&eIL|u)%cAACPCZ7Bxw7RNe~;qKp6(-C@llF zN~wRsKH4DU$xG6Q#CzNU6<4*hUnyZK>QH4A@0T<8yPxZkP_slQfBVGxg+>7Kx_y(G z;4eL5pSk?}%IAkvQm-%YYmcD(qT-}B?|8&id;K=*ZaJQUhkAteV^{nBek7NP8T}vp z3|Cs&3La|TOYd5rxcie|9ZojqRsZaxa0%-3s(L`IQ0gY4`N)G;v`?0yDvYS~BK?`LT!K#GTh8 zJk;S;YvYUZ21BtM{etrNF0-fdD-@egYi)n#>wZ5Au`2kQff_rZ+NW0>n4uc=)Vhyd zrcw=TQ8AYDuSltdSc<$T&oyA<1tpZ(obCR`uikY^qko$&c-ZLr7ynL2p=>g>HUGVa zY?Lbavd9co<|Pd7=c!Z);eu&XT0xx+>39b%1{u)3@~TX?;p}(~++q`>at)I2Wwz5i zc%gs++A*(6n{9hhVOFwxy3O{qB@P;DYdwoxKtp{VQ^v=S#Ng~DD-CV;Dwn$PLBmR) zHbR+|K5c}y)F>5S_+caTtf>At4bP>1AKvoQW4=P$!&hkgg0B$EdOrn6x!kWiBsJwy z<*dl1>h;bD^i#HbWFFR~*sBN2)jEPMslJ06C^rihDiDU7qRO92LO`U|bCf_UoRH9T?Y9NY?b0L7=#Lk+6q0&S-wpgXs1fcj)-=SM*F- z1i7O=w+UBuI|dQ;$=BeI9uXd^=}16uyHdA_Dt@#s&EmNtlu`mt2E*eHjd>i5E1rjC{p67Jc~b@JxEg)s9I z6HKsOLF7UyYqimD!%i2ipUfdp)$yAViH$^A&XUR~OkV^!st`joRN2;9IeeCWeL$|Q# znx$L~-e9ggRQ!Yu(I{~}!d&f2=#i8eQ@aw=Br8<_cIy;LR;a2@y=g?`5{6)|3ROjt z)!^(URSiM>lB)7SLseh72W?OHpe^-M@kyep1~sGs-Uqb=^_Yp!_An9JK5rs)X0!iv zUf_DDU{fY|PA=V+3+6u(4rL=Lpgc zV?_8{7Ee3~s*bv|?$bjK_%?5sn^>b~f&nSj2!O4pn;`iZ!Q1ARxg0>QgU%wLRb=Jh zr2e%k!&7lmJM`P66AezP5fq<}7*(lISp=N4S6_gi>V=|4qOW-X!Zl)9M(w!bGK1i{ z$nJNF13&)q^#H(aS@Lq0W)uY1QCKYYnp^Nwy+QW#-q)3qOVtR}EP6FI_Vgtr6dUER zio7InKK=^ZiZ^KwDnfvB4Ot%YvCe5hbRBly)l07=t7FJL#306HSN2fJuTb$=Wc&=z zFrj2iPhaDlMH-;7>m+5%r#h3W%kwN2w#7yj+Vr-L@b${f%^;1+<*DwL;aj9Iib@B= zG%mhWU{rcy25QkdU+`W-H3~JR2}gr9+Nq{RrO;EuHO;&f#h(UjyiXJy7DB3bx0MYP z$w&jUBT8Y0X3_9iZQ=X9RvfQkR=f<9q;ou}D1?!}fX)RG4;s?>$^&V8dLVhLJBOpz96wA%lOKH_-qO!w z9!T5618Mub2NLv?2RBx@S0v;&D#B6&znm3s{YmK~)tcHoV87gVRD;&z%!Q)mM4uA+ zsoo>oY0J-f@Oc~sTwIpEMh&bUBcfVCsw^|D1*$cI&6z&;18i#qdC$H>2GkxS=!)7! zmnri(5L_cJKNups-`;*go#h9K0VRxQk$% z?JF4^RU<+zq1@vihlK_bS*f()xt|P1U->*i(f~b$%qc~QV?F=^T!a1 z;0JrCHa4$wE@?ZkV>98|*D?(n>0+;F1aVa&o#zsOm+&@4~a{?S2ix zw0=Uk4F*Fvb=HAzI7p$fNmZ45|9bUl6|CB*vbu#nv{q@#$UYNN8r zF22Xm>_v^KP3MssQ^TdQ#?;2ld#j8sz9g@q|6h_3Cap%Vw>SiTgH)Vey2ej7Z#$&%v&;#AJKy|M<^I(u$BM@qva#Xu*_FGRSL3NGb zg<+x+MILnw2{$C)w)Jc$d{skKD!0f@M}4Y>T#;fc39Ak}UvGWIP1L83A$JPZrAV;s z?w1fOPqd7w&Z^q|qb;FD2!vHvp-pU^RkdZPYSBgZ(O?fvdfm4!e#LMvngL|S3XW?q z$RY^?tla8v7kSk!i(+rzurFv*k-Ig#yG6tA_*YP?1bA6I%(to&;+gzZ!5$6r(Dy#j z>TkEG=GrS)GXp(3sLEDD`W%E6M)?`twYPdd2jJ_Gx zh0?YB6`S*hb!4uOq+bmlry&XJ4)NRZS6=elumULgEgv-e_LX(j_O!0rb4!&O&pb}L zNzT3xZ<+2f>#A)HJJap+)>Y@rH(G(QriYIrVNQ}ZHCLH$jXWERZ7$LjIuA5#Wx4^- ztL@B!253t+V7FrgYTUPidjjp_DB3fxQq-6!2FR`vY|8Z#QUJToiD~@jY6AGJMyycc zHZ2LpYXmH&FPsGLHG*dRzF7&lw+LP_S`H1`+fiMwed7{fZ)Z*+%J3WcdXSIM2smP& zWCZH<3ZgUFmyD8)&CFX~!#SG{1^24JCi<$E`N_=aGZ9@bgZ@f^_$)l!3k z)Ea70)~W=i&Y~JvOmnq{TeVfMK^68{1@kqeVv9CWw4y3i@3ms)45)5i5m5B{8&VyR z2Z%D%@kp3#ow*`^%ImjH_7O^I5IX%8L#>yTG+Y5nO3DWfC4FT)wLOie_S{b;mIbMO z>iyG}fgZD&+8#Dj+ZSx6g2}Nh_?@fd@&Gk%xk~3l(MJFSRi_3D56bp_v%H`>VU}Oj z2$o&H*$;55%>-@cV`?dHzuC|3{BqITKjW}xr(j)^AO(Nb5d6j`AqIfq12*e1GX$go zNy~GKy?cW|+Wj=$T!a_~(s!aEMM*>gL@l%lEe@xx2@xw(0RzN`){otK{=J5Xya!Kf zKnxP8N6E#yL2mU5Py5iK+*NPssnS8TT#X?IED<8VIEK6=x8V^`l3PA#$n7gPtL^D# zwdW2jH92_P21EWTvEBFKE!#cjX0<)sthO(>S%pEzenRkYKi`m@I_G?=nn>It&6Mk3 z&EKKUu~5Uvr_ZS*7$1lNcYd7gGP0Oz*icmr(tIB2dBT!Lwa zRU=N^VEXX(8UUbu3_&x8s`&P>g5PS$!d^}0fxx*A!x*l=ypdrYL!yRZ=1Ksk)ev6L z>TIhHTbP-WyXvqD#%Mj;hr4RXnfK8A%?4_B>OLpsSLLJL;aZ0EqR&c~-%Z4`UyxD_0fr~s(ZCGqYeJ-%)Eb&a`cbZGF_Q*oVUVNQ z)BGziR9y*Ic}1^I-vBK{ql#QRq;&jZ$|mZrD_t$B8T^8Vjv;ipC|xYtwhYCn&a*sc zCc6p7w2!x{GKQ2YbeL{z&RhpY)eu!hEPf>@s$Q>kb}m6t4IlEA2vRx@dPz#dGN2@- ze9(~6rze$BPmb)}lPVVhs0G5~{`#Qf=R`{1hqt8km?hQru%y~PZ%MV2o4KAyG_LIb z?-w?XQxSlk6@_U1qmI0Uno{rsP+q-ELZ!5&W`O({LFqV# z^#cNy#R29|!9Lm$Q5L`IZ`^m;>dz5SSB;=^C#Nx?t9rInDU9fyBcQH2qj=bi5t&wk z_I?dy2QxqG0sAo`y4m6(Xmsqj`mX@(IxW@KIF!_8yAs|cvpSBtf3y0*qUz5O3^jRe zr71E^24QhC$V3(?FvGAA-qcOT{D?OYi%#-c2u#&xa-@Bw&O5YKLjsaK1(uL&u2W<% zc0^&*a10H?TncH(#oeFB7*>TSj{Fs0YrsY6r%p8s-HS3Irn=PhN22n<*ut^RTP9%4v#!1DerL7Dvur|-XFSjL^Ef2<lIt&gNCg>y{j@?eR@}|xjtYt zE_k+N4d`!|3b1`2-_q4%=2hFnylVTrc@^6cD0$v^=OX0}t6c1aL3{OMz?{3^-~;T{ zIOV+X6CZyiT~&t)9Go%*1K!6`=*nn?W&U2!T}@2T&grvbfV)P7z}f z7|u4I2S9JXp|5Y5)PnOG!K+1YqXo?CTp{UDRte}RlB@aGf%ndBW*IsN2m>(l}tf`w+eklUwH3BQ>KB)%Cj}aj=vy_ckI%=Ke z*MW77;A`{og5={UkX#!`id|EXT$dKrL*qlX$ghFqx@sPRR8BYnZ(9ROt%}SQfUcKx zu5>?uXn3}8O+$^xkHs)7vS`J58E#R<7eeTTRFz!`(GRI|Wd>Yi!4ki4GHA#}9iI~B zfn9PL@z9?TUP8gc1tKF(DizXj~ zGP2BeDKZ63Se6X{3f5}Sl)u*Ci#_rwe>VK0>wkLi24G}q^N|>2k*wE0Ugrv4I-Vf= zc>2f9w{j*#V9nywu<~O_4jG8k&WQpRZ02F=#tNm<`%qWmflBj#cr&Yp%+t z567y+Ri7W6*R-(oIXFX+0n;_&c9V|g zd{jXC7(wMa6F4l-{G^AdYDByxv`=jST_f(&a1+pF+w9=EdVug`?dJ+Ow+IY&hoj18 z4w~yxVei#vJppr#K$L8jSxqZ$B9{uV>lF;Yi*}WO@)`jd&1CB@K8hLbuNt_n>y?7J ze5HVL9R-Q##Y;hQy;~^%=;<@Kt`Ue|_OC|R16T->ss#fD%g1k~T#vrHmYCCXWg!?N z=WT`{s`|||8cj+9%hQCZU4fvpeQ*v#{7p^|?SLDnM`p|dNkW%H!u7pweTOv6bPKpjHph>QQnO8WBos?FsF=0cdja6A!H9HlCVI#{>qgq?w%Bb^cr&3WMVR#;z&78 zonsB-AW|Vk<6mqTM}gbas0vQ2uxORTMM*Q9R?$dVQKh14kavyByYa6e+lG0yMwP+b zF$V#=TVl012Zy)XEu}>Y+)`N|KtdjyBX)|Oyftt;$YK?9jVl+G#0GD$*cn%*n7|P6 z5R26rJH%pblC!&(VcSa<8`cvgi{*oc#Xg<0GK+n8&Psh*yV-g?*8azYrqt~F@Rr0L zbI#fy&RP4HoU`uBm4@@vy6tQlEy=i5&WhBmW{+H1t^G@*Nd{TKl*(9+xz zD}Y}k&Znj7%kuACg??o^4Ak4P-^97Gk`%BA(|50Ww0!m5cpeUaRc(P@wcA~K<1$Hy z+-k(4RSqS&)riw|(rX5})%CiD^+!jC!GDc7lMZYnNMh(+w6D_QoX-RF*9f4!uVskz zt%jggk*5?%0U1X6_Kd4Scikd=JAO07hojGlRX|^diG#$W&&VYaAhcu1-OC%x(pU)z zqe@B27aZ7Nk2-wy3oJ6e5L&&1xWXe}Dl(H0T3vejni0G9Mfz4(Qf!nJ30u9cn@Uy{ zhhk_4zfx1hBE;Y>YBh^#F^CH>{9=^B+TE)p%FGYGpZuS0}R~#Fk zy9Q_nDjtH)+QOeQ-~?{dCcj9^8n~5ob{zAP&W0gDNoV<>p|ejftxRX1URqmf+}hP( z;c=@NZUC+CgIW@M%u8#3cxmll@X~sS-{Fpp#ms`sv={c0pBT?2x@ILmQD$QG>=CZ% zQ!Rk`7(seqpK85I1p8_{GFrL_iB&fadQAF`CrGSDps>{YO9AUTSAgU=S(&7P>KcJa zLQhFSc#XL64$_`EXs;3X+r+(##&?mQe;Z=&0B&2JvS zyxnT#PRsgO9flZ>(W~sBCErXj+o|$z18(I_pw{F@()(E!M3|4Rqm}S3$uk;i|f-Ha5$KzaqtJ07ouRlaw`c)vJt+ z@q|Ph#9>dPJMYD>7{-M&tn#f)sSV_Kp}A;6uFTQuB0=gz=t!mSDw7;mr4mtOPYvfb zXU+vdHK2>s`;0jo(j7_b!fE~PmtUzXY3&{_1{u5^DNZnaBd1<;{lQ}O&YNpf7{HY_ zu?BC88|>y%-(ax{$C*G!ErFq?=H`n!frN9#PaCkkq^;p|P|{XDXlU!xA}iC@r$yG5 zd$>kNh4)&5k5jex3PARKe9K^ud1UPmkF5Pm9$5&$->4Epa*2O8W8*MbGjX}gi&@#? zrB)iex#l(^SgRROoWsh)o{J#4I$N;gF}~#G3=lxB_8F+FmURMVvZ2yfIRfa`c|cFB z*U$vHHG=G3FX07nYs4Kn))_k;BOXcFKDi7#wcof&_N1(e)d;i$dd*irTO-JL_Y4@! z)`-hCsiOt5?F!DABkWWoNa*%;&A_)toK)H?uRhRQ*Q@4E3m;yfTq7>z)!VlPkbI1Y z9{appfpQ(RT-JPPBde;zLU*M7^~kV}AtZCcMf&5f*w_cnHKeRZ4yLNZ*c|F_F^mW- z1ckQA!5E<3zGg>eSl|6?D^ZuTt7Dh8M|KU99tbtzqCxQX6IkC8_0uhSWYywlb-Gnrv;k z$;=piDymd5z$$xi2?_-s+Sr+Amu+ zeQAW*LS?oA!mBOE318ke%?a9T1bSgT^#ttwH?BR&1MBTPu=JfJUo~RGVYsE~&|8hT zQ1VhGT=lBmFwz*lH_s?YuMvxyo#hB9tw!+u`Q;33A4jo9rIexIn;^YL;8ohMYJh%> zz%M}CV@gh|5!XfYdSxbd3<))v5SA^nuR3f)CVI+gHG~edK06-#RzuEv)h7n09f#e& zZ3t5L*-Ha7G=rFa#S|xX25(dis5V($2CJ+1OcA`U`-0Qzayw5=pbYIWP^@YT4B=?J zpZY!-#69}FCX>V~yk4ctCOmFRW5a@ ztKQMNT~w*<^G>ceXq0<7p*743jS)!)7KGM73;D640N60A_!`3~rc*9|*tQjW|GMNY zgn9E2*r-mfCOc0|iStC*sLtE}b9Qb$k}SuO{wu=nlK^2@_sRma0{V#eI}Z=<-~$({ z#S+kp0J(qw{rdf)rh7Wf+{&Za{V>3w!YV5>BP}gF+}(0PmX28#mks%8vp4Sj&to3y z&EZ23^(G%Qdh^xys_M-*->X`XrM3v4FJ7ZJ--fq(^EuzE>)rS2`T^f7f*{z56CD~= z9V4t%>ao-w<7Df}V1jkk>u}K>;V4AS=>pS(R#p;Qoe|?DA1u+K<9QU~^Rn=ugqrni z*~zS82R1g#kkXH`)?g`uOvb*RAHg{zXwr397zZIZ4YBR!H)*WRG6VtY>AJ`CRX>k~ z8xyewMbL7hPsv1ZD&n9TqRM%=TkrFB5i^J=J{2*vXM5)GxXw5l9oPQ05V_4u;!Uj} zhu9UdqiymkhB_mV58JU%n1^xv>mUrrn%tn@k`~}TvY!-Lw zSv>0#U|(BB=7^H&#kN)hS(obE4r2;qh0rNNR4**{*xz@j~QthEU*)cgpk^bRCh;8A8)}Z8H!wlX2SU554lTXLYSp zk6X3~mKxi!ASZ9QkK(e{wyCrQy=)YBpyh!Gt&mw@9LHQ39$6mKG>#)MroI^lWN5RjExM{gjebYnFdWN() zm|ss(jhdB*dUaO>Os$9$d&{jhfVCAtn}ohEJEX0MZMUfXhrsO^G`KJK0M6D?mn(V5 z(_cZLOzmuyv+EiHWvYmg=-h@WQKmL8SH1aRZ$%)m`-E4NsUj%2nD1IlE!Ej~r7EYr zR?xa4jx>d6btbGnBMzUCnQz@(+)M1C?X`$vI?-?@ex+F+h@9wDHR|p;0 z=l4p8m=bDG2wH9-jR}P+gnapM%Eo9o(P+Qc9R8fY838K=iDSFa#gXybq z6RhoSg0+3X1dB)|j}j{GNJ`vwJC_KnoE6*UT8p2`rR+K!sPHVh=le$)HG0Zj`a+E# zID%&Oeaz^Gir{HJXeXKStA3;i+^hGCxYUmwL1eLSB=8eQ+{izeSf(oCpDKbV_nvOH zovQqqBd{{=JBR(;5hv1qTW$4=dJGXNRq=gY&f^r~%)j(epL3qS{Fb!UZ*!Cz(D%0b zRk>?gA6$>|>oPNtlCA3gjn6(d{i}HUZJDF{MeOu+0{eSDY`0y* zw;89=>|QcxlXI+*+LhWjQ5-=n8>>-tu6HKtSh>!Gdo`#Wb*w#8XUJ3epf+3;2x?j4 z4_U_=gzBfoQH}dkd6nDU2Fl__sIp`daO8 z5*Jo|8`Nsn=S;A+y9w6z0TV1#C`s1a^-OGmX>zNYRSkQzE;@9|gW%2TA#C15?>cBZ zg={|&*2$89J zjO%sSY8T%t8%0;qr8J$tm((lG*+^knIR*%#ZmqvtgrIfU;S_u+sA!U5qrB?SH!dTo)F4*^YgLe+`u+og5&Ajt-jR5K~EQnqo;DwWZFbn^a3Cor|_q$Z6S*${2~Mco9Vuei*9L=2&V9 zi_p|j1VwCv!PT@86mr(ehU!H!wqgrj3;2QrG`gZvULm1I%D9Wj$Wk;Lc@g3Xq2t0= zdWVDg!jP6mMCBS;fO<$vy%TEzYdl6ASThJ}mDmuP^HClO&EXOdg(e>~Li5$4%H$-! z^VOoN+N|=)yU?`CBG~lp(^g?VXGpc(4XL&d8B!6ooUAWP6Dc_ficPhHNL{u=>}tb6 zmy*7m30|KOM`TYBrO>)sRght}vRpL;EkpbLW1^yJMRI0Jl~)|BuA^?-sow#H)YTQ` za11T8;Bg%#g)OPtn-GD0??rZ4>g$>4ry_Qwz=qv@J40S{eaQ(VuGfTZy1qjI9Ign` z9Q#}b_*`eeWiLr<^-e+OilFYS&#-{abuLoK-{*Zm=8B*RRNsXFE}s!pLa5bcJrAf{ z5%>)(BcX~QzQ6E&g4bursEk~NHQ{xI3<;TXO>G!`To?HSaJhc-4#V0$Z+2qTvGC_b ztTEOg>CmeBG!V$M#bT|#_la)R)oIt?X5szeuN(a~k5Ep_v{RcFmt}IRF&w*5m=X3F z2u63K1Hb6AxY6%7TsE*$os^LuA!Xect?&Dn!hX89oa)?-{*Y0cO%StF?Y`K4e26_7 z8S;RuvuVsuwOg68J&gdl6G71#=M8JGWJo24!)sVGIzuykgekqMJgXOBK6gQ zs*2P%2dYxGzp2Z>=W~8PkFuBlHoR4>&pA+ScL%EN0}fOq!XNkN{YL%8iBOMmDYUL8 zDcW@@WM&~+&1@mO$Iz+j`#_V!{+)_uRg(_#_mpzoM!zv(3Rz7GX>#NIDm8@?r zQ>DOvn@tJc+V#Ib(Y8qrufC0MHS2SRQ`_BeYWslU)W}^w-%u#8|9Yn>IV(DwhSpLt zgykPbKq=o;Jsa3V?jvy!w>d#vuJtX5GF5AqgZll|H!`sXMWAc?cOc4iMv%Tmg+Qz5 zP^OBgjYw?zz|%8gG~So3zk24-v?6FH(|caR(sm5Wj@y(1DBI5CD!tk3eMXrof<|L~ zgbZb>2r8~;MOTkOz(Mbz1v09C_Y@^lpI3?cP%FYD$I%SEx;?52;jt{+3lRi~bX zt72`H&8nj=IfE`X8l+>{aU~3m2S=1v6kHCu>aDDO;A;;6yZfYyETptiAtg{nVYuuv zE~Iy-hFn81w2&bMY&OUID8`2Ln^CKP5I#0KBpXe$D#H&mKBPWbe^@w*5#li2&>&${ zvwACSA21w+#kxL~OkEe9Mu_CE=)H@*0_>Tp4@i)xQ0WeDfT(o&pi#Q7##B}5z8O=MUICj~W{k7!3a#FTw?g+hU#jiyOSOH#muloE z6O_e5atH@B_F%5^;Kf2Ky$l0@nB0C-nz0JgavN5nKf-Jg=ip7YW?QLMuh=j+DDi z%h)7>b&j%}?6(u(d_|A|VWOytV105}hV(&PM6e>rnOT@W!T1W<9anx)h~ODA+8Qmy zISmF3!hX%dA`3yRMZWQ{y@IST$!a%U*qCF1uBv(wL68fmZGZsc2LO zaY@^el-6lnM=7nC`6Y;v9kN%qj6yAwu^s(BO>flP3fBL6!!D&$Z;-uqkGJq!P`Y-D zmj&`hc-K#|=D(%DWo5ioF6F4pGNM_gFc|0I8m`HsS?TH%YU!6D>%kasIQfVu3$m46 zDZLe^C(Nr1QZsaGlPrNe8PlDA7%^QH?NySFtOUI;HB>xOXO)gswT}G`56~L#@l33K z$;e93s~VCWjOZRJ-C;2hl`bDNO83>Rsw&+#x2oDwK+Fs%N8oRIx7C>L+xS-MK4(|8 z-R-Kj57) zL*O^t{wiJqinyv(b`{{f0~CS(Lm$cI72sD_GDxHB)jN2@4Wc~{UI2%N*KAfj6mutf~v88Ruk`?5o8~nugk1jMVz)L;=KylA0;vu)FqTZLxyqu zN>D@j3Sr7Ek{WmeD1^enTEsY{t`4&b!;mh4@SP!KC@d@LjrPb;P_-31yZW=Nh6N$r zz=)3w1u^^>?G;=s8uJ~w7j=-49XX7e>=c5+#&)o_w)F~%)aY*Ls}P_ziX#nS3kwaS zHIhWdmoOz>7_V(~m=pC96rm9t?ar3EvoPB_LD#75_-WP+g8@>*EaM96U6$3YKF3_%HI~+|t@*wq%T}-B zI@nvt?HMyxIm$zMJB$mWyyb&N-oBb+ReAerj#bTAH?dJDNwsgEwqo`4L}uN43R3aHl9L#@^9uuKSlz5S2-~KF1@)>pm;JF~K_K5tGy}xqkho1nx!1KMH^IDToG5z-Hc7K6mg?<&vdpG0lUu#QXJ@NIzO2yR%^## z_0=8&Zdb&HXWev+D*T{!MVvR^2etbQvn%3ozVt1}*r4;fCMk9GS|M5$L8iw1vnm2w zR|E~^`qsCw`i#KrogMJ@>LO+pLD&8H4%Vv+!|PMT!lvK9fZ!E@ZTr#}%OGg-MMM?8 zpO3;zaP%>m{$jb9LQZs=>>-2j=2}}aTvtay*eYa4ia~5=Fb|`uOqzq-Vq;i){5DCP z&W&OH+0b}+P^O4kpSZb)mQEyc#%2)`!o$XVEQ@rLAqQ@CD$%aS)?T59mdy(_Ck#hH z+A0L&p(@6W{79-@R=6Q;^&VTkY?ih&1gocIzJc-I2{kNoFqCN-0YV%(RBKQEGf4>w zkuJ)+Q1$;}tViL~^xuwdc$9Zx*xqu-K2UkP)lZCnsda8oANS zYxUzta8@UA(8$JS57q1NHHhk!4;uCQ>Zn!K>zkuitr2r`mvNf!4|tKYZ^K(T`<$cJ zc6Zd;KH#WDU%T7xuxI09m{rp2rzG6YXGMr#cGidMh;bHjRiy;~M6PGJN8Puw139Y*DyWw|UKMfMB&Je@3M@V&aE-*k zvwge6=!!UCE1D#%eeY?pagBtv-+o;5ae%`8`YiH#VQ@tp$cJfVG7?trGjq2O#)&~w+=&|&ckjb%}TCi?q)DUMyBN| zYt$(1Os_1FhauQ${6-K}kCNlAIu+QQpOfj(4g zhb`kio{*StpqD5} zeS^p@7bLI79m8e46=?`swY9itH9>uOL-FcbLN|r}7%;rqYaH-JdjG4(fZ!EzIY~}g z-S&p<6+s4bU$h3|6#^YBJP#1M3Sk{?p~q??D-iaW zbv^}kMzX^$a?n!P=8;2Ix1R5BuG2VlQ^ z+G*GEY0*=UEkl|*KZ;W ze^bl95?=X%A~4Ki2V{EBR$cf*MX*A{j%Rujsyh0SBW~B>pknX5ANy6HX1h;x{D~tr zYTMf1{!>Me51=(Y^=yCU2--#Uult{uW1J-qxt{qi%6Z^g-)fz&9f1U%Rd79zUpiuR z5nY5|Wx|aJN$7I_E5Em=(o(22;F9khS!&YZvd*91lsT#jzMk!G9YLS0y88H?KP}hY zVlDA|M^Iz5Y$j{Z?d`U5;`&OD!pd}8wD(1o+EGsXV+iJc+lOIkxJX<0jzVsfo5jus za{Mbdb=4*7d;XljJgH@@apST^_QfcTsxE1tmy=s=PpjtxQxm@RU=V~%27~BA??)o3vLP7okm&1idO_z z2y1@h&nJ6uc8XpTWduf9(GzV6>_QILu-atH2Ce%r7;8P3&T3cNqNO1N);R3!byP6} zz#b1vnyo=uvRiH9hcQN4!w}R%-8GmhU;9vg4*P=?Oug|zBR^j)w5t4kv(PHlTH_19 zSZJ{X9Dhw;f-l2cJ^GxP*6nVlb^Cys)`-7c5KE^~5zpqZofUd?KC2Uf6u0@T;#9B0 zXlowwTjhIMuUnV#q)zAWJyK-0NV7woD#C)6RV$!Q^=#?t-REzjRMnY=O|3p(5KdRb z=zKO2Q_6KU#ARD(6O^hRgPvCXRyOQzh|9u66{V_(3rV8ouEFkhwipe!S`(^Q1h2_e zeyiQJZB+#i(d&IaofmCff9(jG5B2vMrK+>phT1J-Gg<*-5CE_g*T#^4YG%{b5JnXpLo-?!1Qxvhf;h zyUb27V&lc4saRRL>MY%t#(1uxjoL=)bcpR5ol)==1{s5qikZA*jlsw{31ZVoi#Afr zG*dqS*UUy zQp2^{F~FWp%UH;gRBw>wvBrp~9Oa=T9cBknlJY?#NgtVQ-CoVMs;euXG-g|0K5Z4~ zb7ot&yV=(517=$zdFDh;|#Y^`QM^b}Yb7Z_sG z?wM&fUl2Tfs{}!)dj3_Xk@C~0z{1puI3E|itsrVeY&U5+UC)D9>5O2VNELgl;-G0o zP>j~=J}6reT-C+!w;}KdZKKa{xt#|_!Yu+~*K2iS~k|qyp;GlINAkO)O4VU| zdS3Ra5ypE2an-LSL@rUO^HIhIsU$7L76Af53m*g$B&SgyX}8NpSB3j-n&}l2SN$)+Op{tMg zSm{?ESsNr~@Q^`;810Qt7j=*k-9s@uOeUh3<%34dJ~HLHy_#}urQnKB-o@;z!@>0I z+6o@heH-7(+vi-lZg*F%+Xq~^PS6FBRcdc3dE&KK<*mBC)NLU2tQvW+^U`PH!SUwQ zavpcMbPSMDWC$DA8 z@3SeObw!Xkuc3vCkq4jMpUH(IQuQ3{7V~x({!0Y^5 z&YlSo(hrQ&PM^$^EMx>1Qac9~i8|H0DtnBWqerc3oFq}>5L%}mzTj+p9O%R?4jSRYH`;4U%3u;SGS4XWswdE(JSIg6-pAa^C*%DRz65jyCOzSMJqC4c0JpB!o>6f zNlC1VxY6XYjDpMOQG~a(s5b^<6>+{U3TWVUMNn$omv2Gqir6qSXwzw-ctzYeL`ny+ z@1-h#6@WDaHRmk?f>#8u?LOLucvZxSWRzA$!}WI8&a$kDiK~j((KEC?2I5uc51G>a zU4!Utj$Wi!K$Y$Aydw6*h(7vpf1taNHA;ziRmkP2P3$WK)>jB_%!}|Ztgnzg zX4o-JU>-)<4^At6$k&(-m61}KhIrL)9;KW02NX_YdupLX5wH5qRE;gx7{+inI$-;4 zs=Wf_C|Hu+M2_S%f%%7(7MdZtXoQD}uG-s%ED4tD`s@rZXl0|2CZLeLGG5Sc#(5*m z>nVsq*XopG>1S)$plfYnFCmCrz5BOgSVtJ`4I|7|VB2_)K<^g5*tm{J?=f6Gr0o17 zb2*z)+Qr)@WbrzGF9k6go6R`{dhfM;M-rJvYM4Q+`uL8lRwK354;xZeA)~jnhjWd_ z9*WoDW)Q_IA2j0iv#ZwCf~)+phjv?hQqo%APt_Vo5gK?K-fGw9?6z)qyRF*??6z1h z9*=v^hb{S8`UPZEKXPW*M<^IEUKZAVeC})YlQruI3jM$F5pl2?D`LCEO|o zt0o-Vb>YcH3|5^!NVw^DQekyPT+gz7SA#f^x+2IoUA4Rt1QlE7*z(Fp@v>|s4boMA z$#&ZM>;{4p?u1e!YtXh1q7gu!PYH$FjlwLhl_oH_B5>X4yP3h}irAe(R1h}TX~_z( zzlcz~B2bdOyDw^09~Q#={q;euD&j;;y_aqfyFzv=JA;u%FhhuLo))caN2paH82nbT z{Q|Y?FdR}A%5UP+Q4Kq?Ra5RO3U&Tw-oCoG8eZ$D)fsXjh%2j$=q773nxvKa$%@tg zHra1D}Ojj)ezv^HFZwF6ZRNgA&aUp$8E!jfF4 z0%mWE#9#F3456-0tCPa^xiK4zsnt3`ZyB|nXoXX^<&D~?6xNtrh+7)BksYjErUJys zZ8&JUAP@Nh_8=}HMs=etnZzV{bgFljJ#A(h8@&eX(Xp~Arbso7^+!izr6K>+*bevJ z5?&37vHBdrTRx`H+tT=Jgka~deW+rG?Lkzre9)-a&yHC^#Xhvsx|w0ixGu6CiH8uwQ&&NR0Vsq6-8)1J%P!Y8()Y5B3ty?df;eJIB0qwVfp?*bRy3*IS@EVvA zqY1&aw=v)?Un|ZNQRC)ty^cD=u&thg_-)3Kgxby@c)#4KUP(gxiXczQ zf-1F*fFg)c^orjR9kttCLID<%b{QzLO$U#&jasjF`)h+fSu zjl;)leeLuGayf-@m>gc12vq0^6q<#AZitHUS)|QYW?bljbkWX@6>kN`q==ZD`NC4 zZm%eW?(;`(bG<(Bxz16#4D^*}1ZovQc2A8}!sqiS3Ro_|=?x0kQOMP>EP( z#0tSWLq-$&m8llAt&rraH)60l3dNAK1a#PrrV{N!XQa5!5c2=D(P;>%8e5Srs{4*1 zY-`j-mDGqd`!2Il7nxkkgiGTtss(jr7q;?^ys&t+kYsFvWi#d+RJpMik-w#SM3&m! z-{-Kaj>1CD)|P%Ljk9hvg%W9#W$Anrir-Y)1j$ucOKlp)6Y5b&qb&+0mbFpFVd$qN z#7JxyNIVgQ)r))$9leaWSVk=6t}z#ti~38dOrz6 zoHf>M8&0pc4_RZ~4p%b#30gq*6dt%WmYfUoVwJc9yX)DX>F(0L{~`AoL6ygLj&)mV za&gkeR#hdy?K5H|nQHN2iPAvrilEk}w>Cnf&IlqY1T0dztB%^(9$V>BGY&ZkH%48m z2sRV@z5sB%A49^)b!~tywe!#wepOU3ydr4q(CcdmUJ)2M^%?|z*Sm&l>jQ|;yCP0l zQLi+rA{aeWcT9cN`AYUl|EpknMeNm0w$5;fent#;ou$*OAt=vVw7Y`m^&p)1BL4s# zJ41%uxzr7YSS>nMA*9~d_9a8e>M*)6gfQyFt|NiqMoz!zmr$*Pke$DoK%ADy=g6x* zK=?Pu2Cg=tbH;$qufy?)mRLGn)O9%pK8@c9&?OmdoJPigrd5QWk95`Bf*)ePC-;JM zRS0RA3kXZ^8FCv<;O4)eFpcA`v|kcE5g?W1bbB#m92m<{{Jd;YWi&_b<+7CCc#ikv z(o4&Tjs@j%o1fLVKZvUhCGzD!;T=zT0UrG?Pq(eAZs7`X5G{r;q!HR zKk;Hc@HV^^xX;;U-R`zow-4H8T_7;RnCKyr5sSc`&kEZt-6E{CkHFRIaG{TEE9MZm zYEN-d&zbrHBa)#W7%G86i%G<;8f{Qt(C;|&GSD-pSfCHo@nTTK<)mFVlJHdoW;rVh zEjb38TeO~PgQdI`=3`JwylS?}OFvvcqXUR3o?yxn4;)Fd;S~$)mX$Vdl;SoMxrjZ)s z;ZU$li8aa_DIP0*X`DCO;L`JzyJBa{`CL;{Fndu;~)R|TmSoB2*Co5R4v{J=Mje8PR3c^ z)w3FTUGkvRD%0=zb+}l`XpwZ^SHy5qShT_Ufg;G8w?wdVj2|ijhpqFXDf^H7%*k`@ zUz18nKKtmFDHL92-*3u%r9pdpw!d}6 zj$*^|y}#2@_w=~Fy8ri%punkL)V;hY1Oa=IIA#cze&rDQlZ4RgzxpuN5vjA555vhK zq{Hf{8?`j@`U+_SMs6d3B=<3CR)03Ai=E%zK`0u%(e#-m+4Psv4tyTcf?**Pjo>gE zNQnkzzKpcRB2#@79vutCY(z$9heOh-ej~M)?Z_V~{RjN6%3cp$hJ#L32mxBXb|KnY z`D-Z$jlf1TsFi{=1|xe}W4b|e8-+bp?NuJvb+wm6tPCxLw2je*=R>IP((ipn=o+Iv zBXo_@sI*f#9pt4^8h4^*4H$sUt)*f`s-i*^I!g%fBxaG z|Kq=%cEd6ugkbLVOb<^|L=4(I%~`PAix-^|=UWRdpshY8h9J|3KyHs|%AnPjLG1eA;80s909>x4c)a?E?2xAl8GVlDH$at&Q2PvF2~7Wh zIt)73Vfbidd8)&Pd2{~*zT@A#qdK+z0QBkn%_C)UB{o@o&k)3qmcOK!szP|>YDhcf z7WiD>YZ_D#&V|$tngS3Y#%jE!wXJ7Rm_}=a0=4EbK#bQ8Z1${zvPNtqql|v?LAvU^ zIIX=4d|vD|eKp)Yqc&`{G@2NqvPf5*BeL0ePvb5*vVOzKJhEkvLkhdi^a-N}y~y%g zi9{2>Q%#xi+b~O8{V*dqV!yU=9)+wifn}yvi18gg!Gel5y1TJxlfNuo=bv(6YexRE zlAR%BTq-1}RHHte9P}^Llp$>AqdW}94kLyrZ26!Owx6xJg0Ow$*+pG?Z5BJFNLq*; zN`4#PYTTz>y!fuW#{H0s7hy&svM1h;Y?7XDmRz8xMP5*uF~&o@5zGPSs0-qxan;Oc zPjYGdLPO&!f<)SRDu+y3MSS)yYmdR(U_Qq1FI$v>^DcWAEZzm`d9vS2Q^lxp z6>+>sP@^hu;<1W2-4=cZXk0~5wAME_;H6;4ILp>*)uOx;6mhs+LUMtRqMvc!oQk)A z-2=9=+vqbd0Y#ij>vwNk;0SJ7-}{YMzd%Msw^l>_ceWsEuuS4OWI< zY}__{xK_n#Ear9c;mTD{(#VYjZ`HUVIBo29L5qp93J@f&%>*r+3(Xk{ztKQP{-VTH z>arFPL9Qclos?EbG3p!1P>ZPfS4MqU5Z5KmS4MV(qw9tI%IJ+}{TWd^pW;JNJIolO zsO5u3)PA<;3ZnLrcNd}0AZp*Qy4C$dwQu8FQTvp47vFUkwIA~C+7rmz@4x(8M6H^i znEhZ~T*LI{Btl!wBxH5e?I17kih$eIR|B)mDh!Ba=-<7yy#X2lRIKj8V-^BFOiM+ zs!!l?J3}?^sn-NfR|Ex6eK`}9t_X_vjclu6RRoQ->-IP#ZcoKw>#ctY#43VBnm%X^ zg)8E?mnKXxLaT_~UYp3*FeVJH57iYzfi|lD0-r0SMuO~`zQFDZvHJ3$LUpvTm1As2zf|2& z4xvw@yU`O@c29HUR-bKL#H-?Bfo@NycskFX7M8u8$M%|>c zZ!q)n340hN1I6dS@9~x@0*&VoNri*_i;d_|#e;)GZ@YY=GeL~fc?A!QOy*}mN z#j)?|^+Wz$^qVK5G{SE5!#sL(Ej_K#15=ilQN5ZC%{Ag=s`Z!mZM{|~TtjHGV7*o_zaloeRkqg(;#UN%uId^G;@43p zzPODA!uyJ#%|gHafc6y;JD9@sI)CW7TGcY-uA_(n&u`$UWEFw*?Zdkx3_C;U=5;&v zdAvi(Dg=k*MSBF8ULjNoE|MT%dWG;Z3@s6e2h77pfLF3wg5X8HDujfLkjjf<)nTV& zIDVnD!+BURxs*qw>X%WMut@1JB16~eYd1(XV={EDlq8N)x)5QVe;77h^cB}#D~A}D zQE@JN6Au)tJ{H?DyP~ie@2mRrjls~h+D$dca-%S2{4$@!IE=zL4PA$$7>SLh0xJ^= zW3f?=6&%lu#YX6NCCiP*hEqrgLmPE%pDc$W=wjos3kjvGaH)|RspHG`wQ_E!^y>o)uhZ_;!fP`L z&d)Kgk@22=Y<}=Qyp^v{S$OeXclr7O3$M}bbq{}z4gm*>n6?spRnHi<7Uwly-B5w+ z?K&I|H7^dX*HM@2R)dRBz1n85?_6Imu)B`h$huu+3+P!Q7 zr@7Ar8In~Wof|0|F(p=qF_r7p9zj+eMi04#^OmtDoo$$#v3zU(W@53)bQU$Lqv+B* zzpR3oENpcS=T*q+NN2w&O!e?o&Gw7N7o#pZOf4gG2-Eo}8{G?KAr-c`jl4z!+^{Kc zgf;q_NN6qyC}S)P9+&nBg|bfCqamm%<1g}Yw9`yD7b7rw=9V;}5K7g_OUd(0M?oKIOW_cin~O2VA#U#?fQ`J!#8M0xq9Vg4P1MhKj8P z)Te{6Y$bEJT%9UVzlF-to$f`V?eYo&A~(Al>yB6u@VK5JSzCSnDKxGK((ihG2&F4x zyGo1ldU;^<88LFvoCWPhLFkIu(@C@4zlG237*|Ors$op%+|FYa@%Q$&TjGB`TH$NjzF3`*QqDa?sJf#SOXE)(9K=Z)Nd5f-HdAE(N-NibvKpUa3R-qGK&ZdGnS~MEsmR1 zz6f|(xj$xx%h>0QETIy3v50&1^>$Fl+$+c1S>hg?gy((g{1mg!$_OJKCOT&<0O2X9 zF5nZW8v%VVgMY-QTGx$CN((&rD*mVhTtls{97cBr-xzD-dLHB?)b2+FCUOrr;l5(`U7I8WU1fO_iMSUh5j%-00lnkBP?CMGDS3PEyX(v4{f%WPE{qEnF2N#ZCtK|afU2yALzsT?$31{guQKVKv^Pp1>kj<2J=0<-@1yeej4L+dzm$Z z_Zr{))~@ozi`*59NT+;S7{?)*;hBQerdjQQAU!lP?VkQ8O>utF%r33%l#_r2Ak+SXx;V}d)lVDtL8 zA_OSOZvB#`pE1$}r<~Z~5Z?~NVwg#xc}ZVW@5l_7PoZU%$hyG$ks2E)fT<;y+?=2}t6SbC18mwaE;8B8KhEJ#z7 zal<#FYtGedJUW6zuu&T*Os&7G6V<0b_i`(63 zl)mdU2w&RuH`7xsx#INLa6}nK2p_K~(1R(8nCRN~t8L)_p#F{6<1JnqUsixbWC{9{ z_KRw4&L{mo3prAL%+l^eQg|SP9qOQjQUj|LSnPa38W=@`{6wa?!fy+Gpn|MRu*aw= zu-efZ-WHCmWgn$u3su6%(&UZ}iy+TQmv*Gd`JDOF9TNpE#g}Hem=Rwy@bZK+LTEaaG>NWOc)q02uPU|DHZ@jl3a5ZWV%9hNF#{yfi9Ld(lp5A@aL8}o= z+sJUm0Y9$8bL$h{cq||B4$(#1?6_iBUUl?D4kEv}HwdpB2|@d8s*x!Yj$0yJp=K}$ zT*L@2t{rkQhEVlgLn@zwxnq2Ih#9%R6|ZX zf@JONw}?1st{Z~za*))I{RIi|q_u5D4cc;up7)W0Iq$w9p_22R#i+qS&jnjdTaqGP z72X~oX2}%QA;FICba~DTn6crV`?->~xem=HM!jqs@?+jNzOA;A_sgFyxFeX?#apPn zD=I4f_T%=`H?YVLYOQ>)R08}s_&sw~u7P_QeJ`S1X)~6W>cZr`AN@>QXvgg_aFTco zSt3q+Pj=S2E(cHL8zOV~*6M0kkk*=>{T8sllN4m>Ub}elo_v3Gp-sg~~# zL`r+t^U5`XOLtwtlH214GFZx^JosuWe_~pHkBJf|L&?z3EAk=h)P!!u_;-~=0YUZi zRwY&`8C>hq1jT&kz-~bQ#>uX!HS-V@i!-FyLWmc*0I`e3YR8nBS zWa2}8b;OTdgR_Q6fxW}sn^U6U6Lj>Z$JaROM7-G z*LLqZ+9p^2K8LYrW{GJ}MPTo(1{~N_J!_L18qT}9`2^NLU@>c^K?4z#$!Txk7-2VU zyy#GwNc2?vGwYp*gR2fy)AXo_Y=*LdhKS-ShC9Q0rf*Q-A7p1`~&mN{t5GaZTah)3AI#51YykWbX% z%g#b0`xG0~mOAjYcprvkJjj@)8e)i=QH#6$A;d@a4@ukU*xhTDaOs(R+LQ>D`b^Df zH=5|^Al-|Nx=J1@#?1vuNNHwg?HW46P7$R#=~q6JFkEKAyC%2HFIB_9vQx*^=odN zvd5*5*3aNLj9*sS$|4%r=_;JP0D|&TQW78Mv0f(^$eW-PJfe}Hq-fS588nAcfS;~eU9|;tLo-?ZH=H*_(`nUU^fkSgTN)}_n z6)|}iP8m3aK^9sP;AuQQjxoz>* zW7r&TlTj@l(bL@6tuikBW&dnar?od{G$PpBKz8Z-g z40liWG~X(wV;2DuWHI0*`ylB@H$JIe*tS+DH@c~x8?;tuOH$X(3DyhV7A_1O+`S%l zP+T1xX)ivrN2o|{mRlu?MnLhi+LKyyst~lYd*|pX(h*}V17@{X2%fA*LC|3nDHuHc zx(NJnlaWPoWaqnDCR|DB*UG%)s?!e(Lw67 zf>lV3qJxGJao_Y4E0=Vw@at@-i18L`{K=32)5S=vA+t7KU-Fuc^Du|1jEp-(2{(7C zy&UQ>!=+&92Eu!^9ytE zE&Fi)Drku3lz5>h z$Kw6Pls8xf(P>&4l{~6n^}-it%_p*un+U!l(iaTRKW8ODkS_~(z599^O_%}8tB{*i zm_be?KATY?xGjUGLTT1U@%~?U|?XRVDx0xL<~TU7d#jk22k?ehRMak z)YkO(Hw)u?Tbmm71-k`iL~r5>U*?ClzIW(5{;$LqC>FYdkgTu4!x{SROt~xK^KS2z z;_U}aXW@I?LvuyWqSwXh-R!yDe5#erJ|;FkMeOj%ii)L%4i7zEw%oD3BPz-c?PC0Zr1u}FErvYd*15yoA`CaI%3m)cpefu6IqA&_r>*q!OL zr6NJ(m9B(fq!qD>Vumko^SSm(Y>rb_?sCZc+uYhJ*43No8C3V^s1_F=$c#n{a>lFC zL%Bxe7e%LUw>>TzTW@Vq@;{?$;F!E|qPwGQlqT^(`exRs#VOuu%1m?<;RE5|8m1F@ zSq?msJA}+-+F@`1A~=f^nbzio$y53`AKopHY&pInuy&}>75w(?9#!yB1>* zcDf*p0B`4tXJ>b={TiIf=^C6*MGG;s41z*ty!rYiCShdXMujkEbndFbNEemiZUi<~ ziLo-B_3|pPPH!NV=4D@xWK4aiE|1M7K}heVTg*MkBD0k?N?Bi_UFA4t z64p$9rc+kyD@wdN3}M32yVB+IwDIWtcE0PsvNc>6Zw3CEeK=TkYKwtdDLf{Wv!yBK zEmuQ26|USH4|*xh+@_z0hl*IJV643^OVtGwPd*i2=--8XR2fyKfX5werG8m;-F;v+!phh?&Y2hLg>b{ z=!GsM7nu_9uJ~Nk>ah8StUfn)nc?nWh~DRrs;k^aoKI&#`iSfd0nM{1k%hGsO;c7X ziBH(Ik>pDj`$xW6+ivJTm1lX_l4W_r0+Gi|ofCbA)z(y91l#xb@f}Q{QVnaT&W@0B z79C^v&9qTqq>(+ITr(_t@1XBHA$Hax=`6QbQ)s~p{E`ags7S_diGjZJ-@U8w#P0nR z(7SjMz`&4x_bz7_cNeFNKMeOVoA{Ibe_wiyB#acBgD=Y6jo=%c_gr;zTcBG^*vt7c{PPP`S;mJ5WX>lPa zd5c19?vVCs;Zjnyp{yrKT2h}9j_;j+O1;#ZquHBoF^8XU$2~h7I)H(pDms}fEqxE^ z7{*9;eq$IDOfDQ#pGx>a8EgVljB&-&Ed)ZkG=X)>aKV5SJaiSNyR7B}UOjDoD%EK% z)V20>@TWWeRFqw-fdJnNVtj*65#c@3cM0>RxYSNuX7C8=!u>B7>YEv$B89{>gNK_~ zOJ*RB)+s!jK5WLbCHH!41<^B39^mv9j2XfdRo|yX(VvBVf*F|SgMU}}jm8cuS1kHc z+!t%5t9f0zbDZfcD3jehWPh@v9`_}fj+;wuA)g6!5+T9Q}OA~r-#@h~T8%Rz%6=&3u&T*j-OtfO=@y2QJ<|U9LFTEHSqa@pon&Cf9gj9>X%Pr%a zFbwM8p%IX}Aw@{X{_xTFc?Os>W)Sf&`}*9tJfm1_;wqKz!>I)luHVm|e%%(lhC!_p z8uEmY*ioR9QNk1?pJbY>Dt}yjp`!3YHgf^7fC}Tz^Jj4>kmw!6Wm^R0&IzBCRLX75 z9CwULglQIG+~X+*=bZ2j$?Ar9BzC#(nkVbr64{TiEV>6@sQQ*ORJ3)Shka#2>pX|> zT0lBR$+Bc!0oxlR`+39VYR5tta~~3>xQGc)91g`4Tzh5}`%-m@=oQXW_PiQGP{Qo1Y}K|ro70UMiJzl+)N#X%g<3k{ zLOW(fBPwt0#rfCnZ_qcKA_)!#_8kfg4D+wtao4@Fp)$iZ-yPqen2oPTg8tCRA_zB@{1T5f902`0bIXL0Rh5!buxl+hVjA zVua!+WlTnb_3>a8@^>dp=bx$37aVHz5X;a67(;D6eKiVtdR^=#Be+-%i1K8Es}F3o zdp;pd4oDDq3{Gx2#O}T3@{~2-X*i+yyrq2gzBMGu}k$XQ*YfBhT9D+tEy2=c;W1XPM`3&lI=7 zm$yh)DhIlGP~eN+s`;s9s&%NXs)4DKs0*sUeZ`D1f-?kV2EqCvsY4cYn#d0N5WzEB z1D_4jnYTZHPv2;l-<;pvsuWB$c=ZSFm&~A#2J?Ll_Pm?DleM#jsi})IlYx_|jWg4)lV39&M$ma+R405FGpgu`|1;{9-Gm2f zOnz&~Sjp~-(!DyQI;n5syx!&f8lMx_O?HUxt3vtZM6&kn>T2UT& zpf7AvHrU$#_ptM0KhXStWc+K;W$6E9##ep0)lziLYa5tm`qw@e4Te;a548Fc1Q-|) z8lVZSt*MKliJ^-j$XXL68HJZDsBIeS0-A01Eu@&jHOWBGM?JoYJ^xlixrD%Z#v?yX=mr=5a`pJ?ETp13VBK2&>VX2!MK zLGVeu<`L07s@D)n#>#`>7j|tjFI;gb^!Ec59NWG>hvZNSiBquGkzphcJNrwyZfFTqH>wkt(7egap7RB`I->)v5nrLmmE{+-0 zuCec1kzZm(&QQ5y1i@B8rkktkS;Qel$376O#TuyOEmSx6@$21+r;TPTfqY)h9i*Yn zdv4Yf_vO&-vm*|f0H(51uNah%yiua7XStd;502Ewb~|b5u*LJ+2r1Z&FT>JGdKSi` z1ayB~IqyT+= zH9wB$N1-ncqOWzHYPH;A$#fRxeXokj-M)T-tuk?VOvEu&nO3wJe5vet1~SL+LVHg4^oRDiZOZ+j zH7f(MR^OW_Sf`ZE&8JfYw}l}UC)}3PG4eb^be40RUv-nk>`L0E9)gvv~&c+Aw?2G@aAuvA)BN!cD@d&cdYg7tl1 zkZFc2?cLozezecvmp^$`U+zoX-kj2!-flI&@tN1t8J7;XxVrjuR{#21V5!Ut%Zs*+ zzopTaWiB{)@KnIZ*#)m|yn<=72G8iqso$cJ+$z+d^prJR{$<^#O$ti4&az{O?=;fL zU2&l*DBmrm%SOK(kaLTCm)fN^b2rY#iSu~4Xb|?$Q;s4gz{qtI+W#469CqQ6OC-Q! zCRwhq|8p*J!|c^sv<(lk!CQZS;HJXbO^8xsV>u01C7i8*z$dLJGK0BN4Kn zPb5;(m?`L?7^n}qbs8M6&L|+INaH*zCDn>eS#>D#I|d zxNHX^+E~otS7K|tPy$8pf7MWa`&~dI#6bhULwX|xS0$yyh0>`YJXRs4MD>gln~Mvo z$$BNl;-&0BWEG3qO$GhuDZtk_1Qdh#&!jrtVSSYSZIqGcPU8XLAQ2mYOt{WOxv;*! z>exm^L}JmarN+5XkffxCKoo2gG%P8Y5$9vkxji<@0KqASth%WY`t~gBVe|o-NdX9&ZW68CoL7Mw5`}N`e+eG9y}gf zkrIFE?X_}iZPz;SY13};nES@W7+J7&Y}Pn;qOS1?rDS7$!My!>X>#(cV0a&5Wtp%X z+g_odnJOWn|De9)=dwATg)lNzBiS7t)-Ett^BO7d-z3%{`lk|WqQyu4Yf&&_=IB+MZoK4r=hE7 zZOEAvE&b*CT))fKGzKY1I^|ewK@bI*?SVpfvcDli&JNT&qag2lcUE(r(~T zBz(9D_hVta4Lb$IOZcx8Mp-E%vEG(Hg%~3@Z*=7yV?U&2&7ZcKuuMXDNC^pSdQie7CsSn;`m`*Ck{GPrX*UIwx`5;wgAK)0g1xv+j#wb0&T7 z=NaN>W&N!LgJ%Yx>tdg!w&Z~gy4&3pg;DsZ{qdZ^#t!}Vr|!Y}gN@#(dxI6P^Cq36 z6ix-E=fNm`PY?GKWMcB$D*U0_bX5&6j;2_2IrKVy6{9FV#~*4ZsT!U9hoQJfj`h9M z6eY1?Q&p9!ykT_sA2gJElH==04_t;Ok)T`jCmO#QFgOil~v0%W$Bv}R)#FP*v4US zpT!_R50Oye5 z_h)k+uOV(bSZR6c&9rb(+|oa}!v-Jj!ge+)x00G8a1Dl=sSrHOI2MfrD_+{zIfVot z-oTco6bUKIBN@U+Vm4qqY3Kh)w1qc~bbt*xge__lze4{wp_+#XT_eKQhcA>_=K#-c zPs+2<;cVI;QuLb2F49RP4-8fm7asOPo7P-Z$;V6-nN*38VjwtP)FszOehU6hj;&6a zU6Y=G?!G$vi-@$UL}=`^$p(JSX+I7HW#){c(<_TIc04`}(lhS;a>7@_JbJZ4VmpQ3 zNRc*M?J-?MhikHBi=35%QVSz7LbPfaNX+H(zQtv#eF>DL5q*gXWW^&3De+Nj-SmX6 z1q{S|jvE)XEy7zXc2esYGwUR!DJJiY$E}i>Q5Ui(euodi+8gn`> zR>e}vYJe7hJ-jM(0!!2SRL-M2t5M5AGHm}1T&kA*0uB`X8`)(nvX+W$j(~xzK#w0% zLAiyI@yab4ZKkx^nNSFlQt*?~c8&YGxLg?w?f|1?5u?YK?-(ArT}`C8y02Acj0uJ5 z^@m+UypZ=5-EzM{O**$lGipUA&Bp~J#4?MgP#`X@$pRveB^}`)9jm^iS|L4ToqrIe zC;DC}Z;`Qd82oLAx~nYcoJmF*z-vBN7a3bAX#k0tWc@S-8f z;t4qM%!e^3KiH(_yGV*L^lN@>yTjZPFf>y2 z@*L!_aJ_}C0fQDoS%`y1J0#VejyBB`yXu4J;qD@(X(AUh^y^-o4q@=7zEMua!krvX zQ2A;!-;MZ%opxd?1WoMDAw8ayW-(@cjP6rUWfa{VSRWoH`Ffxmouw)DkBkViZ#xz! zZm#tHeEBC-9 zrlnn@-V%t-#$~h2Y7%68a^zaIxWZ&#e3j&Q%rT&#>A=UzWF28*EvQMjd^PP^Np1iIH-cZ<>+LxWg*Qd)KK8 zlt?X{8w8^#KTyfzyo6Zmq%mgaO@Ty_Vj-mAP&ciyX^1&JRo}$sM5iVx`KSzz1-<3| zT|`+{LRt_5zE;`_Q8_=!^|iH)$rP^WNQD{AYS zvb7NQW+VXk@gmR05mBZBt$;e6z_ZD#(|BABQ?^fh1P$QjqmhnZjL-MKf7yivXXgsh zCzkLvY?vx#P)j)|H}NTzOy%uI9v92xOtL6(6+6m$ zq+no@Lx{M-$xjybj5W7OW|5KU4c6^gg>dK*aG7nf(pFGQ?c_7%hVfQRI)2-YjrDHG z(C6WH#em=7@nCCVp`g5+xU3(g;GiU7W~aQ}$K&y_`%>Wf=XE=;u0gA}ugBx%-ucW- z0?N#@yL?zkck{LWu*6Aos~cN69*|;^?S8Ar zcxz``a*O-uc+#32wY))gYIkab^ZW@_=h?!bnnERy)PJUq767jh>;lOPoVl8ba?THB0e5D|z=X!6A`E&;#a zT-|^TidW#vF+_rMAda~g4UhtURdb9R0aYlEh|1qfT$nyo z$if8$<~87o6(J$L+?7nbs=HWa9FpD}1&1`dP?nSb=<%Jr6Su*nrN z9(zOJSRLaht0A9^!Sk|b1g5jvDB6`?HXqQ}GkUvcTpWT`i#w)9i25t8i+V2ic#RO( zSHNYK^18MZf|H-)wgZ2_RMrYPd<8rkI&PxgGb8TLb_7mfhH69ylZLgl5L$)QWz(C< zvP)WKJ|BUVATZxd02 z@C*~tzrZA6IdTC|p$n1MC4h*UQ5G3`$CN(5_OH0F!hXdeMlh=^LH7^~AiB{QB;ACt zXD$4!Kb%V!h^_e@;6(X5VB8o#)o+zRX0H9GHr~+eZ#94GZYfVN64H$o&_^;H`j=(7 z?hrgjLZi+D0@XdXPVHpBfy~4}guiXi~5H&!=G5C+hqN8tC1q21iS zBA{Y4jVl#Y7y*9$jtUv@Jz#A|>(cM~XxyGP0QgtEP_hbtDwW-vWw%eDxQj>GiAVY6 zy#g;Tg~j{>zxIqbAV{rFez$c8d7xQA4*UlspaTstDAX1g(#`-_P-8dL1Ae9Y-3tBo zTtCU>AHpyMHhNCD00p+XxqZjrd}Ul8axvQXa=p0v%XxlQkFbRhg)W$6U<5lq3}LjN z1Lc1S`5{CASozzon$iD@qb*RJfJO3pX= z^&gIl+Cmk6kops;fFWlfmql-192HX8#l2zwZ4VEfhy7n_0UZhi^Q)J&*8c~3xAi}c z7dkomQ-#ofSdz=_)bPA>tb3J(T4nL&=k@YQeb^w0#L4xF_)AZA;?|WD=;1fX=X58J z1k1h@w#X-L4;)r(GGe*g*H6_JIc+N&DQ;}$>>1Znh1*;TJM~&#Rz!o%JD%@kQ#yG) z-JY+B1qt1Y$l>%d=Xo8kV?^q82_-qAwq22B2$LWSIZ&3pk>%>$SC7*(7kSm(p7WP@ z%{WJ=(`$Xch*yOQHoG?*lLx=6irR*2x)1O_f4lT(xHCNIe2wDmoR_)5YgTWt$IE&h zGgHUA47sfY&?KL?EI!V_e7?sy>~{}iY@cyIz~wzF?KjNIFgxkA2><}P#@lbq&a|y zP}-I6kw%{490kKN_Vm-IHej&HRQh!^1<<%Xqv&XxnFV3~> zxwBRmg_t~o@vFA8?mi&@{9^u5LSaX!_P(1x ztzdk+eg1q1>K>q5C^tZ-~7oxydB#2|l68r2BCIJPCaQ^nLy7 z7T z8ChJ~V*E=wo;db9CUPVmVyGUMl~=gz!2C*br?+Sz84jDOXky$_fT{$Fd82zhdAM0Su&MGqK3&iA1=>B)jok0 zJt9?6^I|U*QN{zcGz?!{&AdxZskN{?$xkhw{TH|C9=zmEuGV~j%kiQWY6C3{VVaA4 zejXoCs0|d#mr?S;z7<=_?p|r$swoj=`?(8)q*S)tO`Vt_SJj4->5HLKz`Ydnbc{JwyrgqqWZMH0X7fw_2>;A0R+TYR+;FFh@)?KUKj z1a!6>${06r;^8-<^kKKcOnO;T@!b@OG@@-8`j$N^%BOje6fB_5v+$aP2)j0TKbht$ z?Espsc<>{ES}+Hnr1`p`l5U}a2I!x~B)JcmwSa_HRs>T^u$Wes9Lhw}L|OLo*fwp< zNKZE+Mg<3+W>0tcdreHtee01!`Z=V;ATiz{W;8k^{D3Rx9YZB!i)x4oyvfRm%<~WT z?=Xq?d5op8e^yXaPR)#0S7nEc^(7oH^mJ!8DH?$1nQ7r~(xRb!+80j2%>{AuTU47( zBq`Sb65>(jd;FX~DKg+5;jHlilZJ46k<&Qz7X$sPmcQ>@S z(6(mKz6muSTQ8QX&nu`gYVgvoSo56l07#QEBh)mSG`js4mj}|k^!qQSA5&*#mWM-w z@qShqMPn&yYp5d6m-;Q&hX#v%$Secicq`6Zit7ShlR?uy7!nM+=03`D>nq_GmN%Na ziz#JBFdYH@28o5RHR@O?36E_J6DmW`^AxMiyjyrhWCl2fV9X5qqD@Z903aIxw>1L0 z4tEl4l^A^p6Bc}FFp=~=F;9ps^P;>Eb?Tax(hpFj5Vc0DKX32Mm$IA(Fm_%r<#x>H z6%jV2AIEvtHM2A{E6}(Qh5fs8Z)c`QS(TU=flxV|Q0dy7m4`PYr)4z%#hxrNnfOx1lMW~feD`Op z0e#j-&0HS*BCc2g^KYs{!A};Hewt5`Z^k>TsXlO*;@!NPx|<6}9^EOttlk6XrMG&t z@#wg(!$5H!K#>tyuK&p@_8=bv#L?{@-KqkXrNBmi7@$qB*WJ?|@6gWxF+igS6M$gq zdTuEAiq)r15>TqIpnunZQ5-xYf@ulV=%yKEtln+AfIfbsX6hivZSx7xOJCcF7woWl z_kk*0Kwgy1c+CTZ>e8gK3lX-MCr4W@Nbl`QSAYSau>hEX66O=2#V>8dsnSA&xdHN- z>QEt|K>>|FIq~s{KXj6Tm>nS&M0I8VI8@i`E6=?UJJ-W;XW-20eL^Q$o4K<#Jbm89#j-LoP>mC6X^wD2^^UGh2iuQu0t@C^`hugP%=jTks z8T_qJ7Y6^Ds`9|;&m;|`sz3p$DrjJ^;3oFQicaMkPNtxnbR^kO;MAF50LlNi z|7>E0r6E}`KVJKvFq;SrKSgrBTO|BMo)WJ!0(5$+NXiq86liO zdM=(n$@3$_lxxR_`+Cu(VKvVUK^o`tH^o_m=okL#rKr`2X$s;`VD9s%oswE`-^S3{ z@VD`&a@Ynr%$@J4yGP0qhRyAapL+9LHINpY=0->vt<3)aM+}y6E#3EMK}M z4DX5`E+Xi;^fi@vx-RxP+=_T{^K)BkTq0B+hd~U?JjRQrRF*htgT2w+zM5;B)wnkk z;Jr7|81_CNTV#*AS}HrV4tqw<4X=yAX#4n{QLO6w1EpS%M1LIGKn}_Nz0eBEi#TTa zbs;BIy}TPv68rXB_xcCmR`7rS8Xi-poRbVh7YT3+8TFq5Xz1YZ|Ht3oeJ(Y2SbhV@ z(Y%&y5!vK(g)J2RY|Q2_L=U4>#NfHH$o8Y*oym&$(P82dF9cJU@fhd&D>TZF&=ZHp zqvJml;^-JT=~CEGvwt$07v#iKuGTPx>ulSwv~xGUl@i^8H*F0_wI!{RardIg@0>v$ z6O{ed)tjmoav6ADNT*rEm0g=7x7RIAT5I^-TMHj)M!#HRHQL;gXS+hk0UDF)ayj}k zG7jc>rslM1>l4bktz3ul1MnoO8sR%>ci^#c;|Yn2G`0kHnv?>Z_@%2NNhBk9yROU) zpNm$z)rV@T9K;m9DbKi!dnc>pgDq%749VI z_qEi%Y5oUVfS0$A_Z;8R)A19WyuZ)vXOW`{j-A&BP^tv*Isrt1*uf#rK+=FWw;Fgm z`7y4?GLd;qT12pm=g1zM>i$Z&H_$fyz4iN`;G1DuqR1G$i1b?;P7`y_e0l^ zjxvrg3(2}_0}NU3XT0=k>QBdrTX+ehCaUA9U$Axx$m_HLQTscd!66uc+}i(aXNl_^ z!iWXxUcUIfo#pQ~1Rd#!*xR|7+PN60x;vOU>w!XCQRaUG)T%L)UjU@Cz?ckVko@Cs z5a=Yo6Gwk#O#aE}p-gH08X$QMWS4;Q4*&i;h540*2+BV-vbVSXH>vi|U1vmq+Nwa7 z8~)#%z>xy5F9%3r{4MyO5dW&grGI5AdpHEx-Z3&5?*GF1iugZD{FMazclzs}rXaD0 z8ND5Y0IM`b{R0Iz2?C_eKT>Ibq5Mjl`4i>Ookf4EQ)UVMZ~Kh?1o(6F#NPmjw!Z-W z-b(Q&>z|3&f3qSu{$~9%4f{`o!aov-|3>)e^b6r1KKR#k;y(fZOv?Qm(BJw02Jr6` z-9G{UOmzJl(AVV`;6Kw||789%rSflP<#)fB|0}`rPlP`+ss2Vt^Y|}>e+`g7f1>;w zAt>M%!vFfg@=y8yd-C)*FBlkY0yNlvO{M;1|KFFsf3lY({e%6l3!$P6G|-7bvotg? NbD)oUra}W}{|6WKF!ule literal 0 HcmV?d00001 diff --git a/Orekhov.xlsx b/Orekhov.xlsx new file mode 100755 index 0000000000000000000000000000000000000000..3ddc3d74993f4b35c67e51814c773f3b783c81c3 GIT binary patch literal 11085 zcmeHt1y@|z(stwS?iSo#gS$Jy-JK@52WbL90|d7qL4!+hC%8*PaCf%=FEjVvZ)P&{ z{epXUuXXl1Yj@S!XPNt-3Q*A409XJ#005u>m>p-@7(oC4anJw&762YnU&7hR z-O|b3Skv3Z5@^Wc<>)}32MtM=1Au(_|Nq8+@d=cD98&IPLzlXd{VB1@EWcDO3eSBM z(vQiYCfw1J*jHk%pJi+NoE7iedS92Gp!p=CtG z%i7z2NZpP{kl?1Ldy<1qB+5=;Z2ZA09q`Gupx;8zZ1*$p^J%AxiMmw1Z|1?V zF=p1!5)GyZnVbix+DFymmUB3b`S*z6@{C>h@%g7P`vVwI9eUp6ZAbC z-_n0~e3rZy$ngXV06afK0aX72%Q`JKs>>H!Q+z=k(hDq&-7Fn|tSrA>{|CqaVhsN2 z(aRE)RJz%a!%t*?Mhx7{EXSdXD|m{@exuL~2$EYutNW1uifFl=mKa@=@Ew#)U~9n7 z@8D&j5BmcY*XvwmQJC0*RP~)hT%hq}@JZ7$Du2W^?z3Dt!V;M>t zi*pqQSE!_?&LpeQ$5?a-5wHq~!*O4y2J7`H>HaXgt$>&j*ElK<|JuNtv!6JY9ypg= zxQ8MF;#WMJOvM=hnprPY_zgHvT-_0BY1r`Fel^Q-6QJ}qws7dUkW6pKdh}yf&KOXq zX8dC{*=o54zc9wi)v)jO2b!QzG{Zd3}o6za7_DE{y z*DPEjEN=EzgqeAca`qF|<9-&IcgKf2*~)X`KUNT3odKfYFsp)T2GL?hhS~9B$+9;{ zj0zM)B_?zystpOz$%eh3?CdPeg~U*{%A2I%H`(#cnl@n+q$YS@HjO@LR}vJUbEd_c z$KA{Bf|7Le_?KRh-uAImut(jBuhS-eLo8fLk7?XI$Tn$_!Ur)xEI2XPoBfQS-RR+Tgs?eBe!x*0mNBoy82 z8!nQ#&tlj0UTU4 z32qlWPIL+22k~yI4?co$wq!3uie8nw+uE7mlS3d7SjP&50 zAbC8k!tu;m9G94bUaK=x(MQP1Wk|Q%IZ3@7%?J(mnl<|-urst%iF1wp z=R!MJ-Nr|Lx`875Kqf$3RzN(p3&qM@hA4bp}u4jT=YzDmdecg?up zdxOB_UJt9Lc#*2FJ2c5EE>7{tJ94B_MlqSe7(QaQjl98&<3vZRSCxSQj|bos=Rowv z{HwYWEaWkcaqz%}n+p%&3X_dtQ0rS>=u!B3f94FwX{n-c(v03<3RhRI-ZuNS;WH-B zZSd^yTL(s04Z({--L&2;miV^&ch4J;#K@%4&-7`QF!e^VdQ06R6B*3ri@~Y&Awee! z)m6MvRZ!T=8Jo!peh$57J#{Tyo-OopiNizLgLZdAyhb9NTrDHT`)fA)8vM~v%iG@; z9yi?ts~BfWfq26jnK#SeXWUze>AAy!)t~nR9h;9^>*oXWQ4VK&G$K5F&Cyf4x3@OJ zu>txP?J@c}fr@m5h!x<@LYvybg_RdD{vEEt!XHyEURIi4Vj3X;9^wVA{|ak=2JL@B z9K;Lbd;$G`_b5|WQs`krZ$)~FVDn7(z`XQe#UIzWRTtfdFjP;drZt`IRa8@`!U zV1;rH_dXfv_qgFkU5CQD>SQc_j|uIAMPN{47^Om1hO5UUPo%#33Tg0Ubq$S+1 z{leYJBL-y10_hWgTY0J9v`*IC#UH-Yw}a1_hAvO6HV6A>{@G-@aS!!55CMQ=3IG8A z#TNeU;ej@mmhM2--zWCpTz!Tf*lA+`!yhd!5dG5W%L!ihwV8!sH5x>S1+RCqag0)ctAWkC}*lkDoPmeeFw+SFF4%2OD$S1trQgimU-Uay>ZJQTBjTZfm#;5t-U^T&@y@jilkIQZ zn?~$Bb#UD0W6mw4@ChacPNoiyiZ{m0t<=XhY=|`K&o7)uwdpaHwWJYPR$3vgRn%qy z>(R9ZE1!7VzIiXLqeK)Dl9U#K&+r0TF+GG@zu98#u7LM_FOGL6Y#&c6?Q|TKaag+g z^W(D7-ac{z0>dIZEvFzuhPK;#_PBgozwtjW8JaFwor%QcN4(Wop8NLfK&Halh+MK& z<)aq}&V14heAch?58&^#JFTTKtRM>bZcBC-&8RRv zm5yVPp1kRRN6fEB1TOQd-an4#M=nu#TjW5xk*g`72TTeUj0;f5!taH3eiD zIi3R2iew{TmvV3ma-qsbjk9^zg@d9{YwwnFGjTYI=hQ6}YsE9sXWN^(u1#-_O;yAy zkdY+sb=+9fg_Pe)-MQ<6NymyZ2g@g>T8c{DIMGF4$=xuVDG`W)jXhoTj?!EeA4R@) z>dmrD4aKfES54&BB>YIhTY0*E0`JPGXrMfY`De{6b|;}uX2FbFc^|4q3s6?B*dX0@ z#^j_oEy2$5hN2o&NS=CO+-A0vZ#?~PyNXH092vkq;pWs^Q;E!euej$j`(`cLMHZs( zGb=|yx18eyX@PbOzZgsNzNole3l!o zWhn-98_b+B7^Hgce8lV_x>n411~%{YJ^1#}`50eM6_ad|c)ONHnV9hXGj6#StiQp=cGB;Lvq+YAg;f+ zw?L%`k&2LbbV1XWmi*X|6+c^h=mJW217&)kc0xeKUr()tVt|O%sSPydJ)c;<(-p6d zdDy04hQrbDT(=xZIi7d00!fPKEZ)D>GXq#iEP&-b7qtmk zR^XsP7qj96(qX3w5r70-^~fcWLqPHC29|GfjKhpq2?o(efNO^1$Yhir5Kf6QcoL$q zOG>ok8J}ncyYi_SL^)4B%&Jcm8Cm4K726Ys7hj_<9Xhobj9R4+hIGdyDN%(eJ;azM zx`j3MR8`+LOg4nI0iABCy`D4@Qn=>ur_AaDW}T8})l1-Se(+HBwRC;!hJ$Fd##;j_ z#(l+@yg;Uhw%D*kX(Pt+e%l|`%>~WR743NTafwqB;^I}XZQbx>aDwkT!X?WNLhPkj z_th{k%m{H%CO8VY$FvyT0>4_^RFBHhCN-Gc30X6EPwX}edySzRx|U*IQNm3eBfrkS z?EV&=9oeOrh2hS6(1=DQVNer|)^ArYTrfI7l}|o^9K?xUlW)pe| zh1+ZlNsgsZ;`?4gT-zA3!q)O;qjmyx;<8i`YAGA%{{H?T?QJ#J=Dd2JX}7LYaV(GT zIA9zaAwsrf7};zy!FXcwIPrD%oN#^~=JC+5{lPSX8hE~57^Aae|6a+FjMrwe5=>Pb zA00E#7=TLwgt4NaNXPL0!L zYdbj5HJU9Izh31@*uqkVYuh4`U&55Mum*=-iW>qD*JrBTW`L>+4LA5Y9)Sq4 zzh=!Y$p=Mz7lC@TCpsu{2CdLP8Hy&DMgA-XMQ%uD#E&xO9Z39{yN6qn6L+w-arD4k zmd-)sqs)VJDo!@xIihZE9)=y4lG9i0!~7kJE?r5A=<~LgR$T#AD;1&6$)}`KQ~VoT zb8-Bp(@icO@A&9x$kI?pPT9I$x1mGjFdVwP;;s~AmZKsDwnf6c z3@Oa6>RZXA>p_@1Nne6Y<<@XDY(sFd$JK?==eky}_zHYkVq@$M5wEpfj}uRHW|tQ% z8V*2z;DN*VGSLZg85Q;G5tk5c?`cCH_;E=)$!bB{(W6x=v?@^o%A;I=ep=s}DdiPGJ6imMfgO?|;*P_w(C( zL}Snbw9vEWT+uP>t%2~!v--yI^9zgo`=<$X76`Nf2LMP?{+0#*ooBk+SUOs={(k+P zVjk)(I}tVEw6TtRl5ZPL4Da?QU|8m^cwvFr&8T~g)G-T8hY1j0S?bf_zOkshwu*uT z=kdZU{2ruV7c^)Fz79q>Ajg>a6_akvFXZkcwlP}ez4{P!~S<;7W`Qa?~c-;^u{u6ne z$|j4Gcf9(=vYT#9F2RtXpE9Nw&lY7LqEl~~5XLR?WnUTbeLyR*d72kpCwp=0&*d#+ zmgfNPU{a+bcf}T8#z%kH%vbXJ;p|xbdV;zLkJsRx6ugubgSN(&+iT9oC)lUw;Q?i3 zNM?$Z>LF->-m)#RIjjJlS3BP&kQHFi^s=0vTFzU)S+=Aju-8e|lk>6#rW(+&@gpc@ zoAKy*?%#AvbH6#@1r+kQK88P)Ul9OEV@)^dQ}RZ0v~P$^!=iD zM#XA=Ae1HtK*?X}@b>fBT>Ek(Ig8S_)dxF2m=@_)ox*-xKOnlbYj4H6W^RFyil(7W z-@RAPR~s9*ANW}Fnzlu^@aCV~b+oy9$L*8q%pV3he@HS%MI7)GPql4J7 z6ysoEFZI3}zqQw1F28bPsFesZBz$iPSw&zUlvm1XNbNSl@TPR)cEskJ@g_TOG|^I> zpqBglgOoAj7Qd&tl&DM#QFDP0{Wo7CzNDnD&#RDGxd&Yh`oQzJ|`xA@(csaFyL)sXafi}~!gmV1=&74;6lQ|z~Vzz@wb%8suT zk%oykBSLkpT4M1K`&p7Ch->mXZ>ruKyoyaRGw8W0fK(ZS-zXNLP;a&%MZkCN+(To3 zB~S!Lo9C#H7oWgN8TB9b##q>(U54)m(pslUN*(r}LyKeQQ&kw8LOG40`=bSP3~GCd z6!f^=q+@kr$+}3%dk5{(BCVZn`F9=NHCkvW8t4`>n=yW?hj}Y4W6fS8?wgGsK6V<4 zez|E5_YO5%pJz-?1VsKqR&-2WcX*WTKZMGLC}!5AQr>*26~F#8e2Xg#H^dle9hrz9 z<(P)nd7!-;1Fb0C&qr2uCWqlAn=2mbgQmJ5icOn2p z-rlN7A61B>;7tzh32+1>v)2d=Kv{w47d;E~(W{oSqjulUfS5DfG<+wwor1&%OFYfe zTE5)!_lTd?JS!hvbe51dtb2a(tlvs%Wz-twS$Z~coa&C+1a-Jor#3n%q=P5>9@<$Q z>qoZ0A=~viP0Th1l_q4La|Z44>738Y$!ajLjeW^%Mu4^A~D3 zh*A&yyS$-OeEi09!_pBPEaF!8X*H$#F|xV?)J#11tvNJaC)$isJ5Z%s)xaoJ?DC|m zMcoFeOdhG$tZWw1B)!=>3P9n>oAj7(R;O=nOXRi-VB8Ns8g>||fVWvlkE3(9N-XA+ zJuD+!5fwlA+)9S41Q!*q-R?FMP9LMK63%d7qLBFZWz|_f)=u#1Uauy)1swXH&~Wwl)r!?C8}azNpdlwx2gJOG^IB z!-jSfQ-yCv!ZZ4mHzaQLXpMdDhPK&T>Ns>!%Bp3C!qrxSBdXT#C{xtEZb0ok_lsT->RL!pAKs>4VxqGb*miP!*Ja3K#kO0BAj8?( z)pk++uwAF8&tgoLewSxkfYa*GT(cLUzlBtGt~G6zw0&I4-_RuQfnGdnxxPI21XW0C zHJ_Hj*Gu;dY8Pwyp}TmtHj=YJj&BwmN?c#Y-m0Y)p7&e4-`#B43aj|eE@&`X0+9?@ zobF)jo(&nb8^fKBGNegUp09J!>ofYI`+f=SUYpK-(xs;Txfmt)qR=< zg-D@urVwZC0uY?*u8ih8wS?roZD5(iV~`t`!+cT{P;Ph>UgtFEJbhnaSFoQ#Sm#kN zT`|KT){cAIs(ed7uAxReJsC?4>mtyTyg-Xp=)X}D>Gc-iVLiOT!D}q>@x#rCHI|r- zKTmuBb8z^5K0F#RLTy)oDhk-NVfqN>N}c;~M&U!I{I_Y8gVwJoQ6B!|Pty`bu*B{@ zt(`fz$@_*KT8|#()5n_41wQ#J2ykNUix&_X%pyCdxcNXQE2KuQmgC2l$p3dv&@>?P zgY>1kF!{2I@-I#RboX|!1pbzA`mCkk1ZG2D#@i)Y$fo_LGbBylosiP!oLn2$=mpgkVgTs1&&KC&^K?t0#WLAwS2#@>6i3r*Z-0<_l5VC1!%kaL zh$)mb8S-X+KgronNzQhOy7Q3^zORj3aUIo^=6yQ^hGaW<+9+32iAkSh^sv6SOBTCk zC`mJoiC@*R3xi%2E9Pw|VJq6CULc6-O>UA}(rX9+qmv?BO4BS4P{TFgV95mXS?TyrJ)?y8@E2 z-!pz-`iRPbClK{2#DjL!t`ylvs#g0XvxqX}%yH*{r81I-JQSA|QTkYw@g1os8{K=( z`xp}$plA-tjUePsXib4tAjvnhsQ~0q^9;1=NrGzVP4h3w{9bD9Z9isD{Sf3&=0gr* zi*(W)y6H#_PQgLC)tb$rql*H4e=` zNw){>V1K+|obz`sg_~Cj+mznyGD@Zo7xrlS!MaBASlxZVgBl2$HAOQ~2|jP{&MOpH zeeQRZ+)r~Jm@kZk@%?)1e&YK4H z4Vw$ZRN{{ZVpXWNG8JR$Ee|aZZh@Z9wl_ylPB%CL4Js6RPWTOqPoGVK40&V_pp}DX zKeTBRN7&?qCTLr9A6<2(u5a8^GcQPYeBD)Pwc`C=k4`UKVa!($ZjSek=Q=EyC7gB9 zCV3qV@4|YjSBlg-(M0%6x`^w#@XT+mH~-?!EMDau9p5t_e#bL=0QecH*o7~R098Wo zCiZC1n8cBu)Is3hF&6TO;>MN>b#$HW^n8l^Qrev3jAmnMerSVDFIwgziZ2#!X+tJv zuLG^yX;tw2Y?wogKk-5Dh>@#SJl^CXUFP;d{~CAk3Y3=|9EOSZcdng$?#3Vgu_igjqrhbRvhwbw z$bs=v&4%4~0<)64*{1X?n_6%rYN>+? zP5a)HfLms7=r(P7i zxztGx`FD0ir}r1?xRU9m1}0*=uXO>}hP*v6HeDc^Mu^2c+C1ij2~v7eiyx5qy>Su{ z28@UNq))SUabfp$x#h?or3!VrEEX3@stJzXxB7gkHhQC#qybZova!<5J9RO{Q<8aR zrGu?X$VsS%Aeq8ZzOsL{ZF^x*$qa0nJxNcwuX!q-V<#<6`>-v!_eJ+f2+E`SzSPy& zfuIsZQ7F~eNv-hxAj`pT6A7{yT}!&@evO!Dc>abrs+5G&W0u0G~T0$Cbr z9W}1c>jeDS_#Yv-9l{lv{$iEC#WVCjTcxRs%m0k><;ea$G7^-23+rJwFg|d>51-uh zpu@!2=`wJ2xr!kK7gWB)OKDOfxKYk8*MUiM@%Gr)i7a1H#4K6NEdLa0x#J^#+hm_! z*8Qo>GwjotTYN5OTdk8m2t2Y=gGQ+UT@l(R$kaoc*f{OHQml0eL8Yrmpx>woN~2@? ztXSBGI~fg*5lo6@MlW(@^w-jTr}JZ}VOKV5=Ps;=B$u&D2uVhQU4TX4-gs&D{>oNTNh-5@rFeP4nbKG^5p~fi|%&(lT@sNu(J3uPGk}(RnGQAox&|O>@4pF4hoiZq$n7BW+X)}T@5zqYOh1jB7ilR5> z>DN!~NUvibCmSG^vWWV3qu#DeInLiQlKU<0+Nzb?gWjCe67vQy726wGIrt=6qBuou zC2m{hw}*Z^Te|vbmfSvcXHUybosFh1^5RJUMb01~nP1|^KQ}J^=LP;}{)aY3RfWGQ z_-l*Re*}MiM-Y z`iG`0klokc>kCM`&GfOB>4{ogk--f_=7V4D*7ue_(RnEB@6d* z62MJNormal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ +2dda1d801f63"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, + 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ +14a272e65d1f"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ +53babaa73a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ +7d040d3b48f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ +63ec36d318ad"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ +c117a27ff3e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ +598d0b6835be"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ +45830eedfe9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ +303d815946e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ +1a175f609f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918493065908413`*^9, + 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ +4de4791db2f4"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, + 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ +749729cd7104"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ +c889dba5c0d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ +23ddab00799c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ +31d165f1571c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ +e4dea0353ed0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ +547e3a6fa152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ +c3e0f6ab8836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918494889040737`*^9, + 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ +e20e260dbdcb"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, + 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ +c31719ef3a6b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ +8a461d652ab4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ +6a7de047241d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ +ae1cb915c656"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ +0895c02ffd8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ +bead95265db8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ +f19508c6d2f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849569404436*^9, + 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ +346c5f5ac532"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ +5e950c758893"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, + 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ +e7a6896afd10"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ +4493-2440-9c51-9fca28ce324b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ +bc75-4047-98f0-7a0dede3f8a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ +3d78ebb0f21b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"42c1a263-2456-664a-bb33-c5fe841cb412"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ +12d8b19f0936"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d3cb6fbc-3803-0541-80d1-8cab47341c44"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d8687e0f-2f42-0543-a749-78a1ff3c9572"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ +c578eb57eb6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ +562f8b3faecd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a2ecd22c-b766-5347-9e03-9d459620be75"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ +77ebd1a3e048"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ +8e83e9537fdc"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56921c73-2b67-0e4a-9808-5f61de992c7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ +3471356a3614"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1795c3b9-0182-224c-b986-6414d6712c04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c3b31753-a67f-9b45-b822-068e1df11f68"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ +286954db37c5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, + 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ +dd2997d3499c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ +22d7-2843-88e3-f607b95c8af9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"def6b331-c871-b04d-a16e-4fc00b03d009"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ +6af3-374f-9eea-9c2b6faaaf4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6c8676e-4601-144e-b83c-769e22949175"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ +05d6af1a6e52"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0b8c0718-41d2-4542-8afe-212a15805650"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ +f69c33a31448"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b6f0ccc2-ff83-124b-a341-e143319c7670"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ +194fae57c34e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7797a546-4085-124a-83da-5f3c472cdc4c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ca7472ca-7b27-a54a-84a1-e603fa592207"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ +49e8ffb5e8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ +494cdae35e56"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b9265795-17b8-4e47-bd29-fee31586537e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"072fb53f-7116-0f41-a298-6891351a3192"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"01995149-3665-fe4e-b326-b20429031afd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"52cff8eb-0c77-c944-a54f-e282b00ce766"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ +062a3c04ed96"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cb5a1193-7562-6446-a279-d9f6295d156e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ +3382e7679ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4cd45900-7eb0-6b4b-830a-a339e8117392"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ +2462b23d6249"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"61220452-df6a-154e-8b5c-fecd0ab287a1"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, + 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ +e661a25a7ba1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ +7798-8b45-a769-075ac4b3983f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ +00a8-f540-98a0-89164ac4bae9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ +af0307420662"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b82c1933-5313-1d4c-a858-68be8f118333"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ +34313c6ec04d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ +ad38cf07d634"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9c6ce535-b42f-3c43-a89e-eda48c04121e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ +8b4ad9ffca61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ +6a3bc399953c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"71d4e039-c2b8-d74d-819a-80d2051e4273"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"63625e13-15ef-1f45-89dc-998a1b63a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ +5dd8190b0268"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ad8c79e-9570-a44d-b593-07aa87056e21"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ +98d71f8a8458"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c516c31a-74b4-f24d-a16a-678221cde87e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5c50b555-9ebe-f94d-801f-34634555f622"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ +57c1fe1d0585"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbafd11a-4be0-b541-81e4-e62191ae7695"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb new file mode 100755 index 0000000..f12ae18 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb @@ -0,0 +1,14427 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 585889, 14419] +NotebookOptionsPosition[ 544146, 13754] +NotebookOutlinePosition[ 544605, 13772] +CellTagsIndexPosition[ 544562, 13769] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{3.9913196497381973`*^9, 3.992179197984804*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"4a4f3c62-bf4d-4f46-b820-7316e2b63cd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{3.992179213346216*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"56a25e73-0044-2e4f-a1d1-08f8b605dce1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{3.9921792420000687`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d4a79d0a-c33e-7b48-a36a-baaf07895183"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel->"In[4]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{3.9921792398346214`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"240ba6c8-e382-9640-a885-b1b92fc93d62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.991319786533783*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{3.992179336847067*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"ce192b42-76d8-3a45-9997-3705d5a92d64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + +Cell[BoxData[ + RowBox[{"94", "-", "Z1"}]], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.9921793318030663`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"48127ebb-1887-da43-b821-cc9188acc232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + +Cell[BoxData[ + RowBox[{"-", "2.5634426229508196`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, + 3.9919752200326233`*^9}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{3.992179393619543*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7e065166-098d-e64d-9755-0343fb91a7a3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{3.992179401201977*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"4568959e-8357-a941-86ee-9e0738db37d0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{3.992179407540327*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"d1e0c0fb-c1fe-474d-b753-e32fec84425e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{3.992179415754301*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"5fde13cb-ad9a-b942-b5e7-0bfb84635642"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{3.9921794257836323`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a896dc51-a614-1542-a083-12b1fd350591"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{3.9921794363325005`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a1160edd-29d5-0643-a9b4-2a0c8687671e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{3.99217944657938*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1d096934-3f2c-d145-a3ad-71fe8ddc39c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{3.992179452410452*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a2d62cc7-6150-7e4e-87be-073edbded81e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + +Cell[BoxData[ + RowBox[{"-", "32.27220689122579`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + +Cell[BoxData[ + RowBox[{"-", "81.2532555132978`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + +Cell[BoxData[ + RowBox[{"-", "38.89688349410641`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + +Cell[BoxData[ + RowBox[{"-", "199.04976850122156`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + +Cell[BoxData[ + RowBox[{"-", "10.968150500985438`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + +Cell[BoxData[ + RowBox[{"-", "30.737279670206195`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ +843ffd08641f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184866880085*^9, + 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ +bfa63ff56738"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ +5501c3a85c24"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.99132042159643*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ +f8e668175458"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, + 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { + 3.9920915619364376`*^9, 3.9920915885645847`*^9}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { + 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, + 3.992091588571615*^9}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, + 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { + 3.9920915619686337`*^9, 3.992091588596325*^9}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { + 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, + 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { + 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, + 3.9920915886284447`*^9}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, + 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { + 3.992091562006651*^9, 3.992091588636162*^9}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { + 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, + 3.992091588657053*^9}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { + 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, + 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 1, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 2, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231788826`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 3, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423191887*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423200884*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ +ca6cc08b08a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 5, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 6, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132042625132*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 7, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426261322*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426270418*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ +8b70b5354bda"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422974, + 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7142433994369213}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ +0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 17, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042538757`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229043127804`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 90, + 21, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 22, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132366476486*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 23, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236647877655`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236648078594`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ +540622282b2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 25, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 26, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765679016`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 27, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323676587904*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236766039066`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ +4bb381db84df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 29, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 30, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884141064`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 31, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323688443001*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884570007`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ +1b0781de8eeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 33, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 34, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698943981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 35, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698971981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698986994*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, + 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ +bf0dbc996ac3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ +6ffa36275fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 109, 37, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 38, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323707545618*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 39, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075757256`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075926247`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ +1ab9142a9a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 110, 41, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 42, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162070637`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 43, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323716227171*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162481613`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ +ff25938e6592"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5082122808512888}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 112, 46, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461217346`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 112, 47, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461427383`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246159645*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506856045*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068640423`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ +122296a3d634"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 61, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 62, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513053705*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 63, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130617065`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513069849*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ +9c68738afe07"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 65, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 66, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520226103*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 67, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265202341022`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520242243*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ +766f96e6af5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 69, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 70, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264535427`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 71, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264615555`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326526468542*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917998836260815`*^9, + 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ +14ef82ef0962"], + +Cell[BoxData["0.13787921511838797`"], "Output", + CellChangeTimes->{3.991326529975149*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, + 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ +0f56a212e9c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ +a97b5c6c44f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 135, 73, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 135, 74, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304013824`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 75, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304095325`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304175396`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ +bed1f30b804b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 136, 77, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 136, 78, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340202503`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 79, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340282536`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340354958`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ +eac61b5b75d3"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6007907022525477}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 95, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097784023`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909786396*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ +22c641e38d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 97, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 98, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916018362*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 99, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279160263577`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916034359*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ +4f0fc7048689"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 101, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 102, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327922975607*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 103, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229836063`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229916077`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ +32244819d42b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 105, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 106, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928864023*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 107, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928871004*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928878006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991800029528055*^9, + 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ +f0a7464dc747"], + +Cell[BoxData["0.08333108480569339`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{195, Automatic}, {-0.75, Automatic}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[994, 36, 248, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1245, 42, 174, 2, 25, "Output",ExpressionUUID->"4a4f3c62-bf4d-4f46-b820-7316e2b63cd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1456, 49, 228, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1687, 55, 150, 2, 25, "Output",ExpressionUUID->"56a25e73-0044-2e4f-a1d1-08f8b605dce1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1874, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2052, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2241, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2501, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2706, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[2840, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3031, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3310, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3514, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[3774, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3978, 132, 242, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[4223, 138, 167, 2, 25, "Output",ExpressionUUID->"d4a79d0a-c33e-7b48-a36a-baaf07895183"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4427, 145, 244, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[4674, 151, 167, 2, 25, "Output",ExpressionUUID->"240ba6c8-e382-9640-a885-b1b92fc93d62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4878, 158, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[5010, 162, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5198, 169, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[5330, 173, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5518, 180, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[6078, 201, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6284, 208, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[6844, 229, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7049, 236, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[8544, 286, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8748, 293, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[10082, 339, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10304, 347, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[11638, 393, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11862, 401, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[13357, 451, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13560, 458, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[13694, 462, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13882, 469, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[14018, 473, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14208, 480, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[14345, 484, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14537, 491, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[14759, 497, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14964, 505, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[15101, 509, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15293, 516, 326, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[15622, 523, 149, 2, 25, "Output",ExpressionUUID->"ce192b42-76d8-3a45-9997-3705d5a92d64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15808, 530, 297, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[16108, 537, 198, 3, 25, "Output",ExpressionUUID->"48127ebb-1887-da43-b821-cc9188acc232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16343, 545, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[16565, 551, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16753, 558, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[17106, 570, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17313, 577, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[17666, 589, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17889, 597, 975, 27, 67, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[18867, 626, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19073, 633, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[19275, 638, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19463, 645, 333, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[19799, 652, 152, 2, 25, "Output",ExpressionUUID->"7e065166-098d-e64d-9755-0343fb91a7a3"] +}, Open ]], +Cell[19966, 657, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[CellGroupData[{ +Cell[20145, 664, 332, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[20480, 671, 152, 2, 25, "Output",ExpressionUUID->"4568959e-8357-a941-86ee-9e0738db37d0"] +}, Open ]], +Cell[20647, 676, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[CellGroupData[{ +Cell[20826, 683, 337, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[21166, 690, 152, 2, 25, "Output",ExpressionUUID->"d1e0c0fb-c1fe-474d-b753-e32fec84425e"] +}, Open ]], +Cell[21333, 695, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[CellGroupData[{ +Cell[21512, 702, 360, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[21875, 709, 154, 2, 25, "Output",ExpressionUUID->"5fde13cb-ad9a-b942-b5e7-0bfb84635642"] +}, Open ]], +Cell[22044, 714, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[CellGroupData[{ +Cell[22221, 721, 307, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[22531, 728, 157, 2, 25, "Output",ExpressionUUID->"a896dc51-a614-1542-a083-12b1fd350591"] +}, Open ]], +Cell[22703, 733, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[CellGroupData[{ +Cell[22880, 740, 313, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[23196, 747, 157, 2, 25, "Output",ExpressionUUID->"a1160edd-29d5-0643-a9b4-2a0c8687671e"] +}, Open ]], +Cell[23368, 752, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[CellGroupData[{ +Cell[23547, 759, 314, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[23864, 766, 154, 2, 25, "Output",ExpressionUUID->"1d096934-3f2c-d145-a3ad-71fe8ddc39c4"] +}, Open ]], +Cell[24033, 771, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[CellGroupData[{ +Cell[24211, 778, 283, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[24497, 784, 153, 2, 47, "Output",ExpressionUUID->"a2d62cc7-6150-7e4e-87be-073edbded81e"] +}, Open ]], +Cell[24665, 789, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[CellGroupData[{ +Cell[24846, 796, 19809, 485, 1137, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[44658, 1283, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[44862, 1290, 19748, 489, 1163, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[64613, 1781, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[64818, 1788, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[84569, 2273, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[84789, 2281, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[107326, 2836, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[107545, 2844, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[130083, 3399, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[130305, 3407, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[155799, 4035, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156020, 4043, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[156153, 4047, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156341, 4054, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[156474, 4058, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156662, 4065, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[157809, 4106, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158013, 4113, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[159057, 4150, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159278, 4158, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[160425, 4199, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160631, 4206, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[160742, 4209, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160948, 4216, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[161059, 4219, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161283, 4227, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[161394, 4230, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161616, 4238, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[161727, 4241, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161932, 4248, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[162042, 4251, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162248, 4258, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[162358, 4261, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162563, 4268, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[163063, 4286, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163286, 4294, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[163786, 4312, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164007, 4320, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[165798, 4382, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166003, 4389, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[167107, 4427, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167330, 4435, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[169151, 4498, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169354, 4505, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[170988, 4560, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171194, 4567, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[172828, 4622, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], +Cell[173010, 4627, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[173160, 4633, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[173316, 4638, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[173466, 4644, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[CellGroupData[{ +Cell[173645, 4651, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[174945, 4695, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175153, 4702, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[176064, 4735, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176271, 4742, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[177158, 4774, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177368, 4781, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[177929, 4802, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178533, 4816, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[179201, 4840, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179792, 4854, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[179965, 4861, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180579, 4875, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[180818, 4883, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181369, 4896, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[181595, 4904, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182181, 4918, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[182365, 4925, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182969, 4939, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[189027, 5126, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189612, 5140, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[189983, 5151, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], +Cell[190519, 5162, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[CellGroupData[{ +Cell[191036, 5176, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[191593, 5196, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191796, 5203, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[192418, 5225, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192623, 5232, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[192792, 5238, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192996, 5245, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[193165, 5251, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193368, 5258, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[193548, 5264, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193754, 5271, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[193934, 5277, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194139, 5284, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[200193, 5470, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200401, 5477, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[200768, 5487, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200971, 5494, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[207092, 5682, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207299, 5689, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[207666, 5699, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207871, 5706, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[210533, 5795, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210739, 5802, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[213341, 5888, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213547, 5895, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[217258, 6014, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], +Cell[217442, 6019, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[CellGroupData[{ +Cell[217605, 6026, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[219660, 6087, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +Cell[220219, 6101, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +Cell[220781, 6115, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +Cell[221343, 6129, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +Cell[221798, 6141, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222003, 6148, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[224060, 6209, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[224619, 6223, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[225178, 6237, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[225740, 6251, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[226195, 6263, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], +Cell[CellGroupData[{ +Cell[226398, 6270, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[228339, 6325, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[248602, 6708, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[250699, 6770, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[251199, 6783, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[251703, 6796, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[252209, 6809, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[252667, 6821, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], +Cell[296313, 7586, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[296548, 7594, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[CellGroupData[{ +Cell[296782, 7603, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[296997, 7611, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297202, 7618, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[299019, 7673, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[299527, 7686, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[300039, 7699, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[300550, 7712, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[301008, 7724, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323444, 8143, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[325059, 8192, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[325643, 8206, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[326230, 8220, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[326823, 8234, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[327281, 8246, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[327487, 8253, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[329739, 8319, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[330299, 8333, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[330862, 8347, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[331425, 8361, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[331883, 8373, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332089, 8380, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[334313, 8446, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[334870, 8460, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[335433, 8474, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[335996, 8488, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[336454, 8500, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336660, 8507, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[338886, 8573, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[339444, 8587, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[340005, 8601, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[340568, 8615, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[341024, 8627, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341228, 8634, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[341444, 8642, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], +Cell[341628, 8647, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[341900, 8656, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[342457, 8676, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342661, 8683, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[342830, 8689, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343036, 8696, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[343220, 8703, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343430, 8711, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[349488, 8898, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349697, 8906, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[350068, 8917, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350275, 8925, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[356400, 9114, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356612, 9122, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[356983, 9133, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357189, 9141, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[359855, 9231, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360065, 9239, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[362671, 9326, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362879, 9334, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[366594, 9454, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366802, 9462, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[368857, 9523, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[369432, 9537, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[370008, 9551, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[370589, 9565, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[371049, 9577, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371258, 9585, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[373315, 9646, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[373890, 9660, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[374468, 9674, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[375047, 9688, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[375507, 9700, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375714, 9708, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[377747, 9765, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398161, 10154, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[400282, 10216, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[400784, 10229, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[401291, 10242, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[401801, 10255, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[402259, 10267, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], +Cell[424655, 10685, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[424832, 10690, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[CellGroupData[{ +Cell[425066, 10699, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[426685, 10749, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[427282, 10763, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[427879, 10777, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[428480, 10791, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[428940, 10803, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[429148, 10811, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[431398, 10877, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[431973, 10891, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[432549, 10905, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[433130, 10919, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[433588, 10931, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433797, 10939, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[436021, 11005, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[436594, 11019, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[437170, 11033, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[437751, 11047, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[438209, 11059, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438418, 11067, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[440642, 11133, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[441217, 11147, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[441795, 11161, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[442376, 11175, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[442834, 11187, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443044, 11195, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[443260, 11203, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], +Cell[443447, 11209, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[443717, 11218, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[444278, 11239, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444488, 11247, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[444661, 11254, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444869, 11262, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[445053, 11269, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445263, 11277, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[451321, 11464, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451533, 11472, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[451904, 11483, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452111, 11491, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[458236, 11680, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458448, 11688, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[458819, 11699, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459028, 11707, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[461694, 11797, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461904, 11805, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[464510, 11892, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464718, 11900, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[468433, 12020, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468641, 12028, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[470696, 12089, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[471267, 12103, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[471842, 12117, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[472419, 12131, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[472879, 12143, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473088, 12151, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[475145, 12212, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[475716, 12226, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[476291, 12240, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[476868, 12254, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[477328, 12266, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477536, 12274, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[479569, 12331, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499566, 12711, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[501687, 12773, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[502186, 12786, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[502690, 12799, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[503198, 12812, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[503656, 12824, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[525392, 13230, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[525576, 13235, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[525808, 13244, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[527427, 13294, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[528019, 13308, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[528610, 13322, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[529207, 13336, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[529665, 13348, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529875, 13356, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[532124, 13422, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[532693, 13436, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[533266, 13450, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[533843, 13464, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[534302, 13476, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534510, 13484, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[536734, 13550, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[537306, 13564, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[537880, 13578, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[538458, 13592, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[538919, 13604, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[539127, 13612, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[541353, 13678, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[541923, 13692, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[542497, 13706, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[543073, 13720, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[543532, 13732, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543742, 13740, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[543956, 13748, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ +6f058773310c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, + 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ +c82e80965ca9"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ +c44fbe83a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ +656c90598e75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ +62296271f174"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ +2171e7786920"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ +09454f88e7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ +e19335f7a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ +fb8d284b16bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849803549658*^9, + 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ +f67bfdbd9bc7"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, + 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ +e87abbd4c41c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ +7e9487f745c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ +18c538c3321c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ +a45df2eabf0c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ +30286a178ca1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ +fc6fb6cd41f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849908545643*^9, + 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ +684ff23ed035"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, + 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ +85227a6e6b51"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ +65328572e509"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ +aa229443ac14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ +9a77a5dc787c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ +2e1269faf5ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ +93b70f20e7f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ +cdce838d9efe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ +533b19d33de6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918500011025047`*^9, + 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ +cedeeeb0247a"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb new file mode 100755 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ +406cf54e52d1"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, + 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ +7bcc4af89c62"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ +1a154ab4a709"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991848926103155*^9, + 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ +b231aa8028b9"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, + 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ +0ec5d19a7879"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ +3e066daf15d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ +dd23af9a4471"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ +3cf1fdaf28d9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ +4070462057d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ +7a397847208f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ +f1f0210d6caf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ +d3e8d1574bcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918490375675926`*^9, + 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ +76bfd8e40ccb"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, + 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ +6604b8708636"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ +804123b5ccd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ +b799ae260294"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ +7fa9a2a651b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ +0d2700971836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ +5a08f479e656"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ +ed18c097f8c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918491594691143`*^9, + 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ +6d96abe14e67"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ +299085c765cc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, + 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ +8fab318cd4b7"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ +4265c9fafb97"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991850221900238*^9, + 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ +781173809e57"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, + 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ +092e912c15e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ +9afb90e551d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ +e3924f732df2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ +56c89a9b7467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918503106317043`*^9, + 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ +2a98ba29b602"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850318596199*^9, + 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ +68452b971319"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850325611994*^9, + 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ +b41cb2f3fa92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.99185033265069*^9, + 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ +aca0f3e8a35b"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, + 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ +a3711ba632a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ +cf1adc0753dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ +97489285cc9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ +5ac1cacd7190"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ +0aac70483e3c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ +53cfa72184b4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ +07bad9ba3e82"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566a849f-fc85-4d42-a545-a46d44cf7346"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ +f29bb610eb30"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb new file mode 100755 index 0000000..4a49d50 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb @@ -0,0 +1,11498 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 543093, 11490] +NotebookOptionsPosition[ 532093, 11292] +NotebookOutlinePosition[ 532734, 11315] +CellTagsIndexPosition[ 532691, 11312] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.9921644827731*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ad4fdcf9-53d2-f145-9cfe-6a652f102b3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9921644831432858`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9300781f-9afb-9448-b298-fd876fd535b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.9921644831832867`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c09add3f-60ab-e54c-a75f-a08ccac9cb80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992164483217287*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"59f7de11-d07a-fa47-82c0-2282fd4b0e40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9921644832492905`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"ec2a8a57-2cf3-d345-a77d-af4d96546b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992164483285284*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"510ec29e-dcd9-7048-ac5e-512da0cf016f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.9921628189929237`*^9, 3.9921628202493343`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992164586428604*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f3ce5b6f-986e-b845-8e60-92593269ecec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9921628262044086`*^9, + 3.992162828024767*^9}, {3.9921645164814224`*^9, 3.992164518792364*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9921645866084785`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3017a89a-dccd-c142-8c57-f113cc6a629d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.992164586638777*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"df7fb28c-fd1b-5244-a619-8363912e0051"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9921645866427727`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"e8b1de41-9edb-1b4d-adeb-2dc63058bc1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992164586672804*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"83f02113-acc1-bc47-8d6f-20079637dfe7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992164586700796*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"953a0163-33ee-0f43-8541-ed6074ba61b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992164586703802*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"81de82b0-d3e3-6042-99ad-2c0e926e017b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7876"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9921645325787754`*^9, 3.992164553867136*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.7876`"], "Output", + CellChangeTimes->{3.992164586733795*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"206fcf5a-1228-cf44-bb11-3fbcf5f0b882"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4463"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992164547907772*^9, 3.992164549925516*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.4463`"], "Output", + CellChangeTimes->{3.992164586768795*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"539f4b99-f4cd-e249-aef1-ae826fce11c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9921645867948685`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"39daedc0-f31e-4340-a35b-004f6b40ec4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9921645867989273`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"2799c350-0f70-d94e-9eca-8e4b6896ba1b"] +}, Open ]], + +Cell[BoxData["8"], "Input", + CellChangeTimes->{ + 3.9921655102428894`*^9},ExpressionUUID->"a7f6de2d-0c54-e74a-b7d2-\ +d9434baefd68"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992165584812992*^9, 3.992165628972353*^9}, {3.992165710096678*^9, + 3.992165714883892*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.9679114273128215}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, 3.992165520280733*^9, {3.9921655924327106`*^9, + 3.9921656296679287`*^9}, {3.9921657111669273`*^9, 3.9921657156549263`*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"ce0198a0-78ca-e145-8120-fc7eabacae13"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.992166057832285*^9, + 3.9921660633452206`*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.1299335613993551`\\\", \\\" \\\", SuperscriptBox[\\\ +\"2.718281828459045`\\\", RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.1299335613993551`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\ +\\\"0.4023668639053254`\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.5`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.1299335613993551`\\\", \\\ +\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"47\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 1, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992166090223921*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"8a1ca449-8ade-e546-aba0-d9eaceafdc8b"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8708347117234477`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1433871617874625`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992166090324852*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4179cd76-b416-dd42-b386-0c47b2d2830d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9921660761217575`*^9, 3.992166081873684*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.49680479358576957`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"22497.02898178406`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.49680479358576957`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 28, 2, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125235776978`*^9, 3.992166090439041*^9}, + CellLabel-> + "During evaluation of \ +In[28]:=",ExpressionUUID->"55e1fa9b-3f66-b14c-835a-80c79c94d039"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8708417363423178`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1433869992971433`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9921660906190414`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"bccd2d3f-ff04-d740-a952-a694e24bee97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.73"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, {3.992166236170164*^9, 3.992166240880272*^9}, { + 3.9921668853751316`*^9, 3.9921668867027836`*^9}, {3.99216700439213*^9, + 3.9921670140922184`*^9}, {3.9921679301088276`*^9, 3.9921679856468735`*^9}, + 3.992168435502323*^9, {3.992168492803892*^9, 3.9921684939459896`*^9}, { + 3.992168525617737*^9, 3.99216854920619*^9}, {3.992168713847084*^9, + 3.992168716808363*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9921662621230106`*^9, 3.992166324418976*^9, 3.9921668885385017`*^9, + 3.9921670171260605`*^9, {3.9921679310032806`*^9, 3.992167987749914*^9}, + 3.992168436728285*^9, {3.992168501573597*^9, 3.99216855486648*^9}, + 3.992168717735914*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"3803d881-b189-8048-84ea-7d7615e7429a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.76"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, {3.992166246661829*^9, 3.992166250558117*^9}, { + 3.992167844149521*^9, 3.992167844487095*^9}, {3.992167900704691*^9, + 3.992167915986267*^9}, {3.9921679740963593`*^9, 3.992167980344982*^9}, { + 3.992168430095152*^9, 3.9921685136438465`*^9}, {3.992168552036869*^9, + 3.992168566056875*^9}, {3.9921686976721554`*^9, 3.992168711650463*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992166257987089*^9, 3.9921663244690895`*^9, + 3.9921678478409233`*^9, {3.9921679053739796`*^9, 3.992167917063181*^9}, + 3.9921679900955524`*^9, {3.9921684386424446`*^9, 3.9921685147708435`*^9}, { + 3.9921685527504635`*^9, 3.9921685667044125`*^9}, {3.9921687030282383`*^9, + 3.992168720067934*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"d2deb25f-9225-2d42-91e9-938274abf369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, { + 3.992166351518507*^9, 3.992166369071926*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 2.8964519334709053`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9921669732331104`*^9, {3.992167022821558*^9, 3.9921670389680557`*^9}, { + 3.9921678504238663`*^9, 3.992167868550827*^9}, {3.992167908070513*^9, + 3.992167961632416*^9}, 3.992167992262882*^9, {3.9921684432304516`*^9, + 3.9921685692228985`*^9}, {3.99216870462418*^9, 3.992168722644966*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"69be3b89-cf1a-734d-887e-7df7742e3c43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.9679114273128215}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9921678686338215`*^9, {3.9921679519729233`*^9, 3.992167994681988*^9}, { + 3.9921684457816715`*^9, 3.9921685720549984`*^9}, {3.9921687068610306`*^9, + 3.992168726508318*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"ebc68bb8-e46a-8c43-bf69-94b7a8f95558"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9921691246271114`*^9, + 3.992169135592695*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 0.9368525344691919}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992169119526289*^9, + 3.9921691368135223`*^9}, 3.9921715327299824`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"d6fa2f2f-3c56-3b4f-9f31-e6a5e4332e51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.9921691524763126`*^9, + 3.992169157715704*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.028715317069257486`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.028715317069257486`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.028715317069257486`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.028715317069257486`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"6.021057959004712`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 113, 3, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.9921691706135864`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"0015c752-5462-024f-a5f6-0bb14ac8a9f8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.504446945209379`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.5444518632038227`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.992169170680586*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"fd74a600-672d-fe49-b17e-345cc41e2a51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.4"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, {3.9921691763354073`*^9, 3.9921691796369476`*^9}, { + 3.9921716105656605`*^9, 3.992171616758772*^9}, {3.9921716680761127`*^9, + 3.992171668632452*^9}, {3.9921717246874504`*^9, 3.992171724757452*^9}, { + 3.9921717940147095`*^9, + 3.9921718248897896`*^9}},ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-\ +1041e5611e26"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.992169197781002*^9, + 3.992171633165718*^9, 3.992171669691431*^9, 3.992171725638872*^9, { + 3.992171794599943*^9, 3.9921718074488983`*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"593f0234-9885-574b-abab-682d67c1a482"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.105"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.9921691817741833`*^9, + 3.992169193628704*^9}, {3.9921716200213947`*^9, 3.99217171365382*^9}, { + 3.9921717721445045`*^9, 3.992171846007412*^9}}, + CellLabel-> + "In[164]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.992169194666956*^9, { + 3.9921716256031265`*^9, 3.9921717140442905`*^9}, {3.992171774189028*^9, + 3.9921718467600594`*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"83a961cb-be32-234e-a6a1-248b62e7be8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}, + 3.99216920755842*^9}, + CellLabel-> + "In[165]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 2.2328930547814663`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, {3.992169200000057*^9, 3.992169208542076*^9}, { + 3.992171640417225*^9, 3.992171727786623*^9}, {3.992171776807684*^9, + 3.9921718487362633`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"9976a110-3b90-0140-9da3-64f7397f6359"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 0.9368525344691919}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643184825573`*^9, 3.991965223761923*^9, 3.99216921604838*^9, { + 3.9921716438698006`*^9, 3.992171729875326*^9}, {3.992171778851469*^9, + 3.992171851101013*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"a32ac306-352e-4246-979d-aaccd9c4fd9c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[167]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992171967741379*^9, 3.9921719836249027`*^9}, { + 3.992172129636656*^9, 3.9921721406821003`*^9}, {3.9921721739340534`*^9, + 3.992172174015196*^9}}, + CellLabel-> + "In[184]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.0035220048684161454`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, 3.9921718880048923`*^9, { + 3.9921719759369335`*^9, 3.992171984395319*^9}, {3.992172133301077*^9, + 3.992172141825596*^9}, 3.992172175241329*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"e5282d54-6165-864d-b8c2-fd3ffb6951b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.9921719986979465`*^9, 3.9921720029279613`*^9}}, + CellLabel-> + "In[171]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"7.832645999497397`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.05982268361818487`\\\", \ +\\\" \\\", SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \ +\\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \ +\\\"R2\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"9.415692350412738`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"28\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.9598432176384625`*^9\\\", \\\ +\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \\\",\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 171, 4, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992172005431555*^9}, + CellLabel-> + "During evaluation of \ +In[171]:=",ExpressionUUID->"01509ccb-ee36-ac4c-a081-721482bb27eb"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "cvmit", + "\"Failed to converge to the requested accuracy or precision within \\!\\(\ +\\*RowBox[{\\\"100\\\"}]\\) iterations.\"", 2, 171, 5, 29225281869222108711, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9921720055257645`*^9}, + CellLabel-> + "During evaluation of \ +In[171]:=",ExpressionUUID->"5722f784-d413-e945-9034-fa616412f19f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.4011623901273043`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5547529349193664`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.9921720055307636`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"2ac1d1fa-54fc-f240-9e62-dcd7d419d095"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.4012"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.992172009277462*^9, + 3.992172016321312*^9}}, + CellLabel-> + "In[172]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992172020360428*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"7bd1eab7-2301-8841-89a6-b024c8e5a5a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.5547"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9921720268420353`*^9, + 3.9921720321017227`*^9}}, + CellLabel-> + "In[173]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{3.99217204121789*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"957cc7f6-d310-2648-8355-befae3b3ffde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{ + 3.9917169014568214`*^9, {3.9921720594492493`*^9, 3.9921720613313255`*^9}, { + 3.9921721478998566`*^9, 3.992172163520687*^9}}, + CellLabel-> + "In[183]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.003486406365540069}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964359553013*^9, 3.9919653448206234`*^9, {3.9921720496560574`*^9, + 3.9921720640770054`*^9}, {3.9921721492104263`*^9, 3.9921721640201645`*^9}}, + CellLabel-> + "Out[183]=",ExpressionUUID->"ccbe3c08-e6b2-c140-bd79-c8cb9e6ea713"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.0035220048684161454`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992172181493864*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"7f664d8d-810a-7546-9651-c7d232b8712f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992172116624462*^9, 3.9921721169261513`*^9}, { + 3.992172216442732*^9, 3.992172248023657*^9}}, + CellLabel-> + "In[192]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9776920067134719}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9921721012390423`*^9, + 3.9921721174092846`*^9}, {3.992172217125965*^9, 3.9921722489337826`*^9}}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2bd72462-22a0-2a4d-a133-83e57fd0ad31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.992173198428591*^9, 3.9921732013204174`*^9}}, + CellLabel-> + "In[198]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016271769944146287`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016271769944146287`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"314.05285214881405`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016271769944146287`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016271769944146287`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"1.2429993121816667`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 198, 8, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992173121430094*^9, 3.992173204473921*^9}, + CellLabel-> + "During evaluation of \ +In[198]:=",ExpressionUUID->"0dd5f937-ede2-434b-8299-b0b814b6dff2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"2.7276`", "\[Rule]", "1.1238161165362892`"}], ",", + RowBox[{"0.5918`", "\[Rule]", "0.8672494562280016`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9921731215231953`*^9, 3.9921732045499783`*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"5af00825-043b-c145-b00d-613afc18508d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.1338"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.992173133083788*^9, + 3.9921731409362965`*^9}, {3.992173209142124*^9, 3.9921732153015175`*^9}, { + 3.9921732647623234`*^9, 3.992173264830551*^9}}, + CellLabel-> + "In[203]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.992173143766615*^9, 3.9921732165242825`*^9, 3.9921732655701237`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"c5b7003e-9a4f-6947-b438-174a60867cd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.9921731464128914`*^9, + 3.992173151377308*^9}, {3.992173219550167*^9, 3.9921732276551647`*^9}, { + 3.9921732585821514`*^9, 3.992173281057123*^9}}, + CellLabel-> + "In[207]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992173152305666*^9, + 3.992173230592058*^9, {3.9921732685836735`*^9, 3.992173281640154*^9}}, + CellLabel-> + "Out[207]=",ExpressionUUID->"02848e2b-1bea-5048-ba45-74de0b1100c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.992173239867607*^9, 3.992173243006689*^9}}, + CellLabel-> + "In[208]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgEAURNEnGtiGbRhqYGJkCQbCgrDg2j9+QLCIkwxc5nRrXra+iihN +RMypnNsdv6qfau9ZpmHMez7S86f4BsdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHH/nAnuwKMg= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9674940221461537}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, + 3.992173155245886*^9, {3.9921732454568195`*^9, 3.9921732838904247`*^9}}, + CellLabel-> + "Out[208]=",ExpressionUUID->"1b924d89-7cd3-6640-8cb3-e8756c3e322b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgEAURNEnGtiGbRhqYGJkCQbCgrDg2j9+QLCIkwxc5nRrXra+iihN +RMypnNsdv6qfau9ZpmHMez7S86f4BsdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHH/nAnuwKMg= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9776920067134719}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9921732978537045`*^9, 3.992173302834656*^9}}, + CellLabel-> + "Out[211]=",ExpressionUUID->"4485fa2e-2a24-6e40-9a50-c4f11989a3cb"] +}, Open ]] +}, +WindowSize->{1440, 747.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +PrintingCopies->1, +PrintingPageRange->{Automatic, Automatic}, +PrintingOptions->{"Magnification"->1., +"PaperOrientation"->"Portrait", +"PaperSize"->{595.2755905511812, 841.8897637795276}}, +CellContext->Notebook, +Magnification:>0.9 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 73, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1488, 46, 89, "Output",ExpressionUUID->"ad4fdcf9-53d2-f145-9cfe-6a652f102b3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3256, 109, 720, 20, 56, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3979, 131, 887, 25, 65, "Output",ExpressionUUID->"9300781f-9afb-9448-b298-fd876fd535b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 51, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2575, 74, 136, "Output",ExpressionUUID->"c09add3f-60ab-e54c-a75f-a08ccac9cb80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8983, 283, 1680, 48, 51, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10666, 333, 2780, 81, 136, "Output",ExpressionUUID->"59f7de11-d07a-fa47-82c0-2282fd4b0e40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13483, 419, 1843, 53, 58, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15329, 474, 3714, 108, 92, "Output",ExpressionUUID->"ec2a8a57-2cf3-d345-a77d-af4d96546b80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19080, 587, 2080, 59, 59, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21163, 648, 4781, 137, 92, "Output",ExpressionUUID->"510ec29e-dcd9-7048-ac5e-512da0cf016f"] +}, Open ]], +Cell[25959, 788, 153, 3, 25, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26137, 795, 350, 5, 25, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26490, 802, 303, 5, 28, "Output",ExpressionUUID->"f3ce5b6f-986e-b845-8e60-92593269ecec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26830, 812, 382, 6, 25, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27215, 820, 305, 5, 28, "Output",ExpressionUUID->"3017a89a-dccd-c142-8c57-f113cc6a629d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27557, 830, 175, 3, 25, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27735, 835, 274, 4, 28, "Output",ExpressionUUID->"df7fb28c-fd1b-5244-a619-8363912e0051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28046, 844, 258, 7, 39, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28307, 853, 279, 4, 28, "Output",ExpressionUUID->"e8b1de41-9edb-1b4d-adeb-2dc63058bc1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28623, 862, 132, 2, 25, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28758, 866, 277, 4, 28, "Output",ExpressionUUID->"83f02113-acc1-bc47-8d6f-20079637dfe7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29072, 875, 277, 6, 25, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29352, 883, 291, 4, 28, "Output",ExpressionUUID->"953a0163-33ee-0f43-8541-ed6074ba61b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29680, 892, 258, 7, 25, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29941, 901, 288, 4, 28, "Output",ExpressionUUID->"81de82b0-d3e3-6042-99ad-2c0e926e017b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30266, 910, 375, 6, 25, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30644, 918, 155, 2, 28, "Output",ExpressionUUID->"206fcf5a-1228-cf44-bb11-3fbcf5f0b882"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30836, 925, 377, 6, 25, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31216, 933, 155, 2, 28, "Output",ExpressionUUID->"539f4b99-f4cd-e249-aef1-ae826fce11c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31408, 940, 129, 2, 25, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31540, 944, 275, 4, 28, "Output",ExpressionUUID->"39daedc0-f31e-4340-a35b-004f6b40ec4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31852, 953, 129, 2, 25, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31984, 957, 272, 4, 28, "Output",ExpressionUUID->"2799c350-0f70-d94e-9eca-8e4b6896ba1b"] +}, Open ]], +Cell[32271, 964, 131, 3, 25, "Input",ExpressionUUID->"a7f6de2d-0c54-e74a-b7d2-d9434baefd68"], +Cell[CellGroupData[{ +Cell[32427, 971, 2065, 52, 112, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34495, 1025, 19247, 365, 214, "Output",ExpressionUUID->"ce0198a0-78ca-e145-8120-fc7eabacae13"] +}, Open ]], +Cell[53757, 1393, 128, 3, 25, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[53910, 1400, 2333, 60, 44, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[56246, 1462, 6865, 99, 100, "Message",ExpressionUUID->"8a1ca449-8ade-e546-aba0-d9eaceafdc8b"], +Cell[63114, 1563, 361, 7, 28, "Output",ExpressionUUID->"4179cd76-b416-dd42-b386-0c47b2d2830d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63512, 1575, 2232, 58, 44, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[65747, 1635, 4492, 66, 95, "Message",ExpressionUUID->"55e1fa9b-3f66-b14c-835a-80c79c94d039"], +Cell[70242, 1703, 317, 6, 28, "Output",ExpressionUUID->"bccd2d3f-ff04-d740-a952-a694e24bee97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70596, 1714, 681, 11, 25, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[71280, 1727, 453, 8, 28, "Output",ExpressionUUID->"3803d881-b189-8048-84ea-7d7615e7429a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71770, 1740, 650, 10, 25, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[72423, 1752, 544, 9, 28, "Output",ExpressionUUID->"d2deb25f-9225-2d42-91e9-938274abf369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73004, 1766, 2577, 65, 80, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[75584, 1833, 24042, 520, 214, "Output",ExpressionUUID->"69be3b89-cf1a-734d-887e-7df7742e3c43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99663, 2358, 165, 4, 25, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[99831, 2364, 41772, 838, 214, "Output",ExpressionUUID->"ebc68bb8-e46a-8c43-bf69-94b7a8f95558"] +}, Open ]], +Cell[CellGroupData[{ +Cell[141640, 3207, 974, 28, 42, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[142617, 3237, 22341, 416, 213, "Output",ExpressionUUID->"d6fa2f2f-3c56-3b4f-9f31-e6a5e4332e51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164995, 3658, 2430, 63, 44, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[167428, 3723, 7075, 103, 109, "Message",ExpressionUUID->"0015c752-5462-024f-a5f6-0bb14ac8a9f8"], +Cell[174506, 3828, 342, 8, 28, "Output",ExpressionUUID->"fd74a600-672d-fe49-b17e-345cc41e2a51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174885, 3841, 463, 8, 25, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[175351, 3851, 325, 6, 28, "Output",ExpressionUUID->"593f0234-9885-574b-abab-682d67c1a482"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175713, 3862, 406, 7, 25, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[176122, 3871, 313, 6, 28, "Output",ExpressionUUID->"83a961cb-be32-234e-a6a1-248b62e7be8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176472, 3882, 1014, 28, 43, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[177489, 3912, 23978, 519, 213, "Output",ExpressionUUID->"9976a110-3b90-0140-9da3-64f7397f6359"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201504, 4436, 167, 4, 25, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[201674, 4442, 44912, 889, 213, "Output",ExpressionUUID->"a32ac306-352e-4246-979d-aaccd9c4fd9c"] +}, Open ]], +Cell[246601, 5334, 242, 5, 25, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[246868, 5343, 947, 26, 42, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[247818, 5371, 11478, 237, 227, "Output",ExpressionUUID->"e5282d54-6165-864d-b8c2-fd3ffb6951b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259333, 5613, 2230, 59, 44, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[261566, 5674, 9312, 132, 144, "Message",ExpressionUUID->"01509ccb-ee36-ac4c-a081-721482bb27eb"], +Cell[270881, 5808, 472, 12, 23, "Message",ExpressionUUID->"5722f784-d413-e945-9034-fa616412f19f"], +Cell[271356, 5822, 348, 8, 28, "Output",ExpressionUUID->"2ac1d1fa-54fc-f240-9e62-dcd7d419d095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271741, 5835, 305, 6, 25, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[272049, 5843, 208, 4, 28, "Output",ExpressionUUID->"7bd1eab7-2301-8841-89a6-b024c8e5a5a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272294, 5852, 308, 6, 25, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[272605, 5860, 158, 3, 28, "Output",ExpressionUUID->"957cc7f6-d310-2648-8355-befae3b3ffde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272800, 5868, 2669, 67, 98, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[275472, 5937, 23901, 518, 203, "Output",ExpressionUUID->"ccbe3c08-e6b2-c140-bd79-c8cb9e6ea713"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299410, 6460, 169, 4, 25, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[299582, 6466, 33874, 706, 203, "Output",ExpressionUUID->"7f664d8d-810a-7546-9651-c7d232b8712f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333493, 7177, 973, 27, 42, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[334469, 7206, 22378, 416, 213, "Output",ExpressionUUID->"2bd72462-22a0-2a4d-a133-83e57fd0ad31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356884, 7627, 2390, 62, 61, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[359277, 7691, 7095, 103, 126, "Message",ExpressionUUID->"0dd5f937-ede2-434b-8299-b0b814b6dff2"], +Cell[366375, 7796, 381, 8, 28, "Output",ExpressionUUID->"5af00825-043b-c145-b00d-613afc18508d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366793, 7809, 407, 7, 25, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[367203, 7818, 258, 4, 28, "Output",ExpressionUUID->"c5b7003e-9a4f-6947-b438-174a60867cd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367498, 7827, 406, 7, 25, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[367907, 7836, 280, 5, 28, "Output",ExpressionUUID->"02848e2b-1bea-5048-ba45-74de0b1100c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368224, 7846, 2881, 73, 79, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[371108, 7921, 69655, 1494, 214, "Output",ExpressionUUID->"1b924d89-7cd3-6640-8cb3-e8756c3e322b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440800, 9420, 208, 5, 42, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[441011, 9427, 91066, 1862, 213, "Output",ExpressionUUID->"4485fa2e-2a24-6e40-9a50-c4f11989a3cb"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb new file mode 100755 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ +2dda1d801f63"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, + 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ +14a272e65d1f"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ +53babaa73a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ +7d040d3b48f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ +63ec36d318ad"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ +c117a27ff3e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ +598d0b6835be"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ +45830eedfe9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ +303d815946e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ +1a175f609f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918493065908413`*^9, + 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ +4de4791db2f4"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, + 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ +749729cd7104"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ +c889dba5c0d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ +23ddab00799c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ +31d165f1571c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ +e4dea0353ed0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ +547e3a6fa152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ +c3e0f6ab8836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918494889040737`*^9, + 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ +e20e260dbdcb"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, + 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ +c31719ef3a6b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ +8a461d652ab4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ +6a7de047241d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ +ae1cb915c656"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ +0895c02ffd8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ +bead95265db8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ +f19508c6d2f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849569404436*^9, + 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ +346c5f5ac532"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ +5e950c758893"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, + 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ +e7a6896afd10"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ +4493-2440-9c51-9fca28ce324b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ +bc75-4047-98f0-7a0dede3f8a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ +3d78ebb0f21b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"42c1a263-2456-664a-bb33-c5fe841cb412"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ +12d8b19f0936"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d3cb6fbc-3803-0541-80d1-8cab47341c44"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d8687e0f-2f42-0543-a749-78a1ff3c9572"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ +c578eb57eb6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ +562f8b3faecd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a2ecd22c-b766-5347-9e03-9d459620be75"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ +77ebd1a3e048"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ +8e83e9537fdc"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56921c73-2b67-0e4a-9808-5f61de992c7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ +3471356a3614"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1795c3b9-0182-224c-b986-6414d6712c04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c3b31753-a67f-9b45-b822-068e1df11f68"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ +286954db37c5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, + 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ +dd2997d3499c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ +22d7-2843-88e3-f607b95c8af9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"def6b331-c871-b04d-a16e-4fc00b03d009"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ +6af3-374f-9eea-9c2b6faaaf4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6c8676e-4601-144e-b83c-769e22949175"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ +05d6af1a6e52"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0b8c0718-41d2-4542-8afe-212a15805650"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ +f69c33a31448"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b6f0ccc2-ff83-124b-a341-e143319c7670"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ +194fae57c34e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7797a546-4085-124a-83da-5f3c472cdc4c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ca7472ca-7b27-a54a-84a1-e603fa592207"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ +49e8ffb5e8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ +494cdae35e56"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b9265795-17b8-4e47-bd29-fee31586537e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"072fb53f-7116-0f41-a298-6891351a3192"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"01995149-3665-fe4e-b326-b20429031afd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"52cff8eb-0c77-c944-a54f-e282b00ce766"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ +062a3c04ed96"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cb5a1193-7562-6446-a279-d9f6295d156e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ +3382e7679ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4cd45900-7eb0-6b4b-830a-a339e8117392"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ +2462b23d6249"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"61220452-df6a-154e-8b5c-fecd0ab287a1"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, + 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ +e661a25a7ba1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ +7798-8b45-a769-075ac4b3983f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ +00a8-f540-98a0-89164ac4bae9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ +af0307420662"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b82c1933-5313-1d4c-a858-68be8f118333"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ +34313c6ec04d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ +ad38cf07d634"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9c6ce535-b42f-3c43-a89e-eda48c04121e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ +8b4ad9ffca61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ +6a3bc399953c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"71d4e039-c2b8-d74d-819a-80d2051e4273"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"63625e13-15ef-1f45-89dc-998a1b63a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ +5dd8190b0268"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ad8c79e-9570-a44d-b593-07aa87056e21"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ +98d71f8a8458"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c516c31a-74b4-f24d-a16a-678221cde87e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5c50b555-9ebe-f94d-801f-34634555f622"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ +57c1fe1d0585"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbafd11a-4be0-b541-81e4-e62191ae7695"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb new file mode 100755 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, + 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ +539edfcf67a8"], + +Cell[BoxData["252"], "Output", + CellChangeTimes->{3.9913196497381973`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.991319786533783*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + +Cell[BoxData[ + RowBox[{"-", "2.5634426229508196`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, + 3.9919752200326233`*^9}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ +f54b23f74296"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + +Cell[BoxData[ + RowBox[{"-", "32.27220689122579`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + +Cell[BoxData[ + RowBox[{"-", "81.2532555132978`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + +Cell[BoxData[ + RowBox[{"-", "38.89688349410641`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + +Cell[BoxData[ + RowBox[{"-", "199.04976850122156`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + +Cell[BoxData[ + RowBox[{"-", "10.968150500985438`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + +Cell[BoxData[ + RowBox[{"-", "30.737279670206195`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ +843ffd08641f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184866880085*^9, + 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ +bfa63ff56738"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ +5501c3a85c24"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.99132042159643*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ +f8e668175458"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, + 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { + 3.9920915619364376`*^9, 3.9920915885645847`*^9}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { + 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, + 3.992091588571615*^9}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, + 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { + 3.9920915619686337`*^9, 3.992091588596325*^9}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { + 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, + 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { + 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, + 3.9920915886284447`*^9}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, + 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { + 3.992091562006651*^9, 3.992091588636162*^9}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { + 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, + 3.992091588657053*^9}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { + 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, + 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 1, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 2, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231788826`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 3, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423191887*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423200884*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ +ca6cc08b08a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 5, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 6, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132042625132*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 7, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426261322*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426270418*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ +8b70b5354bda"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422974, + 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7142433994369213}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ +0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 17, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042538757`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229043127804`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 90, + 21, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 22, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132366476486*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 23, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236647877655`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236648078594`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ +540622282b2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 25, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 26, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765679016`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 27, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323676587904*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236766039066`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ +4bb381db84df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 29, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 30, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884141064`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 31, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323688443001*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884570007`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ +1b0781de8eeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 33, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 34, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698943981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 35, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698971981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698986994*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, + 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ +bf0dbc996ac3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ +6ffa36275fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 109, 37, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 38, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323707545618*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 39, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075757256`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075926247`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ +1ab9142a9a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 110, 41, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 42, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162070637`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 43, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323716227171*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162481613`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ +ff25938e6592"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5082122808512888}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 112, 46, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461217346`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 112, 47, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461427383`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246159645*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506856045*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068640423`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ +122296a3d634"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 61, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 62, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513053705*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 63, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130617065`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513069849*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ +9c68738afe07"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 65, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 66, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520226103*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 67, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265202341022`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520242243*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ +766f96e6af5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 69, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 70, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264535427`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 71, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264615555`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326526468542*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917998836260815`*^9, + 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ +14ef82ef0962"], + +Cell[BoxData["0.13787921511838797`"], "Output", + CellChangeTimes->{3.991326529975149*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, + 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ +0f56a212e9c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ +a97b5c6c44f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 135, 73, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 135, 74, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304013824`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 75, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304095325`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304175396`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ +bed1f30b804b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 136, 77, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 136, 78, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340202503`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 79, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340282536`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340354958`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ +eac61b5b75d3"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6007907022525477}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 95, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097784023`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909786396*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ +22c641e38d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 97, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 98, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916018362*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 99, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279160263577`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916034359*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ +4f0fc7048689"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 101, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 102, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327922975607*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 103, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229836063`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229916077`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ +32244819d42b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 105, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 106, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928864023*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 107, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928871004*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928878006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991800029528055*^9, + 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ +f0a7464dc747"], + +Cell[BoxData["0.08333108480569339`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], +Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[CellGroupData[{ +Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], +Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[CellGroupData[{ +Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], +Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[CellGroupData[{ +Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[CellGroupData[{ +Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], +Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[CellGroupData[{ +Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], +Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[CellGroupData[{ +Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], +Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], +Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[CellGroupData[{ +Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], +Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ +6f058773310c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, + 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ +c82e80965ca9"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ +c44fbe83a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ +656c90598e75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ +62296271f174"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ +2171e7786920"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ +09454f88e7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ +e19335f7a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ +fb8d284b16bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849803549658*^9, + 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ +f67bfdbd9bc7"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, + 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ +e87abbd4c41c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ +7e9487f745c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ +18c538c3321c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ +a45df2eabf0c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ +30286a178ca1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ +fc6fb6cd41f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849908545643*^9, + 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ +684ff23ed035"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, + 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ +85227a6e6b51"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ +65328572e509"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ +aa229443ac14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ +9a77a5dc787c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ +2e1269faf5ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ +93b70f20e7f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ +cdce838d9efe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ +533b19d33de6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918500011025047`*^9, + 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ +cedeeeb0247a"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb new file mode 100755 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ +406cf54e52d1"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, + 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ +7bcc4af89c62"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ +1a154ab4a709"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991848926103155*^9, + 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ +b231aa8028b9"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, + 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ +0ec5d19a7879"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ +3e066daf15d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ +dd23af9a4471"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ +3cf1fdaf28d9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ +4070462057d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ +7a397847208f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ +f1f0210d6caf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ +d3e8d1574bcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918490375675926`*^9, + 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ +76bfd8e40ccb"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, + 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ +6604b8708636"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ +804123b5ccd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ +b799ae260294"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ +7fa9a2a651b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ +0d2700971836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ +5a08f479e656"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ +ed18c097f8c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918491594691143`*^9, + 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ +6d96abe14e67"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ +299085c765cc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, + 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ +8fab318cd4b7"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ +4265c9fafb97"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991850221900238*^9, + 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ +781173809e57"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, + 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ +092e912c15e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ +9afb90e551d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ +e3924f732df2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ +56c89a9b7467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918503106317043`*^9, + 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ +2a98ba29b602"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850318596199*^9, + 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ +68452b971319"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850325611994*^9, + 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ +b41cb2f3fa92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.99185033265069*^9, + 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ +aca0f3e8a35b"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, + 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ +a3711ba632a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ +cf1adc0753dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ +97489285cc9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ +5ac1cacd7190"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ +0aac70483e3c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ +53cfa72184b4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ +07bad9ba3e82"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566a849f-fc85-4d42-a545-a46d44cf7346"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ +f29bb610eb30"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb new file mode 100755 index 0000000..6ee1b27 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb @@ -0,0 +1,20443 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 962410, 20435] +NotebookOptionsPosition[ 951655, 20243] +NotebookOutlinePosition[ 952107, 20261] +CellTagsIndexPosition[ 952064, 20258] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992176560730276*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"4f8c4e31-1677-5b44-8668-f79ef0baff23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9921765610795765`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"64936e2b-d144-914f-8438-dae3716d39ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992176561108576*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"981953b5-3e6a-fa47-aaa9-66a2655973ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.9921765611385765`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"782f0643-8b66-ce4d-b90f-e662c5cf0b59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.992176561172575*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"3598a914-7b0d-744b-a3cd-10bf6e4ac62d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9921765612065716`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d86e9608-3bb8-864e-8b70-6ed52f1f722a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.9921766217789116`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"79d0537a-a91e-7d45-8108-5985af961c44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9921766725443707`*^9, + 3.9921766735927486`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{3.9921766835221252`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"e192c454-3253-c84f-bd5c-7136ed904c78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9921766218842583`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8b3a3082-da7c-d448-9274-7a89522164b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData[ + RowBox[{"0.55`", "\[VeryThinSpace]", "-", + RowBox[{"0.0000625`", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "240"}], "+", + RowBox[{"2", " ", "A1"}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992176621886284*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"d2919b6f-a964-b04b-9417-d5132049f6d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992176621890278*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"da26c7f5-8458-5d42-9e02-e1182884f575"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData[ + RowBox[{"1.16`", " ", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992176621916416*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"969440ac-849b-534f-a88d-f7ecf003459f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData[ + RowBox[{"1.16`", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"240", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992176621920656*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"eb7a6f5e-3962-4947-ab38-44a1f86baab9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.992176585878969*^9, 3.992176596477005*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{3.992176621923666*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"7e292156-80d0-3843-944d-b7792184780b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992176607180008*^9, 3.992176610891943*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{3.992176621948656*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c98924ce-c08f-f84b-907d-05142b6d158e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992176621951664*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"b5ca60ab-07df-8d45-bf5b-255df7f5d25c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9921766219546585`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d3a00282-d9f1-d64b-9c8a-37108b20b2fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992176696215687*^9, 3.992176721292536*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.965729711695941}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.9921766349951954`*^9, 3.992176639225258*^9}, { + 3.9921766880795937`*^9, 3.9921767220667324`*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"d2072d0d-27c2-5c4e-823b-93492f869550"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.9921767351974297`*^9, + 3.992176740086857*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.1262711375000843`\\\", \\\" \\\", SuperscriptBox[\\\ +\"2.718281828459045`\\\", RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.1262711375000843`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.5`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\ +\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"20\\\", \\\"\[RightSkeleton]\\\"}]}], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\" \\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.1262711375000843`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 3, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.9921767965484467`*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"ca45e8e7-e1a3-d248-b200-5ce47d8cf72f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8725153706803607`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1243791896196786`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992176796696203*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"bc11fbe1-60e1-aa42-add1-6c2a7f9fd172"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.992176782003208*^9, 3.9921767885641537`*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.48280140808855765`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"22497.02898178406`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.48280140808855765`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 28, 4, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125235776978`*^9, 3.992176796868759*^9}, + CellLabel-> + "During evaluation of \ +In[28]:=",ExpressionUUID->"371c10ce-45c3-dd44-b97d-a0639c9e2b90"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8725209154849431`"}], ",", + RowBox[{"b0", "\[Rule]", "1.124379073462205`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9921767971303234`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"cda8f104-ce02-7b46-96b4-4a51fb2fb500"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, {3.9921768048199806`*^9, 3.99217681251923*^9}, { + 3.992176878319977*^9, 3.992176879421753*^9}, {3.9921769608693676`*^9, + 3.99217697588414*^9}, {3.9921770630008926`*^9, 3.992177094219658*^9}, { + 3.992177130697548*^9, 3.9921771312696342`*^9}}, + CellLabel->"In[76]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.992176818433687*^9, 3.9921768803984604`*^9, {3.992176963662958*^9, + 3.992176976372555*^9}, {3.9921770642700615`*^9, 3.992177094793085*^9}, + 3.9921771327597847`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"0165794f-2386-f148-a7d7-30e9a748c353"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, {3.9921768219812813`*^9, 3.9921768295280533`*^9}, { + 3.992176902659857*^9, 3.992176951237955*^9}, {3.9921770404838505`*^9, + 3.992177121234913*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{{3.9921769220361595`*^9, 3.992176951788004*^9}, { + 3.992177041926792*^9, 3.9921771218821983`*^9}}, + CellLabel->"Out[73]=",ExpressionUUID->"6ebdd3bc-b14a-6c44-a85f-021a358d64e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, { + 3.99217714570965*^9, 3.992177145802763*^9}}, + CellLabel->"In[79]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZuRWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +P+IX4SKFKw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{4, 13}, {0., 1.991919222968944}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9, 3.9921768364643574`*^9, {3.992176882260401*^9, + 3.992176906284033*^9}, {3.9921769422224617`*^9, 3.992176979381048*^9}, { + 3.9921770246653214`*^9, 3.9921771472668457`*^9}}, + CellLabel->"Out[79]=",ExpressionUUID->"20124c6c-a3bb-f145-aefd-289c0ebb306c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZuRWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +P+IX4SKFKw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.965729711695941}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9, 3.992176841988554*^9, {3.992176884690727*^9, + 3.992176910239174*^9}, {3.9921769447931767`*^9, 3.9921769816327457`*^9}, { + 3.992177027242647*^9, 3.9921771498258457`*^9}}, + CellLabel->"Out[80]=",ExpressionUUID->"f2c8553a-2489-d344-afa0-7cb8641eb5b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11.2"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.992177215942608*^9, + 3.9921772303634014`*^9}}, + CellLabel->"In[84]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7, 11.2}, {0., 0.9720074722848471}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.9921772127335033`*^9, + 3.992177230925968*^9}}, + CellLabel->"Out[84]=",ExpressionUUID->"c113d2ef-a3b8-8e44-8968-0928da6090e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11.2", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11.2", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.9921772404969864`*^9, + 3.9921772538169518`*^9}}, + CellLabel->"In[85]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02790592138751864`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.02790592138751864`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02790592138751864`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.02790592138751864`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"3.489674408343525`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 85, 5, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992177257729761*^9}, + CellLabel-> + "During evaluation of \ +In[85]:=",ExpressionUUID->"6fc5b63a-32f7-c64c-9ef5-db5fe19ad5c4"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.434257390249463`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.659551402733935`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9921772578347683`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3bbed4a4-9896-e548-971b-e42c32c6a3e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, {3.9921772672585735`*^9, 3.992177269964157*^9}, { + 3.9921774719605827`*^9, 3.9921775120893497`*^9}, {3.9921775729551144`*^9, + 3.9921775973070335`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.9921772892773476`*^9, { + 3.992177472544777*^9, 3.99217751262339*^9}, {3.9921775773299236`*^9, + 3.992177598168333*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c59cf26d-5f03-0346-bac6-8025db3262f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.9921772753234234`*^9, + 3.9921772848898716`*^9}, {3.992177422547474*^9, 3.9921774662048187`*^9}, { + 3.9921775286827564`*^9, 3.992177564692211*^9}}, + CellLabel-> + "In[114]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.992177292131098*^9, { + 3.992177429245756*^9, 3.9921774436328373`*^9}, 3.992177474352291*^9, { + 3.9921775291106834`*^9, 3.9921775652409153`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"21709179-c03f-3747-9035-10b342e00cf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOAJtq8GgpkNTLLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+D+/AG5e77g= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{4, 11}, {0., 3.062518358321375}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, 3.9921772942614803`*^9, {3.9921774310967846`*^9, + 3.9921774452296104`*^9}, {3.9921774768845997`*^9, 3.992177485469591*^9}, { + 3.992177515575514*^9, 3.992177600595009*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"d2fc483e-eb0e-8343-8b3d-14d02bc983cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOAJtq8GgpkNTLLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+D+/AG5e77g= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7, 11.2}, {0., 0.9720074722848471}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643184825573`*^9, 3.991965223761923*^9, 3.9921773062434673`*^9, { + 3.9921774393624897`*^9, 3.9921774479492188`*^9}, {3.992177479113079*^9, + 3.9921776031887894`*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"11955033-73ae-f948-b575-a8c98482b9bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[123]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.7", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992177642949024*^9, 3.992177661579607*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.700000000000019, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8.7, 12}, {0., 0.005580301998298954}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.9921776364309235`*^9, + 3.992177662131895*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"81b23e97-83f3-3c4a-9307-6b5f394668b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.7", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.7", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.9921776729602585`*^9, 3.9921776795541286`*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.06049289069434648`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.06049289069434648`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.336030844716822`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"4.542337325546561`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.06049289069434648`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.06049289069434648`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.336030844716822`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.9798765540150924`*^9\\\", \\\ +\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \\\",\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 127, 22, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992177687194124*^9}, + CellLabel-> + "During evaluation of \ +In[127]:=",ExpressionUUID->"6642c920-3230-6c4a-8e34-c3b63cb9bba3"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "cvmit", + "\"Failed to converge to the requested accuracy or precision within \\!\\(\ +\\*RowBox[{\\\"100\\\"}]\\) iterations.\"", 2, 127, 23, 29225361075616413851, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9921776873629246`*^9}, + CellLabel-> + "During evaluation of \ +In[127]:=",ExpressionUUID->"59e9b974-4e8d-9749-aeec-9262c2731a7f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8664207808720028`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5924302783092033`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.9921776873709297`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"81c2f112-444c-aa4d-83cb-1ffee680db5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.9921777943222237`*^9, + 3.9921777992545795`*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992177800699053*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"98d052e9-8e49-cf4f-9b0f-9d5bace20b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9921778035649242`*^9, + 3.992177805899437*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.9921778068568783`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"efff023a-cf2e-7d4d-82c7-60a26d03fb25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel-> + "In[130]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, 92, + 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, 110, 95, + 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, 57, 45, + 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, 99, 85, + 132, 115, 100, 133, 116, 134, 46}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIw7uLamsHABq9d8OO4Na47bFUIo +3ZMllXNrPqutq38S53HKez5S/VN4g+M4juM4juM4juM4juM4juM4/h+/AUCg +8p4= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, + 121, 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, + 51, 17, 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, + 124, 107, 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, + 55, 38, 127, 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, + 111, 96, 82, 69, 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, + 98, 84, 71, 131, 114, 99, 85, 132, 115, 100, 133, 116, 134, + 46}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, 60, + 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, 104, + 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, 123, + 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, 92, 78, + 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, 110, 95, 81, + 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, 57, 45, 129, + 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, 99, 85, 132, + 115, 100, 133, 116, 134, 46}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8, 13}, {0., 0.007898976106704987}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9, + 3.992177810218912*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"02e112c3-1300-6949-b21f-09818b486806"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, + 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, + 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, + 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, + 99, 85, 132, 115, 100, 133, 116, 134, 46}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIw7uLamsHABq9d8OO4Na47bFUIo +3ZMllXNrPqutq38S53HKez5S/VN4g+M4juM4juM4juM4juM4juM4/h+/AUCg +8p4= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, + 121, 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, + 63, 51, 17, 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, + 24, 124, 107, 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, + 80, 67, 55, 38, 127, 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, + 44, 128, 111, 96, 82, 69, 57, 45, 129, 112, 97, 83, 70, 58, + 130, 113, 98, 84, 71, 131, 114, 99, 85, 132, 115, 100, 133, + 116, 134, 46}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, 60, + 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, + 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, + 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, + 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, + 99, 85, 132, 115, 100, 133, 116, 134, 46}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.700000000000019, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8.7, 12}, {0., 0.005580301998298954}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9, + 3.9921778148357544`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1c9ff204-4b4a-5240-aa27-cd8a73d88a0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.3", ",", "8.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992177846641865*^9, 3.992177866953274*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.300000000000014, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{6.3, 8.5}, {0., 0.07216836120711195}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992177842329321*^9, + 3.9921778684671593`*^9}}, + CellLabel-> + "Out[135]=",ExpressionUUID->"1bc59528-256a-944e-b9bf-b3449d66d373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.3", ",", "8.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.3", ",", "8.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.9921778841744785`*^9, 3.99217788753166*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016454066268862245`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016454066268862245`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"54669.58299993504`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016454066268862245`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016454066268862245`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"3.1428108786321003`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}]}]}], \\\"}\\\"}]\\) is \ +not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \ +\\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \ +\\\"bb0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\ +\", \\\",\\\", \\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 136, 24, + 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992177890024563*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"24e74e05-1b54-8243-9778-90cab512ae81"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.8879328273552702`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6346741273067865`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9921778901137047`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"7be73d9c-fd9f-ba47-978b-81882c33696c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.8880"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.9921778976385593`*^9, + 3.9921779016394444`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.9921779062351475`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"97ffa157-0fe8-d144-9273-a25f3ec28d04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.992177910354536*^9, + 3.992177917331482*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9, + 3.992177918780449*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"d0799b1e-e4a6-1e4d-a1c3-abd1eaac63ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9921779363674335`*^9, 3.9921779517437153`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9HAxMgSDIQHwgO1G5tVA8EGzCZZOOy0c56Ws4zY +64gY034sRXyreqq5Zxq6Pq95S8+f4h0cx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3H8D34B1tdwtA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{5, 13}, {0., 0.1957165151046949}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, { + 3.9921779228140335`*^9, 3.992177953050804*^9}}, + CellLabel-> + "Out[143]=",ExpressionUUID->"be2d5f60-d499-7d4a-8cd5-74ff5ca1817a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[144]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9HAxMgSDIQHwgO1G5tVA8EGzCZZOOy0c56Ws4zY +64gY034sRXyreqq5Zxq6Pq95S8+f4h0cx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3H8D34B1tdwtA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{220.38505564221367`, + 295.0352468016282}, {-35.23557090350529, 82.7623854610158}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.300000000000014, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{6.3, 8.5}, {0., 0.07216836120711195}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, { + 3.992177929245716*^9, 3.992177956626644*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"3cded3ee-c90d-864d-af1a-164f4964e47d"] +}, Open ]] +}, +WindowSize->{1428, 735.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.9 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 73, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 89, "Output",ExpressionUUID->"4f8c4e31-1677-5b44-8668-f79ef0baff23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 56, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 887, 25, 65, "Output",ExpressionUUID->"64936e2b-d144-914f-8438-dae3716d39ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 51, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2573, 74, 136, "Output",ExpressionUUID->"981953b5-3e6a-fa47-aaa9-66a2655973ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8983, 283, 1680, 48, 51, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10666, 333, 2782, 81, 136, "Output",ExpressionUUID->"782f0643-8b66-ce4d-b90f-e662c5cf0b59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13485, 419, 1843, 53, 58, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15331, 474, 3712, 108, 141, "Output",ExpressionUUID->"3598a914-7b0d-744b-a3cd-10bf6e4ac62d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19080, 587, 2080, 59, 79, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21163, 648, 4783, 137, 171, "Output",ExpressionUUID->"d86e9608-3bb8-864e-8b70-6ed52f1f722a"] +}, Open ]], +Cell[25961, 788, 148, 2, 25, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26134, 794, 348, 5, 25, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26485, 801, 305, 5, 28, "Output",ExpressionUUID->"79d0537a-a91e-7d45-8108-5985af961c44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26827, 811, 337, 6, 25, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27167, 819, 153, 2, 28, "Output",ExpressionUUID->"e192c454-3253-c84f-bd5c-7136ed904c78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27357, 826, 176, 3, 25, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27536, 831, 277, 4, 28, "Output",ExpressionUUID->"8b3a3082-da7c-d448-9274-7a89522164b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27850, 840, 258, 7, 38, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28111, 849, 447, 10, 28, "Output",ExpressionUUID->"d2919b6f-a964-b04b-9417-d5132049f6d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28595, 864, 132, 2, 25, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28730, 868, 277, 4, 28, "Output",ExpressionUUID->"da26c7f5-8458-5d42-9e02-e1182884f575"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29044, 877, 277, 6, 25, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29324, 885, 348, 7, 28, "Output",ExpressionUUID->"969440ac-849b-534f-a88d-f7ecf003459f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29709, 897, 258, 7, 25, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29970, 906, 396, 9, 28, "Output",ExpressionUUID->"eb7a6f5e-3962-4947-ab38-44a1f86baab9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30403, 920, 378, 6, 25, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30784, 928, 155, 2, 28, "Output",ExpressionUUID->"7e292156-80d0-3843-944d-b7792184780b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30976, 935, 377, 6, 25, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31356, 943, 155, 2, 28, "Output",ExpressionUUID->"c98924ce-c08f-f84b-907d-05142b6d158e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31548, 950, 129, 2, 25, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31680, 954, 273, 4, 28, "Output",ExpressionUUID->"b5ca60ab-07df-8d45-bf5b-255df7f5d25c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31990, 963, 129, 2, 25, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[32122, 967, 272, 4, 28, "Output",ExpressionUUID->"d3a00282-d9f1-d64b-9c8a-37108b20b2fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32431, 976, 2016, 51, 109, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34450, 1029, 19963, 377, 214, "Output",ExpressionUUID->"d2072d0d-27c2-5c4e-823b-93492f869550"] +}, Open ]], +Cell[54428, 1409, 128, 3, 25, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[54581, 1416, 2333, 60, 44, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[56917, 1478, 6631, 96, 100, "Message",ExpressionUUID->"ca45e8e7-e1a3-d248-b200-5ce47d8cf72f"], +Cell[63551, 1576, 361, 7, 28, "Output",ExpressionUUID->"bc11fbe1-60e1-aa42-add1-6c2a7f9fd172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63949, 1588, 2232, 58, 44, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[66184, 1648, 4491, 65, 93, "Message",ExpressionUUID->"371c10ce-45c3-dd44-b97d-a0639c9e2b90"], +Cell[70678, 1715, 316, 6, 28, "Output",ExpressionUUID->"cda8f104-ce02-7b46-96b4-4a51fb2fb500"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71031, 1726, 546, 8, 25, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[71580, 1736, 378, 6, 28, "Output",ExpressionUUID->"0165794f-2386-f148-a7d7-30e9a748c353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71995, 1747, 456, 7, 25, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[72454, 1756, 230, 3, 28, "Output",ExpressionUUID->"6ebdd3bc-b14a-6c44-a85f-021a358d64e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72721, 1764, 2570, 64, 78, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[75294, 1830, 106448, 2266, 213, "Output",ExpressionUUID->"20124c6c-a3bb-f145-aefd-289c0ebb306c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181779, 4101, 161, 3, 25, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[181943, 4106, 125842, 2596, 214, "Output",ExpressionUUID->"f2c8553a-2489-d344-afa0-7cb8641eb5b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307822, 6707, 968, 27, 41, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[308793, 6736, 20215, 379, 213, "Output",ExpressionUUID->"c113d2ef-a3b8-8e44-8968-0928da6090e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329045, 7120, 2424, 62, 44, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[331472, 7184, 7064, 102, 126, "Message",ExpressionUUID->"6fc5b63a-32f7-c64c-9ef5-db5fe19ad5c4"], +Cell[338539, 7288, 339, 7, 28, "Output",ExpressionUUID->"3bbed4a4-9896-e548-971b-e42c32c6a3e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338915, 7300, 385, 7, 25, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[339303, 7309, 306, 6, 28, "Output",ExpressionUUID->"c59cf26d-5f03-0346-bac6-8025db3262f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339646, 7320, 407, 7, 25, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[340056, 7329, 333, 6, 28, "Output",ExpressionUUID->"21709179-c03f-3747-9035-10b342e00cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340426, 7340, 985, 27, 42, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[341414, 7369, 82218, 1755, 213, "Output",ExpressionUUID->"d2fc483e-eb0e-8343-8b3d-14d02bc983cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423669, 9129, 167, 4, 25, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[423839, 9135, 101625, 2089, 213, "Output",ExpressionUUID->"11955033-73ae-f948-b575-a8c98482b9bf"] +}, Open ]], +Cell[525479, 11227, 242, 5, 25, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[525746, 11236, 845, 24, 41, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[526594, 11262, 11410, 236, 206, "Output",ExpressionUUID->"81b23e97-83f3-3c4a-9307-6b5f394668b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538041, 11503, 2236, 59, 44, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[540280, 11564, 6509, 94, 119, "Message",ExpressionUUID->"6642c920-3230-6c4a-8e34-c3b63cb9bba3"], +Cell[546792, 11660, 473, 12, 23, "Message",ExpressionUUID->"59e9b974-4e8d-9749-aeec-9262c2731a7f"], +Cell[547268, 11674, 348, 8, 28, "Output",ExpressionUUID->"81c2f112-444c-aa4d-83cb-1ffee680db5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547653, 11687, 309, 6, 25, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[547965, 11695, 208, 4, 28, "Output",ExpressionUUID->"98d052e9-8e49-cf4f-9b0f-9d5bace20b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548210, 11704, 306, 6, 25, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[548519, 11712, 212, 4, 28, "Output",ExpressionUUID->"efff023a-cf2e-7d4d-82c7-60a26d03fb25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548768, 11721, 2564, 65, 96, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[551335, 11788, 35639, 763, 207, "Output",ExpressionUUID->"02e112c3-1300-6949-b21f-09818b486806"] +}, Open ]], +Cell[CellGroupData[{ +Cell[587011, 12556, 169, 4, 25, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[587183, 12562, 45902, 953, 206, "Output",ExpressionUUID->"1c9ff204-4b4a-5240-aa27-cd8a73d88a0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633122, 13520, 924, 26, 41, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[634049, 13548, 10886, 230, 210, "Output",ExpressionUUID->"1bc59528-256a-944e-b9bf-b3449d66d373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[644972, 13783, 2395, 62, 61, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[647370, 13847, 7652, 111, 126, "Message",ExpressionUUID->"24e74e05-1b54-8243-9778-90cab512ae81"], +Cell[655025, 13960, 348, 8, 28, "Output",ExpressionUUID->"7be73d9c-fd9f-ba47-978b-81882c33696c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655410, 13973, 310, 6, 25, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[655723, 13981, 211, 4, 28, "Output",ExpressionUUID->"97ffa157-0fe8-d144-9273-a25f3ec28d04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655971, 13990, 307, 6, 25, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[656281, 13998, 208, 4, 28, "Output",ExpressionUUID->"d0799b1e-e4a6-1e4d-a1c3-abd1eaac63ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[656526, 14007, 2884, 73, 79, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[659413, 14082, 140610, 2981, 210, "Output",ExpressionUUID->"be2d5f60-d499-7d4a-8cd5-74ff5ca1817a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[800060, 17068, 208, 5, 42, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[800271, 17075, 151368, 3165, 231, "Output",ExpressionUUID->"3cded3ee-c90d-864d-af1a-164f4964e47d"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat @@ -0,0 +1,47 @@ +@echo off +chcp 65001 > nul +if "%~1"=="" ( + echo You must specify the name prefix >&2 + echo E.g. prefix "my_prefix" : >&2 + echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 + exit /b 1 +) else ( + if exist "h____фитирование.nb" ( + rename "h____фитирование.nb" "%~1_фитирование.nb" + ) else ( + echo skipped "h____фитирование.nb" due to absence + ) + + if exist "h____pr_Qw2.nb" ( + rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" + ) else ( + echo skipped "h____pr_Qw2.nb" due to absence + ) + if exist "h____pr_Qw1.nb" ( + rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" + ) else ( + echo skipped "h____pr_Qw1.nb" due to absence + ) + + if exist "h____osc_Qw2.nb" ( + rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" + ) else ( + echo skipped "h____osc_Qw2.nb" due to absence + ) + if exist "h____osc_Qw1.nb" ( + rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" + ) else ( + echo skipped "h____osc_Qw1.nb" due to absence + ) + + if exist "h____gid_Qw2.nb" ( + rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" + ) else ( + echo skipped "h____gid_Qw2.nb" due to absence + ) + if exist "h____gid_Qw1.nb" ( + rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" + ) else ( + echo skipped "h____gid_Qw1.nb" due to absence + ) +) diff --git a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt new file mode 100755 index 0000000..122f797 --- /dev/null +++ b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt @@ -0,0 +1,34 @@ +Pu240 +----------------------------- +174-66_2-3 +d = +v1 = 1.7300 +n1 = 0.7600 +vv1 = 2.4000 +nn1 = 1.1050 +v2 = 1.4012 +n2 = 0.5547 +vv2 = 1.1338 +nn2 = 0.8500 +----------------------------- +176-64_4-5 +d = +v1 = 1.2500 +n1 = 0.8500 +vv1 = 2.3000 +nn1 = 1.1000 +v2 = 0.8664 +n2 = 0.5924 +vv2 = 1.8880 +nn2 = 0.6347 +----------------------------- +__ +d = +v1 = +n1 = +vv1 = +nn1 = +v2 = +n2 = +vv2 = +nn2 = diff --git a/Titov.xlsx b/Titov.xlsx new file mode 100755 index 0000000000000000000000000000000000000000..a826aee44fff3a55e249f8c3f4ad1bafe0931e7e GIT binary patch literal 12275 zcmeHt1zR1-w)PJ09^BoX0KwheJ-EBOTY%v15Zs;M?(P!Y-Q6xTbIzSPnfbmya8K|3 zbnSk+*Sou_mQ=0v%1Qu(pa8%C5C8yx0I)(8rfTs406+i*0FVI?KpFzpRt|<%4mygi zHiq_Ev@Vtw_&Fdz3``D zEe-F-swXfY%hr0pvKesSngYosNG{>6DAvWY(-@{hQ_dVKtG*({q194L0ji~%gH^#7 zz~eP71r!$5pw|dvxLvC2`-@fJ8M8a=+`G=1W(+DQx;!l->VK*Ji)kbO- z0UpzVWct>@yv*+6H9hS>iR*Ot>qRE*J-8dL);TXh!0)}$z7Z`M6=VeBNBK@iIpN$Q zM;E+p)(g0|n@r$XV4T$)u)gcp+Z!-I_CJiYPKloA`u&dNyA49W8>x<+p@lsi?QiG* z8t4CEi~LL1OJn{t&Vjqxl_&&$31>dhW&%YoAF-eCbrHG5SS#&h*a(W4{=g#MtzOSV z%PX7_hXVw+o6MzQNGKdc_0DBMiI299;FP3x3BtCe8$F0lvp2K1$s*#ej9Pv?`d8$a&a7s9edu>U~mbt9tk4A7=R#PRfER8(6arW5-jy=M(Y| zV0l8=C6A|)KMvUI884Q53|J7{JYXs*n6R5x>Sfq{CUn&?u;{oFOl?Pg@t~1T8;~bt zM!IJl7wIR-y75-8Wxg0rckN+?>@FENAM^{uD_nh#SARDWU+%cXtM?IUdN&eG0K^9u z3%Wn-#M#=;T+iCt{I^*4Z=3n>9?;%V{%;?p@=_8#^a!ocufg=rsZJje7aiybkCl$# zAqHzHmPrYiysp=t z&qh+NW9FT?k1#vfB@(#BELL@)pV{{4w}mHDf(lq#;6Ez_g4;T_`yoN6tHt`L(-4`!-m z(~w9k!vYD|#;NwybBd|S_hs?WRcf7)xTy{GX?J?%;w+0Tm+2euu*O6>Tpy&JJ#Fu< zQbJ8~P!exdg^l6>6Jb7ibZsVw$pmF6_lr^@$%qcn zvB^@}I%qw9hzR+)0U4odJR~HD5}=nqEGWwu{UMJM>gKEN@gbrv11%zU6)ae$bh3>5 zPaQ#KWs;CA0y)_>7*#@6ljwF>O~D?IXcO*8Bp>vesG=(%l-vR5TVn<^18n|fs_9ky z?mguFkOw~rZY2&tUZN29!926WG_{5mO9A!w0+N#u;z7jFOAY>TenKVhE|l~}7c~C1 z@9@wp;XQ;0)T$88`G!g`r46TfY^VslD<`sYh{!_CoXWh@DeK;O-#bphut9i%ADucu zKv(RI)TPiv&!Vb0Nhx`u5t|y1!lj8F*vz2!Nii)2V{@DgU9^u)@Jg3p(kW(&`w|nQ8%#L_^4(-cx+oT4Y zIQDHq>NGW~mvjrTuLURr2k;K-U4=_2u5XHu7W)|v)uF|W0)c)#QKoJt-6EOMe13mr1+!ZcXa#%mE_=Am)no7Ne+68Yq%q)g37P`2ae<^-d=mSQa?_m#F2E|k;;o|oZ7 zwfV5=xI)mR&v*8S91r_tDraZ~J6-CvYH_mN_ zfBL_kk0v)*+C5cHn_FkD;leCc1iz@HQeEpH6{Gp>>FX+Z>c`GG|D#oeJEk#Bz2D({ zcaSK5ScScbuAQNQf`gr@m9hPAe$-&RN*tIE0c>6S94FymGy|1T*V!L}qO4Y|;ir@x zbVJSFSX$Cp*BJLW;w4ZUpQv^xnXP|_4aM8po-sO;dsw<#?+8J3;E@<8RFSk)R(#-I z!NV*LIjT&=8B%s23**Sooj_ewrTQLJ^=PkRmU$ZC@z@!nc%x*yYk56w(^IC$APvFL z^tPg64IEE=Sw~D!>Nq0cz{C%DuhmT0X^76&wQRXE8)&HdF4)~(tO>50k0XyB!Y54_ z%Xj_4IBjstTTd5P?bAE%cfkMT84A;G04?u*CwU(OqCdvqH_u>iVrb}K|F5|6`vt@Q zMwNibPN*(=1i>@EH-uZODK~`Z{ML|(l6~;fgL>F{u>s-9cGh(vzH{bdxF@3mGu$iU zQJ7cE17_Im%fmJ{$19^rBc65Y%fyZeGK%KkzKywX)RS?S6`t z;2~7(8WzL|vCaCl_*nid6Xhs@|Qm3smlaGH@uani^$VW zt&h=3_)#+3v{tUs@>eT%YTvRkhB-W>kz79Q5cWY?^_FrX-osq?m0~}7wPNe1xR7@; z6t+IE?C8+GdAa)HN);r@eU(iRX zDD|;Hlt_Y!W&2)|LpgS1mxF9}>Bayf9vC2q-eSCR?>=Cc#C5;gUC5Db;n>~aZPke% zX0GtOB`Q8GkB>)*<2o%Kuk(qS-mjMrnG@XULX=8|gC`pX%5hJpcRX)*6+8lOk5|@h zPlsq$E!3MjZx>d&w_&(; z8DJ)ox^`uRH;s_GArvHlM6#B%n<@yQT^f5v0*?@u17tuAaL~?QHW9l{c{(|K3*Rg*X}QBSkyCJ#tv9Ac}Ghd{o`02dP7 zy7K^@f%tR5GW-H#eKh|ha^jfhh%4ga7TF3!zdf08ilESO|0M`NN-j~k<~gv{ID#j< zSI3~TGf!TR-CZhjC$gxGkhrVQJ{k1J`HpAT$wQ-of~2NeK8+q#b3Le|u!u234ZnLP zLeThm0K)aQKDa+zrpBjnF`f|ol4C@bFI*i?rH4-eqJEO;HOYi`MYa65Nh9~D-0%DB zP~*^8^f1d5_|7Bc{cj+W!u@P`RTpB2E~44|0WP+fJJBFGf$OK%({3ob<|k8kQ#ch8 zx({cc?O}FzYEs7}q6k5R{mcy8cbpBONwZUMpW3zZ z;U6q^)=OzAx@YgJhbJDp|y=+3g=Zhh7d8WYWmFL>Xx2F=mQtuM>)Y7kL$-0@7rF*uYZgm3c}p<>Qc zm@s&A7i$=?l8-#QTtO1uJSMUOQz0!3qSg<|6ovW`GrGOxzBsWPGb(V!nv9WH5G5Pc zfJ&6_e@c}LyZ4cqI+3ke+b$rDSKT@Bg8h^;<+RWwPtnvC%VOq5br^IqVli3{VX~MS zMebk}TgWDQT#C8I%YXL06%SPkJS<4L-EKCB!e?oT>Kymm`bq1~Y%vAVLbiX3XU}k z1AP0j~4XBYcswYcWQCWS8P6HM#lcT`NofF0D^S z^!xdcB22AaZCBM#yLIXsv^sdH4>_iJA6qS&Y7T-mcA!fym1gwfcTY>$8-9p8Ary`o zZm!I~0@bxJg{2s^BnLZAjj3CjomCN%mvZ0GIBC!!NlUbxOu^f!SoNkN{Yk>7ehP^BXf8N1X}NB2AHAsIyV;(=Jl6+^Fk0M0cXGsK?Z*oqag$(V9Qa zH$JI!m?4G5lIWbx|G04l@XdCRhIgO-3GKS8X&C=WGdnPg=B&W0OzR}5&T7zl<}uGK z?=TUw&M9xEe3p{09reCd`krD!K@NLnDv|`u=5tTNA{lbN=T=RqizC3vcw~!_RYxE$ z;%?L!na{-YQ?wV2Z_r~d1UxomZI_oU?6Pjd%n9g?Jj?N{L`1rH^9<}!Yb9)$ljp?i zj6eYxwu4)1XBKM0p;m{|i&NRmsbW)}TkaYpIA8nH)rT}1p1pI_Tze}c=tkz2)0g+i z|MxWk6*LS&DF^^C4GRFge}CI5**mye82-K*tW_EPw)_d94Q-zTqRIWHCPAN$8vF?F z!-sm)2}d7o)6nY0JW=28&L<$CU$v3&Jp*s&+}+71vP?4GcS~?$gL6(b-<(smiDNcL zJkl~Fb6=;G_|na(i8rX7{E^oj=_Oo+7dV}Cq+^xm9l!Ha3&b&DH=9$h6!_D%?@QF> z-`n|C+3|wLRyE5Ob6#;K)7toML((z$)3Kw0%F}Qb&XUx5295Zm=A~x3&*#WJ zcCibsIIfC4-+VrvJxMXL9f^Fs1}z$x$IE#82yz!XhgLqGoj7O_Uu1wlmI^v$<%+E~ zC2jhiD1=vT`*tC|gJrwg1}GAerrC9%mxeVXTp0=q$hQJCu83YjGXVWA+y`_5aU(x$ z%coeQ9uL%Ju_-J^!Zq)8T|DQ?AwpuAb2XZjTyYzU>}#heUEPUb0|nJe5K?KDjB*JG z2LGl?M24r@d*2m%-#I>X96Eem-JxTM^yz_0HcOB zM7d2dj8dvzGkoU(?gyAR84&I1+_`qxd2ZJ@^K_+GF}x#mPfmIc)1#UoEMQ*XXXDmG z>PGwu{E?I&3N}pjElopb@D?_ulOWe-mv7GqaN7wtDL;U4GsfO7)ziZxr@;2giA->8 z;_89f&Fhk(r?#;SRCD93KVH(};CLSOo$l_9;-%g#<2CSDcr8EIy_jCz-LC9Tm`4YUV+r|9Fz_g?V;)Zo=yvwELOnF*UD9i!K; zgm(R?p3O*MuIp;qRVg5yNX#P$bo;!^I??h_`2cw14iU;GQY2=PY^{hTwR8tda9xl# zFmgxTf}BE^AQ@1aZB=Ep{bEI$D&dkxKa9!mQADmgN@M5C=rz4iUAy&oJL@A=w7i26 zqiRn7qOg*|^_|1)mh=g0^;#30Lhx>?&%Vmsns{E$rp3C^&q%3ZA&QL^C|*I88QC*Z z3HxnDo-(F_E=m#2XT>7{nr~q?j;zOO9+vrfSLX;z)p~+~L2g2305{KF$G-by2#DH< zO+=zNzd5q18P7YAshS#}u0)G&fJH@E==iiB?NJdB4KV+um^uO)%{@me(t4moE ziXpXD)V_VN#Tz(-AHFrQ=(yI+n>-ym#@MQkz$B-eSYdke(pEMiAk_^ZwL- zF@E><+5aRZ-ybPZ z<91-RWLY2%!MalR>B&}mWB1&7&O}Ft^~h+hy!|BQg@Vq`q`m}s_3ggxf$g^BWX{|8 z$I9XP&2qoYk<*iR?lHAYLq+~t7}ehkDk-dY+jFCpUX1drY%x$ zid;L{BSZ$@#x0*%KD2ibS8i7UeCbp*3$lO!}9Ir)9^cR|y~odTP6Xo2S;sbg%xBGU!cTqHU7RXrdVsy#z!v z&SII##1M9oB#9nBqGOWHP@+l>q%pD&++?_< zHTKG688?J%{L%&(t>?B!;oK=~pGL}8B?gz=2cwZ)CRW^1*tV*YAl(v1_4LBKPs`#k zpMoj~b!8&$<=Ij_3`(oU81Zh{@^XEebFcWirTpk0i~7a%<6z)|_tGl;xSf+5mU>q~ zJx8+iV{Rnz4wH{fg){8{F+qy;{@i1S`?d1wAjFPt;a9k5-y3*!_dctS+l1j7e@C0c zf;|*{mY8=xv|S=U30Iz6%+fL_A8fqR(76X^xA0*bR1X!%rOGQky9;OQm7J)t0JEhg z*UyRXR6QesF2~*Ts}>fAc7WJS26q4*h6|jl`;rmyNB4@Z(=eT;eWg|10#A=EZMEme?;Un7mFsy< z8vT~PZGnnRtdFBd4|g$jlKDLqcMoSuK8o$jNlSD%3zsy9jj$L&w1i*y2nUz6=}rgF zM=n%{?Yu%mmEXDm8c%`$vskK`2eeMWf6{3LBfJUIJBMpVq%g`i4{b@tfB}@c44Vbn>KWW%O z)mR7{@!fP3neV_BMiLRx9@rLQ;j+t9lIcMNHCat=p`eq+`(4$>rfg)mr8y9|nFlb@ zs^c~c*WNTU7>5elGw>oODQF9c=T_6{d=aEz6~yG|{nq1$f@#x+?(}KJ%|m!`odXmhq8u%}n1vtjQpXJp>|$0Xz6~s=Hb>J@W7mWq(SkCpL@+Fgg(>Po zHqNk$!r{1Iy3m={gK8)nQCA&3(C8Y-UdRa_p_es*Kbw?L#0%;eK$16$G`9Vt0mzs4 zR!SytjfhS>9T@Bf6Lqj*bUm{$?hxo$x`%+l37?t?VHC=DUeq|mpINSU+H*n~oqR;@ zK3YIZD+Y^f`8v{@Z?RmNc)WPxeBcX)8%Ex+p zGlMQEHO8Qs+b{u5ya#b(!n9PoA49+Ze&E@G9SMb;f-DKJA2B6<1rI!*0v6)BE4Fa|KT zk-wvcU@e&{)4*JkM>bhyl~vg;k3Sy$mcryg(;%NnS}$EK3`AZF zII^m;>dZ&mk0jI}k|q<>lo`gwfFMqOMwKX769RnO{QyGqmytw!p_c3EN`wS8VYg!6 zu=FdEEt-<;R%{l+oU;f-xU9CcM4{|>P^WN*0BMFs@+7cwUJO|eS;yLrxhm(rgx4x0 zc?ew?$mFJ%4yI9-Kjwgax)RDu2s#mKpJ41O&U0r6*erN8o+VMe5Nd|X7XXdk5KdtW z6f96In-YS4#YFUg2Ii{Z8J~#8$E43nfUMM*kYpBKLRr#(*J+U$JqsQvo9s3|c+JpENE|0kQ4J>cA*> z{6)qFf;#kTah7h9NvaCIJVl>9dR9tEG^~Vt7?fZkA&aYELeR0%)OryRq6dQ+yojGw zN`&Cma}uk{;ZRHCzWUM-4FI=nJGc~$dx89?nLB-Dh3AZu3(Aukf$Ksh zO?lOGGjRdUF|I*3Rg{kl3J)r@Hm7k|CK*ZbSn~Xx1F$CyZ7{rR1Olff^2I&jFY<_FX ziG^OBpsig%4$iun$bOm$$Wh3jE{8fMZtv*<8v-Bv>ZtaS95_L+8k|1MeG|J_9773V zn$}~Z6FVM$DIpy?NZo;@G+p=f5DmVPN@432>~no`JoFbt2#_LZ%R>5OeLrh2FulXT z%ULv%v79SebVCF#lSgXA3Gs;~Z52U^4h#GN{K+Ujl?h1Gy?~({Dg^_NJ)Gxy6{9Xi zE?{o9T?(h}Ll2zCe11A=?5O-N)HP$nKw^AkTENbm=1^l9(nx3@AwVMrLngV^CB?v= z6+bdR`ycK&9*S}sZd(~;ay!II#!S~~pH0bT1ouV_T-GcvSYX=3nebwKF-l z%bbW93$bxG6eu(wy}9+j(VLtrVGuCmw$`5%y#cSaUO;*-KR10&`ftF0a4DGBweE)4u#$Wwj*mB`z-U!v)vcQHpB| zE}HU_=S}qToih0MM3Fo#zr5$WhW5T|=)bCm4!U~pi6Xk+o8PNP7V@pq-Sp@`qg}v< zIi%#X6qTlnfrJ!`KTlLwCij?9vpX3y*Dj(XKy$!%Afu2HgRKJcDmr4%cPh+;gx5Tc zy`A@7ZE)1t9ibH0|WZjE_j5tg_(G&pW3t(6=$1uW~>ZvF1yqv6`3(Nm+RFKP&ZQh*a}%`M@i z5-(G%-DlM7QmdrBw_E_31tJE7lmH#B!cv?XD(ucez_b4)YJ?tSV7n59#3bCxvi|u$ z=JhaJUT)&vrwir142tkqhoWm^^Iw1R?nwT1q{WO|Au}NKor$(|58d^pUW$-kHt|yw zf+Ix7+;Y1ZBSTkME>0_T!IpCZ(RJxFTlXB7r&#$QHzYrBd%n6_IM!KfP3jJPx)&cY z&Lf{lmDOl3>p9td>BW*W0MhY?#-+0Dpf10@GB%6n?-4|`??mKQ(Gx*IlQ*jAM!gI- z92ZBHhwial8k%69TX&?tqj8H#G<;Cs%$S&0)#*{lLPti!d9gOZksMDv`xHFTq23xX zsRrEBFoRbnMi3nI)!E%&da$T4$tq%(TkZ3{{Ge&c92hn&yDIBCBjp3LEGxvzl=2sa zx#C=*;2?g=>X#w&W|UszfrTx_9DjpOWc{1^Dhx9;CX$!)tBv`K<%_3_;1~<^U;*|U zY4a!fad2R?y*}SObf4Bd@Y?hVyPk{gAS^it_w>IzHJpRJE z{8jKjxo3YB9D0A(|2GruSDar7Nq-`}ywkORp(p(+{3~zcPhn)3KN9x8vN(Q4_?7kW zCj#1g&i`M3|NrAa{0jIhli*K46u933f8`bY3h-;$;ZFc^)Ia+4zeR{&MSo50{VDo} z`D4e*(yn|1ki+#>QU}{?kGKDgXY9@-Hv& ZFLx~~0s5|R007MU2l-uRhp2zM`X5I|y2Sth literal 0 HcmV?d00001 diff --git a/media/fitting_sheet_big b/media/fitting_sheet_big new file mode 100755 index 0000000000000000000000000000000000000000..35e48064f6251e834a40646ef8768f659d3c643a GIT binary patch literal 1196508 zcmV)JK)b&sP((&8F)lX>3N#=vAa7!73OqatFGgu>bY*fNFGg%(bY(Vma%Ev{3V59DeanvIIFjw&zrxo8FhEJv>kArapcm7*xNX zYcIdX^N-Kd|2s9?9~x>s&qExi^Z)+eQ`>yZ?bn~1^bx1aulD?T>ihmGqVvcAq7j&T_rRfBnb#e=Zk^A8DRqH=pf~ z>tl`|Dc$<9>86kA+NJ&F9xiZmy@!s&m*=@W^7I8?ZsGPg=?k9w+p|d+og4JO9YOg| z<3!y(Z+&?gLH!tY>*(2qq0viX}SYYd&FeKmY5W!<+uo?8d#qDl$ zSFFgTVSX0&%5o1kgYIFvA_Lck3wZ6v2HVtq#Oq@>xAD3T<9i2N9t`vVc~K_SnWA&*>+=Hbb{ZiG?mJb%XPq|-LT+5RZJd%g^=uR;8xYZ>e^uEhcC ztKI!Y(+2%R{FjjQ&9mZy*wXeTg&uU8G z5Vf7{Y{F5x#|+U^=j%?<-Zk~Jom}aWb9a8V)hP8L^>O}{e~5R*4>VA|1JTy5A%V^L ztsY~ltwsa;sv14K#q+Y6Nl%byDWG0vU|x7Lk|vGtg(8EExnl9hrQuIC(yC^^DH~s1 zHjD0Bp3ve+uO@9j7B-zo(5_CbHN$58IWJ;*tXQ1tx@L~sg2L98JG-WMHT0v&c9%QO zbaxj9XxHj96cK3xIX|>{aBFBytbIf_%=f&H@LL6@35U#jd24G>u*4QVVY!q%~eCo4fU&QG&2N%31lFM-M{`;0*PO))?QH~67vZWhj z7V}1AODAn&A){GXTY;N-^vl?JK^b}}*#m}Xv2g%b2QYJ(2+PAtHYb>#GY_@`#;oJ^ zBSqag80+=h_-fwko4*X?Wy3FfL zz>d!-b!q!$Bk~^2y(tDYe;w=aXH!i4`kP!(^0eacK8^L2T!X`3$+;twvWw3^@+dQ8 z#ywxzc#lT?*>NayXDxVVH0mKV4yf(issr=oJm_njwaFZq;w~h_ja zg=toB*pa_)c!4rqV7$)&98FDDbY?o^bM_4EO2E-^h}MBg^_uwZ_$rVgL%fI?k@?<@ zUR9vqp7J|9V%aot+U%Job=wkr*XkK8cgy+6(9FF2fDz*xEQHZgxNF4p zgNIcZF@5Wx(q8F@GPrBRRM<5IBc{r(DH<^;83-FO^B~cmW5i@I8!;Ja4XeS8m<(F- z<4Hygvsm_w7+|qHV#H{R1(+*GjF=W&x5{Fn;jP;Cieg!WWz&F<+c9k9)Pkc9P9URf z#Q28I9Yzdb){hu5AU4fW zsC@JE`UuJ|I`O{BZt0CDMog%a{+pLkDwp zzOoExcHs+71DpiCTzuX8+Hp)20YLf!=q@ZIrW<%*JCz{OmiJ?RvGf-708j=Ni}!Gl zW=t)U;?M{UtVvJco~^5lVw!5l!9cT`law*u=5EMVJ3-pE7ekruIX@GP{`^P&HG}1T z5#Ve`QW@H}6w1bfYD=F&hGyN?27&(bCV-4_y)FIYVk$IEHY=_)$?Bkgo|?8LNoU3v ziKk7}y2$e|{M*S0nzkcRY9}<6UO(082+&lH$Tz4Hp_xrn^6vpy07^3#nC*Sr(~dZQjmB@>_7u? z?u4!jP(GcPAr*4&2XkPr9TaJd7_=@5t=dMr-WW)R$ql*_V#ne6IwcuzYxHGx5N-=q zXvm$}Ik25dkZPML4YLk_WkuXGXK;`@#P)Sr^5AY!Q3Wbm;WO-Z|!0vjfa373sLV#`h>z)mF2J#pBoeG~f(w*E-mGy@SF*7F?OUR;lb z1wDIRak5y73KO&d!OICy2#fIS07#?phK?;l`$3`Xwg6!nxGfpL(ho8IYXtqwZoeS- z;m+1N%swG1FymbW;Y$FR-6~-FgK{U@WDiZT0u$b4kb#ORk8&W)P-xW0vinbfwM~*@ z9r8&jpq=uU6QjoRcPr;7`kXn|xAuk53~_9xXX#EaVLQ!|6+oE$2;0dQlwGzH@tz~F zOvJZEYX(|dAlu1Z^_Q}pgPN5JY$t=Z9?Vb!r^Fq$GxM6SV>|O%_Sw$$y*!KUT>B&0 zfW|)CnW@cQQ+#UGZniT-2eKCxiCLP92{QP>T3F zlARf%uNioZ%W226EJNpAZC6?DrP`X$<5^@UNsuJjnFJ?DWGBZt*~!oIt;x=`Iy~b~ zB0I_B+95kZ>KxKYf*2486=AZIqfa0^f$PJeHrea?WT&AuOJpZa$vb4{q4{@@>;xo2 ziR_&8-5el0jdpAY;>O4~B0F8^IN50+)i&E&_miE#b-~`u&VjlJLy&f#QBBsx&`M+{ zO)wcU%uk8zG|VPeib7`dXOW$Kze$xJB|9VYN7fIHOOdVVPi_#0klP?!M8X_FjOGd_ zW9)K&XM4%YS!y!l(deNjFhh5oh0HAhl^n+sx;mLs+|QfL194ZAJv)aH3B*~XvDK&I z%#tu0$t5OQY;G+^-gL)%WQg|A1Wsv41j%t=Zo$DMZ_SBk55uBaL2>(3xX{fS$@3zq zc#e){Z18|4VJ%o`3f$}1+7nIMm;aA(Y_SN>lgc2V*aW|cw3Y&Xv_qq;gvEliB6m%#KU+A`z8eA+-KtJ-RIBfwG`<6zrb9)vHOF{+M_a*ESv zKq{s^Eo{K~nobU+k*7(9YOl?b z04N0ck#kErMcoSklUD~*kid)#_FPoQS`N7&t_5M6!Y?|}h{hcbsAG+2^IQ9DR?fHfIo=r#cx#{KJ9ulKcOY@XZ>oJB;#Ngbh69FGI@GCf z0LOVafS>1EhXaQGV{Wq8`>lO`YoFiR=a+;7%##1sKI^t`?X&(Hn6SrzR+a~~&)oN% zH;0^VJJB5mPPG%tC$d~eo4J?#SmM*=8OTG;w?JY=u5Pu|-y%KX^fcgCb?94)_?9BRrHG7scuNt(TZ&l4J-nre;VnhHaSzja?m=-6lW@_Ad*C?d9{72_ zHTN)$AF;dbLG+d)#+V=lL;%tYU!)ggGi0%zXx9rG^izo;G^4kS zg-|W!r>vKHo(VdOZSmj_I z)i%6UdJuNQgS}3Hd&>m_nc~7?tTEehs*8ERb(bT?ThDxofk?Ozk2B{g~st?Y#Z` z)xL<&GVb~!C~t1p7fHz;fcz7KX-3^~Tkdsb9QWp2OfofIPxyT{1JzECl92pHn}IfJ z68z@gQMMqT>>V9cD*RU7k*H|vdq-<;?|MhVKdIU?>v8YMNbX+l9TAj09MM+$Owad@ z^l(4w9bIkXtFd;$+UX;W_lI5r2xf;pIk$LXv{cfX=+sa+SID_hYcyeyKbQW%ltkjHB5fx9)&7_!2yB+g^8S3;S=f9nK zMr)m%Ta_HjtFM=%$3lUTlflW7htxG z>N+b0Ik%pi&<2(CoPP-A_Il)woSQEUJ(@>>$Xi%=r0{OhB7lmR?CBT=U_AvlYaFdB zr8Q(n3LqXm$12Giw_xxE-a|wuEX%&bu9_Q22ZvsM7l;ba z%fY@*N;$W5==PW(>=u+SVBJBK@yj!VMR`&K2V9{l92> zMi_iRh*G#_k6tH-jdLm90@$orvP+c#+W?nRd zMQzQdWuT@ou1LH?oFmfR()a=L|2lRc76d?ZaPJ~*k1L9dW@-AU4N^{VK!zwr*{e2; z&X8mqBDuXEp*cWJkK^r$nyb?|e!arx!N9Kb0~z#!xI1q9pH)!UxC8;0S{2P5*4)Rm z!(d1%A5#7$wLMn>7RVy!LjPmiz7G*lCtwq z&Sx?S0RRIhAGuLA8A=InK+Am5$~`^Gp0IVKu@i?9%7WDaJV87;jhhtk{ZW74kJ>6; z+z(xT)Sw8N|Dl&Z>Z%W2HkY#T4eenjIz(Umse{d2p7N=qf_g9d)T=-Cx!q*7O*d?k z-dk8~&fk7$MkZ8de`r@r<{A%ahGEm{7GQRo}H z_fLyMIUTttzMe&FYE4u4Jf-e3OI+UbG;(|sUw@}mh?&W+*K~vS?%08is+}5Bed(bpMP`mS!afe8M6Ccn<^r+9e2nke-1Zo-d0`-JN6jZ4R zxGWA0U_luZj5Lr4Lkg1JwJm_sHlGqjg>ek`85D8q1dfASsz*LOsFC4g(kz3Tiomu1 ze5i1g1{K;+D1ygF3aIe#etrHMcX~Z$L><8h#x&5qafDH{L-u_ zDnYa>qZpz+6fF+0vMef0i}z!rDI4ax;F%mqGldp0qh`v7@;`CoIUdyLwlHcm0#X4; z8Tcot$ukkw0y+sk=ySqE51clx{}`fya-arRnl&FGho)$+%kpbX#u8YI)vB!(S)6~= z!C6^9C4)K+Yw7sCl$-Tb6{Vl^^2bX*>)O-7-g+p7noW{@0KqNs9g5(Afdi=I6ke50 zPg4%aosapCx@L=*8lV!8PxTcLJ|Tx__R)}P3rY?dyVTTu&hbm0h?T)XcLb~`j4WwT zXBZ?UK33ua*%$mk0F48>uBl7QAY+dxza@{5?B)Wn4#Fo4>}xMWV!;IpSWp4|-fW~U zcA5QbA1eeGZ1UA2zfLaeH5q1d_Y6>Ip}>L-)-2@j&+0b#k&VdK*ZPx1d_R0YQ4pI# zqlZoM`8FTrtGh^*5Zd8m8gCrJ<3=Iba*c6=xQ#=mZ18F9WWtLVh*$C24(v(jw9RpY zE!;LTN0-`;LSnd~1Mt0jkQ13?Sa&dFwJ$NmRpSFnbK&-LveS2f!RKPq5v+E{N|V~+ zi6}KGsvk$Ejwa@61rPF2V3k%=2SPbb0Jw+c6o8s80T>XoiDxw@xk6j%h&CY16!OqM zf|GuZ{07~eYy-|T1LGhROa@+DN`ryPP7NQZIK-wk2O0<#;|eyp3|NBPgcNP_+5mQ& zXs!F(fFXqBi#lFc&^>7{43(VV@}*|be=Vw(l$*@XJTQkygLl~E(D2_AoK4XjSOKY6 zsG-rSRn^{s`)wO*CiAJMqGH3YtL|H)XC=+_4A)|FXWHYpt|9gA%LfKKn3Zv7W@eyP zEg6Ppf`&%raGxJ|S>IOYuW47G=?TUh`F7xQ6DTi|3fN8&3*bfg!OjB<43I2v5m{id zlm%s9Ji&EaZK|7r_LwOE+=%6b7V$-r?*Qc>V=<%cV)^D~&o|xxv&T(3*Ldp`lZB19V3q9E)>}sI7M~Y?Ji&UaW@CZ%hApr< z>rESF1?%k|3(SN_JxGkv9qX;ipwmHI-+D7x+4wtPy*Y=z)_T(@SbRf?*2^d`)t+a) zwF6OczuI~OQi^YGz14SfBy%7aOS!5?+c|H{9me5f?r(;I{KL?sjj_7cmhHDXy(OHT zXt`fMT6&*d>!G~g`TJ}c*=f{qrC<$`J8=-)Kmpu&mjO8NpE5knPrDr}Lpzf__8Zp2 zzPb`QRr9eZkX^Z#6Ps8Orl%|PgPRXJ*UknvEpq;GvZjso5Ns^&j0>UW9;Csb<14b| zOb>3QAUXq>-9JB>jv zzu&@&XZ@&Wba|r4SdNDNqT*X9*}h6isyzntmIEj;BAf3eFAzpc!oYoeQ`j=#!pemj z%tkb&gy&@N0!`(D6r77lfp+)P);kf3TiOv;VNn)PZyAl3m5d43&8w^t;1U|Flp)w9 zpF?*S+Zd8*c)ZvKpcFn&F3$i4ucB@A8j2vxJ{4n(fVsjH7vRG3>SvNB?kK6lpcV{L z$xCYqOn|kJ2K!C|k}-imX8^RACNF8?LrlnH>eLC`dXEqV9>d4jEWm99>M+8lXt5!I zo9D04$zKn`f90>McKkJX21My&Wiwvb?A*B5t#rM z%G{uYm13jy&NUmYJZxI5vv+RRZ`HQ3l*&99Xi~SVsGPFQIM~3A5}@es*3lE6an(ef zSY_p3XQ3X}3d}ts=ZL*NQij4~eCwW>jznU+bgNInipc;8^U*IuVrim;Y%qki6Kr0~ z)*2H|8|;HwpfQ76AbZnf4?RHkX6Fzs){EHBk{AWHXAS^)p$rRRXnpkk%v#O%h7th` z*xq?CP@XmJAb@pLRm~d4da!1~9{+2z;PgcD*t8Mq`ClE54JH0}QjZpVO85@`7w4x` zXd%OalIk9WoY#B!Up*Z3#BvA!Tgml?L#nq)-?~+@DYFn9xX1r`8Z}pX77oiS@8o~` zm`kxejsF$GjSWP*F5ul6P*o5ykrU=rg^{Z<*j++k$ew3%gr7^22(yP|0NnoKO|OEErsMf}YR4 zRER^gv~Q-0ObTN^1(yH}iqmnXJU(0I(cf_2Iioa*Wr#-Cj{j?lq5&REv1qMwVmSm# zx>S~f**BK684UIkF`uCN0<&docH{>e^5d@;e7qhc7H%*AJV-2eV6n6zI^MJpF4I!Y z0GWaTFci$@rB4Ge6dEe98_d8hLq(fc8@PAbye15TZC()W0Z@S($tojP=3*Tm`c7S1 zrHB+frf4n{)yOcC#nz2=)!AHMeZm2TL&* ziRTLAUwKu{WW96SutZd{T9;$c$x2n=lq zN<*FQv;hz51a39EiC%Xy?pRUHaF-YY9qLPJ(F_slDdO7HyWpkc$ptFEjAJv*{N==5 zs~262x8{~i^|DRL;3^gBJ&j!@O%k5GmPZggNG) zym@3)V&hZzxCY)m(XK3z9%EM)h$MhW*Vo~zn^#l!`h{--Llda>Hqu_*sp;E#V^@?1 z1bE_230BRBQv#<}3?m){zkHYymjemkvf(r@Z|c+`jWy%{MwR|zhyF5TUo#;L6X&fHRPHT83mYd}@LscWY$;y#EVGg)4D-iEsH|vaOdNrh5|IJQ-=y8+X@O4H zazYcq@*)Ay*i(VwZ)VRIjQ8KhphvR2zlcF^tiHEF|2F93Qw@5;?lS0ilPkZeLBEq) z8BIq&(V!>n&u-8oHRu6@o~-m;gWfmZpJvb>sAq7%peMMtw!rr{=*JmsZ1lo?fjA_- ziz-b(C~BvWPU?Vms!AsnfFMdog&ds}ddYfZR7IlnS3%zz(n;-Vr;dM<-(5RZh+CRk zK;dESRF$4eFFUo;t3Qi&YHDe($Y(iS%+3ey)Lv|);5JQWfK<3m1`gPjGT0HXtB_yC z;nB=DE~Z@+w23@nWCn{(whb&Wv(2`?`hzax2%J;vMgpwH<8&}-J9FpsE{C-r?4b@O z{f2x~xA}FN9F)(ce!bbi=VFe|;7Ofdx}(sE98A9^zj?ujM-_8?EaEZd6#3b2&OOp9 z3_Dm0@_slN3QIy3-QQctXY386a(j060K%XNf3{^Ob4<um`q^0t4 z(G0Q+gez*vEL7=(969FpY859+c;hN1o43}OGemVWXT3qy@k$>W5??1Mh2s_f5U&il zuXk1Y81!{ZnTvTmniUTg<3jTR$Yq8QD!9WPQji}wf~laEJvBbBo&y_WdApeQWvfID z;?AMK*~|13IRZfP=RtSY^q8jGRh#}-#`(l@@GDAsB;>i&d#vx09_$Sje8#2hjA<_7 zXz`Bi37%NIqiHL!vhnW61YcdeV{V?6f)^k|T>)vT+BcaErj2JmjjoV|caX^ok43-K zqgN!Mhf-ep>$C7Qq}m$Vc0UVGqZ~4Bj#}w7ilOStR~3nQVtj!S0LB!K!gvR=59*zW z_ni{)=Jc#Yya(q;FYk^ZoK6Sw?trzap`ux;-7WwXCMTPB7fPvk6}pA6BZCk&yD|9% z_A65H40ire63F`LdBSP)#jrc6cy3%Y+?k4pFq57qS8>-B14H6m$i)j-Z{uk4Lq#$k zve?M7i`cA>z=V(By&$3|U{>4Vyk(GJ&%`aLusjp@&SborB4y&~>hr$w0~WI?zg6a-oGM>{vg%UQ>p&2Zhz_jcZ=b}rPU(^Lq-v<)l~&4MT^)N4)8XLQeM zQZ+ByB@C?53zQa#OohFAElcgAGbbzeKAi(cl~_BQgkmc(m@*|_FdJAvl(y7-|ZI3*=-^wf2&_AE_zTNhXR z4SVCnUY+LBHl_Ax(j*cF{J7Nc#q!tkHy|o2lU=S>h z5w(p`{`ug9-88q#?$dnJN!^z4=BYc+qZ}X93!zdJ74XXoeAc%a1{I~U5S52gXw0@j zniWAt1yM_c389peuZoO&L8>y*s*z`d0JggE$xhvqUitEM6%mzDGGW&T;g;_D$ilH< zXv+Py{+%m&*Rv=obtVK%2pb5gRZu�izxpz=%{fo@fYYuv8)wtr?6)Cym9yEfE1+%K>oflp43h!JDCm?Iv zcg07`70imMx$R--N5Poon7&EoQD`aLXn+FQSP zu!R6eDS%(wj$-G8^@4*H`1FRb=~2y`M18UT$PdOyu%4|3otlF!OI4WEujB7J0^2+% z_RZJBG?#%w=$LZd%H`De!*-GqPG`A}^8fme^Z!)usD+X~*WGvDaF;PdL54%s zHT_y8#@sm<1@^W)CQy2vf0T-i4AEkR3X?XC0VF|$pSvl6lM5Mk>w4h)NL1%SqlMB907aUaRGrm8Sbfn-Mi_q^!3uKC5)WX zfHOz@8jJ~DoqyIGJ-vz+z1V8`MaTfiUXtoN4`@Yhp| zGgXu9woM@~Mn>o^f9d*pp89L0ks*&MhIi9eA7wc;^Hx3%qjZkU3f)ER>IqD4v6(Ls zY$Q<>oNGmGx^2{8v?GU@IuLs}3Lq8)Z^lZ(Zya`FC)p z2as^?a!kc6G9Dzn3x43BuWKt_t9aAaF&_CC6bFDP1TtojyjoSwKCP!0V~>$SC3EV5pvoQ*}mqEOaQ%*&G`ZY@Q~4 zqr4DLug3&0u0tq`HF2;rXH39>OLF)dnB8Oo?p?wPfdr)D9GeH&+`xgCu}a4K7R~8h zCaV}?7>%SPzoLFn{mF)8V(%d4cR7)FK=qO6UDA+5e--38hs~zZVwBU6WL60tsi?eC zj~sVi$f?n{3`#?(=?6HfVDk-Z2pbg|GuaHaqS%~lQ#SfRfjuOy%T^BKE}(!Ibjj8q z$LN|ijd@S)zI!N03)a=Jr|c0Sdq17S$=i@TsQZ;K$Cu;v!=;%m-@RC%^JDS@*Ov<_hN*gEgT80R){J^B!x4WgCUcTL&LYJ_ z8*ePWk>?67ZPaS2`Vw67IJl7y%|D{3-S$^dq4eI^#thuc z01^QF1^E19uV6F}J0$%W@*Ba2rc}gq^Q{;7)e%-GmhIHl4n=JOk}w z8%!F0+}P^O7~oh+uz3UQ##uX0K^cDplZD!vS6HxG@s`WR4no+u7^3voDxagO(vK)^ ztkEORgM=w_7boW(Xh?=A`GiK>4=^!Cm%LEVYa|U|w%$)E1@R*7Vk=+VctCu3b;?o| zW1A;(HdV6Ivi-{Y?RLpJ%YT6y5Ik2^Db<&;+NztkaB3vMsGQdheAW0G0 z|1rwGXGr!4G6HjitefCxTpY2ahTBbC_xQW~yxsQr__p%7vURis8Hd_vAR&`B4!6Jt zVr89wSdez*(Y;8(F)t7KoKH1O# zbrZs*X~)?{q7o1$YNV%p^W8QS7}`?`3|l85%0qQ7ot$?8P-Zq7&OfXh|>I3afK|im-+Uq}W7aT4xtlhL?@()bo(9ENcvXd+ig=@74 zMrw*%8e7cJD4`%WTYy>2*G|>nAYkisC0 zTb}>tDaEfb*|Z#APX9VExQ6Wknm&GgeEp*vp9HLk1Vlms6RSV+xUAC*7;5Pp?a5jR zE2!pYLl_`TY4-iRSfmS2{Mij0a1A5lD(L1DSaM^sSR293yBmWDKc{cOi{nOs4X_qs zv0xLBfJ3=7yAPbC81-2fK`X{cASen4-yDb;flmzAG59-B0wg+cq2b^Y8FfF!~OW`GV+zA(?R*18 zakeRUWG*$e9ohE$gbu*V??Ie7No&}!;KKLr3|80(5f^a*Mb)sd-v}?QG+vh0&=%J6 zjIt(mLvbd}Cg;3D+viH@VZKaL<2uFhKlF3fuq>x`9Jb;mC7hk;0a6uM9t)JAERuN{ zz}zJn5wqK=;^zASodNmJ{2qWuR0srk6N}$Zmo+NKz%Glx(A|jf&kNq=>?Xn&iO(C6 zzR2@1{M(bmmz%zl!&Azls>|c1@iwwAH#qlO$`->9k;4;_!zn!{$Y_5ASHLCXiEhq% zsK{fl)q08M#uNykEE>WjKj!-*AVRI(8E!KeR!|X<04&XYkc* zkj>O@^(gOk+w|aDPH6RBB*hO z8FH_*+B`$<4y#QIHL=wezO#JufZgWtwtIG4ex5Q^wA(7ou_Lw@w%c@iuM5@KZ9rP? znR4__u-#T+%3)^`SaXRT$EuL$1G8E=-^Qq(2<~LWTpDd= z!MLqm{;iq7e(zP-}li7Pu)C4 z@j8m2tpZyB#%+Es^#Ed}&i}1bneqi|vmp8jcOrKQ` zfJ2T-RY#bHWE(lOgN(sr@hbf?15J|+WKx*Q0cb>O!5pP4`043_>M(jN#Y&K|%N61P zm0;f32~_1I-IcE0sbrt-9->+TCOVVbmqusCRuz=)0Wv#)T2XN%w$M!6u2HNLd=`af zG`-1IY|Rv&AKTi?uH>J4Dlt=n3#TD~feVD#suFvn`5*}CW&Hf(grk-K(o4Gda6knJ z4-!LEa?yi&U%}geArv`7o1^MtXQhg_X|Gr^1+!-HTxhTZbVr%R*rzOj{-~O=Fpe1K znhq7^k59{z108f&$YV02zPXU6zMF}(5US45UjDMy)(h?Y^#L?z`G=;X)raYL3NSm( z@<6WZA@OKCIj9tm!jv?v=a%*)w^3&`c}gRblNFl%Er>_$TJ|LE==ZTj8`^H~K`+B% z;o-QMiIRq5+^i}_7Qh;>mytm)#sVwsM^k0ChCBD8aq_harffjPvH*7eA=5i;NhlYS zSI38<%2UW1343Xz=9e&p0!|(^mX&U9V9|*Vb}q_@5jG^)+`z(daWMJGR3-`q6=v-8 zz))N^O5Qf?b*RYwrWnNTc5hqf;hk)ZZ=;(VIP4XR6HZh+*+YkDF_@JLT)t4b;otek zDd2qo$@8T9AdHO$T#U{yjV8+DIZ3wx$mrz^h;u>xUE$dDy*Jj(NDV6cZ8WP3#%Q7y zK8W^IF{Cw=Vg}&{dh$BtyuhS80HKUMzBFdYEP+@h0vH?*+HXq>E}+-}iXh9}t9~|_ z&R}*{3#3K^EM%r3bjnWBMk0kvGoEHUS$)%<`>w*p4A=mfqp zXBNRM)=Gin$!$PFC0ZcCS_pJWB^8Zf4!)oG`G8m63_S7S$?S2cEOMYtc4U2j7y7tR zjMg{U4w&pivWFr@dH^4kud z-p}oMjJD9bY@oOC6^B-f?);)%_f5H+z+JHkyZ~`1!pQU#&BZ=i1dV#= zpq+*-<%1XNs-Q~cciy&JS;(u6yrMsEJLv+i?c{z0F!AZ>d@%39C9CyXbeEaxlzJ>+ z9p{u#U3NXzImDI|e?yZY83;MRe8~3NAYcLx#G~;kAiK`xf;htA2T~7ji`SyDoNZw9 zUE*ql;9~`q+tlZ)Q5pl_cLru&8$cROP)@oZq(;mbs!tF=R-6Az+KV8uEufI9YL23+X4*xVX5Q%O z{3_RwdE?>_Py={Ddw)nm41m&Dr#qzy#EHrV^`#gXjtr3Bt9b-p5n(WGc>2u^&8x{> z#1cE0Zhlyo_qg|vY4vNW-c1sdo?ZaRCEtaS6Y5=%22U|nlzzba#M(Cy@Di~*D;i8i z8L5{5RJ|&KKx=hGRww-gmk!9YWA-)3YAsrayBvECmVB~ROh!;LIBkAO9xNEkjq^njCUX>YG+XK%hkQHC*8w2A z&Y{_{YcrPSugkX2R}6ZP8hvyiu;RKFwJqCr2W(&0ZqDCx_3UEe0(*Xf6{Lh>VGb0M zK$gg$J5HNiWQh>wFiT~N?SR4Oi1-2)`?bi7!oPMDf|Y8(0HVm+Quif(9lknxT?PXK zK=>$9;73%PVOe}3mb44@1b$n8+^Ntr^tBvHc=uC;jeIE0AQa$SQx2uW^mtGjIbRQF z-hr3^KyiA=S!hT&J>dHVBNS_!frAO;8d%~1vr-7s7Dv%E(JK2rQfd8hbcO4`ZIm$V zg#-`mjx+*p---Q6uW&EUw;QON%tFGkae&Q9LTk6l1AFbtXXh~5HHUxRj#gI(&xU9Z zrN?wO2NKKr?nF|Ey-m>`T7{LHA5d#o9UAr`e*q@v1WB;e<`&QbAtrva9_%g#E2bxY z^lF{gEka7-b$ggFfGTC!p(xGvmz}OHVq)Fdu^fuqqBt^ak1rSV#eGI^1IUi232BUv zABqf?Pki2dXrw&BoUi(dY9#qqmy@+o1(q9Q3CZ@v zc{2!=TZ~Y+7c>IzH7!$ zj!z%+HF382l{S3 zd77CDH5Cof#++P@tXd6KJHh5v%BfIPQ_;uftEqOsD)dnjHtV@f2ULEEnu;(~_u>vU z6~Oeu;RvrnQH(`H_(3t&Z>Of}8`=W%S)LcO^+B8@+?hA!zEc&ZO?}Vx0+@C* zP>R*q7BSs?G_#ajJVbs{xH(G2dad7BiAf81&+Rl=xw-LBYrIx;Xs=lU+4CHpvOU1> z1fYB}^-K2#J{kKCG^%tXyiw$dS9<6AE&GoAgUt&(fPn+Z0Sd)}K;EIQfccXwr$(C@7T6&+_7!kv2EM7 zZQC|>zJKlR!#?dxDwXbZ^+PJ%$?u$#l0<@D45*qJi%Vo1srQC+ALmuH@~RKUQ}mK( z%y(Ac#0P;rxWnL>Rq*B;IQUSsw0PRp%Jn90kf%O*dwtF+g{GpKT%sw3O;-IT{q%$0 z8x1oqF#0KlDScrU@Bko!_Qg;JS-)bKPLZdtqF<|T18@bj->M~kdhvS2&s?dRs=P3} zB}A>#)nR>I+VS5nc-Zh7WG^4jCw_svxbg&o{e}>W*jQuc`Jgz$!@hug?vHvd9c~a| z;#4S}_Qu^kJcLKKVMl(Ez;-wTKaUd{H3q2=#V7YPNM~>lfE;+V_tO!rAGW)a;E%yW zUxMwEkIEXvJ4_DcVF0Vl=`DN0@(X|MzJL{piGNBf!mHcFwPnC=b|=k1)Erq-Yq(kp z7G?OQ=L*=1lA}PwD!k=X-ka#6UR|I(2+zp(_kRB>+s*@f8t*Pkj!^60aj1AV(~?h= zuH6ccEX;eZboZm&2u7PdH8pkdhJM>r4tIlr*WKjcd|7B?VeipRj#vk_;Vs_Kt~TqB zI<^ZZ$E{FXAsEbdk2K(o+8nwWgT_F3bfS_26}OXcZnrBt^9r{5v$Ou4$b_F`ub6Yh zC7mqk1B8&JFXx_VhD10;rj(3azmbz3VM??6YAR;u?76BbX1}@64G&cG=gj*$Am576 zcd}5%_FNutx_fR9+Dhtzb8MBf@J>CvQ@US)q(7vXOf7aO-cwbqj@|YnE8SrRQ^-VS8nf0SvBGIfOoha7! z7Qqr^CRYfKLmxTXj|JEdP(v^cxwbh~bht%ju)CN@Esuw{;Fb=5&djpndv`n$eF!Js z9kIyh8I@7zUXn}*f5`c}jTYT>WoZ(o&SLaZRH&K29_^U4l-%8$r`(uh=`|K$Gq9nR z#wn)j3$uc&SyS*DXlM7>WIvOkfJBh< z@da1ILy4VO(Ebeom#QtY+84a&E2!-m^g>l1cL7N>O{o_Au>*u#OuL%Ezw8F(0f_Zt z+U){_@I?YR+EK!6Z(@ZjhQ2!irHC5EI$d6-`QS$AB0lw55-7KkJQmQA5%u~6c-rI> zC0fLRNMdPe4oat@!)shY^T>VB-%xEU-~Rv=BFbd~`n4bPIoXlOWM;$hA!8NX}(plU|O{OOf-^vJ>x~BAy5NHRQ(`dJ9MsBDwEnLJ`x=v6LiEAhgbl7p~<6C{yI7 zJr-m|I?|Jis@(|}kOg8GJGz3(B`OfiA6Kf^EHfLZ*(1ApBiNpqmV!oMz+2YH2>ivl z2?Bhc13+@96g@#ZsFX|5ORXndD7@x;;jo{nB{rkv!>&k4^kp;9WM!{iQ-JO@o|TfL z>TslYP1HFy^unB9=i5vi$E1=3Rt2RQT-ow(!Lx^3vE?J{GnrEC^~bk@pe0}7y1yiF z>BkBzTSUW<4oN@mx($V(tlpaZ!(>hlKPNz(+UOsFHrXiomyV0 zhzBDxV$hqEfs$2bh0TqC`dQlJ8IIHDCA-_O*)Hb~+cd}g5O;iY&adyNw=rn?Z;jXV z&LU<`ewS?(b9Nqo3iGv9!16P_(=hBOmf5Dhof(gq<8Z@)!zQNQjo}XFO7;t)nYQOP zy~8l?3^qx^_w{tE&xv@}U7NeE-}1E9(sb)vP~XTml-cGgs+`-fjPkdES*GDnHnXjl z^<~rmwz{+IkFTyA4aJus4HZCImXcq;S|a1sw3I)(mcq;sokb z4qFZ;hM5FSqoGvKZ%#K$HnU?tlXoNA*HDD18n^p4^z^)L@nr&GnQZ1!Gu0cOSR%9F z#>kZ0A-|2GF6JvcDDkKxrwN9wcZzvtiVna{2%&7j?srAK>^vpsu-p^?M9^ap6H4HZ z+RC#7t1Ct+_vvIuEcN<++=V=uWon9VcX%KKG8mNJO&&dD12?39l)53GtpAAlGKui* z**Nx5!M=2|eS6=5r6`?d)Zz8-R0kF|5qJNf&@b6M*w=)b)vHK(s1r7~;JxZkki=v_ z=rrOE#UNjRf=}o@htQn|hqvG*Pl9JQ-P8iBi=Syk$q+N9>+(0tNW9GHA~(_DpUhhG z?`V~L`6(p%6~5#qMHFuDbkLZ$JJRnp$Zy+6JkL@|doAy!pkcst8p1$~dj;yC?H_h& zp19=rUS8Gr>Q(hk^T%A)%a=Zf&IiuXL6Zebk90^g^o}HfVilZg!kq;lS)n)AkxEMqtc`0x?Y7Ne@%Hme2C#f)FfE)d@8DmG#|fhP5 z?PFI|tYhhwA95_U1o zwB#{teP#7o<(8jXD6~sLr#OE~JypjEnk6y(r}Y4$y>49aFKCP#2r)CRvOb8x!j)_n z+{qeG!0G&GkcRs|fi<6q=c#r2g1qEC^EvoZUet)(CF$TN6Zw5gsXa=UG*;qi4N-RQ z1WQ_0-w*?S;}>~GLBE2R^z(a@59>`-!$7iBKz{muHR&jDxui5mow;)5FtWZ|}vvx9cIOsU!_&{pvvr$+9v@OC@FY zQHm;s8k2|*OXZQn8Bj(|Z7nMm-63NP%GX8BTaSO}#E8q0_euTY_b3Dn`a*$J2$?KP zV@z2PSSsL=GwIl_>2jcz75T1Hy2J$3F#lmiN@`38Je=M7mojVN0<_wID_fwffV!JW z63srQ=G`O;y0K2&UCOi}Kymt4$qd58#NOzC!WAYfv!*Ry$4h)l6_Lsv$0@pWUwUGt zwBDdNBb#EhrCU_d8{o{M4y2A|plE%ue#*ewa)z}HNVvJeN>qmJZ_Cga%s`l5mlF1M z6)OVsaMXZ+H=^$%pYjE4kbbOjf?~S6@3jT^$~;hPS@(>;ULd*BcVh7 zsaHl#7xyZv{INvgUOx5NQuDQP_(D{j=ANyELA*!geiKRuQk}8NfB0pIP7zfvIG5i= zbRR1h^f$#Ns3yeZ1m5zG{9>g z|HBYHRRL(PSnQx-KjZhgmU28II0x!-*ul@+e+~!2+joe=eE} zXum~K$;AkK41U>kQ~oRi)br{EX)mZjZMI)E+ENOb8hgJ}DF91MBz3jIRa0X-0UZ{Q z><_RW0sWIUt_83FyvmAcbsuzQcPL_S3_zMd=9wuBEYI`DbC9=jvs3l1Cxcq#!d%`}VmF-HDE*Hp)V zNUr!|oBObK+vg_kL5caoT4nhKj`RHZXEM#@`6=foJtew>Qbo*%l6eHzUoyOvSb10aEFe(6EkDQX(W2O z12&jNt}bKdc|_OySpTWnKNub9*02?n)5Z+UFcvWNu6GEq8YZ-LbT!pqpa+zLyF0zZ z|GBpzQdOExpMnEYWPN0mH<6euTxPOujz-FtSN?M}kqu48NyKuklF)>UBLv!*FHWKt zmGR#^Qm8RpCDZP05(tReJ@dTancv$FoWeA>>l{oc8a4phat3nG9AlMn2+7ZPl&{|H z(ULC5Y08=fIYkA~nRZqtn#^wE)p6Vtpd3QKRAy3SUl#v?RK!~FlynF$h~*PAb@(Vh zG&^Q9Xaklftawype8T*Q7|JJqcP@cp%(jH8(CxKZF6Pe!q)0umY9_jn<1i+rzFRP{ z!nB%TyX?v%qu@wtu#G>~A*dt0RJbLJ{{~jdOx8g?Xsu9c5$x=4*qrW~QoJ(knTmxI zV+y!N>E~0Bcs>0L8ykYH{BY; z0*5;`t7iu*L{8sjVPxDK9CF88vdNo1|u!)0oaCJzr0jDJAB9 zi*&foihen@>Gb?>ny@uFW+&*zs*8r0dGduO>1s9hzn1d#^w*vf(u!uWSTG@{@$?x^ zATkK>ep{jUnFPovR3IlT(RDvDU}IsxK(y5tU`4nn{K1?Q@0s=B`UVq1lDHKxa&JzV zT!WSK0ZT{JZbWcaSYy309f_PhrdjMnRLy&;!M;vi(t2S>tB^E-p@4v@So#fSPpL!+ zG|o=znei zUcY123Plo*_@uc0xnejWc`62E2tC;_@?&$uX(Lxz0t&a<<=|ggK2tqkER}eIRcz`Z zUfff~ymyE>ob}Zi)@e@l4O*O|fO({w)ZHTBWk>29QVnF|!IQ+kD_DjZh75WYW+n}Hhk-xcw{GP;2?!boI~$*4l%`USYt9aaF`;(-LKPo;PKJ(c-Su#|rn<}}Mo!@RIHkXb&WZ%qz59rR=ghN$D z3KL~{)@Th5BbT@Ny*0#w4QWF*Us)X|Cy=}N15#{YUI)-o415Dq$Q|fWR<3QyR_0+7 zHh)G#GK|U3fbF%xt0h6RzsUqLySmabXqL3*rG7;ct$W)Be#iABor$F&R`v( z9uIr^jy6cd3Yo`ErO?9=k`&c~u7`;^ku8v{0*+*dQe~=eiWncs>Zx$p-S0{N>6F`2 z)1}ZYqaN;>^wSTSCN3HEo3(JC{_FUcn-uLdUC4>9Pr%Sn6UT|BI(yqsv0<5lB_f0U zLXus4zetLVK%oRcj(EX;xRL8@P`R_l0RPB}{zOU61fXhBd*ECT<+ub735yZJH>01g zxtj8w@5+|%%Lm1;QKu&oUZV;ClPVsO`?LJ z2EhxEGbKkeJkMQ$wv={RcdK=USPLo)Os9qcswa$|ASv--T>wH99m1%$=@rB@uz_cl70`Du40=QUGfF#|b6}a26YS<^k@bf33yA3)| z8MK&UX)soEs|)(JkQ6rxYDwpDRGJuLitP*lL1)po5A1hp=?nOhDpj+;fX8Bcwqq*g8!XEcVD7Emu`^O7g zx$G0cUCgRK!1{KLwUs;sYqZVB$%b#w*T)9`jwTl7yZE=-hRn^v)%J%Jx6DfiHodP` zC+pGh&&`kDkB_{XiM7EN`p!sd-<9{^N0Xh*G9CPuXCe$r#?{*T6(^+4&OxK#mV5x; zMsZ`Fw>CV;>@3CU@7rv=IIM9sf%Gnbm5|W48 z8)8ug;{tq%`Q^B)doH-(EwD5HvjdFcWAzLK!5CO}(~A34ya;`|F32MmK7bQjLzv3& ze(UZopf(S%3w*a9Aqv@gTg;mR|5C}ww=Scks^@cz)0K zWi_&>o5jgr-{fmHg`f+5KC|lQb8MB4x=%@u@pg7`@L5XSOQ*FG&lNrHP|aEhfTSJi zXS3OLXnDA!o3Pv@`HehAa3FJ#Zd<&4uP^h(7pb^Y>h4lyTE6-9T`TlA(x7;)1V^)m zBhmqAVXbu0(jNkemzL3@AbDd>gD5l%#(YTIzVbtT5AS?oT$mcUUJj5Qfxxi1WVx}6 zGff7WNJ!S(x~Avzk&PJMb3@0)+ijuM+$r#_lu;V{$!wQ)uycN>Q>E z2^}@MmKW;Sao!>>z)ga3T_IGIp@+ z5jc~wK%0|}x({oL7owDfGhx*O*Y3AUr;Q-ku^u<45vHt#s7L59qxY8H?B5f;Bi{1y zFVEgC{}H|`-nTOc6d`(%1MKsT>|oS^*s#d^Y*bc>zDZCDTPDr<1B{1EPMRS{JDM*R zXP#1rn7)h!Bc%!#sU-Ck%22{9lC#7#gO@cAs{=e^>jC_D9f)0VY4UFee0dB`T3H)g z?Chyzh}ot`q-qnjIv|ioHl=zp*7lU29nG;9AP^Jj8q>NPf(5aiz`ffTHqXGf5ZM1h z;bbwlT*AEOMmDx}r-lQ1E!CywrCFOwA?_+@k)J;xuxY1o3$9i`*CAKi$t`TfFMA6N z)P2qg%q$4cnzNxo-Xy9cu+yJjtB^O-y**bJoSW0^aYyxAE2D;*&iZ1Uq^z|nTiPVI zrS#5vNEjQRfYEKmm>%3c053{y0Uo?&Mpov=H}(|~X|#+-F{k;q>ny(I5wDTnK4%WQl{1~AExLZhh1jAfOIV` z>1*n2XW-UjNyoY}uq;mLt3Rhj=oA2Zn}3gxN5usC59Ahm+9j+-egt*ZBK9i=Oey$L z{rdyB<`PD2AI^5g92*j5&&atHfFMJdG*BIr&!=ApB`TApagG)ialxJHLn3zq&d}ze ze>`u%?BcY8!j|fj)iec-C2o}Sk*fP{TKmYUF5~nb1*;0@gMX{-RlVE>Z{Rzop=YHO zGyVSb;FEJ?r}W}uWN~~q4H{2H)u_|aR(#K|2L994!S$x}Gxnza@pF9FBAS_VhJ&7D zUE|OBr?MBPi3$hup48Hk#~yF;33?Z}hDqJ`G!T>E{%oqVKKI!e{gVRAm;fmv@rK+S zflwAFA<$v~?Q3_9lgoYNJ&MhFxXca(cX==$hT1F+O)L?oS2nhhc2d>kq+#wd>J)mE zT;dPExw7{#ItEztIH$R^Y{KOw3|Ch+VjNzdE@%5i(xVQ!Cpyd|oxAc*`%^kUwq<;# zi6_C&K<^|W>^Ul}?@t9;K!2rm~Q|k*rB3Esyqr?%*)j5jAoQm{0{+z#Lon*1+O*CYD}0iGXw; zTIq+c<>iqGTdx#b9GG)6a}GjjT04KX$Zz4va~rSIW;vESS)Xf+Gw=ey!cfuMM|l2F z%Mr~ITyom@0PTIk`kU3%X-O(WOY(E{&&Ukag#(0z8?*wiNHJ&k#S!MXZH91&s5)fZ zvOp=tD-l*p2UPvj`A|3ngcc`NpJ{@=zM(oX>t+fiP&je2I2LZvl0H~56=MBl;Y}K* zIzT^OP_|Y4Mt}4-3|dnS%$`_}$^hH(tJu~g+TucXi1I*sA9!AuemR>#V3U)Ie#~+k z8y1C@_U{}U=mHhcv@^tT03I{&n;4G8=b+WXpiYfLGfXA9dI}Cn7ghJ-UawL*@$mzpgWm}5+0+ezey?poBF*i~(yjxTGPhWRvVVh)eV2Ht3(3>r9_ zz-G;=@0-b1Ssh4O%w7e2+-FUgn*R^^DlIggdLzg`>L)!2fFIQ>7m zFtER-RC9gRVh3eqt!PKbiNAClo~VBl@JOVI|D0RY!g1vv11Yp9h**$5 zX*L(@Ea5P)17PL)$wea2ciZnM5K6v?g#N4a9`2z|T2ON~E7Vi!Ip0|>n(;i<&1)1R z0vEEt^a!5+t*cR7NeNlhMQh1wb63S;;=2Oy{$N?%of;W4RJSu(WJIR$6apuvJ-N3{ zUv+ytvLd&KA)nVmqmCJ|k6K+aTBSju&6^06)ypeC6J8HK(&?36dW?mnXDyj7hXxvG zUQOO01v;anXg`W8S}Va--J+DQ#VAwT+>9+Zm0rTaj&wdlPNG*~TG4tIO#x<8$oz;}!{h??h2Rzf}M z77N+!@y93m)#S`=V}QqXxi5R@`7Sy#bJ?3yVE?QXsR!grQhHLFBER?h?9Cuoo{%$a z0!L}0=A#UYQ)nQy`UQtKfht4>(Jzt}o)|Id_N~0Ft+M4hR=_m3hDL;|v#>Ks4lDwkG%l#dWW)h4=!*6OJ6k599z zYjDdKkIO4Tb60z5iWrfgMh2u_ZLSO!No0x_oar$Np_NU4ETG?PTs57JGah+z_{w!PNWNSv05XaG4)qMMdv7!*MjR34emPt$H4iUE9a zm0)x|??XZcap4(VMa;Tj_!VZZ05t_aoh(veq`m@}!yZZc!zrItyzHBAcNXZl1crp3aN^R!yjRkkg^Q5N~F*+g*{?Mnk#Z1yX zKb|P#0TDo#kRo$@DMKkD z>HzaEfLJnd7u+QchsC-Fm{>M>egZe&Jwl*vHqYQFw>ECd7Q67&w z<`qhmA?`<&I)L}>Cfk#NdKp#ll3L(6RgIX1NAVq5K=CsDD7q?Q6krMm zVJNiR0Rvq80j(*(#GqO3y%=g$DHXW!5U?p*9OBaRM@|W6#J00!bZhLX1Z4yGuzjLM zFKK;_ozitFhOfnzODQ2Dbyvz`Zf;pnfgd64ctiM-qOezNaR)m=CQBwG}X)wjgDf>OhVy%<<+tP9aU6eAd}W$DH}&X*%o< zg_;0v$pXBwP`5Mj4R|lR+idDdhHF6H!n(js$}h4hn@bz!;vbjF(7)GgO8uzR!fG^l zalYG>4V^4=dj$ryDQ_+*(Hp7koqXd)<+I7YIRaa!GXz^zc<2mPtQlMVU_(Qaj?RHwVtM8R`;i2 zU31U!Vf#jA|FDkP~;eLDdB6^JYUD-Xvoq(i=70WKfX% zDA4(#JYOVF==#Qpx!v8ilz0u>0I`jlq6&WXP4m`7e~%1-4L+B1RvBU)%K*F{)V0Vp zL{CkW{ruF$gbBBBUYPM~pP;LHCzN-wXwxNV*lZuRI72OsI4_l5GsBu7N({yAk&zMl zmB@FbpOX7JDDTIxzP$~f(yEwI%;bxI*zo{gJ)ak;#Z_xWHE};}ZC!R(1O8D%u2{+f zf}_qEb!BXMFt^03wpL#d#kn_nSjEJu=H;I?59M0lx-cQq1nvnr3%ucrOR)PT&5jN~ z#w9=sOsx<9(>o(Kl^vx+gOM8WlYGJCIKp1`(gjUv0T5(LI&&+|DD9d zt_sh=me1%=f)%?ix(h|Nb@6VBa5)VIXluPbtq0&H7MwVkeW#rN^!phD z_gL*o{r3Rna1$4jiF?xOcqI;B@3lM`nwA6i9+f)d2JYq=M99yCqVK{6?&L*8mmxu#jvuuoE9*PJe@sd~vM!AF)-&U5WoXcL-fAjCC#7Pp9~90a$aBn9}AC zxYBxXf$(8u+hu%zU%BKwnXCD~oOw`FLwFFavZ{IYe+pE2?7}gpckDuJ*@9w_y&%Sp zvWF@_mrD;7+Hm@(oo6R#5vNKz%NIz0*Jqp{Lc31cel(|AWPwsz6ON{4J|-4Xf;3MZ z{z-ssu$V@D4kF$3^3-ZAz9~FQ_>9^#hk+c^lgOc`Ga3sAN&JoX;AM<@2~{5o8OGzv zs94aFN~k#pf0D5FB3WjZ0oqEd7_YAr01o>(e~Rm1znNlv%dH2N@d5`?3Y}v;!#%Vr zXO%~96qv}Wk}fudi(5+kSz);cO5x9DaGSnqff(iSRs_8mf0_)S9?fJxi(oSty)L_d zXZ_h$u8;}C%Ef#&bScEQ4LA(G2SaZnFg$YQui8k%buA+&wP4P06#(Bx+^vFA@kACTs*t~ zKwB|^yDSuEfQZ<;#r*XWdD0s_$Pn*<3$uJ|hoxGB*(_&IHCQ>)e^F|`Kjq^Cu}EJ5 z^6z-5-xJLbuX~RQg&@LE3h(E z5JScQHs_YUl85P~o|})w0RNA$OobTGILjz^vgbsLlQf+&oea-dI&l+6na-#D}~sG_4e1kM(3`Q*XN<&RUMbXg#T zN{A>$0u7${gT4Y=ziS|bYHWma#kkO2{I7ZHqjo)Pl%fx5q_X)Js5&~ zq)noK^}=s?4VkjjhX4eD*6R@r}L}FC+wRcy<)XOV79yOzb14}Bm#|QQFo{X zW4$Si$Qo)2*9A%_tlHc{VOuzSn`sD`ClxIYi<%?+exOYa64pYrv3tw+Ss<+tWi8=O z0CpAH={NW2j~>11!9`Ysv~<&VHDVZ)Ih=w3*Gh5S{qVGUmZ=NrYk4Rl_Vwdn%*r-o zF@|*k8*+%ci+UpPMuC|?e=_?Sv?0}haH$b%SgQQ7%QM36^3NZ2JF)B{kjQC{_3J|NWUw>;bzks3Vgp>@w8J6_IJ+a0m>_$TK+*> zI_9xJi)TLq8+-bHg9ttxe=av1F*2(+*Qk1;X@=M5`66xHu9mev^$%aYD?Zm>_OG3S-$iEcVFLZGGL zmbu6q$V06jZcPV?>YyCr;i1X!!&*Lm*+sAY17K>;lg6s$%2V<=4;PA^PZOrVC@9BmqlYWwX6|K!prdWn2qoL{*etqJZ<4yZCehBYnS}J;Hw2%1oXf1{>RwTdc#Hh~90$M}B#aU1vv7(st;K z{*LJG+gNf-b5_eKo!A;@vf0h%=y6y~W8x$eRbDQc8K4h``NzYY31V~0dv-ilR)!boP^m=M(ewI491$)la#qL0aJGjCgoPr6ydpVhdvDu_q|2Z zw3Mx;*tCKUB_lpf&A^hagWCDb=jt!w-wlMTRkk*J89-Ar&H=EuYG{ZOP*Qkiq@Lb? zz3Ex-ypPqMjutH`jB!u((QWZIQL^+*1<>4k0M=!Alc2oEYsk4|ufXXT&BbTpF9WQ@ z^{0{-4~#&BYoxJ^S)78wL$)k0eniw4u?5|ONuw#J8b!&oa1MzlAsNbUqV+JBDHx2XipfGmF5Rd$vzZRxbYN74z!@4qX6C0 zszEf;&PvB+{-TdFR9|>beA$86w3WO0I*8Q^^%>6L4u@r5lI^hW!FWlDQUI-o6;MNkHUih9b?y+Z% z{5K#)5k3`TECbY`7q`%q^8Lv?C|6V2;Kc&cdg`3Ek?%*_a1*_!#knywXH6MsK6auW zqN(X_y$?jegXKRV3@+5?uS*GAyrgAaL#Y$S($;JE zz(9%|vvxy?a5t(CqeGLkQsZLJ#F>^g?3)xF@75AkFjW%N|@Y z|AD3~auGCW(vu>h_A@;1ZYxKU6-6nGSJzU?%sb~5CEEfSzNhoD+_NCSnFq8iiUw?p$UPjw7hey7}!aT#hH3MNvW?4@(Dm&h6TKB0#VM=fr@OW z#iJLD7197vK&~Q&>H#G5Js3wM^i8a?`Lh*^c;CWY>Gs~GJzz?+Xb*e%^y#BL zP!;H;(37&HvDBew?y}t7814wW4DkB8m>}u%_y?hiPo?pqHV=5zpg<3lu}(&-U)D)T zZDbNE0q5$Py;j#dUc;G13Sf&woHX?)rEp>LUP`G*U~JzH%+^~%&O|NlUSmp6|6YnP z4<{)NHMPln5Qp?3LpQWJ4;aR=POgA#c!)O%M)Ru(R=0|uuH6=KVN33jCb0{8d}PQ&V3F&k1HyP12Ywpmgru zw4iRt_H!h=&}ybCLL-1=t9&(Uku#jRv1A)NhZAp(lk?fc9#!s$p(jmINYE8FfRN*v zgsF^Cq8guKp|)4W)Sn6xH5@dN;fYQa-`v#=T&SLzz|ZgZW4lps9+>sy_aCaof}QN4 z5;nX$x)#QEBSfWPss^|JutzfHdkPSM0fb^*qzbJ)FBQsGHiur6RgqUP0Y%ZY5VGko zhXWa}(_)*j;C2J>0z^t>oDS4)wX36ym}IXd*kIEzqM4g)-cpV2 zHW6~aSE&a9*fz}vZcyG0CWCAUmR6SgO9R=+lo5hgq97M(YAM5WU-rkEzA74`G4}*| zUT3!bGPYo~2}RrBjmtp_;?kr$rdLBZh68?drR*K0J^tjg7N+)BhMKKo;#c=GDqT~d zP#3Z<`ARvD?7)(9mvfWWm`|AnRdqw+s7yQI; zOi__`4>3!eNu;W}QQ!|~VygLqpY{gp#HS zt_5u*mhWe;&I4#k*x3lrHbx|xY`Mc~T`f`K(+!cNsu&O5C;N6bpJ&Gsz=gxS0tFTF zk{0O%qC&kfWKyTm5KJsp{E&Kvpisr><@?>8dgD*Cx)*52h@|M26?6(xfnI{AoFaEB zK$U!07bC+d8gLb^kKL1aZMye6X-%)us|v%Zk{p6gK0=a%-^7AfG^QmenV3CtKeI6% z25b2A_d77oQHx3vY#ZsLihdPh2&9klwX|W0J0_=NDp(*n@S|7zJy2N`#@H>kqp4{q z5)A|lZIitrPV!FU21`V&)7V;6Hf5nw_>WqiMZSJpp?;Tu=)n?&RI7!3HtBT~yJlfz ztk@v3Qp^)J`+X%#fWBQ92mI+YWU?2yYs)*G=7$b}QYmO4xBYlOqvv5dD2sCU9wMAI zlahgOZnVv5dWPJ@jm=Qwn`mhId_aFbvZ&MO>%&XnALLf9o13fiOw@(%MswKKdeH>S zu<&%hVD39mlMeUJSVJRefI2n&6KpK~7+HN~=~05gjHy&_3n7QVjM5!ffR25TCgK{( z8H`O{_eVFs?PfYZ$V`VOjx;Y-{l5l%rRXNjnG;8!e8qLKn|6G}?OP8CJ(^AzT5ZNZ z*bY~sV@F-8~!TyyOAhyv;L^}`X)OI{_BVo?_llgpKv5W)Y;;~!;-)_ zLXrC>f2jX0xoBNzH!U+-{nfKzY0cE@Ewny>qafSP-q!a;n*?ytNn%`*<2r1U7VKDYi5ce9d*+ z{2Q#t#C`~m%MsQycs~o6KeI%S7K?ua;TZMo1Y~cfIA#`J%PMq-aC7prvyD}@G(GQh z^D@5Ynv)1oe-DfoOv*CmBt4&_7bvVI$&IA+*T5Vyl?(eO1>qQYaEj^W2$ z*`{?6BXsjerhRdA@)^+h!W^EI)DytbLz+;+CdKBZuB9V+S3BXXy=u@TvkDFB~L90G}%CPRbbMS4X_9kwm7?O z2Y&o_gm`(ohS(6=Z*c*ofjAGkw`2Aq!vP%Flq8;6gJTg9%IbRIkAz^VBlMp(+dfFa=zFae%O#o+(SF9#WU*KNY`^KlRMq z{>FQzHD6qL$)&%D&R`%tPb0cqh$v4WT}`&BDMrOs@V^*4ryx;+F5R|m+qP}nwr$(C zZQHhOyZf~Jw0+vs|J;`wGcWU2S&>;$4;d9zyY{zMbpj68`ZTV>XELskBB)F+w~v>C zm@;lY+#1*hepi4$snlXCt1pzL8N}$a_gZN@JJs{(&YDS-@$vg*JoLyWMT-!i> z{magMWQZ5ZE3tM?N6=;Rhpt#_|aQ?)5QdfoF+??mVfIm=YMNuG9D#_B#ab{sF3PiJ6E7W|&wX)SJ#Kc~m9Q3D(@@hR?uPh)I!Us=$;E;c!R58e~m;zkiA@`(~S zJ6GK4i!`IrjfTz#;-h2sNepBeS^?^AWX9_hN8f}6_a^FP@Rj%sbC#38r=SZWglFBn`&MM;nL&>**U{N%7I&+)hU4lsz?60(dqQKg!XW!9HvbGdQPLmjIrF3{GiKlI@*f1zHfy zDIlUuS>uWvW_QZ*nL_<-j3amxe5>H~dH4-h|AfL5hnX$6M<=r= z#z)MWQV42{JTN#8GrNYSO;Q-69Xja$C09Or8`)b;szWGjbFI(-m2TuGdf z8#2641=<%^=xNpUX5_zv=e(l?V$8k^uF|tNjQag~!wsjOZ{7hvL7k%&Rj2c3KI5~- zz~#pH<%dJjeg0NfoVBkvoGRl-a#MRc+cax*3`+*HFdYw#d$Eg}kCqWy0=oXHY3R3a z@WRBIv~qJ8E#p+(B;MpXi(Td{1VUz8;_92ZR;U?nDsi73jNf)ZlGP?4K&e`vuBhmJ z>#oPoRO_<5rAOkrI2hK#+sT|PtuEQS03hifiF?7yi-5P3`)+6F-4>%ZLR#NYe7hyA zs|XxDPTw5ZrDm^3hA6{s1cg`t$%^s;+3YX&B`DtRd@~UvI#ne-w9N zSPpb9h1OgIcP1q%~<00=gJ-i-9QQ#0i?E9-gvlbTf?PuNTmfAU9AH82rWd#02z7 z0p*t;5CGqdub%Fc#Zos;5>JEE{$NuqYtZk&{gHEMS2Y_IXKW^>iWaU=&xrf8+|0`~p|J!8)@ROjx&{ zB|ue}oj(>VO7^&4ZH?xY$oTpE<*B7(;wrMZZQ+ebtOpFirVl(nSZu08k~U;*eNBOA zUJv^~B;-uO#Cj!El+4Fu(L@4AR*4mXrPxTduwD9@3!X5Q04Eox2ybQG>IH4>WWxb0{*?sGc)|# z0VMI}&*DX}HIVWh#qxtc>fU}WvDkOv8R^ivq|bPhkXK0stL{hNKNfXg-FKtK*f$#F zbnaf8QDv*mLtPdRM+N&^-wM{308+tZ6Qw321vaE6yHxC7jhZY#^Ytw~Y@ds2B$Hl@ znp9jp(_q{(0eqQ4q&5>z{k_ze!R=<%-Jh31z*`$5r#3pNx~v%*6+-ndH0m(pcn!v` z<8lj_7}A0!g=$GLS*Z!;+6)iheyJ5+$xf0(RIQ>cpZHb z)m#HAF1Ov!sdKQ$f)jgc+uk54?K{OqDqv!N*@m*fR3~O*J@5w-+yvetvkyb!%cp{T zOX#<>wemLvg6EG4Ig}1b!j{M0Ok4pdq@k8jOQVrN+UH_jOa8Ow1E~+x=fNccJm0M2 z4=oUm?w`3Vf2mK@yk~avXTK)8`|($J&&ErrVBgT`+@^yczm4|CkX#a}dMnaZ;gxJJ zlqb*u-)s~yF@L@@xfWP1XD{*9r3+(A(&ajpX2((S_w5ybJdgho-Rr1XCY~Aoi&s8q zb?lNyd<8$)gwW&v(-4(gS{sAdXy1@ly-5M0y<<=XVhor7yxyiqWPHbjsJeainb5u@ z16H&MF`=o)1tRceke^Ed@R06@|kL@1Y{PAQ3;HW09dqCPN8}zRkyMBU<(s;u7 za`-%?`CYIOTYHf=LNK@-IYRrQ$>0{j732s42pZOgw~~3PJvoct4K@Onr?vB}vg-o8(CvdLNAA*3ovK`GOL1|cRXw`&T+dZb@w z*8GFBcf{p!C`5nCB~F{ z;2kMH!%kz2@C)T!ww8YktCq;a*sjdjtCiIvnHwRmq>VxK+r< zImI1u>bJJ>e|Hc=YRLJ7U4stC54-qQC1FnCRwW;A;Z`+=t<{usxnao4xyr|II4->D z6mt!d*n3Xx1zgtz(#4rP-J1gN%embD6RROt$o+H~uawI&c%U+sm_=H(^pMpdLVL*C z7j=ET4Gic7`$LFjpO9H9S~dTaJJ6P1<5S8;m7zI-gYEFR z$wK~^XAH?ozRbAkXNvL4LVmL$wtE{*5;ie~4M>~1@Nt0G7+H!g(Fn(pf4Bf5he`em zM@_H;$S|p8WENEU{f~MP%VsMe;t|NK|KS$cjR=v+NAZhRS5zL}Lo(8X702#qoXb!z z;6}@})~n5Ug|2Ule_4GQ2tmT{8peXOkvRC915>mv`v}r&CrFCPq2UMg?+cwWg>|1T zVT8@0DL}MB>r0n4VcC+Veu_|6p$`lV1M`z?|E6f9 z(WTT9RBbarZe2zZRuQ!-C~ z@pyC}P+6LKQu37P|2caazidn1H9XMiCiEuK=9dHgO83@yJUGFeA#27T4;ory>thrc zclQ9+(Q*QbyMI>tT`H0i-j@`9M1IGwYPfBElM@E=V zn?55vlk+^sGb8j!ZU&ftKHd!Plf1rc?UB7fUgrpR{KB;c5ktDx6!)xZsE&eM$R0>(f`CrGfTa+?buyT`5F!W40E-)I z#)?Ip!CB*VTtl+nuObm}iJm1Od(+c265Ou66e=A!1-foyR75}tdY?qS1ljmeJp^M+ zfq=?@MTD$HZ7>uWfaDlEy90n4?U8Stlv8L+6$COC{XP?z4hPvj56`&G_5fpK%X(8Y zz;UyV`rY1^0MI!aUB|q9o8J>t{Q8aU>Q}XIZ5!IHpjUYRqI!Fc?41bzMUU?paqo^B z|G4k_nFGwqCcX!le>b%I!_6|7Y(c8BZziHV9BHESplrgzQ4OYchGbC)sL3VwmYSzV zf>SYzKrxTq*Y|JEu1rLKFU{I9y>DHWSxVtOEwgo765H4r%ckCwU!SG;W*Ha?N%qH(AU#egNy*tCH@dRkKBA>cDjLF?V$Z_B*k z1-Jzis}?0d`LnvEWKMsrPV8{q)QkPON$j7R2mV~eZ}GLi+R|}v#NJ!JuER&ik3Dq- z=+3rRgBR>jMgj?+;?W?TY_efl2*;2hD04F+d3M`Ab&&?0tyB=`me*Dj1U~kWFFmRWzt?~nB(5CqA z5*ChlAie#k1`kqq+5YkRI$9Ha6rbI6;+fz1W0G(&h~}PS@2r2DH2jaB3{62GW8ufw zy@+~9=8<<~X_^O37m;3_#UiTYBpyS6GL{VTUzc;7>5QTlYu?OV5M|+5kb&xu+Z{-i zHBtaLxD8?H4<0GOhgI&tsvv+(&McNhfL!82zR5gZRzftt*lRw#F;U|v~&ZLCIS7wfMuHU$PPq_Wi2+}<`B z7Wo4*yVz!`<~QSeeK8Umeh@iCDM%yy#0nheDo%bQIgZ~Xh_?`V={|Rro=#%9Tn-Nmj|3sVvX%AZ zny8w~U&(tRci^Km4Pz~=CFtLB&~*r$6J-PFY(AJC;XItF+q;(+=EHTKC`wZ0WJY{Y zJEHKWB3vj%pX+ZF2OZ3;D_BH*r_b;@3qNy{Qb|;`<9&#zH9)Lzxr|R1>OJvbr}fv2(MhOJ_Tm`LvLECujOLE)N5X*~ z{^V!PDw_{>!@2tW&aCmK6p%@4^jr_s7#h`(txQj(vXW3B49kt}0HqAjH8)hhivoJK z0I-HUi$@UWobDrlMU0QU(^aY3-Bak9Tf8*2MqR<;7b)Kc_C*)%U+}L!_`>}vo;6tV z^6%iOWm9+&{HQ@!=T9!_>Tr6pCJk_EWZ}gLS2Ns^FE7HsqI*?{mh(rG&ok3Tn8z~$ z``fPAR-W79y%a*=^mYYG8!`O8xL}O;v2m*_M(|`{#PFva91+f0XQ@hHu(ClHXP1gZ zS1b6*0iftfqsqWpM8;SM8^jQH$PK`f5&{`H|C_MRA#se(!cZ%1&3#Wn&^`1E(FC~Q z4;Y+h)qfHg%SQ3T-$0pIfZ$N>mbCy&hI~?zjS#|_%z)hDY_~`io=?lmg%U6*<#$Wse)&Q8r9T)^!OiN@K36L`UWuT*X1C)DFMLnA8ls1|(wS;z0Db@m82N*5w74H#?zCwm&D9zox{9oU=6F>El~ zAeiE~u?1&wI|kTs$V&i&bQ*xHu_5pz{2Hn$3{;lN-J-P3kk4wBK{7)FEp?nv-woDHkMf zwBMKcfi@u5Dcq*jn(uqvU4hdVapYx&c1f5e&dInc%3~R?Wx)=oB}j z3p@pFSpTsx+pT$z5>72Jdxk1hB0!v3KsuhGf`iFe3NRXk&9p=v^&99t7Zm5btSCP* z*^aF>OL1||75vdk%^Wpt3}aHYka~gP$q3YyS2(Rd@Xm8PDD!^t!sh4p6wUwZm|f}} zXkA`IHppu?n<4cK%3(POd*NpQrQe8bH-6Xku=Y8&ksF#0>Vl3rLZ}Ii9YGH3s4K<`$wXw)#q#GB!vA!_3CK z;{MJAY>kxEm>)I266)+BjNX^yapMX^j?pFA#C&+FPlT@KoJd_t}e5cMOZm&`PaZbL!V>#{wIe#nSA+$ zT7iGQ)IW$VUQg_P>$mQek%x~rGg;IXAMpW zr}^Cekg9y6(pCI{l`1|gD`a0`S_uPR{)@_|LNXy*i%Z=yOTYlpgNlHJS>mBh-c?Jc z4Z?|8BPeIBVH7{rTbfv+543cDfenqkfAEb;&Lg0^lH}H_@)CXb0Q+_>ifL|=>wh)sl?#f>Vy=R*>59n`kP4@&iQ1p5+2>i zX8J?I!S}kP=ih3&{rryW)H-Gzdz<2LA?~IT(wF$QT_`IWd*e1?hAFwGoT^(0Va*Je zccA-<=U>Ji-t|nP8=!ZR$J6*mzV7lp$zF2as9>z}K-1J+!PZ3yq?gV$Nf4@8XgEd# zE4}~KI_O3nq?2E0=Q%!>z#r`0oQfSP88&dX;2&we?jPt8c+>eKIA?|nud80*VBM6I z4H{xTvT>hYc;M_{jiPwTa`~k+KquXBjyN| zipfdwp-w+ogJh5648EWz^*bSl*9Uk`6)ia;ACR|%h|Iq48`bUebg@H7V=%m4szo>> zuWwpUY9q4whJ$Y7Z2^uhtdC&{63&G!lIBc7Wg>i}H z=rt^Cxf}LWlhKk0C!aw9C{&?Xby`AE1|_Qd$ZCf<@wCNX;_f!KPR4oM9EkpSi@1qJ zN%3snc}Lpt9IYX4dI9|a5q)rA!WOaNm88Aq3z(>5#C^1tY`B1SrmlgbN#mK0|>-eV`oMxba0cO{#NF$=F4hV%_1?j=h z1)eO;K#_#JvwO#KZ(=ot-hfCuSSqBAtdT)T1!<4Vt2!i&=VljM9>XwTl`;W0lZsN2 zrp3;G;XQ8H{>YVCm+7f=*UXaNYT`!dKin9!STDYLj=PMuU5%*Qn-`7gf^SI_Nk-1l zYI(oX+gSNHTEK!S!SUA%9UR7TU1NvkU=9Gg+$sc6GrassBH(SmF`<=KrzL?p#*A^O zfCNOqyvBM_OjGZqbQl9^#!_zC_&(r}W*+z6$|bBY9O@XYp<~$MNk~5PYcGKKI0b zNxU(~-_g{b=#tc5_tLxGYqZE_(pNUUP?+3jqyT9I24`oW#m??xa$4?oJhZMj}(iuBO~`MnO=2>5Hzc?c}5DDcbz0Kb2Sds(>TUijQ;ax1$|P9Fgu zYR`QLAE|zTJ2r*@we10R+z#ep#aMTB%ieeRfk7{Xoe#hM*`RoSzF=x3Zf7HH3lG#x z$||>x5pBxbE{s4$vIC$fjnt(HzTz4;8w*^i%oO9LM6Ag^Uvc-E&{DSLp5D!WlcQF_ zPEYC~&VDnkz!0klfU27WWSudj)#5e133%A5b&z)&Yr+1A_S;}EUIM{wa2&vm_h^@Z7z6(kL`^I zd^&T~((wle;ZCt^xF=l1>Y=$)YUl>WA-K%c&Us~0eDFb?DcFLJ)KD|hl5%_caCT^t3l zZ?GRGF#97MI)*+OSZ#*ROZeU#J$U@FksSdyQJm{ZV{qv2&bVO<*W`#|)eJ|a4$S+= z9S!0Y?sdE(RjJ58X+X(36aso&T~~?zn>BPlICUR(pF=vyMvl6$eewofI~R_5S6r1H zprK}38OD?3CfWGp9KqBcysJV3`13(%zyBjDAD^;XxaY@fa7XNfc2NzCpz+(mP>L(> z$F<5@9r4Olw|c0fwDLrBc^)S~1{c{MnfBoOGoMRk0Cf z$cqkw&q`zby4U{5Gb_(Rb8-Xrv;mRIq-T6cvov%lx$5kq@J$9S*ln^l;+yEE2rO{7?uV3Ob+{=jP|xH;?Z9z zs6YB1LWHbxS^dQZ#=H9|4Awgj8g)A0^@A4dcfHCR+-H#3598$DrmLwDkQ1v$*594$d9OtiBncvj9)R)B<3Y0F| zvogidDNM|r&XhWoA0bpg)4S--X|}d;q{TIsb3dzgcOz-GvWuT3~-(L(MrSOAGCc? zdKUIPPudsQ*<6VvyBqLapK-N^;!APxL4}7lTt+buBau6jpF7`K_yzRVt8sO62Dkgi z8rzR)X>Xrjd+svMLdfYgIArn}2?Lh$$h4)3t!xYs&Ahyf!OS@@WDI8MWHV8@;s%;t z8&U68coM?)ARoPOYqKHZ-Zab#a!WF>`&%d~9}|g0m`}CX90Wn?3rA(#P(t?0M7V|P z*3saKC<|`D-UFmAE+tWm>Wy2UzBtzU(`u>xsWth8`T+!#8b| zr%Gqt_|6LW=S;XzaB7CmgTE^yd>`}{2S;>uw)$tY)2)@irBm0` z)Y`27(J{BZEv4{>ExyD|Wk4K_vw703!!{3CJlQ_rN-LqZNh=yW_g=$4;HJq`*v`)B z=G%u)2zNV#Ot;JPK@FB@o*^e-%y<9-6(+&E#j9?+Q_%N$lYQP#rJc;>-&bnpaL{tu z`Yoc^43uaTVOo1Wz{DMbxU#Ysm`Z@#x=fZx<*I`QSw7wp>G2+1Lq@;6vs34~sDbyw z2+P0q>~2cm3Jd6@wCsKqLlNEBh;L%yPGYt!x1y~0SiX-q+wZ_v&+dwcza&JH?r_Vl)G^y2!{dV1vJUwyN{~^DyyP}$XNT;QH1`Kyif5q z#F9$1(&BfluVFVgPJsK7J80vsf?dh^{h6 z8X7$i6veZ@0*H|Wq(Ek-`z!B5^r+|P!}9P+zfG!=2a6(R#3Jgt{ms0s=&re{P)XYf zK2I4`#sw9y0xQ+D8a(@RwvTd%?o!bR0nC6CACjav5Pt7^`HTj#CipjG?BkALb!|qG zJE@spk>vgeHhTm!>cu;1pcvSh${`Y^Hc9b4@6-^zOJWpXR!M+9DzsD}Fl%M_7p`zP z4gAo;8}{Y#TUJQYgTA`##Yq|6;=EnHjpDzqiVDAJ0 z>oPz%GIyMeJA{RQU(Oi<&*9p?L+J9wv-eVei9n=&zRnfGo8K@WVh1#VpPtB+R1d@t z8m*M>1a&yZKh2E6NX@SXCKC=8VAl6t^`P)2k$C2u$AOQjsx`0hC*ou74c=)a5#l6( z_(o*&1?QgJ7TJ6$1K(*x+!hAkVWf5a3mVt)+6murMEkC14beRRP?29pJ5FKd&`Ps! z34R^#m5_gjW1W=$Ga+sPWA{%DeqA?9%BO>^FP*)3tqKh|w?#))+kn)U62Fcx{~Y|Q zj&shzoA8%Ify?s3NqqYcyrvmSM&6IT`m0n>^{uBU%U3C?K)& z0s`hg5Z#969{}y5kD&qH#qRezBN+AIpkTht{_Yt7ec&dwDxhFG9EmiD$QQ<^|H(Z( zL$c?mQ_y0w$c0()b$cC__xJt$y6@-zULXJYI_ERqiEHOSmmlu%c^UqVUapj%`0c$t zt*?vEuz&mifPX%36=mB%dw~hHeZaarorE2orNBTD-b56hwZVbz5*J>Nw70>P`oXvu zLDss=1DHnm-J>2u1672)lY(cqxg6|)?wU(+N<61>INY8gxmb7ib2=J8r&x18xt_13 zDSGXpRqUm8?Fp9Ieh+AAduiJ)KyTaGYxy~NO7s?|x92LsG1)$XOHt5P*lOvF9~1sk zgABx%0cA{owaW{Y_+n$bkWH;6+y>=>Gso_7(noLK)wf-Q6J+aKF7L@GjHW z{dDnxSN5gf)`C>J%TZ|PK3f0jwY4`V-j8=8jCkm3L$2HBVTiHIFKNX&;l920sT(WJ zNNcao=RaoY3LLdm+43Lke}hUvTWPa^)H<&ye^F4Ln{Lf#8;d!9fSzO{rX~nbx*Q7$VT(6m1LX=3l2F)Dk{&UGt4F5g4DSXNu;WT0?uWt&)D z3_B?$v2EAskX;OZ5nF_>|CYQ3P2}e>GDQf_Z`9hA+y+w|Ht9F?&(ZmK4ZGB;)qg( z{Z;xU9hY-Xfx2Iq*Xh`IMj28WEGHOsjDFCtjq_ClQ<;n)3wdGZPZ{3Fl@CQm2aU;$ zJRgF9Zv2+p-eaqq)tJk3wIFuL>>|LqaL9!qEj+C;u!cqGMaV3riKCBi#kNpCPAgK( z+vNcOghI&0rUIOF2xqq>Z2C;$#FY}h)SCi(;L$UJo)cX!nLiBdS&xpa|fgFqZ0I!vOmW||H8 z_&HfSaX-RF+rRC|cHm|cz-IjNXyX*d?&H=u##-pUoC72uCu~w~;s)3ua-RxY?SNSC zKM1rMK?&XfWU35>So0x$M!khREG-S3{&m(>ZG-Z}V6MzO1(ie^_^1kOSO5+{Vq zYreRoW+@$LrUnqw#=STk^y=7#aqg7^PJhe4ojda$v2vs?1<=5c%wy^EFFk(q_;QoW z5FYGKOzMdZ5SF_1O^AG+Iy)5_P1VfZ_XW`I%D0GscWQgmyeMOV**-P zE}1lVa+U_8e-W{8hpeQ)px)C1REznD1ZWBK@WT@UC>4k(0XqX~3Q~8iDZb&Oed!5> z%_O5>HV*-ts(9hNPJNdDs{e3u$+xW|hJBU2Q6~$#ISQ-!mh6~93#3xa z$_D*fG8Dk!GDEJ+5e-bZD*&v!o%!TnnM<~Vm~_|6|15%nF3Nq1jYSIF_yKm^`+ozJ z*$)uKLc%)Qq!QbVx(H@AXDOjI&*JVT4WeKU1E+gI`ofye!qyh2Cay%~k-`xCdI2ruD|G~d1II3q(r9=?Ab;}myQHDn^<9woZH}2oo<$Ir8nP9h% zuL;Zg2W@;SEcNwicOVr2q6AqwA zvp~Kk&Or}F6)KVY)b6!XTi+iNN}?${6^dD#Sdo{X z7Xe?Q{CH78uCfvEP56tcw&;4?b7P680mm=lF7C}NsPMsLI=?Cgp`n@!L7ajTYuimV zy*{AAR8viL9l)Mah~yzn%bbYeBcLY_2?VYIbBV)pSZW}E$vUg{MWAfqGh%f;5~;r1 zxn3K1^z;qgfbxRZiUdqbSfLQeTmYmFUZmHnOQBYUNT9G0QBQXiDT_pRpJuuj=HZ45 zf}2Ajkcm~C+D(jw+zRIs{5uB9C4Va5=hs!2MF85h;MxxUhrCFfImU{tURvr9S)bgO+KTSL8;#`JqFnB|2eb;qv9>2Af|NZg zb$J<=fiD#2^skl_n~=Or7QiNo_6##Xv~Z%-f&rk}EPx)SKjIJxR_&x@!h6k0V6`Xz z5*K!WDHS}4MZdWr5L7lSR@hNWu!_E-zEe3=ge)R-CaJkMtT{-KXn7yp$+KP|6`=DN z5P@|m;?t}6U1M}TJPvf;u2HfpnwWWufqt=gGmBIfkhSB)X<`HJNH|v-9nMmFaq5yG zEurcNiaAi1XlF=k?23teud5mXwLQdE_muEyh}W-9!yj?j zGUD~o?I<`c^-M~Yhl}$0VlNZv1TzM$1sluK_jc4%oy-2Iq6ZYQI;21y*&qfB|L?(# zU47kSrM^1pgm*!3t;5G>V2$|dAOi0a@73-b#i%Cb9iL?VBe88%F$DHtV0BcRqdHV`gUWrgdEq;vT<6oyXX7ommsg^oHCj@2^ zWR}TOC|oY?DEVlTo!43qE-<@zok|E(z63v$CIZK3;K8tp~ijS zJ6!#cfG7x1l^G=1Tz{;FCoymJw4xF(oeNL}UFfV^40tNU@U1Z3!ARo-`I;Yx12U6- zw3MQ_iHiC4cR)YH3bD3)<945yH4^MYK+14fmza`xIT4f|vav-U8=$e4!uFt_BWY{v z2^QG91i1Awr46WDe+Eqn_&C1ZNU^nJu{0O!$7OP{LyGPk_+7o@RKAj4Zm==$pmBS- zs2`+@Tsm`1yTjp|F;00euro*g$&6wNd5|&gc&8d_Pw_SfvaH+J)NMYUM>T zn9kPRBEfn5Qk_|VWS%!~z)&86DWEzupubT95Vb%Ajes@K0*lT`Np^~l;2ENTo&}jEMSP!$=kZlHG(kgH|-FCtGxjxEXFaG1v)jO)!p|tv z=@f#v7+3B5)xK$zJeD1|qL?^8APv2oY-Xp}ZTf??!=DtrTFT!KznZRus_Zr8p_+Se87Y=483?Y{)fLpj z!B^KPzG<_JaY5(XerX=uP&!HQELdc)8)gGR%CE3cf6{DDv`moNn|x` z^pL5LulOPt^x)CWfe(2Wc;z(e(nJvu?yC!@DBw+hDTShNL&CfKfhi7Xw6K_xRS;&W zDj|VZBWQ^UR_y`FY~wl6ss@Q^T^@Yk7{GIru7lkvTFoS%hvTH#SHcH3%oN#cLJeJ$ zG|fi4T2N@0r5#oYRHO}%G|RIn1LJ&^pu)v0qsFI82={-hp8&;9v`UF`p8wv zv)!>+Rn><}>kf z*i>*?Yy`}Upwm9e>$tZ7*s4;W<9gG-rarZ?^x)uW4Njo&s_l&q3w zFZsg^*N&-r5N2@RQte!64V=Q)$=jweot?tg`=+59GdNa^~U zczPEzuBn6@oOK{VK32sHwJt9n3}!J&a{EQxq5ER$!1~pPGc|;oV&p-c8o!`60F|eD zW@@|p@t`j|<`=WLYahn~8zRPMsI;L5P%a3!c}V>&3frP$i<_#W8A|#gIl>Nv>Ijj; zMl}(s9r|#~Y*};6@^m~v&?O+dREp#+!8Jn(lPxu7RvyXqpKnDBZQ!um# z@NDB?#sZ{)P#G@STgr+HOiBWJLxIe)iNQfYAD9yR);1ar9cz~k!{^?&RhKLE^QqMk z6K>>ZDVl^Lv4_Pm;to!J%uTrS5ijZo!M)f$ZjY&(J%Tr`F_~rJw|?d6%HZn6%d=zyS<=Y^<{X#Qu{(6rh`9rhH_s2ZhRdwo~n3iV? zI78GWcUQuk3!7sUV{dhTLVk1229)_9K@PUw>tZhC#3KB>^REOi9?SEQce zWVNTd6@hBc-^A({^!VGY` zV?`PmamhiL6|p-RbmLCUNvKkUdrR`5!dW!tv`A+_N4aPgaW6!zkc6<>$6*E`v_%Dq z=Ar`qoruX*g%-ryb#OSdhrh5vUq#mMYmwwYfCp}5fzEV4)gT<8%=BxwxND;fnBkxv z!$s~eujk+*E&`G%2Vi0(;zMxEV_@2zssp+rWh`6=aTStWL&H<-Vik9NAj|>iojB-~ zy;B4{w@@*c$!W*h@5)6Ii;Z_}K&Y)LqWZpv1A}>b6ISUYdBaF|z~~&WXt0C3>U`5X zkqvmt6M4p((a?w^-VXnHsNrXQ_ReZ~DJN5`_{Zq~w@ZAg=OVDoydSDtEe&=opgduQ zMV*02K3rtTPHghrQ>H4{1+9yy3YGKslcxi$RHE!k89;Nd7SC#4eE$;Ji|;)Tc6k{V z$O0&hxIjxP0kK7f?OQb{1}+5NC4qb@X7G;?Ea`-ZiJHk*&EC5vxjXY^h#i@~fw%U2 z2+)Mf0kAD?Eh541>wCAo*mt&Bz-RBKGB=84(-b(jrD<<8oQPBQqj4K4mko zzVZ*Y$2UdN51#%8>v+rIE3uF$+;3^4BmC+p^He z$tdM^$+NsUG@$qzlMtXBD$6ye&13yO$}N1Eq8}1vtNEG zbF7R1uGQ>1$^P@W^?G(b6=8oD#!PU1ILDt1m_ZI_&yVA$M|5HEPi9)WsyP+!77xq1 zR(BT@^W&rF?Qr&zenr*oYe@OmNe5md8atsd=Vq7$!-2(i;Mq>8gVwZl>_j|Hm9JMR zYe%vrtfmv=GO_B#Y~e~x9p-r<=m2oBN>~hMhk^uNK*Yxy5si6?zOgfiNkh8P(?BX| zvC%NH%M|C)_RaP6EIVaEVq0gGygf3i>B@kF^cenB!nI+T25kGK3Y$+n!<+S6!TZ<# zQ8Ldk<;I7^ldS;I$EbkTG}x^4Ne%zyq(Ti*&Z=BX`l1S}qP6$-3;@A#UszoWFu zM(R!wP!_ReN0Cz_W%w6h_YFXJC(Rc^K?qAkqYvYRU(T}&zFNqWs5};-B5~p&dvBnc zF>e!J9CN-joo~Z>X$wCKoCX%FhaQGtxPW_E5($MjtH&z!z3jLVl@)wn5P)ku;F8T0 zi*Q*aHQTA73%=dboMChlr)CDAeLCLu#-R1MJIEX`T@1QI>+|pa!4*H;(I!*)a`(E{ zNDC?E@ zToErOpui^R`QoZIm*R0zRpQaXodlxHg4;Q6$xXIG9;kHa-^Fnt95sdyZ2EeY3-}5x zMKN2+A*>!hRoNF*RcoMi)Rk6b0Ck}7!|G;gFWKe4*R1#zm!H|F1<%4(fo29IeuRb8 zZCrvqO#eI#0+`fm!b{hcS6Z~rLs)A~Gpn0!aw+#ooO!=e5gj(F_6M9RyE*3KnDv`Q zg*(Ug7mC|*`v);*AE}z#OJ-q3$rPCR0`y@-sSZ+7ci1j0tdFM;k4O??egv4v6e!?3B7BjpUx8l-3p zsG5JPPiLNEhHajI7Sc{lvDOvI+Ag8Oi}cs(sDBR8YqGdG4Zyeuz~K*0cS+JAYYt$# zVA2XZw8Im;8`rkos4Xy?`}mAd5k3N%M1i7`P=XoP=1$A4hisftScNjOKyh#!o_)?Z zjydxlATR<1k*%h$qR#e%r)}aeqTAr56xwWun?4X2M1_{3WEoL|AL{>i6MzNJrfDZIG2g>1a>!@L_pS>#}{5GUVYI${5;SA{TemJaJM`%}AE z%hmW(mHO`){;^Kl%?~0tnP#UW6?e0jXi}Y3Z!c0go)K%A3k)5BvAv1b^WN5v_OAf} z$&qrQP&gKQY~`rw+=fdeVP!V?e_K!D`FqMuT}otXXY7BbCAn257Fm+6ZTzO(r$i@e zgP@MMKRucHJR(L2nqkwNWHA%fCXD~I?L!jFw|m5Bd$!Elz9-U121=+OFuR7cg4vhd zVq1DRWykfGfM=4qA{yXutNo~r@|l4g7Vq;dOuH$<5z8aP$w-#I5fbM~JB*oYi313Z zF&A2HG@|BgK2aq(!8HwAifW<;KY2sqXS+nyg?+P0oi1AlQc~Bw+zU!D;~v3EF$?oC z@x&7~%5D!38>cfRN^YFk4iOhQV_8dJ(`nnKoqAmAsDT~X&cSW8Tvz)?fo z)~>Lsf^0`h(fAbvp=8tTQCM99LDS|fb{=$#J^b&x==7xVHHf6=?i^r6WW7svKF2~A z&W-!2pJ7in$D&VWD*%l|1<{xW{kiUgz-TGW32y!9!$l9K_WskRMDnkPptItN?c`O+ zsi1REm2P8ZG&FiC*ELOmJft}aK>)bYVeOED?7tXT^a!@WNW#s%4uZG16s0%;yVm!~ zLj3x5dPN>aL8er^f-u=N%MC;sONSD)m?s0V38qa#3Hm3Ru^g=VSUm*<52>`=op6;! z@%;7_%54*_k!)4C52nlBM?KWP`#gT|`*m2+6T5dZ^3je$tIf8wG$S^qWa3ix7~A1f zE3Pt)x>-#&k#co@^lVb-PhK_*lSz3%jAS!=WOl$MSS)e+VT^?^=TPj7WZ+= z#CJDm9l({o;3)t8n{=P(#S@6{=Lwk#&E)PL+i}q9_96%Ub86x!*8El(yi}i|YVh>R zmiW|-D6RKrF#fECAXdsir($W{hZg&^PN3(H5?Rx}YuYM3eW#)}#_}74_KO|Wsc%9z z`Od~XrI_ywlrVz~5X{mgkL6R1#67;BWyXlHB%i_){fAiwISW-GweSK~54lk|J}lCR z{Y1C&%Zm+o`9(UXl^pNvT=iDf&&sY=Dp9%dKsH8*Zu357!TJV6c`^X#kuK!>f6V|HFh|)itsc=Z=L5E(Q}awPxwd`q?z9p5QcdxD{`zL6Bh6fg04!nsdMr) zeeuIPQ;Cc1X@)oNDNx}pnB08wBF?8kP0-F}kc?OJ4_inhYK%_~jjr>N zW7JZTnd*U)3Tdg84s5Yr!`u0IPfFN&L{@98?cm-i_S>w@r|anX ze^W9vA`lz;giMw(RZ1$kq*vE$&idSCV)QiWC=c(!{Qmk>zS+(&A5*PUU|S$lR1VRA zQ#4TJp}O*0druLhC6}Ah{K>=CoEBOT)_uzgomr6#FekE}#1!v9Y*CD`BgD2A(i6!} zA3~Snj|0&N7a>SX;tA=fG^S@8HQ3c|L#AQu8K{jl=@L|6+-(f}JG;xmOvkC7^|LQb zckaa_(==rr!ow;FfDaN8xe3|*QM>#x@UzU6S~9E34I;uY!*Q2jjrX4m(*6 zR|TgnS5nO)YGT*k_d%=2wlsjf5=1H15#{FJ7TWGm>5z(SUx87$v||aS$06$g`E9lY z3WCH$2L)FKC-KcWSfv;r6Z|?ACfhENO`7S}My7N3)##i9Cv?g8tM6FMJaAwg=eWsV zhN;dL2G1;pPI|yWeTYg#Qiyl<_g>qc)mXaGr`*Z$CHxHXjH?}^DSMuKb^r?5F{9?V6zzuPs@ZCWC}NpW zBTN1pJaJxNk6H2;eGzW>BzYj%B}}wk;+dDk1O%3cJrbjewup|vZ64D`VNz5hLTPSN zJJV=bwmhx)jE81_Uowz62kF;({qxbjvF#a4u;fOV;wf$v0W}D9ORsUI!U69(%nmAwA62dpEdO^}1~gx@dZ5shfEH;e&G;H4$p(zY_2yu5i|4 z#$@U!7TsKY#&>^F1cu=KDD8C=qlvo;nua#fsnYlPa+rCAt#R(_pw>c-=4K_e(}}J@ z`{J_g9N!t!#G>IoQEOm;_TK7Pk$Yr0AIL=2I1d~WsjX+Iq5-)GCj*8wllf-3?1qX0 zyxz~t#WFx;F-MV_7|5T(T@1dHsrS`1u-Ibs%yb^mqz6XLq!04>ps64cgrq%K3@4S2 zNYv4nQ*rGx{PJD>b^BiwbW_N`iBmz`X_eklP~x8&sgUhb~l|p7TLBgNtN~+gCQNz4t~78Yh+;>lFnkn?F&VW?d`C zd3hzx_-sT;UpJ^bB#`&)9dvO2cn1||?i-g9DSum?2*@xOhUuI;c2EOmv9u%Kk$Ri% zfNitU=uGLSlr+%ubXpl|l)XX>LmP6mBY*rd zCCKwdqxFE1TXI5(<0hGvrYO_%*0M-OW21m_;FJK1+8Rv-^%x+RcD^EL^3MqgwIOnf zV~$*1%B6ye7v>*xL!DNmt$xbs$esGob^YQ>_bM4Z7*GerCD|vI#!M;$Kjt!2#Z5A& z7A~PLo4jNhFHRm8X>BN;d%Qn(pEgOidl){-_49ESZPmg96}0LyBFW;3?ekHr%w=rF zd-LkuA`&iHP4qW(ax^)MSLD(h^9vK&8^l3zPOuUmkIBTBnE2$QxSWL(*wTt3S>sITfWtAIUA@6C|JqBWj(NdWI{Z3i>M2 zrv{2_Pq%yzt2II|#R3zf!*#OQq1nFhkvX(tA5*|qc~NAxHd6NG9VaT6X_a6+@|ajW z7sU2-P#O_=T7SK|t|60|n{XyGZp4T4XW>{l>vEPpxeZAUPMnA8!w7ekZDH;N?fIkqC6{-*y^3RjH!xzj=i==WF zT6UAuePWSH0!7lpzoA@KcUfp&DL2Xrm=C&5jVR25K%1`Lkofe*g+)$iHel-!zU`WZ zZ{HM(%Y%H1Rk@rEy%ATr_o9cO)tPRA22{DAvvi7A%V)%6;FoO<1W zm7i55IWf%j5tf0fBBse)E7x+aYtOxj+3N}waoM01@!8qgBH&-IxDAUU+aj(piN0;y zDHr5p%VXZ*7c!G(8LhA;2^aVfWYps`ip(LcogMMncYM8EtK5k19EO6S7sj!bBCdgs zwA3wN<1?Um45LP3=nXz~vvJu8br*@fw&@qfh>aqycktRIyjp3~_^Yb})<Y^9(vdP(Je@HSSx!a|0Ubr08vc&iTfBHU0hOLCPF2Ob; zEq3reXZWOr&3bgb9%lH&wHXr~c=$Rz8I<^NZ!1;4q-YMeF46Y*`{>K>&^LQZSL;p) zXs7u5ZmooQe7#lx_}a{1XpmM`mSyUb+7O>O;0`XgK`>|0LRnp3fZt<0W0)llIhur7_S`8%9MYx@|+p6fp9{E;AWT5 z6rCKV_$16DH=Wr9quL%GA1R8K?kJ6l8yL~&6sGlydOWu%@nX=*9o(UKMq}{|Il0ET z(K{vuo`4Bx-Tj`#LXJQRhClk>j>HXUUEYM+&k_WIdI(oH%7Me=-ZN_tG1*`Qqx1d({Fu;)}I!-5)e6+{k(te*YfDTV7 zWpdB1TwV8wS89k00?%bRmL5e^;us#~br@>@DXiX&9Ei4ZhiMR-5#}Q=Tx~WjTIPYelk`uPOolI9uldlWh=zhLe=8f! zpn%zrPtaWJ*!u71d#~?9sh{`I;`d7p{<*%X$onx1VN_uLog#Xtxf2-1wSOG@#ifvG zrA5ntc8#3-CUG#d9F)@Rxs9N0w1r@odTe*n*Jqdg`nT}+R#tId!# zEf?y?dN?j{+Gg6)H5VwA$?pZp*FI- z&|*8eLz!Q?iHYUWB&VDhrR1U|#Q=LFFY_HQDWqhZ{C86UInUF=U~;HjrO51U+|p{Q zlw^-?{JOZRYIYIUAn>nx`zEFyc@)sH?1(DXJXbCOH?sSsONbP;DwpC!2YQZ|fL(d~ zB`vNg?G+j1*5$)9+Y}%z%n@E44CU20nqJ$gE1Ud}E|NCYQ!h$}oK%|ABlZFo&CTR$ zRWQgI;42!U0ePm)?3udaOTcO`r=NEpqrRoXzHpXFSoOK$e_CAcoO|!1C^$!EKPQTY z!rDc0|Av`|HKw$K{JyvNET`b2n8WvH37YRT*}DqAndY1YdCs%{m)Rm$MUx;;)$ep_-}agf>$5?PRI zicW9??4+kP1+D{s!()8_5rK$@FI8;NayzAE?4diU znl7@`Q>Wgb8hgV^LV_V%O(O?zo z-Q~$---No}B-Gr57f=GoX!I-Vy~}V(2sHKVxo1ILt2{uJYsJ^|785nl4BbK|ml|;X zrAk)n(da~d|Lmvks#acD&x*bXRDZ^)`<@dbtk05c^6!VaErU0GajO{>Tg=P_wc)b? z(rmUEKcygKwML1Ny<@T8oNvlUp-6CV{<PP8!=?1sQth7_?c&#F|=0L1sC3uDOXjDS%N zKB^-Ri$*BkAdL(w=&yh3TqcWG4;A9gp?bnG6z~ui(PWJ327C);KXv;Ac1RekB!=ei zXz#p<+w{qygg`VVIq5&KSj?z~M)bX~(rfmD%B#t!m5OB4K8Y!h4GcD2f9+kGUIMsi z_F>kcN$kBqIxW{aNZ`;7etG^XE93;o1_~<1#UZ$(RZWA4G%NWaqrKZdrc1?XzV~Sb z$7LYX{LZXu){?lHOR)-gAO)v1e66#iKpL`Y?LoKL&~O#%pvP>O(SStbX8Lir#*w#=2+O)V+90} zuuB~uEAv-S2uiRYUFBuY|9*!vTuQja;7=@ zjD68Vzu$jeU+}<>$$$qxQookjZGN~IJcn)Qou5lVM}X%z_zBk$GAXB}fhKnd<#^0| zxL8BD2XH^9YDZzaT*DMS!|CTA2~WQ_FKPxoTP-Wr-uWH|jJ<}S^p12T14x5_4|H4| zy9#49O`gvBS?4F^5Pk*saL)FaEJsO8u)@cwc~Du~kbYcNAf48n*8E_scp?~;-P5m^ z(m&p=_y0*{-mRo$bWb_?vLyGC&L+pCYl+NAw0Q``ff0G@)HZ5@o6rNK=RPGoZ1+Gn z2c3ECI0ZWOny(x)Cp~^~_q1DP)D7;Y&G-}*RZ0^w-C0WUxVCSXBa0~0qCqN<=zL#e*Xh-s^ojEBM=M| zA~+8yS~Fh|d&VhdWDp*1(F&gpkAr!6>EMbM%2jXtIy_>_x?AcOk9Gx7R z6$?6X!Jh6$vM^IV5%pk7*%5am@FEe9G=BW>Z{~Fn3&DN3MY$kS;;UWv@9~uhM(d%g z-W&uV0$smV?=|oVMu7X7lKk-FqVe^lteWYK_!7MGPQEH(HxnnIHV2THO$=82FdKCl zu7E~AVKB*IPqom5eYsl?mKU8^7F&7vK{f41P0g~!i$X3o2)fnU^e8tv->=m*k!9WA zp`dRU*vjc=?_pY%Qhh6+|7hybNc3nxG#mzY>%mth!IyYpSRM@?Oi0mNdfQM~Jm8~1 z*xvdJG8|Z)y=yjs4_p4QaKxk^)w=mPSeZK@%zDSKaUfW%F2I zd)@NtYe5)KjC;dNzG-?96@N~a*ngRm5gdI#xzybaO5J~=W@wPbO6hT)=miu6_Q(A@ zd}E1uMWWP!vw;c(Vyf%?q6~1cP1=8BnJ}}fW@No=RD!}6XF3$W=C3@q-JEVz*E@<` zonDN8>IK^7w2b{l+MZ5qh#)A0;46%)W*j_Fi!50LU8(+63(dm1JHE-M=#vhHV>SH7 zayCEN>A~Y!^4oDF3wbGZJT*(vM(cdio|EnSf|VGrV8baNxZ+&4lV%hKk!uD*MQfCe^ zKq`l9R6A{5iL(Mi3z}H(EU(T$?pkCB$A8sIs;btYTr4T`#K@Zud|{`&m9P;vlAdtK zM|_h7_R8i2$};_+^`Ou|{Zwsb)Q-}}tu~Qjl!f=pn|qA+U@q!{=2+O2;tk}H8JR8) zk~#8xAm}TF&+8+n6Xkxc0c+boeBz4YM8doo7+w-w1EUBFY9-EB;!P z$I~Jum=XnaS4m(|$t&>9fd5N|XXoTb6Js}XlTf2;(sgE7Cz$)~f}xoHAwrkV(Z$pp z%5;$0#59*pAg{;O*ojH1^teh;WzP5WIiJ27c~EzRExSwybkwzykMPf3o=9^g*$L{Q zn%fT9y%-L8O8GXE+@}KNugywczQx+6sGT|il_EvRC!z@}Myr?AI>%n;)MZ#<<1>ji z7rsW0KG2CWZ;+!Y{KFKpH444R4ibM;7h zoS8;wmP73y*tLRR{~gTX2AY6LU&IgSOl!`y+D3&Oc$8sJ4hGY{FwqE*;;e?61K3>F zPY1B1$LjlGnj1Coc|H8IY98{s~H>;<9{1YlURr<#H+h{4X=qhjDIc{0`OtR0r#yR#j_7JJ#yv_NV z`Dm9p9wokKhiDe(9Bfc!@uFD5gud%BgJ4C@yB%PZ2@~3jl?66djd%cFeL!HwrszT@ zgg-72W=DGbMKoZ+EAetbPQt9+QxbxB=2X@B1U&{>MLf+4ZuC*}YC+~EoX^-Ni~S>} zY6KkyS*-$%%(E2M?|x0ofsz(O*Q|BtXxMX)i0C%u{1x)tGiuQ{+AE8Q{Mo^ajIAkK zn%-jJ0M+5rzZ6oJFAl?Y zSmoi;ZTp7qwWTTgGXXEhCVYDcHw9WKu!)xB=AMJkDJ8F&F`oF(G0fQCUF29N{dvPe zs#H^9TsJfG&6}ywQHrA9MVQHPWYxDa%d`@#NkSTNBWR{(;e35VIQM6<>o?JR3;&oW zQAlY(sJf|zp(2GqM1>_~vvjogj0iD{s*`rVwr-{*Hun$(DoM`wQ(jqnIr-j&F)-d@ ztc*W45N4~MQMzoEpJ4B5^plmpgPqE*E`{UZu>DVjLw^J+go3((lwpH7d)m2EW}j^v z4YDTuJ`9O)#INehc!I=I8l^BsvlE>8`i+-^aiJ{>6-3DW)oASwxnR46mlL7}5nQq! zYNobVetyM+-oC5hw+Sp=cibgfyQ#V!d4EXmF&J!AfI}%a!MQb{&NyIVAB7+$ot?8t z*I!EdS4&~)w~Ed6b%#P1QC`W*wWE}Q*jQvkVnBjFK_r?~KS;Mvw;AyqWA^wKCc7d! zy}SW;h^_hrnz!i0oAXFua$H6*`)1XiAge;<#>dKaX>B@le}3f-e2#Y<-{Q>)I0}&g zDnx6aa^ud*S+{b_)FS&m#F(iJUwDl+PQ8q>9@@3+<191~PeFWCA#sTLl38!{xbby< zop{xZy=~o2xzK7tS72#@->F+1QAE$O80 z_&L((TocSbk>%FBUJ+{f=s`^R=16oZ&v|M6|1C6h&)XYLz;67&=K3$xs6+ zkv&EVr~>xlF&O&DSOSBJJ5-z|xiGE;jM5;?n3;4O?)Y8bclM4DL7K3!4m=2tYbkg- zn!sX;c(+eKfXC8M!tQ06Hz%Yto!i*?H|yUCZfnHGuBb(b6lPu!QhL}0(TdkapYYY4 zD^6<3kguJp19^w=>lS2F)Aic#_DFivgUh6N1>v2qb-#S6*bB@{592EafV2hylXpUJP z%Mux4U7;hPqyJYN|12%yjn`~r*_Qm~7X(RfYI`p=qPncjua$s29hxg(fJ4oGDdxZC z4ZZg}`D^}JLuXU3%=h(F)ralTk7SNRlKa5L#4rDjEYY?stQ|jk{O& zU@>znuzCzUrrOgauY3}zn7fm#d!lF;)_|iJJZOK%zx}|c4SSPRiVhw$#D*AnaeI>w zA%DxdSiCU}d^Ud_!?1C{D#K^R&#SFgiXXNCl*uelF-^6Ku}UCH771rYlJD{*F~NkOcy(YBn}`kQh&=fHMvzyDOrrKA@)_Y z)@ZCYP8!dX@K1rL=;7U_v-`k(`^ejfJ8??LxQOtiX+RjCCVpQnDbhYCc1i?nxtnR& zWb=LH@ZvnZKNcgHjsNLFF#FM*t@0qfX5S>FV#D zu}~LWMZP{+TaQdvNG8g{cKjF;`X*GB=s4~NlJqt89oON&+V15PYG$=-!jycuvqStt z;$G^^6=hKkYFRmn;>`EdY?LQP zkv$`@XnMBh{J{11KdZ0GJ3W7|l=h==-O}JqT@B%scNdrZ>*>;Ax0#i9IsD7trFMjW zoo*$yDd$ly1y1X?>^dsEbbZkdWpg08!FWn*Enk0J0abBfa=MYW1lfXH$yyCYSSq%_ z#}J|OnK0EE0<3YPYCxnx^9kFyDNxzm`-9KSsEcHP8f?;Z4vw}V^um@QV97D$!7Xi; zwEP2l5T7Ln@LW%b88Uw>XVX0;l=*93TDA46lPh`hl{gSQ&gyFLh!H&Pb%=7{6e29y zOD#hZecdJX-|V?ADMXUUTzOGyW*uwu`O(lYFrn2GLX?s=_zJQ9;l7?7gaU0Dk43md zILum8&pmOkTD1QhwD@wbT(9e}m$T6aI@v+ts4;7NLB-?qyUWKix~=%2XP zQNmn2Z+Ff@Nx8sVIQI}~l)#3-n(ATxNg;SyN`kg)!lE(b4R`Zz(-Kc+TBxa9pb-Q@ zO03a|Cs!)P&as5hxOMMK<3o0G+mY81{hBb*SKG;7kdc)-&6>W}L$13f zVtFMHH72)yqQ}?XH=||rL@*Ro-cS*E6&3ke#AG)ix`YXe%v0Il|9cJngBN<3Uhg}^ zpqwq$5=96{d>wz;_W^swM9Pob5h$FNnbLgvMmG8J$XXzX*Oh7HOQ$qw`W=xIad9roa^JU>jyK{8l)$-o;J_? z7qpO=(Q%q;x-6wf4Nd7fM{a^((q=lSsYP)Kmby-U2JvD`T+CZ_fGTGPQk=m?Hh}aU z`Vd9UG0uiIOf$UiomSY=J8-HT)w#mjCRvPyLtj{X+ODOn&Gv93k%iEr5+j8am8;=r z?g(Jur%?y>K-0lCWZSF+X|=K>AdQf1082|whgN4vNs$vl7Pt9yYJVuMbB&^2zkDY~6)2t-1rB1gmd`^JEKM9-B$+iXy_YKZ$8U zj;DtW+ts;~<_7XGt*#TBMincXKhK;g2S8JsrQcBmr#whR-4wuUzrj%svC>K;p4t`# zW{)w(xJ|%Xg)wVpEff;~k9T*nTSwA(LTi085Fk7PisMw@XXMa}!=4I5?@N=g!j;ae zl5rvO8?tH=+g?vS2C44I^OB%A1trBJ+B1R82O0>d^^Yw`8U`F=C1m4Q- zcifoRhX_3?HhDHEaHCNUu%prkBQ&SyqF>4GYH9e>yd8H#Ked9+V2BO2D!xpbGu7(y z#M?eX7KTG!KVBpPV15W=e;P6WP*Ts||BKY$Hk@k$)HEC6fF7L>dV0>Vx@fkYdFB^MB2^Fx zg!?L^#jVPV!hzw>si|5Z)YQKWQgg&T&~HC{Oor&aT%a!hr%h()^@_6mL3Jbyh`|!J zADwkO-5za~(Lfnj{}WnZtY-4LkkVDEMlwrn8WCQh=htUDV?K|bM=Lc6?RL>N^fSEL zR-^742(I4hE&31d%==rLnXkPgJ}K+}dyYB^YNXgc>hi?vP2%oNTj#T$DLjLe&$ySR z{9Mm+bBXcwbMg)6pTyIxDM*;p`U&B88ha;~gh%#u&(1%|YOWG2_BwPx~7sWfUYZQ;~$m*tSXoxI#@8y0WBXD+Em?nwA2Qd znbvcob3rE4<>s>G;nWA%GzwUr?N&d?0SJi<=O}4NpuI5rU-VP-dwqYE5U>?ie*b@- zlf+3d;g$v^h;56q>e5b6+G-C+ai|c;dC*q*g0M;7mcZ!%m!@;qKbz9`xbwAPceq%8 zr*~3)n~@IL11IoDt%1XvUHC}Rw{40Zf5LTzCD*y?M;NfA$VO(%vXxhTn47r8|ZTO>;nC$X2&1~|7EdC%m(2()KH zNF+W0=deB!f|UGKiz6*z#mgOTQ>i7%Q?fS097IO~K= zVx&g0Xv$8iK9SN3%=*Pj0+7TPPPB`vm{Vbax)iDDK{y4rpc-#mog9<|?Lu-b4hX(yzuCO;TJweW6YI1dHbPfXP)x0YXP^ay=nbN|!xKf#(OJ zr7Qjxt;`-3y}CDGSkEWQFqz+WbGj>(24-Qb9=_v$^==kO_gS-w^ z-@kIiM7brA9BPxJyOuLu@|%{0X(X?=T1Z?N4;o$}{bm7YlwVz2m5>WBc-sz20#&JZ9RJNwT;3f7nGJTFy)~ZltKIt_-=aAz+iL+;z2qXp!WJr*d7F zj4@*$tQD&zfTo{R74?ocTEOwr@#?6IAwydTa92YKZ+p9OXHq zVAOq`tEn-BD@pI~$#dzP+A)MRIKDin$U*QouR|(lcrBuz{vPIHKB4X#!enm59RA%f zU+%D$o)lNZgoDUBg?6XZg`Y}zfEs&(mf`qW@ro^~*!1^nt?#7()+6d)aN1n@j=>mmJ8JY*0KuV{(cm2pFnL<* z|1bqnMao$L5ECeXO}hQzEm=Hgt8>*W*r6CYp~Boy5aYFxVS==<-&+02O+pp5!IytQ zm)B7b_k#z%aX}Dg2H#`jPM`1ixB4o58A9S5E^>)o(Tc&bax0!|&SoPbStRZxsvfa> zKpKC)r}NZ)v-MLfg$MRu-q;_*C9P*^k!ybac=R{+AQCM5(7qm^Yo9+G4ro_}TVIPf zNWW#MX8%_0WHILZE^<+hR$gUutdR8zvf}<#s`wu2jGJlpt$qFe?d8OMfxbcqn2FE7J|vn2F%E zqK3z^-a36&r?p&;)oRl219iEFq{0V#SPg>|H#rVpl9bh9BRtof;=>B)s5#JbzeWCR z4=nW4L8yjSlOjjKeSpbz;|h9Y^54eVen0wmo-%sSPre!H5SkPU%Cl10p~{SJ)8Dz^ z@YptSnbDk05ZvebQCehf^79*w+judZ$adB;n+^=4z0yhd-Jl@;9buuHzpXtIXgY z24SXcZt16D)+LWf+WLMOEqE0z4>xM*_tXFBGFsHE3$@XQci+y8uV)Nr6lBd$zziSU z+z-mkTX%)ZyCV-mswcDR50-z~t8r4?g+$Pvm6^KOZL||pB&vi3thC_7Kxi;(ueG%wXwUV?5U3^E$jF&if^7pZF+?1eZ2D8J(t=H!#wpoijhz9o)8nd<1+@@~(W9KR zWpc>Y%IuGwg>;+=Ao_SoRa!OmS*J}nD-RMsViI)!V7s<-N=dA~Q=di)rV3*i7eqMu zS>M4>DLewF)zn3%)02Uj{&XX1Tt6_8{e?@q_p61Cuc+6M^AZUBUH|>m7|G*nJv+7} zrt{zX(&Nc&$;vomv3`v5w2zW8^Ea(SH*h*eO}jDH#NL$8pEr+1VDSrMmRky-sJICw zXV#o58g8TY0J)yusSBDi;wf}6~ z*2bRw)P=LhSB-e}@A330Pu^v${6 zF^%3v+t_$3LLZ0cYST!;_#2p+q6Gg{)IV)XMkW^Hj95^kEb&iRCu=|A2zSJ57x;{( zD1oD%6{39+wh}uN{dEtuw~g^0pU;?Z!|ER+TLo2_MnK)1L@OoX%HheYf+b)2GW!$j z4hF=PXQt%El;m*=t+WB(DM^L8eRzCxld`wulA4B$cC!Q8#(Q z-ad3fUq(YL@!le*ge5KayW)LXnl{J+?%E5R7Hl3<8^2J>#NH=b@IQ5mI5E4>ZTgy~ zU=3iuA<@v;X~8hkrWJ5Z*7itf2j?+KI*~?EXa|?66jeM3i&&nvyhxIFbOU#X%vi{B$jZ% z@uIs&VK92{+(3#r`GcD(e0OQL$MREA)j?;>L?$Hx{{v~V-8JF;{+C7Riog^&^ zH+|PwIH%n`VM-mO^~I6Jhy#gAM_$ZSy?q-eKp5TJk^J*H0mm7ISj<?hO06NUvtZ3fVSGS1m8Ht0gr%^sA4oRbuHMLl5fC2zj8w!&WaXV7#`ZJG6l1#*!U=5cB29_CQXLH=aDDW@|x>vaS+{7QF3zsd4bmE?xPn;W62i2 z7G$f+{%#K#W|u%CIaa(JG-!UxZ~F14-avX-_Wm1Eu=*FQXRVAL)yyrb*00xW-Y3f2 zfjHi>iG$bYDbzWipLa86O~04rkO^kNq-hdkB^392Ztdzsn1V2(cZNKykMDAotZ4~+ z4>#3*kFS|D(;V-?R!aVd;8~opd}S>k!Q!dqwF=@bCCPjV1uH(stZItZG2Fuj@;EPa z7UCtS(Vd7u3<+ zlvvlS3CixF>KtY)i^28HC8HefltVl?@&<=MVo>ry1;h0#!;~n@h90Qp=BbS=2kD4T zN75?gi$&w}goFUQ`wEFmm911@RSOyM)JU|YYH$+ZRVjj5oJu3e+Z6)GEKkIf+6tH0xq@1olG@91iIM_eyL0&H-X03Pddz*5u7p!Fp` zmP9knxn3m6#Iar_QW4lS-54+$0Vo59VzxRas?4jg*JaIKn3rw_h_dL@V0cwRUpfA6 z0d66w&xeTY;36yGeGu0+mG9hIeLt0K(Z={{+qE$fiq&&i3PUPe*DMIFA&k~a4iK{n zf=u0YM9kg^gksr2&NZaMkxD-HwJR0^9$PAPib)uUk4}YEUb^aZr58#JbluL$v^Rk3 zM8L#>&Qqrjn68?;Yv1!J0jQ|PtXzckf$^#4hjpV$f%Ix9y6m)2*PRV$19isM@QK*iix%-$A|?xO1OvN~0jsC$^M zF|sv9mmi*f81Twsipe4?&)Nw1$e*eT+Mc>-Won#!;np*IyR|Uo*db2^TdJD$fjJz) zvPKVsD%WT-#m_UHWTP8EXV*d=4ed}ct(Qx|Dwj3~vFVq9Eawl+$fidjW%+BhM3*l! zowBk9RkoU>pe4NmDKX73--k*A%Et-}d72b{YvkIu-Xm@94K8<>Wz zYh1Ji<2>Ji=R9YcbWLhswM>z6bmC+fR6I0A32oOncgkgraR*Cs*^6y8nO*g4gs}bA z^}=#?>NLzuYl_nWY=O!(8n!^xdjAlW{qmnfrtPcCcf=y;XI1F??J_0rv(QO#TJR3G z=BIt0T39c^T}g+gxwM?^BmCv6$(a|OkKas~1VW^g%nPG8nR_3`0Sotv3M;R+RarPH zG+W(((vuD@qv6WeNeAB(wXHC&oj_uOaacOquxy#8wRco(<@?`>kHIojHj0vK!X-T* z=)l_`;#CPpN~mTCik})Tv;^A)!sLfy(yVE}BQBf!4aFHw*SM&oJdiCmr&9WuOylTD zFcom_+$-(zcI3Yip_63{}Xu2`M(9;va)e={SV;n zK}W)&K##~dB=($;te%1pNOM_*n4b{nG8Tdu*k)1Cc;itm`Fh72IH{Nv>=CROs{JN{)lQ|DODHoTpttO?Nv}Wb94n$2-@q@+c>U z!ghul;@1;)ClX9+j1x8?@l1;#FeO1zKt{&>ckII0WIJr2xNe)D1S96TfYq7Xpk*`? zwkcoFFZHe6VIreWNqLzShTU!mR5NaPbP;#)0VPZc?L?5DtLQnnt+%Bw;rE0!{}lAI zo&cBoI_|FY;`_Rh>w1O)bb&cEAmz3tb%})?>H2P!9~8^e;H1Kad1{u<&~$kBXYbDl zNUh8YBFdS8QwW9X6T&hI!^c>22fLjk7BA8l{x|6Y!I4S10z!(~u3^HBap`|Z$@y&2 zNp_1tiv%puD-2ki;xy%N2X3TL@8~~m-KSrsKq5VfyV_CH%a&UcDz4wqi)%fJ3nT={t-=ol{cAm zEE7RaeH?vwf4z6mH{v7hkBusvxKCYCR_jLmD!z)%evJ4p098P$zeZ&_1vJV$uWa#l z!DoUh-;s?aYltsEnFDP zmmz%H)jXXN*3!y|W&+rNN_ms_+}?;=Qh=hPLjAzB1rQ-MR?O1zPEra-6RDN*dLo`l z7cL#G%5zHhNH$=!x?kKfN+b2_(ZY@QkA`sEwbD4Ah@-*XnV~m7t_D-9r9T{(t~bx6 zG-P-(;zCMj@;Fv(4Y2lbkH|;nd)`UfXaAiK?R-Yz7X{v74ocru*n|86@9{=}Y3o+5 zz;!}wY00nGThx<%b-gMBywB8VUq$*LYT+-7eQJrZb)>e~41RX_@s|3Xa&T{5Zy~Le z0~5x2Yaz|m{`(s1OtuuhINRkT!d{t>%BVS>dkr@`Els{3{w07y*?+ao{-4edH zvNQW|*RgxNP>QT zNx)Qdgn`z-&WY)9N@CVK8$s7eEA#kp0n^ft+qe*R(!=BA1USWypzA3?X@)1!9#%8Q z;4iBV*Xh(>#wQDppYXQi9@*E^2SsZ!{h{P~MohlFa@M-O;!-uCYIyu2Q;XjztaA08 zG}@6J0dBQgr@fRA5yqHIHcn&Z6EMsPEKdF@)~s6s8$6GP<^3wVx%ii|4QdSv&zx3i znSgbxu$5WfS&iee-g`RzA})Mj^IS6d0|dD=6B+R*P{I)U1t9g@0bT9y%Ka7~l}iv% zNE;wzixLmv-wE%MgOsT*ed!Q3Yptr{l)@|Wgt1!QcT6^)@ZWX4LKm>5lI>R1_E zmF5w%gI;MeIhrrfwkfD=ZxPy;5yXYO4GWpEAeiL~S?ILG9q8G+rt0s`cl(urDo5s` zCe{RR?2`UA>{0hru!tm%F^yvV?a8VHm-WG|zgY(v^~c(aQA*@qL&APp^!<|i^L0k ze6-_!9$h-Ga(-Kj%B>m;0ff?!$+8Q19>=mDNw`lD6f;wzELuwvt5SXp$OUxTwDGbS z@V>@uj%{_F+PCHg)~)xDQgWA2`@LUPO-tNHmrS=~*;0_M;u1-@+;ag>pZ%pwa<={) ziM~0L5)7fPL|odpKqkv+87K9qG9 zz2(*VS?Ka95lgc3Y3GNY7{@=V^FxGu%f|XvPqps+0J&8pdT(7d#zinH15ymErK=uNqL#V z`h^aUUpv~s(Iv@X+KVEdN+QWz4F}lq9QBU>`T++qt9S=lRe1bR7SpjYd1<65GML`R zyZ|v`v6^^bw1w>N;XPtgONYl6N6_^{l|6g*@X=wCUfi-+jQs0;xV-;No?{F%Gulu5 z7(RmJiI{w~(F!v?TuxZTdU8u40eKB6*imW)2$x*8!kS>}tkJhu*G)z<=TSN`$r{2~b>H5@kt}J$Q8nVFq(?iex~8BoXe@ zXM!Ol-V15i!Z`Fq$&fk-qH@jHae@nH{N08AE_7WAD_w4>zQwr;yNB#O3aQ;V8p1-8 zR;`suQsXX^Hy9_lknjeKb3hh@(;r=rV=|A;r)>7T9j`owXEKLt^NJQ_*ujlihO0;&mXO*F~q5s!4T6?t?5Y4eUr97w5lJ0f1wg?SMZ~>=6x;fx{ zTc4cu?-_fx{ac3G)Ip38PcA)Zt73cDgo7cZHX~oLe--u821~`AX+<_d;?zPifPR2As%-+(AdQ zeVUzSrTxAozs@^TfL*0NvS+lG6k2wz$K9kfia`AW7cO>e$_bwE!r97M)5|cRQ3UMo zAtgX-Y)a+ylU~2l4i09ukpIFuj+-!8$FMI=yJPR+!X9te^=zy~;~F5OEvI}5Ih=!( zu}xaoVVhPdumUJsS5VtM82R9c89IEmpIq3z5ejy%m(w@3aN&%%TYDTUjNB;JE3!0{ z)*;am5*guP9}+Gh(UJr|5~A@LS0_`y-<&Qxc#YR2`Zvb1JplrVEd2m`)=7~bdo^FR%na$ z@>nRM<7O5V2pV@@SfZKI(_}HK9*BRmZQ>6@xrf-vhY;^Npt6G^Z8a$cG3}$Su6h9rcQ1KE+{2E8{#hi&gMwn%*MV2T*DCLYco&q_shnJo! z1eaX0-+XkH;e!0lwWmhX864pb9A_C46V`j2Sd|aKiWF-?R8q=1S+*pHiBVnKt(xzMwcUumm^_g$Lpq?B->&_Y9zwpUmr9d&~c8OZo-~Tv4oB@<(Q19_5nGL zArbbmM3~}L$;Xn*#Gc)zC|$BwNjd{(lL_xkvNuY(V>IqJk>912{zx6Qt$wjrcmT0y z+jqqbB`3WvY!`1QFfcrNvDugWj3AoA9VoG(MkG^Hw2hAG~~`pubU_K;5bk%}ENHVMtG;AbA8y86qR2RTjp$3?`~T06SRHh#IN6-|MxetF`NDq@sp<@Q*k)g*g)bB7v2?3yngo zd&4e`CiLQynDrNr_muu3CLtJibDZ$fxzAx@>X^G(iRs9(^i1>K>Lkr}fE6}^DX(Te z!h(|$?@Uoi!yt#hy)k##pt)W)@~@uFGrtkESJiLITjAs}_3Kr>e%k+sQlA2*TxbG2 zo}B=g8m{@#sZE1Uceu)gXvrH?vh*a zgxLYR!{qD)o*YPBN%aIs5k)&H_h5jcBDbA?6v-qB&58;~rRhjE6%lJswY8qfSW(WH z>Hi^8S{K5!kRD=k0fcHn-qzYim{|Ld=n0B?w;-Yeg6%(O1>EHAWnb6TT0l>9wGL2E zJ{h4#aved`wk~v-@-05I=*Kl%aZI{)@#<#DN(E@bu__NXpo5h&{lS&Q{M(s{;eKNs9hfxxK=IB`JU}YhOKd)BC;le_4J@obRbN zA62nGt$<~m&x7wmT7PK5i-!a|t9E~Ln~#Lom~H9dD%yNN8%@XCd<@*_+#hsHxnqAC zdYJdTYytOeuz)XC;yF@aQu~)?jZXh%E$IATP+_MxaD4~90v%Y{HOi8aC@Kh69f6}` z)i0CYs5yuo7LhH+LrA?b>C}>gOwcc0NFZCErn$T(kf@a8K3Rv zROGc*P|%9JnV1-YB!ImtSExPuM(v*`D)Iyg^h8D8(8Gn6-x69SS|^u1fuTK)N_v4O zfS!sI&E}^73O-7DX||14%JuVLImvwJ;Cf0>pMf<`X;2JLPj3D6?gvQSLk(VZPIUb+ zzPH0?PenKF3$$A+vE7l=_LVA47&)0f>NaEtCDRF|J20(T z%DydTp+M-~$;=ew6Fl!P>Pb%?Poi|5a zNds}u$$d{UBRR%gAn~4r3U(wSW49 z^e^V#ehqUT7%OCm{YHA?N3k$%+`QWx2_?UPO7*un?QVj9{M7JQPReJz4mNRG%(&a@ z604Dfp!nIZByF7}coLoQId-*ch@NWzuIOzn@nA_m8RF2Y-xZBDV7>5_Rp`+gVx0he zjwR<7flwuo`bHwm1t~8)3x)<%v(PB$Kv3KTD0=h+CB8d%=Or3E_Y9!lZT!K9)ZF7uU59S9i zl7JcrOEpGe7b!jvbxtLZkzArgE+HIUm{8D8R^<-X$}z=ui(PU8I%Y6H=D`=M<^n`c zxiA@A)1l^K-tBnM4t;B0*<>2;|1R^C_c@dS_`qT;gwrDV-6YO$tjPWAlDv3gR~lz( zvCk}e)Wa7v71+aZN66v8f_ANT0%&U+F)*OJsdq-aXJck@lKy&=T6w?nLxGqC&oPx* z#60EbQ8TRA@dJ)ocjRbr?fURC9ah!FqP&iTd0nB>MH)kr^|N3B%Afz3Gq_BiD>1kh zv`Op&XmpR#F!vvcBMw3U64GTAKO$^p$R#JKROe(%j$DD+EFDySzf; z0{-y||9FLP;rDulHICv%uaK0-7ND+YW53EP1pn`{S4dpI@A3+#o9#N@X#JM=;W?H z?s)s9?szCJRqnV=uGbABYpld_;#&?1D!x}cS-1$UhI?OhMI14y||IlrA3 zc@ZbQ07>->=rwmd-VPw`jssffWvATn=&=%ryVPmlnw1{4_f8!91s@WQ$AoNex0{BpS1CN+W;>a-Ij^yCUwidr zbJhU_olg0gX(^(vVDg@!pbt#9H>hWDB(L&>69+tnG6w|;rN+{U8;wcU{8HWQ7Ieg* zFA#4^q%#ipiIO0iWs=Y!ElNo4s+QQDF-cH`V^+W1R!_93z#e}eZzSj<4Zq%6=jL$s z*28z(r-D>H8y6s;F{dzC_KSU#REYHaL)LJv;jSw3wiFGJ|*elwXb)jJ|LkjVKboU#OI$p8hX z$d-oRWZ1J*fH@|fC zY1|gj%!o0UcK8CnRM8m+%4;02t%2@qIvT=z=uhx9OkKL^IKYlrUJSF}qppi%;%rj67OOBj zeD3j5hN%`f06Si!#t0I}YtR{%D2D^sv1&Sr&BTs$vKTKPA@sylHm)8vG`(!!tW$8P zr}1TiKa}6J7#U--%gM?-)dK@6?wl;G!$$9u?jY+etjetf)6dP);EWR1_MbZ+M%CK@LsLOr$RI@nvc$GSb& zyxcd;+`jk2nsiy}jLTnICe+uS+|u4gQgoE7;NqGCfH9uO^Y11P&L;0cmvR znYRoFO$w8)L6(aTVw{yy6ALg3(aYzFqrstcHcvT;n=(dK6TM_Iy=v4Th(&1=Oglkb{9F3W}`%kBS!}@8eZFWyl=L*PmUYIwIAf*G)6t}6h$nwOsZ6ko z3^CNUH#z+Rgk7|~@qLufMO5w9qMZkg*%Y=~=UqE0ym2L?7lq6ua1o>FlltU@xEmx2 zX8;*AlMdxb6@xa$bLmj7$bQBPNuR#9#b3Vac+Jbvxo23rBMtep!1$VbjWax;wP+PhJ_E!K0X(GZELYJYk27nk7ZcfOJbSq*-fR*25B3&vIYbF z?}eX_jX)i?&{XrlFf%u0XK&ecY5&QqhnHM@)MCOTm#}|0YM-#UiGWXiA20d+`wTq} z8+YW8w-40_Z;s1rNMlZ{uh4yLx&2l*HTcJKXCHz%w%U^^S{7$x{-NXb0a58qK8acF z$?6E0@}ixFTGCaBTfB@*anit=rzED7AN6f!<90|$J$SnCib4zh-I@e0)2cCKYeC&b zhkdq8_%tM8fgK{DgY}YQ5p^OG4wJl(9bF~vx$rFWPs?o27vY^ljjAKy<<-Tr@^(x7a?O%E<3P^f%q z2?B@$@P+;W@r)M*U9Lp7LAOEHk>VvG>A04F^imv8G zr=H2QNl_?uyhA>1GV+Q}6p9=dib9bHg_0047EzMzDVLc#^~|P}>NA3X1eH{2&j@Fp z-;<9aD3ct{3rk?pbXRsYzzKq^w@Xwr(|LC!NhLDYkzo^?x?Fhx5z)qt3n=($G;>yQ zkl&If+jX&2VO?ZbZ`oDVAKo+}$A#xC&BHKUfG^RH`N{)>ts-NG@hRtOO6Dm zM~;>%DfSnU9Iee&n zpRA-HC;ypp_#_Eks)k2p9<=n?=5+O1I#?fl;OGQ6qGW@VI({lMHHD%X7z`%X7@8ar zBB5ZFsj+Jh7Xl>gzJb`h^1@ufbPND+lhdBFOAJ^gOK77rIFH4o9_C{&;CK*yoYHV4 zB_F6oQ*0ejuq_A;EX}KQM}~CZ+3{Rw<%W3s90@O`XHvSD20K<-~>J=6KQyg08Azqq!lev`!aatFh0tgZM97P`d89 zgqrWIEkWtwnN1oLfyOq6g~8`+???aUb#DC44BvUKi=Ddk1cSM%CYYjUrYE|m z7-Z20CdJJuLK_5pI(}I@d-wk|~+Dn(1;Rvrfzk4^xpWC&-0zyyVo8 zdR3*TA|~mX)}kBBgDOD8k|gU-DMiq!siZTK0_unw(99$0JtO`ibf5BXoIHVU0xpD9 z4Lyc~rSJHWK&@dLlqE-#a-$O8AA+lUk_eT{ElyGzndn+6wa5`(?n9$dUq=k`bagT# zJ6?tKMP<&ncKAz0IxzQ|j%U>&Jie{02$+$5rbg>jd}w+AR=MLx*L2cu1zOmVL?}l} z{0vn|SjjlJCo+&$&O@drDGs!>1}g-dJYp;17u@NSE%mGsE|+~MXU?;XgV^xiCvVhz zd!g-x_+BRhhog+|-K^73rcvUj;(NR9zMH092&%uRC-tUS&aeXsnA6lw_rC>-oMd_P z%3pe6TEM$&&57bzQUjPvWO2GVQNO^2HMuQ~Y0*PrSlO`Al7V*F5H}7pfbbXKm_sIU9F>&9Z;gC0hZx-LJ z=grc94%}=Zt_VJZN&$7X*{<7SEw2SgVc9q+aX?x>%W=SG3g-O~pxzwa`#aATZtd*yt zf5gP5mb1zyAogl7lcQB@q2?E3PdOBF#aB67Ay*t4eUM<2=^wPTaA8PCS?vnsy@$x> zB45jB(9X=2*o#)1(=78$PC1hLdLV|fJGfOFp7k&FrlCfefR3ih^E7*s1w=xhlV?+B zQTY`kw9;v}D1*f6QA^aKay=4=ojgI3N=Y=sjIAr9u&r^`5|!Z#0fJ!7LFR_!LNEe& zIxh*Bl5BeUB7Z6Ka9^!7Jj5X=+_2%{ye5bBoiHj~Wysiuhco7jOBNzCiz{P=IiA9o zxHOZao%Ym-*JU9U)fZ*i)g+LG%nfVEC!_EJN=Prr3Y4>O&aM&^!=kD$lY_sg1h2{h zb4fcsW2w8Wah_iE)qAE?t;cq8V#CY8JkWKf?F2z}h}nWflDlW>+)B!fXub1wZs5+) zIydIb)D^m|%rOm?N+vI!&@)$Tm++$>Z&|%V)?TX7FUjxf(2DGc)Rq^9uL$|Nse?Gk zh3W3~W|?(%kK`Z|R*kd@f}DlwsQm9xQLIF40cJh3rwE;s4z#P_gHGs8c4>_+H3n3i zI2)TLklM85=P2YCHa2bHk&Sj*M^2G$UsM;ecb-Sz_cLyD=xbeW$GuW z2gX?ysfWqVoU7`!)$kM^EJ=4*d~U}6Am(93(U@l*!q+3Iucl{dNaBS?XeXElNW>^G z4`SOP@qh?v3x$otGU{9pv}E;V;vrk3Z!Mg!B_5!3$+TZz@$+0E9xAwqGsFY8O-~XJ zJyjWza7VBXO6s5r$czO=|GS9?76T{{59E;(SbSSG9AH<;CZvgnJe!ap9`XiMK15uI z_A(PF5nv49f*&#snH!P|A&kV;^s~G}wN*9D@ALTCoc7*zV9%xhtb|;So<*)}kCZHh z%Pt?o7}|0qU~!l2`I<<{$b?^UBvEG5C5Qx-HxPAz6pZvJYlq=jwfu|#44TEfhLW~HOkt>Gm%aTx%ok7O$AU%OoeWGR_D2EvO(tQ{J$59z3rSoiHTV&blZ_DLFP0_=#@wGj$=prcOVwrHH_9P}6) z(6}eW4Iu+H2bmXvJm4H;CUC~dhyKQ+PEt9xAUY5u5`ClgM|wNcqGUFz-}P8*%2?U| z-J>R!<+l6!)Q95)JAA+H6_q8!V^;d+_NGV4)mI!jK#Dz3KC1%og5Y604 zog;dDnMrn>oV*zwe|bdO%2S3#C1(%4c{^9ikddM+fa9o+3W#Vd8jI-s?jLE$@tMZu zAtkza`*BrEXCFKXFKwTUsXOi$CT-fcQU93AeS#w@+GEAh;m-0mj%QxkAy4e7=XkpV z8b!&uM8k|73qG@Ei#gwOC>orCPQ2;laXRus1%58)yE_uS{q5zh<$Ujdx>9V1r3ocG z2Nse6T1xvB-_&l&6nx~{Ek!L2N6aft;bdbaQai4iFi}*tRuX4ALM2wN&Rx9`Db^^r zR`MP$gw{%et70bs$r>7O46?XbOlzg?xMOdeVb)nmX7pRG3S&>`#+TS73>LLv;9rc; z`A{ICbkZk!E6<$tn$MkYsXiI05qqMeQ&p2Ewak88N2dXHJjax!ezBtyOWR{uf_l&Q z7Py!Z!iX6bnv!aOWUgD)t5_Kl%O~*;-i3(9Lt*kHJ$WuVG=}bp<0^QJrznOmD%(F4 z!{4%Of9ON`+SLh0hMz1vSF9nA+x2`6xexj_T|=&-t6y3|jzJUmr-WS9imNKtObL0M z1Uv%v@#tSwK^~z(1v!aEByE%CLIt^p6?wUWoZb9l1$j$+T=zv40Tg z&YTf>VY-4`NwF6ekoRHh^{t&q((YAH8n5;SQ}k*9x%~APc=^K+Z456uOZz@_kdF8% zFMsd{mEp%wO8O<0-QK4`VgVDVDOPr;PY-BxWp_HKf7O?vhb1EmW2yp82c!l}a41`pc4wne;oxR~qZu8ybm2ygr+_!%Lfj%-9t@nzT*d z6l=Rl{;c#UlU|Kkqa=SWabrZOVMIm*Hq%eNs%a&S#Gm zS4>qxwfoK_>nLrDN!B&B-0nn@_4)E{u%KU_WX-g~Ym%%*PzBDLHiX0e^a5K5V57Th_rG7Xtl`KW?A#MPu&!=tRa?st-M=}t*8TcFDmcu z37@93tSwjvnH$zs`Y;pV2bOm;?Oe#RW(nDqnb%D+%bH;)vaG8zubWd@)`>E;D_Pb- z;z_GMfRW#+fXofag_BP~X6$oW*0t=Opc&>*LDRKAr*e&92`fHtd}pfJ?3#}ktWyP+ zu;LxjG;9;w{VwCTAVM?g-Q5|>Pc5NLEjQXE z+5)jOODX zz*@i7?&Dg&mc{>zniH@uQ@l@=H=QIrty2t_=9ID7x!{kJ8*{}$EyS$hcaDB&Bk%t5 zWY?0SWaWgep08TuR5M13aSrg8UEs z&xx;?j_Da8XGsZ18?OXtA`?dRKJ6|y6KR%fCFd|j)F_0y?sANW&v6YB^2h~bxCSH| zn$tDjGCpI4N{vzn6}|?~58cE%qsFig=_WYDm@2amX~?MXc;WdPZ|~v4Qk{0Lpqp5z zEbE?Hx4@sLEXDmZY;ScM$I(T^l~4s_#**}_G$HXM`{1&if^|nSR0H#Rtcu9w4ZB1{ zgy$0HeL6LqU7G)^Xa!YSMnx+qYZ<8}9p+$rS*dpVLYGQNtza8oKtPPGBq08Yi-@9_ z{emK*m^70pBKrO_+sTnFKj_T%a$(UvrC)hwdjR)G7dF$^RThO;rDwLoDal`ZW_wsG z@j?Rqz6zgG)emza98XHgL}RV*lXsmGabJMl&#Um^RTW_ogYqWYK2_mEtY@f_d-}}w zaeQxw&rCc&PLGG5uNI&rv>5aG*&Dl3Qow3exMsje^v{uCxiikd%T89uijVlnf3uU- zTl*}3PFB~?9A=!Jtlqa`Y-dz^*g6+ZR!?fz=4($@kM_V~-ho&g%C)LJSzSz>D6Ia6 zI9XkqkAL%%)d|E&AutSn)5+@KL%5%FvieHM4e{#)cAUTl?fERZkqGfHl};?7R?ghF z9<2@<*y!rZN2}MFR_jrKaIfvXa;%SBCHrUC-h##vMbcxmV%q4r-jB6hO0Ylf8`|(F zG^o7k*c;m$%^OD-E?Iu^KdzRJO>;C}=g(K~hWm8Q?c*UwiJvMRyWL^$$9FG2>+e6( zzW#8(gvnfF^)i;UD>9muDIZp1MRJ5DauB{&gR5|5!vbSyJ}ADaV)Zzq3r_Nc{GL>D zFyFZ_tl~pnoZ>(P_K6e+aElB%*BPUqL)CGLsRf89F0c3_0EtpNC7)ZSELv0+0Ab5W z^Dy%SPo0Ju9Ri&vn1nQBCXi%cry=v5mPJ#@>o>`i(0-gjw!RKpN?am zP{ub^vD~Hj)cC1?O`m(E^p+fEZF2EX0g-JjtTBybkob7fD#Gx!_?j#Dm?~#KIGMfG zEu=?>aXAL#n{4Wa<79u>GMUow7k6vninB4O>GFh18ACIi8&{d>}-L^KzYElNhoti<+2qp;~`Bg?jud1pKg2r_NdD@kCG ziqs^NL@w2+RA%2QkF4OlSbIW8RcA0V6xN#iZ4XWtChOxZF1sdI?iX?NdJlRnG65K`P#pI zoR49D;(Yrb%ldfYJGI!p-_wAX+S&h&UCe42|QK9%xlJDv$XXJOa_?rnn!E zxt!JM5yypdbpPVdOh5vDk_x@1`c0qIxFk&z74rAnll!XrnjuIK2#eZpynMsF90P zPBIN7l&LV$N~Fa80%keiC}i1RP>*Ye=W`c;yVERasS#smeF8n4)I20Oo|*AE_kXz2M@iRuj~FljD$=bkU3-g3wm>n!01Nw?W6BBh@SbtLvzX1i*Rp$^?4?oel9OzmiF*w8p`46KO=eR?NJgif7k-vxpD@?N69>aHIoC${jbqul$vH#*84#nEK#N&&58(Gy=- z%GQzCA|lEi<@Np|QrZVdMaWyj1xwqj6b9Vy{S(fd&9#P5?7B^qbS!?|w)-^8G~ED} ztu~z%9Y7D4)rPslkDfnt*4VA9T`RQHL{H|9_MZqQbcDXJB?X-6MIq%M%x1^bMfDOP zJmJ4YCaX2>pW0Va4K2p=AJ2is%#_35NdNg#mh7KOA<$&j7`nf*R>Jk+Kw42 z!!h3-gHZ|{V~z^+0q=PcP@soNI|Cem$(;n9P-rWeM{{|5OHciL7 z6AZnrN|evM(DzLf01nThFpS`8HEMMse6$ zG>2t*?nF!E9&cA@Rtp-s+$7gpOdPUBrpiRgbpUpPi)YPhasMzLD1J61hq4TPT;Hsg zINa)0wZ#1}JZ7kG{L~$PKFc!Mc~B=WjxoLyB?<*aTMi+@DEifjEW;e8=VBrYF<`bg zsVD--%w|*c6R#!C^OpD&;ZhlC6Z<%VC~sBfU$~GBzC7iAcvTm_QlikyihH7MSuE~> z?i22E6Te8a{AuF%^~F8D)sS+bWK?Vae6K3*S;+7HGd1xG)NP@-hp@iO@e=vs9s%|C zOPJ!GKugCowu*WmWjsDr++$JqO-=j)`p;3^W7k@<7x#p1Q7G;iK~5%%d-CofSO>16 zxCa<6#)Mgy@u}jTd?C+bf74YI_rQ8^$>N?&Vwn4fEbg((@2suwr=tOfAIDGO(Dh%E z2;Zu#iJ?z}+Nj@$C&0k4h2Lb@vu5YmJrw4nsQkY8y6)-8AxZwkhBOD$17qQ`q`2iT zt2*I1?hvbOpDWQay}5G9=!`v0Ca6Q?)$s@wYw7QJmQ^P6N>3dzf%BM_Uc_2(q&(Oe z6Jl!d(ix0$nOnt@}ousf9^z7kc- zu%)HLBOKQq!=T<)FQ$_A1}q(h$YV2m_-rn_OXjzO|4NmAMSeSGx^v4y*)aRuQmR4` z5N!?%gU?BQFID1RNchTnR}cPvVgZvxrY-etSS+=+^fOF>)ls^8(+(1!pCmtynkn5M zZ^Xot34<}S$h(Yl6Hw_bOoG4IA7+9CosnfndoV(7b-#3r#U}RnurCt2#f6 zqH=KvX0Ww(3*k+SNk*8Mz}J9{m+BS+b|dAdlp$*AEhh+!*@|jo^#m%_6lR5n)T5tquJ3Dq{ORZQ64&&yC>~RZ+)+t*H>^b;Yu2ZN zfGcr@pNisTl9#R*FPx9!foXXniU(Em*P?i;a{p8m&ueLxi{b&*<>g$7C>|tQkrsWX z(k(>s7Aw4H6mK9JoJH|$lilhl9(G)>jN)N6LwwJQ7JZObcOr@hBpiiUiwPRVg9a14 zzXWM7L5d|$wCEeG4o*e!z^Kgy_LMB4QM`0u&uEJ{NW>AexsBaE&0sD=B*Q{qydT!PE*gxzxbNSicip`o=h{8a z8bBs7lsp1x2c=jH2B3Szuh{8y8EkZ8uz)hkRV)SG$UzH zk~{rFQ5$tVOA-gHGixSS$fO(69B05f04E?&hS@x_G_{%l-+zl3pmoc-;q`q zde(T+k?l4|z z3WoZ1dm}qWgEmKz=uo48APzyH$uhy(O^ITbKp>1i$EHPec`OvXlQ1o5DB1jaBdCl4 zhl(HQW%)Tanv-GjX(^%i@G#Jy@biYfm6N2rn-pTI3B+Ua7^DN7AfJhNmQgR}+Nw&g zwoQXztCkz3_o8q3>|>+!zU_}T5CY#U9(tIY`vm+4HcF2Tv1b3GqXbJi81PqPGB5J! z8esp};rYMd=87gLxEBB^W4g9zJKBWQVTsT>r6A4rL@TnhCJcd$17L{@4#lnL$PP_l zi412CmJ<=+j!R)j#GFo(Uj-QEg@EyyP0n~0O|Ywg6^U3^DyPU(wh^+6)3^)dLJ|qj zCOB@=C=l3wYwcK&Suu&6EV!J(?DmH6eEu&@LGnD$OsP!6vl=!U#pcPSn_lzz1Pkh# zkWK8!_IF%RFt~O>pCm8kxe)VkHT^QLJeY7--<++k{MT124jl5tUn`k2$LqLQb#u>t zoj3D}g0+~%lTQMIydot$1WGQ1{3G+=_B3mU$5|7*Q$00lUrC#9Px6@q3P*&H9+;+G zl0_YMqjn1C7Mfc-mMz$}FwJ7GC0lGD?XCx&?VaIJe@G^` zHeSuEPO~jb0;J|He6u*o1X}65Lr)dbc_r1Nh4gaCK`Q6TqH=u`NTpj5|1t-uoPu1X zArZn-oLb1-Fnytfm=!<*-=u$`)PXw7y$fqFXZ|Wd=@}bFdfwDx&17t+uMa?5fY?(Xfq_-g9irCU!jNmS;~Z6KozQ@rZb@Rt<2tiBMdgOy*Oa zzlaJB8l80hVh+uP&RA)xr#0uc?RUX=5#qG)7VgLo4U|p zNZE`fKaw^D%~(=jOQ5*t&uK{?nD^gMN|@jum`3~^{6oIu+C~0hAfCJ{@ej6Oy39Y2 z7*ZwwK%;faPaAy<`? zwLj(p{__N_gS_&|cMy+?dtF&X-`!T-XMW0OhTG>4t-rsQ9R91(U(C?1iUn&imCdSP zSYyJ*nZ9w3WQ^+Jmk&G7o!BW8NfU>iv%ZX-LzpN{u%=Jjwr$(CZQHhO+qT_(+P3ZP z)3)vD|IY00W;RhzEvm9MnfcY15pOv7WDPY({g8AY61F}Y|DBSK%cv&v93Pf?fs&@< zICa=F*6@-Rr^Ph{j99xiq~i!YyK#6IhPSaX-kjk`q^(6$GJ&a(YAqaWbz1*+eBWzY zmx*12@H|%^WZGdSpSJUsS4ChC&_Ps!Njtcuo;w}9uLZ?@8-ZoxS7*x ze5;gvMc|8bkEp2)g(U}mHP0?4`=+Saq?@M>q?Ax{bIht0o=!B{7{jnVF0b8DbaU?u zM>0dGXlN&5FF2@SL>|6tUf5a_lOiJFFBa;qY$m9=6atE2E=GpsAdFGINN+%ODLhic zRD7hXP$F{4=u)EPVF8$+kSW^e_hs*|)l3nJBBbBMQW~(>;4uBe@=;_)ND`q8 z2A6ikRxvm>7`70u?;p>e#DUb@bn_#vHR`_it-kA=@6t8*Y@b{inbS@Y<6`}>=V*hI z(-=g|-ItmMEn8Se#3hyTrn6rls+2K{Io2r6qodU|`CMI}k4E|wtk z&U)>B1zWZVcTwUb9{wZI2`5|;23?=jZBw*`Ss==hyNhM!g4jvn8$sb|;gAxO&T~Sr zEXfm16qmy$p2N@ps{ER;oW4x(7p#MP=bm3}zUJk&_W9*%|H^ASVgIjvTA>az&b$7g zu-S00U#pr1o|1<m z94Op-TdGY= z`j-{yi9=j=#Y(d_^Ha6Q)hwch54f0TW47ucL!_#BriVA6taSE-PF8B6c#*D|NL5Lk zHX>CMPJ9G6xJ`wrHnn4stz&$;%XiK3!fdk7Nv3fHOynOI5>@XUwdL)uO4zQ-hHftv zAuPg;9k(zdmxoGQ-5nfV)QG%?%9VdUlir)`us71UgX`F`t*7jVwEf5E(pvJN7qW-ZrCG|f}slhsu z3foSbZ5RJLtKOun*d3-`GvGz;GpU1IFmN)78(|NTm}ogu%!>=>CfsoEia%aecT>Zo z!l8vCn~#L*$HM2cFQm-uLXT=sOq41dLOhyIzcT7Ido3$gvNt_?664t2-a+rox@+{6 zxwxghPHpx|3BlYJ;k=Y7ZzPm2(h55n5$(nw1=Iv%>2PuXTMtSZcV+J)5+V6obQM!f zv7%zi7QuUr<2fr|Z%9h7t*&&lf&4MNIRVZTpznINs01Heqil=A>s;W|iYK^#F->qf zLcW%^*1h?UtElyVtlbt^ybg|cipi2#HznEcW;j%@ymp^=S5n6Qik(N90ulr z)*xo8CUZckX0q~gV|$<1xy3!zm{oxdbcA&;p*Z!wwm(Kq-GgO)vni$VcQ9n-5TS1& zvZmj3`6|tRHS4M6P!dnR5H3TNhUytudrOgym49drk>G7yAWe8+Yuh{d)c~c03zD6u zAVT`e>*;jpuZ6Wz6L)hZoaJTfiwYWyU@iC%#Ei^`SRY8`4Mza|1j8|fUN(0GwwkXZ z7AYma@?$gUWwOmFogE3^_F_3FIesz_Vuei_ueF4MjB?ql(1}QaGEvRT<*~?+HU?<6 zJ{8aLKg+K>A!yPdb<(k)W}PlU4_d`(gkcrEGLyki@R?Y7@tg0euU|5Prb+=-hKs;Z9eEQPNn4{pb!dA4sD} zOSx@OU!5A}GM4%Q7+O9PrRG%3Ry9 ze<+(mu(~ZDFK$UES*)2cCU&*UsgO@(CXa_FNG9A&6iM=+#}vz&swZ@cPuw<6N&IJ7 z=_A!eFRg*8=n7jAJ0%b^GZPhS1fOg%Mt&ko{SJ9BgL2tDuoktVYv^9n;x?e}4FmI* zvVuEJKq`@j%4j4}%ng&XlAuIC<9+JzjPi@p_1>e5pi#5iAfbPqti90&nWbo?%6mz~ z?^HJ@kn#87+H9HI4H>hSrNC;1I)@dnXCHP=2-Pgc0-UrYRKQFu$~Elt&nlJ=%R~lY zpU}@K$s=f^JgaTg@kzXn)G8Usme}AqIjgPiHYp%BQ32o)aLagUF~?CZ?Yw6Na?Hj8 z`VSoQLRd*X?Y}&)LnAu`fFSj*(PM>wAz*$M*&TPVBGK@{g2b|C{}KkUcT>xUpg`ZcoVyFS)D$ zjZ5XqZF@%@WxQ0g{|Nv&XBV6tf_a{a8Z`sn+z(Hw1GOVjAONz$OUgyaYTi^+p}%2b zaqF&c0Xb8XA(cKpr(t65)It{TH(5RN53If*$~ZU{^rFtGxbu@cjX_W33)*k@B7y+Y z2PjLGq)0-D8XhbwFH7r)ff{F;G^R`JzS?ADl}GJLdMbR!B|-*zr77c*+}inZ5!FC> zaE|aekY$;49il~`%$8D#Kd;${P&EI#@Mv3PTu3TEgPmqSAEN~uCxNXk#k$l+n>e*A za3LgFZU#%td2!?1P{Jc6ysxaI7#Si8$qspM;^td@ii2Y{Q04?jM%oeKlO?DCB5De9 zP6IKx)Pr3!DvwHR3eUuEjOXK8D499HI?Il z7ogM$ln9W;2Ru$NyFz+ce7jtitaze$?H?*58O$nYX%USHa}V+O8~+|U=tleLPZ#dF z=QIEOGvK_Fh8zZhzZd*=_E%+8eYVGp5l@7-I(S$c^g%B3WhlOuXWZKrrPpd zApej#6KxTWr@>o-Z?G{&g0@n>k*sC_zM_yIh2FEkdr`!-zoA9G1(ZXIX)PS)70}Ff1)Xnj}fJJm-g#XQ9 zl>(#!YXM5&$5Doc#mJu!&j4-LqSF!_htJk^d57e7-SwJQ8c8by z6U1iVF5QUK*dmN+mH1k+k9m54&81YL?AygvK5fYVmkgj5$puh4t+r#y6lAd{IAbQ| zyrVK$w!+(`%mQ5$6EFypC0amNX5^zjEu*0{AL|{L!h;lm)XJg%>}5RT?U0Bp<%~Vc zOy(A>v=~)!zr;2g1YbLpF2vjD_^rb45yOeY`SOvz{av#QdH zzj>kuy?xX1r=U2GkUP_7jiNRX=Wc=mT0gz8=?f^1D|+?apF>(!sjTnRyHDs?JULsc z#u4tw;!N>w*vbLTruU;S#Fo2*f0yi4635LV(B+9tIoujzuqh0rR6s)gMG7;SFIeIy z%kz^Sn~7YP;mClXS6?QGSlDvSz%Y}M1DrrssX`+XzoEcs5AXt&2`V!Kr}&no5DSQ; zx%m$Q!jX7Q6A?w?%Cmtg>PDbM6_e&bi*C%X&7G8uvcn6rW)w zMkX0Gvpw`=MPjh-z(0e{0iuVT3-HnJ0tMrPl0Q+lVPw+zlXwmUQRk64i)4RE7@BH+ z+Y4Cyos)si6P}+&Kw~(2Z|*flBXDwI;^5WJgf|c*L6Ablr|n=yrwQ8m^ei$pKJ$lq zTHvVDnlYNyCROzNCuycqKJuOcg&50Bif#6&a^@dp3j?MdT|jd6#j6!pP7u8v~ct{h8Xj3Fp`j{C+o3}A6+Rt!YojcE3zSV2>LBDbkS?}#4D$7 z4ae)LM<8rYlxaU}%?Z67bT^r7OfSWhWo(usap z6R`l*+>&{qWcXpedojgpNNf4_{1lz9K|N$f3E?~nPXWr+ABsrMWUhD{;x<$})|{UB zH-xi3puutnvEX&Km&_U96Kx-Cx?b%pJ-afshQ_%{+C!t^85G{*IU>~B&7U>hd5g>| zda;Fc%ZA6>%HB-9quV@E#m|8`@A}wwVyd)gGOO<^d-bn3I7e2*&DlNi%Pi9MpU+lK zhY}b|HEBXPZ2h#DQ_k!CDk-)7$%XSU#WEaJ9Z6!j!=kRP583+N1zh5W`zdup*pV;A zZ6C5#-wvW=?OKW!=0vG&H}GaYOAfV-(lz!>mjiQ8*Z^z5%#Hbz&70<9AQOb%_yC+O zzBe%=trL;RGvk?>gs@)>TsGD3u@z^OBf0lA*~U%vW0FR)z$pl2(Md6w1}+q3G+9bS zJvqRCLL^Ntok}4O1;S~1$9Hr@ta9@P{%I>6yGiqjJO1fk#eO7gh4?dLxUVo7+)eYOGu_hO$V1O$&&J_ z8nlb+rJCp50{^2dtsGiJSq%FB^P zGs5P7bA)|SjuZq2(|cwygUYu3IgS?6O-aHoiuR>bfK@|&`7WZEAebh$pCB;9ZbwQE zVwu>2m?#*ylv)cj7bmrz+zK(72ng|Y6JEyn;$*OdP)8Z49AS_P~M3{*w@RbdaEP~3#z84qP z5%PN4*wY^|0S*rU6?vh;rn_#YuB^#U-4fp0_3t7pZ2crxMQcr4Si{D_(gRM&dT748 z9Lby{?)W_Dvo=tnDkhXnUH>>)d3$UjKsuhznAcpnQ?-GFO1%mj#VpzYRU}5;S+}ol zZX+IB;liB_snrhqEIE0!8TbHV1w*>iia3BPZheo;u6U~!(X5jGwh{Yf6g%RDGm*yv zZE<10glvMI>6>NvuhU+*S>ovBt#>2frwI+y2%~ZC;6});s|R&Iw{zBnfPKXJ@#2V#m(=@Zn=|`jp>C+^H6)i( z6#Zb7C*8&sJ&N5uH$hssP_#?+0`$s8jBFil1FkZ!DK|?Fx3D>u63KH=OB88kqz{lN zOf4bKZkn_?8NrG%x6G{vT6R*Xd;u}tb3N#xmf|q5i#@JP$?kd6!-6+G&pRf&G+Yvd z;8;O_5sq%5{N>0Klej?p9elazTwpk$F?TK@^@7G1E zSYCdK=OwHjs%?hU}o+#oII62Dp(E!E0j zN#M(>DxgIGZ(_)aqO%BgAyC%6wOY&Fn-;b@I1rIANEe(CAl;>JupyC1wK-oC*9%>-xv|7Ll%$3LtlX{~2-bKS01{_XR;bd4FA@aOB(O_TC>u{OwSuEeTO!RTVceAT+jf z;+!BkQ&;QTIp0>Jv1SqF z_cZUyUx-|>lvR9&py#3G+`VjCtEK44i5h%H8{|}54gO@@CgbvM$LA{}zVtZeA*Wmq z>#)pN^&g+TC2K*`_X{XDe$&G7kWT#7R+T2+AedI$TNBK8f+MJDOS`AXAc|Hrt`%+4 z01H@qfTZpzW-#`DQ)Ka3ZjJ`KDFhGtahBk&K4eUcly-9Xy;HDKXmpZG95EQVB6{d2Ezv<%TVLqX zy|M*qBo()69N<=Rs{0N>GYA+PA*m(L8!xYO_}>lxAsmH}^XdvwQpyN-ZUCU9wBW>N znW&I3#O1!}##u7xgl2D%p{=-pCKI2;`5=nfty?RVq6I3uxB|7)^RbEe9}0czpUTIhyUXlvT`sFC8%`BNftBtNE?1~^a&+43Si$VH9d!1wM6 z*-UZ|LY0Tz-9KO!D*Xqh6T%$B0f70+i1^q6;+I#UX4Trfzik86VayDES z$FDN7?w7itwERL;$)XpK=oOf;oOy}4Na}3I)gjA;RevW(DsO+OJv>3K&!cbDF@Mc#bih^ift`=UWSUGDB6%=B z%LF3RarM{stH!VXF(MGrqt;pS8~!Z*bNp?z+eXyry3RDkH|XXHIs-;gFFoY!)U6zv z!+`UBTKL61@^xz~&G;|*5FTTWRiA@S zTmmx3Ay^@Mpncd3pPB549_R#vzAQ_UQ@EBAOI!W`nFG#waz>^m`v@3>a8&E1a&gjN z1}T37<81p3UfT$n-m`*jDhjsca-gLl+7t@=m&nZO{W}#SjuVfa-M`&vmZ$;JE zaF>ZG+gntrlHE9Kg3i}jWy$h`>8YOviyH1!Qk`~H2>sctL$_84hR9GHSPHhriJftm zzjq|Dkq)`hvwH8Jk2>{$@qBMH&p$LFOX(jjNGaM~&vGE{DzGi1A;+-4sRUrzLxhCi z3jQupDeVty#!srhxeBl`c`skp4L`nUuxj&`R66nu9*`Yo&@Io=1?(9ba2s!ge>lL9 zQUC-U9InBK1@0W}{|79K3}4f5^UDG}{2kq%V86uYdDC(ZN}! zCb@;>Mu@qFU_=V}c&-eHvXaDXUGylk(QN{7qpmCCVAEbmyaPhVp^t*`y|Lb7<>DjIDR1F} zo+^G>8a7UgRkd4#%si*70{d^)PdMF68JWsICaTsZsG*jTfhv1{9pvu}HFJZrNE;~u z9;W*)(NViijXGmHa}1S+s^2T=Qr30)FOLhKDCSRrqY_wu7Y`2_OY{+R zl=gqt^XnHDzjMx0$scH)3UD3h(sx`Z2xTe`Oz8mO;5|0O4I1csN|qEiVvxQG@y|}O zMzjq?FcNfd)!k%zh(q1>I6dyN#_O@sMU-+?Hd^R%{m+hMsXdTbr$6m{hEf+w+ zh#rt0>qL!u{CV^cj42&w>bRpGx0WxHK)DwH99&qnjCJ%G4^S736dti6!%(xyuj=+> z?k4G(q8`+CC!Zj|^cEWD+g^Pzi9xeX-R9xFmHufFhwPD?GySYjh;jUr!2R`p;HG@i z>dp%2b1;LkpY<+Z+gJqTy3>1$sh581V9Lw~`nG^&oB_#7uS1(>{rXmD(^52HlVvGv;!_ zL7?D~bf}_p1^B*R^DT>6vkrpO-%c}^Yd#RfjW*4OP+5Eb)$RD3PJ?7YI5a|bMs~fw z_<1*%`E`HZ^zv;$e{Yry+rRzz`950AOD>84ANwEH#raCN#ad~_`Kkx4Y^hKdlDkn*SFC?%)y9{Y9_O-Q#$9@Tncv3X_FBhR(Ni4xzl@Wn^o{#KzSBF_u zZaV9Tu7YgTS^)mWx&RwUKCP~#lZ+4NaymDUu=WuUZN2VpZjm_#-KB)RN@_h!7(s_* z`}WBvjGs5UvLB9kv65bld^Ltr*-%i;=Z5Ax)qqf=CEqAb*Ta$y&+9V|X8uht(IQcmF2d$i?51KML@0BfYk9TOTdlF;jT1hDjC=mI5bZ`M{>OK{8 za1rm5&dp_GTd3A_BB_gOF0Sn;fv-cxlNpO=iw~k+>wP+S_T0)kuOw^aV6_hrtE$0i zwA{+#UV}m2OgWEnYlgrg&r%3&+L%c6blt{=y}}6bsM|(8Zy`{-X+qw(?~XNvxK$E% z`ac=-23t~VxEpw{n?7{pdyCi6F!LE_bKE6^DIzlfzX*JW!nJ_Z24X5LK#VR`>JDH# z4h_CwoLs8)chTzKPG0;2Yq<-A^|c;eLei(42?&&ZHt*Lvzptra*L3pWFSb_@HQupB z*l_#Zp*0C7;6->qR1#^XhsF98b<6g#HVfL#g#QH1_D9+mJy(s*8DI&8K8W{(CxD2tuhHM+mjkyyt!GruZXDS*h~#IHCHQ-6P7p{ zl3^qV_E7ScH;E1rhi@Xww=a~6AZMxt!~?J+2Bb{zMiWudgS4&$$WW$NGHx=pyMCw# z@dT+s;$23_=i*@sW?12VXqbERx7Y{uLBaNpSfUN0g7zZ?v=b8E3L-sr3b3=_*GIn@ ztp&e~rwIcgy?ad+h1GjW4R(HxOZkuIi!kjr;YW#y0QX_8O8jMtFrNWqHkUf`Tg7wf1x8lJzR99X(3J}o1j-H|RyVXFDoA)Iq@f9^4t zcF=KqY{G%7OQW-H2f6$7qsP!}+YOE2w8Zv+Z}t=>ppKy+=fy?QoL-^opNgv%M1LRyjCDGzIi!sp{X)n#&kcbbCZ>#gU}ujjOq69e!VapX zcBrm79fF`*B1!{+JRaTd!*KcbuF)%~jXgqTRGtHrFgYfLMhlqLWL4gnXt>fKh)E?? zG1HmGPocz0bH{{bZ!#4m6Fk^r(x5NbZn&txm7r)<5rHMpe0hs(s^l@y+!Y zAvtzgU{l;|FC|@0*A9YYoB|tlc&qM>A`wqVAk3Tj{M6p<(kdbG*|^7LLSWg>iM)}N zbpdohfEI;qL+jI!ME?#y9vIWw6ZQCnOsAS*8@<~@?-|T1cOQBv(T;tq1w^Ayp^Of8 zFbcdj`~B!bMqocA3yi?fV09myrc`MJB0(_&#!tZmefE|y47Y%J>_8?wT}BueDz6x| zdU?}(s>*Q9Csd^tj|k3<39@_4LV{7H)ro_Uh3bcJ5)443d32)qJvfn4=qY!!#@tUJ z(XJv0kFAM0EsMNj%RfDE%-0uRF@oX~@HXzvx3G!hEvm++xN8)F#XI)WZA)UQb>j~zM>-~`Fi4OV_(3^F( z`_S2yd}Q4zEMq-AnJ6r1LsW`6=ec!OvGV%l=hrqON~!2qt8zl@BsDA7({-+>c`HvnDtd%QK~G5~*(?+tmY*8xhXJ7-8XGasWj&z!_uiuK z3-F`@JsAUMW4@hEbZ>IZz0qH+O}=-r1z`rvv%rJsHo?6pkb^HWKtcXG9ecI*(w@1N zq*H4$CXkm`P&440r$-pQeoPn6P7X#!pNT#|B1_9(Y3O#zKq{;O1c%cEFH1XM5m>uO z$*T^&^ROa7XK$Ci*F7ZuXJLx{+W(oQIinq!K@dR;EV@UTK7TQgXy=dWS4~4h(KG;S z?ii$LPHHP9qrF4Gk{s=(n7O3Ig?RmZZw|}#V~PF~deZ0`q5d9v6UbVveE7BDsPo-I z-U#N}sB1#B#?87xFD0y?mGHULXfQhRSF_XnJEDo$9IbgcGnZfRmx4hj&m@;p-egyf z+#&>)L?SaTo-oj?A5m^E&~Kj}bo0QN^(QA$>2_J^zAf6OsmG9S@9})tBt{fzu3gof z8_;i|RoBaZ1LNKQP_r!J+@@y&M(hwVF%v_kqRYhQAeN-pQgJs?i1=%m@~5OpE`jen z9*jD{FTw$~SqaSn82$p9^-h~Uj2Mb=2`Sl@k)mVSgwlW!`q)`K9Xe|>u^RVQnAE0o z2n6L*9#*FuMeCRtU|t6gkI$}hrk$0vnj`)jff@os{|nTR&p;v%9NnvNVVcC20O+6} zX3loQ@g~)x%7Fl~)1`n&3)S}0`AuMX|()>8V=Vc9mb@h&a6|! z*R%x}9&eOcyBpB2gBeaY>B~iA=3%aMb3D-P0&5cpEs!{AW~wXNLX%Cv5b~iSBi|7Y zX_I*6`3B#;&Q@i~1fL-^$j1NtcP#6@q8nJvIMY*XzftbScpRM&$d`&x4 zI#X%EQhjSvrxCuHAl0-^%P>*NllNs;>A_UcJjD$rCKA5{A6hgfNC2%_YLlP{xXjEg zG_xhqT%QM?v)NySqCmz{xn>o4%bAa-G5lvpON^*v5VI)#T!s%yHpO{7zK^ zMJ46-5T#D@F`&9@y)k#XEzPz;N5Q@~p~q|;Ec9hpfejGu5gLURGxgtdp2!o|ePbaW z673~@zC{V=XhBgH4vJXVbm#478>I%#MH(b_{->a-6r{eeJ0q%fXiefXGO3Yn6F__u zV)(7r9ST@===3+zK#Im#aKPry5qBAW47v>SRsN12Xt?|9x~EMOfij_$atOdUB(#x% z0ZAu%iXM^gEYaF~tbSS~S;k5H56xoy33S54@K}IxO-)lG4~!#0Ku1K2&6iN}A`mb~ z+>}@O7WRDKdo6T^A<25LIsOy2B%z!Gb2pc&=cMP zk6W3usri+FF+0wUhRoR%^a&6}4u?n5@HBVwLVNUNl_FC4pVR?6Yo>C?_dM%~0IHsbU0PV@})`0rM`zV2UG z?nQV-U|S>I*4|nX0EIVoN-Ru0d5WFB{%kgWN?mWuM^U77JSK#ZL(N<*KQtV))t4Er zqVxje5A53LDfn?GE_&j7M0vEBeozl;p_g1Wr}y1R%ocw^bX8dEX5PIS|?sIxi zeN^5t?lB$iK30mqOwAx0h6^Mz8Gn8ZLa*fUmI3Xh+>Nt2`@N8}_^;7&Fr{Bly1||% zwFMct#qX>*a^=k^(h3bt-zV=xbZ`7o=lO#F-IipC8CmG~C-|)MNqJk6IOD1#t>otX zpZ8q&x8zwT5mubrdu`rCuikrYIl3hBPtKy-=&Q%($AL^2b>lbbKRQ2+v1I!MGN>w( zAAIZ8x1yMfJ}2evLyY+WomcB}s2xTPuMLn<(mzfDFTq{q4&B1ExB7$wDe?L9{f<+U zUI`235R0bT8TTb#jFlJ1#3b;If`>v`psHq!fvP2d+v3bAhO?@6bUjucLT ze8qe=r7sL$5%~ebh~8=6%~X8#)qKlNpctm+RQ^zFd7^%RIuYaJjo-nRatwP7s5jjj zWS42@a$oNKw3^e*y1@J$z5JiKOHY#KIos3j=-a0JIFmMY;&Jsv58bE%9_7D6lifQD zf6WAEv-TjX$9lHDbJItP>C+G=$P3^8haVp{ke?fv*9_|4?ZDF0(DS zZN6yM3B(1p3(jFqnhiCf?PF#%nouXP>RLj_%%Qm0<)UElz7W?NuV%0MXh&}QqU&&0 z+BOt)(GG-TY>bo+nTS001oDbb$imgh1&=4`N2_%LH+}86-!4Mjb(iT8^V4nNl#40f zl4Vio^ps1vF+bC4T0cWobg;@CMlnbh@<$;4`#sx9Uu<$Ic zT@4*^1}%rw2=)YX2N!5cj?jYpX#;V2S|Yr%?R|scOphia&xGI|AUdwRoc7D*^u_*u zZSmTER>VO$wh5g2kEEMUAJaD0EZ!4Ndwp2d`c#R?w6*<1K4Ou#^c7&w_^Be#VwQMh zaX)_F@QGKQ{ZRMv(zezIxu%O&VDF~0GKtWViQ^_^3>#8ojHUPRTguB2=7W-P+Hv%7psC9`~0 zuf7!8KWq9Bsufgx%ZNBVu^3Q=AtHlPBK~0&hwg;j9{3Rwx_c(`q3NYcW2f`I>f}U+ z&s!&jvqijE^h_m|RVM1T-qx#mL+^1^d7sYhiPiCy;1(!_+(Ao|p2|Jk7g`G{kk~pm z<$Yb*z%)eBL*4f#ulJ9i%%q4ok~4;kR)RX@B_zwgf_4oo^_->fIyDIGVf4ciZbe|v zDNDu8?5a_OMd_^Ot!`Tx9oI&*{AD~y*F&tNFhNnOe3;VM6{aPyod0tV>H8_4YHoDp zm|$R0o)+fe>HLzKTUvx=+HWG<7wRV#vj65(eXyGK1D_5vIYi~zp>p1lNWnFTdj|n| z5$&&MS!cc7rdCEtN%-ZWGKpeEXleId&Japuvu!n*>e|?Y7IUuOl8sznjF``PcRR z$@PN+l+_o7*LT!&nieGO{*g_ekBtkV1MP31ryxC1x7^HcPTud)E2mBt|Kh9nS*z$1 zZe6~Y^O#;xlxIx7-P;S}%VVfqCb#R?eO@>A&YuPudY5iz2j=h0jWQJG)>GmMjT27t zYPSI`6j8Bz8J%mYne8RWIz-Brfv|cjw3r1J`HwMh3X2fPkvAa~8-=w~aLgbRUvuei z8zzKeKBgdb!ZMBB)MC;m}kHsCKhm6rv9_pt1D&nA1s*)d%VDP!oq!33f_+ZZ@2Iab;9ld}p|zVs}tmgF{^M zeH{_3W=BCvN`s!F47ZKoeP}GHnD=7H=HTWOFNf<_%$R}sP-!#=^Zr`a@)RxA;LHR; z5)?eRu>w$#Lh7MTXYLXM+X7hasz+Pz{{5+I9^0jD$i}eT8rZ=PIuj zlAAp=^=K;8cmO}~`G$_n<*)J)^W!?U0?A61Ed%()hg0XOJ^bM>>n%mXQ$apT-q;`W zl&BLy>=bRK6r8=0;VNO2d|jpa8LX}uZnNulLr<+Sr)ngclKgsl^>84`;2Q&iE3nle zkgtaNC=15y0ue*|{mqYp2%ILTE2-gyjn0lX5zdHXdFa2czKF``Wxx~{m1!#fzrrOY z89j0%VSJD4h8m;98l&~Dcd#cvPesI;G9nk5@U>6Imn8+}oTPoTgGsV{OIlTdNQR4x zt7>+@kl7&d1`e4#wFQ&RiN9MX zjq|VgYozgo(gD~+`#kP7yS;)fUAYjW5XG3P07{nk-_9&!*}ZIdpOaZZ)8v)YCN7*@ z089sR{ru;6M8=#JMe>bd(G2|O+X!I|QjY2!nZo^v`Wm>q0*o3OCB`&p^y1(a`KU3a zk)i#M#iVSXK_Nvx81mAS(EVL*xi)y*D9Yg|9CXD*Mx{RI!1n^$Bd68F{wMPm*teow-TUc=uJeFMA(*A@<87Wh65I-wr!^!ZI44xI}1&3EDMX1<86=LQnUXPc4a+dtzvT9 z9)qFMAEjYD-nBea``aF^cNQLKc(U3ao7KKiip@IUjJeL?8_G&f?h8w$TSX;UOw)o@ zl0=2G)d4z`oP%*rYVpPj4G}s5OCT7ML|O(CgiDm;x|`|n7+#c*7|vd`lYBaK`wTkT3J}#V3|HrI+R1L@Huvm&ls73B%UHFxu@pZzw4)4KD5nT$GhT*sr!i` zCe4Wx?L!P^KCu;$%7`G;)DxqOoF}7=-C~RT(1ckB~%;8@+(x4*tdyOPa(DwDXMFr^!dDls-9p-1L!Wbl0Kj* zKTQ#X2q-sZy!#%emev(EDJe}<33&q$yoW-(s=?rwJVbt+n07)D2@;WMYeVB_jQbYSyr5uvvHCTyD{bO%4ItRS#Y93EG>$cy%3 z5HMBXcK7l$b(Js~CiyzcQ6|n30Z@j(9Fu>3dI!Q}QE)4qxqHCSuQ&$XS>bL7=K%GixuB4c9FnA`}6qZRH#%+|xSw ztgZk(Ty~{RbYdD@zmuv>39qjVg7rxd!@Y#88tV2oh2 zdX7VPt{&>*CSfTXlri|Uv~l8%u8m-4-s*Pgr#uynzlNDk6$2QZZ-3;1e8WRsd(TQaa^%Q@I!C3F0_TguRk zofe|tA|6$43z=H<`L(SO!6`9Z;0`z52P9R-TBe&p8HfQGceT)@tX?#(K@&?Uh8Sxj zYQ*>5nsI73S!2E)1W%L zwqkht%3nC+{0$KEvbeEiB0$9o!+6l`bO4XBXLSVtFk$U*Jitr|Jm6;pz1Fg7)&VTc zGkjkafA?5?LKUxgqtmfX#n#YbcNAVn0){;#PRy^GWt-|E(FG0~4rR^z)R}EQJzG!3 zSvEhYgV{KVnW}jZj#||0nrVS7>VU@$f?;(IABT0YE|W9V;~sUleS=aO>YcIHszS=u z%(X_$jef_DFho>OS)iF8Ko95NdWb{JP01YL%ekFeDkb24Ah=K&U{cBoy?q4152{3L z7jdUOxVH%|tNiy@#NE{OVRJ@S>}7w@`((#lxtiZ{wx;$WC&a1B=-~YleK!IO9|0*F zACxC0`-5I*B<%|p)Rp}>UOL~B>S8}3FB&aMUt8{6y5c<(f5@tZ6-!KQz+ z;CwV6U>N;3=?#+@TF%`w1-!EO)pOBBZ0d`CRi~g4U9ovgS z{*!oj-EhSp79}=PmJs0N8eWBCQC93@vPHo}^OUQv!KKa0D?fOMvx!;l1cff=s8NCf z=j>Ht=!@&$gzh`+Ur#XYZlKy70JR(cs!{~NeH?p~-vIxkF?BYK zXDGlNMa|ZPuC)3;jGa?-B~iD9yW^bLR>yWaw(X8>c5K_WZQHhO8z;8<=6}3+xNkLf zjZqI(qc-N6^IL>pEWzp*q8BeDj$#F`I-Ib<{!GwX=BSlO3Xd~aj6uGzO}di1y#+$; zVZ2#!TuzflO*7tN44C)u4Y;H7w7Ubq);qEWA-F5ZGML<@U0wnU(E+up4$1XsWikN3UZ{&Iq7@x+~R1W18Zx%a)$>Gy`k-8{6rqu-S}10=i@u&UF1 zYF(mx*^ZBXyG9 zpZ}7~LxCcz5%v2Tl|h)}2?5CL;W-EJRS-sGH#KI;Lbz`v{M>X3+;ra%Q8(T=lKm#i zs!B?9GtL1gNjS$90e z2ynSu$K+9253Xi7&!$D?kCG`UtWc+bGHR$>01Gi=Hpl$4hX%VFr^oNsIjcGZLV}7xH zHg|qI5mUsLn8Y4yYL-qcO1r%u@xi5N=Q?>& zoAw3NS==k6(J<5f6v3sgEl=51ejM+k|A~!*7ymIuZ-R)2_1*?D=jeJ?FS^&gIqT4v`pRAkpmAFtvyT?IoUoI~iQ|{n z&3X_O)nf(AHt{GM_8n5rV#7?_oW+xIjPzNFe5-5|tmu;tD$xUnK#ce}#qzpcYmdrf zA)rw5J_A`yXXkMLomUYyOn{+Xr2n$TqkJMH$FWE)xfG4B(C=1Ma3q=}D+p2kl+oj; zQOx_ZwH|ub;d3l_u=Q`4PBaVqr)%z@zheMxT`lZ_Nm$UFl-9w3pcCt&6b)vO>ls-U zqN%w5ME&~a1>=~8%k>gg`kr2*>;82`k{ZLfqfUfD?4_hBRE!Zjf8v@0DY~!(w{z-g zrujkRW|a>Yak@zkv%$YPAFoT^}26Guco& zQNam*jmMNu+Yf%k5+f6kX1mjC;_MPWiuP5(GT4R^EJ-w5rA`D9Z`(NAnm)~ze`1IW zS4SKwaKClmWG~ZGxd_!uB7kn{AKDflTex^J55F zvm<>@+rMhlS&jJC$rsVv zAm63F&s|_=M;jyktF?ph7PZkcbyPiA1Qu@Ayr)ypp2iiGu;|Hca=rEH9zOI)<>V-8g(p{ zE_pR*U8G7pl; zwer8PAcV74oN|S!H0M+kZOTMwWS3ZWGX4N;=niyfwZ=P*3UmOyF1C8p&Shd>&b8y( zeelCaPkL{N|GI#j`B)I%-hIakkfBILi|(XO?mv#`W@#KxfGu0-ONgJT%j%=bHEks%9GL1O|(AJQtSoXtiok^|(6R{A=Ol|smE9p^5D7*YO(b>E zph~Dr&f@_zDhb3qOd#Pz-lLRoMR;U_5(UxqZY|XFHda>G2ccEqeYdF!CN8kB@F%$> zlw3U*TZnK?96u}hdoq@QYOan-9QU6iQ6V!JEdGq^H5PQ`Pz>h9yb9Qm@Q4&687hug zq#pJxa<#5_)D9)RBz7Q_wZ9qRP^uu2t?2}Rxt=rmF}gGOMk810kgX2Sb1WMXPbtx? zz$>p($KMWGvl^070ATCUMsv2DXKpX-=QOKpzTZl&HGMHZi9FS!5>&y?iJO9oI}sRh z+x6q&Lz>?^q4z+@I*1p)8bnnpzC%hBhpb2HRrsvSkU3wO&LFf8T7PF+zJdbB2buDm zuwdM-0omOG7>4v}Llvj6{KQ{lB6vx5=z$F#iCTcUVxi9YoXh*uv_Nx7H?I{4u3v4KUSwOZmjDM$5HC-*~ypFkJNq@pY`3VNy_Gt$62KsL3xP;H2A z^b8+SNFzW?Q)Um@*aV^C0&BCK4pdS~J!P$E#}&ssh03V0wS8HLuvo-;kkfUvDM%(= zu-*=zIWQx0^3^3y<>rF6;!Cz3Kuqzqo?lMZr9)Ca8U!hf)^Lj)+#!JH=7$8>>vsdH~_Z;l`mNvQ`w0Sdvi|7jyipYO)(tQJQRJl_@Br6gN6m zJHD{i7eSA0xoKCvFK`4F)Cs)q>b{2FYCWm8+OtzT+FT)|2(`ZJf@5jo`GgS2)m0I@ zrL|}(;9}7C!UnyNhwm~f_)T>p^>t^R+mt@-(3WZ9F{3(2VK%7bR@H_oMonu}oYd=c zmR#{M%P90xg&-Q`i>2UPrH(;PZe$hWRn+ttqY9E^rN0tV;+TzHL8=A{wkcC?6*B$^ z8WbsGQuNyybq>lV?3~VOWE_~f(Bdv{#^0tu^_8q>C_0MgQwU>ZS6fb}+OU z5b!rNH-k~*=V6Evk(c1FpyLb%3uiQN2SR6GjaTt+N508MKU&EVzXnv6$}p5YwuAJ| zzV6Mx3Nms|Vhg^_W7$v|>Sb3)Ks?OuaE6(S7hX8BC4wEDfn5LfG@Bj55akmcR%J{X zHx&#P`77eC&J+w5u73uZePBg4o$0Kn`n)Asww6dH)GtMyYD*VU9Bm!k?Uy&s@D8lx zT#6R@F|TXBLAAN1hAA2;PSrJJB?;9ecPRx`G}G(QNLk_ESrE9LOE zOFN--d~Al-lRqIwDUOj7Ws!q&X0Lm4W_1pK8g9@Xs8lv^#yIABc%gn2B7$m+)Nq-< zOnCo z%hy?Fuzg!>!10t7;yednnJ9clbDt%Ji&`vVvDm%zPjWI&W^=7yxxpcofsm1N_?Hk{ zFG#8?-!59b75GTusW5TRxDWHH1MaTJMn$TZuE)+6e4jm!3pe`<^AF&*=FFX;)kx-q zivo-7(ec4RxQVmrgQV9%lj|{dx$Uf!`N2m}yFoOI*zc683RY@{Yx}lskKWjrhB4?^ z>ZBY~QFmb;JYsX*+!E)l^n14>-Huz)ucf+}rzB#_2Im>TVDNGLN6eGV(&UE-^9 z={F7^c=u@BY>_f?A^$6F(aZ>ioqgx|@NJ{68fCh!S?LxlU4JOx5kf`Ep7bH)F*`Y5 zx+MVL#%bt}S>VFN`Wagp-Jh)Qhk-XWO>_yk_}Tba8CwMj^PH_8NfhtBF@c(4ShI+Y zu(lDH9BOnys=VD8S*DzP@iwm>XQtqlV3?Z-tb8sQ$qTs_jHguw;~{7cNr>cAvXy9z zEb6fsI!A>2ug_PPjz4iF(p| zqK;%Y_l4SyQlITY55;$+vu*5e6^giFon7i&t=3Wpv7 zh?e?zOlB^cI1D`EyJmgFxeUN1`pDy-E$tcn7o>0*4b9ag8V%&tf}5)5CRq z30?fJ-s-q&cG_`W&kbvYI342po#n&A8YYvd3Bwwb^WoY0JCP1@+UtHeh}^Q5A$D$t zIOS2Uz1i+1mGuYpJh z4=1gf(JZPl?%~jR!`7;w&PoYEUsU1&c!OkK*8OU`{w<{&zy=(jar8z}NR)eJQDZI@ zCRpPX3&v$vqW7ALZeIfIo$|^G)u)4+KxV_7p>Yv92x+{f^KT8V_ummdvNZ*}OHahU z>H1K$(`KB`f0(yVL8^acJ8I%CV~$kV9zXfsuH{errJPn64XPWrrh6fZ`zErIiti>I z-*;Lurw2RlSJao2kpI-F%L^8$Y7Z7yG)Hd=+i z7Si6X*?d;LAGUvp97^%qORH`qa5wma*87mviK_-D#jajEek*=o! z@Oh8az&?XV)RWDBKhU%>4^Tfd+7(_fk6N<9Rx5>$38sf$@OGs=hkR&7yeo?Re2s(8oWmVh` z3rysEBz1R^S>uqDCIC;$NrUjs(h|pqFbBu*%HGIYm+9-T=0VOX}@u=c91TREnJ61OvSA-3sc&|x!6`+0MARO_h^ zRg9$3T4L~-6%a#It#<(Cwb43hTK)R2G^G@{#GU;I zOzH-z0dtUP-v*dNsE+(JVfYBlu0Fq!!qjGWyJ(#jh1t}bs-~F9oFnYTuo?xIRD@TU zbG5a;=jMY-d%eBWqK@EihT}K2tSN)vH_97YLsxauQLLkj_#h2hAr0CfO`rah?t?U|vlk{$ZY@jiIdo|W z!cna+k8Bh}VIXr3#m(@}y-oOzxqvkViq6-4Cy#geKq+fGDsltXF2n2v9AW;j_MgO> zK{X? zPZ7fQIm88AB((g3{H-{frae5~!3CVSHeDBYd0qd{4#GoGm}Y-Zqv-G$%qfyYTSE*! zoJpXe%IR?T&eS|Bq21{)w;BiHx|A3ahd#vVxD6gL&^usvq*kub&1#>m{{W0djFL8?8x1RqZdW2?$#8S;XG8?+6TF9!V$mAT(x zo^8g4rkG%@(OfcAQtvP3in8+Uv0o|m_k_X{tiw`)@DD_^A^!Y3lfJ=6STIhPL>`iuJZcSaCuY`M&-es*7{ZkiqyWY%Z>T|!-0aH zpV6EO=>d1K>Iv!ex0L4VgDl79%_3oLRI$GertI_C z7;Ys>T~y7tNJQfo6A0U*e`nSH1%KZ04?A*;3!$O+6>0*cG+^hk6y8Y+DrCfWpzq^_ zY3=s=B8ms{&2xScExE>fzJKW?f6Xn_J3&6qb_`zNw&Ec@LHb}z;TT9%SUI!%t?v-T| zH#y$@`DA{O!+lLkggTKkPO%5>&TLv9w^6+~+&#fSFVTYg&~4@Y;_=G<*@U2ed6LR4 zXvo*l-;?7p!43S@DOTlle+DWH>+~4f2+m!z3Gt=HH0;AXZfY03nNtiCEVXg{0-r27 z8D$vrE)VfWHgh>O<-lHSBwdqCEJ?9>84xaW3iqlA^6sAt*c21t)?#^Bpcs_;Z63rf z6kiv=bgUC2vE1%aGd(*iS1{;N!B4G70v3pdG!G#`JMF+FSnfe+=YQ8nD|+(&E>JDvtU)w$NXD~e#_3HLQ6>|QiFPk z0Bd5DwA2FuaodvcVwm`e^XGZZDCz_lfr|+;(fn{WCRuWx6~3Z8D@HktMv|Gqn#{1&tWw8`~-i3 z={Po4zn9Mu@zg&o?(&IfLiiOG<9yi!INQyc8u?dikhsz%-B%19ldjS@!I0d#S*ECtBm+<1N^M#H zg#Kdqmv=Siag=p3yiOnYhNcAdx)8eMk%Kha;(51vwUaby66fzgb(2OGXym&ttsG1S zzYokmbUe$MZDI$)8Q1NLde-?jngNGY zM&Dva5wBe5-Z?Ko_xJLi0TX>uHC;;wba+LBR-fTy2woQ7dUG3sSLTFIERJ^0ea=7o zx124mb5|wgj@zgD7V~GD)`uvM-+K>jpf~+kAzfCQWCU}fqt%IaQ-a&q+ z*wvuZ8S5}PW6G6gcNjI6f-dcGsU6Xwnf)0TBmDCCZYa$R%LQ;>30R|+EPIqZ2f0Y> z;BUCGY9L;>fdT5VU4MK_9DI(Nv5_zc=jlY+m>q|aXB4mab zDC}*vM%teQBaCTh*o=h>QXT5ij_TFly3o-_93DZQUG;c)w?0z8$zuUy86|>cPiND9 zhbF6D#y)s?gU*iC+0WuC+5(Hi}*W)fLYlPA)d zln4@28{ufP=oOk50X^#9b# zbOdO894|Q_n4`=GV1wW#UNbkrv~2i4N%~h3LKnDf^sjuWc_XC3Wti=_pED3 z)PgLk?v@aau$x`r>vIbTA<&ePJnb<$TTx4ja$~bJIfg4QiGNnLj0(h2iYm zAqQiZ30G8=T7}cr2F~3fTB;{}=M|TYozH%6i>?;|uxP8R9}z>%6>#d{@$Iek6N+Q4 zGDnP5+HcjhKi)^FULKQGe8|;h15PH6Rq!m{|Jb(5mt0q!dYc*1vY^bWbCISZ$6-tqlVt4O`$?SED z^qa*tTY!kV=CO4`hkZf|tx{Vwqt+~lEsR=N%huRY^3e=k-ae`?*}p9Q%;qV)G8K7* ztAH0cR+5gy5G~D{Ukamh&DnXMR20dS$wcTJb$PQU6s+Y{Vxanl9M%;qHfx3TIY`}j4^88Z#6ln-TiqM&g=%~$- z8}hX*AsytfL4qUcf9FWMg>)Q5*Zt!J7e{kQiz){i3%xIkaUh^X(54U_kv#;{1 zBT2D=QYJVsMU`Pk3ta|p1J(;vC`tcmL*0o==GEB>h3La(msNn@v~xxzRF}smmZtDT zNuosb1MYgDbY(hBazy9q-|iVZZRha>#%FQ74dYa^7nh;>`sPeFsjG zCwu!Bz1d8zrw2r4QH`>)kKuDrRbaZzA3KB$gb_@>GGMX&)Q{}2lHdEVeY}@i2|8Nl zr5Qi^NjAOaEj*XZui66|r*G)`n4IF>K4>Lzk&Z?Z+1>MB7sPPiP*A2Ljd)52WukmI zMa#Mk1`k8aQoCCm8C<0U41v)jiS=HA=5ESE4oIMglgRiqcr+%AT=pe~R3tSGqYM;9 z`%b-&Nvv#SgVK~>zEL2QlLNidi=QDMFzAmH*VbUy`X1gF5qYMUtqJYPPLs?y0V#1Y z_Ar#c$msqqIf21*6QQ~CP23*g-F#p=t(;{5oXAtEbH*44KA;O$-jh^ExD}Q>I!5)% z@}^8(=Vdvsd6SOxm>C^8)p1XqBRacZk1mT?LsFnyP9lWL(qP1|SiTDnl8Vsz% zL(}2jw&5g6`U$ScujuI>9SNZm*x9unoz7e@aq@8l$VIG-rR@}>Scq~kZcX(rg%4RO zmJp*nw&5<>3!YzvlFH>#k(38lF~_<%a6&ddeKB=nY*nNhh)e7Ws`Pof{|wFe4{mw}#mmvZ z#||)k9r>-)_nBB>*Aod)g=dA6WzcWTTX5$Z(>wx&#o{pTgQziUz&+mz4&8M6OU_+s zKpoFuY;Pp|H$-YMG^N-C(uCAr*?D0T*jp*Q3~3fhtJU{?A!ZN7_G9T_-#h;w87=of zt_6KqW^t)W$92;nien*u@M|?x@@Fc9m(NNkh^Vha& zq9*cEA%TJxe+g;5F+egUmn$vQl!2kw#g@S{tmjWc!wji3*%PHzF< zrTiHFy7g`IeToeA&ERMc7z*u$dtx+@2fn1(B?{T1J6v zNcFXJZ#EBg9}VTAw*t3!JV3PLcClhr%4xzb&WI(%40vGXIjTEnV#Nt2X;=<4FJ7KJ?zz53#k zQzndEGr!QE&p=}Hs6gqZFE|9pFCVzXNlyBM*#|f#@3nhXrG60DxEmd<=VQxdetO`< zuul68LrP_>+lP_EZ)t>tRflb4QrcbXl#{m%F7vpfWL9!zS3yX-z)_}kjTN!*b}x}0WD`-l!m+=; zLcc4Yt!LtMOYz6*_kPYZ5Rqo%k8Ucq@9^OIbZgMhKsxFJ259c(ERi|kVy9bIR{bzQ zATs8vJ~b3mUCK(H_pUZzs39l4%vIp?cv*47-FQ~4ie%%w7Ikc)>0C`hW>zOu)H>N; z*5dP8@)9oHk9n+{=1?wFH#Z-IZ-@RLi?ysl%Lk_C=Tf(bx^bG_jU2FivS_f7# z!{1`u??0K7P^k41P4blMVbeBW|sz95!L6_9s7q#s#z#%fp-t? zzG1(JxD!HQbo#LODm9JoqIms5%NuOm9qdPDSBO^dF3!V+%U!w&p=rNn4UP)}6JIX- zv)QFFiNClZs7E`^Tc}qlulUJasqIRwaOaKu)*QX)0rceqS6%ELL^H^~{|%0TmkZ^~ z9%sENVH>8J4W z{)$9nbj?{kRDTn2*R$V>oQ@bfS7kMv_X^~)Y@QJ^ zhYM6rQ^D%y@RVeDeCXO!I+Xs|LAJA})Lr0RaZ~1AiaNm7Um{+r{6afWQamxL>zsVn zG@WqSvl#w;oGg?f>x&#)3|PuzE+*VwSkc|dU<6NHx*?tu`$fgPtrww(ZzpXPJ*7C3 ze#n0GB2i}hJ!9+77I=Q?E!PTJ4p}|W8w$wXcwt}Yr%tBaX|Q)Na7mOGd#`=e=u$-r z=B2iP{i@v!lg_zOzh*Af`-&Cz>)OCnVf}mdeU#eRN4TxHZEoc#a<3Rv4~v_ zfHy6+#Q+El(tF}tGetQ<4>3|c_1+*Bq?_5SgCmlX#YV)`c4P4#w%IzJ&2IE)>DXN>r zrI6bz0(ca3Zd&DZ)ExoV`DiSXNueszAkBrwxMA<1C^3c8s0rO1X@+nywQ0VdnIe@C z(#DfAe}Jvf1{HpN^0O)!onCeXN--$F09?^|Fry*K{+E7-DAcML%bD%6^?f8Mk*^*P zpVo;qgKDdzi65VsQ?( za~!gXJfAW14clUCXQF`ubNi9ITuK9P==n~#b4oX(%=J+>$YAABH&)kl#g-L#rNCAj z-+b9N8s0&ZTVg%&PjrK+KJw)!g|gg`5@KPYP09Y0Yz%R%!|PZO*xj0&N&2GwlOQEp z%;9Cz3l=_8!@Db!4n*CDaUJ3DS=+%KqtlgTMdw~_g(^+KFvAvm4;HxfvG%e8bSd+- z{0eWwHAl15v`hkmun!X+Lfv0NoSA~XqcvB2`-n$BEAIM?OYvFe{U^l8IT^z=JSJ^;nd%L}SV+>pV^9gj0cWOKB*U@_tcPP#jER z89@3A#U3hSEo;1@MO?#PTp+T2WZE}s5ZXoKSc&LtwA56I#vr>?3PooeWbXHjv_ZBH z6mG5dNHqFNNzy=`md-oIl0qjBUL8-WF7xUA$K3Nc*N3-<0JR{lEz`K zwL~k0nayWih(tVQE+Ap=A|i?8pWstVWKV6*59#Lh$tUPTxnTA)C@j2&Z4qCCfSDl% z*|dkiZkKM<8u3gxamQFD$Mr~5YRH(j=6Y1mPGYS4g_r=1;naf3uR;@|OVplm8j|eZ zo6Ty>x0%3P?3k=p-l_5Pf63X9xa=ov5 za-AMwd1^%vZy`l{HVc!riU0e(xxBp9kleqxyrnQWwvOom-Uhqt?mV^j+~5H1_;VUY zo>NbKG(0jfcY4P0ZPTqwEn;+AE*;mR57=iGjIo;UPnM1|Mkcn)Z{1ogYk);ZnZ=nM ziv35tE99RiJ(*voHCCAUPf&brxa?B5LLEvGAnARk%svK26ku1a*ygcNh~kv;rXxoH zl)-4w@_w^GKvq{>DX_KA+_;3G7-BQ98B=+|u6(vtL!I;T?->PLzDY3$+?Et&dy4`o z5kwQ6W=RqSQTFeY$VQ8U%dPEF?vxDYIi}v%krhb0PP46=dq6waTxS@AjnuzbEqzmP zBjuN%bbDJtu4mlx$Tr0if==#Tg5pj{R=C{7yk>M!Q+~_^ehl173=YCLTAJ=uD*#Ex zg0ZR*DvfYH3~wbBLISGbOvIZ4nWJMzWYk!S7tBy9gt<5$cmiVaf5Oj+Rnk-=BvnNJ zcI?Il%w$9%&2F%p9Boz>`OmZ$XQv5-Csyc11eS1R^6!Jm7z!KbdxSawPxNpxb(%x> zuLaf_?}ecb-wbr(B4}lZ)17~}b6H=H1stExVi|ot9TnQ&6}3Wz>DR3ECDy+Rs@3VE zioJ?A-&WqsY#H;!$~eX?mxLFqVa44d-zK6J_Xe8SMR6(4Tc$DjBi2?58)wSJEk@fx z3lU5~ghI(#B;BAyF+?C4oFXdeKuSHQj=wd28zDBTJL#`EcuHN+C(6D^^ z?C7syJ7-hu1J@gLi>)zAC1uTTj)RR90Wx_>MQKwc49EBW!SC39MG+K3aJG)BG(Wo{ zGgE#rvbE6dC#!OR!aS;#n-2}N>J7ypt|<(}1RL9xv8v`a2I>bB;R~}d&{CI-ITEz4 z9F&iQlgV5>bd#T5^SVG9P6se-LD(%_(RfKGX3NWi@?Nm-XF)V#eAV6)xm#hmB@9HRrI1Xt(!5_gz&JxSY(r`oo(4zo{;s!8B@jXZ zV-foN?m`~mGTwMy+)03;=agb)z&GgovTteXUL2&)4?q=Fc7}j9Q@Ya|&%M(&bVWB0lwz8w>aeyEp7;}Q|f@Be;&P5`xvT`rdGb%~kBbixV<}xp*oGgN`6GTtz zEe4@ZtQImC>I{QA2CqM%W+9E$(*Sw&G<$rf5hrJ{dhO*o3tVxr6z4@ag~Y>YIYDK^ zC>OAt&i9EpK}#d#*^>h@)$N;|WLWHeK1xa_Wka4tHa(Xw#mmskNq;UoLcpR7M9*X0 z*DkNPCr?9ZvO1{GKGkclMwLyQ-dw)cqBTa5x@hRwpAhi|#TLq~#=DLH4eW>S`M{eULEax%(&d-0a-wdY67WXb4;4Ba-Eb#XH@Od@gOa9*w zZjS#qgqwkb>3>4FZ64TDj<)5HEBMeG=enV&ykI%&mztF3l=TgZk;bzkFcZR zf7d<6y5Nw;e>>-088MxIztYe$yZ03}Df%GwX{zVWFe35GxZX=ZOnM~Zzm_mX6y ze;sI#NWl}P^n`SHyS|+Llm?}+*kl`DHxG(nI^)zgv9AjLIrD7&e7EX;KE2_5^4S46x2JO6-Pc%GOQTt5%XBvQ{fs1}uJw-)_F@AUwfl&|S&-Fc){fI8UE^)zhY zylWN5IC`F!@2PFh>L`FM46bK0Q#HP$FGUs1Cl>7@a;&ad)W{@{5vQ*R{-ld#ns2jP z`3})HzD#gF3!8>h?74K@$%M6qI*TbUkDae{V>RSz!mzor$}n_rH^~mwZdcHoEW&UB zHryb7Nl$r`Z6NB|xQUvg*uYwSmm9AwU;rh{AfGSSWam{1SEg0F7eB`kOIKu(W+)if z^eR}t{SwcrJyVvYx@sF%{MFva=4Qn+SzR(^(#i_Qsx1-ev?R~7!@ZzpVVA*#EZ+#} z4tGi!)ksyjAscH&rnicA9$lHyz4@sLn+lzzNQRo4tqyAr-Tv0_rHY#h@4M|g3vU~G zFKpco7f+hLbGo&|t_c&oUM2$#3A>K8(IRTb=H5l-`Z}stk%q|R2Z{IRQP>HW#4}+w zkfsa-qxJ+D4I#?9?>A@2Zy;@(At5DQ55^P(;nBjFjhc?Er4~Ht@VI*nth~?JtE^rM zJI)<^;uO%uLaTQvT^<~~1U{dXTeED8GEFdLkZZ^UM+(%;Qt}->NvZW)4U+S8zluss zRZKGYlSsNhkL@Hb_NPB>_|@gEjdAZe*b*|9K>VRr3Rv(<`VQpsY`kZW&u|r+CiL7O zxwFLt{bc|!f#N@>F?wt~re=42e)?u-ZK{~`J_fN4KZRyb$zO{U7MPN+z|^~EoUUDq zPCwmW{Ovkm^47Fh)k6yOq2-tuyn(iF{#Ezym%a1o`v(yR^(q2K#vCWoJBxjCybMA@ z1K4NLAx$se;blr}gV3h&NWo#HKIN5xDGC%w{~(0mz&dY7LY6Vp0T`F2sR5SB>KanJ z#0;`v`}W&bsl{9W(1s2`LtK+7;gKp+VQJ~~Tx5!oD??!p(lQW;cWEVAS#@FsYHXSk zYMsPOQJ{9e`)5rZZs}|d_9>#L5;Ve~FL-= zH)KbU3RkAdvC=h*&-nACzeku+PTQy9$~80I{LuK-K_otfeYoy_tyBZgcU+PbDM#hh zMum0Xdf$lP;k!`1cGfjw8)p?VpV3~qWmPgtCBC~07_+K6#RGo(RNsXK;*ZZX0CNwBM=BR)>v-7s(K)TDSQ<2)n*u3E6c1JeH8i+i;&#&^#@S zFUxgAIQy{{ktMxrqktMoa~Ij|a+0no_g(_5VeYCv0AjswNLx%`*wgnEbWXNzfHAEk zDB6JG9kwyLtaAQDC2m&v?4oZTcYlrX@j9db_k>LU?{VJvW{0n2?Wjlh*wO3#;(2tB=c~cXE@nl}hoI`&rhB^M)w}vM`v$%tgOPH&u!{zIxRM#A zPw%F}sy4vd*7fItCz%}NtErXl<6Szd;6Thd-Jf z8KwC_De_R)6KZGXHjo)Wcpw(uAI9mdx$3m5QgXb`^65hPy*r}@cRb@kUp(S6-=l-z z96EJwySNcn+Y?)p(aNb~!wBCu-MC1HBhKmZ@-VNrw5-BXB+7su+EBbJ!kuGSNo5MR zTYkQ9fk$v&g#N02mMYFvq-7I&R~#cqA}T?RDCd*=VI1T>Ylyr>wWQ&Z)4^Bq-gWh5 zXMbHe|1TLlH|`wFG8;yDbtm^Av@%kVL`2nzwi#z8$HTYTEVI^aZuptKH=C`-E(Wgc+=K0&VdffzxX1PN#XH3j zh)XUlrZ@IO15A&U{E+MyX2}9q>y@v2eHUk@Jn0sUVY}9ERLD6_ZOwA-gB*{u_WSkR z)yCuneW3?dvhJx?$_#e35tEha3zx*s(y1Q?JzBe!95ZruFKAn zjC{OJ`PibK+WTFKy|`6UfZk3e=ntdyUyR6V$YJ*fvU-`Z6w$e?p$bx6_@yj(ByBs2 zQoW^BnR7AmYA^y~Vt(FMR&a)MkzE(GX!jNdsP)Cru*6{v4s&Q}82r@gSyZ2SXwpm;Oi5;_y11Xy9i4Y4|hfjE4iJp)V(BhskaX>a}D zo3t%;f0QrA`ZS%OPx^7K61Y)=w|V3pk9W1DZO?lfYF2Zl$MkeZj^)?t$y@2Il6Q64 zM4G_FODsq(n&wOi`&a#KmQVPup3i#ggwHO{2M_zTenXu0jy&=ki84K7yocU`AK{hZ$o9!okH!WVA2Zc zQ%sUt`?zOu^eWFbn??udd3&#{q>AcnoI5aTwYYfAq(k!bM=kX6pGkL&>D0k6+=G||KHv@r~!Vv-e9rA-(U3L%~E=Zce+nmRH zge3)rjLF?C*_Mq|v;a>X=@Ah>0hVkbWho@g$VVfs)MU;NH({D@C`Tp&EceLhZRB(F z664+rAyA&-SHNdFW|-h^@8fpT*$$A?OtO)K`36fBs=!p?M!!LQ@Mub_~2QP7NmvNtDmg0SuaCcgwXCpHAZ1Be|n8Gi^vDWra z2CjT#MI(x~u66ec=1_Ig(N2YIpkpWI-HdH;$rU$|08txhi>JH%4)igG>5w>}#6KxH z6ch7IE7_icBVcCI!BWJ%7S8@Rn0*~YTl3(Y{1cCsCp6)nX~y_4Sb904nYSdZagcF( zg77`|p_=V1F-4*y2H8JJ)Rbps6;0rw@lW{c-_CY&UeT_)?=dGe z3(xu>Y4)J0C7fzzgh~!%#qO$3+58Y|woNpmIY?HZaZ`OZuC+|ARNiR@6YW3Moe}r0 zlPmuV!$3U0NA(Vne0P+#nd%mm7S@*RgT7`_z~FDEF0=@Jkq^uVmk}?sqDidDAnFE( z(dB-Jc{|#i$eyEwTs>0`=CZSVmk1XUDEA^uRU+g#~R3(Lf_OJmlJf%}F8IbI%#vN;LjRsUIm7f236W zky1ZW>PJe&_>H90l;btloCp0ZDHS*?+_9a$-PsJX#}BehBKC_0Ht-+@=3OkX!pxH> z>;z+ljg+hV_sUGMp=arZa6k9r8I@05ahu3&Z%4Rn5`0G?L(OCfT0ZgTh!(C^g~m93 zCqW@ihU95-e{78d4oCny30mZUkpQ-W&}Y^tIg$~XR04FwuZgDQ2Y9of)H0OvxnG zT-8ic&(9^7)aE(inl?q8WKASUOy<>)Vt%1hc7q)9(9O4TN{_EJEg&a?5@U9IIj^#Z zhA=&*vV$&d4VR;YEWyki6gWk^lpPT@_q6!}PpYO(*q7(o6a%O`ricN7RWIw30J5c+ zier+D0c*`*l2|oqvuTQW=}d09_N2M4?lAU#40Kxb$hz(z#?a)FNO{(UyeBJjWYSYo zLQHxj65XUwkE4S5@qqoXj(KUYz{poI-@G+sv>=N{BDQ340p^>tTEZ+4FtVvkf|UZR zB*x1ug`>LV^2;PBK{)RALQ=T4gAn=e<>z1Ip-X)16a+<84oYr-&al}KJ%UD)hwkf^ z=tOqi9AoV^bBZ#llAcFzGtnqhl-IxAUtgK`d3{f17v-lb?LWU}d2%$4*cv6BV0bj0 zpvL`iAJEK{Z64`9qxvqzF|-1oUrm&E@CGE4-W)xuZM=|(?@Z?fFXVj!&rpPTX10y^ z-G#-N19j>s@X2!qiudv^09!hHap3zL^Y$dtR|Q_`d)l09HZ0_d4dZQw(Uq;6%Y*?*NJkMV2lt`MjJx715_yPf|D56KXTVGH!Rh=q;a1af;z9q zG3U2iQ>Z7(`yKTzX>rTudY37}g#;QW*4Ag>ZzfY8Y*vwPWIh&GW(2zcD;{e0X?Rm=?>Cra@W_; zud5CvkqTc|9jd*XKNE$Q!C5Y$n{GqbU&8y(&%f9|2z7T=QKmlo=Q*ryvpsMg>Jtp4 znQbKh90TcFX{Afo@2Y6GbiY2`uMj|34;vJnmFQ;HBc7J7!%~KKc&EbG3!&Hup($X;K6$LEmmv3zZ6}fHCAAK?Oj2(A< zX}>gJ-r$CFs?L##a_N*1OABoda3E>=f%p!rPato#TZ!ry{=S0QAP9E2NfqcS9p@9|9coMNA=6Om14?)LCF64-dx{*ChsBc1#m-rHXmW< z(S_*b)1Ww=ZLT|P1hbwT{`uJ)&d;TO;bP^j2s^#DOJ$O=jgRSjKc9v2h0T zC%_qdPW$~cR8EaG6PCm~5zB-}J3V4ZkdVjbm|?>IXimq+zZ^%!fFr|2)R3q_h%Myj zc_A89RYZ`v+-ssQobkB}eJ+%n&Qo2lsXk&~<>f;bABD_v^yk29D~24gszvVN_yp4l zHI{*J5oX}D`s10ApmO$m%2HJm^b;Xzn!+xTeY)@@`${;aY-A6FQ=Tx--%s93`823U zxMXdf-$f;}I7!%zf)1&;i%N!HR(U(B1yfMkStXj9B5$_AqqCeuwFAuR{959Dm$RJo zAGr8@) zlLE2N;3SH2(Q{cuC1_PkEoXcQH%tbf$CZ=Q-Uc|mS?^aF)KxmE=AKpj7nUheVF8j(W$vz|2zB_gd> zhe{xy!*65}8L=8_So^6CvFmGAS<=CidLRr zW_$7|S8NZ$x!ZOKRvCa82*h*X+SbZBm3v zv6t6ze&AXPg;Vyb7u0WVEj1F%Q2#V5$#{pc!`n?XL?x1mIjA(NMLZK*sWN~tbwKL* zWNya)u^>JOcCp>5FNK_UMr7Nmq{%jRV(aY5kWZQq=(s?RbPa@!Gb~|&D92btvko*Y zoj6Q52Dhi1HLTFicbATr^GDVjN|&rv63pN%318$bsBkTa-Ed4aM2=CfUoP!rVns-? zD5Q>Jv>)~i3m^@Wy7}uphWpgh<2*3Cpz0kA#5L&GFJ>1fWQ4rWPP~KrrQ8iDzC9Xv znTQ}ts$)j>bXoLCby$QC(rH2J+chlVE<8?m_KPtT>wU0z;Rss+aY6VEvA(;cM4nEz z*#br@dk~mndXq4vIaVS|R@jb@oPa^oDda5O&5Ci60YI0tzgnjj349Dyx2c^uEM%Mv ztyN*p$67nVG5Xyz@WMKyxB0!?VI_PZFu@w*=$By-Kc86%9!N=`6g%51stRxESbUF$ zdWd$6s;$pT4vl=fr@rdU2N>p#U%x%Pa&8|4Q@)ja$My18hWMNEYfYdTAF`H=;N(g! zSQM6@<%#`B@48w60EfmjAK$#5m33&RFq=UzF+(QZ^Q*W2LY0jVM+YvJ3ZtFVh15x~ z{p&|UX}Y`Ej$c@t0hb+A`vJppV;)2zdds4oB5Dgq)eUYxDR{3+Irb94{VbJIr$@_Y zbJWK7LfVo+ZQAv&Pf}EmBo@!vsNCJG;3sH&X2;KeW%S>VE??2*XL$OLF7KcI+w1Zm zG>f{tM6~?q@;|yfSyjJWmp}4Y{^;^{mHz1R@muTiQ7m@*mh0+gira7`c~mn^-w8>9fVKmrSh%Ar>5y+Jp1%igDd+liFKu+ z(aUjfF%4jJ=zOUTCQafBK_dGV$E0h6PNUkN-iX;rDb^9k#N;?Ei#|cu6^$E#*`*6C zNYnG$THL==TZ^DldSi2(@Y1=jVXEtxw<)F>HTLWZD|#2sQsY= zTG;_1q=1;706ACC(3ahPNAF)^r9Z?FRM~EMi_Qp^{-F792`)P<{juzCa<=q`f>yFR zN%eJF4WuVSMu?GGH4w9`52{P0i0_Q)je(Zu%53FI6b#KtWoW{-tOAcFJ8O^(UEsAD znS~3Or{aVYfn!NS@f=yklhorBjMbBQOt6n=&fiMf9u)cT^ZIhK$j6*=J>PpsKC}!fd=HJy1!z^gx50ZhEf>EA| zta!@;I@*rhZ?vs>GAWB%gX)=h3WAK(<4n8;$Vo~tm1>ZgCbg8kP|Cz3DSO>ihL|_z zd@f!FQEe?2!?X>LQ}CPyjG1$9N2Lu%U9{phY7Enj^P5r7Cf;Qom4G_&4i)Q-eb32V za`_aD{rqq?9u7-5k&NfjK$G!2WHz{iWIPYK#d=3F9@$MA^7D+iy(<~7a`bD#7WgZY z@xZ9N{P9J}cYlyxOkaQJn}c)F3O*v zFPnUw?=DijzElPW)~cSNc{)8Q8BZ}lcO>HtJzVI?EhRuiH+k3$SeB3b_x;0W05wyB zsxm)iP?1sEMDxT`$?i*_IO$O6L7iWpL3;w$Je5J!yxh6X-MjYrMBe3Q&40xAhdwR4 z+aXM8Kgizxq3h%zk$K8Dr>MHg_M8K$q-$kX8pUpZasiY=`LgLzRMo3e@5C@S3g7MY zr*)R|$G+m2H&Xh1vmsNHLM!Fk4Z8`s0+!Y~Dy$B>u{Fw%1nWd%E?}5I|i7JYFuDdS*>9tRrp6dt3xoWL5}1srcr5gGkdxW z%}6+_q?8{yFHl*^(%hEqm9UQiv=)sCAxKs7q^4DbG19~*ja5q|PB&o~qkXz&V=)Rc zk?P@znnCJ22^SoSK}jr$L`G&wh)sm42|6fAFgSZCG@Sobk7S74o>*Wi%M2g~jM;%Z z%3}Zn$@po55+=l#`~)s_T|c^_>p!IYBS+>lY6p2Epq#GXOH@Zv(4LpbCt>R(!jlM% zYunaS4Zt3CZCA(M1a-y`ShXMT3`J&0;tQWz1SRv5Kp$<}PA%%a05oHyE(D0j!4Q;s zSp|~sC6fC960@G5Bw>LU*wJXVwS}?^ z+(7%X3c0pfe}~8+0-1Mis)!e?^$F$IiNl3QKG7m#-2_mKtZj_;&*wJmHLg;Ga^2Pa z$IoeHt}5nUGTI`m;3-oOwMBP`TMs%3$&Cnwa^gA{3Ho7DVo+y^inp*rjs~Yu?M(HxJhy9LlQVS-uTd|WtpW9do3A>m8 zu)KH0{l`H7m=eLaE8h%=Velj}DY)1oW-5zG4ODn=Y$nSHgp<|-IUU@p&^(<{_8tgf zvbzh9Y^tWZXdOp*2?PT<)Uo;W$C|?BB3+4gwV+PoC&0zlD9wHUWr$RBYl)DF5Z-Z34n-zR`lw69{OGC7HZxFeiz$SV??0f`Q>qWxhgbB~6m zU^v%StRWx2NyhwgE^2P=qD0Moce9YKf0E(cY!>Pa%YUp{Sl*J3%tE?LakH>$1O8*p zLSXuSQ?rmH!+tBXP|TZWnT5m#{8eUQuQK=_bKn?rEc?9VwG(x(CF9SO9gigt9w#em zqfOjy2}DULg^^Tb-gud@$2(q*miwpJ<4}~~#~zP|_IQSV?C~Fa{Ky`M)U@`_Hz=-?!{3rPnmC>+&Aby6)EYo59ynVlmfg$+5I0T<)`-i``s@Sr_kT+H8d3o#< zLM6y=U?KRQh%pV)+yM$sLYU@fGVETqGL1TV=ysOXBe36r4(%-8b_ct zMQ(3&G(E{(Txs3p7nLHSpfFSx1ZJI)plA}MJ<{Z>jBbj`)nWXDdq)0r{VsV?tBq`M zo2%N?wMOfA`fC2S^tz};-zueL9mR$H;8Z6n;zo;TmufKwqEv^YuohAJL$!{N!Jr0^ zp-#h5hB085KWr+hEDaVs)Df#P@Jv=njx<;w$;)dE2lT)|>aba-$dQX+9}QPxN76=E z7J^_caE30Zf<*>h$n&8bo6n4pPhyoLnH$G62RIPz zi(!5|?yBbqN?j}Fo6kL7TETpCRsvrZ7ht|QyR?UIH;OWW152yZm?>}0vhwPVLPNNZ z)ZD|;rVr~lW6E`==kashq^A|g)ShrnSHj*ENJVM8Atj0 z4!q9BlT@uqFG_LagCmByT!Sm}1ZIC=j%RHl3}jhoEn7I@Znwe>+RK0_bRcy7fc~s5 zQHMe|qQkkH(9L1!5Uq!l#Z15 zG&1-4NxlT#wL`pBBfV+#xenIW^|h|=H81ZAW_rK(%_p(0qV9EZ`26UU^dC0!hdz#< z-#uObpzdVwebtwqSht>D-pyf4QyJ(!se=x6hO0%49W71t!>NvbE?^9v=++fnW zTwmydKZ+X+);WU64^k4W#EgRVMPfo6^PN21K}l(CCse8Vyq~k=YN86tZrV`OWFeQL z?B|}5z(Y{>O;&qZXQl<$Pm9-$U<0eR=*j7=ZYUO(kdX@bRNh|0FT=>AtAETip(FQj^KB2(=G zsn-^G-O0pE7GBMgk&SB8B=8|d<0;7D_t36ie2*H+=l z`5K{U)a~+Rh-4O8H_U9cIsnPPZVO@^fnFSyxwctY1Wubz*fHTt)et`=omZDMwKBQJ+E{$nkG)rcB-}lWZtsLCvyUo9t@x z_1$#AANL)K2)nWuqDmo-vy!_X7 z0qo$ve@fiTe_wB$Lsa@MAM|j2!DY#sq~P1jf5K6T&otn&d z3e?i&51U3R92q%tP^0#!fVnS&x?VTUXt~j48p;VWk#NHY$D^&p^i&xl$ zsgv|}eahZSo=el)GkFV#`SCEv`_tReK*2+zsp-w)dk@k$l%Akd6(%n`m5MR?J;~`J zxkq7DkZR5Rv=VaihlXQBv>OsZVPiZvwa+k< zrPGmh)%k5Y+?mS2Fm@(*VNb#HLY$0aDXmjNOms4%B1o*8Xo-jsZPI#T_(8CO(YSwh zG!-o~xZ$`)wDZg-m3fCaVL<&Wk%V>13nCD7Mqb3}Oiso#>^EpGoFf zrd@MWy#4Lz=%)O3`Iys~5905KPoGk}ze1&_iCry9(RRpjNyY^*sO%D5a<5nSg+uAL zf;W)XqEw)YSBf<(H$F$zeQtOCdhOuuvD|JX4z_Z}_S#oa+Y{tOLSK&r97b=UOX3NA%EksP8tbP!&~z0-{eBJ#?7?V6d^XJ(RH63Ks-F=(Qug}`_z zm@dgrcyDLa^L{~n_ZIg`EN+(l-!o22MTz|RVy0$PJtZ?=dIbtg8q7HCmjyqD*~L)y z)VwS4W7aY}TwBn9tMvvxSC3fKVx-rcE^hG+Fa-$n9EgM8_L{by#|eM+Y<}rRta(p1 zBP^~{ky%F}JJXsqkAB`YkGGd;UiM6Eh3_FdZ4}ujFV@Z1JLJf@C)K^&UdW2k$uTG} zH3U|HwQ58KA&~5o+MoiI?z})EUu=24@`b!D$@eF*I>deY(H79Qu+@t$3934ucwdQY zmJ}nu=(?FoQ-lB`y%|Tez_jusJM{TFk`M?%LY*%<^-R^q)0e*_-BZ=yUZ7ldkbpKs2> z|A^H<61f5fJ9G1b#7PI`;)7@n;_SKD6B50_!mJfrE_Coj-T_1^wg;NFNg%xx_r5~w zH#9gVm_pVR4t4p1R#&kHR_N@tbt;1)vViO(G*si50*_h>JfMe6uNYNpl9t#2nLa+4 z)*iCff=VvKgh9T`>gV11&c!n|^6Z%2+^$6w=?qyFvCz4Hd*ipn@s~Nuo8ALV7YJCRz5L95aHqSxU#aE{EkoJ z4vl*ZNlmRx6KK`X&6#0P(Tl{QIIrFk;X)FRlNQ!CqcB_)Qs0Z7jew~wYJJiewqmjv zlI^x(k!8Y#e7Oa`4Q{~S7^u4hawA<(ghvC-z4OshZp>u$5NMrP+Z7F}u0Mp_JOew9 zLWyh$dLh&xORpswim(=TAyrnd*`CTqoFCQ-HF0BF?u9|2hSoR9<@uJ1^^cNubHhNU|dv`(z8NA+AOLvEfyw3vocVr@N< zL=P8jgS_YzA>D*|(J7l*9UI6H1Rl9v!OltE^P)2x(@8Z-h(PAaHSVaa3%a)Or4+iC zff#dbhaWK+f5aqw(HDxzW=oZbNpHOWh{+!@`6DLr(k~E`%*6cLi^(}>sSk1YBY%mQ z9QxuYc%Gh##1lMyov}Z`)3XXMJ$w2+JiQ@+T6ub2tF6YHXY0t5z+&j^DiRuy7yk6f(@yi1UXsfcpYk=kZ^YeDXUpf|B!`%OFb_+3&*C?2z# zFr3?K<~PsC1X1?M2<97zWe{4@6I&;s)O_s6UB!RuS+1ZQyI{H|-8(q(#q?~(JHbq~ zCIr#5>q@pI>Yi93VSiFj@`PPZJium|FYxWIkiH~ZRH`8aQue@F_|<9%W;apIkE$UE z1}9CwH-ET7f?RsLz@64O!oc#X35OLD7$%85ra2T&2&`%X!R&Y(65=DiqVM1g=*|0Grdkyk4?(jOqNLUKNP&a#qdbC0c>G3%{a5Li4`AjvwNvpFe8- zO8ML%*#N3SfWf<%WBs?6VeIqG3%I(^)=<6pCu15u^Lu80j1pk7Ob=0lvP9`QK(;V7h9iU-T z_}KyehC9GCl?rC0Nt0I1WqcZ;E8T>xb{UI;1+T}i+Vqb-nI|cr0gnD-zV8* z#55T(y(NL$#k@=)uWk4REIZ+N*#ULe436VI&IX<6we!c}AJ>gq-f3L+Q#kVN$JJEN z+8L|3r!eQvn7aLbxzncGhSh&|<*kDSRp--4>pWcg8T&iimyx&rSl0TjXSv-D>0`SE zRXz5M@(fd^ahF?JwD~%xmndZ$1V3Az;U-smalt=pfrX<;2j-;-N6w7N8_wQXhmwH> z6Po3u1d_*VFmUx+<|m?5EwCVJ*QEtsOaTzlM0D*Tf?Dt<(r7vA#j{ep6w<+oCNpW9 zJF|MCNvVqX;yy&Wik|Cf=%Q}Fqo?)N_I^Wb@eTBf`$#wCtQG}JfobuV9XhwYm-)?r zKra!($`u4%-RH|B)lgP%RoCSY*X5C>2vFlWDosbLm}y2T;M9&*F{?&Lr=g1pO7sl=Ga z3;cb21JF*i$0{)j##|vQim+g6VL(9b0mKWjc)zRJD8)5sM6swmtcG``M4k7ff$9=; zA;y@<)1O#~QJkEt5My-O!sokZcRhHejzda%x5erC2$7{ufhL=1MLijmGaHhS|LVuXn}M@N7yG4 z512cjI;l=zzZ>gSKf~BQ6WYc@yk;R zF)o9s8A+X;y7swFvEZjH{Uyu)e(pa;yX(HZ5F>y!5gK$94GoNIiL<*Dia3^c-cTyy z_>@A70^J@$po=ZU*cNzuScp-;OQs=#YEjq5 z&>VWi@^!Z#n>jFF-v3l3#(^wvwJ5e8G9C7l z=J}6J^URQ}37+Oj@(M04Lv~83FmxgnH6}C;(3=1UHnxCC75Av(!WAci?8VEp{kmfr+o8@VGHh5 zi7AjtI+!@nx>2ECP3qwiQy@~BB$U%!h`c;1F_rh&CzO~%Jq4AN3$HMh^$t(4P;TZC z&E>Gd6oGu)!sRfUp+g;#Wv$W*QxFvAy4|A;Dpi>BXlN=rEsZhR&RG8}M_V3ZU z{p$q}D<;)s6Z;*g$$SnCF*GNnCcCskYC1-!CSa?KP{1X00HuYsCHfuF3J>W}dlp z4w?DM_Z(s22?g(nc@i=K-c$G9<-nGw6Z6bfOOkEwAm&vHMD*La%ayo&Jc(pILCix8 z;Q=wPmL2l)MW+5@GE|EBD7aBv9?ejBfS30Q&e!ttBw1!AQcGV5&$N%de{h|NW!0Yhj-ZzcRZPikz7|T8bvM zbLRU}FvscZ>_bv3j+B&h8Mh?8_SPTA8Mjk}3wyj>&IaWfw~%l^lW<3}A&{J=qm$#d%nv@w%YS#?uKYBpbFd^%e76Ns{a5c;~qy7iQ=?q`n@d!zN+_1Y&6f9;L+m zq=D?*Emjx6;TxvD@^r&Ii-E=^wr(l)mE^gCN~{f_Gg54hw_-5wQf&Ho=DnFChiV7Y zZcL=2Os=|34s{kSflZPl0KbR7V8v|)qTEnJE{EZ3jZcIfwWE}P*$D> zZJA^(OD+URsb^-2W>s!~K?->t&?o>}GxSQOhD@p9T*n2nqDkEtmz(Y7%l1Mf%mKu9 zSt3R z?5Y)T^-{six!-jk0oNc6*()qd<|aHORAXh9G!INEN1%MmF`iFQ9f2Cx; zZB8tqP%W8nU!LdUV|jch<0h~26fjZAB3q!ptUNwrDDEwfAN>V)md792hFL9zZ&dC( z%Hxxo_jWvZIf@EqH_U1&d?tzPWU7|JHyHDQg`@KLg3ZkAt(L+MJk353);8Q(9v?2K z3r{2E^=A2adHlv*zst4j-%A}ml1@#!d3(vGhpHJhitQSOuxD-o38JNR^5>_ll|x<^x(~Gs)l-T=&_aHX@2z&Bprxw?c5!5&`nz zZq6(sfj}?>rQD-x5NnmiBO^jou@ez(oflqw2c_X_;Ky-oi6?rB0P%2<)juQ;a1Aml zgtZYo$RIpP!@bNr!CRLh!+Glqb0?G`vwUbmY8i3^SBYl8@KiTph`CK-QH|d28Km=( zr#Y$gt0PZONaH^4hF8B_m8SPC{qe|fCH0mX=BXI=L-(YoRdDpw;K{%%(1(s;DM)TF zX?>D-{jz(|D5!&@q&9OyuY)PXKlEY_tc#2Pc%N-f%RyntfSSsANOX7S`Rf0QTeKD? zcog#Xf=Tl1tuwN!oB2RI+*lPN-;EoT+V1=hJ?IL|o=fl5RDTkS27Q{_i@Fehx?1a~bo$xtW!sT@=PV5fIM}FF zQotbo)Tp(gJ;BLDZ`Y#;Vaf()fWSknH^~ofYT6;S-k{FOgeI_BHSBI)ng@fUl#YcTO#!f3HDj=h$C7{Yq&1Qz$A3ZV4 zWOmGb&|0v3PUCCWT_@i7K^fiX?YAqwWZGNs&EvOo8#jNSjDO353`Yf@ju zu-y36#x_Mck79Yq4IY#Vt3MemIMcxtwLQ^(@cvu@Z3*!ymO&oYa1`orqRZtFP+72F z9C-ldycH#!1g;RnW$IVd2&S17nuFdNSSl{hjSi%cUtndBzdn2r^o^j+_{hGUhYE@j z1u=nEedMR?fE^W_Aq8;Ip@Lva1!qeEtU9rZU3AEnxpbUrnEG~2LyO(UFd#CF!WgtK zQ(I>v%mIEDQ6VC72D*=*A7z3Uo8lY;iBh~YL?43v6L@Xw&>sJnm@QI|Z-1B`E*Mhm znann$W*j+#Z=)ypIZuT~QN`uq(1)&uid%u1XJ+hZP!xf9oD_%wn#9PQhPBkjP+}oS ztW$=Xt9Lj45~hq`Ku?rB+9giv;E=N>Kui#N*wv$)jB&-v6N zX-&4BUe^E10a<4sj5(c%{5> z{<3(bc@RVFvFPD|uSaZNvf|wy0?r)b|8(0Il&Yc!r2;izCAl{5(a}Oq8TFDJq;eqS zs+ZZKUI48d2qzpkp&Yb}gB?;TdeuVKQqazeeKXKl?+FqsbTx0XM8rh>TsVicfbyF$ z9fmNe#S!y!L=I{S3gej*u_clfDDv`XHzbl8p0q8YyAu;163L}VoJ&qbuTL1DVY^c% zi;TM_3*^`6r?m0gnfW)tFlb!@C>Fl_X=o8AdIHZ2;sLv zto-8MSVP7*hC-CI&QMSFWm0`8tIz^Hr6AFfjz9X(P}7zjyR7L8@9!h7J?F=hH5t9F zr^L`o))i3&5Bzw6L{hf7mc1KUM8D{(@@T-U8rYa|X*bY&>Lr;t$Bu}prn-jS58PJp zs3T@PVTTDbd=~{Up-Fs7OISKN?snPJ{eIagg?BOS6O*$?th#6$JyTI0B*{oMzd*J_ zhS?=@q@qCCHs4%mQrSHjW;P{&%`Ih11I$02UAmHQUl}p1JCQYlj5kZv^O(lCU@w^F zkcCHwi>Urqvn8S1fv`4#msbupYlwx@LgcM^r$VBBEziGLCSZzqDH8Rhn1P*4nqFWI zgVE0wt8MdY3lP)nCll}>L92tJ^#W!@Y^cYz63jlGjX||of|s)_Tnkbvyqs;FfwHX` zo{G5$>-B@56VXqk=K*BIhDQ&ew6L~B7%%wF#-`2RTV?=)qGOG;n0;G9D5%Vtl_+Cm ziV-DamGuL{?w`~v5X&H>^=DEb%!%)BhwyZ5uwJO*E^Z{Cu^f>6F!ZiU#2}iqhD@)KYdO3(IgHY*-;8$F3+L%Fp7S4 zB+D9e_dFOpL^PP~g(x5!O;~ifKiX9W*7L@;bA73V_T z+){k`Hf3~C&?@z}<^?cQZ26fCyHo94?9l6pFQqU@{n~4Gfjl z88kft5yXLHZQGYmghouH)PM^CX5qe&o*Q%su(I}a^fc}Y33H!pa~&BBGSFbNe{dX#sFzKyG({Hl0HBYxBe10VF*%8^H#zTK5sGYXC?kG&F)YuehbASVna0kpP zJo4=to0cNxn~xxXHM>+uu&nE<6;FCuTVt`f;FYvf`6zltFd8+&f=>92OwLg~;reUy z(Yt9kG=~`XpI;KPC2B&)2^dxyg+#CSMc?EY4T>PJq(r9X1=M^668 z$vfm^Q`*t*At$Tx=|6H(n*Yt^;s=NJc)5ZfA*I@{eU7?t zyA_%rW!4xUJaaH%LO?^j95P`#MLn|&h8+8?c(yFzPb$TQh9uQ`No<9^>>EL4RKGX9^&*+71K};v|?^cS44V;Cz8y+KsHcV zRbMNEp%c-SRka?h$IuPNhn_XKK_~!q)1GiD@+9@1tBqONZ@Unsej;g?u17>G!qdq~ zCr9hYE!xn^bo08xMb*VtPE17tj3sIQc&xxM2^;octiYF*i57*iSNHu*%0#DOj|3Xx zb==-Nd;Jw$$>qZm*^57AHKK_YV^Z^S28o^4448nIf zY6H&JQ)<2hsP<0IdSwP8Tmz?OHNh97LpKISWn%etAFR0{Xr;6?)4c4Ce3W_y%7W#o z2_+nO`D68TVjY+eihb>A!;cl)3e*CR(LLNLrCFr~{gddFyl@Fo326?yQ3weW)w$`2 zCgY`4oX(K_w}E@JC?ioSMMJF4&8v#YjS7(>9bC!-a|@BRvVNOtDR@>0dSo-HKyuqR zTfPF+U%D8atA-uahf!`wH#p9j(92{eVqPA7A(Wg#;=?mv5OWuJ_UK9|sK86U%fgL( zcCiwvtX@gaW*6c111W97##B~nF+lshpUh-Xq) zAvfq=Wes>Td7z%r(6bs63)}UkDg%p6WU^ zp#^#sutO%cj#=jHfXMaJ)7cE=3jsIrNC#?qjVB(l5oVDdy4#%r9_o$Jc-P zzGO*N6`uXV0~9!bDSei|oZ_BS-LJ!Ab*8F9 zqb?morCsQ&C^xXh`H*@xxH6 zhuHgfZi38)KtiQz2Bm9DE(9UwqM8S{@HYk?Kx|tks(cM{Z9#{ikjTJ4jlZMIbFiiW zn~f4AwBM#da2K$z37Bk+6u3(%n%K9K!8*jci8il?=nqsx<*~ed+r~i7D0#@;uzVrm ztXx}QoQbuhyWyN4ElHrlV@G#u6QIdP4@dTL>m=|)Kc!Q@{Isvc(y*0uap5^Ept%yk zQP9j>vc2~2&Qk?dtlj}TcqAK$5Xk}vs&SNLVO5T%g|#KZI*W9$Q+SF8FbLm+U9o0F($RN2#uB}J)Tq#3toIZ%UmTOy*%>fo{N2VZ|T2{F$5d6ZuuC`kwX zP32_0(%g@n{A=W7i~as1CV#|aJSQdzGki`=7UbNInEbwCGN%!Kb>=;jlZRA&6McV< zs)t`?s=iL&PlTBZRa!ngOx62Bex`LRRc~ILQ1x)+4aT=Tk*Wu=PpSH~$Fch5RDG6= zol|h8QM0yV=Z$UKwr$(CZQHh;Ol;fEgcD5cOzh;(_tif7_sKq42WxdbRnN&<)pz%O z^_rb(@0)(<`EPAsVig9FcbiP_;z3rHN4C2i*F1?~2IKR|uvu9@oat})%s2D4-nc4@ zuQzNuf+^YFwcu-$^Ehl(izCSXoKO*yNQ!g5iItE_8>4fDN+FLQ^^>K&9D7@81?3c} zIKQ1tln=AT1LZMgCDWiH;w55eWM@1o&s)D1zl!GS+HVG?G1;uhN7(P?a0i2>8#zT9 zB~?Vr5xwqDaC|1y`lBUi)`~b8jH-1>msP@f4KHPXsej2wHZ10El$DmYJV#KqR6q1m zXt>9%gk=;*KR<-y+=_&OInTVH>5^=|FUr$5+GJYX(W`-amv?oeHCY)Q67)w@OVZ=7 zGYaS0sm0VFPROg2PA5lC-8x$Y+N>Bg`*>OP+iYXS4XTdjeX_BhGt0w)gzS0)>}WI- zV8F-a-yx>aG?T=O%pU{qaAQuf95bB%20qc45?(Xd++qnnuz zk)h-)hj5Q+1w3R=bA?(dN+*l?q`4|0odp_p+Ao|gfLBDf@#kOuB7`(+tzjKg+JJ;< zq1ZX%ZA?tnLUXS12_)grPa^ettF66I=+hu4IH9a?s0jn!?e=6Vw0_cBhtUw2Dijt9 z0MA)@Li^3TOh2s;=aWY6H<~=>?E`!~wIEbLQ8r3qc_8YYu(J#4_&FJXy4OANvGV~L zuAjDB>czd+T~nat+vs-yXUbFO1J$m#Hvay#g5_DEf)AD+N|UIww{f@?S@5E^Tq($k zc@5kImdl+NnJV?#d8kRaHWNI>&(Lvj=W3D7kqR%ajcqTyP)EV>AKtm_z56E0QGxxa z3ayYm4#W7?g`2hKCoPR=*jx?noWEn|-`;MM0g{FgZo1u;Jf9B4DZMI`*EI9GXq?^r zHYP=T&5)Vt#I9+!)8?xyaZ;Lm)2{9|eE4d0dn{(>g46^;u`)fXBsXWg6pCv7HLC!7 z(r98WUrHBlk!{0lFbI5eQJK%^*nsSR_+8snTMG9Vclk0OYS5}^$|Ls_g^G~Hl#uws zMzkuCkx;zPe2DX~Z0@Z}J4tdxmTH-K08W;^f|a%n*6e^RW-ZiK!m5b;b`Z|I*B8?h zT>wh8d1hND%Vdy1=|V*fl=lUVa(n1QzRurae+fztKUGA&kW*GMyS(#b%p=#+_lN5- z4iaP`P$GH@2`IO(cdC_?K9#N0KA!5}Q;=B{n=QppUc)mN3aLY3gHPRQY8Aw7jn6-_ zzq2wOGKmGleu5ANhMm+`Uao)u5@JgisPcQa_<>&AZQ_Jzz2P&1lsZhX`OMs;CLK0l zh%r6Io8*=sy1->f-f9WoTuNO2sbrVC3C{5dUR;sJU!~en&e;0(*Y7?n(mm7!oz{zL z7_Tp>k69LGD4=G|wRG=p6Id)$o!9pqp~wS4FIFHEb!&)0W zGu3tepIRGKf6G)vFKyMwWG_MW?|eBBQl z4ZipTBS;gv+0Sa#HVMTMH#{q4E%-52ZOgp{Ad4%62aFVBkTkhPMQ}9iN6si1+_`Pr z*MmNFX{DW`xiZZh#s4}NJ=pH)@^heQzp;~R`y9GhebEBfn(3+?j%;;SbLX!v@N+-1 z&o*^U`T0}r*rBcTKa(Bk`VhO?{PKljSa`wJ_&y+B1;@2|^3&rHt~X_y=|||0D>fgf z9s=>j>SZUT6=!Mc&{NR7^MtBWUy8ByRn5W_k>B32gFpVyPPB+s{HUPDeSJH*h+=Ut zAimH9urf&hZ~{jivng0#yUTk0Q^r?U$~!`G{Y4bnrJBw>LEs)CU59BF=3)aRp!0F?5^7n4v^GSuN-&&Uu=O4n zRGe&QS7F#cc5T86AavS(#n~!KTME_8;DW*xbY759bXfR&#Rl?BvVC~e^qE2LrI~v5 z6xpw-{cdfXtcvzVuI;1UU*F#B7O@1jbEy|VkIPq1%RD(O2=y25Sy&-s3XNPU^wYZu z8wT$6zK?Hn=Gz@1#$XqnN@)i9Z$VpYOw+!|yDq>i?xHH}peoqC33X~Grs}$cPx`<# zmu|#$G`4DcPZoQzvS!b84lA*Tz%wqQva-2_nXYo==)c1>2ep*lB0{Ub%Py;{By2J( zG?qL;CaIx%x`aNL95wt^(VAy*QWix9)pqg=e~C^hDXSf2IPARPtCb9-OLy_?_1mo} zaE%-1dUW14sDX#_&1P87co8?Bh#CQuk4?#R7~wBvu1Q*TwDj1ohs)`~Yyx=)dZqjY z?xrMs^A%v1w&8?jpM7x{PG*mal^o5F;|K^gM-luEE&w0O)tnpr)roY*BC;%w@JOe| z2p`LbE8Ym)HPt#!vwXD90PBVfYKL?}v~y@*-T!sVR<AUjSh+KISPMDV_QD=y*1`pf)oFzn`z4pg!3+Juw`PLcVb9SEZ=RDzwAB)VFA;i z{pnoMbxoI}BL&x9zqm_!zYG+VFyD@k>+Bt-^wf#=QfehLTxq zWEk+2TZ%j5#kQCJ(Nli@*9kT-nE)$^(+^jNU>bj{F zve*Rh+34g9GQPtemcn4-|4*xgz>&?=3a%Dh&^^jyWTj*F&c9>XPYoO17@ql<6#%y| zs8S{7s&LGJEnp7UCc7iZL7~ERp>v)n_{Kt#zobvGU|%GK;o|3D#ahV>wZdy(tNXgEPCtTdRc zO6Ph*L|Y&|EguDL_0Psap2T@~$#wdjN0di+^ zVTB&zZ*X7=lOx{60rd zO`YT@HmRPcd>OX0=Brv+S02$<#>uCRNj38}NL*Y;@8Z#(EVRP~s-=2Aztn&xm1at$ zC6py)(iF{gRBhh~D&JCx=BSo((n5xTnv-$1JNYRe-rvu&?U%GEUac?v42Qhdh_(ah z2u>GqHm=H^LPKkTOBDBdvbP!W<_XPZKzASYOi68Nza6nQ2-*8Z#aBnjIiA0-g_mN6S%jCS`v{1zY*Hsegqx%s{UM1q zOke#eh+fC1zahuYm+AjEeVU2!|B9bxWMg6f|MAoDN8HIrJN?2J5T}Kt)^EWe$dzIi zbZ?*_r~Z@^IH#K{H_v#ao35Ov0DOFgv;mPFPI~J-Q}b~M?(Yqcue*NouRX;~6~+6D zgZhN;&szb3uU(1vv(G1qPm(XIe0n+tfvyEtlNa0Z>6?X*x3_<1W8aSf0|x#4^b9UG zbArLh{cY|2JuRTSRQ`(;IR?+ir@>5`woeVO%$qWFtNv|xmOK9L-lE8wP}LaMv+%N* zkLK@O*S+-EHmM>Hhfq<^@uxd#aM@Qb82^@5DB#YIQAyuo`f!D};z&rtsr%5w+u9Qr zdap2N!i?la_B(sMao}1@KJ~-f-h&_cgZ}B8?_EBcnJhrT(}DW91oX-uBy3#|dZb+y z8Gx`(g9zR>kL-g@M~IjR>QyN5w^^O;pzC(Tib=|`I1Zt68^3~7A8tTr>ki3EtEMUVb08q z++Si+H8h4t%~?*2Ja)?SuKzV7G}-1f5lgC(Oa)kb`b7hBLFgueJb|XzS%Q85Km!WA7u+@&gKqm^U za50i~F~+8AGxW1vROpxOy)Hi|U;J8b*6P{@3cekO&lQI@wtUZrimE@v5cjiMbWv`# z`#tUW+Hz`yZkHvSSG$-00H;E&s%o~xo$%YfRJsWhe8ifge#xxm?H}0#$XmErK>BaV zv`rZd5X*drDfAa>XMh=XIzvSQ2nkT?W{ikTD_jnW~V(0^cD&R!BKGR05^HdegJW# zxXgt=UGq{bl5m?oX+kWPG6l1Rh$}8(frh6`RW~I7BSj3&tt*0uvqos4+p$|EW0x}e z=$p|ZM8z%j?Ieg~k>+;01IA#b!;o!{CfHO)y@$;P9IhL42y(MuX!XjO=kPVcnPa`- zuqp#phlSAVVq9@y2w^AO`ZeCE>P`S;;amgE6KQPa`&fEe5oxPsY*XOu0drv-#E>U{ zb48#Zt7iBGBqEbrVpq{$O(Ig-7?@3{nbvpQSb~WtUNZK)ru}I~Q zlwGWudigZM6P0Kg*jm@fD=u^{d8BbRcqZh9_-M}(R*6;(K+uC_iy*8JE9s>s zp_1X=H7j^3zrwd7J*Mxc(zZX=5LlOLaH$RnCp)BE#hOH3EuV{Y>x;2l2cynja=CRx3 zC3*l@a9szdKJ|LC8Uw=A<0}zvKhR^xnTKvOdwW}8QVs@>#L>ttK=*##8B1_TWDqNn zs)Hmes%6^m%swr}k}m75febcTis?8IgXO>?uS2b4^l33OT8pPUXb(Ph<8M7iOuy?H zI9hgDbv;`>^D@BkUW;jCPMVS)BPVbEs|d8IT?7Ng{Tb}QHiWgOUbh4pyZW+F zpDeLyYeJRKl2ytj+?k|rhIk~{#LPTjyG3^nV4TNxQ!{PZ zr`rLC%hfQ|AQ%#+1)E(>(RRh`MxYs*7uue%NrH*m_33dex>T3RNL?iyl*=|Os>#ztbuk@=;=&(>)fs5^xk1(M@ zQa{Nj!#fT1K?ma{tmQh)FN5|U;L9;;X~jl;5Ovoou(_|nt$0fGVXwzV+in&&0qIIY zOt|&YU`ikBP7WD?53(VHtZF00=~Z9Jf1U%N_J5X|ALT#I5ewJ_+fUT2i{045y4Lfi z|C=M0xCXwdZ4A*3^I%8WQ98&YdpYs4h|6`=ROCO;VtI2*E~)d;ZZZ5B^FJNCM!X#B>d=eYQ=TkE%@ z{A>2a>LUQTQ^+0!5f8a&oV5V?!@vI8p$2a7o-X&dryb`^6c1x&EeFvs3WQNRxeUD`OtJyDeBf zUq>&64Yoshw`!l5FI#>2prz|!;9Z~=242qI{a15N`ulK31j!plx3bmOV}YKi)%;&d zt;@w+j14WN^g89C#a4H;TO87XO1s8-VNF|K+MD`bKO-NrLwY|yCESxUqu$2W7_bK8 z3&{P^)zJM(V=SWe;$xs#0rjL%2*K4q$(Z%0cY;K03iD?zF^Jhxbcntm!o3Xt^o4Nw z7BZT>8=sbckI|(p4)nY3yb}b1LtQFCvlu>1X2{vtt2-Q4Gw%D1l!Z4VMK?wM;wUXW zs4bNWapE)@13p)WlIz_`wUg0fx%RU|<&Y{8XxZtzdb-XcH za=u|wjsAr(-91W9?PtD1-tK~%<$oN`|0QI+(Pc72QZzx8T z*awm#?jsdyIck!c6_#(cdz5ijYlqz%Tu&0l^owC?baOE=qnJ5E6s!-jG`o%YqQ2B~ zwJJ|aNj=lsGc#Qk_`WK!`*M1{5fIpf`g$)Lb$tE){>rQfvd#F%1*b7}&YX4Jx%EBx z@9{tY0JVP0kGp1=d);Qb`B$lC;`~#PUAO_zWhZ@B#|&Gxxr$oZ(aNVfDcoANO{K31 z>a;vE2*Xq!54W3HxIf{cR(I8@+gq^(uS3&?-fgiEu|PiEO|B0`*dhdqYP&%Q5{whJ zqP}^K&e~;dbgREQ%qv$QFyXaWoCmOIi16rZxvUt`X(&!0S{ncRn-B=`Wwr zuVBa0Qty)|uu$r~2`6x8i1@$piAb$@E&I z6y!_UH@JYB-B4*gXAn7Vf`uwf34#PhxGGdl*C4la9BtjLxlu32(+b?~E&{T!1MWN48*O5@sm%@UM+)G!RcSd@k}R6Vkjw>J}_VZl$XQ7W7Bm{ z(+PvlqwGz*Iq+fQ@oh3GhS4i_)5!pXDI0}9+W1Fd$eJ1$D(yfdojSExe$fp5W~#7q z(D6t{|9e)NH1JB$*VOMY=UB*D2__cHc33S%R;yM(`oaPc2SEHUCwja+1d^i5dWM6P zrK$#4LqIy2>87-3VDf|FLRY*Yw|7n4hpJRt*AlVfgk&Dvv>uY9NPWFk-k`JD-DFcz%n}?_K9K3A03)B{ERtmLEO|iZ8EM(Ew;(X z<^!j9fVWl<+|6wMm9eKE8*L2ox9y>Q? zs0leYb1F*L8n7R&0cKfcLKgf`+L9@9P1;SUxdhsrexxvhqq~6sp+d2zw1^ZI)S<<0 zQJbLscvecd^pu1$o|Pk8i)TR0L;AU(K##%)qxSSuWPLKCw21Wqiwi4c6cT7BH&UiKr3>Sgm^$1t8Y$dtu(e6_b>GbDPfS#a^VbMZ(U*Inlm2K((wG$L|i|8 zQFBCkViL{t*m~3?BX)vYI%4FQPHrSEL>DZi$ymu%bnw4?RK$Z}3egkPjb5^%1{q$jtZD(F83+Tu4bGkM)fzp%?B++D3Wep>Gldt_i3wgn~2Odz((58=Z~UuCO@x=)T@Xq<#ciY2iLAg zrCoLuWOF^2J~^-WyPtwIF%C9rQr#WUvwk#I2%wa#i45fszcq#@Yp0zd5y+e+0Fm!c ziDo`QN=}Cm({_S>UIjRJx}xP%;zpM;24>e7GHTweVkyP^)BW#h+vWjt)#DV@1i70d zbdudS9p3pA2{Lfw%UB_pPBw#hZH;1NW8(gsc!H#t`#)>sd(4maLg4g>OiFxl=iq#MJO!Z97Q~NWTps$yt|fRDln)(5mn-$tK7198efwn>yPat`GW>i z0v;u3_WI-qGiEH-d^;YA&~Hxq>~$klhXsQ8;YuI`gpPNR@z4&L&yq>g#$`;0<^7lv z-w2|aL#eK4TK6uca!WgJ4>oduwve`zusyI&y^vCLxrBPw&3yBEGuhCHL=HG{xsoy6 zW8wS=?M&Jq_U%M#8&t_IJWlO@eV(#RS{l_<6s!6cBlz?{Cy%lzz3NlO2-?NdNc3in zIXGy2GOv4Eqsw$?~;YThVoB7i`P3s#=6Hzi?PW?jm6*Iz+ zo7g^eUN-1Ho39HKwC)EThJLMqaaEb401$7%b%e^Nqe2&EdlKekIh`$2NF@9&)n+h2A1np`$-bv>9%fIme zX|!L=^68+nK{R&)Tk+Xj{p^uk&xAk>_uCxfJh17)sD^^z&$Y^Z4q zQ;1sNOuVa;!v@%Ze6fo{(=BNM*zgoc(Pv0vk2lC_z!M+ZtIR@ZXa^dylOa2`lvm$lJc=${Ky|cgj|=* zmW!c&7S~-q^pbO!+vlS}Kdx}Hw6o9TLpMay38#P+|Egq#^9^*v;}8%YBCx4cBCG7rUaE?&gZ*U8U;&KhL*0j^b%VRkcfD?%OW!K2mqIYr<9 z30;vC{;OMKJ>`&(b1m}nR2 z%|8e%ufXc+)}T*?j3ll`DtFyDej-v5<2d)dw-+d5I&z zzvLz99Ve_qOCJ?k`**SizNCq?$T$On6Gb!fh3}qB&QAZe$0YXjs(AXnl<|npl^BRo zMbLX@k$DE@*1MU&5P7vU)LPaq77Wbh1P-8be9IbbT(vTyjy^+B-O6Ez-@+GK+wZ^` z2IW}LG_onbM5x?rU5U|%ASm7ADH^(LIQQcdu@p^@+6Ic3+YU#q*r(899v;SZ)G0jl0M%iQ4bEdK; z(Rww_yapT^Zjb_)05@GBjHn}roFR{JA;++NDq$s8rZW^r&KRY95J&+yI@r%C>Kesz zNtn132zX-!-##IhX3PsohcI)2a!E#E-q#Vf0u|iDcOj6f?CHYP6ljlE#k%eY$^dO~ zid9XTN`4lTm#~E~6rq_0^VITZtLlnS3L7im!&WpxZEv0biET~2G%5sTkC@J88mGla z`IBAX90^B%qd8tgK&z zw45vGKM-fQ)I36}$eD=#H?QLA@WA$$cUG4UM-gpPv`fiN#YQmFTBG(7t0H~+*bhdF4xLzrQKE) ztVw{QC0v``r3|AkAsGO}ph3&s-6Ert9cg8=nk?SP8ps&}Rm|#-RR`s45`}ogFx5Sm zTUdJPId|Nh66-kB0jWu%43zxv=!tCzoGH-X66e9eKZw~csJ|)e&>f#Rj_dXl9@|I% zbmGQ z0VZ$9@FnIo0_Mw;NuOh+-$2G|;$q;)m@W6%IEP-ko>50}GHg!dF_+@w$iz)}qZW$d zM$ZZshDu4PQWic-3nW$5w=U{IC!ImojOp(MSJw+toYCJCiy#S8XS&wNbftl|+s5Xli1Gxmhw4OyP zie_f*Wv#%urO87kFoP$hZP>Q)3al@=|U2@O1dD#m07=4>6tRh&cjjMzu6} zEM$~KDBm=7xr23vm~%4ECRtp?PA(0(lejd&@AF*dmP!ITT+)R?uI-KtgDh2iqikCio{N8|6((#K(8VY zYN^a^$gB7lme&;LiZEh;NY;eTI-S&7zsJpK6;X~g9$#a_J5ye{*!lCJxn13<>v7;j zsup5!Tj(@6btI3E$vWD>9#uKq+iAlW%hc?zW<%yRk7Bm+KFLmWz!2O?%Xy7(!~_>v z`!!3d_iu1)xi^|$h&5~fl2(7m>(e^)tIKB8hOJpz$h(^|m5l;J2eHk+9qtn8+n6ce zORiYUEIxdVK8$m|f>@r`lKsW#PbGH*w~Bi=>&{|puiN%($$%zDX4f{2U=^66_Nz3O zV3o|T*_^u`G>t5hPN=lCsXlVwPBg}@RN*pK{TBzM`1A30Ix1Q^R0 zD-gQjIM`mjuBCJnJY(4m_xcK)yb9X~PPtuO{-XQyD;qwICC3{srs1%ypS~yZ<0-%P z%zbUcwaPc<#rn0Fj}M9Cd!Z2D;%! z&;@9Wpk_hHR|X}(R%z1J^}1U8H_ zNmKF^P9z|6h>fZA3${~ay^#_jpVl81n#=+nIE2c;&O&m~ced8#NI64xuisl6XPY$a zVbAP5Aq+w`QRN;N4(R&g4kxsITy)LSZtSYH;u^|Zin1p(h zZmP96Tsnmn+HtZEHTRN_2!`ZnoAE@ToX8Eg!mCp^M#Iduoww%RSuIt6N2?6KO-G++ zm}S2*eXoIUj*=)r8IbKP-jDck*D!zA{v11Qsc%K~UwWwNp-p)mgG7`7y#v_ibzy2D z%8UtMB&?!O!sCd**+!fDmlFT0fatCLG!N@n+9|i9!=Fq0hlOUNH?^Ry+zsSExy-@4 za5kMS9%otQ=51#7)r4d_aPrl%>%(2aN~UuQx_O{)2h=DKZFYPN0Y?USKd9Bn?Tb-454I; z+!g|BS#9uPTFO;7if?P>uQWPZE?MHmbQQz82L$jZu!I%TmiA=Ml zMTg+9$v4Qm4Re}#tJ;_0bTze%Sv`!Z>;@s?s0paS2+Q&zE(m>xBR28jQ+cLS&W{~t zY-B_x+Xj3}h>n7=vW^2HCzLuhtjeoKj!zg^g>wQXnEa~A>>ayeQg6HC;bkySAZL;5 z;>=VZTiC-{>wDPA^X&~aqWffM)%y^#KOY87hMT&((2%9GGcSj6OGypYy`S)`x3(~1 zS;imqThEhJ#S6KnuIr&Oq|QYd?}uw7aPq>o8n}>B)1`lO3UmM51~OtL3%vI=~UjzOgy^hVW0uhHvc9uex2S=liT^h>lPEK z&Q_!V5;;6T;xo>x6;#$=yq@q^7i*#RS=6LywAf#X9P z|4`|c^B)Y|_V0MzofMxh`*(y%wufn3Anl>WGV~h5gSfhzzyf7|A3r;&*@XZMy!z34 zPaFFakZ^s80!nWD&??pC+p{hbUH6jch=G{gkkm_dfAqbRv7Ju1SNpP8g|dUVWT+Q} zvM$S&qqCRfE^xxyYPD0>YoH+K)OZ2RRWxtbA0wzLAZpS;}{{8`^5 z+;qYNk~XIW$uvD!W>b-pvIs_oLqL9_+hMJc7QU}9MWfz6hkVaqaFPLa=b4Wx(iYJv z`yn>9ER*O|5Sv(sNl2T#yTK$XGM<8Nb8?2DML@R~rPq4F;L=})ejj4=f#2ILAL3LK zq=-nu{6av_G^(jCLQA-~87u1HaKpdPJIf9oS5BIjwU=rnRjivotJdu!gB=I(we)Vh zv&v|iWuM=lq=l4?D%$2M&OUj}$xVwwMB05_#3%zu*wL5HY@{VE3AFJwW2Bl9QX1qX zZ)ePnNF6L4gt*JS%WUWZd>{k=I=(=4u{JKkZD_`Ao4|Ec$b`f*`HAgG_&W{KrsJgcSQVyR<<5|r+PLX2y<5y1 z>VWVsfYDH#ya9dbV~zrbLcHu*=)(bIwI&lfC--5?T&4DKOcF$>2~pqjjR^?YosGoB z>TtKYtI~=NqGkj>mk%~^V$9?oUx?eMDqdTJj_z=;D@X4OnJNqE^z>7hMy*M3^-*b? zU0~byx1iK4%AL+sJ0f=Z&Ux3Iw}mY>t=%}vRlxG@euA%%=n*(bsbMj!Y6Nu4+d_i5 zAdT1$6!Z&F_W49ihc8|%tHv2fEzCrR<7Hootl!^sIr&!?>h^Y%3c%`4>Pl78o+^tP zVg22m(Cs+zG7I!%5{G0Y#m*w&jyo1s@eG#q0?p|2LP^wCAJ9+5%7d7VV(! zYUa>V5;+N9`;9vTA&z+^h1AVnp^c8Dk2OUz+6a;aq&ii`^s-9Q$_3g~*4RG-hC@s% zH?M9c%m$fzz}?q?bQEMV&cpyZ+|#v7olCb8WIzDf#b~5}wQl5M3v9Cj%tmd5j;*on zx0>bhXGHhBknxDJS3`8;J%oDExEIEW8we@pMJa(@!%;DGI=zOERxus3htHmS>|cIJ z=OR0ToaLT{%uKQ9l3l(cQ~&jB9XW)wFQ?-`(Vyc1SL2&i7U~SEAKXa!)#|x95{kIx zAFWq(eoGx1VdFez*CikBx{McHB?i_$Hb1M-Q;`D(B6VYwWWq*-sOp4-80n4PD|Y(9 z^JCmieo9FT#RfZ_ZT6>ZPkUUPJ(<0s#$ADu``W8EL~oIp@f&lfM`o+^a*+7A?nJJC z?Ai+BgXNz$-RylHj~MU1id>NDO9er5a~K26Q~t$ChA{D%y!-@4ntTcihfT`qj5RrHQmG^?D-!}z_P9l+9vrshH>@NNYK^?B;&J_xITQ8|yjDozk(gFKCnv&Y{I`Mq=*$ox4sK8H4O`lcs& z)F%K(T^p==pOJH`7gIXYF3<>;K#70)FgRN`Ru77se$~@4bMUdR2j)!jl(F;hh%!aU z*>P(`kB_bY8a{PCWkEKBi&V1ZL*a!Wr>*{RT3i4vZ&u+)Z(5Fox?tlr_`rP<70J3R zOOS>$M{G?&OSz#hi@ZA2ZhLQ#==>LeB#*caVRQu5qKmP(2lc=*{NxUf1_MO4*J<$0 zGW5}wQ=M*wHUoUyAW_dIO?&`z*Antp`8{UoTC3GpXCHM`<9!|c_aiVv%C&Wr``0ny zdinkuI08@S@ISTvY5m`RY0pM4^R)<^DQCQ|?ddWnLB1^<&Z#p~lK6iV>qnar6NPwx z%6^7x4PXbb4gW3wS!(3m)U?62Z`{v7Cjr#API&Es@Zc6nwoynl@VLQ88k;u<7TFL* z7aK5rYNs){xuel9yG3yCi|PQ~Z_M)j;$axS%h}1Yf3C;c)E2SiiY1JPtIQS(wmHNv z!P&Ktry1Y$!Zj~pc|iR5@6g!V7E=1dHG zhuOXK-1Og4E=XT@!26TpOj?Z_6!kTHFa8^x$n9k3#Qit$bcb|0B2?ynxG5&O+}Dxu zFM}K1<4U5hft~tbQRkxYX1{BYd{~u}YMPBQ6)rs3O_MR27`Q(taLWKo@Zu7U1LA!Q z2nRynWarqZLRk1|EDoy1j!cTVn{o&{qk$WEcVahImj@x&?EJmN0y`adZ2PC4?Y0yL z3J3u1ETk?(bjzt5B=dNtI=7kR0))A;5uMh;560J96h*g#%Ka*|E#S+P7zGVp>H{Cq zm=Kj5LzV0pY@woItNf^&A-b($&MiJ_+0$GO<`7zru0<+|kvj-9Ua)QqkvIF9FqTG# zMN>AOr}p`Ewo#siRM{Trq-{X*I~U1msDxO@Zubt6#gP~9=%9`u_-`Y*DA1T_B667i z4mJRIBnHf07APgp%5ZQ=;_i&~8u$e~IIcfsd$M(Iv2yWatN)aEv z$s`8J>GhI&NgJ#p9*gT7sEd2Yl!>LcQPu$WL}Qdnz}Cvq=?vbNM&@TSxEsG zyVv`dHe;{4cxEx$0|l%}jFmQFWC(xdP2qFcxy0N#;O^?-po~3}}!(OP;H+G|vjTGr3Y$Zq!YDDShXTo8ZbHdh~M? zQUtg&s?M?qj-v7UD{d<3?iB{c(HOkBLt?acLU%OV$%qkTkmkrWomJo zOxeCBImbR-VlsF#r+>sSt8*riolcxzIc+T?QT3|$=8O0a^Ys(PK*PRi$qG=Gq9yj0y9^51)QN5 z>V*_&s%$fGAy~3y10j$w{jvvL?{%p`2bR)7u<20*$MQrow`Xx7G5Xe^0t(a3Ql!Y6a}B=h-lG&vW$IsG5bPQ za$i6$2&zkU+>-tU`UTEkhjw*R^Y2!v2(&Fx=n)jjfIAyDYuw38ufQV%qqiyV>uf|` zgBsSbmNSB{6L8XCO68=;?Y@soAiMz0z^b4wkO~{GaNu^+ei;`TJslZ|S z5*H|EJafL?%-z0MZ|X9({!P)`qGGG5b{GqDj$!iBH5P8R!d?8|>xz8;H)Xkdd^D_V znfsi+e~3((JN?_c9e#z0RBr7}^&MxP+&*fxKYhY-nKF-yS1u587IVm#e&%M?q<>=; zsxnW>O<!%OHkNPBZRY+b4!p~f++TkMU6>L?#hb4MiAkfxB9mPMR^7`$ z(q>F?p>kTq>$11u6+12E!|bq@ae3QUJz{<5CdY?z-kwTN|~aUuU^Ou zm~c=m1RT;4gI7~$D7ovYYawSZ(V$f>Zpl!5mNtR7ak>cdd`ks^SpU9MfGi^41R`Ry{aJx9&3QaiCmA z;NHBS1bd>6D$XHkr6tj^hP$177!OH*5DDHB1o5%xg1)&9J_zsv@i9~GZYw2_Hsola zA#05}c7whILQ$=hA!{g6eVU|%l5!@*z!)#fL=;gY@8?M!us01~j}|L5x{|jKHrVY; z!JyF=$Q!_Sy?+F)^UtmR69js7emTqLItlE_RlYmZwiWu4 zSRVu|Ehw<1EG1D5EH}GpYGo`zHG_oSODj-v+vg3(COhly*gQ$D`rez^Uhahk#nj=VlS;K{vN_7S$X( z8)(D@$ON%;aXIUl6=IMaZUWWmd~1Na;{I(*DhTE0y8TzVXm3WFlrOM5?okZpGA|IN zzgv9|ydb=v2XyI4-t%}~bvn-y1&7N`mn?fzSIqyeredmj2SSr1t9@DV?vi^%;;sfD%&ZdAt z2boP-$H(;3a9_d3^zx3fsH(=cm?1{*PMYa(D!A;1WiVihb#*Z`eiZk~dkxJdSa0GJ z^)@`j%duWRz8=ZFUGtU5zem0%5jYmhn>iZb$i7rGi^NkK#_TQI>CAa2g(FdN84NQDDm+*XOT6YXQn)AnsoI2aT z)pCiY-ZCGxZ&gS=7MZ1Y!sL^3GsXI4cwM7Sfo{dl^J0&wTGU;mN%u`VZHW`E2jpW& zTtnC73)U99AgqwscP(%Q#FBF_g?syBpWNX{A1BtwbjJE{+VkpDg7XaX8HelzuT8uW zdryL4$QQRzPz90;7uQXUyPCcFb;q2u>rvbX@-_5oGfA~4f2OmCrG{XCQ?bmjU=}z(wF5vs^b+(;fYwZ+pIDDIR(BiKH zY;Ul-^Sk_!Aj1y%>53@Nyy-3?;2R8&*29J>uo%n5MyD~#BDYIB>0*DeOk*-Lvk_AI zg%D+3SX z<+(tY`FbTDxG`2**4LtRWask;fV~_8lEanwPb*X zZC^Tcndvi>H3Ek4kG8l;I)KgmEg=RU??<54=#MNEA_1;8v})kSe zmX)e&HH7D<9(nh)o>m*Nt!U<5=a?KXk^(jHxw4fZZZc|e6&cd{?eWGO69_`JaX~lK z&vYODM8ghdZO>+-%ze0Tc0|z51{Zt7045AM+G|LipQV6)!D}6Kk3QY=Qp# z$OT?I@Z}jhH6r7M3p~oh90MdW*RQ8esCjs73xA94xWh&_b?U20ZywsY1|JxmQo52WS73^j%*d357}bw7H$z});LjO8?9A4!B?6VI+V{0tf<^R)+(Ug`}g!1!ksb;ht!Xw-;tgZhF+#T zIi;I`EXqt6=z4ZhiR2Fvn48d8@f0}klz@9oDM{bkVLOTYmN@Z zH=9O>o`QXtu-P=K%$$1Ryq;H1h5D-rCMY5AAtMra3;&Hw5ak0h+K$?xDPGgL_Q{cZ zMJg6c!2oE1MJ$?)G?)tpGRd;?H4JnckJnw8!ig)z~ z0yQ^CEH4h-CAJ1tcDB|#StQ(du!#`k9*X>3>B#)lzWuaI#eGvoVdE?y;c`X!E;X;> zlGp5nipS$LVq)%Wr@P{^HZ>1|=RaEt8(vd$D(-IqOdDL$l1(b^eH!lM_d5TxO}zmv zpY-3jfcQ&XlT?#a&9L5srsWMvnzVgHzoC^3=tP2xhIzcmKCTe^+|6yNZ@=oWCCcWbky>VpLx|{U+G*452J7A@V@%9o-Uf4EX{d|sp}GoNZwyq)wv*!HhIGH&gEy6I_r~g{z8J%`=QEfx=WifmD-^W!i4<8#0CYPNVxu41W0P&V1YwuC3Tj}oPabr65vMAr! zD)mU%@qc)zmaV{+%Zenc7KU6tKWZZQHhO+qP}nwr!lT z?KxxHHqOl4`Tobh?!&F>>SU*r_0s8dWoPfTVt;)Yyts_SH$!*2>+hC?7tZbK&mFyV z@@jL>XeT6Bda_k1ZFxB|BVgwq1gUdZ!R>9yxlz*TIix;HLedjU4hIOPWezM@0xHAv zb6^Ld>N3v`3OqOh2i}^2VgQ-B9lw!4oAtUkDs+ruSA%WJ2x~R=NO(5;(Wo=c>Iy^6 z9($p|O#Qhkk}kfyjK;klOrf zILLwR9a~T$2WC+uhEM$~Jod0?MiM8+p{K&-$gxzD3Kc;KxD>q0Zj!04~-;nuG1hn)`?LZaotxgll&#+^J|3?rB`$*@!1qVe#U}i$i)DCAB z-lH#g1y0vA(1oifp}GSHw}tK+K=oX})bLzLpzlvrqXnAc6SKE(H#LWzxo5V#em9?; zFQ%_y+!1^}adFVaaq~%zZ6o-iBaKHWWY?^u`3R0Vr@8a1w#3qAcyiUF0YRT!k9IOm*c2};H(hdf=BS3g+77Bi!`lm4V~o=zSLrTmli;)4)f zJJK;{L3wdj!`pZfaLTCx7vpT0eK`+t2PMUvU?N7wL(EZG0gvm5)Yzm}8pWKg&W@Pp zs2;U)US|arIeX~5o%lLq%;Yq4ULuBX-hB&neIS+A$DG#`T54VHOFym-*)V9b{ z8OAe6muAhTNsn28$s0Fgp4UJ3QRi$a(9vW;(otpaGiZ`C;F$8Tok5QarCxuULrg;D zooB+)O_(*2IeT zw&=Diy=f1pl_uzy4$o2K+%$~>cIX&$*q%%y9_zCiltWH$=lz;p&JmBGo}Kw@{@D9z zoeXM4kAQm?h2#o&)d>%v7J#1Edl1CbfX!dfmH`n%(*l%3NFYCj@v~bKp7OSMO3pc^ zyuAiEJQ^H~LXja9kQtNNI;~?uW*6FZ#s|2P@cDg>f$^kN(0qxaDG`ACzll*Li-~dh z#l!r;bxWn@^UIhnswM=p1=Q<1xq|B7w*rDWzXbxQBbctB?0%KOaOYS~&>3Cse@Ru; zP(g<=RtT@}z!VWTMEYS<=1;!>Z0@rK)y!vAoWXVfFkOyGsqcj;BKYo@jqM&Pyfdls zx|zd6Fl|yKPit!r1h9OH|Gm8*%EkPZvjBm+n~C$jtGUd+Ba9QvCr6H2xP-^dm)A9CJ8Q3>gs zV?Fqf&p&_+hi5L0BiFH<`Nm~5ca|f+6M_2>;G;OlQEb3>0~35{=XNn9oK1;=zcB(9 z>F#MYl)721heKsJ>}f`304u#lNLkf!lyqtw!&apt_-a~Zj8i6Hl-3c|FFm)*#1CEA zyv#$MNCMXUBQA+C`U4>g)O;eN*<{+7)c9$w>$j4x#$<*C#+0~`UMg>M+v`Vw%%WNx zH-ntH-QxY?=?DE97jKiLv@*qpPz}>t<_-`Df>R5HSlOT%o(Ly)!glGA4|rW*qZa3! zow|Dp-=H~`C%1)Xf4I^HA5JW5CV^8WKEBKaFz6J9fHNTY0O75|o6~u=(OD6`xyHZ3 z$?)+@Nq}E7lK+A5GPpT9l|OV?NfdD~j4+Dz7wDr6*@JoebI$+sEX&{L?S!8m+5r6L z%dUp?=Zg`J??Z0v&qv)fa_rH#+Oa2E>to-Mh6 zDX|bPRPXxGJ{6{yOyFVp(!T4@gXZ<6^75KoxXRYBr*Os^iH%|=tKs_cis|M1dGGS; zy)e|z`TF|BKP_s^*56J3%7yKzQ)W)vJlTEEj_gG=>Z>amceovTSu_kviG2HWy|llm ztR7}?sD;eXC0#;`M>I{8EE{4O6`|`?fgV$>ev)L8RlyluW08r(cl(fr^pQ~|ug888 zgLlZAiOA7VSzbCtHC_7VLdJApeWKBAUtDrA84t(U>I^ZLixHejSaO%8zmaP*D38kk zol}%i)7PP-Z zp((!ypo*!V?M|NO1(@bT&h{(n2rN97I4oqzN4P45z~;4ytGaU?Faq}S)M6p<8*(&G zuw!xjTfe#j%pCB}49=3XW$-krc9Ji)1`?wd{>xFYk(A0!(7wbh#+xNDc!labGs{2w zmuY{XV`Ik!gMG>(7eY8BO$s)aJcHp<*d=YXR8AGfKm=ABoQBHAJMbbPfLV$0gtgI) z4Nklvar6CeY?CAXrT!F# zI8@Q~o$KnOZhQ(OvKQjPpa>5uW&-%V#z7Uc1w~c|u>hb1-ZPDRvq=ox(Q+J*oWXd~ za)_2A)QB9Xwe$U^)R<6OHsYb!^y5;d=a6e^u5n%O{5QaoX0Wbo&ST08GjB@>wBL8k z7f6oS*2hy%(QCN4JCLhWGM5lOog$u;#mAl=v|0?vFyRU^pz^|*lAJ{o0TAF5#95FO zNl%I&z^G-)pB}Z8jI}|04;B|bET&kSOz`(tYfx^eynA61!6}T98B+K!1kxJW28;uyZSX`e@HFr z>;k%DC29@G{P(k)`oL<}_-C@x`b!{T=wOH(4Te*+w#$+(z8?<}oyYSa`8dvQjFh(%JH3xh|@2pxQy70IWloYz|61KrVN+Aclu#mZjk|g*zKu2{g50x zy#yChbv%eYHU{Co-DMTA|GW^st^_(D)w#Z;V({Eg?kfisvsB3bjPF}@P#mh$H1VWy z5YCd2lQ3)$#x2X2{U%{u-FMf+9QbNBbr;U*5NYC-&IFI^mlt7++0%ED6-7ewU=hH?#Dhpo#h%7YFf5TFsFk|j9*1?t=k-X9;3 zq{>4@%%wmk2P^)Y4hcLVZus)jL32A2Lxiv?btVopPr{|~T0z5&B&f@e+o5N+iI7+W zT9*>pcWvDZ@+LtR9*8@8!;qnupIHK*E(0=wE->rCUa~RB&O&RHJHv^joI7UAG=GK8 zDY1Q**;e2cuPEb5|8GQ1;A)N@5UUkeESyO8U*=VnP-4{|SdTi1(XYWXq&*p#=dCj( z_6_imkbR~qK}|#r@O^B)rIokzw}W|OKb5gR8p+ zLfI^r8ZjzdT9lKaqOp9jkmho)pn)s`Z*e+?(`vDDd5$%BHrW7-Y>NYa1Emkzel_|) zRPP+84Mb(hs<$a3_l=WveB0ebY-i|T*bG}8FBgeGDaFgyi&ySMm0Z;?o?61>tv!O} ztpDs_kx^(35t%8L!*%?{;;Y^N?`HTqrZx1e1x8KQ-cY1$cVV%M;Rc`DKlaW?T~E6I zVYgMCPHNzm{!F>*+Y6#&cf~>B`=sp*(Uup7Pyi>gck8mPE@}cxxI&jbsCRZNnTj+| zfOC;LLR0}?5R5m!HQ;6+0t!bM-oa%lp&|8eZ~uv>Z&B!ST7^{Hj0B_PY>M%{c(Xz#&D~c&INEm61K$!Re+Xcr0~2hcaMLn zbbJ8d=@DiWNrECt${+)PQGlDDD?I_+bO0c60LdLd68aGV-Z4t{xxKw92Pskz(eNSJ zt_2OYVX}YYd^$5uSW<&zI7<`^loC(hNU%WS!ID=2vA9_E?&^zpAmXiYrb`AP3uM?Q zslL zZN@)q%s(~^1Di@Hf2==$&(L>hz0<2?BCBcaO>#%|HWo?9;s^sqI51@0<*I)blKa?~ zfNq6k4x27d$RIK|tVW}ozvqh00#K6Hq(?YeR?M{>a26DWW$xNiLP^DC7B=tr{A#gY z@9-?(qP)eBMrMSxp~m7=c%yVx=*%!Dv5^VuAoA5-Wc<;ou_BH3w91d9$y(#g~`FU8R{b3@KVx3vpWV4SO(%*|032^HVVln9#}{sc_t*z+lb zAOu4PDRb(y!I+unKh&jv{F-tG&m<55Ns_= ziQ{%zGA@IuwCjBZ8a<;Wf4Y9lkRB9+&pHgM8fCsr8u)B(PY0XdN&s_OaTOs)z4keT za+G4(*wfJ|w-T8d;BA!eNGt>_~zf{CPy6Os}qd zl(7YEHmv^Qvhc#o>u48H9bFq<@c<)hYZ|fidp9W1v#c_*8#3lLFvZ!xZ;0o-vSpq{ zGrNtpb$>b;#85G&k!rORi_Iu0TM@}|^^Jr@_rMLbB7OG1H5F$rY3dzbNT?*PTEZz7 zE!&?+Hf+zo(XaIjlB`Di{JY!eHwZt|R@PZ(t{VCYuNK6CXFo6h*I80&gyjqaMGzW0 z2$~u~P8Uv5{@L*AJM%Vg8a)lpw$mI%_j+|a)F?|6 zb3zsAR`c*;S;uq;;v%1}NAHv>qF?A>GYCY4eJ`e0^eD*D_JYZAX@g)3y}uUBB$s+Q zl)`^Xt>CQ`0tJ8BmUWin#L*Vl<2Eg;0yUP`(}@e+jaJQs?rlp^Da6619sO=$ll_5` zSaEhi0dT(lSI{C})OeF8m!_-ClLMF=$H=y!!Wtr0PhdhZV8zxPXY@=ZIu(}on1%CA9ZGC% zB|kV&i>;zVWAON%F6@fnTNr$+Zc73fxvk^%Q-&q~2$oiQ{`NACZtnu_hk{en1km42 z03|jzm_HJwQaYAr7bg{FEBT2z(-YMvX8G5 za%`33@h0Th!Y{|`6Ghi7S@X*r_~t&BNs@jtzz4xNAExMK}})QmIgGl{MvvIhK1*0ZC01S@9gDL%N@S3A$ zf*qwdO*x^~^9SGL>MtKBzoHnqn#p_jI_Itbl{b@5X7Vhg+K7KUbUKc_SO&`GPVpGXd@aJ15WNs)hv;LTS5V` zJz72G348-kO*m3y&ZfY^n1M|)#sz2fE(Gr4$TXPJxe~4j%_(M~Ck#3}Amtr8*8Zsf zN$Kn=uhx zHzzUuSU9!l6U}McL(&uMA?QFieRI=sCM*< z;A`8p1zk;m$Y!9e23iUEDZv6H@M904#pPeXu-iLm?yoJ5S};pKn`Wm5N7-OlA#4+f z?A_ZnD=vBsDE!k>fLDfhb4-!%0Ub92nbd1KNuLTxD~AH>YiE-2Di8iDj?WMVwla4X`0%=bjs_Ti}FzDK?tE`C8US z1v>BUa*V(R{nayxO;HTeX~SqNA#iSWV3tHXx*&?ni7zJikw#G5rAPp#EI<$=B2C3L z;?>XQ*QFKhY9Szt73l5rPy(`!&-o*N!9%W3BI6_7-dnT{U;@m#8#tva@zZDaBPItUH zCKtS8D?h%#(AMTPW85N)xxa9Rx<)_2+rFTQNEBE=pu9Ead(-5901YK$qfD9TH1Dk! zddgR^Ct#9j$tL9ZaMSzBMT3F}LnrcfCuAM!_nt7VguLJVdIV{=khHCxgT^&dIk|66 zhH?5lKN0d)`+S=cjP8FAI2z$SZElt%CH{1I7}%qu3{NYps864iKnL4y2Az)ff(W54 z!7C_r?cPc-@p~0LOqtn%GT% zLg|osB8z_ZoGmKyOL8>Bh1?w@OW7KYM+s;F?&-jGZ}&sbykk=-Q(Li#nI7v_llR|v zZCn@j-1dP;aGSXRW>RrUW!^lI4PyMpM-vp9+VG}NwU%QBLLc2NebHf1c)U{?Q9X`- zNc!d&tAbdtK4J=?zyYIkC&Q#fMNO)G&Ic-0(b9rm9|8aFR;K=>O=sPLoAOSzt-G{6 z16#siw!w<1k}mmbG|+@$w58P~+h~`EoKP*cb8MnLQ!K~Jr9B5b_dvH^WGO< zD-XOw+9sS4Yxj&FUWmRw87MFbOvSo9!6n$v&?nk4Gfma~y+FI$-n1keMu5l%SU@ht zvXN;jKio+1-w3e`27qam6j=iCIwCmUylI(qA=qke#Wh|FcB-m?Y%l^!$^>c~hFNu) zfWUQsC#0E+h|?m4OCv)QBX+oBlwCbz2L$r~$Ie5y>DQ0fkUG(s-&eK4s4TW&0nSz$ zX`-8=_&k^P35nOoUUo&kKsl0%1q;wT-jeBm8MXnZ-5~n1AP`|aI^t8uKp0bwFj!dc zG3qyj#3{a111}8z{lE5tuwHk-nlOEF)H=$1gB*~SnSVKlX=w24v^7NxDOMO6HxE?O z7SIEdQ6AY8!hkmwkU&TO`t9fjuv>p6LQn*_PsTDuBmYPSZyAADP^LDL!S$xczVJOw}xI7F4f< zS$r&ZSV+9tv}BVH;)*xG5k`O)=~moc&V&IDH^QPt!Iv^`8ov~OKfqdC1GoPR1tH`A zk%EwslaulPry!h)yXthh>h3EV16wN~xp)QzgYhu%-h{pmU7m$L`i3MljVI{aG27JL<~yXN@=ogH5W zT9Lcb=HK(Ry4lzBwcGxNc=&+)9q<2h+WzvTzjN^E-^YsiZ?*jrx%=mKlcSw_4R%|6 zclwc~&%amJ_%)G^-GoflHE9>FwfnWA?Q`euM$KChU(YJa3Yt{VP@Mrgj@aMzx zyol@-=960XQa|^$t{yK9+JGkL#_fF-^wX+Wk6>uvM{2?_{RD*XhgD>FG>|QSBKKs4 z|DPug`NQ3{c=nyrzzVxveXwam{Rt#j&DUAsDdfwt&ff9OX{OtE-Ud|GQpq&Gz`zYL zm4oLZjFW}u^G)%xeaDlo7-ow1cFT-#CB4kVHha8o*mU}`pG@-Q$&0a#Zv4sXw^f(V zrB_7O^QlPyItBl~j@qo6sb*>uP2DA)lzPcP&zZ^b2M&(Fdg#<{>ziD8;K4C@KA$fn zLjEeBcPOi5>}Z%w!N2Hn!IyJBT`-xDl;|hq^9s^8*+05B(uIBow&*PGt=|`>oYS!n z02!@?n0K;EgOtF9jjpYe8MRc@Q;F>=3d{f{H#PGt1ECG{ zcQXR~R$&{E1u5bV+qJLPd0*mJC!RU8UFP1tWo7<@H|wo$>D>%A$)kLX#mzU^53^q0 zNXR2P1lWZ({y{U}*iE15I#gXzqhfCEO+et96{gZxe4T;aT|1R4vz(hueoVQImbuPW zev~e@IR=`j<2-+a#Ql-akwKq7dWSl3WZw(D+ubLqPyIiwy8d-_o81igu%BO-oR)0V zpsR$@SHAPKqcKr8^)isYI$L4qKCy9$z6QJ(FBhk-;Pw!2R(w-owNsz2m#_nYin(jz zHII*~$u3fEOtHBuK1)n(`d}%r1ulFk%!7#*!w%!Af!iuYgo39Pw9}6W#O!1-de0QF zA2{|)hev2URHx|bTzEs+!RpWTK56?!C2KJrFR z{2O4j$WndJ)CM41V*U&zHN7D+ZE1xRe`)mh-L-#O+|=EDr(j{Fqy1{8yyp6Aq0in= z)?Ds$`+K;b%H&^LHZ15fErm+i;1!G~)5-eynyp#Oy>ZT5@0W|~B7NVM3pz6~%i$es z@u+jWrM1x4P(#h~`IfrvreDr=s;3;O#@F=uzl@)E`P(1oc-G?S0aLJ?oeWc_rWabl zXZVWs^n67(iESQtx8BopS$}26AnM0(HzjA{A4ewSR&{*+ov2i=@(R@r|a`z+}{f_@b7*E{qMD8lTuyOX+M zbuSlo@>ifG}|;NDmS*hgkzQ|DbvXAh$u9f6&q*-bP>^)!d-5d)t}- zo7qBm9?;m}THdz~N+XU}8*oy)aUF*-&31h+!vUIk>$%Nw5R&y6W;A!37%jAZXD-_& z4*^?am-P_PbXO;)MU1&~r9r>Ydfw`HGJ@v=a8s;xO{h83XgE)AZ;GLH{GXEpBqsL8 z(0hk6dG7sE%Ip5CF_DaMfvfyIk7>kCIUj***dSjMAO1&Sqp)XSquMsVPc;0Fxyz(( zt=kE*O&xbRc#@8ZI>@_$2p1X>enz+puCWp>+ zIl63OzE;r9KDpj!-LsDt2ZntX(&UA2vir1zT+TGJSM2gyMb~R}nZ3MILiJ3xmP|cQ zSnb>>O!~v3B(3&7&g^`tIk!iaq0eT+evbKMKPfnSOnZj(R{%QR>Fpn;KvON6?CHq- z!NYn-PXgJ%J?s^R$K*{CU-!9zI$ZNxNE0Bp5_pSUTTlXZv?HjN2p$JXXrco~gZkYhNz2OR}I4d>fQWyjUf5R}W%mBef!+=cgA!3ghu8_rn z`Am70t~J+Pxwp7PoB9i0>z1=R&fEhjzn@Xg+CpO~^|GfrOTE0suCk6&gy*YW)|u<5 z1Pv?sGt~-#G9c0TNIZ73kMGJn5*9XUa`K#?lzEMxXHNFp7yOU&YJB?p1hc%AKVpDt z{LWr-7Bqb=7h91b;T#;*^3tPeMLZ`gw(&#kqlHwu9f^3nrH;6ssJS0L*&k|raWT6o zc-v#~FN<_~$lY{PHh;ISg`*Fb%-TZ9%YM5JZ5gw8a@d+9K9tHSFJ+GXTAoaU;U* z=u%y^8wit5xSSY{>=FMa%31v_HJI1KmV{%G{;Ot1Xs~j$=MR{SqZ1^40{?LMcubcN zu|*!gZEHvt-Vu76X-v6rVqJbF4VrA2piu_dDaJoEeRdv^#|F;=71Q$mrg1VXTLmqtD9A?yD&V)jKkG%$LhTP<~r0|D#UxeIO@@fOvGX~ z&__5FXiJ;0cO-0b>3nxIbfiDCvF1Z)|8HFU694EKTFnOu+XX2LC&SW58*2g6Wiv)7 z4RAty&l6TPHz+FOX*ici6NlvQ#xzZmQN+8fAgH1Yn%)C^g$o@5m#cSgdS^vP#QUGc zsj5Qre$6-2!LTT^ZA_bm?A-^yd@|NrEYLhp9)KX3{nsi^jey|0JwMyPR%)Wx{^CrcIS@vtz6c?mRIBd6rl70Q}PB^s*EsEwFu zz?Cyvu`g%h9(yryepm{Vt+XSs5T?G{-5*@iE< z1!5M1sQrc5T%6$1{AUm5cMs{wz$O_2gUMv=CP|_tH9us@kV$E`2jszR_hImyP1$ju zl8$QH0f?nOw$MG~`!*TjZlr{?u$gHn-Z<2&?PFJ#1{cKXKUfh+)#U~dlqhM2O;BB_ z-r}{<0?Z^g&tY@k%R+&8I}S17>^>et?H)rwruG@fE4Rw!zl|K-`$O1n#I7Dg_vD^K zpSCfMrR(%DpU-+j>Sw*2+W6`H*FHCmey|Gb{upKT{*G5WU5viNj|_5$(2EO^J?Ay{eYcJg z+BfSL*`*2`yQGZ+$iNG zNXiUhnPKAgkzh);(^F3%Xr$Y86FIE5ZA4E96YXu1y!-;?=r9}dGIs@B9fhx8S#r-v zER_2Cz3(D#BUEPj6o@a3znA8idz42d37s0lW-eqayz4Za84)LSZWtQ@d$YVSfci`S4kTLhmrP$=kVM*lMz^wpG}(%Ppd>NGm}Pk_&mj?g|n{; zceRXfL!( z9NsonSxhluqnnaGjY1;5C1ll=dW_A#osjkeYye+dsco<~rA3+g(DxtML)Azsk+7dvmL* z_M{F0Y#N@i2}Yyr_2`43Ga3hC0yfnvk0jNRsYo2**kp*Bb_OvLa2A41r zJW~{jK4sj`E5ciWo*PI(kFRM83Ay(JNKi4U{{X$LE3ds!)ZRXXbKU2Cr_+VQ=oq{2 z2@_S;QUp(1ATqB|a#S@PXoJZtQm_~=GBLoml|6@OU7d=7@--9wy|cB(x|ogHb9Y;Q zpUw91=)Uc|S%`6}lSk7&C@)R8jy&jIm`HdvQvalJVHWYPRQ^O>97P$eD?uHhRG3#K z6N*{U%1rQ zCH|>l!QT{@8039l>!06Fjn5qtbU!kdN4)J~$KQlb(>1ug@v)f`^L6HH1M(Np1HFzITogHFUIFa`_9!(gx{6sBg-Lt*!GX{eT^yp z-`$RtVUF*_b4Yr#b)Si*zdD19a<oZ-&$Br+An4L-?Gq9;LT;*2V>ETLE9>7}J_EiBfC`k#&OScC$=+Ij3T!W_d>^N}_K9$5e%7o!#xchDz z#Fgk(zJj;0j-Ra~c{bJDtX=3JEdy7joS^uN(6`+5q_qczsI9&2-v0{4$+J(#Rj*kk9qPj=?*xIikfLs^N}ZmckwibNphRv~0G7IcsU_ zggI@!zZK*@?Ugd+!=1RY;4i_c%a!Y$@6nzV_$=Uk2`rT%-N$CA$W{&?a=+>aqLnb zL>cb%@r&3;jx%}Q7wM!0SN@Co9#4DxQ~;E(#mPJFIpgz6xpJwycL&B;kUnRWcBw-0BDN9(X8Thelp0IKunVg5Nk~917 zkg4+poFuHCmxL7n77^bwVI?OCtMsRXgw+nbn~(QJa^FYVmXW7@yI|(R z^~R2g+f0urg}oFGX45xjTz1He){AmyKDOPZZzn&43dGo%Gn~W9$55<~?}3y zCRG~^>Y&W%SA5rzx}^5`)B0-qjg}sLi0FDsB0W2eK%~zup_AEUzjj*=I(Ac&rmxl4 zOH9;mmO6fgeo=O80NrE8W*HMkLYlGf8Zw0_N!h({YRxrTSlIo_JzcOiKIh9%xLWmS zYX(oZM3QlAdGQ^Vk(7AZ**u`BIpENO&_O9iZ$4kTml!0Vk2?1Z$#49E>=Xkz6v~ zrJP}_EDGrZnO(~_9iug%OmrcCCyx->I=_tni-mqakP+IEix7nB+;;Xnw@$mN!^>;l zM-AiIQqji0(%8jmX(sd6H;-VHSqi1~CiSHpTETOiv3|GYI)-)HwDG9T!bOk5bk1-n ze|%mcCvp-)7KGTi1-y;?x-9MZ{%RaKJ)3B*++RAl))fT{LdJ)n$^9D)FEhGV?a4cW zAht=jt1SdvMzI!y)ySz>p#=EiLr_`>JW3w(DqPgpSsOkLE*%OMe+C}#&tbDvoRtNh zbX@cykcM!=CXQ<2-j@Tp2yJUO?uh)>lq*+_>_}ii^hJHO4S!DvDE6s0xvyS{w#CnM z-wTiFon@(OfuUK`{E|Wn+$rIijR%QcHgk;4 zRZ(`2@SH2P|KRqo^faS5d~dvas6#&chAFOLM?!+3b?ghbr@90-l|!S!_~y3WuCv{g z2IB%?ivp-jZND}eeszq9JI{4~(u`(tmiqW>Q30PWnBeG1RTgw&O&9A1`&K_l`XP~byPC?r{CuqfG@y%&}dB+;Bv5VHu9+^uoY=?TwX`a$4*qzr>9 zcGZD0wF)wUSAMtB9XSGEQEYJ3AG>mZg_|+RV1U;s*h?T0S9e-Ao!i+)*v3LMw3U%C z;KRK?YYq0%8QZh26J5KcY&ej}{lj5q?X~GR9tt)Xk-AH(D>>v2n=^l;Ht5VATII8L zhiz{U8i5^0zr5mj+SpW}-Rxp>PB_6wXH99yG*km|MlCgId(7VDb%k*qjh_e82=`Oi zbPV>IAr{Ozu60AFS{`{WQVqoSnT%Apoi$JPH~>-}371v^E7;OOt+Z^i!E@%FL&lC{ z==Z}W_8za}D()PsmvmDHy03DfIB`gnIk|x%T>ug3lQd$Wg-npu>2U5(PtsbSEhKZSPA@0l< z46q*7H3t$6SSiumN40EmR8pn_FZs}?oh|k*z?BNg?zGrWl)_*Ww{rCv+F4^39sGU>ES@skKgDXkF4N8^UE~+7CWZD4PN@e%D~i5 z9Yb%x9!*$K0Trum8`xLGx@8;hj01@6@)~aqUCtH?8@29!Eh12AkDbB9DgX^nM7C7H z)ef6BZz?Rlw*qQTM$E(rT_c;EL^gJ7iTh)U5X&c$705yZb|Up+jMt3A^S%{T@wB0) z2bN^`OO?a~bwO;95-Ts@trKnjDu3l`r$gFBPdNW<@clIJ$iYDaC|m(JRDA;+f?MFD{R-4rpyL3cTi9*DFpzV*ox~rwueavXskvWABs&$y9wVmn0{$PpQXn- z6^k7l?B@YNim8nhl?YO&15-k0U$OGkx`NWKN?mXEI#>%QjojhQnjHz_HlG3rDVLF~ z$XjU_xS5gIqPUoMQ)Q1d%(^t-u&G}rQ zmkIy(WSVEb!G(zX+pwc6b0~@^7_j6R?$0Z1zMgEf?FsyTp5!;!>c(=^3a)(TNb2pv5*ETMn}gI1vmIIL!Q4 zwTqlp&jE%VjB~_@U8YLzh|QtJ7vO39lpgh>nGf;2b45!|MxM5DTEXBc(qOGj$IE#o z6?l>~i)MbyVK;>OA5TRs1uVYG-@AWhJO|*EzfH@09)wkxj@>uB!zq8vvmaujs4^aG zFyNKH8IBJPC-KYv$+I1QzI-6terhvU5H(8s83Cc905*C*AtP5@NUCN-s?^*`5C%dm zweOdKR2}V}+h+@?%BN*bj9K0E(g#MFNWI&h#!DAmJaWp9@<99|lntpmz7Q?&w-qQ)R&C$h|+-8%y1nZiJiol^PIVdY)KEjVX-S%xiR&POHY&oVHeT1%#9H);HP_%%I|z?qn8a z1qq@ZJdF-&bsA``X-u>Km~FHyc+d({4%~wdzaEM7ADo~byH)K z&}bJ92t-3vYbR2X#F(rN@!F^vRb2v7F9%%>c0Pg}Iz9SMhf7;jGUKDN4YT-@S#$c( zW~>%};8njPx>2D6OG15n{ZfF4nxT3IXHuePa@xwMnQcemQkm7@_#1Xh;PCi8wE7qY zlVJviR5G`Q`6y7#w`ZMABos!XsmM|WPUuTk=t@!Kd`jdbqxvm_Y=D3LDnp#!fEqRxZ+8& zc4oGanw%g*^UV$2Ex0}M{PZ*7Yr|cbrNXcA4oX+~2(ZlG?Cz=@7w@t0=^Pg;Ef6Q@ zE+FYmc*t!l2-@CxzXL*r73Yb&ip}9WGtVi%LQ&!c4pyglxGH~|Q`|%89Qcvy9m1gh z>LRDUUvl9L@vuJR7mr|nxom{qB^`cD`23DAx`iX$ zfwRrau5O6?@*~9KM|dzK+^GZb`6C%I7DxOhj(D&M!20B8RN@O{J8-I?f} z4kyobUw&~Xb}LoAcpj^NbF;XAJh;Ix9L`SriiiIKSP@^;XjzsisT+?N;KINosvX(^BrD4iiW{ufufb6+d(hb7QjkG7w>Hz`i9~4Gy zYp#UmjmX-)NDtU^o{pFzfwCr8LQD+F0>Fu8r{SRVCt4$HQvBGLw%PqMGmHy>TFq;o z27TbtI84cl>7L+B!OB~~q zpLpa@6s>RKSYaSkifkUq6o@NYcM# zLL+`^Ds%Xw4J7tzm`r=%%OVxR)s;^tz~Y(#GIR(o(LW5rM$Z=ZuvMwb5v7odFLjsz zQHiaw3*V2n&~DD({D^EmzB00}OE#1q$Y@-RB{1?p=A1_-^UY{(Y6plQMVKD$>q<>^ z6LwQ<)^0wUYuRuZwH@OoHZnt#&81{Nfs_&!wE5`IcFm;(#F-&sx}(Zsq@Jz%xzB8! z>L-;Q9|)1h>MjmkpWkFHJu%Rd5oC^z=&JZcI)9$PBOkcktsdrTtU871fL5uEM}edI zuG@k+Rb!3y82TUVCjI1Znr2KWTS4j7{Z^8HrCSdm>EOdVCJ&T=opIPmU58nqMOC9S zyqzqi-jbW98yYP3u#&16L^e4Fr3wBRiZ8=U*I??<(WYpqlf+K>1KhGj)5VXK1Df(M zgBXbjCm84%6|6`9BM2`&WrGXM(6*6=OHjZ}2P(C|AMu%FsYO2XMwhw|8$P!k+5;F@ zoW|P@h#_DoX5fWjF6)WIu8mPsnuhDU^Zq9^h~Sf~uc6odP0@!SvE$Fvr%;go9{Q;> zl7E68gzOQl4fuilV%*(;6O(i*M^+(GB?a2k%Q&#z_D9~^771RuAw5SU zH$Hi0M?>#qINFJ~@O0VGX7?m9Sn-o7UgzK45HUZ`!#18LUPBkpgU_VaGBNz*Dxc0n zmyT0xAnk)wdd{&rKAoovZsT=QyB{K_&cmC#^F+2J9MNxeh?M`=#!BzLD8;9H-%rwC zxgsppv2MRqtG`t~JnuFdo60}zFhy2=b$mw3e&Dar@7%iN|2hBice97TcA?eaWr4?s z#QP(YF!5&gQ@;Y;`jIc9xQ3#W+j5l7aX59Ha}@TbvXq|P6Kz%_6dELvPGOTvzgj5C z?8z*Xn_(+c>G<42@~P0FkM*>YS!O8V2*2$(0}wysL);fnU7~1heyS#eB9!V|Y#Q*0 zpFc{X6RyARPcSh5*^(e2!Yq@5XE$A}&x~3w;>Mr6FDa+?qG||CRTcwZ=XCqSM9Np; z4d6teR6TD>%yx5AE|eSG4VSF?SLW`BeL2f78Jb2yR9b1`&d<5Sx)jaJM}n?`{SlPr z=mcDbY>`0rx_pnI#j=-t=;nk*Ic0~lK0W>BT+eAyu)%6ULzuQ&`iKl_DLa(?zNSvp zp3N4tTie+2{Q0|xiu3ls_;H6_Uw%D@TYSLSYE@*gpYZX;i>8;QK3o zcjMLHGy3+&myJs8PQUMJ>Gj7Kdo<@V+o+f(twaCvkm}#l3w{@WxuJ~pdY#>@$y@M6 zR{tg7rF=vsmmra4r0uNukm33OZNZh&5^(~O?rq=IQ2fp=tJ_QzYHK{=I9tztbgQw3 zvf7MvgP~ANUROc{?eFgUE(#^kv|eLZnOdntYD%V!j`U)l33*^8&^Zc4F{@>#hh4*H zCRC*TG*D*NmIG5PAwV$y-+(;ie(3iIoX|u-qd$Z%Vun_x%B35bke^TQ9;g#izxg=_ zM3~?;8n?o~;h=3GU8T4g1Ion{g`dBc{t}I#;bQ)_^F??AA`8YPY&GKv28>?QmZk+z zc6;D#0B*&au52g|hKbIv^Z&!xIRuHaby2!-%hoO3vTfV8ZQHhO+qP}nwr#8H{lktP z^yEZj#*WNU?${^KTHg|{$-3?u8{vmU?v&kAm+e`$t-_GuHddNuiAZRuG9r`|pXKCg z{m1uFn!EL!C*2&IARjf%RUO2hbAWx4Tf7dcq{;9;Bde_##O|@>Y*tURct(yvbHE>c zEq0pEhOhy@*Z=Q4FcgJGSXewQuGf)lv5hi>y!y-~-Jj*AOSbZ`j$=M-$nKEq$DN@1 z?nD`+ugD9x31})cNR%;|b2e?&dek8XEOl${oH`^lWgF$xkf}s8ccJtBuyYRySb*!9 zP4GE@1q8(!!V%GYkRE-4R*e`KRur$evCO;NlvMFfWA?7Rmy7lB(_~?zN|{si~!B(}RjrXes1N z_POB&^vUBt=ljg;1^V@%)Bq5lxt&t%z`HL@)F0|dsP?sy!gbbTQjWvx9!u$C#VI7l z-Zoj=z^he`!<#jAF(PM?wMy(MMbR;2LEcv9mXC(8{QGEIEAARN$Y4 z31DxLV{eT+Lnel!x99`s$eVp8lvxEbV&ljoe{<$)EC(W9p_R&&wo>lV14@j<%Qn)E zVr%m4q-FhPM|Tebg*AUx2^l@Z24sMhAz((2yXT||B6uQW61eKy4bAP4 zZK`S30V5iT*bV)C7cihJKmILcJSpH-)vVJNjnm5*LNS_2p+fqD?7R!^25(JXT{^a` z5l->l`{$OfnL^2ZY`^_^*49N>=eQxoX5ntlJtfVe^xKb$Tf@dQZN^$1uqS6`+GXT% zc_e{$gwTB?7v&_&4VlDeAQH>mSdGpD8RkX$_+kV#!Fra*sYna6v}!x zSI_d(UOn6omo4~GPVP>f1lsOBMrXj~DM>_fCX9I#Qj(x1bd0b`HUxUG3EOrkKL}ec zQ9A9{q@3htJ)`_fgA0?*DMu5h)(}5pK>$b4@&3TTcAZaRj_BqE0h7K3H0Y(YfjGHo zP8kI*VGw-gp`b+$NY#WKp+Igd^S5n=Q;U;QC)xw8V(StZoD{wT7Wh{@G_{?)rGj14 zZ*{<$E6olt{cHRLwXgd5B@cM}Yn{7q%Ro3Ca1$%Oc3F?eRl^Ur+)Tr;CZ^zSpGEw^ zB=4YAVf!12%=iiKMnRlAK~R5*roJX6m>e;&{D<(c)1+~WWcjcA`|9b_>mO4SQ{#s? z@G$%^=)~Q2UPZ_GDHZGY2;8dW@HEKHPH40^o#>x96Igh;=S@dB!9@7{XGL9UxG?Aq zxf)Q*ZVXg{)vb6Y`qy}pwaH1*+I2}K1Q}+#;VJe(kk>9bkkhZQrKh7i+sTWXfSAbQ zdPX@eXD2cT?0nN-%^OE^vJq!(1RR(%VzQ(vVrgS9g*5;0dH+*)R8XH^D$6wls`j;! zz&!I^gW;G#1@V!x5FMXcq3;`Ph;1hqOAoN>ls&q6!bzYku6AR3k`*{zl~t$lyic@U zI6x@(*t_EjWIi;QCLyO}_-Te~)}#jZ4PysjP(k&WIqEQ~8XZF4MtUhWT( zWK5!}gd}yj7(PyUkw2m-tx~0~lxx=bv}B&wLw5>9C#!0N z{-O4ME~#s{B1Pf#Cgz}^g}$)SH?jD*g>`PWuvop(HNk_an4E@mu5Ca!x~%j}l`$|O z+jykqkeIbGG6CdXT}!EL$SMbXLgT<}o+e){G`Uc$)J^d5+AwjMZ?K$c^~x)uq^rD0%slWU@&Z^dPXNy^0` zWLYuEi7sRV7u@w|soS1}mY0EYDio<&GiclYXV4p+u-XqTrfRj zO|Fbsxz$NILd-KkJ3Zsx^Py-v?7}M~^8MVr&vmnFt&Ga#A%^*RX+L4*z06_YciSM^ z@%K$lW*Cup*;9szzIk-U*avwMPQQqCrbrn+@zRrN^lO*E%H#(`!Fv3mAto{BUxznW zV{c+kX8NA{!148cf`QL7EcNE~?ewS0lX)vyLtKHJQ(#%%LHfWa z!!=p*F6Fx5spKYdeKk}#Ktp$Saxy}VLV=i+cp9UF#7b zqABI3F$YxC$}LXFJd|_Soa*i@D%fC5MK}U5&8^_2m(efSC(TykB1c8+x3`f!88!p6P`nr2rfXn@)AaL*Stn>f8pRpTH zxo&f1q!3&3EmGay+TqI4F@(ZHG8`alYtA>Axa{c6H$)w7F(r^+k|QB*J2R8+#3kb5=n*T^M|DYjob0fVEN@7$6KlQYR0bjtX3^y-FD!W(!67|ss|&fN zIXgoFACQ}0keR81MBC^8z9ZuL-RM1z$7iDlr60s3JtA*xZafWh=M!;_tp)8U&L?Q9 zQit!Yk3WviM#pD!NJZ{hbXks61bAoh9vrM2)=7!AC^e1|Fj$MdeQPw1xt0D9uOHHR zH>Tj1-LdP#Wo0)Al_`!FyNMI^{p}?X2DbBzB5RxIe9RWn!gB^I>IbeguBui9f>~nE zW}a+pU^k`JtO~~46`(^+0%5gG@->9`3hL=4fUOoL7X=5Z_?PF=$7sS0fEmCav>cqu zN}115*P$|2FI$CaTmmhF4meKS8i{nr9Qd?ezJS!VbZqe=>MsgaBiM<*^AC$OeqfY# z0suZEKYA@D?AF6C6{>IP;a^^cXi+6Eq`8-y`2C0cEmF86NL8isK-nI6b&)p{X{A}l z#q^n<9o`t{c3sxq-k52~C&4iZ6O5RHYRZ$zDCcek zvO!IhaT)~CI(Wj3R%P6ND<|}zNGO=5K@vIATPDJ+aZ7u0W0qIIyg9Z5kvLlI3;^-C zrmH(*!PDbB|DRwZ`tY>1EQcqjdS`Tc2epmF^Hq6Lj!G8IoLLKYJsb6qH3A5jY((BQ z3(GJik@4BMORbccw1-wc{^5RP_BDMqdR5w zKc2h0s7M9-di_0^au^A2Pui_X8m)xZeQk83OP(hU{$oPa>5z!427YZZt>Tg*S) zE<&a0c%|lK?kdwHNOV{ayE?M)drk%@j~2)HxJEL+1CAYyvQthPJOYd!11YY?=*LOOZDVv?=o4OFaIPumLh#>X8GS9*6cSw(1`RZ1$Zn{zivTmdADBKNlXlScG>ta#A6STURNAz4z;@50Hoe zVKrTD^hdYn`V{RW<$;?>?6nys?2w>^tZ(l39fh=881~qvSSEit;d(W1DdK6!)RCeQ zmlq$1=JYK|dZ-9=p3tLI?hUyR($SfYxeyX#>)CRj!`h#^dLZIq zCz6xPgU2@>KDP&)@`Q_zhQ)nPiZ$`=A1K)Krz+*TGU*Vt*S#q}u8Sj0XIdx?0zp^~ z>Nqt<72s_k#VxS}tRh_Oc=!1;sIA7?j&`W^K^l@H4r^>`=ZX_3NVW|07{O3x%4W40 zZy13EIFNh&*Fa5>-4R`qpYkyMWIwg2F{nr6P4yCVBaU-ls=cyN_9sn-kvzLK`=trm zH*J{mj^a|0Jb3C8INGnT-fSeWsvfn2GTV2#c*6p>FM!b3Cgq9HBlD*k=Qi*}vwrtB z(14S3kEa(2y9?OKwSV@O#jXDsiR<6q0D?B|HF!$buYk1wt|+=T8*9cTaHhurtEah3 z{tC+7CUT>O>RC~Ft8A?cHy6g3W{PZ8uq=n>X1Lcw0id02CB}T+;)i9bVLs#cug#iT z`SuJxvDMu8)CIPxEz{|iu~IL-ra~B6jlU&MA$G)rsPRv?Ac_L%N4-*AD!PX;g0UZE zEIVlbgN8<27+_m+EzamxQ*j2-u`m22Mmzgna99;#_i96wrbv~VV+Lry+N9>lGFXrK z+c6d=>6l3Z94`qxM7gvFN$$Il_bYc22q8Y;Zt5KZksT~n5xKDkLmUPZhQ->JQ+%c- zyMV)6JR)k{ox{BmG(M(;R;ZBphl?Af22Wrg%FB)3^(k_@D7P3B#0A*ogJVqL&34~N zzT+Fvn}Jggd-P({X%;ZNB1%PCrAJ|6cCfk$1}k-iWU8GozAQR$d;r~gi|fzRD`BV-g;A1s}7uWdQ$I9_da^W&!GOU@(V zP_~ipDDMEoP%3-vA4j*1txl_C1y6SX&2`G<$FB3$%4Mm4o;*2u zsgwF@2Eik8%)s zlxbZ~>aB)6Z&u}?ZC7@pwn(bATkc!zm_jblmB^f~6(?mc*7xSNCug^cV^xA%Tsa9I+7R;$Pv3J)wmj~%r8R>f$1?};Xd1liSy-ALqa0(wp znpxXdJf)lS&KTVLL|7J-x#uF%aG9H5f=#!%>oo)tb6|`8JI>XXMHDTDV_%sv8C)FG zDJs^~CXF!y>IXZJJz~k6jrQ$(pR(j`xXDQgL@N#rCf5vrnk5BY11%G63^Id}F}GIr zhs<-w`j{c3B_44Ulc7yp#gZv+cVv^HztA+>6I-!RAnaZ9DAgqW+9}nx z6HpG|WDEQt5rWk% z0|tfAGHO{cGnSZs^43<_uA4Y8Jsu4-*hl_GPj_%(Y9zpBJ2jlGqI+^;dAybF#6`o{ zAN49Ug6+f{k**4yt!j|1XSiec3kh5zEhtDvi*1-;psw zejV)bX-)hA`|)MnAcy7svgd;1{UY7tK_K#a+X2_Zf&JgDkPxHUlmZbNuerz=g%1t- z(|__S3kklA;xc{2<7q_q*3g7~A6{Dw-jh>p65aFDDZKApTL%rp(#o7o9IB;005dEt zyS?d1vK_PIdw9EBZ-_hTbage;UHLiR!uT&(?JqAnA){aLZ5y^v3xd~X`BQLlA2=lT zDx?$ru zG|2;ee#-{n;yOR@>|dgnf0vZsC*jXHhHehv*~bhMBAvpw5op~O2wpcpZv4Z45je#D zBIFXh_Q8z%K<;TTm%_Eb=}Go;yT^BV1EVsLnTR}tJjJvB$-{pkBPKJ?7rb7ONBnv> z+a$8jp&oyJkXnD^8oDd!u_S-6iHGFnw%A>3f`59#{(`PXAM1dn{sySEn^q$?5ujX{ z>RAtCHj(5Q7~Ecy#4$oMeZNXB+HtkENR1N%aB<7`J4Ir^m$4Z%ZbaXq141ij^Y9}) zS;G|}yc-eSPuvV5^;AWfOb|xnJW9>0BxlHtetVVm%8wI#d?$V$Sd>{X!s2MLgnL3t z>koN9ljXrWFA?|(T+Q?DZ>~|~(TaSjh}gh6F9}V-J}2>oeOk!#W?z)i;26#G1|r>% z<>CKQ`7|Go~|#U&<2HK!EH+ugu9@=E*- z5aoKxrWCk)UeoI_-8y5lkTdP7ML-pG-PD54)U)|vTACKY?i<8MoEys>id$oMb zBHr?|d{77UV8<^R{L)5GB+|&L5e37qrxL52Mpw;KcgB@PuG{JE-=Hg!<*amqZDPEv zK>W6(X=c7#@LAJmouGFcEy=w=;bx;!*r)7}lE6;J=#5Z3bKK61PxAPI5zjK}z+l!_ z*ysBBv)ioS;WN*e{c+f5EKNn;WnM;e!$V}#j85=B9RRjmrcuv=Il{!o>>&amwf*Mz zULaA2fM|)(i1g481Xt)=KAYzLxO?b0-iK$B6*J@YI9mj~3r&BYZ4!tb?di9krJd7b zrtRlaw_*-a%(2Z}?Ky8RR0CrRMf&;rEXR6(87(BO_&SV3xJicC{F@-hQg>P>6_yh1 zO5LlLKxeimp6DArv=x=QpIPYp{V7iG$S=a*BH zwZfC+i?iuEErQn?gzowt$hwFwIcS3g`ZZ}Tdux5vBmwsRV(VmhD?e4xywV}Sf<|8} zWe-&xwS?CL*+I!q{8QXP@EX2AqUUQtF*MgI2xGOtDj*bim^v;Q#@L|jv$a+mr4`e+ zEjgm8EyUhRk|rgLKeQZ1uX|)DlkI+PWn6NL@bD;;vkf3>Qczs`=?2NvNKdEkxK-G2 zejI4iSZ)KU&XVStf3lpbuB&AX!^)mhK4ZyP0I!StaF;eUunS7S}p1@C?CDM^SYRsXHE({X(lOXH=e){ah=C86ZD6(NU8h(4zshHhkkm9=Z@i zg33!H!TykwgCq^fRa03e6F$#47($!~km8Jdak62NfJN;dVpS^>eOSQQJdt$Dlj<%Yp%8cz#v5W>n@Y$yatH`u#z(cEV6m~#&OEWV+32+;J^AWRMN(R6X?ks6s>87ki*>`N& z$c=@qO=XIEkDAwL+((C5?{P5=TXHmk+LR5V3qNEvQb;BX)EVKoD;BS|`BtKCB)atm(FF z46esth4OmiFgTFWw-L@AMU=G=O~7?(LRT==jal!+Rt$yO8n(2=2eGVPtvRJzNCbX% zOsw$UzNKA0!#89fnO!<-IZ?sOXAOrel2ZJr#OZmYc>B|ok`FX{3iij)_p%yu%J{oVw%1aV$(v~8(V(km)fgt0u6uoi>8QJz(Cg#z0n~jIsN8$lW zwqdN0t@1bMy^k6;T_rs~#d`=s2u_A?%e*Jr#NLb0+JL>;fHoRUeT`~3k_Oq}+W6WH zwPV%^L98dDlohYMg5TrU375<0DyOQNZY59|Nb7{v&Wnhx@NZ(+Y~~ zP^M0D5QHY@$HaP6p>jdrZY6xfGf4klNJhEpHd=U-vWLKxL-=`qjQJZ;F7#`dN)k~K z>*Txa?A^);CO!J+d#__A?@Tb35I8)+*g*2h(IM>wm$8Io>G@fN`i-K*K9@=jhx ziPHH;B|GvTeIIlW65I0bcyj|4^!>ucA9`i&(qvY>)oi@YSh#D$nr9mu7UcF#gcz6% zJaxnvB15zcdP94JmASEbP7LgXfj49ppfsAqQZ6zvSly-}i2OT8otV&?z&mvo7YMZzIjl%^7TUA;ZnX?6816bML z`sO9vm%HDPctKhTx3${jxTmm^gax7e%yqp@=XfxgPSBNRXF(;lq@u%`Tm3Ra+=zK?2nTl(U|N*wJ>qt@J80m@+%QE`DUrc2{tj>x4>S~di; zehH!>i2G#51|feWVW-kCt}r6S_=ZZb{?KhKH4lM73BMxPLf_J_zu>YsM5nBwHy6Ox!ZLpn-K)^!KAtf7J2p)~{UBn)^byGI+U2z(BuSDD7k1<Yk1a;a{Yt=F^FFZ?GOT|o;QCj_j-0WP<1>gKDm-1IwlTb7e@i9Q z)m$sWH9#2nfD8x)O4(y0MK?5QBqdjYQ*E?YAj6h&QtjSv*~A1MyE@&Z5g~vxPg(3M z=oTebi#(3(4#XA9mVtwhhCS;;x9H0{L@|(ll}VI7^0(R<_SQr(A8O1+f5j#&92SY+ z{9VU#l|8%G6Ofk(%9h=MKr!3FN)8_LCv)9escBQ#KSStz&>na;Q)@7NQb&$u7?1mGf0=mRFL@<2^v5P+QQn*(=5Gv(_ND%?(`lhBhjxKg z{L#b_<=J#fX}H}kMIUO$Oob9^<54jLm^Ke)iwwo9DNSiYAm|EuB42Utf0gj~{*_yH z(ngdc-mhzSy`qZ&cbd^fgeQgRsVVxZDOgvCN)6z2<5f5w!1&)HHIyE&o)l2$oZ273 z7dLCBdJJ6>xGNVu$AH?phhmI7Q=y7g@rc#dPbfJIOb#HevZ6s_GV0LS!d+mEKwd{_ zhO1NhyZP98$)p`ZM2X*6166YR1#Z7JceE{lG}Regr7d?Y@nu|5J$6!N{JUse+lIO3 zo1rLt1Qud~3vli!%PUzjDm0c_RXZAfX86G?vjr0@5c zO5EAVAG&#bwpAOWJ&nS}BhK(WyN+{@DvBO30gNEf4tO0{ffzY8E(kOkO~o3|n)~hn zk0@LTp-@vEU_CDkiiS;XMZ$2@dv0D$A`nbAUM?&T4DM_{VrNuU0G{Cjjy0t$f>=J< z-mJCv9*2)xWs}h{I<@mZ<1M%-Lu+?GKCZcUI8AA9r|3tb))CH3d7ez9^1|~>xvkVV z2MhwP@?QGiPf-Ni8au`hP83G|C+ceZjl~a2D*tVO^qRS4;!sczZJ8V$+Azd(?c`1h6>Bhen}|MtdzM;Pm{+vuS+4&rSbtDhBL(Dwhxz9lnUx8)z;^C zMd5G-#iMsDMh$){6pu(0Sk18*_p+W#+1+>mR(9Di(!);aovKhZ*pe#&nkP%y9ohy= zXG>J+rzO+2y^F|&(c_Hr0m6)D3&zZYy15F%z@Z*oZq_nlc8oi~qQIOMyP@pW?mEYV zP@_1tjz16xI|_S8CPw3lE>({V-%{shTSrHWMNjvxL~Nc)5|RK%6pn(+_skwwvLSh|J8qsuF@1|gASl#2|0I+lQ_Ns^Pa50^VPN+==Pgdm_ij{v-} zSW1Ffqi5(gzd-L|wis0>EgAcGcf{%oE4uF||Ln!98!>Oq8HH7M{f?*cKPW=s>k)>g z?ugjZ92MxD&)3lE9Z`k#8(i0F&ORz1F=W-b)bH#S(5Oh`)47bBh^~VE*Ch zHn34u$c<~B0@0#~-Ogh?hsetvXPp{UsX}ptY1%z$s`9L8T8P-4U@<79{u9UJS6$3~ zIBdyFpAahO+b#mo)~x0M)a)1Br~yk#$Ku#s%?rZiPQy66QqA`oYvPGrP-f$AyK%kRat049XNg?+r0V0tEL6CzwN_@B~DIj z-|s2d-?JThi2K3fL%AV7ISB00#p3_UI8IKdV0H83$rZ*FFB*yVufS1q{eckYo3u7J8XHho%J=ZXJzn!I!qdTn6QhrhPHZ zWwXJyx6*T$EfLXIWJyEw`ZT5CwDt^>2u%YHkr>tF-~Zt{{?D=w)*85P$2CDz`R>!w z5r{%_H)99kwlP5TDWKVp7cTLtdO7T>%eF}rlVxg1m8MIa$>*4lF_AAR=TL!YM-htJ zW#ye;o{Izr%e{Tql_>S<*WF5qnbFNEYyqqDc{|jH`k#P#12re#<9Gm-$MbFgbtd`+ z=OBV&%XkS@W{!JYW#iHnr~8!}$pHRpy`YZ2thyAMU?Eism+REv$o{u1A|y>w6r`xmFrdnO8b~n5X>`rzh9uAVfhitW2~#wg2J%`^~L|%Lc8M0 z;rV{L!@>Fay5ISEpeuY#8+OayFS}^p*f(omNEudO@EX3zIWRK(RW`3pK5Via`N-}# zepUJWv@G~&dzbq`jrkntP+w0TXC4H>^ZjG(qfe2)Bl=^X0xaQkO7rcylByvvn* zvV(pF^JsTJh|F@N3yb^!qcYy$+z;h_MA`ywnXs&yxPN_JJKRg)k6BSiP>&&xU;G|` z|BN=Ori?H<`UMYxKE1o(s3f##wVAfPa~6JB8enIH6dp-iFTf-G60S#fdPg!c_|jzB z(mCy%SFAxjJl+h<;Vw2ms&%M58y0zv++yC0f1dC(e7fUn;OJ=Hbd1y=H$_Y?Zya{^ z9VTY$hmi}j+xRnl6N z7m{ukDv8XG=%Jw(mdDP9ln>q9x0HPW zVcnTRDGIi^>LAg(r3A%UEAe<3+bG&;==O;SZ|EpQHQD)&ipF>Hsb&vcI%c|+UhZ4_ z3$;H-q6m+?xUXAVYK9KD8Qhgw;%8rppVpayH6wuvHkOvY4`1B6Do#4&I@(=QE~~p; zg}-P$qf?HUm`l3bHU^LD6_GiMCqS2U{_Z+H`J}t%%=|}2>o%>?VI0}`YCbz^lI|2d zSW!jxH0nA7?SdsT^u?Nc{eo7e3E1XJh_SvI7!nk^K}4$@1Jub_wDmjMg0K8Ve`v6K z`s?g(YhjKJS)ht!4n(s?dPx*h511b}@RVfB4o_Z`ahG=m^_k#b+PZ1J7Z7+BaRNKs zt-qahrQ}^}W&1r)Z5(2UI#Vw_%%VqxX_`nrCgWF%M->T%v>g~p-RV`Cyx{(^N z^Y!oYa&iT~0hn0c6+mBrv3KI!7Tnv{Nrw4p*ylh;d~Op^8mR%^Ge-Im*18X`X9no? z)C_h1y&(%ZHX<>(wnkmmwA{_Sj=6!s^jUeoAo$K(D@gXDP{R@8S8$ATe?m?!!+L~F zEXmYEl7vge?D8~&is3j@6&@LeM@pq?uC2s7F{V_O=p2Z?oL!$tp3T+SHVb(^rD6hh z&!2MbIT6@+;|pqQ59y<_c_uP1#)OBm}*_8A6Ogh}dL)TX{&Zh_XuFi-H8d zztQP-oL*^kEj3gdcRK%EI*L|jX`#mfdKy0tWm)OXaB54QFp64uazd|$J4V#g`qpvR ze5Zn19<=WK>PdX$$=u?Rdx1H_`Flbh1xB{uX#4)ZkhC&Px*9 zr0%hAo!m9>5WA{nt!lX<((<3N=H9~@x&qO3!%{j@6u*y)n235`RTz1_#YnGnd#WmI zblUDr&z#wC8|NMltqYTG;4~gswHEzSdr)Ed>SRWAL@}DoxYVy0Ajpu*z!DG$>{Mt`%uH{8a0jcDFlS14lah77 z_k=z+dsw4@BXDS^vyLvmb}qLs?_;F_uK}L9ncf$*YTb^#>AwoOPx&FEJq$eom(Jzc z{V;S|=M~}lYFR_UviB%`2n=vZP`BIPz}lW!(EF;E zP)R-``Su(!MoYiSax6Yj3lxWN!lqkf?*n`OkxhF<%b-^~4kwc2GnFgqc#P+wA55RG zs$L`&tp-zl1DfR1Kma4mva^-~m2=S_Cis-r7Kbx7wl3O@fZbPObb&KWNNatQ4!TqC zhL8n57h!Uh7vsRyI3Rd3$U{-UeuZ1r*`S5CLo!Wsu2r2!2V*?2N?FIj*u;+`KaXgq z=%FDLR4F?I%-CC{i*I+-v=n{Ud+B1oMKt&q?!Iq$kd21#th@3a!*m-#_p^VK9&?Uy zW$Bb+<#@h>$~$Tx5iA%_6%X2QHU3vDN_qA2rR_ny{7VgUyG$hhuf$y@j1EBnr=Cri z$NN)Wfzq8CLutR{moS1XOv&NU;#AJpkgoK@k;+Il(d*i-*|+702KBpTx5&Yo@L!zi zpH~{3tFs>O!G)jhP5`Lao$J3Zk3ZBpn?BlHes}lMn%)P@0V^#QoqtAFD4j5wyuV*_ zY&EVtcdFGV#x6rXhgi;!T4iY>esa6bZaCN?-L{;@4nrdXT2gW&3wk+$kbt2g`xsdc zVW4&~5Z!J$x8T`%BQ!f8dnIf0~d$6)7m10$rH? zjwZC-2gV9-%_3pt0hUuVN}ejEx>As!1tA<3pgJ9|R6WqV48(8)8KfFLZ!uLZtr}%S zT~)nvWuG%lys=r`!Be(p)=t`>)6yV;*D}`$jCprGSS}Y0^^- zgRn>pT*6pZB31eooQU_?y6sl_GS}rG$J98f8ypF!e7egcN@`)8p&*4|@Vzw>H5ygU z9VUGvwxB-{_{>cGEF zgJd)Zs`3pwZ13R+Ma78R#Rs`T7##%1*U-jFK(sf0I0ewa5lL?|Biju)Fkcm%MZH;y zfjy)U)v&q3D6^Wz{XF&L>} z&v9UScfl`Lco>8)e zc}>WmdYFVld*T~4@&?86~vNy*C~XJW?oB%2=;h?<-st<{{b7DJz8ht^A>a< zpG-G?FD-h=iCnAX?Q1M?9Ohk3FjAIA_+`_<9AVNKH2i}-J%;bYGWiX6QXFrpJU8&X zKw-)Y)?_fA1Da}j(>*qXI=JUP(dA@QX@$@BIHv24u%WWCvDYpkUFz>!REh|ga8jB{ z<;J81E3drEMln+3K@iK#vSPp!fN8tF(?Vuc(t0zsKKs_sUC(f$K+|2;5Le}d3lr1{ zQvrMvp?f=jANVuuPB231M;3=jd}e|=xx-OgLW=y5by4@GX5}ZH{x=(!p&0M%WWfOB z$*q~(aUP2qLfb8k4=AgVUdg{7FyxR9Nm0OU0dO>G3MX+RH3aeSdW9u!bb}xFA#xE6 zqLFha+p2B}E*{n8#dysNc7^I5<17ZMV0TQkr@1LDE9{UuS1FvAr0TiI6X=ekJ@3!f zaPc3UK+_OKBx&_GX)kzw{NHz}=a38Y-f%)lSsUcJX@_j9g^1>2kCcPur*4Fvg%ILW zMIJ^Z+e(hZAZ8PiLXCFgQAcd+8bU6CK`;t3GZVe$^2SKS4dt;2ZFyz#kXl&v3$evb zk)^1J>dH)ZZs^`4;XUuecs8`DfxD_~&s-re)sQ@?b|Fu(s%Stu^&#}rKdH67>j)GM zr11mXdy76_KN?i2$$yy479Jnmv0IhGPrrQg&oHZybmGJ-&y^-^je=kUnV+~sb%SaJ1|?Ah8jMD{{w$XrIN@2887Kk8$7PCW5d5kyK<2FyY38I2?_SirPY}!}S7;mN&5|-YZVu6DD>Rr) z=HKff19ple=eI$9%$Se}dQM_jb87Mm@=Cl52H^O5%_XGt^Ta2T?a!Nz17Zu?(1{P% z`t`vXgn;7^eo-)lnZ?2(#-^e(w#DZ9H7a2OC+54$%3~V6*&6#S*=n`A_o}Z7XXsmc zvn?>buB9XKi2?Hi0@GMX)P0~V>tZ>CJ*4(zKfb?Xqjj+_4wh*a_haiAFyHc;L+BuD zWhskaZfsv!(Q8!tM12Wq42GfFf9t}Yui5W0jen9IyYx|5x`=Eq6HhB1aGCRDCV7$@ zQUX0Z_x{cSuE^)=0GiXBw&K(92$*mF8G0_e`_xwW zFWOr{Yt~n#zh+Bp$oQORjPGhkU?A|uLMFjZbFF8*rA%n_VUF2zr6@2#kIe781AIn6 z79wAJqS0FNEjToFS z^4oX%KYc|M%?LodhsJ@t*I|6>yaI1#m`)@y=SlpzP5bzM_mE5m4L-o~@)+q__Y0Op z><#-H8xV%iv!;WY=hSNr#=n@h_h|U$wS67sM>fS zw0E1L97*9Z)Of`ZUaNq;gIKp_FeMFO_b37741<(jJ?Y~%*3Gm~r~@>M5=NR^G#9Ua z2kQ$&K2+|Mw#Z34p*iwfzcUYvHFgO(d{M%800V0Q+D6n~7s>c@>((A4{Ay??C3v2+ z6^RgLvIE7uO3crhf-CDfHR@f(?iOPJF)_G9;@Q-C)U|7zBs?8h{G4%u8_mqti2!;@Qq*rE2%h< zhheL4UAF((F~lxE+HoYtzjM{5&p*|ArvA)Es3IiuqCpUIr$&#A4l%wIHPbgyPN0vN zTBDA9O#W64TRxp(q3A}(-X0i3h8}Ln6?bG)$vdb-Ds`%&SvZZrP3J+f7&}O9luzwt zFZa@j7Ty57ifck7otzIee^yS7^eCEZv!5!zG5@prq0y`f8;dQzz2wiUT*fg?#lx>z97Dc4lNW?aEIG6!0r#e`ULjXXe!f-H zJH=enIIdiD6F=XE-(y-Sw?=*WsAv*iRG<|VBidU9zBPnejxBFOZ8?A6Y&;k2rMBwq z$;KN)zQnJ^H@hXQn0)_FoitsTFak3D+fgCg1qSVc4z+6~91cEFe zF<4tXN;skz470%t)ypOgH?1X;D5amDM^_Y$x~mY?ehg5T16<_MI@=R_cuzSGmx6v6 zk66WGLY>|Hwi16iJh}>s_`^?})xY`znN5BNE~cQraF7mFm}PCuJE$d9NA8*Pqy>v^ zWl`p25_TMx+4vQBD#O2<3V(8jbr^{LN*$(?k%hsh+Xp#5u<_sOw+6oqb3Kw5NnmR* zEla=?I#Z#mR$`+14`N{-;);+xXR+^IGQq{eI}KI=Z^uE z=lTO#kmptS13fv28Y4EzO&G8Q@5svfLLytEA_FuJj3uQQb%j3Y^mQH$9w{H)yaP1- zZHo<^J5g3^Y@BoFrXs!Fup6xr!K54;emxEFTep+~z^w;JW2$e{~ zr;(Dr7yF0Sy<{48;qNK4vh(*RACRAf^ZdNx=qr@yFkHH&kSwB-g#qy#&lp4|kK^ev zS)kvznK*#hLrE^0R6hfYpEfHOd>Wm{AnjeT*nnBO?LAYvRK9dM{;Q?b%{{qR&9}R} z6%W-3-8bW0fH(Gn$MDqe~%A zDkAUI;IO;W+O4DqG(x(TMT{A(zQDYtruXy9Wwe-gL0(^BNVp%VpK`lFF03>^7Il_z zKPKYIE$vCnY4q7TzOg`e({*aF4e*n6s**NoL9Bl4hrNqr7mPE}>Glqmf_18$L7(6v zhVip85w*6(Gn-BV$o|009o9Xux1|d1!HZrujN@$}J=QsNH%b1?XF_Q#a;=3l;QswC65m>$##(=7|!$p>s+b zh82p+ut5e)ERCPc!>BkV9#&14ZCSKnt;fnU-2WzGauxGO0YZ~O-OV*YJI!f0~$b@5eu^Cp7lpZg5=GvG}{@ZX4tf0Rg5Z;)D~&<3(pXOlL4s2 zVwh?5pQFiuVZ-BN9b<^HN}A7*slz$Sx{+$Pu0`r0+NPP>JG4+wh9`Xs`g0b9C~itNW(|B2aR~QUvkv z&fJlgaEMepShS#AA;-!WWYintE-@-6VOA5*A_F%e`nH6`szcnKM7rsSR4)||?GRrQHE6o1S-G>|cFGe$(Iv=dBw%v5P7+8I>dZQh?YtlwGNm`0?vBinhnSzX(V z9mmER1UO4XA}uYyZMoXOQqcbP!*j{266R6mg5u)}HBN&b;q2gh5)zLwKjkd2-12os zDO)>73PcdQ{*Cw-o7jVoD@xb5&bSBMdV?k&!9jQKHv2X3&QNo^!~vobCC*m=Aivga zgXYg6Ym(IDN?2N)*}Z;(i9PtEEj6DdooMxXMFw+%=N8bRIz2*HdY$X&3Y&Vj_Zccj zL=BX;uIW_it@hnximlqX`9I6U##%w~>E<&l7Hg2DJF*19lt-(oM)780;b(TeSD;00 z25Pu%SO3Xa*V;CBb1*2ia|Wf3PK=DxIWzx*SkOmcOaqKXos#lt_?xmd7;@lSV`lz? zedl>2tFfhunk}N*jj{J9`m4`pq<4W-Qus;?|z}))X>700@c4nWj#8al7Grb%3 zYIHRcSYTbe=>b<8KM7k%HX?FqPw#R6b+Df%{LYcLC%EmFD;f;c?0Ja)Y!9?uY) zae7HlR_*=y3^LEw7+WX25*1SRjx#wKdh=^;pMwrOV+YYVAAr2{LIl7VVY)Jzfe$Lm zMAZ>BK(1+B)DLw;&dr2!k}$;gW3S=}8VYxRPA*e7|OOLt4Z z4O*d&GOoD~7;mOVr)IbYJ4!+u70@tU*Ej~;9y9`v04D1F_dnW%bMA&-e66E~DTul| zykRjE6!QUgdlF<1oR+j;`nz>0$V8$(J%z<})3pyM4%(fpccKR`CCI<;8j-||2=W~e zk4@y^3fwTWJe*DR0OOG$XJDP^`IypzNNmdm>lIW&(aMS_uMs~RtqM{S-&C;5PE+vB zP@tImPOk6W@=5fqwG06~Q$4;q<6$E^Iwq5tLaU4>-lG>>*!K0L8(5elHdv+IxsD(p zN9bciibBrQhvsl32mI4RgeWbSZYx623KCsM^*o|J3l(dg47vvj{K>iVRL!k{gAbE~ z$u%K3Q}9@?bf~pqGH1zxw-uMW`>T$1xs?XeF8agAQVAcm0zvKu89pcC$GvIE05Q-v z8SzVp*BFV<{gYz8Z%c1s_l+gQy)#|MY(}4uH=^QxyeG=LBMzfhp4JVE#|`r(1&yATI#ySbMoqW7rOu`_odTk#e0fKCzjXFb;`pFsX z@C0(bbivGM{*-gFFpvBGKijyouX+@*`Q13(@)wLJ?B+QlaSe;QM#fd@$fEj1q<#l9 zPgSYmlse>+TLL-yyB0$f@wzMNkiBt?SSChCu`kO(_sE>4S62ldw(iIv9!+g_LD63U z52+xIq=KR)A069kP~&6gP9T{$k{mb09$5)F){fy(gk3`)^o$|VfII03ZPEw70siPk zhLNsPeA62f0nHKYj#NOYy>|m-3;nN!J}8xE`ZF7PtKLuzf(m0UJfX9CoVf>*@Lt;R zhadn9jg$xjJJ;u^2A<7PNhwb3h==tDoO0*oXLNbY-*BWa+WdBdPOS#cO`*(c{-3)1 zEM{4Pj9^Ny_|}@)A<+|;BN!Ml*G$l4Aj7+x}*vfO4M*T4v+n6U6 zB*1bI#RAOkVfy-m3Q7v>CuO2EAlFq?qx=XzV`oAwFO1w??S<7Y!rJgCkCT&j6}Kt zkqjDc;D0^07Nm z+ioBS60fWEix2zbJ4t6$Uwi+Ww95ML&E$eyjf+U`n!PMRlaIBchC%@bIkNpP?E}0_mpwhC@PuJDo(V?7G_L_U-GE zsF5Q^NqV!o=4WT4O`cg;V$H!78nb4bkcuJ)q|ge=H@w&nY7)|Eden5+OnS!%s{N$q zf*94rD`EfxM&XEVm8Qm&Nv4B|w`LX^EB_0k|5GI@-Hu%%}`wCNrjMe87 zn5fdG4zC|n&vO<*jA6tpDN+qdm(a$*?1rE9{Ovio8ptzKQBwl;fOGnUEW=L6K{RJw zL0SXiIFSn)k^YQX#-YC^fx9@QZ;zSxxQ*!GSMQH2x)!+EJAm9mF->uACsRGK`S@c+ zf8+ECt7RyD!nu=+RxMl;8PM1^OB3MHgI@RKRUc%dM;QlL?V`(iHbiD(eARSOvYj!2 z9yNvDnafR=DvZT;D;HpS-2gxvAZZ=_eKa&sQpb8%3~I{fZq&zkaq>BP5_Ik2OUhgY z*r+=zf?duxB`YJX$2ZjYX!}^4^WdQ2#=5}HTzQm-gH=+uz{yNo+)!={YXLNbpRgnO z&&HQ;5-c?FWv%V3ZyptKsA!sws$eaNhx%_JH6_AhN$tFSCcnQN-*q7%_N+f^40BL> z_>&ryTm$776yn^19}XuGABB@m*Np_d<3P@tRfs z6o*NZ`@xX5kfypL6+@7P7;E6;-st;tV+QvbKAO9TF8cq8*maQBlvt>*!iX+Kmy6#C zpWCu)3_~;^VrooQ-O!T;KHALkqA}ecupE2!#Ciy$7=S`37ezi zn2l4(9O?XJr5N6c6|;lS)pKto0D+yP1ANwr>G5;!IEC3OQNrFFia4sQd=M~Lb{8vE zJ5V7=5U+2V|MC??$qf9yV(w$Hz0jc}H}&j@DxQs-j&=V`KJX|gI5)`w1S{zzfD0wk zlQGEX#K=<9T$d^2UQ(ZjdL%6jOBgSQZDaD#Do@g<*cZUIu#v#v7jS#%4`5i|JwsLK8VnV`d z1i4p&xm`Tcm4CGF?!{Jx^C3udrZPM{#G^NBnidLLMvjeppux@8YV%se^me~83V+XT zc3+?M32@HN!tTEzqw8Di z29B)*r~aOL?gx;>g9)xTQh3PHrflhxypJIjF|C2Bww+dTf@YLy*?503*0%am9wW_VH^@U%jt8F*&3bTEfI(iN^)MYRX}sZ`H-R;_9m_Q|z#6 z?MvHq)gC2CZzQFf?1vb_RmtFI0Kl)B&A$ z=T7(oTTUO#{G z<~~5Q3T(&h5;7SshtBn+C-KFM*Hbi-!YAoDv_dg>miw?vihTLCqr$?Jx@%aGwz;OA znM{+*qdMV5(O!C|L~i(if>?%Dv~(URukB=FcuqieQ#yI4S!Wga1JQ!SS5Z&-QSS=g z(7%BF3mKrmt61w5*756Y@Y|8RnOm@F9(tjg0wxJ?X9?$Aw{~o z0srSO_sQ7fI!w_S$Z&>b^W7A_mD7*o(9*Xmjfs>9LO^+)pOq_Lc2;2{$2A(m6^FQ_ zM=ne6Y?ylBn`dn4@4FsB+c-H2*8v1&*dl*BPUS=&){jedvP5;aOtv18`ZL2dEp^hR z*^P^e0F(Ly)g1`N{v8Ohchc6Ey)A8F6mM?X7!rF=*2@R+2v@uKXkgJ>KowrZn$~?f z;+k;!KbBj;>02O06PX84qkXk$ct z)%-&LeD9+nj!P6Kgd=?mlUE)fSX=i%b2P)M1%fBKW-v$^g>GQ8AgGY^EA(?&KG%a# ze46HEPmzu@%$W3rjxw@P8q4JXa@xR910z<4FVvkBu2W{1#0gUMublN8ha`op=RMkl zmFILUm(OPCm$BrfqX;03_Fn=^6U{-BzoZCjjRwMn1)9{b!a+A>96yJ1Op+Qh@$-D==o3gxdTdj7DmoC)KBAa@ZVJ6?ZrNLW9w0wFIFQq0VXpPme zL^pm<3$n@t%JbYCi1L+vkO$9W`LFb3qMdHq*34a^7uqXlK5C!hI(Lej9lYxlqVK9D z&}ANY_6aT-H=Lu-wd559@eLDtIptFQE;{{$*{(XY!89`K+)k!MX1_D&+!@snZR@;9 z!i}@G>gPEqQdFwLHP*T>;O1k?rn4sN5=L}ps#NmS?B|noAd>*Q>FBNTRG2~^-b#6q zW?CaW!?k$fY_>@*8_t(c1|MBynn`>kvx!3?(ca&aGsd5EwQa0Ig(8gNIm2tser8UV z@!;aSE|)R<_i$J08jFw~4{8UMR;h!Nhj20uAJ6G`vA1z$B-= z<|e}hhQGx>g~|U#H&hyC8JK43AF-**G9L}$&iBiuX_Im=yy>CG5Y5kud#fH};<4o~ zc(%-8H*OZUs3SznppzKM=^xrp-yZuWdNt6stf@ zi(C%=q-9kI8)?{)bSzn!j6ZV{XqE>e1Ye4#{l>`Ur+2g}NxcC0rx(M2m1?+W9bH($ zJMHq61Sv_hex)x;kP}CckURL<^ginG_cQx#q6toF1Wc}0jVrX{mVau<1d=jK-}rN?wI89aR7(SkEfx(!U&U18;ESgj&yML!GbPpiaP z8ajiEhur+nInG%ol=xwLvO-QIr_T*^k}eDgC(6WP20h-CP(6*(KZ71no+OlYBf~TX z8mwuW;YD{{hJLWIRTDi!f;-aU-pe-(5?Wk#!s}69t;mCbMHeGHgGe9yr#>yWX`ut&LZ-XHPI0&`r1JInixo3qsufhZfo zPP~^mu^qVB6M;eq#mDU$SX~YRPP=yWQf!8Cjd2zj&Yt>N@XjmEkl zQNn7ItE(T8a6HeFMokY)m$1w$y*{Iov3o+1h=j8W<8XtYMob zyKQWRQq?aend+SnFZ?=L^*vg0F}hC!BkN6pZ4Syi>d(^Q_opSpO)@My*Sbi!-ESA3 zF~&KdC}*ZN(qX7X_4!oE zYgACdQ{C)Ip&hU^W#K$x06GK+)9BOi8zBam*~S;DSo6lHl%HgWm_Sq&-#CKq2HHJR zrs3sJ@zvaA_LnR|yVqZoI=KZd zwL5vG%k2LDz6&)9S_ionF~z>a!K!yx-&DsnB3YV5A=F8qitU?3eGA-`t4V8$V8AQcnGOz@u9k9AE_xn_+ z{X1F=^{jPG=G@gkr)5zIJFq;2i3eZp zHGM^zz)I}gU#Qhr92!s#23IW7x}|3zkdW%uuBan9g}Fo_@xihPt2Sqe=7nf0Us8*{ z756>v=d}ZIuI+8Y6l=+JBL!l2UcRveQ|VL=RrH+Cr%ms3yRTSEd7BfW>Wq(yTI?7n z<2HM#z8iz&GK-0!rz^QAYU`j|+9PAsno=r|n*8zK$}&b?joQLFJW$EnvtVb-2*eop z(eZ!uEY#B(m9$yP@%UnMs>^Z1hC;CWAUpE{D6#cYc@usG)%oI`b z?25kr1_`22!qzCg{d0JwZZ|wlHEn-l-!o@o!KfiSU>>S&7Qa#gNMBVWr-=0jxyG&} z`6Vb(W&dPYreR3<(-0wpxRkNPD}cybdTK>BVCxJpkb5`t17k>O_OgPrr;q8%TV`r| z8l!F~T0{+kPGC5l{L_%PB%al%@qgx~+JbVy7Y%x3x1W(uI&C;TcE7MOFW#t$*%|2l zjmFc8VM6R^|DiTaUMFsNNvBq`Y!m-yxVNmFW}|CG3lY3bu9~?s>4(XX3p=F*qdjlr z6JS|DfdG0M-TZOFv<$-3!%s@s1=?)CtN_V=TDx^qTAqa;yFg%%HQ98ykgxHVL-=Nl zgR=y$9IlGQFU3Vr@Yv2>UX@k1)5Eom$vf?qsc|WJa_$eOkTvr{ z+cYdYy`J+g0up{3vh2>z>|t^sLL5s5zqB2LNx*W8diLHy;nDJPg!z)w2}3IX+IrTS zI&hmMWn7C1qPT*_mXnk$oc|aO2XM%Jn*3uFXE55v?673a7?IJdQJnzVKx{G(MT!+K zOqxS1^4KxcYx>+gQPG$g;j*@|e!ju}UCw(eGf&|MU))KfZ&G5AEtza3BU_{=mWEL+ z+|)dq((`CF;iEw$60ZVMWmy?014%Vphd)-9-XESeiNcXYv43rlW6$3$OFmZSgs$}} zsoblu6b4mpG${5Jr19JVqI?IU1gd;@kVYOO9C}|1i9)DYp3q;Qf%s*EsFg(m#o2F39>S4 zV(#WDgwL~AIOW#Mniln;=ixm}3zXU0H3wEC3A_usBzTj5!6Ut5s1JfegzkPU6?7+v zG4!Ey{J5Iw7D;J8&`qYF7Lw8!y#2IVw!R1;hzzUC9=5!_hqM%E@|Tj_-10hjxluru zCO`z^;^*mh?c+*}|7D?HcH;jQAz&Qa5t2~9Tt3ZIe$%k*R$EXc*q%8sA?_^GOj%Gb z|4X^KL1aVV*P1Qa{E&Mk#7FmNAb~iL~%ssXrkvPx)K4u*0B zsaV+H(&!35b{Kzjk(~Qj$jS;0qosxBADPurhy!dC<>Ilv+N3>I`QwR4Ghd7p|LhDo zc`|2B$$q4|{`h8&YheCobo_s6L5pJeVaRf?4EErI32fb@72w@`b8nIml)LVlJ%n%o;6eqbsE$t z+apG>XB})(>1w!C`V(--?YrSZ%h2jt2s5Yb9{)>+z$2std>16XuKZUV8EgiwWQI1r z{63n9YRQrkpe23=KlDCfjM{u?e;p+55**0&>O-HpOEm4djzX}dqu@y#6Ho8YJknlB zgI+h{?llZZ@w>-bafCqHwuj#^#cR-Wf%8o<>^0E#+s1%broJmHRWA3(ZsS#Msqwq6(^H{!qi=!?59D2Q{}AbS z`19@Eh`MmAPdan2V)POL3_P5hw=HdZAB+vtjTo7HfDL)$rG=1I*6IQ(!@C#|hBv+xA|0Q@qiA!THsS=x*c=&LdU9k?la# zLci{_QPkq754qB~sBN7TkJ-nMMRh=z^){c6UXWVStin}uNl>YMdDoy{((SaV6+$e* z0p}+v2XItB<#>#V6=x%T*D*GXQ{_xOMjbhVAmt$|EL(G?KXx;`+g7Y9Tcf7Jd|A>= zWqN6K3Tm{`^IOm{s!bu{%qjVL+tpumZ9=T5E4NkSU46%wqhU&5y8)}z{L4I+DD1<~ zXDo*fM%Q00i1^HVKY$GzEFXl>^}Fs%yI0y5%MFUGaNHBnw+{z?4&9uLwY3unk_UCF zdMLuM9s`6^%E`R*FK?RSNOp$-DOmRzV61YEF_Sjwq*ief)+T9{R_SaSYOY`ox=jk{ zAvzn@A-uiTs|k{VHQ$bRW^Q>JlNiFp5xYIa`-30JIU5;cZGEs%Bb3)~Lncj+daorF z*3^sfsZ97uCv@=9Tp*zZm{}(b%Ux#x^2SEbTlY&KsJpl9N;oC8zsuq`SDkm zwH^QzKri~Kdl_7SBMnGkY+*g^g(;#qb8y!BnzX9Zj!3oYD2ClSXlb9I>vA!n`s+H0 z(7aN}H%@=+;gNhk4~u26Zg{Q9nDMKxX(MxcE1_Y+3=XS&#tdxts1~i5X)0_oV)iWP^RfUx=k+_>9p`Bk+Sf&{#tHy$NINlfJ-a0j$S~q5rWDg%|Ss|Z4an)>4D-%WkaHPuJX_%r&9Qq zB|1qlse+X>akn@ts}WujmPIh((e)Ocp1cv+?3iTv@sGt?QeFb8w0JD~!Ym_^3w3Ti z$ddIhCoIiRe7l*4pPh&hf2pj=F+4IfLs0Q(wR`_N$*lCXE3Tfx?|f<~0g6U$T`p9> z-5H|UwaMDCAzyXIp(V)u`m%`&X?#2W>;)24$$48FAUYQy1w@at=Cs`=AKQA5_zj;Z zEDXY_4TnqG1P;#OWOUaWwV@`^#oQ)aAgJbz6;ZGB+JS+J+#`u5fa`PW2!H1#&P?h= z5+;kN1ZuPc|1E4w{}viK%om4gglh-XQUuu+lmyowiz1%uXC+(i!t&BaXp(I^Y-)m` zWBQ<7&3zv>Jn^ja%4ZwfWLU+?1OW$Q8L~8`?hOMgSj#|idRP8!%=F_7T5ec^hgb2+ z6)dmLC1?q)j2ky|YCbfveVt_L!4Dz8lBO`k3j&>9J)WU|*6tGg5NOS2+3tem;l`Px zxzglO9w{#lW_a`x)$T$phd>mqG9!+nhT!ox=VXW^^(Ws)&f=3&y#=m1)wiR&VuLF^ zb|4AJT1aZ+bWxX4y3w|p5&&&XOZuc4N|p2*{v);24)Z<%x3gZ0|5Fly6WL<4TOtxE zD7B4{{IqOoma5(5fIjKQ(dkm7OP(a>3bONz+Qwr%0moZTyQ4&MK$F5HZ@sLux!~OS zVywWAmCjJ-il*MBcD`l0oNj43ECSH@=r{&l_VE~#*aRH)c4MXZS{Y~=@@jqY{n!56 zTISGXsFvk+g(b=3sWA-rVOK-(ReJbLFG$IQv60kLESxx`a!ah#1^Z>b7fSn(sU7+R z);d?_h;S~WW89MFV2|yD^0?ilYKFn;ijoY^Q)Z=l)69l-?o#^@-r+90QUi*^PfNb; z$D?Cqeatlp$~xYyr{-*(M?|-jEvbci_w}gwE_~qZ$5z!8qq(W9^QbPp>+3nCiK->- z`l-TTIR~%A!=&>&Ol+n~blv&Oh(P`^k*ZsF*#@a&@AK~ODdk{4H8M`nB(dP`F8f_ry;TTH*2afN1lxhkfc z_~Sa)_atkVb1eytU^qF+TK9Vpz10g(933)!Zp(+~w>?ARB@3B1F@ACkEJ9rm{%`${ zI_q*5F`)e!aeirb_~&BXRNt2^<4bQ3{ZHK#Uwk|ek9Qu3(2@F2T>a0#K>bGW(I6mA z+dlF@`2$jM>Z`}9GA%W&xOrrzsopWAS=GHq&#}HeNu^ud&gzR-BBY>U?pjft&%Xm% z!U08XYu%z3&PN>rgdOGt`SD(+O_gmD6HM$s)IOL$170Eo2PomIQm+|SsZF(}Nq6`f zKH&K#4yYjo^GBU;a}E65~V%`HyY-)v{% z)XwelFW@t;ESS_!(WWKFAAMxg`3MD+$kYxY@(}rt>efBwPgiX@VX*f14x#HPF=V&c z6`)l|nC!?3s~N(gZxfB-^-@7dr+1iof=vp`!Z`rNe8AzS2KLE!tF$3P7>}_$PZI0k z)$|{KNA>0x1>U4&pUIUJiK+n=QDO7tGXmz_qd1N^xyiXE{vGl%a19JDViXpLotCG- zru!qAtLo~qQAjH;;@@ghHcg$+E;2(f3W9XOjfdFY{9jR0=Rzk^ly#XnZ3<&|wj0~< z^$5*xo7C(5d~!;0TlT9o`-UqJXv!dQfdH#}{dF#BrMko6>ilbcVU#6GZ6sx@yPMDa z@Y%j*Atm{CRJI68Ui@{r(g)+j#r<8Oz)f$mhAgY<<6EuLQo=9Kt2_3voRu5tJ^#rir`=ccn=|DIumy+Z;@O_%7%bymH`ZdN`%aL7Mqe{zcRy zZ^WKcWIYoYqbTxzet0gKFhLR&AU}L!NumFhH(w`@ay0K`5P z{M&n3`Jv$u=>O4nRW@}tPNESg7xtFd4*}Vbn89%yunnYWj0AUhqs8?GuZ(U6|MH5;O^>FKr+#ZVEm>|xS5kK^#1t^c7)oEZ= z@nfcRtD%WW;CGc#38lrD1A@j8@-3Lx7-ssajaSF(2p#_-Nh$YSd#4MAl_Xw+yI}TD zJ8aUPWDf3QP|>QbWOi`3VjObD9UY8#I(J;7+54&`X!M6Rq-q}EgWVd16$h)%Jc}1 zvpac{fk4+Sj7NlG4}Q|tPk1ZMdLM!3b5Tj$cz+qb{;DF;>TQ3o6Z~Vt(>)U%3Wo2a zd=kpbMfezy2w%`YTqp<+t{9$l`hf~fDJOttIOIllS-Z64syh}94UwBh{Wm{e>M=Jp z{DSqCEJb}y`M}QD2ruUBMuqTlZm6VsR6x){+_Y`K?b*)B=z04-!zev&CbSLyk=LSy zHGns(!>?UD0-Ja>YZE2J^dw{=v6L{RFvKZNNFhN8B(y=x54Iv4JNM;ty-hyOgx&X^ zzeww+XfINCf-#5JGjBjc*Pj_i0lA=2)yS6Ej4{R6e#vd`kgyiE_9G~ zVgFyt!3*2@wChy50Wt`nWl1eos7eExl*4$rLuzHWF8_J$=5Hxa7TA`TGgCIU)Um&H z5VcpT)aa)Lj2nQ}^-Tab=kL~Z(8)#Jvv8{lGP+URj>iMg1`-Hp1@=D)x@b zCcZFx$JSYlKYE+H%@IBfeaTS`@@+(tAI_leg*vh zq!|TGeM6U)-tRw?|9$6f{zaOO_NG2OZyBWP#bvo{L}&qMGcBVt7g--N2aRwZm~vQD zXWOxIM$)vVo#4o3BjCRZN zgpa9iF{56Ew?DmaQRTH}`9`gpirf_|O()!x3t-;Dh2T^9Y>g_{dThOZ&C^=oIitYAcAhT~b zEB^^i2WDH?}UurkG?0XmFS zrTL?xC^QO@?gin?f5xaEVVS9yR}r@g!=MN2mn>SMRp09{u{Y3jNW1S5h(bI|)k7uN zPA$@Q0|F74qfO$#Ah@%U=hkymQ9_xMePXD>)u}g(3h1)~{YPiub_!Eb!inc(!qxSK zT4Y413E_*tk$S5K`!chWyi-p3@QU?vGZ-Ijbuc2BgbU zO<{TaDH0+~RI$I(8Ra?n+ z)*Q}?D#qBtx@EGHaf^u=tivGiT zRcTM;6;~TKdr%cMQCS~A+lcmUFXOYZ%G~rlOPD`;@lIL(59~!;MB)d;DrXjZBv0}3 zDX1}!^>2Mxv;QH9$VjD_>|~s>>^l=mQtKjD5#|Sql;zLr1RxOq)*UsoRZf{P?klkU zPo}ZO@!^shkLS(hhx6LV^DrGJbHw)I`hl@_rvE#~?fr1F!2or4vcYj{W$mW9Go7Bk zKG$-e@a7^)GGqU6nJOT*6Fm~$jl=eFvN5+}gSIf&qUf#lb8)KiC(=)!-dkXMJaf8{ z)~?0K`R1}I7So-@SW2bzGo`!l^AnMowtQV|NA}CG%GOk+Np7pfacQpeqQUUlX(u`n zc>YjKC+rQXj~D8FuZBk7=dkAPhSPGnljq>mZBui}ho?*tuZa#^htY3R?T}f8ppFG| zYTNkVJyM|B!SI_96A%eylU4o8HnoS_h#=Rzz9P6&Z=gC-8Jvs4Rk0fFp#~zo+Ay#Y z*v!l!^v>9KwNGQev4gzK!-7_TY-DR$`VI8cOXk{js_B!+9MB&t#ty58MuXQ3y~9rY z_lntQkl@YRpG+nEc#{ea9QU#ISilC1&E?1B^s)2DO%@G;2e4m+vLqT3-w>ATh4rya zU60Gno%(v~-NWbkdxG2RFb1F7tNis{&F!5B--gdGI=pOrwt+wq&zn0R6uO?rS3gy^ zSDTBz2{>mR-m&#h3mx8uSs!LPpCthvx7V+L>wky3{U60`Zc3j7u)BPJLxEr5aQA=7 z_r#S5VfU)A!`k}_Ved97SpDOn#|SF4oWgN3B>RYa4g)UzLAPLk;qeUq{`E#70e%De zvy=$JJ`{Mchw{Ijt(+k7zGw&$#I0gH{Esa*qvb9DOz(bSM<;QE!+feg+++FG$o`iS zIPjj!8vF?2L`sc;Ew8(L=DRL2eg4pjYJ$N0W9sZ!vZAVw=ZDY6dS~JPQb3XE|6D+k zgP9(Zmlx8}$-!9P8qzKE(rY66oHO>IySxAVk6JGA*&`@0^K8Va&I6d1-ckOZg`Nph z4lh5e4g#pseh)MRyQR2~r+;mEh)7$w! znq;x>oo|`1_gj~=8T;DZS0t-D9JQmHN>cT!h*#oo?cveq%`1dnG-?^DW!cc8!eCc- z2!*>LQdjUiYS zb@uqWlqrklStKNb>tV29YBHtWLrm|^Koy!~WOB6|H*b0Ms38aR9jOPjR{Hk&1BZEW zVjeaTsXL&e?C#MpaatXlv}v-@O$qJxFq^b(X_x_Y?Nvj@xQ`}fy^ZU*|9x}fZM}TH z*5;d0^pQ0D=JmRIAMo1n{z6}cn7^dQ;%%}wzBjwJs(E^TWQBhHk@H|Z;F7iQ4w!xx z!klF;(_PNVzB)=GWp`iHAv|q;j6ttFa|KM{JDSekF5u6gW^KQJg;QF2=X^9Q>+ot{ zwr!DXq&0FARdJuXU#%Z9Vs%VFR8F}`HHRmotNO@JeCWvf*flt|Nq+l|I$=LK(3)=P zPUm*D>MK6aI>3$NX!bU+0=?Sz zs^xwe6=H_Iw?@#lk?94w zv{24pZo}n$Y5(oDk;&oTIqD|`clP?70M8W=A1-GN-{!|gw!wS`=Pssk3 zgBA*~hm1jeY**(!C8_shbV|DW7Z2z5NQ6!Xl}4t8mrBV0>D!axO4emP0s_FYw-UWK z&sxGQeoj4P8~uShba+L&OpCw)nbb!60vz-?Ru%qZ!5`J_S^Q!rrsQ#Bs>s#cKN@r# z%=t$9PA|DHuZPoEj9TE1WxVBH)gjO35YIja?c-7my6)Xt@6H*tLSb+MnQ51qEs@4V zh#UlLHcWJ;2PJh0j#h?X@R;K!Wzb1}tO>nv9?)$g!G@q^d4*=1m-tnC4ICQY(PUNpe;(P^FLboZN6 z_v}34m{ciBb+pj;xM^>(Ui4`cpwTuCcZ)}#a<=!77hoQo?p+5Bu4zq&^7DCha*yN1 z87tjuTU-fF)4Ho2c%mi%KEgB1;xS#%?qKt-;KD!C)A9=5mL}*KsKuJE^Xnv&CE zJh5I2+Sw@QHuf^+oqR4hxSs5jWe0kxBQ%K$iUywvI07(SspD z)8Rzq?+ls?DGmn#NT;n&9rpf^m>!4L7bi37mk0`N2xA--Qx>mHOu)cbDj8Lemm-YZw`P>6`WHH{}g%A$ub1wI2K?bl_ zb*oIxBCv8JSKtw`=LNC0khUJoL zUP4jq<8LNtGUyaG=>E0_Li|yrG%$4$4zx5?ko*$aTr@s;6`!CP7ct;Gb~yl$s|z2Nx|;gyg}M?G>M0h4=)vUbn~_ z?xqN}om?jD!`MXdK}Z6_1;n0p)e}$XTEpumZ%UNsFHqiqO&mX?-H2$0+Js{%@l5FH zvBh&%p^UgfD%Onom)CQs){FWl8FI#z=K=WYzJfvNNE}#J?r&K?$eW?fQ=Sff* zbg;E6;4WAI{9Z zJjTE~`E+VZcxVf;(T@6gtoA1Sm+`@@ACNOjUlHOFbAnS2mTTwk3X(aQzW_&keGxKQ2J z5WVB*dZ!xL`$@Lnn3JCQsyuDlgH1NWby;FgIS_hJcSKPzs0S&K5*SDA%3WcYY#b&c z0XXocK5$g*&cbWcU?m6V*3aaDT;^WK1Q}{rOrB>BqvO&B#AfT`tuTj`xGK1A$6b4J zc(~9}=%|MI3>iLCN5oY9SQPU3#vD(?NSeAEdE8lvj+p3;dh4w?8E(?SSZ!>isOs|Z zdRhHbiA^l>AzOW!*py{dvC`hOLuq3mRgA&a9YXCxAXHEwwHlt8#HtYOfJa71=)IYB ze90c(JL`5E-Fw@kpxKW#C$7-ZAE;~BGt}$f&1CB20|(uAlGDh>GUSx?;9YE8+_e0h zDFw>sr7ND6+m|rT<5fudz~zo5wa?DvcU9hb@@ttC!?{wrTvri&{HVdgDDYV)A#i5p_d2x~+9Bj*Jq z=hFqOh$3t4wg$0G=i`mJzlwshqGX7IWy}e?JiB*6x>em6IKvg3$OD4yl~Tx~pTqf~5tU<-_-i zqDd&Sw7V2d%F%yK<%EB^vXj4-rEOJiZeG;^9uKI&CesbpEujuJ5BW+gfW1JoB9+#` zJu;gE6m*ACInJ`sGI~}l=Aa&(73+y*NSqx==xdk@+(>#bo=$mV_da)Bx<27;`oTp9 zLW#8Mdw-LngA~^#^SOE!;gmm9&PEatssfsT56IcIaI&hmbCXvF1_{mN|6w8=r+H zT2%1$;wQ-uKfkf3pUa%M{B)fp*_~jnW{m?EKcQ3|fy~(CsIU!)OAtc-uf|3jr+q{F zBtvG?hyEyR6AdVbVxBVXl7RM!@)y)1KdgOX#*Y33cgdmLa&cbfL^G^4p_4$nQvpoaz?VUVhz_%ST8(f=6htnP6W}6BO(5ZNp*|I zBe`zzj3&a&PUK-S8X2OcAsE%o(26NB&+WSLGBU*t@BB#xU5_w%6QUc=HMJy$P;*e& z?3PF{k$5n%B?}|-L0d->;X@OlU6XA=6KNIH)=5~GXK$wF00!`l^{3u1xs$HeFzauC z#jWK~OmFM}B&t^SAw`7^@uvyrO#C=5V@5KLjP;Tm_HYp0Pg3F3U++abeoYX~IycS2 zWhJh-gbSIu{r<0bD8~PtNpJwRm^r#Wa}HV4z|&mnvEjw1Elj7PYjzhnLE)-7aaG_1 zC8{LqHFiT4ILVW>oV4ETv+HHrw@C*nsq0w2g(u_4%Lzz!k9TX(LL10IIRqN>8WBPZLTDT)-e^5F=Juh<2amLPV{{va zGho2Uklc1%wiC@juYTgw5q0 zgS9#{@+cpTu7;e9`pk1JdgEVAv%{x7G<&7jrp%MGT58(e#92AUkVysgrh^fu8fL1p zT5#MsCYxy@bcNwa1rz24Fh6`8@KC|zjK+bU{7jsynOytKb_a4m9kUT)OWsn#E8ETR zifV`1x#ock=T#}J{~wwfe11e|c3yS`+k4PfV532k^W=rfAz8XK6q2lUd08)uNuvLt-1?dLtz=ixP-X~O zEJ~h!5{a5~M)v$%Al|(?c|acDEV)`{AgDS5HI^nC2-Hq&Y~z1~YQjy?LXKmHK0fMe znZycl%5p^$JQuE)z=v_6TKgpT4XGh4-op|MJFv*cKhDn&!`eF6x0fHfIFn=dHN{7R zq<3UXDS%0hU+*(TRiPx#*Awbk#wdkikChG)x90ptJdm?>rggzqBFB=1)|s|EoSCrU z**wVtDi%W31PyQ?duP_;b3TX`>0^zZBvBNINn&xNr#eVvN-thaSGjzD{$tnzZ2``S9m9rfHU%P-#5*15AV>>t_IIVyF-T$XdMuiv`;`fNZ_ zGeJS?)GxyeU=LnB!|wGur?k5Fub$TxlilIf^ZM#}ef7LrtW9+I(|TTa8Fc&Wub$VV zyZ*S=RekRIOD^@9J+DmqYUYoRtbd(NVz=>d_b2lEXruJmWRQgX3A4h9=DvGew*%(1 zM*Xg{e4e9uvD0#ugW9NB@PY910p zCg}~GM#EO~fG?RdJrlBT^^(h5?^G|jVM)o!Fne_F5uI+H;jDh4nW2HCy~zw*4l^XVav@fxv0cAUs%pDcJ>oi* zYYA;9ni9fd=h5G^ccoD``2k+y`7J@Ve0Z*sRTcJ ze4(h${(Cb1?SdYa%l-HN@z$RH^(~(M>#fP)zujEP)Bn3%TE7-(_GwzVrjNIA&N)tn zpWpuDz*|ek)p_hw{`WKG)t^=ddY9TlJ@u+WN$$^9SmowbX)3g4-= zAP(alY71OKp`fYbCW%L*m61y)J9skQ*`#R@wW7|M?E zgK7&<+7^iRfG3n#5q8DnEAdfVjbnEyuz!u(0GbcXdu)-^-a7O>3HJmAk!TfpK_*`%D>!h-5@ zF_d5kbpZyWwm@Fxmm)yVS6j$8?hdsDPw$1@Y6}a9j4C4rwc0`kvBB?YY6~&t(z$M4 zJ?Sqgol6s9#uWpZg}|G=3M8ZO1NE11w9J#^?|L1{aA^Fo#&=702sF8^Kas!HXy{Qi z3BwT7y8{SlUm%{JG~nNebOa~#YA<^Ys)%Xl`(HJbAKcyVe+Acf_xoR2udY1v3iPGJ zD2-|Bx3NTRr%XyfMHpQsO*g%Dm8q>!UH{Wx!%847snfelJ~JAvz^cQovV<^+r$V*Y z)MlG`j!m`|+2N^{hCUQp3IZu{vOeaWl~3Z()GMDLzh}wUJ1U>*`d9MBzCh26CD%_l zUmX-2Gh>+t>AMFNQMYUsD*u$ckL-tqib22Y(=;5X?4*?@8As;L-cbjtR&m;Jpv4 zbyavSo1OGz*Gj-wNR@!Axl$$Ia$v4Sp8RHFepi)%4}SC13OPCNt*DD?3HaE0L}ppp zPEYGIEextwc8BuC;Gz^;0uBxuec2B$0SA|bIyP$RRJ}LwWrQx{Y#EUzC0v;+;|75h z3Z-Z-!*~F-dT$LeC9zt)w}y<@=IzV*E$o$7tja6YYQ@857vK=#z!^PKi8*(afXC=2 zA`rUQhYPZBS@u_=jh5}wtjnEnQ;fqZ(_OVPFgF}3!vkSqnDw+&U!A8X3&Q(R%x5Y) zM`pLT@9p%}-5Zdxw};eWc=x%!;TeK7z}+?AO@FlsZMuy z7!{y69mDz3V|?i`zVsMdKTqM19wWH3;cN96*+WRGkZOtyZs!0y!6;a{VUJesjExi_ zbo2UtgO?toT`-6A7{Sy9-h!bXo3GSk+#Qv^^cboJbx(Rk@G zA_n2Dd8orypWp#KMutuPBF(l?W2pmD)Gp|Ug0kI&!58Z>wu>t_UMulFFRbZ*q#olP zg?K!y|FwFIAhKwqq+hMa$PWE3Jw`o=e}o<*SHnA`$H>|&UV4m0vg4)4xMu}!>M=Gx zo;BD@kI`OlIr2?)=>q0u&u=8e zJeML&){_DySbI!grAgG@J6?q)YX~rJIdQq|2t67Sg4R3UP2dB`=&+GdWahKgEs)EN zVc5M)bl2tgUZ?cX>vhA1YU?byQQ18TAQ2ViC~H^c7)(#)3O5??#;#xY)6cDSVe&uT z#?<7-Ji(7N;EkO$;B~{Z!+s61O6-nU#lTYt6|77e?5Qv`89M51W|Pdy#YtDnMqXG~ z6qU2Z97>6e&8{VQ_B`AqC=sIIIuyE21d3xrwSCaq=KZxJYB+gMgl;?1MoT%21PsyS zVu1xb-^Ul41&waXvkGPFm}4Ac{>d67V=?hy1e6uFe2v-a0tpa5D7rbVh6JtkWK_#; z{A4mKTKQx>!VI6^m@DU0k2K0Wk6ppJ-5j~fjCdoB_dWe^7ROg&`=c?y#UN#K(m&M2 z6Sn%fH!VViC@$Rdna~(P2k{lz?69LYt=@`h{BRUU<+>=cVHWE0SP37=@|gC9T84;Z zm&}QeJ_@e$3Wh|;=#8!n22?x2c3Vsw){e$vH6pnShg+b8Mq z%xi@}EJLB=`5lnSE0Np?g-l*1lXH+F+3NMh%;kA2ok<{8|FgGtdZH&oYNxC6*?+$g z$M(a3(NBc2hoIPIvwd~34bt)DjfD6DyOP}AEve+b!;XCTE>9}#@NZd9Qo%tz=-;|R zgxrGOC_>5e$@tFkN zVP`Tw6hvEj`y}hgglF47@;VlPE%)a4`~LkldP6R6`R0m9lAF-UC0htalUynn z(yM6}1QaYV{tL-AqCoqvmN6if$NDeOAws)MO#&&;XgNz2Fqc(GdQpfc%=RVQhRA+* z^!JQHUTe=hHo6NN9aRoNcn_Z1LO|_>Dzo8jZ=D<}*xp@sHawpk z3RvJ4cDaLYEOGQmN&I}Dp;RP9>ely0d>;vMpxV7+^nMWuF_X909^%=fm)oUL-`iy|$wHY$SZ_4W|JK=)&u9gNoP)Nb58x*u-^8RQi&F_g1&` zY1RDs?4o$+oy1$NCu^fPkpHSUq5i>K4>;s{GSyNDR|BbxvwIq^f)gJObjYmhS?zfU zKx*3!27P08L#}HBkk&D~C9-#daBUFtVhL$%?eI}G zB24R-Rxx`{x=(vO{VHacvVL!=C`eT>JE7#2sddaaT!FkI)nF--Yv*Fnb%kfsE8oWQ zAfhTAOmx8YtL2p2RJ^p?aCo6?*b?bxg0JQt2!lObC2{qlg?;Qqd3kadP7fo z{5T`ltOZOdMuz~(`wLl>^h_B1ouGKu@hdLK>3*l z$c=>z3WaoSJD?f@)0_<1T0L;a>(#m>fC{9Zm35x&yDtHi+g5|j+UP+Wy9yoMDu;~q zsa-jdJF78j8=KjeAU4w>PxLI4js!HC?LTaj+U<}agrHPMh{Zod2A4t*BwfeOJ|H6@ z2YK7hWvq@@mg^;LY$Pndj>XP2_4+x)^i9$s+44!pX8EKg@)Bh&6X$?rK<8V^ts>vL9sY|&?9RS>+F)EmY%iTnkP zt%39vG2Yw~AyxVAQ0#2o)x{b}3#(-^NK{lH>NY!DYual&I$N0@8$|e?)B8o8tt|B| z*VF;2vf0_HvCYm_)&#rj^`|~bB!}+mc0K)dq_b5pYv9ly>#8vQK-4S002@p}AEc&p8BJZ6V({`-qG{ zR4zX}sks$e;7DfN{jMhwc&44T)r2qZZUt=yYha(*-Ac+5IU06$yq=y>z=+fa$Lh@k z8;hHm1GQ1y*WC)$o*xtqJ6l$Ls&*z<&M-p*$;8z^73%4abhkpy;GynTNQBt^?TOv3 z^_t#0WBw^-di25WR=rC1)|GB{VAN|(S*9i2Sy#GOBk{rJ)`GklbDH-zw`LRu>!0@G zS|?i@+W4{0sw>UekgsfRO$nggb){2uzpMP~p6qF~la)Z#=2rDA9_?-QNtg)q>xsW9 zZ~3ZU(c4P;YVx$#%SsjcoZi-2rKw59c{F@WSt+97hn1BAvyYJ3(Z95;l$4N$hs#Q3 zfj_gXbXN%}^Q}(BvQow(Y`UjU>uqIxpWkeZd9-DvL>6)fWWG?F+Z~V_3#`*K%Sy-b zx(?d;D|%ZswAtFqLXUq+Yb$VnXUqEPCRWgOwq2~cwRJ}ytB!KNxwVy>;55O3owqc5 zTU#;ajF3|~@!AmYtDvJ|y_es+vsIz%Nd|nZv(=+vSF@{mYBoDthggEV<*j$I zGVHF-)`sr_4-!MnbnY^zegmyDoM29!2Nt6{l0tkeu(%{3=kYjkGM?GlstAY&J6rD| zAZYE-mRt2x2#C8HTc1ThEOWh0K!}s|2NDqEy*|H+fH>ONdYpi0-4^oz0kPMFKd-O# zDFnoG`dVKEM0gSbQRXCG1OyrW?F0mCqX_#6h=LdOA|Up8R!OP_UVW{8dWLC!|CAmZ zhg08A4_3P_A2%IOR?V>Kcw(;9RnV=2xVzavz~tJDATAB$O<-lm6JCp0s1zu?ZoT)v z73k!1g!JY-d*)2 zoncSL$+~wrnD_Ov%3agd@V+^q%Gty`Nq-w}Z28fTugno8e=A&xN=k5G_Pn5N+C>6B zKG0Ew1QtHlC`KSTdJ(91SH>eQt-?pDF-dVya7koT=g?S3wt)iC3KbCs`x?(?pJGSR zvth1D-CfyTxX4-^m^)}3dUki~ z1>`MrfO*+?rGVUe?^U&iKoSyLNv}T$d8T^h0BPT5@zbN4fj;OzO~h4%w8Lwr~1QyM5B!mUK6q5MEiic zQysZwM2dkZHaInlxrGB~cYm}C*b(nnAJ}>qP`wOZ`HJ|8c;b+1`#+JrL<_Tw=!%Tg zS4=J_Ju@)uW%~n7t<_AENv#o1k0dJnT3aca$%V}yMrJWaHxYqQ*}*lXK%5e`WHVT7 zZ^AP0XT!ryDUd<;eh>=^A%66M=yBz;%?jv!HOv8(8O{b2CUWu%1|j!_ASy&5W2*ft z>H~clyu%V`mp~A5i zqL@NA1VqYgPY4AqC@vd?@=`9umrl^={d42tiASa^25EQ>y5kvaWN_rf5b@BFeC6Dd z;acG-!Y-(Z7KvSr1{kQOoGl7TH{&vcYMH&H>bt*#ZqGEs0S-h{BM`AAdq1i#E;pDl z!~hpCXt%M8X}_#fo9J-txvchK`dwg`c?&L21aRPOzd&F5NDjo2Xq@LrOHYef`Xr~W z)K<%|JovWj?`G!XOVK>zI=BZ_oiK>6x2~O0`Sx;PM$f97ZXgv7 zJ-L{~If#TVjk&;$rhp;_b zC}f!rOFt)-mtUVRje!J+H7EL+o+4uF#G2uJOOQQp@^{b*hQ$0k!sYAD2Z&*#gC%D~ zBe_I^zC=8DGh9z6dIX6$9?2&4#@1buS~f{hm61)SEEZV{!p-Ra_I}CTh67tzSX2Xh z4m5E$!!Hq2=E7L=R!OKSP?>YXqs(q|4@k?X{Yq}wqq*?0>DK7;(Oh`gqWCwfFn3j4 z29n|Sjv*uaD;aK2@i%@44x~iU`;{zWKzU*k{dtPNgXOL%{+{>-3YEdVUyTZy$yh4V zDPd!V%mb4t{?>azdRvc<88$|T@|a+Jer}#V`OEmxdHT41!-IMHa?@wP)cuL)>35~> zO|bs$dHNLLK%bNks19p31gbY%<}|knOz`I1Mg(GddkIX9HlE(7QtF;QXG|NowZWAG zMZzf7Rj0qEK(gK^B9@7J{xSc5cO5`RAE^VV=3gGH0~nj}I_pimI0^IB6twZdf;s#U zcnO`Es*cLTB-Epo0xeA1;BySu?M1&ZTALJz#d53W#E06=1_*U6CK`?{iq@fvWG5ZTO8CT6w($t zX4mkir=mVQvVkCYeq~39K5I`Y`t7$BnC1NGaN{6 z(LV`wUZqmst~n0cPm9WaKy1y=P{qw*?6+> z*pr>#d9u(wq^?bN>pTe~S#9LCO0|}1Gx@|olS&IW*1JoA7FUwqp`e=R;q4|AA`SES zMB$@T=(h8Z6D!b`<;^O-GE#5TJK#IEw*}dzE5WpU{1Uz4ne1bQ>IK$u`!u~_z$~%K z^@b}N#NGv}xO&V@w05J)WQF3}gP_~>yY+^FGX)?wXaj==DOb_4kSFn zNxuOh@2}drl%bP;^MX3C>>#?|B^~Dw&TB|qMM5u}-*l9j`QC^Z0%7Y(zpH~fzhx@c zO(3Zy^{;pjwpIh;KT=FWLcf!)mQi+Bv$hD*y?RLLJzXA;DV|b0ugSp=jrT*pmM&d( zgP6wmYxPA_{)hUe^TFbdPK4-(?%6W68e%C+6G!gKWHKweC%eh4_=Xce7~Vj-zq|`F z02RmC^+J!|^6U4DscEn*rnW6}v0Tx!#MGt;(2#H}?NP`rM9NUfr~ zf0sYg()KX$&hX@Cb!zN^&8r`Z(1^@GE zAW+m_=od+Wk^`c_^4NsED_~|1_;x8Z#sG$UL_iP?w5l)DAS~%bvQNYkaD4|_-AR;b z?v!%Bc*o0&ocf_%o%x4t}H8U&pqRT6V0#=4-}@*JWh;O_bCi0p-SK`%QXHiISRxC_xqM0DVLR5*|@f z)31QZ;4e{9TYl8qZ^C4Qlek++jig2oD5-6^YaZpUo_7d~Zem$U%_V+4$^+32B{gvp zW(*~xyBpl%Sal_0bIOqWLg4*skQ)njy;gN{da9CIAr@gd%;eWYa4Ap-kP2AK!nmD1 zwanC+#~|={u!4CnXcw0ocq%mT`k9JjWw!f#757M~8M}2*N^MANEHL`oggz>z*3J2K znSHlbL4A#s8hzLa$cf=1n%3Wvt79M`jCV~?lJ|-B^Gecw#RQq$6G^9?3$4)XWw#on zu^9oi3_RwhpTg1qyw<8d@M^6pW3SdKM~A*ztNdzs zwN~8@eYIA-TB}~IRgj&0wN}OD!*ASLHK^3ftF_7<`f9BzgE|xTYOS(|{)w$sqp6`+ ztyN7szW1Ls`s2yal!5V!zWB$N@5irK$B7} z3awMXYbirjxt$pxo6+KO*J8gU>@&1C6ua6|k5+9C*)b+yu%#kEbvn`gy@m6P01ae~ z)Uon#R!m>DQ5y@{mvNj}&FlG1`Tq)Ajx(Do^E5x+!r|6~z)9V(RdhEncVTD07IPsi z+hx0`fCD?f1;Tipw+XLGWu)ES2n!Latt9r5-D)LaLBhSShVQe{`iTth;zPF(vC4h#AXRYbV1v=2sAVJ+vY-s4op7!+(4KmA>H2JHc;Wuq)DEBxR zew%hatn>U+8ybue|8pA}SbF{o8X6LL48pH&XxJ5{g+I8V;U|hWjN^6Hwew57!5#1t zZ}11c#2eg}z zV{*@P!^z~GuW+T$6mL*m$4k7y9|{{wc!@VeJnNTu!&izoyts~+c*9G)A-=>LUg8ar zeIeM}pCaBc-CieqRg-;*H?RrH%+8~txPg}oGHwEDXYI48E7o`cSmo()aYweYGZ=Vp z^0lLpLDDFiFyu%y$J`_DGT^($^-GIoZq!SQAYHjGNOwB=4BF+O0<6F1G4t{dSHb!%im9hKWM!w6-d*yUndd-m3&VWUMM8~wE54!g>O~B)t%%<;kOdsRjSWoX z5eS_5+obaCwj>BN{dY0rxlx?R>I9p7NbyU(LcZA z%r+&qOtxB5;gfmV!*8k;H)jDeWq)f* zXF9y?$PTH{(TB%!q4`rj{5E0JYQlOSTx!9>w0_;BCwsXs33D478V3uR%}5{EwDw1W z5BX`!^<`Nf287_6CW(zB z;??9Br0#?vX|lJ|`6pjP%Vd~krd+Ddb17Pv)l27@Wv2VN36z(parit+oXUXR-^Kx; zx`6!vka60)c{#uBvpE`?sR=8W(gd2C3^eIYD*H$Y;NM0~w95|Nh8P=Eb%bK4OuYxO zWxKR?qnP;7?3ZG2@>d6G9Y35^r`8+e3t3TC5xbcct-DP1{zRp!GAf_eORa1`OoM2j zKA;OZYx;na==96)sAtv3oHa?83F_y0?4FRcgS1xRQz8$dxn=B=++^d5Vs=EYyv>DM zs~F?5w1!}qiE9N#Dxs*`CJq~O;sgU?-4hJJw+EtZ8Mp>!;G$mrfd3sCJF+G31y6yo zoMB6!3myc|hhrLt@4GZJlr8OOCJ-$LxgaLsQy;*+5!* zy>UV;MRM(0K3-gxDGzV+An?6ykiiC3_3DkcZ%$86xlP4OGl7Pg1@PViaq{fRlT;oJ zu=t)IwlY)&^&jRquyoR<=v<`>#CQm%8jB^6cNLl&$3X|^JCx{**(XKE#Ao0x12Hhf z((oc>Qlm^vkE>A5Jqy5C6J;yMA}n`68?BsD0fj2A5K3F0%WleTdB@~VFt2VZOU^@h zajx=XMAF$5GNR`BWWdzaAY<@I%9`Z6ov~~a9GK}<5I}V`sHEVO)UP%zp0ip;5R?$^ z(`9Xa2~I%zI}`%+cpFg>x5I3!9f)y!ohCoxzIM4MFg0uW*}X-1xgvW3&j!q)s^T~p zmIq^$p)liaXv@G*Cg2q|RlQ`-?WJ!^#`n16CRB|Ht{x3wgUNmgn02-iiPRDyUlZ>s zNu+)?5k5EZzRg5BS`vv~lCm;-mY`=eK?caYFomELl1tHJ0Tr88gRW!O8BM^mRiTr9 zeSCr}m`osn+*qJ+D5M(|0o4$g=44WH)dOd|UM+kDs6gsjS?Af-Mgl6gtp=I3(L>s? z3LV}m2dO2v8Jm0GAXDGi%)SI6n~rU=0SCYMa&4qQPWu?0w_Z93At-%E3P9Jf5dKhT zCZQJzlSmlC11B9fE!RtgJ4sls$Eq8`YIH~-r9qV!Y4M~b8k1~;eved)?&=aG;>`vl zQ<%i@7zcoc$i@OH_dLnkZ^@=eP`%djtH5NP>Q{jQN@93o-Uj ze}a@RQ&NPo4WEW!l^c~R)RU{`V3ixPh5++q1THsTOlF3&j79yE@l)%~StJd?8r<)e z^4+^jOu1J)rN{bp>ao)Sh22?+g2)Y{=mRC8l`Gt;)Ep&WBBhld7ktRwVS*p3)Ev9q zKGhBDoq1*^W>-$e##ws(?)p?7zAGPR!!-0W19A?5*5-wp%q<}!Pga4}_hxg5v~`D? z%q{7GITe&|*NY<^vc^`gKfMw(# zUsQoPkln9pzXYOZ;hkCW+bfM)p;*zwihrPu(bYv0Js9#1;|!S-&xwvZv~M$dhxV<1 zPp3|jK*ONZbQxWU5|nlaRIu{KK+*&FnD#A!m>I7094JI)S%E0~=J|Q+>15EyF_Q9gdiJlB8x+I!_Vge87!LZJ7(m{T51q^!)bRr8P z@UHku_q^u}SdRenn2dcqt_M@_PbIoT%VhHp1Lc0vUI0BON}=0XuaVpXYUP%HRNyoUCwx2j#jXg=x{JLfp>Bh zB%r|FoGo*!HD*(+ptk6@EJv#$t`$b?$|G{Lr0m06TeBUL@P+Jx&aTvoL0a%=erg+}`yx@33pLwBLpl87q7r!EPtgeuaptia#3wDThL6+tKIRmGAKm-!JxI$2> z3=3o?ll1!4WFyRdB%P{M=*oD8Im5I}eO{9+=S0d&m=K3AYKf*G-uDOGAs z4=qD2VOeOFDET|#s#KD5wF7IXK~2V7QPOTsn38np3= z`U~qmOxG4M6A%Sb6JfA|U&DNu@AGSzV^Vikb{Fpux1=MiEcJrH7Vs*YnkUPnp<`yU ze~;ZfkJDARed!VTl6M9%Uyyn8VZXRmL0tB(a`734lb9}$?Z(g?fr}SF+lzG(w7Awf z3q&wpi)*PRs#*_ZaE3rlz;*SO+gx*=l(e!1pZshm>g`i; zEhxN9Hbl$fT2Ka>)B?^HoQrEse)FQ@S{R}qX%(SR^e5r;^U0qxYBpbM#g+4HgYk>-c)3V5pV&{WJqBP-z zxjag|(SUkeW-p=QT4lX0PV1i!bN#%Dr>3MuAU76#1tMRrUA`USTH*waU~G!fNb=Vo zcIsx7NON*yr8C5}~qEcqzm}4~w|1dn-VDo*i31JQwbI>=7n`N;xDio}=F_PhnUlRg3FnjWM zz9vNaK7WtbgfR8*@Wj`IX!MVJO$hXD`o+W!WxX|k*~PS#q?)u*Rc`Ts%Th0%>CZyif z#EN?g+pgZ^R*Z_HXr57IF}$!&7{my#D`liT^`i*q$QKS!%y9V)v`UGS5D9&nz%;N6 zujjerC3CErF4yb%xzQ1WqDLoL$lmv6@nCcxl#lamFHYI_B9pjkmR!F0No7Q}@~Tkk z&dyT@m1d-NjgzRPLvu&u0x!o1b-_$0c?K{42t?yK=G?Oz=ZZj(()4h}b%@X1MnDg!PdfZ}K6KRSb#wcZA8;J0bAG29q-~ zk(``7IPnIP`55?gqL+|}laXvGSwFZ-QcEeRnTh@eTc%Uif-E5Ysb_vFVG9e3YRJ!l z3NW-PKJcREwniGplE%B}gGrS(XXS&mxDq#HxnU0{!n>4TFZFGS@BR7-d3VhnNqSQ0i|Kgdnb0IXc?lNNP1iIBQIDSHFnHJ zm~yOl39puVfM>Y~TXg}ZRs$MY0;rf)!y6?5rgu%l7qpW4(J24 z4~X6YSOr4iB@*>R*UKQ7A3hFvXa)1bXL6kt%ue0bAgEaPOfh@w2Af#c01(*gb9n2` zCfN$5zky^oeAYtB9(ghXvQy@qHrQ)Uh!?o?A>yGk3@4_~t_J@45cvfEwXU}QBKDgb zWCuwj7BFU;12N8_`o5BKobcPc#-ZMI*^mg0naMyXWokNORD){)^b!2wq=VEP<$XX|IzjYwo1t3Pu)T@*884k)20WNZp5BA%LC0rsux+HgicDJ z4bP-4+P74j$=~SP_K;a@qz-kvtR=JZ@PZTausqN(FL$jP>G>x@FYgHHmr8RU%LD9t zLuN!cX)1b7tNqv5!_s84kTPl`=6@ExZxo`7(E-qj8m@tzsl2%#u zpeh*&NE1Y?QfF^_=}h7zf|4u-flm7U8tOo?Ic4ai->;z#lz5RqQXxTz1lol@daC90 z`ML?99?ow%Li9QifvQDFoLXaPLye+6>Gw$B8(c%J#MIq%l2PoPU*~Rm^1o|e3xy!v zt%sD>2PL)hnic%ect7;-pPRureC`JEvUPuM!+lf!hx(@T!2*x|vdLe+0?f z{&|6etXoxx4ZSI5R(p4nlS|4}d<*Y}uo^z*7!?%N=FCMACeFBP6t#+K`B{f=stH&a zzf2!EM1WFaV;lF4I%wQdR3oV{($ByZ)jA(dV@B^O5n`Iiz&j+>24`q&F0d-8mM3pZ zQjJ9G9&$GgqO}_2=mZGWYLHuK&yrO0N<4w8tc{FH)=tM?<+k{>pQdsti~N#~T}Hr| zsIx9?0hb&K!WMOHHS)=GH4UM)D=KT=)QLNW#qx&~)fj=XTTzYpeHmgr&0UIW**f2$ zsODu3f-1cbh}UQg(V~IYcjPJ%Q&&Ue)20ZJZ%#FjV&By)o*nA!U_O*&v^yVsE*DR-_z#%_6Z0~!(=3w0IGlvEpT zzxw%7JRu~$MpBJF>;&Zea1l-GZ^_j$knqNP-x|1dGJg`Z3s-#a1Pzf)knEO&LLv00 z@zwcF*H2TBhGzuS^o5ES38;o+#Jxqs{j4slv6nRNtIKLV^wnkc>atp|{nce<7uBoF zYWXmYdBc2lS-C@BT~bi_?e(JC7MiTmbS>_m zhm&uzlK<#-sy^M8L0>>$O;$g+$!hM`dvBVo=Gf#{^4{5GHD~kF_x-b(jKF&}0NX=l zVBT*B6H+NJ4m4%N-R}%F#1IfKUq`Ma*{%JXatfR*Zeu-3a6$^JG(;HmfQ2>z$@ieE zM+q9X7)}+el3pkirX@e?!7<;X|E063_-obX&`xDA=n@@5cRB(7Ite=S6^+i(?QjJ$U zt7Rk3i$R-YfOPAqXpAvP~U{Z9Z+%(oy(Xc(;7~<9Zrccf*6^ z_^YSkXZAGI-x9BKw&cB8ubzg}!MDW!@}7p)QyylSAsYU?o(A}Jn#^a^p;13ug ze$k8ZfU|z7IJ{IGUMdbR6^BEN$4kY**{VN_@vt-hPgHT3V=wBmFBJzeLCcq2-v~Io zHy1y2?4Cf=;4{H$yPQh_-j7Rr!j2H=_Gi3*-^Euk`TA@!NLoe{QcsCyntQzD0lNc6 z)xItVX7sGSa8ON>%Q^J08~28M@aLRQS@peU|4CoJr$NxZ6g-y$i?3b2bUgKGUMrEl zNJ2zPED6bUuY`!M0GZn|ctk?v&O)@`q!ev#Z|Vf?=RKd+;>3^3v0e9`x_M5G{>PD8 zwE43b@m9jtr{?!!QdJS+isgjWV1r*d>FRH<1^3MX1 z-EuM~S<{5boJ4PQ&DcD_`oI>)Htv*-r6SG6WJX=V^A3I!!f5L93n!)ok`Q;G_w2y{R`s#6_Uj+0o-(yMs1Tg{?L!L&31_s$DuAKEuJn zYE~aGkOdrg*Ios)Him3qbv~_}LKL3hKs7t*u8I*Lo2fR1<3tRzS*!?#mb$YpIXw-~aBbJg*6Z>{77sCJh3jhc?AMw5#5^)B52o(6 zrhA6$V0REiDdn%INB52d5WiDqFhj-wD|CqNM`TVEl*n0YjlSjjbf6Gdli2A!X-_3JLB1{s9x{$RQ+{7qz>b05d z`<51vhsoz!3-1^k!E2ofg`Mlm8_aL(iV02YHsv&69c5a(DFz2^@R!2iK zHDb`KRIBK6MhtuaLNRHE>2ITe)@7GYfsDO#a3?|c=)D_rW820zPByk}+qTV(Z5tcg z+Ss=JjqTh#&+k^f@2$Fj+^U(=Q?2Q)sj2Ed=k(_Q+S{OuVETt)8*$GQ*! zv9*QD!lpm1)$#6f;?hJ+sdua0aio}kF#bT2bDvmudfu~1E5{m z7+#xVxjg^t&pmWxiMl3d$ibU*FqdU-xRbrl`7TYtk41&&QEz z&(A26#S!s=X^J|{pE9S0O}i9He<`7HKs~vaQM;&jc-?C3ABEUyOt-s z5BkLqKibp3I+H`^HjTUSi;dK1y2)=t$UGnLjg=m9JrzQtsc-t`BrwsEad`*p5zD&H zP4jJO~w8AiK5>h~jTgpTaedG2X& zCoq`@p)14NEaz}5d5A3u<#OzTLEHWhLK;NmIJzT|=yiw?;Zzyx4o!_Fh{u>*o*<1% zt?t<=(#XPxy!?mF2&d7$Y?<2yEuV?GkRRh3`)%$|D+zvd?xV=Q&Mb=rjPl zL|gcG;8N1|&>}dUVO4~CG&|F3iHA`L(w6i*?6J&W{FhmG0U(n?(2hoCE%~GKf`m@7 zo~XrV`3S@_T*5y3QR_3ila3RCrl+&275`;P_v?sHpzv6f3jIuoCBz}S`CVgSon~(phNzsdehKVeX3-&r)iu0jz{38gNR_Y6WFi*EDOIeX^#)H?%NGv zyPUAP{|_gbN!RPj{bq>EivfNEvN=M7JFv04?tbg~RAR2NVeTOjM|8I1?I%9{28dt8|VtRAV^@VwXBNKug4Y9R6h0vyQR~ z34bBdB-7>3**9v=CFE~b1NP_iLgZ#s%s_)M7x8nw9zBLuwrXzq-_j!@GayCc>g=B` zo*S4TySPX^ETsGSLqi5~i;L@v*V5!K<{-t>#z*u3578ar5Is5!EA$Pw$kMd>lMMH< zxF3c{gR#hRtDZqewVxv=@E0|Sks%!>)oya*0fNRU8ptIME$6N7W2TG7vPe9H7~}u; z@sZ?+>`Z)w>6@zvwI&9U%yCy%{DQS}ejfz2g6V}FT*FUy#9Zh@1msL`~Z$^UrNA23zCKZU8r z2@Sy^i-YeF>q8UF;FIfHRD1h^16KoVUo=8zTN9f=Ijjsq_u3I#Z_I?%MypyS)0cA3X#d1MmD{}<} zC%&VLZHoy0#}8Q0KW{2mSg>Fc!$~{(DMXJ9G3Mz2Qj=FU;jdFX>2*B=Q{WR zFU>xIqt(YL?2=N$oY_h*2L#ctr2#L#@BW@ehHM&&{B^oqDIZ{X8deK6HGJp~QBw%sPqV3v4kQCv{&Y#k-&3E`0M;3L4GOWDMLS*GZkV@JEuq-Fbc0)V zm5;Ys-6jeH=6Je$hHeyU1xFMefD46dg8pEj6yi{Pg7~^qF^Hpyn>jhEouZ6{$=GrB zbW9E7A#s6^$eG$E1*H$b6?~x+`F`(qu8$!ZtK{L-!vcs`#Un|ZKs@!AZ`J?-8Ns?m zGRx`PX?{*=ZE~qmNd0*{oJz^;N>Lz)<@^$_!0)!rpojlxMAA#wnHAOeLzZfGR>VsD zD?$nniXk-91M-@Ch{$0fidP{1sLH-t8myG9S>SAG=lVdpn zJG;1g6coVGEoQ3nYl4mg#Ac+*^{np3CGaQO3s&0|fpHnYEI^r(d;`UOOJ%|<(D8)c z?e$>J+iTMT1@cPr)W$P@?evaKPN<4MY;dngIOy$D*%+-1RWMA_BG7sHW{_nwQ8 zM*z=Z0}I*!cScituu@91ULx4i%YgC`Zi+E0Y$xJ_3*ZuP`f45`<8q5>f|&FbNP z%oebIGS#NrPT`VGw>V%us3UIX#MYjdd7zw{!c3YW)864OWYk1kRx#N$tFALeL!=?6 zTfVbZR;%sZ&-GS>el6_FUNh8%T`7uFg`a*~A#~l~Ro-C{JSyCcdg0_ZB(^C?P8tXjdrMwO+60rjEe0B>y^=mrV zZAE2ik9wtT9&#nVBU~@j?(qj1K}7H>hb=$MgrV27Vj3tqws zXeS5`Da-ku(m)An^1u$`RvLUfpQ`gvDjw2s;{K+7KT~b-44He7#k_0R=*qEhG%CN; zImOL=={xux;R0$m0=cpD*h3t;STeEfZ^Gamt?<2`NEBM{2*TS<_Zacp@aH)s#i$S z_GV8+m_G_PNSC$>2?DD!l4uM+#yoj>C4w73E~1Q8m_#{MhdLGC3>!~09=OPwkllIL z?@}YYCRgf^Wp}mili-FNW8n-*dSnirD$x%&mZysLdy-$|#t5cBKOI3&zZEfRC>WH% z_+~K@W^gauk_3qj3nPy-g_aR?&fQl zM)#l=?-T?3H8vgYhoodiOQ#p<{POxg#CBtu85Rsz#Z74^c4}L_+!zY^Vt*;4v3gqK zf~2DYOW@>}rn6f{<#cgK+OzhB8WO*q0ozzOLwCW{Q+N9@H=iIVK7N?4Rouv6b`ibe znPkDj4~(8$I$6lsu09yIqSJ$3J46RWm_7>%yTn8BGoQl9Fl(ow@QYeecA)Y`dUui6 z8&L~xSyx1EHfw0=nd`b>`N8L8YT9Uh1$w|5?^RjiM*R0`dYJA~No=`?+oTUh!$Knh zF+p}UpCt9QxDqLO$Ux#i^d0-=&}4>)tt6d}!`@jL4e>|!qPTw6lNWUJFYxy%77TdZ z-v7#xpzQ7VjU}YzUo^R3vD7wop+Peq`#vmaDM||i9lgZ_P?vOmPP&-`x0NU=A|wB> znh2N4nd#~vUgE)l$ZQ{Frq~q##Om42?4;LHw+RGBUf0EHOB>T<^nt4X z&iSD*DQ94~=uCgJm>W4KB9@nu6%>ZFrV)58{RswlnuCsB3L#|58lBn39hmkRgTj0_y{8!W1I++2nM1wu)f9HM_zq)Ca(Dxu-)Xphjw(mxro%>AiWDbJYck4X_gf)jgZQh66+Lv+c@%Iv(Nv3?m88u~O z5JQ4Q3U7tTQ~u4)d`6^5Nv-fu-=QXP!QS%L)$K{m(dwRHvVATOHi-uvm*XfS2h;6+ z=a0;8ULHR`8j+|(&p>-@HidxX_BjS60vIi;*!3qOFoN|MfO}h`M89fNCb*(buG0G) z`gNn2(glX~>bIF^cY{T%%Q@C#N|`J6?#;!oyh~@^v@O8D=sWFy{Vo;lpB^7|7cO8E zZv;5A(&VOHxTeG%L~B->{;HTvlm+o(j~>;!10;u=slfSZyNP|*=5}%cI(7H{Jywpr zM`i(ZwA%<>J&KGvob|Tf5NL6KbYY$PXptYNT?r;~oQ_@0L(nNXKcsMez?}E0R%ZAt zjoc{$l^n@zL2#+TwY|W=4@wsi*`K z?fddWtVHJj=pfS`Oi&PX!I`D=NV)|F!^w1G8=%+Mam-)`;W5js>%C=$zcu zN+Eu6y^J!ebGX{)SVesIe=XRsb95aTEx~mzYZtU0ZnJ=;=AxgCg*EO6kjVs=t>-~q z^DENClIS;wCGH?z5X;i)@(H9wawKQnGwgZZcnLY&V5*Vk6Aq`NX{Z>HRNyK6;5j&<^(4vWr+?Qv;5uoiduv4gG#82(gU`m@ zNZ@iA*^E0#ULay`rmutgyJ;c+!k}vT!Ki@yVKZ2t69``?!P;g-Jk&sbl z2ppx`sLN;fIX1*A-mGCzH9gRdZRG_xK^%|m(PY*e4uF{ASwkJ<=2KT6i-q`hoQ5~I zP8mHWfzt00!P8Y9WbE?g^Qc8jSU;2f0Q$kNQt$UYx&e!GsZf`dy<=Y91K)D0U$3TD z((j&W2LU@ z%)r(~Q{8QYq0y6adEI~dTiZ?Yl8==}ReFC+fp+ z-nXoN=oLF@%khFu^AZW;{Obuh!(?}-a_DUNZ(X~*K#$5~I&tMV!O`t)Ze@M@hT(=K z%aDWjSo$ocf`cVybn`CI{M#;pNDc`c9VEXN|4;^-tALnY=(7;bOT0|2Y?k4n$G3JR z{?;8K_WaPhHq&I@&A4S- za|%qSzS-FZSC2{~Rm#1(gNH!8g!xj8I?s#31r(;*Zi5OuhDCiii-cCpDuc#SFZzd^ z(o!#G$?OF!h$RySg7Mg37rR&Tj)&&~8 ztm*iqbGy6u$`n>i&d;|LRz|)J_9Ry2f_J`_DuYyC9N+!=P`%pdfk{AZQ-&FGOl zJnXdx23vH-#sVDW_A)Xt*DD730F)scmqbII}4#stUvs!9N?+=F5Gox!CmJ z32JN1b<_jntb+bitXl$Y#cYDN546F+vYGW%E);`D=jYds|Q zB5mj;`r?z>#V6;lSfWWNE92KoE);&VPXZW|QCEiGf(S@k-OkwWooQ>$_;mBv3uL-H zH2hCuSpj%5Gv_q;Y6eg=192C7>%_?G3qp5>Zcq zq=&?e#y$T6d_f)u9Aw;~1XMcG2tzC=t;S-~@cqgR9&pxbPLee`V{^H#+Tq@EC33m$1e@{9an_6A9xT zx)wsrD|6`u&FeOQbdWjEwz%xbZb89et5-H_*qgPjObPf!CCb^PxpdzQe6ZMQ2wp`1cxHMVOP%{Jz%}Q+1^#ml9<*fO`8UfH(uPnouNMm zHVc<)@LV_)IoCMHa*rDsP)Os;ioL7j{PgP_aE9GADkfr&8+U2v`n>yy-*?Y?=%dtk zh$GII&2xz|LIz8ZJCX(7PlT}W$Ebzy0xR$mkRsa3L{`MhHDyl`A6PxjnTQU4q0hgC zdEuQgRukL8Jt!l9_*}L7k^|Q+t)^~UusfVptC{b)I$i45dB|%6Ug4z5Kylr;F&PA)OPZ8yzB! zXrGe?FUsArU?YXHVBJJ|PBu9Rb3Ct6f~}mwG?+!*=M#-O1me5omy&U)=SrP7+jZk-QAMmXyjIh<#aCm zp679lrtEAQD?oWhV3oR{#pDX98t7=Wi?7pm_`}k^&pS?%zS zcbp8Hzu+jnIiZcEAL%MhGI2#p*?w2)z#o!DZ#f0`3U zj5UrIA(3mMn_O3;N_RXxSfJ{J!a|eIF`;NGU?7J}$OoPUjV1~!K#LRI%(?~>qXavG z9ATx`1!!Z9B%eA!`KcCEKgRY)T0k>@A_Q{vqMOZAU zoG4$DrC_2OS=o=l$mI_)+>8&Fft0{7$rT^aR^6M?Ov`;#aGi8>vz;pEYB3NyKKiBG zron~b&fl>|`E#7x9OpBxKinA1qq=8EelSRyk%&LXNac<<*Tf?iUOfcmb;ha)BiD@Op9tlP;@4IOfk$7|Utf z>d&^i$pL|7mmN+cE|R}l7+mg6AwrWr_c(iK|mx9UhKT5l?>uDS9lrY-Q z1@M6}{&?%a1dDrPO8jXyo^?@n8z&IdsKjv;5w=Zh)#GIBnFs=|PzbvoOLI|#keMLS z(bGoIRFE4@^;|{4`B{Cc_+8>?6ph;81~Wa~FdFCXBn~v^{)Ig=s*@3M zh{O4!0!uNm$9BP;VGpzV3u+B~_|z0KI$!bUI3yqm)>Hyr=5gn0su{kgZ-u-Z=`QG7 z(m|A_jm{hED$TU-UGAs*d|0fHo$nZKi*CX6v59e9MolLiBQwE)$+=eJ_o7iUYao>^ z%}A2PhIHf&v3?E&Ne9o##6pm0Gu)d5YaenEC(2ou22zMdOB1i{SG9J6rJXa(AHzaYekTJ?tD^f2*R9Z#GTY;%eiW zoLeL*#g7(6NlW(5r`{Kq7TW6xhBAmRPIg)qC_>PcJtE0}zb4!7v3s;rR*Ey>xx+`& ztDVMAz_6VCRZ#Y(5+Ty`b5znFO1Lv^l2BR$zoWO39}?hhmyOQG{er)rDG(0CW>}j>}=KH-X5f4VrX3 z_oXYAY16UwT6_oYdXMUb3w@{{w{TQ}x9S=~2O1%_WEB7R-ttI2KmW)T4C|uOXQPi(#ow$kNggGs z{!?2bOmdc-+>G>;U3=t+jHf4@cu$t}d2cZEK)B_~b;T z{v}sPeF%kN$_JZfYfsvuAM-q#=75;A3@@I;jw*(cl+eEgZ|k$)y~*9&Sk|cY+-cW2 z0Sx<@&qqJ1?0S(p9{k8LJX$kYsARMjAw@nwCDvNY@7NK+o0{d^aF0NAX~uiy!n>@v z;^tmH;Kos%xD3g+-&*~IL)7T1DMv_^E(IL)Wn_$lqd<#c)^^>zdF}6GsFO@oSy#*V z34|?V7n7+H$~SyLgPKq+45O}VaR+K@O@Pi`*6o8fYy+5%S)3U`BH&Mk&~0$5`awk~ zNGD)p;MrZBBP|kdM8AlVLXA-f=CnJyh52%(ZU@i9{YQNs&IddoYRe?oTK=*?W>X(W zr#3{$CeX+zW`E@cLGZKNnl*F(j!yRAZ?Wxl-_t-siH1<0!PyCO6poRedKZ}-@+FP_ z2XXk0iw!K+o1349srjl$oZ=-22*3bOcbV}L zVh&`*PG20;76o6`f>oNm14?#cyeWsJMf2am5-e$<<()<~NUR(yjp zqqcBr^4p^D;+4QWTh9-oQNZbVViso^YV0ACe+;=|x;%Q94wU?BA}TSN=8K&5t!{^V z;W%A>K>Nfdz^%D+m^R|;?z5Y73?uC_gjM{*FbvZB10Ml6uIQ?wS z(Fw}Nh_6s5^y&K4Tti+Lc4@0Yj=cYZ7O!Oqqbkx7jO89~p&rbHfO2qt>mtGeOJ^qeC(z z0+)Sj>i=2GXAm^Oa(;ALbl1m6|q%krM+*JtTavvEb6+;R$ z#Az55tF!~XNX8czTb?<8w`{`5@m%bU`W(&{ayc=^acCy4IPU{n)WY@*)MQ{IeMXka z#$2_v22ecmmxkdjMVJ(37TYpEi_26{TI3;uC79rjU{w#@>DvxUW7k$i+Zr?@qBjzC zwc7vI(63MGgj3oAc*wvtn9{5zCD`|F;e9=t=lKkTdm_3X?jny^iy==Mt+rd33PsX# zlvGGxEl;db`NNMQ2cizuwTea8LrT&|m>^Ed#bu(3|y zuAI>d*9mdZIsIU*HE9q&j;|uz2yY_?!k0M0i^zHLS3g5h)nyb&HBEq_?g*NY)!-A- z!Xf|S(!FUc_0x%Q<1KGcsWkP&bJRrhoE3RWTi(fs>=NITtu5+=HhE#3VhZ#_BZ7^y zt}ge{HdF_TbJrl@m&8!b@o}#8uOYK3(1#&8l-c?-dCW*>cztNp3&y4R?3_QgZ*LdQ zJpq-!@kqB;A+*8&uJ{_)^dL*bQY6d;*46*v?UYUwR0o;c5>}izd4Ha#aORC;rklMB z`X+Y-%jUYGb+CW^6^m|FlpfWc#mV|F7iuujKr%1Tg+j0{EYV>3@>{bf`!O_@54R zU>JlP?d%2Z+`s!|r2lU4eRHq?=sB4f8CeKfIa%qMzn=hv-xXy{j4cfQpK8h*IDQY4 z@V_sFVNf)2vU71XGI1gV{CB+HId;wl&L)J6Fbv8b_9lc3@&;xm|FO0I?x#Bjvy9<`! zYxx1?r?7CC*9DuApZ<_5@FbN#pN4v_sw5)-StOEU`JrA9{*VVeWR^RqNE8r5E#1+n zU%LBRQIBH1JxxY$u9B&GA3(k*2Ph@@hu!(xbicL^pH(FmT>%|0xyF z^FZ)q&Em~={k)_-Q`gh`N)D5=&97T)vn9J}_U0Dy$l29&Q9OJ7lDzqzBh|WbxR3Sq z$x!p<;UVrlzHjd_tM-0#lm4MKmHV-hC3`phgwXop9+nu&usz>(Xb{-ZQul^CBj^6^ zo;}-lzE$+)0Fli15Oi(xBX4n%Qb$ic9g4_?l>Ku2p zUADCeQ<55VF>}L2mAt3^&n(`ThL?o^Y~@W>ml2ASj_M^&px17(QM<)GL#6$i$Ch5` ztmsoiY3p9a40NOg52ljFEbsgAVpjUH2< z50YXG`e*CoAPQZ1b!`I+)hrJWO%EJ)(2fT1Omg^}_=Q9-XSW+fds8G z_{qFUy!1U|2+XRl{U9cMGvMvAC=4orYj=scMn`So5KR@>d|i`I71^V9ad7dvs`^Ns z;G;oe#^z`%y&p&shY@-eMK)_65DMM0cI96i{C3E4((Yq32QR}KHWcW>r$w4H*7xHt z*3HB4{T5owQ4Y-zN!D$3R_M8^>HJoA6K+raU_4}gVIqSS{K*8mJkQoA0wvBKgKV@{ zoiXw@(IW!H^n95hns_80Cw`QDIn{Rq(!M{N8gJ$V2tV-N`@6LQwY6%L)$*sCg~8~g z$d=LN;iD~}nQT<_Yyu{JSHglzuKL&o+zZcRsD{e$xh;3cn`~2}zuRE8%WmKl4dlrfXHxhWQ(PwPa;L#78bKl7A*|`zJd1t27%jE@|5e6 zArChlQMP5y?hDR_jeNW<&W1ysIP&MCAbp+71W2fI=pXg-@&;4LSj_1UsAs>IT%|Aj zZ(FgQv(2amLO81hP01_^#3hzXoa9nulp1IX(&*HI6DyF4`sp-3A`=X9$~pRMOWbbb z&69)k=HpoKwM)}YN<;Vq{9OQVZat!1M zyB<)}LhktecVW=e+$G8(Ma{OOY{~=FAeNnB1fW!zQqbd`-Tjm`u46T}|Y_y6% zmrHnkYekB9@sITt@1f|e#v4fK#+gyjdVd$%BM=U9i)}YFW$>v=H^Vew4gs1$rDA*c zlxxUFP$k$8G?PA8aFWF`iCwSG64u`j0fRMVXqC-Y>x;E~#0TbyoNrn-%OG2J9YZg_ z5bAZ3^V>~3kcA%b_m*)g1|>I*I>>LomGn9f`1;n%@#?WW=M{rFAA;-2`d-#*38EFV z!zEr`c0uc>=$vaU9d+yWGBFosxRtcU=IZMaQPrGts=~}Q_ONk^ht?afY@ zafhqaK|~QNT8_l4F5Wq9#Kg|gr)X#k;-%RiHpo>!chZ}?T zcZt8b90URDESkc`!?XKa9Pog$PP-C&V0JxeYAi=X8mw1kG^xDYI{G|C${|`9*+`=b zr%ONP5ma0mAj8%=TRWMx%FTGS3##2ljLoQs-Wqx1SDxG~?<+>p4C0L!bUTQJ4j2fm zxhExmO=WrUkDDabj5kj?>I=t7$oc6%11lh16&bt&XkjZLZOs<`u+R&nOU*Zl;un|j z8a?ZS2vjnLLuxjPV1{V&;pyUgL5qF*Wor(YK5}{JwHd+EuQ8=|4Ma$0chydd$ zI7NY@rp6moCkP8IU=Oq$sh8sSo~yW+Z07KVG;GFTHd>h@hV9r5(E34uhE;Xzz3%Ai zBIyz6VSWT!O}|;<)Zx1Pg%CWn?uC3@mB& zIpU9J=X6Q z^s^1@iwa!{rEKsjrR;tS>@!+K+Um@*Db+>UC1o=+Oo4nZ*6MOu zpIibN7uWf!XX*+k`wO_ufCK@h?1{fZIGb3>H#c^&<;j4aZ4iIk!N7eT10(#%BB1|#x@-%5XK>A zq^4tRCpXHa=tLrXKg}b~vO0FqD^T2J@X22PDx3MW$E<;tO+hdtJ7YSkN+Uy?vR4IB z+uJcgf8(~(@j@dNYX~=j$s7J;7-3Z(xX@<{G>nm7oIdN4eju5eF!1zO#V}TqOq@YA zaP?OiqF(MoHNc3aE&jU9Coo;#azqeH7)WDz%5#|HIeB|Gzck<&1?YU2Bbh!(4OID} zKmFMI_-|AE0iLKAE-5Xa>y^!^r;;GIDWOAV!6r?KomE58q}+F5n9g^Y1zg4qe!>d= zna@|@M_VJOryOam+JVJ+3GN@v3-G23262F)ys(p|9TvkGP0*VHzyvm%W*5cJ-`I3d zbA1e`NfJBM)#Ay2+SO80a@29`(&#`Y>yhh9^L+{<;d1>aNquQwXS-#&h~G~qAu*| zV*0Kd>8F$Xc23dHQt~sWy01M!)&jG@6dZTMV9)lY$+R&jEd_h97W4eQ`}w}J`4ZD4 zsXr+f%D*usIGTU$(#N0=IjKsGom0XJx$Eenn>rH^>$oI^aE|rknix=;ro?PTz}^GL z`-@7@)=#j=WFmOlm9OYe{-konOHeDAZiN1`x9ow4)e4IB#Ej`Z!-gQ0U=<%HR;*3LEWVWv z-K@aL!M-uwEXBE1rvOjUh%Wh<3(K2Wny#DBnhlcl)VG*qTzrN^PnD*C-jMw0G{-M) z0Qz&n{f5Pi*gLl>OR18=WY--rHX5I>bc__$rNAAb_5A&hLVR5oRo^2WohGgFUF{=u z-mUx7Xg*l!l)R3Y@x`QE^4VGG;-UwtAq{JdT$o|5`eWk}m4=lv(dcY)ob7qFwN5sq zNK`lPG$uhiPeo!DLIt%D%t5*bdr`BE`=yPd3|IFk@~=4gu=RxW|_118bVW4=-Y?L;p1>b#d(y2RIvw$7<=ZyBdPs6vbJ# zTy_zjjt>=$B`)&5W4Z9CYs9x6ryOWn+*IZ+4N|>SMkoL0a$ctwJz^>llOF$Eq_F>z zh~x-QPT*}63TsD@d0{m?&^^L>H5_DXKs21IDZ+Cm>l_6oDy8t;5E*M=~bfJERf4Kh<}!jGM?X2^R*%0B+%ZcYLgaf(PSxf z6%C`*2e-JGSHXtJvrIXtlpDv$3Xj(GQZ!s-zDZFtH8TNSIEWH!_}4N>p=4YWHON>g zL-@I1A_6470{)cEPi(t0do42g%OFo~aY^a_U|cE5=>_HVM5VnK9#yMPEI zD|AL`PfqkBJ#;IzaeL(LYjKbkE5&=WpJ|ZK(yYlL>lOI~ACo0Rtli#mxDT@RKq4ht ziiwr-$+_DBzo9ZntSR)OePp}mOFJelb!5mtbh{E|mS*gEts2Eu$7FOvPqn)4!bzgz zV8iNj!rlP&zi-4vdcs5jb$~C(Nhd^I5Autl^OTUY8Kh19-Y5Q$j31XgZAD zi&*8^nva{B^3y+109Jz=`s#C6%1#2xfR3mpMZ!>3@P=lhSt<~!*MrR1Yf>AWfc70L z@y8h#u2W>ej6ezc#V0!{hAb{`Q()LiMoPP2$%0RkoD~nOQRZEJe8fimEQ8-|I{+4h zkvVUkA@=Uib+Um_I~y~X{-;+ac)yMEP6hv#j%||CBm+_zSR6J^lYJq-O}sz0ZH0Al z7KF#KraIM)42Oc6Jf)+6AR4EO&@*;||GuQ@eZ%Sc3t%qOtH@PZIEco?-_h8{O5teS zbT#lpm7HreMS8v7ePpguAf^T>TM=Aa@TU%)edM3SKhHt7s&`7cs6&+|lE&7? z?PML3j}4R+$pznZP&lRNaUm?zh98Q$5H5XQ8(Y)oR<4fNLTZ+FMV|sO^vP|6gy^Ph zXLN(f9)*>Pe}Bg@X)Ybi^G11GSX$?7r$cBnWM%)#N!anGt`haZKmz_=>!grNg?X7< zo%Jhnfsa$v6nIPM%`}lfzlbmtRRM~PWMHn^hm~SiSco2~Q{?3s1e6&CnA=R~HhoMW z7;<PVKbjb&4i|R_*mub~^J_)nEM?=+*`@ z$G0+E1ZJXIn#2JG!;-NGnx_|9UUjyivGXE(I^eS5uQv5Y5H}N}hNU}Y?`?C3sL{fl zd*53w2AGu^=Y37En-Oo3D~8gQRceI4b*7#oOU!;9$9an_^{S>%ER z*sarAav??3h#>0Pb`3^nO+AWI-;O_8yU1&J@Z5NhJK>!VZ*6d~P@Sz+6&{Ui1!m&>Gz7I*=o=D z15{{_lA}$A+48-u=R@-Z>Xp)UqR*cP3Cz=aGzBCzLCYeamq@Pz1_^1CArMWr#UR0x z!Df(!{s`Ni?6mK3?urrjVK4CT3VT=ImiAI2D@>3;ssDw!qO~y(#C;Y?pB6!BVE0mQ zyq-7dC;FY#?n{I-pP?6TuZJ^-_v2T`9Nt-91=>UhKcOohF-qM5AoW@ljFt3vc-RJf zDucG26pV6!CX7hG)M{gS<~BT3-vCSa+{rFJJhd07t7dATvZ`Yf;h!+L#6pJi0K!d49Us+@5)8+z-b#4U>^od{tF$ZH$XU6-i)?gSIwtl zOXx%Q$@nUKn*uyEC0`B43EUL`$ju&=0jXje*7i`2L@47r-fDBp_S1z;$%N>oHA1Ju zU@LKh(6y#k9{8Q6+gL%bqC$xQibSFfrB&_a==w*hcMT29(Z(Q>9KD?F>k(_?3^O8Z zyu5ed&o6<8V<_sHwogR?v|}KGKof1UZ&=Ck1yflTM9 zqdDl0hm%Z}u6{GD;JAz;wwUrl+O2ODQciBzN!gz;Sa-%`y=B496q3XDAy>9M{4T>0 z#F@}RnMtY@VNPDj_P78C!+&exj0^H|-D;B)5GKPLYLTPev}(EwSS20U@x+4?pzSm@i?y28L<2Nd zRTm@kEnDeYDKl{b8CVDOKPVvmET`$fZKZJ6Vp~?_dm)f>$OWC+cPb zDmR`W6~9dr^3yzEjL1*_q$dGJmkz)=PB6bYN+qP|Umu=g&?Yi~f`*z!TI1j63Wv(PGdB{rU=zV;> zrd-blf|ALwymGjC3bDx&?Pxu1VsY`(!C&#DotdlGP)7I{Fj)!l z*Oo=7b!fH`BowOBiP>XnF}gzNy12>sGXjyquSh#bfmZkxu>zL$oHU}q!JB*Bdn1ZU zZs0y#XV=;W8W(GC2zG?{Yeo3&>=NwEkdsE{=r_T~vY8AkKK1CEd3`6HoKSJuK2$KK zI+_b4Dyy{yv$aXyh<7tH>?mUdCxrQmFA>OY){Cf5ng^HbHU1*5INM%Ycu$Ssb48#f zcD~2F*Ao8a>4__Wyv?uAKvpgLJkNHxdkbEf0$SI6U1A9JGjTF1Ufv$v$9W0PGM3Vp zEZxUZ0auv;S%V3R&em1R$$kmxGhpSxJ~39S*iW*rguR@bhb_wLIeA~XQ7~4zcCaaE z%5<4K_*}@uLU@@vG!jbcX5-~Rs4PZj*P--5@?cd=I}5s{OB&x&(ZUs)g8Y>Uu?Xkm zl4Lth0ak^H)27@IE4FB6lRKeXZbgQ^m%ePh&`$a~C$yfP50GmoFw`6IzJlkno4{-h zeC&TSUYZ7D6H}YgoFh`K|Ei|)Qw?pnQ~oz@JqV(QQdI-z&11_dvB}U0B3Q5j3F(2fXFC<^g+sbP@3RtwH zMuD#m>L_)MC1pu6y4%z~QT*79Ac~S^TxF7oIYoj!ClM{egLw+;lk(NW$luX*5Q2=c zrQs-G5R?lW|5N;OVJt=s^Xw=Q<5a4kMK1fq_kKgiF<<`dn5y`AoIvE7O}2{SdJZ^5|zw)XDW27nlPVOq^I+PIl#EA2>dKr&}@h23=n3GjQ@Ho1=RZ4WcsoiYE zHRWuy?&Y(95vO6oTQWUnYKW^}zN9cD-Hc*x;lh{`AE*BuEtX~h0HtVPCHYJZ3x1F4 zIh)rZfysP?1NdYE&I#l%llx8Gir=>9B9=I02VI;cIKeh-ijMds2sI`aJylGL zsG;rD$(#-*ZuC`p-2+tV2rK_}NZryR{>n4N+$y6;&@?4{?63}O7i?==jWUZtaz1$(hKtvWLu9C9_n0g| z;n{d|jn^h^kZPz}K^f~*MI?ng#GMl)-or&)4rMEthv~vXKUj_@dJbj$)c|*w{>CFE z+M(|UZ?O8Hz=r197p?K-xW8b=A45sj7p6}FYcf}Go_aCJ{wEN!IB>8y4;oC z>K;zY?)RYWMe)8%DDe(%Q+UgYUQJcr(pGlmj}FT2^;?e$$3>$is^({E@8?|q;3)I{ z9%iQcJ|B*ex5DdH@`6K|uWVd2#;siMceIaD)5jng4j<;SimSqlore@#nb&INcPHw@ zbzEg$WGAIJa9{Q0SjEelgJmD}WH^{&aQFkpO4hbMP)3uI!O+>1hbb05ifl7-iKzUF zl&?DOux=;CH8@$#f>ORpZE7w8eSn8?WmktMzd zHA5H#1SGS?<6T>9Eq35Y8sm6@^z>L@SfNtJ76n0-@cMtOUmC~dmM9h3XIka)4SpEH z@VmWGx!@)Rp8`u9im6xW<(emG1=?$VN9Z6)Y{DGFZzLr&bkJ;^KZLH|@m7(X$7jhN zfMCSL9;&0uo4>9f_!n$5>c_I_elyILVgL|`6r;^w*eh^j=KrXG) z)Xai^l$yc_11Mr`vTD%a$m{{b;-o&i*Kj-_#_>%R+pQuSL1v*48PdLA$HN9DQ0aRD z<=787?$Y(&X0(~dWrp}he2bT3olh)BX9cmwRiBMHI|?H@@NkN=5|978Xk2_KOSFMH>>sP@j8u_#|RKlkss znW>L*5objdl!fiS;uE|gX7xD@JCeDqT4+Jgz+H; zYiU&?j4gBYpivc)l^3%Fz}&irJy>yFb94XHoy|fXj|h^=z%Yr|YFt7GQR%7WnmN`f zpw)rokNn0$+XEbDmPVzL-e1K_8~1C06`X>h;b!W=5q_Ggu|EZ=U6`hfKmO5{sSsl> z+XBT#I4`}n1K6IK1Fq!MlcDD8c|p2OKj|8|mMzO+sqX|B?e7BgpHqixCbutvRzEJhF@wTTRAmav@%dIJB6mVczNyD)~MF z5nh-FVZU$K3;@pgVNyofKCgvv&l%C_$_re1C~+PgF?3qc`R(NEZ0wHUEg41i)>dZ~ ze?)VGS683axxzzvW9={Xd<=1r+6+^nev$yX^jcg4VTuF0=L!ssz7pC9YRDl8FGNOQN$)AU&`; zDo5;uEyF;l+M~M%42ayP+@e23%I^lEaL_w%ZHa<- zbVfZ-cv~pGhES43cfbN%1rEP&$7c6NyOfnJ`V^T|9!7z!~sw<8i7EO2R3coF(U}wvuV5 zH{1x}Zha&{Xec7COk6L0i`mT_GOTEhgq)&njuL<~qJX3(&@Yb3Z{T%KG6L|Qg~TpQ zc6Vmq?kshzG9(lLd)2qP|BKEfyL|nb7yye!uLNQw35K|USBD(5hJ&fd2qbY&4(`=s z(paerKCRcSjPR5+tn`mxJU8XRhJS8Y5}F8m>?Y~#kPTtzRfyO>Dn)*ka8`5~GJ_J+ ztve1`P?5K4IHC%PHTHJr#ox85Y&F>ThQa;21=n9HyG4I^=|ZrH0^EvGHNJ zh}27?wHp4VRO0Xqv-4hO98go&9wu~7E-V405kl+dRNq871BG78WG*6@J8kbhwqXNvV#EXTs@B3VY`4Z?XF z|0O0!EAdk*=9M|Dhta&(qUQ%9DTtt~SXkfr56!o{ZZEzfg5}OT3G|FHV{sUob@JBd zrw137HA7|<;g)=t=_kb~IF8TsUpY5O-gIWhh8InS`xln5?VA6GJ!B*8e@*Y6!>eV#gR;Bt=+H?3=T~v zZO}hsNwBxBCgXGDhL@}r;X@UT0hivZH&3V6Ab7cPMp9g4yR(1hxZq0+hi*^k<)CS27YiTu1>u<^EA%G=WJ>tKx6qpv(cYNKuNebWZmRrH^>dx6{!# z_g62}PN;=~&uUy*u7I0TJqvbM)jhibf0t8`=wzUVlH z`e$xtSL6O$homsGU;2IKw9j)s^;r}y0cTtUP9nl&FOx*4)+!OJ5UhBGlYCK6Vb%Fj zZ%prGE)a2|4U=cosxkj@%6l%56-av)HQHmWMkUdd-)5l55)7vf?Su`X?9g(iK)qHx z{)f_6%gB3-4-KIvsGu|Y_z1sP>(H5od{*pICkIP%#m!-wILET-@#U*|Ez>4#K$6#s z-|!**+vnE2zeH9{W2##Vv9-rJYzeT93rX1c^C@Dt@^3l1J)eSX*vy_Sh!NRLH zMzoTlI=lBw-kK~TdhH)BE2qv9uQGhA_1C*xf zrSS}P@(^8h=rw)?fdXT6B@;h&{ClhxsvI2!JGBjs{!-MLN92OAOHR&2xBmf$og)6? z0iSrEq@`}+eq;W)pXS|=Bb3TMAI8`?9I{sQ4{|9O7hPnoA>8TBS-@3XDl5yzu?AxBuajl^uR@WM=>=GTg!q{^WvXYUXBE%bP|KS!KLQ z+dpX#mT;qAZIzgRZUN0QZmlu}ZlMHzqpU^5*F?AtSXhZnsRl8{nka_!x`Ytm@kQ7- z=aW@0rBGo|c3W)?`%8R!V?`bx#9%3+NgzNEMWbT3TUwUhUmGO(NFM(;)U`0wHi;2V zyPIxA=naclJyg_}_DCbvEim|Wra@lvAy~^2^UGbf##t@w`!Vn<%jg0bMLWY3j&g`lyeN;?8*Z8Rw1 zfEq$9hT0tL6LuAENk85IU}=$vh+OS3%!^nvo=iOVgMU~nqb8#>9qbVMe@YNUiyT8k zXw5>!0R3*Xhc!iZXNz^6mQK6zK=~ecN%1!`xHc1O&RHF+zOUeJmiJo)%;ev0I2IC`MJ^=-uM0e}A> z`Dax5hGI-B(Rr_i?6mprea7kMvhec@Sa-O zk^mGq6A3X!;$Bwb&n%M@q5yDy!xlzEl;bg5fn7^FJSe%ixpy(|*Id%c6fjBxMEoIT z5H6&-B-q4YrmvLtWWX1rI&F|KnaL^j7Gd2$t~W!yN#&gA&caMt;Ho$B$zHs_Tj95Un{T zAboBb*&!VbNZ3~AT+bu88PWnO3#D>LMg2R6;e$ewr#OLpIU0_NP+?n`CfdJEfn7{i z<$(NU23oVD^gftMzLkPOcKSo|ojtQUd;AR5OLp;UWKZD;_N*I8APi{R*i2AGw5-GA z@_K|wlPV3xg&QK)*bFNLU{?-K+ipxFv!Q+X#?t zy(Pl#$)EHG&`F=J?j&O~Ad@Gk^Jcgg6Ej=(rb>cH=l};5VJm!;WmNh#0vCww#0Z3F z$BLoY$yv~Dip$YiQvc#UVIU_2I&ZZQm!UpOoO7cUST4pUecPW8#-$ss$ zDKQ>J`ei1OQxgy$$&lwq7TwhRt+$xRi^c>+c+>}I)+6K~O~xjo^_$J5sslh@{s30; z(&ntI6);k>MgvhenORa!3_5^c?S^pE#y8;EmRsVh9b%p0sd(E+Rffh#0@hUc>h@an zSp2g0S$))CZyo%U#9veo7&ns~otmfz$R!UcaX+b#15n>T+uGn%tc^ZGqi#@%zn-`& zPNc)nQ|rt~`yK>3-P7oxH_ntPrl>MZ%mKB*6ezvS1)`=If;!u-bsN6{Da?gI=_ z1D=rVTiiyX3^h)D$p}#Vj41`QK%SmF3@oz*Zi&jo-DL z5RS)_0XFXZR#4+N?vCKw|69c?to;R>x|^!T!yyw3sAo#xjizTz#qBu!jM?##laTGo z;3df$Cn?8*lCY%^u*HvFgRe1jr-zUhQwt6Y5!&z(%C~VR#N-RBAvKy+^eID~=ls%s z=g_ImcZ{}Hm@d^py(%-Ipi2?K6zb`3--G;-GAg&hPcD9R`GdEXE!@%#x1z|2@m9JGEJMd`&7ms%Mq+A}*M)6|z@!&D9C@pw%xlaGeAepeD!>v1L> z2V>2?wgv2QeRkNwKqV8y0o}`h2LNg0;hTd1fgGpcLg}~g?-yjB5Gqt#fyuqfe-TDR&~ey$gantr>;jG_R)g0xY*0Amd`$CyU3Jy-mBe z)lGC%y+v2c#?P@gU>f_#VWT9&t_eXv(zI{xMvE&IDK_Zpg^qu$%F2~7Bjjb$W?~Vi z>Tnii2%mhTKZyfc_$LM@WDL77GS+mrpi4Qn&&O&mmN4O}x;2aEGfRJ4TkMxc%fViO zz_CZWdk<@y>DZ1Xg0Ld{f9pdtUHlP=UA}OKqpo6{lY~L|;U3xk7FPc61m=n5neX>-A!@vn5m}*;0s@TxG zOOp;NM_ciHb^7o6B!LMWbjm@0*;-YgU_! zFmoSQ^Va{ggP@RFXrTSpm_=V$1>9kP$ERVLuxP`<2{MwEe+-*&s^Rfk?($v>cruhU zA;+K<-LoDqAjhZ|v)CcWs?ZVuCM{etEH{<3hAT{TH68y($kQfrR2~nGq%$U#J`7BLvd>yy@>$3T8T!b))+BBZ ze^;B=u#gR=cw0?D2(S$?dO`v1*44uXHuoOfTfI81)ctJxjn$|vQI3Uq$coJbk})V zZiptaE1??+#jc;2o34SWpOC}ju;NzgO~h^;q(%F9W2m1vj3UDQr!|XZkP1bK>2TNf zNARV0^=O~#-MfAwGW@S4?+=m78`ub~>RSU{xHj!<%<55j=1q(??iMEahhgfNJRjQ- zZDMDCbp1pS!RJ%`M1$Vv?KR2W@UsOfGn!?C@5Q_5VvM%~DP0-P^7X-g&w{?Wi_CLL z;0BXV*w+Cj_k8Ff2~s-w`xP|$DkqW=g80h~M)x6@(&Go&$wL~Pr!Xm<$u$-%7aD6e zz3G~I@K%%ij23S&wCkBel$zIRDILFo7^!WGA}JirC8LV<=tT5-W_K0R+IpBC;zZTl zJa@5*S2hVsYQZ~Cl4Q{zR&fx6vpA*Dq6puhqW9aoXz6&Rm#mR`{5&6ATdKr6nQfKu z3cSgU@j|@*jf~xS+Y{?Or^CS3p^%-yjSLQt*_K*gUTY|gPuO)Aj{K98`4*wIpXes* z>TaR7%ogc-DhBm0JJoU1-t77Fl4hBuJeckbAH~}<5;BEE5~FG%^{sWDZpu0J8*fg# z2pKppoIbNZA&77R`K8fV0_lEF3RofIOQR0~e<{yG6bY)PKI z>nWTB3yRRJd>J$5RdD*+Bm1N==9K`59Z7mS?Tmh0826HT;T`v4$5}jnLz%VA6HSNv z*zBpB6g4>9kUu7>0hi=Re<6R+5Bb&k81dG8Ls;%|w2lSqOjF%N_{$RL;G$j%S~mJylPL zus$9_IPoY_XZuRtlA%%>h800P(a)&o-g8(oDQJp9+(DqqvK^j4!PO_+a zEE!#k`xIDOhx1q)DEc#65BI}xdhu7UI`Qo(Y#r(0=|GeO72eE0@}gg;Y@Nu`mj$1XkYCyQBOWpWEf zxXl(q$Hkqc@-eizNu4nZQ?AHm%6%9g%j?eltfdpy3t3LyFB()jAN*NVrWt>oTCTS_ zrI+0`cW9*$FPrl;FhoudgI54S8Inu}qlAgjq57B+2+};n?r+ddbaSqBKiR`m>hwur zq3+Wsa~cw0C*~2x5Rg=omr|eYByqM44dM|yJ7G0B`_QS45G%`A17VM{hlA8+h6Q~U z9*b1Uay<2#AI|N;p&t$a!c~x&D9WD(Ib)uLu+am%VramLP-kf)q3CzA7~sRbJP&tb z+!3i==YneuLjL5F4)l)^zehUC!zzv1Mj^SiCM>a$xa9F^@09%G(~x>7&Z&R2pKhQl^RMag-%!o)Tk=9 zNuw}R0P!DP!}?sTl+!I(Yo*l8Y{8s+`G5x<1w@Qe5Sq4S%@XE2A{WkkT+!;X3(TgF z6O=tT8D{mKZOyH;TEzl50k$T|o@iQJW6e(Q)ySa`KS-~lC2CdPZG^>VCKh@#ITwLLy5S#Z-HF z&t77)tZXOY7t-l|MG9+S$@iA zftY4fjXl~}snGz#e?`quE#`3J31m0JB<hn^G_sa znGj)+cIg1)`V2D|-hg{{yX39R^`x5q8KRd0%grW}utT|Ca+T|hqB7%gzX9qNI5bK5 z3z}Fs5t6lj1d!j`;P?BS)=m%E&74bE`QG9%&TT@zM&vB(O7=nkg4FQtdS{Lcc%gNx zt%4c;EhP{S5-vAqXmxmSf3jGK>HvY(ZV=lCAPv(l0h4~XPq&KVE`bJH_!6PLhKvg8 z2f`|%!sxO+2`)@#0l75aLfqJ8wUnq4ssycPV#27ZOaP+308pKjX4s-aGIYX@fO|At z!z=S*#~gj7`o|yTaMn@DWrH>{6Hd&zK~i1jyHbB54_Jz`gH1I-r<*GF>{B-IYk>t3 zHv+rQf@b@t77laf&2=~@y zwg!<-(h^oAUKjr;5aI82Y^OIA;ccrxV4YouzAMAFN@W^&EqWbuTf1OKW-PMlM{3CP zhdBfzr<#fZ^s#Qu1MdM?O7^`gb`-6a=o7g<3*~LCdU=yTKqjqcd{Q+5ODVgvxe@w4 z;QPZ{T+&s+;Rr4L03IWi0^@+hm0ebga2LzHzB&{S*K`OI^(!bT`r#=XskzkwV7Qu< z$&Ny2EdK#}&a+3jjGG5~(pO}7}rWx2dihf#*M=YRs`1YEYQs`v`BCrcr$s`%?_*5q*tf+=AYDp-(MlY#>HrZU@60VTr@s!LDN-5)@jM(Byq0I)Y#jb2%wnN3mYxf>EbE{l zZ)pTOPOD-HrwWVtYZwo+GigKu|2faTJ4D7c97*68kfy9&?d3O%chC%3+*X>>(wynq zhKNWsYtP`AtH|!AwwzUEf}#=!6Gqz~%(HDHwVHxTxr6ryU>ji{W6uUpgEx_0 zI|-NK`XZuuKn!_J7rx4YCYB*X=}}ZQid4gg=O5c_ivOm=5_?(EU^)bHMY@AOv9V^4 zD9bdF9_Ky~icemE1*>1WKP9qns+aA&=|IU>(v6~br)g5t!=8Fyy&g)WMIWZ56vwWM z?ny2NW`;H5ImSFO@@k@4GUB2CAfzXvG%dO!jA5r2{-D=vj#_Wkd^HQ!tU>?&8qF@Q z3o)jEGl0`%JZ}&E$i-TSdjoL{Y?GrQ_Jf4CRj2DBEN~`goDf>AAMES_cHx;GH)Sfq zFw|HVHC!5S>CpYPD;9z@nTU{=+A|&#A!W}e>%e97IGt^v6-;w`dCi`*q1s;gCvX)M zJD%N#MOW1W_@?Sp7wFyiRnZ_nx^@?LmWL;n%$y-WIwJ4BVt(Yak51QmMSRM^F8M(Tt9r2&lsf;unVQ^ zlN_F9b#*o`aIT3l!A)IKy`i+25J^@zw9D)y>YYqhYJ+!hHIM<_?ZF-DJ(s^HWL6tw z&=cfm9*zsS9)3{fUcaYo7<$Jv{YNJ33xkw?8SeUkn*D~BDgGYz@Km?(smuq}p zJIMvsGUXVj^RW;_1K@Q!u-&Z{*ZDD#v&^qmzbBR)OC)Z;Aam0iv`D4_r)S#|{LpOG z&IZB_9L8jtMqfwp79R8pGOE~esbQIy^Y}RsN#xQbD;$5mG`#8ZtfA^{ZWQQ}=6HjJ znt_g6t@S06f%^EiF>eoC6Tn_j?X7_)YVEQ#{8AmdaP6JC{^#223!&wJMO1G#3o?9; z*ecpfVb6-B z!Iq-Wu%OyfGy^eXt0~&7C9przqF!AY0SJN6M(YB)|9f*BhJ z^FWmu@yTK^rM~S+Hm_swWPDdgoWz4wZKjB$V@9d2nkf)0Q`izBj0)xhKjNGw=o7NM zCVPbq{a4X$HRVxxGX1q^c@k&78gFJH>nNH-DzpVsvZ;4Mfd_Ftc1?Tb)0W`i zK^<-UV zj!%vXFWQ7>*HF3oy!KkC{NLQ#&lq@06;C6AAV@?zAh>+M$=b0q;h$Cb3Xir$guh2V zWzr^YAEWZPA))JHo53lIuiUMLSo1i{s!VxiqNEuxD$?XLqqQ|gIIEk; zPTixMA?g!V)@8Fj%O^l7cBJH|`tV`wee{Rx?t-nUO%7np{DA1}fYNYE&Wk6Gxq3Aj zcC@-3k&dSnP&4EpRPBzFp%LGyr&$Sul@MV&_}#kBUtsU`o6#3aB!R+_>#?ZlK$QEu z9;_Ef{*F1wcq^U4FMP%~8E1}j5bLTu9}FhPS3jlnan~aW{;Vra3}`AywHue@*Arq` z2eTZCi&M_D80i5(cw$vAl9S7I9Qpx?B1x0ed;|T>6s15oZ%ElUBgTO!Ce&0bD4ke@ z3XQ zce7~6PIq%W*hvguakf1>z^{HaPItp~c&N?Uhzvv)O_Wbe;a2}|Tyewm9r~T^W(T4Z__2Zue>HTyu!&w6gt)Iex4qmpf zoU%CN(khtK4E@x{w|Hq-yuqHSW?{J^ITV)#I2ySBQws39n#-nVo6z$T$WpjCX2PgN zoelpau(e<5hMt+9sigqaCc-!LB_oICj*GTrKZB-1dgGDvh35W+#T_|RUsaOz@6A^| z@8j|8gprX#&#lhD?SP%lNL}1s?MNknNEUaGnOUlFOlhUkC|w{(-#}#vP_ZTmeyiC_ zj+P@%(IPc&ZEC?=uv|5qaox_LS{vC|~$_RuSyVGCh zYmGo$u!$877jQU3H~8=#7TuE`%k&u+xiEvp=2P@H&QxCqt-m22Gyc;_9`R7RpIE$j zS8}8JS~4~JICEHss;QyIFF1Jihyk-hXlTgI1xXN8Bmh;d`c#WCUJ?B zNAJ%s7XSvmx@B~JRSniM+>No^JTO-m5>dr6O*LEI5egDuY>?%WFb9&dzVgbdvhwK4xXtbyu0V~`(&F}}Dx#w`2Yml+{Ll<( z^1H>LRO^@tfC@mVmQ>5aF10#Dk^+HS`_1OBAH7*t&@(Vv_<)o#L%BaEESAGLFpxhw zD$_5R<}w#~^i5zpb7J4GBAh^D1VIO|k3U90XmraivVW+R5^<&c-?FTqs%MnS*@r98 zxEm^Xza)%6fs^s-U*}6uzH$BY_GCl+;UMcV1VllJLG2 ze?j1%LvoYY5b1ow8X9W2{wVWG!`u}61oXxMYVOJY0qUq32B^xE{a9wGR`rNbb+@kD z$jN?e6xF0o7gkzf1trSUtLWm5>e6TPLg`L@456{~-RLvJ=}yv> zFPz$G1J4K^*u?X?kwV>;P#)X^JlojZW3KC#5h%AF9^4bWo>^SeJ*QBfZ^0{jV=uht z*BzVK6ZUZiVqN{%NSjWBSTZ^T*VO~>)>T7Y%h*J{Eu3d|wQb*Qp6{87AF$f#@q_;X z&GjEv>wiO}Vx(thV*CGyRKKxN9SMiLJ%r0>dj1A-wRC2A{yI`G1$?`In9!m}K}}e{ zK9JH0=I~64kYlUHD+(LO4N;=v$m6eVu5F_DLa=Lpvj4u%!R7i|^XK{wE}Ye}1z3_bKeMuGeWTN7e&RlRV*ZOopi2{?wpE$3gXUW=xxFmI8X z;2jRTjD3l{Me-kKOk__WH{m}-jqBct=KSF#1M`jnVg5b^^)oOsG;I3ua{oBl_)V44 zwf%YFMEl+u$2-b(K(yliIqh)I`B>1sIgFgZ`?>jv^Y!+HdM`MlO9y_leE#w1O5|T2 zIFi63XFxyki~zM#|s%k`D|7N&{wF=XK+d+BR{ z(aPtgk*oD}ZO3e1e28_!QuvPRI{PFVVr2b7x7|rw;d;voF)mwg!jH{4O~M_tt%N+aXfx zxy!8EI&cA^T`mqI2c!BjMxS;+T=n(Q(^=7{+vN=M z*_tWn@}ApD`_w9$BU4T#^6^!DaS+?x^F32^H?iS+=`*;+Q8U9bbk>qH61wHTc4O!P z#4ywRkeTO!)&ymvd{7Gf8g5UpjR?JBDX<4N5Pm6aa zc+r6TX5nPIlh^P5UYXu5_A)TxC7oUMJS9soQ!m_(S~PSkBoN9vM@MJJ6^TZT`F*D1 zVr5lL=fP2-HMcPk2DNZx5_9R6eoyp6Y3TaVsl%~b+R}IH>_L&MD@Mu~$^XytXQj}z z1zZBpUqv{G{^99sXb94X9~Q)#KI&>{y3}EjziefykwO3hq0uM)n;**}+c2<>2p5Ot zAufaCE<#;;;)9%3)3M=dlGt4Ck;GJ;n+-m~&SqS%@Y*isC@aHdq@M1y4Kd@zCQ%s; zIh75;XK*EB-rDIb5C4wh$3RjrR%9$3tF57-MarQ8bPeF69Yo4=)h&HM_VYjxXr(gQu6;@MbU>m=pHYuo18Q zGwFAj3X-FoY1P^s^4rgE$;(&?)J4ag$2Yjy_Psx6L1& zOiqrQsMD$nx^GcOMb=9p*^6kzx#u1R9;GxnCJ=qs6zuvXFVyUciSah0nhKY=$>AG7 z;SkKf>t$HPVNp#K@;Cl)W{^(dB7|E@rg<~-Td%%H?$ce<7}1t0*OG4lJ7NuGjen1nXo;l5oCgo zs3ZrDtxCPuqcgdBK3{rRKI-2tk1VmAFm6$cRx-)Ev5~C$CsUPYC_^P`?|$*2{}qBs zyQ7eEvF&QxRy}xKSq3eQ_(!-obbM7-yjip!{V-TgV?WK@L3vq&0khF%AJm|!pAxWo$KMtrk6O0&J%Br zyH1)8kfxnmv|KE0r)Ht;+azsg)Y2~0oa-7?_hmQ=t>AGdtAgA&20f%@6^}u4yw74Z zEY&uYnut-@ql@B!$vChwr;Sb?=QG9qNMa=N7QgmGn}G3A9yQb`cJ`@c95$VLI;+bH zCJ>Id3rQjZuJV||`0>&|%;!-UK&jT4pHA)euT5sZuknQtn#cwlV$_K~whwluXqz6X zmS%&H*ncj4;Vv&I=7GPYX2ewk#Flf*8k-veX|C@gJaEMktd?xfSGM3Mhs&+Y;dUDS zC4wxqIuNZf(;Y27iwDetK1|-q2fuPf!lBL#iK#U_{Sc6`K5=b*Q0gyn2#Igva?v@w zIQ{K(z{5e1ZkYX78FxB`Dg&36s9L}iL_Jd>LsPam{I&&k!>h~*|Il&d81@9N(J7U` zKR0-l#NX7xOg%x!Hpq@K^eXCS?pnna=ZB8U9xC?YH_>QMN+ho_f)q9ZI{d$)0cS_uiwRb43w*-l!|Ae;d8Qjpx+pYJ)0ANzAMsfx>b9_eXuLC=WSzEmiq}q2CO<0 zaj4{m>r)WM62bhgRuuz?iQ$B+%nmC;jDPhF2J4Wv1=#3AVSbsZDEX?Ctb?nBPx3i& z9$!qu?P`17JzM$QDUA9zwn5ABrT>Jn5kkW6mxDaPid0yor!ty-yU z{h%uy(qd<2ccnCtOQk4MIx6E>x5x-3`5Zkh+2Ttzz4zCh8y5b+J?n#)f&0mbRlscL z|5EE16XcK@M)WHSwz+w-b(b)RqsJvdjx3mMOKD@q=BgFLe?WJ+>8I zv_ex!In*`jBVEX)S0>vte3f%_h@EkQf?$g}HboUDS@~JwzMNAQ_S*5>ostlVGFu>K zC6LPR?nF*>EW(gIrj4j6FbR#thM_5)o|i+FBG7%yKe_e-oSYXr-!)3&%(1C4mH4QL zJKPbF)dMjpY359nO?>@Np)E$yt*fqL=B9K0Hf0Isb4l>8wEIaHOPOMaAp&vTmvs+( zY{3gXxg7bq9w4RTsO#X|9dmYb*3$>W1NYTKT@~1vDb)AK?9L*Z+eI#jZl+40cLP;~ z+`hz;ND%M(pNoHzU5xs$2`ucA1%PT1rK=@07lv~m5F`adOBW9w*%|)6U8cYQdqEv^ z5>*5)cywB@!b@khVD4+ief))AH4`wY(!l{CtV#;fbxjG1Ris#E%rZxZvd2BvEPNwF zslB!70BONX^30gYZCuZ`tb0$HKqA@ORQ4y6Co=)Nm&eyv&r>BciQLkqWztig;2ES= ze;WPCT+y~|5Ck4|Y&Ho`F!vJU*e``|G=fOFx&$y_mHuOIz{;WYp)Z%&Dm^K)-9;Hk zWCFGRG5c$Xk_5L6Te}y=pn_3yp-x|H73I zP9q_4n+RMZHEI0WWg4ui_{$CVCmjrTg)K1YGmLIJeC=q5Eo_ZIW0c$O?{qxBWo8-; zE~gU$r-6%IBfOHpA*{hO*Ia`lVsq?`_yi=i$nDB}!zA#Izyxd66J3EZK;=RMJ|!Zo zhD%_8HwF!qvp!wEvAFk+Y_Tx_ui4t~O6m8=s&51bkK_dC^ze4ygvkv!SbraAO#+6P z^{sa&bt94MZG$zeOJb_=($6e8yoE9&i4fOEYy5K6j8TLhlc}vmi@SQP zMMcX?q?$c1hnHr$Z2pZh7cNoy3Mw1xl**IPaA5*1DM*$e2mKD50Hu)#~wxjktG&sNn$3xit~&bw2l<#!Ih_) z`dfgub@=Lg5vt(7&;1g;*kRK@E}c_?5B^>x%u5)t%U;Nry7*tNWU43u`v0!SfG!U! z{$lz|;M>%~=?o4KWR;3Ej$zUC2n$ro@Ac)aD_q2-6BppF2SoMod!&M6^gdZJqtLg_ z66;Ncx|cs4oN5IHgW$4SsL|s59{`C!cE6k8UtZ3kd^hbM77#*g^4>dNtL5W?B!#1( zijOBBEYLcg%I#Cpsj3H(=rm4sDCzesxvL57Y9%wam=@`cBJ%yjtsw!{$rZ#vVs%g8 zw5#|f+))tI6bA5dS4nin=srnR1=`&1S`#^asRg8=^3XFpW}SBn8Ve0 zrd2cdTdT_u9?izrTV(goQ_2+|c=kSicu-yDex=-X2ERfn_fB=0vmU$r`?pleRc3S| zW|XSSz!R(~A^Nrt6@O`X%7M&wtj z%McR%8Fd*)zs=6|+my=fy?eE-E_1(BuDHZsr7mOK_Z$TbEC}9_x_6(;5XH<^|_>1XxJ8i?@N3C(^(Ow#Vo!uC(9f}_{-;H_hx4eCj-l8 zuYc)-k9KWOg;Z$~C`~zC%Zliawoe8!W&(1Pn;6Tj2AyVL801Q=!Pm7AyChfbz3K{n}Y zYNZBvsAPr%Od~BK@ne^<{wTwSNQX16+>{aP*~ROcubBN`I(U*VnskVE_TIJ%81--V z>~ZP5eSb}bnRz>fMbbNLxdDC5y;s(j|No;ou(RO)~Dua2((O} zv2rR!4gzzeV9zAOmHYl8|542v=L}qVhXs;AO@lixeSTSCxHr|q3jK!;f~s&R`(}7TKBsi z4ak-T%tM-&o7FTTBD0KOb61c@+uSPJn@3QBTFbS)Z)LlCX(1?6%P>8-Tn7bpQvw>( ziz&sG^Enh@NI>;NckPk+`jF0_g*+dnV9zAHH07--s8$d;rGTg8nbs7I_OOYNv-pBb zPe|F=`bD}>OR#l8XI^2NNm4Z9X6EHynKEq7hz*erAIUE*(ufDZ|qsnB^+6;SWW8n4p?!L^aBbWk43c(kN-`vu>cRgvG3Op0^Ib6)*J6tQ#q= zp9GZo&E_D9Y0_)1K*R+~G#qZR%Mf=lv}Wv1olq zWuERRyX}Y1U8nna9Nntz{b-5^!jo!)Hp||x+uTD9+61#5+w#9YIZ4cg6f zG3>?v>IQ9gqWo{vpq-{FX0sZEUkzW?piSyN!u|$r);$&e#0G6v5m;@|X3f}N(4hTb z`9@!AM6a9t$}qmNM)Zyji(Mj_flyJN+QSCz9UT_33^DP~8?;&DW7wbHeXc=!nfKf1 zR)aRA(Oh#z$zi~oOp_mj9@}crhSYtnj9olrfK;J8JAs89HB8DS+}M(GfVL71O%cbc zz6yAXR9HRg9l>{F2UhACBTTabeg7fLR7^OKagrO<;sXuZ%lJ_36liy7pHmgH>ytMX z%N7!F}6Ph77Afaw>1st-JSOCh(iaIH zDni$~FSbyBQ*tXVpsK;?uZjpQS(khP!{VoM4^zakREV#X6M+43+<{Mg1=ji)*Pj(1 zQ@zhvPT<3}N^OsP$-|Wkfl%u^!d$N*!|VS@Myi zhGu%rUK{+fRsSUrydgHYC29ZARFFCCsA1S_dfe;E_*c?dj97-Wpl)DeVHc*5*|@#g z+->FVvsBZMcr{Pc`1@F@f!T_mW~sotJ1iBB1)ub=RPnG>f4rsIDS>uasu=ILRKxOc z($!LpD~Ed!w=u?pxc&9St*Qz?h}(m>g^wP@?K5K!;x>K(aZ8}TJ8?VopR>}%&+PCs z@_WP)wcaV6R07)it7SL^ySVQ5s`i0`rXb=T>CuugPwD()_+SgZpeIK|XW~UD6nr+i z!*NfSxYOXEb0Ug%E!H6uS?CWA{&!IW$Hh78#1Pf%Kn(kB8wD3&)8R9_Fle5Ht+svB zcYlB5d_Rzj*IFbiMkES-v$9mcfP{)EsgjzQo|*Ek#$hSm8nh=RbzTER3>q6U9o|;Y z>itW>i?y=~j%9czflnsAY?=46Wg=ve30s$`B(C`=!=$V`v+2ylGtyX^$Z%c4jirm3 zXf|cLjQYV%sKg&ZAGsx6@v4MdONhyVU2^0T{;O-7A7Jrp^}?(8r}?S|UZa@xub+X# zP|X4YMYqSfm~ZfV1qnf2uv(nE+3zm2GrQfwjfykjj&?lXQnwY#EPvc*Vm~y6Rt>|{ ztx7|`MgX|Ya%?i{jL~4KzEo^RmprzMFnjjvtm2RyBvw~yI77I{n_hb7iI~-<2M>M` zC}<{QiJc)<%6R())z+}I!)JfXPX4fUyxinBA15KUe7Cm8L>#!NnJEj6VrYR#rj;pj zrP+n$n7lP2wcd^)>D@+1ug+WXG<=mODV30#P! z;=5ySgr=u9sVJs4+~AU2m__2E0ud2lV?fIbOLA63$WNS=`>f@3yNU5LAdTn81JbZ1 z39+g3z|?&mjoY^_3C$Du5d+|T2fZ0qx-t3zpA4ij z0#AC}5&WBwzxP`z4gR%PVidx_2MOdj0)|=7@9w5kKOCD*naG>-{seBgsDUVnnNTY< z#l!+}j!u7Vs~STpC2Y}DyOQya9)s@emVAuKm{5(HEn2Si!Dn=4V8eF%b-B3-CkA%w zt)LjAXA)z(U|im>=-6l7?#+TC-StP5zS`#<4*Fv9I<}FWPyxT$c83TbEa?++3WnJ< zXXnBPngz-(5;GevDGMQLNj3n8(aya>d^YYyMMn1=o{)-`Ov>w@Pb*Ip4SA&p&~M4_sL(Fn}~A*k!aSqLW>t8O-dc%wQzxYDe)kVZot zqY^9z!fCNU!4GeUW*96*a`AdAYzt}h`q#x_WkMPoxmY458-7zEjRxik3HDb*T*I+` zF*_hsi+AfnbdyAx3pic~$fTUG>9q!Q4D9J213(r_T zl^z@Y>qb~sw<=3k5*`;J*qr)RK`|}auEwsWB^6EOiyCaA(ihb|R*j8)I!&(7vx)!* zUSbVcJq5-vpmS{e)~viXo5*H0_RgjpwE8vsQqx(@w`hg(&UcOabyl`I4EKYeJw={3O5hyb)3(olC2w`>Xr>#dL4RFy{}~TI!5$tDfs1j9VvHG z=vO%IN2jM*fu~Ef$O@^|#n9?b1jmMOXmJfv6}&>_WQEzXOjSU8gnENVEUSY9W^a*b+B zh29~>VxDFA)lw`OF8OClu`ukAV)2-4hCOrLzF3MSv*Cvni+wbQ6bqJExZgdbSPm%` z^}@VLip8e^&4&BONwEyq%kMt>DGw=@LyAR)A5ttU{KrVK462;lO0iu3W$vgHi~Nfg zU5TY1o1?FjV(F5K6w5G`cfm-pj4GUdOp0a9iA6-xI(WC3>=z2OGT~9~X(}dX3^+d*gY1fnTyAN9h zA3bc?gczgN5HBw5Bd+}`^1yq~wc8#<{=41me4OZ5ly zl&>)QY`t2N>xMGujx2Gt3T#r!1IE_ZFGWTCZ0U#2Uuw|h0%wRNoVNg5acGtf2cA^Y zuexlGy%L<)=y^bNK>K!Gh@UstS!v$l!mpce546+a?5s;wWQQe%@u@4nE`Fff zWLJMqQ!nM3u3tKTo<*ZwH4=Zwbs8V+dP~U}@9QKj-zZS8ibw9+@#b{WnuZB%Ohg0o)&v6A3RW>j ztl>Zw7hryPBKOI#$nPEdShT|pts3^hk^17GTS4S6(~<&V{pF2NDVN`<8e*PGHAI(g z59j=_PwlJjFE(Hn|Cyv2>~U%G1z1(ljcl_}BXM5Sz9XI_$HWiEy#AIf(krK9y0 zs7s-KT_qjLW!7JfeNXHhb7>`C9gFS-Il+NYAjoyNpj+%OYkn+E2~g(!$tr>Wu6=hP zs55K271YUKFdd8KzK!WL)#$jd^2WE0O$Mvr)A2Cj-j@qZ}qz6wM8;t zy@|fW(lU16F5W!H`SUls^XCrr%rSub^9mK|gmzv5pS8>WiLcCxJwg5|xMZ5xBxc2! z5v0wWq`#^Hu^peX&TlJsMHnB*jE;1HZ)0sqxRbcn6N1Z zw=1>_Fn3qFXzz1~h*2#t#?}zGAQ0iAiboo@6f7lb3S94EgiF@gtlepVgO;;kx)@CK zC~&Pz@G64STLQQ;2x@2S%oBOfutN!C?|g%}h;<>_BBVt0z%z&tsTz-OUa_Iqp4M`ywv>1DSzpYauwDp-i&Su|pApOzyWzumUDAm>ZeK`$XBsSS! z>nu10O^7v3o%C7n-#v@T`RVhR4JL2JZ8*rq7>sGf zm{LKIiwQfmVmzU+D~vIG*DeW}fMPL*#V0kucPPUU85kn?V!Bv~3`~KbyVu#u5)K37 zL!m@MHckBOsOWYzM%gnWde1K2VJ3ku(dueJ#=sE?KdLEX)Rv;ZU!_M=hs=IJ79YuZ zy5%^aJFI9c(48V#NEiM0j*H;T0b?DI#~`#w;8KoK-GHGQ?b~2^c2Z|a`!;0qm8K5x1=@_ZGL^BC;Rgwuu4oEVg-BHn?qmycsb^1oC#wtfj~_ zphz87+flT83&}VK?Xrm>+T^y|eD|3=z_67Ar_E)1xow}3bz>o)NGt+-XA0y%UoLD3$t{>=B({X)pbXf)b`J{43A|pY z7LpT;3d!jhck=5CD{)7qb_o}hGoZL`5bi$*7_8|8dtORUf4y^+#Dhx@<$TvbA#-q&W^z75bcumxV z$7{UrKT0FxSJLQUD-19`yF>!*c3u#U@Gk!@Jqbr*d-NfXA8KY=L4YwWsto-;6Mthb zy6)4&fBwYyv*bLJXTZ7F_6xt;QEn-Tx*=>5US3pbfXT{jG~7>X3b*S1@1DiwvscLC%r#F#j#Jt?LE_J zb3;wj4$Nor_GyBc${PX)lJpDJqIfWlM%~Avps^X69S6aceT)eQ?Mj{ctse`=NrK6` zFdByRRJg0+T1;*4Jy(O7q#WBP*rD>U^_Y8a7B--6g5!K)X%km8(!GK@Jar$q>MRfb zHk9ujqZ;ec@Ss@pUhadjUz@q{KzO|O8u$04<~$OYI-(eugSNA|CAd1t#%aK87YQ!+ z-RjICjXj=UZubSTK)}Q)09V2b(A>0f3Q^GvP3GP1rTVZb@{Zi;3=L6|E~QQQQKcQ9 zD!dqQT0ylRFsuybi$(mFN&SixF>zFV!SW{sAN47RQOdYqdP0^1&!U0zPrA&^EY+oJMbJ1XWrh>;mq&A4rl&w=Hu_> z%(vO=!_#SBl2@9r~*+(I=SiwTur=t#ne!-J{cy|3=5<( zyMfnLSL9gR^-_(eY!@Z3mtt?$W(^h8ONAZ!BkdZhN_jY_YYfR0&z>1Vo_e@dE!=T@9^z(FY8PTi>J5_G% zJo7J-uo^HM+i{Vc2Ihy$ukXU_JI1Mkn5&o_&g&BzH483JFAoVr9T!$>y}JP>oE!!a zs`NvfYS>g{>PRrX3-iO}*LPudU*^hFjUx*@d%?($1|f1^q<4=U&E*)CZzTOOgI7fw z8G{qwNZ_v!nGfcAdzZIecvT4`@!{$BK}Z;RZwAdXHqJR=1gIl(>zMUB08!9a%3Bk4ry&BwiRL9~XXHK3nwM&w7kf@@ zEa5<7tU)&RChdiRmwK9?Zub;54yEz|Z9`HdZ0m#or9-8yXFYa7X&vC}v_7U;3e$g? z)<<|c)mKsbfDB+D${vBF|LzN0Ath*Eo~E)#AhI4daBM1jYzK}y#!R_|4UF?@Dtj2G z{>*<><3WS-SVKc4TrGn@QZ_2a2^@sf7D^8LQ?iXq)V z2I3#(hx{MT{k83Q%f4yb@fJ{(E|s@}VQO&sQHI&RyCOGBK;3tz0v7^4+Ke|(Khj4F zUVOS4Z)018z0SFZd4dlT$T!)!6;p4$3)p1mR_eYT!gSQ_XuS)n`oN6cQM?c^dOZEb z#Y1>Ep2P;3xic^9#uIEaG0wX2KrC3X+B<24GY9Isc< z&ilti!@eej1Fs&bjCE=0B7@%fJxfDgq}_N#8|`>Q#<6NM|HT`@rEoG7b*ip>{4OE6ilyW4%Jl{A>_)(~zzpvncIlm^|n7o@7Na`q5&l4LVmSB+# z364yHHYhnnl0<%27AaQf7w@7%D{)k>Z}tG!a!-7G?W-cx5i83T}xE^*Ha&BY~YbSGH@t)l>R8!Md>q_?I* z`}OSCwN(cPfI12$pThZ}M&{n}Lj{Gry)HSM*0p53+=4>AHA!(hPOa2^L3ypNL0Yu zH9A-w);VSf3&CvO%Wo=7zf$JNYM3vdd~cT{1&*1DA{IOg21YYD9uvcK;+Tc1$gwzk z@=?~$mBy0YQ}Zg5Oaw_pxU7(OBQ9?n?nWItZPvTh zOW@pCSRSpY=k(W|K1Tne>#jaV|AL?pcdjES+!+)SC4}dKLfN?f&Oss2!_NhUjX3f5 z2?`1Hw+sqN1o%4yh38&^!spUACI%~KM$2Vqnpn#wlL_Y!U1*18wMkLat8#30rFGGJ z=NH-rf8n{orzbv34DcPJaoILDqw(aY?01UB+X^{b(fH)o^>fkqw7LktJ{m7I1xGag zEu(SiJv*ZDBO3qN(KrdccShr?ZS#R>yoBCIG``En=%jP)&yB{l%+c>2jgNjaKcevy ziMxMNG!9x&UlENH=!nMuv}pWe%bw?=snE?oK3LLuyl$-mr&KzPFK>C27R3s#zUFdg z)n=b0`h5CabJnGZHH5^MGqy0;)5Hdff<3rcMM!982t?0xD~QWz(XvdT@&^?Pa#hD0Da9Eb;^qGf|Gf9R-) zw2SDukIvAabejcfcqYxx=9w#0$c5;Gemq3!^cM^7wDGEUe7RKA^2enb7%1l+&O_7W z%ILxe!{=zx#I{TW*)Um`G1(L%))n*q5E3(zi1T4bx$ku|$W!f(%8W0dE%}#y3nxZ{ zv}1sRgOH`=HyQRQQ#lx>a$$>~w-v18oGCtK5_md#mg#3Q;$U)DwDo$DZ*hXUUigP^ zq|5IXuF3@9L?oZoZ1;9q%!5Vso0F08)eKwV!+Nzjcg_~6&A;qVWmnfuso(0G&EYcb z;uU?LPL`pUX!$ztAAg>oXXFRcRADN3XS4erNFnjNWVGBD1%@aKBtrQ_u+K)zj1GP+_ zcW|c9HQ!ymzu2!$Ew9qA*C}v3MmeyfTAjoeG~5N+?w zybB>buGrF{eA2ayi6qApIh!Ue??~r{7ucx45Pkc!OlhZsdOfAGCT8dqyWYD$B26aK zcyb-Atm{=>FKe7WmdhA#iZavn!plkT?{9fNmx@8bFBYHI`iP798U?TGz49w|)Z*IR zeq?p|s<^tSyZp&9txr9j#~)+=c`u*4N}i{9o=^BkbytCgUP8KYkuSZ5O85f-7g>E~ ztkSd*ACxfInkH{@@nsihozztPVwsJ$Q)jJSTe6v_Lc-2o%|IG8Pk-4ns8ET9|LY*b zxhQcYJ`NafpRH$mEED)Njklh=2<=mn%vd6O)OotACbu+X_~0&fklTKJt!ZV&D0Q{o zCa;`gQhOw}(-5me!1}R(hgKRI!^~?tfMbE)%!cdmQlspz(K8a(Gu$hfO+01qmyVu0 zG(LG|E0n~7GK;O&6|=PP>j2CgSPhP;oFYTP z;0FDQK_x|HcfoBa)W}c&E`)|;Vz6S1{-5uBp%*_pU0>*YTgMN(M+MV7dbu+S&Vztn zaO$GAd;RznIQn;+&{B?-D!glQcYvZ_+MiKhS3ZVFsfN@83puS0Ir5jg2dOZ`%jGj< z#L$9OTO!iqZmS*(RstAI?ML|V`L-9M$L@KDr>;m~T;JhmHsw&!5L@g_W<_fjEaZPy zQGQ7=2&m=(848ZMx!I2OrnF8*I`?Z>_5L0K~*^f zax~>Tmu$oI_Jx&*Tts?oI?t&aPWZ=T0@A44#QjoZ=orR|T>>eKF($8p)okZhProVe zWrqhaY>4FE2^@4*xbvZ!^U6tN(}K(|k3N9K6fX&p-PpTCH_U|5s;uNg$IfbOl@hG_ z*$6>ZRc68@(>#3g@0crgJ>&2Cv|&)ip&c3z+#MMrliaMq_xiz>3F`*`ulPs##aMpv z8xl~{pgk;I)bNUsL7rGPg(AfcX|Pxr_p3_f)7eyXq0@U|@HzyHfy zI{oWgJpI>OSHOR}S=!V8T(P*8ucy9P@{j9F>x-@M%iDkWo62#etaZUIz&eRz4eb42k>b+n-N=nWkvc0S%|7 zIG@e;VO$s(FmFO2^M$l>ev2n6C>VR8~ z+cm?1lB-~e|2iuhM@zXQDayh{hA~$r?CYI$?&sv5x|MB!a$?&0JVf?|b$y4hDcb-A z!X(_ZvJLk*RwW1e;aKTvvFhMEJCNYnU+iO+2PuCw*nRJWF|V8DunnsW1r>oX?+mkb zAf%irkeD;L>gZh^34ydD*o!Az11(~4p*Cw(mDYml0}73~p!>v)9Bs_!^iut?c}t24*L;c`!P|Ob8lCz**_)qo>O2m=gph*k6`eA|#D^ zoccPLrbWj^}z!CL}o*lrtcy8~`nURe`Rj_;#IR?E`x zl>G(@mBt41#iHhw*P+=C#RtcD15q1U@4c}a1%>G2A^o*d&O$0&cqt5!zobQxYY^xU zj_Z$z$?~OSX0IkTh3wDn?T+qhv=mA5E2~D^N<>{&5fwqHL*`<%D__J{pk0{TJ0kZ> zA_F&;oO)GqY;Yo)JLI{@oe)tJXtCj~u*5+o+!Sx7Crg(sTT9Bub@KhP#YB@{ST;OX7#iZYw>Gzpvd22|< z>P7`XHB=rR>%Jza?#K2eh3kw_uw zw9m09Nr6p13eyjX%C$>qR)hm3@RAI(K25muu1$tQE3-N2^MO0>yk>My?AVMyk|uyU zvY`@`h%D;&bRwIRlH(uz1LmZF-lEGB(Iy1JM>)M-WpakwgX_NLUHb>B;?*eH+_LSbPzT{xCr{uH=BQ&ZDJqc%WG1V?w zNy+ExE0Q*Wr=Nsj5H<}M20MG4cxZ6@r@KLSF&lUb1yA6i^wgf*S^YgQkounzTonYz+`LX#IbS?Pd?e0csf3QJkyZA&P z9nKKm6KpSmPFC#!;t$1Yu&Rg+Nr@o>G}7M%r7;3kRT~?n6U_M71R~Eji|v}dJ+tnD ztqB;NgQ;mD3I<&UuT4o44ZQ9fC>5XU?1)urVBS8phd1pLeUZsnO-L*w)VyIAXQL@i zUd+O1-7$k8!{O7;lfR!f=I65g*UTLisGYl5;XQ}U>UucssDNrDbxy7V z3SNKuns<*97{e?kv6$fJD-~Gf|3m$2yL#IEE7R^|tMso)FoRVIOfs`7(6wGivpy#{ zzn+Bvjfz&YcPJEU*GSUdMMNbj1@V*)=6XjanBOG_;gI8UTz8Z2mkOk-s@9QJGCmN_ zX{a0zWX5*x8-uD0sPzDa~;9(FT1Ic2xd1;dY&$%hzM?pMS$1^7-#PPr)xvFkqFf zp|Z08V|uY%xo&xZf|iS^A<|&kJV%FV2S}b zd!$`a(`bCunQ@=&f5=PHfivlg^TBw)zHa9w5#1(vL1*HOBN|jWoIq*9v4{p$Bqz`i z*;tPTS~oWiY^)dIx>WSLhFFK9{zCtfRD$h_BrhwhY!qAiJ>Y)&i4|OiEro)CU3{}O zkL}Hle)6b>$XM25KnP%B2_mgNBJN4cYrLE07*`RlFR+nei}|>N`96$f{L_r&6me{; z1Nwd=8L;s5u#$(B{B5k{PRr?|;KNGB*ILQ(`scY=$>q;)nGBf8v-@q50Sv2j90@=1 z>yrU#0%#z=OESK9Bm<=B@mD1S<^iC=r7C`MGC&s*6!1s}{2|Ez@P2E_fOS%Tqh!E9 zFXoR+1~kH^@WNz(na%H#4A@n)74{?pTFn19PX>Ia8o{xbmXzhP)58U*K2WF>ifRv) zfV|MOistpVTe{;6y?mIVY;2*`U*)V*}#EwW80qH z&X~9_X=b*atRFZj}Zzg=2zQ2vt#A<5@ zuct#(^=xKGdElWv_Uy6}L#n=??1CyJ!Ycvt_p1n5J*#wm*RPNI>JCox^KBx8-z0VE zETc)7-d5iPC%v_&-f$fZk7eGw3AQYaje59P)m@g>+g$1D1&!Z8G=sg=lfX=3X(*R0 z4#Sjj;)2%2UKf|fq_ua!>>f{auni`QeB!>=l-;8dOm>)ZKPRgOp`!@d8iAfL*m^~o zhq{>r+L^@Z*~aNIooKqViWw98b=}L24r^936WMg?HuAna?elmCs#dr1jj)0jBH+7_T zB>5-d1kXxxL)KnNV+d5T6KdL34o$om$h2)9W|X`$Pb5ycI2@5MZ7IK-r9m~_!I$IW zkHitwgzrRLP=8W^|;KwTN8wG}z)#cs4OJ;P+(x1;rcfx_A(I?#9(r3lYdwI@I-!zP2y&t@SW9}4N285d+hwa z=c);PAj=_cB|XZa-Ia(fXsZIG{O*LeG3on-pk8_GZ9;$^u0H#*STNx74m0|3@`8CW zMeciEj57A%qEmD~|pv`uHEzA4WLV{^5HDzP>`LcBBHxm-<2Am9r z!2~t#aZBSb%|GVuGnx7ko5%6`*QdtcS#%i%Up4;r9_3fEs!QhP;T}R?gsl?LvXCqY z*?z^70(8={y6sxXnZy(X)jMkObpSePDPZ+MNEZ<3q$P-{Lsj>&PFng{`B?ShY7>x? zc>MB4n-K`}$znQ6b3!CV2+flg+TKNT23y(y@hu61bzCHqPxw%KGy;N;?rrCDDRdp< z>r}_u{kRa>)G0Jp6J4Run6Y7hJ=BlOjH5BbVn>-7W>&mX0l)mxg_27bE4)n5c9U+{ z)uL-0i&j5Iz^)B5nfv;2d0`#x#|1*bg;pL7n4}_6&sK=zsenqF+gCD)pxrms2p_M>#JXkDWL(0=Uw9SLnlTU8!gunZ`j@f zLpd;0br{MUdKk+18yQM(6Awcfsa5>D7|J`vm=8m_+fe#Nb+@6MS5>Dp%%5*qcm8<- zPZc}Kf=8JJFo^ysV}&PEvv7H``)e|cnFT`^SSiw7GS-Z!E<^+?nIg%2N@A!BSLze{ zWUNgwhPTb(4&{m+G8F+eD$Hg^y68yB0WVk}xpLC|P?NES8a48?cqb<-(nKu_u_Iqo zwuvS^mVy6dA{AD-Le>TGV7#AG^?u5{YJ7?DBZ`6$ck<^oxRQj@@7Unl4|V8ha5W1c z{LBVdcq7AB)9W21#^1fcbr^NA?C;RvS}8i1B7Wd#aIIlxPdXZ0ZSL#I23J;Max}R5 zzkcfm*NHFVqro*I)v|3Rj|SJH!BwrfqrsI%df&0ZbyOLVZ`j}p3o+c);0mvBI2v42 zY@kPjYqal66Z7He1W$2CgDb9!Z`j~E4r>$T(cr57*lKVc%ZU-T!F7@&E+1@gosy(g z)2pNYu(SWbhy9JV1ol^*HE7p+kPJ(plumK{zzS*ms(nEMF>7^a64}@q;>Z(!pA=l1 zYbKT1q)^HB7z+wCcV)X)ge&PoHDONnvmPARJNjVK)+;2nX46y$gROUfDzD2u#oIG~ zquG|+#@L=5cGiA}S}+yM*ZT^mK#RZCHc=)H`yFbVT_9oO`&($2&o`&Fo;kdu#QMor zBxv$5?~?BD(UxALdkG>~!j>T7=eCIJ0qqce_`c}=;iCL$5L4B?EZ6*HJTsl%Lz4O0Wjg&UCML0MI*plRb(IjNF?ZK{#@b9m{Bf~mV=aqleY|FCGLN8k z*hC%Q@rbb*ZSqJp`)gL#54b#MCOxX&ci%Q>jie9Yv3eZi`O{Oy0s#wE-=C^p4YWjq z*v$f&shiPQ?Xa6>cW>3MgjzWZv8KdGdgx^9fwYk%nH>K%5Xi6MhCyVc@C&Tm-8_GI zFnt11XFYwgx9xjZswChdaTEtcQZ2^BjfFdXrN-Pet$+SJ>731A@?hz|l%-b}en{tp zKZ>QFa3CuR{ADctA)RwNq;uk(EdBD@eoN_`r&#)(%)Jlem{Dvn_g~G@Z~9PwOX-|B z-M(x*q;o10G~6D``SV1L1${n`flGqOX`q7A1iB;nhiGmq;ey!nwGuB5zvy#*GOJ(lfE;mC#>aa#krCNMd{g zb8Z}~3>B;q?bwSa;tPRjGz6#Su);)?!(i*vFhUaYXr$dio`J?hS7X7f>!3e6lCKoi zqez0KuwT5%NH#_P0h6jEstSR`V1Wl=fka_pM^9--9vy3uocY@zM!wzE0+{uNwn~p7 zaQDMg#*ebNf3ronjg12xzN;rCxDY{L)|0|or4n;vnFbH*uX5hkGPioORA7l()K<%| zGWfRZ@80)UXD6LfKYUJF_vw{|?)opESCOvQKIrXT{-L`%a%2DL$X(vj+^=?{hO007 zxX}On$LYThVZiu^FkmXHqVLx8Gv5_D=F+`#dF%T!?KND!r97CuFOc*t_4(QAn?iT= zYPO0#QHlb3F6&ZRO7y9gCy))eYzi68ea84W+gNs)_l(R07t{3lt6ldp6-|5UCeYpJp^4DyNgw0cOLl0T-CoiNtHVC1 zpiCV4K{tBK7ebMYePe7UQN#AO-P*QoZEf4S>vn6~cDuE0+wInNx3=xOHs3zapYO-_ z{&)+JPw16chnKKP}?l7luC&d@Z37;hQI&0mDAH(f9rbx7JQ+qeS8>C);g zhxKM6w;m3o&f2n6pL~ao3x1G1>vo;I;_j(*ofwMX5z)HFlo9K1MIqc2&75H450nFV zc=pMyL-fIRSHn^ruBdC2Cb>+}Ap{NvCb4uZyQ@ahX7jMe$LPukXOPbGVz|_1F+m73 zHvN;;uIxk$pMJO1Taakfc0bm$?jHLld%5!)&XwuGlQFxmDJ86xaW-35*k*~dN0{FO z&g$u_Rg%@wJZr0?!Ln{`I2AK7E0rk`+Ar|YnhlWUb9h%}$P(}cIyYuRMQ^k0t)DlxCezkOw$K$D1M=n)`JAl;RFJ3*ikd^rJ%XJl&xM=zPPOozV z3xq0rwDq2?BUaXCqXQ|9)wO_8d}_)Yk9sh77bVr?m;99=;bvyKX^w#myC$hPksv}5 z14m}3-v@xgbw}qJV1FCIQnwHYN;now2n{fPJv$@<4kPcUf#I3+jP8_aC;Ahu+RvSh z9CDafsx~IPb)yoiR<&94$P zO1;1QjwU1&HCYn9x=ep^w*mAU7jP<@CV1uLDBv#nzB2Srg|n{Huchi{i z45=hANugM_W4kYPTW4BU&~nTd+YaUcUyZI1@x_DJQTC1W57Ggh50SfPzC3NRdZW& z9pamnHlRw=s?r_6Qgq1r<_!b~3e;A!8a^{89ooKq?2fEtI!y%3H}G|Q^jSn;67>H| zj$AXNdNLzu<`qfbS?0>h)&wJkgW#Wc6u5)2gLsz;*HZ8v(Dx-SYj# z@i3N9rpQI|etE_AoRq06QkC)Fq5 zZ25Ggv*x^Eqg6fP!Rfv>-|i#1noBVks+06-`7u9Sca=8m4DnRT)8*LVl)lz5ZKx`L z6OG79ZE&S9pOg2-38RAq&{Wm?rki?N64#uE0o)fG_cX~*-)Pj-YCoYnMY<-}8O336 zMc&>P?aP`cI;>o}aRy9*IPs^Xi3R)(&^XpWQ9K@5bQc22Ru-fM#5i5fH-iF>!&lr8 z)0{>&^L3q52F0PX@y*i4Oirkajx&-A;P75ynjga8m(FEO{ytLoGh?j$-PPKM9Q%C5 zoAm7ia}<{q$&Cr7g6U{e#$5!dpK?dT8xajW=-FYv0(CcNN5>8X4DUvN_Kp+y%^`2SLpwH3-gaS?w!{SI1pfhryZAR<{5N2MxAtlhrfUK zdxHdPH>)^)cItM$6B#9f*v4}VY}?xmLIb&cHN85 zN7~hd=VHr#0d^r*ee!hS)LkMLU4K3(KwdL1(bKiV;hs(J8~x1P{jut^bLj@t?T6r_2|jY^^xn~0NyUBK zn*8)pbOVS+I^+HT7G`=>v$howX^lWo%iUNec8X=v_IxBODlqR4lrbgP{(A7 zJX58!Jy?8wJ*=&~Q6cN7tagVD4K6Zh1G!U$qov$#Dx;r2Zs%M}ce?ta5CO*|YG>xhK&praiQ9S-WJ#0ahTF_Keu_)Lq#Um#S>GWOMJnXpQZr+BI7iv5fVJ^?O-< z7ldN(FZbo|?shKH60#q#1snO{n*F^)NJ)c3{lCB;eIypoV=+$8={` z+7Q~-g2SI@*aGI|lHavA1k5f`|4x^V#kR(jRq=BpY13QIU_>rZd%op((1zQ7AGN|Uqw>-3r;H6y}F41%}7$$%}jRjSV0$*Qd5OF z`f@OX4Z>Up6Kl4|Vuzzz(lBGk=FG^Gc^MEVd|{GiE2kEP7opL7268QvHU5hE2c4I; z(c>Pk$_LRxLVf3u-t^)Mrbm_>=YAHSb7qs(wb{&9H~j;>K7ngFJlS8eRdH6}FPbED zs`9Vs6i4j9#v@r5k#u9E@w5V#a&J!Xv5P^w1)Azg2*bM(Ft<}B{s4DRjB&|;6*lAW z1x(GJ{#&*Yu=pj{a|<&}{S;SigVWYDRKg1Kt6k>;j3{>P52!rnkn6twG2?n{M3<-% z$B8oy`U7p0%)cv`Ufr;M5t>_)YgJF)34q zDhO$A!YmQEET+Ziceeg~&LNfO+D;nFPdO3#xk_2PVe`sAQ2!1;)-uamq&7O;*#&C1 zB#uK{P!e@u(VHicM+vtQ7`+7cMZ>0aR^idsaL=;d{GLJkd}zUHS6Gkqq-+`HJN)4D zxD@BbE8IzTx1x1-QL_mC1kZ_D;ceaTM$NLdaUcy3m$`;X%n~cQT#YboVtGKg-Dt-{ z$39I0(Hbji&A-O_paVod`S!WNdGrEXtNW-Uq~!`zI?YI6 zv-s*poFcE96}MsG7z`QRO9JZ1mXag0UWQK7W~3rjtNuk{*FDpMTX^X&m2WV-o(aM) zNxOqE+l9w0KR1~s?TWx6u*Tooxf$ep^apS_YPcBBfhy+S=$svlnD-9Djmgh(d9xhf zdS3458OmX9R$mKA;QtNDkm4m~8F%tHOcQ~qn0D|y8{}RF`NJ4I$Qi?z7c(Knmh&^- zNaA8a`a)BzxXcwME!5~UPfZDY;aV53H<%TEbL3&9TP& z(n0hn2f;kDymcX?@0A@O45! zehSJW^r%&sZK6dFHyf0_I5xhppg2w(Q1+Xv-&d%LG=3b+^4q{of;y@h9Zn$VVR($9 z-MPcZc<*rz=a0p`gdNG1BLfAl!q$kQA2rE@8&wkZ6g5>^EBnnDM2^?mf2QFfk&-hV z&*_Nt;0fD?kYZ#&Ffm|b@=+i-xR?=d6RU~MsoL5Y$a+bu1rK{t#r2;|E8l~Q0`D}G z?tPa1wm#m8U)EP%?cxdLGInOsi$NbXr?TG)}9}2qO4v1`FhHMss^Do)M-<-QTK#0bt_IQh7 z58B^`Jn&s>z)3k{n?3L$QMpT00b!6C7EnJW9{7|xFx;o@DzC7iitky^yly|8fUh~X zua^~9r+aP9uQ}9VxZZi)rJenSw>hIR{EAyankPx`gsHd_UQob}3q%JA4+V+Psq48s zIUa_qh_bATXNUR8BU^2BftpUr0^tcS&T7A!&aj6n=90mbr!3UvgB{fl!uN{X9P_1v z;oF?&>QT8vJ|>4lH@d5Gd)wo2uZlB(`W6_YzAepFIuV3#%2Syc+b5voUn35G?y;}F zfN5u^##XYBSaJ+_xr#mr?0|aBSe@7A)Gly3e<9h9;G`>vRl(T4H>~qD_6HX1?oW4# z6I9~UM3|$%Q*|K>;taCUB`k$SF8KQPqU z>>8h@LefwOxD#`Ayd2w;C&}t?<)YIBHd{-;!~v3iyycdi*f+f7gEXCNg@3Wpw{BK@ zvDQ`SYFa6>a+hDA0lZx{T_AT(@s#Qse_t~1f$;x22-{mk1P{)cr%a@C!F)O_$dmZL z{&F*c2@KXd-r7`t=20+zoovGkzRvy8SXwrVmN%4rThT%3WZ7+7FgHPzlxb3Ww1tsu zlE-%HFKm@s2S#(+QNBl+k#;WBr|ZIYTeyKZ%Q1e6L z+4^mq#U9oqjnPk}CXW%nSj?mH1V`_xf_v6)_K2IfJe6}=CJ2sc>PFHZMkWumP-ufU z$N7x=5+E7?)}>e&(G>1Xv5~eYJP&7m5PlsN_q;Es zI==`o>VkZ&A9J|A_%ZrSX@T$o3znBt4Luu4?kH@ipC1nWa=v

lX++eGCvE2#ZYr zq&1yS08N=Pj7;0oSru={aXf3*J1qe=*_FIZBMbe#0xmT#473RGF{hZp0I$x7BIVn1|+u@s2%< zKyfGs9Z9CALX0yc=6*z1H2h71l~2eUuyFhJycCM~v2YdR-P5@m?FO6BBY_fOA{elX zM`XWGvlJmF9;L>oDSJT;;dKJnm=ZUdL&^zbYj)%mPxb!VZ;l?hrblM-M`fm^yC{1? zvZc^iT1TshOzRbGIH-;(Yak!EBdI=Cuh4-Q7L8^;1bRLxSb-3IM&Csu=$7q!!^P`#gjJpPX=A zH(sf#zb)Q@aitpcxF;E!yUecilc6|6>(Fbu=xefCf}xI6+IY`)4Hp^T4}<&~6T*mh zI2OC5vMtkrk~uCPYyrl_uR(^^;Yztdt0PBmNlbB9#R$JDyoiO@ev21V?)?^Mk%GM*dty9 z8xBd948+AKRr|sC^2~8!rBa*(h+@oSnFg4HV=q16QKE12r{! zSPKb@=Ww1bf-c*^-%=e|4r|1q2i`awxk7zi24gBOjTjZnR_p=8r~FEhKcbrr^+h3! zIHJHCLg1J<6I9O8Epal7i&aXU53h*HxcBoAiZ09gf zT}Ut>+g0b}{%0GV_cwnhooTaZ#K z9;n}INXwE*zk%4CEBN>3QLlt!*3JCOB(57V^>IJ}#+OSzqE)Z1sy+SGj`#eex&drFi@ zOKZhH2fRyuTsiAq9VPJgz#4%BXpvmn*vBk$YCr|2i(sn0tG|fOWk#`)km|-**fosl zJ(V~X)*&^IM?=jfjPar7Fy?1a74bM+;mJecJxUnjd*V>fOvs&14e%Q)(lb!rCeI2_ zz`u+Gq8as7>7|s@xJPWAkfjrD`8wBTY8{d32G5>#wLJWx`yOtuHH=jrY9Tl<@uRdm z;_$h#B(leBPm(l@Ee3Zgy8N|;`N%7Nu$_ID(JgP!7_lxW(}NqW*u>A?lMbWaMsm7D<|9I>a7Uk z@X5B7`qFGLerFZ0#uO4zHg&|&Kb~1CDcmH?PBqh8lExw>8VcICiFrkL_xh|>B~6ae z2dx>-Y#{SU!AZix90w{97XzF5jSaM8ut4U*CasagU*qaEh57x?Fxs68uQbm^T6BX} zP#JEyR$9pl6G_b8;)Y_3Y_FwETfy7LmMpm`n%}+38G=5&A$>-pMpSLMLr0a0FngeQ zy5Ph8id0|r)xR8k298{Gj}ZTyR%Y;?j zxCTM47*rRW8bCLTC;S_6^ELF}@J9_)Xi5n`jxdYA16Am&fi~IiX67>mv&lJzvGQ8wAlPyHW+o<;Q)Nsc8MTioggVh zD3d0qWsO>SF?5-Olr0VfWANH`c{$7!PE)Hmd*i4Nh=^Pfk72@ZNB}k@p~G;*U-_Hy zf=nYyslBMvH`1>A11wQ3QK^ByBL$(j+^ds0v-fv9~FmrN|sQ}{}1+Ngag64oR(Ihe?$7M{sn7ZxdZtxn3o zmgjv(Fd>xI1~UndX)dDM(hUehN#vXm2g=X=@rOh%B9yNjYU{9?_+=YM{;_A9H}%pA zExM9dmLiyyATdNn7(jis2Z>Url1^`tt=TzdLThUQ?e)! zVA_xpSM!6+0fnlifP_j*9+W`PT8-ipJ_N&)b;m(zN}hhFM=!kc?X^Ekmm;1LPz0Ce z!(X+-r&dktW?St7=v#031Ah_ax7J%Au*`lsDAb(T%$kL=I=KJyz&9>!9RqDDBrCT$ z&*61*vOZ%ot)uok7abUIST&-G@GSovr( zO*N{f!QsYa8w1qckO(rR@bLLpixWl-g2v%xA0(9%xw3?mgjA2kydzS_MjVz>k%21Erh_A23R>=bW~&&H#L?dK}RDA!9df)IbhXNl>95iQV1Rr0g)bsanPN~ zvY-KJTS$M>)ey(wJ4%NFu|(%P`U6(M56qP-o_bma-ATTTSBL!-if7?>;6bD^@UmR0 zB3p8Iuho?my56LCI85%a(2@O-WNmmJd%V%pgDJ-$raa%81H>T|!S6?c+nHl2;m!I6C!Q##8^t$(S)J^NZU0*wzuFAc@%+g4UclS-ilNb?d*6C^ zCPa_<{1`sI9a}k_q}56ix*cCx+Y#VLqY=yYB&4%qOXYF`!5mv|L+wYbaV0^3{p2<3 zY1V2>c3wI;^&#Kjd!oDw?sn>CbN_VlZTofwbrdr~|M%8>e~KlU6mtw=J`0lJ2WRKU zupiWY>;e5~~)<(insA<#@%Kahnu$}QK-tWg5qyxJc*n3p!` zGxnPer>Z%be|Qpf{tjH5HIhzB`-jD&{QaQ8>|{qqPoXXHTNT_tMG%a2yx;zs*z%Ao zQBd1Vea)!g0BaSt6-$lh;dbGcSr@Ed1=opVDHL@zVoiO>r}#8QLuGL`o&pMHt;?Qp zTP8sKUZ|zu!1F-eg83EqUI>L#4MKYiHaMEdHyM@QK=A` zswSDUg<-agNP~jmDpXQz#%4YyPSfpt?j#1F6^OwZpOFSrQ7>eo2r>g4T!%xMxIoZk zkTx&KazQlp`ooaD)>cT!*KMK%see{qno7d6)Jx>+N?MaR!Wy9{$rK14`ovWw|81_Z zAysP5v<{vo*>-|@GvXGRI$+@i29QA>u~_4eY&MO+=U8p8+I$hLCBw0Des6$SS0Cm{ zkH5kEL6jm>jtdQzI2uO z^tu(i!d)?nLCz8G&x<%;TcJm*8Q)N}Ib2z(Y49ZBxB0s+N>=Y8xs!bzG2-3XK>jH; zv|r$84YZJX7&Hh!1a~*k32PAAj@jOvF9((bH+XRBC#%5Q+L-%stn!ntH`XyGfbdl`U#5twfJUwdswA!#-i$c>C+Eg+kp4e%lpas!WHgqTb4NHX0fe(i8$7_Gf= z^zhWb$X#ux?1=&Zm|AneOH<9@l!w9?rE}d2!bR{0f|v`p;#FOO*Lvc1Cr<)?9*9uG zGqk8~8i?U4KE&RFGED@IW{6OdzGHHHL|Bg(AiMRF;wRp1`H+LxlAhQ^7Y;&v+ zvhpI(^kIBNQ+0u<(uhz@avNI6AOysG(9T@jV8Z!kh~ZafARzowlL+hx)wx?!vxF7z z(+l&^^z|aAv#Iy~KUCK$=Je;mKtKPahno1QzLfJ3Ip6zU5g>Uq?1lLWBZf0teiu$T z7jwbA9a5f3x1JN6OUvBuuY&a(n@xs2NsLN|^+s$G(H_1OU)g~m=TGSOXu^i4%-x%Q zR}^d&=-eZkgCHNT6*JHlvz5uJYf%f^OkiFnBtHfZYO^mKy_MwB2K=CH|V+nxMSvU@Th{xIO#Yno89IDc~XH+RBnMOPgj3|xsItygy5j1X^Y1JHmH}W~gZ!azO)*3f!ED{)1P3iN>7%wgN&KSS{ zC~;hEycVd19h^2hx3PkJKEGYgod+igGxTeCSP$rN!weTlsrF+Jcm}S%3Uon>W?AX? zEp5;I1f^))7+Y$bLV%Pb`s}vuB7E^PMh&n3dj6>KVh_jzTj*)anI8!?NPX(6A}B|Q zPmF@ge0T6{RH&Gp?USI|n7&9o)92@IgcO{Br1<%jHC?yMkLn(|NXfa4>I&8UD(9}& zWK+2YeU`jK?WGv9*Rti?F%8N!GDncM*JhIJcAV1J1o`N0dqafLFuYdqOcm8)o9Bd} z;2wB#@3C#);Sw|`8t!%jleWuLWTVV=qd!Hu{*8r(V<>i^&e8srp$8A)zW1@u&o&{i z7B^?wnF=Wj7{s7}Vm{7*vF5YS`jIh^*fu@P&_pp@5oRsRj@x5YCoF6nplqVeT16sP zHT6(2GT)n3s_PJp(3QE)MWEhoz!eTSHXt5GL?#^flmyqZ&=CR1VNv0(Y#LLK7&3By zInj|%2LAUw{J-JeCdKiS*Xea7(lN59XHL0g{w1_v$4+Bk!hDI07#iwutiLjL@%=On znwUO>;~lJsE*jvJkn|4Q9Wh_oAtH0NJ`>!#(fb*&9up4}Y5%81hhtkW{RQTdaO zcxP0c{L2i3JrqL-+ny6s`BDlNl8w(|l^1Du@W2%A%`JQk#zu9Zly60PiCoImqoRyoM8`%?RI6F6ti5yf5kS zjUbqlOCC;}xyvPssEds>C#KGiIh9^dp)VHT{G>z%Rnb%Bm+%+nEG z$xyedWEb>}UUA0#lF|=c^}fl)Hl*nE@feAMQb$VR1_kC^P_<3r$eu*}Hu5xV+)>T- z#Jwn?(N)CtUsNGnl0fOpp!W z?gg-@TS1N1o#$11iOP8R2z`)9qtal!rdR-uw&J$7gj;JSUQd3Jb@S5;{e}&XhL*qg z`}=-4=>6bbhy)(@^bc6jL$@1xpJ<*v zZ9y!s0+fZ>eU%QLn*bG8-s=QLW4Se@?JfQv@6w|+H{9C#Ke*E9@?n-bFj;aQ6`f_< zkdbGE4bjXMH-jL8Y!EtexnNi!wrr%EKtu9$)%d>@vSrnb7rRMsycerMcG6@__|S1; zTh`gt)=-{uE0Z$rcCG1mxK-0QGxae94iP_FEP92HRK^chtK|fwVy*WHPLOqDN=`1Z z&B+tDUXvcSk~$UmPR;E!-hiv1%?W|9Lchgis5`Ffe-{128^J4>z2l0}3fJe&+U6Lk z-;0PnhCM ziP$+{(2sG?N$NDR5 zND}V)BW5cn^xc-(j!*224K2{l0(yn2?EdpnYJ{X6OQs(zEv0rYF7e@VA;L{W3MyRF zZkEO#u{dC8KL1Z)U>h5>!BZk!CZ(r~?mJe>-UwkAE7An)>;kODwnl?N-W#UgFZ=6u zC^MXww2s$KA^7PBF-h!L0Drgz0I(Q|1Rq&vtiM7p18Eo9YC!$o6jym?(=}Wk!u;X? z<|F=_&YJ}Uo@5DEwUlFsaaa?;!AajjexD2iuwB!O=(1rdcPt=w6hZ5QTK)^_${ghg zkk~_mGif`dLrSGa^73386mH1T(p9GrvbhO->Xg6mIKSz^YTf!TXJJL`xrc#8^IJ^7 zHd=+B?96Cw_bf~E<8q&UCUBj*4SU&=j^eLdQl_owky(C?*|E5)tk7R!*fv}3a8Nz+ z+P?)KBN;<4{WLGiYoBFH=lTdNyGq+e$8M}7)|lX1I|2+J-SzK0V@+)d`pxKq!b(9% z?VFV9Yc+V~&(Ua!1mkF&*R@;b2^c?wJ%2#ifhyie;8dyI_j02|vK`cJT|S3^{Qasd zb%3_q#6nd-or%kE^riG4B;i%}@z+H{G+;=H-l{>j6x{H6{3dEI@gGv+JrrM7!6)5Fkyg7Kb`{bTFN zh^i;+sRYT5VI6x5GJbIlKZ|MAn)o5XMv5S~ z-v9+u_hQPqIk%-eG|~(wWYb2*fkLX(uX-b@C1m=KTGFkh zZhD`sJx#p-dX2M>A@AJco$k*EgRW()Q&@)$mB9PLoi4h(Q}D5dg*j%fEmq(rbFc!J zDD^8h4BGizxk2g>$71gxRkBOVTiUi~f&W8ImTQ=ps#bW^_u%0c^e&`*?+ zcxTa}dqUy>t}Ff$7W4rHs#DewOu;s=Zo*w^JPIXknab^3a!ii^@CMv@Lhpb zGpu`5Ryp&zl{xW&BD+tvztbZ_s`oSAw88q5v*^KS&1HN0ACC9{>lvBA61%TMiUDCb zYA02pqSq!(1mke68L!C(E)bC|ACdDXEFA;j9J}G!ppICYhAt@7`N~_Yw9oGT_ zdRb}Qg3v*K^OMSQKD$0<8@IC6sFzW#M0t|^DBqaIo$8pZN438;^;&%N;al_BnXGt{ zc`QDjdv7SAcPkTQm*&(_%M@-VGN9AlwBo?b#{BS z=Nr^i9x0Zw@+I;XPe5neNi;$Y0<=(HC%YJFDVj(=+??5b)Wz|lj-jnq_6kag7&Yo@ zu)a?S8C^xD@suHjlbOwheAeWy+OP#6eoGEMH&15g%0bVS)KIKm_KP-zWYwg98QBR0 zl)8x`h=sYhp!Tp$zXT|M+yfuSL8H1kU#0ewh@YOzIl@=QnL2ve=Rk#aDISv@Qto24 zFX;E|>e{Ls56^9tZFCqvVAC>^+=c%kg7*#oUr&pJ+uf%^tu6g#RL)}c^x2Z*e{Skkd8)U*g87NNoU_CGdAiVIa(%BX zF}oEDLC;s&<(!F34(9`Vv08B$hnj-#UUM^JuCcv2My%t-WU(5^y)01E?t(QuNBeSf zw)EFm4@mWyU7;P;XDlG+avs+VcX!CIYr?oU5v?Ftu!+VXQEJ9Asc@%Y5SHi@}Z>e^F#C?5WPzO zyG=ilh5QA1(9?C zjxh!7XZ$l3EL?={T24gs4jN!{sGepXs)T-m9|o$PI3a;INLuW&E~cNZr4I*NXr(19 z-GSbfoQfeU9p)ykyeLteRCJUeX!44eY(I6wMsn~@P|;u8%3IFlY(tf(wm|Eo-T%&w z=37^@lPaR**Od@8*(`&0WY@R|d#8d2MeN(4dLEq4A~5noL`(~xs59D1M7DT-O5;UE z_9wgAsc_Z4o#rSJ23a8ip`Xi(3*}Md`e^CRab%g)$4A$Z&=)C+HYBT!T=<>e9>Vx@ z^Fqhx(|4KA3v5s%w+m!1V0!BZwRfrhK`*Ztm`+X?$oDbxQ*rsqS?(zH0Rrpx+9+e& zdjI-Y;>}D?VfrtJ&v{w?f5vUukpIZ)BNSLqB`z!|zRX#<&Xm%dLj3B1}TKTAGWh0XjRlxZ75zA9~$fMcBs+)ETMP) zkrJkTl64zJqO@(gMtKCnj#ykX3(+?8nY$otMz=R?28+)xxF37iwPF9dqGlv=^}xG& zk-K-sAo_LDBdhP#{Dt;5Ds@ET&7^d|n3mCM+b20i{tra5BW^ZwyY&rcRw-NdWA1UV z@l>^7Kt+*OD??Ul-t`bVWh)*UmvwUd)?ip0C;Avg3Q2@3kJIpNe+kjq6F1l`@S5)y z`;q8m3o*&rfJADgQhyj1IXZ5zT0hJ~g5C5t4GvSBAWUi;GlBFdnyLCzl(}lXINX8V zmggDVyxPWt%gh4-4v*@ZJJ~su;RvF3$#&^80?bi1q!$&f>;i=3*sx61Pm~N)sPc-a z(p2=U{QfhZ>iN@@f7HAAic&OWO;ME$>z?RIs>;vCu>wr;$#*E%o%dpNj$Hwn8xNhc0*v8lCi; z1F98suP(1x{kGn<`Dsg=0<6z$d+Qhm%g;RE+tmvCTicn4&xXhCPd=kC+{eDt61w`s z4r_Mxq35-o`up2oz+1xD7AHLZBPa>w|UE2cU+ z5k|Ud?^!`?Gerj*CWN5dg>>wXg}mje9>QaYedy;?*7Ao^1=Scc{~?~D_M2AM9n$Kkm__A#}lohzQB%cbgBfTP6x?%e*aH2lTY#NyivTfOa7r z57FUGEG}l8$MfpT|46ntnu^vA($TyZ)Di1jMoDZkm!dybLS|*&od5nA>6n8=blq7- zuct3Czx#5Hh*42NFhL^w_zBC#_)@ee)N8L*=$QzAe!KNnqfcNJX9XEf4W`)_Q|*{;UAk<)F%P= zSFVA8b=*e!x#h9#KiV*o+s?Sb;uQkM?8*RzI>>T1h_YORkeJyPPnmWf69^%b!kAi{ zSnbf)#ekW@Xc|cj6h;-d5Kgur9~0!oR&%hDJ+A0M$5pV%W$=$@k7M61hLAsC=Dh5p zi)D#6KZW0p=j<`r$?}j?&H#%yV1KyVG{<%v8AK1Y-zS5&$`WM095+3yVG7LK^4PT{ z4c*|-9lbxPgEpkQ^)j5 zkI-3>7SfPq<1|(w)k-%8Jf+i}gYF}P+N3C{RfV-8KU=#jED-o=rl50%X{97zWBq2W z#cA70G66TNyrw%hMBTz|sM3uMb3H(>y*T@sQb<>sDSM%q!US?5o6;Qb5nY-Kgaw?Q zOrnTHPg)hBx}b9|Vls(4(p82y=;fi3Qs0tmE+tm__6(uF*evGy!R@y*#I_^|?1e&# zuU@b5JT4FFWGA|~3jet%sGak@QhCqEiX!#cutq$CKIGBv<2WEhpNvQgz(U(X!eieI zmpR?oXS)JC#H2JxE4Nht0&P5_x3A~a_#;iCDcXL5A!X-m4ejh^-5UV2jz&()z+$r|6 z`#4}0(C&g11JrFqx6{t&WZ8zQ(98?772w3G<5}$9200e+hYK)4xt52tB7hFmzmVn? zWPgSL`q+`35=KdX60B1X79d%nxQ7M`lO#wQgI;+RRH)Szc4U$)seEfl0cz?I1{2FcrH^TwcIk$iCBK9&x04@^2{rPG`4{2!gXFgm&!LTysrq&8b7Qa_q6|L5>9o z##nV$r6h-*K?f1v*DEXZ@+rlt3YUSV!Sy^ znlFNeWp(WWb%R_T_Q|^+pYuYyFKEV4hT-b*(~la1j`C4{ZHT%7rqz@-gF)NEwc)Jf z8C?8PCzh)HX#z@n)CT>a@dm1*r|g6rSgLqPtx-Kp#R6ionUOXkx~BGi?t6!t0>OQi z(HcB|t+EwA|Nb^wejR+rX`VB!Rz!VR$9-#r4Sj7`M<=6Twk2We-L_Wxlww1{o+?C& zf7&vc+UX01;Gnoq($0oIcagRELn95U{8+?uE1HwfM%v<3O5!{zJ!_&FB>CF~xpw&y zdxymjhZ?b^;3n9Q4YbD--6sQoA?w-V6g3cHs@Gdfy<94!E_(dPKOYeUlU}IRdAD?_ z(Y-HZHBQ+Kv?QO#wLD%6OmrlUOk8bqi!c(K^adzS;MPBa_IW{f88S43$T-Az8`%*y z?eQXOk6|}R|G+%1Yw*WCV74aAeca-Yi3cl?mwYlTzXTQ%w<~MHby(RE(%v-XvI+fb zwIwA4RescTC(gUI>Sfds-b$ZEfY%dHM&{N}`eSauAe_Q8zqAqxq>>ur41qC|bDWj! z9MO3fY5fXSBXJud2E6fsebXJsc|^2ksq`-Z?YF1EDu%`T*cdmNp?eBv+3uDpt~b9h@nh`zdu#V zW*g9yT9(&f)xQyaEtFbd4)ySvgbZ!AHwLlgN*8;$(#k+a@CL}}FS=94yCEN9C@3`e z(3#(vQh}4{13s8ZvI$Tmw-BZevpN3TEDweJC9QPSS6?5q{j}lCoO6A0#me|h^;IgdDLy*Gc`|Ix6p+MSMq)qx+ui-T(u%N2pe%Wn9ktH#B z;05&9DVYq~1T75?Yv}-QFWPu=fkjJ5a`mWp?GTjo4#NtxzL>Yf>oe^eFLINddZ znigOKftM>aE5Ax*VFR#VKv;ru$m2{z`nS8mfP+km3OcW~US}|Tm}U*wxqvxP1RQ#; zF+1_mI4JE@?FoXzqopRBL~j_ZFiWJw;8&ARIMhjstFzRF+|~yvJDkbjeKRjxQ<9<|Yv_{sjD&QSms~`1)MGK6ZGC|JJ+k z7bC6bPJj3~`JSnZ%*Bc>AICux}=Z8{4dIivm*Ee)6g~)Ml{L)pd30PBy??ify#b$+)J8h(kqE-M@)=uR;7)4JCst3s>pfI6KMgdAtY< zjJZs_5ryB?tHsE(btLjfwe@ekmSM#%6vg8FCYx|Db77BXRr3fiU-T$KEC5QrG>)oy zFs|!b<^+Y5$m`b8TG%f#*cd=3xM`n+ro;j1J9;(cip24=O zx@z&EpH{a-rKinHZZ)**YS3?PfJo%_j4iV*GI0r{!ynrao@HwY5T1^esl*T`Ey`#}^$UVbHg z53wvs=4iR0EPU{XnfZ8bCKGY|9eysG9MswfryeP*DtF5#Kk%t%U2$>pOlj%tLYCDt zk8tMd_{V`C8Iz5<+qLCQ%q&h#UHbFZZ8Lnl# zaqH*hol;&q>`pOHR$9t`k6HFwua=FYpYdcXw(H9MndjG-&M~_URo1>Ztp;gv*#i)t z4{_Na4qflFS52pfFoSYt^7S8awnAN=&lK%3&O2D8Yz9hRFJ)tGR(@`=ZlCm(P*UmY zVP@mu7C4=uMFzqOX2@i(*HPQrQgGO;46-9n-)sT+*b}Is=il5Zdp`MtSu^akq5F_uM?xk=2O^3S73*f!e{BHa(B zTHbarzlrcF4qL*5V7unF;4{rA>*?G3Sg&2E6702DaMEHvK4P@DVte#>Q^iEgR58Vd zj-v|sfR)GWAeUut`$YAJV{G_b+Ro||t< zSW*7vIBw9Y^$oDF^D$V8QIix!EnBgpx2`~I>zw7}iH ze*M(_llW<(IMl_d-N<;xwJOZcw!B!{vW$Gt05>ez6%;;Q<4Y`D61A7E4oIvLZLj>|+mRsBdMMy^+P{cqS@@7`(Y8BVa>CdIK8zE0F?jaAy1 zd)4DANX>ik6u#9HF)wTh)@T?X5H+XErCcX8M|bd^ z2f~h~E3gN778~z*4I60k&H^~9XY)UrS}3OJ*DqAYN9v!yi^YZiB&@Aq|EUnt_L%5f zq3dASXr@#pR>)dPE?A0Xo@E7rucY=?DC+=~HEwB(J@WSR4@u4MpF`Q7Z%lXiPRtF^ zZ;WXoc&bB!eqJ$XfgMrPi=Vw9a%IHajP?S4&A7Z#h)?t7$20l6$;(d zqa*F+T5&7M$`L|=Ym04gx))}EBZ2TCk8Pl}Ul1S$N=<$q+dRmD*XPid_ySn&2?Ezf zt#rj(M!M}tzw3&1{-K+jf+IWtR?^bKqPD*)lJqr7kpFruxA=B0eYCU`hqVk4qGW_% zrL)hFu^>B6D!7A3I$2I4a5Ar;@lmTOj?3Fm752!276yzb*U(2ZcX;+k=HXSjW!p5v zILV7hlOY%ga9W6VC|N!2*D$25CIVi$&tYMg7FSH zKoyA+FhLfpjrAW25FdL)vk535(vMZvu$(_6Q)dMao}#O(A0VU;p2+Bx0WR02*E zBPjP6a#Z+0lcCV;R?IO&^=sZ3lOOb-W_gGg*4Tp^BLFg1e%H*F6>!`z(c7I6eRN|< z;^#%Y%8=Dtn^3h(uxUpU1!635uDAX+<&`0@c7ZgAF-gQGqn||*kB2-5kO3iGBf61X zl7XYnb}xN`%A5>89@TEE%AKlF%1n?Br#u&5C* z#<|cce0syHSn|cUsnoi7#vwOA;1nS(!N4Tz>YJ5sBAlk7F%evdW?+uf>~7IvZnz;o z$Y4Z$)uNQ6K^Q%0Gdt|FiHxDn`Yh>?8&wZcEBO&+eo?^@TJ=k{O&Oyn;~zr`$(=3g&OF<>UM%v_cuuH_-GE1S<-_1hxTd zg~Wq=5$Ji|;Oi}Mo1&++)-CLPqp|iuYgxm5qOsl#+tplo^FnEfJr)19Ey@Y0p6OpA z#d*mNss7zvSm*M7X>NGFT~qhSZnO1DW6f%E$=_b*VhZ=N-CgH0sYdipW1VbnXmzOI zf!5N$m>W|4W4GKK1(P#gXs%#|PWRXhF;#)6GJC1l?99+u$CQ0^^e_1WTM!)s`qeV< z+|gQ~=&eb$%0{5H8QUum$Wd0vJimg0CYFLc~bX7Dx#Yxr;+Xz;v)h^2Y^7A>++2tHWX36Cw6w z>i~E~9eum}aK|FLk2|wZn3uH>6wVjE+I1W}i6qK5AbBz#TBO0Qc7~9i4?%8H7s5*kcU;>qLe$pOrEUKEi}HbX&vGVwGl++G`g zsB;CiGL`hh<0p}5%5wp|<>tj;%5$j$B9Drwq?D~Bv#!r0iL zJqwa1Wd|@hEOpU6|7xaUZDCD`&JOBtf23k!TBcJ>>77!epOB}7DL|mtY%5XbSkBq^ zj*m|am83h+MgW||B>nw09D2;ZY0={H3VT5}EXZL@FRqAXVB1bF@4&0HybSid3%=OW zl1JI-bk5|>^lj@>U2-_$x`7N{uS0WhrXK3t~aZT#!w^I9_Y`2p{0>-mX$%%oY zo5cNj;ZpV@U*AQH1mSm3~W=EJn5(?gi&3ngC-kJoWgqA$v)(_nZ^OB(+~f^RXdjZ@PIB=7l%8hXx224Qw}0a64;x=amUT_m zpk_LwzQbxJa@ps5?dERS5QpO~`Kan%)1TKr{xhgwh(}lD)9>7?LrBomVf9Vfk})e| zA)X!pw-KK9+3Kb&Fy}>3Sj*>W`RVFK>^Xp(B0g1u7#S-oSWWhaDMV#GnfxYAtR!=i z;dvqmGj)>Bk3=i&&9JlJIgT$ipl2nqex9@9B1v8+ ztGH7;D(*Vv%9TgOToA92pSdyN!{3#`UHuniw6Khs(5YJp=-A*8I$eKeDb-O}>?>uJ z37>?fBTQRxShfLvx7T0n{EL6E+x6n^f{~$du#=r??5TKOfY-7I_si2$Am|8v%p+mH zZG@Ob%EsOj6b61G@emOLp2w6>)B<)Z&8|+jMh4OxxWO8hAu3j~V-hsp!zD=)Mn~eEVV&3681ct$dQq0{QJwo%oJV_;ecD zQCUTvausKHTki~Qyhrx~iGjN7>CV1~aK&in+_(eEquTS78tg>WGsP!gqM&qL^# zQlx#yNGT9R_!l?D^IaNi+t^1#@oL1yC@~M3^V>X!P&FRU-*2X?#>KUB8=YF51u;$8 zQ%|Z?PFRGAbHo2Mnm5m6a=JFv|ABNq0z`GejNFo?%l&jcLB&b$esR!8H|_2vJ!1 z?;wKwPgg75o~(uS%g|cOK7o->m1eont@OdWLABMaK^j;CjLl|!jW#yiS;0wL>{9mc z&#~!*d#~0?rFmLkonkw)k2PefH$GmG5=1I=Hsy3tB$UjAnfxY5dyL z(>51RWGalLe z;=$}7#;{{>Ua0|d0gU$vsPmRlpC92ogSpemB+5cG=AK-^;;560*$tq!7Q+3uwY1@y zt2z%ZoWzHM{x=6%lBT!qf{me<6Y&@DO#)QvGzjIb$0$%mT4QrFLp>&kB?y(uWGHBg zyde@@!JD&UnHNG1VRH%4Xr3+EUUERUM7t{r>dOS3vCm_|xlxOuPh{_wZz{stf(-~@ zXlX3a(?6 zd}|^QV_zPXV4^l8P8rO&;T7Ok?>YkP{&;RikGpEHKws?J~2F#Y;V#C>0V9 zW<)s=$A*_(!+wXgCZzF8BpYJ*$z1#Kb--3RNYvA(4n+Q=zEb@l-}Wl>cf!C)DqKa6 zCNe3s)f5sV5*c1s7k9U<1YYyq_CY!lAdQ-Ym$Tn(laBZlnPgRpg~xYWy3NR@0AusD z+GQ|ym|2e)PL1)U>%p5i*g1j>MHV~cc=E5O$KBLOnk~e)lsEB10e89j%=69S2t(J2 zrLQf+v3sth8c7|fp+7{;@S`bB@uLdwj&hIt{rC7}HDbsv_Wch=YA<_hu8@DQa*XX| z(jqwRHFuEy8<>?U-V@kawyduNzNb@j%*{o6Q>6`+32~~s1nTPuiBvdxUeDW#23N^TuKf2EDp$?<3!z_w=~RyjzAK~ z8P6abKwW}l3_#n%7>h?IIxQ%uiZZYx7&R_deM1;9M!6K0v|nxHP#xS$pS%|EUWt^r zkFY=&6cNquYm{3$2 zWFTR3%`r)}!Gw+x!hIJ^nOID(_=_UP_FSP?z0IdEW$~8{RfB!IDMzu768wEdK*|*} z12`l_1`r=E8=+7_%(+fODUQQmz}B;(_u@|AV1S>K)^W)J2FW?SbNXA^OyPLK4ICxh zUBgoZS3cr15(C;Ql0Qx$qDm*|S0^9BcRP~vjOml8Hx;=kMrkVOfT%akyLoj4`dR8H zDNj9kf|9*uH8XC`dO&rxg1rUwe!~gx59`q}Xw=dt@BR@{?LYmqdzLo5c0RyN=FpVp zsEF%?X*&7mo+dNGB>MUyM!$g$QDcmdxrfQckNL>CXEIl_W zwm1;<#Nt?ux+*dz02>c=$zi&{Y9bVs@QONVe8A;mzsS#w*1=L)3V+ExShPL0W~jj1 zF3{l{_g-)wjBBhBiP}){2om$uksyhhNPng5en4PJe{qJwYfWV2$du=(ziO|te%^>x za2e1BGKSYSl@%=~GTT5)xxrjP^{W{joqkRtfsI+srxTbShSK07!4yM->M*(;!2Pns zv{Va6g1sBx;stFu2~jBvGOOU7FaU!zkO|K?w;zICBvuI4?jZ)nVofR<%r_HL4gx2- zDI&oxq!m;`rD=a0k%=tj#Mty9C4*`6q;~y{Hl4laBAI6and;XKA?2*6pVnzribre` zinlE_B-BXYUQdsj8G!e=%Td*3AzpuU)}<+0cq|6ffnn|wIr4J3bdk7My?<=VQs;mZPD1^ z>v>Sz42I9o+wIn&p#x$#Pz#3-uw}CI8`tzek3M4I|R>C0_ez< ziPd>n*%wZa^ZmXOY9Yasr4^Uyd1Qc^A`-j)UK1viCl7veSxDzbVXVBiFX#6^G{HwX z9&8sLIsJu(948EOx1LrAF(?%ViBDccA|OYh*`$FojvYKp$R}tCZxhCmoI_57cM1uw z8UdkkGkX$rH-rd0U&;;$=3{FKn?^RuGk$jZcZ}>J+D6a5xn;aZ&~BYN(CDdbdF$L? z&P`KMhmaO(z~xx92-CFVve_?>ad!DLnOST^kHWbKG2~iX33|y6<2p%$89VecJ zvjQys#JZ!{@EsZqbL*jne?)bxnl>+_#3AGus8sVK_I(Ey`@=}$*n!U0TZu{KH#p0KM?OR` z@fVX(B(a%KMX1TTt-}oY8|`dpbhAnQF1mxp2eOn~O}ZD-hbI!&aLM-mmymaHMBL@* zaZpcVZ6A+!-@vsBv9kY@%E`p=|4HR!ceSZ*EbcKq!oI6{9xM3{D|wXRPVb-CVYT$9dY!hy9iqga=QuOb zu^z{brvLgtvrl+Ednjl(Y+Y_UAZsUsm|ICZCitvBNK_USayD=EDtX4QSF+X z!$Ces1C?<<;SM%pEWDzSA+g!q;7$fzfk+Pywp}&O0k_vk8G${GwN9l5zsaWKS-e4@ z?%dFsUy#ngLC4JL{uKv-wuWW+vdab6IuWmdbJU$rewI*vy4>-l-EuRpAZ#&FRGz{!H9(dij=d$$I86yx?domMX9K`+qT8{7a@ z1J97QieB--%^h=p@#}p}OniHs8UiCk%|02P94~ulExU9?@4x3B|4zJ;9OMQ~m{?90gCl}9*X)Etu zuC(-D%9ROiJh8>74)OFDRoSXC)sjHwbSaHRXjM7g~m#I_h*9pHImloH5AH*6eMDAB)7pn zkOIuEC#NFq8AAiIt*WOj1k@l`sbe5Cf^a{cZ+%p+`)B}8izY)Ccl>qY>1MJ{$~ulj zLz7N1XXaD83u+G;*udA7&S8hxKMpo^COvh>?B$?=d*6W1kvyGY!_SQH-IiTKy{VB$ zFnEIdyhVvo<6_*@?YcgnQsH-&le=o!yfg_O z=%;GcfFCy4pKgVE$|w=Q-y5cz%fG6Lxds6)X2~*e%uc(!97$wl2Ghh`8~_dFVY6`I z<3egyAr=hAL!{{1#B_e7HCdd4ZGi+wUvJCh>$PB@Nd4b zisLe51}L{1?v8-}-fRXXmpcc8&^v1sC71KwM!2i%AwfJ=B}WQVSJW&DkW^v_gPA%Q z8UN;-1v{gaN5fPWHWvp1g)HXUmo{SCy0wqjF3SbXu-LT1(0RiPgW(uA#tId!@vw*& zVQO-5ci;CkgC*vi4MA^g3gE__cG5QBvN@WN`IH3h@?cbS$rn3=8k96C`bH=)!_f?g zrmlVwIy5fI!)Ek>`|LdK>zum8ZHB5#ZoX9CtFjiq@DR3(${wYsNOzyKEc@;90S1Gz z^4d%#Hn|5(<1qQF4^6DbXz*OiLzudnC?>zB4U-!_NER61}^#>r(SkKDgKKI)$q0h`Xj{R|6T zrnL33qJ!?Ie~2WEeB;u$B-e{B@5r)R1rK~$*0Y~yReyRG^oG_E2Qzv;9sNOYJ!svh zFreo%2>wEk7*f@BuZIE664pL*qi?qBE;d+bc zHN%1lz4iLJ%Ucr=R@&`s{R`k4a++o>Zv;wKNV@!!Hx>U5Cpc>NTHjor6#$@*UrN!r zVU#I4@q1o^4WlF1s?F<(r@f($^!YI-BMP?gd!HAVf9B95w^zC`eHhnCd-NZTR_dIc zAR`O&rcwVlj;%lIv-bPewC$rb_3Exy?+xPXn11H$?pyE8VeQ%mM&C-}o3S*^GV-)H zSYQ83`yCq1Xvse7LzgwdyO=;ag`^_3R_+y}rU@_eFe@27xzY!ogKfu6n~CJFai1_K zr*3imQ&cKs?I#~^z8kN3V0U=*lj0Le)VWK*T^)u727`P~)GzUN2-49V(v5It`>85Im@I-;s4joLZDVsC5~}nvcP81TO3= zU6Uu?wVp~4V+g7gtxy|$xDM6ExDXlT?~dqPheu_qUEV4)vf3d}Bzr@mfF{;orbadf z@Bt{><)xZsF-x^Q(Y6{CAZB|;6>=^59X)leVg-8cMh=n6_7XY8g{$Y6LZm47`!p$} zigu7npfVLP(lJ(Nt5Q)?P-sT`Sj_+K91KXso*&s?^`IF%BiLKZUEbMMpxO4SZI{WY ze^Fl=wJ=@~L6cKm8U>9wiP~v!*+Y3qBsa;EnRHMgj1pt|1CN+AKGA5Zh1)L(P^{U& zg%=ZSG=c?^fGrmMS{WkwlolZvyV94L%cV_(|8u<8d<1WKOk_GD;4iWKk%p-4ishcw z!K>-#$F*lT6gS4gTlM15f>+=xdPV0;!{W1{|G|MNw|{4!>z=(M9Ob|OE6eMr1}ZPRCp}Z)!5MdNVB*S zyaUax{a`P6 zmi5pNt+A7?lUu#$3O97?Y^&#S)32I%aRS%EF!rfl*paL!k}6&k_SK|VKU-6!CSI~H zKI2NZJom4N+_aB9nXb;~J(I0x+wa_WFw%|iip=w@{Y{$n7n9S9xHwWHeD6;#>wx;JbQ3d<|L?p(t#FCs98m?6pk=qNzlXsXDRO3s^R90h z3mSA4XnIiz4~rsrizk5~)3^+#z$)u5&%c%1BANxOE1T1cd=m0A3896ONBhHj65z}B z#_ORX-HTD^^|DZ9CJbfoHDVc3PUT>B0*{z6zM#pX3{cK&29C3O*Mm!RMWqJ1Jd6Mk zls~t0qM>ODoge34%}%&IJ$}9xVlfU0i_ut7p&DMRf3m~7fbSXBCC_B;FL}Dxg6Pc# z^EEIHSBYV*x3*Wqv!Nh~P%kxFtrD{)h=3^eIx0`cYMeZIX-6UbVw?-Z46vU@|_USMiNUzz7R`1Liv zeqD+$iDQfr8`CN;u+uTM(yc?y7}=NbLq0TR@0)%~YQVE@4s<7wpU8X4%gb9UU}l2y zc31IpYV?S}XY0skvQWAxC{sIk3i<)aiJ4+D<(G10tb7A_=c%^_9>_I~ZyO)TrM}hfnUyTiqEi?U&xJ~Rs56;Vvt8_s1OC(l3tU(EhMyPWfseNRO*(H-=;h{%n(hah{BU0`%BhqLtQs{47 z&oHTvptmUH&jgl(AuYVZE*`aRif}3k*_Qfp-0}J|zHW-qc6c!UX#>t1p_$sJr}{~p z1~ph-P~I9j0qDi)qy-8?a;cT6XOZsod-I%)$?%y0mgXvy5|By"<$0?4H>L6B)g zgJWL*pXw!1fw9Q>vF!T+lFlX2AO`BnQ;I3L zD?;;>bgZob&>crqVH)f5&4Kisn7r=EBxbFp=t3T$xUisn3t()*hpD(ejt!VwzpM~e zqRYpL>p6ivET6{25P5GBU|FZA^P{+gs0C3o;Xq&hKo5!iIqj3BZg4=634I@ zAQnMca+d^MquozBmOnAg5HtZxAo(DSk?hJ!V6#JDwK5zRG2`UTNYng1KW^ptPs3QX z@d>M;+;lfk;VqwC83_9HZp=(NuFKT(Rw^4-rlqWjvS5O=LY+BJ&ZL-d;m897phzKT zmLaH|6>N5Iki1N683ZACCLDu$xF?06>@jbv_=`|oJ#Z3T$U-Y{vVDgZ0bEY2&##x` z;@;ECu*Oz4E>_iG?&ii&G9VoA$>UzYIAl?L#%)zdI*u^4H#se;Ul!F%;r@0Sv}96;N+rqabU6~a1H6ISkCta)G9Iyr8Qa4)ZX zi?!T#HnZtuTAx1C&w(b6f%=DBCQfl4)HwHHf*L+;ms)b={t;pI2<{>~NcHvHSp%m= zYu_sNDrn*4=S~(vO&X<6bZkwqfl_^dcPJTcD&Sk`E?jRPVju*98i+e1}su5B$~BKherlmGP;>p!z*|nvhhOHY(1LT(Q3Al#L8jCN9@S0cW3}#}SCd)MG zv)lVP_M96@{}w)m`SI{7tz3{5@np3N#~iKU|}WBQ!rGt`)kTmq>GwSdErH}HMh3^77PuXKd`TV z#o}yO2Oub~gO|WCrvGKp00BX^w$4d*b*iT73-hid!T1&w-e?BrpPC1ddoIF5>Dep` zaJmy05!@=Sj#dj`RVXtzmp+0lBo7^|WaB3du>&xV{5VW5)cxb6OB+IA)cczJ0S>?DI z-O9*Tg4an4=d{FkHkZ1Q`1erCV-w&It&nDxnqu5!rdsEuB$F#Ma+rvHndG=;JOi>E zo@xiefZhGWq2~~)+WSo2ygFTr>>dP8ev&g_=9Sn;CmQvIC2q&RNX&NGOTlsfRU&La zjcUsd(zs8BUZfHmv)Bd6kyo=PPZ6=US=*C>4|2?F#9&TP8DlhszfAlVT1HoFw#;PL zOj;TuMe8gsip*WBcYKZ`AFopWMv4)TM3QME%anSpf26WLkvn6~ei0+Esr`TD`FXd6t%= z%CdmP_N})`eF@cXaTrcuGFACtqaKN@gsVwB4cN5l8K4PjAwP(n(487Tsn3fMeVwf_ zg}eox)Mq5LhIAmyg5i~$K8XF-Nhc;Cmw@V+;gR+N4sq*jKr$Ev{)76_Yk)8rsf8#< z550In&Ho!}PNjojX|qBPz`$?hem9e}UAv`rw%-w+TdS*my=`hiw$a%pukHRk(GK0w z;qn=RQ{Eh(oBN^xEaM#rzXy5PBxgQlw+n3SNCOrtToNu`7wa}V4BsJ|m$ls{x@Hl< zs7m^uB%9#v4SudivmV9zJ@gioc!x$azDCsHwM?h*aR}VssL47jgQ)w-I%G=l6lc4s zO!iXhaDSmaI{0=-r;U=0&#`a_P~@r2e$*@rH{EQWny@u-<}nPj=|f!p>As0 z=^7fryVq-qRuIHHl{YCh(jZH4DRP!!)RYa{mcPYQXxAO-0{F zLJe)L?eC`VvV;LOh9Z}03m*g|%XbYzg5XHkpdke`L#Xl)DV9d8R9inZY|ef3NCnT} zUzXyx?5pG3GhqA%RcRX;kJbMqLdyH3BfNW>s}0g|X8#!dS;aJB2Y0?a2>0`8;98G% zYDjLvExGzTB3B~ikjUxw1PwL++3D~OvpWs#Cuyq*X9N`T7va-!yT|pI;w_8Elz)nI zp^Atc$lZAqOsRlp%vBvAkPGQcv0#4Pe+tHc2VsvwuU!O0htn{8P#4R)|3|2)F@@Ob zY6&U3zwc?WIZ32sq0p#9(YkR*YDA$bGHeO;(b9Z*lUKw-v(uOTW!qU8`GSL9!(GH; ztwE}kVLRbsvO`2fjo4ZAGZkT-A|;N!YEhDMI&2o}nlD7jVlAj%GOZeHZY%~@Z6?8_ zXqotA&xU0?i>G!U9gK%m0RdY|HWdbO*XbCduV&dMsk&lX6sVmX+PI3Bg3;fXXy6Kb z83C$~I98}=7c3Eh#g9HmK@w#o1YxI34=iXrRIN1diS#)+FP9FS7!q|VkIJKsS!pV(4kSiwK8fL1{_&Nd^5OmXSF_>?;Q25mM+ zL*1p1S1T%Y&?r?(mZr)pxQ|=Aab2gAad0;kA`U1P-y+Q|Qda3{8VKIl6?ISp5pxtx z#I>2jb?GpTQuY0gyj)Qn(k{lAZ?nl_bD?#(+7@bt5yuN*G~k^ z-dzuvGZ5Arc;R271_Wifl}<8SAv5oZ<|<5!6iK%bu&qEFK-U?(^d z?^A1mI{8>Oa=8eLz>&0A=A#SKpd~4sbqIx3OWQ$RTnMxo5jVj~K#@|>4A+YlEa0Tl z!h@|i=w9bwk2YKZ4aU_7M&;oE8ZNS}4zQEJsf1ea_S;%6A}M7fC|1^gxG^D2rAo&e zhTDI9FW+5sOD8b;&maCNwtdjZe%UBAk?{wzlQD6Wa?ln5XGsqEsb)6M+&Cg z@fb|9HHtCx^a~e`vNd=!mzV9FheF!tQ+Gj`%(RjJL|4UEQOC=h4lq_rij)3p@P8fj|1-TiU~vLVNKii;u!@r zia+d!Hl@D|rdhsGVmH({4Y$C(%sbMsfO>@+=$RC6;&S4lcZa`mBrd0OAiST&M zq8@G56CDSYr_VvM-xwt(ZKJU~{|cWw3kt@vMYWK7R)r&Vy0^IvAN19xW@hb62>9~R zOz?8q!jbsN^TN?FY0@Tb^XpPYZu6^r^;Db_DSW!e)5n^3ie7&6>#L(rPVWa?^J^=K z$mZ^vHzHY1@hfgyD^RDMQign618DKuq59#qhS7%XJ7mnP1A&H{vJf z;a}VcL0c?pUfgYPl?2|Fbq7?+0|eP2J)Osy+U5bD2#zs)Xtj$a$88D!IkF;&_B-2^ ziKsN&yCR!J?6xVfH2cHMb?%uG-*5b6MOeOK>*Gq6i3^d-)VV`h>^M{Tu{3%bx$N!d zf2ZRkOlM+cD;Swe&6nHw35;)~Qcr0#9Cn`Nd&8-dSIiWA_u{LGQ-4kHb2lOnR6PvgJtdc^ zpmaURm9`I-3@yxx{{&+F4TP*WCeorV2mY};d-@6UJ7*2g>@CNEuRpW*=8J?z#N(=W z$D5n7anmdr8igu zDZL7NfFViA_{}cU34b@6?ro|hcxE!1gu(&%jcgSwgP07k2MGzP{7@3=if36$Epv?9i#f$$5U<|O?r$Cnm9-aj=UIDBtS~j@rcZAi^vVHjsePiwWepnPi z>~HZB-c$~U`G6Nze&GdNFPVqW*quGo4sQM8dN*`~sHLArVOHVf@tGL0`*{Agf8Bn5 zObmW?YCa8{S^rGq{|rOLPSu1P2*p1mPaoJ4VUqi5_WA*Geq{Z|r(a>BnO^3N{EVUWtB~rg9lW^*1 zk+6qlkN}!+I_sjvm^F0EC35c0{zFEZI=(!9%=4RztH}JAVmoy^o?6TK`NkN>@acIG z!LmdF)W7WZm8g^k?{!*i$dOAF$`{AVozcK9xb%J^{mRF)xJWnsnmo`ZYeTL z)m_rQf1m-DgYV+(P^Q#*ZM=!J!pTazlRv2XJ@Hrqlk!4=-00}#a&-KiM3J3r-pW{2 z)0wqjBQlp;Ue%v03F%rrc=GS7`6#6bSD_nmh%+>je_wVfp`OY=1+}0vN&TUWaBJ(b zqH9%lxi2ut;BAp!hi)=5jmPj%AXetHTv$Od$&|H62l`P^C+RgUEq|$1A(}40Q%pf< z?6>x)cmA_IK|-H$Nyder6v<8a)+XZ!)$8EAPr;U>yEgM~03*wXhw*hGVqf3t(oZy$ zu&0NBQXPebk!41Jv_ju~gB{O{sg!kKf!;yKo|KSaxhmmC>K?!@L?Wh~ay(H>0+vBB zor*H0!kpSi)o5-XYO0O7pyBU>r1BHm{oF|(!FshWR_7#38_TU)tCg2>`Od)-a`r6d zCzCoFm~1?)j6!JmXojLhGMCJ7)chT}fUlG?B+luON+!_68Hs~7?Zm@Ps5DHMe+rGo zjpn48ptJ~Ez26c|OG*%H>mai5n9Lt5tn5xx5gRB7o-q_Wrk~buW-PY`&>FP^Z)Dy+ zZ?c=}y9Xd;{fuh#QvC!hULb(Dd?7eNB6*>&D7?r6<3nFltyctInv8paMTGc2(0kjz zXxwY8o&6UNekAer*~i&4KGHIy6cB)%#WZ zE)5Y(Bmc^@if=nA7za1>C=zK$^ZIae<#gpe&|jYNRA{Fm^$|NULqtEBSSv$J;SN~O z{qf*e+!9)Y9M1@{%n!2(a6ALg@jl?-6CNh)K9q~A^(P#i*96)L29FNuKH#fnA+Yao zWE?iwspBUZ&$u##)}ERb?{MQv$)5_AG-w*&GVU1#el6Dqb+PyLKH&L~*DF0i5?3r2 z+z_H%dzS8i-TRHzXQMef*8}Y*+^oHMJVPqeXIvPQuVnT{mG`pE)@uTa_rw?w5q==6 zXd2N_jdJJLWzePRI&^;maA>*Na%K&)-)1nKC4(xO=;82dYThc$4P7?x5lL!pFJWrj&sBi@phnQ+h%1;}(K z8I?FjHvEfFJqIQaJC=a7%^W?5Lrhl|7>p&0vX6#Bc{#R$OaoYuOh#&t;)P&iCy=|j zi^Lcr&mCgyKN;#m=&TXg=M4U}Eeh5}DR37_i3srkoxX*?#CSf!0p%iCFPALDRkbMDk0b;tQQ7kBRQCOI8A ze@m#n{@(GOPS@zBWW8=sS(M#!Z%^Pf>@{I01%TI5A0SWkS0knI84)<8Bx&rnz4f19 zLi1@Mli(nR|6j&Ug0v}hs4KeI?`AftBZUWG=^5 zI8t~!QvZU~)*Ufa|5L$5>;m@crCq;2ndPI6(QsL#i!K?7q0D{8RW6eJ+HpB}j<&{~49{(sh zd)~KEyp&x0CalO|x?!!@y1Tn7I(x*aP<~tyKJ{f)#Se$RkgNDAj!FHVQ2FE-g4OZf zm^c)_Zm8N z>@a~FT=#5+-igt^yCBGL#>Y~~a+XM#eh4fHA8~&qoia$H65jhS*VAx7Md|#L4r~~5 zrR}Cb(gYf5MqWJS#z94^K|$50s{b5`!Jz6hT9dNwC3WKJlY2snK~NCIgyhYW{9lZ{ zQ;;oDyKP&xZQHhO+qP}nwr$(CZQHI@SgTI`d+&44jT86bzT}KCGG|2QTh7^9@1H^_ zg`J_xJ|@T1@>hOXE{bhH+XBLxqoVyQjcWjX$eht~DIUF9t34{C#LnI%aJyi^X>1PjWsPjTIj;nRw9)Y|W+!$< zntz@VEun9N7Dxk@o@KpHq?JIC5Ev5i7>ex~M_gB(u-xr!Ju)!bss?J;?(T!QiZFaM zDX9T1^MSRj!^Ap&P-XQYs2~b(sn}1?Vh4*#?ToP0pG4-`Pp;`aKWQTWb#pEB6UiML z$Pa(Jbcl2<a_EqEt)JzFP?Rr4)~@}l4{8V$dDxqS=K;O z5l&Qku70E_GR}Vg8Pa_?gJ@a$imj8t>fQ9 zI6x0dwr%T^2VJ|%L=&GU8>F-{jMcH3*F$2KRIo8o^6Y?5i6LE7MadCaE!o8lzlqj5 zAn~}o2iF1~FG_23Y3b!)LNcOaaXO;q_5(@4`CEaRBlR_pz-*6}@kb=0*8`w5-KzFq z7eGk6O}f#M(D%zZ2tk$zAxrJ(Wp_3Rfl|mnZxDh2!-e8;Y&uLbyMEm?T!w5?sqj1? z1glI4-zNw;z=%JEWB`aNLnhQ~p5B<}gsh=Ezw5IO_1$4m0<2_at`*8N8yv}vlV^?+ z32NO0mmg#-eK;kYwPe=j5#%oAe}!L=Pw*q99eZj%6=W<;sIj1tZk+w4ZjAhgm)48N zCmuE5!jrz%3H}u75J7?~VV%7Rczl~A!%h2D+^6^vjG131GIz=T6BrOMeVh2~C1XMnxC}i(c?+s6wo(m{s|>6*r4r%ZAbnD=U#*%M8S+ zMN5&W)KkS4$nc?jiPFPe<)^BaEL0-E%(c!vR4DJcnIolD^{ zJ;SWvNg&Ouq-w1sRxSOZ70cu<`YK2xEOV{GEmk5I#$(clIJAOfIzQ_M-R)H^b-Jxp zO9i^|P^C23l92c*s9aj%c(CJkDFdarTASX3=ls{x2| z_em)>vc<+ZJa%PO1&)z&wI8nb{0zGjaE8e*wBNPNEEWFkeN{mHY55{Og%3 zFZzoh>yU6RhVu5p-HK1gqOOzg zt+$d~`6C&PDJ}Q*_II)TIf?hok?I_BN`Ohjs}ZdYY!d8crDg$ex>V~~vN(>|mMiY% z^5RtcclvOB$eezw6-OtjBNd}$H~M{Wg$tg<=2U7?+@vXjCaml%qWlJ`yZ0KJBp#Gu z0P!r)r{_vrsa(cW8K7IwKW0NhFQ@+JszwCK1=s? zJO*L)B!qFMFltSHxj(NsIaz=5ADcUHPqh4)YPY~(WA$a)}*ebw-IJANao568Gei+BE2d1i19XQ zen71S1D-I**H8b!Lk`8ar%Y~l)|$ElOmpfkURKIWdumAm>)uuhlH{R14fE5M?zB&NE(Z^yIS5lR$qXX@tFutbJ$@bb}ZCqr`y&-mQsNV^0&jws)bke7C>csxxov9<5X{-bir0KIUgDq@;6 z>#DDU=Y9F|Zk#GP7d77KH_ft*IBv$;EL1yuQcD2Ba-JVqK)vXz`YiLusen{FD5kwb zzo0-1qJ&5G+FuHuz_W4@SRtlelvJdoG^O1FcIGuSBLiwA&2$S_%?87{Wr|RLo?y4Y zKbn+iZjBw(Ef*78Jc*u-B#d!$NJD+8e}tCZHvBv)pf3LVhE zokAL$i|5yK&zxL>b9iL(k|m=yWIm2^(%f1q1KXszwb3LzjUtC(YWEsE(cA)Zn>4e` zW@=BjNo#{_E^nr>C3N;?l-!HUh)vCaErUIPyYAGL39C2Rhe-GAWR$K>;iqAKB5!Vy zPO{GZd;MStfJe9=1ZrLbGe+_$j^uWyFIgJDOi`9xZsPrBN*~}5nO$jgmJ`yrOb@O^ z%ZxaEz)INk(;>bkx@%B+5r}fgrIk==QGlVZS*f3bn$9LTA}*a}*d|+vQR(Uk11CG| z8pW+VHyrHdKn5e<8&AB4Xd)yb4qeYhyNbr8^+GTk-J!jMjN4c`? zdgk|Q(xObP*74~G;%N)V0{C`$!1(f1O1|X`zLm^PA{XCyE?h?XUye?YOv%8MuSCE) z_KXMQlW~`#4wj$k2TanEr+UDXtfum8j>rs+R^C%EZyBGVdb4Le*<6Ers}ojegZi?}d%aX>_fA$s+SGx2m_Rf6e_RDN%3oLE^w(8L z%@j`Bys2&-Cv0|Rk2tHC?GxD=PsCk$HPf#g7Zh0mDY2AQul5b_x<{KBHWG|EK+`@YRMI1;YTgX%Tb=!lr$PFe(Tjcl@KOBtC8akhzkT!n z=n7kA`n?nWZ{1-N+tVB#ofme03TOL1S^bAPs=)zJh#N{WT<&+dYn=sC!_>@{R=k=h1-$f z|56o@tuST*#()Xqh~{cMFPP;ph#b?w@)?S}fSp0?^|sS`1bGcKf7I-?$LW+Vz%Vk^4 z`~z}Hbal&eb_?#U$s-hg)ZCsb@jorey6#(&rsTdmlfHRwjXht`?3?5?!fatp3a*N6 zo^DwJrsdR7czR8&n9Lti43=rAd-U~dp(RU|k;!JN@(U%?)@2gxc$25u(B#_Za&Ea* zcDdbJT+&J0Jrr|Q0}^!*T>DPi=R)z=l$-}#B`tsPmd?xgXVXlaCekdZu;sXz9C6eC z$5dGTZ&N{f_A+6e;a~h~)Cs})F6Hyg)=P}XB6$ikVrxOyx?) zy9WE#5grqW?(gq-q|<#c(dZ{)4{IjloMSfy=YDE_9^-%<8lj{}nxHBAh*B`jUpv9= z*G{ndf7uC6{AFUb_zNdo3C{j5$=7iCvUOLBJl&J59>JE;9&DXklCEr>Nv+NwUG)BJ zokN%A$<`MDT-iGFWb4h7ua&ZOMY9KpvUNZ~Np)Vy*3k<^Y=7acol;3AHcvj;vvtY| zQ>XJ}>&74@neT0!R{Q_4XXyYgD;{m0SgH4DC0mQBBw8}@6;7gdX|}fevUOeodK)BP z&#dh?Pp;y09I#eryy35%bj=PoPpTH);qRYtg|76u{az>hdjmWa&MM}~)wxI1I*apm zPO!d6vVGl?t4hXFR6pvhonVPSDYA9X1n9fkSvtcw?{pB;x{m$Ts!C{1;A{`}r2tH! z8KGISZ&Vb`Hw!&zyc^LQ0pec4pc3o<8|PcxBT_blP2_ZEy-%c0rM?(Eu3{b`nP)hO zp^_b^FfbTxNlei~gbZ^YSW63*SK}45eSMZtJvf)=@;L}&0e07R^&>&XQ_j^lLN^<- z{(i1{e!etymv-%Iy)t+Gr(ZpX4cA4*j-@^H**4gQWN?wUrMfiI}(ONU4nYgz!hK16XxJ@g}8n{YE^oPS!wUUonAq{c6I*Jqb_Bh*LO1J z2yyuYq`foxx$~ueB-d|_U8$WXj{??2xwrPE__4YIul-ZKnI)%>_cXRC~e|VLoIiMNE)^ zfc?&NX7uIo0;_x0GCbXrKEF4PbQJDnP?Fbn3@RHc&*nshJ{JVqUfxV^WZlE`RI=pS z@A{&UTjEAyh28;U&Dd;6T%T-h(Ir#O{|4JI=b{We4aD1^6-QEZ8|B<^sXksk(&#$U z?Ail0`dFvyV5ckGd>g2@yUL{{c3{)rwN;)e`p~maX82b??%eQai4aUov|BtpSA-Yc zdK7zM*)F#^Ty?A|`Cz)%7>j35ETB?Hnn{P!+;f$#MWpa_4zc*!N_EX?(yk(>FCV|9 zP7Bn?lC;STAL8=qF?$$JgLPSAC{n>8r-&Fvx6)g!cegZ8D;%~pOdcGoe#O(;$Z?a( zS}!QV!b$@hpbE96%rPav7rGf$*OZ zy8mOsSG(AlHw+`nhn`TLF=C1@mA~#pGlNy?Tic#JKcl|SyQ}8k@d~)YZEX-xzmneC z{P1-Kzf*R#{(C|9ZQ?i-djF9}*^Vo+BS08$MPspT<1=@Mc^88EuH!01nNdmGxO{_% z_mmUeAu*%X5RKvyAfM85uvO0?W>2K_9g4WkaeeeNT3#%9Bme*85G@Jhw>C-AK$t@f z<&JYj1eEhz#~_*kq>&D+LL`KF z$i`Jv)IPJKO{Y;IA~EnpY2Kbcw_^2SEv|i`c3IKN1u`y16aH+`I_hdUd=|by*2Kis zNGx1OJ*h>JyZ3OSGfm4aDv=CVxe!xai9%qMbAXoKh=7#pT(}h?ZQY4ahC=Bs62`4@ zsSvUbJP9OV#RAv*sh9AhThE^^jDkFi*w7%(AXLWOUE3$U4xuz3lz=}>EZZ2=`Lz2B zvu4{YciB@_Lr*8`>=?PZ5+UZUkOf`=)-Wo7#ZsgwN~qGxT$mawf;pn%B8Il!V`Qlh z>2%qImV#GF8+}PR7z-gc5JS#}ofWT5(WNDp;K2Tg>!GS)C7#<_sB~DdTIaD;g~x0( zb>{l+M!e3e-qxiRGLvV|B&(=!5?g^F#{UNiWPGc#E^#0Em&-XX0)}Pz>7SEHQm+&r zXL3wD)b12%K8-AS!D?PL9S&+IGD&MY`LBQZF75TR9V-F(&yGF9syocI-9S>qe~)(K zSJL3zdF(RLY2@XLzr?z`o(66wCu_IV2<}5Ml`-|XeBTaWSOKZ&b;S!|%#F2N#=a0= zSc5XyQabO2>YS-!jFlT=TeF7(k(AV0YfCWA@S+*1$DCwN9#nXVB)fJNlh~x|tQ0o) z3lXr&n*=T%Zr5iPnu9#4=RMYvUEvAJNI*RdEk{@;agvy{(ryU?I4T~druOUu>vt4p-jzbW$8Li214Y{ki z2~ts?b;~qrem-# zM##9%k+Nk1P_CgQ7b8HI-gt2$SqIxsWjNJsNUiJ%s-2l8!T!h5q@BQ=jpbspYb0&> z+@!AEZgvKMFxGoxZHsykg{ifcfrg3id%E=1hAtrivfDXD=yD zIb#Sk2+J#O6AF<}O^387Z(3_Tt*{m6&=e%4(yjAWW4~Dgft*&byEF|XW0tLmus_{2 zu#z<}j7&Sm1bv|)V9113fn}nugmKNgmO`7DmuX{usv3E-Cv9KGB_DEW=)+rLEThX1 zQ}jBw-9~yV9kE0RIU4IWHqhahQX|6W5i zAE|4d6R*Bkcfpqmm631=3p8pm&t9Xz8*i zq^K|q0_R!kJsmuyb2-b}?eKb#N^=r85`-QLr_vN~H(gw=9*w&Czv7ek-<=wJ$sF|b zwpON6c-KbwTz1D*5PU-$t5qqQnZj`+_0QC6!#6#ILgNxZafg zWy5U6-)OcjdEAZ7w3bk`7V6K5oKae=ae>+0)_E?eb@!dC`>lW_k2m;-)$lOvhWiC= zt0`QMM5ax?wmr=NqZq<-D8AJc#>W@xsOb*c1rAByp(PjAdZ5NHIAi)>RKL=ovNc5& z3_$da0Sw^s(*yv3OhzaX5+kxUp&~aM&U#AMb(--%bl;LNsI6{|>sU?sRNAj6KDgG2 z2fJpQ`t-~wagwB9`8Jav$a7XzwAt(}b^fA7;oSt2-oQ)xZ`g zGYa2kE?I*R(nubB5p0|U+YXfxH;iwq(sXmNyBMHk@=uUo!EW?yMrwaILFob3R>Gp2PIDVw2NaNmBF3fe86e1IT#a>xow`SIn59hkO*`ch zA>_LXx_Ij;)oq{BDVU0DO19)8 zrPp#-V$|*n^IG8xfTz6NZEa?vsPKV~Gd86_(fYnbDG@>sLcu9q?n;EDaMm|fT@3Al z*D^4GH6teCuPZq!5rG+@bREL<+ASw=s7@jE&>4|w>grBm?n;1V5qBj(NyRUs<_C-o z#xEk^nF+!$O}T;<2mj(A4ro1QU$fe?b}3rVYiLC;i6R4BiW0l-l}&gz;kvJJn^UZI z-u`7ZB&?#u%!L_fe=bmeYI$!)d-$62ToVah7Lt+-X05h7Vn*pPr69dqRd+E&740do z=8V{4teGMmj?`9bhG;lqcFZFW)1G7y;{w`dbri z_ZHUNvB`;QE2IgYCZj=T`CC-RiV+vB37O`iT$-pPD{jdcqYI}5>xx8sCcm`>!KSJh zP5a&*1z+V1tyt#Gs%X*dOpfI65>Ms< zn{Ah+S8Non9;>88-pkK@nRQ@W&8?6cvGsI}?|sR2WVF2H*RO(qhFyJ|Fn>Y1_>kj$ z;Jf+~hvuI_O{Fsnud}0ocO}=eKioH3v-+`S|i2`F7` zunHb`6Xx=r2Jl0}wO1!9zmtbqa$f{a@g3+>u|L^U`~jA!5B3%RUEc6gE?wPI{D6FE z$Gs?X7r7P!e<^>6<7?SqE};8U{orW7df&gR?)PgalS^DO>4WTKZ%?=yLt^wQ_%Q)T z(&JPTyXwrBn?p-AR)*KE=$8*~`=(adtRza2fvg(XV1nePCXJM5r9BPImBt^ zZm&;1xqtDFm&|{9*Bg7cI5*t=e)oV}+<2PA?cUcr``t{Tn3*a#{1S|oIit`g ze7zA97u+2&6B+asc(0YmH|#|4x&FKTdSm?%n$Nou->@)^w30=W%?y{`m1|az;9?-0d#B< zFD<=F=w!Dl-o+{Ww0jW#qbYF0x%K|`bv)e5?}Gt_rOoc{sj7p|KX37Z-&vFT<85~5 z)SWC}#Lo#fHaN7-_afbT5b6CdzX;4oIn1VC)WK+ z%`=S2<2Na5p^x&VstLOOp3_9O?2%};wq2Bx@h)W0%JE`l|2^)6OZTvIRLK0XbSx5f zP2cgD-9Gpk2p9f$*r3T112aA1ik)Ocggp8NconG85;6I7wxom;rH_a;^6aXq-STmT zY$Q!`=J_yuAC80S(%R*6ah`YhCXCX#Ue$4MD{?1U25(UgDnk>tiTkDDSe4Ow-T_iM zk;~5``(c3tmC;@{uz=Qpn0;&v5I%KYqa?1Wj0L8t#$dV=yH!R+PQ_?_>Ky#FQq8N6iOR_V6- zI=X^y(zEQpbAH@^=ZeF)pj_L{xl@}bzSYi3R3)eJPAdI9lhLtFH+6rTNK7+fjnHZB zeRO7OrZ-LpV(?ZW!%vM|XfFVd@mi2x-lH*$|&ud5cYL`>TVN&#d2OUu)UQONlN#w8H*+UdonNzmm(IyG0?< znNL!?Uazz0mK*Z;%HDqY@VP%z2#Z!!xiZmTx909gv@9(bEmgF#E0S%U)Jd-(8^bcS z4o`3lit*}@uqQtd%=YTw_qG*?;5P;Vvlj-Rc@~*h#wZnGpxa`|X#Sx=3RU13OyF&@ zx3Dt*fI?>K8hqrN$v4)YyXGqTc_8T~a8_WN9;FFxJp_$W|sC9L~x?$+PM!4gZt zb;qYbNkK7TfM`WEh;2xJ*hRxI5SBEd>~G4}#3hF{37XJI8uEtEo38UJ5lwHW6TU|v z7{~(8fyOP9nS_k6_UkiCrxU*y_FDF@4hj<9M9!1}kj>+Xd6}-D(W*k3H?iJ+Qk?BS zjif>$^J3lNF87`C0;RZZ!7DZRJrwBYGf>&(6k4=Gb6i5zBe^tN0w;?#16Mnc4P3&N!aDY*_E#iaSJi6`UPHFuh=qc1&kIzjDz5=goOXD(SArF8Ix4k~D?elQClFjp9n}K_trfQpZDzTAbTycV!%_bHErT2&lp!zZI)!GqUs1uj$$HNiL$S~L& zO$X#0ffeK*lH%wZq5^nRz>n$wd3qV zO=B_ESZRgYaf;{6fTr(w`|2|jag?TRnVCdh{y^c?$=lQ)5HRrZtw=cWb+%@mh|ptN z6*FSQMhxOOwR?$1^@!bj^!(5F&dv@nWo8|^ZJmt^2H1OB_YYx1S8tXID z^ur3i$w$C`4k|A3zfESH9XCoSJmUVcPC-4W3L3ts9oqQSe1Y_iTWVxa`#&GGyx-H> zJm2ry$%FpApC|A?Uu!Z`soOp8<*f{}<=8f7jO2t6em-CEx6;;gGozfbhh%YgDT0|X zlh4(p(O$g`iwY7h|0+P33s`&SH6*-(?a^C7-+X{{$D(j1!I2>T1WjuQRC;kNd4pl= zPLFkhN?d>r(c$d3+-6?t3Z01Ai|gB!O>L!pXtD=lYit`FvkYjFi}AwK64v?m4l*R% zEkE~k2+Ak7{sH4h$;q;e)ZnrOZA7=MOxp!Fc2cT87ce@J|= z733Gv4Q7-hkOM(P3J}N%c&MO}oHEO_8K&JE4O3`=2W_V^K}c%z9*3%KU?rOwaf+J90vCV)V0@OLDft zUzjjjc7aMyPMt{QdU&oLi7@_pQoc%Jj5ZF0G>d#WeftQ)a(E33KX2hf@XfkAsDvxA zRNB|#?w-|1@)?+N?*K?cQV{PTfywj;#hJix`Y}b+^WJ>>gx&m?IuK2>N;m@y{;41p zo!}&(oGi)5;|WYx&nVbS=(tSYH=jrnB_gR0aI+>@mpNi@ZdC~F)j)j#%KEWhEF_t} zv`n_s9n4UNbt1yS*FcZjbfT8|Kxuswqu$3#6aJGv{-)}wA4BBeL~L#rru&$(lYj^u zX_F-}yOSJE+4;LGLG)z^-FOsu(&PP1g0zYph1eJDrz0?g59G;0FFHwBvoQb{urphQ z_!+RyN)cEYkbV4_i4=;LZk+utjI!GyXQc`k0%#-hDkjQeCgBhC_tAExX6vI{lyhW* z;UUo-t?{9|-}T2zq?4{TSm$|5#2%R_r#OWKPgORV#jmpEs4r)3Kk-0`jN;+~21&<> z1{G>xmI!JZ#;E*iK{Mbu@L^hj71!i7EBR{c6u&K|>fm{bM<3qj6tCYoK3(W9eb;z` z`SZPFJl|LISk{iuU3z5MKi3FczhmrtaX-g<7ZCsZ1?OY(C(`vbip_i5g} z1PdI!&T+Yb-DK|_VCIKm=lE-tas3qUownYRIG!|boV6S_{d}JuMx#M`X3iJnq(R=*v_eoBZUSx`*Ed*%S50pL#jI zy@Yrhw+{8EM|*ibyY7r!<@yt2_KQ>>9k5}0Nxm{d_4<=zdWqjtI+5F?`0VBVIw1?C zRPA$oYW|Cr;l?$^^)JWwnSMKN!79S4m*cido|o>W`1#2M^vs*MN;!B(j4czE3gxvA zm|`>GRw-5#Vs%Zzk~R%H2#y%F74xu(fFQb#uFXhKSHYBDBe5sT7YK&~jue7+H!`QO?&jSW4-$1kbTRXXiyPqwd6{1DeFtR zGj0vKH18A-BuHVH*Vf3igAKiGvQk8{Vc|UIhpAHtyL*3fRKSkfK4WCS3S{*&Vd`bV zg06M?Qs<{k80wzY$%fr0OaL+1mBRiFi$75i2i9l7GHOA-2V6%$bg0jQJs_drYDeMd=-`SOUI zg!<%Rl$7a8&xml-N~K3bCdKzW2K2#Zc&5VN&wM~Z7(b9vF+|%Wq%ln(P={GNmf@~Vr z7?`jj0Aw^A=Fx>%LqN0}Jgr+B-mMlx>;2p#rdn#3n#-k|ZJcSUR8O2?gpXxc><^BW z%rl2=mWtv_F^!QrrJ}fPO2e-DWJnF#7URHr*gt{+qXl_)Xxe@2`LIr95Za=jMmWP1 ziQR{#5vNFcKLL-fv8Id5>}Jf{lMqTM)`rGT2K#Z3aL~Y*I3cIYYZ-yU-(-}jDt<)H z9<^s{_i9!-V1r*-n`Y?wKzD04p+uS+t)mw@L`r_~l0L24wVVq-Tl8n6pC$Oho~peB z;QE<|Ob;xFambe&A5QQU@=YZoXPe0)S`e-grs`0_^ZSOUxUqMt%|%OX-Q0ezzAjr^ z(++b#*?eWRCFjtGNz%w$0k_^mJd@3r9=RvUb)r2s5FUS$ZobO2B@*VGo2xp7LH1-* z@-J)d6kc2UfWj9;dV>s7yG(?|qb|K45IH-Fj)wFZXyrvKqar29>SUM5EE5zHWt<{? zjiF{SwOC-Tx(fGUtD&STdT)j^61%(1z_`E^$YZKp6=ve?5T#f92LYEZt;v87 zQR|<808it!?ts1!O0N@5K%n5_e|#~?_(RGQzpt*c@nPhgAL8^hGb6=zLKdF0E?Kgh z#er^>7N?P_#Cgov8c-%#0eMLBI`$o=AV5`EMM1q*x?J3nEQ5qHFLdr z1ZZImRX$Aj5Y8PiGJluT7@GAoQ}vY*JP3xx5!OWrU-co1F$mBG{0$C}`M0?GL1d#` zX7D*cRmm*@T|Zv8W3498XIVch);ygkcbQDcG7v0Vue#(!g74%s1m`G|to~@|s&@x7 zQUHKlZ72W_>hPbJmO)X8p%*81;z`BYy1l$uh-27iIkDAsdPL z-NhI(WH-e#9CWqnKX->_a0H$G={fNdD}<@!I8PJOga!Z)8)2@eT=f&gW%!D;5N(r< zc)hvGxg7vX8R>Ou#SzsbW$-jbN_E|`=w>cv+CVQPN4=QUuuXfP?pr4d@G`oeN!OuYLJIzC663ThGB22jMPKd-`Y6gVh#Cxdh z)UZNKC2p1uvd|X5pm;H|Sdi)-!^)#jxK(QIzu-Igq6)LNSn>;|u z7D4=d$MBT7!a3noK#&+@sE1H>DQh6afQR|XavIs3Ed~sYoLXQ~h3G_%GN}_3Q~Qd8 zE8Lqa>`undVBvS*8}Dt^7)B1Zc&M*)sHPz(KM+w{J@r*!x&5Co*gWjA2xb7(trvUv$l?pWaCrnNm22B4b=Ih%%|o zQs*QXmlFVn+;SC&h(ba@G|oBjc7xV#4^UhjYT)fyQ+to>Wm3RL7&6xl&&m!TYT!i_ zuTztIKZ9|_xta)Jh1CU;=uNlo8sSh-ABfZd5T$98kJ?qjB0MxvRlnvfxCrXyQ89jj zx9X}>gwe&>+kT$^Xg4%;uObd?)+aP7&rAa^#-B4}a@oBg8FnV>!{U05$buGtvn36H z0k~>6+hF3(6OgKNuwlEY)kTEpZ$|X5ZKPNX36i1G$j?JOFWC^*->pBOdSUR*dH!BX zPCX2+OI8rbJR&TuynP*1CCvb~D+aa2`fvb77V$i*fI4B16JS*VZ3LjxJMZyuDgkqQ zTCZJ3AC~D};9)&qu*U??d*+AQ6o@jZPyH7yoVRt zFL8}cy1-3uEGl@>t1Qx;83hzqII<*Lu&iODx1zg5dCZI46w$Ikw9mq;)|23a9)6Kt zio4&YXVh#u*1$GCGDJHjiM03d>;h?3p8+FQ&KTgWDI{!aq#O*qRSC3nHb6_;;xz@8 zs|3lMrId$>+$1;Jvz7aZMVNd5k&-7>oaaoxG?bzb^c)vT#mb`XKVn-kp=@?h^M_4@ z3!lhrSW}&MaLT^uZrDoma3L&S5O$MAePhT5K)`w8Adk;An+$QaZZ?o|Y4Eim2mu(HM!C>}AlQDl zrp8mhs))kNcRC4|zZ@QS@`m$X@;2imIxVI<2?S*=xOx~jrSl>%ABA{f@Pzc#Lb)Yx z*nT`ChfWk0PwDN1-Gz(DUu4Wupn^mmfj{?6 zIx(=Dd$;PYDJQ!e#AgG#VhuYmet0^#hRXbG?;bYalLd4Z8!=`-S*R7c<~?eHZbE7Z zW#tf5Sv}^JSqsc;%|epx9+m+pXmytm0CY|^Wzl+7^B#&Zny3Hb+JP5&)8l@*Gnq)o%MP0!Gc^|)ToFf9}V zy9p?Gi(RbV8?arqooSeQMhN%$bB7F@_CZB9wu@T{>NYp|^)f?ZL zNfNhQ$K}a634vOzeZ3arQbki#yXDc7;@=Z=erh1n-|hqgBK>0k5L)#WXv@B)H;GgG zVKXI_bdGA*zC!NrEEfzS0m{b4SZ-s5L16+N-S6h~S)HISfrMaKc*^uf$ck(nxAs0l z5_stwZB;{`t@PS#cyGtrjoCpkCqWnoSgsVHPM;OE4)TO*n9fkJI@qI42V>rO7ZXhG z!nMz_X#D`-`Ep4a5L^1Mrme5CG>87`i!TuNe!_X1>OZ=rX-`n`hy`IAv?5#z6FhFT z&Hh8zbMKQ=|5^~nq#>X3iK*|6>hzkH;yfp((rdnzO-UP7r;ncF(^Ipd)_P1#Tiz#4 zOp{=43>g{qQ+j_y{<%%@2@8*Olj&`uoBlLYe%0hCOyN~bYh8D+PWhFpsQ-DU@E#g* zp7P6Fp)b411bmK6>D9NMFTLS@QX6tFxuItHmrVI33m9}Lx>+pMF5jA!9>uoH()T{g zBmX>ag_@pbJ-N)70K#pTRUqi4EVGQ%=Rq$Y3`rCSl7{<>y9+chzb2xr@MRAu0bN@# zqqCthD0<4L#0DDHayGOy zQ`0KI&jJwTBwNz1$v|R(f$D>pnW{5X-WXv;U21xNyE7G_&uZ`~QVR(6lJ46eTzNxv zm=U&gJIru|Lx8n^`(FDZA;fr9_58`Fx)l|zKDn)~!gv2>x9a5y$`jixOh1P?Wz%mP z0w$qCs9(D5jPdh_HlfXWGeq~My&4-0ReF-Q;Wa|2UyBLbV!+1I?lGr{m2^^6XHtl@ zZtnLDP^7*_EI>W#on45^*BXrRF@@Vf(RxPVTieGl8=pn+Rm)^B?He-2Bye^fLxopI)UkLT&TF7pVeshtubMY&h8qdCFO`%w|e zjp9k;gwdIXrvrvo*rg%0i9QaOu?8}ByYM*p0!Bd?np z{!YGn)>_j=V_FeoZF80iMLW*!qG7;ayUi^$XgAui*Ps~?A)9p5?2xUwZ6atQw`NlO^i%7qgiV>{bKYHxGOYgmG`v2ym*RyXnyD@HHeq zr9mn5uq6x~g>gYxzm5SmbMI+cnhn(OHj}vmJP%XTqQan&bMYVncPZshVjE}E{5>ct z7sXhe3PcQA?(1mPr)?(Tubdq^^YxdTHp|D-tz}~=@6Y*RFJJDB-&Km7{6`9Tzsy#i z?3SJa6?fH~WB<(mbNRpzKbBA=VqQuI)lIiXbfPNn%9v+5e^a<;htUB0ZUJ>m%g!yu ztGk&Eej~Jn{BcaRPS;+neMj2A4^~UIz{O2t6`3HJMQ?Ot6SqC(oP0}*$YbG%yU(x) zIE)HCwy!#D`ONxt#??J*Sqi~b=2jWx>T~^N$SDe$-h2|;#i&QRclZ5b$?`v_OjPun zi)Cr2!P9e#i=HDQXhitHDo{>_zi}sNZ-sneiG|I2lINooE222W)9hw7l5{$YIYX#Y zFkKW?O1bq>bYZvimT%|Nmm_n}R#}qHbf`HYc|2 ziEZ1qCbn(cwylZti|u4$^XC73kM};@s_v>&)u+y>?uUJPueJ8t%4SVjcr_%m9`!Bx zt}^MDJd%kNjq2?St4{aj3zR5u8Jw7T;q>w0UJ325+2JKQOVd!V9F|!%kN3qIa-UV^ zIF)8Frl0Wj?cgk>Ar$}2+RcWuIP~l9`u`Y-HDl$H36VIhnb9&-S4Z1y@g%Ve2@Ih3 zQqM1VE9LL1?{XzkC1eMap9 zVMxwPh?IaFhc$_e0oU;(JRF;fm}ne||LT7f8UT-&_}9RRAjt*CtM7Q^n($E049MI~ zl`2lrz4sL0>jh5~wxMrcpiOez38pZ2`H!9Ijzc~kWrIPVp!oo~VBvmiF1Slw!38F#eJL4OGCwxyEKqN{1Q)((yqxJkjK@HRAg0H>79U<8$( zlJD@4ETWl4kXEdTBKnaJ_cc4OO$HbYz0`Q~wTMvqr|U+raYLn`f{>_Dj2hec zM{S&V4xKt7R0+=DJatEanH-`?b>$NYWb5KDlU7cW!ibHDjtc9BWU~2f(H0Xmg6zG+ zE{E;M(H@r)QS>Tse6_%ixsN3IPAk-v|M)4BMP14oKI-_6&($UzWXETf6IZ(HKNYH* zBxH%^8A_F(I3)P|@ic~mAuEp28_pDonbc$<{Gzn_qytN~ry|AoY`unrBv86LB(G|8 z(~tc|W9hpaHXPC(edQ}2g)=D$K zF_EQWJX<5(oGI;+VLp-q6yz2&D%*hIh0>WfM6$*|EiITXLC&y)EOvOQs;i9|2T)fU zOW5PQtbQM&mt9X8Y*hfUOmut&BtEtAAg>W^kV{_f$>upr4!vIlH#ePEz@p_)&j?9Q zYv3wFiH>wT_l%>tg~SG3i`M@zOh34fB0;V@9ty(x-lj=mC&_~J!gmC^F%9n@Ri1mz zIQ!@@9<9{)d>VA)23{K~^t(>J`QN}ydOmQK$y>@y7)}HLno)KOZzJ@McAY10jA&Uu ziK=(p6_`;JixPus4F#}$R-ghTC{|H7-MCPDb)6jKpD)pn6*&Zf0=VWVm@FtbCEZZL zW4DoPHr=@TUBWVnzC^^2ku5*`e0V5+_nW{^18jY&u2}>D(GPm^WeoPWmewaZm44tI zIaQyE0?1Pm7`cIeNPc#R!R1buUv8N>Sa+j7kCi}xaRdFs2XjF9YX2`0+i^C632MWl zXOlN4Z|j<(7)&h#3|fe_v{BURcI0qo0ByLt#}7vYWYp8>bzQO(J9*xVq@ds!-jipm zuDJ!!1~}mta(HAzLMzsyYrA&~bdP8?xRMS_$z5q#KEh#`erCcx#CiZ|>s-67os5*E zZ5$vwL`~~3&ZHoGtz>UIDb+9v`z3pD2*}0G%K=2B!|JPeYFatm4K>BS98njqETxpE<8=R+NXz+w z&CIpyttT8ntnP$0q}orU7iP3#-P)de6rfs;I24 zw@S7~M3YAnm6-7qj#>IHs`r|*I%X(hz`^Y($V3UZ1WEWH9#$dnE~iT+sFnuJV}h3! z;Y{Fvl3hBi+Z=X{JJ;OldbgSGWaVV^?J=FIa--RB9C|eSR$JuyE3M22y?;YGK#Bn zAM7-(kt2g|FeywN2D^lUxk*M6Ff|5*n!BLC&JUkka}~;}T8Q3`qEKDhZqU;lm_!-d`z>oCPTCwI>nVXZRR& z0xrD>>%PB?oQ3iF)p!EVl*4;9VLBc#Nt3asFs0}~N$c%2M3XUK;27<{eAyyi%~3Yys@TItZo4wobaT|W$5RUr`cjG4cYgA{{0`j zP1S?^^pp7uy}AY_N{*!E`#?|HQ&Lez7RQwf@ zcY)o^re+u`zjVvEwOLXPf;))efBBU9sDm?RF zSYzTP#VQhaLP+QJdiJp)HQVA$hssvd@0n8#FO;*X$_ldIw85fAGZ+YnKCr#0_`VIYcrQd+47{;^W4;nq*DcF`Nm)7DxSeV{|FSUg`cb z>!}J6$h)%6{wuAvP_BfDN&S7xURI^IWbtCLD`nt|0`Bj)qLf*-nsYMr%_&ftEO_Qb zF+Yag+r2M0RCdxq*T%xDvoqrnVvlNL=yv7X=$dV!*F~;+-ng|yQ28Umd851d_j(O6 zMYw5uR5cA<%(ArCw5WtwXGT#4EnK)aTnY%Oxc3AGiE(@g|GPf+4zAEKUPw#1u;-zLVqR9ji`yPV3;M4CMd4WCDi?Nuq^+Yk*z=i}sjH zVuVgq2h3=zidc;o7cNJ=?HKlBBEU>JBM5;ZFh3bL1(2q-X}MDu1#N$N5CKzK$Q2eb zF>We^14$H2YfwlH5hf{lSZ%!AkFR9_vOr%Tu$^I+FyF9{b5K{2^jUAnU<8Z3-uFM2;fz}LjYh7#ZQc*tNM&N05Cb%vTSx`k`izyKSV|S6v zbDn_5FWkG93VU#bhUIVx?+-;dOFFct<{s|9+#K^hi|_T6T-Xu`gWLZr7I4dn9|%<< z(w+O}!cCU77yWVb&dW@giV)#okG&=xW^#CO7Qg6)Zv8G629-ptUr_MBd+^Uvhs)oxKp`7x0*Xg;gU4Yq?(l?*r=6=& zNlbH%V~`XVpCOS*C~fZ=|1RjuhL=~;S!#eqQy(wH0nk0v?z7zfj_CYu&o(Qowl>n* z4lhI_fI~#=q4wwjyR>2*xN`Mbga@#$>iI+Bx74||imw@4z+-H4SJZqL*soCh5xE#8 zXWRdX`Y1#B4sSt=TL490l#s1(&by+35grkgpB0H6$49sQ4VH`S|dBWPXt8Z|1 zcOjs!leSaQOB?o?^p;|`wphz=F386njcmT!^Bwoid@gwAn8TOR-bm4 z1FCXQmb8%EPau~%^K+dhI{>z+$KpHAq=w~{@t_)dOGUVb;8kJNpmC#aB9PWfr?W3w zO@>L#39>^+k9f0ajg>i3B>pO2TWhwJ3ZX^#dLXLgR)xCU9WWJGkrYv48bdUv9Q0ju z6uzUYZ^RW5wV_Bxfv2m(KxDL0BbqS?vb$q@d9=>UVa+M|H@unF$lI_&85X{}nYed1 z+^H;`#clwptSLk|iPH<}_G0=zGF7nH4BSK_;SO8(&CEBrcNS}3>g*eMaUbgvF%$l^ zoTw}e4%z2S7naznWyWFx?*v+Li>nbul!PO1U>qN=TVF(t;xKnv=SH1G)j!ySP2poV zB`?FA8zk)+8i_6u#csg>sVxe1Z{L0o%uaUwW?^tg3gdXvbz`x*lyPt~rID7ilPje_ zyYo8XCu=ovQ^@?bW%dmkFl}^85R?BwFkx+daa7b@CZ9wiTmpV+gQ-%0F{d!?+E9?o z&I5i9!TuDw-ZL50{jW1@dS>qHa!w|xZEFbEVWr_%%{FX#!3Q>8eb%_nrIyGnd>|RM{VtKh zS!VO-`MGjL=t)5|b1ePIHIKidqroR{<_nXAP2F5ztYC54d#Uq9YSe0%S?2EHAatW@ zmtRCzqZOTwr3bHRs#>CR=1_M#W~Uncyjz@vzu`ifdh-+N6$h*Uc5zE!O7V zPux|-eZn&_!0zb&%DrKchoYsB*7Uq6k)IPrStUIOg9L$dcvu>mijXhSbxIT3m5g=& zeKZuL+L6FRxzJ?m-8JuD$UV-P56mm_-}$R{TVZABjLo3(uUQYW>qqnMUDsUM8Bnjt z!<8^kJP?4NTZ_HAinZ5&N;rfC84jVESOJ%jqd*9S^u~bLm#)roIWBjKFsAX$wIn-Nbc*o2* zvozRpipHlpDW2P}>RbtsduF6}W;AQ6l_!b(c+McSc`lWW8H7F=v5LPt>bezFTx$VC zjr#M45ZJKwS4DHiKD6fj3K1ZD;vrxP4lC(H0;0%boyoYnInV zOq(&q*^<@bL5IK~611L&n6{2)FGep#>#A9{uPR;W$^%7*AH3gpK)fvl#A`F{H|t?| zVG^q+Sr=&{5%C}j-j3w%@Vt-MuK|k;Ke-mcz`*ZT3g&FXD%Hcq;4o$zNf*xhw+UY$ zvnP5!=}T*eocIuHVxh}`hj`3w~h7X!WpjGY^*^=`Wtj=bF5#zKIqZZ%Haay*WBlfqIR>UkY=MqEXp2T z+DJYAd#O`MHB+ATk@4IG=PmgeMvSR9 zyS(X+lmX--iDB7fztnb%0-6e3SSb~6YM+zpoO<)o_Mmon4`Qbl@f%nkJ#a`rS}8Vx z)e>{8q1{;}WiMK@B2he-Uvh(ajMkQjQqRk-9YwXhoCkGRC;=!}%;swzBhC_o_!90n&X$26L7Z4$1Up`%m@n z?-+>qf)R{+>mZaSkSg`<(-Qkn-h)UR!Y^LL3%bYN;o&niLpCp>Bzve43aZEF%x%zT z7LS+vbn+{Pbc)3bX+mMya?o{z_k2?9!b@>vZ454HycA$0@4LQ#g8qv4D+~^cK%?%l zqblX|KM@)P{R{uR*5*w<0xf3{8bU_X!tWqXkNC9zJi(TPL=n&T+7W@3L2|?f0|29U zuL!*pqzV-aoeN34p3Nu)NIpB#B5tF@V>G=bjh>hmEDsIxQ{o!>L!*jNP8QrnDW(g; zu4kPf_gLU@F$KSa7fg#V;TGKMil~#=JUBv)oOjXnWp`jEB1m)+Io5@2tTU^ zXUp!VSg8z>av1_f;C2i!JYOS}F`L^n>`|hpNiZwG$#SC#Zm@(rg`()%kj@}Y{Z|LC zAH|~CN;1P_u^_g!^2nt?9K@0i%#O9lmQnK;p}eXj7b|0;O@H80tGN`y=Tk!K;Z(!O z?3_L(7TPh94=J3Kqn#=fw|l?pap})}_#do%Bv?`k)1C+@hcl=kbGLdWf}dliDphH) zzg>hHhCZx2AhUrqQI=@iz|Ce)Ft1H85hHq``oLNBg~EpC!VMoBWhaxOATrCV|2WrK|QtcOE_DXI(@ zU{pp;P+%9B87i?ha0({;D+kMlOsjLP5nP-uNAv`)+IBh|5y2v5+cYkK4-!qzFi7RmsWkfC|j~( zqr7Slw`+tbYb_#ZD^&s@+l1x!A+~Bobw);T;0hg4O$IcpDEmqoRj}+U^u;ecDRIUP zPqj;f1IoLBh@Un(&QLwp|2Fwc=t zW-oDKrCKAA5T*K62;4{w=?gRTcyEa$Thb=USA^yR(%X4-y<6FqWw8FF%lsx6YYlO1k&b^JX`+=6TdCW5+@1wArs)kGL zt}q#=GZiysd0mY4-+0vTuTEBmNU$F_06jDui;-@s)Wu#>2AJyidK!kvR}leXhRXbw zlpvTPbxQGNxa@_MwnQwkI|vAcn5ZiysIR$`wJdDYW1Jtln0!X$r&0Cxtc801M% zYzQlfmyf0L-~U=~9xD{-==WzvMn27v`Kj5?X%+sa^|hTnP?m`|yj;pl#u#z!6=Xu7 zvloj`uw7u?TZZ^nD6)uYTA`^iZCy!_y>+p;Pjx63U{v~hm^rBsI;Rw?J0*)D_`5kJ zGt}KWCl$S|3N+J&39xci#vK@GpB++x6The)7_Ca z1Ja&4<1OF8#PF(dezEW!cd7^i#m9PcWgwJN=wUlyw3(1v*{Rua4ld?=k(@0#mb@b> z8RKNgK_0sgwH|&(49b?9z8BNOpnbQyxAyowPupbS0 z5*eD7S)yr~KUf0tt-Rsa+k;yRDQFOkB%KJoj3feCJcF*S5o0SxGdr>&0sODw7C3yH zC7R&3<-*u#BN^CSekHi~*7P}icMa;$9;VT9P}vJh#X84HH$4_ziURCBjK|+-A%Z0A z2qXCb*?@XI+I+_H(BbvH;a`hFFsUuPh*VanpY2xsw+0M8Bl1AW9k4YRV)eg>V$ z$P`tGPjU}Zn9SF`kY1AA#RJU~71Mx!NFhU28a z3}nP;K8&_w$=@^`c<^;!5EMJu2iZsFAZP#|r5vJaA3s>8hCO zJ~rYIK?4~Q%dzB!ZY=U`{TqRuAxF~P37^1ELCxhKsin*2Q)49_#i5X9kH}u@an|*j zdhwbMM};dnLu8^KLl^D}uy%Cgj;^{DvGIKQP(ul-+Tu~Vb6e`F8d(Li`uFCC0XRhl zqlpSdIK$&agD}WEf((r_hKU_03OkScY)Lmt;Dl`1oh6VDig}_#Q3Wf!O_vOZBk8gI#zg{U{8X39a^K#AGdqYsOYp05P2Bd>a z0@ga>ybn_UvC zeApCL+6o2lNU2Lj4Y!HS>IW)%&cDJ;?T(CVO|(@%#4$(a?TKg`Dy2`&j^8${`%CEHYXmKg(g`=Q@`;*3c%Dcv_=9J;*dZ#nG5q`5miRT?v9iF zMj^Ldyy7rDx+s>*IqAr`jv*G@!}jxl8$ii%OQbu)(?cdi&>tC56kS=-L~a08yr(8n z1Ha=2T2y~Trx_zH%xiE8dqLv}wzAgl6_=(x9$N9&>D4px^zT;Wst4z;KE_Kf5GhE3 zm6Qa*hgs9tMj34O!)G5E?l=KgX>xY_B?Ot}ijm`5RKVKM@F&q-DnEyQE@`IM28Z&| z)kbdJtje(fju-!)-NBgj>%AKYpQfxlOtF4@ia!UO-498sx&c*AE3Ys*0InxHn93HPXAO?`-$WB4u*~1~HC{tC?p^%gX#;;GT-2<^hPF z%eIxIz?zeMk$wy^FT3)oTc)~j%)I#Q;W5fCqOeef1Vq+Ir zG{i0K2)u5Cw-xkp{Nk2l7R8sZ4&0$#ZWyllT9*dY+ZU*xr_6aOe&l#^B*v+oLX_FT15pj}b6%!-KtGj%d{j0{>vjNHzPW$9s75bbgs zfAawcj7Nzp;|2&?CRc|--?ybLbIEKZ;OyH7^Dx!vG_?Gb7Aq3Tn0rw`_sHC|yf$Jv z`sg}_K_^2q zNU`$YnyQeN-}uM`fT>|GtFJb)kx&zx4|a1nBoE+G9{=I!KLmA|r+AY>IQ`u)#HX;a zg+qiuangvC?e^Vte*_vY_knpOK{Btf{<>0TUQo*Uyu25X4q)f6G(jRnQxw!`&O{W3 zK4pbIb!S3Q-fyC;j9Iiv{64gb_wFHp&qC>+xnCf1s(zBc&uwgogH|S(=SO)6V-(eI zKp|0u%j|^9&N&^r4))`EnOBW1o7YU|ji_7Ze)n;~7NOwifkZV7DfnP|la_eoo@;qt zDcj22zUS|+||NXJas-hns&+1f0^nlt$^~;;9Fkv{URRup?i+0nd!y|y~J&T$FeohrGN2kNk}RuNvfrUKJCVOUpHoxGg_5hemJpIF@OSx$iST6v5^4meaBQycM^G|pgM z+GABmcwN(zdo0~nSMi?O0vG{O+D%=*=r#rW#U@|VLy*E09~0%c_IA77N)(o|elb#b z4tWs8pr*wD_YnQvR@>vJH56wvRS?hZo5U*6_T)u~IW)PXhq?N5D^D!x0d8_y0Pi{* z9?HiLNcXHRrnEjv$1bis2qVLm6h7``asUhQK+m%Ytcl;Y7}mCyTy4}D>ojBOUk#)R zS$LAno6|AgtTw;KuSWk`C<8xeJi4M@J%=mIaeSJlZ)_mG zN%fhIY5YWBeyi%s$GHKCu2I`xnyc#zNEJqjFZNZ|>Cg3Er+JVjfpNhBsCnXeEV--N zvya;apqcYb)ResYP-Cm{NhJmd9!GO*u3R%9GU!%V7g=FRb#?&*Hic|;%47To4n3@%ojWBL6 zZam4W2kgfFD=73ahdud?hhOS=x!c*+k)Fr^Uw;w{aR7r26tiK5BoUwV=z&(JRRD(> z2|lCoXN@UVydOGA@UuDAA22`KA;D5Zec_|{YDlvgeS1_EvaAKKd`QQz;(`0g@;Xr)^F2Dm2qFlj zy*vbpL0kqEIE*$>roe72TEE?bJ#;ehbUYVMs$vXf0t+w+Z01^#w>4h6y9UcTjX%l$e=!=yM%~8FtZ*nk8Q2pkrq_#yJOw?0bMJL*~CrHuh)#b{K#teC6oVZpbnv? z<^>r3d9a~crHk(H_8g>OXNfQ!^-s{G%U^ha|AW`LF_x8J7*o<4vkR|>)8D#<`E6ef zsq3Z6&r5l#v_hTPiQdtJ;nERhz1`X%opJ{lwc7)Xeyy*5560wN?$^cejpE+Db3Ezl za+huz47r@8tL(so&&F_?E=jR|@O8OtTJ6RK{aYZeKU-irGQe9b8Tua{t;?4U#NqIeTFenRJTN zWtv{Jh^)r#oJa*3IPHIt3SgVDSTw^6AHFz3UkJly&*uZi|8*b;bV@+Z%5JO_8Hd~0 zs3i*tqMSO&$06{w(sm7!@^M?)@*oJ*N{mT)`ucgC%U{hqHlEmbl|#$tNSt-dk7|b; zHAGMSAQjK2={5`UjyItM_@uuJ2p5VDLN(Dpr@UOstNgPF@N0U@t`~}oJLY-3T{f4O z@C<@Jj|uQAZHBbs5Iptk2=Li?OSFnauI>AJ#3YIYqST{e`-^xq(aMR@LVdL3k1(J_ z3<2w?+AiT%&tc7{NS9%)ryiNi!=Lv!mHBB(B_4mq zv$%>6WYm?E=s8|Lyr6ogEXRvEphs`1w3uyL9Gkx|Dw2)!t%IYo+KW)@V&u16#AVY& z=w!HG40>Q?x-X$r#wVQhr-&AE23p%(pp|?zxV`9bco>OUFBm)`Dgg|)3ZpK2bEm4k zHNdN6PA;b!sHaWcDsm08j7_zo6MEpc9x^!kwMF8so%8c%tB~?vpii0&2wxfsJ$K4C z61TzdVpXrgAjDgmGw4=mK1uoF@YU;5N}}f$8TsN`I0psp1=b@v5SXgfbr(}u9z zIqrPwN2r?}Ir#@YZeK{Rz{l5hA$gCrJ0iY$L?GK@N_HlUxJ6V2@jK_!2rs(c_p=CY zbl_!2kT~~pW#s6vdM%DJ5@sgeG?Rr7KP8 z!V1wTd>zg$INUgdYpd?+*2x?Bv#*XybRVtf*<^>y-_NrfJy0}k@)DA^&X=RC&8j3v2Cq6%* zcKN$)qixTBDqm{k4IK04HYvgJVX3S#O6i#N!X(Q7CML*&dvwWN`(%+i+el(}S>zzN z`hxZ&F8tHJsib5x5@rm6Gmg!OZ3)ht8B=$v7_xb>g#nUFeDBqy0z{MP`kjmqA;iW= z`kMI@GBuf%5&Qw5zA`>+*wW8XnK`FbB%SOs+f|?X*d*6YTGD355otyQxGQ#C)h^$n zWR;p?Tzv$DJ};G5d6tv90pA!0pp64`sNX#?aRU|p3uMvB`ys~$z-8k?J%3qWm zIH6o_UTkYpKMlPVCYFNy(7E_<_X7dA@NGYErsL)BB135M7l@e9DYj&o4Za%BwgR}^ z+q@Mks*t=b3ytk85JH9+7oO#-1<96A*Ha8geShnqg;Hs@SRt2hPft-$4n_88w6t|0 zycA`;5(G_ws`vgK!P@+p@@iZkLu{>*a0KA*T!h2eOH;uV8B z)-oHBv(Jqt`7w@EI4$&!&j-Ifv4w)ZM|9qvE5xiDE~!3?B%;c<#P`95X-{lf-qy_ZXYs*LG z34b%&lW7EjfdO_Xmr4>hTq_QUw)BHTGlcZRpJId{_=wGqp$G!3ie+O>tgMRLpQ($7 zSK|wQe9(8-QnCG%){+$pRybNnDEeT8z- z%qW{}a>xevYyIC`&7Q}VYYPdl&>m+2e(S4m@jDxl{3*Z=MI z*O_|A-#Z9^XB3oLdH@GUQ;4e7dVnNT@Ksb`o$IOCv3Ey|FlQts@9;j1>Sk~{vLv?3 zr@Di4i!Sh#r`G${t?kQv`m**++PUQ$MV}Txe**lQBetVV7r^!H4*4&1BlOvWN7wu8WY4!Zx7L=SkAIx*gz)>?KdH~J zyW;C~XG6-)ClhG~vB2x_?a)`cpS@8}Z`O3q!~YNEo1WcMMK4EBo!*d7Pmg1#>n_&L zhF$K-8T0T3Dk~uG^ATcU)An2O#pw37=c10zzMVfNunpOu&gr7TtygcP6=(Ef)~-j= z`+Zht;NH?s{Z;?_;LaZbp}D~~@BI<)^WEdeiQg}_iB-NKi{Yh+@$bI({cEDg7y3?@ zTTrJhRE_VMottpHIk6<29{asmo}w1;RstJ8*@wHv+0jF4w830OW{{9`#Pp^nNb z`hcs+W9_-PRVVn$yTVaQ8!Na%elM+-8yf@ZOEqNnWeJl_!JBM&;rnu2&zSiRG(D}` znYIe3@6M3-DW#%q7eZ`UnNUOhWY(m1-Y`je)0B5?eJi%J*!2NEDO(KX<9_K(<=PI7sX4@Y4 zx{}J#y+s=KhE^lakOMb@eSKKSMhI`l38m|Zl{Je6*Z?P zQN1j^OKsE*W#DWZ(g5A8K&!js_)#qxpj8fhQfZWX7!FQ;f4$8)Jx9@ zkJTUYfp&QzOEko$tjKA;g{xa;U8u_0Xotcl@bUzt{Hv6$P0%_TZmJMEo-A@VKqr&` zr)vUm6OV(*-^?i;Do#RQ@&YJo=ili)OldHb@%Tn!Fk|2}s6L#bbkx2DY6%EFYFI*e z=sk8!8zd8vdDAt&UGB=R z2yxz`xZQ@`qTY0!Y0q*oiO+!naZ~99Xwx3Sy>|M9>wQ-Ou1c@Lb&d)qc;?}qcRtfX4xwU>f}P-#@SYalm=S;s6dr|_HPMpRiRIy_&2g=5T1ok7{ORq7YHBeN6iR1v!3Yun1^HGsFnvK zv0!w`ahS;3ee7Q)`uH(kupti)@^(pKSl?k}H>4;sQimVyW$%pg1pKOmegK={T_{*w zlL&zZ9&4VlS0+p+5&Z05kEO#qt$}moXKN9h^JxhQa2muplyT#VPrqE-yl%9Tv$4xVP5{4JP z{^%Q#!3H@lu#qOx0$LtP;CwM4sIzot8nX?_%JR(ZJaHC#ERm}h70=Y%)qsNad(~LI z6bMs@`I~V~vvlx>Tki+*#c;fY92UnICoOmyp~#QNsTMH``B-+7=f0y@J*BMLExqJ? zH9w9yJhWB9*D~j9`eJs*n2U}d+^brbTdWV$f`{Mq#7et1c2F_(cV-7?ecP=UAN5Sx;_fH@5BZ+VKhc8Us-9`0=WqZ%+>bYZN30l_tI419gaMnXGz0y_MOKPx4TO}Mc_KRysmuv_6pz|-h*;k|DHDwZmD+=5T+g(D>=d&lNHqlS5ks$t zFJv=ngAn(FNu;dpieec=pb?Pg+R7E@Qz5Hq?8}^pf@nl^rw!kKK*P%g*|KXjLcFoQ zW?=^XDi9;{H4(;In4*|Yd0*2JIQBk=3|p&UOR!|Eu=r7HdN1IE>(~atC$OhIBRlV~ zRGS7x^b0AUhe9{#%}xX1R^uWm>w}P9pRu7y`5p6+ISk-~5{|p&JQe24u_Cnqz3+#E z8*O59CEUVy&-Y@*hhXSo+MT{VXHg9Be(4U;L%QI-Y4c4zey0^!w}xCF*vfhGp?NUf z(0;i6(DnA$g)^Xq_Wb&`&OO2T#+|VXUvegz+i!lWS53iFnizW|fR62hbm^|nZ0^_g zf#dO03 zEM~Ljn6L#P)yl|f({j;)_!VrQx5)DZMhM>_AJ5nUh!Zp7qB(vu2&Qbjwl3Q_d!eFE zr8c8AI(!+LSvl`T?lsou+fIaov{WuLz2;yP35d~{vMhTiG^>&VgHt9`2R{isktiVnRCP9%@P9U0c9 zeL4;TJO+#J8=@q5?AM=24!~$OmP6wX^ls8WJ)OUiDKPGNN-%GglC-azn=jh4C@?l4 zo_;iKC=v9+p5bXVG7)7!!`>`IYvet$XIem*@k_$e-|{8F3zN9ObG(J~_sBU&CHPmp zvV}^5E8%CcQVr?Ic?CaL`)E!@vI185K@=ciX7rB~Q|@L<;-LoOcO(PqxhprR!E9(x zaA@qvk=HK}HR7sg2rA7gsKfP@^K;-%jhIeQ@R!<}d}mn5RN_T7*JOj}cTpnUK^LQANoMC&r38SAxO%dob&lTyAJrt;cIou;7X=9&ktQmg70Tf(=6L9m>l3+-YhbUnDw zAE3cM!~yo|TU~A~a%`rJgQt8_B7PG=nI`_rXs80;W|+ymH7fi3b>#36XpXO|MVS5V z?#OSOMMUDi3-4k%*hHh8s1}7}H)J#|ec1~jbZNO-WKyUb%@2piC;kJ__Drn#mDW&@$oajE1K6yCgvsBx?4#6iw@7gxAxcC^Ku9&6 z!IVzr49MzMnEHOr;Y~CppkiT@;I%(N&f_^&M_6{94Ad39!JEw_$i-cmU4R$39lAcm z4~A>mJ*%%wIm3{8pCdHFEiL17+mZzSQ>(w#BFuimpm<3Lcqthe(Kj7P5Xo4vAvS~8 z!g*93_Q@~Ls;{aOG(m0e1wmG(5-FuyR>wjSyhHeA2B*^U3RNjF30G;x0ujHUM7CO` zFjAl?(kNZ8W+9!sJSH=bZtK8Bm>NT>NzeQh?K5N2p%2GdB&8VoL>DsDVtwNopBN!= zKsh68aIgY7v&ioyII%nO2hl-q2|jA^&x5NkzA8cmh3&A)fpZD3Ee7Q)PE)mB{{0_K zaVO=IX=VdHZ1rQNrs%XNp8(C&nwoNL{~pcMf;yI|WWmi`%@zBElpk)PjbnNGQ%Uk=k$ zH~dprrfGFNUP$U?sF6Z~R#5LS?NmZ8Aj8zwi?A~#F{1)fUJIKnLbxDQX0SyoyWcy zC`lnO__$}nc+(-Tn|i2qIKza($^cV*6Gn0WvuK4%P%ue<#N|D>p1z46h{jqVM?GaC zMJ5npS;sHqf%VsDj@*VNsygPWH;FDf@MJ=l%-5_-Zt{(f})Ch@;DJV1Eye>BBl{_aQQEhLE~d z_#c;)R2?3qdjZ~dT#9j*VC62uMi3Sg3#_1{ge^u`sZHkp1Fk?(zr#BG?(HyZt6eGB zC%4~ju9E(YNWORQp@C3j<3qZW=8feh$+R1o<{8-o&!;sQZytSW&MXg&S#1Z>On%Ki z)E2&KL(GW`*?-)Im@N)s&iNz+Pybm28WPg4;lT|tuM3I}7k{%2FU%q4GBRnwHm(6GB9X6w6))`_zH*{F)~GaF*UJ9KSHEW8#TZ*b{A7phV? zYBR8TZKzP?(nK2ijK#6Q>oSspL<>Yvk^BV#9UzB;&_#yJXm+6Oan`2$m`EV&-cWg<%p@J-a&B zBc9-v4{V4jk=71u5tTDh;lTQam~!d!8)6DEDsO#hh*7l-F}Ek$-4IiDzw|69LV+?I z8M+}Rm=|1|O&^%e_88p@D{Y85`9+v+h*{;US3NZeb64r=-li(>qHtBl0&?kJyCG(q z&2$TV}w(G4+8 zd7-CZEMLIONNyD*kZU^*a3I+bQ|jivs$?Sh=MQ@&6O(?ahj@6Quu;rj$%J6-M4Pwd z>W7qrj>K)5>sg2zS93Dn-oIEL-@F-PfoyVeXp2mD!ZL$!pBOm%>+TW*AKMSJpI%c( zPXZMbYRI}n0va^4&4L{y&p;toyie>tGQ^xE=tGgjo+glaUUXtB$mRF#hpDfaeR|Ig zK!%oOba{{=Ge$$I$0Nr}QyVJ8uR0YhU#Np8s#C#`_;rp7h8|!Ax%|fcFz>h5-DicT zL|!SuNM`?}5;0o5SWvNRvO(+kUadN>C?!Wk^(}lsMbViK9wo+;OrGm>2Y+7`-EJ5* znX_@;XoVjdo`&~nyu-KnRbv;8U&g`-){vja10@m- ziM2gRDL1CTSGg`=B=cyJej^b|o|ZSXHaV=NZ-jQ8 zVLtBg8t9&~vAeu=W48zAlPvt)=jQxw%ya&fHYVt!lhEWqO~TPjpNx8oLTO^)wT|0x zHsJ~qtqZ!+65=1hMM}VJS||Z*c_XviQrIm-fjX`2V@c1i-Q9HwxtGtR%M_n`j~HdM zHb}zWiH7sOz9>u6o)E;(@fH2hf4<1!BKpmbj%UWgfY6BUV;M5qSy1jh!{&L9gIME$U}))IK2b~CnLj!ur#D)}?s-j>*6lh|UNSXVcA8{?{; z!k(l6D--R+V7gj)Ye~eDlj9B%-hW1pkx6V5V!;3r;8IZklp*Xj(}GpB1T+vYtntU0j#tGo zaA2wJ_A=CgaAA_{G6OB6iv$ybN|eiy3Dzy7Nss^a7D%-7<1N%{5`cnUD&dd=iN87E{Tw4*1+pu(ofY(zaoa#r%W^qT z_9FA(PSp&TK$W?XZqT$>vol1*M)vGSH;QuFl_}w&;`^hztJ{=xBCjS*HEd+l1}EaB zgc#cdAaJrjV=g|H`RL|;+jZ%0ZgDhZhWw5eN7EwqH5P{)`gIluF)dCQ9AH}fMuP*u zV>ZYMg9D)7XmIH5xPJ@|ZgBWC>+du;JbK39@MzTrdCcG-3*g_t;9zD37#Ga4@QHq7Q;Oc0& z60y>t-$Q;eMN1l7&rdd(&>yGQ>2d4CxD+YCW=>@l zXR71L^c%QBgC7_t-NF>d_wG6cPW=n00+}+pzImORax<21CUOP36cQaCrkCEt5(1dXc84w!ny~&57$<~c0 z!GS=64eFs?;Y6q%YZHb4RyN`=73z~X<*oz@=)^I==E6o#sNRyeh58H?Xc z-q^i0SDcTp<*B5m&z8(TH9zA-?}o1=XdHWK^XK@OZ!#kH3v@4FsV&5&`Y!E(!=oXji=Qq~9-frdjBpvL-2m~ctB)F<252@lLV z_^{-;1#^9Ux-RrU1*lnUkqnRW^42`a)g)dW1NpnQD8z>X7#B3Un{m-*t9G72ST*zv zoXt$L49#ftW?Qyz0W#}v>&Jz%jv)bIhKe%5Cm*fV!z|nGJ@Li#5KZpkg4*TJlx${{ z_;KKi8Gi~z1$3B03{anTaK2bIwduJA#e_iPtxC)l}B`A!cLK;Zzs9m6T)!rlhdy388&4@@^yJUfqcd$*gPJf zG)W_nwhlLx37A$fpT}bzFO1>k!HqM%L)*(G&GX7 z>dSyxL$1qpU;^1n%V1CmWLFDbAk>5J$mLM#JYlu~*oj2PAhdz2Q3&sw%SUg>2e;>u ztQL$mCc*ESHP@>}gb}B)G|}d4x`)AFFt*9NnUO2Z+EC1uX>8%Z31=3fDnh0a zTdX!k0rQb!P>kMJR0i-&K3;ubc0GYq#C7do&Tk-G{1@>X4%r=QVb|`Sg0)}QNu8;K z;Uo(`_er}WNkL@Z!1RUMeC!u|d*x4ZBBumRNfQnVgc(x68Zv^+`cK6D%rqB;c^mfl zhHPp!QByXHr+5G}bHmQMLiWu3oF14EpqHi~9Ouu*uxVlSqfq4OiD+#!*v&W;rlJ!atte6-3J9u11q1Qi?Zy5j%`5@>E&TOVq+ zS-wjA86mTv)B@Fk3QL7=5W9wzk18pON&lA-gFbFZs`A>izd`NsWy@Kak|_Sb+;>dQIpdxLnfFRaJQ{G) zBam}QpmL%HU4EI(du2xz1jA8j(Q|fd-frS$R8PtU(ELx;h5AUpS;}JU3yE%HhI(PX zi#9yzk%n34ALyj{-^WeB?AdNC^aBa(VoGsWpvr>Y|2`w*ai(v&*9ngem4Wl<5Sws} zQ0*_&WL%6%_tise+_rl8JL|VW63w+8pcDDKR@=8qr9qyJEVvGv{E;n&Vz61;WPf(P zkvrY--H#G7H#tg0=et%L{*$|9V=j@PDK-2}9Ms$X%J4@ua}u6MHp6)q%<+1dx|t6p zbfh%V(AB9;pCQ<`(V6PLPC=Xbdld;D)uuX>)4Ga;1EmWA>lQA*3QI>_o{$s;@n9}Q zm}-zS^GOgHXnU?Ere@Pa*y{vEg>2rV&HNJ+_Yk-3t)C1H9*qN*f_v2>z`!{pUqEMs zTzoA=Zj5?e1nhZ_8k$>dOLAY@j$ZGM*Zk;kji2!Y)`+-?TxRXV1tEmIm;9HlCUWKQ zAyu(Dk?VL(27hO~#s^M5o{gK-W=|6PP+g~HPZ=uFFCZ!t!>NHX9)T^0Ssdp(&gdv^ zp9U|ee2!K~tgZu0LzgN7YjHm`<7e_GLo<1TuFly!4wxln_u_#0LzOt->`W#e2Rye{ ze8!)f=Ei_onKNH)9AnyC#Bq}wapIAfIqskVM~lM;sIjC2qixq zlT{W&u)5?NO&Z8Ue^`_iW&6d6dsX336GK**l|q ztPV>5$g>4Vba2yz>T1{=(XqtQp?px$!Z=`b6cb11trOyU?s=ocvhi#gG7wH%38K%i z=BuABkfSU6UQZDxJ-;ECwMb?W9f*%DRC~;zbzwD9@L(5kMuKIPMy@$Th{8_P zC@NzPP}&xti!CmSIG_0KhXbdY(*sBJQ1oyH^cdvY`U#IiE$ivM$q9@%J0i*6IL0;v zf597?5WEOn){gOb&DdgQYglWAOriC%?Y;S2s|BGgo zUzsZ&ha5)wmMQl?gw-*Qs!VOIM|%~iyJlSn8#jY`3^I3+Qjcp}GX0YpF0$S2y)B87 z5&|Ve8eH2P3xWU|&odo65Ua+DHm=GiWX%M`REi-Z2_wNOW9uXSsvu(=ETSJv9k&1D z+7Rz>p_ppiPX0bp@;}7m7#qN+mGpZeQl*4R;ub+45IhFCw&fL% zFM?QJbbAZQJ!BP$QBEcq1Akn=yq@{ANQp2_K!DAEf77rT0*MI{L(oh^wIosCvHwsl zOQ8_6nTV^c=Pp0fxO}L02h=MioDj_TVCUj2ayeYjG&QPFdAQdO-Rha9m`$Y&FL!ub z(EF|3azDvd=Hy^F_sOMCZEW_#HaoyJBgTs&mhJ8pnlJRdnKye`+?s#F9T|DK$$44? za#>uG0VWW0cCF>OKGp7Cq23FsBJ#KhqBBOFHU)a4aWAQL=1ZURWbrrt(gosQIxKmM z74s1E__zM|W|rnv6r@OW%u=zBydkv5M?zE5^Yti4q{>I~q=hmcX?5y9juSkyx9}o@ zC!!A#JiqBOb2z0|V+P5Du|pO*OYjW;AU3gV9Iy9$pSB$-KHmD+z4y)a_pIPW!_%nr zchr9JBWxUBnd1NbU*6iwzrMxGf4wys{I^e!@ABW*^XmHgd~*sOR|U1^db$5NycqRS zRMXmR|NCDby0SV4k3I~^e?7tSrYd<63rcNhzY`85O=Et)1oD%O8_)Un=xG}Cg5gUs zxdZi;LH1C8-I`TJzIie;?By&*f6qITK4vXHw4dRT+!Uk)S-Q(+(FnoHV07y=!VV33 z{}Q&9t05#qj&QNUUm69nVc@c4V5r#S4AGw{$^nHW(N1RRAgjn)gZxlPu!n-O z4Lg*p-I%2Vg06vczTlTPW!Z@srE7=%MSL5EU5YG)x@_?Q^4Ou0k>zd2rht3rPhKOC zka^9S89>vcka=MTT-S#@Qc^C?cyc>5%k>UQ6is=Lnae4kdE@M8W6sg|-{?IFx2?z! z;lR;f7vtk*@+8|@64Ha|D=Y(9Sbc{ro^JhBv@%*Yrjza&UmFmp@nX<`n?sy{5|55v{eT{qEP^qCBP>^_E8F4wM| z+gs;{LR^i>A5!2RTtT zt#2{#G*7XcFZkpBxb0Ro-?U0hbZDEq3fI(We7WPdaoNsSJUa@X_^KP~aCZLXRCsJ? zJL%%QN8mj^R(rI9-;ms-vFP}S!n}jK&`$?rhs66v#~l}A{M_#ill#gULijOQzqP!n z=!n8R$dy*_t4UPoKI zjpRp1+dTMt32N^JaWirk6hLj-tv#qgoWrf^a0bi0b7X3q-qUq9oj$+AZi~(hUEJm) zg)bH#J{Q{dJ}0R2DE!o0x}N(UF;Dkvinx0qG&hZ^;v5WbF3gu#VT!4n+h(}nkK+Qy zVJ|Lkf_4yY*!@*V_|{!1@WhOLy5q=^jIed_wZkD+GQ;W~P^cDwnGlb%!?rh2*8=KV z*0#)F3`onklqijaN1d(rJ=xIYjKP2u0q09VNPxKh+{>q_{XO4_I9d6tDp#I4Cddrt zBQ6Ni%L??wI5iJuM4PY~EE=p;6ZW?mZO5j-PE4_G3-vyPCxI4JjqDdwDuNFiB`KM0e6xqxVZdBir% z_q>m|m^lfqmqYLuTg7}J3t&HF665}OqvZ7p^jyUPNw5YgB2b1dmJH?%_UbyM4Q_s5 zS@^)TRULB#GWU$cuRztqH5m+0{f^3I2q(!HLpRCPVN3f?+y7{WEN^5yE##A5%GF|i z+5BMo6^jY<>7ruqn=R~|i}DJFl(N0v%qm8p@OBo_?r{y%G-DZ;^PFAv(q}NGZFQjG zQL+qFwwYpVp2ljy?lqZb5>+)A2*;M{%c`Yl=8i^fR7sLbRB8l+o#+CWy(#Pj(MH6~ zejVF4%J=JF+YU`60}%8kf`Wl-7LrXqY|oU4zmu>k=!&tDB7xQ0=&?*&Fzc}Nr0h>) zDLU-dT=wAW4bjPOr&TKG(7ST$C_HdfbZkD5;JitxLYmcPUrBn_BtmDh<^>D^73Vsw zdfVm6j-UqH2C3dGWyS1^B3!SarOQQ|*XW+N2@g#XG1%nuv-#xDYTlkzMBh$p(dds= z_fPit3~rOpA)mB?VV;z~3_Fn7`HAc}S=duYW{6V@ao=rfo3}umFj1bNi-bKgB&0mc znQXC+SZ+P(C833$BKyt+vbEXem(`$=HG{1!Ak1Y)oZN>V`Ar`ALP}I24Ly?&@am;I z)s6~Lw}u@R6twkVh8j90>Mu5LfdF(Ovy3Wq@=KE5>|lLlvx=z_L)ip1Z+0;G-gevX zuJ46x(w;CDm2A*zh;ZQA9~x@Nbroq8_WL7iG2dm2Y^i}8N!vnxtnA3<<@zvaaN1NwnXgEYXlx_W12(;E&DZt}4 zA1IZwLQq38-+0KKkQ~@fCCIcTCadmRvM-cn4rk9k9Fm9&$S*eYHkm@{_91+q5wJ)0 zIOc?mPATgt;&pMu70u5WTY%(i4z$!)fn|ZDfJLw_v<%B8g?LyRJ`epN`FDQW${62o zVcBtb+Mm=xDCs})oCfV_wS#p6`fS`Kg~}>6P~%WCfn+jT-q?b_m~A8C20k5*9oD-U z@1g3aL=|z*$c69!hPi{%gQy!G@H%>8RQrHrcS@~{h^fY>I&5r&^6)b%zi3pBop4-o z?dH=WUeev(kO>&RzgRwc4r$q^Q#qIzf`W(E7c%knSCBaVH<^LvXBRnwoB zCYE2%{s8oB_UFXpa4Yu~lFH8v{3SE+lr~*{pKE!hlj~F)R>Bhqg(h&;4E*vwSiR&z zY}peMURZcyu1+?_3#6JQkh+&kr5pyT@STVLBN9D zCIDvQ;u30?Xk5qQl^T{_kif769D5cH+1u*9^UYnrv3HB5+z;6%eSf2hwg2>Z9$iGi z#KpRjfu;0yoUr+ed)O&zM6~Ld+B0P5e+E5|f_+ zKR=VmrvcoqEkQ1hN6PiUs4-&%Q6BE|pYd7qdXBl=$JKNc8<$x&zPzGhUe7gDpFr*R z7^8rG1J$LV(5?d9vjV+P#PUX_oW(2&a-^Er<(&8`7Ls0hfvrC0jr*S_-e?Mit|Qzm z6pbcWWR^Fw_AhTNskvCe<_3qyt~V3N1po2IOgK|5o>+;lKK4xCkFj}G-~TwHWhrFVbJ|O79POkUU7{?saZsxmE z%AG|x#$GB1JK@5QanO~6xf8}X-hk+UA}YdSau%a&)Tx>*7j( z>c3=#XJO$&U<1s8z{~h|Pt-9F?zDDTaPi@~sU;?vP@RTIx{lWnftFBk4%LwG&{|sG z38U0SP+Ffg4n_7TJCrej3UQCRu1XNs*l4d5~Vg1*npPg~t>ioBfb=_Vs z$Omnj&pQTugC?{?k2q?9mLxMr4GA;>Ga$}~Y6dtESch)nKc)xjH6C2s2h>*%IEcCn z%zW?BKsIAQ$oa@HNXQs*ZI2YMU`>jdZ1jQUU27cQ%SUDw16G4N9x4WeyaYOdTp$Xj z#~NfhkW8awLUe7tpm`v%IOUyk*&HIdvsZFjt}i9#hJNXlq~zhkQ6wksXB-cd);Ilo zyc)aL|23UfKZ)IVe{(76KP>hSDQ@hV#hgjwn;BfXQmNhbLRWkH>KFAx5i<>{mcoNq$Kyx2lKKTB1osLO6aT#l~_0d-Q>ZL%}yLsh0! zN0KNjW=#vSJGO~#wB*`>v(Cl%>>;ko6`lesCgEnNvdT1!wKlAP%h*MGd|j-n;L-%z zh9FQL3?`sVBpnaPx)x0XUnxtcA?~#ktH^#u#M}YiMkp#)5IaZC!>GtKHVzD-KxFiM zsGey{z(*Qf3LeaR7rA4<&<%0^6jptayiFigd-faEg?m7Q4t#zHI$`1~#sVeGYt87! zf49|Y+fqd|DS!6Ntw0L{g0ij7$@j!uA1al+4=yMec_w6v#gry15Iz7ab^w8!Ko!w#fZ&M!>_Lpg`?J+aj{9_e zFoepS8w%Fr`eQk*e|C@f--dL*3EDj?W}zd{o*imIc>%0WTprb?sxmnG(XA)06>?Jd zxgM!?PoNNgjGlPZVTj}sDBW-cRj3?q_Xu(^MNxj%Wypx*gcV)+RJ)z5J#TY)!=$aj z)Qp5LpHF--dhFaFmT-#o*KkzVXj4n?H~I?i zL0;P*si~%3)v)bp_d;PLM#DP3+7jcmER2)`=`RyTO3k+IiWNrc+l}0IU82V^7o3%F zInVOAFj5+y+A5bDSUNh`xA4*on&9KNp!gXoOh!Ph%cN#s0x~C?WBG>uGFO+Ur{pqH z3BR!RC%>t_k!fyxsxY=@4AIcINjj1PJB&(t$gEc+qCue{v9=KJAaM-`ducQl17vCZu#+R_ z^uU_l2gDqm)$0vM4iRHgqsK}#_ckYJCxCol?owizWs9OrTDx#&T%A>C$}GKha;R^T z#+I<163vl#H42q%>FB*F1$8ZJ+u%iFEJ1eJC47LOQ~xrTCf!{C2U5(;m^YVSG`kS= zGQhYS0~sWNFtiG$k2F7LUftORdsYH0M|v}10~?(wzNC5C20x=vZ7VtyuXRVppYUb}uC z)kbRXJp^-IWx5h;w)1X?6TI}OHhV!)+exL=)GZ0rQ)_B{4a;d+G-oCeSu`K#3ngN^ z_jY!?npQ1g;Y(C;*`f}M;wwTHy9naRob3eS|CJ0j^uco-f<@0-v_= z3(^6^%dbH^LO>*W3G^yS-gAPNIT12#Y2C*{o~&*;5ZdqZR)}lW%llNv@wXuvy2}%ZXUB$$s7`IXLK@ z4e-4rTK%OC)w?YSw#}BwPHnJVgEC5!>cnnvePn}_wzyx+LJ*k`T2H)z>@%sDGqZl5H5-0r{b+~F&#WKg zt7rY_&-yd#f4f;9X8503f5pE2tbc^<{&}LNzcfSEeY@=;KIfG{@WtR`t6A`J9*zI@ zoqFr!$DwU=)x-7D>uGP~{w6a#1Yhp>ZMfX_^c|y+Sa0}7F0eQ||8ly#D0ls*hSDa* z_dsPv4p^u{xb^P_^TaPxb>d4>kn5%WOe~i&nVZ)LV+YOY?)gld^!L7VDfOoeJ*md}sAq7G=h&-LwiAF=C5erX+04rEUm zEYtyI@PRs@fPMGu)Hr3leoA?9W zZ~Aa0P)_{sRRU#{5Do|}pz9=edT!wJ<%2`JtueNIaO|WUaO{R$onOM`Jj>(dgA!qQvgRb{`VJ<`#g%b)17;Fi zW0=Ig`eCQJT!|6VOw=8Co1t2a5S*lmlmyfZ6rgm#M&0@5I2g2dOe_|(7Yux|a?oD< z8-__B-zaN|iah36dNkZcSKhiRJ*g+@Nj*t#8GBQ5@M5+lk8uN$S!Uw%dMhYREYhg# z#snJ(8Ei-Ym1s?R4xR*0n|Eh?Th03N43#ElH0hL?Mjs* zVxoZ`S#m~i!$ndyi%ptnH2Pyr+C(tPk95StG-;Dse#GTMlFtqqtZ(s!2y^dTbz%43 zH20v8kH8fh?~2@qJrXm7NPG+hb;Nk3nwc8Fmk(Ugn@WQ-WpSR2f&7jgaU{VMG?Tbv z0ieB^Tu96Vx(0dzgDGEMdUBx#(^h|-(-ypL{V;SS<`vc1%=JMuiFtiwSF^PKU6YtI zuNjh`JkLqeoFvQXvXn!F1J@U+zsrVPS5-Dme%&VPZi&P!qoPvmMAR3R(&Cr1nAI(% z&4CL?Yf7McN2er#>K@ENafIarHF}CHV_`(Q4r)D&QUoIo}GCN zy8LbqXHp(sP_>Yn-JU@ZF(t;d%bd4<4yl(>8Y5%v6Jm~N$X8aH@kANwVxFXk*QIpy z(LG!!vCQ+gs8tg^7_jm#oG8XS0J*j!UKh5UwJh^<5(c+`>^MB_PU;xudZP>7^VTSY zTF=CxuDq<`Kunr7ne7`1JtC$c=BnOr(4_;vL z^Tc&TeSw~iRORPMFZYCf=X^hL6Vbryad!j3tV_`o@4qJoo^u@|IH{W31*Kw^Z6?ia z<+XSu!0%IDhUR-E<|8JuCML2bCc7qz?}9~@RqW#UUI}dHM3R=tE~za%JI9*V^_*Ri ziPc6i=V8^EWt9zzeRHd1Nbz|>KmP7V!e zV`JUIyiaM@p#JY-zz0}r>V{K->ts-0M@4v)v5uH(e75o>Gu*ynr6ktG^2TOdBLVdH z+S_p$JK@_+M!WEACx^ONS{X9SDWRND$b?}%Ep7)=Yf-I$@u8YVLPPM7d0y>!Wxq9Z z?egoA#an?xv>mAs&zHLxrL}xmnmjTja>WV>ut*EMDBUx~$ID2L$$I2s1k?79r~E@j z$*4%QrHNdz$fztRt$C2isd#?K<;6;C`#;XQDN~eG+t1|tMU(F&8|w})61gnIo704U zWmBk$JP+QHWWRh!2m;c9R0|1qaiqK1M=Ff-S=hCxO?YU6ThzVvuFFzO7E;5!c))CJIVyeUqSpEy9D7E{G5r z(B}OJFT?~E_yKq#9kNo7&ogo?$p^{6i!LECy-;zYf)nZkk0kJlv>w+6jZV?sCe_Ou z2kbVIq}Ag&Yu+Wft|Ix%fm!oTzC{u}3rgw(^b*MKV@@y6bEyL}ht?jl#z_VnXOLp# zTF1|;Drt2-XF%)agMr}@39+(je<;y+GtYPXG8G$GpwV^b<(J{L%Ygv#jXCSPf0k9n z%)GiIA(kOF(UYQ5J>~fwWn9}BO9uulwY6(OB&CQ|%x8NVvJy6A#WcYofJ2q#?wb!0 z4+Wnk5Z<+kY(kot zj{TVHtvZlY?3maVNebF62DB~hHKwc~EY`95&>Ll5Pul_zl_lP8GrQi^%uhRuSr+v6 zSvdhL=fqdBkc96G?DctgZ~E&S>+bySTij&ZleO6R2tfpmbDm>W^Dm*DhH55Sr%rV4 zBHtP?+%%JIR&6CkqLX%VMl2a3dZ<2?gCs)EfNWT2Xc!$4`nj9X6NwdJkw}B9pbC2A zVT(Z_Ea`mOJ0GJ|w?4~B)v2UbeWshatkDE9i$btG5HU8FZ`9}m{JcD2eOSVg7KUp5 zkY4B+7DYX-ciB zsVp`=@R1KHMmJSa{fQEBF%u2VANFE-`D}|~8xaJ8;qu0KLkm}|s(s`;i*^^~^KQ3N ztLvhzJ0rooAf0HM z&(tJ_FsfVCGzziM0@kpIE$UEkh#Pwz4ai3bTwb|;AWXt;*~lo&;5Ep#C6;U%a(y*n zU%^1(m_%+bAI5}CEh1WD#c z*VdyP%7J0imSngN>&^_mW9o7;4Y7^Lhf53&{n8@@S`|_x0@;QqXg}ElIiRkkHk2O6 ztpM`lwr})!f0-%iKP>hSQztqy`b-*UTUuXFD7ymNcEh+D)@JAG;veKpC*xW}GiK?) zsoCVf9#m^-@a2Qe%uQxOxFOY_q$=xTB{>dET*11wgE#I-?FKL1&?OZ zoU~c;YdNM317%0@wY)-ui1~@R-%jiz`xOx@1}+>*3}R_R3>sFHh-scc6W3tu`3!kS zY<4UiapX7g1az3X?lVB$c5no+I@v4vI|;lnFKAJZAt6>M?5dW;lEPV1;j5>mit5g; zx>4sHHtzfrbUCTt8FScZTJQbg=E4b z!IH69B1as*l0UeI&BU*9VM-tnIfrhhD65#p@-8>?R;#1s&2W#-4~9U^jTrID&t^t$ z3dr}c=q>d(Zz0cT1?_YQ+Na(ZR+6!B!Ki>id<%|#c#}F)XPK;5L9<3xSLI{cC>@x>VkTehVq`QVUZgTu8q7MDgr>D8tc?EQv%1PTyK(!vSNH1Uu9Lj2WP&dS z7l&yv=h67Nmo#Oj!W1{s#35bfA?Cj5%2;@*t}>r^pG>W=%n7r>1Fy`eV15xDz$84N z`oWgFXqa_zfdC;HFv*EBh~M!u3yb#8mUv-D1??GIQJ?zdmWcsp?3+F^DO5zQuEC` zM~ptWo`zx}BlBb#sX!LV9Z!=NH^RJZ){DRk8O4PMjh>4u6ajBP@Boa-4Z-Hgi$xjB zy7du+;POLEKQ`sQIb6tCP2z_lt$;BQSR8Be_vQmp+CzlswVnwbZAr@YB6$8>oy5ed zIwth40xm~C{A_SsxuA%%4?!izeN9Rz)LHlvRbTa(5* zfw119F}+Z>gj75R+)dbgMEW)5?X^i=WUIfGT-zca$lL-nL<^abt`BT{+fo5#u9hS$ z&4`xVOk%ZYd9(UStqM`BkvLpGiRN7`mGGCz-s<{ElF}s>@8llKO!y=^ucPeQ9yhwe z*>;C;JRt?Swj*A|Zxy7C1yiS+6ZtSBQ;1FHWa8Ho>*&Hd=F=c6k&e;(NRw+Dqq}Ym z^2=hSRx+HZpX5c6v$rk$nqF~o%Z@Mek-@tPdt9KflO5xs;{(i}P$KjY*7yrVbx6qJ z;R4EDwnm?urxdji3$+N3dqo}%=#grOg@ktK0v>X0A!kD&^M*Vc>P(iIJTH3s6{Nmm zAidr;L>4|)*?Ht*l#9GB5K_XTsdDrn76s#tF&j;gHQ=GfaVRnu&^J;laHDs>O}p`jSIg+kO&jm2Jy zWL8;f1OwGtV=FkH5M&XTH@1>GG^ePH$H7obhvn2+d58+>f)h5>fF`_DLN_&YpZ^ZY zQl!mAE)q-vv&4c_rY0JZ+JXdLxv|of5eZBs;!Zn{rcH2QiU9QkYdf}Zpm&=Jaxxj! zzBhtF$pnB{kMoATh%|??x5hka;!=~{NnBfxN>A4yV?C1a3Xzy{ES&7@i2;1T({qu0 z`1mTGo?WF|=bkZ7Z^DM>{kk(Ms%s(=^L) z2KO?B<^!)i@Qnk^I0D~HVO(c>4WQWOI(j46i9MEL^v{{ltFgPsNRK8`Mw>|5vM9`q zM7%`aLE_72!U&^LnjTwnb**$Qozwc~G~(GYlIFG+bMpPHuCKA4omAg`%#YN<`_Mho zkO|EkI{GV_PF7df??VoiDBT3F(@9lBb!q_vl{K>j8-i&Nlqu|h3rig@Uk(8cQGdsp{fu!rbkm6F`x z=we699%1%3na%JhUF={Pb9kCA2Etn=$Q>S{ixFkR=jmc??(!eH7|_MCiynOEcdRiL07p5ts8U57$GqO?;W6Co^!FDu${0J6f&}fomV>V1W`0nYbFb zfi#C{GLX%l{HHjBWkZZOZ{W((sAc`cH0sgy;i!&^tNkw_Xihf4HU;Kt4{g|bNZU_y zYa!E_#LyxRESKETA^mIxfSd=9H<5`|X>`QTziDeht@+tBC`KbK{mvT#XV!dQDEaXK z&3h((K5?aqMkJTTBm$cITPlGqs4PYhvMg01lx@(WS(;bXT=o{!i*CHN5mo4?u3EIa zCIVO5MoRW5)Vt~%mF1JIon}d`C9wi#uv}gXa)l(g;Apnl)GQ~l0u{MC$CT_gX}7lN zK2P$aFmImh1p%*qzK1>A@o9S??Ct$Lk(-|C4}vb7-TQgK>!_4+Zp|>&nA>V?C);Rf zyh~dJw6)1fxSZz+TWwVY|N2chcWt#}dPzlFjit9hav(U(fq^uK)V2vSH!O1ZMYh_Q zzh-T#5%j37rlIq;8dO%gP3?yW2bOI$69oJ^Tg|W6Ry*yKttReUH9k}4^M9eOrblVb zR%4r{Qd{0_n`?BK-n== z6CqI;R*DcN7%QcMT^xx5XV*lg%)~>+iMYa=)*-BUK33q16UsZIG?H7rsT^D;>xuos?Y%@&W1xX8b-_TJft+_oqstk zB%8ZFt3^Jl!Rb98GlUf8i{XvFsQ+WV%9<6Zw^I?3*@D z`yIZyJ)Ch!qRV!Zy#q~yb%=IhKNilhjsfSu5MWuXAU3Xufl786WQC_yPQLc~JH z1~O!B+@l&A5?ptRc-NYfc|Zo%gpgjN`AQ%fLI|{uiBOsnxh|psSG0iiE#n3=iPyU5 zYXyGiFtPK0sMi3M$Dn= zXe%OxhLte69^YN-5A#+NWni)6ix;xbSUD^|1(g9h(kIP88Wum)%8&auta*d0oBqK- zx^E@Y+D^; zcr1=Zily{Yl#IUyG0w#no9H~U1eoR6q=NhU3{a(UKb9=TxTDNc+ISdU?pFj5C3Ey- z$LrO8B3=AL^SQ?zhJR|B&rw~EaV!7!ftu4Dwx{M%k?pXaHW|sG%BZn<48C6<=F}RV zQ`56riinNu>a2csuk=biyUt@s^;9JVYVzg^g^F=qdNsM_%(RubK!&7G6x8eMu6L*_ zsMiP4v&QZ|#z8>yXd~uKhvMZ!YINMR$XF(2_Tp zAKZkYbYeX7f^f62lpj}t(fJ9uE02D+NEWL43DUuTsdR2W^22~aK`w7E8C+FQ53>Uo zP7`ck-zTwnLsk31N5U`}tg!;8=8#@=;Nm)}aB)=DWd?`bb2Z3JRvy(56uX)aUcE$N zg-qy7Oz7eMWh7ME92X|KDk^s}wg63}XUXmk6k4Z^OQ{}X+$NjO&jaRr%wtD$8KDjY z8Hi>mlVTHXkTT63H9}?;`|)5E;-u3Z;**D5Tlp07MW7-`vxgqo+`R3F`#04zZgX?> z2fMj>JFMO5Ha9mo*-Ywo!ZmOFVcV^5Y`)k%qso7fGc6BqZr%>fX8Qj_H#g6#037$MKFCI+}s>;F@cu} zMP&(*jsJ4I%(Trz1Xf7G8g)53PXP!A%gsuD7T9(VZEnueh`No>oCM6dn8cFqRuJYp zu(>%)_c3dRDxBoISl$Ybkzi0BABvls!-{V#z1iD|7e_p0o10HCUL8HZLBl2bGwP%G z=H~02?*y-Tw0VedU~-;Wptg8Wal;2UH@__>&oC-5m+Gw_+M&3$0;rCXcphRMZezG`dp;%4VIeo@>3T_Jz$*5++LehJZS zU26W^t6Xsw_`cRzr zFD9D$VZfC8X>!jHP|(8|tyH_M&2OSb&sw9Mx70M`vytYruH`66g3=5#oufRQw)ALF zO1aYnkP6w-{AO+U5cNs!1!Babs6lL2u4z+--C~O&!hzro+LULB7IB0F5s09Ic`GK6 z2!lBgVF;h`nf+)Aq=F_C(gS1(GZ-v&o)@v*C}(fM>Ukvc3OuoJAZ$GNEK0yc&39&H zO#UJy4Psdt|9P?`dop#0QhGg^x2^swvnI%;Jd8{(U_+z|PKH>ThvWi5DEDKz+!7R`~qD2qo z$_Pyc>sfI&#kg?2un>Ms&yQD;=6Cj{n4{bTYpn#IFSym&jTB>OTd9Uxr-3g#Z;6%> ze46ndT_t0zfn4Q;FZrsD@5_Ak=Sj&1H=|{JsZe0j^|+x5A9qTeiUn7jT*`5@#2ask zmp_Kf&vz{3Yy(kSaVo2l4VCp5@-*WkpaPzljceB1W8u2AjP36RWsub2;g=|oNy=1Z~*^IjxgJRF8l&bS<(slO!t?nr4vVKf-)!lKWiTL8H!%E0y zCjRLjL4~N?OAN%Lm+I3@?P75xr{l`?{Ga!>9bLgm$4}>fqG&GbNapS>v|PPqqn8cO zy3}z?CY4%mFD~nHu3b6R6#t-J zbWnVdz3_iXB74Ys-wMyX%n#73!!1~o$_x+jtHYDYSxiK)A2ku9YbKhArmTH*{|wwY zUT7jdKtr&*S`v4)yzmDysMsfY9bCyVvc$8{H;30FGQU`Z@Ju!vk+m|m6iEJ zbRs*eiC9sK@~R8RU5m=_c6R8biRfY|3x-d2qJQNOmgc1Shsa*Kx_3+2gpB5wD?We!O`MC2$=wKPoh4>0dW!+DL9>)bfcf`yVs`*Ukb%#0Qp3M53HSiTZHyZX7B!g_Ssao8#Y5 zhR7THGDm&5M~cmPG+FRxf24@B!x}q^DD}WzaL%rXNm`pL$7!X;TQVO8^bJFOIBkgx z%pqHZ2n-dP24a*vN*GUlc-O+%m4`Yt(fg%hJ%nQFTO3-He$N7AJ;Yt;Kx(*1+4vq} zeYhZ5XI3*@uNF-~3K^w`rhKLyAF-m;w0J0Js8D(c#>}KhT2Cm{{bcQK9=d{CVvi=B zA(7AvekuC=0ReB7_2=djk?o&I*OlIMT@a@q4Fdhtw@LavBt75jOOY#ta5zgL5X0#8 zwPB9#@brQy^!~k)Ov2bVqJ5D-MCPB~Z*@G>=(7XP4;a2c#GACqT`l?oe5kSGIOOQI zcIeru$^Ba@jQL^JdV3KJ!TqS=#>u8%J^oXmKYWvAw$5G*(^v-+n$Bc@!J~Cx@)?cl zL&e}w7Y9655}7KQCoO$SD5yog}v(N6u&(@TNk-KyoMo!rqdDe`o&(77O37YO*=TF@ZC@~ zHA;UOPN1}Soi3s)Ej=T|V66r0m&T!R!CH?B6Ny!u7N&^_U*&{cC}DXy(%pE1pAZ$_ zMEYU2@d#xGSq3dD??3 zI56?excTokoP?+|pRSW*N5tp^kz*oHJLV494JXNlR|QcTK^Hb@O_`M{=?gB1`FrJdc}jw&{pt zzL>nH#NS|b1VH)x?z0kbpyUJyIuNtb@j~#)MtBjMs)GHzmfA8C?ozw;6v4BxNJw0B z2Y=NZBfcD8Jbw8*dMjtZd4*xkMf-DhrQj-FwUZa)3@sfQh6m=rx z!j%4AkS`PAMJh)jHe;86gJHi370*C6L&X20LsZP3Q1dT@<}Xi$mWMLg(JIK!_SId$ z{?_X(#kGCLu-*02D8G_p`7IHx^o;+mOj^>b(eSt!42eS|a`cb^`#BFqMU*=7?+CJ+xl9kS&jL)5!M#xRXB!SeWEmX-{M;5Cw1{yd=86Q6jw{>UEJ83dZ725I zZG19dwV>Y}*f*Qd3ugJ-T`O|rS&iyP#|TD#_)-N?kQbcm^}qrCQu++7hs7M;@HNi# zq1Ibrfgr!xzZ5eoCD6&3^hWYOx{Oc|iX_ttE`iVFp!hntB5wkqR=%u9ZnZb-vN@!& zbC^W^>#{pE4Wh0Lqf5Ugc3H@p!eTKziU!&9e7MQ_Als(Sg6x~R3M-x0lI~L&7l9Cn zo_ipT4y~=N_0FRHxuR!`WJ;bw*ZA6ZcqmQY=Pe|AdoeH-b8#vp(nd_>3Is=bPS8Uo z(b#>E&iV$50{1K^>;9Rk$67O5jZVbHQkPx1k7+A8Z;W^d=9F%GCVuAJ0RHh|J)JcD zA%wxRuoR0-y=2tyl-JcgcL$27J{UxX2<)`aZapWCrMA84;T15%3*IH3HvWw(U0(td zUnoUj3&&5UOjaSdM(4tvyPI*5BT7k>KYs~@$lL4*fz;SC*@67;gETpVtZ|V8V|%5l zpfMfS0oATeJjQ3r4q6}LCS2uyY*~l{Y~w{KXF+qt2fk%%%XHMMCD^)hx&sDGmIXrl zDL>k83;)V>+lv?k*$z8qi28HBpE^jjr*uFA9YmGSqBW5VHk>2BgIq-N$2TP=kgR+{ z`ysZEku7-2t#1R|^V?59Ga|}Vf+Vd>S(VC!ZA8(rmgH9(TKew)s_@6Pg|1NtC>Md@ zK3RNuUs>=WNo8sc`5!CK7z)%7$4>~Fxes}duICW6KrnGzKA>=yI@t~Rlt>oH-8YA6H4x9+>LRjdB7GWQy1>J{HMTJlX=p551_?w3@d=UY>u!#}YhmhQ6SoXuHj%{JZjNsD`s8To3 zHf{6rH^Y=^9~~V2Ooc@_ugT)sF~1}#mA?b&gm;p*nELnT=YT4@b71oAGd^b)*v zM0HWln!k;*nYj-<9on`w{}+{k((s=VSCy^-p10H>#}-aLm@2>ZOmS6sq1a34R^P5o z@Z$0&ey7;^*IpwA4^?u87g<_>pH^0@&yU`&=2SnQsMH@%E5oxV+~_jD`g`bCXU1`$JeZ6% zxsc#fCs;$0Iz4?~_mrF|P!<#Q)vRQCdg-d&0AYNfR5hTMEIT+^wSJC2XZ8Z`p^fs8 zmeba?9_CD>3N)dGQ8xAzUiW|7Ae!6w8I%DSK$kF=eD|vgchZN!btG928T09-N6p7R z6j~fA^JXcI95ILM?z%6yH;@>l# z0zfjfTxZoiaLe`v_jLK^t4%v>U@F07f$qP6AraqB0Kjp40M83(kp$pKo|U*G0V{zt zP_+N1im@>7SBFFTO<<;zE-tyzLA{~)jspvgY?q41nrv+^Kw`G{JyPBE{~Ly0+XyH< zUtZP_AS~xGc8SWJ&YxgVb}7&y83xyMyV#qGIi2Vj(MuC=>x5~5rv_I6|FeIJ^OrUM z(p76;@un7M`o_oZu^V-a7Dm{5$Aa8T#H2ekVc|5#d$!qIyw5mXL+DxDLi@G+)@iIZ zyjYx3QCo#Bi!%#RTgAxs4V{==(={JP{NVGg^!{W$A1PLTiOLW#8tMd{0Ie8&q_6SM z*vi}L<`4MEXwlLCg9Oj?|4V|WXJTUhze(`jld*@A_B5QewR3CyXm8?V<8<`;eL+U> zpMbDgod#tvTU__IdKHmV?$t2Ap5zWsyJzw4NXozO;o9{?M3^0~w5*f8Qjff)v+%2I z04oBidIi@@Y0#7LmYD~x229oRSujg(TARH)g0@RNqqXq(K+>0Xr@6s%;&B6W?VGgP z_{n)M-Pa_}R+;nOtJzz<7Y^?V9f~O!WH8ygrxm_P2d4Z2+pV+P%Hi=f}QGaFf>9 zc@wo>y*Pm{CQo~1PPrAVC(;?WT6Ercnh%YXY=)k*8ZKUshIWck@9sh&k?=le5A>8! z^gmI`qDgty4a1q@Sa%9il93}5Km*o+Zg16r%!k*} zR?z(;vc6;`>B*(74xve=o$8khV4Y? z9~!&?m!fd8vNh&1&p(!Gu!Cqbkp7h6qtSd#=45a((q|_8LA(aVv1F$g=E~LsZ(6c# z>C_J%TffP@&XiCfYHq?%cl%_Lf#byF7~L@XdOxyem(=~ymHQ$)Vat#@1U(p5{-xvG zyBxhWO7gs)nsDw&FTwOy3|E5Z)3D82s$;%;l1jMTayu1bBHm162lw#-+D312Q1JpC zv#{n7k74Xyp%_d^UslQP2Y7^Hf$ zrYSuOtJU8ITY6*a#s|a}V}R@`L#D4a!{3g@VAm4JHz^1bkAOC2eo&NF5ktLA7>-N@ z?B@Fo1DpM(vzl#!5>>Q)Xv~}hAV?W5f_ysrI?0sEup_tAJgkT*QgoyVcn4Dg=>1mm z_!sK|64P+qaQ_~Z%3QtO`D|XX)yCVG+dJttgy#`NkOCu1<1@4ar-1sOF=XK`&kXYSXm5{8s-Kq??a$YW>D}%w zFZkX=ubojQEB+l?|GPH9^#br>VCx`v9M5R2-H(SpyD3)e$-H?EWS@4i|29zddPJ}J zdsk*;Di|#rY6f3f57%!`mr)0#uX8O;->Jw+lSdiy7!1t|QPGIF!=vgRt~~tQ#){c! zilIS)_|9aQY~B^^l58$3vHfrLfd+^9LOP(nc?fEsxtS@`$P_tlj%Bmot)C*CbB~X8 z2oMCfFMku-;ywe)bkSF>h!jX4Xf&rXGh6*&r7^Bf(;>-x#Wl)x@v(kN@9>Ow2DZ90 z^FY}nyiM2k>Z9A^U`o!VUQ!fbQqCV{;EF{KOLd$QdH1y%JM*aai8(I*Sz|VxpPso4 z4^7sKw!5&9?Ww`S&2s5jhIOP>HUlhxiT=Q5smMv@|`zj2_a%5ByT@vkDW-8GJ^PhV_e^DgS;mC-oNFLl< zo72{GC2WwZMgFA^Q4@THo6stV0=8OU1x)l-A@<=CSa{j}PevEZ%ep;#yvOB4|G%>T+bVH1n#H=0^^Uu|u%=`nT6n)J(~>-d`S z`Ui1if&WS-VDZ@jnsVbxE>;M zSwj*bP(UhxD9qm)s*p=HOex514^Q9)f_O!xN8y99r>k`|+e6DG{u~(wgp0PfSBGl5 zw_|VOZMD24Wx@6;*m%iqr(c9x^qQz#pvVl@bg>+gtrGZy%m6ZidJ6$BS}f~>LR2|g z*uab}H)D{CwWM0;G8dsCMWa;n#J?(Vd=v!S4y}@!l6je~3ckIJ_ETfv(^o;&S$b-Z z>zriqT*No(@bN~!xbZqCO?Hi1(m>TXMGQ&Su7T;gz*olyaWoMq^j4>~oT%H45KyC6 zChXLToh8GnmtlIUN`jvE39Sxf=qpJ35afs=A?M_Dvvu+(;B&g$yc1SOKro{#zP+p3 z;SwLejxsge8{7$aj^V(xj?tl#$cb}zirm&TBRL{d?gZ-GGONwzEcO6~Lo=eyBE>cM zw?TtLV4GeT06Zx91;0yOdS|t+!!UF|w0R%+nlH)uk=s?~If}V!xonELZ{D|<-M2V} ztGQDjK5u$t?ig__xsi%Dv#`EO@1SK?#eV_pw8%{MV%uT=vbmgZA7c=kPF)={xs_eP zYP3@mb`bQ`etMLr2oBH*3G60# z<*Ga310Fb*%s1N|H`&v3b!_CxPGc~dz6we&;4rMIxMfwZ_wm}JWy@;;pGnJ~mQEQm zCb=eMVLS_mbMl8flfSsDk4e0v90ts)uMNr{P87h5z&-vN z#_^5RiG99zmamA<`n!8a-|fpQBX-^vYTsU4G`NWwtI80P02QA>BK-FciwPm<8E<)M z(c1rK8b&0&dU+N{7G~-V&bOL!%k6#=?R8Vfn`a%q^KJ3vJ~`jrLpAhZq0x%_Bp60S zO0SMQignmAl*m}G@OdtsP~1FqYg&G)B$m~<#pwRev#N6VRh_NjeZ~m)Y(3(o_`7E` z9q@zdM>$ST`9I~@TIFHw2@e+2Ug0F!MYgc>8l{Hn&GGE zOjtH<_53|UbQMDRWdlI51lQ3%ee`6hi$s?o9c9>91_R!b)F~L%)S&T`IUGm}36$=T9l*}~71pl~Hrre$kCE_O$2xMprkjhy; zV0jG0Uf$7jb&p3cA#<`{evy`eE@73>5_%sXMJ>eQNoVu7=wex{!jMK`Kb07OqAjxi zsma-pH-&vZwpwLp-J0swpyYHv)jY<+M6Dx34DKtzFnYE(LO;N2Lb&x&N-Mx(mEZ3+0&1hDjFnfRW3qD@PViAzScZvOH))&_YCt%FO3 z&HbQ)TuSWv7hX3D3R8i%gNvHI3%duqg1rx`5uZ5V0!BuDbB=T=PACqQyT6EB^n$>%+Pb;K+f!WS&)KF~QH#wJ*kpv%1qK$A``Rz%u) zRq%O}u@Ha4-zpt~aq$7yri+FuonjR|xMEc2v(-x#Orwn^GGl3MwiHaH7^V%k6T!W2 zC|6#pSv&BI{@cK2AZB)kL=DGag*W!5L^^|%yw?^Ik(BcR>6FQMqDj+i&pDA3P5;KG zX|ys3-%M9JV`wg-*DN!x<`jOQ{617nSCGi9aj%0=RRJJ0QU5?k0uR6}o!Z8KKvUnF z?Q<$k)+LkA<}c9esTm~c7ftCUltePVPrdTEJK&DM^hMbK$G%nOZ?@NIv{iezAHsfe zZZ8Qu6YuzzC)=svIXzQOn|H`8zR@o#$8{1laEw@i*zPM;{_Kb(?&?3ie2PWLya5ns!f6L3(Nepa9FEc}a-Oe(-K1MgL~tATp?V)>2(hH6!ah zmWxL-xEO`m=@PFERtf8kRz_aWQ)ZK9{CGs!lMtQM1Y?W_y{oo9A%)zzQ6Flu@BfBd zgFd-$LRC}agrDHa^*V0?p@GfeLde{3LW$8>(FSeRimL1`uQ&ER_Omjk1+L#e-mD;w zs+&Ct1&^n}P01|n457BOsy#7_(HyOo`(2OCQhxZ*Apmv33cAIw9ZJ69k`a9Xn3SDS zCn+te=%qu$+y5P0x5y{j&`7o|&Ghna46ON=JB4mRF7>tWlGMp$7ydb#Qpa<@&;|GoS2?+)DM9P(ZKsS`Onc<+fMZ77g^1xyP4=WQ{ zR@$AG`L)nFHehx7t6RU7V>h=1EWZUN-;t^9)ANtEJSx>P(Tz!!UV*Y}4{rAP3#O3I zK6UD)lU5^ytS`IqOCB8>*mR!DrB5p%pL6DywLyY~;-qtK>d)m1V%@69r9-x_&)&M#4XSLd#9$ zRg`x?4NFp+AqAh7@~fQl7{~!b`RRi#i_?90w)BElK%UfqNDTIGV+Ui>Ra`Ns7>wf3 z23?2gwLzQHUuWa^5nctH%$DB^?iixB+*+%4QTMVwp(xA(qr0Lbqnct*%?6ip1(YS} zH$mmcrW~fUT?}Oappf7ix_MvAKlN79e#uP#%|jrzzR|{d2~<|Z)T57V1T}EaC$jSrU&ZLeGC3v-Ii0Z^UV+=WoOX~jm0pOIWf8PFWwU<&t1hnSwY*0imRuaE2W ziELVrGt80T6DFE=KGf1+ad zL}?W~|HL@L*{2(*C$2Wt|JAaJJ`+&@dHsTS&IQ{WbB+407=I8szs+C5b*D*t)qE5% z%r^}e;KS{IGxTg84bXwST1Znt3lM(E-!}y$3;kl$2T~I>gi#M|l?Uy$%G+B9rfAd6 zPL^=deMaWSox z2qwYaft5C#*egChfFA^BXvsks&t5zpHV>mnltYXjID8SK>cZf%`#2}DUp0oOafj3D zB2W&@4$H@<(DtMO@2>i|6&?`i81Cq1P7O@`G2D1lXMYDh!7WNX`UK~qu#G>$Umn_9 zoYEVYNJ_GkM>wS}rs7!6IPY7Kp)HP0I-F@qhE)9N4}Ezb;lRJnRAfy13}c;06G|SX z!v5KpArCy1o2uj#7UiU3ff{q9fBDcT1Q+_;XQ6?0VFp}I@B4m_e# zHL&Lg0aR2Pa=%ceEdc^Ric~mlh^{VNx4MmDV07O`DK$h1MH`*e8W^8MuJD0!fa)Mw zYp*R_@1bO8I_Y|l@|L{;+~0516IYcT!L7Qw61diwKjtWJ^htug)c42$xJZQ5lK`Na zwku&0PrVQPmBb}{Qg-!;j&oN<7bW^<1z_p(oD1wZSq|U9sgn(j5M8u9z#RK?ejT2PZ}z}Xwz^C+?FeAiaoP->Moj?ibBs|EEv?;H zQGP8+Kq^3G(8j^`jB(w!xDeIynu|g<^X~vyM#yV6$Zs+X6JIvqOl{6?=$iVFZ|8ay zSX8o7R=UxHR3UegQ3)$$zrO^)T|m+kU@wPOJ$0zK*^_6-}TVGCIt*ZHiL54Os&O6TG;%ogSNWW^5x8Nu;l$b z`MRPCf%B(px3SXs2i*fAy1vQ^V1`MZatmGq!$D%WqDH2Rj!YapiUP%I6z~HrSvAry zpC}j?)c0FHEk5OzN=NL*I9k^JU|t1Ev#zA*|I?Z!WO-BF{ zglxbad7}7UXRbKqK5Iy%?#pixveCMXvn z2AGisnVg2!XT%Mt^zcRX@-AbiKu~}Sj_~O_6%7~a$HJ8TfMBAm$(YAx_a|ACe`1u^QCF#6 zE0#xB)wpuuP+k-H&Nkl((qjt=V+MTdc1oHAS@OQRQi~Opyxl2<+?i)y&vc`2r+bhp z=fjb9J7r$a$tB|wM8=zfoB|z4xZ&VHF3)^p7!_*3P>OOV0`-ZMd5;nPb%5SutgjEmav|rt-FbS{v_1#YNRAmD%^tGj=4rYo^ z0DDod8Q#M|lSs=;IjZf4uRMl0db#aGP$AEE)ylIQB4@Z7=1ra4vEz%gJ>~`4yEdAf17HPE`hz=OLaLG7 zP(%S5lpKjgVW>QFkRHRnDG}(PtH~$5YS5R%kAyBTpAH(@($Vv;P zU^MCfKv9H^R}U@rk3OH*FqVk>1kodx&k2-K;q#UKTMXjuvAubFc-tHJBt8~aeeN>-3X+dPI^=KAu!ITT-86uJf1Hk4D$073yvSe5+jtjQ92>6g^rHumI zi47|(Sw3q--*Xcy8vius zgOW$9Mgi z=b_p~0k6C7!t-=Tm09%K9S8gdHlQZ*@&e?s$Os?2_>>~HZDx1!jCKaJr}?u8$`*7` zwXhs3a3K1V{ARFhuADz5O!Pl%^`y;(7b!#%iPziier3HpNicF9j--kTY2B9Uz$3Kv zQ0H2^GWO;1Ve;(M*5K7Svrz1+5fV=O+vdeD7t-;zHG6`Ul(MR3k5HB}US4X93< zzx-P@vw!4Oh3I-Lw%vjrEe-ha4&lYCV*hS4u9*jTls*XFuwNoXSvdC*=;fcP8Lmn z%=d%whPTrzE61szW`t~iV*a~^5jV}JaP{Vw@(_xa~q0GCzOYs6m$``9a~lY?d;d#XBe zT4LQRt{v5J|5N)>=Ok2o=hn>DzeI(RO?)wyjB9InYl1mOD5KEe#8fRs#Fy9Zk)YqG zOM8{eT?;gsYhcrU^LEe1gtKLKvtn!wvupZL*W@g>Z?nUc*vb#fuJCMm_SD9CZ^eBl zV7QBG^C-W8sUt3S!$)n%MgI;126to==rBD1VW4vU=kZ>!cNLz4ZPT~p<+Cw(mT&Zz0q+!#+yuc z0-jrBfHDul{{p+|-({1wXO{jrhSso8*!e^-b!1I+;7>^d)Nrqz35k?v;2Sc4B5=|k za$TGxy3U>la;WHYszot=Bdo~mtqXJ*{>2G=AdPk0(VtfFH>qjEQ!OOOCQiDrZ`5J* zNFrcEGE)t#0Xi;{#H6r2itY7FaPw<|BHG&DUc?#R=|0V$EeD|-b#0NYmtax0VTmMQ zB`c6tEW}vAJ`_oD_1K^Zq*7+3GXd9kdw*q_mcf&18yyCp%RM=eOA5S`4DwLSFx>Ut z@j#yyS6XU3&SDmEx7Rt*qlbE2Vivjl<7<{;xck@Whu)xOA|G=2OxlK3Mi^y`)Sb6; z@sq}qmXsb@Y(8|i(2qbn|2)^pg8g1xp$Q(W&gkEo?<24Y)Hiuuzn*VDf+}F4EE&gwMg)OHvOTHT;$JeHnOEswZI zgemrkd~{j0sL(P8x}m^5^z%7-zB9o{*_PS3V@&cPnh=wA@kvr5XP^o>T`{#5Kymnn z=y4l3b_rysM$5=%C<44SbH#0L?I{l7_25fK0l9chKBJ5zGJ>8Hi)(&WyQ&YBRSiT? z#$`lSw`v2b)RG@0ppAQHq#e)(t+2s76-Y6&cHxnxxbuPr6}^8Gy|*yv%3skcpsp# zq6HXX67WB4V&5(ON2b(FFH?|el1JcWNyX3eK~!av#LYBq*J$k1#?bTqqx-V!L$7c1 z7Oc2w9;Kp0rn(WHstpF!HQidQ@+y*f)$h0iPlME`67-_|ki$+nxLjaU*_KtaRdC!ynS?S;{?vd&dONp^BTVWlws9C0Dua(^L;4U^V6VH&fA2oe#>DPE80+KSkK z671&pqEzH@Btl=7Ja~-_EOCl>QqS#mqNg>JYMHHU?10MlyWhRP+%4s`wl`hocs2ZT zUaYx(_Ga+3a_rmC(0Cd45%>eEylxO3TS?SLbJmOe81^`;>d;$%Q;APdoGq5guXh$e z-Htg`K{c%~WRlZLLK>e>YU$rpWFwa_cUC=N^A$1YsQlAG0LeL?^o1VjXxLt#w}96% zRLac(H&gdassYa)-n=SC#vI4OWT@FYHP?L+c{5q z0QxIy84YlYS2sDGIfm3L+yvx@ebk7ogO?K$j6}hCSy*y$Ujs;Ob)q23^(**rUV68i z$~isY4eEOWXZM?GWT%0P)m`CK5D1=>0vyH9YYH+H&(4l9Ce&U@A&l{q$b6g{WcEt- z=#__oS0#dEX@&>e?b{$&|3iZbP(jrtSB+ zu=Fcc{&pA(hw}i%+f6pb@sN~#$;P|~@Q)DJhm9(47OFkLXf z#p1BP;ihrqyRqz5-J;B7ZCF{Lh(NPsV(9b#rjuOiNUQrjX~tE&?j^fbXJkv;Xvq|c z`U`2|cxj9C4J8XI*gO{h(o@(*j~QD6_GM@Q(qDzXdvc*9(jXY|N!s@fBvhH%+M}D* z1?H=VZ){=%?elw(EJkEge#YNuH7ySVD7+K#fo_kJg?>1=I^KWFFJ6Y9*CSHRwlIR6QoWNxM{n{dW0eC7z8D#+@R4*L;h*V457nezyPTA6#Ny1~^>}#ar(pE_$dpi@Ufh*}wJiHB{Va`>;&h zM+Y7Ee`IzdxBVIYy_z@w1^oX;@RjK-vHH2r8(vWK-|QbE!;^i78ZH}VUGPHI=wiol z$`jf5g$M_o%GGxkloHR;q)FPYg{zI1ZDi=+U(HS2FAqlpsxsEZMK3exclaLEbu3PUbM$9qr#fz`Xj907;Tz( z#~pIZP2)SHjOyTBUQ)of^Haq>^UpXMdMxN*9vjX1C@1v@HjhCCWV4s>cht~XI=0**Zi|iV4$s;hbWDHQ@^DU zMLky`T%lbl)$&D|Xb(<2a{BZ`qjIvP)OA3nk2jAknaIz0J0bAPC$U?H-Q%3Y{W?-3 zWp9XZ;7=Filjw5eYn4Klnca3qoj6eD=*$DdvHm$LmO$aM!^%fi|6`Ss~3WdC73=c&XNytDdoy995Gxi82p%+ek!54SK zBz&v$zb&CkozwQAhM0hoVS>4NEnw6xeakeWobw6dsHG6>Je2;zB><1vSRHOB%-AjP zKhpd&p(8Yc*eAEgAr$ifR+CM;FMmAFLMJSMf+mK5SWPWC%DSeysC8lcgY%Il?( z-{qd66pXFpo}*wr*&U)3$lu7hK_T|;MrX0&T52BI=>fv!y*i`c_9Xmw@??=;}Ev-Q36GQyPCn*I}l; z6ssEnD4-_SVcYbAVqVezjW9feV;`AKC`*;iN$ETvL0%i3uN>5xDhi#fQmNg(grH{NdA@+(c@ZP^QA_ntJi@|uB)hBk6 zdiht69vj;22}mprP70jPf1u*sWOw)Ew1W4jaK{#INUtC-Zt);TrP=S3#$Rt@6 zv#}B21aOB5mIZv|86UjUI4eqi5JV6eH_wIj2a&b7$S)yuqL4RZqeGIIhE7_~@w@w?? z*!^_a7C`}zE<2bJmaEJjv*TBgfo(&+x7BN7$mhPLB67~Ckd6#5#`?iEKwAM6tZJ*W ze=kCcvQVtT5t(ZE9%%pq7iVvdOC#^oCAN7jIG}3(t)}4M`d38IIsYULP}1{F zkY5BgDoF{81Q~>_QSyG}IjmwvMAz=^u)0s+lbO2Thy2bPg2`YpYGNkbw7Y%nSgo9D zksdX8oaIIr%U{ux(ll1Zp!md=(oEhY8LZ}ui0AesCZzDb2hVqU98G{T2D}>xvmr5+ zZkAR#qb2T@gX?>rsv)irct-lySMCkFLcyL0qYX23H&XN`LYQe4h!MPO~SS6p4~!BN9M|8V9G4jz)Y`k>@|te z<(!y3z)BFiQs9#M4sp?NY#>RDv~OUGENZ>Q=*2PgSC%A0v()NpRKYhw2b(#kF77g- zJ3ed1d4>H!F`TG`;+9mxTYgU`fm6UbE@Ul82xtKFz}5)-NkD?`(7=?KzS}wIVSo%- zj81m2^TRBv1s+y!IBb)BdIoMcADktzN|=6ii=J~nBIHWgkAHtAZ8>%gPp&O$Pb#+g zNtt#&j2YWWnyXh;k=5f3+bs-=E?R4k`6{@riB-QUqb_%RP#6Z;nIsjOjXlzLV~vLLnLDHas7K~ z_+sc`Yeg4|jw5H87Iz0}D2`1q$4%NYFO+-tZC9lcYaDm1%F|q#h;0HPt6K>f3NI25 z8ozdyYc9IB6@Ch>OlgWBvVQgMV(`E~=7BtkCl3m@OTWMrKFt0eMLKS~*7WA?P{h-uL^w z)N*@oZ9RF|wX*^H`KpXQ{WZ=jtsbjcQTv`?Ien|&f!tkg`r%>3dRyA%o-8I%Pz{uA z_&qZvAdr3f6oRABA8uQguZIKklBKTikP}O+QY?>&aP4_>QN}F{?MW$sD#XEf_q_j+ zrs{$k5lIK8AMHa6)&2_Z1_;~$4C@6ZnBpxNZF8-89-FVRi#_-rMUTwcB{Rr9}TFdxRnu6p~W1WnfUl5OD`Cr2V+?68> zW1+v+h_8mHFHc6je!N4SgaP1If(rspmZQ9*8Kt3cW={q2k|h8$=N-^!IhIlLq>?E};E ze3;I#+KWX_yw)|-iy+FJ@Z_5v;RPb8qPDS+pnG$^RsEcAcWkvrpaCUkb63DncIFXwPT z`2=^wPG*eYQole(?ae#=^EdY??d>@y){pKDwxDN`dv0m290iVqzQ zDGOo4ReNl=(Dn08*_Hcde*aYOyYZYyi9gS~EfYN>;9xI#&^ul6AJ~nwhDxmGdmA?e z@HJ_F(9VWR5VIlGfz87dt#%G;hWWz?Cz`Q;#SHMHDCBnAu&K= z^*7KrY{-qn{bDh!Y3TMcO4+(c+*cLx{yFg$*t5>Hao8OA^PY;VDk+G?6-yvqzA24< z{cH|-DazVSuxJ`3dj2+#*dw%k^n`8oNl1_z;k+fNb}KPmKF~27-JZ~4DcpoxFZ`;? zHb<%-yR&xQ?Tyy;aD_=2l618K`Q{@Mqw~pzZC9C2a~^70t~_RKb&WqgK;Zf#Rax+v zbNsr4IzhaGLG%=D{JRe}yEH zoS47d+>SCO(hV?5b9-Uf$wWFa)dSk9eT7vlDV6moC|vMib|sPu?XTs-HZ+rpJ%gwE zAQg3Q>a{bx8(=u3dM%_7?(OYXiK#_dYVqnk-dX%bQ=#}&E9hEZ|7JZNUigKCR1)1= z90?nZSOnsbBs8!*7m3g6h{kZB)I^Mvr~IkM)!q1pK*}Z(v+9wZ>-lXQ9;+eS8!^83 zC-LtKY_F)yS}4(3=@=WH_+vggDPA<_D`{*i%p}v?!f$m)?c7k?9>mZ7Q#<883Z}F* z;4=7b5uy4KMNuDBnp`VO6``Pvz=(c?=dDxenOWuXBG^h6 z9!J!wz>=&`;w<|RMzCgM(?w)X4_h`he}>s6PPPz17wtyJh4k%Bwb~2uD@)*BYnsDD zWKeZa4fG`!fTY0W*!!NZNOtnq+t+J4RQ3C;xuA@UX1)xv7y0JJG`#x5FAEFPc15K6Ql^B6hh*Y>m|?q4dvj8eL~u6bJu7BK@m4?If< zvlwVxBxgG=fhX8#5ovAR-b=_Wv8a>@v3jn(PJCibw*jG^I8n&7$Nqg#<&C@8-mUav zu4oK{tnH!MIty`woiA0uXew!J>@$^~NB};PA<69dq zrZPAwGzM$#?dJdGTA)cd&fi+>!{T?r6iM7|pGg|&!!oepG#DlJW;_4W!3QYAiX*`3`z_A9y^}w!EA+!13GJgR`|1mcaE7@O8nhpOk^DYI(-Igc zo=18&<(?pMGKw{CZ~iZ%VgiuJAA2y2`9W7khzMb1bH-l0kCi`O7Di1~RMQBGW$5Gr z$_i%>96RMxl*>#jC*{crC)I0_;@*W?58K?C&2T+RFJLu5H+v-Obgiu^ACYFUvYH^B zCrD+)fD#IUHo3ddS)hb4vL4jvt|6ZSzHHpkm-;nBoA%Iso4~cBB6b>B z1~A!xIbvZ1`0GFO@cYZVjPJcBteI40?1 z%_8PDW(jBuRuZ1FNu2m`6u8rfeYlC`Prmu(kS;4PFq<26TPdL@Om!x$SxCgAo_qhk z^r8_-M{%bS>8V8fpQ0J=_OK%Df8j&_`D+w9T>Zm2x6&w_ev#B(u!&px7#Y**I%y6j z$~6_Iq+My#>dsq+i;8t2q+07#&|Y&*HhHNR9t5=8Xj|2SZYm|@iJvayIA6Cjt|}!K zCT}$&mpLuYAsUecJx> zgB6ay@4dp+z?D+(qPvSdC86Vn%@TkL+W(+KMi$O~V=X~l$&GMPj65|?eJbrySBSw+ z1z+uEj$crunWhrEqrxpnrv>?m;y;@Df@h{Q7k6l`g8mMX^dl52PL1^DbDywd@{1lt zweve&MSm}F4pnK3#z>lJaWyR1f;zWZwqaobrHR%YhUOiq$`%>nA3$vWVhvWkX=UF? zcT~l=lu<%1u+6q(iN*NuJgd_$H$xcs1kB&Kwv=E0NdW!$d z;E1tmRuggMf7&V9WT(iAWQZHH4IGj^(hiK}aN|^{>p1%)4SO09kF%*i^Lf@io!&>c zBFik27lq5yOdGNG8Y5Wl3Vit05L{R9b z7$O(Gzedjosbjxtq-?)%gdQIemH^E7z`xp*@zIfMAAh6v_3puy+BxjbZe7FZRoz8l zEv_QChC0=5KfVlmhurRVQmNc>p8KyB1@a32Sk}IUyV3q@h>ZxWi|w{_Cf-UFwnoWe zpLn4E&7PNN_Xl3AL@Cb`Nem<=3B$0EAD`L}pOsf}VphSH$kAP1C2#E1^kX7XIq(K? zl$F$eqh8zrj7fA#jDliSE`HhgsqES(p^d0!56t0;iXOIPjoyLFgGcfKehk*wPNOPV z59W{zzWbJ&u7Xz-4jUo%hh{bHr=3{5;%i8!c^T=~PCE15mgFgY&aQ}Ru*@ZSpw7yn zg+W%j$8^qnLk%mKQRoNwlw{23LfEN1OG9dVYU06LYJ0Qi0c|p8k;u69a!m}M`YTr8 z`+dfF-a^@D>xdO1xA6DJcfO@^Uc8rg>0DcPGa`l&|0^Hv0Ooj?OakCTJcS05t;Vwy>b3n>y+845 zmpjh2=B?>=ZSbEidsii`(NdDI0Lh*uad--shqrZaONOUTKRUVDG6I3x0@w6mCjPsK z(a@B6EQVYKkmh9d`}XO%{>Ibdtnt5emrt2H>z5l{g2K20X4IT2GT3EG`!MW&uruwL zZzz|0D@;m`Si_*zSndk-YN|$f7K%^mQk0F87TeQE>;y}5;80g}9uDeq6`J!KdD3po z@~rWAE!NZQpJAp`MbF0`r@rT0E_zC3Xa&XCFpq6=g;j7|CjHt-W>bv^;)#T|3j99PQ9UMMM34$ zgVMCh3pF3Hci=AwPDlAA1lhy3Z+23mVrqkd~yERHae|f?n?~40X znA|>YVVxC+?R8c z&zCU-afh$9ny2TtJ#3k9c-qJCWr|sbOJLEk7>n}E#4gtf1&PbrYmDRieR1wPcF$Cj4DwSf=P)_WX-%nw({}4az?ePJ5_5Y3_ z=jW4?iBvii<)xF2nNwbOT@7TT7*oyx&cq0*7tobI!Q^O6VQBu`5!?E+eyTrj{1sO; zsebJuVPF1}we8uLCqI+L;uLAW5R2gc(?69C3uD3*o;yd8`fZtE_=DKJrFvc{3(v@} zk~#QlV9JHAG&h*HgcU{(%ds6(Hy@sea>2$S_aaeqD<+~4SxTkJCX`Fo`e@r*%r z<=+D0T&AI=9>zp!!L*>_p(2d1l&}9ZJJcj(YV~ddOy?9br6X-*#}ZCR#U1fyy(AKF z6D>2To2N-Q&*iEyQS!C!eY2e zabKb)A)sHFE>(mnyj@Foch!$ya`|jdHfG{48IsFv@Geab)|$Q>7?MkynXznM-yq+2 zb$#~M`%&GrKFML71Jb&=u?zqpbqR!gcv^i!txMp!!;(?-)Jy65#x}dvmNnifwMhrY z9qCz-6-&?Y_@F(GqUnMi-E|2&Nh zwdA8;Mwj%NTJQC+--R%3gMYh9CvB{^9>|i(7Cs)k4Ab2^3Vf;okX7$bQ zH(}6pD3^u67xa*HDa0K)J^G$s-};Fxeu|&iavpm6#M6 zVV$k@UAl`%KEqX;Jd)wr*H5i6z>?(2#IcggRqwos?Pz5JC%% z(L>#;C#=*Mc85OO+YdM=Q~~Wt`R@tz6Ws8{6;M*IWQ8hyICvg>$HgtwFT8Dkn;7CkbQz?e`je zU^>QNLC9jwc*R7tRYUHs_fcHoYYdnK8PNdf{mwD_{gV#_iSJ^{`W;5g0LlLmAxRFE zcVFYk96mMDs__C+N0hKe`P8C=sg+sBE{+!|M;FS9_wT^qYne|S_T*F8Zx_zk*8}Nx zx6_-7bBzZ92^SC(3|^=td^s;`{MD0UA^j+ z717*g-YOo^np5=^AiuL_)iH5t@>nnW-?mfkle-(7pCK`NQ&1dxNzTEVc8pVaJEb?9 zwLumOWU%M+0!2txVGToNa(kSRP3D|%{GzchR<)cMmfVF{Cz;#@&7R)QSPht6%(o`g zCrlFUtzgLp@_icTAf9fWGjA#ahIy}bN8aLUT_n#Ep!i~r?5o1_b zh20262ukpBsu)9v{+63qIv<9lCC)msRjT~68bXDIovFGVa{=#kK)y+I)%Ub>Y0@cv zEgHEbJ&q~7a6=W#F%*7pKzQ*6BogX*C5ZA6w?&Y!fORdTVOn)oU9@E$ju=w)Vt36f&Wm}Mgop*q&?3tPz9>g3b-fE8>8|UaRuH#$98-@& z2r&R$j|y1R=N8D~#{#@&W>_UR)O&xidNm3=^7t=@2}>!DM4o?nFU5&O+P69;;>g7Z zCwH_S2LNtD&D-8M@Edu&N!8c<*GYHDkp z8^gQ>7=ldK=iK;bA^Eayt$M7z+OOK3OnB2#h;Phxk;&d^e;iZf+yWct1!i3?G3~e! zJ@oGu#psI#0KB*GqbGq`T13DHnq<0&*l6@1{K&^}gd^xn8^!4^xD9=if+%7$Qk+!h zLwz^^Fx6u<1_fal3I7L1Fzo30Qyc0sXroW+pA*6D|9ZT;hKwm*%Ej$Jc5Ai9sx2Jz zBoq;MFZ|T2G}sEIxbf==@ZVZNBu2#oygiB-cnsbaQ#=N;m8M;|8GD-b-@Xc<01wX- zDiR{RHu5pWsrgTKvvPK!TN%&i@<>TiHBRrsTzb@O{}19m&i_y1KDHm+>^%QBabM0x z99Yh^^b*YAF8B$JCRIQ%7zVD#8fr?OAM7%yjPb*bqt;1<`s>@@M~+lR6}$5#HALc? zS7ue3TkNu!nCy}3#+;3oEXBbeL69R0o%MwSkWA0(=!DuvOMq`*#O}nAu24YB3NZ7+ z|FkB^Q&K3%^J6fh)#DFY0iHakDphv@Rxi?1+PeTZy!t`qP89mR-R?huLGKd)aI_-U zBP21k3o2j~WJT`i-_;||jpy^8S<2KKw8Cy^)DC>~oV)FUp4HU0pkqBY1zzY+0-!-D z-a%xQuMOADyk*xT3)QSq0yci0c?7%}Q?2RvIG%#<1R_G$9!!;*9`B$Zhz-6uG;f;{f-o}2_A&9STh8y$7WX@AWXtG%M z34%(?66$oo$c^ex;_n1vpCJPxu1&PkF5w2?;GcnsRxKu%B~Y{ez7>9+`*w-Je)?m~`8z?+239lab8A$z zzCu2Cqkn&(N>7t%d@S5?j+67rs2mGK7XMN`NaNaY!{?Kr;UMlRN9{`-i28_((9iM{ zlxnhHsA3NVYKMz&f%$q*z~b7IH0jUnugqT%6~D@AONh^Nr-h&HqdPv#QoWaa`U-Pa z|2?l>5F_Hr125t_yO;dAK7^I07K5-`AS5SqcjdkIwmeB5%Fp7ubftKd11jW}zIVIr zTJbF3H$Bq2ZfvolP4`hBAAWPuzpLFv+0c0j!HIw%2^m94SZ)Vg>Yd04U$uwn?OPqj z(s`To@Cl(UN#al~=Q{Dq$B=Uyo~9%Dm7})R)>P8N^c&1Q`l1n^o324mF4FxedD7>S zkOx~UK9=X~?F{7Aon!Dt?5IN!xLvEQr@<8~j+cKc5>Ho$aDO z(zu(Sj-mA2&FWfj=0w_+XJjY_hT2o;jT30d@jeOMr>aaq@zE&;TJf{u?duIP_R zHUJRMWjcr_hp?$##v>UQEeM%&q8 z?G201^bE`m-R90d4deW<)kpDQH8>kklnG8RI5>BsEOR|0SvlfaHS6Pe_C5CL{K!fk zsRW0;5C3+odW8PoHYG)qmhab*tM_+KwVkqq=o?vdcDj0RvTKqLc}~$rZJ_x= zmHXJ~fsuoJVhG&VK7%Lz68r^8w-AB21)uZ-IEr`cUf!7vW`N1oIWy_-*CbOccrqeCyIWmj6M57YockRk#x`1X;*MMi`_+Lu=5vmzx`1y zRsRm8=RJA!btIXLkiR%7IzW3|QuwedZ*r=s$2x`7}b8*Y7fR`QaI@uCP#nsvWo)=^d1f z1?RM0gT3#KjXe)r6zcQOchCp~on zd38pWJjd4`Z`-BCgqR?32X>sTFu7R2Gh%uYU;Xhdiwb?!?2pZJqhV=#rL7=?9aAlJ*VRk=w$*OdYnY>)3oF3QpI1|!CM$fxfCoBE=rPkH(NWPd z?$`}Ev^8qM7oiP{7)(w&WM=QW z+UFUf_$8Pi5Wz>Uq5piKpntZ{hzW_QSV#hWh1Bjhrt;j$BOv*m5V{$z(0U23%6DH3 zGP<19G6s%xi0k%(MOYwxdOSlWzOm_PZ81nyWhn>7@dxe8CQSOQfoYv@UofvJswgaY zn@INa+Q1fXrdySyqrM6sR@5g&zuTRSY^4m-QqXsVoiNYkIQeQKVWCV%D%XBWIuIXNHq$A=0CD!6pG z*&vM`y!s`;A+TJoiT09?dGT7dFXPUpl%)RaQb3EL7^{`%7`uf90;ScmC;Wqy6kPa{ z@`fFo^bZUN_=H0zV*hwdQT8$wd=+uJUb;;uNu!w;?vIQW}Hh2loEs^CwejZ>94LQwZ(LR z)Yb-}EX}1>!yxFZW=wlA_4^GQOT%00>>CAPy%o+nN>Pu#F8HFRm4%xHohar`)eWK)#t18&6R{v;j5q#PAHX%Ux+Uc5_oLohy zbvvCGfSb-^+p&(q_a?0)ZP-2mfCU~vxZ7rmKH5_||792C`@0dB`8Q&d9=wmpNh8HD zsDa-}fBi|a2VC*s+)RP9zY+7Ff8&h?Mhggz<@`k;{pF7e;qLZO@kDz7IyqgP{7+=nacTP_Mi$??q-a6qVWd>Q9s0CK$I+U%9mb9kYNd77RQ>gL zT1-#LIQo13x9jU(p*P5NkPuB1@%!UL(37>&yYDM7C?MMl;zYsic6Ime$V!c7io*|W zASFn62Mv$LGFPNOS@4ckr&Dm>)RHLh-I~N_`M!Cmy{FY?S*pg|PTs&#aMQneWHx?Y z9<9bYyTM8cg6(xtUUOq%xrq^H_lI?7; zt#6TvetURvzF8JCYd3g-dwoharBmwFOY@HlWq!N5^gf==A!tmPxrnx`H)srudIniZ z%scfmSx4^Jjtu#Bo|nE(HeD^Qm0qyoml_8RV?0lLRq%9SadP$poxc)4;h&?3-qc6c zJWSZ_hIRgcTO9A+kl(t{&{+ktc8Pp7-)Z|t^{Vol@~MRCY92jXUzl2TuIui4DQx0O zq$%cl+iz&$K3dK~t2VXyQP4!`$v(Y71x z3#-((V9D`|aD4DA@*|O8r^0tI^6YNy&)d8jp5O2N1T1qnr&!5*aZ9;eY}GfS6jnC6 z`?^9nhULH6KFZGd%(MUTvkr~Ca)CD<4A-^dZw3chlrXBM<6hDx*juyF-Hdo=L5ajM zKX(NE^`8EdC8iM(KkQ88!AMkK{4p1+ogHW7l!m3;kKkJmhEtuZQ9r|Z7duKzaKh)?>o zSm}21kfVK$GE(=(#W{b=RgDDn@8N0pDBbaPPfoAan^+1?r&g0gl47UKkq|4>9< zwS|R349y+=Y(|nxKH?nvNKbK^TGT^sPPfA$QT^N89U*7T*>(jM;fzaQ>o*b!YO>OEcI*nN(v?72$>&KQ`Iw5^TNh$eQcm)Xb0v(A1z zMimm1A7Rp%9J2OXAI1KU1fh0kPb*ZyH!h`7!~%|`opwe6n<fD~6M2ebT*0cWhFW_o~A$gcd=e4CA*C|Ssc*)M<)VzqhhEsO&&!1eD5u9!E^k~m_ zHd8mpr(by+ty6bvq-DtQS;zIgwL*?3Pb+q*ski&MkmCQOBE5|E9mb_2t%qpcFPG1Sv|+k2 z#U-~Z9UMq@zD3Hr?0?SC`v@}@c z_YnRiD|8nGGGN=(z~q8S47{%Y?q|l?)7W1r%-B`8ENE7mvy1ef=hlz{|2~pX4R@Kr zG047o97NuFRof`3gXKrM3_mjZu}E^zJ;HkPI@ylaHe9*)ewDP77#jcPoTyReIgpte zZN!q%)zNEuc;?Ly%lKV)Q*3<$81Ad<$%hZV)Oy zy^cJ+2Vg`uTO@&*>;acm&`59)nX9RB#~^E~MJ4N?NAK0aMDwadoLM3QQL0AT_uQt| zzPL!IFpB{4kS#`$I}z+hmM~M7dIe5ibzcb|VIG`?PoAB*h`I|qrPwO-{v3{{}$XDo{7%ULLu zI1bfR_sz!Np&Vt-VBnlwmzSpt&C;J^#k*^_xl3e4#M5;bOoy02X~KXAt(UmCNB$v_ z3J=My4Yo&=K>{O^bPqh!G>o4-t?5Jk!&U@r={;@D#SV1V*Le;vBtK$RQLQi4?aB3{ zGrCq#LdFEjBKovk)`D%< z9o^itp^30_X_SC&FV-n0d8#iN!onyC>1;ia1pl(HZ(JbF{MmHQOum0vnIBZ=7cb%Y zb2G$bbJ<9yx-nSS(+7+`$F#ggQZ&G@{g3gCe>u~3B4U{c4KGhte@ff5U)_3w_cXqW z!$-+3r`a*=uHHk+RA;;vMZhEnUrb#f}$>D?+{)`l~cYmaIjTuG6e|Qu~|K0VC+EgarA9akgZ2FJpEvV`Ld*PLxgbDh`G)B0`$>_ljHsLb)6w#(C?3h!y7QXn%~#!5L$Y_pY*2r z_A-k2S}z)8uM7yZpH0G;U|)aFbeN5VAN)wvbwpik+)CMn!uD!oqMaRj{T8+hy(s%_ zeZA9(Q7NgwbsgruI*N){ZiZgeg>*J!6+9Zg@4wzgyVfzg^JBUHI{%|EzkT5?slff; zIBSt#gt>}w?v|UIMlPa{4FmB{U-=b{++=ojUy}-3vd@4p91js096Tmn?wDNbAEY$l zK=sL}<&yyg@fFq&`IGkMWAo@`j~<`Tg5Pw@>b=(>1)_dNE|8Ru2|iDcb=C$wVg|`f zx-0Gd)B9$dXP2fAG#5%KWjdVSs&SL`g1u7ai9@b73O!Cc#(9*fcD3*o zIu{+Q*elA|J)`+a5lXnWqv;azwW5~q-~4i9PP6mH5{qS`miygAvu(mUFbck<94w=Z z)|5?qMJ+eG)Fh=EofiquI~gghZ7SY2sjd30D!Z&ED1Wy{OVRheOot;InQ44c~|gxIm_e_D-x`KvjNY9L=Z_6(der z_%fxUQmavIepCM6>F2Djj>_Dz(V6I}Ra2sNmSZzBP8s#@=*-Wi;A5#h~|mjk`r^)H3wd5CL6mmq(NLRJF4g>(S($!c!^`K^pzIrQiu767uuvX%XSPsX%Dq`nT)AF9#j0CIg!Xjm2h4 zZ7!nM0s%E}X6+i-^Aw^li^!L{qL5Fq^k)qKR7K6aD&=6>5HXamIQv2@)%WYB3lotKcYe*qtvX*F$zA(i?nQE2O_7wnG(ev7-Ke; z4@u7djGC=Y%}1Ectsjz15y>-;l5hpSoksqP6olm!g*77u6zf=+soc5gxKD878C)?S zmP|w%Xl(E6a6bFjTDM0kA#5fBz33!~am=+ezs!nX|oU&d>0KYtm(qHVaWM~}n9 z6T73)bQIs0V0R3J*eJc!NA6sCRz!NM$$!cH)7mV{O(itvyef=nNG&QHfnOI3*Rv$# z6DPTu>#f@sPvniQ5m@R<_m2M)opm;^*hv|@GBIoBMki&lkz+(b>eE-Jo2}icmP>@* z{=1H{9cU2}*Bp3Ob zt&-A=3uO)e_T7L4`6EL|;fB<@JDwLvW0CC4K!6I*{H(Zk_*c!badN#>BRP-@wtl8w zVNq7?CgAlDv38SyXSQF?d|Iz~-W*2W-aM0oZR7Gm*aj{<`s@rPhC!;lkB5XrCG z52`P)_;xJ+f`o_4D$?96u8I^6IRA5tKk0?J{P)zGvkXMqJ6P40RMdBvq5hoqF4`9HIRN8mr{II7ITutB*h@~K#d8}8WCkZ1~g`XN(kp02n zruOJ^c^FajjU-9N)@k%J@jBN6lKrIopck;-oY74`WCEYyn+X(VDI#cM=Zl5xvqfmp z7gl84bz)MvJZ>JbS^*PhY@(KcxkQLmsn8C|8HNYLpsi_a_h*98z?^PTf~Ua5?)so{ z6NpqkV3h<$*vjb`HE*57R#K>md*H@d9P`q9X8UguS}byr(`o})9uh7SCk;WAHS}NF zzM6T7hDb>c@!L7=Dv7r{YOzxU(gHr#X{`87?4C&XLH1=a4U+Dq1nV* z29(8W+!8VWsdTW}p(i-(W2`wiI?+QWnH`DHyv?X_2hIbvmuyTg8U+WwtBds^Fxs4k zX$x>38GHurCM)pOD6_KZ;0?B0pD$ZZoV!r*^C= zy-r#4yf33S!rm4&edS}I3FoSLhja9vA>26Yt1~f+nlfKtXCqx+&N9{XOZ}Ezthf=) z0E=MY=5iyZf%F%gm2-sCgJ`a#ni+kto|chKx6u2%4xmY;^xmX+rN?Dw5gyZ z^&0w1(MT02kWRiWm%wJ#MV4U1c1QbEolh%UY|h{IwC{uIpccH@y-uI327ij5(Ls`s zF$WduU(#j}b*EdV&}m^#{lt5%OO=qAPmdJiSWH}Cu107IAvOX#!udJY*p<#j%U{=> zeXpIrx}D2pAVEjBQ{`Zr4r?1nMd^+2&p`?A zTgxmCjHIZ#lVQk5Zq}^xBx1_f-=9r_ToDfCZIoefO9_B-7&S35{g0d$y)tBf!)Y?P z1ttY>dr&Kmz870Wr1c0i+6VvRKFG%x#ipLl^sUqi3QqLGlZ>A7!I#ly#D(Elh=T@%AbfhdFAC zWeg)2$qwLixGS-Wz0ZYYibgZlB^Zm|XtDt;L6>J|Tqi`z*IO4{2^L?S-7TD=ln$ru ztsx{#6c&Mn+$C9(W^>=~N-dp)c$u3dlC{3C`BN$4B2h;DXU^AFFh6r4_G7^#1BKYx z_HQIbR7>Gfo<44d-&{2AB2>#|Nnv<&ewZh7hN=)ewK_fyq)S7!+vB}lOZ^>nn#N*` zUl_}2>`bRt#D%sAFZZG^QoP458Q;pDfvyW1I^H<;3HN92k@T0)@w3)Eb<^lWoSric zm7v$rf2f3S-Wp228Ya;f@mlxq?OOLD$1EKI@VI4!YqGXDWf;roC*b%$=1*wv=T>1C zU6(&{hGSl;nY>GuGVCg5)kXf z#uPh;`N+SVCo6om%?Vl>nz#_Emu15h6IYI(DbpS}-*40X`WwkTtkN|!^RBfL7KFu1 z3=2KHE^zk%Md?QjnvuAURM{k?#eVT@VQFwva?*lQBM%|srl(?j?e4}>+AASvA15wo z5WRKoCiyuQzU8AEuPOFaY1MQnb3)dep{?CwKlW@M$lQ=(I1S6>UeVqaLi+lT?_?*0 zQPeUeM!E5u1<0$%_F`DSVtHskyO=I*${h@f&O02!c99k!&0bCLk0;GtRkm_JrVG5g z6IlzD=Wc%e8k0*7JwJ+xt5_0Dczx^pI+%J^J4?0fJuFY;N4-9-4X9GWlg7eCHcwQM z&itae+z2>Q6=+WUFgk!*DP9P^;w6B)N2i&}b^Are9IdTp+%Jgp;ESc>Jde4vRP#Md zFs3|JU8MDwt$!K*$Uas}3pd^CQa9<>^VGwXZdtBlV*$LZ z8Yzfj6;riiG-u43BGJ9kQN9s0iIE>OAnsCK2;u zufPyGQe6el81o4^=X41^=Ja{=Y$FrdJ+L8X%IggVvaKed(`(0ZsCs5yd+)A!u@#RG z+##(0@7>InO5?Ih<%RU7rddSDx?Y!8EctDw_Cx(1+$|6^k=-~OiYwzU;#I2+>Syvd zT|m(}#0bXly4>MgpaWsNi64KNmwib&Sif(0zIIKcukayAhTg12+>+*J$bDRAOv0!g zbltkL{Y&1LOIAM;K9)twClLZ@QJ4m{=W5oFnQFI2f+GpP{Br-a*Yw%;?QR3_!r{j4ZofNkB`4jtn1%e0k9;%NHI_-k84_x!nEVd!_%TBAU7 zcC$_V7YX+NVeA`&Gz*qCXL{P*)3$Bfwr$%sr)}G|ZS!s0wry_T?{37#M(mG`I8}Kf zPbvS@DLnaPLCi2=`r#J7L^x_?p{@eRuXNV zPT1(G^nZDKh}D+@U%Zm7>!ZFwO-0a6M3j@Se@2pebqQ7otNlYe9D#>T;_&YgYFUOU%f<$X zN2NsT(?{x^=O=8CwQn-Z7`&^~n&w}!leSN$_8?n>MrgrC+!~zQQ%*d(yrbBhZLM!o zQr3=z)|zd__g~bV>0c8L#so9u!+Fnm8dF%~vbuosVg86r_*;u{3D@858_A9*LMiJ( zLEgO?$(|CK#}gTpAF<~V&1T@a+I|VZomp2%A7=Pm+Np`fNC9tvqt^C-lW<7)aAK`}cff&u!iSdU~ z2i#e&Q;h=7(@lxcE4Tu8xUTpOTjC7F2fGA#Qdi08->6=4n+qJG{nNJHvFh&6>3 z(ihyH$H<;|<(f*AAETb9o&B(VyDV`{z<99aHM~l%4!F*Kw#0mcipUvI{y!k2%>M^6 z%ER-Y@3saOkn}A7M@uVcYvW{WU{~y6X_g_K(U%~KS@t+vd z3V00vL8L0+X+zQqI@sC?*t-2RLPzsc;U}>%(bKRq(9tpBF|#w%F#f#J|EHj|v5~p{ z|5r&leTScM;r&mCkhBWMj<(JYhQ^L~4F9o7;YVZZr0-;mM+Zr(;E>A;XlUw$678fNLmqdD<@+IJX#T}pDIGehPFn=khD_9Hl|KyKUT9cvj5*`S?_V1 z1FnXHE!n)s-)3?M&YqF#SzvT@_q64(boXBoWfYPVqZ4pN?JG2{=YM!|IjB^`iG)SA z{BONa_Fj7^x<^WRfxla9&bHQ%KFmvbzB)g*TRdI`sjEuLVg}Scd%o|N7OoZVUynJu zMs7dK%Dy_CwV!#4?~i}qBJO?Cb>)2L6hB3dFO$9S+J3)Z`dV)d*nLesZRFRSk#y_& zP&6NVrp~?Fy-s25Ciss$-=}D0KNNNY@BGBB0quC}x~#eU{>4#v)O9{}IdZP}H11u! zdqz&;1%5u{SC-;O}wHux_B}m^3oW zLwjBS5$A8BZEIYBp-Ju4W!KQ5jic(sXq&zd3R?ZffU~Wq+t+-PzGe5NQ1E9nfaS+~ z@@^#sutar#wFO8f73@xmLY^uET`Odi7s!L?gn#ZsDeR4=fvTkf_QzPUe4 z+wOiO`ECtg-TPq#%0lwgpwjzP&%F@;+GgV0e0NSmui<5*Wk3E6={^MQengO7LfW|r zov`Ho8JPmoS@u5WtA_5m0eY-2mvhj9<&wR8=I?IC$_uE+|CY-cKB+4soxH~ikYrzq zY;>1+dU6o0(Yv{L1@Y72vpS_yOFHWQvf@r7{*7;nr?d&KGzoz{%<_eN#W#iQalC<#ClYegBW z14?Jxi7s9sY-IMka+9{&hmG|^CBE765i`i^Fzc-PGR!)gfyw;U&i_y-z{k~p>7VqI zGf&x}{m4;cjb(AG+Mn8%jaBA~AIJ5DG*{%~w9Bg`h&7fcOci)(KS*3E?pBsYJVI@h z*}wPPwuEjKf$4Y$Pve%FA@S5Mhsepg<~*jM>0dx7c^~B!q_>z5H19AB*3?xr0?W-t zh#K1|QkwO&5KPRLu@+F+4PXk-8=b6x4Mx84dlT>y3>`8Poa<#)E8 zW8CAWIoT3K_x)uRzIxp+`Rz1m*3*Pe%Kda1elwcnUMAyo9oap&U#*xt;*!2LDaBWx z7NpGQtzMH+m^#>fMr^#go|{s<;Smoo3N$85oe|Y}W~PTcC3;t07dnt8E+LcTFG2&& z(F6VLXT>_146e=x;qr=KjRsqZyhU*=v@5*EQnNZgM=&Hl_lR|}XC`1KQIzzefr6Y9 zsjMi%p^Zt@Nb+qX2#F#~Eb5E_Xki6ltXtOSv zHS)Lq#p(rU72EV5if#o1M@-h|68}71Kt%_%mxd4lx~Q~r{)@I2OLZTyDM#+{y$#2g z?jQlxdp6{b!)v+EPTC5p36d>P2BD{H^c7HvV#iP+F$wyH@a9mgl3_Z4_TYiVeTU>%;?^+gZIiMxO_c?qF4b>e|1TJK?`WS^iD+=jt+*`5b@ zfKxw1>x;J@Bd9A&xh9acxUh{aY|@Rqj;LN*Y7ueL)pB-lky~L+(w&rrYYGx^N+w_e z+BfvJrETDcoZFmj+tdR#=Q{nF39V@)TQ7d$3>a(2B?7*RHJ)!0pyW$mW<$B>j&+@R zXoK45a<@Li-pe9ScLyawFz@YLT*l`+cvl~DdEqSW7$7p^dm3YK0-R&&ehs2&p4?4t zH_o#B<=DktHCv2CV`%C7iYU1583rMpEhybFeyIIHl02J_Y*BVLqH`aKDD|MtErv$f zNGn=~OK}^?cWElZ1+-wemQJ;)&A8Z!_}fIg`0LU5;Kb|1f;{n`9$^1AwK9-Y@OQ6! z@B*V8W3bDLu7gR-1=tPE8j@pNI9}_7{#|MFw~(-Twgvvf0Sw@Do5PgdPsZ>HIIMwR z4mWFq9lDw4dvo{PCi0xlX+f6cr(2Z;ZFaTWA6O-y$bR*DBYBlvRk^60J}UTBVfI+S zMkwV}lN)ODmJpn)3`rXRVC-8kf)OV5LY`yr;$3D@diSvH)5e{!58Ueaa7jkm%k1cV zSVuzEW2FG9r#$rWPf>r*Q-F3{tSnDnvRUAstkg7k{}Uow+52jvp}!Ac59YX6q4W%O zi?D+Q#4-dYmqN>pLIW<+eV14Cvu@V`0Xq@wy!Agsr^h>c>^<47V=i66NMVHI;2y$9 zek?L^?h-peQPvq9qZjLjOswExr2)*2ch(dkxGOI7XIlX+h=00S)_xY8)<|%e^@0B! z3b|i|l!+X~b{Ux-VA4m|#kUwCnTE~dCNF$}xc!*Zjg za=p++v;5Sr+D_n!c<3C)<7~D9c=FGBJ{%l(p~0!+Cg3EUg9@P92I_cyjQb3U+JqV3 zHm-8mFpSO3TiBf-oHe$aH0xyI7b7n2Rw@6JZ8vHsyUZANd{{P**LQT1Xl_y3rfhmz z)iilH&v(f_eyZ#G6(_G{uJJi)|2c?_tuDXpFcTnc`h-uf7!V}AJA40!gFw)?0Ia^l zCGWiV`}h5qy@%mfdcu=*?tmcBdOS|_E&D5|y@VZ-jZ|A7T6mL8Xmw9(pXkIwht#|@ z#9%%oW?N&xHmltMDK9SxZwtvAWCsEc0uiINb)CVAVw}7;7f!Hki7Z9Jl2$6%kP0e=W-PPPkZ z)$_w7(K_`n|N0Km=L;^ye*L$kKFOhQ3cc_-G97Wb!)JRMf{dYlg7b-i#yH>rd$}Bp zwsijn)&S8`4(;_rg>0XNx{MJfUhxCNoP!9ZY@Kr*rEL74Fq9ih z|A^jY*MG)nt@?C!8f6gz z*8~|z9g2=gZrF%>t;CTe#YQqgG7mxo@LWR^pYsdKhCVRrq&ia=O*R+lTLj+rBeCM| zTR8eK2a4QvxWnv2EeuMFRe>EG7Qom)a+o-cHR673(|9AaEXTdD_pM$&nZzp^dKE6c zqnEBHzN+@EVpruvvH>I4{k8@v3FP+@UU}t9sv6RQ+bUxzj~k1=#5D7C{d$5@mX)zJ zZMs#_ibP(25jyA6y&Kp8h14@ep~402XKLFB0I0JA9z7M9wc0EwVhpN{>i5I{-UCb7 zi2P!BDBRugvA1}r5&)b>W@38K$v$i#ZCHCCY5bvTu`abF-TnGo}HB4xs9QxM`pn(bv4!Um&ZAmIxK7?^l<(@&UTf!_oCzs z?aMvWTrYc(rsSba?Nf}*nOO340Ne>-LI1^q+mckhra&vRRt~V@uw?uMO(9(Ar|U|n zpw#7FXF>qa0Y5@yNNlf@Whd}3h73Tv6{c*vC_jX#q^NjWGj!#>)#tJAA${hNK+>Fr z>4?3UD}L}X4B}r`ol4?6u(+scW#_Nv#B#MM0V5YfmxcMKdabYoc|J}886BLISV3*cI_94 zEk-=upMzmqAUN2f_CQcQ+-0IBx6n6BiFt$l6!zcy7@u^qSBz92@%kG=%Mk{1d!~Ig z{fE6SkE8BEmMGh;NVZCtQQ%w7CB?*%=O644L|h_XQ+Pbk8$uxoYglL!Ueo1X5b#(v zrAa{|jh1yr3Ye)_QtrrlbU}w5Sm9cJ(i#8jAwnSzFf9>fSYVdx&ACa*t ziSs{m+f_(gaUH>81P**}sFu^93aUt3J$O)lWQyqjVedfy z%}I(WMwywv*t=0*(35gw7j27KC)s;>oxikP0%MR@qW_f^g*E2Edyo+Awgck*uwwF* zKRsV1en!nYxAsLj`5@ zfjt_pB}M__2v}25*R!?OrbFPYZ;fvxS3wP3J4Vm6?NUP}Ysf2oZC^&OlSc)AmArDM zbM`ArclWD=C>^d;0w&wHUejQ@pg>l7S`*2R4vNe`stBy)(9tWi2cDONTJ23Dbwkg} zkl27SzV;B@sNtBTJTUC$RA91YWt&f40FBQ=QxVdjVM|*Mk$Tp2oj#S?r{TJq&rVId z4yZRg8I3K{J;kE+ZUd6&#u$@@f2c4dMNHLw1D^d06Xbm=@^#0mAKq=%<>7UwEnjk4r4)f0?1dl0t5;pvdoPX1PFQd)eL zL-Zb}M27x5d+LJ4pu_NK`vXw;`{-8k-kB2|$;2k&t zgXqH#S%`x^ytd3f>OH&?kp`<~m0l-3{#zo2-B4QTh=yqW--GGD{DM~+8EEKkHu4*f zqPw8UR?xEM!6@lamgrsI!~zOj*3b`y;dzmp*bJD#7g9>IurrJp&4iIez5w<3@+LFS z;$t9niyATnW%PuJ#6CLHrr-nE5@bMv^Jr?+;9q%vrFwOd&2xU8YR_prD+3+%a}%w4 zzN-T?pToO3sH>sMTs&eo_QqdzTq68oD7>dQ1_G*ba*gZpv1;(M&BKtrY}Neb)J8nw z$UfmPXCB|3#=jZWTMwePIx^doC8FT9$g;ue?c(lob`BSS78M2-fI<{P7oQQGw%c-x ztsf+7177-yiV$T0!)n$zsS;C9!_6}8hPX=n)~f%wI=ExaH7N{TV$ILX^Cg3mJ+|&B zx}0)cjM$8kAc_0g&Eo4Ai)W5JvUj8uOH7lxKo}yvrV40`y4=>}Q2`ptYcf31?K6lc zY-jz?j2k?<$UyQs?z06nXvqZDU;Cokqje}UfA7;owOjK#lG2w8luWoQdeNmZ4gATF zbcK-O2bLQwKYqngC^1@{bh+dsky58h&rG5o2g}&(89aOxe(rCqhkV{UJjF1&;57IS ztNruo_}rgKY4H_1*$cYB)nfg!e=mu;)@H^1^;mRllpv_^s$Nc&CrkT#| zR8Ief(FC2VfThXXwDKWn+4*n`9sAvx#JjJFG7zV?fskr2R#G6;ZD7ts**vd~iYj)W zs=piw!f?$vNNA`rZGm6?i;wvk8OgZrceVyXcs~%N;wmu>{b(pJ-kHla-+{;@~3TT#iI-eb%l7Yq-V z+Nl!)X}Dm#IDs~0X>)<5nbevH?q(3W#+CbJAW%jYlGp>D)nNgskA^V+53OJ55w332 zhWPLfuC={8Dio}5^sK8EU+^P{DSU~T4|c#v^uKy#p&n9WZ{4fCbtN|%L+-84R_Y;e zz0`5$GAYQTnG~MKS-r)P<^tq+JllN%J1xL2{tE#t|GMwiq@5f15A+lp2Z#u1`y5|w z`szg)2PmcN^V%KUZGAwncdX3S6Fif12ZS5g+-<2EEmV%B9bC==D9V-}unRj@zKNni z6e6ir)1(PVM}v%u;rwwLB4v%j+bT_vKh5}pu+6VyDQeNFcut5Al$(M>8Ph=hDrMiq(>@SuXdHRw#}W~vt4G+I6~y}`2GpG)D#*0#X;7i$adeI6 zo{#EA5xV%Hw1bZSHri=--)ETPi$8Sup>P1b$jfN`1aO03u91$D|j0~%xPdUFbb zq)-k-&39uDfXi`JbST4S_g6+2YF3*?i}_aaI!U}La{~~>sQshQ z8m1PO zArJuG*DHPq`34@^+@wMbzt6GW4G9DFvR|KZ2N{{4bbvS+LZq01n=Cdy()_!GTJCHa zCY+~=JjY~LBDpzcsteY$bL!J}pr<2qn0O>rSy8ciz-~~HC~S-GHC+JqIIxGEC$yVG zXcaM}CwDxhnJHQ!-25rehl%(3q|F^k_c*&13HV#GM-{t6N%z?@YCq*~YRHbcMbtdV$xc^zKZ{1b&|^ODS9t$-mT;Z3=}dI?GJTx`!}Bz4_|5e+ zt&2g&{v>PebCL7bZ+eyUh|am5vu}q5E!a_#;5O%a$kW;xeTLo!8|@UB;eh*857pAE zLQ>W=NMlzdchMggEj?TZpc#ua1nYR|Q#__JSJOw$me}a0!T5Hbo*o`mGRV@dG%~ar zU%s9iUZFID<-Z_k`(+lPb%4_qprz)7yIpECI$SIF7`}=Yz_JSIn9r$=Ht9aNl%ElY6E z^NYf8ILySk&BO&n8=WjJbggwGyI!1!btf}6E4SXdhIY>Z=LtSIV?&3WR5;rvU|rv= z<=0r}bhAp(NnuxLi`g&aa7c z=nX(Q0`Y{iuiYkiJA0Cqyttz9Lf}y$%Yz}B&wYCl&aa7O@DA<9$*(b*xGL5EipsCq zRv(xci&U{l9e*6#)*i@g>Es-X?9L5#PmSgZpmn{7sZtW)rF!FNeTS+nd$n3OVVfT+6t6p5(g|TxmGj!E)>F_r!OUSSrYuZ~z+o4wZBwHrTp{G?iIP3a zLPLuM*@=w`k&G{N_o;6~89wB7*EF8JFTh9m*(k@{(3D9~MAkbGBAX-=<_!R@%xN~WFKvTIl~y2vNA8bUtQbkzNa&`~dqn8z$JFIM zqpJKiO|c5OC|k8X9tj|_V$z2!r$hN-eHu$#x;&fbVo_Udp&V9}X89dF`G9*dAyxlV;Dx^S&O}7JdBsVz zAKyddGK|l^qua6%m^Rq$vWza7(Fb?qC4_BW-#U^4rk0-8_J-W?wj(2b;BAZQNkywrWT1Ker5HGQ~ga9IwQ8K?PQA7?lC zc3v%M-1FXAg?+T?ln?imR#(s5Yhvb!(KToZfAG6T*&PrAHHo?{h`Dpdq;1!29~=wE zR)88-7x=tGo|w@ZSrci6SwB-i4eZfwzipE4bf2Aj+(oJ?E^9q>Y|KkmbBiXq&)5@5 z@RPnLZu9e6(6*5$;t8hJwRfz!=gQWTtx?}qJl2bQYS5d45mV0um6T6}6vGQ2^si6X z$^L`&?q+p1!dh@s;N||-k4HKv-vz1(!)ixAs?bz0RDlGn7xsRa&H$Dg6rswtiP3Y31zY+P6>4&zkv0gDD3B$B+fZUH z2ehJ+BH5MrW|nT6{Y*a+Z{D4Jzkho!1@P>n!J*5*0vU|&*u%KPZQ1LFDSHkSwiY~R zqwfti0x|XB&Z0lWa3JYstZl}9Tu4g_^3o=3N&HhJHNe(h_ z)s!#bGs$kg6+`hNv+yJb!f^`wi3l-9Oh6e_J{5)RmLwDoTEWx!fr0}#khlYSTSEhV z92-h>HSQ{hF<0W%cm`3k)N_RznirD?s#-I{Tv}2l-$`97r+cJI#fHsI-48f6 za)jd1d)YeT6q={e^c>H~#=knz1*BzkQi__i1VQVbT!zwIo^FBT->4XBp6&K~L8eE6a#xUwFq~}5Sl5?1)@*?uk!vR^8-DLPHLT?IF zQr7)omyRPdKVa^`CJkF+9vL$Kqu9D;!Y&z7d~>6TQpJ8U39JaJf+5Ft+~p$1O_;Nn zd!&^(WqUYnW3q9q(9xCvQ*WQS5R@ocOVLsER-QaD2H4zPoSex zFVk+<1&_CA`5g9qSG?t9y$ftc=gQnNZBUj>| zUrP|SNP@-(m3!jQ8p~2;t?agPvcWx;@C|Aqc|vLJ3)3~*g2V&2FEh>8Krh44=uzZX zNEAb0xJZCex;o;`rB=GEv$)bZkv$*tIW~4`ux5sa%`WX(!NE$MAMw_S`_r2RdnwM& zQTLAOCJBmo%byoB#L+F`P!afJrK;6yfWReB=_^cDd6V*Fw0yqV?beDkdm*yrg4@@N zY_*#PbRqh)Z(19Nfkuk1h6>({fsFx2Z{-N@>oKpoNbuL}C;~;IpLe#kifb6AWc0$S zckrEN#;934@gW%763Y?bpyD;t$cXo+X)Q#UdBj~VHa3x^8%%A9ja-SXMiW*Cn_3~WR|KF zu+?IWp1kAGjN4|{gg25>E0w#|JO3P+9V)cUJ3xzV9%;3XuyJDTCeiyAcP|GHU(V-P z{}!`dVs|<}-j$pxI4B?!FG5zQgH>}lwGemDcj)bt2?g@EA#1g=P>Fjznng|2YMm4H ztabDX{*AYJH|A7)T=UmD^5`KsBtl=W%pZ5i5U&r$ve%4Dzjg}#n3gR}bAI!m5vdc@ zpIApq4aNiLINgbL6sf&PHD9hr3vT+5a+!vIo*cfB)9yikJVX9)Rq-K^Ay(JqTS49P zQF}sIy%|*$-q)i5#f3tXL)?NO;yTgI$Oe~XjAXeusW6YIz+jwa&dRplw}bT27@MX< z29^LLs0Cdi*<>)qTzdGLFTdAdsZArIiLnhVOcwYtawvxUV5@u!&ztFxr)(}ADYO~G z4NxL{6=l{)#zj3gZMHxVJ2Aq<0a836>Wm56XICp4WiVS2t4BXa=-eg$I`GP#|xO=nyq%D~*pwqmQJ@Hw-I8ziQ|G zAV+?oCosbPaNhDrkKfse<7T2?;|6x@I>x>`b}#|T`YnGT3RO0D)l&+K-B=avw9vtb2pOvwsC?g3)9 zZ$rKC{R1q3>9Ms4DyA4D3mH<1w^2yH! z(V|tTvT2t04W1jKK`y#ciw1bY%w&!jw$O*4%m zZUL8m$R-^CD@*mH&qjwHpjvnbLFj>w!OlmJdM&9`t^7!c-FkIj$Pk=sAsd90HTOsJ zTj>IAGMbBgHounlI(cG<&-2jX2b^s_ZgY6cO$Nt*BRYb z@tD;)?>NJer+<~I+#^7OV8*=}*4a0620g?CtEzI`T_`x4FSL{PNZ$2{S)j-s6Rc_x zrHvCA9+qpS%!n|wNolHH{+h*d&2D60u4#F`SgnlA9rKBxIYaf@K;M!*HNka%%Bb2_ zeWW>Kyk&KfzjmKlENC*8oW)ddLA0~OTL{okhN|aqaDmI(^FJ)dYp!Vw{9|>6F9i38 zo6|7?@y|2=2h_ENq{8+xw`{QXA8dwTcp`or`I7(FzHBeDAWlAVd}#@GK&;bdiU%HQaK-<87Djf6 zDWqXNFFlmUeFl-G4OZR5ReFeCV#4|tdZ(Q0e!f5Qu#Y<1BktP@^&VkKi_56x0|tz4 z;_?+3s_xS%zhb@Im0?On{qNKGgevmW4W@<8&N2}(l8*VT`Z)0xG%y7{1ZZxl>VX*= z12kqM`4n)+Oz?0>Q@C^jy)8*u2?cVEbBw%9$}$E^t0(*bJi@q?`kEYEc)S+6_$auR z2`eQS7i@+l)2&^jPzy`z_bmC0*!wQj$g$BSJC*h>R+JRaV_0fKFqG>pFu{&zWMfk^ z$`&q9_%ZiW9jQ=3X#?x3`v5@}%kDXLsnWBQS6Qh`AVR%xXVKMI#2U}OynDFmL> z>{_J~GN~k`vdAhDg+y4H-SvBmA&XDg z=#VG2Dl>AbdcK5Kv#tKhs`LeZOi?3GbgGYVDaDlP9TjeX_z#Z$XsFy*SB-~D_1+#f zUzeMO=sr!(_cvU0t6u!-JzZy!;V1fDl+!vg3U!olTg>#@iC`sZ)zkB-5GgTI>o-S> zWUd)1QCJfR*9X;-ub^EsNhNdZ+xwn#NY~w5gd5$Ondz*B!Wz~tV66xmCnMd|Eu-&^ zSl#{0-$qM4xl2J!97#t;MZSg*8J$#1CQ!3UC3OV)U$UwE0GE5T3B6Qh1}g6{3C3$W z4{YiLe&i8IyfVo~U7H@6RO0#j#?ipU#KPd#VtO2;zV5VWr32eF!vyLU$y8UBL_;a`tai?oU=Lppu8RfOQ!pgbQz49y=}@Ya?bKu&hBI zdM}5qx?koHnYIh2?@;U;biTHraiL4SFC>SIH3d#bNcp zMCY|kIW&eY?Ji0^K6hvhzJuag$3@OsBh6>{OK}=GQ zmF*J!GGGQu!^x$?)D1Opy4wK7mNSv%C^qbwV!Cae$*TQRl(4)aLRyuLdb!snnq2iW z{1dB2<<0&sAx?TrJ4saO+O>FF>zFv`_+CmNl|;Z;@{N(J(z@4{LZlB?zD)(pN9dpD z@2uZyLanO!n?%3A`5V-v*2?|m{%@g`17J>=mJ%JpDQ z^75AgU)`^(em*~7UhB+-*|J{28cg}Ms&enejl~Es1(hi+CuCWmjfb1EQ8La3q9N>5 z=hacjVY(DE1@BIJ+336b*21LTaUa1d7-d(-0~H!3s{DwMfSqwH;HXTY4+R*Yd~~w$ zf#87NEcQ1=7@$2qZY(-_}|fPYDaU!?)LS=mkGpbr10#FagcIib;7h+w^8u7c;` zfMEj8ol_j3d$6}k-Z0u;((Y7MB$dggA+-W{ZYI1)9HC*57$W{GgPMIUZ*i>yVVCt2~K{7?jwpkwm&ZQ-K98 z?~{tMw~XB=H~ZgP721*@BBG|>i+?TOl^bW^dqd3ecmHh*L%n}}?iHlZ4V07Zwv>)k zjpl>nItqOHDPyDA3?6I;uC_LjRR%KMN9ffLIO@pt1{^>@rf2+)PIPITB8m!1p+y0a z^2t-d>;(P}R9d%zkAFSBinUm$6mSr0YCAlkfsaqBM3_E-e|uE0p1e^o23Ih8;QV-d z?_lp@MU{c8DG{Esuv9%d+uL=eRo z@eT3Y%GI4%cyc*M-Ou(#_3PsAX{}V=(5yy}q}$fB{bGKMa3y=Ga@fmrMdj%aJKp*x zeTeY8LJ_xzLEp^NwK}~nD14crjg}=Cf;~ljCphkjK$5*A(D1U#`I<9)j~sb&x60YB z^~SmT9(j7jY?j zdU7GD^V^Kly~yTaAb2ER)g`v%EcgH!id>?*FOjNnYjE4ue@YPWvjFLObNfVe!f|41 zd~_!Yp0?PjVdo#Qyo=v@@iI_R#?#FAJgVIX#$Nq8K&1A=$8WLA%x$1T{{CUCtc|kC z%AKcu@5JnjLUgjjugkl8&;4QtAYFZxVs2*Vh!^*#}O^#Lsrhq9*k4Fct0>k3Y`D zs-P}CIrlrC$A$tWs%!&HT+PHN5w~A+?DK?wB8SGMM88T3qpuZDitO44!kAwz74jwH z9zI|JiZOML!LtribiTl`<*V)z4t2Q%OqF96N8(?~;X;F-8KY;?>PPk#V`kv%o_w#t zvzpPjMqH95IhjtoMG~s5i?R59oNwbckEZj)pHb6zeQRDu?_$qww!tu88Cc@mwbGo)4!#1c4q^q~=~?!2 z&uZcXJjq%1+(aKei)PlU6QHvM@lkhs6EraEJwif|9l9{C@?tSla5<42Dq^;)V%J?h zpNCI!WT1=%KIo{qkQ`t&UOXD@U==HUDg4vRO(9fNDwX$HG9hE{weNXdZ z-=E13f>CQmNR&kyaWYiV;rDLEl4j*&qBh}lI&nO0lV*)Ls@`6Z9Y`+acq#KP(4#-M z$>KPr$Nw%oHf9pOfbH76WUhX;X{WbOz%1Flrq4%#EDMr?ESC;?s(M|ZiXU8^XP$O( zKA*E`L!DLAPTc_OEF~<4v6BP>7@wEKmjR1|<2&_lcIOE>q?NI)%#mO<%$#ubze{!v z#!8Mj3yn2xtYtmoF#me^gNbilrful$boClW7SrmrNEDp^I^pby9>~eRe#9)I9ZuwC zKSp=^+m8j_8U9r`PEW=0ckUVq4ramKq}5NZ(~~A*jRA~w)JHlm z>)+kZjjK_#MaGJ|RAPFPFU>qfN2VQlKm5RKDe32tY;YK*InUh#Oh=>?PdEzO{@kbm zR?#-O=_4Zy$_~`srA*USk0wuOjnyW7H~WwX4+GZHN7`DU6fK>1+#jINJ=QwUKa1`h z*fqDeywqQ%Ye$P2=2HoEj`ReSr0|-x#D5k4)6O91a*L2yMSzOPm#5pcw7?$1E91g;>wMKO$U-;Y#EMw6<^2oA8bc z7ievxTx(E86ZpPAWU}q%yCYKtOYduGes{Hz1Sw~qGK=i~Ie2@?E!hWJw6PIO9wR}f zsl7#1_K#W?$6PsQR@7ywD`|Ank_gJFd!{*)QWW32Ub^ED2*>D~B|%|TyEnqH^koHn zF3A0h>4`gDihh-XzBGcJsZ8DSc;_yQx^P~ISKo=yw^hG1bkeV;0R)S+J-K|%sl`q3 zUh9Z46+SG2TtgU+X8hXqQIC7p^JnolV2N>=Ys3W+1+sI=g`e`HR1k3p!T-^V?j6&~|K^Y`U4M|rj@2rIcx6A9=y0_krR zBvf$8i%TJIsp&|J;<_Z@mxI+1D1eDIIdA)7(LfDR-gW9z;9;ffbh~dxt0P@pymVcN zEuD;1MVNJ?FUE#>kFQ6orQpvhV=l%BJMKoSKQR9MXg>Te#`2j{@@xUsA2fezaPHNA zSx+Un8T3P*_9dt+>xU7Cl5C@fRv#$B$%)F}E6DUt!T}MY`EDtx**~!2`SQ-%wmP2_ zKR*54N) zoPg?K@~DEpj~2>y}@L$leq!>99<^FzHUGNaTiim%)5ucQ2S| zAVk2-hMYwR;VNVtuzigfebpssTFQZDI$Y6VotGFqb&j*ch#YQr)%YEYah2X(JKo?3!5ApM@5NA*zwZB`2Tg2kF&3({&aTP5PS=b}hJXA-nSpz4VHeU@KG5wgu^(Pw2lLUtVE4q&}@~ zPW69*xICjxCU9H1`gTQVvQ%yxxZXF1Y<~XScR!>}E40*@BaB^aGC`yX^y(vg4Up`1 zs%+Wctfz~!i8xM&h`Xf*`X08~vZe*De!ZI{#IE>qO80Z+WIJE2>m#he^3glYE)$3I zs6z9K(8pS?$gv8PPn9=~qw-nr<2i5rEpyeSU1vbg0>pdj0!8<5#(5SCKMsy57g)-p zr6;PuZLsYyWS|_yK~k*m)>{eI5Qt^(GH~kqb?oDq@=w2cmqVpPY!ThqBEgh^{TAPc z%*R}ddn(DuqXAS`aSdihMfdySi$vnC>^^$-HFQ@BpU9gg3ih8FA(yI_pTe^s8K#Wg}i znntj<=;Ezb|Ne9@m+Eqj5t=FkCo1bmiWe$;je-E9673??bb%K%y_;uB1y_d2$iQ^Z7l6smgE{-dV@mRXZl3(a`kzd5Dfv z(v1uld!h$O+=Lu?Lh!(9%vMz1;2aV&emNy`i3J^wB`H{6I!61Z-P#xyM2k1H|7)-Re*%Bvvv zxj_9B+2Q%#5m{=O5mSMc#+(avv*_G^M&%9G`=X}8!+Uik#D<(x{bzcWnU1sN!0Kh? z__yj;^^V=Uy8gb*{;#3=a`zVxRxjjF3i-ok@nH8W14?(`Hi#*|u%lwr$&g*|u%lwr#u1wyUeA-&;=1Vj^;r zSY$?IMBcnOpAO0ZQ%xa-_r$*_+3!ET1cn|B+3DerlUfJM8AFkiVpYv8ptz6HispOC zO;yjH*Ns$UdG)}jEmK#j7pS0omdzTaXbPuBGI*B`yl1v?*iZ_k`?R$In9Oz|R}db< zHT%h^4qM}WQ*5|eHH*=3N;YguDCgS0a#}e#3wRb_S>CtFn1J5i+^s;0_IWC}=GwUB zr&c{?vynzs^QxYTR+%-Cp657mTB41J$vG=I62>i;h7$P zoc~<}V6E+|qht|lf!-X~;c@?ZxQh9zJ5JEwm_yC&Vvi8>DludRO?1Rly2ov2Yd6t9`n3eup~!yF49yYo^5I;)C#&-gL?RxNxmb2x3N_TqZqc;UifP)>UV;k* z`NYEwec`3}QVLq_bM@W1?2c@lJIJ&(%erY^_?MeGH;qPMUH5xtVbGqYzTt<g&9V{Jma`!?Ds{B& za6ODkx7>Q!?#xiLh1{J7bef~?qE=nm(RLGGux*Vve?s48Cba0X@3z`DPPqLJ89f_= zjAnPwqzS0Zqs^^aN_Op<8(kzeNeD*uWeHGK`ta3iF1-=K>8VPKPJxJ99J(R%EJ0Jk zJLq@Tg7&2A0ULg~72Fe_}Xp{PTsNSm&Msd=^oKp$_!_$_-Q`B?CZF?9^t zO;FcxsZTI53aDH$U^@gwxsihd=BrrJ5wkZu)R{ZKUZBIUX6cJK2^bet+~RB?$!jI+ zgNev3Y9YCs-tk7N;BsQepQGH#MqabUOe}@sd^YcORqL?RbT4_>x?XL`*t>Zg`KEBF z#|C%Q${HzYUB+~Z!m{S7RMz2*Ox7(mhrP_82y zbBrK>ZS0HS8E4J%RkEbZXTE=2Ov~5`!iiNCtxApgO~Oli_uDTHTz@L=U!4(-avJ%8 zqs{S-#CK~_&qups*<^~5JY*#IbBu#>g2rw6x>`c|BqJ?)1gQ|A%0bAh1!{zW1}#z* zGrHEQr4Z;)EK$Sm_4O-CM2EwRTf({pdRz-pL$p+ahIuPpHFl7V!@B6d$qFHQEfTgp zDsXpa1C1I{9~bmpJ(3f+{n3R@3ZyK2o<6R9`|y?pzVKKbMiit3IYHu%bq8U$7mU`Xp@Y-%5_q zlLq*dNK@Z0t8^e2uE9hNt6FGXQNxg1Wuiv78>`One*=jaxlh=gqXm)VGlHAcH(L4|L+V}LQ{nHGZeDbwT-inM*))u%qp%lK<~Y#X!|QR`x)ZQZ5~ z&0C09lRm@uY(dRiy{S}{N>b_gY?0=9j!fT@?hMZC^@_-+y%nc}M%M(+PC`RwPr&$Y z5tn>a1k~W2heqFYdCeVic&-fdt6?ZIY23VwY4~O(B{A;hU=c$-{vyas@FQoBD3kkW zs+E7clTOA5E#-E0$@s1F2+Az3zKuJ6@j)P(+q$!zl`Fo5J>InSBOjs!qBKfuafyu_@6MN2{J_U zAcSR1K1&zSmdr&d?ClfAY0FgHfY= z&&N{^3oE=Im|p&Ah$NaX*W9W<&vF?Ky7j#OBfy#wt^(=q8Erdro$Pjo`rs?wL4s!N(wCLGn(g>{i1j}%tT!8j`G?7$y|6j$W3?2?qw zFsoF^g4JV zI#Eiy1z$7Ev@eqRCFwh9f(xQLA+!I5Zmp*3u2dp*rKLt4Q+a@YG-(o{PwOkmA|K2_ zmTZvjWb){E7x}^#Dd(r)l&Yq6*GyN+f&(#^19eDLV+i2l*K~1~Y*~!dAa=HhKIFnU zo3I0SC8Ht!zDkN6Lgbg@^d8v>tvY>8aAyCuXm+(nHlhnGf~ds#l_<^>c3)qg=&U6` zjy*_68O->;AbiaHt`#HZMZ3*!R2a}NA}mZ~T6yJy_8d#J9rwNH`vkJMb1H1RB})H= zQ2j|Y&{=woZuggB#>^U(!$f?5YlvIkK1W_W7^Wmm&i)6VhxHER{{Yhbhb{B}p|UVB za4@m{FDlDK>{0jXc5klGB}{#OKxS^gKM=hQ{S64q-Dgn3Gsw$m-EB2Zgn2jtX-Q+~ z&8(iOxMlG;^C;()-lc~Ak7|J@?#0%>585jit-)We8iT)DYn}{$+q=IWAMoja{vQ8y zv)r{k5&x}-SsEMZtUN!o{`=ikX*>h+oOYTjkl_vv2|=%+m{u$SMay} z>-zS(*~nIe##g852X=Mn;`wH&CGO`V8$+v4QhfXF+ZnnA z;B^Tnt;SwH2Y$T(7ZZt3`Fu)EZ3raK&7N$ehQ7H75*G3xM+x6|17!y zvGP#Hgoud&WT!2t#?6%kVqLK0?b2+*-oTko`%+}g{Z1N_PxtXk2xd~ix`YVx$>x)V zW7DUvweI&Ok7`{gxOit}D{bPYC0t!d0wZ10LCZBTi?Qf0WysDj zB`PpE$avdJI+5i9KvJE_pOvEs_x8C2vnrQZhVcw|qSDD7DOU`c1ZeAt=<)S5<`yw= zJY-t_7L_Smh`r?bd{dheCQ;$b)6;ggCTwDQ4w&*7KVB4fsdTQ~0V$P~eyUyC%)w88 zf>m6zFcuGZ2CO?7eV9Qf*k|=WZCh=))rgz;|1e(IduFkNut~PX+z45Pq)SpcshI@Q zFl2Nvom<(uBWO^<({i7rX45rk<8v*Ci_(`=J5;3b*nfFV3c1(yMr#8iqku-lXayM? zVIp;?1g!?D;vmtg@U(vZ@}G!uQToKOgGBc0fQwH}fy$bgw1CDi!c$Tc!X~vcj;gM^ z=)t8wr=P^)r0Yp$kvFu)8I?A&iHQC5LSMAtNLV|{IRgz4C5tWU#9PSn+VURFrj#($ zC5oUW{+xuxMBg8Nwv_EiUfeJR4dicblG6=~QXANUS&_0)Y}L!TnXD02<^`O2#n@?` z;s@#AmASR^`7qBd>9GE3@6)}%OuIbww6h!9)%BaX2dubh@Vz<=**7(J97M@QuU$^p z%{(VM`weY8!;7JW9vH8@u6ecA4P6_`$pP`AW0AW-nKUyrC{Ut28%4;GSV2Z>n{NSB zgqzf(?E<`1glpOmcYx(BqQ93+5N)|hCh~7GMD55&C-B*ZX$o&S27(Bgn3>0dEc2oH zYssnbIdusM^~x{iD*B&@VzL;+*O9s1twYC$RX6humSAs!cIBS(Gu@%?NB6Hqnh~-F zh`+}aM;Kn}hCEV0ZyiUeH+OtrbAi;HP54HA_vC>eJ>kaVBjQ68{B6sDR?}2?N zhDHN&`I5K;zS+2}R$CRY?-d4C*;h|Gk?gSW2pEcJz52V23CI#&!l5#a644Lgkmkkw zyE(@SQZce74TASkBOGn9D~HEr<;o(^=4Pdn4OeT`NZ0auNfyP~5t#60@;Qizo4X0ykVVDbAeEE8 z%KDKr8o@q;aJRW%h|B@5Tib57Fg6VSkT$V%MKkXNG*{XZsC-%e4z~J@b4BdS9@;gt zxRClMI<-)J;AWd+ARr&TooPPqA_j$NBhG5BLhj{bV!Z}0KURb_G~Cbhq~@IiNjX6M zr9iv%pZ$mUiwq0cnj5+EdSgel_F~=^7E2N0X1U86UcRu7_qWjlf$o{xo!m&rylv#T zU5K3*dh~*$);%CipUy@5Gu^y15^m>%pa#(n5p2%w%-5nq7|n@w)4gNs1=C6zzx1h%uf8&qZ?B}Mc_81sC8K8O({C8i>R%uu$e~0 zTGkk^#8iolX`|3|O$H~JpUjE7@bEn@@_A$27WmkU%*&bD>2hWz#-NrloVU`}WSsVK z`9bWc)%B$%W0EA~>r>ngndNh82e%`KPpsKeKJ1z(!oIXFKd?x0g#{`1+R?TOM0Bv6 z8eB9xlEy*@T@WdFhgHw{=l<8@9Lt27ylU{K*joiRW`N zmArTC6UBC?YSg)sv`1=r8Ow9C#YVd>=47akrSNmbZmvvixhPp)6l|a1o}Dw%rG1Dd zXq4W7cv8!X8NI+#PiIC@KcFS)Eg6f#QL=g#q~o;n%wY^BlcHKnQp|#Jv428AW|=n2 ztbeW7<{p=|8xi}y2X2>T>YhD%UOco!!F8&1#NBSJOW2Io*ZD0pXY9 zx>n3dw*U0d&IbxNX(%O2pLiZNq>z?UJ`|&*7B7dQ6NgQ{&8a7@@x@b2swBeWloBU^ zmIy^r*HJ7~UATUY7-0p7@V_iSOZMpH+%(tvAw@&cB@#aaG;)d?5^`!$+2ViyUVU5| zTjei*3rhH1=;;o-CS||6kVnS8s4>?Y7P}UqPJL{Zh3X(26UIa%1^`Ik3^P!$H|8mK zJsxXN5#xr`K&uaorsnp(eWjtJL9>k#9ZX{U_T9)R>R?nTwX_1aR@Cg~YS6i(*c9Jr z{$PeC+pBsFz{W36y`A?G-ZBWveTfFldu9!X=gRH%yl7=Y(fuyZbXW z!s{$}fgistw17f|!NNC+0G@FMaZXV4haF{-Vq9F(6tXIBN?!qEGQgQqF@}+K#F6R? z&CIUts~+y2z~MY2bCq=($Yl)r$1!x7z~sA(YUBgcPZs>?TqV}U(c5|zto+Fhd`hBp z(Tbl{J~M*gsV4YqUNWBtcJ8Mx_)&rLF-I-IA1~~OR_tde_>qD0(L}(@!xQG)NYE3N zIPOUX`4!-&5%_B=H4h5-r+hDyKw##_7AjD0!9A;m<=r_OUZZ({_7=zns7GrA7Krd4 zb(s@oP-yhGVwrPYhD%}B8Tw2CrJzw^J*X;Q5gZbDA|Ig z!a`X)qoOvzQ8yW3hcJN{`CSrP4uAcygBY66th*#&RYCi(18OA!0D2rqI?fXfcZf`( zNpZ66>kk5jvQ~Ea{0qQRUb)3%Qs`EkSI$PW1(k;>o9sW`mtWax-Sd<*nb{*4cW@h> zYLjCg8tb3C4=wVZjoKYna+&=x&QnqqlDF7Wo42?UD1ZKuT-!zADeUKUQ|gx7Er@z+ zDYc85xBGMY;paLOuY?+!C|>8sN%k4$GO(A{aul(FH_4;>pcYy9>1zvF#)N<8|lNJcYR#rpKZS;b?S z?2>V;_KCA~e$&4qpNBGw!@`!3q+~+y1*O-~Nj+C-(JY|&Nn{?XwRJ|#-Vw9($Y*Dp zCCL~2zY#&= z#UK;&spKPRDAx-E>`_caO>cYovC&H6!*)`6FZ2XnI}sDqy40}dRsh! zK0VUPEv}8Rd8DR!DC)7-Lz#`=sHCP1QGe8YQrLO!eh*dIPNay`w|awf2yVWw=Nx)5dhs3`$@{?gFu zSam21v6h&k8Fs?G21Cs#BDEu{ZYp;Yq>5L8meNC(0_m`3e4pA9wOD@Z+m4z>c2l}U ztM`26a-{Ft9{6g^%^f(Uun@b=t^zbj1({{4yj+o?mmL1GXD0E-+g^}_(gu(_qJJ`K zLU!N7Zg9Yqqjk?`SfpY-o|xU(R*;H4Fw{+7IW}w^qkpZKFas0%WG40d%_B1#kZ{># z=>FW-{cXJKDLW5?cz@eKomcouK4<0rOr9iNC5Q1`Gq$k261tB9s*qGFAMD8tK z^QK;`PFlXr%#>I9T?K6!!jS8+AB|g!xw}MVW)fJ^J||#=%C+0bqh9y$PpadYO}pu< zY%E=O_#BNAN`CANDV?tT1Z`;Adx>42Bq8=lJXshE%L)g_bX(x3IULulXw^6}8ve^( zXoDR;*~u)aKfrFWR%3IC*rn6ohEX5cFYYeh0=KENP740{d+L%zsqz=YMrrWNB#R7z z3tV)$@6$eh5^vHtUYGGCZey6K&IUa}4PfZ9HWo1iWYSD?*Uoqs=$L1q;tA0D!KhNDGNBG@B+tI?T8W-Q{9n7Qly` ztDD)2rB(lTy54>dla!*g2tNuWgO^behh>885HbC72+3jVb701K5PFWDI#=5z*uJEE zpzCK8mM&0OX)<2Dd6cztN6sPRj64D}Z#K4g-2mV6bWDhDKI^l)Ya=r`-oaX<6Ssu# z>cifIyaPcc`*P=TdEB)28f$lheMYyYO#>S~hjg7VU4=q`=3g%S?O3H!pG>_w8HyVY$}d5vk>a+MHFd$_ zU=rDzgh>|Bdo_429k%4-fqWu_V)kR1z>E)pJUOEHC{kgCaG?gX)5u!NkW%r&hlrM9 zLU|JgeC&;Eu%q(Xs3mJ0ewW-skEfl_K4`xq7d&D*Ylgz3(tJ{1nowXc{;ZA#_6Y(9 z%G;u#B6T+K7nfPAO^aja)fV=gp&U+YTr{GNfw@Ud=Bj2h;H=YX2n@wRi1nl;`8vz-gj!63?WJzUpj`EiU~HTC>WX1=Lh>Mko$fKebx z`K$G&=KfTEYGhW>MUXmjlIWPVwtG@O(i(Hhz=NB`qxHO&f$__#$)j76i+T>b;iu~& z=?V+7$kSj3$2ly9+v}B-@0` zHvJmP1kYYe1#=C{%&9#o>TbD1<=OlC_BE=YLiE-{E>YT zjL;h+j?w)%8N7UFKC?D6GAGY@-~&{y%K&ennC;Wkn}Psm!k=u#Q84tn7q2AWJrt-n zO36NaB&hUJSLJ;OP*G*moc5ARVER5(iG5yd#1{1IudCHpiFic=milv;BszK$E>FXO zi7A*U(7bO7XX1p536?BgVu5*=m4dj`b*cbT?KTmAs78O4o^H_IjJaQPlEJC^8q-+h zFjckpG3CVsqBg^7j{ov#RdLQjNA;{S-X)d^uG2OWM+7f52;okcdhupd;;0jX(ld63 zTm6{X14pHs!CE~f&NM2W_VP1zJnV*@m1(&*3bc0Ak45^W2nik8F_AX&CE=gX=zMs( z+LillC4o4D~{V~Rf)?YH8Er_$=M>K@?o zyqbSb42mqS^TV|<(=~v~shMM>pru|P549uk{0roc4^Le8iR+lAy3(z4GFU#t3JZ^n z$2FjmTipa#Kj5$^=Z0App-BC?)Nj#V9dp6E4*xZ1EDe`i%5zpbUml=J5POAsl@ZB@TlEh|%}DBSET~JViFEWLb@-Jokgd=Z&i3yvfvl|^4h>VDC$Qf% zxSrG679N2`*Xe}sH_&1q$J#_}bp$Vd4ffU1xoAxs7sT2Q^K&T5`G_+yH)9rJXmCjL2bi&oN?7+RYk-V zk}!{nltmABssjYANkd1pa`;-|)Ot7kkF{Q00=!z6Iux6Yqcr$At`0Lm(RO5)C-`a~4P)bU%f;nfSS>_XvxuRw3?#TBZjgiQ8EIPfm+`bar&BZK7e!=ojLVEhxn2|+Vr9_i}M_hJGX zOC~7rqr43^W11u~e=6LGtIA{6Rzetep8HyfOAY454~?ZYI@vAhxx~S+p*y7>2mVhm zV9$NI)g%+93S)RXdDehZwrG-8yH7=uW6fQi6n}57CHp(m{+bF6*)?1u2jK5G5&tz@Gq@eU|iLav7lpLaipzM;~sB*nvnR z#sF4ftK%q(9!&~aQ+jhC?!-Xt&RG=0-DG^qv}=>LU7$PrUm$w&fJzN2t{ET zbiFRl!_DBoDlINEe3o_GZxF5QT$>S9)3ClEQI8#y?LAtq+jhi_zWP(ID2N6PjCTpb#adZcV{LUsQ0#9-+j#&Q-=y(;=m@w{&I2M!4anOHriXO_-2j*|DG_+$fM{=9toD7ybgAHq<7CaP`@UpXZx{Q5 z_DAt;#mC#{s|51l!(Xv=1jTy?+fARH zal_3#drql6oQ%e_PF9XcR#)j90UU=8VfR?_VS_Mh?37n;&)F?7T;J}=s5*GN1x$QUTVU2V z1M1v8{}V4NFOwz65Aa(qKw|kuZtMd`Drdwp3jO-tXvICKiErL&t9whqwoQf>r9w;C zvFZu+JJY?~4R!Qm>2Y?cmA|D-qoZ`=d{CYHR_@t#v*xRNlUribYCMpxL^-y+r+B7y zdAB|m(m~l0bfdfnY{iORP}_>WK(r+-KX$l}s8c`%8Bf&>S*l`L+qc@F^cbqNYZm!$(=GA6eboS3ZB!wWWF52#7sn3 zuzNX}2JgT+GRu7FpPHtanBt|u9#^yWP>ms+MSl?#I?EngIk;kG6YwaLZea5;h6|XQ z^#fKJu<3A$(tD8G7^7*Z^d&=T#JmW!hz?*-a-@xNw#U<>ZH@-#Lr@5`_sFqMSm~&O zTeh#x)+Zl^swvWio=|-1luxc9`TeqkSJ+Vfr&nIaPhlh-NhHsvwpSRX;*Y#j?*uF(+YJQyu>TC};Okb1Pr(M7KH*+rIn7^bV z_?*p^jvp~Y_0!nSGZ*I|QjQr0M0Q&=Tp8L&Os7!2VcbydWhJ7BgJr-;Ly!|GvYo_R zzLV%)q%|gdJjc+=0TvmCV?|pLNqM%#J+PJ`m$R~Q-0#OCSD{-S#XUslp^)*u8~)4r z{>zE^F*~7SZ39U ziiNL?IAs2%;kQ`|x*S@5*+P|k_R2RTU#Jl@)VI z%DyK)teNE_G5CD2u9G&E)~|vrDn)cT^J*~dA|S1itdEi9>ax0bOl0dZoc?bzglhRB zQW=nzx_U*7*$x7%F8S%AD7GB{B4vw#KM7gtE#^TOS`J&UMhQHq zBgGdcfhjJuoci#~HgsKtB$IZ5-qC@HAJ+vcQAYT!c+D}%+wnqLK{MPckT9(Lgk5xn zoy-7%&DwJEFe{1;k{WzPbM<9JIMDG;p}<&L9Eto~9_Ci|)dOKm;RU1&@ed}YaeJ*4aAZV4390VBH!b}WS``iTz zG1bM|QNB{ZQDwTPp+8ikFZ~G!?5A2KlS_0O#URRdp%_^(E2z*kcjP9W%joI{cY ztq_=DnDmYj2$zSH8&P2pt+$=8i$IY>gTe`90cx>D6fhMxH88TtS1A|CE0u2w*@gM& z$sDptK?ZrcAmFC4MUsyU4}8L8UotNtOBd&v7LL^Y_cx+&FsqG7x_Hz(&};;-MmULqG&d;^H?ohIIgtK@KcV9 z=8j*Ly`d8$fA)VE7FT`A);f9mGAF>YYc8nMb%L8z|4zu%qP@~r|62p5(2_PGntx%P zt^FavV2XXN*H}w0J4PcOzGate#iA)^n=$_hUN7Z}Qyrm~AIP zZ|+n5wPYkr}&DibR%!$89!bZLZ8Uy8f+M_8+?5Q zI1n8)Zn`|?!^Pfk&6VVj*EP?00@-j)mE=#-CC_-;WAEUDN6O~IP8bz!l8 z(xo7kle%p{wA@<=5iKTXC-xB0(h4n(vXsb8&Bv0W@8l-RxivZ;#3BwAdBFfDV{w!h z(VCSlRlTkG20=WZ$U4Vbv|B&2efZZw^qFQxJV%X0i1IWL!IFw)|EG+tk5sn$J#`=M zavDaDo`A*@!VFreOEK1A7??`5C?Mi+lZQ?LR5GiJXc-WSHFl93&XV6nyof!?D34vq z#;FzuEq0o8zBOP`pWHn2*fMaIvF%R$a0SKlZwRq`ENGz^o9bzz(nanj*MKFT2ICqL zE1E8}j5`|H*N_1K?p3+ZW3@)FZQP6-O-6`uhZqrbHaqhfej2oJ`LO+4>^6euvfepv z@2b||>0hk+P{IGnCo17I#-LdPET=9121+dI94Nje5R?}$8jWSu!5~nBAu}KQ-V#>< z+(qA;3qAUu^*9Sw^x90#3^@PK7O?)kJL50@JP%*>1}@rVkj<5!faO)Tv}s@VF-qTH zm>l^*)zqC1G`x-3XRV(?uK^{!)8#STBgGH7>f_MYi-yJ zb_;WVW}Jao8e%Y&&N!ut1zX*+vd0*h47X0%6fOkTh9h%8>?H$IM=tkmX`^7CBg4=w zUt+f`dZQSKUI7?w8ct9_YtIH?e^kJ$f?HntT47nX8+r8#=A`Q@ea!D!-l(ZE?wtVM z-9lR;nQ@JF$}y8G966CvGX1>`qB>VxY${&5DtU)_#7bnefTH8TLReEsdnCOW^A$J5 zWt{jm>-2hW$YuPvrW*<*Eec_@XUd@Au6H`jq8MdFQtzb2uC6K9865+{>ywv%ihB-n z4n0%Z407v_%u23?okrPFKhLm6`+wT0~C6t`xE~0XEds91&%^mV~qwH4UU3zM0hQ) zVg^w6{xiX3?RR!Np0w#5&B~!3U zzyqm1(r3z#nCO8Ms$+U9@<|R4Gf)GV7y_lJQ3-QOkaE%|D@eIhrxjZr5lk_Fd7}kT zX%RQdu`sQ?^(Vv9cf^^s)QTdor3egsy2=6k{Q;Jj1PeDsSk(89W2>;yfx}wq%Nh~7 zjGoqdf=0<_kS*!-NlO@5nO1IeP(kRHn?*<{M)~i9%CJDD`HkDaeRmwiO^^lxNXkh~ zBoRNghvUTn9rMxGk$mpPSPJ@Ng)0n9`69iR5Tu=a01o;s3cX>+J+^#8;IrhQG1-rB z;7tieuO{K=6NTCaEEgj8l25t z2DZ1E=>`gdkI~{yZi*@h2gU& z|5ciQm)xeqg`j{QSVc3}xK~7v_+}{~OGlo|bcKo#zUr2zo@F?@gybcT*WWH_~~s&T})de4fa*N7ltXxz>*qk`*lX*dUSPPOR6UXDwTlpSK1%Eo*M1Ofo*?M9|~b@C!?7sX{%pkR+9T&&A${u6wohO zdgdI_n>I*>8|S*BkU1BYXj+L#hD#f~@aFW0kjE*-@J&w<*b{lMES${AhUB=Rk~3lI ziL{9zrNw+wq(iRj_hUTBk&-3k!mq0XPaUuCJ%pMM+v1OZ@ zBt`B7EFFQ8Tqkr68Y^{n$C!l#JoVGp+zls>2hG%G;faF9wQa<|e2C0k3_3CXk}Yu7 z0Qz~#mb`pSW-}pEBY^4>4LyBju3sl~bMtJo*41Y?dSn0A^dDS@(r?&?{B!-%2C>t; z0si@ZrK@Gx6!)sH6ZTNJM%{Gv($ae6_0-|gs=D_M_x`C6I^S~Hb*&xn2K_V~sO;?c z?qV|xM07BQR1AQHc4+fWO&59o>3+3t#*7HDh}uFXj&ZEqgG>5{@2-<^>MH)y<$Uc~ zg*gA4&yr+zj`=eUopoksEW{g*+2AA~-F$y&?FzumJ`OA9FWkM8pu-k?f+40rt`R1z zca}|0#TtG$$meFC&J@rIymrNd3NjUNUpq*`0_997+4{1wKCm8K-6Z1 zzjxMTAiT;CMT3J422wE1C=nop%vS3+FmiMt7AevTM5TmV@udr17w(=D;yaV~2;f0? zXH3O7-%306Y)3zbzzF6!67PfH4`Qg4$)!CD0|l~c@AcO_4Q32?A8ws=(GG=W<@NCo zJ55kPV}c5+lK*Nn>?L98tw(}W0MH4fkUp@S#k{+8CruvpbD$E`z(T^7K*A>EV3T|F z(^hp6;<*sE;x#I|MK~+dd#H|09a&9uv|+&r<1QLJ#+7`J?(N8>16B{tJ+uKIzCE^l>!KAxJWJd3c05vVgzoKkS2vOSVs|;aOr(A z!2c_D6748qd6?_xpH?o;LQJmUgf6Qn=WYb6S2a;8od+Ym%m89ol)xz39cGF^6bSE8 z;9GHIe6n#p69EzkNy45Er&uP}^9P8gJxFG6xeR8ZriaGhevm=AQl%`NZmypC&QQq` z8$|GQ1ys|PoR;1M=-oivmIxjPMq0Ma_h9m zGM9)W{F35tD2}~zCd3EJ(stN}D0=8aSOjEQl{{k}JBm@Zk#EIVxI~`i;P53cSTzZ2 zmSK-4o87HnQe|3~>1uV~1}K4i!ghUJ9@rFpANbnYqo-xX7YJ9NoMMU+KogqT3oXcv6dPnz(uk z6#Z#1Bk-|N6Z*hI|G18&;yQnS0C|-l8~D@wE8Kc~l~}VQSZz=g2$3YYq>u&AEx_Xo zZ-OdzA)k4=yEI1S2H{>50d{;1I(d-v%=|WiM`l7M>r|OrDH*mQI%mYn7Wk2&!zp5V z_KzpMOo=J8qrhzb;^x(ZNOIo*pq|^c$_Gr`gU7GgcVb!bY#`rs#QkyJvPL2IW=Z zS(E6%u3|2+cG^5Ju3Wy3f_jR9o{0;-Tpk`zF)x^^Pq?U4kfKr^-gM;@F6N`;!a3Ud zyCb8l1@(R?-0@vRH~(g8bh`F$x@xmBgmeCbRF>n#)Bs{7<(nkfpl@gf!X)1wFy~e~ zhc}*6M%k6Rm%l~w+aI3luOlzycfNAx0!gGbwD|lFU<}y?0w`Jq1@i+&V^2@Q#HH$; zf~$OdjE4&8<-{c6S*G~-cLFur5^losD+|V=E*yQ^n+Ak6^b=h2VWPknS(CNW=nc~y z>%_8BOk12fZ%$AVv0XijG`RETg~Hk;W3_U8>WcbFr6}p`uuc3FL_hS4NS$?Q{G83j zLwmlontYo0zyOn>u@D3X(gv(Xvs3bNELy0hgnYS@ik}OG#ufK@uhojKOAsw5`R;Z} zNqbQsNg6LqP~@dT5JG@+Jn}gbw+zthbA076rff?xP3!yG%5y6+|pN{ zk{Uc%*2H9Ky%Sq^u2zbGHONO%=Pa+6KPK3t0&GgZy&rL%{j*t)ZZSQ8q{zkz>qaH^ z#@x8BSD6ybZsx>9ktwZ2Tm?yh0(9!l-lepZD*z;%+=9kgLD_w+JTD_E^DyOZW>~5w zfR3VFG-knih|(>+?V^`J2ezIt0D8+t5s#ZmuB%ko#`H2%150=gh|LG?CRDtW>?wiQ zvR-_)>KR%H(Ub2I?fQ(ppoZwzvqHi2_c zkJ`+-P%4y8{P^FLgsFj-ovDcX=0;H(g_A6HEM0+;mm!gB7FO_Lq%gOx7`pG%=G#EM z*zzM#tr%2eyygNZA^bUU8P1XWlz0BlMzy_e!kZS`e~RV6_zv zC>nj^J1Jc3N{&>}35a8A#PgykQWdf4uJk9ryP{- zHpa-iQTofe$~7F=z(kn>39-b>DnvbW-xjr53_78D6A29bJ(yD1If75p<=14JbhUE%d z+S}9e2{gskQ^B&CG231anReVGkF`U^m3~;5Qc#SRcU;SwiZ4%YRUhT)n5`R~oaa0M zXX+diK|6=>YIndA8>%1P`sCI{rh(Y05W##pDwnBl>8zo#+`PwSikn=onub2%D_m)O z%E`h1WjJcG8eQ&zIQvHF!jtGUQC_eY^ar72)($K3W7|aJ)z`u`m>ui@vq6BFe{03< z*2jeYm|jOCZ*}DPTNKhO?a^COCv(}dT~MOj{vtSla&s4&b`)G|M`Ps^?Dy>Ji37D; z;(%r>-^qr>8HXv+gSgMjlnyXeX47`mt z!ugxD(Hoi(T4KEinvsLV6@RXc(iO7HG`$>l!m+86KbXtD%)G5eHms#=R60|h4ZwR` zJ?RjszuCcm+ zA|isY_$ETf?8#pczdvCih_o+9sxZ$Xgaiwp)gao%C=Y}hH;%35iCJ+&kO(4F@G{TU zrG$(JF^7|7Pc zL1_YyW0~Yb=RG0GnDvp0Jt(iRB?ZsEufx$v84qca&f{IN!#ItY4+C*RK3b;_W*i>e z1W2M^S#5i>sPN01#hk}}!ye=;>JWfl`^-a|ckH#oL8%h1X|zK*tdqKXGL5{~f4bzg zvZn$854Se`mICi|W4|!3K|c*Vca5(mr!y=Y$B!TY8>G3XK0sSb)Yfi5?FTu?;T7!; z*4l9vm1<7qxC9yssljSYyt(ZiEZ%A3pfs+D`p(3H=F(>(qTRmU)n98~H!k>>^1&}s zMRm1pc+5fK<7DxP$m#v|ELOLUtYU8xeFf`85~>=Zdz}`CJeRS*i~AFQ7qx#?fAZ5% z_AM>-=iF(5>rKIP4IBP8cdNk{sS?vs6)CZ%5H=PyRSa_r7oDvfnSw5#W5e(>{~7ZA z4-&<{B>dJgx#BBkBBfB^rlVkmSzcNxOt62Xn6_1r_<_G_Fw32(x@&|%ZE8yP7Gz5< z1KOQ&1qEjP<$QFa-igcAh@jI{+Ree5yNfV)FRlRm_(kxCdk8bRA*yQTW{V{`wd{N= zhdhms6EQ^4CNpLC_0&@0UyYn=`my80SXpik$h&YGniT9zxeUCk#u#`oeE!q z;_0a9zzc(1^iEs=)r#uGsf)D2W0jTtNumRIvA0|B{dLI2bjD+-GM_}rg#&DWA}FTP z;m&H&xaOq~2me;@_&PBjV9(i(z=1%kBXL&qszJUl5~TRS`2~+oQ?+4H-aXAkC__Ya zDsxFS!l9O8+Q;H>SCNA;dU)wC+sSjb4+-GVU#McUF8+yn?Did>FOFrVJRi%$5ElmL zovtm-%Bq-X2B1IrS0R?W%@gjt&xB#YYU}5S=$|~wDKA+8Aq_Aep@u6Ou2fX!$Binh zb(LW_EqN^=tHmkVT(=NB1h>^IOBQcOQW`vrf@cKo`*K2 z6>Qgl1F>7H1eW$IYNz5toQL1jR86Csr9 ziWprL&oA}Jukp6bl}~DxnU&LiHwiC;N=KD(rnem(4Q<{kg4>@L03zs_qz%}gCdRNLWaw|LXAli*OHJ4i$|@ItgJ zfn%F2C4!EbI!5#JDJSzoU2nqJ@aO(EeXib`fG2BB$kQs8%LbX;$cGoK9nS5~vuA>s ztfhea?uzRb4FuuOiC|d#4wJxYIbXqE$`mj>k#L~e;vNnc`}_egg}n(u@Qu9=;EAuoFK7$77Vvn!%KOk2)iz;4+cL4OSV8a=W&vCk zLTX`X%`UY%V{|d6DHHX9b-9My>wV16{KM!bB#bZp2gA$IEC7+Q6dnbZ8l1Zy9B?!% z!}3wzq#7D<_Hc`Res(o7X*>mdarwHNSq2o-(p*}W;7^r}F*vX9c(0(SCkJ5ctiL#L zE*iF>z4m!80jcPm$2yK=>XQapl|Oj8b{vs!paRm`%CC)5pA6Ou6SE!6}-A+)3`VeJh*shLz#xCv&zt zAc(BR+L2U}nGzdIT?murmra&)y)8%;Vj&H!Ky5HkT6xvYQBrwA6@yPMu@M>Rt&*o` zSoZni2Q`cuEQx@mIS29U9TpUj@h3h3;$?#08mMK4J^@5wb>fZ-*tog88=#M2Z9OO1 ziy3pEk7pv4{bZfM3aKFUZXCBY<(I*Dr}Im*{4kLoK=B-^=~IBuzY0{3VFxS72c3!W z$)NY_k7evS$~nbUXw9eMgq4U+v&|0fuS6{v%KcAGLhDiP-Ag zmeA|4R|sr}J~fVTDmsd+#;d@NT$M$$j@X*j(PT5(u)2xeid{vbH?cKzTo&t&U13t^ z)}>{cJ$!Fk_ojbZD(KGdSm$6_lHJeI7kpKbQ$3uRmg)f=Lym#v}VU#_FGWMqV+QoY5Z z9I%rHwXOm!oxn%7>*;F<4Fn6nI7j_!VONHw7Uvzgnie_$b=vP70E?9Och{)k|9=_UV%$XSyW{}X!t5A!}Z;nN3;Uu!Bu#X1A# zCG?-Y68pg#1(Ry>h;nG!8m51J|e&2Wc5Kfl=M_9%G5MTwnq5N!skpJ4QI{_*_Z z6{vfM3S!vdt~y{ClPEbj?~g`o!<5J1x$s^qOLi5GDCzkzTCwAjv{ z$QDblQGg5xUStGjT+q!?3mo7q%%XwyhvwgDEjStcOiucqBZ55`dxil!5pVp-J%VZs zFgBa-d10>`sNc(i>DM4c^%7!+V5J(E;~zQ#<=qG&A*Z`XITLj1XNAj(=RK8h#E)Ys_4%_jNG{)JDzE&(^76Fc8(ou0^PQd z2+&w>eOjGNH1adNR5DOXiCCSE4N=`Bz`NP#mN?e@w&55SbDps%!hdcqQEaVtC+3rF zm@PHKpEr&N+&#meADgXSLdPastD8X&xE^llnAYJWs1 zV~r8L!>b|v8VTu!-3(nwk6!(NNdfKpc%(-}mg6xxaRe#`(`R_sn6k;`zx4I;drPC3 zwx4k?qN!}Yj7yol1-^4xK>+E}VX8WUNhe2`E*S=lEjWB*ER$ArD zdR6D+X7h&n_??7JUFxIiJFyw>N!pV6Krf^3#-^UFZ&-TREYL?;7+iWlFB&GEq6Ck5 zliTy7jv}YKIX?Kq@zZ{@PnSlhm19T(1G}LDGXX<$YT}y5tV8y%5x1XwfFQHU;b2yr zSl698V-IV0O{@Zz76wGexzpmss0je6fwF5WabsTV71q;FdoYc}J7xENEx*ML(Qj6- zGs4ocq~xT{f~k@#vz_6=y4v_L!a{Wd=?b?C*~}g)6@dNAjR3tAG@K?OMRYsOC#J$! zWoR$qj@*kU9^^~!lE}K4SfcG{o&A6h5HQv|1(L8rpSmTDFnCrEUbbBj^(3Vr)|-gQ zm=RZvwLu9&imXe-W6>kUQ9JdURRYxc((~ynYv%wT52>Qm{O zF|u|WFAru#{~wrXBC18ha`*FVCEQ5cFK; zRrk`F!!c^)djb@xJ`LhpnWJIZQ4~@5QR8?c0z<-73C84jbHzWMj5(3!M#q3GH2d+* z@?_^Rn5|uE(0tJOO)^U8A8?O_Ng}C^=1;pW3rDazLdnm-RKj2Pz9VMXgIyaVJwW^( z%NR2B=$YuYWagi-e10)( z82Remhi>eq;Pk+R1wP3SWu+t1P_sbOXq(xTueZ#jq> zN^s*Rr%jfd6V?i)6Mo&NCEVmm>E#iIv@a2o2EsZv7vcuG&#zNWW|F3ywo4Q04ZRsn z<_V3QF(aEnJEKjecLjyD2bZGyuG06iGE1ngPhZ97Pp+~{)jvIWNnhNYM=YH%6~KE6 zns-;>E*65?d#EupQ&y5RzsDpxJn|WVHaniI<5N%6{?T<>JhMkdHz7|__N|&nUpPPC zDo;5aCj6DeZEoFT0kCcfMi{fUb~s#fAMilHobhs(1m_2yY9Aejver)UQnD<68kd9^ z`QRq$v;-G8&ZzUtXi8dXCTc{1Y>KG!0XTw{JEO>+aib776}K3?-XATuN9wHv7b4u( zL(B=&V{=x76=4tQX>DlUCwzzORB+|=MLjw?-w%cJ52d1>984(YRu{vRA2&C|U_g4p z_0aPtNsRgb{V~xVh~Z1N=XDGW(WEuud--HF?HVpdzIe)f9`KZYh2+3u50Vx=uL}_~hc+Q-A2E4ESyZO}Y4#!L|DW@rTupRI_m*@fG zuYRWwqt$g<$j%ww##>4Wd}-j&TXGL8%~h>%@EHkI@+Uy=i~1d|MOEK;^Ba&-Btn3e zQs!pRjJi2<-{%RJw$CMQTD+u&A)vxEhr?&>lT9FY;_Cp*Rk#g6?0vu98zYhV2J#}2 zJxtJrg=ae{3_w=vB9V1R=#>SCTy}K4#)|D$)x5@PcL+_8H%c9pV+deRa#(Lm?p7b)jd#A56{RzZ+2MDo1r(bLN=^c7}{P>L9mqi|N_@;29#RD5J*&p}ob!47nq#2pc!bM6Q*V@SqB-Z{cm%`E zts|+bOMl@M{Slj5Vb{k_H5!utEBVz+Q{(7+fQ^0k&Uf`! zp4lcagiUeVo2Y;>o=gBQ4^TJ{W_W0M1yzZo`4tQC#dvmhw)5_^3N+zK-gKqkPj@o4 zNJye(o`j+b7m<)f$tPeAR?UnCrGaD&nC7b7n!Aa+_AW(1Em>V6zmI1ZfNM^V(vag$ z-s*BKejf-tZ;4QqRa+SefZ^HZ`0D`$oK7S&PM$1vW0E!eCUdci7t_&&%@*rVx`wlL z*}s@oPGcp0Tu7!PK6-Wm=Db|((0+r9oYq91N=hTY#JHn^$LmdS8+ur_(^9(CrWT1! z^PC>r9~tp&tWN9oq!e3%Qa)6_$D}<1Ftq2551;oyi(aH`%0DenM*JQd;@<&PMU9tueYbMfWs8oTY$3K z+O@rPn|+hbXn3eWQ7!gQxj*#NU~gBRhWvAXY_?G;hK;jkX1Y~h^QffjHZ#P|n9P%E9!ERm9D4vw5{`OS-dM|N}OAjNC zL;9eTR^S#-iNW70Yt^bjsNgYI;Y}6Uc%I5CmG)eH4HU{&S>XcdK9X;-CMuOX#T3d| z&~^JZXW>mYw&~>E!*?h!rWtx)ZY6XP?GMp{&h`Ir5=Kebw&lj4OJUy9!Yym0$y6h%hD^XCyoX1{rgTRkLJ4Rmp&$Yg@c(|H4pdZ%tkfkCDM+a?XSsTY#9Dy-*gi0==%Qe+P6f1lMgTH6}h&-9RA3#woL zwN)$R)~^Xp0OtHLX8zr@NmQ`FMa#-G=c;j&%Ro|;7^(h+r)0Mn=e-xLJRC_|%M%?i zF|y4>s)s>5bUo!dY34}tYJDb^Qoqq)mEXP(UX0ZMfD=Ct4P9+9HD6&k)d8EJ!-r^maskp*eyg+yj3 zSs7rW;v;9#Cre4j{9Z@!3wM3f7`{0zxg{B}h-N7Yo(}~?4ZSr+=IGZr%4VC}y-j_x z)>m*fOC5@<`qj5YrZJTc%IDR7zu!KxYL|h|2)Y`=!FuZh{p{?J{P16Xl+Bf|@{mhe zMMt3ZtFh;wla$QQcy|wM2}8q&Pt%ml$%z10(Udisj;QOthxMz4orS4G%X0FgRtdN2 zcwtsK&4Dv$qRxFe-4hp(A@Qq}m@o?qq;&=AIvxqDxAt#D%m$Vw81>Sp;wj3KMEsLaJ0O1Jc3vJ3Fng@aItISD1~x1TSXvr?Vk@YOl?r znaN0?qC>b7vwvohoQY)0*#hnhQ=b132yl>B3u?q(lVl=@IMSNg_BKd6GJu;__JV`BQ~1ii1dGKu zw(t9EYk%{!lz-#?KNyW{|G$hzI%Yby|BKN$5&g*SaM+#0ZvkW}i{#|tk4w8dvFFqwy@LBLj5utcn1P=D?DOJq=f|Rbh1>JfE-1K_ zcdM4)PCfV5&F$gjDBL+ms{ewq3YElEl4k`563J*IFnFfpP37lp=IR2AlD;sxOz#6@ zB^cZ+KzM#*EcomTcs`Azn5P>0=k2~n=X+)1$IEOFcL<2uCy=&?XJhZ-TI=ED%KfF= zYJtxw03Q1!a;U8mgVfpqQD;%)eR!PxborbvY+gXX8Xb1p+_j+gHLyj+SQ! zSxNnEQ3E2USDa?$OWs;WpKa7Ns zSJ&dLNH9w;#}I-J9zqv~_;orqUnITXsZFEW=rKXc_voCubYN}lw?8|`H?L4te_W>8 zZlIhD!gTtg*1gOENa8W$A9|)PV-9rpo)Dys9e$)6;avf|6~KBUzFTrsYGK*djqgxw z3GnO9&z``lD|U}YcI2)TQ~l$BYc^`IDw&=^g=y9q3{gNC@E_*%Ul=h?Rga2}+R3=>ztibfd&a?H3c!yF>c z!sCg9CZKsJmCA&SefJVzokNDFnuM+7YBb3;isLb`37dc1T7umYE~dxs>~&n#jc&b1 z|9qU=*mXvx49DIXJLwaL_vU`-qqshu)nfx8HqD=I?rtO*@OwUl=~eNf=2!CdLhZ%G z67q##?+!p}Ko9>A9vEhv<)$EwYQWB$s#Ft>tSI;JZ{}bwe^HKc8)8vN%olc63<(+9 zza59+{m1`}sSJuq@&feJOq()HyT4a9j7PMnl_a9(RU=zCWm;w_S>XUoJRBRTOm~rS zU%n^c`wTd3yQD>oUs!oxcODZd%6Aqzjb2M^qZ|%Ye&J=a_t@k98Sld5=)<(3b;%2S z2iS1m^{t6zLG;uvslpm@INnA;C=gP&Wc7>T=qt?_G=FQ`@2YWoGNKqXGJnL)>yN=j ztC3I%{Sq&S_|(4(YHMHJ5qoXF4{i*93TyR3Jax6|q1FE{)%HUJe5U8#JLcyz<+$gf z=Kbc!6@03v`}Md-dwo&w=edoQ>BqtAbI+lpc8gYL=jiLX>N@ymwI>UT4dtSy=hpga zB%`bwgH)>2Sm>#5U*jYRls^OBMBRNS3|ixxwh?`Alpna1lvy?$LYyq*27yuXbrQa1 zCG=Z%ad=^#4u0w+^wFX4(Ls<$jsGeapKZ;qAQBEaR9rFkI*r@Qy}8em{jGRkD8XIt zEY_N-9(XSI|N z1%ir&LY{k4>$mjAKohg1I2E*$oPKR-G|g6LXu!FNo0bmEW~cryy0F)83~#rXhS4#z zcmv~HcorRS|#xOcq&x2AmqpP=xcDB-;R+vuMW2~c!}rB z9}+^pgTSu7Km(>unPwx`+$5~^+!nAqc%kZwpOuE3I(BnP+Brz(md zKbJd)W{e7QyvCO9#nMylj;5C-?OZPrzqYPW{$OOIRxkvfKrre>p0{0X82Cm@U)Wbo z`ov4MAw5Pt3|J7j+u_ta%+^-imm}Y0ea!?p`hr0XUVg{g3tje##wA#g-6KoL=H&b zqN(&|)xnP0$T$5`=3A2S&p1U0JEevv!A5Ph;~hASnzb7guJby5zhrG(z&PA=gB;~a zl68Q%U-kahd0o9<$S>%mq$3%0E>&n`vr8pG0uci*R2KN7wMi|hFL*@G3)Bmo-}4&> zHAW61Q1{JUciW5A$EwR4X2Y0eX*2Br<-Ooa?yb`zVK z3=UoO{Ywvv@VklIbZ_Kf;U9O5i^(bu{$t0}1FF|{+H}m3nmLhEU94qKlwP@_6i>Qq zxDC*dheaonWr#^wnR0$@n2cQiZ7E)!4rXYPG@(cD6ZBVMb*uoJg#J%9taJ>IjZ5@ekE z?K9E6_k%N2&-2w%v&T+#u+oXsg{wfy4*XTwqc?f!0{Akz#GDACs6q}~$9Izz zkG-(<1y0-F_!N{waAMF@Tz5CU>;`wM;IL}E>$8oHFxK6I@+xnb(D9Hfa@4hg?&o`c z=VC~Y>H;0>ceKA&A9bmn^a9M`HO{^1b?2_?bjeq`$0WnaNk;MWkWUL&~{)AM;;b6axr{ZH?BvoY7%^=~&3)|+M9K>A32u{& zqH`Swrtf*+Lg)7o=06$v1dJi4Y6<|g%V4L^m&a$XkFHhla59v;W{p{h+mcm>a5MxJ zmw+cF;agi`t0vsIFX--oO|wiK5+~m_$UL%MwWEzy0*0zRug$9L|`BHs<|u| zNW%t=%DC=I=I=nFNn6ewTYxWiCVQUAp3w{wX5)WP*20)gU_}s~opSr*8F)-$3x)m; zaRHz5k4m1ew0kKkVlgtb!O>NNDnypYyjzkVs95B#3H&)q$`bfLiRV ziD5u|x;CBaSb~=vRV3dNLV-QJ6KKlTMP6#^&fYva#Z%u0dHLULSeunp`wR2f&zBziYuA^tU zG~6?>`4X8J3p4Sw3qsx=@1jHwE=iQNG^wmaP!>hs9OiR(qjet^tAf~Ib&vZ^1116W&pya?{R{D}#xHO@ zPN(&)joZMj?KtB+O)jb5Klx|u3kBZx|-V4Z-ZSW*uoEc2-db6Z=J%fid4P9p5`>|kp7 z6mKyqOoJ4fuQmYJf!#Dy?h$Z}zOi>^LOY;+K}^Xxu8n=B;LHYyel zuDh7|L01wE{K zfv8IELAln<+!%&pUNFL%7eko+PR|xKL8lN!7@=nD%vn-5wEFTzeQf%Eje1ka1; zL`CZ%^;N#3^*L4nJw5ZEim>&9^hn#0&zgj>%h+LCB8vThZEU2Xqf3 z8w{p5SQg8tc^P*IG!K9kx_6mm|1ZIW|Hj}oZk+)XiiZqMp8hjc`Yd*DB(k#u)7!8R zhvAbs$=OG4fTlb6<Nv$GUzxX_3!^)2jdDvFFf zSlM?~n#-ALTF>!husvr-4o%v51P*gJFhKPBylQJ{Ax4aBM=}3wPqYiI7IV^TVljTP z0mM@+OghB`w#I(++F?-Jr1iAA&bfJsK`V(j3I`B?SC!1 zeJQ!ZCicP~_DB$iUUa@kruSHMGT2lldQ!?KX`JI*v79GzUwGl_?2BUdqR;%_B+e>! zOiV_E6bj20=mAL^qvq+V{R4A{XJpEBWV(X%%0Sr^rOJql7__1{DCknZY2d%ObW=!R zQ1WYGh?&uk{FouQwOPyss0j{&e5nw}w5(8l_oKcjHkndWey^Hld-eu(T5_j|3D9y} zc)NDuSVu(!fMtgUo-a;>f`c3ydm7c{Ll%(YCXcL4E$(D^yfu&eeyFGAn}T+HH+(<+ z-vl#Q)aU``$2n&h+da#u5YD;hIqQ|E>OK#$*ur6=BgD!by-RRj@*LV&ZxS*i z4*+^Ai>72y`f3=q!aHw>#f6i+#bp{@MDd||JRCm4{P0Z(RX@%`}K1LEz zMI~$2C6tRxU82lN_9gX9M?hs;B!QFU2iab*XjQ&Jth%mTdG0i@{b}{iV#LbOa`O+% ziBSZ`!sY6U?MdB+cWITW2=h606~GR{hNcdK>O`j79JkBww2^K{z?7o* zC%t5z=;-Y;2gAV_`(Hlip6~?5;X~oM)Whroq9~NJU{8L#7h=31bj8UTc;u)K?wag7 z?Io_WJO4__(reZV?#IRj`#37mG~TLcy1-cJQ^wZw8TgwxCzoICTzI3yr7zH#z@ME9 z>749bf}qPdd{IdPkEm#dco^X3@ycvw*L~IP#+Ub)ztS?QIDBI6wPaNVB1pBK-r1ZZ zhrH&5Bnjs9S|lxv${5K&+F&z12baKL)9h`3gzlHGlN%5f;|AZ?z-?tp5QJ6_?p97i zecUbc((d=V?-c7``mu3%IQXalLao2?{M^~|lSjG_*1(SrkQV(3c8pf|z!4B`?ggf$ z@#KG^q{kdaG21)di}t7CUGE&B;R4E7D*bHV%BQ zN`bITY=}E&gB%!s>yHMY4&~G!B(9D0^{ghVve5;(C}(wf-&Lx(ekD2adb-pr6%O(~ zaDeO-ZYVZ#d_K2Q;Qi`LcJjV3Bw*Y+tMKpA0Ytb2?&Q!MIXHjwrU#^Ox_02W2c*?K zaKUAV-CJO?VjnzCcXN3rARQmn>dPd!<*dnfmid!>22J#Z!-8AO(&wMgvKcXQQOfCh^lU18I{e1%&32VoHMg%!(H41$C!sK zEnQ9`t?E!pO!Bk?DlYuHcP|6GvL0Mu3=>oz8DhUuzzt`7f_Rw?lUfD*E;-?|{VZ!g zx>kHRf!40kN1sQg`rm%1GVbo73`;Z?c$v+Nza3 zc<^GU60rYv-lC6g@20S(FuDzT8{%=igM!xo)-vNFjKY{+as#ckUAchN7yR7$T{;cR zKlb@uuKrH;V@1AJ@-W3>Z*+jvgFL@P86ZNQqmOW7jx@txm|%UNk9?1_GP`qce%M zO{Aoo(0mCcXa?y+7qC95F8sy|58P~;jto8Cvs4LeAidc5Gl`cgHvl!Yd@-x!j3-Hy zx82Un&VnN!W7gE$1Su(Z>S^R#Jq;pyzfju0F5fY`HZ?x>PHcrYW%M*EU1=ny6&r?^ zsIED#EXmA9gy9EFybd?=MBoI(8>JcwXo`>sdpN$^{1CVZdiU(rWMm!D(?#R`;JbRy z;BG?b_sxQRQ8@^Qg zv`J49hqab#?Dw3!*MYsc+kP7g1ciE=pPKsgfL)qm0L>x7B?O7=s%J=}Ri+I?9_>)A zEe)vAF$0%UB1qnJ3SzS~L2glPU7jNFNOLwo7qHj&WUtS%HFW@&m7X2+R)BhyjHvki zCwX@Hzrz-?tv^J0-SO!$_&Kj%LZI{;O1)541WE*+ap?tS%O^?g%5&i%A^7q>H9%=r zo03&xhrDqkIHQ@x^l0=Mp!6EDjgl3z?`~pFg`{r1*PJZxH{*X{U*1+_bO8*l8))8lcL(u3@0WIOzX zws49c$okMnKv7aSfA{q0oB3ZZ1KXhbUsD3nc+`B5T@_t4c?n&%9ybya&Q3QH5j+n- z1ku}}4ZE+~A6OB)C+eR8X^a{he@NG}TKPLC@eb=o|Ygq$( z&-jbIYu_P`@=6=Bf<0U z9GP!Pv>G4<`F5t)p2sO))uqOZ7bQtCxp?Z^b~|Z0;A1zTbbpr_U*wSs{J4DCVOddSv_x4P@m0(}%yE6%5&E_JuOuYI2A;{fgvp!G=eEo^#e5gn- zLFjC&;VvL7=<+(&nEo6W@#egptXcln*Tw;1bhD&bsypj9%~9jWH1Td~{vaZn@xChq z9dO@);zN?jc}tp8XDlK<2q!9-D`l+g1p#P5uYu)xe= zEOrYQ8Gv7&9X9h*iS2{}ALr`8i_~Wg%f^a#b+^V=(~^AP_?P0iEG)8-Esuii0|_qz zv;lL)67sGj;#7_KElgA#k~yS7>f^`hUrM-0S)KJMlq;N)$m)HMn(KyQll>_a4Hodb zfJG$f?{V3BQRkdbkRd=KBAIW%$KEj=w#jTtTGr!;%)6!E2MCk|U&nMVK;cpS4^w!h z_6}=MSU%G>Q*z~>>g?`U;Go45ut4W$6kikb=o0Z3mjB9+nW?knd?J6mHQAiFrQ^m< z5X4p~Cf8Scb0iG~TWeBv7;z*K@6I+l^C>{YZ?h#0vCB`@NEwOY7!z^53Mi;my5;%P z$}<@?G;pz6Ol?b|aGYXhkLgSK`)gZ=yzv=pI$U$gVPxT(FYaWH0jgO~tr*w$wmJ<- zCVx)DP8s_3qzj}`zA+_^+NR*l!Q(1SDYYbx)t_kxe7?Vs)5??~K~ssUykQljqL5gK`_`RE=8^i+U>Nbl+8|vaR(P$CnUnRduuo63 z>wB~6$8*SQh|9R!8@HWjSgJGtv27{0MJJD3jm9bHHsNwQ6LkV!I3C=+jz`JcJ*=R(gIC5c`UXjZCLnILQ6(vAFxfMJwMob@q50r z{wT7oO_X>U4< z{>$amLJ-P5R^rzq&3)w0RNY|h3;L~FBknGUEQcG_py^vLStG~^(_>oC($N?hbaf$O zn_>=`2dGYuybQ1Ja{tB_luGBJu~rF>rw|hW^RxJ37SZAflXl%%+g7p09Et41Ptohl zX$(F^KLEDLlWfDVL#%8tJGOW0%iRdoCz$tU*dG>TO^V%sa8&JTUc`k`$VVXIR->Im zVN!w6$QEuAk_1y}O%<}vGFV3xBr9);-jFhBfHj6s8BlqHyV^uP5NF*v^S z%&%ZeJ=1#%o=Ml`z8AkO&3t;-xhuW^9}z?LGIhT^TXK8p$Ns>1w_bsq1N>;O=_AK+6#h(_!SUBDK_f zyaDsf(#Q9j?f%mI*|^Z6XFvW&@T+6tF1!5OdsErIxy$*P|9shYC?3Xnl2@sLM(!u$}*CVJ$j(aUu zr!wDhYq{zp(iEpjVl_rc`U%Q1P6p3L^2YO~8e+>1`sA~d)T*!Yr`hpPC zfRq(!#Tj|S6#>lgpxfxgy_F9xdjr2EDV|0LYW0=V2<%mwmtroq0$&7KPF9uBRj@md zV7KRYlFS^slz(<+9e+~dCdecE_>+~pY}`6OhRZ3-!ANrmmBIPty_RagkL$di#D0RH zI|6LHIbx@g&%%RTH%w;DN3W0qdYU~lZjWFdb|)j-KaW7Y65IU&K_*Cd{m`#g%^-l+ zz$l;>s9puUgwpV=B^9L$t`pkVfsHW%<#Ia2igEGMeJkP+G7waJXQ17*=hg~$mhBuZ zHVc2i=0pR2ucP>=|5srFn?uty^mQEyQELw(1XAj?RC<`Vhz@sbz*?nU23D9z!-Y&~ zXZnn?6mFx5_Tvk&UbM1=kYit%A7zD7%`D~v09*|{J<4Fkw(qPOt4f&E;R#3+%$*=1 zHfeT9y!G%aNN*l!5JMS*XicR9v3?vwLq&X)U`=HNu^tQ+?Fz-@Ty-Zqwu!2qO4N)N z*2088dCRm^1Jc7i%xxnpR;a&rDX>x$3m9X1IwwNSG&+LcrHHP~Zcmg+e`KL*)qgh> zW>v|dF`b9;;k=gAkzP!P36gxl1a_@R5+UMU@4Bai~gBHRbg_( zJOo>{!4BiE)X4ZVg`DuBVu$odV3=8l3VEH+4y^Z_Z}f^6PbQ%qc+fxCW4QzL6m~aq zs~O5}Oz38ux7rB7qXYtMe43)GvMv`H3#wOqC5V^_hbUO`>1qQK=bbpbCl-iZ0az4> zDji6q9PD`>hHkX3Hkufkc*lw!F;Dn$KAcb*grfZs81`+s>Nc~{=@nQXfdpAQo7#LeUZ)ZXUNbI>TR<=75V~JXkW5EusT`4R$ zD8=~&<5YM9%%m3_n-7_-lL^93Gn7OuU`AKp)W}3gzCH9TyGQ)>;Yjj1HH%(Q9&@zdBke6v{Km{(ABqJr zQ($0hDGgOToQ~KH#VRMN13y@DH|oT{38L0eMzZ`D3xy#{H~yuJ>|z({!u=<(Ft7iq zPca>odqnUpGZSgRLx6GM(v$gX|A|kf2@)D91rz@%Pg6q>9*7IklF6;-tJ4|3!qXE| zyj#<=p9hCDzCo~G)13L!db@bW~w5f=(9~?B#EeinHr@8G;@(- zpWu6x=?z8sSiHA-t74oT-hk!lVYsx?D@dhxh$CR-#~H1a2Iw&Rz7dU&X$*VMr-qqE zRfux~NHw!9vpPj(g0rS7I0{0)BgynAe>|n`m>_?pNOU#s!N2~F0pkqWCd_IJ8zc`a@Ec(dOBAhZY z87vyiKLX_!FnX78#gp$(CHY?0e0rBo=?ag1dY7|X43W@liZis&2mgn$bBfNai`I0- zwr$%szSvGGwrx~w+qP{d72CG$ickJC`l|b;@75k;-|oHUn(Lj<6E=4(J-FIt^|e&E zx?JQbUY`$fgErh!RLO%ljDH#OjHYNk`TJu`@$%gD)2VQ^udAci7?tN`s<3eNsh7QQ z^))_M@e=LrjndUyyncn}v*3RhG}$cO@C2Ij1R`%bUkmqU$&mWAMjm_qc(V?}og4GN ziLM4GEKUCvsNbhot>^hWcA1j?Zg#5^bBQU#>v-OhI#rebX5ssEu$cm6+{eCQyBy0=v^OOObr3k{1Tl50Zh`bO zkQOKLd2Q^LB$iKy2R2+6WARF}=jZ%u$;5PkccZr)|Zz(XnuvBv`Cu^T5tro3Za zY`jA%CET2xzZaLi#SH{Zf@;W*8{KG3nE*fZ z`NU+_8hW?hcmN2wJDZCH!(ycpO_~6UyFCUq%nkQ7ELe{jx-1-Fijzw7k5YAnhmQZK zI6oIwoF&s5z(HUWX@ImPrzVbIES&8pm0;Q|tna0V2Bjx6JOg@S9MHhK+)R45Vy;u6 zprxcrCCxrER>`pkys!R@T#YC$&Wy`7dpdq% zVOS;5s`<)WSeQ;9gU`bn`7W&DQ%G7;mEFz@5-)pCnu#w^jZ!?$EXk9xX4VjQ&#lh$ zXwj_V>`x$QqMBvmPpnXQapw%8lXiahYY~+?&J4056~KO{ar6*orDW`H1qFwUYBp)vFQaZjEkw=E^D$1hkOY7DYpZN0q&6Eh*i@r9Fz)4Bl9d>(aSZsFxiOY%*Hbd zRgrMQvCBiUK2*D1D|lNxwK?#h(Nc?yZ85l(ITU&brl!=SSIfSeOq!!P6ui@UqB;Us zNo=}ozZk+wEuqq44x288=xx#Qwqh>1-)i&EO9>3Nr)&8^I6^QZ*)1eSgqnLnrUkg- zc=N@z%dFg6p-fzxY_-_+!p?}H>a~St)i}ww3c7UPgz=J#y%|#&%FZ9AGKmAF^1FNk z-eBIS_vW|r7h@)--;3*EMYEiP*m-i%Rco|YjZ9~_FxJkqOs38m)aD(PA3)IKs*#6@ zoW5mrL06dqWXZp`WvPcXXeoFR{-GIEWKbdPEzRY3f^e}vmA^gWLC{=g#)LuPAu#Zp zHjOnYB*4AB1GMqw1w5K$x#ZZYh5kX1O~$bzL4V~1rLUC+rDyRxVASA`D#y+o{Z{cw zx2wS~g9iAyY=a?MLfq36y1bUEB7kl^A5=o1H`12r$JZYpwI8xS&=X2sDelc@O?7JI zEY2wry*f1q(b)6e6x0}g@~9(_n#S{}@YUVd$}-*TGbr-aWkvKu#lvAF&t=3;b*2qo zeBhs25@0t2~=6;ZK-Uq~J@LXzQM``oO9b*5LI=VugWZ8cQ~T!Smy7;0^Hr6~)|>>|3ULk}4Jx zZmql>C^?u$8QQc;MBSVht87{apwCR@zl|q9GU}p5X#f^6Gk*z^nd6>%3Y=3a64|h) z1)YL}*eG+?b|l!&dJ>DKsQ43C%0BRqv~>OkgZsfZUKL9+^c9pw_t-v!GMXXOd2;V` zyQ=eep69A$ynIO(zfvT(2+LE;&J->ccmr#Vh0RD%)Rvo~yyla{_+9gMG}Jyq)QV9fNuj|=0mAk z6fu8w9^*L+JR@BrDkgeoPAt_RBJg-CSxX?)z67aSS5J z_?kUu87_Gm=hdYDl5iTdVJNFowG@0dx+*_2DMHM&c@sx|fn`k(cse^D7nl3IrV=Z> zCPKk?^s)D+N`vP(uLf=HSA~b}ALp@u+nn1Cp8R0ZvdPiJ;lf0f!04+I6m=vfPM9UK z#ntgyfUb-qEPiT9F?XOr*(URnR?HaLZKi6Iw9QSQ|$XwesvnqP0~= zFA!5+WA~LmntUP8uxV_)4EoD*Ye3woqC^6op6F1=VQ?`*P)c+rK;G7DeMAOCC5^y6 zov6R|a{CZj4-l!@HN&WhWhb$Xx$avp|7 zH?>nkTL6as8npcdH5^CEM#lnqAXVr z{`5O(jx>mmB1s~gOfzQ@iM)1KEnJey#`<4e42<_;mhDw7wVTE5aPMNmZUqs}h;kj? z9J-FV{m2#U6{|Q6OQP-2Y)m+CeV9C7(;&JAAS;Bsq#erRj6P;4CIlT)CIoG@$LE|7 zK!$0XI=v**6NO&LUV6Z3FzOL*M(5I`^p9sfF2w;OzxPaOz~`7(si%9@vM$y!Z?)p( z*vF2#g}cg>+o_ra+21UpS}T^iLbLAUqQ|h(Lj`iSR*wo(J;c?nd9`9G{qvt;<+v7c zl#J*6zW5FvIt65($n=#57nsp;X<*f}Em zitSZscAFZVa2>`tG)XQSwP<(DjQ}p!THE$k^;OY&4 z_@y4;Od5W0*n87?`i-nav`nGjV>o(`QQr^Z?Hr}|jNE}y)Ls4?;Jz)6VF>RN_;_}bV-fN7=TjNVE%r%MCYv%$m&A*9tcb96^sT7i1F#!}rTxYnkE<_di!;I5IEbP;w|$uE-PO)0FCc z=3a8ue@L-UCDIv2W(FL!0ox}_!gGh#NI=SsOf>{Hx|zbOrycQ2ZG#O9jk7Rm%z0|%2$dS_u9hpprC49gL$~D}{Cw^oPvjR>NKflZ zgrg#GSkZV`Kc-Bx?tUHxwKF1u_!X4vyGC0|i0=wG%&C!yJP2fm_0bvK1eFaitV3Cv z^E05C@bIb2)815(pKWz=xZszTmJH+~KM8MS3WC?<{@s0bu@=9&Z z?f>J>k_iZtx_wg|s6~gdC=ho-Fv*Gdd$?&zAtI@Hl*43DZIXt1r~-a!?k9nhr=%%R zDhD9|An==WeY* zbm^znMLNwuiikb~m(Y&VLdyShBGRFd#9zB^0jd-SC^yDiVI2vlQTm_J;ARFh;U#Rf zQe12XpvXwJnY%TJpCGQ3kQhUm6C}w45MZO$C|BTQ<+?jC$}q2)cEJ*T@Q$N>+0FRr zY1xfsm6oBWq=@HT{)%3rG9GVyJ&5tG8gh0mm4j|B;g%{{G|<6xmAms`v@>-?Q1fiTV??OVz89`b_p4i}APUb>Vkwtbu17VM3D=W|t< z#oJka!%s9+z}L1*kFM8oXxf4YX&^rci)?;JJcnM`h>~WkT9xtLP6|Zx@O&t>+MMFV6-76ScXNOaHz?ANRz^ zX-=uyU-LG;#z~+K1DUZF{Yl$HAgM$ShAdG8%@7&wN-(3i7`H@Yeqt?)EAwU{ar9F| zB)a1h&J2W;vgy(H0RlIBKkjcX?)90x{gE)(7v5u%b)SsSrH_1-IFfibKup@AX;Bmm za;zxcgOH+TBeL|%mggkI<=M1(z{QC7pYO{SXh54KWeNpCWb5Q1U%xHB&2Qwor!A|E zZQYr5B0BpACW3ZfVSH0mv_y2-8!zXXED9s9nv!bgN-cN6k!jm8oLplyG!~lI;IRWM zyST!k@Lqn)q2UiDczVEn9iKQpT7^+NQceo*%8~tR=2ANk)`cP8$$2smWsh1 zpn+j@S5k|e#rU^u<#aq7NcMl-qFOPiSPjPkX33CPvXezq|E9d{Cu7nr<_+YcOj96l zbG}ge$J)Jaz%jY=L*}P$R-$75%7Dt}NR#sVhS9LE<*&7N&($Xs$-o1B=sQ;0WNIrhHp?A%N$HUX{}AH&CH zOi_XN+MfZ#=bo|_eG=<;Kw-E~Gb(?JNj#`7cE9q(A$)Zq%@U1V#gW z*%+flJo0=6#^HU8V9VH%LM6qeWh04%+J}~AH7V%M6_D^bV5yQA*7exSGw*Lvu*WMB z35e9vVsX}7hnX5|;aUcWdM+1vY!nzn4OW)zX0U-yHjLF*m_#Q%$*k`Usdj*;i;;A8 zI8h3j=0CI;g_Ur?8KcC*{k2>Fv$&5t*_sm9`r<;p+dq9qvMvUg#KQ@n(x&IprC`XQ zb>6EG(gvV9WHcPCE$*&rSQ$1TG{33~iH|dT_E#{0F2%&5I`GM8y9Y&Q5Qkp&;HvXY z3E|qCa`~e~bk=K2={(xJj z^gC}DPTRJTGNF} z!?-yS=G-vo_ghc_roW(0l%NU>n~_HICo$8&=>rp3?2pjtcI|pDbCvPp~AEMWKgaOJq%hd^sp5F+SFgGY_S`lko7_ljut=fhsQubnm!vu5ouD(q8dP3Bd+Jb|6VjmD%7#In$zJ? zP~+m!-1dY(GQ{R#8`DGQIsbrRBeoB^h0ch|#!h^oC6P7i`fV z??k2>R(S;0xspF+`ZP+F!pv~iqXJfed3mYG>JE3SDoVBS1X}*szj2dY4{foe?#md$ zTN?e%RDdkvWO~^)Dc$8lg1EYqm#yJioquv2VZZ!=Mjj~-->s~wIwfw(WX#ZJY5C-} z)inRilUvI-H}kOg!<{}qi9DCb>NW4u zwrc$S-__P{FOdv8pH5St9w_IoZR6Li3F)2EfN3(`@9}rOuLr%1@0#B8-tPl4*6+9d z%x_N%<8RavP~;o z-h&T(nYIzafNTo~FO}e=>Vn^-vjZtVfZaQ1h9itE8EMJPBSb`xVtQQWG`?d@*hJ z&jBxEy_B(@Grg-u*<8(YHN9A80g1VrNGA+_J{uTVreX?CFTy7DQ-yaOupszY_n zia;Z6a>5X{jqaC^AdPD3WvFg~j}Q+C+M_rJ(+(cxw?{8V0tNExZzGWQb=5l#mz5^E_xD@uqgl3=! z)3Xfh^$OB}qZ8Ks$MKv}d5`lnX2K)QGyqyTexdu0il-Qv^Sh*&%G5oqY36Dzwn`+erzz!6m+-f zz+QEt(+#?>Ci59(yHQXxO`AJsW4AEMHl2n^!ExHMaAAAa5+1bBFgTT4?X3;$0};I$ zU5-2Cw-War3gUETn{IGC6$WnB*4%sxSkI#D=Y zIAuKt@sux0Mohta(7knMz6K$W{@XE1yl>qx1XQXF!fpz?P769kuu=ehqZ-YeL#jF2 z_+jg#wJf4~d!@~R4bD^&2eODXm@`-SSYA`cw#855*CBVjH6fWj`P|Rmq%kN?XPv~W zSq>VMq4XSj#GN&2uh0$yh1Ptt!2Ks}^E{3+Uv3G!XnUw&-kye_VDTeg3_#gGoX#km zj$~L(qL+Q7^zR9w$jDd$vXq6`byE5Xp9Vo$hu9c%e2%o#aXZmMx8V%$ zwW*)5q`z99`;m^p1T(6}1`0HiG~LZ^Y(tgo!Lh|`QBD@##lM*hy78*oPn#Xvh@OPr zq>xFDVCFeKfy%fL8slE!iD!olXUpW|k*K>5VX}wf;>;HPBntDEFp|XdC%ZVL-oWYe zu~8%gWSV;4@eXG?!IX=aGsy0zF}@h0{n(aNz8X0Xe^&PqDj}~CrXyS0TW9*CAJLqp zU61*cn=&NT+oxfR>3{=7l!cad1KK%JZr7j#3Q%Wjca6kA;&GJ*4afoDn9SD&1g=y#p_ z{JzAp<}H!VUXfS>f171+m17*0Q5EsmP)6cvOW|@&YBh#)W7U{rDi+Mg%*QQSYT!X(i3X%SdAIjO%+a2eIZWYO8)|Q@}v{$faYy*+>G{?F*7IE8pFSiw_dV; z!dTH6Xez@1S3&UlKE*LbwxHa+_n8rN^e;-=u(HYNI<8a04d(1*UV1;9N>>`vYZA#5L#lKLzh5u_I+Irl z5C!ap(}fPsQ4zhP^M<^R0hA{67ffQWG|qnI6ZLBlLEWg?Wm`yOY!JaU)T!>HJ&Eit zxp1^_e3VES^*r-5UXnX9EkCdDQcfxhVd}d@y=o_+!!%_1hprmwtGIsw96+I5 zRTOonsnomsX7mtbkWQJ>rm>YVdlTnKCgvgmg2Y)t3|C=Dt?B`Y#YoP#|DcDPmtU1; zwH5P^<)DBS`S9Wh`*a-z1Ae`)y^tnM{?1w1Q%N(;-TlM(As#5We?Am;kWs}jPiPJP z?5b#*i4EF{he1m-Eflc~>BN!^oF5%z7G9!cG6mTst82<$l0ZKB@iZ=p-z=v#Jk-Z4 z9#%!5PrAg&{UI#XM=b^`p?b<<9}TkI!=E>4*BS>$z+^b$etAy2 zvM(K2yzUndJwXrx{bj+M<=pc@#W3t((=ws2SNrpY6|Ml@Ym^@A*O*PyjdbE0p8q#z zxGxXsPh&bHdH-|l$&=uSfQI1Z`l}x7=71nK@ig}?c7pyv{cYqb&ZE_P{$NGovEA!q zCH3^iCDzIy=a@s{al^r&X$L}``{ey_{qb>w!$7o% zVXZVmqIc$9DC9Zv(TOAz}zf4r}!#w%nxAy;LZ&4>rwI^TFj%Pvx7Mi~E%wd(hudy~-W zbDr|Y)~fRis85k9O9!>xB@aHQoPh(?HxiGF%#`d<0v^77E!Pz`Gp$9$EeNr@uR5FW z!HLxVB0F}~x6+B!C0UH{a-%G2C?o zk&FvdhIDSg7)PTMlG4saZysA8Rdg28fa{M*Yf`*~l711ZU!%=NIs+Gjj0zK~p`0{m z5?lxkM{JFxt;6eA5|3~8R=z8ks2+Z16pMT;FaZ9E0oS~1Hc+A<``DU?B5Q|S5qR?H zezkf3B~=E{GrT?T-(DTbL8hadP9nMeb>%1GJv0+k26Ay1qVii%O8vWuVL?Qu8SiN$iRC9F)+51N45%#xVqo@VtPE% z%vXhbBYN5;S-mmdz>gPOXF2k18lf)^Pq%7&MPpT@+x3(0%oA?2r0@A8{pF2%ke~|b zQg?^cX8wT?D~<8%zZuZaj>o4t^Q5!!;JhCx>l{QYQsnnLV$Xw4yr2zI3b+idVFh1h zO-kP}p6W1olSCo(pCABG zSjh+-FQmY3!@o$pGjsPP)6;+t9qI-VdO9rD4l03E;R=b;!yeg1NdWO}HW!mt(W;Y3 z;&X!E6kZuVannlf&9b{XRwk4^(Q+nPUH_7T zM>}NZ!y>`IIz*XGx@OF$5pKh7xF}m?pSrFV&c+lJ%ZC zaZyp^tONQTEz^Ow-ocJF69nRzgrS9hW?GS-z3hDDW_A@ddaEm=Mz=c3-{(tyVT-&B zBBK_(WqD0$Fom%#GNAQwVB~B-dm9br$q?b#r=U`_SHAdfmJ*)Gi)k-uJN&WzjkV62 z%Xd7A1j3ioF|L7Ss2?&_Dv@WEPNtR&lzqNgCq`O46cSt1qu>z)b&+ZMFyeJ!(SB z(ycW;NqE+f`Pi60=+en#>72M=^;Cn10vv5#eHKxYStkKcLRuAg=6Y+X)Q<8(VEyU& z2i;BN>Qtajxd4mrEsr$i*RsL@=*)gmC?KdCbx{>)B_1$`(h>4|YoWL*oAICWR^Vy~ z-Xc<}6g&>FgO(rQvhPj-bm|KFbZXVEID!Mz1c& zHOMJc0BJ0om`W|zZKUxgR6b7ir+cdovfMPyH_|a4uz#w8*PkJ;PG6i?VBZ7_qLQGl z9Re5-hdrYnqa&Bl0?eDR|0(Nkq+j)GR-@mVw;B&T2W7F5L@dW0QR&Li7=c{Waw?fa z1AkbtfEc<*XmE6naX*P!p~4#r5VQd?&CWO$l;a!_p(GJGa`W0aNuB4PVq`>JqE&u2 z^5v$)Jd!C&O~1Tk&=9f-4S~uH4EI=a2GQ`5OK~sFD5M)*n#;3ooCK#~{Z-6-=1k!# zvNUXSZI8LVz11syQnW+!@2IS$fVOqjcZ2$M&y^XkrtDx%S_?Lw-7K0s_9bgHlE!_- z%6fqyh;P00z`-jlZV-f4Rl+?fE)+IxOBg?lDbI3btGq*qv}EElh!@>iPvx^#hx4rD z99%U0zFIivwDHDWpdesw&7+CQ)AuIgFyf4Xg~@AmS(?vB4w@0RipB=jW{ttAjNPnB z5DFJeGU2lvsT>6Wg+{T4^0(}l=@o}~j|!vos4-5k!GT~Vh)!K9&_arq%ZB0m0y_r6 zL1rkSd0ph8EEP^P=o%y|B1Vp<4-{}?yK@vze4Br+{$|ixOL0UT>0?-evkax=V9h-g z83XTbu%wW9!=%dDJJCRJ`GdhBwtO|)7PXo_4d47xuhJlT*KUE?RvC%PtWQs-Z1#nW z02Z5F$#9~g7qjKpSQ#HyGex24``%btx#VuQN2K0B*{}}c4e1^cW5ZG+8-UAOElL=D z$7T@y87RXO$3(j`pNlAQ8p*!XEF+s$6<&g2lJV$_fnkJkPK{KC(Rv4-eid|@k#n-o zU72vKf7I8kp%J8hv@9FWHn*HOe$piKT#qTQxSf`}-+=r{%%oB1;Of0SxE`nR&9y)tH)_K9F;ayYlQek@vYDn@+pKoWS^yNag^8#%=MQL1<1Pel|)D z0Vd@pKamO)krt#&;re{x#AUlQxq1Qd!7=geuB4p<99Nc(CD~~rM_nQrgx6}U>O&Vd z#Xn+&>QI<^SnNvZ$-zkWlr+}504mo4{UX@q0ml$4yRodSF;+82>yZN%Sdu%e`r8Pj zlPYzUHPPkPMY4A@p36nTySj`tWx)px{C<^#b1^jq0M>H#(gBIW5ndSA=u z@v#P4eThjByY%D=!bv5Es1#HPaX!&=|LDj0lF^l@5g0Y8CCT8RS#PRhX%G-8{%E}h z7Re;jwH?kjs%Fc>U+nzG|8r|u)Z|glE69cu<6aOm*Rjpur;(8&6=|DOMMPjfyOTcC zPvKguFBkm+6s#N$O^gF$El|uCqY@VGioou~YtvTP3`W*C6u{NI_;#f)C;SdXk6Ue2 zrsM=hZJt|fhFNmJE`ml{iRMpyCS>8UPBxbuz-7!uSK5USdHg5Z_NT=NfQ4D{?EN5` zShX3kFZcXaNWYKpQL46yqz)g)9(T5cIvoV^N#MYRXpawKH*H(Q5Os06&U zWFpLR8`5f$vS*DRYD_;<$=5C z++CS0U4qeNFP~!Ol_0zW*#z>kxS7-qBK8jM=pC2jT~)HKIvdKBg)}+dE9;`38oyoB z`$sl(9kK%uO&|3j5Y##NpPye9*S?Zl-Y*)3HKeU{B_K6@U=El%EkteT8Ev^h=b6W| zg+@)3YK1>be_dOk>&SZzm`p3cG)z?Uca;CIEj}AqNpOV1)IIMHGVHpc>Q9BjMJCGd|1}n>G_^%sw5h+e9AJ(=uc^y`%fE^qriz8#9k4<~im$XX=?oh+ltZ;<7_qQ&mpVPz_Qw0f{XyPFs~^gZNjF3&qcm#x->a!h98!wDkblhdMf|3N|{2w=2j*lJsZB zMpzXgay9?pGM~MkW_+LM*LlTJr%GA>n5Tp2wndOCv-`wmPE3_9DUe|<(bX)8tutwD zvq-qGjIW%@Xx&Cq#du&q&iYZsmGwqJlPviP)seg~;I4fCjksv`A?k2l=2_k{F-1DI z!X^5zwwttne^fx^I4{qHHJOEzZPVW!zu03zoO4=vqw30G4n1Yd7sl*)|7KcXEbu$>3;YH|l zgMu}e1d@yD>I!rkvf3Hbt6$4`To^9D-ye#VZg(;btfv7QbClr5w)jxV_)G+Y>0ov( zb&N$v>wL2RB!~e*x{NZb!-Jx|e}Caa$Oqq=x>H8VbTDpf)f&Q91jkyBxCReNy2l3B zMxN>1T+s5W%Y)A+R2*haw*ZBP$c-GCE?bSO4`A)PoZPAb>QZ;`(yRfrsDS6and5(> zhZ+WhtWMHfj7!;4O_t)HdW4@cEI&I3!<>Ij?5lZYCM_-005#(>cv>W5&j z#)d{n=>e()IbXrYamnifC4e za5Qt(yp=oq3$jcnvTt)f%Gd;~pJXAM>Qh-7>_D|PX#?bEcw|+9-R@jNVD=boe=*)# z;r;e<-h$e&<$`?P#U3<{-wZ|}BVrwF8J+!{_c`cS85si|$D^%_e$m|4ngMl`R-F@0 zwxD#?&UVMI^^e1`28RlR0i#s;biS~$=ctZ&J7pBAxy=sIq-B19iWH+ zd!5a5ccAxv18Y?~#sEZ)? zS+9Tn*rJLvC*$WCkVu7gn|$Ggy$O`MKHNG!*bpZ4EVRB7{JIV9y4!VK-%ey_pZRpZ zIeUj+Fe5d-4nCf9TfaY_d$+%Cv_Za8zDK_oOOn2EPhOty0Sh@_uWcXpJ3e1-1OLHD ziCRD16Wx?%3Upb!<>v(0Al_eGJ$h$p{hU~564N6dyUx;gMtpNlzL@zA-rZjXWxJd_ z*I$+yAV24)-Zz0)drEl|uijbdQrYPWJW8glSY%{_H-!W&2b#UqQqRp)%Y0Wq>L&-G zEAV9mfWejyuKzjuc>UJeI+}2~IeS>S)?01Ow!m-&&+O{%M9=H$wEH%7brXL&Ml#pR zIdXkb)qf6prm{0-ns&Yn-gBCA7mc(B-j?`IQK$1eOCWEcnfST zo%Um-?6nQ4NsKEMH>UBw&zjb1g8zzMdZ83K9wciB{t+Rcg=anH`$m|K(jPhMs^)~yz|yT zr1i9xj6uPaDEvvWEoq+#Sj+3YScdCOpk5`0iRER77$+H70ER&-Ss3rV$tyWspWTkg zZX@#4BSgYH%7h&A4~ustw)Z2>cgiD=rJ>8>o!@iGgj}Ug%?}|xbd5&jX#l&kyM|yJ z`2gEl$Q~H)(moLB33u$&qW#ud@HHE@|6x*#g4#LEo=8R>?faPTBw(jBmvro=!O)-jRCd30DXr!F;)Oj#!noTDTb9jCtlE>+9 zVvjD~*HTP5jCk*M#fPKQ&C1#jr}I~YWpmt6=n6kVm<-^wReNB|rP?SN;GXsTF86qj zPQj_K?vU)T~K5ZQj^q0wT%OX=kX@#Lj$m-mOZPePAYm=cOKZA zJHuX?gTUv=XB3>9B`UiF55jdZts)F0M>UD#WPx{|bR#L^@P{a@36Ui4FSI+d2Gbd} z!4r*O_y$kgpQ8Uja?6-;aB=m67`Kxz8Y?nQ3p;qJ`uKt!PV2c@YI-IxTl7_C^CKQ1 zkN@tJ1ZMhqtjzo0-}VVhlQCwc##}QY{w}ZuW<5f>FthYhlUnMGBsaz$w@(wdr&uot zJj{Q_eqcTQ=9?*(9lOLRjq0{Ca1FgtSjP02WAZ<;!p`ksSyw&6>(Q$F3;VjC>8{nr z_1T-pEx^7)^fdh}A`We0HDMczpY3Nz_Xgzsyy@SE$FPwkGey7XbZfyT2In;E#~O{0 zs`hAlxx%XNX|bWrzjjGG@%@KB*gmnaQ>29D7}Dr6q5)5DV$9sH*&>F^+3fL(!dCty zv!_MLnir1wN~}zN6TW@#)J^Ik0Q{{JGL&q!IRutdpG;((w4Lgg9QBY%P}jAa@f{Jb zo$Q5{zaxZR2y{6g-0Oo1DNf6HT$3sbc$nV(g6*!U-$uYYtxHb^g7wHghwMoK?Q73O z#|nI5Rg?LSMID%3Hd_a*Me}qWKAX3g#ag(JP-wNC;qM4hLd)AKNnNPmy*f&S?-*ZZHws6T2-dfKHLYmR<0C! zwittXmW>vb$6I}ko@Z}w$g5%@T-?8Cr2eLn$pG|XtHzl4Xx`=yXhC9aHZgbST_a|| zk$WM36KijPCu-7iBZq|jm2p-s8iRZxMLNwpkQQ2yD(PBhT{B7digvk`3U4650;r}( z1SuQkh9jy>)gVPpOUN7EcV{3O+)Qf8G2H%HYk^r7#xcnoRIuj#AMX=K$F!p4$EMo z&N_OiOx)|5I@G-^GA;fcYK<^{l(h|Nf-=m~@+lpWHC)vU42~d|0VSh2z-2_;yb@F` zMBgJ*M^QX6yvbcbL|>W$dxK27TOB2hD8-6Qsbu8JgfvUotd!tK%A@_aSQzS$njc+{XO8ro|9Cj06b{FHBkg-i@3U zjKmdji6{fBkezp>M<#C^Il$9N+*uq)1@0z|bq4i4Z zY1ISF|9O(T&^;$51Bo(@BTDI#;X#Ip`Z;ut#Ym5?0XFH!@)%Jkju6_Vv36Fu*?7r< zECRm0f+a-S-pYl1DKL6G)DvJgv2*-HW?Q?@kGUqnx*iX4qdmj{^sU*R4w5FXJ;ZM~ zworShY$+L+pI+r>NP?oAp|PoF1Vo0;0|lK{ul!w9`1~Hz`G#LzyMa+3k5l0W(aw-w9wwlzVQs+x)==*PVzgX}N zCdLEQ9w^bxY={g+08GYIdIkorbA8{&GxaiM#h~u3PyKJ0bK; z` zJM1;JuqT&+=v1to*esLS5bp$E+5yhv?$z)BWM$_e!~%js+KV~*zK@N}QUwmtCL2ak z?HTTO?EL6hi>{%s&J4Ej3oZvw$sr5_b4D@xCupc+VexEd#`sJ}kW9^H2^r2(OjuhX zm@wx&R#NRjSLAhllUrgiEtsUr0&>(A*5e@F*jV1SP_&dY5R4}oOqwEe;fQr70rAd3_#?X1Z4Ky@WspJMW}>;8Kw~p; zno@{@Eouq8l=8enlgzjCF##O?xTx*#^oof!y&J5tPB<4(-&59YmdInFMwiy{s^}8f zRJU{(DkNldOO%vIE{3r7-Umq>?>l8w;h!P7Q)QwXNM{`nb(1+F-xpX#SaKq4h? zDDSZki@WCMjdES9b{x=;gU=f>AJI~;d98iaCjK((?l3ZbsA_6Nu5f7|`Kxju=v=K< zhAMVRn{qsv<0wkXkS_jmo~EeAx`9LB2Sldf71ir&C)D>OJSVIt)Pip)ehX+%o{y8~ z4^hLRX-8oO`1^$llDhCT9pv0`3PP6NyTP$d!j40^MqsHG%*t6YI=xW*p_S1#K5YOj z;>6zCiG^5QM#T;aj$&`DsdS%sF<2kyf)3iV`6QR4S%&Sy5wIBPu6HuVyRJ{Ct_4LJ$_$Jk*lv!fCQ~VlDhpWRz~vaY6X_9myJwJq2eb~7xb+o z1wEin`aOhIr>(3+{H>Rk5aEE=kYGwjG3?z^$43EXyW4tPl<=bRd{hKYRUPW6^v70O zIoVMu@w;6wAu(VFmh>Cd^{7anT9}D~O+@r+FG~gQ9fgakPd72qvJ3B9maE({;0dmN@x zy|i#B#6yc)YI$8RF$O!qnd6M$;!sx}Aoe|}Qyq_1+Us}FGT_qiDYySugScL)3Y$A~ zmj;OKKv--TYBjUOrL{Fb4?pK5Du7*sUtP$NB%w7gAw=wP)K(ls$!a$AX;7!ZBiW#0`7T%aqC1w41b2 zZ}l{JG+XPhgc%|1jC1#hNvmp);wm|_+^MgD57421j!*zQ?i^Wl72tI=Zge}ke9WcN zc~Bc$7>N<mw>CMMz%ngQv4;snn%6}8E4|(eFIo1=T5L+Bs8C)SX$sVkn zBZNa6yhW)jVcn&y15wm?$xc7%bKoh zZXt1n#i^nYH5}cEscy11!`B8M@1vKT;yGj=e+5q|m(ht2R|Peg{9hsdA=d#J zZe!ntJ7nK3T8bq<)$^Kxkhj`5z2j@zPG+&L6H(ot zsQSzC8-ws3nN~1M03SB{iXYO;)gbRw6g0q%YXjX)YMGP)Tz_|{&mBi`h^hixIm>gplr2`$5XeM=BJDzzO=~( zJ;};IJRmZ1g~&)UI<}0G^+hO_e5FJY!?*570HloklPq;04-qtB-?*x4Cf!c+ucMHr zZ2L)0AZ>7|%t|RNyBT}oh&+xSt3cnw71}YAHMn2e-6>0F;?K^`;2-=|{SmTzCv)Qs zqG$sBkKvO8i*ZN0Io(jF#o4UuWw2`Uk*rtA8_zGxXEdNCqC%cltytW`WOnw&UW+AW zu5^qfVw=9os{Pu0xPK<#c8`;X^iO^kkrfV3$W?||MCZNxHI>h8u@Jd4&XY52*3NcT zZ2Z(X3DVxx`#@C6HgW(P*7S?+ieEx-^#r!>b`BxNiLY(wf%WSSwkqEuTQe*?rq{l8 zI*;W$)PY8hGmfU;8kvgPK_j<;qF;F286{#$jGR2Zn7Ymx?heZGni7p4e&G<&6R{}a z<=`p=)Mw6gn5vERL$#f+dJ+i*LvKFP5LYt$sa@;?o5EqGkX@E@cZi75uVpMHTmT@z*S^?(eHkCg5X zfdxrp2q5A80kvL?Kc)}^;3;|vi>cjLDPPX@AKdcJ^7h5L^#=Kdl45e?w?R+8_R(u? zMaP#Lw>IzFm`GX*J3T(1IApKYqCvMO0ZoY>D-ITlUSG(0|=B6s8^Z!W}(T$_Q-2^rl&s-^4t z_n+S(Uj8jvY{rweZUHU4b{0eL13#ab`^K(y-<%rji1kMG;nAUuwfFCMtTPzI8}eK3 zR+5>}t}hSUJmmwrlJP^#GY3yaTjL4n*~$OO=CV1%!Ds5U6Q^BW(KQdnDLU-xLJ|dE zX_FU@W-ZDpDIC}$W1;C$CjLe00o8-ooEgsjGlKF-mis5`jv}*hENJDaK#jEC9U|9g zR(t-8YpG!L`PKCR)isK#Hp16<{!9Whk@NJ?ln$U}s<>l->ZLUeE8iXTTZ&8uB-cP2 zwNg|uUPD|Fl?3*!rvPwojar_s`aNmntRmuZo=aW4>emueb;SGUuO;rII+DePy;gk@ z-hDb?ku3Q&TAP%;D969UaK}>FtO(4vV>des4Ol;(+7FSB-By9kNtI;q(N6HOk| zT!=*%s@pW}(J8x#^aQLvD_}wQ;IeM_$q~?%7661bT1_HG*J(HlOz9_8RPTw3 zI>@Wk3&vp|3h=b@8WVTkr&0vHz65;1Bg>%yDa_{X2C5m!>I_WM$oX>avNW_n#IUAy z%mf(vFlEAvf5TjdB6JzVM0$uE(Kg1(OU)v&H_O^bdyQ4I*jP`{Uo^k$;c?7Dk z9)`HYxY5I8SF4E!@7i66i7)e4A_JM#|{XDq_BUr)PqG-c|8Kb&A z_NWOICMok89G5{S+)m^hRQ#Fv3^g-NFOBaC&ucQ2Flk}(R!ha#1k??S!7GeJljb{Z z#M$!^wR7(BeO9^%__Wc!ryip|6vc>&ZFTwH5A)RY~>53@Q>M${2I zGWf8FJ(-SUl2;08!d3hS^-mgTHLVo79dfS&rh>49sHZ+i3h6@}O>zRqBPUo)!cBt_ zNm-$C$ia?QDKR@h^_lX}<2=xfhxM1#tvm4Hemeb#L*7HMOqDLcN;cf1Olu^r&r%1* z`K;0qBcwC!sMh1w-bzOKg&U=c6>iwGjoy>eCPL+DeG-PAZA?~P(^mP>q^9IwjCz8U zpkB*$(eTu|r7oQk$h7Vc+cL1J;d%Hfuijnv>>hmzaN>vWFiMQ4-Tq!`|9!Ks^1Mp6|Y$gK(cX1IESi#~&;viFUV(svEyv zu~92m<~^{5deGcQA#zHRTSNNyD&z+*| z4RJ7W79+}*<5FbHn478BP!MOp;`BK=5s6CE@m7~pmGqRq@KRl+SH5}uJ%)uo8$e)| z8t)bdAZCIFMk=qyi|sPv3*=aXEyN0ISFJ>u)r$vbvFzik*iaYRTkE-#Pl^|sv>u^X z??%}8@0R7ME%Hx|Wx`F0M}k`M4Ur)~`|eM(%#>B^X8O4ne_nB_$Wd zj!8WCS{}IvLQ!tiuLze9E5f{t4AjQyp%(D~V*5aGE{#>oXTs!Q6WLT;ImOu{Prerb z-|zW9$8%pvnvD?qsZt@g;_`aL9k)YZV8nqq?SXpjdxo2|X*g%4ep2W}Yl$rj(07G(qmhtqlV z(yZog7^E4#kSfUrTu6SG@1HRkl^F;Ib8{RB60{KgX!-px1RE$xAYJQ9;W+X)>rEgd z-ZO((v;Mg!niz^F$VUyjKaMyI_2X$?i00DZAl$yd&uJ`CEH7YhdW#j8-j`U&F3&|S zTnf2Gbr3VRW@`5^9Xs$xGh}?4|4*@sZ3(=4JIES1dScM*w@Eo1dPn6g9YL;aY_U6w z-n6cNQ=xrZ{ShQw&tc~-4-cnA_ST47WrHepQbL-otKl=b%ZlRRwSBA?(HHk`t1k+M zq$!?v^5u6;1A?pP&W|;oHI_cT!{OJHeknUV*!}@Keb&V-`2iir_`~}qW1Mo*aT9Yk zm90^46#IjTVV&Z9Xh7fBG4&#M19u>teC<}HUM_=U%@#3r+EZPA+&=qyhW&Dwehab0 zRoEP?8W_~fDj+1$g~lo@f8|RB;fOh2T`C;BI?SNfk`gI=^}FLb%}~Tdn+RdyK@PQ{VVf@HEBF#qc+A&!GvbuVU~^dUFt-MrKH; z&=Z1TJ6tjnV3L0JQp&oL?IEJ&HK0Nv?~lJ%CaveaUWlrEn@I1AI){D2b?kY7&JR zIg%tNsvW}x{9Q{CHX9e4ZvCOTaA#ooP~2;knvSK~BffY>wv~Se6@O#*(v3j0!46*| zvQ$z?#uV2YQwjB;#hMgS6Pr|>Y+gqx6J9O{=Xy)r7?rP7R0NRmxq)MHylcAC7VR08 zhkZvritWoTMhubnx`1X|mggohCw9VV1llq<70?b;9ZFDhP}8W099hO!`h6msjEH6N zNSb@6M&`sX-)86I)JP)i;Mvmznr^_3WN#Kp6C}JiIJG~;Sd@>KS9|a_xUdBBss7Rk zGO+Bnm$1ghtn52H81ociwYD$_mt?`tdT{W`_^xJ7?c}}`e{KY9>~Bnv+y41Cy( zq7xpnn;t0Nv0|8pVrlhBDl!sK8@Ea`&NOklKtZ6Lf-{d}6uwvxM%Q_9v&19Lh0dtO z9nKrwxTg+B%M?zX?AaP2$P8KAs`i*Z$(VNHk^XCKDQ0&z>`wcQlclVL=qewUoa4An zkkfwnAwp|EQQJtobN*|U-}~fMt2{n^=LI>)Ft#j7@E>KNYxJzlA)F-Vb5E zhRxI;73j29{4FpMF%qJTEi@va@=#Gp71FV{P8irE4Avw8R-AHZS;?ZL{HE3gzi4s` zc`NXg@@I!hqU$y$8`+VPIc;@VZR!k&*_V9XI;fn+gn=t?Q;HF zBt+htJiE~+Tdt(MK}opr zh*hAb!l_5c)^gjUbuU4g8LXz2LbeWk%2j)!t{aLMFyRJ8{n0QCCc!bup^d{n7pZBX zr(RSrHdsPPv6ks9%? z-}*&ztgBdL1eO{>-7k5hDtQ4ieS^}8!Lk@Rx`~s7zQmVWJao3w7Ad*+XNk>zrya8y zinjd{f{uU*=_ko+s`0kjjqW=&<}_ZghKZ{(O9J&yq=TQ50}|bxFWx_B$wC#paTSD= zi3~T!0~}=q`mXqgI2qGEMBY^z?L`I^47)bg*dW4ObE|j=>}-4_dKx#4=>=KQAj&oX z9f?k10p<7q1C$|ohnuX+2-l(k)CFnSd4qMDWOO7COIZ5jZEXi|QeP3hAsqg=7woOC zZqgKSk>hlqgK0omaher z2;4J7s#uQ7jjQ`WRp1>BG{%o@#2#|*52QLWaaEEcRqUc}W)rPsjKaYP86K43c(E2{ z-BQ6WB|&x6h!amWEG#fI#6C)vpqnRjQ^~fi;#`%mudbXtULxesh+mPgrw)SCzIJ^r zSH@0F_Ano>F_@vuPdm}8j>b!)2@%ZhuVRb}dG!^Zm!=Yx?5Sp~!a`AUYRv{Q58~|61=zAARP%eQ0+~D(iJ9 zWmig9a32y{sR#poAPR&sXbtE0%v7`|x}BZYE}4P=t`Z0RvZ#R@g<=4dWj*pWfey#|tNrwnPn!!5W*^e+Q7O|C ziA4^?g)IW`3s0A;_s8KtlaHvR3sUf=@!K*M)c)oJk1xJ`4~roUT9>MhfvhcW%>@af zPefj!>Nf*hFB$~u{nB!3qkgM)4ypS4Fz7`+A|1m(y_XVMvkJRXO;?dp@{0=W^j&bC zF2<^GV&t?}#a_IWNS zndxr#T24fwVE9 zt~vHR94hK@lkECB$%Xgsau|3vF;Tej`!dhn>MUSO(=r?ANr5zfO$;fr)=tST&D}x( zRhoF2jeY2TFr^zYEG~`fLP%s!49q-8#&6y~a1d#E7fqZ(*(zHO)+mv(#&>&BG8jQn zyN3}H#P(tFwwuGtYtrADJrEPkw9~0AW1BMYXlvcQlE8%Kqps`yh2zZeFu=^kbS)!(67h0iE|kCYfX`sGIO9ITCFG2@)8_rmwJVzp3hbXKIx&kFRjfUms9-yI>(m7+c2|( z!zU*}@QbQjh=kb-r`#RCWLp(^ zl(QAiPdU86*t7*0c`H0#(v0{XW=5DtNhV0H)vQYCIV?`<1-2(V-qUs%6cpcIWo^+y?5W15z_-TEcQW8=^>a!= z8*+Rq8reX^?fGa_BIR&GqoU?Q?9e)Wi88r@*F_5|*Io-Ad8men(bfK&5@aMs#lEBf z?c?T&ZpMUmKdI2`V}K8P=jI?E20>TeuSJ zvORUQ+a~zntgpOCOeSOtk4HUuYI-R}C%2eQTN+XjqZ~CQvHz6A=~PG&lI+4s>Wk>Q z0^ucA;(o2Q9$9IkO2vl8CKm?8r*nif!9LJ&ERr{jku-NPSEM!Ro*ZII&-(f$!tS(~ zPzqABtPU~6^c9jTaSWqWwepq&ZZI|kGv9O0Y=@HEVtTUIwq$7PCI*bR|KN1;!|ucZf;_6!rx4)i?6rt4(EFNN-d3H=Ug%g-f%I@P`99Q}QBJ zVrSrJj^h(Gh*Z+)`xUcCN8T|hoegPMlL8P^wN6_UQj*c~q6YzAG&>rl2u0ByMme#^ zvWbq2^nd1wDaVD2U1)#Ufd{9etpfi%&~Toycx&a^!M<zZ=nvRUr62fe3WLRn#(>Iq^rTGN%Zuc<)QKt@y&%8@E}s+~B{NuU0E%2L&soK#RiQ(xWuY+> zlg|`6gOjAh%dkY`-^om%U*pFU;&{CBN(^O~);)euUD>{sqM4{h?5M1mOs3axIB`tylpPk24efQTi5gRR+tl<%DtAZ$EN}Uz#Le-Z<@dQmB|S>zMfdI zi$=`4SRdn_;RCpm&6CW?tm{fS4x!tdT8-Gv84h~I@ugLJ81XC9ERwZfmLJZ+7fN`k z0?5Qa9;9ai5OS#4uf% z7u{J|f1#Q>4HPy+WX+0TmnEO}JCRQyGN4H#EgOyC9YBKbi6|aOu2w!@bKkZN4_1D{N1&P$* zGKg=y+aJdF#t zPD^q&G!rKJxZ%uDmnX8*k3v(+E{bwQ zMH6A#DB<~`IIWJZRS&tax_{mqV2GzR*LW9sDnO`}Psue0XVMm61_TRPQTTDL>eJRF zQA)bahv`bZkb|Q27n7D43L=~2XN~D>hvwd{LZf!K23iRWue#~gYAf}I0i!w2$VP40 zrUNFqNh=hQl1^<`a_Q2)cCtUR<%PFvx`<$Ep`x^s!a=ZZ;}t!p>3u;3^iS6v-Zmx0 zgLZge7|=q0!uw1O{e2e3rqk`^GzH|K7c`W-)$%#I>glW)?cv3_^X!$JV38BT`sz^7 zoi76uevv6OsnugwId;_QCHENvT^P8=5Z0iUyy}jwmq0g-@XjQ>Z<6Dn8R^sg7G>vL zW9~7B1JUtn6Zu^vn-f;$#Q&yJC~FRxM5C%(4#F)_;JE}^>F@Gqj{w%lXstb`t)bEnDYWfLaI2a*4`&f<%gaKt1Jk&FHhxKRG#NSJ z&&?;@iI1Yj7buaAlbCGe&V3T7ImvpddK{x><%IELSTj)S-zX40QHhh->rK)!t%QFG z3Ke-N{w@0FOO2~sK>2d`uV>OHkL(+orpVgUO zh|NBe&2E?7w%U^^>G@_y(>Xqbo|wHb!j1OwiKo(i?zvv&`$yF6($8rn4oaMbbRLw` z-9Pr*M|-A}d9)oYV)Bf|6uVd`3d!@JRfJ-2@Q!Mj>^`(H7YQP*09X#S&>e{g1~LBH-qltc-U7yf+i*2SU3u-Axdv=BT_Js z@+=1hDBPzA*4Zeg3qKyjK9mVCe&n@1ZBC5a4hpO4B&Trg3qQlus~0Clm7I#*#bkSH zqGN3};W=WT2niylXnz{DG*52Uczq zb3i2BT&ZD!7G9^Dhq*wH8@LjFyo3PkHewn=PNEJ=KNEXz2f&7okhtMw)|`kGs_odF z`ipK8^G$R{K0u5-e;dJ$K1B+JQNKh5VILbsNw~hz&wuf!U)$Y2)sd!!$E!>Qwo2hp zk0DWpFX=`QlHkj#wl;w`uGeJ1JbtH5%W_khLyb~SnC{AQj6`&dSZ@~-O)Uv0v9O_O zp{XEC1FTtJViyVt!-uP_j
t9F|}fjE=1h71!#8A_nyvv$bzHu!J3$GXmX*#bCr zZv|tYbZ}YG5q=x_{V6(SzQ#szH?GfS>-gv_1e78Y)r%JIOUT4DUR#91UHj7Ea;nEb zys%PickFVh?43rdMGuX2R9*KqZLgE!5Tj5?120Rv$~5h%X$UN}%uI2S)+yMM@WFLS z3K*L~c_C8q*$I5Z+0Kp$yv3T>4*c0>9KesY*EiZxXcxLuSVQ4_S3!yPca!K(cIAee zfv7tu%J#hmoQ>;u1VFhLu<$uBC|*>URBRV3b#{x4A_Rq>iSU4~?*6JV;_tLl;X_)oNt#zvnoU z(jdV1cu1uN0`J^VyM~=|3*xfTp=Epjebk{P_%ERWFxLHiXY5n+&y!r&0v5drd2*e3 ze7r-;-uJ8#v>A(X?II~I-J`M(z3zn|Qg7E{#P1>e)_QCjZc+WIWcL;d=eZ^jdKCxtp|YmvflN5Jbb1t7N#+(;Q8~C0KANeBw}Qoc&m19MCw(M+ zn>qeMVb$|M0#u9q$cNCtcMMOLNa3u$ERo`T{DTb$e^J9IZmxYxh(+03d0WND!3?M) zpneQK!p2trC&UUa6-)LkS`0XY5P2}A&=jR0Ci{a9Kl)u9BwJx4QX2?U_=V1`*zoQ! zw5qU;bmkMtFJD>%i#;;ku4$8q>jR#}?)HloJ%Hg7)m|*R;ml*YHdu)9{A(jE#iC93 zAty0A29jc=ZQP$1qexbm$yDr>4(cS~1Zr>Zmf4|AB;wGpMu@B}A6zO?sRh<`{erZ$ z%e5FPYDF3h^{zC5=6uiJG?3P(zM&Xf;IuHT)BH73;zH(5im!bmmA4C5zXpk23}^T& zyE_rJVwJ;js#4sV*}$plTm=)*2>J<>*nn@4aC9F(HG|iay1Cx3Q`@u()5KYZ3Xd0{ z%rbI5bq;b9ICV#Ly7)9Y=ALtQgz!J751bxz`X6DQiKXTU2R|>Chz37#;*I+IZ!IC- z;)_pey!{j!0&e@{xr071hpS?_5R-`<>e0TJRqt347DAhOctMmu;TgCqe$Ajv73>#7 z*y;S_RLTl3M%LS}fVj+kQ8`U27T`Kdh(4I(6WU0z6)>$c=(;I3{&8$KAQC#;176TB zSV?G^Z!xV4 zCwSnejkHZAtdo_XWkBTph@qkAVAj(#AGZQ5PDHS?(sDSXhNha}n$X6uYy5CLbk2!y z^QF}+r7_qS#*$ex`0-sk;uW7*J}dQBC&q77>_aou0X5yqk;lS4y~jO5w!DNv{>Hq} zc%(ku<@vD{?&(R!MiB0K8X7>b?<9&=uo1Pb&gZv8N@TxzI-DtJSbLTy!&cjUhv+0Z zr2E1%9>DhpPEX{*muW*cfxA>BS$E_CbTS@z&3=vHX}SUzIxR`_NH;U$3JR5je05%d z)_kdxSxBw>a0POlCSZw!4s?0z)h*|G;1s`68?UHckL+p&HFlQSPOHai(q7>Mnze|f zDy|vx9$dJX9w#RZpj=s*9+qf5u-}d|K-`q!-lUHQ!)-mQU(kJPozdJL%sEHT)TCoS zL{&~V?s(xJBot??jhE>D)$G+7&bD%25HH*UOgG>6UXNcTvZfdy2-Uj9!{+{@UYyez zI?@unx!d`2d(EFxV07V8YRp#pH+Eth7tOQXy3YFbFQgyKx_ocy4Ph18C9vE5toaEt z;6s2f%WJ-+2142KSHG$NrG`P;3%<6By>6LvBjF zMv~3$A)+n;%2oRR z?w)meKfLlahb_U|4dE-#gp8la;I^LvU;i?(u<833>4e+}5woM+4@P94aG5RS>0Aua z3mue$IA-sK1k^}SuZUuzv@lQB5lyY3?NmVPSfA%{#O!MGE$r2x-lBZKW3H!r)<8aY zlO{9zNtp$Q03|txFXXM#ZWu~;znPR==RB%*-d9|EM=~ar@fPrm5MLy zygR8UD?t_6%T}R*-{q>D0GDZfEyk>)2hgnJ?aB!pMkMiy^2XB7ct+(GpQs3qUp=j7Zn>?89TYI zY&^pSBa;1fHsUve7tNn6l%&5@E3*%!k0Q{0l+n@}xV#ScvNb9Q<;J1)3%(0;51V=V z&Dfvq&5r!Un=>ozmrX|p$V1N6LtDD^ub|)g{S_@4^)&nUY(&K5<~%c!C`_wax^*1 zCE$t={Y#e-&#bjJR=5W3Na+ttDFtgm?{+ox?-V9bUR`^q6bjd4QYuT6WEk<*YM=}S zkCiAf zhxlSq8> z<~)NG4nqH!Dl`m1%`)t~S(xr57|I#sWI}m3sR`~$WdWiU>hQ_{1A#Wh5l4L9uxR_o z&@9{DHlF;3wX1kPWRfOA2?A5c!wif1XT#P~j9kQ_mrs{r*+@wbPZmOZlzj$aHq34< z{?sDOIdmBI9KNMgvQk6iBTbtP`q};;hk^b>Lvy~&V#h)=u4ScL4&Tc2&VjIe(6LCv z@aE(wKF1J<#mSw%ZmhL=IKh-I<^(pdW^oXQg6g1XD?rk12h%wRi?w|g8a0Kl1=<&b zQS}vihRp0Y;w#do9xh3E+?a*l zNb(=i8?lXz1ap%Z260@!$B3H9`7`7F>yFqw+1&i_ds_?iaYxR@`z_OoJ4GuKDB06n~e<{6J?mS zl}+8?DX(i9y$2k)p8aBo*nHH7P1fO{^yPx;BK}aFg=HmVo+#gzn4bXA*!b|@(&f2 z7P9lbO}7o!IRYkA=?+OsPIA67eg29!HIKjK9~QJfJqQVWsrRLkDZlZneuktz3@Daq zlk?OoPk5pY`4?!Dlcb*xyI!K8Z*$$j^o;8_X6){6=+5-Kn0X5!p%yGCG_0?P@7VNa z0R&w>{y8r8s=ziYgjNN*NA8J$IXhStsugpyp(w%d4jY^ca+lpW@>F^6=J_oCEJ*p}`4pl<(v<1|4@^Ra z$-o?6mvq9h5hF_alO|q18#2WttsPX{Mhw~l&b`SpQWUH_&y-ZSif2 zNI|K%7+i%{Jz6Lh2N^#*8^U26a%dP)oFdc;-C5ZhXIzJ#5^26cp=o6wgE{+T&yt*3 zJ~GLsh%14zAkc?Cklh;Yu!l6iNbV)?2_fHzCdq>e8Vk~YQfrR$V*_8T?yZFsay9}< zpfM8shG$s!qCv1Yka&|xJ8OK|8eHjn*J!>*{^y`}Julw!Q2ad`=Z3UFq~$GS@^0G1 zxg0^voipt_VRiCqhA3ngm2;AG3T*;&D$s^^1cFEVxqfwbg_Y+uoL5`^kVpOp!)Xf( z!I}{>RvJ9{FRcu1G3uHJQyprTMdWx4lo^u1wQvn0@;J>kbhLh>k|AO3&_c~d$DSp; zaAqTtS^DqIh$L~53GP4~&)TbGeE1FL867nho(3nHWwheVHc078h)k~)YzM1Tn?7cq zjEGY$t~TObQLxy@zR$;y0&ko)gCNedvV(y%Flsk0OiiJ8eZzkWC^%)1~fI^5LM zdb)6!o!=538Yr(eHu$m1aj5MCionx0wU=q0V9_IbJ+N|=pj+6`s5%b4lGg1wQX^MR zCW(Om?z{E_oT(A?pz~66{MKopyB_2DEQ=f=+PbTZ#f;Qz(8M0$!I-D>jop5r26ZmF zobnbd8d4)cONC8ovbF}g=mPmDm!_)ts^ZV=3Qcm=$ku1B2L>poHgx_3(2(`-Pjm}x zSg%grHgoQrDQp6oObtR{VMx~nX6`;Zn1Ff-g3$W)JnK3 zKYl72pAX8~Wc|ve{Z-LX5>h|11wl?&{0d4;h3W0?XCU8+9u23dbA-SRX?@Fk;XUne zo)?SIRe=1`^Ja)&Mta1HeJ?ukKiHM?N87cdjoB+FupnL&y$Hc%7g>%G*``z6kpx(m z$Torof{&?0@O3$TUbF$~0I zCMgeJ4&`g-;-~r9t<@>cRY>x$#hFQy)8o(HZqGwC!;vSZ+|oklJD&Cj-C0U$!J<7I zda=MGKc;k`LyBa|?&7y=3gQ1+DJAEWgoV?nEma9oVBQs7}DV6jQ| z-O7&M$B{tBKWuH3lGAI5*mbc$B$gloJeCF-WuzCYl9!+4e+mn^_q1DSDXLhJK(^W< zqVEsq0X#_g1hgi;15jMjv--jk;j{l%FE8^CuMmcx4g#8jB!RJ?A}$7Yh&51@BM-@B zG)4iq8qJKxd7$>G^U=T_9Jyd^y673MEVEHocl8{R&N*Qu?n~gNZ~%yDG1OLb&2b?1 zEH$9~0D6&cG_hZ1OgMi;+2%(DEDp8SNf=3HT%&_yz~ziE^v9H68sH&Bqn4vD1sWoxfnBmkhr|9q z-BL@=gx#57TO^O~BvJy=1FiJUYnK;e6i^w-6Uu2iOA=FbmvxcwY%u@?nr#WiXka`y zMsg|MYMUV0Vf$MUn!E@FNr)|HzmQ4tuZ;<56DwBemygg*KDU5rOGg*%s}6$Le~+-5 zUetkV-7PP$s&>Y=a}H3^EtebLAF|;uU_F0X2@6LVhCEY|fuJ_%GANlfnxwKDF9=+X zx8&)GdcFLl(iIWyz!G1f0~LosFn+4ZWr;#9O^soP1=XOTX4W5TD$pLFJFBW6P|>DW zPq{7mybZn7UoX0%y0GN|7gFo01o1dNI!3doih|GjTm29%GmOpNh zGzZsL@G-*47D+BBYq1z+fbKJ0f|!=v$e=k*j*RQ$`&<4#VLft1{@y-gShw>#Atcv2 zp1&?=&IYSGY|d8cfL6R-RU-s zSxiEMHP_S6bfpp2ttgHvV-f{RTH1dHSAuKY_oBDw$K(`Kp;Mzw1;i|pn0Gpz-#Mwn zC~`ke&PZ?EH#4nrY-*l07}v&%SX)#X$YBP)fCz`VZPHI&&)KErEb+bJ zra6H{o3>?+3=69yl8qcBLYl|1C{1I#Heb*0jVsGi8?uaKI)UcQUz5nz;xjV(EWTjD z?E<-WMKg=AjKZugM`3?Y(37YlR`S>27y)=y@K0BH&?5 zQ_|-Hcx_@X5AR(bAD0C0^OIREZe*|pWW1A#Szf71m1cfOEQ93=-_eZ#0*yGTg@;OD zo`bxs=Q?Ws)pE4YO{Cg=Q6Mm9Lbz))S6yezfX4j48{&$LR8}KI>=27Q5`>gt1>lhi zIhWQA>mFd{k_Ai8$!2@h3CRLH9;+|c4e#`hdGr4WuL@AHZKTP6M{vlqPgW%R7suQw%uKzA!-$=di_PVOQmO5g}_-XJhh8-nyt=?)DMz z&TS^boPhPMu$v+wlu8Wue1)-kQpKPCri~p##-;JqOL|w^{}evsVfHY;phb`Q-t(P* zk8`~VjV!J2ef=tT`6t9e^f_17SbrDb8Ft|K9DsB482>6X(=)Gn?r|3)KDC%ZHY>kO;LbL1d?Kvs zH4iT4Y!EZ$BBXZILVAfg#t(Aye;sRT%Ou@VjNo9vtt*D6w?!Zgy!hGZ#^>p|y{U1f zV;3zJCDR%>ga^0ag7C|ID%%+?Nd}R%JBok{bpbS5b0l#)cYcDTM#UDqJe@g4LVHEu zWAS)*c$=6$Qus1`SGDvK!6s}*+#WiqAJO(*(Cx3yuoIb`S_|qTXC`Wg^7TDjzSUPAiAvAyobor zZLARf6b`?$S?xBqF{pNhS1OQ|6=0RoyJ@zz&u8-U+*cb#ayc|VmbN+kQ@3Ls7vboV zK_&zwSU2$@I39Q8kkYKs5BNg>`Z_s$4AUskH$|{8W9>*QxJB1cs2|~PvC}o6kY6A? zWPaDQ`)_=HpZ%8ib#P2wu`a~@5uWT8O$*)MSfYuBlyVRI`%(Cg8Z`$@Bv%W|8Wcbb z1;hV-IKZoCqqfjKBriCUwSu)#YV7?`5P8|1?GSN5MCMiW&NIjTWkeUkZ~2`1UGW3X zHV^GluHD0);O&TCyp#mBKXA0h3{Mt(hharHdB9rsA;6wS?0|u$x^u%0r=xny4A(zJ z4e`iQ{4+ZDpKo!(xG`8~<6GsMME2m zM_6qHnnEuA1zdTo=B6P`Dd{&a3i#>}B?`CH+|qaqJITf)%+>vde6oDIDJ4oj`DX7m zl3YJHJo^vLW}iJUzDY|Dt;y`gLaz@m@EJOA?t#eP7{-O5qrvD~rt>+eth*23$4e9B z56&oH-TT4Ei*v#i)#J&775D2yrx%RU<=pCR_YIX?{rU(`#>2_m!^=_MDrMeref)}R zK;iSDNUoUA=hg<>-;<460TxeJt2r^B(Iw7MZ!4uY(J!bg9=Tup^LcmkdEw779yW71 z-jz0UJ#t7#Uet3p%6alCM3ZcSQeIW#42YF+Y#T1XEXuhtB<8k6hO6Z+&S#)x($%ZP6LG`mOH^jcYC=`a-mo1VNLOIZW z1kwKuE>jhFZ$Purh8N=hj=m}n2T#w{S?`=Ex&7%m$KbWI`N}PykNiyTFJN4zWnKhj zIZdiLz~II8$q{Y$WnBDN;E22GDbn(8@rTog@{=2lvJkjaJKc8{zzUos|Cm=h9dJen zS+q|{*f8#K<$2-5^DO|d-Z(M7Y`7^ZR0+$<6yqYH}WrTj<`$Xdk z_LZV`n&zQ24t`rc&(Q3fBO0!~Y{7e|3eExz#zg=oN99zBG9HNiTkVuw5(LWQUu*gN zgf$hO{l~f1+?S^a(^F&3A_?{0Bk<4=&|vcWC03X3&R92 z(bI_xSd(Y%?&w<>UtC)FGVH|M^PL8#b~_QW5s; zbuZ$C0|mO9aKcHMx<}s~) zQ$x5(6}SywLvdu-yEFovNnr(g>7|sWMnGtBL-j64lI@j*{)H+xqkp-^*kttORa(c< z-bJJnF&uy2cDZBS1ZAjX3uQJoo;@3X+_&eJYsE}R(<)^lf5W5?f76m>@-sH@W6nD7 z4ga>Y%KD&KNt zxsf|aTQib6Oc>oGFhm=iL9<6-;p`hehn$%G@cDm0^H~0$&^#7yRvza64bAJFiaY38 zq2P`$zx@Y|Q$T+H3<1fm9DGi+3{I~6RJ=!DV5?fcOM_tw8H6(iK{~9|B=>2`~ z@_F+m^ZBaPkYKrTM0bRIKJQheaU30&D|WOrWyhi|`+zfrIIU1Vr#i59*f&sY2vz7G zFNWG&zIxM|A1}g$GpOt55$NOm7xa3&XH5Lttls7k*z&Tv;%XM>tj4{HTG&sWB#9ll zaNKO|3Z@&iFLg(R$NiLffjYis-M+v5KCZobuI4Asybk9a&kgPc4l@sZP%fWk{ldd1 zZAU}Mit=QT^9Xd2Jtv}edaJkysszh<^oRXo!x@b}AF(Kx02U#=I_wC^o6C{g`YVM- zPShsur-xHEHGjLN;80)k?prx1`*%g#JE?=&7?ztwnBv@t+@E!;e_oh#Uf83qrwB>G`S;?KHH#V%7t1;L@82Rk|Xnc z`MmDf=h5M{^aYJLr^301@uKM6WE`IZzWVSrQ$F@OPP&X!@uBh4v$?8E{=ryMs6w51 zXY-W~szo_4`$BNR-|S9}2yml~Y-#_J>g_qSJ~>#d6Ef z#JiY-%6lxyTSXvMVMt(iW}OsPEB{zH@=K`vsI+Y-IZXDo1 zfb!Qe=Vny1e*$T14NwY+(V@>By%607@pCnUNT~#wxj_%ChZ5w@tBRe-n`{(;8P>OYy^QnJtE* zXYNGPxV?%svW4Mg;VL!4l*3d8(h^C^^>hXy)5mn6;Ym%Aq|m6JtWmSe`SS zlz%{@qn{0-74OSD3ff(yQF%>y&Q@{nE+2`!J*l~7jJHNzl$msBCCVroLrcT8a*mAP zNznQxf<5U>5K!*=Nwu4!a^h3XIla82`>QN7nbmD|8pzYkX<=3<+qG#eg&{_gZ+HJ(fbEylncv5p+Q3SrC*R_isIz*)i_TcXK2eRo*m zkD9NzNHo?H#b-=rISDaB4Xr0ebE%s6KR_ng)ud%o+m$h`0nMS)gI?B+xRfZG?|D}D zr=U!X^P6!^B+qmMAw71EX{HX-AQ1jx-&D^mIh0}Gakb8=HRo*Qb-Ps<`aK0pLlN_* zH=u9G>eHs9%6yfk8*CIqe}_H0VCb#;eBJu)FfYDMI>? zz&5&t{c4C_N{rc&!3_FKjEq+jQ{HIZRh^ICZOtwgf+m(*ZH(mDhbQp)jS;aG!sh6r z@I8^=g7xr9hU*fQ6o^hT7czk&x#u!%t%y!DysuVvuY_kKv4%CuV}$cVE!v|#?8(g3 z9tPi-{pc3)Wj)lwS|vZqca1MlS#`=&PZKAv_+&2%ZRtbs2PTlHvFMS7D4pF zE2K;0#QY+an;V#wYEQ)MimEFhdT`JkwcxUHwqk`sqCx?qZwe?ewsxn5qZsp7gw2{BPJMqP`R({>qTU!32VZgl97QO)`Zs*HK<;L)I`m0Ho2m6f5o zdc@1l4JY^f8Vo2SG)**gEptK$j%a9fWZKa+F*Z{K$fv0o%B8KQ=vk*SM~odcp*m!d z&n8wJ31o7!P@9beYCCqWN40HKhRgu!1LLp?8P^E$GZ1%#OX3^c0BXAmf;=u`JnK8Z z1S&|mv(87(Mi;>9X0J1R>K=hl`=P^?Dj{e?K@z#Qgw(9tosKMYI2Lc(dh(d*>ce6^D0=AA2 z)cl0<_W4Eh8kl~W{K`By65q&I$F zb|A({Ac3HQM<5XP8%WlWcV^3>ERnG$S}?FYFqTG1le;u$oSx#$z!j>>q|Me;AQMFy zkmGF#j?6(UZ)W^07@H&7uGvsE)o+!TA^CAhIjXBh&FCy_@?dJHcOuCIM|2%-oyt%o z@<&IgvyY(nW&t2@2EiA zW_gR?`Z<>O5ZSqc-fww-es&@#yqCAUd3NGqdH)d0yOq-US2PM`_O2R*wU@MqQTT5g zg_B@(MqwA>z|BVC5ZyB$M&V%;{sNsqO1JpzCC2L7(Yd~K;Ysj_g@fgDI6B4PCv zp@jwE{n~e{{j<|RpA9G-IC~_2(;57OX#t_QZRceI@eOe5n4f!v>8#{@+od)L=&+p!|xsEo6GIt8mJD^T8zfsYQ)&`8N}vu}8mUs{F- zoz>={yX6-N=&`umC;=%s8?aMCtFM`|#!wZ*{Y=rYanCR7 z+tG)LrvscK{&axVfNH8QewKzUW8Kb;VJXqmu^XJsMPe)jXKD2Lp`a^;!pL85juN?k zU*mJM& z_9fy2AW=#Z%ye#)hz81rzI8^w5nZ97p57M>Bh@jb_JYOvYdtE9jP#;(t1+W_FA&{= zC3=}ewkC91I(t1pi<6Kvk3N$Q`=onmshcG9tY7aYS$T_=IaDK#{gx&t=ybK7*al8~ zRx(Z1jPKW6n(H1glGeYEv#X8jGKT(Zwar@gaW@^je4c#@$*LK z;Iet=?ZknYl+5JonUTBkP-8Kgy92xx^QXszha%?Ey>tMWV#I{Df_2$Bvf*^LR~}-;y}H@9-dp$T-lRrfEaSOqC9c`! zjTs+JWb|bkW{ZVk9w)8EDM*tRIr>ok-yL-3VupM?{$+UDc3&bR4-|-(B6+_-aGQ2@ zT_kEuQu>UKNBLSvUfs;o z6l7e!!))RRy_uz(B20}lIt|@QYF=fN4+6<S=MTB?r>PLSKX)R8nH6Wkk+il#iBk9EF@l`oS{_JV?9N zvVYO+=;HIC1KGGkIZr!zU*%<$11o>7N^t4*!XlY4zRhsJSzs2l<_yzK2w~Cwix*6x zzRdjFOuc&E#`m_mTzdTMXgOe~yQ1YR;~*@C(*uv7D{-mCI0)9DvseJTM@Q@VX3Bpc zA?s{I@Z$3(vF-C4SzmTj)rAhnn4V?yG)XRB$^kQanv|Q7Tv*rGySy~X=(%O>9i4$y z1jjfb+C84Z3gotD`Gss1Z2GmT0y^iU`}?*?4#*@er9?vR2TA>Ku_%w;6UXu>4{dqK z%(Dk#V2WW%&Fb9*Q@#m714+FMq<-C+laY7{31;q%rP13UvuG#_UL(fkR4xiJp-T() z#;ye28y@O%DcMy?eejL(2^&!|jg$ubD{F}m$SX7D5;&s|EPsn600x(o1ym<&+??|C zhu0x!^H8u9$-8T-k!3G{FE&zFtTscl$tlufFG|1J}<5MnRow!iZnf^WMkXpw}Of^6O()?GxAxE_Bwr!uc{J zS{~t0Rfj7fN0#K@3T>WeMkk(~`3vvD+448};t zjd>6}vv&SvVEkyO*uo)SMR?ZzsJu0U7J$`?chKs-%~@AFQ#Qh~_lA|AIsu!!gCb}- z?+ImS=wwPjCS=Cy)DB%C6Fqvi=_2TX5^t)WaWp8ZL$ZS5_U5iR4KoN>5ihp|%YhE0 zVwS^sb$EWmX^kDZ7AE56sW?OlxAm&gUZ~n(4o-&VB7UzcscKI4FU^pf^PS(C%e20} zWmOk(eWfhDe}XZ|)0S6FNbu-*V^R)fSl^MmuN4SYo}_tOw1)RwvqcR-1QXTRrwpUn z^|~by*#%#t$%H_2T#A5Mo1RTKCD`F#LwpklpL)n3m5#^@%*&PNK_wPOq6)Rr%w{Fj zD>(Zz>p1yDmAAK1H(DcddiDjga(DxIOV#PaM%SWZe; zo{8E|mZcnbvz$on8VTa@MEYnt2c~(nfq6z1poID0t#D>>Cy-Xoj9#|58<3FBhzFQ? zd{@1|+G*=`r-quEox807W~4SMsSYm31MVe_gY>=Zs`=+tQxDl73Qao`aD!K!%#h2E zIq+D3)m8TCXw1@5I!86kln+(_C9)>7k)k`2lU^q>Jc^lWDA~Tq@G?yT7nP3;3r%9J zY&x&itXa55li-(?CTlbaG=*^kuh66oF8gJg1X!6SEmNlrG^traEhC!lMZr~?~%vLR`vKyY)nvx}D2&G_t^^Q=dKst39IRV(|&tt7AjSga7?X4M8 z545Hv&~k5sM_N-t#ECQjfrzzFkNoP^lyy|+W=cE@8|*_FXc2UHdTYwwyP1K>-=}q^)U@VnJ5xsW%&pA zw`B>dohcz4N%H7;kt0D#L6L^!eF;iD4#Y8W`p(XjfNITFZa8_`-kDOMF5)=f-d5!KGk5v)y`3rR*kz+|f4+r$bJ^%; zEfNdOiURkmgtgrRL`3cEJjlwa1FyV>YOCOixg|dXJFoH9ea4Uw8?OOIO)L}NU_=s5 zV)Tb5oOPwtr9`Ti5~*I&Ni0D(7{Mf_R?Uj}!?oN;-IB0(H&N%`Sh2f1_QqBn>7dwZtXza z zd0oYvn)I}0NVYT(ERZkS9I)yT)z9#Z%>lO#ay^giVg4NEPdv<@_&Mf}KtIL&*=7+P z=FjcGuQGq?oT2i}4uRO^ldw#~|E0cx1royI-et@t@Ycsb2)qoa5cmnRQ8vb65~)RV zUGhLd2i;^(2Bu|qXC3i)n>%3#%Jv~0Le92#Ui89yOH;Nw;h_<1v|`u7Wund6rq}Fy z@UCcrRi1oXdyMa+hgh*M*+LI8gDto4cirPO3fepH4G!S1x32_7nlb0V3^Cd!kZ8j4 zr?uwT_6F}Q;ZO#iSL)hkhDn>f!gL#Wcr8yr^q6;#xaO!RGwYp%3^So13AapE=uB4M zsViU%)YzX7^;Ym1+~JPi3LDE{4aWQ{>xMh2s`zW~FMnU|88hgY7YhLBRN$f4l_)I< z=!Ol2`@l(=6fry}EbbXn@bH<)DBH0l#SNHu*@y&V7-X89{@5~=zFYd$MTc2gYByAe zIdU%->fd8CbzeLj1fS#}sE6F!>ZKe6q+_6nhZP3_>=6204g%spJsbqL0}ltm4|EXl z{KwzyAYe7A-|8S}#%C$TKw5{LO|f@=!k~j^f@+D!+N7_yWY;OJQX`Z=ljzIZu$YjX zl;ml#*YfUxPtCI$0UT_kJjj@cJGMk+1 zD#05sJI-A3E@aHP@>zmv@4PA{B%n-;b7`B0<>C%C$A~Hqq^gr)Cs#~}3240BY{G1~ zMIXwl)hhn*00&lDQYd9y^CK@-q3jnk-PdNZJe?NGg!pD!NI2j@3%#T1poPDW7Lt(E z3RKnX+|QzgKmd2sLc#&RiWYX=`_)G^rrm8(!cS=*SLll(e604O*zlz|kh}B#Z^CRq z7KK7cQ#;4V7JFyAjXXhB+s&Xhl!jbqlE%Wz7Z*F2{J>^yY7zVsz1lW+A(?LXK(Dr~ zT}X~zZ6J;w>OxY;DnUlCp&#F?t?pl{3_*&FeuiIv`!J{X`pOC7$6k@wN3ZHz^V-W_ zrj*xEkMjW7Kh&zcscxz{5L1BFWzIXA;^Afvh4yutP7#oHzoTF$QM7zdh7nq}{C;&m zXg^)<4_ptme3f3h{Te)F-`rd^9kQ zPa?&;8W>}d^Y0?XV>9c_Lw(|*hx&|%`aIO<7pTvp|No&rf1>)#xiE+N#6y==>Ir*+k=&KGf%-K0kgP>T^YXJ~N@=x2Vs}84ZW} zJk;lltIzEUw39AUmEM2u+Fm#B6stF&Q-9D~%~j*D0zYX7I{YT3BnkOw#}0ItPhC~- z?dAIp;}`BgSD;D)3sqt}RzUf|?Q~#J;jT7M zm0oTKI!=`~@S<=>?q`jc<5VfT6}~k0Gt;NclziO?Zj*D`y93>}+)o9qF{P@uFB|sd zer_O7hF`2OB@Y=&zQU9|WLDzO+ktLZ?xz;d59EFhZqUrK`@|jS_Bt9WsVn=s9q1C% zAiO9~R3f}{Fg2Xql_2U*e$fh2lCctw9q49J@vrSbr_|`$4s_kD=iv*k>_Dg0=&=Re zLtD_1r0zhPqgzL!K9m)@i<~h^Xt_>!vG_L}ThN*Da$C^VUWia$o4tZ{ROe<+JWCtp zQ50yb@m$5l>pa$V0?4y{GnJ1m=r*#9{`URqV-JS7>T^BzU@!+(emQBmb+lMiD6L)> zWq0hsU~GJFKx;uecKFPn*VO3M_F!o0LAs6XY_X_6u(U>A^D)*y$DDIyxkdEnZb3)j zK**HwdJaVChS%AGZobpYZ$T$rAJHNGFK$6c{1!aG_tjg_$wm#w7Ie{0^B3BJu4!s% zetz_H{hXezP1DRa&&xOO+HC&(k`D8mn|J+c^XK6%nss!T|DkLIsK?Pt^e3

u=j29wp*%=+R;R z_jQ;LFJ6#M%8d3EWbY|6I$F%@VF)i?kiE6cXmo>i`tvjTne^SW63U+8*#C(w=Ere< zfTnI|OYN_Q`rVC$#m9b7i}_81GvwIYwW99&cvbrZ zUM5SM6_g9HN<=RN8n_FDOb1%3I6aZ!dRnq%!yMci#sx=}d@h!X-bs^Jq!Cm)p(@vH zi2*geaZ4*CT2%&~@2v9}D|e6l>iSvoYpDIWGpET4EDbOK3d|Nx%CL&x9bk&-&&ljSGZ!~uMp_4LG%jPtl4KUUV9c^lkv{x# z^EbgFo64-s9Pu*;7o=icT9(V%6LUsrX{k)D7$JRnwp4VPKRaL)_?Z-g{SY2j^ehEB!$>ckomZT*2%s&{XRX{S<*%TO`PGfi) zqS@4t+>Mj<*o`wo2A^7|VvW-)_qP6IIya-5O?9ZLTA=vJcwwg3NZ@=?{E7?!CM_#A z<*6&Osjc(8&0ba$6$?$@%(3{;RB>+CY5&p;@ivP;rgRr`T44d#SK7s;jw0C`v{EEX z%5c7@NEXoV%MxEq9A7DtCD3aH;DqXr{^g#OCB7C!%fjjLyev`?`vZz(7h`fO0k|zO zxzqRNWu@5aJX+Oa^4fedUX;eryB3q`54xA6`0zOTqz038JeD&~7-a}Li=0toEscaq zh$t&m(hkH(tRrH~DI|rb=9yZOkJCa-$kd2xR67sFk&HQCE#c+KrWJ|lCY*_vQ?eRK zF-A?8Z-#YJ7Exb@y4J*&FkvWB?ZgX1;uwrsY+Gb6(?K*<)oozM&&aUU(2-zC|9X1S z1WWN1{EG>ekV$zu5-bgPCts*ksr8XydDPt;36@W=?_Mau@^SlaPlDx3)!qE21j|%s znyGe%-yg_lznU6O}y4*`Wb1TQ~BuGCSpF2{1;2D)W-s-c?qMSy-jb*HW8*^!;P)&T(#G)*ty0gnEmTw}gy_zt_@F%0Ld4RC zJO|*_x*bwW^r|@^MZ6Ge{i8;Y8_UA9C34yj32M6M$SAZhn@J?wp3Zx2Rh`33_KZT| zK01~=y`eG9^AOQ&OPRa9vn~v4C*}|B*{aUXuTL8D>Ls5Bd}ho83T#(^80`q0Oja-E z@OpM$5c`pm*ng}991GbFQ5YJUECng8XNr*OOFN&La*tH z?ELt;Y5Q3hp-qy-5hGII!xwq9e5)@K8}G z;0N(W87p-lZn?8fP35RAdy8oSRhB%_vo=r_^BdG&jAHtAQ8f|IMuv>s^J`t}q2#|s ziRblR;}ZkY8KRkmZA(Tm=ML_QGSH-}t9fQso|vM1rVK(?)+NXpH?5x+q?nT1lf>TC zP>Sqaj|NriR)!3JBheq?cW_y%-qc#LvsmIEEsQMNS!HB z_^@+_MxL7*cqfl8;xEYhu~7%DQK0)qDD2S4E1~9jp#AYXcW4~kD!iQyJ2WPsAp)5P zSE!J3vP0uQDC(1UXjCmo)^=!|9^zR$G$uT^BKK9b!w>AxNa|^F3zFp>8Z+o^QY>$; zSh6W|nXGgmDeTZVcw?9E(AfLcfBJLJ4vm6!`lEy0!lY*)RUxMhiD@j4(e&>SmVW;Z zjmq+!?s#V43S`2J9@P+pU%9B#6!z&mH0Hs1Xop796DUJvw0Z_~pXn`^1L#wW&%`=?Lh+d<>2mJ2 zO0(}OJ|oa+Z}AzRKco1p9p9UaydK)!Rw0Q)2l5_)g!WIa=!7Nbvou4NA!Cd}W**Y2 z5iNg3stLsru~x_fWZU+${uW{=8l!NbF^Vw?`L_KTg`FB@Uf!{7f4243w(a)~C$$AA zMqxJpj8T{^z{PF*a|g<`ZTqLsw{8>?3$XU*<`1@R6lMz$zShdN{mR&T!Cm`(zEo+~ ze%4M%Fk=%g+kcRX>TSa1!X(gg-X;{XCx^1yHZcB9fB3HbS~V=&gg6q(7HerhHnU$IN3wQ1J-~3*iu&Z)``_4o-!~#u?^Ep1o zFGsxB#Et#sd2l{C>SS}-NYYz5!faFy=4h^^!C}%H=C^s|Wcm^&$AK3R&7K$2;6|q8 zJfmOuVZ-DLX>)%0ET_RKq}Z0xp16<(H{!%)UJpdPm7r}-br=+m6Rz$|k_sL&#=?)g z1;ZeftVi7Mhj;T$y=vt)%>79o4KR}AX73IRbk-Y7v+{#%tWUsT@sQrfv3ZIHDY)`B?%cDA}NWYSm z!`ad!pt;pO?YGk?yZsy2Y)GOzIM>uXBD*^XFF5+`8 z*Z7heMw&=TB1}(Bq@$elyL|uBq32s z)7shuxt!tIrc%HxE#qIH8G4W+K?+fwu~fE< zbV`PNwH3=~x*ai#9x|3{^~_r=qjh7cTw+FC;LcdO%LTq}ES0_D&REI^4siimX%@3+ zEb(SB#8@iZPwre|Rh8|h(@Mn}Ekt`(#oA(d+PxKPq&#iiSlU*xRuAmlvQ?#@jx~$H zdSMO?5x>`WA6MuK&=Sa{;6F-|8(Pt-qZXD#ckwMOB zAy4c-OY$*EGtR*CF_$ruj|s%%tWnk(;;wv5NbU6mQ?Z=$2bPfy3}X2v?N^9;EVu223y8@CNf#{^%E3p6xdPqO5V z7~$0YVj^#Rx1T*1J2tGd=PkVv_poQZsJ@>)lLieMT4B$l_wTO|YR!OwQ$MR`Lm4Wu z=S669tHp8~htq1$hWpvGT&~>4!QJ;M?0E|*-proYdp5itd*)#Z%AOYqwU(TKZX?v+ z&7QmNHXn~r!;BrFhJPv4aIt2tcFovd=6`%nJ#pY|^r2ibxYAx$OvZA%AaCX5O3gsH z1tJ!MqsbjPz3&iXNfv<@vejPxg<_XJS;w_9g=GQ?cNe3VqP9o>H0?O27!CMl#MPiy6p=scro3P6;=X7tsSCFL%zA-zi`1Y*(WU|7& z>RQbT#|$gGvsLdE2APmfxKy4xtE8XWn~tV|J))Yj%k<2FLuJ7!$}TfDQ+5K?dY<_J zqh|4C$js4bTt&6#5LmhuirYWQpf{ea1)dh!5M$dM3f36IPA)ATawrQ7f@SOx{z1xj zd8O{YjW){p(PXxt{@kgmTFK%YpSSnt*4irLVd#L1X$8b;t5lviZ@SEW$$B^C3h2^W zWP+hsTUBK;Bt9Bog2B~R-M!i3a?|B~wN<3)GOw+=v+1(Rpe9Y1X>C=`SBOy!_Vit7 z)8)!j#AJn07vaGBYpaGlm$O4|M{U(GctjMzH`P|rp39`R%9n)&Qf_tnV_PmaU}^0x zty;iNE?*zKz2UCXs!ck?y}I9j=m(Tmt+rgQkzLW!s@{*62~ODsF^ z|E=_wm5i7p{pDL6_(Pu)7C*--T;7W3v#r7|B6e7XhgG;@6)NZI16Cp5ipN`pLD_qU zS@?)qxY1NR%)-MgjPWoFE%cRU;h=JCb7#&crhodrumKw^pKNAZESKVtas}5W5#H${8y?YoTanLXd9 zWyS1xzozu}#M}af_|K{*5vHdy#Ovyl>AQ^a(ijWK>CfA?t*t#`xkEl|{l~p>VeHUsD|u1!Z^UtQ1H?5N-3K*Ur9fp|I>Z+1E|J+`T^K0&<}xMg?<3l zP-EoiN1eICK|c!E>(URP8oz;lv>iihSP|b%Kjecvk$$8h2N`}yt`|@83)^$Oz!7g} z+(Wruqz3bIa=ixUbUJ-eu2+UWFV{*k!(F*v&?F$N<$on6T#j6?dCo58da1;&2Xeh~V%L%Db^7vLFQ{kP zo$FP%^|QR$|E7;)CD7T9w|O|aKxf;{t_~aMYbLJ4CS>PV!aZbVjHU%{cVNN`8W0=#|(y{m@4Ra3gV2F&2 z=6DdBa^a894s#-6Ph1Fd5(>e>oXF{Dm=mL+>w(Wgm~%bwd9PyVs}BiV)w^3I1>PY^ zekCAqu2&KmrGfNC3Z(k$b~-w~_^;&cMC&imhcXP>)mU!}YpcY3t*+Hl4ezqT&=fZMRCPVr%VFc&ZL*1JQ$*pRY?sU;t;RAdJP-ubeVqqgzinN zJL8M*_Gvrguhr@Pke%_3@Aj^p@z?8g^S(Z7zT4?bKC63EcGUi^?oD^@jIVV-p-flU z!>4v{0w1mA#!oBLB|T!oFLK?kZjAq|GF{JC!yRS19@Qing3CO%{E+LG(EX*2@qc=m zuK(tDQ;cEm;Jw#xmxzP&i!!GY^BR9n=F}LUwa?_IP_mg&yiP;Sos{g3aQb#i_Fb)0 z2qh!o^gWd91@KFA_@KRx$eAP$~vaUnrD1j_+-Cu{*{i$L7=Oh?-@#6AZjbhc3w2dTYM*+$pvOaXtBZN#sC=Xa`_o5(!cDmr3_@^Bni%)A_aRf-)Ua| z39ahjJULRZhvi8c>)GjAVMCUI!CHR0)MmjL8cf)NdUp*+r8i^pr-?;Lc6|%Zs1<*m z94hr{t0iz<#6uaD5Zmdt}RarP~~@;=fao{u#TEd|5^MFW!CRs7TMN=~XMzzjODIPpC*|G4!J%-9g__ zk^bZu`caV{?uem3zaqU!6396M1pdGyKyU;IPXA_rpq2F9zM2E-pJRN$q780&cfbYo zY85jCgskTWa_F-EN1e{CX3~o8tY5T*<^YND!V*;3jM_;kAa(Wma#Run zWJ?weWrkwTZ96!SKxuxuRu7;@gDSf%L&j@IoQIlN)&o8>Qj~z1e?gUPN4@m3${IbP zNB4I@OV-XZLqkAMa0Q}#E(+eerE8lT$^1s?3QqS!y3Ut7r0XGF59#`_bX^vZO;^pi zh&Cm!RmFQcC9fUdFaIA0*8uE#ojFutQu65a&-cmxF3l(Y+y-DC-Dz-plPkP<128nC zj|O1BxB(cNL-W#L`9$Wc5Gryu={eq%qQF2aFF@w_Dy;pk^{6wgo4@9bxE6wm*8O7Z-P zlVs#w(wmWYNpD8pCH;CG)+L=^|2_hg;?ugMha)W^ymnf`!^QnaT7tRJr==x4T-?9@ z<4!k8swxSb#a(^Ui8L_3WX)ELybycIoHP;(Ya}Ws@KP2mYB6hkV@vcvGQ~V`8@;9t zynw~`Fr8ebk zH_DZs+`3bd%CLqhN|tWt{nwkb@AQ9GJ};|8U+tTdXp5d+>0Lnw z;u;xMON;sTBQ$Zj-YKIxsbv&tIuG}NA&F*4W)v%x$&~&BuoQA3|a1F8_LS@(o!} zoAg>%U1TnO%Jj-}X+98x5BE$jpYs|p z4CJZM1JjGZ1sm`ardOa*z!>2hP0)_{l^MYyz2YIgw$85W{JI9)=c!ZA!TG-mPD49~ z>CbQJGQFm%vJ$Q?bFUJv+K-Ej{pBL$~1JX~D+eQ{OQ-KJo38OCn@77t1ToJHmGk6;7EF{{ueT_U)=;HA4${Ua3S1U*Z1y5_>uXz@oy)=P|OxQ#xaX$I3NnFQU z=Fe52<+XtwKOL`@hlVp|!;*vBxkESzlRZED5SrG|dUD>ShX%e?iB5~WfG5%wU3+2Mu zyol(N0+XcC_G&}A@RP|Yodnfaz~E_v9>1qO0RLtVtd zQPc+drzPw#o3tlaCF4W>H%ZwyAC%_IW`P6Uq+PMJPmj>i0b@#E z)cP+^0!A*_?287Om3Dr+Bx!3o|o*~0>^>=)GWdfxR=$B2akwir{} z8cvX3Uek!8<(Fcf1gI3S4gf4M|*{VuI6UQS6%A)u1mIz%<4USR;XoExv2#K<@wIE2j%&m z0+qx$6=a1_N7n|Y1*>mi`4bhVWQ+EV4`iQM&HMQcldFpgQg{2G=91QsrUp;6+W>>* zc2WTSR-n2N2lh)GV!`J717>CBT7Dh)wyez5lY$v6LcWb{vn$($*fD3jt4CCG9=_e3 zB)h4zq8sB*w+5&u8n0$UuF)Q4q0bHpF0%yWqY-DUp>)&>f1V;_uZ^JhL%j2WgZ!l{k0)I2ENW;x@@%??jk^X3d|^%g)BqO&?Msg z8t{gm9he!Q4@9w}`ESG4tCoe}U|@M*H%sUlOzqOuS3#ok~A!q^n6J}7U~{B!=0I*AZL6qmQtA)l{0;Z*JmvqzFp3Y zbFB6%XX3?lANswf`_{M%i&#)XPYNcc+q%GQjPAg|z3gVW!Bo%*>IG0TllA!wwdqSj zKqY;SRM4NTs^VyVFmnZl>ZDQ{mxe3~^_5suiv*Y!dQhGI?00XcDsT3>JH6ltD8fm< zIiQ%;w)*ziT12^(JaRHkQBw4Wd4o#}V~q6#b!Hhd-&`N)!$|>SFwU0@P9akI>eLVM zLoXFB^hD!p0+nB5!1o>W`+8K39wPl?&gwM0r~an#T!u&6T>qW$M@i$cv}Fw@l-m@v zX&)0!px|fcZM0RU11{u!@8D>ufQ~&Kv#vZ=j#)>~oWp}LYwZ>yvBA%ZSu;)weTK?0 z>kdYg5&o+Mq@(qZ%aMGf~1M`c3 z{NNsB(l0{W{&|s$m8oW8CfJ3zfnNL5%l|D|skr4B5eIhSX^9}Sb;WniT<=_RKm_ts zOdVYgpqhybBXXzs=%y3Xeoej>VrHJz)qoV#uqi`JoxGfg4uLo$=v5YtjswPF2^^I% zm`^8QGD&wi2ZVt7bhWrCD3647bZ3+0Pi{mD_#nK`Qv#OC6+Xvk?V9&%F7Zb)v93RR zXo4>1Wa(WaGAI-zLuEp5=J8T(b5MQoBB3m#%$hi3jWR(S>TKFS63{ZRzIbc0dAkX^ ztInIS{W|HA>I@c-o_QuteglR*JiGe2((IXB{b}i`LZ6QGRQFE*V0vmFb2F2{c71+8 z6cT~nC4jtsFnKE^>4C;-rrY`t#i9?)q@#_=^g0;*Q<&voIwCMLxF&N;%mCvLV$%?k zuSlrK_%3y$4xY6F2`+&cCgxKF-Ln-^d`lq~y}(BwM4`bJCp8xK1=jBy38hf;gU~Zr zkB&8WcwnB;gL?oiDfX|yCO12Ev7X2I@`~@gA$*tmgO|cTQIDP

V`{?uqqKCjDZu zo<8M9POfiI43y?i=& zP9n7Y!opV~ze*aAND5NJM#zfOYJR8UK=(8DQp?Ooq6TTV@tQ0STE+@)FcVNPBy4k_f;VgU@62S?k2-h z@EXd|UG#YLGY+?N4H$}aoKW(a@Qa*P$Hrw@QjPWebyfd@zaMz+TbA*&!7tX;)b06f zuA}i;9KKSoq3fnZb0*ra3J>}Q$wzqb>%)VW>&WbSdU91*^tFa!co0HZfpi238?vjQ z1vE3rzAn2e>tB;yRXa_gb;9VUoy)HBnH5^KJuAD)r(bA&x0YSy+r5TTc2#CN(2Dk% z*;Qb9{k7;)b`|MV?Cmj`t*ntg*tLc)1mAX6eg))tOVp_zjlZHi&scjGaStX3@H} zE4FQ072CF*ip`2`+sPNRV%xTD+cs~`Y5a|U+{W$hvG&-jv36t4ch32sK%#Fl`5#!j z6;HyhbEM{i@F*)y3G`}6Wjdj<1ENMMkaXsW{AUvr!mjLP(~Qdd$Y}2@zvog~#l3-oV2nZn zEluqN>d$S4Xk_-=132nbO+wkG-=v}|fw}+AL7qGq{998zY}DA56U-~CjGEf3Bu`rK z)3j`%A*?#QXEG;gr-3N<3+?jr|A!ar4g-hqw*kLC-F?XtFG6X%p4?kkN`Ek=!NX`! zkA`dqZRIRD@1}?ZLcBw$p;ahMyXF$od?~Ka%7q&`eae=Z4}c0INF-!-FcQTXPx6<2 zCl62Je9I*Yx#jd`#$DBl78yoV(lq)p*N5wT6MV(|A8I6^ae@nZ>#`;|c2Nbm**e3q z!2BJ%mhIeeKN4hxQjhk~qI9%aBVcGiKM7CSJVIaTs7T+uhO~X@IJ`h}p2-xwt%vbV z7^iLmhh|&c_p@HqQ>VaO0UQGXvo~zdzHZjjtOF_)oClToJ$w0`XU6Z!3mB_cnuFIq z>4t|Dxtk=M=lR$MX@s&lnp01HLe{ztD9zAhZTV{Y6?!~elzg!lBLp z%RO>etk5)4L!azA%55$sAL+*-!MX;M>(Hkk+UR~{~?hg7KxPyhVH<7n(;_Vq$+ZVh2+#6OUwg%B-Pwg2UIP#3X0kcG zBK7COw$z^T{#94}RyBR%g2=G6l3Wcx+9fK?~z?Pt_P=nvoQEZ?|xR_bVT7SP2x-YvUX?deobeBM}hdfm%K6Gb)?H_i3Ki;7Tf4}8`f4_8pzn5MX zA6saon3x-$WEU^zSZ8d@+vwyN&b$?sw869={{~@+ z;%M^B{tW(f#Q25H<#qJs9&?pulpgT#V4o52+^R)EZd;#G%&>jQP5CWQpmO9f>vFLKAO-E#haKa$X@9(=prP=#n{Q~@w?IDE> z7~EzYW#MzJX7@nLyOu7-t4fri1T-W`ey8MhfJ2q#)j7>G>rajI0J8F=Dv&s~YhyYQ zsu2wNZG&VE0$>mF~S_}f}ij%__S&r?zd8?WAO*9H$6yNWup z_ZkX5!XcAP6TS5+bICX}^GGW&yd7TYs^ur92u!aAGTE>iEE1u|LQm>84MwjstJ_J<=-7%QboDUiCd_i2J%>AWos?RnkUvjB_rF*@apox+I!75;ho@vL`Iyxn z)>Gfqx2@o3dbEwG&#?UL(IT@MhDIGV$m^EtVlsNgKUzP6NZ$#X)liG4AVw5n$hQ@< zevr2?4rtZCO>aI~+&sO+`pE3Isr}amxMVvxEtt zT{>AxjX|pAnBV;cQ=2~lZ1q?R$_7wqrv-gR*EwJH51XPipOO|O;P8Ay*!^^JQ>RmZ zP+LU)ri@^qGrMsbPTaIiws@NryPebV#WdZZwbfq>e~UQM1e%H!+x?y=|Ox!*hg<(bg_w5HYtlXu6nqLOsb8o+>7%98k&4#hbK{;MYt zZ%|U5&uE!L1>tjibA^-jfqpv{*kY$rz&;cA1Am-YpMRJx&=$a6(ceM_f;8VkJVHRMlt2Oe2fntfaz6f~! z(*Ygd+_Xr|wB|_{A#~1ygO%Hm1`Ec(&(bNP07phgE!;mcL=H#mXvCOA$gF;z@8r0R&zD(&&LnT$-bhj?$es>0B^?eZi73 zq0~Cod^CxWB<;gtIxa;9iYbB0CVLgf5{VZ^jH%QH)=FEth!io(_^vKcf?SYF1yR_FVUI#2F%GV}4 zofYEik7c|X-9P#X|55tXn7CIP8-{@J*;3JzylNfvL7{~+W9~cfi zrXXzk`-XJ)dN4B*1HKC!sp@LEz0KsAO8Pg0`4{<2moA}Yf*=0>0wRO1N-_lquU#Dl()!$ZsH6D zoZCS-Pu0H+Ubo`f7-r+ ztDjr}ns50sMVG^#68jo{e!g{_?36xBbUpM~FGm0ox9EE+Wj0D{bwu+TzJg%S9^hHk ziZe20%4#SglX0Dzk?tRvM>Ot@RJoOghG z#CZ+C-}Y;_B=Q~50G5#eb-jDi(NLn+m7wu6GWb<1u78Q3Y7A#94qityv@AcOs5uS> zBDICNk)Ke6xyhfEpW!cWb_np+;*+z*&4=}n*5XCySo84g>4lzQE+Kop){5Y*!F6Ezjc0DS<};%R=rG}YoMcbi~!p@W|2$t<|H zWJCslMlzA@hw%YBDBH?OO}bDA2EPauo)7@N82UEI71UU#mXT|W?>k79^5cTZD-_R& z+1)9MatV7BBlSgD1M81w%_4OyRpi=0KSW?4E6~3|cxs3b?Er%RH z>t#bm`??bwUMWp6uMhkaB_dLKa;TMQ00IqGkg1m27uOkynP>-bLh2qxxb;^W$$o&| zK9rnYgVr9_Fl+j9IX9f!x`={~@9bNyFxPgv%TT%Whjm_9gERkRqz1eS9k}Th-ICSF z@PzaRSnA;G!vM?T7~iNHA=98(HwmUc!+hGNCW>#gEcU(n-3&?-IgGSNg05Z+nU42| zl$1V2M{^N}uzN|@$1k@2I%)}-Q#3FRYp!FE-*_N5kl{P3qx$#x4uIb!1NprmYTgPo zZO8sk2`n24!+0DAhqQD|AXs4_iiNAz<2bd{Tz$CrhOc0=vRpl^pfJ}6Es2x|yag9) z^=}HaZZw32&P4w&SFZ{5-jT=*X5{^0FvnIK2X<}`4b1mp=MM)3%tMj~Op+AS11 zWn@P|13au#lcN(bLhGQs>6tLuI7*(WH#|~U74Vhf6q!f@_apZu}Y)pO?Iu~OEdk_=^F7kDOqm)Q5LK-(X0P{}JtCdy3&$tzp* zUMhy~aZ=U?aq;40Y zvOc%90m&8UHn}B|h%%3zfQGFduyE7g9~GHfI!1Dl9nF@1wry#5^pAIrB|$9oOj+BC zthZ(B@ta$DDm4=US19SuLiMJ28`Lv1GBLLG5X)%>0M-0qY7ICS{t8V3$Sszr4G7Dn zS-PP9^hT}cpm^?TjrUw(Cp~=i3V%Mr3E={x$|}W*@a}t$K@a(5Ha+x(OJaqxeZ%02TJ1L5gB8TC|x z`Knb>bm2=zz2WbDv>rRq1Yi0{IZ(~BdD@Afrry)ijU@k4FUSp_y-#q+*z^u89GN3$ z#;RNLQ9!|uL9#T7+0#MU63%6i_a-O*s+Ihkl{!zle@T+C!}O*o`4=%^1vO!($xKZF zUg&#+ltaRG{^}osOn?y)0asx|3MdBfRK3`B0%&SpJ85sUE{(a%o{wwdj$a6AS&CX& zndDz?iX&I4K#-w|IB@X><*;@uYx2E6b2~A{L#$lhA?W}pE&zCQB9<#3Tuk!KYZMCy zW!3yf0{C#k7JO0fKL$M+58-z4YN(V47dE)5^0<*g*3kJK!jGEQOcsun>S$RrR*S!g zj3xJ=kPV68Kf5UG1zNzB4+I&(ooi&_0A>wlX`ybAbG+xY_?vb+XYtoBA(LGxwT!B; zHy&GNokuSb90JO2a+ZZdm-WIN8#l6xj52(9v2EzMsJAw5n>ob-qbpa5AgpN!OcMl; zoQHyLJ>8*(IwuZUDZ34*v0w@ut2_RJ(-^3}f8L=3(;E%Ut0y3I)?gtJ0LwtBL|TjlHOj(@%co!_T$ zvF|$rKqUgs55qIvF;EuOL4r-0{&5LG0Hd-%hC3pe)VgCHIuMw#YrkzOSql>;%AYDD zXU-_PL*f%AxJ@{Uk8%o;d`=ja7gi9i=12E~R{82o*(|YbjXx7ENCK--u#T{{E_wC~ zC3>JJ<2do%okWupovMYDDE?-w3Hm+LN8%|X#)BE%C#y^ZUSoci{JX4^iI|Or8YnGP z9GO+V&KQ=PHmE}F)C}oVGvg`exwuRJ0lhE{>z-BPYGY=1;>7_{j58OMq2!AvG@9BV zdm(SvRsFi}^^>T*`Ok~X^r;qiqXn6*kL2y+80|#^>{Un_i0^Cj}Q&D z2#GL7ef$%g7Ose*DQt%M*A?bP9{*mj#81fm>iL)ogcE;1Iu%!sj4Avl(| zn%iCWNaVvY=Sx?}HVR z#sHYc4tqe_VhlQ@zQ)zt$TEmY5J4?v&#yF)MZ*{F)!)~U6xzKrzQ7KkUXC$sfs*j%7!W7jU_g0X zXC7X_L4c$avymqB;BBQ0iOVLo2&4bGELqk!n93ZIqpY4_ zpx6oucv@EV!w}*Nz_xoh939_Q;?7S>r&I0q%q9@Vi9swIG({`eIX8_-e9KK*5A9r) zy8{_QqvZTLCIJ-h^dY}If*0k!Iej=HPwqdX>>58x3!(6Fo1vM;iJ==y%HH!zc3eM= zOi_bM`s9fU!JI9X{^Na^md@}RMyOtV66PPYO6J%IUA7z&bfnz8t4HKo%< z1`SGd$4J)rT`(uD#6VTJ1qPx)FJJikK{R-G#TMy&+Dc*69nZFj@bhdwG}sgs#pxM> znFUE$7VR51iLcHU4s6fe2O`-~#^dOc`uNREPz*SfcCZWx>BT%tYB-6~U~yK06?yk_ zC+MQ1O?pZcIaxay1-@k=KkdPvTvaIwgq-SR$BKwAS&6X_Jr&Q{Iq+1otOA6L*;107 z{>SRZn9dX*DhL_iHzudE4(9HtRpgCq#3HfB%lfDG(zz4ZnS=yno#*QVa-BBANZ!{ zBSd808lwpuD6A}a_8X4N{li!5)}K{7EvfgrluhL9c6AKbnID0X!R2~9b84KX z%2#}MUHmNJ1#gWG_n=v*7|J_ERkALz8z)q6E3R z94~&T!Xj=W)Lu2VIcTeRSUaGn{>z_tYp&)(JGexP---?xA-2TLKd~mt>rWf##yuMVMqAh`m-4A;{xAqlc{U71n+8QAI?tv z1eDTZ9`%f*nqMi|R`=aV5@Nz^S_nBfr~^_yNWVeMKw%q=kv}u2t`CM=w;i`%xOf2< zjCG2_Ti||unxP@yiYEMvSHN1t}e$m6SU$y7r+((z;stpzBy)F&@Lnu_p^PPI3`MQnwpckRN8pfN&Y@^_ovjv> z`N}NCEHQsbMY-7+g;6GJ*@D(^44Y=g(;|YuVRrq56Wlqa?7Fnf+v)3}uL7xUx9a@i zDB6gLuDCgsxW`txnuhDU%fb8X;&@4&?p!90l9KvoAVKo##Dhwf02$d(r&=+IR<^EghN8n&;=xV|7Hj^X^&45=xRyuw>3 zX~xU^#BD!VY-uUuf~ptKjPSMV0ifsaII`hv?&EzNc)-6{f8GgHmuD@URvG!xP~Vs4 z-JT0+Zi#XNXh zxmb-Ry?6a*&xfcgt2TFHxtu%i$Vm&zL<&YY1G0EJ5=>FfiOn4lfy>58;H(MG&SRuD z5O_yb zfiKJk!Q9P~*BS_Uio|>=g|Dg-`_Fll*i4n-OY8AWutBM`uZsTR|2*pQT==^tac*~W zWBY5$xNWx3UGdq-hD{zK0+d+bc&{$K$pXEVTG`IHZmxRB%*zBOjiosL=4HJKM6xx-H z|FMB6)NXJG^gPCnw@$7(w@$7XK>t(CAW)?Y=aYW0&2MznOOHEwLns$ob)9#4;VD!2 zvQecRZH>*I_G|u}Ri*6Y?#P2eD&v#gjL^oG^vvKLUr(r$I&C9oz9dyCKkIME z9!rE?Wy=)gjIiG5RVm+nHril(1kj}Dt%&YQ>~}4E)se>hmQD*G|M5g9a9KwkT#4MG z?Zq2wMXEv}d#QN=P#5fUgA(52gT?l~6h$eur5rv6h?Bf!A}GE|Nm6}-ebnf`F%EHRNl(P-yLlX5?S;Mi|~ zo)H1jP+>nw#*=rRxCY8yhPH{LIW- zI~P-{wd>spxxP;Xd(&9o0A_AaoN5PCJDlC!2_KI7`(OmKr>v~i`Tn#|swr!cSA;LL zsf+aEbb;-mG+u8jGnedE>uvtbRrjd`pRd*_YkX$Dy1PuROEW&NRkEq4;rF`KPzKNTd4xL?1_V79dk5Xd zm4QCj3|mhUW`!3RIi=k}$)F@+su5;2BN4a9eXv4I^*AQ4+T=J4Atcq9U?!UeM546E ztN2djS^6Niew{o(dO4QYSd0syWk$7FZeI9CDsEd)Ei*O!W3j-dmgu0Xpm%Rj!Wdj( zS3mCRie~uc1#EXN=Qd2=d*O7Yqc4)aHsvE{EIhPu-TFZy&hQAnjh)hms zl$Ii6m>pZZ5&e;SsL{1R%!L`A=PAoN_tTJ#nBQ7knaL}(xAC|`@XsGTtjlFHh3^?4 zu5-`IJC1_+qr)HT3i-%P->v!&WFl3_s{cL7^?coF4K*v_vMTUk_9gdSYF$3mYcYaF zGvXp7Rc$fSbvuDDPdCvb{2pupMgO5GMZzfxUa75rR2HkG>#-~>>+6q1FuOaRpu;d` z>32Cv1)S`Vz`mL?E|MQ;r-mZvdO)8Jx)pwCVjyX6Yh)%e_O}i(mB!KYG_k*(U(m#p z!;DYb}Hd1tM!eE)TwGvnZ#l+mmrgNyRfjxY4iXbv?Ytd_9PB7uCl5 z{I(*kn{fBxa*abo6PD_FJYWrllu8)vH=>@Gx0=c_g%+ehUOukthatj~oP;@sH&8{? zDKHiRG`6C-ObBq)$Dw3HG?#cR{a`C(}y^u zZufvZLPcUyDLP~6=t4B=K_?vZN`d50*t+SBVHb-maVU!g1vmLC10){mYbGMnWh_g{1W&O{%4e%hWjO#yIScG%C6?5C~nD%s?F_ zNDWSej-^w(wlHmH1G)_j%dh9mGj>~^!2*}1_uyE!{UiD6tbYn|a{TODEALF{*93MQ ze5GEJ9gGSxrWPa5rCI-Gv3wq4ZioERqRF?pw=jQqWAo8(X-GhY9f^bD4u2gU>+MJH zi-RKlftC`S#G8Jk*c%21rkat!5h92e-BsC|qR|3uQ&H~?w77H<)g|UgK8cSiSaQ1| z5l*!Fi!B&gUSln$nX3+?Dk$=4Phc7YZUwV7I~A>}n-Np{I;|)G(np)XDG6ze$AIyX zfelw^@?khj$W#bwdoa_FZzDxYZ&pZ+*N9CjCY=#HOJD;#UNDI+ zCXLIZ-)9Td93cOJz8VFKHsFRnI>)pbn`luwOIA>|rnMQb$S#oeR*2Pz{|WF=E22+B zzBeizFUhaeHQuSAz5mRwe8OGjWk;sDC2<(m-woK))Wb6>><6MBvSi%m0rlYm9~Ku? zfg&2l6}3B~N`#TfE>c)PF$T5o0o1B&xEHsc?6VX!o;A2b>)@+*)rFRl>q^>d^*ntx zbp3{iHK8&JFF%DP-@)-RLNC2>nN_nwagchMY6GH;4;-tdyu%oDKxk_ zG=&8A(L1#{H8p5I?&kfc(^YZCrLMchYPG;&Wc@;A^)3^gAL+Hj2QLoH*gCX;oP0Wx z%%IDpZ}c+O0kSFyw+`y^&i@FCIQZ1k+7jC`H;!W)g?`Iv4>=4?l`sX5Q*Yx|h`1HO zEoxIrR+=J+n5pdEZ97^9gX5mUQ&avQ|Nh^YmUNtRb@C8md)9Ldx*Qr0SN~8sdE{m( zt^9_XlIcH{AT>oNLp&AE3t7N#q0lOz3hfvX+4IAz|I}}BULlPzKTIf+P{`0KE~-j# zI*+c<9DDUA7&@$kaGzjN5{fEjT5Aaa^1n%o@2u>XnpKy)W%z*h)u6Yb_^GxV3-G55 zC8;Y4S~BZl>(wBbVUN*tp(lDcNZ8Jmtuu-wlpt%k6xiLaRXv9RzBQqNx}0dJ`3x}muqySxm<1o&Zu)dR;YV8=It zdG2Uv70;ato;Aope8m5XBy!8LYY7${a$#qzc(Yuk`%{3h4O1lBVB?0Iu?Ro83t?v> z1?#H{eB@LoeP}qQ`qATV?yT+`K1HC^`5iemAO6Vom{TW|K#OmOU)?JPh=y zH8P0tH^=7ld?V!Y95s6KOS$_d{Y>g!(fohneJ6-H%uw5(4-Sk_Ycv@3LP)&6uCy4; zVv)#_DHvMDyRVB5jHk_avWvW(9jajBb1(<&stj#gTB6?z)<}3t(d&==aD{Q zotRX{l5SU!`>rZsnkv^Rd*u;eMk5*6L@qX?0Q-&tH)7z%6yZTuuo))E*@HeTC|PM} zMsfo~T9O>4!uwo@bm^Av;gc|dJgDV_4ejZ1x2 z$hN$3ASAsWob$jI8T^~pA&k*29<5^@m_hm{3(Ubt3o0>(q^ul2U9tSP$+*Rb?cm|x&;!HV-kf@;4ik6%8RT)KJV=&XB>^;hmWqrh>HkBnJ?4DQ2?LZ{| zIOkqSa&oY_d0sG#!ml0J&A&ib^)Tl_^%6v^TFN;MnZVq%G_7TXS>1iet^=x>$G2y3gneC zMzdV2J1WG`*r*+g-uhFvE*~*^+~;9hChx*2ebEP^IWb0?Y$i7d7PQ6GnaZ0D4$OHQ zZcvt{Wphx!DL7Vwl`-ws z3l71kx;8&0j>PHXnqq8LSOtjaq)}~fwVI`N!a$6()`1Rz-39h9(a97k`k9UO;+L$# z|1+V;K>+>WNR;1y;|XBRQK*XT!(t$p6hGT+h9lMKJdCW5?1+S{nL*wDtNpQ{h*@gE z@QrX`nsC!KZ=C`#qfAJ$I!=cWg4cmC*L&$TTQF*f9}3<0`nt7^lsaO<%nEI+E!>-m!0UMdCuw4 zunKFiDzA%eOEL%ILaa#*lqIj{|M8%tl11eGV8xV9r$NU=b(y7A#}mm<$@BYV?}bVZ z1rnTGY&vn}A{Vp@)18Rusyr-E==NlMJpRf5VzBq8} z;qKyvCbG2dV_=vFWvMd1|86)d!Ph}Ew${tIasD>copsRPYO?f6Q!-rbfZmc4QQM4S zZFuBjhOJNT9-`K00v9-@W4yFaTd8 zo^BNIMp+%`K4gQj!3-Im;7-uh+Yt#-le0HAV|`pQbq$^&8dkf2YLr*NZpuQkT&`>- zY~%tK4u1e|fqvvfHt>#VssyQM$uw{FQ)3~K4|6^76+MZ1oW`gJl3tx|{I=x_Qjcn$ zUF3VbL&1_7q2>BoVnM&5Cp(RJ8XNJ94CrnP!Hhy3BN9O1(=dg9?m0#g#!V<9;qlK{C1pw)k+ZICPtQ)-M(zp4<(ldCaL&eSu-r+ zm~(5tr8ZmkMI-kO-DLiazkfjm@%{5qk)&!fk`>w!iS(z#A{1{%=y%Bz zW^Tb-U-tP$YDT>YhTWMnou}mSA&*j?!K4yQeCgmYhg?icvl##RKNYwzi-K7zsZ0WS zE`9~i;=qoz%s+kY<_l*?%zUT67U5_)@@SP~J=!PSXP1}eux=kgwgj|b zhL&|<0Xf)-q%7w0lU2}rp|~f*owg3Ti;;Y%jnxnm>w4wO#75u`8sU#)Lzsm)h7Z9j zH=1)$JoN?ko(4OdaLVFsz6+Sp=SRhh+K(0$TM>R|^S9HIJXqbb9BVri>cKONB>7S> zO69+$wW*`_VHIxFSv$^xX2s^qbylQv{;c)i&vm`#5=@ox4`?Q<TF#$XL)C%x#@=#A$amkc zAZlwbUl|UK&w+qc8-(RLpTiO}n8U=PDomjX263f5|9XhGi}^W9L5eGbyIb!DKUA@_ zDY3D14NkO0K-FeKn5`Z5G~HC_%GaQN`tbR{16NMR-?dq2bG_7AdZWG_uReQ?AQal- zmZ`hsA(b%H;whiU?f>YHNFq}a$6Km+2#ukN8{}uy=FQ5%t|J&QpwfdDSUJ0 zKAa9Lko|Vj%RvnsCzH9YJPf2OoT4Hj*7)g`f5C-^io$(ZD+F;3>hcH7u4YgkjfI_^ z`5fG|w%M-H34dApj*!olZU~b}Bt0SIzjk*=wyqumaaa3!@m9Y&r~$AJL-C#P41NUX zBls!D_F8F!567F-3NIzZu+(+MtmF&(?$r<;Hxi$Ompx(-?Lvm6Aj3Nh{X-ux27D5> zprfvYwCYCE{A37XAqjhF(UfXc5h-nV&eD^&6|7Q9g}((WB#3TR{-~CbgTJ$~ByB$N zun{eWj#`^Y5o84hVr$!i?_o=fVrG~MGO05+tU>)~@uKf#hzu|6Q-2dVQwZ-T3WZbB@xWdy+ zKq=(|niTW9tH1E$$o0o}n|y#-Z-cEXvcYDhO`nh@+{)|yPs6wl$-fWUs{SE<*C#@V zwi(GA*DjAKB8N7vZ!~hLXsVsOsV5t%M^vAb5Q6rHEYXfBp!YOj5^IPLd@roLg|X83 z5~)Fsq7#atNs?JwD_}Ez%sWi7prF8>^>O}U5o1fa(FX-?>!=mwAA98-5V{pZaJ22| zk09CiJE3s~qFG~9$6+zDY$M?zr)OTp$=eV5f=KS|rN_a7aK4v2bud%^5x#4kll2 z`oz7K?9PL8luJ8erNS!?`H?51PMul4Z=Iw_#lWD*`R@oRdOyTDlaWsaIg`jNa193L z8*`8~<%&uLZSU@>DHK?l_6n4VkIBLhwRt7AY!4X3&(c;7O1)x=q)Rti%PFW5DDY|& z61%z|NkzSszcC9#aXhel-X4ur) zoZASJ_m`w+gH2plDi{GkAU2j!lBN>)Qnm5w>F4Fy?)qhd3>EHU*UZv-_EyQJkf1(jp za2So})9SwZth=8Clj!2hibl$f8gM1I#ji<3;G#cMO!t~Y1 zZn_&t$;3HxI{I%Mjb?Gk{%$s&!*&7wse{2_lx-98KXwqM+=63EaYPGN@IY-a({$C0 z+P=@yVZy@}tc`=*h}0?tnGS@0o5Y3iQJn5sDF_EnJ&6$tD3d{ft>}fp|hvNrc0w0iwX3b zjCyi|w3ZE|X!Vi5;DVSHDQg3*UeN+7(eeD1!*O~bfk>7uKd(haAuAM&9Ce9u@&2V| zgOF`wa5(%{iv#^tL)-d}r#1c#?C*I|Mw2^pDr{!QJZb zd@Vz;?k(9{-QbuEYsvfG-@;3bN(@sz6-ozKO?=TQvrF@n)8c*{~<&;MmHqwGH^?l=+6 z&EuwM(1!?j?d5Q)J!!!7c>Pj9IF20BFTg|yV5}pl9oD>*Ba&8fBSnf#LZ1S|ho-QR zsx4^zt0Z@;YJ*_c)?UlJ6(r(&tm-0%ky+>Ky^(3mp04FQC=Y+rBXiq7CphS(pTY%e zfVCI!TVM@xdcoBFS6@F6x7&+hn0`^kjy}5F6P7CKn;^6)06Dm)6zVTd!q?%!sw8W# z3iN$RN`WS`)LhDG>rcC-TR8a0elZ!gRvGyWwUIGP4VRc%o_hoo_D6y%?q4Na0Vwi@ zDx<&LX6Y!2EOx)d8DE|@UbTOs6}MdtC3)Cc>qbSMQOrEBj*N-m1zf^b_RXx~fm74i zc%{S2QTC0iOnFjpht zUGw~eVr*9v7;vC5AlSDp& zlZ>w{Ii>Kl9s~j|cvYn|^#N1@IvUE5FnMrqshj!=uz?#_CC%pSB3iQLYS3o5PjIyr z85Y~d)qXMenuoX7piStTL=4&@@-P=w>(juuRAsu~)>;pKbaV{WHvi{?xS%pndtD>b zCnO`5kMS!hJk8ssvHFl#yT1HL=NVj6nul=I_S&STcYLGek@Q`{p8a-|HsOJ7o(6W_ zoXt(|FB_d~bkO|y@q`_ftf5ubq;A=4ZxLbvf%Qh4X%PO1#zmV<86aL{4DPNZ?jo$n zDll*KS)i^qd)ekC2d-N zlTqRLBr}9rpHYj~?ds%QacO?Q#R!cS)LwcU<*k7>l!wAsgIYjh{TgLSUd75=gD=Sd ziluK{6#26T>Sp)J$-UfNMoTaFCR`0ie zC8*i+!hrPb3Lw~Mwur8=#6S7pF6gVqz)2i`ZnFMh40?748BcT2rwKa!#E9lA;}LDf zx)#*f=>fLAeF?3te@mk`b|Mj5gCUmU{ttLS=;4lZfXulzGC0@uf(-N1hdLS3YSvF` zj23EF9|`V&gz=3iAKd4$G?}KuXWlemJ@qAmDdcnJI5(An-l!ycwnj93BE0(cq!G&|77(MBaiNb7l)_!S9Y} zs5l)eM)iho5>%4jH9$rwU0yZOLjm&n({ziIE*6$-av^B@!DmqAKDl(C9?$h;jD(X0 zvn8yUqzyY=Po6d#iv|7al~4j8KT>ujf3=lmY&NM7bJ!PKrJiOA-KL|0|D^R& z@C^W=LhV!76N<^IS)ZooR;5SF)<9ipFu46m1H2HiSrN#{0DEX=6sDNWgKrdCpPDyM zuQImqu{`z-T62ZIR+18R10?g1c9^f3)(zEQ#(9~hRh2@_S>o4kTa*-B8xn~}s99{aR`w2dXHxPyH-U77A^uvCOo zI-yL_Xd7XUSF@r;By?vzg}Lt=wE(}PdZ*@OeX(~WdeS&sGQjM8C1|r*RWtGgEzE49 zs}_{4vTyg#i6W5Jh8o(@?XNhto0a-4PpAQd)GxxJCSluk9*gkZidV>^T{PAH>FPt` z+C#>F6eA-k6N_~w)cd&-x971Rn{#nIrHH~ko_?G=`|q(vztSZ&JY)nmp`P5&OAkr4 z^!s*4v7~ori3l6l2sXj{IW=sZfnw488`m~os)TEqo7ZGLdT&PEiMYQ1F(K`q$vbhw zE)`BGB=ZK4(7vYZZ>$S5$_T9TTmgHu_?qE}-n4UIIDcS^lnksr5 zkcskw#EP<}+))SiE4bHW<2P7+*6t?3KZ48Fup8gf1k2J5GDtO+)Y(z*rwI9sGILjC znObb8G&}rQdr3hA8Cb&WW=tU$6USZc2vvV8Ff>-hNy|(2&v&0cC4og?m~#9FQQw5e zhT`{A#tF;+(&uXGoi@F74lz%7sy?H*5(XxmNRlA0mkkKt3^8Z-B>o;AV#WcQ?_-rU zs~fNoM@;_9>`G!K!mFNm?#CTI@II=&7Qr1Rvsf@*ZZG4A?Oma0q;$s_zQ*!#n5=a6 zsdbzqci7`%6g9<&N1W4rB3yBxV#{*lOVRdvrCur=tN!~QBD<~~lkbS~3SYuE~a^2rdYvkZYs;+2uUNYI(Ui}uXNJ+~YPoj#Vve=5Ezwfat?GTCZ z<;MXt$UJ#9S3kx|nT0K9H5}g3-e}Z+1fBd2{?ffxA9N8LPdo?>_06@emq(O1Ak6M?o5lcV(SAf5?>zAJW) z-Bc4uZ<+ZjS|d!9w>WinlGntNOBgoDPDZu(9mO!pID==>An9iJKO<9$+}HgvvVRhrKyJvEtW&H{P=1Z=LjSYIunYvsww*ye3YeHa4< zI9u2xdDLi%h40lVA+cbfi23q>_UH0ZO?+jz3YSAmr;*ajcap|dwH{C$G!X%V#E@ki z0b5iVak0L1&D4@yHex+!_aRaE(mGbb!XO;IG1)iW;B%iGJ~&l@ubg0akE+E|Kj!93 z_rRPsQ2`k}B>p@T781VUsggmXaV?Y(FsmN@>iAt5gOLror z|A3ENh!r!q<_HqSw=+`cI+c;K)DmEWC1}Uc--z%aB^P2vV~CD9E|gslxiRuArc7kX zxYGP4yOUMK=>oq{Yg9>*v{WS3R6mxTBR418Oq0nYu!gVp0>(Lh(VmUy90EX-FP&4EX?>3%Ynta%~;Z)pkMG$-!kMeH8#m)#K%Ah33ph#l~enr^gfU|Sa zT)O$_-Z70Ori<+Qg!j1FxtZLScV)UJn+}ZD4v!#XdM+4C#ivmsL%9Cvk4LSAjXJr) z=5PLVg3$ENEFaFRSOwS`ru#G{{)M6%K@ zNEm`nh z3$mSP`5DQ>iBun)ay)@{1=7jhF7XKQ3McU`a7Q+jJTi~Sfxp1|L**rtx18dH*VA^} zR8wq%%h_df3KM(}Azajfr{NZfFprBP3-5cQKLYUGD=WQkt`c$e-o8IMboUB*JAPmN zJDHvIC?xHbY9VB&onVpiLUf$DJfi=*{Brj1#6)G%qaVYP{?lX_SlGCiWndXzk~Z-K zbtDDtPPSo4{yi!}lBNmPXPnx5!t5?cX`!k#mI*ARypzKulQc+H(;-e}KbYMl+&GW@ zr@k;~qxSPP_5dxZe{**JYxb(Z<=EhjFoRFQ z^iddaiFhb*%0pbtpZ{hQMElS=mm|}z@O8}abi0|X#Pl&u* zZUMLs|A2Ir+8u>K$t6z91e>$%0TMm|K3mi<+Fxx89fgg?=<~wi?oBU)QP2rS7=WbT z)-81tEmpAFch)`fYUC;dXW%dbw1P%c#BZ^ivxu~2+3U-J3nc~tJ4cwbxK%P=XX(lI z%lO%78AWu(ob)m5q5{exzPA5%dI+6{BPBH5vT_`C3HA%=fbV4u7mm@>wI$SQFXX`FIQvsyE0<;VN|MZFpS|KNob0gqUq`(}v>p zsuZk+m0&#P$)nb4uUGBoNg?l1 zhVl=sI5MlKl+-o$Z`rMG$Y9%;-p`IONV!#T@s_K&Mq-A${oj2n?uhzU9A(>*5@;-eV=XDFm9OlT7S(pIW~ zuv;t3fgT_XO?ejOwIMW^@@TC+1+{}WS4-w0+U_m!pNINt%5txto2@{$N5Y}Q4;WzT zTgwN96jz1s!2|KvOWe`6g1T$?_39VIo#+`gIG-c8*l9f<&kGJ-oWnRR3 zhE~tx=8|WT&b!NZlJA#@zlpvZHZx)FpT=Exp&+&1$5Kb1JTS3>Up!auJii3{d9S8> zcs-6;lYJL>w;OgviQt~5aPQvA+;bw_+J|^^uY9Fv==z;cw!7{aJ0{L?x>}xse?wjI znIQYbyXSDtgS-lCy(}6#Zt&K!Kh1A>8tZyD9b{8JNxl=aruFpkZZkNKsa#wwo94WX z68)OT{VXi~3P$fDh0x$f2D{0Jh;Z-YRS0zc7Jh7ba%nzw-6_Ur+)fBQw6D@{a^$zz z-&*k-dQv-NpAu}sBhH_K84bYAAJIxU^In3=GoNKIN1HqB5MO5X{0knKq zoD+)3Vba+g8;4FB=tT3f$|$S+^OO0nehU{%*8em=kicvpt-HEX-A!gPaVmD+TE;*- zD1FMlL*lq^%)UEfvYz#o?znJwopR6j^EECjNfmP^jd+3LIR-NI_&uJQ$zPOy|z7-%dGc%^Cmbdzej&j^QjYH;xC3-K%}wqDC72-FT)- zJ4Pq$MEkg%fZC2Vty1N86~-mL^oKvihdX2nrx)G}*wi5WR_7eQNcA;Xr&djE4fR4> zmgGrsuRe^HepB-8&k`y3?XO1(->o)ZgKOEG-7`~S!WKhT%`lhR#DbRAG{P|dR%Ra# zQHjBog*gu zI?D3|&s{@(k#tDtxU>XlPBba&wo7EypUrRv6G&=Z!=CFBr3wx?6l@)>rP1&{5X6_S6Zw2@o1%bl{rh? zbM=S=)_rBLZQo+WlXOh;yXKO(xRCcE=Zr^JW1;l<(t zyJGII$V5+10Gm2Dsyt7*n3H23>B;Tr9*4B=W5ghA3})|PEjai{$~zyc{5fAM3iMc?i@-6=7YdZ{tP`8>YaFUrjUp3?UTxSg+V>t1%#tq-tC zb&;ddPHvG9XAhlbD>5lJ)1R}_Mond)7fAW{ha0ocCg=HrkKEtr5t8iP;3R;=t*vHn zMHKyzm;l5q?8Qn7i$;&eO(+CFnFe=yRS*rmpUyXWhUu`?f1Qf?#0n{s%!1mf3QxH} z(wfimd7EGv5*=MHaW8?cmmS$;W8sfrC*&?oBCR3hD1;lMbTKTXM%JHv_)^N6@(s9Z-c8()Zok17RXwM2}Buxv$(4tN;{-sJ6fHzaI!-#xb zmkeTwtiF#9V#x{RZUup?UZ#~z-el`(uc*@*x3k2)uA(;y_096XB}4XJAg7!eJ&9Xs zVJHOnj29k($rjR8SZf7oC=EJt^~ih@SueVZOZe#+NGRWJ%d zL9z4N!b**L>SgL>D`fJB5`SlFile00kk1I&{8(FgHBca(LyQ2JT-}t&n2vbd8O6#^ zm~eyBiD$SI-j%?7g50qzcD9MD3}g`ejCc=jKW69-*TQdreL*nm6ot zeOP4oT=eRBFW(QPUxZR$aGC#y`5^26*L;wLiJKEvKmgX+#mUsr7SO3?n?M}4|$_EUr z5kk-J0$;4N+v{^Y%{|?=+Tb1m z26I9K{ib**_v;!>lWiAQvn9xFIUp`Y+Q-4er@sCLzg}-6$o#9fo0H0nj;{>^<2kte z$L-A^V%qpC=!0$@wJW=hue?i-m&ey;E%;YPed{<-{|-%X&5v&0z3N<@u6cKSn}PCr zwctf&d)Bl(??wF*Q*kDP!5i#6P1ELNpS2x*@q_1q%j^yfat&S{>$eYYDad$Rpp zHPu~`CkGSVm!m_2JYn4GPsHr1I`59vC9w-sv-Rsr^2V5gxGYto)-^6)E8GB%2{$F z7RP!=4_3f)-LDE^LVb@eF?NX;VXJuUe7Arj5IPaV>)ygj;eTsQzJ=*!@IcR7h8}tQ z#8zO{<#=@4yQ?&!%kI;}iZb|O3%bR8NbQ^UwBzoo7`!uWk{EvOexILoG?)I;-C(W2 zPj_tzZ*Lw|vWjCkE3KcBnC2ii5RLk%@FUbb!e?|Qz{M||%jRXqGr!5%)Dhq44!r)i z$F-U*C2`7?YOEu8FjgYVh~*>m{gns1jplId{r;bSw2m%nyD}UX>qi-h5DP-QfEOvQ zO}(s*dYW3C!R74B2}(XZ+EaHdI75~PhG9M30WVqztiF~1_gV9~?_@-A%QVd@-w zS?Ld!VdzYpcsN%f41P5J{rlQuQi+)XpyFNKT_cr$+@1Vt*zd9ZEFC}cdrd=~ug>&? zUv(&y&_0w?B_Mw%jcdZ+o**}w-(*CN$m%@=nEbr80+i0^rL~eZ@|sCIz@ko6>j6$-atvs3~@QqHX_imfqi(cbBiLN^jF(jz)_5v z>a}cD#I^18;axh^>Y4IT-eGO`=9s7jI3vygayY%UFwV67A)TksH{pAR1U3v1%ILEB z>7P6MYsotRQp>L$N@T3HE|rpJz$)#)0A<*jx8@H}!i(1*<-JWk))8y86^g#_&1=|B z@?r!K&4ZrLbZl5*qO-mqn;eK%xRZ@OJs2@jOGn_LCmuj=4oI=qA`91z-xPXqj&^Oh zq9{xQ>kWzuIhZ1vkV=T^kLD?G%AusEyHB=pZ3VTA10ZEe(}qO%%|#$K089b3mU5;F@R9Y`R&gM=xS<7}=H&ntqva9^0j`}Zw`U-Q z{bDJJ5u;7ePv&t)Xy!uKNhG#U(V~#|kPj5Wr2u1>K7F<=1vK*d=Xw#iz*&8I0{C8i z&2~{}b8~NtB#ocncCALOL6yb6rgiviCzUmg6A-Gu7PJME>HrYp992` zqN6A#*>YAH+xf$vIWq?MHARg>7QAt__ANej-Z|r{lt3;0%Ly6T9G8MK&$=Y%ww%+) zxh5x)@7U+faRPHpFSp-xGZ+Rg9!Geww`BJxwHp7gR*6%rGbNcI(Vji=9;aKnXy}k! zOo8SE&B`@ye+Sf`^znD5{2$7o=1^vrsRm91L3P>-f0AOR21$+@x46XH5}J_g!Ra#q^@ogk}PPgXG8KIZwhYvz)bh# zcz$WlmKV%Kf(86OetD9&N|FPsNC-Tjk1S}e{(%F1xJ_{v71+qC2!IuZ#VM+pEczIx zKQSegk{eQ4-6`uwhIgkq>Kc_H{6(GiW3U#6%rC?ps5J{+o4;&<&UUs4q*TFVNK;el z^`_{|IsB=tQ)k#3Y`x%z8q-}D(hV)K?LG;UTD$1#Q*w|RR>itGKhF)gX7x8yYEE^$ znmLQC7;tk%Ql{lJ>z&=At(ta1I^ysnD23g2{W2<{vAf;-y^GdG^CJrhM01jjx(G6D!q{j{Mw#})6=$3Ewc#+7Rh zjamm)j*5@Hk=67Ykrifdvp~7}g_tguda;jOxl0#n_wUi3Toa2-YH02RUA4HsRLp5s zv<*!Q4aGp|L{&%YB(qN?upyl|{XAn!rWo`UdRNnYMl@Baq}3K$;j9Cj;ugWr)I85d z55X}2_e^w7qdT6<^&=*%f>Aa^)!oIq+TSD(D&q!Kros+=1F9I18q_3> zVB`l$Nl%YJmWnb$NyQR|O8WW5UP3|pX(~m62mV6EdPwaEhZ4}ol)e<_N4~KLa3Z3X zWly~Qd<+3Ab6S(S_i&901QJH#Q)R+I)Wu??)#A1ac-(6d)3|t0BENQYWFg_S{-v17 z&CU?-et02yJsV{tv}}fXI*wd^c`lNUK~Sl4s3cQa&cxgSgKW!;YuR~sbHU+N6p#-b zN(k#_nTFl%M54eYf`+utnjpzv2JrqZut6-!3l1-ExoH|Q%Vkd87uu-_7Yw{B zV2|_^BL+G^ZJg*A;{jp^qy!!#2)e)Mk{U$kZ>@v|zW_{^uoI|_D#{lwEC3A?=9N^k z0YcX3R;BkQdZ7!W3XBXCp^NTIm0@t+dW@-PRG1VWT;@vs>!R|k6wh4?To0kYg|Xo| za3#bY-A3R3<*PCmCJ_&mOK`cPzCvSsk{K)>=*;8P6qpq=;sB2iBDI_|K4|g^Y<%X| zsWGWc!yJsZ^wFC2q@AFb2;$SdTUyT_QY2vq-c<(jvZDx9{3Y5H;9a9ZyW#*^S=!O{ zS6`vdgk?~r_RNE52H3FJWmEfvj$ouIT0%Pa=S>xjE_lFV3G4M+Qx-!J3so5rbnAjL z1cYHXG}*h+Zs!8XDPE;qHQJWAo)tckJT=COgqpw_a%crocwZKS!Oj3@k4&~YjT6W! z#y_z~VJ11$nvk6$3@5zD_mnIREO~31^M6~k>em-1{P_`gn9&u!X z*eDv*bOs1=^gxcad}UDDLI3F$9y`hiEqEKc)@c(@#r1zF@}iueIue9F%AnRZg3;?9 z5!!PV938D4++U>Eb~^e^2^sY3{-G)H<7(Xaq|?PTA}B_p1wO`@^^AmGUY@@kk;90v z+Rm;A^WA;b534r`(c*j%BCptD9=IXiU?`)?;>5U!Fo_dtREq%DUQ&ut0Ck%EyY0E; zipL2~^V9O@y7$ zu>|Ep2|scclQb-I(S%_x-=EVfHP9hG@P?BUZ=tRqR#aN6M0M33XKL$mi#*NW{Zvzj zWQS0ykrSA?tCoGXYXrufy`%_BzVJDD%Jr|ETyBXL?G)x(&gb62?Mu^J_58@p_h70Y zhgm7#lVGCv^Ci~%YV>-y%3MhD*59z24JSn_#Orl(HrJHQ#wQN-85j$$NP$reX)rQ_ zKxUXBr(9epFG{={^k2P!(5(nr$d7A53txH;&xOPs}?XX-aY)E7+%Ixhq;ro@Y>+qqic$+kO}}GSU@{PzD1!y4?Ka5Ucjb zU}RwO+o(pulAa69tHRT{u7)nNu@$Bsa%T z@~BAmQ$K}qzwAX*+|Oh{{$!i>Iw{%7S+3IA96oAWPv&tIPQYQlQL9#FCt)w+Ci60$ z*K7%%=)f@u@gN-#9K%S{j*@MtgQL9)0x}7@ELB!xe4H{!D|*oj+1+sxs#Z1)gqRYp z{W}eUJlW|^C;;r8ada~hIQkD0K$)4;=4l_Rc#@e;iNx|M);BilP-6=;_wHXj3KmpD6joBQ;enHCbVf^zi zO8!%8v&Bl^=0!!}(`YOr!n2`M8n!r+&y!XbR*Lk31%WnQ3ca+^1t+rWN^YE2vHUmKxG_v@f4J$w; zc5FBqe#*vV?8z5zQU>@q(!LM=Z|72uFn7VRv`5RaH0ZH7mLp`hW421oZdMRcmR|D= z8m`6&OF`+{D~riTIWu!Mf(Uk;h>h}y$$NPTBr8t`aqUNqOy^g29h<4!5_7Aob^0?) zUhicp_NKgT_S#fTp$&g5$e=q8z6VOYHNBXdw%FNoh-rqf-f4o|`=^a3+2=p6oy;+t z5=85|zGAbQydYWnL(G06Fw6FyZ!vyftw(}xQ^EQChY!5>?uX1A?zui^>?Lmn+H%}t z4P9?Z{lk}=P&zg>B3nIgcy@FRmCKS?!9Kw02)hrm6MB2e-1awk-P|765vZ9Bi5R%# zmkSKDC6i@aykRr#v~sX6&0)wZ(Ta|7voNMck|mp#;PhYO1=OQU*4-7r7OI}AMuOoI zb&d!7`SY4?_RfxOy;=>Vouza10KgqQHzl}2F!9yup|)$_U&*&|`b0RohJFn17arNs z3D`k{F|yQ?WyC(aKMMjiGbd$z54aNQ0j1mFCcj9=nH=d|NIJ~lg3mESdJRzE23>yV zBm1w*1!whn?9l4jeZOd%)!%GKziSZe~Wad1lH-HK@6Ji(%9 ze9MHI+*_oJ(pMI}NGJ202z%(Gk{bluz6d#4-uiP^2j+>7wJyiH`)K9OEn(_=z4&J2 z5_ll8kFX+T*uDdL3*~rVv`-FB4^zx$Rxaz=euKQo-Sd$Ue7ozs(u=dl zW(a-0J!TQCU>GAZH7DYuQF=?*SOJ8k1<&kU;8AH)+PXfscs_GE&dpu^b=*6!n1C-Q zU|Y&5~u~m=iiU}l?K#Cn191}-Q1r-ktp|VQk}#%k0>mI@89dw z+*6`^M>mfc7NLF2A-8L65?&D@i_`;9H<tz4;;!Rm(TK#X&iW1 zQ-Q{=c4tHFh{++Zv0LB*F+rRK&(8>X<#?|Vd{&v=H;L!$V;q|#sa zg7~$HL~U0z18;~NgAP_0mVU4+2uR`~kMkH=eRB^9p9dG!cEv(MqXFY4#_!m_^@QAq zqa_ef^f8Z*g!hW3Ac?dKSodff34>W4z@Q?gpMkuHD6JCsws>SU50Ar$DC&L%KmS!P zZh{@uutP=Ay1WxPhU`#*U$ugG?GQQ66?<8M1oDKHIK*=W2@fNV|Ba;4=%s=r0hQo~vByHhLMk8rB~rN%zz+w3|f0k4H|mX~l+3gzB6*ENOX|_bVkBPye$SK`V$p6Iy%KBZk6Ac#@O_j+W?H5HVrlLu zRePug4tp$<#0s&Nyqkdv=3Q`4`4b3sV%#__WfTmu8?P`DMtgnygpir#B2RKWY466C z0-}3G$i_d1(lWo@_N;6iL}Slq5cx#kwc7mG3na5kJ1>k8tM-D#s4=l88X zHRqK+rg``%b62C^hvHJ9(W4OlAJlYOvwdAb3m0x!+vl{`UQf_)LPAk_Hc~!$!q6RK zUx@{I&$?*4X=bVwY3b>r5MAD#IHa<|p7oa9U1+jhqYHsSg(`YHyK#huMbCu2ibwgt zY~P&~nA%=L^sBy*eDs78R(Q5&l6WA;Sq&E@!LOfkQYBdYvJEzI4HjCK@9>%uV%s-A zG@&>kUkgp}v0p?rp>C)?JsV;ZJaQ3JUCXpcOO**2&u0!~HJ60J@feD4NY9^#M|e8Q zK|it^5CD#9$pl{}ni7OiNB&hJvz^r&q~|lWZ*-bakz4}$O9AZzM-oflYwDaGwUu@v!6^9O)N$e4O z)O*L?w-}}v8PG_IEwuf4qNyiGh;N#FKGWs1)VF0Ir;Ybwu5`D5hyMxzuS6)6K&WFC zsn{IJR0Ncw`WrG)XDG&LGVaXJ*cASb|AIh|h+S5HzL+kyn#>AwcNb`x?sA3FX}q33 zy}{JfIG=EzeFdM&LR#j{dO3RfB=AGF>fD2dkMKF>-eKX@%OBR4t95A`&K)&O&Odtk ziEp;afXi)PP6@WrLTD{Liqu^-ybejLr0VSz zZ}00aY$jxd{00Ve-Yw53N`JKDFLGdJEg=H%kV9z;+}`DE;&c5CTmPY`2&8;{>Zz7F z_xg}(iI1l)v|xgAv)WT>uY`H18tZPBr6*(<4Cz`=&;@wy0qmc-$t?4?c!i}<<1>|i z9U9LAJp3XNXaatFY`1`z=1;n{sqo9mdDtmHx7S6WPrZWEmtP05!bueM26O|0!IZg3 zV(M_&sZ3OaO*DcwRGA6EFH2mdFJLTv$YkDOEXgpLhT4x6B-axKThONeJ~M3rQkD4B zX+|V~Da3)j$nqnR4+mz@(Ng)%Xwzd0o)sFoNY*d4tz@d^y5aIRTWePV0f7sPc_J&D#dVn&Voj43r&P07i8_TH{ZCbtpMD==2$)eQA;(YtQR%d*-<}%Tlzi z!hL)hkEGauzl1Xir)<`5H@PC@>(^0$5p?Ra2zOmFVdNpZbVEn@jBUnWg6)tH(x;IE z{b2&x_ZpdDl{e2O#DU7fpF#rVx|r0oK=Y?4Gj)RP8n{f|n@z@l+>=+?mmRlnZ)bM8 zjzTL(62YX~o!Xcecu$u;ZKa3aFGbaexsB~T+Uiy@p+|bfhYt#?nh>b1KjP0v)huO% z`-dwO4So)P!0oVZqG>mgVelZkg^r6NxKv8pVlkEzjGn_xRkx_g;4%r~710JE$>52V zX}Pa}rdu{5mXmYZ?+Wz5zd>X``L}2RUM0lDKyW(=ekaGn|KKGdvpqQZwVYNOhsu=H z8-Jq97t^=V5TKY?1QmH9od}ab|8&yisnVXCi0f)CqhJU`LMwpag+EouaCKh(11VdN zG-{Qkn=dX7BcpE3EZ+C~m}fQ`)ddD#8Y4a@^9h6}CH^oRLNxG?dn2WbMd!p+G&dE_ z`=Bbrk@uBbsS2=4;6AhJ`9r((*hb5yxZSppfW5bbq%&5ebl zw0U#rxvj{M%(Qqbz?c?2d+*9PJ?)8=W`6Y1e2j{+&HWf|# zl{TwCH^b>VlNQFL&-@5p{zx8TbpcoV$O^5?_< zL{N&HsTP~UdU}DT^&Hn~wkp#_WJ4R)D3k%bdJ(^1(*8o9@mpVEN_5D>xt9xW4ld1K z?$%{6z?d^!Wu*g-S+iNMoMI+_UbJp93c>jIhy z-h*e?&5Y^~Eo>t^uy%#eH2yPOlW^u&Y6_x=C&x(KPal?nDhAo=_D6*zVl%2$w}SX`8QZywvt&bTgG|T0 z_;O>0_{XI^juMFr*$d8HaSch;MQar1Fn9Gx=|bT9Dk7XtDIJ(T5ay$?)9s0k(P#Q_ z?NOt`iIE*XD;h{mkFtAa4E=tkMui0-(?&hF4-r<7%2t6~YvWOJy3j-Usl zdHRyRFTDBcu(eFqVZ-M?B=f*SI@Xv|uJQb*T2VLW6m=x@C9}9rl8_Pez&IbcDHfC@ zC;vvWOwWzmt7AHaXQ2L|X2}D8F$9r$Hmet$`6!R)#;9fk*VzyA@-(~szs3T=jRR!I z%T6f+=+lZ?E6oarbZ>_I;5WV@i>fTzf!}bV*BB09l4k>22x+bHD3)SEdi+g(*(h*f#N*lRnM%e`;&7SIaYA+TuyM1D57PVXwFh2 z#S$hc0hIn z(?b~D79T&Kn9b+EH0+=1;{vs~lz@0bBBd+_Sw*0qQiz3_D|-K~+?4^S*&^;OF-@(2 zxJ$rxRuJNni54QZh(0;OobrM3dILDerfj(x9atlP`E*JLYDAO$MyG>zl$r`C#j}xf z|FC-gITgRU&M{kU>EFIA$laiEl&ss?+LC?%9!!b7QlkScu1IO?%n|M76dH;D>t`s9 zva3~D%83{ZKYIPxq7rP)R4Z{iMeE7C+5LlV4X2sobO<=p3>3LQ?!X(;YHHu}h2via z@xr^5^S7N5(&VI`SNj$c2&-3iaVdhKyNWL8u z6rJiXCAz5d7OxY0S~cO^Fx2Jf<8$S<%_O6Ri4%hj0xv0A^=jSh%|~k&UU+sH7BjdR z6e$Xh-E!4wg(3r=vvQ~^Y0!M<*1DSr9L0r3gIuSXxj7N~^lHHy1!&$B4TyOfvqp5} z)ayorV?ogBilZ?`gSvg9kLq|c9U4l6g-AKuWNK9~s1Yq1Ed!CbWd8_@f8m)wSonES z{NeqG9~Ja@uK)gkW(H%lCpctxXjJ4e_eUL1vG#0lPuN0^J-GfeVcYz_&w^$ z?{JozNv~i1q|oyIW;TA_$SPNZeg5{;nf;bh5|IVv{@BL7J?VqU{d8G9zA`KVKR!6@ z_ZHd8S?HiO6c@tY?X%8uJgE71ayct5`#t5zt?RZ@!MC!UPjfsoCUF}D=A(Ok)P6av zm9j?;#0jH6=RE~%$^Q4PcE+8Rrv^~`K!xVs{4Udu(JF$6O_Re-H3@A$fk;CR!*MC1 zQlaWNCB1rct?_yb8A+ayY0zM;W_Sx<8$WLAv(sMG^|uCaB@cOhr=}%2IF%2 z*qQ77GAE*+%6XmVGw!~V5b4QDWO_{JPcWV)1KaL=6Eg!$W6(Dr(=zI;PjR9h+rab- z;{*S8!0=(b>^-E*2dz%#lgJ;HAFeHgrxmg~k|p^tW6tErRFtY{WUu)Aff8MRl&s&o z%?X@0SE*kw_>Sf*<1QJej0uPqyG01@plcuDjcla6Ue^id$T*OI6M zjl_Pki7TzPmDAILZiMxU?yI_J*(yCboG!lD!2EZQ1~IwI)cjd)KDoiT?B>xYt#IHT@h8-QuXl8kYDQiS3)7jMxWB%^ zpu~C*Yg^&OBcV2X!YZbjU-`;z7DYZ4sqAr;CF$bFQ4S^&W!)zR&m&~C8*DLW&e|xE z^k$3uX?9DAwcyr+$Je7K=YU-)2@0G3eX;(v1pc4~cJtSbzTWFmPj}Pgm*?qi^4Db$ zm(Az)pzE37*2ncHNzLQep7Nyg6gRD}?@KO}-c8!WxxL*I{zX7uKNZ^`Vb}D~vN+OD z({yv&-*Vyqs1CE#!&z8h`I9a%l8D{Wl*Ch?h1ZluOx+uQX&YgQ#`)r1G%uS=OZHI| z$#>7s#;JHH!SpRk5Po?0{9K%`T}awjH8SJ+oc%pI8;6ggZ5rd;==k|d&&u=a6GKAq zar2KtN!LJ-x@K>G6Zp6NikY+h^yv9hB%!OA=A_ObcXSrbco$O@Lw?0q3AlKx(>Ocr z_Pd#vy1;K_tKXWkH`SY0TlbqZ^Im_qB+ibI`B*?b?{?aMu& z>VBAp%cguDE2alq>Od*4`^$-Z_7j<(Pzs}4-#Z3;06GzUjMX#bLeF%zlL;-dKC}>E zJ9>LYBlr`CYV3 z6J2JTZXjJV){dJkhSuIplLF)K}tvh8tne+M$LhgpF-m3L#FQiO{*s0D;R|~LDJ0+dERL_f4_t`std@Vlclrt)H%eoj^flf1k|%(x z^Mj5<5BvOXp$0T*eylPhq=iYdaV9ega70kX7|v-4d$i7>VVQKKi1>jaEx?_h{DspB zY36J~a3^eKx0izc{aA6Fgr=JUEB!Et)+9c@^fBrGCaw#gohoQMLXRBBc7x#_Q~8>t?z1O ze<@ZI@vN-^1Gf>ivI0qMg5aBb_D3K_GpxNO4lCD@jV>Sy_eZ|lW|(QyXSbPke(FrG znYB)yP$2f)WFJ+WTt8c0Y)fYKVr(e+ue*}RopOo(l<9!vNi*w1X9Ls1Rh*xvV{#Ip zqt#0c5}wp+)kGbHOgG6e^O>2|VxRrI&)CslTDv16LLL@A?75q^lWNX-SNavEMaorx z#ZAHnbSL*#_NCw6R+EQ9aw8&fp}IRVm9YidCVd^%$j#NkqKtn5(d2K-TzPZ^{ziPe zV1)k{Yd|A=o|f>hu>0=ok-huwZ%{Lw&(JGZL>&|XDF9T zu5R-E(-Ehv+tDe&3b4Y+xzecs*>qq4{*SS53KAt)w%udfwr$%s_Sm*<+qP}nw!O!; zJ$KG|KQ~^yj~7wVm7N_?{n1%n-B~NwI+a&vyNAk>DpRNBO0|oKe3Wle38(x=prG=8_U{B3l%RSPGkw|a-{-W&!YwGP=@?lXxP|}Jb4e985 zEm`B{h`+6)m%@PIX%3sF1}{(1lx*fvCjP~f&So%24RN6PP#at}m=UR#8?I;dYn!R_`Io!36I`x|;M!8<6LlBybj2U%?YpgbmMZcSt%e|kqf)(w z58v4*r4Z6vD$A#C4#~l167wr~yJe$c+HlPxY+x*saTn!cdMa+xE`riY1Yj}RqzQgr zQpi-!2L$69ggw9Wxx>p381eTrr{y8Zh2XKk70Vs6F@S~OW*odgW&u2)NM_2OZOFJ% zh4#usP`pPq_dV^vlrk01DTS0te7LXK{$xs62aE%!v!u?RsKtLsV`&89pb*WE2kVk< ze__PNiTv5Cmp;H`^mM?+dYaXoPHN_r7{+O!c}Rl%1Lj&oDVA{*K8F8UfA|n+(v%}y z?GC9X4E$r$tQk`mAnxe#zX!xD&916J$spex zA~s&+K3XlT)fzpm$kLl-S5?hg*~ksF9-|g8k$yy|~^oY$qBPgH*RlYizrc za#fJt^E$b|BL>7BpKUoTqh`Wj4GXEE18%c(kbO7 zWZ-QaSrmSCj~BtrbAIA??+}3mh=kEFWo`UHnx>M%J!RUb+(?DCBL&`O?d1I1k&*-l zZxTyAeZi@NX1K$nizAM?3}?T3=WObCUN9YZby;x;DBz5PCC=5iVOfgGE1u_Wu$tr1 zCgA6Uvw6~d3g1l*NzrIHe>ts;e*;00p_-VbyAm(5tkfO5lyeQx2 z5>@2H=GUqL*3?2f+w;-a`%YcWAQF5yYY)vyf*)snJpeLB06d*QA6Z;qTboOVE)Q8+Xzk8Nq5>R{98gdHM z=QeK%?6yu&2w&kw@g`M;bm#~Lfw~Z z4pi{s7VCMw0e8Mr%_FW0aI!S~4?{I1-eu$YEAgi`UiK8~Qi}OlDJn5{&OD}JW3>wd zHOtO&i#FO@3fjg7qu3q-EHAOr}5v78D|w)>t-$sBO$W z8xdwYlOXDQ8z8>GIZG$Vv02^)J1@*WU1evL32+KvV*7B2ZO935Pm=PckOpXI4c*{8 z3G!z5zoqesaE4omPh|p$UUrilg%*&Ez_iEthk=Y}t6&mk?GiiOhtfbSO zmTJ%Iyi@3h8U+J0YlfH`uZwaNWuwD?o`zHBwv@>nTc)uGv|fm*p!qHC5^6eW~`CYh$T4g`_%qwe~o=xI(uX48-{kgj=##Bc+}>^Ib)edi<#pUzI0McbY3w z(7rS2qIia}M|%|uiB_zkJ@YOj;sR@L?^dvEYLA{RXX2)D znp9k)u!qKe^IF}EzMA2FjmXq3il$;dH*_r>_q`W*I}p#XATO!SC94Qhw$V9!rULw> zvbcbhNAtXHqtwIc`qB*?6QAGx_?p55S?GY0qWq=~@1&=S#1lU;i z2;R8#d19@u*jTnnVInGrlxO1o+5T-Zd2R~~-68LUSbo=5`l%7!5zt}GL;ZOYT-jJ= zz*ZLjg&}sS7dDS$Uh<0lf>_vd<=8uaM@!%P`d2ns! z+0C_~cZ-L)GlLD$oM|I3{@s0eTFX-|lQ^-POCv9n1HC6ZF0tEXk{j>^5=Rc;h0>uL zeK@*09wN#1;5+;_bJa@UwoN@RWOAnEm5DdFliw4-SoOZ9Ivzh;SRTxZSpH@FpGS$R zSVlIY_7lttq1SB03n1iKfR)m!xrBr4Ch%S*1Md`8Zqe{3f55qn4k^j(CftGdI7Sn{ zjLq4p+y?^P7YYR614Y=sg;2DR!8LrS)cARsHSwSs0~ake6**g)A!owYoxoN`&>0CO z)?$FQZ(oXzx0JrvIXa0AxGyN=V>1C71e&HwRSDHgBtzy70T?387K&B!?EPXAM}^2# z$h+dHjbaxlkQ6)iN>%cIRQcJ#@Lko&>;7G$c|{2Z1M+6GWU#4{`?;rdQXxN{u~8zA z^-#-|%l{EjP%4wJW63jmFn@AJZ_>!G3ySWbP$3_>*Jluc!t5IFfdmnfXr~NRZ^dsC zBoKAER{5u#FJIUjt4a>O0*WSyT!SwuA)OY7(9pZT(oiT&ph}b^iF_Ytl}t`uEoST* zK2YNU+;8xUWL<%{GcMaBf$YTIEm1CrE9G8t^!5lB3~7->o=|~WP!wp|QZM*Zx8@Eo zyo)G_oafMgb?{}FBq)jvdZ5Wdb2w5Ma*&`po}%OMleH4W+c=VBkE)5~PL11f9dM^Okv;2*s>uRmP;F#gaU(o4%d(16EToa1B)q9M4l8wqy^Zc)8 zJ^hF$LC(z+0w0(mBwQj`sG>n*=7z%?9f6CROXh}4@5)UVu1hmoNNL(Mt2VkM8u(#etxrzEvzR$tX+8~x)>?JEi@OdS3fUe=X zVy~?urN*^6kLf4w%UI}ztv4SUNE8ZKy|QgxV;r+pjrk)Wal_9LXjrPJgZQXAd*Q%T zWOjv-RV;l2NPyJwXEu=Rq6F2N+YM+25|HR-xu0W5_whG3D=Sxt5&~aZ2bJdqi7LUE zbW|H^VJ6+hBt3;N;)5`f#qgLV(YY3avJE-PK}E__D$ePS_&JzJW&gqX{!m-aJ&ds$ zlMOtQfC~xwTEy9h7r*}vtQvO!_|qw>-(p)B9Rrc!yX*r1a>aG1&9ZFKmvV8Fs~H9% z+7vfLoTxiilmZj7z)eyyg4^dVV?Dz$>-y3eHB)tAo#knj)_IJ71v@rxsuZx8gm#c^ z1Ps+WLpNm0&177wNtBX7l0HTxM4+DO(Y_q?*RwU}bit90OVP!B2>)Pefy~rJSM1*w zg_tW`)!f7jA?X0o)2?vDKsmqwY-urY`!S-y;Gay7>Q+m1ujV=62y+$-yWq-%%gy7 zm=vFY-$JW*4jOQ&p@4)!kdm~x3$=2(SAdr|#@F_ZyO~dW$O9IT>(D`J@=_{3l3ALr zPXGm+x&QtCX;me-v7!&kp z@ekaeg{!0e&a0^O&9EmCn{ykaUNOKy)fJoM;D}hCOV+im;#!-LPq1jVSXULJoqzFI z26z68Sk5C4jB1IzYIYUPOdw6(dOrI|j6zKL+m_vN(MTsk;p(i`TP#hw%2dh-qxo#} zTPpN*z9*O((cPt!ZQXC!vDMU-mudrOs@|yvn+p0D2!z`9;h3mK;IZ^n>Kr6N=o0K= z=1Cjo4ddBTENUxE4dirghSDRn)Easvg8J)Bt{fJcZsr5w9PC}p`e?_}`L~R~IM^!3J49FA{JEr37Yen4BbFFJZ{@dC zjW|`Sz5~{1&oRCht%L3b3(lvyndmd3?w*UTh8w(}+RDN^~ z%AM06-f*Dx{HUYzI6Y`+KKua`eyPy}kGtAh1A>SHv3qh_w|o!nB83%nN3gEE=T_SBO4PmiVRtst8RRWi}q zjSI*Sdp6GTl%Knbq`>D+muVOJx<2{b)13do;*yH9|H!|PoPicBo*!a&4o;aEd3k}IP%;=b-a@~y zEZj%B$6kkmtKdE4qJi-h_UDowc_zk3cqNk53hkiI*^CV9*er-KK86gbh4mq|(vt~e zKwy6U%;=bxH_7KJj3L+HTUKo0awH~u0&|Og7O4ke_#LD^2F7ty9@bDcK28vbfL5i*7Wuls zoJcWOue=d&F@N!%VqnT!1$hSHl1N0kG7gGUa^P;Xg*s>s0+u}AU2h{;a8|ru9o)o~ zoo_dSG<9?wzis-_PxM$KF`0M2hV>m_io7ZbL2c_4jJ|MgC35X9Ty;Wr%n4x-x5e+` z50WLHe&?j!Ra9>$b>`e?GZ$}}C&WM3lBbBq55Z}NYrlc%Q?Q4|6Es{n9xwV)2Jx?jrTwSa z!hE%f{W|-iFE*(UwiFIUnQOiL}NDU-N!M;zJVc8psdpI>g9*pmO zTIm{-`pHzPTV=~SiUh5G>yc`%Op@N1J7B}k;gHw&!=oj4MO!bSp*v5y%O?UB+Bh~A zkMKz0Hjum}^MUoXp6KHy4^aRMr~1D;!{*itQL?OjF^@r?G>^;s(YVs7MHf_6f;)4U zYPC;8W40yRD%~bokbsjZuhny>`3p+|5gQyU<@#u-p|F{paYFK5wV?cb-Lr#r8YG+A z)=`ick^Y6TIOWbBR zd$fLs1c2OrcE|rl=3Ksu6?0oPuM3a1tiCTi-wQI!+R}1vAQGKF(-fusl+O&yv64CN zhG#z>_m=qZo^hJfwOlNpLTZe|80L~2^=XP=Z!PXHsbQlq+;^1FJ-52O(gERqSJH%gPU1ecpdSQtg>VZLGZVzkb;`+ z{7F^2W&;xS<}H|mdjN{O&oasdm9%~7^IOlXx)SswjRR9!W*+;LGWCg&G}dBOZpB8| zw{lq-FNMTGSggahV{Js1tDsEG>yrZ!S0ESDF(S)NXei`}--Ye6_|NZ2G z%f^9C?ep^1T)ldA-8*(z&2jCd6t{MopkuO@oU^n`E?0NNUZYg&e-$o0Z)h#nU0)X= zH@v+N7mMc{y>|<`;;c_d0HB)3d3ZoTUz#2lRbWm;??npDIx4=dd}k#s4OdRXUbD$b zWRE?PHPB=voR33ut8bF>l7J9~0#Q)t)v`7yCt^?~Bq*B248F7_AuIpAo>ctRIC9}3 z0$Hn%S~B4RMMW3vw@9yC-{kr%i9#;QfyAK5Fa;z(w6}num|k78Ed33mB}j@<*F{e% zf?|eU^wL5(ae)jA-I$5kylI|gM`dqITGKajbZm;_Li~50&44X8ehT4tPl$epVb12UbN`fxHna zsuH(Amf!Rt!C(2w09`bkK^;v=F%*uK(2_#w(t}bv8!odpqAaXcZW@}X9mG)uANE$n z6H(&J+|l;#>7_+;oEZIa+WSiXMaG))g$F5(<19g%-D68w&EmS|Te2kkX6qj$9z-j31; z9=r^*5`xemyR?L_UQg(lnZotiW@)XHzxbux2%Tn-tk#XlWCL_hVB=BQ6kD^vkA_&= zmT~WokDtb@JoyE{dUK)_7(&wePS9Kj{4=y1PyUXjs<5C&(NmB#g7eV~7p-W*yJ1;K9qAOl@7{kJ1%{L82-uCh^L&& zd@|R^&4IXMmYP2oTBHf|CT9T|?q|nPD1^?gs;{W`b1_U_CnZsj4szXkoBHr4Z+>B2 zPG6O2xDCx4E_7-sO;wPYCRe2sFe{sk#%&byF-b5L+p5~|FKM&!E}lq);%HNXJ?y5v z=$^rVRPajsdM(*NyHXZ2!5}&Y976^Sd?T2M!4`+rO2o4~xh;0I+Mg0&I6-AEn^(so z=*BGaMVi6@i}b4&kN4YJ5(+-th`M#iEOplMXOl?Kyg<4NPVxBj%13%VDMnHFbslaL zzT?YdEyAa>tJysXvU2W_r^D)!IH+y0AkG!0LeqaPQaH8^l&u)m z)&(;GanUiCQT`LeD!SUQ9Vd3_2L+ug-7`SGk-2+j+(E!V{mh zHo^gqFK=&x6_E7wpZq2*)brtlkGhCMSh$2eU7!5RDDEdVi;|E(_?10)>8E13YjvZy{E~uPDP)&F-uaU@xtKG(@$q=%IDmTW*GSAGdBPDSgY zM+tq&AtF=ND2Ic78EqOyj|kBYX=H?~!szT6VbP7CAY3wI1Yc8J$agCOd$Kkl25i(;?;F zk`7-SzSh|&tavRxINoVI=SV@Aq)P1Z%pKv~RbFbuCCdken6bT$OfaNn80oYDxeFm^ zOax8H6lCNFe88K$c_&4p*0>1woTPlP!pgjfNIP?Mi3SaPxPD%jySg~f=!RM$9K*sP z)eudbsh2`?VSqM=*=jrRfTEu_q5`I3$Um`>#ABzj2BVN1bxOEW|8Q1izQQVMW%(0B z7r>w)LCmSc>-UprP!!ZR1o}=rYo%DbMi2Zv_W=@y8TyL|=srpKgV23$qNxj?-at{K zM#ugj$6L&nEdC12uASq>TVQ-5l>5}=`kbqdk034SdSM0Tt;3=5Wk}P+9hYPm#+a5N z{1YDwXSOMr7#z~gi($dkAp4#$wsSnRsD7oosMgA`G#>=JLGeARq|)}1+^>b;1NWeR zXtQ~hfNI5d=hOTgCUiyijj!Xu#2{6<+{a47*{4I@W7@8?GM>(%{pO5r-+#Iz3C^Uw zkzomDW8wW_vV=s6Iwg>e_?5Sqkou0x7+Cyl3y3V3@ePr| zaGEynRbm1?q(6;UfDyQnV&Yrb(ksbSqW&*q@&|f4?fYHLY$Oj%<^g#cJwD4f!bDo^ z(vijRXeik$-lS>`XYA$_f%`aF%ZF&u>mg9~82M4INVEWSBwhGMrA5QVLZ?VvZIy+N z{;v_3w)RhfzwrD$eTN5F;Pjcr`k)@$>W*^#!0xh)A&d}xz5&**{H^Fjhi$0tn2hoJ_N?;h)R!sysd5X zYHaaWyzg^aOHVnJ_kCGQ?~kOdHQJ5$`s%80(T%gxe)h96$&MK3 zwi7RZw3FigNzMZR_6e|ZlGUAjW){->rpOG09)Y>~apurudaCp4+aE4=vJpC*-7G)d zgxZ6wilfj@IB@nE4u8o&{%IvxaJ{U=>xvOMqRgvR2ifg5-1X#?D)^306ObIiFh<2T zBvo_+eBJ#c=W>EU^*IfNeJ$;9>hz&hX+kN|c#_1|1PP;Y;szr`xK;@kK^!XG9^Sh!{pcv4{)X6^ zK=t8IQpK;bjrn8G7jSlsQ=t z5l{vZtG!v7?4cZ&K>7xThJYhe;SNPHR_-!Q6^~nJ489#IV^pm)BGkLIxP*nI2k33P ztjT6MkI|oj`~8h){f_TPHt*A&b-Z&e17QNx}%eyqLNM)}8?|2(|1eZ6#vBqu3!$P(_a{EgMgWv=0E~e)2X6z5Z zP?>7<)>H1p#2xfl(}F^NK^t|M2F4(H$uouBDFe7#vo@JVS7ID{lFO;sMQs5EBVq^` z5K$ajV11B8;h!H~ePoX>kku=N_QXjwC@gSQoK1JNVhc~zHtzqhpV90Me21kBMvBJ2 zhKgs1jS_#70MN~E0tb-8jlsJj3koEMm0wItC7)UZz*fqZpY;qK2XC^jKWm%{a5ujK zxF9IIFcaXhVw?obhdphS1aB*;jM5B0Hzj}deyd^2JDs{OG@0&^j?<&iW7Z?Q_#613 zw%Q+7c>LkIRAy7Ic|)unR&2`L4HOBMccc&BISHuswCp|1+l`VcGvWgq<7QajH(^^g z924J?*)I-CV^VV-fK~g3MXiY;`M7xU*n;T>Gu^{CJQ~1S<%88jV^*m{5C3a=sBnkz z!0a+=8ax@Usn}Ccr_qOUMBxIvb9lA;zcz; zghve6ekvUN4`ek0y+m({-&I?x{LaMBh*16rB-2p282~9s&b9$Q43!d|453-x0>EG; z5}j@#0)H(B2M-ykg}zbkL+@?_-S@9}c_lc9rv!Tq=3&iK^=U1i5*WzG8q!!a<=&t1 zd_LOpfHGQ8#i;?VLK`QQ>@h5cQ}%u^C8*zYL^D1vzNRm@vUrmuvnqyxEDOUB@P2?; zK^>XJxL!7RZs48m=0LHllGfKF!|g$*&SN#W)8FgW$N_M0f_UN}H>SI!^9VVnPhlD3 z%m0CS_d|27S|rV zZ|WeifIaGLjM>aRj~#jdmm*^DnG_Gdu#U|0RxNBWN9rdvSx>Rx$CbPv_~IaNRaZ4& z{3LuZgrU``?M0kQs4mWM{px%|i`GdKyppHDbaYxMHi$+CFH+fxn%CeT{W>z8Ra z8FI36p7olH=A_ofraZORho1FIjf_RhQ{<}u`RyDbeFOm`1-~ulpt)q6x9afFNE{-h zj+N;mu@bK&R)xEFk^F1((JNEW)-9vYuOOHnFv!uj{fa zHn(8g?I(pX@T9kvHn4ccaY9u0cBZv66@_TiBvPQ1q%R*x^0gAq` z{_1Om=K>0%;+l>Hh(GDJ>n1CIyk19n1CoVIIu$Wj69yThS|xY*?W*0BWb|`c)UyG1 z>YGVH>}fan>{K?5{C;LC?0EAoQ38aL&7J%&#pW4Y2CW13B1*H4WJm}^Uic6OE9Rs; z+Bl6Xbo9EOzoay~l=~YF&lH%~>CjLd#7?rnz3ciB2MAvOmZmhrCYgxbKp8*^a{Rm& zx(JY{Og%LMhW#W{BXbB87tG_^(GO6}=0oEDgPWH5|CgJViGhvb|K_HRIb?_5>h3L= z0bR=@K7RrMg?`oh*o8yy(?PcYdLHh*sjvut3&ST-ah`p?T*>h;6i&uPW@2Jwd|TBF zyP1Zs{n1|V%((XT+Uonrg@m5=T-^CN-zh!Jd+z?>9z9yk%$xS?jF~Qtd~$vFEV>o`Pr~R5U1dFXebqTkRd|0SUfE%AKSy@$>HD>Ml94 zy<9(gW87)zU8ZMvkt;aD8wx}XR~q9Diw6cqhpK(^9RqtS%}$zHgv;bV9j!|Lk#!h6 zL3Fexo7a;{y7B5+u>j?vvhWNhfx+P(jM_nmRAi=O@EJN5YaT92F( z1mi_9@9iI>5tp0o6Fd)v>Oco7mND+->+b05atrcKM=B$e0PHd?D*uwJ^MY>+(jV}P zIq@E+bP-5Nggn;z`uR@SjYm^6Y`ZEi9Z0}hB0e#;mVP{QyZ(%)o8u?hE|Om$$!wJ@ z?y`^JcQd*^`Fj?b_BO9~&*=C0xsQ(RBKPU}F-CrkNZ>k}S|LV>jj;CZ`|;zAksZVC z*1MwvH5~6t-|>goV$&*E3hU#AVPMDPkD1e4+zm0jl2+e>aHtv}1ggkq$Zi3m-RoYR zc$%LOcVPUl#6A0=mK7r$i}Wxl=kXsQ9dLFRLnI8|7Lh42QNu_y&UnwO_ky@&FInp~h(%<9%HWWULV0nU)Lv3BR63vQQ@hWzk z3j-0dAidNP%e1JPs8i zmhUU@xu@V@H-iM*FWL>j@e3?Trc662&N0l>aFG(jD6?wh0b+suy~z^g?KCo?k9fSV zc)S<0iq05xEc+P+&Cpxnj4o}l%QHK^9BMG4ZxRs+Lq2dpdKfxQ8#f*=Os-NdEfv|aD+^9`TreM|}XtYoil+TWphmqkVrcDpqn;p3*zDa1s%ZhCni zA)zZHf(L)4dstpRG~>fidbr!Bi8#;K-Ku4DzynRA%1RT;LEN0~^`_$TZ8yJA6FONP z9()vt9-VOhpgK+uB%(Ol`l?%p%+Okqg7`lg3%UZz3$j zI=5B1ZbuWFO)soTiDSjZv(BX|ys#h;bvZW_3;=(05Q{P%ZTFk^VCJxf!3xH{$GfMn zMYq6A>|lVE8-^T9-jgXKujp7(_(}-Bs&Wcfa{W9GIKCjxCGVR*N#7uLN_~i9BjiS& zzdA6d7au`HF?_Ev3cGTQX30Y-U%ZAWbCoMUc~sYhL@K@dGN;sOJG4}B{(;;yFZyx|cF zV}GJqh5Dw$-{rB_XI&Z!3iolhYs^!J*dh@E9$`fY4haW2bqK@DLDk++qcV zfhmV>czzHP5USwt5(#4~V!Wq_(I7!eiGZjnr2J2=a{}y`~L84`@9MKx3K23GkvwS zog&!oD`}o%z@~c}+ufAoL#7RNlUO`TUa8~~6QJ`)!b`L%O*qtiL%1L#+Wbp-K-19xR(%dgB~|nO2-KLZ<;r@GlhiL z21MRrbho|O^aYUah#nJGPOU+`Spd@MtvlOH=x+W@{2HBdWvX$HEWK{FM>_^KwH!mP z0$wqaWb}_k;l4v*qykJoe0yvQj&8B4Mt) zyl3E`&{OOa#tDBB+gPqMxDd>P$2WkMRR|nDzK!E~i0pc9qNi*Hc?bIQ5SBHLg~5Qr z+)a<=^Om;Fp_yo?h6iJ+A-qC09A|Vwb3&j+BRXsM!AYKg(!9hFb6UmtE__{KWmyj1ACIf$ElzR&rrmq(8E;NHFGjsgVOg!ge6+UJo7^aD*mRKAD0QEzCz_y8<08-p4k9lEHD zz$D{VNs&ocaiEREiY$2UO#^+srS-!PA)czW2k*t(Igf=QTv#xcZKk7MSqu$BBwuce z^X0GQ7)!~R2*{NnY-*Qp+_vw#%y2Jk3tMY{{Xf_tH#b_&yicze8-pqrv$9%bv=X(a zpANsCF+M9ykSBChIDFy336R}XyWj&Ge%I{~d6^#drjcy3C}U-rVmvDHEi1$N=ep_M z8A-HayI*PTlJa|08|O6m%(TwA%yfz}bf^A0IR4s5u;Crph_kJoReW8UC|Jhw5`9ms z4KY;ZuXlbAAZV@81*&6L&#~_Pbzs9`#rs>-NLZwv_MH!)@9A-`(=OXWovym!5M?xV zkwpL0Y*>VP!O-RoT1t_js4{_1i0KkPF2t}*1a=jvPK*3O_-z5*zEEcS4Z{+$8PGGt&n&iumbiHQ>$qu@`G0a4s>QogS16rqdhbdAr? zJP$1w%ej*^=bQ^5fQiXEjL0(XQ_M#W*2057wdHDfuHVs&hqRzQ7np~*yJ2z~d2P`+ zhr>syJBE-2YH#69+Bllj61_n|Th;}Tj0?=f6ruXTPVsOH<+EJHGK*oY%RT?T${yDs z;YvMOTmUFFG`*YriVR~ksB+DL~nt5tiWK_uM z<~P(-$GI4GOrw%IEIX89Bw$VZVyIEV#m5rz3EfTK&tkx-V-%(7in6)`8gG{6pj2;I zeX5geXM)d`dOsf80x?0+I`1u`M-8NwRwaPWx679iaz(?@i z7)Jm+MUP0H!u>%`)UpnLpXOJ|5o($XwvY&L+3jAAp0^#=ve5{tn_h$h7&^f* zz&8uh4+t{a1J!Eg58!)GGX?nuxxmVb1XS0tgDy3&*mY&Xwwdqohv4e?;Aa5j9+V|z zgVt0ivuy4gQ^6N#Lt=PdD8TrGur4YdX^{O82}_mY4RXv{tU1`S$th3zMFzqtcO@qm z>#HS89>y4h6lu!hgNZ74XaRdEckwJ*fa z2or{FxCzrrVpPCRs`}tUhDEo>eCDg%;SOyOXcz{03&@v;VU$FgyU9y%y%j~M@Cd)2 zMKJ?ms87kNe6x4bI;k-+?_dpXt$<`JQo`fwJusLkU;A*#n9n^GDGbjO1U5i?6!ZP@Kk9ExybQbX~dMcKN}Rf#7Pg zTlN!|F;!b0ui#Poz(e$2)=mNu^=r=AumlB%5HR^R*GHw3)y~fPDAE3<7jZ+X{a0k= zw+$t$$@|Mfo*gp0oaHPHV4slAk3Z6iM?LbxxsbZP+G)I84~!I(Y`(&AVeXS!)Gods z#mAtiQSFHLrAL5thBV!4Vl~n)h(`6`_laMvcFccOT+3iuI!9+j>2+c7D0 z)u^sP>Wb{1No`u#lIj$cxDqkazt~!wW3Q`sgaQK$T0m;O6j(?}OA8_06W<08UOBNg zp-l(LV894>S1{uUTIt<{zRbYt>O(6}3k`?MY>gM*W7W7B9sCPh6q(P+W#@|v`MB~^io;ru(Ln4RCB^p)BL%#D<%X@@O z;ywl>@z?cVNc2}cp*f|J_W+Tsh(97l zKFLfoLX9P}KSp!jm|~JwxSs}vU(cvP4YDV>9kuS9?(yo;^}Myy7k9IjFMcV{!-9vq zd33oaEvyf7NA*xUT6X!rFH5!#<8C}kmg=M3v~2Jda4g+>7dWD=PD=~Tzb{i65LAuc zP8(2uF;t{c#?ybwd;6)vmHosglmTlM(!D=V3N=wLROoMfmkTBPyzI98Uq&0f&UYlH zq!|!NH`g>$UAgz;F^_N`+=#+`PEw%B?El%^S{)Oj4#(ef94KZW)+J`N%-wop<6VAE z!s?L$_Gh`$owowSG-pS)&^En9jvA==;V^^*1y|B3K0m`D_V=52dCg4{6f{6I*{X-= zUAey3MFp7SSGF6nbO%w8v-&HqJ}`PM0HQ}|XD#q~qHkU(_=kJ>$IGKqw#5M{0hi&e zspq*O!vUidA0H@6ex&ilac3-{BqWao@BB5S1}g!V&$6pJ-+-!~GPg7`v~g6>Ziccx zj)Y!4>1thuf>BKGI>!Vs`nY$-#3!O^6Coi|}@Okhg3H_!!WyK@~E@kdu>;B2f zYr7VO3narlwOoc%pKXmk>@v*}Pjenx-njoaRyp?6;^|I{L-UH#xo_y?hLMj@Hr-5$ zpy2K%!Hss}IpOiIO3!3#N)wX$pD#d_g)RaK;;^Jz@X3YHI=uyIwExMLc60(5`K02C zckrF#9_&`&22OERw1xxQu0)fxKaTY3UI8H_nScXyT-wMfxa`vQ?v$0P(H=V+8aDlS zIqYGFy!7D7uZGdu*5m-1N?;dIE42zS>vev?p-9xOXWCXIlfM))lR z8qwfa-(#CkISK(r%;`WrnCD%8LPN=Ii;wBj8Kml|fF3oEyO;L1KTShEu28}hu{FGF z=>EAjBN}q>G<&^c@UqUUtzUbqFaG+w!;Iu6g}7@OV7WA$;jqj$$FK!)`G(xK-)!1D zV|1qV)4o7GvdAa`UPbRuK3Rw>gXs*j!!#3Txx~UwNIWO1-K_~VtzxO#<>|>Qbj3A*PEHJbNMKH7!{sb7f~u*<@_ zJ;0)GctNg-2F*XJ@(gE=pUc@8u8-KAyFy!Q97SeH`w`T{9m;tmi{F#j1BQ{9vwR(2 zt18zrwOJ|k-_!A+A45kdy4zP;xP)HdCO@eo{&r_oeA%(5x=vY^pn*C8(6EOJW0XmM z`r=S`;rb@d4TMToiC<*&-)pQzxYbpvD}GX40Yt3%X#v3WdSVV)#fx`_tcU7^>!l~H zS@j!-?~$DPKselZ9= z%De2>!I0uP!YKF1^1xaN4h+X)d3+~X%9Qhp_m4?s+yHdQr9eEJ8 z2T`=>M**36F;x}Y=DDnEo@U@_FzdwR_?@%vsGE^#Mf~3Vqj5CZ=Q=fmpqPuaDp@~- zVlsuOzw`VhVNECIhL3NK_yLc$dND5M^PGT;$A-d)r^Q=xo$gkUw*v)Cv_sjeM8mzj zBvH@~B8ZJ6BW=RpQN3SnVX!q8Y7u!`>pQP*y&b)NmO*Qx6V1YPdEmYPYI8y(EMSDE zY_%iR9Nm609man>@4w~Yp>Rz;{hcl|f4!c#e;f0^*UFRpQ6F(fx2iF_`pw+!2l`R( zpPigg-1~7Xe1QSHwTC(l@ar<LwM!RwkT=7X7-euCAer8 zh!ZT%$ecCOKq&AoOspA7uWU%9Xb5V*c zrV1<9+=D0P2 z>94-`L$FXjgK+roc`=i4!}gW0*yg$?5*&o$rk-MrLps$gD{ za}gF@3a7Bn@dwKrPE4lrnFpAG%7NY&O=*jyD(t<7tB^cURwlK&>{;cIs%0%&I0>&*Qy?Bx*iW9Z75c52r3Gu{^Pwizz?$J6u#U`Nu~ zl@#}*?8Z(_-(Jbmz<7Jj8cG<>FvBFWj+B@e$B4;zLGlI^)C>TbU!FbjtDqsl?;1wP zqk%Sl%8Wrnc?8nDX^+@%S~w6O#eHzz1YV?uc1jh}KDsRv3hU-&E;2$6OdIw&lS` zQ~WjdhgNiZ5U1nb1oZ)K1+gwr)T2Dqv zwd$UXfRZ#Qd2J^N%vnn6TU*F<+UH0AL+97{YPYij5_|b!&M6EFrrQ_8IulS0mq=iq zvzy+GLI^0h&C<_n#Mn*p{0g|7=A^-E;%apg1Z2g*j|F5lBjOwQEk=VaM`p@QpEEJr zn&a+dz;TP`K(U$B#2#JLchP#ZgzY7gl4ZutdMkewQMnTeDcUm=hY2;EHRyBfFu{Qb zpwF>Wf&&jgg|YcH)S%ngLkCK;X*YI7dsP^kM`w^h`I38^!1Jg)tr}!rT#s48Ug^uS zL|~0eOrEbt&04QiaP4+FqXLTl4Xb_zV6Ds~&%ser(OV|9Cm)JxdGE6hWz)pm^0j?Z z-%gha1!md@1D}#zP!~Ml?keSyzyIDdeLm_HxGpeS^E zvI*v-K!z1iD6C>y4LUg{+E@lHwqI{Vi|TVLK-2ec{dc)d)sc8R^ zCpoa(f91Kpf2Qc7+s^nm^!-Eb1w&hTNC$eZ)oWD*Gipa@fDw523&1X1fwimiRbLp< zb%h7J&n8%i_QaA{hQNDG)SH=oU)MABV&yH+u4e&zGk>tGdcb^^hK#bI^^1t|7Gf$v z=3^#BG<(VS=UV9;=-?PijTyaEVX2GEYmhl1DRrZe;e@@yPD9mx+^4*ZHcCYJxumw= zEjQw-6OWQaT%hDz_`bd)^H72uZC`FO5-?9~?w8j7U@v$rU-KXv=#h)*JCdAJQb8`J zeMlu??vaby+5)%0K*aVP@gR0C!Imdh9pE)H_zo?D>%oc^(2}VcjM4veMks>|vb*2I z;GS6=WSfrm^Le!GH?dS4fe=PIYLS*x1RB)u9t_7TLK)hy>IcV#;c=OD0ityE?t~CFnA} zOg2hkVHPu+oh-%y4jdvtDY3DQJ0mgA#E4&hG2hLKA7PspqAPW(Z12$pR7nPuNM3#! zoufEvHFu7;K`eLf4yyGw4?IP5saR9Vmm<--n4a@c<&jXWkn}gA=rSP2YHjGvqn6-U zX+S6cMVpfQLqRHuP%k?3j}5o6CeCJpRuIJ;=bMDa?T?+Xl}H;tC>pBOZzg!7m2NW{ zPVWI+N>b%~SKXtwRwZbW%s-zpC2P}>bSbF6GDN-CtVynHmo9AEh@4_`3NZxZ%(aY$co$CaZ zLzQx;v4H)^+}d024nUYL+%T zU>kuzdkAE^U{+7Ue@)xiukD~J?+tVKSc`GEW59ZO*CQcah>Yd5jz$6K1a z+(ba|#p06`Q|Qwucw6J`uiUmNm~Lya9hIxqZa>nFpT(<1JfCJcr(hl1To~I8CL?ja zE`j7wz>e^uFuJaR=^({j7pptZt1j4$l6D-V7^I^@LG z@6#;SLA!b4_p-)(>a*9Bzr^X#6ebYX-kM#~VlC(f4#3iTs|`&p3Jg!72CrOi7ciJJ z503Dodb*O7W}uxMd|r_*KP8Q1;}>W984)&i@WE~<)@I59q*Db8t4J>;l1(=uop~+d zwy`Qo_)6`h(2UZ08OvL!?i?4YtuC#5Ng}Dh`-_bFX+lI7NJtm>0>OMsO`iHa&x5w= zgi)i00p2dk&Vz6RH6ZKf#Wcj`3yL4GG-F6?4;MRH(q z$qj|_#r2QnY=@8gEwefVFM`b~I{;VuY?o_`&1p;@dm#u0V6srOh z;*ZhGjyepHG?9VHQC6zs0TO2wZZNeV;mhai zUW^_))t4fdWA|P6)T$f`b!w|kKF~NM*K0q}I0VDJC;Nu9xd`z3ZA;$}DeDt>F>nr+ z7IP8>pL#!1V%7Dh`i6`$y}B|MzO-)$U2rQjqW4UX>eUK7BM92+SjqJ6ZHJLqxWyC5 z;#`SuTX2o55esh`GP)2W)T+4Mb)TxlE;S7i3E+Akq;0(uWgHV$WKjm&N}4z!w1;Za zw#%ad#kPTpasyQm*F?o+LjjDSDqTb_JG%rA$s=hZ13Tc$j>uJi5Ct_2;$L-JA@-L= z4D!bQ%&sB%b@ccB`o`%iYyYuB#JAP{d&Se!wg27q&+)#2p{f1vqwuXwD+arS%W0Og zwf|DboOG|R^GP@|cLIrDS=4D_qp;TqYbFtYAOfJmU&6bX^_r0|Z9=SPzs~!?*0tO! zD6Vb+6*NcNx#jWlYj5v<`RVg}_lwde@6vCSKDE93w>#S1yI(et^0FSH=`o@Yt@O#| z@8Dh}%A6)lU?yZ1OMCZE-U!pZ`;F2k$C_Wbcfa?k_GG!0ypufNzto);_U?x!%@6F| zuhdlARKdQvhW?}*_4nR&bbFs=l}GP6M!g>y-@BhE)CrWLy$zEIC42YRw)1xxSRxuJ zZ|Cm_CLOGvs%CSdW>U?ToE0RH8w-L~l0AXF`>EKB@XhtT`;FKv`TIX7HajFN3k8`6 zSA?(~EkI3D7MUDsBYA|jtuVo!G_Iy(yua_n5%cDZF~vk38X`MkSrWIebc3p^U8UOz zbyFO&*PDi?I-Asp3JNvE?hrzQCbk*bLDCEq8WI}|ejk})&J*-hB=M(t3>%mPBfpv= za;fhBppXt-CAf_dQrCLZP+1 zZta%NGCc+)yf44(o{g~mM&RYN>fT8dR@b^%TSzxn^?{j&OzCXrJ}(VT(fzQwYlV`I zA%{0sEejb#X)~nq#;W?I`65~4^pLkpH&&gA&q2}$#HDnbvLfR^#fzGogq0a2% zUlr6CMS6~4B-A0hhOp9E+;c=nAris#B>GXIcb^}EYD*}jp$fD$Na|!q7mx?6h&Ag& zt=3gX)VwN2zQ0O7^kA^OPQ(KDT_LP@s$z)4{ju+Fvs4dLX+7d^D;o%DC=vrY2g>^( z93p;6z;c41k{(d1#|=uY+*Rja40-2KozW2}>%bZDN5ofz3Ur}Ft=v_ho;a#Uw_Y8I zgIwQdRU+GwIQ6v%Ix0SGL=VY?)s;}2#o6WX8$xZSth7D@$pZ#1%^S!h37l1~$IoYb zG~UnAy*PD$DCgA0$$N3?-_NP9Py5BG|4>dnLtn$GH{{V#PCa?Avc#!-^u?)1>tek) z_2@3-&*sz*XqhYie0Xu{9(s^dm;HG9luVshaqw4mo;y)7%x2T>#A9>0P%->-cQ==t zfEtWYlgyhhf_@NCbLV_r&tUHauDs%%1g=EDr@kAkL)L-o=&h?^sg7-LjvJX5S-BJe z@&(Ms99Gwf6Wg1U(&R%so;%wt2NEdTbu)JTAAMkk_O>@CrO5|&JU2cN-QHZnnWn{S zrVaeOy(U)OP-C=Od7VsZ;neL~i}@|=j%IT|Pl+^7?EpOFt=!BGz=PW1O~GRn4W~MZ zhJWS`z(clOW(Qz_%?`lBB$8CM1F(VFxtB+G03Q1H`T78-?)U8g%*sZ5O$nxjwI6}? zuho34%x_gn=rz`87PQ5|W;S26190c;iT3*{I|x(~-It%c1MqdeuG9Fn1F+cvSiVBD z1F*nm2jJ^!&|DXW@eZq#DEPr0fQLct2OfTQB~Rc5JSR$dDsF!`Rm!syI_@dA9xCM# z*L$~=r_y{N)XIAdud5Fvn>6~Ze%)BPZL%}s;aZ;TE$`LxWb`X)c@CBLxX9vxS{_0Q z9joOD6&=)GF;50hC~z)(f7Of}Ddzc!8vqZ_?sAK^GyLJDJX?|I)wHbOvsL6rbXQs# zmce~pSD}I)9iJj%Js|G_Fn3k|V&!;5^gW)qLhI!nc_z(32JUO!3SY0z`;xtX>!tyq z%Wmh7GUUc)PZ=yEfi8s}OauZeb+LQ@9weDB|5`v#Zx{*5lU(U4H{dMu#iT@vW> z@ZP_JRYJe^{vG0GU`+kr*hoEJBlfL`%W0O!>;Hy+V-cR#DpY)LmhABUxVX_Zkt%N* z8Az}Fz~!pUKQxC5d)xSRDioW6$!E&4V2~}dNi;o)2>H1vg#brwtIziH1f&zFhO$P$ zbhAy{*fw7Ubi(CbbZG}(B7tODNz8R?b`*M5xlC=hF*5R)bE>~}&Z}L5D>A_%UwU~? zIEeX#4+Ba(mZ7>}Rxwf_wk5(Fog5BIs4H`kK$-VejJE3CDKj?H=4HsS@Pxr{QwcJ2 zG%B7(y=X~s`R=wXd*uV;N(>!}-Q!p{4G7-CiQZDj`-#&oRG!%nSdrlpZ$M^{v?gD9 zX_l>;JUdrVHEmbyNyFmcbID&OtAnTExgYFYc0g9gDkjAKfM7MaHt(?GRM^{;g5~Oi z-hg6Tl(n{PcT);c#toi~5X{NyYMWBXPw#9>F}LnOEvp-dWyq+Qz51pUMn#{ksL1NF z6@^VHoUCqrFAwcLHAFaYeI8^}ie%SX3d~q`8iljM^WUcoFE0ShLrC*$+Y49dHaP_VsSY;9J!26{(gsX~1753Ej zq$op|->oW2Dm)FCX6JiSD5$(A-ocR5K~gx%b!2R3`2| z-KK(7JlRH#9^A42d*vYqAU9S%j|`DLDYWkKjC8-3%w%ucI28w%oDA$dxfoF8ykiZ^ zga3L{7n~COP6qAv0WF-9VQTO>NnV@F+`q>wgN)&`UK!y6&Us}})nMY7$GkG4;r<@4 zY;wWT@AAs3TZMg%S6169%z0(L+VM~D%FY!_cAJp+d7ja=I6%_kDR~G46V0$_0DCEAuYcAL^A&B$CAr9}5FD-vX^1zSk=Q zvhsPatWEDjx5^$z(?PO0c-P4w-bM{FYcNp^QOM|pyq<9fGM-Jjvgn~=BO)RpoozHK zt6DY`StOZXmsT5RaESInR*;M7rjrj#QxVa>SW#~l^_&;g+eQ)n{yU*x4t{i%)2l`N?{A#bUet?6;w}vRgK@RCpfoH@oh1fJIE{-2R}*)rwRX+ecs_{WssA$ zRr>814Axoioy^{B1#PGcTN$+p4^42%r17Ko%yhDx_2_}_sVqpkxRj_kGlGrY=mu9E z1G^^%z9STz$dYjS{Bp@{!dp|rwTG%}uDTo{MTJ5k`=T92?bmDb2%(nq9Rv-;MZ7{358uj2d>!7y~3l9ko?fh_)MN{Y$-DT1y zOKcNJnz)3y>vE{1d?@E`mKeq1KrC=uZvROneEF|I%9!G^mBre%*%lQVJjN5UK6UR){4fgt7KKC zt!PZKHrY$CckeRbJ~M7?jHLqu5pGyx5RtK|V?HC(5L4I?lW8a)fWtury-(=Kq2N#l zBIz~(ZbWve2DxCd%rFF6PZiJu4Rw{kKo%tJ?vz7R?Tnn=L3)+Ly~t;O=!<;*t&)Hj z`TQcEE0Tb3AfK5e;6*+==tVxqf0ZQQ8_4IBu^Y*xcg`#hKH_B5-HnHu&agsKWv8ER zIs+Q_g%T~Uy$naSN*%=M8rA9v6!PkpGuj)j`OJpV_pWa^B!zYJ?^x8i7dej3F6!vd zuncX21A83nTfDfncl%xJ7p)Z~YTZ_nl9V4lf~*$|LXIvGW{N;;B~tBRdjAkKl-U70T}Z{W;DI4=BNM!m8Q7y~4mN&~ec{Gl zwn4jX$JaF1|LHZp7<~G?=jPu0L{6h&vPYo)6+NomR&~1d+CAC8%o+8heB zyJ7f^m&f8~adLa_zWH1NOFKZnFY~X)U1r-NKpuygXK%Gx=m7<|ffvMROX}k`{pMLU z3<*0(WgmBS^nr&Y;U(oH1kCm;@XD*z&Qz|O}h0hd2%fID+xTXFah|G5M!%DI2O|Dqe#(0P~~KmD(Ky6bEpv` z@7VmVs`)(Cv1|A|L%Lg&+p}u=uiJ5!WPO)6!uv1mE3(}uSn8Y+tE?U^94`wts|UcL zT0tC~XO9#vp{?0pHcZnMx+LGS*owiKq7`x{oTwwD)q#G|yI8T297w#481a|++Iy-A z-TfZhtCKaFV)Q54i)2lGK*80*#8rj*{eb1g799QT*7eFAp^x&fpi`sj1oAOL;vgT( zkj&&p6%6FyV%(N~ytX6A#guy?1&saIDJkqTfEDCo+MCR>{N!28FxFX+Ve7AbL2oGmgE+qJn1$n`T{1FMg>Nj9+-c+s$g zN{c>;hEKhpoE5qK;MytlP;0v(=Eu;LvGAp>?f8mYVG)gI8mhXr@FdMhFmF8>Be`3^ z$n4yqc6a4$`|;LxB(|ybATk&3(SU6}!->{*>y7NUwj+J)YOU?+>KDafLLdF-THA4D z@!8gP>T~g{BSR>kRnfjS_-0w)=|$ufBJ4*|P}3kD)^LAZZTodWgS@dnv$tJ-OP_vd zo4&G56?Q%Qwl-DKeR5B?sk$}n{j9n$ZK|#_GV`ssB8|;tmvA}F@_3u7>l7BNeLe|C z=8mzW5RV34ixG}*sl|GU1|lvDL`N97YA|qxa`J&^aOrc<|Af6QwbZ?T=ayQVEAhyd zTA(rh?OST)l)Bp5s=lSx2H}pH#-`U)J@UdzTWS$i57|;n;>ub?`oxx6>r6eY^Et%x z9@tWgWZAxEOD*5^!D&H2)&9UHuXNwn^IK|d*L;3UEv*GPzoizG6}U`jorsaR;y~e> zIU(IrtGvsW8#_ce5MsiUTWZDV9z-BCv<+b%*-}fb(tBHK%_J(K=>cNG0xwT8kqi@= zfF6Ze&m+t&NHRi^H)bXsFcbalN!`jDXgwr#0}K3|)J-14xwdM9L?QE29ZwLevKNkZ z_7PR6m*q0LVDRKZb(OzMz+Hb*Fl zW6hA-Ty{UL%@@b-?hRb1uB{hhRO)O?`8-~63uf-}>#^!uV~@cP4P?7lmie|Zo0VOT zFv`dJ@N&Abz*lrvqnfhXaUYG#RWpfb|j$ z&y9V~n08e;Q)a@Bo-9yN&0d#b=uk`=9%Hj)6UWy!1q`LCULSD;)P@EWhMG@=X+zfw zRftxLR#|OTfflL)P(Z8RSpA!8Pe6=?aA3ra9~cS2sA`CcElg? zTVsV?SvRc66f(VJ=S3~PHyRkC;8?YQz%tyHm zG0F@xX~Lt8z5(+|$_|Wfwam&pBp{v&HCf`tY9mQJ+xX?##Y!24-0w4Oh)6iE7w>a! zr)-J&;`(FU=laF8ytw}F=lU~c`r`V3B-fvzui^R|^5`hnpAtZv>pxKB`QrLH^y2!% zAIS9+MOc~Zhxrg*Tt7e$a{aAnQ>V!kpcM!IhEitso-4w^^30RTELfqG8NMdHb5O8d z+aMAtmNJv(tp<%s07Zh8r6ga3${=1}$klfIGrRn!NVGLuI*SVb-K6#dyMQ#Rp1#*5W`-c5(s$rkM6 z{C=x|o^Q%|1z*GDX}rTXnP_u&`bjOaAp)Vwu zzAY;7q_VL=`i-bKI)nJlFK<5 zOGcKrZtV8pe3FHqdpYIAcH_9o;HR|pQ+RX{njEOBS(AWjX|kx0ThLR@w7}b@v*{wI zIk+CUIwB(sj!1xjWU-ahg5v6?_m?ezx<1SsvFGLX-PMHL#Rcgy#pm85?G=QDkhWJ< zQmgd(qI5}IetL;N2USD(>~rWpU*vF^@|8R~pIJF$oOMJ0Oe6dcvs~fz{@%(NV zcaj3ET(lFD>FVW8w_hBdT^x6`bpA66mggnD3GrZ{p6+5>D$LHh1+tN^rsxP7h*%`( zv?gOJ3k;lKvc$5$gk@v`Z^x>JpBCZ-*MI|J*1#LagMsn32r>zwy1}b?@VM=36*4be z9SA>6@3)jkKy@awgM)YG;uxNs2+2|0FCO`sY6 zcq242Vc`PO1LiI214+C&;Pr%h2PT0|v@QolL?F8a`1FFTgP3wC?kgfeaRa}^+F3bO z3)|=#nq&o{LG<}^;SoWX6G#Jo`{n6FCH9A{_=8hmP2|<2sfLYg**M-l-t<*vvXXiS zfX8wQ-JDC2|KT1-LsrP2=y9Nq_Paa|Xg~T59tUwPPBv34S@g-#0xV--HQ1MJou|KSUZv7q!eR$)5=jI$grRn%rB<< z7ipDBHuKRRXC@v^nkv7P$v+O7^%}_Yte`5E82{(dW@Xy89we?BZeK zqyvrX>fw?*aCu`Z=3+xQjk3*{@GtTzt>3y=)-G?;OaSo@uumGtrbvgwYzbUdWn@>d z{D#AtxpRx*_}*QYz^VTNsel*x>O>B$q9O{Ckr-Oi&YRT!@zOt1oTt584_!)%8K^B& z5HCUlks5{Kgk!Z&U4xiUb0Be;7u7hG!9X|3^w8zk@$Dfzpa@u5D3)gM5A63vrp0f?qUS~9fYMOMY#U?U__4d1yU@yyWTU&ICYG7Gg6J`NHi5RAx|L_LZiKR`P3G9+wZ#F-hdnkglteZ?KYZg zfJ6|xnMkbQhL7;;^2QP&&D<7wLLzA06i1_HWDH+1z{}HIkfA#Uh!Zu|5GpBXWyb(U zxJqo}su1M2D9aHaY9 zUY$y6`s~U4tMwTto^JR~fyS|yHh<2K`PPqnttS1-jbWJ^4ZMe4NqKl&N%NHWw3^M~ z#YN-`BW2;doJB9N(fh9oQr-yGSB68ymB#y`+oOW1PqZpKVNo_Qd3<|RU2>U=D<>aT zIU!%;JjVQHaMw}m9%MbbZ!(SgUE5m8Qvpm18r{V>wmHAq4+DbL&?|6uGmROV(do^; zEbQCw>~HJmh4PLe0b!=jqN;;Q(&;;Nlxx0Ol~rJ+vk zv>l}7`A!cK{$Zzs856T)!rlgn<`ZB^1!b|k+pk0+4N*aVx$1C%Cd1k&E&hLZZX zI_C3uEaeB=w)llz!o2!6W@0tiwju&Ad)A^Rh%_rc+0T#e`ZtoX>dSytLw?t3oW!p5 z@C9lNDuJxE-~~cG#Ex$G48w^|m>B@OkZ2AHwMsVt4rotu*@RR1~nN$2v&c`1MrWz#G@n}H8v~(xv8Pv$JRy_k?%wv zNWNd)vTyy%1Zs+CmIE^+`s2y{f+4u|fnE;~ct5oK@3vyNMG*BOiyGAxeKMXi} z)`#|uizFT*0eeloWZoFr(2MBeoy^IjL1~(xVq?ES4}s>EjrCNs&GJ?FXM~JFsS(uy zg^NFgy9UcgB53W>|HXPbeVB|K=?FD?v*H%nHo}1&F3=r*y;?%s`URS>gs$6FMj=Gi zL0?bYP?gt)p7f+wym2M5`2!2zF*)a)dqOhrm5_Ke;G#z$7mz^ZL=C#=tf}5x9>H*^ zS=i;I)H4k^FY;AVPpSpb`cL%;^^txb^2PWU!fs=RdSS7Pc0B2kMp@@?=%oAKultY2 zrypbCIS^tOQ;NF{sx0W^?=x*Y&ODp$>l%*@m5KA{6q|64(B5ClZs{pDup_@?ijD8h zEi~=_(f!*XiRQ)*@DTaC&QCt6N`t%_S#X^;dXpL2nK?SQT*m^&Q_o+U9O!2WS(}`s z0(N!Lj{oE?*|wAt?&tWG*mFHORU7ghU3}o~wze z`Sd`0osg)IJ@B=ge`4Vt;`@z?oTg`~!J|B2iQKCe0S2xa`35;7_%PL_r78tgYdmrC z@hoprTRjQ)p&p%DJ!PsyZ$L^LKt;Do1fmwiERKsEXABg#PlFd!J|` zUZ|d4=c@=ew^Q6+aTaWGJ1AIcvpdjT@kmS&YW*@UR*W-}0Eg{EX8JNfFOon~+kwak z%)$@~`&_Kou9*%Cwti7k9s5bQf2QOiIw1O?wZthS5g=BKQ1R2Tw#woNR!z>)q=DS@ zhecUoHV7hub4=MFaY!qe&%?^0hjO#VECel7AbJ!hArZ8?e@r0TI)Cdp{tDi2Aqn3T|Ns%Bu zzadz)%#*5j8zGk6EN%zb!m!gHD-dTP@UYlic6~LHMGrPD@T)qk0lN!JVGXK&9Wt8p z&jH=+k2l0_^ffFV6eQ|L0$qN+(SoTXkQqy2Cl&Z^56KD|2>$@N!ay+l3V0F9pXf;kt|r=cXGyyxL&d{`*fjmYls&p5OEQ>FF~M=+%IKVd>|EQ zY!#S2IOVU5?fplaZxR_`P`en?IAL1v3)8~LJKIZ|G5(@i<*&>Yk3*)Beq_r14^efD zqbgHd>(RbS)LrwggXPVj9)qkMq}1a&mMs6IhKp>zc^^wyQX-%ProoNPTo4dwJkNCO zK&%=o`nW2ekb5Q|rcw+UNyr4NjIC$p;B1g<@)OJNfHK$^Rkl z2hxOU_3~EIy5W8jFg1WrE9v({T9pzdi8F$p5IhFCv1NP4AR{j~xk!sZE{jVtzyxB!uJs((yV~6= z)JH*8L~a*B48~~CraG66&k9~NJdLXVj@nOtgpK1XOZ$k`=ZjPDxOPx$u0QwR4jZFhb)MIZi)xRRl)=e=t0qEf zK}1aN0KNYZ9<_5Yqr)j_NTnr*`4R&cSqL^nIvn7@)k&1GCvYI&1H&%A=q^3W8!_06 zNdmQb2_tRYZ3hlfyU<=8ST%U8WbpFqczvL^YUZ&K_1JzGa!jXraM`XyOoK#|`7ld) zrkmzN${H4P&7`?a4KiMi_UJO_1xKG;sM?7_V$};F8_m^DBJ%VQJ3Z^cJl@QxZiHOmG(AWl*c}_&AnC7)MXlW3Tdj-s5%2S9(c#wA^LpRyc>U0GBhN=?+dTMd393PSo?2oH3Sd&S&H4m2 zhykZhq*iIaQ(2?^+@51#k(zZTI_ige(Eh<&wZ!$()~B3 zmV~+R8dVhp$iXNqC~6_cQrDkpo8f|g9PhHaOCB0#p%QBq{widpAj$q{Bz7n|Gk$&0 zih&3ce^I|J4iyv*_GbU2nk2k8X6`S+LqH2-@3bf9- z3^~1uch>_||LU=T(n4&2%vklTjzH#`k2W~gdKEycuZ>Aojx8LMEF5`de$4wGuU1s^q#eYf@7 zQhd$R>R-7P(oxj)N*)y2`Xw%qPT+wQMp0Iv z>aiV;T;*qWASQqD@(z;9E%g3dv%|G7D{~+zV=}gg^#geyy2~_{lO>XWOtfyt9J)Qw zM1tmI3pi84LmAfko3uJ1vP+@a0t%KXOBl#h)=8f!AvTa0wy*~i?A8~!0w|DP(*=y~ z^Fg|r1=6QDa79Ycdy_yqDd;rOtfw;U!Lq!O=IURu@Xwjv?BceG+hg_<_n2Auei0bP zmu^H|@PNOgjfUzQ+(K5JVQR2=H$N+)A9B0eTSTv;*3<9i3soF7?vNMe1YVdaL?0`r zWO?5}6Titw9@fu|g1YB0cFI~z{+4v(f+A*D?mTT{!R^rQkJnW>@z#tinWr@C)g_Eb zBef+gl3!1CTsfG3^n-znbX3rgPZ{bJ8sY>dmw|FbsT?>C0Qq_)qjIr5hvfY=IA0vf zIOxGWwSY=g+gHEHShfmq1Aq%x%ab0}e zypKc1o;B~M4M#csB!)x&g4q%SH5%JmBO?Jl2B0M2xx2>w6)-X8JLo#< z$wzW-znk^kdUKmvbJD#{XL2n7?9S&pk!Axv`58?1CFQMBNJ9r~07AR&RrM0yq+0`y zd9ULJJmsXg0>L#SOpKW;SR5FL@J(q>S`usNXej$(b-^8NW11pBS&GQIG;HVoiN{Fa=O$a(_$quQGw zo(N;6YCcAw8SPW{a$0Xs48Z3okq$tDVD$9h^8V5N0a*TpdRJ`O&jIo_X3Gd}-_Fz3Ip=N5>pj4@Dl z6-%s~P-PNyZUf_w-Vz)Fi?gvA{ShnPMytgt2)IdIV$t0p!d7W<3d79e{N&l zGb!^=ZfZxR0SC*$@1?lx{m;d)R%&pKc>I%o}?={z7A3KeosUaQaDch_zOCfH; z=e~O%KmSkWq=CoG2Q6=1mwBQBEGJnWFD8`<5-AR6M0 z)vg@02wg01L(q7PsQXz-rCBk8lbSGJ#t1@W6Nrl5DlPV8=;GuW!7wFl4L%IXYBZh7 zTOo7d3LOXcBRWks5YwRYX;c2)ZnIM2tFC_;Ih*RkC9LJNnZn6GZKEkwnwXeh)%yCh zG;eM#WL9K-VC%=`7v{9AQ*_sypE!A2=6>@FQ_UgPUsLImjHG9ib@ zVwp{h_K%C*1wSA8QQw_CaE#Hzf$+nD)IWqm>lxnUM%D?~mdiTF`cS9`45T2?E-qvx z57Z3E^9*#)F9dfWBP{l)hT5qFnX%eW&k#xU$vgbZq?B`gk#;ZTeP)P=%=rGhu!2%g zw~cD7M}tb23*_7G8J~poB+`)g?2U({6aN_!d4S(M|MIKQ6P@N9%8-j1JsPlg0)gCE z_&mtR^=Q%27{{%T*^SeAh94(BhV4KFYBRc9iSBR+!AVFo$;#Xex>`DKb#l*JPtB&;ESy1GdTd8ZtrG^CO|J#=V#Nl? zAvfda85{X-nn`_EqNJR3Qg+Uxa{#(s&hS3>_e7ao&A@6+0u#+Z8zT=&WsZhwm&c#Ikri<7iBN(TcQ=l^(lvf`vLU` zroi37e zDMI)j#H zE@lF7@=rTi_9Um~AoZYYb~D>&$oq9l=mRs`2h6|uUB&iIKA52dU`Gt8o)wKF4HVr+ zJMOn&NYB!Jar*;JtK8^ch7($k{Mc)@yp9jrrBDx^kbt{vA1yPl_o*(nxn>=)8QYiG zuOH1AaXX-BH@fZr=vlWK0l3fhl?lKzY@dJs7r&uGiw;(e+ABDxhp4?G+n1eUarHB` z*ZFmzvm&?XzEbVAgTT%FE~)@DwFi|yyo6Ru&JIy~VVCVIQ+r{T?Hkd_fI?;MW&Y5D z^07&o)kt{@tuO5I@=sTC9djB#r$pOcAM$e>X@+{`YS3MqNZplfFBPkItwDJ{SZA;p zp+%hFqA1AwJWOBr$j7a(cazdq!1IMwJH8!Wz)sI@`68825R36hj>LSlGaM6)91lU0 za)h9Sm-fBgfh1O;@f;~gXQ~E$r=(2>mRpMA^0AZ8aq?JUS-1Xe^p#*wxdn;k*CN9hZHvIC7K9TiF_5M~qsIb$7 z9P@w}n?~jfgNP-RYEv^kMnrFq#=ys$1{ENJNk{pCm?*%8XYe0YqB5a$~7 z0iGKf;j`Dv&+P9zxFTerKh1DhsRCoO9?5iFAHglt)y~rS?{n{pnC_XbQFeUD_?gm# zv1??XhT$ozti4T7atEG|GG>{jshH3XFtf%5uF0Dso?NV9*i*SzFym9~{sqC2r)Xt) zs$|>3fu`>gH|;ikKSV_bB2V?~whkx8p@KFh#>feZmU*SRk59SpPT-D>#wknzp^0Mxy+lsF^ug#uuDJ!W+&sG3Lb(iKU{n@rojiy zS_&@VpNVtDn!p9py`z97cJZ7!t|$h4@HE0ARK@HPSocA-KQ%HpH^U|Rf^Jk!ve&M^ za1{-EvJw_A(Z5(#nhTkHjZUSzH$)j96b+>51H*hc!@4UoOno8*4tt^+Gh7ZB$lKE! zUFxZ#(T02xbzKeHt~T&;yGYijnVD)H3|0cfv&rXfk}ZwCuF^zERg!aF=rXX-uX~|g zZr!Iit7GA{EmSD(JUoJaC0VO{g4Ax^R)0*40?b@EP)f^`1gv}Oz&;ADGpJxbN??+{ zN~#6HO5gBv7^Ruy$bJ{ge>pkXOr_DQd%5 z()p%bkQolhx#VG1Fds)AB3F(KKNv?6bO&M)>`uzZLvE~GY7H8IyE_{8ZH+>%cIu`J zpVRjUxhvxCG8!0 zAMrIweu8(ZAUbz#-ZI48by5br-xl_B`o%oxc?;4& z&C|lbV-P>#4rErEjFNQQX9CM> zJ6vfnEABz#olvFVwgSs2=!lc5L|*TJ?@cB~GS>z_o-H^@Q=Nh*a zpkJ4!rrEB-{=+cHlGTnWFL4}Jr+LnLWoo7)M7d={=NhU{fE{yo<-IyPrnc!2L#3)F z$!1wPm80ruWdMt@k&|2#6p`LL@O=y0;wenyie4w{CCQ~ z&blHPaV`7o1T*!V+lR|L^+7dgaE;^SyN~coiSR&f6XfmU6JeVZ;g}Omte8&!DKCMj zf9NUQst%ROqIWS)(P748bY)Q!+H_PyYtZD`bs2+3rOW}EAq2i(t!ak1=E;=;&|4!C-?{*={;b_?|2p z{jovsBaN~(x4ZN9^oXx+wro!MKF#*b0{1N*+QV0(SBP^feV^N*eaqhTe_z$2ByPX2 zYVjwwrJAHf(u8WS80v3`p^m+=@x8nHk<;f^)N8@Wquv(leYN+qP}nwr$(CZ6}rYS5>bX)jQwrobKLh%r)k&L#sWR^W@%AGzdDC#l*P> zi)Xa-1`M%h-QkE>KI?omCOoQMyg!B0>>o2>sd3%;SE3Z*eUcPx{P04cSc&QQL`2Uf z4{^+=CyCD#+?_%lETY*Z?U*Q*_i8A~9&Ax}?uen8*}|>1O_1VWTYN{a6p6R8u&lFFDh zR`AAd^paFE2@262`jQgqYjWVF=aQ$CeDs~1bz%eS!JW&T2Wip0$$A|^AhEk$`g6dE zLfv}L@?Dbww=ZAKxHL+D5c80{-9#>AAg$g>M-D}}fyfTrY4I%5SEm-b$X;Z~!C6vl z56AW*bi*TmX3?(b)xsbEs5a2s;LUR8W?1d*&>V&G4t%9o>MCs^AhT)=(XP;^JJ*Bu zVk&*&;FeKJUbTL(8oE8z3({&YxyoPe-r!OLH>5=fVXT>@TL7m^7n!-84^axE4Yu=2 zbAt6krYf`9$@_i)w!JpcqRrkuFG2fpD2^Lfs%feMe;ik1`ZC#f(`^-!rGx5_56i^I|l6#K!`r_$kt zwT4b>EGdi55`LL$X$9e4)te4YjGPFgoHg>ZP zc5_e50JHA)02W?s&Am=eO_toR=SnpoV-O{!e28q-@Ar3LUt8GCK3!ivOg0=V{|}or z)Bmr{nvRi<0g{^=(!tT*NY4t=HS@}AtooAE;qaSNs0!wm7f470K7u}9!%yJP~Fv@`-hE0$qV z>xcEzjU!J$eU_veH97?fcI$(&YW7~G`*X9|EvM!u?uV6L_SbZMB_8|M_uQ4S3{_%` z*xo#K8v2s;<>dgDwf=pw@#FoWQ}Xk((}G|0QkQj7#|3@Wbh17W5(7&k4vISnok~Br*NrrZn}8fz$$BJ*!Ea;}n-!dB)CvM>kxQXY84d z>%6ji%l6=K)AneN`uaE{%whlRmWKT`_n5%Te$&@T$$bG`Rxy!%6{I85{^a3?`_b>L&L|va%OH}`i8>2Kr(6uqR%{-uz_mGDq$GE-m@iGBxCE_nAKaIS5x?^k8 zOx!qL{Uo|%8d=Ck$ZVSx8U(C)-9uJWPidsQi>XCTZW*1$gI(>EwCZ0}B2)6*G`00w zS#vv9x7<%j9ek$NiyXJa;f&r`J&%4G8a^${exEjM*Lt|hE8 zdpWt>5r6XdzIgY)1bh~#ubnnj2J5(ur>uN;tUzq|307VX;0e#q~T(ERe6&= z=#BiCn_(=#+q)vb?*zP8ZO7ZjsEh#4LS1+~DC$rSQSvlw1$ zY*MIMKW8=;qi;+I9VA1Vb80T6IAMy)BvMLF^M_+>e!6{Bu7NKW1Ul-QnT=Y^^;qy$ zogn*BOlpxLQq>M8i)zQxa8s^g`;J3^19~Dc^}o{>U?;1!-M!2^Fp9Ucdigk{ktZ*y zjNJ?*v?C7(%v3)R4a#$??C9^em+2ZBrGPC(Q$k_poe%k(Xackp&?t-9dO;|K)-z!y zv{ti^lfw2#T)eV{G&?7Xe}?Ow)yb!!B(Y?^>(q3oC05MjxZ2tp`eJZ;JhLdQy-5!) z_TL*kU#YdTYdP9}S0cA?=C`_|J&C7UMhlG-{(B45NrEQ>q7Yi)5N?ZsSafR5ZI#L$p;HP-|F+4TKc+Oj>mmkJx7 z7`G1UkoBbcu1hl;dm}Rq`+zif5PV26_jAE0jH?;Cr{E^apYyZIPPz7jwy zC~!v8dktP3r2lDUwl% zF>rM)T6u1$EqCWJDa{TwbjFmRtYNkOH+`=DY8g!zjrdLd3)YtZW#Bnm`21jz7TuVq z+Q}239dZ2JqnP?bC=PXI05A&UZJO9RbE|?xpGKPx0)!|ue>3cW^c1F$!m%ksGecPk zANu}n&zIYm~#F)Lt5>>LH%j13|z+-P3z;A6`&Q( zs=1i+Z8VY{EL=-13?Z`J8jg-3>J;v2^&)|DcQa8ptJrZSa z@PAV>MD5zoXpnGmj|blJO@-@#f4Ymcz$9&r<%Kxy=!)KHGvd&6E`P{o8X0jZAFm#C z@0<*&yDI4ox!UjM_nX~6R2r&y<8IkHxg!9?@q4 z#)mwqoAd^g!!(WrpbOBl=>#6nI2A=9!!{htAQL5P&8woB-Jx5}=cO*Xupn|7VD*$CaYq^OY*6Lwlso?};b8 zI!DTo*K&gwt|~fS|G3K?`m+oA-xJ~)TT>M_A;601#4fKGB=tCO#i21BUEze4&%Ks}QvAX*)=ra36=|jz_`VnaV{$@n?p(BALoDdbJOtQOpQSliA@&RjXe&&$#O-T zz0}o7YFmdPnvW;i14pQ9n9ngYJ%4 zN`G?%Stx&q^b-GNI|O{%I4F}*&iL-yJ1Ym5)aEvZry%TRE3u7DmHWxI3P)L@YQ*h8 z#bo@#j|S`5`cW>)e~aKo>e?Mu02y*+azSIZw38I5+@T5BX$o83hR z2g@W=AG^g;=OsA^i9g~Qj%Yh43tA=L^nj>ThXHROdKBW|l?`wYOF-WG_2G7Zn-_f< z@I57a|71S#2BJ>NGHuw;_UYC_N0KO~4Gxk~>Eb>1Fq^#lkZglou6qI}Xq-TVdV|L)@mFa5N{n-}B=0Gx%^J)QV zu-4T!k3mvmDc4UfSxl*}Q5(8sT;_jj7LbgWcK_l6P|i^>D9f8Vnb!GdAZIcH9md%y zNo3dcs&g-pAW5`ujUjo>Ry$L+NAkiyZV}t5ey{z~ephJgI06MLLA5kJw8EFlpNffN zPLx3$cHt0*x916dbkLfEAqG>=K9Z8qsvZ3;bo1V>m`vRtRJRs5`CUwdb=Qs9W`oo3 zF3r>pb)QM=m1F{!=7AxO=uH?jJwAS&B}M^P;IbKJ4<_Ib1>w@`3T8;p3Njzp98Lpj z6J_Yt&T0W08NH2DR40Gt2_2wJn9cZcvmAN?bL}Q?|1*+$SgU{y?;QFtNNtkNu4;1W z+#^IRV$6d0Dp%2EJ%*X1Cs8}(QcUQP4^0P-+yOZj&Z zc-)B*x(!D1+2GJQ62Q)$g9a-{!1^LcpkYI*!FLUKG;~E3$uV3=X}{pIdA+S=)r#Nf z#<(SAW2yAgm-CtG(pluXBVwH7BQ;GTc`Mq&CZTZW2nd)S=W@P3!BUlenxq3JEl@Ay zymi1+an*QH*ztDQ9o1sc53M z@I~S70ddx8@C0S@`j~mRHa~zM^Jqa{F=5vno)ob{~t^f@d*Svt-;53&heWgvL>a%_r};2dl8JgCvH{d9>?aGw966A{*`7j zBZM;Yfkkz9DJ^#wE}?tZ1F{};S<%^WBXv3dKP%S0u^qvfXT2sijD639eb)3ai%cQ6 ztC~x`2$Vr69{#dnP3C+f1mg{~<07*POM^CA3%>DKbiG1jaC|GaBZ<*H3`1s0FTITM zSh_n6lL>67W{>8NK6r<^z~vSt;~HMN`sOk}s1e}VO+5{xgYkapMhr}2nn5#B))5eI z&hoUXMF2sFc&vmPS9Z|?&RiOw=!HT{@3A?45nh3PP{B_zaRQsRKf}hTG60OTet*aI zNbERLt)mC1Pvo|A?*f3kkAYc7C@$u0Huggzv{s^0UY`hwA)YcCu)P%&#)t%(IRB9H zn^@yiyy9`L(`$3aBxCry!UTuMM9j)(C)cd%1%{5Y15?e50Hq|42Qid#q=!C5Tg|i6C4`E{`GizxV~q8L zvKgq4r=V3CYuq)&37%s)lt2(xiH=Mxc3cq6@jL!|z5fzIOGVCP zt@n?Cdz;gkLeNV5|O!zwxGOp2h15#R^!aCSFqQS_67Ht!+CNa+ooWsp@;P z%qxsLqh*sQ4mXP26x)f%qer_wGw)n4`7gPkwvlntbNYiG^+{~6lfIP2;!oi52#u?o zPGhq$rGvr*%|6}|%@y@D$uP^ukB$f->4D0cSjXZg@+<$7y57ho^tmYFyeHk`Ea(XY z#zvG)$VOk?DjLX#BxStiXXh}Dcgxj-@1otS-ZTwCY3)uNeFum)z>PAPkO0e?6!`Ph zw4w|1uoN~KtS>xTi5lY`^z2Sad%Ny|BJ{?SHz`2(rh9oiZ`OYUB2LU zNFZD0yinR)I4v2ZLz95&(H0|WylCvo`B&^Hg!txsbBBEb>xIQXj$d>f!ETIdz5Sy% zA9z@_ny#~|3Jt)v)cD!eJB=7LEJ&xXv!Fi{v~Lhjto_6#3$*`x2@DkFRdi%DYIxSO zeaBTyfUDyp1?-0Bh>R>rscac2_-NR(K6Hz|tRpl!tl%6hnTOo9Mv6^_;Ltl+s;r^# zsEN&7sXMmIP&UJ>YdryJNk_iw2^gB$8BTiS&Y_UcVWDcRnZ}^o4gG;8z>bMcQXpO}>?0sDfiPiFl|rsD47pWkB)){5#H>7OnVGC>~d?)}=4z z?m9{{d`uPi;d}o*n|_QCBWZgJSk(;>OF?U7bE+N6Jl$cY@w$q{s@Y}sq2AKIa>dvq zXHy_cS=7xW+#Cn=%3DEDrX(dUpGnUo4Rd4WGo)}5Mt8YoqdcB4wT+_}q;mI1V0Z@9 zSkn{`tXc+OlCcHY%zRuoHz*Z|?UW^U^L^tqBz(Sa0gkKEAB({SELC67N`J+OT2jv} z4CLM*{dT^K6pTBe-EzT$Ba`y+I|St?bvNQK+>p2W7iz`npW+r4w=~sAw~*nuLAdgf zfLL1kLCL;yoc6F1lM~?KqMe#51_jv4>SK3$!_@rDWzleeKIv=L>dZ^Bv?&gH>?vgt zU?oGXj*7u2(e-NzyDG&h#5{H8a^J&Dz5&hm$9`WW-o;NO9a%rOIBkr2gp~&KQ=>V_ z(M`tZn1Pq%R%4?K9CAA;3hzNsyqrVRXSeh@@S_gb^oHXi`ovnQ3Z9lY7S>!H5p!%-=uxs~Tq)H~70`|{;y zT4(Q>t?47a7~+sirL}>slL2O1)CQPOU2g5tcR70R3_y>>fqddPL) z&Ld`|MF>|@E8Mk@&35VO6{fC_!b(oSyUO4De+vi2Oo5(@GETmpO8)lV%tFKcd6>Hd z3+{Jf{r!2GI}aH}O*|_qbHjZjz^OvR{q7Ry+6cQP14Ye^dCtY}!5|E+np-6!>clvO zY>htQco89*H=N1QpC2niiuHdcFNr1}(UqM?*U{S(r#I8%ggEclm7Fs+Wm-a&2_am5 z+{fzKF&==YWvA3q=!$Mn>k(kqspGlk+Si+3TO3-$+Nd(1 zf{MgQ0xT~n*=94OiZB-%>pr4yk7WlNoSiZz4}{3FPlO{UnKDH^d+h(fl6gyqFK)!Tt|1vcp?Tj{YoIcgrD&53tB{i52~e%nguA$EHUAAgG#wyq6QOkcuR&~y`_&cra|VwoM4Z*pm^*# zR42{sucT`vC`Ay0_e1*5ca524_>RS%BPBN0V({Jj`3_tP6g2h=5#W+}kGsbcL+<)T zQ25N+lzpkK#_)w}OYb%D{1Nt`R{Cdi&5<#Xh`}*mK#8=u_`-gswcMka5jDYMxxj&C z@en3jHy+6jE+h7D) z)gSB`q|0SPB$^<(HO%Ixo)we~$Bf_Ess2H>S{4Xs z9XKl5ee%$pFGF-8dKcV4iU*_YSw@JaMky;;ryGbUk`<@*6QJ|xI2DG|AepaefG z-+@SJT;Q?#4O)ZoO_>Xa7r(qkB5yGj%JmXAe&+e!=U9gH6YaOdm#&6t;Ur7`w81x< zZ{(Ja1C9hYelF(h%6nkF-qawNGB>`ZKk&b|z*yMstCb{dUIYe4ZXX%sHXr&oKUoJv8mq8GqnM0W=p5RpHBwJnR|Cyjteg0eXvRhq zDN4j?0`_^u3H|1L=QW~3S79{)UVHNr`ZJm{wh3^z5xsf8-|?PuH>4E*Ae z7InfCWR9U!l>=vOC{QmnPn?~OI|3H&?j|W*hpdU;yfF>7&0>{g*JUqU&V#y1ANrQm z16^e#haA##AYsX7>o(C%eXvsYXKZL~8H6GDzaakZCFY9EgwQ-@VDgw=3IW*wfq>B; z)4ac8izNHl9p)dmua%h=yXRcxOtW7(>G zK3(ahAwO;$U!9_bQ-|(Qnpz6=XAqXA!jrpZ~-@0VW7qdFc=Vc&)B^^}oPKSBLgF z;)p;+tR2m}YIOHiL;tW|WTTQm9H9Z#_iNu!?7vPgfP+RR~n=V?<%M<3CRHQH)d|D?t;b66)YKBc`W#gvq%U{dl*AdosYe40)AMGM!Yc6&k6D;FX>1CW=n{g63ihjAH|g<3RFyPsb62t8X%&U>seDMO4XK2YHKA(BP~)e`!AB&fl-F@yFuE z_@9$T&y?X3d^nCNr&^SL`}vdRxHxvjaGj2oJOOdeB-rfHSrqJxBr&3Qd`4KYd!;{% z&HpVGM0I^KY*$sbpvNqjt$e&(B}^VWiqT;D5H!dPt919xSb%gX1~4(F#8C9N?Q%8Y z`qrlYYdVP=pI*)b3U6hah=f8WK<%tU9fT~qd$gT$$W}8`*={qB3(M#!E(ehgLwY?b z0uak6cPGnG2zg?nn8VlbDJ0!wM|y9_7ZX`=lolqoPZ__QH$Ma4q~+h!O3W z(SAKqT#nzAcPuAXl3q9(PsHjLme}Nc0`D}Z6$;VBhYZC)Tt)gbheWhFEXdu;pC`EE zy!17FH}Yqq7(RJzRqinm&@Y+hU|N7k{rt3fJhxB>dk=GL?C+ssnnze@3HRg$&%0(Ty6sl5hB^`CEj}GC=_4{Jed3s!L6pAvOz(&1xoEycov?q z0Y|kBtVkHzO}A_ogMSO}BS>B;o2o}*CYj}D$}-LFwvS$?79ipf6;r`WcC<~N?Q%zr zr#t1z$t1Rb$nL*4yG(jj4rA9d2}0KpV1}>GkosWJIWVCCWy!L%(GUVJ<&n#c2XpjT zruwlLTyi+?#=~~uH8F$HrrUS{zrptYc{kbBK>i|a#Dh{ zF_Py3kj2kQ2!2_##zHmHQ^d2tI+>K16{nn|8M-o`z8nLvlUyDV%Y=F!(y!K|8MlCC z>PFiKnwJyN;W2BUX+&5);?1Zu1OR zUQTpF{(U&qbJ1UNe6ocuCx5ZcihFhNq+o=6LHk6rnSuCF3wI{IIb^v|SwEhP+Cj0r zImF7yJ)bzgxpLdSVt%zz?Ocg{W4$@D)I6?SwPE@M@{l%oY~%nnKWlupiSt+$T1MHm zZ?<4dYxSh&-z~-*uxh{OWiWLcTVB1Fo(zyCn?A-;hiT5dmQtEgp-~5IwhV`aFV1^s>d&*AZaY(wAkLO->J|d{44mId0d1kGW-)-eYB)`fgMwl>f z`0{|GZV+{b2474}1Wu^|Orj}{!+QB`Dm!~KO)vp@k}}fZ0*5)etwJ%uiMGdsXR}60 zjTuiJX{v4tRra%mFh%Xu24-NqNgEwG=0HKZOsamw=}V%T zlSqk@C+<7b$*~iHBGc;R4wEVb@_T3)s=6+ZWdF5~6Nuy5=t)46RbQU+)HT_`4D%?T2Mcb~&M3E#o5yt}21uW!@$`7SSbO7yeY^3X? zhdaxZUMy~$$foEo4qJ2ConW1hJID9iKsim_oS>pDX*m@q$u@w}^XhBFI`O9d-J{n~aFIk_ zR9|;Py-NL43B~bIPwUi8WQ*x=(|bF$R%BWE=Q!-NBfWu_E`!YX?fA*A@PshtG)5r+>i9Ik1_il*;0VaOqU{G+e$_FHZWUvP!<9J z^BbH`^H2aXUtY@u+J;)+rS72~YcP6+tS5UNBwx!k?T#nOCx!mBLU{xjg+KpJ=G-El z5P0-yfIc0F&FNljpP^lM35o&2P}Cc;;aJ-MHpZ1*2wOo2jpb8nZ;#QBF|H5R!_yk7?e zJ@-s2&&cXU+nbT<_$~FhmP)VizAIjHrH>yW=KCR<;zyXZHH#+w{LYkZCAq7gU zf0|BAu?*vtFbD^@nCS@#be(c2$o}ty>2G~pSgVz(66-$33LdJC?^ky5Nm+B~ zb%5qZIi|#t4#-uiqo#yv0Oax3tk$8pYc{UfEKDh}F^5`)ShzL02U4;r%$wcsv=NVQ zc7eMIn2$$@Nn0*ngT^32e-&wJj7;B0jy=K>Im5entu*zAEE`7xn_-Xl7+`u<4{f)r z`B|@@H=*Dwj=h>{HQhaLlstY|C+!O~f0RBJ-QFQ<(9}E@O3#lvXV9`WP3lmNC?v*X z@6h2aW^4bWJnRH03+-totMa)E-MPQh;#F#i`7vU)*cB`292ZoR`uOiELbfePlU^xg zJRHapdWkR;W%=Ycdqn$~!FIP_skHcb_5WexgN%pm6Be=+nv=eFI#%jdiI}5*4<1MB z#q+2vQh6uiw@rcw$8MBy^}i5HtE|pPzBsx29xHp!3UA0pf6L<@5J><{g8Y)m+30sk@+M58QaUS-^&+mRsp&x; z_LKcm(;6P;??%ItHKxUgJ#VrQRndX;{_xWkCE0yukXM!UL76{&*^G;6t2yqC6t_r4RNLQX}k$n z9Ru5tuWvNGDF7yz`^)eXWy{0pl}K01=yhmzR#38|mSh>TF4-Q?c=WE7hRqM?^U@cr zkT6L51!hl-(UQeEkaXLy@1Pl0c4c45Hsln{c`Z(>oc3k3snxjZ_9+j|xh6g^Rkqp( zqU0L~-l>m%nQx59@C{f|2Tbe&MWVUt7J1O*rj^TCOyF$A?eAAEbBpLVz562Q;UfP{ zsu=U$a5Fsvhy)GEznZ;6v$f6n60f%K^W`*uyTC4xdIBUFTcM1 z+=+AX#Oa+-KQdZTzjXr$uAPnKoW#g{kd*o|7X3Zx!1o8CV-j9kRM0_EQyJBKz*ic*o7|}vAE{`65l~a zz^vblXHX>8#Q)vn_)c9(zOjDZIG%bTCjw7##D+2m((JUm!{S(7qtFhGMy zlvBmvppUF<+}cvulzLw#ps+4b}E4~D>$@acK#N7utsw6YO%zJuY zeIJNRTodsIyx%9c@p1f-|H1l3RnC_FdEA|D3QD#xu$rhI7%Jr|394qwbz@oRRzJwc zXubv19!ou)tq>Kyb@mvDixs!)r7_q7^)k0+ke3IE|gdhcN$sO=UGCG_3gm_QUs=|twKJnG!LKy>5rSpgWn0KXY* z$uwRstY+gw6-QalT2J+GbL(`aZrIONqOMW8duswoUV%!-fqDR`{!^rhz&k)#7`mk3 z_4o&1`;G*D!7?B1vDq$07r)JFg>^=!Sj08FC@7Y?1+BLTSB{h-Uw@^c*YpaSe~~gb zBca+i_wc)1c}a|0sS~&0WsQ5lq&|pT>mf@BW}y#KkT7N>)pjUHO+BAwtbdFU@)YZ6 zFz4tY8myon=9SPRSCbXV9)IEVV=smuiTw^IAUK<5z+|vc`LOJ0>T6ZQQ8dT~*T&aw zXqzhk#m2t|m0UEnjm6#|13=U3+NydxBfXtGOWXhGw4)`F0Lkrv+>~VzD4uxiA-MC< z0w2au_$g{_eD$+qiP+j_d`NIKZ)u8Ld`=!tep zs&xde<2Ms&FPpZSr_Tb)4htLCKO>7H>5mNaO0}y;XlAWOgIU`%4 z-94Uh&23np?_o=m|EPoOT>6y(Nk5HL(Dw@$f9RF9cQbv6?J7PYE>tJDa^KtA9Xte# zsQqAz{#LCN2Z``EdRi!wNmA$g+3S0C1Pdj&FDvtEJ@5xrLzqtdijH35x@M{@ z4n6Ib*B|y)2b{ppaf;MUmA%pJ15ymV_<S9D6qLeHE9ujfPdI6v162LJ7;YdoN-l6yW3u?|Jp(h(bw3b7|m|ef8e7W zKnl*w`oMIg-N9ZEI9JXI4noi%`y?ge+Ss;1v#*KxT#c(W_{DlH1L+CUs9d4nlQX%J z*Dm^HBAbr@;%`psB$$X+E8@!9`ynBl%owNk_paF^5v9Aya%HkCqA3hi#m5K(}!nkMo*fnjNRZ&m0j}A~pkkc|ETuCxnRMik~IUFvdAs zYpR`Utzz9M0I8`XzB`GFD}{-uJ+3^4Hns&ZxvU+KCaVi&VT0{JO59ZYd=7H-?2xQg zBpQ|fo&zq#PxtbFsWkt8RN6K(@Rv#t$Vk+XS8q+z`A$^TA;B}~u{BH6PW_?evOY1x zSdmZ!&^zW}`)wt;iU!Ls z{UodNkxdDTi*#n2XCyA5K1*}n%&+QzqZHMRGz3=y%MWdwdg@mcyS#&T;G!vwuTj!X z1saQoJp@2DFa?<|RB3hTNIpmW8bxbcLK8=DR%4_*Q;=SgZ;LkP(p9ydB#l_5N@$N5 zO=T_j)_qIxe_2lyAZ5QcSxaOuQq|5VP(FkjlK^ch8?WFJllvmR+ngfYa?z^N^Jkv9 zbahJqnMn0Pf4G(88UGJS=U7bIp#KM^P0${m9-6#k=yYh3-(Aoi5-u)tbpPYhKk^1R z&@VJh$9u7ZHO$8f6z{^Wwiz0qFO>qe?tY5qGS~1l=!tbDpa04XKMw7hQB6AJ-LR;`@`x z=Of$PK$dUq#mYbXDg)yLy2tU9c!xS?tM=_2DN!A}&0}iDFC@-CYoM zk05L%ovc{G|Gp@Ys;hfa*kFv2@XNH99X8ZB*0=u2m}pBx-llnR@4w^Gx=Pm;c_2+KDVI;pv#PC(+GF87NWCnP{5^0!O2ox^e9%{&B zqDjgNv{HL(i)!rq^Hp9;+y(-=#O|b_CIqiM#}Ogj&_Dz|G4qs*}qU7-4Xy*l8 z9oj7IDZ+;4ZZ740+Q{1?vho{PD96$dkaS`q?z8hTu92 z)lOscRd(9qMdAd4u!d=N{BrN(E#HI_lw!8+Tj8b5;zPHL@0mNds`m>?!Djkrz&Bl} zU|pmvYHF4&O6d#AqG~z%GMf*FZbbmgS7m-UUL9&QzbIqA9FMRU_jeD=0EBnZW19#7 zaP_ZEejYp}ygK2jf+uhQ!=G^^9g*v4Xkh_b=j}!aqIHCD5!)zTABKybUCzHkpTD$O zE9X}|bMs}Z{u(mT{W^LVOqm(N7;$3qA8MvTsNN%uJjc^zKH-Hedx2KFZbWH90Y(zt z&pRA|kBRvYG(QG0!rSj|6j9|imXq_QG#^&tq8)RZ1m_Ck^)nGNzN!X+3g!02;bX?S z_5l-rQ@i*vtxMYC^FDV%^NJ}0`e|->?yb`yiNicM=(~Uer{79w$U@xwKH9B+Bc{I? z(&_>%?q1(`f9?9HGLN-%%sYN)F`^eQD z#fh$&An^yv{ZaYe?ee=a3qUz9=@=!}GO;&78YN|Q zh{QMHMYl;Fu-Li}i)n)~Qea1*cl8`u=E}6!-f_}EsaW3Xt5a+ONV}fuOMv_4LBSoc zwq|a@k-TODD=|Ep2osI{?E zE*SvPr$zH*_4PAOr`~F0mwgSNAM!yLL1*#g>Dx!i$LL7_3cbG4>xumc`d-{SPBABQTO{7@gE2Mho4`!u!fP zhhgdNE5dUtytXFUh%M7G^cCzJBQbuIX&|@*)<~+Jb&NHximNR@*LD8Z2%^;D!9$~c zE#fJm$`0j~$ z4^H7@rr=V0t-8P!+mFCD!ts4okozfhh|QTQdpiUuJ#%wSgdr^MvT2rN%@ zNwAU=&_5s&+!Qev!I##p2X~9!Rv(aF>*bP!d>rmpBK(hBH-mn`x#g*rk*8W1Rbjll5?`X{IQv>88{Y z-^r#UkJPs2VP@w^rna7J3%VWLb4c$6&4hLElm3$w6ZD(s(k@q0+3VD3{A1z-TVp)V z&K=8S3AaOr(?SMHj-1EV__5epGC5IGTqtAHrC3S$HSV^L4DbqJr(+BfaG1jB-d>9< zIJ9CFHJkSR#liFzM(atXv`Ifh%na?If&#q(W3BMht2lMZvs{MC#<8=93?Pz|)Mzxx zWiwEdofwFNys_mMjqW@gm4kJZU}Rh+N7<-wjhQQ^)RCJ|5D;ObGDH3uEb}%;E&e4F z{)e5Yq2;GaI?>zKKlK-kj4z5bWZBz8ymDSQ9e4G9o}E)>$w^FA z%9D4FUJhsF&Yh=-(`p|Nu6@78sKyn??}>e#}k+2ODk+SBIWil zJY|FqKpxRBWSSnobcRXod&{D}*hM=wApkJ@O+7p_y=@t*U1@lMqHe~(-ulk!n=%Q3 z&r-8KEcIseb4`0o=g}xNBul9CZh8 zy-1DF|7c!<(AXfx9v?{7&_(SQ;3T?MWQ>97{J&%iL)}*8$f0(5i4aM6_0j`$hsr{n zmIj_kDc4^u0;miAfZTdcK`H;BN|!abV=*+5ClXxjFHzigTv2hC8|Z>ii+_s#@CoA#oM6AkPC4^8`c@7y8hy76xpw z3C@B0*S`S7N|&OV_`+OGf(jYck}kmqS`<@A(lf{ZJ7>MTt);&DMr9bEA4| zh%MT{*-MHK?m83Goxp&>Wbx(Mi?r}{(anM8H`rU=CZY$J%Zk{ct83$~2bD3!U!M8E zKsyIkn|%P+fw;gn%=8W?-Z!Iqp*PQ(KOZNjkqib!9Fju?Ne>=F%8E%!LVL1 zo6)z14~Q@AcV6kk`Ly;zB(}aB!*BQ%am)y_S$*CnEV&8xJL?j=4{;oK(-u2TAQ^x3AzP%9sCYs}N17i~tJ?P?eD2Za00INA*u0?UJ{8oNzXc7yp z#ypQGt-mjFO7z5-^w*VZ0tue_N(m?K>Y(wZ_FpXOVwN8AUh2xOQ|hHnL>3T~i%AW7eAJ2Io~3aDsp zPbTeVJ}KJ8^t_!u&&gsv+KA|hy3&4kH9NO@yG)6iCCt}8i|Q^>l*?^IQf1r=4!++k zw=gN*+0e2gA-JY(stgtyN2!q2x!4eDHV;Y0?d}n=Y8FP(Eb7$nN~tPiTXAH*;F%fSQ6kZg+9`Up2)SDFvu$E2zk<_Dt~ZUf&hwYh#e9j+Qoqaa z5?^NHa4xp+`jd5vWaxuX_ow}m;jj?zpjj==%bOQMU5u1mqQwC`Mx=zoQ`UG_k;Tr> zN8h%kkn)P}OY;bOUuO2sGexlD?vUZcQ!SQtd@U*@^s4hwRR&sM$1`7a;KLY6J{)(! zY}HlpNoI1mr}})ELh1f0fuvD4|1}Bc%3GR+j`7qSQG#}%Zs;r8cUpQn?4jc`q``!1 z-3T8zF<3nvyTdbj=xCK_PNcyGW(pY=(lDRh;BAlsw0&tXy)jKQJuM*}y_xC;gPXmoh%2^S9lTHVM6chdV8!;SU5BgpXnp6=tOx$?^_03tDV3`ZzR$V zyqqMmn-w_?8~#)-Ybaf>m%w9mN5JCS(PeX@OU$N$h)Kv2Z4=3d@EPijq|i! zd-SW&ljXr{BmtykffrDVDDVhJTy?RC@keu}}L6{aEL*HGctp zN=}L=T1b6%6yDqhC(Sbbr}KmrJ9`p#g&m4mQ8H0yniDfWqwac-Pme~g}+u1}|M*J24SgkxLx<=G0l^d2%9c8|SJMV5~s7uA{GWan zQE?MTjwkdot?3@=n3cl@t7UxIyW{ht6i7b~ za8C`=7XffDFCT9|^ZL?SPWqseP~FawPBOGZT(iS^rd3 zPgUNnJ6YA(i32OU9j`+C@Q`Y@F1}i`Ohw}tBn8?xsLbzZgEK6NQQRqL8Y}CGr%4C2h;RgaC5nmY z0FUN5?~uhg;S=&xw?nS0m^8>tJwU8>p`m`YxtB(&iLI<9Z;Y@a0b zk0~@69Zjz?mcn_(H^_`UPY#LRAWLmCKfEQ+r7e#=WPnpl-&g1w;wgR`{}9JFY|qW@ z=zjZ9Dawvv`yh_ufwPFd9NBn5iF^$C-@llUwu}1O1{O0E&@lE~2Jxk{Bz>!GSHf1j9>DRNipuwy6uQXS z`ED7M=J#1|F~NqMEoSQ;Z|J+JxPKak1~rH9+ z0XtoWKo^F3s#YE*(H755aoL8-6CFN4z*8B*4Z{M{~@VrjRJ()AM~Oy!=Ov z>BGao>rRyGdYCsKWjq4-L=0qEvHd;c`aZ_-U5jRWy_FokGUuO5P7Yn8o^&l%&m;)D z6}T=l;>BQ6xxn#%6tVC-THmO1uuGy*Hj8G=u2wR?5hp9^r4$)gAt%vof3teGbr8vK zuDyHw5Z2a_=4=*qFYsC`%G&^Jf}4+MYNRBbLTVzKmVL*xSzL=OBJ%o^d7@-6_b1ar zJ4HyEqc2NS%p4Gf1TkhVBsobE-x~t8$8;+;A1&l~x%NUmiMOOU;?2`g%-$Nk6je*R zim%trR4U@(7ItHaX$!7z$kUsHb6u{_5K(x9;4U3!f{scF?&}SVKyWUBC;d4|8p3xd zW{}m*+uprCFmq3s;CRI~LLm#St?Su71=LdVvFOyK;phrv6Y^ffk2U#x)Iz5@T%Z`;G~CPK%gL2&RIVU4KS$`K_-=%s;)D;E2ACC^7@9U2;Or!SjŠ|&;L(#ZNTzuBfr+~%ntC*xF zZZGY=zCwOrTOah5C82{~G%Kona9U$BS2O6{PTT7LGDX!p3coj2OmvZlb)R5+N?iBVw z&|vY_A_+d)N9zO1dlIAl*|uJ7BH8};M4(_L59qSn)5x-scctnpIVW);F3~zQ^%6K? zd@s9oD!!>Rz|`#7uoUe(;6K6hnQLb{p(>XNc_j;f>X+Fc_2M6wwMNvn|xEL+_SL=5Ms=ZCpN|fH0BaM4ZLmvFTAT+ zlxAkxsf=$5jp2KSyk;cpK|%|w;qftH=zh6RUGXo{H=oRLrB{y$Z1GUYW;C~Wi^d6~ zPNj~?!LEOOCNDD8pqH?D6uK`p6MpFBR~8HaCf&PRVo-rI%OMa1c! zleu2dOt!hE^#O;F+8YW&4wVu10UY;Iy7+vAt3D#3_w>5>bUZ=A0gnFXHvTbj==hjR;LT>$V>zT&tGznK+EsovM z8~VM$*)jJPm0@`Si~X6cs~zV~yuv2*WdP?@} zh>2^<$m1wTo)ww4W8KiD4&l)jDPlqJPap0PJM=-8H*u>c`GLao{U=u1kuf+T+8WDo z*+DZQn{`bJN^P))l5Pl6w}*{(GT*w*d-{|@c7>!Im|>YejTS6_S4G}4(khsJcG0B3 z2KCi`eL&!$+BF}5Nf)0oowe?y^Q^M7+-oG3+R*#kOE8jazJ21-e6%LdW!&5yCMOk- zJi0`ve3%)tBUw-13mK}^&w>KH>SMI>O;0USc2=s0N?CG+xkn?v7rAlO!i?0U```#x z&_4KYH7OYr#S2@04w4!pf<@0){$euF8>S;86q|y#Do#nloV6PNU7wDGP=X|4PP7g3 z3Ryq+K8)5*^%w8E;`lf0^W;Cr_Q(XK(@P);qj&OB(_V&9$b^T}QkNvfmiTxnY}aLX z6Vtb=Q;g&|6RI@#Car|S4_+8F3unEcN!A?{hJLW0KsyZFCM+M^viT~C*PDLilWM5w zJd0#hf!w(ql+ZxglINF)V8ohVK+d(ZVlu#D;%RE;q{CCwz>_yUA>Jz1q{!WrgY=fJ zo-H;WySpO`I$n3H1FmS~>69tL(<#I^iC03|bT1es>~T*oRm^+w51)30_`WrED=S{O zks|M%VTuX05&7&OrRp`(vwcoYIs_Du+YlcK#3d2rR1gX*YZ8$2H<`_5;P^};nE%8? z;(CyrX?%3f)8qp_SVbG^TqIESg)~XUt{794Pi{DNX>eq@ukKuw{mq`7$4d&IwCQ(> z@BP&uZ96!uco>=zG&h}N$C2OBNNcqAlaVZI;}%pn;2)IqjGy8hb08rMz}ad?-p~wY}2_`%Rg2!qlG3;Q6R)R1C(ou#J5~KwJBxFK^Rs%h&ZY^zSP~7u4pcMY_u# zX2*O~oo3`+AEsMmp^FgFXDV?zD*@i@IiEyfukyT*pz_(3Mi}3WO3Z*y{fXQSY_~}! zN^y0ewZ5BLicAI9G$PxNk@L9tr!WM$tbpvOQl-7Jk;DuIJ@5KLOLr2^&pl~wX1I59vyn%(r_Pq%`dR+Y>krj$)#oftT#y?D0n4$`(!ZAkrQJK^kC zamv=(?KFP)KUH~kN>wGebUqNEPSJhEmf``P2({dfnYyF9=4x@?&Zs#1mSTNdCsxt_ z_`21hNtTRB`gDKMvHRS4ru5=nC8uC*mti(wIJqh=njfy9Q+NlNhrq}}y4e=)UHHWM zgFr-2{scx9ay++-Ot;}Wg+G6piB5;MdgP#S{0$WCo{ztk&O@Cl!*hwcUN38GLA~-e z>dp|lqU2^^AFp?RPbh2aRgKA*y&J(k!_nO%~%iQeQUd{ zZ&jfP8I2B;Xk?7W0%dEVdSs->q*1t(tBY)D2Tb6S!h1q=f zJ*+&vLwt23Hi`xl4z6fS+N~KLBgym2&^&{8%2K3)ozmeDR4Zu*=6_(%b*{1qb-V=Lrexg*ifW_j5 zI#hbL?=tN~{DR3W6#3Yl6s7}`PpB%tu#P~Y0X5S~`V(A3z(;WZ-zBRs8y zp_Q?N$!mH#HWns$T6sr32Ui_CW06LI=fX8`&000RN9s&M25&{AO3Nq3Qv^VHzuU?^%;}c-Lp`&D= zr=@&H!^A1h%fu$kPVIb0$jHpf&dJToFQ}-js;;T6t8ZxU=Fw(upO~DQ zo|*kNx4O2zvAMOqv%7b4dUk$sd3Akr`x9MH0MP$I)}JZ+6(nO@!oN6aX9jIL)l29H6)v`TvN6KQ{!d4)CiD9LI-49&V%_5=x5tCm@Of}7QHAs~;0aOy z8SLqU`;4e+3fUtdQd#*CP)gBy4lSBB^~EMBe;|P~#etf+7>=kl%rF>RAvl9wj*ZR2 zX_(EbdUOZOaaXoi?uNqi<{aDbzK{4Aefo#7X`kl8)^{nTiKQXy<|W*ly$fFs+A#kz zp2VC37Ouu~B1EgFx2*&lK7dlwN9Q!vm*$JRstTzk7_g-w`I++z`!yX?5wst+y`$S; z>HA@K+^#l^tDV$fKNdT(h`XoJl*|UmMkxt|_tbJn1MES&m=kf%ZYJC{l>=|=!jN$Dd%OCGcXQ?<|7`3N|r+x{RIRB#VginbcTh~U~LISn}|JVBqTVvQYFUl1Y*;R}>s zs*?n@*{fGBnCc9@B#8$G!!Wju3@tC`YE|!`DcR>@7fUt0V=2K<&N)9AJ!?gFX>orW zJ|Uw|Q)0W76c;hE2b-(q>0QbfXi`F?suM#R*1$oh1A3`(6zoBToD;a#ryqFyN*YVm z&dxp@{0K;`rO4d7TEdznt*HwRbuXuB#M5~MxDaZkbb3A2$)%Kzb$8|#i+5x9$Jbzq z-Y48Y#xxT?3+Y6we#zan|)5ZeBbB44YfywouSB_O4p6C$p*>g71@O z6QCyvk7!$fP(Ubly+t_Hd$MLZrZWz$@q}u@hNB0EyDz)v3QDzfOX|Y5)~}-|U=)Mg zVjD(MOmmIUWCfxAv~vHvg8#vf?8zXN$$8D{Q3u-Bntj*_Yo?zoI`=#Q{g^PE9J;tf%u-u@noGbvXD5o!6e9&{gr?p4-N7h;0~yJ& z`fD5hW&YZMw9Ij*Z$AkU!k28$wYnI$Rc;~SK@_mR-IMy&AtUg*(qxsUihA{CL~Ogd zO`Cy`#)jW$IOD~NZ8YeIY0EtEI4(KYrBPwxB6O&5p}X?qP=~=-I6(31d<0)=gC~re z^xx3Ll$muwYorqgvD{GKM&GBa-wEIb!m@qqGB=Imi0Mgu$jlWsuEk~1aBXbZz80eI z+2+OE$p`^J78C$g(us3WU@`36K_BL)9H`4kA*p5kzMc(FVPQdujI5%eJmqA#f=_Ol z!ybfdm=lL`?RzrRS!9UY5AvR#aQpK~C&QjNb=r74JnAf^W_jgFu6t~p!QGF5p4WsU zNePWB$?gX>NDRB5B;kGFb~FLI7XUBf9ZCD~X#eJ<7U9zHOhifA5*h6^?V0tfWJ@$z zO<{isPXqp4irpxF1ZP%gZI%<*ivV+~-9%Vs*Q4dRrhamMUwN9o;n2jXDq=CrOb!Q3V zTB~aB1h4wlWUWg{oHj>Ej)%c5XpZ*j)97Kim3)H5APK`p9CGORv8rOR{mv+tAk{!l zQ-7kRrD@jX&0IOvAo(ca?E|$R)hRW{FKeJ1bVtzbY2qV*m+6VI_#@zxV(x>j^utrd zg2HTw%|JN;uFD1cQcnFalFVZyVVRKvnNZj&1~1%SYC+zEbH#%@gMMJ(AaN6W>N8(= z)g!RSQ@yA7Wetgl+gQTg-iP6Sj2(>e2!I})X3jq=W);qi(*u{vOgt)3vcgv)~9xI_?Vnu2y;m`u%mG#>AwyQ@pMc< zP#Oz>wB+APPyRb~V&xyi^-s&dPfNkig(~I*0tTr%$$RfVWI=a*MCi2`0hE|glynd! zHrbHb`5LH%{gj|nVVKeu@*eWS0Te}r2!Zfp<2g3i49CXM#Dypz?ao_eV=cw} z`H|JuS4L36pVw4G$+iS$Z^P4W&$N;aozX9nSY_~fCcs{+%?Ozsm=s%$eyDNI_#^`3R_FRxlEoa93sH6@ex#4|Sgr z{If{@ESf(Z@s7f(T5ET@S7D5*2K^R+9~{pCkASbXOXXm~y+qPD@t8V~J`7LL2QLjU zOk=@mvl3hr`+(ifvk+G zW|yZi(j>&fO%IZY&<|fv&)+Y!?=bE9_HQMX|6GaulcM(JWH|0}k?O#<#He}z&spjb z5U2fhM)EJDl4}eimHQm%`f}XJtgDwfIP6t@Sew#`7}C~j&?nm`%yY`02P<97J2%qE zzMmR02x&1Mh40xW*=psZ1v61lTi~$D^mo*8BkA)iYm_>;VOOK$gf#JB@1NldqABxj z{F0ge(C0szkEYW? zw*@2^ReqEUMHtP$Sze*EA)iQrP$}+Zb53F@89HsOibvGJSPP1 zaxd0%cf-A^YqiW*EJak!fyR;L=%aA+M-hz=!s}X)*A{w=G7TPsJ6?=`+k+@F#Sv^j zug!nN4 zjPovv)HQ1#0cb~Ba_V<1L$646+bdUM3H@GP-^n-0)(muO;Y=!F(!>5kEjf31+sW4M|;ILbbFSd5@S%C1_ z8(yeb{Uj(UI&PF~fK$WU#@zj~0n*T}1dMOgR@qvNhbT8Iw>Upq7Q7@UcweTXvpNa6naCL>myFOz?~{m1PTC4%HNd?coM1y6HnB^8+$Rx&Saxc9{d zH`rRY~4#IwKn!n-Wd$OfPSMJH!iDV1ss5+7o&OrBV8+MYw zvw~{W;p67yd87LjuE$g#K`0yX8B9f!dCtcJq%Fn4>DDH#ROjoU&5>1=M*s>lRE36V zaVXu{r@Q0l_vJS@n-Pb5^O@Xxtp_g8j@kkrO(`3X3U$`$}XtS9@W=H5jXP@!!xjr zXgxd>mekkOHu|JB__D8BScNMh=E4%cz6-I;j>!)7(o8O5*?pMJd=7kb!Sv*nS*&zn z%je3iOSY!1kLEUCpxL`Q!!LTS^|mHDyohGbhonr3-d8^4e9Q4HB(ad9>+uWcyckI@ znN?G#S=T}^2^e_SLC4ornsZpUVk_BHR?#XbKF{_}QA$A)%Lb)J5MY;JQEpE7$_kRR zSJ7Qu{ms*;uBeK7i*;^f7;dkfdk&NzyiA4Dm(!P#&x_N-v3lNz@%voEXZ~RL0~#Cy zqIYXbE^Qc@$VKUWMZaDamd&frAD+Grr&)9&*8nSG{L&k*@HhR^q3NFs0eo1muS%&J zMY&klqV%7BAVu~jYzj&;CJ2H(DOD_CT|-VVs11?}v(tN6$W3jK?gv3hKU`>Be^}xg zaB%x3X$U|38H~OA;HAx27V3aHt! z^UUF*igXBV7*P_FzbL=OM-WXB>kqBe{A8s6J&H|1$?qRPMNj@=8vb^3(Uy(ETArZt zdt@Y)jA-Ri+vtyS>X`!`v`%x9#f{~fq z2By4>kUcKCj6e7e^k3{O|F~NZ$jrLd<`;LT>KtED4^a5brtxAH7MSe7{2TWE&(qw` z$IcU{BxZbg%L2qv6lNfD<_Y%t4EnGK&!k6T{rR?atnQX@^u0hH^a5yyd09DTPo{5m z84bfnRf*zhIpQa56t)pL`WT>qMs;%^<%cV~t#ULB`#?rOH&=n0QOv>4p!y zx_hw=%ywknY{6-W7CK=NW(c6(nv)T^v9q0-^|?{bS8^a7Lf{F~GUt=)WEVCy2kSyS zsN1oBWTWD@3<@+RYlPhwbF&LQPumqlHnh+4ZJq-j7H4~E=rz$5f3@xSA3&Sm*rwy! z?rE^CnTowYyK$!K`;KP=k{~QGuQ*=HVCH_cC^^up52zKU43z(F zrnUj`$iaBBsAG0pCQ=<1i9R5M=rs*Z;q1E@Kce%E7E@a1ZjM4`?aHK|r|v)6k?L3A zjtp-uzYZ<(8EwsRi)Dr6;<+uX5Y$h~HdyzC3wi$uVfziqf-lbRjy8>x?M;u&(BZq4 z6(lQnSjBZ^I1_@W0&+vtiwQ6GZ<5jfkgyBI)=7)1S;VUu`uT3oM*TX%NqL6@WvMBB zqDZr%#Z`qeeW-{&R4W^PZ7bl9yF%60Fk$Oq zFyL`CA8W+eI9$4r8)ze8`_zZ0@PO}m8TF~CiyF&I0;@ypo8js{EqiN3KwC_YTh#g7 zbza07 z_`}Bhf4R8;(dmA;20s@QWrpK$X{Q4xQz9}vF}psy0!H5^KyUFR?i5GcQ#8=Grc7OB zU%B`$yqRzTf0jzH+dZ$OJ}JMsP)b&2+x9@`RbOJZH=VHKt|}?W<3W8Hbq^}-JvXDG z?NE!jObN2)WHFT8>>HL^U3hQ-hM6hzd-U&|Qp!7QtZvsX);QdV&p~yC)Bw?864;63g*rB4+G?)sZuu9uF^I{`%rzSN*moEN5Tl zxg!wxCI1>`tdt|1067RYWI@0*?W>Kor& z`LRDNIg8j9NY73dt=RMf=+>Ljf{S?dTh*PZ!8pywCb2=M3ljM02_{Qckuy+b(R$69 zZL7}R>@e_4{y)a9P!%51Imz+@322%VWJg5%S3%aD242j?f)u2rMy6s}`I1tcnZx(c zc^@t1#3`_zA1ZH-T=hr~8lR%?#B74eDj}9Dl_ZP|xnmJ4Pi z4usz0r+K)5ZPP=>?{+}=?X&|Io}l7HdHIbl0aMzZ+xw49vVsmNqWi|APw^q+QU|HhE2~^mR)7G#QNXd{r_m&erwod$31}X>fbbxgcW)fq6b(j z&~}hnq9^9Z8*u&x8t=DUHt0R~yyN%tD%ET~L&(I@5A818?x?dM%xWjJzSZzGxYsex z!bG2SlMG(^$+FpZW#%G$aB&;UYw!}LTEUk;z@W_)`xdplC2_?MN(bvT%$+8R<{pm( z16`vxTKWKBCZ2EjWkT+2&9e9;VFqD-nE=Jl8!z1bR7aE7`>%wp%=zRC4|I=5wEu)W zP}+|At@i$_UH>h&(vKj#e?W`;g+>XBeF81MjHZ?)-mk}QyL(S|wtj+c{nahKaeS^{ z>8-dNRFqr#?s6^htX>0Wp-ahuVa*q3VagcY@8$#N1Ht#KYZ6k=Pm{Xn0QbG_5wfEZ zT2!&1#=P9IluOKqT3Bk%>&yahD@p>lQiz~VKeov0P+!jR8QGP9-#J#8a9|5(F%8DY({iZVM0O+dwFFjV(WB<*Fxf0?vm>6)OVgNUBA~g6$zh^ZH z)Ie36M{7ycQkgJq8^0-+nz^hKH!39SkNbs$uyY^J9NgJYo*9!EWZr5#Szh=cpxSO;ev(4Wml}eqJOxGK z1~zMe*#_q>BP%QezbLnR>BaqieJRZeMj~0zMQ7AJ)k|IGMtx2jH~UGyi*@XMt>8>E zTeDjW=SZZ+3Ty^AA$-0^0Qd7Ea?!$e^~{MO@@}Orxog9lM}T&)8^n_z-Tf~wmQab!u!>3i02#wYsJ>bqInmZQk@Q_!GJ0iW`!%*|L-VmpxY_cOG zdBx!uIa3dCUqK90gC zz|;M+&Ynu-?!utsl#)4?qUjmFD7eIdNOgqG78|VX9Cp~;U9B$~gyHA(h^ccm zy%?--j1=WN@b1A$=iKZ)8Z*o$RS#Lt!qu@#p=-x6Uf7oV4_;)hg7yUP)5Gb8mlU&! ziH<9&>r&ni!UEUsGt%nqVrDz1Cuk5{OD;FWUPl*t^DjIVz!GLNl6BG8v14tCtE9Y^ z@{&O#%zc}>j#Rt`L?EgY4O?eOuIJ>%4O;&Si5pcM0tvL#O%*#9lB|Z> zr?bz^ay^OVMwa5xc}b9%VHRyZwy$1TGt8T2cj|E zaPkaRj)1m#OS4qh`N`WS`%1(?$^=BQuJ1B9ME%ToVTVb3Zz^kZ7?)ecHk3QG=>0k| z6Php+F8>e?ISOOx??nk7sW~lih@kD)Y%Ja! zrlU_yEjBm(SXi3)P)HMfehMDIE#cVajKA}$e)s!vAAifLktYk}{6ONXxQG`b8)*AU z2#F^ICQ&W3zZ#db6mh@*WaBA_0hWw&f*YBB-k0rYb|!0=Ba|a26@3Abu47xqzPvI2 z7Id*!8qDM{?a=)J@Q(N<-HwA$`X^ZITpb9}+|I=9qx#|(jH%h8^2kBU2`7#X2cD%m z^xjr`P6y*rNsy^-{mjXm>(c!bZjN8-rmAOc|H2&p=Y{&W7QNpcoAvivPw3s(+k9u4 zmTI%8M1Z%vj4^~=*Up#cJ=`(qsJ;o69CWk6s|A#w9sxnZs4J;2!V0ss2JJu5EViB_ zJ_2Y5MwKnKtk;%N`m!}~@3gNkB2QV4_4J3?4t8(cjB}4uKS-5Bt1kd(-)NNM!C~fn zcj9T){;Dr#Mf+{Ue!OQjU5QY=#Y1tL`l2h7PQv?O0!j7r4K0$LTKSam?9H_wH_DI-t?H64XZ7e`(HP zH<n20 z>t8z}9#{+4Oj``1hLtq+kmIF;Gbce8VXoba((Si(7Fe4C-fmfi4}1^YA4*jU8e&r| z3sjqn$E}1mUQS8tq3Ek9W{(`vVDGNj!}7Uvd`v*ey|{T{k}ykL>Gr9g`s1 z-l$~tyNZP(E9h^fmcnY*$Kcl0Aqdd8mMbmeUlio`Tj0I)Of$Dewb?GRAS00wp<>oK zy*EOzLt)>DTP0=$|H%^mGb_OV<&bLGmzc!05HzFCi_(7UB!B6&{q@a|S(0 zQ4&mIi5G&8^`gJywcl(=e>N#lz7;kiKfq~;*1-;pbK>B9fF1)TZXh=68#4foruKsQ z8wysM1XpJKA2LP4vLc=~VGq!Hl(?)k&WjD9<=J7#Ws%_B&; znE#r&5dMduNxxTIitydrFWt&aGrO9XfYaowtxNdeX0N&~Ygu{nd@4pY#atnc^TjWl z?;1t|O2KDeMOXadH=)nD-A@_k8Xi!)m7Hfo?kuye?*^9}t=KotkJ>IbW+2%rkS0-{ zb&69<(Lp$72EFJS+lSGVw$4uC6)W%<64XsNTz^9*u42|mFy5tWI}rD(-td0l_8xpz zpV3q)Ipb&vC0+TVotbN1Doda1WWjM{T{9vvgh3s2{mrL;*Erzk3 zVJ<0UwV-A~H}07m+;dq$3s;|iB@OSlG&upG6GS<++4)C+ky+kgWX@%UjrS)Qaeb_- zl90ce%jBQzdPTQBpQjOfgTL7zk(thgzB?K&%r{;)B>y$KTOz?=&7kMDUW%|*VD#$z z-n==ZGMRkDz7i?CG!TqCQ7h1Y;HYWcG5*ocAXu2^{hnB4^eBNJ`-VRAq-hI#Mbh_{ zfMO}0>w*0HK;aGZ-1-{dLsXt0w^T`0@2l54I`>>Lz~(MsE@w}>XIWdFa$ zUHxD2z;C&+e;M5PU&jCtGo%gB$$nyxV&{SfsQrMv%c3q&zyOqgeR{zSN>6+C<2)qU zkM~Bm&X;$D1i5w4%K=dJL&gu)U=aO@!kp>+22GR{+qSK<{74QU4TcNFuYDgDyZh?I$g?m0g{HzzF(^LG4LRuSZ5b^WW|8_vXXHZOBOt}vFCx8X zH{raW3R`z&L@d@aBsbIf0$k!MGsz{8Su>Mx2tWqJziPgP>AfhXvc}(||MZS#<%_Te zR1pX-@>V&0+H%+@OA~r)_t+pQ>SI}ImyH>B==yQ*4tT6X5zLLg*P4A3AG^d|Zu4v? z>*N*4I|%v)L^)M^A{1=vUAyDI9{fbYcp+5Daod+EP&x8#!t9gO7Wlk-AvgDFjTWf* z&QjBS0hZOsW_Vwov;Rq1iYtQ)|H2>{H`#cC?e_Lo$^T!e*T>+Z3q!~AQQN%Bz=3qEf#V*bt2Vj z(azdvk-upWY`;G&WVWHjIVD5xVrc+46{90NWqY6~l7Nd94_0RagN{*zGU`mguSGDg z63og+6ceq_nXL#3Rav<9DJCLTC>OwN1&X^Zxm*=Z8eTnXt%Lh{C9Fy(Q}JUZS>=p^ zPI(eu7CNC3>C8nfw4-9a)?!f{Sg8@?rE>!Her;>0wZwN}{Zup_f|-oZa6+-k@M zr_O713iH)oNdZtxfyF!~R}2o6#cSX#&5U&QMkAd<+m|FOfc1ogyrG<0h^G`1bubgf zc6k$?U+-J89vVICKJlwmh6&?B6(kmW_-ECko8>dm%^W`hxG7o;ysTrIJ%$=x!DFoQ7QeZmV6RBtJ6hob9BpGHsbQD++VUX zdM{DzFCI};in=VF zb8UBf`OS9-(S0;BGAVrWN#QR=MwNAmWW4Cz()5;UEaaudH5GLm#s&GXerl64Fqrpm zaR~3P>LG~&C>{aVAtNWSAyw`X$a^+|Ok1KfhJrBThS=o18zr#onwCFKEdZlgmr9`^ z>6#GH5`iqSBAy=Br%%9LkoZFX4grW%T>-D30UrS`)!cp=hWi&!1g_GJJ_5FzN5D@Y zP?S!k1GFarj{vwph;hMv2s(xbfr%onC76IWNA`~ZZ}~^S33{U-Ko``m3-J_R4UzW8@k9I7*cH!_LnHjEw+(VXoR_cNlnyLBd?}K90f}!& zJPO8(46EM}baMF1PW~O#{thPk9eqzl#(zQ(XUbAE(cF*laVr6ME*ic;?oEIh&bR;n zH=`Z5emHMLLZ*UfS>cMYMpT!g5lB>Y8?@=@-~K_~{l~i1UKvb1mNRjv7j7PPgi0Av zKGgU65l}8;qD3}t$%Mo)?P?`wVyPE4^W7egPUd;9w5+D#?-Eg++K*Ll<%*fxp6d7+ zvI4I+<>OS3{kuYA+dd*&K?A1yCtK)3ndg#*;2`C%m*XfM-aK=zVOeocl8Gy-OqIkdi6h0JPRg!fbn zj+8v)gm{2=H|!yC-SbzQ11vEkkw%)=WXGtkc9dNaty#SmwH^JycrNf&@KP@sEJ2 zqZ2v58v;mvA-L)CM*#2?v;vv^)=c}>n>961U50@T(@lhZ=F<>I0uh=cVs4&pq;NTC zu;(EY<>rjA?)2zdg(LU=T>Boz`ZyDeft(MS-7z7c<-~ic37#I)M*vURBVZXSqI?cC zQUtvEn)yxqCf?I6;{G;b@e%O!)V&pZ4-@kelbX+6*-3tbu6u*h-F~_%ZjC1m4H^-V zch7QT`=V6n4nOz)w&M}t0UuBmMiXCYTH_xbC4n%qD_j|O_Nx3db2I4`sErNvgy;?$ z;}|*|WJ`8E4r=dhg=Fn?2i={}Ue91#Ve= zuttJ>Hx5GGJRS+?l~sq==`;q`PPs_yx*VvzKN{?z488#!mrP3{h(tQoB$~n4pLSy2 zD1eT`O9gHAJ}azXotC`GFT=a7(o@a);;$wE-)OEYafY;|QnTy4CH+T1&45Ew%t z^=z&6Y5>w)C*YsI41PI;3HBKUE7&Ov+ojAe|3_{MrcT z{N)n~k1MhuSI{2;E!y`~5T^6DhxBin12Bg0&s6+p7wA9~h~zzy-pL6b8H&eX+q z1?+)rXBN5#QeuNGcuE^Wd<@zBb?L+DBVbiC;+{Bx_5nKm9-{sKxmLUwPRLffO^gT5 z9U(;du&`bJWdk7G{(EZx|AHbRV6cwy(8NbK%ca&kihSUz5rjK=>w!l#5b2@HiEE$3 zt6R)X>$y^myTLKOC*nZ4zXok6LoViR7B1i3`OWKSl@R{aIm7l~3=7~nLNxf!`X`l0 z6(TUB@1*YzTCYQPAVj?!1#Ls>CW5dsy6|7AXl?}<`7rVbh-Pah>nWcV|Nq!K>wv1# zJnmma!5~GXLn&$LkW^_&=@jYij*B2Eok~l0cXvyNba!`MF7I)6cV2a!ah#obcX!_X zLxFqldCob{dGZ(EPgnIWlEG{DZfJcl%zPPdg)Hu+Hy>bGesCe*D zNA5jJVAUlJZXk*WR$QJ?J}{KRU$Oer%M;Flaq>LohCW;V^2t8c)(;ltJOTp=*aAb| zb%Pr|ctT&9gQo%Qt0rJQaf_MY>{|OJ$O&*SpsEmj@od2R69B>{;*cRgtAohk7CU@; zhYrf{d)&a9c29@xtJ4J_R3E`B7-Sbm(-1yO@Q&9C_x>!PC=E0apTsX7*L(=*7xkN_ z1Z_}Yz1JSC>NfxJpqiX&Tr8-gozi%saa-`iMdQWV@2fT1S3kWAww^EEO;kiKnCn&B16P?Ea0wNZ1JB8{%2T_hY9tZCN-S4wnloPlFUH1o?5f{NJ(4kH; zxW8;K)T)3G`~?2DUx73W7UpY8yx8>Ww8g^6C(0-_O~@pAu}LhnJOj z&u(f^ZCmbwb+0_YxGnD+!S-7Xc$YEy!eKP-zLKh}Pnlzi{592Q;8Z?)R&%EjOYv z`}WNV2G20M-lhwN$82TAgYON58Ra9kcpBWaPHg->Y;fTr=XK6z_VkrKh0Y{Jq10X7 zK5{ReM{>BxhL)|yVdkH0vwvd>>fa4nY!`CPbfasYA_W6Ehm?a7{mB)(C`3eNoHyq8 zGua6Mx0tuFQI+>5t&t#_k}}PRvac(rK<$a|KC&Hi$S%BeglH*y>6rQxv#V_TgfAX) zX$1MRYdX!gc0RY|*BY$S%UWYGqYh6<%e(Ln^}Y%wM{>ZO6~LeLYJ)fXeB=KkzspBV zk>(eUWHFjLu5OKno*E*D`A5~HatCEAwP7!HI9R@$(bLep-D27%*fP7tJ_4Jr%kJzp zS9?=H3&$i_&v7)#sD~U!O#YZ760~I{Dm);R7kqRid56wl+}r{5C`A6D?J%){M#idK zg;w>zHJ_yy99cm@Wy^~_C(9r-3ER_mTaJ%(0g2Z5)`V?(i3lk ze7W&6>H-#d@DS1CW>1sLcedVfbgL>Dy|mF7dK*tX?EZxq?QacukgKgJ8OWMi+tTzQ z##3=!I72vQQffRavfp}RlHQE=G{m@pt{wAbZGRy|V0K+pSZ>fnGhC~*L>;}5Wy?+7 zf3LcSXfMqf2i)cjIIhRlF0c$!JdrHgB%=&@9UjME7%xbr+!hdc^+E?31lha>8Y z<%`;Rt+~=Lc1mk(x0D0*grKun#6TnI#JYP;S3^V)%Xhz$jpLX&7)(*O<7lDJML5hM zsG*xpYb{`iXR0EtVa-rC<7BQ2oBz4p^(z-7Ao*GNg;ehs_S3HnP``c*9%oll`sAsg z^j)7NmS?^$c6jXgH`Z0SvNF#2*4RB{U)5jLL@nwAbc$`!AD=LYz;dryw3DTimZtq! zkNG^bkrfC6VBpH0bL|3bNqVg9Y%{m7i92B@>Na>^Fy91M$$RD^; zLdXBm+XOr90ESQbGf~wa2~^0;0Jl+WL(6KRt_HVeOCes7CKtt*puSw-8r>%;O9q!9 z@4M`HgW05!A8?rRS!G$tqOEcTWu$q$-plZVU_mz@{A6&4{bph}>mQxiO$UII{((GV zq6hx?ixQ7OxBo{x`a8+#FGM_gpEKTR6R*#lM|zr49L}ixDx87`i)$&jj|WAbe`ocm zPw?UD?M&pyp!AjBKUUFm$RzlIdCCVGUx&Hqz727i4~jExU6+rruO%?ZeXzXl#->2A#)<(9XM0&l7!le9);nDnb2^Jn3q!Cd+|_E2A+u6hHQO(T#^UT zhtY%Bhwe4s&BWfDR=++~{Tw*?)w1U*#%|S^QqH%)$$1MK2|DtA2+y~ZS!DTeMxrE zcs96UWk6?>I*|8eM;B)ctSx9FE(IaZ*G^ z-pGiFAYYNatU^<{t?pG3c`Iy=y>%9?dk_`&-Nc)>WjXnuUOlXnMjso&+ZllJD&_*1 zX~6g@y=@+IhOJzbRl!y(x~xD|_8>f1h> zTdmw;eCAVV{;ZpB>B! zUuemAs43fGZ)$6?9j7?;1;nv#V3H}o+lJ+6i?}4O@NUCXc)h?9!Ja3+rQ-TyyH-uI zQ1n5_$oP_y2=I)AoT!QEgGJyVAM_UdGh%-?f<*qbG6jl#^4Gw;vJc{K z&NcK|-5tDEajPVtgZ|Y%dbiox&D?Zdd)bV&<1m$$NIp6FTVypJ+Vy)skYfYe5CTd1flcfFJMwLh>@Qi3JM18<MDK4^gt zZ<;|q7KK$BrWQ^LVQoPgmCy`m(ypwye)WZ~kMr31dxuAc-CP8BRmm?lP|8{j)1k%I z1Q<#Wxty}nz#s3`#!|jip=o$AzA;Nu7>sfSjQT+`su5e$Z9(Y%@(BUNLV$^-;+Cit znWt+1l2N9026+4$_<6IMk8Y~yPDe0p#>4yN=@6o0UyL|DOK2j5l3fjHEl&`^41T;# zcfu5mi_Jz}{nkRr*ni1q7DIa2@VWv?jJbvP2w=yrDTib}o^I~zwxN&jj>m7c z4*gZW_dPKJK;sgnnIzk<_DDO!w;kKWfb9AWkY)*8fc?s^nRZ{pVG^RQ7_cw%4$#nx z7PK_I!0euIh7IU1N=r!^ZqVcGR$XsUM$@zE(Fz4iLeWEy*lU7Y_=FNwljqo^;By{1 z0kNdTGD)R_o}!klWpw+g0SnVccQ(rjx0`NgWBsMX9WFmTgwZy&RjYQe5R5rYZX+k3`xr2wa#q-wPPo;XE7RO*x63n#r;;SP-RgAXE4ViLxl zN54%XptSB;9kiEINM4tX47{1z8C7L$$6e_3Iix$0_kRjhM#c zvrx==Wsw?UX83`Ma^D!2USk9zkgDHWwNq1?+(lZ-|CYR?(@^MzbDRUW7~8s(o-@N> zmTRlon>J6#0W0`?9m1Qn3gj2)W#We^$H)Y5-PIS_g;pDy=y8$hHq@tS^@6U(Yt_!E z)~Z(7&+ev_-7m8|sWn4^)UBgYmKKE-YxH%{2KRkEgcD;7=+ z)_D&Dsxjby2@)&*7)p_&Z@8QBJkv9RL`I`JAya;OT&;n)G>`?>98lu8;8VzoEb(=4 zzauI5k8GX4+|RG_-M)wN{XrRX3XjBu)v>qS2E_v4(-kf`NGrFea4it{)faK2BWlU5 zkmC|0y+b|77bg~~Os2bVPi=n%EL>;MdCq(E2ta~j`e@w?S&bFIt8kFZ9pV%bDHytk zs>(xrD<-=yV#NSnAZ-7+wNAD;({eyzb89Sjz~M2zP4ZfgiDjWuO}l^$C#DVjpqxX( z+OEFo%q$Ixk( zuSg|&G1k#jmZ4>uPGImVf_@#pb|iPo;TpR8Y!3=w#?yOYb>*rTSKn?Q9ufo$SQqQJ z1`ddQQ25kdc>h9sub=ma-%pO&sR=^N_UkfzM)K4jhyW6f0J$JfPWn1%p#NUooh(s{ zMrQVUJ$XzTFW7FelS4e@{TT}-OX&^@;jaELg}w+*7HvDcO^@VwRl;|Qq}?l%I20$G zyadqvp#I8S1lvezMW&MSd$ggJE5xv6$A<(9MpFvoYCJD0UXl79sYl~#5cTd4%0-=c zHXdVNYqCKR-iC2(eK4Cy6nF#g0=ZOwS>MtbPjZVt8=>7?=2+j-2}q@!Hd{TABbf!? z#aX=;p43r_V1^t2LeL5M{lSL4)%x)8PGn>Sha*3B3btd|-S+^{B6{{O(jegYtLJVx z-Qh*`-ZG)Vq+-r@IzHs8vmaCx@KzsW!Wb|%%qcoQ4ETUD@c?IpwIgT*h*lYa$FjFm z%Js1?^1os5h;=T2j1X?DDL||?{V>(G)T#E3Beete!bO50j{c&TDf|N5#u*^!uvS0B zAr>APwHmJIG@NLM?HNW0i<-U~>=5lwXb88ou2fwEv}A{ zz~g$V6;2Ggrab{?4&u;sY)mmzA@ly6Y5f&+EHZCb+Yc$u=uU{Tr(l@8lfUtG*bATG z0j4*2N*~Ve1apV^jnCTdM$d1<#Cj%!)IN6xfA9CSEkd6)cvst|Al61o%lk=y^mc92 z6oJwG1x#-To2&0RdGIWNh(fMO_}5j>k76RN6Unxr8_(%3K?+bH3d^AP`0Q}a#Bipj zM3+pZ%^pY?PCL$hxC`e^6JgulNW*fadSnEz!V((xdbP}XFYW{W6ahMdGFP^b{lz=G zBk*udYNn(z_?OGxpcE7pRl(OLLwt@X*u>J*>;xH}x0|K+Pc!OX*G z<}@A?M-_SRwRrwa!YMu+(G!H3EOJ z7j22shoa1gV&feVi)I~y@D$+2u^dTJ=9u2d@&)#iI1;}>ul7>CM&u^|s}c-<;?8tS zGp`~v>SKK)Ur0}Y-v&EK|rR01EG zSc6>q9(SH8TZu27GO;C7Ogd$jN!!)uLCU8@@Sk?x_ZI(O3KRmA;OY_4>QM0n z9_pinckWw)%E(d1Jz{1mh`*~g(A!QbpUTSB_{nv$?n|3K(ZTT?;a(=KSQC)3d;my( zzHp_#p7Ew+CQ6jGlF{yNjDuN%e!3aHSfhvXj9^Ub>56mM+Av1o+FePNIw60VwjRkf ze;_ZisEKPn6JHG$atIea@Y%oqO*~3 z{UdtC?kP=emgkjND2VA^CBbSbWGHQMKix4gq| zXJisYZh6=;s2B2FkA{^TaIr?BHo2^5VJ>ZR|0b3l= zJ1p;2s^2$h?0}^uKj@n$0|=Y}@#xu->j$y~uZ!I>^}scR6LpV;pd*RS++ElcnZBW6 zeM_>*6bzQj6@W`3t?j?vwf=AFvOgIi$^$UIRSH}S6b7FfDr?4opyh0lZ*Fpw7m1hpa!Br>9Vbm`bMwe6{^eZ+TBrJv^ zc8E)PLXh|@xvmb2HW%teAiq<`@(LExJb-Wq9p&ieYDo?_a0b}i4QD~bRmP|)ia5N` z?XLI)32*qX_cVR!%lRit5kQ!*;dh{eJ()b>N+r$Na#gz?p3>(L*}+N9|iIOpnD zD`;G@6C8)+N6%QqDfWGV0Ql+6{etAvFC9auMbWDrQ?#IXpqF?W!g(Pu$E_^)PDz|5 zB%|33W6Jv&`N%VMj-K+Pf$MHf&_d@?Tj)k$IHwp+?efSDQ;e=fqv&wjK|$B!M5SOb z!T~t-6t6gJLT=b}lE(r!1JknYh;@q{JGKlA(x1WTPqApH=Z%Bd*+W@dk2A{>qEF{7 z;;=kz^}D0SQvoYG`umRmv=!2Cx*s{t9D@;4{oyg1fU9V0Xyie@+poQO*6J)y?4|8x zE7O~^{VnL!Hop?p_8Vx{!qr4w!AaG>B(BL)Ub zR5-Em!$jN=AJA&%mxLq(?#3Fz>dK*9M$wo3lup7!Pv5zF`)iVI)7Zm=t(jZ&zIgTi z^VK^e%%7$Y_o-^oRiS;fS;-|9F7s|H4%qp8jGJl3wvbG-B>nfjhT%8ptLq34jt_EW z`?nJZi$2m4VJgTGgDnq;b_jiz9Bq=RG`tL~+s%upIxFJHan?jz8;jByK?s zvSvibnj1c2cb>coOqLEh9jJQwZkNSflV6g4GVf-q>uZ|%0A-ldfx}8X5z*bJszd`+ z&3oG3Qc zO(+k1a`eU^Ny0;V(qG!{XE5;yA0EjLkBAn-HlpRB#81%7*3VdU%GSKIbFx{wC>0KF zG-looBXG8es}Q4WRa1-*0dj0*QZLNJFRsdDfc}WdU$c*Rr-~jSF(c!h{=cor?}1h4?KyrgmEthqNE6eauJYRUZt(+AUi+)bfn!32E z8Xz2cI&Y?psg@~cro<`tX>3ey_)TNcf8fsa$JVF+qCMeTrchpxFKQ4FTfeAEHlQRp z9HT+Ze+jDcS`OsqYN-RTJu0JU5gwzSr66YIlga ztsLN5EIV+hu0xA5iQ>t2s&)cqXr13w?m4!i?H8zqUbvQyr=H}Vm^9;u@ZFIU`tQ}n z|6a})B6g#yk`hLUiu=qBEL~^=j8@&eH5BR5{LY`KQe_w5Yw4Da#O9=Sb-la+r2o`al0Nh`S#*W6_L=3=54 zXt#h^I$N6+_8r^9R{bdDf#Tf>+xx4$(~yRna>x_4-UruYq|AbZT)l;Tpp})Ve|%1b?h>h z-JO*oLBhDo4AZl$g82JF;eU3zeLYyJ%FSODgh<+_z2~Jcg=2eggWH=e!Dp%2@z&rm zJ@>IU*z-^zY4tWo1*dNTosKP$w#Hy^B58IXpQV7N?V(JD5X}bACbZSRF84q5?{9)J z86W|I48I>t#@V$82$n{WD>&KZcd?iI?zC|9**%V?wQ7T@*ex z3)_5u^949=I3bB`ULzCU%T~W5;q(l5`<0biiC#*JY}fDvjX238XBBRWHOlsx@byMj zLc(Q7JG$kcHGq^Za};=@lR*Gjj9dTf zIOspN`p&W82ctQKH;KT79XSPUX+?^jKcwdw_nj{>Nch7y+DHs@a1k{RiUlJ=o6P42 zPQ;g6=g6U;A&zwg#!;nZ&*cEl!9#*qP^)2OUi6`=@cnq(B&n>_GNwf;8jeSEx8K*= z8Ih?*jik-s&m8pFFU4)Gksmn39-&{@+@NCk2e3-t$D@CVvQvIb-LUok7CMtYGwu7 zokWCrLSJm}##m}RR^=y+!+v}Nd#tsfwWh+=;BrF0KAqAuNG%fQdTB0kZE;yIQ-hnS zt}=(1z?AY1xW{oMP0wa`P0>+Ka<|O9{5*94a&$kz_cT$b;t|6$c6UC-xJFKACvXoG zv-DHX4gGJ}Kbu8{RoDi!Hi}f99&ECYd9-B3R_E{1xk2>sJ$yEHLb0I*0VN={Fn< zFY>XlbPQ7KiC)HIa>wl*$0L;hVbN%7HmF6|%#jK`XCR<3Dc`sRU4ZxdtFML9hrPH?bQS+_k?Y=o z8sG3Fk<>knrN<8FoE1l_Jt+<&OaQz~TFHuY0wJ6hnF{w^Q)6u!K|_ zP~5h*oLb-GeAXYTo%kksrxUEUzAM1{$(QZ>-!Q)YLq9`S1Ff! zcgmLNT=GT4~_#ZwN{Ipj3vl2;u z?`!<|JYEMq^uy@kLf=-3Fiv{T76<=?)C9kls5ccHKDNdOh?3{+ zx$YJVSgZ*2ms8Kn&shpT9@FV*F`YQh~ms%2C;HO=NHt{RPWtWN^=&+O$A^+xUUMj;2x^hEWzUt_sa-$I2O{j*W)UsUg?lyzYK&jv z$H=X(L+zF-*jGiFENzR)JEEgWvj9rs9hCp%N%ebM`#Y8~46;fNpkI;HIe1 z>mHe7aI*F&uIT4{o+11%1%Cae?Xe7}l9;FTz+zDhKc=HEzcq_CfjG2SIUz(&R_n3Y zZK*ef0)dyH6kYaCauXU`oU6HJYXFo=s=pZ1N(8<9H3~99YX17kVO9X!eg*d4Eq6+BG(yf(rGR1p<2m;c1qEHz~1#4S*Yw#Fi4f`dzL7%aw6hZ`Bd zKVn&JO-?*OGd%n9MGkWqh4?d9nAY0-gB*Lz0jZNz>w(+rDT)bAzVR*}+=2kTRIBw< z$+@SZ46XPCgEPEnlWj+(G)V!BDDPomMsn5EV_jVyQM3(Ji6`h5UbjNzy%*|YeND#@ zKl%ads^Vct(u$d0WO$+@$$oN8L>E;X4DUs+faJhl{EdSc9ns-<2EEdti3jKPVpw*B zTH-{ktZhq)UnN0sRIi4+5i2sU>LRLE>T^_8Z z2u@YH1f`3g>eo)Pc7aiQy;NkV$hSsD_HWHC=RF!gRaqr-C3j*@`@Qr&d$1X99VPIQI?&J zdm&zNWn}pfK$$b1gB%S=%c#IR( z!rtx^LQ^5Aml(A?+a< zPp-m_i99v0d0dsjGhViX1TTK<5G(p})hYmICEVW9)hb^H5ZhQpL1A93w%^^NOdDie zrO`W-Nn~_-Bwn96O*f60Q&D3`8u2K_SL#9% z9}v(fFB8OPwL22cjwah__EW#9ysJ@~&Im*1xzPKfSd@jYsxa)O%9Jt#Wyz!b`W`8^ z<8%&yOmROa7Z6x@4qkza5Z!?WB`Y%?-9=UE=*%lX5?;V{b`1fv0{1A^0P5@_3)DsT zN=eM@CgQ=koD+t)wys35QDCqsXQptcXx_l_g-6TONLLG>*-Ik&aWxvrKCavEGi8pi zFeTrxi2sW(>K_*NE0meKCe%r#Wxhgp+z?W$?NsxVCs(lFDi^qn&%6_#f}I|;As9ek zXOfc|*en)dDXtK0n{Z`M-{9Raz%Du+8eTat#T@Yn@eP|fRvS6!z{eR;AEt7lev?*r z`~4bt48NtspdE_|8PPyk;j!{#b7UDSC?Fvnjj9^vzk{{+_s4hT>}cafQN%V$2o$xbfzmX91FzpkXG!2fs_d z(^7Z|;#dyY6_U6FF|h(o8MQTQ*t#@v+<;m8M$3q*Mko?+L~@P$tR*i~Bx=fkIo+l8 z9C=b^7KzF09?&Do$;l475DppAI1j?}6Xvj}GNfK5~RB9Q(1r)~9r z-Xs3VHNLdI|348({!Oc`Zx{(+zR`QTit!#v?hL2+=SXL2ms zs1XfWoHdA3oN_W3){lJ1(^iQMhz;>DuVkeXx=mnPS;jv2#^e0nYWSDW`%&9Q`6da6 zAoa$Z2|eu*ea-8{NY7zwAUXsd2JioHf7+E_*-!oB*i|dJ$NulbJgyTF`pk0h%`Clk zN)?v1?D>E!#XWh5msypNBKcf4sD=RTIWmpC@$|^^PD^goY2ARuhkDsAY_GZ>inGC& z?k!vx^f6{DcFMVQ>d%R z_U48~Iiitu<#@((%|i~+d-VFo<)H%k&=2px=BWU-A-8t$aE$UzABSnSmzC9Zv!>nj z`uUSkn=|_Z^ie)Ql%;_0emf3=$0z646gm-;r5&p;i85ohBsg&GK|XG@N@n{ zoaH~VG)ObvB&_yqFZUIE*Nu$HtvbYX2d3UY^;S6EfL>Eaj5R?Or|tHMv&^g1wa8fS z2j?7FUSiLTI#{0Vp1=h4RNF7==-X5Kr=<3H-9UyENx*Qcsm836_xZ*Q`yQH}CJPFT z4lD2OPj3Ufn5y=^DjhBRt8yQU;$D@-O_tVxJ!|3jbKc3*dq@FI(*JN7yXUoW)*B%Z zeFL0L+KiKcWbb}kRyDWu;DM09=%VIha}8t33Y~yD1b?SB+%+la{faF=XtGC(!$+af zOAsZrw(GEiGN>P7W$-|H@TGyxHt~xBXBB~U7181@3{&sy6d?^xEF?YytQH4`u3YzQ zPwR9XXEi(Oe>>IjN9K~un7%67q$dU%7Px3PB#DB+{mFHNu*WtU_#d19wJffGd3^jd zR?8Z{f3J7uTKeuvVo2}`i1=_hA7UWvqgMnUx2Aft+y$dpodS6)Ac|lsZbj6hMg|(g zz+ps1PbytxDC3!Sh`u4Cy45m#$UIS3fYfwI@MKVyK2c1C3R2q%#XMNiF7r{{h@%G_ zZ#|GLQ(1hr!50ma&3OI$JrgEfW@mCD>hp;Aciin1#~$-EHNryAa5dI_a=|m53VXwQ z=*D8BaOMsO{ydQNchx(wiAKSBm1(TkoK2lh7Le1@kE{}RYBUnZ7C*-M(?so!pPdp7 z+z)3Gw$p2B7m**~1N5p4yDHGd^=@Y6YNxrNbqLjwTs(m!MTHm4394^2f}a zFu2Yy`i~$v1EMz-o~D%N?LSu=X*=+t3@zN9ilZ5-D2<%-t|vl@w_kQUlbuW{PgZ^K zP_0gg_?q_EbWnY^hScrRSSMxt`w^{hx?BH_Icm8viwP4OBZJFQ_T8vRl)i3CH9o1o0b0b;_BOCf1e$BI+|Tx z2uGtJKN&gmQ3L|}(+zCsM|Bn5Cx~ynC<%Vr);5tL2$hDh_VMVJjqSJ*4eIC5;aLr4 zc>c+}K26Wf(lJ$|Jvq+M&1tsEgY>s?(eN9A6nEUigk9_I0zvqxxd)6zf9nT=Sn_!Y zH=et~tk?q!UJ+pNDJ$o_ojTyi=Hy^lukFFPBG}d~pbr}QTe&9h2%;8E)EJC6-!0>p z9mK=`ZQ=4I-0|#qF(WqS$Ow4e0ogA`O?6X9gB zuHw2rfYJS_*w0a|pNjpIGxJXsTTmtL#1%E$xjwFai;-^oF+acgBZ+IB)m+`j+`6R# zoGcoMr~U@m`}Id?3oY9?sISW4V9%h%eUjqu#v0$4IrdpQ3&c&H+~1{tK~5?Ll3n2x zWQAJ2v5KD_^PqonKjV<gJ=fb-?kt%i(k5PzmK) z)iEl=Y{_=gdzw$64oP~P&G_| zvrac}=c-D#-x|>BN-@aARjq6{EWyoPC%k*IcqX+Jad*uln355nPdY?|_OvjT};UWhiceVul=n<^J!Tk`F^tNnP30= zM}Y;V8SjoQucSR4Ib67o?Mp9E9f2i<2!2UKpL(rHD(@*{J@7M@R z((|TB8TawAiB9^Cw-a}V<#2ruWe9f+6u-gTRDcrh$_ALtPKsSmiEby!N{b(RmPm3P zH>?g~ko^_-BOYNK`L1p+plvV2)Mn`|{@(PzB6^KEYYJAj%&ipggxzgO*U@EdrdU)O-O4``mT7IoG7Y^&IUaw1EP zzNrtupFVQ&mfkG|Se}a0UsV}!!ar4$G}AQNDvLc_qQTWtTE^jmmN!Ri9`flR&D3nG zPziV@^|=q&cwA%Tq~%CK6nW>k6DaWK=o(*IbiUk)I47QV zYFU)i={V*Yvz0rJDbc&~8AXqT{AcdVa2U-8 z+7Fk0pEWBh?gQ`#*6^`v3yU1yk%iw+1DciQh45S@`#%$9ztIBz>4p9$w)@C!fa+Ra z6#i;US!tT8ADr-vIbPuEUe%s}@G!uK`vSH6E&lK~7_KdP&P4s2hadEp(Eg*A&qs$y9t;EiUizH{P6vNgHi4VrBSnx{_l z&a`LwIsL~f5@3Z()syMgP)t|XH|3+qW(}|l}-}Yj^?@K*doS|^TQIUqL zra~PS?YJ_n!;Zu=ZnqG89ZS%V7s7@Bt*8?85Y}>h7Lm`#w*8DP9G-ND!7E0EgtF~et45?n$BF?l%=WD}Yh$;}b7PttHPr3MX%F?h#mp3i!2~7`_Rs2!9g$Mu+84Qs(F! zn0Z|Q2I(%-W~g+AN)}GXZGhfHpg9Cvfc{8-;6YWv;V<{QR@9hr|wY6_O%r zJ1ft-&5$i?wok~sk_uX8`ze#vd$VYe_tKpw9WK@{LFdP0Cvru7&kuEvwW_u%r|8b( zPGgzyvooGnYLpEI>afa$f`xO{GuLFTAC6NGzrXJHcth>swWGRRql9z`zieyGeMNue ziJ&t zWrIsrsnsofwG!bX0Mc*=w9jqI*Ll7jQ1ZfByK6pGfKsbh#(-PbN}S;fe5MVcChLc| zmw}7VFo50d#gB|UAt&Pisy6u&bd$T#kbAjh8hSx{^4v0RpH2Wrh|=M~MQhX-C&>;~ z8G+MQN@Z^+8IwIOM`1N-EVhsMq96l3c8%zo7~R&vhSW33jfIjBc)vsv9U)pippy0h z@}>gDC1`)!1b{x100P$Bvzh>Tw5PiE;v@oMPy=o0uU)~?0S;n7$m2dL3S7V%)oy=G z2GGNeXHz&(C)!HrjfO9H#Y5=3A67;*2dlhnm`eKe}LzlLnOeQA+@Ast|uHc`| zkzyLNzG2%QJf3r5;$WJ)1x6hew=uv;k`(LpyHEn*p6gf{jL^==NQ*k5KF(NY0Ri~+ zQ-id>8%};fa3t>#7`;~&gY_;!F9vCi6$!YtqVd(GyC-4=%#^|!SdLD2r?Rb5Rw;yh zSnror$_kda(3`WFMCEO8>cS@W9RkydQi|I-flR@eJEXJIgc_Of1#Ya}>W0C~ay4Yz z2#GkQh{q!v8ij*093LZ@FD5#n-9qiH9B6%ozH&0Z?iPJ%z(rg-V4^WFQxbUzk_ZyH zWng+k2Jd66YsvbD1JUOaT$H=_SI1te>LXgpB!^3Q;|dC=Er$%mA05OaRr2oQ)#NiZ zC)QJkzc&Os=&?4sZ!`j4+GG6qn2f~(Q6X9mKI)p>lsAa>n5OQ^VUY;S6qDE6R~*h= zF}_o2<>R?`og&wCxo7c4lJ{alx_o-fxsd2nIov*u@F~>XADZhuc$Cfm4DB|=2kh5# zlbd^h5k^38SEVL1lR2_NHPwJU_3gC23!&sVM=--!#m!|7^hD;k$>q8zQ^ z%Yo%bM{^bIf3vXtee3;`we7RtDdDAe*%kFoQWW%#75x_U@ugi5_)}Aaw#-?x*Y@`v zNd0zUrP*Zyj?yZ;@#k1sgGXC2Cu|81iKa`Yc-Z~mn`Fnv#X+Uzg;k~F%Sy^AtrGma zt!7YDdWL*uf!8$PB1esEwaNH`nz4K*_gA;Cx6lz;8#fZA;(7I${Q9f2I1BK3SvnXe znwMWbxHYFTKvF}8a!giRY>D1zYa&z7&ml7R2v2d9nntrquP-(9nr;uJt8Mr7dCu$e zZajF*p4sE;bV3E>**Wj)VuxpM0#12fw~zk32ifd18&;1*dfp(C#w~J4$z#T9V%-iL zoj`VeWzjPUsqFaG3d;pM8Ko*z4^6b+5oE8t)_#DsrC;iKsCzhhclx;xsW<85YmMNC z&ERC6lYqwI$k5!hsdlPP6T=2dZIem3M!ZFbSb;?e2%t0*geH0kDycnVTDf8*(oAlW z!5o#ky1!;aN3$9};mfyjgYzN->X|)e5MCf^SkSa9_%i&)fM(FcjYbIcg-`v75sDEh z^tAM})TY1E?i~VK3o@rY)KX8&sOG`?-CftaOWkY}u&>I6bH!V^h^j_}Tko?y&dvLndI~6tz;vvu?MZX60bpZb zUC@hN30&oGcHCe12}o|WEjPu|c*O;oyn)$L1@emS0mX1mL&7=<&fy3y5Z3{A?61CK zO0SbB#&jgVo8_qOj>&`IyX;{02k}T#Kbenz;j*8Om2F=Ex5+gV9HE5(c2NBX@z*M} z)!taYpo1wYxDKB-wS0CHkO}zpaF^t?l{4)$P;H*;!Yh}4LaM}E_%z^l7dPVFohgNG zJ`HL%NPczmzPmI|D-ZXSNq42g^l}$t?aZ&Wo>2IK%$RT&AV(|6yZ9aTfX>kH)i%#w7!#Jqns2D zCG2y2Vq>LlcvchV{G^E19Cb6=YP@R36`6Mh9usSAB_2shu)i2s38R7=p5#0(32yMf zQDQVB3r}Tx+2|@J4#cnn{OMnx!p*5u^v{sJw+}hV#QmY2Qey)=1zF-a{@LL(ZsDBe z#vj|))8diTp7tL;sznu6KCY5*YG12!Y=zO+J)#z%+9rIJJ_fMXRU$~eBAhDTq zD5}FtHYj9!ltrZ(t^7m_E1bHro zR;4<;zwum6ylkvDQ62=5e2h0a6MhSSf+3NcjRyf%<3Lhig`@Nb_XR_$r z0?YBlVL3(we!Z2zT!WY}$64IbpxLEQJ0!+#-w}(mNwyX1XgQ;$n4>-)Fg4TymOe!9 z(JT2tW_hFQQ0$>%)MP!ObiIf|oY%g}#MHL}S*-Ao)w@A>`%zGge%kn&+Tp_&-f3!K zaG2e)cO+fPanW4poiY=@Gk<+=e*23a=lN5Q6xDC$sZhud$Y)iGc{6V3G%nC?YM@p! zUGBGn9U-&xwcKNybbjYSmxIhkRY;{#MHk62DeI2l(cQh)o`95zGcfci^d|M=!o%jx zk)u=5Ee6OsA%P#pGr#hgBLjShn%u^yj?otSDLPpIqF;UN2b~dRQka+CoSdo-$M*Eo z3k;fTOFh*r+c|w!DmI&Nlg-zQVHs6hRqavY)9C`w40$G{gUe&$q8y%9Gv;(59J-y( z+2Ro$jGPgyCQZDiGAXPWi3n8f%=PI#K@c`5c_E%vXu1?m8O5OVP~oXW4X8}4jDnuH-xTj9 zk0O!UUV!KApq>sEi1Z7cO0m~Y_&2IZ+6Lf?=Ay%Rm!DcThEb??ON%7b&y{8zjb5l2k z2iKjKhe{02!T-J6EoFl!-jvgoSpR3@4`*MmV^AhvLqJMjS_pMaF;Q&SamsLRS3B1= zh8l8d?lSRPfSdi{MdYn4R&kpWl967axx0iWbPhP@A;dp3RqRB#a?{@o%`Iczp|Urv zSI^h$d4^jX?(3FU#dz2k%=F{>fw37@W^R~*l%bFBGiX0f!INXYt>cvHp0&c~ZFhQ@ z-bWW%3lB&&+{!YpGb-ejjeD8<#henOTk-{2EZ-O~IUeh;>iYX0fSJQbx<`D#_jRM%jd10VAwam!>#-C9C~R)}@z& zP(quE+!pXfR3{i;b|e3Tk5gps{>Ab^5cIv>C*pYLq9@Q5BSt z(>P=#8FL8Uq+%%;u`FHd?bH}$?d+^$UY#!rt%ljq2#-cALs-(Qg?wg5jV|5%ky9S?QdW3drUJ&x?LYNv9WB|&=~W}@8G+c4v0q7Mz# zcpjlf?b#t%aweT!XE&(f)Q;X#V=KBSF1PC51n29q;2qhGsL#(|lWO3mT0)+;m`xrh z7>of;w{&o<-lLdTsa~@la7yx6c1tm^a4_T^ga&R~N>wAV6rN7GZHm$`R`=(urmR(- z&VlcISQ@s!BSEg6A4tXLkabZ{!990J0NsZst)7B7w9~qsV)*GG?c-5=5!ud!0dm`8 zVg?jyr`WdS!hwmWjY=fzMP74=iA*HLi?7)2ORD}4WA7N9SZ95a&wt4ct=bUx__sd;(t=_x3c6Ar}Q?2gb?o#@2iaC_6y<-$MO!Y}E z;!wR{sZPBG=Ga-lYi7XF)uzUX8dtL~!Bgl+S z->)OfO$nSf@<7HDq^lh&0WGNyhbg{>vd#=h<%}C$SDprU`NU3Q8Zb2-a#g12S1x$0 zE{ivEzo^>HG;Z+J`vN_dZ8!*EAT7>I0Tfe!+1X;^se|jPrM(xzDR)&#o3%ul-=VsP z(S?YG5SsiQv#)|A|FdgTHcCW%uQG$jKntVwuL5`$v?seg66?bieo=xbL#%@5>%z{Mz1aiGIAKO!m}0-6tr2lnGev z;D{bDI(0F32B5yW9tH~>SR8>T{ZrbI!4dgQ&5Czz7%i(j5wmNZP#cgo*ZN}-EMf_ z@Xm|WQz+@?H>%6caAJtImLu41oN4|Y$ z`?RY6xkhB6oaQ}KEd=*KE&Bf7m6~%ifcxR~-%pNeejC{J4(@G8T|QId)HmK1wFHi< zCJq5%$aFfn_s7Ru<7Vjl>-}Mf8?l|{EHu2!faj*oH~nSz0$}s+35q_$vE3_jt+hj{ z=sB&=fORPM8hYGdEROmd+*LXRThs1~fIj(OyW^nU3{#w2*E;@0E}oqu+vlH07gy_p zHi8Q2nrBSp?} z#tAzbCvuIwXkhY!u0EYrX8`)210PxjN{&tKqc%)Wyq-CkB} zE5FQCI}|ZLushVZ*ich6Y@V9jRF!Hmg(IenHEO9db(%6LBRMIKpcdVp>)KAMOqn%Q z1)&z%*NKQ}y-x|LO;9I5)ObZA&`=1(T>hGQ>5vk=WX%?eGt4O<0(~#e3 zg~WA~D3z%k2p{u9rm~g~sdGa~5fZF%H*i}mKV~eXh+0$-&A!llSbl1EPj+L#+qq75 z2YV-auRBJpLeId@8@jGS9%T38D)k)jo1*Ka4HV{u6fZxE8BC!FqcK&BmQI1^8i_&I zV@wS4(bhXBFze+QUm>dRWS#~%rdZQs|7Dx7 zigm78#Y9y`Zcmv+vH#f~+ix{i=omFVrNWn=R^L@g(NcPtIERqib~9>%I9doNgKE7Q zTg)PRyGcxsoopViK_AqHGTVt-4L};f4-@=LkkHh9^S*IB)Nl0>9^cJc2)aCYj<-&K zfQyLg;kN#VMl;apEUcUcbpl_zwR^q9AsmwlOMd-@=8f26ycP{YDd!IsdCX)~uhmVZ zl@%N>okveHFr(n8HHSnQKgG%2>=QCkRIQSZ(7kdWbJSCjp7bRLqwQGxcP4-kO{uD6 z#a=6J4iV{Dh4=4_mBid}+c}tBy3&&uH8y&-v^2t)PI`i;z+TYaqkmpmrLqz{h*3c&jx;$fqdDV3(RuP&0v=OWaxzT9X zWdajOsTShS9f&$m!bl>mYzRGY7Z$az)3^vI!plcm+>US@Dpt->tff3S`jLUlL{po? zbeage{y=-@M6xzN9v<62>5MXZ3RZIwh87$*I zht9p{$xyw0KsZeS$#NoEhcps28cEqCLaM&jaXFqPIjyD#@k0Sk#H8Jyq`|X#yz*sqr*FN? z*f~GSj1++PR46}8yY();u8p4x5G~oB60n45jsz$9$h^({I)|p%>-&jWz)jg_;Bon8 zHFVVdXl%tAj+XAA&yemHcIx8OPct9oF7pNIw~33yVk&)&0HviM3*)WDlmlZ*F(4R? zf4nR-P?wPGU~k%J3;bdA55)0}RMwfXaXi;pYnw6?xs8_e^B;KXCC^kXh6@OxGr_Vx zstm3}$~M5$Ui6Pi}Hiz@C_DVI@G1mJ6p=V#nV8T zW3*hR7Jm*DSiilYd~V_49+(1hd{n+|z=P@YmvOK4Js;_vX~GC_p@bSe?28B5yuv3S)GAg2XP;RxUIP6(#-Xp zHRXVFV)K;2l!C#v)WGaqnh0Y^W#U4nHmw|&2s70-6?DmSVHz=*2a+4(%c{DONgYZG zALUnyL<<#JBlM~e(XQ|O-re5jN8Clt?Zrr5vZY$ECdO+Iuc)M%70NAQnmK?iu^tNmJs@Ynt8Q(2R`L#%?Tphz)()e1o6wv(UbWQX-H>W7Xz2wlMnkcqzE@C}{flm|=9bNNkj4|UtSbF(v zyNISHO$(j9)*(`CpJn%SBT{6Y(sIwQ$<+-KWqWicQcMD$^;LbDgbiEtx6oo`FFxL+Avqm^?gR`p|Iw)^o(TK=wDIPVW6er42dO&rVz zG;CNLEcAldqUz?2C($g)&sqW%$%UJE)PIWJ>B4yryOfDWa=I0{;RX5!65a;!+0Wmp zo)pn+dzQOr&vkjs@hS%+=?4cI_j4<3nDZX3Q%|j9;dWVpv9$WL;${Bz-apQ(Rd;-b zck$LDI@hY?L4b?5Xr~lsAtp)!5H#zfJKYrXt7_)o)PlC32^()@nsb{iW0T-FA z8sQl?NR;5IHP?#<$Uh^TH|)7PZ-L8a1F2Z?ZY9dnB58op58|5|g05@%^n0R44a~54 zW_`Aj12lXIV6MFFX1SA&81Z2DC*F{uhBG1WZC98L{?JvlnRLxL0SlIlx9HMXu`5QK z{}hio&CgPZW^*uwy5w|y47zjCZ;U(nqWZ5@)OI0l8BXd`ax#2rW>c9kUPlsWI9+@G zu(hn(t^ofput(z?KJ7Zcat@o|-No~%I-}*Ui>_5G_tEs4b&Y`newgZdVR1`fK7vsW zw*+4*Pj~pQb?gS4$^IZDuh~X!W5lk6UejDFp<;;Pw zu8Q+e31oX4+`S6Q;t7-z73Tr6E-%0eGAxx0FGaZI>PWr(orO_3EvjF!Vw71(I$?(b z^ViFj!0rKoK-##jP0~BW=lpzV*Zb8lQZ|+G#f2ScM@A0^jV0OG_;5F`z_H1A^}(Jv zZ?w+#oBs6P>t90wt+h3;;VQ7`YJ4$7C$VBDrork8LA9+5gmVA$uiy8p#gmB`{~mE_ z2*G#5SLC+E)Drt6`DoZiWDOMCtH29ZbQ%y$yycPu&F~T-m6-e$elwVuB84U>i7mJl zN--{jsnX$iK1T_jwsP*XNg}^=$aI1>0}xt`XWpnWQ5wpKC3R_!dB#ZE^i5g+F{v4Q zwfehQjX}0<6h>Bjuz@|IWzQeR)?7QYWuXjTc4jzi7HVl5N>5+Us9oX>6#k~0cu|CziMD!{d&o6$Q|+fKE%P`B~4!5XgUNP7yN4Ozkj zH^6he)x)QVNI9IE*I!tKK52f-oyPB^>K-khPYr4hLXmmEj|(bg&+re&X%06?;F1TM zXqtmESWs=6F`sB~aWT=jHV11-6T@Z*irne?uvg)H+-R~sW!DlOe0AnwklsG{35>^M zzu5%VT_!cwv_Gw^uv+$h zk4J#<)?kC6)j{9>FLFE^6?r5C;{HX3SLv>uM`It{Eu?s6ZYKv{ zV9VI3KopSE{-*zV=#fl!hy%|(7|8jIw-vL|-p3Irc6kf0`!gw_oPU_({hWFc!5AH8 za~D^`{`>~Mo$d+t8DgdQ24RbH`-c8Dk{SHPxyvu5{wiSQMOAsB`#Jbm0Qc51bYzUy zM)Sx})SB@~`c8rZj-Dg`c&ZDAGl#}=XYzdE>#9e;gccm)MYR{2sSrJSB-qGEQb#yF z#Xc!G70ei9tTaqBJY9-t+0^9a;qoCs4q_xrwJ~&8G!6B$t|V`47xJkvcJ`o>V2-dA%C1*B^p6@7+aHcq_s1M9b+w$7M*HJuTT{;Sd;y1 z?V7M5q^NtY=!TsJ4_rf*Jg~+ur%WXhGo?kOlz_ATv!^8Klksk;d7P(AQ3ym3EUJtc zHA53xrVAmsNYP_;zTiZSm=wF!UQSXSiH2{m&TmCxMp@U_EMo0jI6k7c*kdZ7H`2%o zxx83DpiC792Jga3M5|1_Di!o2!^xGVrW^`)#B5%0-c%Wuq@i)SAqGuAioPAwXH@L+ z|Av_6LIb(^W0tM-@SZ7%usX~B`{75Xp!`_v4$MR{N-+qzEC69t889{A!IZ=4QtSw( zN(!$$09khqqk)f}oRsw^Wqng4S$Z3lG^P}7Bm#CIwL~||?f4}rqAx4by;Dl9RjJ-7 z&Y(iatuFj)6Awnz3+O$zV8xTWIX#Y*vG|^t+-otkc*`6G|7Q%wJTqfsJYZ-}2|KI^ z-9nP;wub{P?9?Ka2A1M4-zLOMigYyv*L&+wGflVk+ior-619@5V{uHSfLRmw}_qD#`O zB7PQY1iNeDr0$OQb_709%!8NF{jtNg*F2tR-Ehu!zJ6;BU^uC|r+Y}{+^Hjgt|0>5 z#brgHIkGN52#BJM%-7f+Q#4ot5hkXOZ+1oGju(>2VR0K{7Icd&Hb)dUWp00xB4d}K z-&s>dZ(Q=x09^Lzs{WHIr`FIsN(MZ9t(UDLx7Aw_^bVYG5yVuW6r+-3Oy|pUD z<&;|1+sGat#fqWWhPq(7>BfwE*iO&+`cBD}#OILX`=g_VM5^yI9x>eB&>$8yg zG+>A+O?d<;1XY4~gxFJ7)ABHIEDNbB!W&wzVJVP6$?0K-5OU%7-=}|9c3T&>^BB;c z54B4<`4?(ErHTo=EzH+*)k&>Gpwj4%3+~1rs2kCBrg5p7m9*jukxQ8TibEJG-8B-A z3@pn@c-%5xVLlM5_+=n|%P04$N&Z%Kia+QnPDgLM)k_ilFLR|gqy zW3`JPk%Zs=#5KpnUI)o+gZM7(LiTn5AsVmNk)Th}kqMXoP$7j)K{A8nl%*KJ%tWic z(_%tCsJvI}oiizM>j)HyVX4X5Z?BJFdM2@yG`Oq3F-mDy_hCK2Qnf)5C}0u4X()j6 zLy(!O4U5URYv}qr7BX^0>(1@NkmcU?sic}FF*~|mfKsr}XhLBMYzSy^(7Zy?ISPev zpog&O$+~c$O!$@cml{5@-L|H4dmesjA44|s%P89pspm|5ESJV|SsoF|r>RSRC&k;N zBb32hk+S%@4aoa+Rt%!e#uryw!3@k1$-mk&k`RuS8PPtiloLlyRtcV;X@O5?)a-a(O@J;6S4B6w>;D7$R*QNywoM=443!EryG!($bk_<)-+)GH% zR^!!KULgu*)ll#99onb2s^BU!_~rZeAeqRti5g#8=I(&AS$*P{{!`a3X#JL#(G;Vj zDHsawOv9wrx<(KMdu9w{wS!ekQzy1;X2jAOVy=TE#tqfs>Y<^+*7WWD3UV*SQ(`^h zg(8~z9H`e?4;~|63Wp*5uY4R0Kq>PhCmupD9TC~H85j0rd!wy)7!@-`mK7&Q$kI1^ z44G@5YaSCF_bt|;qI4o-%OpyyH2L0{gL|o|4nDI9UW)-T?*sHnkVe`zM;P}8mPV%_ zBr(EiQ4rc0+X%U=*J*WMXxL*8&%nwja zCCNkB3#3}jXjKRZKRKk44`2T$b)1q!;;9eK)jM^8WPs){Ny_WF(wW3n(hfm3Ho6p! z3D@rs^YXm4`7whDZ^VT7$azzyVZ`=e?bbu?lTm*CVmT;nIsL>o?}9Y{>s7T+J(5!A~c(0W!uil);p+*TG! zYl96lyP&1k7ii?eQk_-R*GtRWt{PFA*l#cJ-tlQXq&uOL-bKq7>V8*sASy-qGU$P2 zJJcpDnwr=-*2W3M`fRZuYMIK%qS&!UCN9i3p!hj(LqYC~h_3R0iQindeECPPXUqh7 zA7$B~+#u$k;k?6hErQ`2_D;H+e?4a#!JsE=ZmExzp(SsncvJ`z!q$cXh=s5njY=gp zLsS!V_GFkKHW$|?pY8%Y{*{1Oim32$1pB^#5pHEJQH{>!cd}?SS`ZrT4qG9N5fHFp z5eOR{Z;OPBkNhR7*Wpjj-QXhh9O=?AlEeLQY* zmMuTI|5ZPBo5@&E;sZ>7P@lQ)@u3xJ2BZx&!|#vzhbmT225J;)Np26yg2w&?Pi0Uh zo$Hkuq=GK~bx&j_35XK82< z3pEV+gEpom)w zn9_Kx=$(3#O`7_A1?-e!;*I-s#jlX7uy=O{43ce}_gCARCl1SekH?~==HXD~x5{6i z&Lv*b1wca)?%}F3u>*xTn(hW%hZ~8NkjF>zx+!Wx3&xz`2|E!3s<=o3#5mD+9^x97 z{r!i0Yc{z!SJ|K})C5v@)R6`{T`1vB^MZ1#r7cK25a?DV5K)x#-VF5p8)wU>mmfb` z9_akD0WUk{ts6M6s6xpgCZO=w_=^lB8ZBRzmR$qM$-Swgr#ePmhIc*;r=iQoXw$sv zfjEq+w1AlLsg*jmgW;*^TWo*0TGfF)lPY(%75^R=GNgWgalG}}+32Rr1c>!)yvYux zd!=JVt|o$(W`XMxRy%BU2&0ba11rr0#sT9is=Q`+CpnO{cpXpIeS1g9`4oudWM0Q; z1Eg#Yb$d|e4&H4#gajYD=yWS8JqYI~{?eQ6`?@V%d+f4K>AqBGi>m5@4UsGIWaKF& z$xhEb-kB}xSrf^Mi}B4#TS^j&bMliIqj!7nPq8Dt4tx9(Ht#a1(=ug!S|v7Lvfm5+ z>ZYphW9yIAz``|fEv*yzJv#1fYO~%)63Y)Y;*%Fqr8a%q=sb9a`2wUQUq{y11ye`w z&wJ=h9`~Xmckh}ku8bM;`Kdk|=b4qjscT$gL;Nj{m{35VCOo50;hiyT1JY zGnkF=zXhfK?_74m|Dr{e{sVLQZvV$T^MBO;$B+M*6am^e8rwKJ5NZ-K|JM#7^MCad zGXGaEA;O@V&e1r399qFIq2mJQRRcB0dXFwyTv6MLoli^Hj>*`{2_d~J zTlT^PKY7wEa+hy@9*y?JPTL>d#q*JdARr*{IW5utk^66UoSA*z^SS%$F5l9JcH?2% z`g3-oSa)OR&JZh@z=8iG3rT>OUw%A#{%d?L+qN^(@9W_vo8W8jkVm%I_3-5f`>dx2k^qp@8e%gVLW*2FktiB&lx!_LGlzb}Q1ZNWzi@CWy9NOk>xW3pe zz``%OoNY6~Hbq7HfEi)a*+09z4mH*5z2&EekGM~d_hisPjjTWW(fEI#UdH7@q>J+` z>)pm^?4kuZ8pJU%!tp6I?Sip*vRymd4m zSz`;dEgLb7l#>#fsK!y`3jWk8wZra0LF#Q`X3*ntuaV7I>$nz8xp_rf4$3CDv;D|H z*va>6k31uol>5k$*U@|<& zK&ioqv}4;%-(W35;6%6w8qtTvG|QwWjU2er>L>-Q<1ZRBis?x%!83*z{X^+ec|tcT zzp8OjBgx0JAlW=O8&Ty1V{Xku4?h++h*6|MW?y1g@GumS;-oNSq1EdF@vLW=#0Kqk zAjZL2fqdh|$s*#Zu&nFp!v4iD@^Tn>zN7!FFI`suFL;l2qKwB_6LWUUA4cN=1yuZz zbeI6Yva^cNWxu+p10k`2GC@Tiy3Z44Mjc(DYg`&2R=0szNmG+4hYkcrv)RG0@e}p< zRaJO@g(rBa85EMY=-)qf==O#Z5+&4**yXnp^t9omPwT#$zSkb0Wk@j$f`^$q!XVaL zmctMY+}50r^hL3W=B&8o-m)8zAeGx;azko-DD;X3-l8hrX&&_X{3Q-Jpmh!~eYR{M zNn)(`kED7@lLxui%Oy?%to;Y&Yh4j%)|UxR*7JGDwRr;N@2$LCn`nGEzbEK(NrsIW zSuRx;bAJ_|>Ou$MRtQi%=V)1_Yp}9BOz?_|C#;<-b8`3WDwDv^ehw23jQBdA%@0@% z{Bmkjt<)B~`Sn_!1Q6CeW;fH!Jx?FemDoQRp3zYs)p*nXbFlb?qS1|u4dVL^uCu`M zgzB)J+TjA(bqLHGg2!gUs;GEf!y+?fcy{lvpQly81U?zw3G)(jY!H#GHcadw`|LRX z5mjcUhi}~br%>yf?f)xEQ%I~n$C=@v2+luRHQTs%R=f0y-bHE~QisU!DO^jrZU+Ms z)`uvIYBx?FLC=Zf$1*o2{K(wmOIGEpPxVbyRP;k`HiXKN^jczWL>JRdpV1Y>d=SVb zE?{SNIv?|IwArl;EWlM8+ke-7mW%U`0A=1p5IZ}v^02}lKw zAw{SOgXf5e%Y@+XgCF5f^Mh>m#qd9~Qkt_?dFeOa^uwpKsJP)z*V@t}nmsSt68x8Z zqS2sbD7Zpw^oYZrO;K&!v8s608OV6~sLnWqOWGmCCeA8_=LtfG-3zpgQ(LKgn9L@z7TYew%86%B623rvMVY45puq|z9P|@$)Q!@3YwDX@goADgMfC4tKCOkOkBvG|FuD}u zrdWGC;~A&JKNIQ$@I+Gbj^uNgqJmPeaym_U#$bO~TzmB2QtOokKSsc#s96!ys}e{| zaOteZYBDDVol@ko^OBrYtj;tsh&#sb07bl@&~W`nyx zH^yE!KvOAN`J&JzwIA|)q9}<2?y?6^r1hO*S={xH93j{HOmI;ETUTmYo!46GCuI+f zm*DyoCo^>z?;9OwT)?cfrfgZtR?ZfyMpt|b+K?v0+%4iZB;}-j#MYC`of?B+Ub(yx z{pbiA4z3hCRjTS(AiJ5PKD=IG8hK+ht z!D&aSV*@2L8AsNqybBt(vNN|>ltcW74?*#rOQZ>iIT@Oh)VFN~T&w4F8Rb2#gzOJQUe%|(oZsZ?Re+2=%}@)RDx~X>*&=bih=E7( znuSL?0%fU!jfmdOJypEsZ&-&vwE9$2`V9H3AitqHOA!;jZh>D9`8@B<(TCUF{C|Fa zy*au4`rMN6SnbMlks2EfgN5sFO8qI|{r<+G@=L*Goj>=iX*WX6F4{l8=>g`gmrVK$ zVXXH{3MF;&le)!9n4k$c9!$txOYeNold=GBFWw(|A`M_0KF9WG-5gh+P>6wGVO$A11zgSYGk4KcG1qW zu}7Ex=!0V;e`SQ6nW-RP1R3Lm#9lp6S{0twS7P(%PK86T<+?$fbU1VI*GKKU&`4RH5sU&ZSFE1$uGUzMveQ zSXIl`Z6T&aCrBKj{DE*HxZs=3?ZTL7?5}0W_fa_kJ)I5_!l^igRdjPm$9Q% zX^hx!uA(cdfEiKriWQlsw5qcN1LMYdEW#vtsatv>OSO^mHxsIOPlYt}vi8)_H$$Qq zBS@76H0Kub3`CJ;|8;t_O5Q*0YX+tj=4UB)dSHb1RU;b<@2Y?(O4kNla0feNc_A#A z+GGYpOklrqf9?&$t2u36c)h$Mcr(*vA1~%#FZ8j>;G0UaP%n5KED|1;n?=R|# z0#ImmVf2Qee`5mOK=+5@V5QOs%7hR0yQz!Wwq#%f!C*EGSR~}2)Qgu9>1TzT(73eF zx!*lE%eh6uiX3O$7id*h^L&=TbwTSGO9f0W^kML~Q?_HV)@AL7+cjk}yF3u<#* zQw3v}TEbYXpN1Ilu_ORfBl9`7&ad&*QcUo0Y3q}x2bwdbMy;AOLUF|)mCjiQHr4)W z=*|gZz#6pLExWk}Lj@NHmch@==BN~fRq~P6P_sKCDMS*)%vg$av<`2Z;X z7J6lVpc)d-e(L+#ubMKT@!3)E;_&1*lM%WF4MIFY$UCnJ1mY4GaDxaTqr6FAQ>_a8 zEKGDntrdA}bMTikIxI1vM1JT$ZmF%hYWm1OW(D*II{#eVu&hvJR;lyx zPm|7BW1oPDrOz7bD#Vn=g~HfrvD4>BCgf1f%OI^9Xv zkb&r4_&iCov6O%3E?w5odWH~Zi@(RYeeK5hrv`JOv3#sIr@}hr-_|v!ocM}f-=sjU zEr_H%IFevXug`ht1#|Ft9xsCO?gGkCepvQ?F6_8^MIm+x08mzaNH(A5 zs~5YOleH=J8_dF1;oVg4jdF{YPthvc21X%A+^bUDn`6t{{<>V*?SKO8?7G!jD0f zNRdgFijnFIla0vs2gf2LFRJx2U!55NZ>YqLUJdU#($*G6PN-p&?v1w-=(UT?6?Y*Nz|*b1metCA+<3AZ6r}HS3%c z{F!f@|!Z`C^SOF)n~U)SLi57g(BYN9p^?4vW% zJ3r)4_!#~@!r$!I3eHHLUcUF!4oKHOPS%93LpY&UUjRx>`UgWOd|)#yvshbyiAm%9M2YxbQ7u{JQk3%svk_t zNJw?hDx==nodS<6JJo-!X4_=lY5@eX||iD=CGu~@tZpkqh69Wu5D$m9~2 zZ8M&YR^YaHQ*V#FGZ@J*R!b5O)*nbl3ASoXWxmG(N$${vIR z49LSe!Y`Jzd=UIs>Eq6TFy!ZSx)+UrYsRUFsg5`jqp($m15@?|raMQ~bk$+m$md-y z|6X+loISj%wr}3xyr_Zzo0ZD6p&x`jf~AJ3n~S|)uWNpL7~zAg}LHQ z6X`XX4#?&S-rYEyK=dq`Of5m(%AM4>!20WwUOzb)t`;%_Kglz>J^t|;kfpnxN#51n;ONb2!4~u+VvDATnT+G#V2%ea0dF(Pf{hV+ zSLtr7Cm=0BKvVyU{6~YF7|5k=Iw9Q|AWMl*usq3*LI%X|3oZB1T6E zd^&MNbm|8*FGhMh-QMp-?FkN-@F`uFdOK;OhN+wt#%6I<${t=~W~wf7Ih>8l)1dB; z&X4)yrY}>v+?Oi@u0Fk;ECyXiO2aIcL*+|mSUyg5^2n*@MV*Cc(8@xBu_teG0|xLd z)YKlXFI7=6n|TS8P$FrUi%DMxy{qGvvo@bA>i6T%@v`T2UF(bUwexBWg0s&~rQ%&dZm&Fi{1bZO?+ zEm1sHrNAp%@jky&ZT6l#lKA^TNyWa(QiesNDYXyPE;>~sGj%jfjekls6$@qHU~VQm z+<}NVhIDs=Qm;r-u~`u%*rB1_TCUx;QbCWFMr8i+PT*PJMsK0kps}$4ZbokP7JSEo zYTdT^Ek<~JbgUY>m~-^0=T=$|&6EMd3DuGaFTfXsMta)6dLZAhP^CaJS6$*OGKx5> zO6~frDbMkptLx~)R^)xMBOb)qA_0VKJKOsls) zk`3!jDvoL!MB-(kgX37Ea)o5^6>jOtmnxy0xv6rayPqe@r*W~#6k|nC`n#MOBK+lQ zt$Dg~>p`REyOlY{i5}wE!^Ndo^|?&m!dhF4vdl|E|1j39=n{|08bq~Xbx&< z4%CNSRNA0j%;FqVX*WL%bt+L9TJ;?8$2YcTf#VIK(9d=2IUgqpQ2`}h;4A*cH_uK@ z(&V}~$jo^@yfBG8o{B(_?s|e^69za2y*;Pz;C&=M?#DxWMb-O_jT(MCi6UFjIIM|fcD zG+^Yq?Oz8nacqlm-{N0cSk`dChfeF(T$7TH!n+i^5K1fJT&%9W5}P=`hKFrasQ}V} zAJ&eE@T9H@ZZJ&JrdjF}--*BOUOCYPndds8kX**itMg`2&>FaL4;ib%RJ#AnGT4YH zEa`Tej#++9xGAjR#4{s}$f0eZGmY{Qp$6(@i)r-kZE6z%+3%DQG+cT4*?s&{ZGoXK z6hotU8@gA{iCNz^bqoOoGF-QN7DTv_HEwqO(Eum@Kc+z&tU8OHYk5TPZhamH6(7!1 zA2)%f4^!1cGA_Nt1mme6I#=~YF$AzrUs*zL=CKP;IySdu`5(%%H2v5dbpjN5#*EU9r$_pQF#IB4^3QDj1)lvUmFpAbg7DLVvP8;m_jRg0pa-XwX5 zm{(^OCUK5~N_9|h_eV@-cd})=_An0+U0i>7%}G4oa$%tV-l{x{uY&O|Nnw=!Vz zWT@vqDU%r%R|k!(Zv&I`d0n0rHG@jQzlg6=mEt^OyxEUcxr*1ZYWwH>`OrF+APIVD zknI?Z-X>6I(-GsaLNhTFor$ zpTTRPT()0U%tcUq_9lZ6#oJl3@mSp-U)XLPK}8HiBmx_;!{Y(jW23rB!#q5gY5JBv&iKHK z1@q)#O&+J$wWFIj<>Idd-p$+6d3aed&d}BGtI#Cy8P3wDZe3x)hbyf1Gl$nabtA02l1@dp1 z@_K~1;|3l+eMN1?+AJKuIuIR)-at9Z6u?9ZF6HRr`6X>v>Z{@(Ae-e)p2Kipg3Q?I zMbOUwaLoEJW~!3~opErj4W*SezSBFeM)&b_`oT@?tVi}kZh;8HH|muNUT~Q6;Ub2W z9Hqy&S!C`Brq#PeGW>CUR)lwLT5}GuF&+xSc~_49q53~vFOrI@ywP)yd)uJxH+#?E)UZtL=kWFfN7Zix!j+D%>R+f9i;`7a! zXJ0oW=|gA2ChC$fAHTI4?&1>&J8q;`2Bhs?dZY0B!Q~QSwlMank)6~lJjNftiADOq z7?TrQ#&8`zs}*ggjp{pX=K4G+QpP0c$mlvdk3i4A-d1+1iT-+wwRttv)2Q}t9!nU4=py@xBUGT$|P^-@`b zW{ls#qfbmS)Qa>Pxgq#O_>bP=J<_Cf(@gtOrjSnWV1qljbTjAa@n;?VR$@FF>f9F4 z>0RHdIyp7)PVjLwjh5V->nTzt<|K!=I&FwTn(vW+irw2|f{)nz z;&DeK=VIC42qV>cPIe-8Q{V39iA{m@(x8Y70sp)pc!GJyo)gg}yWZ�?!X8i>1FQ zVvl%PMsdFH(BLZrbXBa^WJArm ze(gXw`jWrtzY-2KsLWy=pL(dkYKId87d4{fz7a%R^EVr_yKGPJ+nXf(shTMffY1@DV)4*EPcd$!hs~s z;8KqmW~7(Q9em4!I7}zZ)Dk_TCUITo$W3#rUj0RmST?&s-|?Ib>ZU^7UDP2<^EDuQWmV=a||D#rHCHQe`|ks)2uLAr(_!Fv;B zUs)BgJaTu1$UIjUU(a>Ud>?b+a#!}a7)&MFHUXc#q)f-7P~guSRYx9f#P%$bxXV7$ zs3A}KR#)T*-z`%jp~vSy-^wGM6Ri$+Qx0!4q?S#NtbNA|EB))Iba3$U<_?0-jxNS! z=)ujEZHUi5m%WGa=yeMNr!A}4=xQeZz9Kmrk7yyxo{cgSNxeE9ff<>Ac$(OG^Nu5n zpp6|JS7tq)MMdZ*tZZhXUPieaGbdgQ#9zr>r>RDCSlLLU#uOMihAE;&L1T&|f5u8q z4y=_SbkT1DumzH!I6G`Z4U0#fQ*Oxv#Y-%A)rEMRQBY5GGy*2Z^?v&c=H;f;_G8hL z{@&cQ5d?8(6>@UHX6Bci3&2Dlw~4yK10+%38fwwddT<;o{}6B#_na9d9(c-kUlcLz~J|A{z9~ zJP5qTGxN1)xgEV(G5C$fy?+h^vGR_qOx>IN3AAu`W+^fuH$7#qvfM7~jA@C#8dgJz zt2+*Oo~QWk>;+C<5*4yo{OKJOUlYWPW>y%v6crc9ZftG%SOu&9wZwP!3*JxR9Xl)c zE<|%}IwbV}3Y@Mqfqnlhfa9ZozLFjraht(tA*afp?kC@{R)To{S$58D~p$2?bXl?LMwnV050A5YO#Uw0h1XRIn~1C7o7ejdM;gq#Cu( zmjxIF5YYD6rc)Gwk6!cO$anChb$&No`3Zf(@Z)c;(4{|YR{MFFE#vt$%A~cnT1j^F zIfOmq8DXkCmf$&N_-yw9l7GLp5RyORsvp5~`$@oCgK_rL z>AzBjo4U+WhOOGUr}UQU&ui(erS|F~A?#%b34SCSJ@1n&>r@m77-8eEju(hC9G;?(ICF^Oa!GCrj-ms%7dR@@GdnO=H#2l&2ii!(b_gURz6 z3+Rz4--mr+?X~v z<6t}RnIi@H~|nMIjvz1Dwu7wWPelS2Wq2stplC@u|7@@x9<;{-|A^As$7f#<$G)|4q*5NBmmIil`sq;t%-*Yl6|TG=+TP=5{V zh?iHv7Q}2DY^u)zGXto1lq|$30?4tz?u4GwH1zY35Riod)JRyT-q?J#&IB@|CZ2$r z*bo7R@npKp6WVbGg_N#^R~Q1-x~@9i-!AI9y=-so6%2v@i?6SaisK3X48c9PySu~U z9)i0&1a}r^ad$`{xLa^{cS3M?hsB-XaQpq;Klkq4yZ5$dx_f$Rt81$3RoC=<`l6-# z^PQ)ju|>$4Q+;>&*M*A8n)0&y&!;i?ngMP1Lm8p(TBj9G)pq3_zr*a#?_y38oun^f z3)Aj5en0H8i+B65#YdAj+3r-~oBk%QXH&-HiaVU)j0uIoMkygwQwFpKNfQ4x$wx1E z`*-pLgZMX2OMjA4o|?bgrr4SkR}5BbJ@YQ3gC*xhI(Bsl?+!Q0Gxv3qEKjL>m9DQe*Je1rzZSWB)qgkgtbz? z-YliZ=QLip;l^>ZJ;r!koj=Zx$D8NYTD39Zb1r*4#&_;H{JP%6&K0aPmsscL8#^xG z6fELH)0=5lX00=0r>-r0-Lmyx^2M}F4gVin8;)Zl|@}U|5&f$!roJ zEd-N6Q`9Np6&NROjGu^nv!OkklB=_fhc-W$IL&Cw27YEsI)6Q1hYgUf{ddml)q%Vo z=Hw~v18ivF=W6y6{wK!n5Ro7I7CLhArjDPm4z7MnRAw4a6Q8Ove(Rm2JxnYe=&=G`9rSh~fa;J+`8sryNk z5G1fs+k^c~a?Ok2G^gPeO+q8F{hC;{V2?PG+AeRcKu3svDvV3Tb;Fr!^!gQ8$CXg^lbz!HX%2KPvK$(GcmN|re(Er~bSnBjYd zkFv^Ep-=v27Y2{QAs5fJSTOimsgRZw1u3+t&=lu{Lmq(k-q`LA#4jFsX0oBf% zJvtm@Mf5Ho&4e!&AGA>|O>#oDx`=_#Dop%)360t64$w1`HQLTicm4x}nZg%=*uFOa zEyC#+jToEGO$y^s#9zCcYzmzgF5Ik~s#r;{pPFY{_g?6~{jS%=yledI!KLr0E$i%h zVixFRM*9h;X!SZ|MNTFo`DmKl8LNb8of(Ch4i2*f>}Ju$&Mx+9j&9fP;@Jt5omz@p z$^LcMdOU&7YSX6z{V%(hxit{#%p6%polS_{`KE$M9=fQsbVgp!%Jh$2OcczLTimR! zBVDSrlt9d`7(?i<_RGh1-^7q(Wt$g(FUR5w3*sEJzu%`w6`}Rqi~qpuJHM&89U?l3eK{hZjI-7evO1f{{$3RK^ZDYi zQq5ish`b~1%e?#F`Y8V*`OBvuJH6W}w2Ey{cSgI_oVEL(U=&#o#k3igxyI=ZwgDTmw3v9^*w0KVcA0^vbsn_4naCH z0!5bqQ8SK#6+0a01i?uP^gn11T(zi?X^$unCKQQ@W?VZ(| zSEOt5ixw-VL*IGpW?qE+dz9R>&E(0zzJx5t=^;B8cIZw|>*)2}j(JW-!?&yq)0~dE zgq`O-sf}g~hAkzv&^z7U1kKl7uk43Cy!iF=k(N)-D7RXJYhVB653N;+-w_yBl#mUy zBpyL~hj4vj#_mswXS z!nxPt$BT|yy*OKp$2kKs#kWczteS>>pZROe-o|oZ?zQX^*Vzq_pnh5=1G*b`EA7_E z;IMeD-%;D(Uv}S;qxd=EB~Q59EPHa!8!dMAqh;>+?7ue-gQFg-RKI!X4~E@}Uv9%g zMFM-a-?E)I5^xNTP}*fs@dPdhExI|+wyKxB2}}aqZOL++4O<`=b^B#>z&Ie9F#_Y4 zFWC_0g!;RWz82G^wOAP(@s{a;VDNmDT18MDtG5I^bDVXwZ(PrXLWE8%k2~D@O^puY z+O`tddPS$e7LIr8Q8j$Rd%K^k1yf#bKi{tL)mJM$XJ0%ZbD;`vzV5{`y)ixh z;`Hlx|M-_ZZF(G-bKCO!UJ1_|VrH(aOzzFASw>2mL5`L5} z@X!b34y5F2T;1h4P{<-LyGU>g1m644D+SsL%1YOp`7CV?Uo zXbXq{DeK?32^)zN z<*(V-_df`8?mH}Bt2w(_gXaW|KBJu9w}n(n7Sbu#ZwVIC^`PK&J;V-prd&G+=iaZ) z`5hj^byook`IP#L+8eryZXK`giH8YUeJ&kAnj({c$|=rn%L)S= z@wf%Y?i>qlHjJe=qdvaweV2UEn;@ia&JoA2{yKvesyQyjrG)$&vSfjm=b<^s7Y}&5 zL~nSq^woP6iGV#uwrDRl&~c@c!IXjMp6*eb+Zu%#>*K^^ zD{-CvFbz(#z6z^d>^6qMgEVZaUkg^Mcb2I!_H`x5Df~@s5Wbl1gaXIl-;xq&j_==2 zxl@+&0YrBncRt_TK^gq(7_i8_=%<5#2<*GUrg}>SJR)B!8m~rFbT{G|FKKS&k#z^x zyn!~wc z_e~4wo2mt9{=NY#6_Sj@ss~CT?8Mc$w#oG965xqC_nP|iJ1#!OpL*_Ath+r1pIYH{ zk9BlI^$aq(=+L!XH>*O3;=MOx;XOUdU*j(Au!8PSFNU=(%;+|Eo-zF1{X4bWo~Y4Y zZSl}ft>AN9-h{#i+E>G%x1d42-XF!Sqg&a4E6HA&1v<}N(3?WoeJwJcXaFjFcMCE+ ze=BsZOZHj6X*LKE?bHDe?Zyqhds~15a8+ywsALL(?rD$nG%?2Slw`Al~0Y z>)bmn4G!tP!&U;nId;mtHz1du=Kn1ExdAYyGm!xh-?fuGs-$h@vnN;(@6V%w_FuY) zknh;`@^XcOl*7E4_ma`w)J?nP9%F9~D#(+ZYN~~9LTrr+^P-gix?BUE~Ax#XhYs@u5#w8g4O+Vd?%-XQx7(iuybpuC0D@8w+f>+n z5B8Dq@Ka~9%gh=EnOFj+m$;Mnr_wtzfysdIV1G{RyF?^NOluk_!gZJBC^@y{4GVUg z1R0~ic3IGmUYjycSH-Ho1N)cq%zKx}=af3ht(X9YQyJK&SKcopjv&QV1b{Kv^|@(i zBp5`D>{<)qnp19ieg~ExfV*!3Tk1wSqgQfcg(x6-h4P`cUY6h>Bx7? zds&mPz5#?tZbXmmRS?p!f0^6Q)%|pQY zKMma+0lB%zH+GKv!c2hT23!`HtXYQ(0EENjN#NAdxj`)%xLd3RGpB8n6Yp%SjhqY| zbQ{!0-UE5M&_MCc2`n(=WOINVEfL)G9FT;OQQ)UFDB*=@SvBL6e_VH&U`yUpQU;YZtD&I~Z3*`^k$tvch&aF)Ul)WI>Gc!`;wKWdwGYRYS%cXm=O?a74KFCqtbmNzc9QfB-h*j40ZTG=Vg;QIX)^J;=;9l}1 zOUsKbpx6rI^2x{O;~`-mU+NOzb))TZsD!Kv-l2L|kR z_|Ig^wZ{S#e3ylMnm$7F@@vhLC+p_tuQfkE?Zi@?tVwOy(wE=CbKaLouFYKTe5bf> z4=#XtyR-g$|L=ILZfhZXodAQwnH|o{4v61?X64RjxglV%_{0k8_n`@q-1ymdEVLPy z0NPBN0%T3eBf@uEUB$Ws;lOt=BKFSPYl1FG$Y@|UxV8o?ytZbn(ien-%D%PF!hZo< zY>KABd|8vfBLG>|Ye=jN=pt9jsMy;vy+^gXY`CM;wlp8(=@;j8Lx&@ z(h!Z0@`xDVhfp}6v*zQ^nyZS9A!$LrL^|zcsa$J@h+FB&0mBJWB)7^87OL8g&BgBt z8X(xPZGGhM*ugrO8m`%O{>r!4;sVg0;>ntsc+5tbJjl4VJ0IltYXx!p^GD3JZ&Pln zcbmROqgkCc{LiE1&tChyvD)9xvKI?kXJ0qKpPl(xn8;|vuzyC`@hZJ$D*Z3dUdvY0 zoO`?rOoV#7X_gtC(h~o$BJt#YVbtHVe)vhNLxVgZ>og0b2QC%afKs4wp8m)Z-SDx; zZq}q>kR!{2q=JDfozm0z__-pMwmYDBO(W45tL1X+ar{`wrDJNaEVrLd2^_T+Ld$yT zJfAfL40i9IP(Fjl{Wpfj$k-D`can3`O81@Hb0F3zm#PI`(P&XA>x9l+d@~OADa_j%t@N&P+buf* z_K61#GLl`!_!t3(U~_R1GoxLltedB#H5b~N*_|xMuy=l(tm@l3^2_1iSHiXbq?9$O z805Hq!R6g1=u+N-0^4CvKUx;_!lJl&!`f-`fC}5ji+$EjX;cgU-=9m0i=e^!)<)u; z4d$DSm>PBUQJ`<_{AlUHDg~L)j|x@_I=9X{Yd5|qy2!-LDaaJ<90E+ct zOHbP(B}w827=-JTtRMoEJ$zSIw`#;Hb*tW1qiaGYd+P3OXNkD=CP2Ca`_FLZ{8#3U z06wR>j0L#%`40++L_o~fb3e{C+RGl4QDOqbpa8|u%t#KDAPPnf;qgG!uMe$iJK0g^ zp&glRIbRq8`h~`}oarY%X_kGXly!kuS?Z5jdaFN(?AjJQ=l4M5((RArzlSurBuP-} z$={5D_lLDd>(yh*P0K`c3^dMj2PNud8 zzpM8#K+L0tQ6~!9kvT-dSZBzM$ZU^%q`k*J72E7RtDbl-oack$=<8u2ozOy5xhr7< z0#NIZAE;=rAUw3!!EN>gLFYYfNHvIn`0-U8aNc4txYjT9%SEK;VUN7WW4k1`dH1}3 zNfNg7Hva7`r{7AX2ZwmSpEc{^6uvqDRpk1qYP)gk5!q$+)eWT5l1KWOSzV*T+N1?}}a#Ge`4ZbbjsXq}nz+^OBXTMt@1s)LvhQAnZ_ zbjHGa!6bfMVLe3Kwv#=z$fIEGxh_BhxQ)I)*F`#$(#Z=ka*UQrr_Y8 zI*{T0TahE&o1pogZ&^VprH7p0xn;U#|?=!iiWbhcsPj;p0 zRqEQ8CBMu-as`qU9$(A(`5SVh3;$GgY|N_z&(>p>9vZljRgMqXO`X*O=pmp9DzL;x|bg(gTB^D=%8?ggtKG6%PI-hh8Q za#I~H0Je^S+Y!y2Nw0T*2ur+PtR9Hk{DOSnS~$CpZP2&J;J07z5bxt`rf&}>+RkYp z;L(Df-LX!t-h@1?4OkJEjC-y|uaR3!E(^eD?n*LYZEf}Ngw)%ImX`#s%~D81=Rx2A z)8lZi%=+bvv+z<=uoK8q>YZIq2w9DMs&$n?SK$_^I)uVvJNDGOo8%^<5-e3A{}@~G zRv~kn?b5WDL3&i;E#e${NZ@oQ;@rJMu(jWs0dNQD)7kDqB%vf62$^T>bX^rM9z|qq zeU?EozP=Z+0$I3Q8QkqJW}zGPEoC+zW?lQWj-A3^xnlqfk~0^NSTc;EWIP~E3l@*i z{VJwXs?(|A84aS+`m$S&dq`OR>+_-LpP(r1Kk0uV!A9z zy@90!5X{n>X5Ul~+lvdH$g#h@30V`PmDM~JEqX_E=ceoyA`0D zGdQGVLwEPHC2kV=xl6uv*p#d=}U zFCpNihHPS|C;R=wnCvb5?I9rs&HphV6~6j26x!jl)H=-A``e$9m0R9>m*}25moENE zZL+114w7F}PcC5i<^%Y#Ts?(8JoP6qSVqs#b%LS_*8(W!7B_0R{MQ}BSwSWj{3QDR zcPC&8;X2@h?&-AD%;w-3++j#UBkfExkFy@G{zXWkYz04B{9xb;F0db&`dKgfvwpm> z53Q=&?4JRV>*fm9L(*`zuNQfll^vw`-u-ZO9wJcLoYuS{TI|1^yJ8fsxa@@4yh0nR z-G_|Zn}*Sp_vc6AXm?-hM-&gqo&2(P+5Fape%>O9VgzKljH~R?ckeUp;V-gK6Tzr% z!`CYj{0htz8VAgl^B8&*zR!}BFRug6u5LSjwmTn}UkTW62wOISf<)>%7@MsmnhgUN zGYv+nk8GB_gAw4T!AQp4-S^MoX1FI2S>wV}jW7ZUUG2piVcs4sSiB5#K7N~hf%I=8JGe)8%$9bqCatlAt;RLh^DvEGPF z%ShtAa$OJamqNwsxqz06UnJ;&6VBRk7ii&s4;%FbgVSiF*%2)n=D#Q+Q^El9Epc9V zLyg&Cq`l4?N+51N&iWS(=#MY>i~+WUFMDnc0qHjS;O$#zE1iR?$`Bj3B2FN~WdhzI zKuha(R=Rz(T;}&*s9DsIqxmpoaBCOQchr9P#jcq3f`_eB9ko+@ocf}34++(Mw9(1r zOAKq*To)3-r%N0?Mk`qQJs|A)u4Kka7t-WRZoYkX2)pxS*AaYRj~WTb@yjD%$oLuH ztJf)_be$@K7PEQnLhu8YOru#Lza6k2;9n5@qs1Zici;$mofZDCPoSWB>Bee8bkA{r z#NZC#tKQ>a*n)2}qMAO8CDD`hdaLT$*yIRZaDQ`mnlq-ix7b&F0Kn|iZX1sr`Pc%{ zRAtn9Ypg?Oa7YW)G=7gpv7khZuf@TQW#u&5)6sJ4RIPeLr0cqULkEM*r>6JvzdmVi zVZZ%-g=d6P>7NEY167Ecwy?F?8D-kJhKY0KQ>cP8z{fjnQZbZkH7;AgBsD3bR~V$v zIJnCA#UhN0zZb{C%(3#e^Vl2EGEyW8bRm$eIMC0FyPE3j6jVamsO>Wjo{l)*bsXfg z+E%vEtQ=#rkW*!xN%KA8D_DHzLdvgAeU@w<2(Q5Ko%Rh~3j2dqb3a|icIvHtF#5};?45_HRxTdt?D0tbRBDFJKHS7#&@Zexlv88-GFJO0L7Wga((tdFZsXK<<^IH zJL3NDAH>=2fqKds4cGx?T6_{Qu%Q12LskjN>IlR8>i6v%utrTME0BI_lMhkD<$f^HR(Dt;+-Q(2I)qGZAE>S#dNkZKj5Pvi$W2TiW)Sum*+7H z$}TGd?d;v%;lDt}(+fbC`NE|((&!N&+|WNxvh7LB%Y71`R;2R;rW-t)twp4j3UeS6 zJ>1@cRgfXe{S$f9-EI9tYAR^KLHZ{So$={@wfilzQXVGWodX}|H9-uPVZKeQ`GE_< z!LTr16OWV?SXoUIE}zw(m9hS(_E*&w5^+>DKbyP746)z-apW5##H`~k_9~v)j%&W? z><;UM1j+!}jwOY=b#erCPLjlcm4nrn0ZJ0;D90eU3 zdc4d(bm%%5mxdV%kK}Q6nwIt`O||* zea*ok`H#pp18bd5IWMXo?R_Ef#*;plLB7<_Y>_sRY(u)XFnp-yvWn#=AocKT^Q z?BC?F`W*gMs)%Fa55bpKsAuM`8<*MqIXz&ssN=*jgH%T)KSrC$g!I|MVpeLAvJOy? z3g=XR{TuDjM%7}L6yvVXW+!l?aRL zlO{vLi&>=DR#p5%RXnBeOS*Pw*Dsa)$Mi1#hkD-rxKuyAG;0;qRHie`fAE`Ja{hVw zOD*%!?3pSXf9?Ar^rnuU-9V@pjz+;YKmDwG>v!cMjP28N<3iH@u;Y^Le%W*6;`1YR zK@=yz;Nz^weNmJuhx7_zX1&A6Suebjl z_h&-4iUMpyxGDk|{qI^mn(7`fUPa#21xosM%(UMc@Z>7bkY`NwnN)PA*xfGu4V(N% zQ+Rmg`cv@JBz#I%jqtdoPH2glDs#Q44p)R*G;#z+<>hTokD3g=Pa&RI-S>A?oX0fX z2PS?Zs%U;lw`yD^JtDIJH6&?M@s=4mY&~n5{`f^9Ht%yo=~lQZqA_0B;_q_vaMf=6 z;%ej9uIpgDlTepedDK96*lo2CAya;S@4FMuI5WcY6Lq)q#AViOX7voU(Finexl~@{ z3AZf>eU%M$RObno_eJI`8dA|R`f2_reC33r5_K)W?HkX3g3L5*_xJSi>EnS;45f6S{62>UVm6`a;=} z#}GtrbV4CdwFp&5;kAU@S^MB~JyFe)qNet^sAA|-TU>Nd%|b(3`pQu>*!9~^-WiG@ zeSP7&gy;iTzKt`+v6M7>zEp38b94ow8baiyFn9qXZ35k;X1E0l~okxBn(3*aJAX?kI{kz z|3L>LS*<3rTnz{OsP+o6(R{f@OFFC-IUyJFRpF2#6z)3wl`nGDek~$D=-k%Qf+HE1 zy+Nubtf1V5)lA^|F<63WcYZAK`^6ew~nbBB@h zXC>pOQQZ=J&fTgQn^kY_W#MNSEKTJoXLS%bnF&l zkaRixv|(})a$%IjdO^6ceXnhBNrtOa*zC`7ndc5sx0KHSodQHzH&YKuMXb$+WlMgt zhNatNGDG_u^}Qe^UF}~dmar;vPMQ{y>?gS+=#=KRgKZPYRt^Eh9ap#JzkoVWB7|Nu z5+t2}Zgk!zk0*&TFZX*d>^@$HGPQGQAMB7iGED^tzt2Vmd7gVkiaMrTe&KW8(Vl7) z$DFA6;ABvXTK)rTh!KvJ*%(;Ix*FB$fTdc4sojRjXhlI7#fbg~f@505AOKLmb8fFY z@p%xLH2Yz~pPBf0l-(mfed8?|)m(2W64|cbPwncH?mBSqIP6oGVtZ{*TDUT|I8#FF z^Ci*jR7Q}UP~v`hoK0iKkFT|@0LtK#Ncai_!#veX2FeH`)ZN17XlSOTrO()&UHO_f|E7yb z{`BtRR=w&-+S^X?o(z(^<{_CfDu_9WnGXy{7ZAfxdtOajU*&wNi;DlcGDLwg0^f+V z!W}r{i_U{}^!%tCA{NFXiWPItkPt1c?O+=WFk z=jTOH+9xg^oYIo(louSpb^OUP2tlJZ2`8~}L(o5xm$n`CBqdfp2kSqE0?gpZBNbs_Xu_+&bH&Ix>)> zOn_2jW4*AH_on`X(~;Ue<=YWM1-w)r6j4;AhB-bO+)tCvA=IT2l`rWwD0-wT59@!Z z^lj+jHc#ooP^I!Pvfiq}rP^u32}lj3N%^hZZNNMpdpxw@#cH-*09QSk;d8ok8!BZcVpyV%2<0)!MLzctC1 ztW?>9m_(DF)1)LWqDI!SqH5_->X=Hz^*!jFDM#Sx)b@||wq`Wn8#m|Vj0cv^ZI0%V zxB6Ax(ymZ}BeY0Yn{gJPOy{y{)WLcb&vb z=M8Ul@Wm8wHHRr`3e@*DY*x+n&11C_l|y_#ANXk13Y;Q-+6xs* zhlcr=l2x4xxEBf2*)h4CEsm-2XptiEW%Dt!(f ztGGq1JCDLGzPOQbQW{|-%s-(@LRQZrN|zh9`Y=se*?S zCa~zQbA?laU<|FNozf8@qM(Y6*E z;qY#g&u~p%ReW;2!>20PAnX-@>`5{hW{7&U zN3GU*{PaG8eKU`+8$U74{=9?hRcta7jKvH)m)QTF_9*AXkOuWB>QFlT?F_*k4mSX79;8VP!|bPEOsj%g?aiGVBV@JrVCaKktGV z7Cc3Oh+X-cZIam0HW#C3aDc9 zQT-x_GQGPnw*G!!qr}399Kvxd8ojZ_NPnWKPN1o-(r;50RLiM0_e(L0{( zcJBqQ{$<(PmGkdrx!N*E&Lp^@r0L{U-I?P}nAcxkl^!v~(`?y%|Btue%ZbfRBCC~x zM4}OO7{c~U0Z?Uy%T#WKlcviJ?UFn3aoeP$<#gTFo2p<<(S2{C?wdbvTsE(psiF}! z>`rH|FY9}l{h0?lpJ9JQL4%jC`FNd4bi8>zhbMH`fq*PUmi-nst_vk9s(R(IqR1EtjRc@cU>3u{UXAqv$4FcpLkMCJ1E{l{psJK_A< zQiHHi8*?7uADl1>uB%;cZ%@-9jE!o62V9S5NMKHG66e(A517MYe3f~rtsHMLk2a)x zSZeI1RT(}wxi>AmVO|MRv=XjD-!LiUOFq9URe#&XzOi2s7Qc3*54 zK8qSq_T{!xxGv%kjO!Mxs>PeBN%Tx2xUVjuDq4maN+0XX6{jev*tEU@Q-Il!9UYL| z2N8jVCIK|LOv^PSx>AJ9M2Jj0{woc$g!>=|iX@c$bPyXin3AP)EO7_^`)yLUy`vx! zV?!Y%@r&nGK8N#0P0%3{pDmn8~D?2)bzsV$2-9kg0sZ9EV#bYlb?w0zE1;5fe z-f6NsS#xGK2CqN@M>c;g9p7eY@i;EoGNSCFOx5us*1ilcCyR3drOcI!(j6&R+wMoU zTvZzF4;?jOgttk{w4-sOV;_qthN#>0khDBhN4ndU+|Qc3qqcYeB^+OZ{oS4Iv!sES zHwnNr`y8@=mt5%G0((x)yu^QsDb%Tw8nFMe65{seWJ?Z7SJVkYM`=ea%GFh*+&=yO zIV|WE={a%^{eu)kF4!wMl-rhKLVH~ospzlC&C6xBV%)@$s$Yq@Nb41yzUXUu{?h4R zu{&Q3$5ok6JL~@CQ54E^piKcZU#s5+5=KCp) z;v`INmk#BGY*stV1-|B@r80&Q{;%ox>2P2R4vu8#L+Nr!IY(kQk9B6 z#)i|DIR$IBfL1P(qLL?{n^Lu%eid(92HtroWFsD(F4sqkkSc0FrVVBXTAEaBs1f>fuQ=P=%Q+=eT}l~8MbQFGyt-qCa= zYB038IF+>WrxZ0YT2LKEZGC7d)(4(eK&y=(2&^B`_%+b#8h9*ZeE*h>;to?ys~g*G zi;iCRSyA!kxm6E}lhA`?robu7cC?+AAJHg|5WSX$+=qea#Ldqn)Ru(nqW~Q&n%x%sUFY-n;6O) zml(i|!`L{{h8c0!HD;*Tnr`0c2w&KK)QVGDDD>wlu& zv`cq=m(WhyhYeS_v2c%2NW4DH5{XWSBbfe0x}Rv6!Q+g5Exz^oTinIvQSdAeUD8Ii zA+NCpvFewcvsdcdJ_QvxrYu>h4mlOHdgJyjuAT8HY(TMXQUxN4N(8mC6u04kPRITj z6tiV|&U}q!SoT9*Q9${;X{kv1rCa zKgQv^y-HJN?T4X^!1ugp3@&E#5xkNSj46zXT~xhesOU?~2?}gV&W_eaOpG|Fu=zkr z#e3NizfiYeTNVs{?$~Qz3g0xbv0@E|yv~a8ADFJtC?=y}P?WLA=K7-@2;4tCX?IYN z>Y6EGXk@y+9MyiT?|vdVf8ad-pFqq1Kh$9kJ}y4K{|j~auWMy( z{lU6%-{aR&3NeJoSkeu2XQ>B*WGAVI5A^mixC1*`G4YhYn`f%$7CApuy0t8yAMjuA zjSpU5wtM_tte+3I2J-Sw_9l8-;`nRh;ciH?PrF`k56(rMK3>iPy56>0R$p1(z6IEx zy!%y-xDb~&6KoBf_bc9CBeG`szxI4Uzdt{D_*J|396fg>%nh(NdOr-jKD4LT(T?kI zjq6<9zEC_yhq0R*wp-jGy@-&I$fceUy+~ns2xg0da%rP#DHOrn$JKrhLD?c~K`_Xb z*SL06f__G<=f0^IN;<^MyfDr_CV!*Y8&0a1@3fz;`dBZRc)f&4P2cZ@Z*C(!j`8Az zMh>G+4}1J`MOY|;S3aNgmVYTN4I+Q+SNYd8%`B0qb%eLdhj3mXv10BL>+kKO;lp%S z;ZH{NQUSj=PD*x(bY}kT^!PSTQA`g+V4suJ=zJhG<5MD2?5@(IX2#ZDmfC5@5JDHr{fPLJP)N(c zwh$kVHY_x>Ixcv;4s9db?c8KU#iWR|))UOm5bg%`EVvPAPBQD>X0}RLfm<=gqP?(W zyGqeJmnkkvKYRiwBoyIS8}TD3I#g-+j3sk~K;8$F6wf9HIRDMblnBEzmbuNfb%+PW zqg$wcq?SNEO|R}c)!l=`m}EMCFhV3aA@>y}dy~6I*(t7gs&0|ly_$blaZGFxvO(O% zN@?~TOaru6tF~8jMQmKq5B%yUs~INY9Av9tiP|ZJxxUNbT0N&8S5+VZZwA3Or@EI8 z+XGnlM<4}L zT8~_MB9z8#+X=ll$9#H(R>JE88o=0f!qps5e!_fl!+33t$-9-2mCm<&)K!@=hsO=t zUF6FL`N}K7eaACa<*Ylv85NLA5X1Zd-&c7Okd&c}aMw7IhrS_twNy%2^U+@xFQi0r z-2Sj^4BsZakW_OGSV&SQ;a|W2Zi`mLH}>9N7oL2Jy?k#sMSs&|{I`Yav(AQdzsS<5 z?cTUYXL1S$P0Gb_e)bHiNEi<3*Y?@>BnxUOf-_2iv)??+k+wp9rUAw8Qe$$AzEO3` zY<3DxR}hZT=TN)7k(F)4l=|thA(Dy*jFe z3C__zHi9{rjNA&SR0C-oqC$?q$6}Q#sc*@R?5^=HIiEdOo9Y7PoL%Xm+PSQF6|CsP z@7#dBHHT7(7+INcKgsaV+T5wgq+we44XNRt92?oC7QgE0f&@;y4Q5GCdz{Ey+F?pI z7|YOX=6)}fT)CTl4rv#8QI`M-B*BB{wn0dVTHmWkcu@+vaxUYf6{%qmqxkoRCCN~^ z%Q0|GZ4%2r-QZ)Nel1*A`jiL{7l)TK^VKPB-IZJ-YUw2@w$@i{2aKR+SCogg_B}CLwJdaCZxWJ${^bSa0ms+E|pQt0$*y}N0O63b}x+}-`??di64Dxz?N4x8sivWllfL4R7~N9U)9K4+E>G+FanCY8;STRK z{3x<{c95}$7lpn>r1IFm;*KwZoad4y3T|$T*M3Vey!o@EGga_(v-os5Q?(|fl-jm& z(DPC8oSWiWeZR!A=X1z@@ec_Buh-Nu2%oumj^)c8X~Pi9r&_sd_djh>V+8hBjFmUs z8cb=k`*z%x?ldcM9AWg`oe;Q!`_AXXb!pL7gjW9 z4ZvYAy)PqXf%SJ@&ZtZu z@i>pK1pYatW+@L6BY?{*jpgF@IrSuRDuU!vN|t>YA4WaVqTJF~?uhCiWi{lYNjI_k zrK*z3Pu^owPlJ$8Wp3tjZ-75vD>G~Q%1_n(eSD7?MBf-h^IwHHRo=Dt!6)CI7(|ty zjz1z_zq206NR5ftZd0yYC*@NYe|?)p8|-io{frYzKZ-_TWb-qTX#B^{fgQctvX_Sd zW3d#(iJ+BZP-UelBMxn{>?_wRhe0>$vHFB0OP7-HR5Z!Tr-g#UPQ1^z81zj6UX4OP zmvJC-&U;0(-^a}}BO^ZSyrj(Za*_cL@?EN4j!;ctx#UcHo`hOsXfXV3->C{g3G09t z#WccT7l7L*ChU_k-Lhi>zFp9``K1yUnb=Imrxpd(>|{$z1YL!k_>j%76+cz&&{}3l zSH0dY(h)ckq}OoLSl~B^H1V9T4NElGOc0&3@5TO2vg|Ld&$^D(yv9VaG&QjDSzTV8 zQim52kJ5JRSl7EoA$0TojR9pisx<3 z>F)q9wg8RH$0ZcKdPbg;f7dnI_!<4!`n8Na)EXIdw>51nE;P?hchQixn{|(I<%Rfv+6Wrx|Mh8Ley>E;Q;^VxMvYXTO zebS$jj2Nu#pj85`P=7T@>K6$x^W3u!moYA+`{<_a_Pj1)QEz7E7cO4&S8-3ipfn6% zjoBT0G+f!s2GGObIlL4xQw0vGrf!NClKm5LJjU-n$G%ds{X)YlvO)r4hZJ2oSWM zzfE_o(CBX6OE3l~9VB0g8!&8=BoucNXtrmhAklI3nOi9_mSvLpVI#j=@Qb+T zb+qLPtVwd32Ns$e)^)TmxG}N(S^?z_*5hrlz!aV#@j#*1`5+T%pdB~4XuPc&;;4o&EWZC%sS2F?1Q<%`Xz+V`00wqi{;a-_| z6V8>x5G8JB1@3!+R1rNF+JIY>-_cy*FX>9O`UsO+F|rrd2%@WcM32)-O}$KpW|o)YPX_2AFy zamaA$hxPE7y^QL-cdaJ%PeIXRSSghI!}?A5YJKR9zk@Q097IDE2KmmIy(UwyR*HgJ5z;qdYr-R}~LcleXxWiO+Y82utT+V8Mde*4RlnFn$f* zM&iA}aNMIiP=xuXIav*MoeG#z&rSPT7(6tW7?SFVpe!>7-kxI*3Qh3bB7B5&Y4lfO z5?&F?IO{Vo6tD`gUU=NL$(uRB`(x!3= zU4z&f>ol@Iocdo1Eab(IabFwAbNsBWNn)ks68>X@gQ)1sWTd=VMsMRR!z4*ekc}qT zjE?N6Ee2Vw*i4|wT_6J;*!h~#4e5(k9r20!^vQm%WKjFZU7E|!L|3Aak#SM?bvwPZ zPV)R`&2FjhdUc@+C|iID73d7@C(}S!9T`#!aw4+P1>Ii|6)hyfD>}4T(o)?pR;dlqBeB5Vp480iqq5Xc)*tQ$=Xv6Q2^-`2U~`fXs)F5h``tky6=qWGb-?wk&6-) zoLP~(Ap?LcFK5o$`4}t9<&H<|PP|ZFJPI}rg=HE_Wb2?K6Q9N=3nmQpqiyNe1Q1IQ z^c6Emv4XPh#>>ggfNNO2jKmDT4_@*OiT-UGN`N}&9y=O^ngkW13{ntc!r z+)vgZL;41>D3?6@-|>O=r${S;pDqsf)mYyAbBDy>UusMZX5vdwgUBMx*@3utbGTW2 za-YFcj4W{a;R*fC+`)p>DV;hFhi{S6eH=Ea@N~_xK{@;V)B16nFzQx+L5gbVq@)V4 zJc3R_;VP;&^UOnA5}BeH(Csd6^hGS0gD^xzG@wdH2@L$&cI4~4QjfYxFLw94anbZV?sgzLJkkrd*OIS2k463^Umqj0M1T79 zZpj^qyi@k-S^KHNM;I(PIE7~YM$&^qR6cX#&=yE4W=j#|@=+c=Thv7Amyl`&7u{zc zlLdL?XS#vYD|h_&XZ=iV^-n%|oHU&)PsLUjMc2Nw+50JlN#%D3$S%3zWkxqL9Tq`8wlqf69d}tA1Gl#k6 z{;%N{twS4a`x=QigMo5Yi>WgSX8;;E62u@uotY(5i9c7d3krB}387*cTeq0S255N^ z8s`v8Uk6B8CxFWcL?#WTgg!`%*a_q)1f1b_Tca8j7Dhyiw%VLLI1~vX zBF0c_-6%+%F(QmWe>YQ37DMQubKE~w1(Y{{y@(akqi;y#7Euby_PmPw;&^UtgaW+2 z%ZjAGW0sh3r?Ll~+JvtGMmVi$tH0i;yR=(9yC4a2>QR(+=|mN~D!Gg?3pH1$8h@c?jgE0jfQcGfC)}MKL=Ek0c^iF^O%xlRT>nof#74Hg4FMMRqMtEN!TS zF@lw1kzbZ4w`irC-OgvGJT3^I@p$owfkLOA3~`R*YbLOx*b91$=Fys~K#26(w1Ni` z$@z$6S<3xtJp&w(Vm%$p!(NRmifWbpB^Z`1i<&C-4jgg#4n8pi?m-RdJ98}5m*v5rBvrQXFDWplhmiBq$~B@`#4H^^V?dB@z`Gjh9W zm)@G4XYD)j?d=BwD{47m9}25WaP@dk$S8{+sVUhLjbLboG>Wn%@hN7>n_xnQ_94C_ zC6%eg*)BO1-h&qk`oZ(c*~cXqDC^X|W3XiA^m$*4ubr{@uPD@SjaUG#ThZ(KB4dM? z*Vqmi>g58?<*s6kXjG=&6;_5az(=XQzrtfwzrA0Pm)qN}U$d|24C~Y?U!qZOk7ILc z2do^(SEgr-*Lvg_JTceQsz>75Lvc8k4Qb1*RHsAY>}t7PXpWa~lEQLO?LLXCXSs{1 zkGV1?mIcX_usK|fJPGmwIRp0iPS5_d{@jS@@F7Gq6IZ zAn(4G%f!C&>6NAUO+BU+ReIl60ZDr=88YD}4)P;1g|uW1q@Bn)yK;lEGv`jTE`ev- zA)#!Ptfj93y*PbHO_&bL)FOfs9}w+)lqrxQA^Dbsu&fCx$`dSg4;}@hP(G7RLuLX( zz3HwTy}W>+s8V1@9-N(XQQhcjq*iZEF`SK0DgL$on?7cjo+K|8lt@#6=7CYE+os!v zpsRan_HKi#pUcDcp0hy@j``O|`bGbrNreb_^a9;UGPge!vfo`qVO$m(Tu$(;RL)FV z^^ZuE6=b0)5o0j|dj9>sR_XfEEE%wkriHI41|l&d5MX>&KlCDP#oVfT_<7izQ40za zgXH-L8l7~)K*}7l78$p-l>o{Gi8`jYStSy^U7RTz?Dp!Levt(GP-k!Tts3oXu|*qN z-YxQ>ib{-Qa6#l#r?TZ@4Nnh{i`}F*fA(=-pZBp=f4!YIvGL`FkNL)rh>hJv^K7+z z-N)*B-Qh!W9A3D?H0kLOCiNvTq*tBGHH}H(@Vy9yD2a2!NirVRL+E*nDsS5kvEhK% zb3bS2mLj4sl{Y`Qr{&G6+Ue!aE-vZ#0^~k`47u|W0J$;hcKa7xuou!; z?{r{ReT6yYx!$auGAqR8CaemlL2NtYc5#k!8&BgWLTzrOdKT!YKQMkPKR6V5F=Mw~ zlXN8=>ES2M{Q1H(|P4U#QXS`JZ@Cr~R1)u*eN%S{=A0728 z$bB5G+>7!@ua4)&!Rp6J(nGQ`$ubB0oKS+&;$}7;B*4NX069y8%jAA9g0ifK)!%(} z57A>U*e)VLR*Duh`^G#)gUX+e6@T}>yx;JBtpUqIy_!@F{t#gEd*J3wET&h5!@Nhg4V+GG|GWlDg1>0c+AzNnMn)VQ>UKL7WtS(uvot z@xv<9X%LZll0;b0yVG96>x<#HsnAbsQ&#aKe7$#7;arQouvj&*O6z09au;()*7Td% zN^4Yd*0RyCI|0L_y$!16%;|OnY4Y}JgNb6CJlFs+Qx@eSnAmsl1x4KmY3V<40(=bq zK2v%6z#E5|NS&rBNh`&jxa-H-S;;_+&87Tj+Dk<1eDkHw%me<;#Vu2~8D1%Wz7?*U(2lYSR7rHO(_|Q1;K4=z z$i?|hAU4Hge5D+9z1}}_#HfHhm{DnKC(9C3i`fQ^Fo`+()Tv$*ltOuq))ruPu78X~ z=c#>Xr1$e`oQ|NxBA5Sgla$#&tr$1IC-Dm)|3NYMh>kS&W01mr{T}pFi>iwEM!{>9 z-`g%$X9A@3TtA_vMkg3#fgf9V)idEWB{=g_XShU0igb|DzVTXxLk!v;(m`|{=-=W+ z?f(PB7tT*fSvY~VU4*X5pe2H=Mv5HSxGW6&yKi;LkI4jeLx{tj;2bZybvwwW*q27d z3biO_$h3G6+a^Wfz}sibao0x71%!*T>BZOlsE&Wx!p{!Zo3TuZyRn^(O6kO_!ny9vlrkFqso286vduu?&fzwyf5{eMQDPYx3@k3qV13D{39IT=Mv9<){EXE-gu-{jBD~E|kpE5v>CZtqO;>ne@x)cVbtWNQ=?m}@8Ak{GE7%cXXBO(u48cn8(!5GTvh*^ZD| zJq(8K>Km+u1qNu>)N-Fjgv1Fd;?VnC`kDGiT!!cJ#C>Gj@QP5$*x|{c_Rvb2HSJyh zDb7v8qHE-23vkr0!)BRk=5S_i+$$HQoFdu&vymf;Tn`WJ{2~q|V}*rTbbullw84s1z39`&}y8Rn!hO`AZ_(LFJMGEeWN{^xK zQ1_Ekl#Yz`mV*>ipyQ3UHy9a&I;`2tR*3w5R4FZNh5IGm(oXt zWS8RXjjq?Vp3pHNH-*9i2y%kw47z0& zYplv0{#D%}tc9wsVJ?|ElY)ibvQ|9xZmBGc@!yL*Uy>4NQvIy(lS2!hX6RgX5U{>k znSsbe7m`zdwn=(}OsGX01wOYrA4?y4AO4RAlk^mr3M$^v7tBYbEEfyQSz|EL3{gg& zunaV1NBVD0mP!=*1>r3yKxg={D3eBkSKB*(8ZezwBtQM*EW{_)7^weAN&zG8FU|L3 zX54wVm%DxZ=HJL+7vu3Oj6%3&KTSuR(@*PW?8YBMH+L~;p-DS{&6|^YPE~WOyd6Un zp%XWBIyMH^r+Ke z!;keU)n|s(Yf|_|3ec5xwO(ZxQbjLyco)G0#$lfoes5BwJ)hwsK6}zQ;~z`1-Ya1p zzO+cR;l5LJxm>I9dedBrWL2GUi!8Gm5JyHKR@v@b-1n`nJbkL0JzjObhnonYAJy8_ zB5wl(<3lb51xbd~RQ03#i?WEyOv8mR?4ZV#H23OK#qhj)UrU}9FK`f&Pf;vpi4&V6 zXy0_E+WsLK`zFX_v{Tc%5XcgB0P4!8JgF2CFwK7@g2r1E8t>P_k%Uv<=}a&w4h*Ju zBOhoxt%7JSo8Z!_s9MWlSqj$S!-WKVQkvKTcy}5tS!@`@BDBdmG6G)VQQq1WZ%fL* z5F?|AO6>Gajpy1-vXJ300DS?XND zYl)syZH^~hQ@9xh7WoNn9Hvyp+JzQb4G27&FyNA24OT`G-5hLuspsZzgM$_V6T`Ib z+8GZN>fUU&jZ~L|lmZj)N!=4kdFJ9_&R~4{KrmI~@r59-sabUYP3(NbBC z9r%!F-z3ebpx5MuV#K+iYAx+)nwG@~N*WOpCs_NJDf+qxiIeKl`~D-_A(iCW3F z1tku@G-}k6p*U^nW=$BZwfp2MWR?PD<)grtOBw@-&zW6*$aQ}C<~s+uIXJ{x9twNy zr5ZFQq^d`NLW@fayzY_5a_=GW>Q_xdh)Zm*?aKpF;KnSot(eplNYx(K8ePHj@^cB| z3ncIPLu&AvX+{&3lc(YBIM_G(l_%fiEwb_J4RtJ96$6bb7GlsblUkl^s>-B}c)z#L z!Dg8l?%#TJ<6-|qLBUfi#ibD|=R(QmTLL}HkQy+Xk;^9YTC6AzW~drYXfmymPHrOr ziII9#vI-NVWd*VBP>imIYxGaF?INN^D(q^Gb)yvulNwb0789Sr^OrY0b$)8Y&qOC z^D>AE!^&A%+Kd1ObsH$<+{(q@5#ct1@o168&1nO0Zx;>_E`h0*_nm_+3dI?k$hC_I z`gML)9DYyJ;uY2p?97@rT&Yyt>Nd0229Axg_gP8PKMuf-?DZ=t*dx5jAwt2*!EY4Q z=V})jF6}}^f0Y;@|7q7R#m(olh4dvXnO%9AjB{yDui`k7V_Vy*=3visps7!-S*&Tl zB2%BBoB1}L-dAzdZ#CcxCFyk3$0UQl8!c#~_~9yu2$X+Ugao>S(PJR3me(`JN6QBA z2>W?#Pf2dU-Hq|86Je~SW0r}}ucr0?HD)y#Q68Ybek>fQ1K6I>5DS8^`G9Q5iQElV z!lWI=yBCmnMC>dR(g@Bp?qO2Z7_4-tqI)rkDnJ#4`Zrh!wSnik8Yo2SBZrM9G3mujd^f8#L+`x9 zJ-%u`y@L+>g+2gA-BqUC4tpaC3>aJk|E{dUoa6D4wusqp0?%2NlH=&t#}x35L*Cu| zEwa0^i?ho=4wT-;@}J^`F7uZ@C(7METRxWDul=7#D0rJm4hcu+jG z%|H_jSV1uJBvaJC+4MxNnyvM1c8#LR>?If4b)+4_6^D@#Z5bis>sgaU1eaK~Dt0*+zH#u86l;~=G2 z@<+ERF;RI1;;1}2R4%Ld&kh%of<0k+>5^P6V!hV{ci~9af?Z!KTYG)5-SXtRt*nSK zf9G{>J2@CWJ@MV6D5*5v?kvLop&qc~p<~ipje#?`dv>9&u8=~2Im@Am4%d!|<4F1M zKw2FH2!HpAlm}Wf5FSTRar3Tvr5!7;v6)g?g^FP>ReOij+uO)J8rvGoAF$Cxzxj3t zP%PJ}7HtM~=uWjB;FA4lpIbsWn^bUZ1(f=;=a(d$YoZHkE4xV?bISkv7@FUAWU%Kb&Ff+(&@%l);B zK|5Q)i*-mRNCOOHOuVNQ(V#A>l@uif+{F98$*z-~4I%GGNBs0P5&^(Nd> zV5_M-Ik8v5uU2Be`umdBc>lwH6ve>ie;hQb`UcuDzv1^ak+bbfUs7eTKw0L809=6S zP~1Tc!WCou-%n%0PK}X$cl9L}ECM8rsDg?}db%j@zfi2#sNy;sVy?8HgY3pldlaLl zl*!Gu_~1q@wp)3w6jm!-tVmZio017EXG>X}+ezS4i5&hU%%gK}PYQJl(Qi*{$ZkT} zj_qxuMsJV*491>b(3i8Pa-B$C`BkXL&H<%__aG_D z@a8d<7)q}JQGYPC9$svoNj95RDk~GOgKHP=g&UpPwIhjWNJO8jgAM5SM5d@jAi00Y zzud^VD<+fZ(r$WnZqM`MlTpV~#hsL(D)HcbL!X;P?GaDMNjVWyiYKtaxt{(on;zkX zJJuH3VKdNX=*|*tYi=b*6BPqU7-!#bz1T=<0!|n#oTim`klh_^zj?Z0*^YxV03D}fA6OIQi=$2UZMucL&$VNCT=qvLfj>Kf z8>4=>5k=l>n!%w5&Znz|adsp5n7e;ka4Iy(T12COg|Wra^PV~kkOBNnYO0@#S?Vm| zt-p2O#iN>U7Pul1s08$pom2D8Tf7$rW)APvr{~ooFWVib{~mxwHE<;}$o&kd{`Y=Dru?}QM3K@T&rIR(hEnxq58&6g+>^X z5wdXx$f`dU%}y*(?b9HhYu{PWK{l$OI0T^cC17>^Lvpo?(+H%|8gwmDqB~`x$#o|d zYyGN;OvvVKzhu!@@j=UM_0SK5yamQ84Abb`EIL4Q9^Gk>fvXbikB%4$0Q_|$wa?(^ zgBq9TSv;<{?J=>c8DXArVsaDrHsEiC$D2RfmV-hIlC$&kUYp}~Hm7_J=EVW_jfugm z?=1K}Vtn`M_bhg&&zs})zix5yd4t~^%!Q2hNethi@L#OFZ|xk+r=tT|@n1lHdz+Jg z4=6>>nHs(yI2`8w{@0fI^z%x^0pPHPOoHCGi*v*<7t#XdnMKmK&(D|?_yA9}9y%C# zWxup>YUN{|t(a!qwp`YnEzzN*#wl>d>Ht{!xwBHnj_~BKb3Z%d06?#>Tg9TV3)^yk zeHjZO@E_sIh4LiXA90|&2yz9BF;DEC+9*?_4eU^$UJ{?<%Kh@qo^69|wsl!8c*Gsr zXLxOE?}!i)iGvx3tepKzWNJK%*P@8^45G*8z~WQ!+QVtR#g(A*Z7omJ6jPwKUpv=-)1Rtk#XX#yIO%dOtE&Lw@BgS{R$MNM?G6HsxPztheEcZ8dkav zXkUv$`9Mhz_^=-o`XiJB59~EuoK-ecE0BUXSfyj9-eF1RvVg}nbeq4xfiN@PX-Nj% zRX?1SyoUD!?ZJik?dP|RB7 z7@*_q`I2eDAx=IHLzX7YE69_vN>N^-{v3B@eKlS01rN!$36ePNlqJ2yCRYy0gwpIqk zMvxexuB-u?*O-lL$z}%QD6Qccv0eXyl-u6-tutLEyM9oN_-0V4qyCTzqEzdL8YqI* z>?+uopEk3=&0jl8+|j^55B;q^!6?}JD!MpdV{=O@G?uasGIF4gG#`R+XDE5M zTEwXKLcgDjdAo)Bl>NVNvMnC*WHsHx_U#8@&IjK&wpqYN_TX`k*^41{WWl8!RG0*c zv1Ro7b%sn-T%z*2AK?`X!^zP@xcj*9m{O8SP)$8G^*~PpaM`J<;*{OCYfs-OT=fNh zKR;^aQoKZjkL1|qxdu9^ejRY5kXMPYe$?eJQmMGYG70myNTP&kGrE#!*HDiAB zkCh$MtyU=23WT(<-C^r{?2&WSB*J#P?B4{&R`!*=%ke##o2?jBv8D~Zqj`BW&)NgV5&8d2 zezX1yRkeEGWXK4CeHQ+!W&cCd*%hbPV(5{1DbVSWl=@BVvoOvLc4BIaWi|=2_=4;W zgM@_$G9+?+hwvAtQJOE2>sjJNeJz%ojZ3?Xi5Hqh9v>uZYf8>+*QQSrt(3~3E3~yy z1y@6ruUwhl6jKxezzi9XM-Fhd$lnX^l(bjSWD2z}q_+sdS(weofZ(plXF<2f4$wEO zkFu_KE6MzT3%7`k=}R`Dz4l>au(IDfkayF|yZ*ke8U5HC6egWNz)kZ+7Q{`PGtqwP zpZ*q>r$Oyl{aH9t3_qG^cn~uE!%0pX7TN1cVg-q?CZV}5qMBbk;M?Ms*<+Cx7E^>I zh|Cm@lJNKTg=#P=)F0&a4bsr$V7WDb3nef4ukWNTjU9J~>YRNzd$vh@%}Cv{+Uh5o z4nB>!=Z6fT-_=G#>%)E9B@T^By(G!yD+FaRd^{1&9r9@h=*4=FJ_65pe=2$2M!3j} z7H@3WdL!r=%j2f{NgV{R{DKaYDV0udxRKin8c6|oE7DW094s)fYRh0XzfYuHP5;&SjP}PkR}_ ztu@yj9zDivTbkXL3cv%HNhluCwApWJ`FNA8c-#c8 zt}z8gvl4=|xZRRv|5fsbpxBTb$-7D=zr^rKaUWTEBKT|V(DpG-|IQjW&aC^1NS#N@ zlMRc1*McN_AZDVKJIxL{rHuLZXIOxeBQ57ta7T9k^xr!3Cga!JOyCxZ7!g`*IMi%N`f0OKTSvs9(J?IjY!Ytzb=HXW(Nn|hNIl;CWZ?4GPUdBCoNq@`Go z=vSTAO)E^=+wTxRn6#gtob`Kls0^{2?mPo`4{%qHaA4SbPB(C#Gi(20j%h&|r-GlI zgK&ygtcHz6AaF=iR8Y}N-kyy+0pgomJGp43K@O*i8@SNR)gI-`78-5t~`l{;v>YhZpQ2U%)Ks3LhXKP|G< ze9ihz#|EKfiP%nKTgxxi%uBxpj#GL(v_7Ob0Qtw@+~wx;s&13I*QC?8KJsp|h>_n! zvD+lX$M-DX*>=1z11Umh)lr}zVJJQRrqWprvPOrdFe4XED8?rvN+!Zc(+4@0=Kct>jK*rUqbLqyT&T~Tr3}{BOX~p;upL#@@Z8~fQ7+Dy| z^>@J}oYZ`;CUMg|a{n(s3{-1P-wBJzG|CE(2$p%!z9f?qYA1@GV6s$E|ff0JFzTYXg9I3SP7oi>WxrActaxuhR}YDK|l-&D0=LP$j0?C@F*!?A=r z(Q@dZJuvtT)6nevZ6MTH?@&B5@D4~fvz^X$+yme4Uyxo}Lj2JcT)le+#kI2Zt!e^M z;%>+aT|$g0G&+GIvU3G@yAHCe545SLo0>Nmn+gPy>>eR(5T7N=?i+Yq`Y4E{7#ucL zr_FVpk&Swzg`Tnapd~VdIY@$Kr-N{q<~Rt0Vo<|oY~u$plWP-wqm76*D$pez(JeZ< z+`k0^Ih5vDRTMXChT$1<4p?@13usMxLH2Y(vY&0&LiWMwE5W_}ma>KMNQyY71{4Yk zy`kl{kd#C2fQq{4BL3v0jUcM5RE96=Axj1Ty}YvKC?D$fCYJ!m<`c-LMnqfVWlgM_ zNMx?Tq%8{k-wTe(WB;T_J=@+jbf)Lm+zhleu#!I{Qu<<&e^t5Ns70GD3NvAha0G}e zyI1;FT8<=m$}??VO0XjGHTxRPdnr_AT0`fe804TCnL_6EC*B~)55y)YT9s}Avj(h<^(ByTI0AkftNjU`W+R4* zbp55jCMYf4@dKRQvYa~@1soOB~5qF6NB^$qed%aY|!9*!7uW!YjH=9HPz)hBcqOxf*2{O^)ja5wy^TL^J~v@#_Zw#(&!63uZ*4VELfg+Uu8#Z-S%aW zqiugI`2Y`T&3iS*r;F4v*@Bknd=MOJM{ax!@~66_0YS@WUANM7BBp`UmydwSjOz^w2gX(}D*&A}YfZzaUsr#K1N za06V=Wz^<9E5GKK*u8_fPfysr%eM$q2jud?1B)f#m}$&@h@TUPuUy+Cl2r$RuElSF zfvERLMyJ5`(1&6Zcn3l`O^B5I7RmC~bVt$XYnPDS30oGdKKBAfy@N))=xpzn&DRqi z{_~G`0*v3j4ZMC#KbgisGT}g?rJ+HnCjZ2CkQhvwQVG+dVBpOLQJWy3LYbfVmaS(F znTvMOL`FIp;fepGt(8$Hi=-vAOf1p4LHDp!W37e#Hw)jX=*e7zm6XwBqp%{1rp8rU zi6$dIrLkiEv{Ya@aFudILG{F_BTk={O43_8loqJI#lz@fe-gkGzwv_?InJp!e4*;q zd=p^%1D^6yE+vR;gsw!2H7oUiqKD|maoswsj&ZD2`Pu}=dCMKMc0()I^C58HswxIo z%nRAoi6SE??TbJOD_Kl0zkbxbE3Ei_>3--NaTNS0z3EX4IFpB^jTb zn_DQypQqn#CFc_nssphiV@B24*xY(y11MghkqL!-n{fOa_~#wO-w4x{7S9-7{ulNM7WBwYWZ zcb8P!x-R;timpf02EuFa4=lshVJywalbPeS^mV*N5Gv~!UTYmC??^Pg$Mv2!&nSbO z3BEa*KQFnL&xSNU(86E3cX6-}8di64bM_OK2Xz5XZ#|>slZIAzv&BhXctVRL`T7c8 zuAEAB#}g~!_!2v4T1(e(-z_hBd10YB{Kb@5&=$~9KzEocTRD}0p|VOFXaz(wq1`Os zjIGX{4pp_2>nTj)NWy#`_4NAln8$Aia^@C>KHJ(ZkIzg>+FcZF7JzuEM>ooHes$2U z+}idAQr$;ub%!BA%J<4*at>xqaI@JXo4`;IR5XXiu7HdX#i_~I< z>dr!~Y`)N)`T*0N&S6RW9%=mpiH9}JOio#fw#n2TT7kNhOflEx9qhVq_O%2h z#}g{VHDUb~p!-9-Jh13>0R(y)>T#$7?`;KnP+9#hVmaRWsc`2Ex)RT;lDNb+!Ri+r z7|dg_OxK{nS;R&`K;Ns#I^h{K5~85&2TRqck+P6HYkYLg(JkFsL}nTJa{T#IUXJ#q z$WFZkO(6=gb5xbF_OWB6Y47-rSRWgL(BZCB6C~R^$fa)0`w&h*sE5Tn$q;j)7t4ED z-%|BZZ&t>Bx!h29C~knwU>a@!?O$W_M$>Alo7?u1bUy zz%1wOctZN*5wJADwg_9_w@^A?URU8~z=A*z1>npTz(0j(wdQ=N5w?m#UERyX2FnEm zM1tqq+fKU79#tHlskQ*BG9%rPjt3anHq#lf@><7}|K=d5!JWlZw0%|nsiyO=fYotjG5HR(0!QdL+N3sw=*%}Ch5zDBW)_DAc5PDVWE|j zc8BdYt1D?${*3ieib?F6<>Cf`cMyV#j_j(G6vF_+Et(Gl7g@)F=}6^S2C+atG`*Ia zgOX)ZoFi&&>LeBD)}X6s#x>KIcBX27M$hoP{K;VnU3jFtZH;x`{P-Dn-@M`3o06Xk z5kzXtbYi8{PETpZmmSH7H6G<*+3t)~ zRrz)3>>4xlvT>B-pq<{KF9$(!^D91L3y~5g|6B7X%tqs{bdEe*MT=C$zIA9t68iyp z->mZ2oJwd*GJq&4f2Xj!es0cj5vOtDn2RWChVjTs>d0mT*rTAh!FSiJcgb%Ou=#zG z3}ZMsmq(Q9XROA}%B5+udNnzxShop%WOc4evodvJ<+Z8pnSIwBTfCb4vLUqh`!W>> zmav|>MPc)$2Ln>|ApST`?&mD8>ruhg}incpKjc3RnXAvk9M!Zb^rSl;38 z&EjKAu-olR5OG_RS&ZyorWj6kcJ9%%R+rf@xY!=o>*V2>PmxPmG)E#ZuY&_m5oi-*2=uiXx3V&}p_pV|TCG&fCLw6`C~<}$ z|2`_I{4~*k-**TG>Fl?Ge-0I=3hA%hCVB7pQ3&+!1ws8Pg=) zU?cmhBAWCFNizQ}iEOS?oFz@%mU14@Icl2lKRhooU)TTx`-4-i&zsT`v6u!^Ttkh; zasrn916!d%JK}0qk1?CooO!qv^683zY81IoxY$bW+XP1yqbn<3OoehdELQ1K#Om_! zr2O;SgD2G~e)LZEbVDE+r?$m~h#pU1MU+bK1ap;G7;9jBTxTnV^_$2tZh?6qgB3R; z&JRsKt`NNhH>XHDLl<~@EYGP<7IZwtve{DZ3qdS&XDHQsp~pA{xtdkVB+cZU%!YDr z6?ttC(aXCsegQ&sh54InXC0>^{z<=@m`6_4O>+Y!Kc)STE%ezTuRN?Mk!%EQ35}2M z0+CCQ(km?@%M|xW-1@*)uv-B`ald5CatBbunW>vWp=F6H3mnuEnjq)yp;Y}to`0er zX^n}D;Vy!CIS@meig@cObhxhwy8M6)&KS|YC2=$EqJGKbh9p9SZ+iHt`QLcf?HT`y z)qA_zBJsRCRAo$H6>z$c7KjgaY9;%+7GGXoavfdpWiJb`F_U)Diz&#b1uDtQ?4pYZ zsV(m8qdw%)0=ZZI79=@eAs}}&-`(L7{X?>|R8{Q2|{ow?mqQ=}7N<>x>lcuE5m{z|PNmYYS+Qq|9c8Zc(K z=&4T5?SV){qZQ=O&;h6uo ztPnO<7B-guFDqms?y$l0qPJJn4xGWdpp2QtxIfy8`5hGTp8?JWR37)|hn5cIEdpvu ziM$2k&PMeGO)Q4bC{IM8e{K2er4i;|yS3i0uHQ5*0sddNah~-%%EISszK}~wVIK!a zLPno+Q(t~Idrm;9S2gZFlLLMwvz5o8vC!C+`rX4p;Mmu@(cRiE^UgWOM{!I2Qj76@ zgYk~tE)z29LC9mhLU*q-UXFV~Oj4JrwP6H+uygzM@`3cVuy8N-0Q3CVL1$U-O>jZqD?zxyRu_EeW&9G4149| z*_i~YglFE&SLeq#aBX=S9#6`6Ew8diRf$*>bnjXhqXTocYP4!{)oqN%R>@g&GZp3Q zGZG${;B=_61X&em!`!dpd<8!a0E589H1a@vAhU`5#2!)0-Y(bkSqRL|T38B-Fj|7Y&vj6BY(x7$pf!Td? zVaWK!_Ef{Zvf(oSCf!S=0S3FDpkxM;G8l8Sa-5k9sa@YQm}(sT8s;-6fz> z0YO{08AMdc>FaTYKWF=lWIr7E%Ja+I0zm@!iWt0lnLb9|2wiTo(lqqwKkbMmvPELl)Ehi2e7 zZQB6f(TxptWE7no!d}FVi|$&tP-ZHN23#V!EdUxDvtHvL2Pj9KB$(QlX?{uiGS!s) ztj3efrGnyL<}xYPT@@l0#MBHz8&e!DMg>xV=~L}x;y}54FS+%$S@MMt>0nf(sX9$7 z%d+^o8F`0V3hM_;%U6)m>E-5@+>5s z5zFkR34(}DcBAHr^4!z~>45AV-$ zxDmgp+^D+8w;>QwNzC*wSw_G)3FClOG*7o3P!CtD8h;BD#<;EfdZ#32d_rY|DC&kP zjv9Vu$fLaQg{7JC^&&aVPHYQMwA6r!;TKvoRI?Xa)G9-D&Xk9xb?XpR&#@I8)(6Ic zQjR9!C>M=$P2wZQhw<-OX6v$Gx21$CRAG$J&bSE6=r&(4haym*Wq^Tm#3X$Cc11E?){d z!awy+7~c#xWNwP15i=kCZTBBR6RPu+c}ayLonatgJK3C5Ysxu=;YxhvDFq?&;mmr` zv{yM>!k+Ep?M>Wv>HRu89@^&5sKGpITN3W+F2n87I{}lH47=%xeUBx19r8P?Ub$VG z=|2>>rJE-w4(dP>J<(tr#|CQy`#!h*En%}a+J0LEBQi@X>?A}E0)iBmMW5Ju4})`i zVmC(;DNBq5AB&dp)*~e5%b5?Jeb7Bz7GzPS>7d4w1`F?x6QRrWu(h0357`;y38GVBBFTiWL!Af`2uvrnhniB=O#-ePrtY<*AjIiT;D zS0R_w;xLfDqds*r?tZJME`-6-#Ury=wgYJNc6>>8uq9z>mPwpDx>+fQT)AORdxeGJ z6B7gg6cvGB*pu_-2DRcmo^9Z!5qeMw8X*`SHXSb`Ph>gXyk*7FW+TA3l@i_s=a!j$Mh!Ub&kQT0k zifU-UTl;83)*dT!*lSbw4BfE+LXNgKXhZ=`b&L#qUq?F5u^EoLD@|Y`z~XPynL{R= zMPr*~alS1r;;VqCr0+b7lD`O-smZ!j8YBnz)=(0G)Xp%sVpb?zujPrCK_uphx+JwA z>l1&*oWxXdj5Rd<-CT^#)D{&ivdvAmz_HB3GuejP<#c)2UbAhjv;E<_dxXm=l|TQq z09@impWr3a9J`)D=3CRp`N&H>bBME77Y&%DAdTZBex`4+cf7 zFs6=1SN+P3%L3-377!cBV40{zxx@u5W4};#xn$baK;HM|1vyb!4M|Gww2D-PczTl5 zAWR%tKV760ODD2bs@7CP?=vqhp~*6 zMywl!rm?@!Z+Fnj?po1w@y@_TvG8K59c1OQphUJ3-at=$^gx&?nL1L&i3x;}9Ei1L z@2*RhT5oBqsY)uejEx^O7ik2e0E2JFup=sqjIeldzq(8Yq{ zYeE5`Upx~Ws%1J89Q-MriP0hw)8!Dv+&d67M326^{;Tju zPU$iBvIZkcZVFoV$6_f^@X_>*z7dO{eZOwg+%`BwaR)+@VqqSixo*MU(xwy4WuLj0 z(5H46M5~h0BAdBx@d6aIH5}eIFjgsq!-J!hv6e$ajTnU3GUlQ+y47+)< z^&i3R_&(XLYjT?IpKL_gutbT8Lqc?uj=P?;gN!z5^%h97(6|*1i~SR0GLTe<`BNi+^k@_oBs8zEDK3(fBry}lZz!WNR+w>7i^~yof2_gv>=mXP>fcW51 zWYRZ+c#qZ|tR0xm9q6^cy!>yAGAfHqLEy3YiO0GUZp6=7_+8(#z+U$L{VpLB+{A?u zIVe7c<-`cQm&1y@?7i0h?YIY843{V`%T&vGy{;k1#JR8UX*3tJqzS0GI!I#BU~g9D za#spk{!dc?^&?@8s0GQ5NQ#|mvPcYQG6$K*O5C+ub=%OrUfIM~IQkNLfiX zT$tw85V7S)BG7eEG!`hr(LqK4>YV+s z9@y3}f)lYBY}^N_IOz=-cJu5S*IF~rPd&kM3U~8UMTb23sqUTrLVoJF)XX;T95LPc z`36x);zlV_46$CPYf0#HsNLl-CE`C6bKQX8Xg?J52DE_<)^~7C5z1?WbvZK}5jG7A zqyc?%?Y>IMFlVjEZJ0+hl24%yWm%I&b5}$)sNj{ z*_@K;k;@e`Jz-~BCy<AN3;QA$)wZ!LOPaY|zwR}cyX@KX`yF4KmkE9`_?vsRgqJVoIvQWa;dg2{G!Kb~ z_Ge`XeVgQGhVb(yU%%J_l>J)h4IqJ>K~(ae*pTDT-}$Ucu;mGrM6SG7)4 zXq^DvRUNr1=^~<8&mvd(UdCGAZIP>d&)1M6S0zgay!A85Rp5F3wrGi5mC4zWHu-@Q zuE4J~_EOM9suJPKxpP2v35Up4Fd|wRf1lR3t&p+jw2i~vx#8N6*zVjCabSu8H2bM_ z8ku34j_IuBW4YnFvE$0E8^pb#9D-t4CJ@?&58AA-&3^%^Fuf(NU=4ews76FE8Ie^Z zxW+>Q%i9Zvy2mwUS{Hdw7Jg6m(dg}n2n?408#WGE%mzJsOaU5f)prBkPe5RG$$Io1c&qR2D9!B8z#giHkBtbK_|70 z1!GjsYma!ssJy~xwycfnGay_TNe-%`y#c3*U7Z5lhYY1TJtY!x_okKhWL z(M4P<#FoUF1$2gFOH5J&CaK}BfVh^=WzeQ}Hx5<_4}AdxOI?b23k^?jv>h`NS!=bU zuD)kW+PdVxhAnCJ#>zHolz>-YuNQ{GyMY{B;}vR47ed^E{Xjsoh7{hi+fmSTcU$pE z#TGT%z%xu_z?{ed*kA)l>(O?N61W@i&~;U7tR^0clFS+#LH!K+t7uppc+pC+&SKUx z8%Tb4z%D*kQwf~Zr%CK+MLV{L^+}(bSRBAc`C=tcPhCD`C1^|>M%gxnvIHY>PDmF; zF@@}8ikS5`mXu)4Ku@o0e`rVMXW}+_cWEZ;gLuJ#lObDv(FPu$*T-a1YB(Y!weRhE zl2}g>(q_m(M(`4wUOx4y9x}?Ubf9v*POO&bk^|Yzw!Z)7Xw_c& zm*F~ij$5FV8%~)c+)e@|r*b9^Bq`Y<9#}3qBayUHHex3FgODNUK4?aK=cBiTx?>`v zD*U>rsB36v$YZ+az3RtGK`{jqBo_8EL@u-CQ4MYNeD&eGK$Ax4`0rQLQ?EkrkeoP!g5NDyhckja@gu~nMr}LxE^q*SoqL7oqKmjB&(f=I0>(paJhMC zHOtMdj&`ByQgff#?%#U~<+})xe8bT|vj0Tih4MYsc+ZKvc(|*lZulzB_pyG8?{^=o zZc0A+1N%%6MN#RR0@?#R)&NaJ4XQrY!o(id%dH<$dv+q{qGSP^DdYQIU%^qgGvwG_F`64VAHwc1yr&~r)#-&weiAKFOERj?Vks2Wq^_8%whI&*s z5)##r?_O`hp}RR%os^)=?Z5>tSd+={}@~;olE*5|fR0rtV$_7covs$!jA+{M6N|DBtGMBzB02ON?@! z`y~zub(~G6FuK4%PzG`v&VdbW(wj%LuA*fEr`j>Fqav8$ zk%<{pm{C3+xhFmwzJPjBBB7&9TR&=abnz>wU`V1qB}5`ZDh`_7Xx?MW@!+8v$K^eL zzv%A*F@O%Uims`lZ!SYZ3hG%RDyJHT9Dmp$N$kj^5d90_d+H%k6^X}s97>tR-4<`L zWcGL!ZLzSHgp_afr~tm-qdKRE_BM}-^u5^UQ56>7%??$+q(<8_6yHJCmU&s?aQQY{ zM-*SuXIqMISVsf`ZCddqs3&o-7TGY{iZ7u>#g`yMPf1z=L}x^@;c>+mP|0O9Uph1C z34i(fG+zRj5n-AyA!W^%j1*sVW5vAh|M3XTH#smU?K1h0X=}+34JHfx*zeSQs70x^ zRa*IzHD4c-vvR&oe#sc>M1&phep2pUL~K8IzOGS{&BLdT|Wqyl*DWB zP7i`C$ z3j=aC9&H$sH#M&9t)}77pD3R4fe*?QiO=qCd@2Nf~qb9>^Hrgi}V*zAt0 z(A3W^jR(VwT4CxZPX1hsmKkh$8gnjUYRP1l5q9tRZMqvk%Sh5##9}iflnhcYi zR`opVuu<9qB3l65vctrH8nXJ6dKP93gQ0E7XzmCA5aioG99>xvBV9n zye~p%M$Q0e-8a?{S+Jai7}L24f?}#%aXr*mbXY_Xb+A#P(1=P?&J$!fU8B?D7XyNA z99;xvsSfyjmVFxhUHq1{W6oNKkh$0F_+ITS1vCOvC zSf(jJflnP+YYRtMW_>P7y)WG9L&QTF1}<;q*w&zt17lmeC|!|loz{Rr#iaE{{EG9B zADFrwRfPF$#UHS&Dy#X4v%FjL6E#mDACI_S^OLfwotl4FSyfi^?$uSs{Y!&z$d7FR*40bfPrjWYNWyr)n6{OI#cyS{nZiG z&ki`G`T;(s`T@RE^#_{ltZVmZKSTFV^&{$F?kTh)qf%rAhVNZy#jwAr&}v#TZt;7D zfYbUt90I0xe z*@#o+2-)bnQRUt&n6(4=G~P9PSq1}FAnl0ZM}YkxDn@;>Bx3w`RntyBtD1P;rB%WE z8lxt-r8)NDP42sXM+J7PBpscFfxWojPn^6wBaN3eq;CrQO_BYaG$cbrP^u1K>kj?0 z0jt&ml6;IaSlU2A>v8b}$AO(Ydwqpbp`bNai+$QO)DHkn6P}y&sD|1apl-miN^B_& z4U>Bf-7TzD-Q6Z1)=_jU=t%ay1Xj0KF}YU#tf1A6wdXeein=;JK~s(Ais0*{wl_`% zXi$QpYaOZ!;rkY#4%NIa{TIkv$*ygHpuKkh=q@BJ2BCDj0#Tl1^N4Z4v7)=CB^ky- zIvS1M2A~iRCN*eikZ^v+``_!Qv1E22!S9l{RekJW2!XZVFB|qtgP%YTg+x;Fl};oa zWR{6CRq}1f+_}W>$?u-x&MlJKl5x+v7HJWhWPIx*Tzumo%J34%D@>=V043WHk$&t} zDc7}qWQEjd9wUg`JF1l@wlS_fh4{p`eoeHNG1N<`|18p-khCU9bzdQtU5aiS34-QZ zz>s>dCLP3$sJp?!;Quf>ViC;04VVPDK%Fz+obU%!maI}70GU;sP+7$aijkcQs4Q#+ zjr6{N>YkyUH-xNF0jP$OK?2QTol#M{@Jdj7`w1jOM}lgo9{^g`vw3FRD=?5Px3rSg zn@pztGoV8}fsCY82SOHtKzcdr0~>r4fVA@x(9__MHYy;Tq#^H-1WO%{llveV8rvM? z&Yiq5ql~D5%&TKt>B;uhPhMSpD7&75Cr@78lUG+id3FAI!;@DRp1eALz>`<^J#y=F z>R)z$I2xnSpC68HofVJ?M~{O)Y<6DW+2QEXjQ|Tr`yG~fI9lqV(#13+H`VA6;Xtq4 zx5Lq}eP%8kJz_kh7@;22`xcFWjc~M_n=Gr|8~q2u(UUjaHKfDQlQ+o^gri6A?cNuT zE<~u$3rDvT9JnV!?IHscx-ZAW(VZW@TsT_L6wMH*c7Yrhjux~Ojs_Nj^Wgk;#sQ_y zP2p&O?hZ#cUN`R!NAJ^(LtbXt6MZQqR{rARb3x5n7CH61=J55 zzX;_0&p@rY8+^tik!VpP8ZAa&!idH!UvMfTDO#<2JP0TEky(clVrTloMA*g=s z?=k3yzWViYEJSx}tgfw>%}hQz)!et+ATqSkSe*PY7~MtL<3j{Uhut7}Ov2IIzOXmT zwa#1~-ssyvwClwrfEEpZF`Re;DzU&th0a`z%nKd8-X%0`>ra!S4=D1{Qf7OV z*P`9>S@y3bZ++Rl-$z@IuUCaXkMA1){q*6w(Zw6S%yETZES^@x#a>6@pSs`2u65kh zl59`<;#Ly}XXeHnroFu&yX4kSa_R{+El*&pY>IYI7}r%L`JHSpF9AJ#4JI*iF%{^9 zr`-FmrId1?gtz}31BcdXfqJxvOgV0B7?#37!Nd%t!6`!qER^>1KV6z zraoZ)^ceBb2rtBoJ%i>fF$_dVm1R*B@j*;GQ6^Mgju8RnX4Y_)9XciZp~^4EoFYYWcFx6@KhVuf^D?fpYRjQIC92^~Ia zAbC!Q%EOX<(;PbB6|^VIoQp$Wu3fG+zK3Jp!`<^ET9Of{BQ^<@F!?-QWl7V;kgAW+ zR=Gm$QUeOZaZDUtLb%T7$&Eir=$ATslOVIfd_pCAo`)ROIH9eqf+1!xJz3Q-l)!*Y z<-p0y3Kg>;)AnIQ}r&{@GWcYy<48O}8Rz$={2 znI?(yd;)3PUfHmdmM1M5W6Wmr=3Uu3WK@|zxH5q;e6!uR7?&8R$bn2)BNBq8OcyL- z_9B7j%>w5dPjwcvA!iaEC}Wjtxl}%h1&tXTNRlxSBiEata!-ae{Nc;h$Gb^jJ8ahQ z`JCytRU2|7ZsTnx+qTIi6B;FzK9ruXI=b9%v2EE~@}wA$(1+6VZSR?fm}`TMy4PuKg((BviXPJ?dZ*0khwP22C3DDItAZsjupofRX- z{FZG~HryDW$Q;^`wKMyr=WUyVhJqvV)amb~@+fVWd(!RY1^u3aVr%^D(tD8w($y)D z=1*qEhK-1JtN~&v0kx(C8ga$T5)C9_lfg0(-SW&Sl-hZdAB*~mC4begZNtY_7sF>e zs@~$GTL$jq4v{Gx(5VdvNQE;B=iMy>Nq@lmS_UTY*)s6d{Yl$(Z|GRR>6SO+Z0hfw zypZ zmX8o3RBwbHE984Cs^!R5`GayW7B)xX_e#h7Z~iG_@u+7<5bp^d#4GOMio$obH)n_^_NhzMl? zCHj??%iS*>Wn0R(=fA6c7RlaRsJ?QEaT-093t(>v3r2Q20TsWSWF{}HRLQJghNTBO zHsr%=9N$^s_YOJEIxPpA^~G5vh4d0CWp0fTQmj5q#*Vo0I_RK{s(k4kiJV#EC&9TC zHBDyYc;%}hAT;v(MHgfAesC3!yPepW75D;F--)WCnvCRX>)JsX0eGPf$%Vc2!Kr<% zd+gtBt*g3fuUU)w&N?4%VJ5W?9-IpSlZu-Z*OIr*1jV2ydeA$1!(24xkvf#bhJvm- zHqG&%C!TRLX5xA%cZ>9FSC^!Nu#C8gZ0We$fFsRJN;)$=zbB)v%!4g&{ku#$rV&Qg zhK)A;U?xYVeyG8?jNH)cI~SaShYg%^9rXufOy1~UCg_Gi=KDvuCuz|bctyH73A!F- zTw7Lo5=dtZgTd!MYPL+{Yu$a6ip=x9VbMf|N7tvpRlgR)Uvq~2+wW<<*R-<% zd&wSQpq7KZDe73)D@7k&bt7Gdt}ganWI*CrT$tNsK`|_~Gb~X&(x~-FAdUE@zh5Nv z7%b@`;`VH+-wHZ`1->^9J!k+8smy^9(-^A!W6T1-qJ*()ZnDyA`fs};uOe8Q( z2W=J3B&$O#L?6~A7L`%m#Q804USQ%Or15TP^8#b?B{#60$XWP-hxAvlD`kRhHQ)GIEBCbL+^sAf(6cUZr5nrgCs75IcMi=Vdo(g|Gn$ zFKQy^(jsf9VC58B+S3hUb&g-_t>~cIyup4ToX@G5pUdY<;TavVnaGEt4LCG0cZlvD z3Tnv!(w)0UuSI!_A?!1Ukttg;mB0umdUc#Jw2_EX&iNjZG~-GtxQgL#R^hknmrp7K z(Jc^eLvZmpfG;oXQblu!=g3RV(2Qx8=|{#|m(4I5E~_CaU`T`q&ZlQ>9nGPFL9a)j z=LXhJAe(yz5?sjSp)M~69Fc~P$PjVxM2*S!$Qa;k0)cu6*`5J|Kh%}*>3U|c@Gn;B zkjPS91Jse}K)vRjTwKcIg%QXV(U1b1JmjM5d6II#S|FEG0H;zze$RK~yXvH#iieR{ z8n}*b>dgLJ6{OkfszQ>9`M3>t`U=sUjM~9y4n}84^b__cxo%Gd?j=lqq^TOm z!+oVQzRV+Rl+F+|9IBit`xymnPZWV&{HDqol273yL&k4kBa*C+E53kAE~ELa`#Pb_*xQoL-aiYNk`F(t;+Yh7Ju9B8Tk}e9PU-cwP5*AT-8Xr$ z{s<9D1Mwq(~gZtHH>(FQNAopMlh%eL-XCId=+DuGU-2N5gf_X{;$h6pbQ>6+@f zt$STppT4bohxa8=gZE8y0XqtBZR?)WC%$%lYg_l^68eRREmNzFZQZ@AV?$aqSW(_y zr@@M1x~6u|9PF7zGVMM5+6nI~)9AKs-3j!^ZR@U~jcwfpO@_x$+}0f`=6Ml4-NXIx zw(cs)E5i5oZQU_v9G=^{?{r9qlrrt+=B~YqdE}&&QP@q90KvyY`Ls$$AQo_-g*(KA zNHG!yqF_NgZo?hJYCw8EXyi6k?E8-+U_s%|OV+1jON znJARV$vGhs-byod##v5`^7wus@#c25)@@H5Wu!x@DE32eO_^&=A?VvhEYq;eDF{pP7hW z(cxs%d@BRD%3(&Y_^V$p8S6bp#K2gywj?i$EMVS7V8%v)$XDf9dxY?@Q368BNAgu6 z?p%0&@}^pA95V%HX@qqi*`36F$m<$QE?>1m+y%aW1PKaIEfV#)KDwdx(&U%7DQr~e zl0Q{k5r!E~3FDqDm^xRn!5F4OH|bo&6mNxdS@d{~NhcufEYK8HQm4!kB(-o_O!)kc znfm&}qoPbNLVPbZ3ITbTwp&?^HU+dJ&=%#PNyGAAyDlkXBTJKG{D5+>vp85P3ZN zhd7A>k;GtlEc>TO2-2b-&;#rrK<{J!5a`>pe_&G-4Qcidpg(~9L!xVifZHbf2l|Zs z0QQdr>&7+*RhGs4Q1;I_O30^w9me;LXLo1+3YosZGo>5xJf6EXaRQd~2P$|V;Zl1# z-`WLt8h352IxjB_Ho&{PHd{?H-+@6D(Kw4N`meXIUGLn3&NJKB$`$SIwd)o6?zLiS z3dSm_%+9+*bT1f)cVa`ddf0$dYB2L9WMzX_9Z2xX&jSz)f$&5E;ZfMrNtQXVY%~vi z213XQ)F!C)**+E&il&I3Lp~~WdBO0}?yS-Q@iQ&giho#pmEBe5`K;AVRpz_ft31BS zoD_Tq73l^ka=g7tIx&5`bBoMRY_Ia?7MWx9czPD?rTn-e^Jy`u<`dehEI&gzDF)G) zD$`y?E|(W?KEPAXae|(k6?D{HRnm153tPzMMBWE8fNcLoWg2Ge$4z7~$z{42W{x*~S2cRXEVb zAVH%0eD1BvRWo=4E#xX8SSq=$vzXBs2WIcvlucD5cg|kS2wV&pm1i>S0rgM=Rn!f2 zzAXi9D;bI1N2y69FwFNW>Cx^37NXmMH*L5j{hSjtc#l^ngft2Xl!$!INJ->s8fg$# zXGBlkJdCoF1~gzvuWGhaHsMNAhC)j`Owx#(^oe!!wtcl9oYqos#=NYyMnD3WA4eB! zVjEn$Z7$nu-KlEA7RQ@Ks~LRErU1V=aE>>0L8=^kY+6S$kl=XG$+{R3GmVWK5;72s z@tjS>K~^H$KzM}la@%>!s>SWR8D-e4BOOHn?u)@9i8KZsP_Mo8Fj()SGL<1jr;{!( zfdsOH4l);ZZuTJ@sE7}Yk)Q2T-I94xhy_)@>;~5&CN&zBaRQOb%Zs@gTO!1AGYf2o zrJx~hc+7s_$kK6jG6^LFJ)%iXfl%wbVxF{3_FW{}kn+%h?e7Tnqf0|vGJN$K)p~ju z(>R^ze;_a;&DjlLo)H%?=~>-ClG9<81Sb0^A>Ogd=%j7e=w=^j9@c`S6Fa@#z(@5# zi-47(;XXbp2?vF}eAIe1kW?I8p^AIj3|Y)L2SdzahI`sh1#Eemjq+k;({MY7*m|GD zN9~++sBC$MuVF3JZRkkOX>?RSDhC%=S1&he@3sn=r~pff6qA^wFcE;X`a?bjmC)+fLYVU57_Eg;a5ctBD`o+}45O8zylPb91FT}#3)hE!rpt6bdq^v-M5t~|v z(z(x_kGN&RffsAO_9AOY>EE%bt!i51om=YU%Q^xEz=EZ;bzW@K(wud?oEa-e7L0gi zt#4cAq|=_gJ1KWC_nh18b6ig+dnD5&x*|p_gHYM}B&a6ZiXc+T6EfoK8gBa!JLbzH z{N8f#`1U}i03A|_VJiy183zYmD5@h9XVM2^{g!^OPTR-mEAb3^&t9CDyRMfc{G#Au zWX$Cg@ecPq<_0ofTkd{H+B9wYIX5Tm=x&Ri69_fWrMd&N9uj&n;OIpeh1jkhI$De6 zgO?Z0OzV{=oOo?O?c@^OnUd_Yl<2*v39dmU>PeWCkk2Xe zd?1oskux?fNT8Xl4E@-uW-NjG&6FdHrC)nY-EVa+KQrNx0*lNCdZLfn1VRfB&aoSb zP-@|lx=@D29>VTo{)VV$Ezx$==o{@?>QEJs`EI5T*~5(}!kp*S;IyNDG_;*@p`YdI zgfdF{Ww_yAz6#-iQGzFpd~~u>61M!fm~DgQ<$qf=f)3=}M@$~(;Et<-XEg)q&dws_ z!3ht@s0ALUWK4H9B1h%Nq}$cqqihiiltae3c3w0F+TkbJY0ZFNfCwgS-uk>ZPmo_S zDjBy#y_npg)>xjzbYaZ2jZFc_9Ll9yA>Bj0$Vg1+0?P>FmM3J+-oDSrHyYpR(RVgS zoZwm1B4WvT4$|$gIjUT39I+FWc{@mAF}_|$XO1`T`!14!ytE3R5QkY427=~)5J&X> zjo%}RM$_v_hkCTbBM;l7YBQ)#Pd;St_pY5++w0!0pT)R8iM1QwwiJOUGJ!E&N_3il zJe(}E2cls)%5JhcMCYciGUcA1*ySkDo}UR?KC%hupVsqp85xG%*7I|y?PCWlD|h6V zV$V-sQEBww4Lv_GL8D{N(MKnpv*3HH=*f#DT~U0P3{Z%t)X~bmA`?Gi)Q6Z}`_@;r zzvU+|`>IUKPXYn6qWZ*^pWqsMn;5uUq1Xo0Oz1#lLLlBraOrQLAzdsA51qkg_DtNT z-SiT`z{~tuR;%6hn= z9{+&q?*_4H?_`5*8(lJ?QQGN4>G{g{xYuUewz%X;Rr*h!v+~^4Jh=G7%gz1EL?HOdgwc z%m{bqu_rk6L3!-{ug_!Cp!qY8JqY;BV=v>^Kl9i>IggzT^atj#(>)%U$M%iIpLuML ziKYLY^4R@1$zu~&XTr~$2rexx=DO%BhuzFrPi+j+fh_| zd%wmBZmOQdceYX8LlYuzs$R5SzfwEdVN=N8+WXayJ!-e=C-#2rCbbXZ1A4y}Arhbu zr}cjA+8vnnM2II<{*__Kgc{d9!)(r*zXq{HmqDmh?X;}>6EtT{#x{&dsH8N zQ8ggT^Dxy%Mwh8RZ>G?FS5>5Bs_lcFsQSF-2&i6yQbRqBw>4f?9#ws)MwPnNL*mu) zXQ@8jajji{o~8N%5x*hZDRi#}k|kx9+)QFjEMNn<3LkfpLm394EK91;hq6c*V3nhc zwJP!;JU5O?T$}6SB9@ZZgC?WST`LDGPKV5?al5GbBB)!H;#}<=LOBC_L+Z zb6lTIv&lM4OtW+Lh}pAkO{PuRi@E% zBYL-rpBvGKzhxu(b((H&L=Wybt?wGhIP3DPQ#PU(L+!MU=wm%e4&vT=N|bhA)xu-F zTxn0DD$~LPhV&b>@Tk-KJg$WYRP%jx3lDhd%dx55yvg5dbaej7Ej+~0DYx)|xo85M zriDlCB@3%Es!Wmbi7h-vKazypYJ#LB7exvP_%x$cKp5nc+vZw$=0T*}!4=7kS@#UZ+(V&sp=RT@K z&+CmHG7UVElSi6s!CvZO7TRxIwIc{p|LN8#9fQ}t4Jx9~uZUoEIxTX?K1mZH4ikzuzD zPuIRbf73r(c!VF-!XtM5>u?Q^bPs6Z5s>T_ay>lA$|jKKtvDGhpMyYi$q2rwhsWsb zo3OiwhvG)u(8Hs3PE5FSFNz_L-L@A+f@CEuL-eEeqVPtknW?279s%j072odt<|ZD< z`11O%dTvHBxEBbI@8U5M&k?+-z{vo{*4K93uG)q0s4gC$qQZeL9s~}Dx_AH_4t4PW zIFQ=9u)m8(*y!v*mOFO|@@10Mr|m`&V=HFuoozfw`2X_45*E2O9x8M}&Ofz{M@ycx z$N80SOJ(;DPi6b?LU^XK z_g(O&y(pfk><{oEsqEpI%C@@oFHdDh=NpCtsqE$IH|<4{Y>sCtJN%?n_HbG%yPSa$ z=$XkT;NOzT9-f)(((sJWOg2U@!%xU$kKZJdeJIi9GT8~0&p|TTNywa*$xe2M*oe{zwM<;#0YrAFM&g6A;vh-aZfOIS* zeGMn_p%SXoN^-V>IzRa4VbW;P?s1Sbc7u@G=(PS@V;IbKp-Lb&H1!G9j7{$~`c{H@ z)zjZ*cbi6HT(Pa!c+La2kO-uSmN&b)77u0ekVOdtPpTJWgHN=BbSYz*!1yJ1Q6{$= zV#8~n2pXMXbKPKB2c*FobYdfJQ;xGDsS4;5XPdtW>W!0tZ6zV08L2EIi z!m8-4xeb_KCPW?AwY#e`Ju(O=H!^btS~P3yC;rC8#_X>Y5TNaRq`69Wx^x61M_HIdBoO|#MX z2E(naCJp2J9P)_)H~1o~NK&DgePAg%hTZ6JHe;f(#%4IjI%A=v-FccK6_!M?L)nQM zV)+Y^PnjfsezJVbDw5FIo#TnlQ{zxt2qOu+5{eMrEsD;J!J`jM*c6Cb7~ zXE(K}Mp)4Xr^p-Dw}?&TjhYsPN7JG_dc&9uY&w*&Zx~R+o6ed!0;7Euv0wcgW~wPx zgEXqGN>)R&SClrvI%aD2YAUW=q+abDx{{Fw%S2tTItUwAJyVanP0Ib%C`CKJ*Y6Rr z@a7GJQX@a00)sixv=}~;&u#+xjqKGSQ0L^e%)`Utd49dd5$5q-JYS!)X&)(`bEFw4 z;nGlwKC#dhk<3IebGb~!vPi%v{=h0>dh^Wd6?+}B0~)M6U&Me&qzYN96A2rOOli10 zX37i#;0B`tl?zY8rdl4?OGHxe^)_W|@RYPfTnE3k7Zn)X1d)Df33b-{64)0uibRtO zYJn!V?xCXk4N6h<|L*g3q%Q z!K7EEjK79_WYB!P4FT4-0JZd7pDTHrUp_o7Q_kci%Mz@anl*xYO%}etLVS~A%@o)F zDE#8_W#h$*zfQteA^a)X(ZZ|#+dsdw)xW&d)qlM-X~h2ZV@g&3`}X+#x-Z@J@t429 zJz#9tJ@^%VdHMIYJn0#FHU9hO;3^Y@ifxW?ro}OjGm>m>)TI zHE=3v^o-S}YU;xRZSS}4c@FX#Tl=jm6tZU#4e8_it&2?F+HgIcnZDj~`;#_YPhh=% zrNkJSqDRUbt|xYPqTodr=hP=+B)IHs^SHZ;&@b<)Q-BfYwVn+rx@x8z$y1~!&BpgC zw&6NPwiTDBN8{_WH(YP)`QvM}=fx!OM<^BHRhuMPBHkjgZ9*{-9kP@==JYZQ{+jom zVcCal?i?()uq*cEvM~9KWWcZ?|(Kao4=k#h)9nz<1zO+(V%!!1i52RI#nlI_N zPu6@1+R}V+6)3J92O2zNUyN4WUfe;@2>oLpIF&+0B1<|`?5n*slT@-`GTxgs8FJyC)H_*V)n?6P z-jS{>Pd88K{W&$0P#+lxU&hSn@SSQV0S>%q1u(PF0xN$k{_+F5m#T1P%_QS0>>_M< z&#J&`C&st)>F&wp-&8cYSN)H#WB(DbZ0>7yp)ho!vf`^UgdwlpQL|ghPa6ItyBi;i z2Ya(pomtgkzRj3QJ;@z$=T|HTz-oZ^6FsPi)y?3Mx|S0sFThDdEmAP*&P{JM`Q=6+ zbFMOzN57C;Oz-NK4ax=R(fJeGV5nh)xowajk)Csl=VGe~4T;ed)qTZo>fQGUYGY++ zy=Tr<+dK=@4FL5xF$C4n;9o=6tI7K&_e};yd339y(CJ0d2?^B%k^~8VM4#LEE9%r~ z<5rSOYYzUIbxIT<{l2>JW$+e6Cs`zbDq2XRp|*CA%_$4&7p*S-X~?|Nd00|mr&H%skj%=>Ct+j?(QX#x@5jS^)ms&tD$NdpO_ zRh6J|f&+bhY_Pf&>SJ*;W$fizsV(~@Yc2Ij2^rn`wgyBh-a^C|DC)SGI;;WPXvRD4 z^B75p{4P2+sfrLNP5|wuV;39l{NqJab{5h6+kl;WV-2m#(~5sUb|8)~`|<>h^uB<~(pJ`jl$U96%l5YAEfV3(eD=36^Z8BGeD~ z%*q54DAqa1$UM>rwgeeji$$zONUvwok(EO&x-UVAtEnzP+N>C&Lp9V7IjFL=%%j(b z6yo%{+Q)<_<4)$)A-}X0f=zSQ-kw2AAZBJ{2>p-)3dIrzA3?xS$IduPrBh&mH|{Dl zCb97(G6#d6fuN{APG?;19!7!mviLZCgz;82@O2H4Ie9{RIZaNuvwQB*3wc$wE(5W= zv;&V!fo9Wv9k?hY#b zJot4@`YyPx4bytxe0v!Z{Hb&vjjTN^+^2Q>xbX+NftjoZnwn*QEnvv+cP5|bDP06I zV@HbVN>F8Uf%{5pTk^fBiwBb1-FJ4r0E3jXqTUzL4Qpc1liu@(IlDeVjlQp+OM&=d z3^R8QBt8;IfW*Yc18FIh!64aVb*k3c49k>EN+JPNekhhKT7zJ#C~=c*1&&uB{#kG| zpgfg~a;UnNotsa{2b!ZlRE08)E2}wn^?jZCxb4Tr=z#6VGD^`e`pT81jl^hzT%RwB z1M}TrxUU9pK9=bdG{C#NW@u2BqJ|UqlaYcJ6GDs-xClLjJfsh#Ik#7xILPVd5oG~M zG?{TkYN+qP}nIe#UKq>@EeQ`Pm=^rjcn^Wq5T2`oxtAL7_vtoe2w1|kCWdoT=H72LUOFIx&sVt0vv)R zSdh7?JlHr5)PhCopCc5}@z6HGOQsSx@Ne%6A?C*ysrPX*&1&<;ZjYJfxav%P$P_W1 zVJr%O#!fKTI{5QfDU09K)CE343-t7|Ba+7Vo!#kqD}Imh^m2-;sM+w!ZD*N2Riaa_ zeKsh#kExvY-``?LNRqV$aI+S$d#Zlf&FJDP%(8LJo6W_+8IJfuViW5pY!^nA9XYGU z9!u5(lqHr2dh^Y|Rx9VL+{jPQRhwaJ?(XHS4y!)$E&xq&d!g5; zqlgJ+1VC2PM~u1twc>)=)5Nv|VMY-q^0>(M_^6%WiP_fM`Y@HXvM9HyT*1C1?-yB( z4kr(T1B4&vQAdF%Ia*2{fVET3ejzIBd^biai-m{9E-&qepu}77(eJ_JOtEJ$v5p$41o*K5CyL`s#-9NB1vgzW9Y;fV~ z&1^ll1bty_==BcvKEsl$k`%V9lvh-Pu!Rsi9mlN5Cj*s`ooqemqaC(L`#-PipEBu3 zI~f*REbT@D1&s^8Cfi?Ln%l&FJgM>-ulqcX7cL}^Th3myBKZ9`k77qAUdve<+Y$eT z167G>Z^$*{r-_IdkdN2ZcIDbxpftO>GOXk<8f{7#`tT)IDhc@o6*e4zN^@N_5DSk% z+VRLl6zdTSB%1VP(krdPtNKNQB$2^BzSN@@-WmdSKQB-nshC!@EeF4YvC)bCG}Wv! zx!jJQG9FDeZ|P9_q}M8jzZHW44hb~$mSXF#YJeFS_zq#N0!AQM(`)4%DiC_^O%&3Q z6uqVjbK<->y`e{w*ru{+PtvqFxO@`LxVMa`yG})ZBLmtWJ6T65J~d%e!kMRMk>Y{D z7V_)7qf6Ownhv72S=EQBr&xT$&Wt+<#E(mdmf>4&DX4X0oM@Yk?M+B(`8>9kZEw#j z`peFoc%aJK$Rs8wxY?PnTR$*Ij!7BitKrMR2tb!0h1-_jK&im9AV=#H`SMOir1u{}Jn zXWjwhnpLwlY?zX?;5y&&O`pMcL#d3fz%kpNs8A+BM8Z%di9gwIaL&w?t7I(t6wU~I zucFGwW4jzm2*>(|8>3shOk(4uW}vm!mls8LVQcJr%d*lovHZ|-y?(z|t1KRV$dgi8 z4Fb zH(`+6`A?3!BHLFQYt_$UC;79$>v-pxjpbRK`$8V_vHAO3ED>U0s=%_MDUoaPL-gPu zutIIs-7g0X7mo-{6h)X0NeZw{Xg9KrL>B{nkjjPKEx|{jIL8Dbog1mMDnwh(PKY3hyngR}aYdKumHDO-o#Xm#Q29^{(DYsW@*-Fm6H1n#1mF7Lcs z_BU9W?Vu6k-hL?*xgU=iDi+~D?@%a9uvz+=mpf%H zi?r%;dbYXSpI>$jNqX;IQpe%rvU`db$ISf3Rli6YT;pL}e3iroWdjNE;d4G0;4BXu z6~zWK*ggaa(B#3;TwW7nLwlB4VZz)9vx`HL_&5gWCIf{+)sL)e_^g>|nr)!Ma+M03 z$<`}#kP*_}Ux?QhOC*X3R(2pw4FljbGhH^(549v<#RLN2;PQD`@0bJi;+om~d;)EH zk^+kvl9_Oz7%_s(v)SGpmj?A#@0pIZ1{WR1URBJ&7U({G@O2V`lld1dLsL-r6MWa> z#l2;R219vt22;^Az>4Q&3*hX2uppPWo#w-bVJGHdXT5a9#E?Cg&$#VS88mw(_`xjY z%(i1g8x~O30U`%&@FpYX{hj6UPiISe5H_I2o#7A&^<5&wQ9KvxM1owzDH>^R^YI5J z(6T^!(BLNTOY@z;%by}%F*t1gG$CRJGWm_UEEk@}Q0ogQ&RjAyWKP1kUC{ z4kwqzR+rtqKgeasM9%oM8b1_)TUX2GggC6nfxbHma~$fd{a{NdSeVpjHC4F7vE7ww zo;GbwVPrq7+h9uo4>#9qC61r99ZSQ~GRj?_NLy^s;^c7d`e*L3EtUSrpGImvZ~W06 z%oOG=8rBc%MR?5zH9}=xFIC8uzyxl`#+PnHicKI5fCUprg5QgHO(-1gRjyWD$r^1$Y;*+#Mo$%bN8U6Ef3$>L;OF=Nt#-kn3AHhh;hbnQKUF7ESZ zpPO)hd-kd<|NMBo?a=;Q9Q|}NUGOg7ioTarU+Y|4yi6-wWvsl^pq1

~y!?RR1Wy zj{JP^(!NHmP`0~tT^-dp{n*YbahAGU^M056beTEn)M)oqds`QL(Yvp=SnhOppsTn^ z^t4nj-+SHYZZ*Pm=yY>6y_tPz$bM69tc?0}d1HThmq(>ZpR@f-!5p^izAo*J$NgV~ljM#Rv*U(NUE0JwAZTxE!{Hg_{R8v>kB*XGy5-FqM6 z9M!~>#KDdVD?<0IHnv8ZL&kO(!y5Z)YFp(B4?a6-JG~*+aNO6&z_ZPEf$og^bc*- z;$5qrSZ%pqm{_rt8+&ud+ijHWJ2dd)7AW_X&Ngd3jI*$FeAPrGJD>PPs)-5wuEfA*6WGJBL z^ks>!WdY@%I68uCVvD@kA1STYwo%~iyH6QCd|U))=ojKiwMjZfZqS3Uwp$sasMrbJ z?xu&0@7DIE;}+v=bKOtoRo7`yWe{31uPSvhAO$7XpTJ!a)K8qezwN0~iPE_vm#$cG zD_=64;FzfeKDxT_wru`_@=&z(>77qz(iF!EPV~d_3Y^hskZLi63L53 zQyCvlg!PwCM%ke9XISF+sSj0hu-z#@1zd*6+~6`}UUpyyUhrwqiy&dMqH1w8DH%?^ zDI{vEI}O`eVzcGzGMvjkSz5aN{*rzuu3mS($ZEWL#Ee@CHJ}}Z$=Bw4F%pLdYuTqHJ`})&@kwnN! zxuBvI-zKcIV^!mnylGWK1z-2HNG&I~bsfjLQd4t5AvR-W6~w#^lpA|zGd6aeiCkIK zpR1kGHzq(WZ&E|t1}#OD)=U~7)+fbV<$}oc&aFpPY7}i&!pd(AM7DgszWhdq;jb6v zn6<7vOdCDvJOb-3^^tRy$Dns}C1(BTF`8<_ffb8Kmyc+~q&KFvbmO{6@3+>&ZeUZ) zOg9H*T+U+l0kODiqX|@RsvM<7~o$) z48W%j0U*4%$lsG`!UqN5znz5$=pGvC*JE|)XMed4Ue~u{JdL@SK`-#SBs^}>bG)tw zNhH*ZL&OH(vLgS7cOtVPQugn5kT;P_TsN%Ui$ACJpNy3?|C~NpOT3b%$hF>%WkP6+ z#C8|iz5T91alAMP?^mEF8&G>0tIPL)_ct1K7Bj&5YX4K^LM^E4K;e<7F*Vu2si5A^ zdT#Zk#aMDppA_*f={iMs=wf~+*raGH3n0-%)!nFQ((XyKIw(s_Mj1ZSVOlMNgLXFs zZYr6ieT*aRd(Z5K9QtUAzY(Lac)C!ck|oeY zNLu0N1%oc{>I|n#Aq{-o8&Vr(>~@8)2@VT8aM8YA;}m)wte!R_+G`=tG;ta}ai#hbL>oh&1B>l3~q1nPE+XGUChH zK;3Tk1*jAQVTRneMVrUrALiGhl*`Ygk>+FCn2#Arhp$P!Hc%>8t#&y3Xbx72gJkS`wzXHIjsBuU4B*s|-ik*ICW3B%gp z@Y`70WhCn>Hse~o(Tr5{7Mq>czz$^sHxJ|51?^X^)bs145h{wQPm4kNv$v$KZOz#X zD9Qsoz=P_DvFOUasCsuuTRTZ_Kb_nHk2a8qJ^I5Qb{Op~EieTpVw_AJqK9Vo-7!@7 zX|uju8QAPs+oa{A2y0khn&na+a;a-}q&{+@e~U(SWkr0YZG*~|C1^!?-IIyJ$L&W4*lPB0-T zH_944xO(b+>q!N&%unMem#jIs#Cd-v53w%kD~!wT^Y3E!kA@!2&5wBSU{77en^Teh zumpCaAJH^anWWBU6N6xWg@|}5C3%G;lT8EdgX?PecUNAc8Kf$sF64C;lQKk^l+bT( zsw@!6+X#NCO}+h-P#sHb8O0rMn4?Z@a<&im{aWrBoGG+&<>~%$+A@3@)OYlyGm(=s z@n*cVbfL5opK7{^d(AE(rvI?q9Yr*IVwUU!Uxllu(FGVaeyy&gafnwNG_k9CsVs~P zWu94`;D~dVQR|g*WUI9Bh&6G^XrfemF=lz9hPj?_HHEzCI+B64o`LPSUxg5lgS(AZ zPVUI9Xj2qoT+%pkv5d#k^x=X76rWfW_-$MzEd2!6mR*=Aqt@*C6rJ5d>~}r^JQ5X^ zV@~BLLO&(|3teR?m%jA%c*;oj&QeTI>1m$K@EO-m=VL$ejb_b))|x^lbRUdpXhPeP zv}});x|A{nJjY#9&d z;v?Sm$C9(j#}O5Ley7vY>9pW#CVzM(9*Bp^nRVZ#ZM{X|21b~51-f&N7a-rl%4v-# zym3oEMiVgbT?(EfoGC=!qO-jOc-InMP8SktdJ0H!FIbspXC4-NHf*lkh<&#rSOSsq zpeXwtftJRh@h+Lr>ALF8y=i2X3mYYy?&e3h{^}Yd9il4xt?UXpw!0_E#F`Fb1wc%( zRPa5}N4!9i(snZ?`XJ6XT(3VW35&UOv!G$PjyOz%72>jxK`$3v)mLiGE<&y|35p4W zBXo$asug00H#}Lq`1q?-q}wgQUhmE87LE^TNqW*WGxKfzvrMW4{I3-wvT%3uVc29r#rw<9-S3al_kl_|OW(fsp1?lXO2 zu<0TO3`o6m$}1dc;|Y+jZrGEAd|cs0vO%R$$wA1~2(PCi5ZlPWL4Cd5g-rUrI(8vd zZn-rKeP~4CVz8^y@?)e!RU9FxM;B(D)`q-Sw*U^VzR{LXDxL3x<=ip^g9q$dw>l6f z)PfkH7;&pg7Z{pZr(7fHFBv)QQml%y|1dbuY7_hDW`japHyoxU#!gLT7MeUM1O9iW z`B_2Dm>)15ENSQb~UmYY8cKXfHNTH zn(4sYEYNlge;iyXO)Ih zZ&`!m7c!GO`cWvuYNI%=2=(3jg(0e4Nh6wcaXQjdgrq8iHlcqeUz-IjF~~qw9+50c+(e>1(qf2=Er6ysy$Xi(9H?t# z_Vx12iBy~EWLVm9@LkGfR(!)_q{)yh7*=77D0q`19m+q#VF7 zVwl8oFd|!X{pCQ;)-Vh&l|fYIMe2&|1fuzO+f~06@ULC?5ai23>PJ zrds~7g;4SYBrtn`nDuMUfNHp$_V7u>xs|O1P>h)f!`xvBJu3A5XvO&~XBxjD7Ggm; z!TLVi0%^}1=s7MWNhW|Y+rp^Z#gD;D8M0yZ(2F7!e6nL=U`rS%pzF<$HXxx~KIZxR=)K4Ym*zYd|-(XIt z=QF#mHqOcKfPUr@U+TCAY)>IWcon2CCvls&0Nic7x`SWhA?J{7yxlA>viskm0BVCz zJ8>V3@0gpSpydpkIRw~ZSR*%6Uvqcra}Ah6Ikdk(FuC=efDgctmr}!ZAEiC!FUQa& zhZ(^@WfaL5PUyOHF0q1HJuqd{5HJBDaxHcO!1Lv*Hqc8Lgdgn&V;1$bO z1N?e43B7T?riVBMZywHe-W0rDyXR)44SEBx1-S`|V=>&;s^lQ?js zS>1D|`=jzTv+cOaT;u)l?ES#)@nP5*d)Uh)R^Q2?#>Qs5B@B}H9@a?cDr)_;m(l4Lf&vn05q?W->VbmwL{*jQSr| zfaAmNtdt5^Q%zq%5!}RAEET-G5c^i*j629UdM0S6N?Fip3rpOvjL1kO9cef1OK8(Y zW{&S+K0c$z9bL$bh=Ldr2pUf2Bfmq8Um+Q~3j27d7m`9A6k}WPr055J#M{JLVmH7s zZO&)|D&5Crqp%4M!(S?^4b8ww6?xpuFYIHfnq^P%@{|G>U6&~tkHd-FFLDPt=04oFp``etbRVfTWtW@IpFw$g47I4;C_5N7@Oeg zja)5_9r&oS@YI4nRXq69j5#VpKGt{ATRq~ldXZca>xH!sW(`yL1LE|h64>7g1n;N*fmc_H6uK_dp~sCrcop!7_08~AHYR?t$LLG;VD{u z6#U`OuY58Z-%d!-!WQ_-LC)9tLl7eiM{j4Bain-h7*Bi(6acI^F{3DiPRyHP!m#Vf z7)5BtbQ+5zWkSLLnTvXQSE`+?_3@}ua$&azs~Q{{6Oja{DQ&Dc`!A{F(X&D%D_^Ys zRBDW0?_PbHoWWYVCCr*hRwaym8R5C2WtPmm=G=0t+3QEjJ2dzac>vT1Lv{{p=ve$_ z_(NGS!PvJh#T1DtJ|w%rC^Q04_S0%R3PW;nV!EyiO!nxA7T*tgyDR&E!cg!Zmd=t&gf6C ztwJoP%3h`}?tq-?qMr>2OtFr7-kbAFL@8VeX3^c&)5@!sd01>zFBvoAL1b>Ze*axw z;9UOQy)x!StW^~CV)8vsDj%B<7>xW`nD=i4Mf1*t9>G*;rr^MJB;FH11tS{rBh>h? z=%YJ#9ZPJOxvmBbPSxf@e}7H{D_b&gXVs6j;BdR@wf5D(`F5>-08?ygLY;OwhzsZ@ z~kDPp+}%3fG0N9U-n5e8?C^nSHw6V zcK`h>=JpsXHNui}r=R4is^h|(mO-CI+`e}NF+1M0%3Ld}<15(jhG-sFK1Ic_ghImx zb#~sed+5aYvqe{FAG-tb>#)$y+_^r`K*wrmeNUg@4?caBN=->N^&pu{g2ukn>9Owj z^3dzYin|T?42wqcDt)NHtSC`ldL zj7!3u+gxPtXfV;&?AcmcvOM1=Pcqe@3972(8e>wp-7q@ZXqTn_IcPPZmu>c(_#B#- z9kvd!0hYq3H!D9O^m_*zjD}d_X<_aLDLxgTM=_~nEN4`!F*tz%n|ytnogqeLBT#M| zgr~nDK#z=4JxmN{kKG|Y&j!NKeo__?4{7sqFO{G57`CCnAO=oD>~fJfhNzm?x|UT1 zaL*Z_!V7Cmm~7Mp+EF5|bs=|#wyfd1r0=MZ#VJ@$Y*+;~`b9!;$@%JdCj-~bDGh!% znNz<3P{lRq8Kof3iZF!b8&VvY(N)x1{M^N)G{2wxVjx~56RJO7U{zb+S2E5PeL6p` zwNGiEu5C${v`S`Ec2iP*xNgG_FkHj7+$<=#ThPSK6I!CQz*5=l0_XMXbBU&<^5-!9 zkVe<$M*m=9Ru}kypMO@J4m10U968anc<5QRk_8=&5f+N=QyJUBX;vGJ7X#AAvEw@kfqJVz95Y?E?enW50; ztUBV@Z#$Flw74D|Rk{$xq}SErUn09DBY&5(6)_m*%N+Irl4EsErBhd<$mZdMac^2} zH`WW!T=3L~xm0qGtR?6; z!U>l&VR1?mZW~4*u9HJ-JW8 z%XI;j2LqH>^g3y@qgI7>1`9DuEK!#q%_w+ZZ3G>NDpuI|{N_RRR?Wu}X99w?EE0(< zB+BGX%n_R5z{~6i5Rmm_e|DV%FtJ#82j+@I#Bq>FK(NK4AbuL19Uk_|L z3)vUFnio%j6_VSMFo>79D45$nF~BX`UR5t#&(jnPgqZxm6!TN5rG1&sQ6<~vxG?wl zY>=SBv}};HrZAG~C!$1Z|3n<TPeZeN`ri-Y}i)3&N_DVNr z_ld_d@ucQoV3QDJdBMr=xWTC3F1az8L$7Va!%!_XEO!4;u7d)R=t9~6a-!>X{C?1s zk#_S#Fh32iRX)*Zp%xi@R)@gVzeb0nY_*mzQCM*jlv898O`dEVL5CG0(NKsywhkCJ z80_&pt>Hh8grdnchXbq#y~Tx~Ad?p}PUQ zQ2tp&42IkWJR^zi=OFbv#%~Re!s{aM`LwV(6lOWZCgh2a?$9|9k)!%``arGsvGX_- z^0(zY3)t_6cGuF`7dpZiSPPhZ-dE~8i9RJOVPY0joFKoa0AG9p_ebMzG_$D|W>^kp&Vx2)>e*i?PmbCzSL(uHLoL8`o^jzo6Y=r*&I)JgvCy%m@zfnewDe8`I@Ye zs06Mvx86mKFhW_FTe4f>{k~QXazCN8eSy!P&`1@&XTtZ0w8CL| zAG2PsY-+6RF90~di^D2Wz^P-8()G%CqBVY!(y|cH{0vl~D@M}HK-;hW%XD26p{?Mn zSUkdP@l`_prk}0db=ulJOen;sA^{+v=|VBSc$I1;tJ`W~CYzG{0T(tbpOXf3Datd3-(g9z|YYW_I6TPDwS;ULK{&W$;XE5Vi1XJoYWO!47N?1qZ~3(DpnD=CFX1)A zb1}|A{=Eif>HEXNoHC!M?Ne%Gi_(w-IXu43I>wjmf=5kP>?0_x2}y7;#RvKoAWxwq zF&Te6;klC~hpYAAN*gHJ(2Ene8|aA(Bi3UQc*&vQHU<*sG5f#|g7wO{n85qXtV-pM zHa0=E;rOEHp^%DI`5Io-{GkZ$g{*Ab+J8z*ViqKUHM7#!NsAFW_zVC zp!24r^{)4Di_j~QgrFFmU4<1E#mwpVXaqlOH-?nHYJD}O(_c^yr;6(v07P+=Qyw%9 zDs=|_4eQ7T%&+Eht*cGfZR-Xm#Ixz;v{$}{3#v4u78iD~S8oo<=B~u89BMcv zoOY@hfC7*9wyA(}bW=IuLm;o$eWx172YSwu4#k!&PxO#`XW;|88e|-pq!We$nD2L` zi&@;sO6S%Ay~E`_nt;2G^pF6r3qd8Dlc=^%KUdZyN_|KcNI-om&LpIz)nB>ObhnE5i>njc_e%$*<*Fl(X= zyVbIJs2!2Mr#1`cuIYTd?U9id1uy(UcN5LOlNwe$3= z5QMwqa1zjS<4M$a+1}Yu;$VIbQv9uov z!m~~AeqIc49)i0}&wS@{0P0vKPOE0vEwX6IX{4iCwf@l$DS}iCNFPwIl>lm_Ac$*p z^+~D@=H8-Wwh+yRJh_8g#QZ1YC<@Kn<&^wM$4RpQe7d$apIZAiR(umJt(FNiL{yx~ zz%ZTNeqX@dF)?JU`1R&DjA-)rNRUS)H!vATG{l~2|3ju8}}zwRVR6?5B-bI zHWYJy%TFIE1V+UO&~6oeN}s632u+73?l12njXAgrM6V4~EwiQ&Vh+Ty^x|ZqMPgS= zC*Ve7B`@0&v)&%I*tn994IZ}C6K!*z6Nnw|N?yokbq$NEN_ zTy|A%s@URmN$v157>&rKsAi$i7cd&|mtxGin1$&rW`fQJ9QEWNUElE{tTE!Nwxmz2 ztSYc;$j^U z`LgDqlK0r*eEVI=U^|I&maj=eCvWLM>RSq<)MHY!^D1y!fk4)WmN8eR4?z|J1cnb~ zn%Tz!W4*v_rR1c>;T*Z?E;_5Z1+JW7uj_WJy0V!s7}v@>(BAF+VG%ZbLoe4mMPnTi z{?Qaz`(EB1Q*{Kd#$wko6E-x87cv`KPG7D}WGTU{E+#*zwVq94V;V^0!CUVlX%pg1 zI3Yc+kN~H~&9X91NAgE9!Md_nXz4GCs5mw1m!0HUIO<7s0~imC)1rTiPJNnuuG(57 zf1D|WZ1E*}?&f`04-FaA(Awcf5zF_h+?xhZXfG@8`t-&aXyUJ|3F##_U1$!HJYT}= zGSp}wPly(5yF;+$pHE?%kFs1SC#GxJ*vLmuzAw&c7{u4~HmDwgYM2X>`3F0ZSKX}A z35(oJ&hlxxyrIklGpMSIR#EHh@J*t-Nc6LW%xpmC>0zkRpFoQISN&z1orB6}O$box z{gYSR)>f}~12q__m^_)-ml03g)0DrG1>@OIZ0N(-;eSz+uu zL9d8iNP-(3nQYpDl@_|sWYEv60cqNXsaYAvSJ#LDWUuMSSPqU#SM&6`=wc8N3(>7F zLYZ|~j?x2??VS5L+Q;s+ro_LEJ+{OjV5B#asfOGl0=_PsA7fj>+}*qq%KxQ);MQ96 z)1c@-W6u?$;IGRVeKI2jUd)?K&i^x)K+YcvxW^uC3YrX=jdWqsKO+eqoQ@*%^)FM8 z(}zuW%3U)nm>0}?ma~yYLly|MQ=p|Qfz6K(OZoh`m87fNR_J+kzX=vAu8XVYZU`Bo zujvYY&Hf8M6u|2!)apsf0SGBIJVxVWk}Pl<{AwApfbq9m3oGs__J*FIqkmEpBQN6llpS)$5)Y-KMh7RF^3Zl-9C^kJv-{`b%$g(|w?+Cy4XByIK-jK*pmx z6o zX=|M}KMl=9ds82F)X)`tpP%Q>GeKZIzrXl(dEj&Vl*K=6*6b(&$q{hQ(0~JJOQ+|o z>LuJaF|Af@S{%UAu9IRzyzcN>pt-)@nKvqC!?wMvaNDfS{UF_s)M`PR)xAqo_avYxTa1vgyQ3O_5kg+bY?#FZ2T1~@*0`($Kuz56%_&LN#<`4ZE>X?ABJ>J-9 zE@XtXzXvk^z5LdXwp4;zLdJ?6!8tHPB-Lp*(d+<^ZtKJ;EcGjh3?ZF)fVwS$)}x=4 zICwli1}bI_QQOAk-9N@AY3wH!CqC0v;8*@>gmq+CRRnlhrl^8wk_6~?RfU92ElBHD zWks}AJP}PYrG&MGrPxt|zt)OP(v$K}gK#Y_$UElh5m#pM)E1Gs!_*ZBKRPaJ?dCa^ z&c@q)O#xQSu1#V2PBd zVC$tz#qj4a!H~&O+yV0l+7^aj-hZcv=GtTA{PgEWZprs+UFh1=Q%W>I6D1V{48tXM zwal0t*U8b=j(`@|^Yx$PD&0VK`n@&QV75emN`2HUH*KU1-d+Xp23;<}3<86iUXVxI4?^Mo~8ZL}R$f+K zgOP$7Agq9YUbImHP{B8;K$xBdk&px(7c}t-)ivUi&2maqq|WoftN5FJ#loM~ZMvyl zv{BMo(zhW<7R3r04PvpWTk-1V{o{qi`j9RgQjkvdLe5qpp0&G^j@T<^yAW~Pf^9j2 zDL&(BuFp-&cAhMI>r5jM1aPO3Yp&!$;cVA37 zxwvcwpFE1}iG_iy3PgKZL19KNetsTq0v}eHJ^KP?RI7r)++30Fa(RoBnIKvA*gM*J zg`^z12TR@*ji_@QHxy@+~zjUz)i2KW}!dF3JqZ>Q$MX}#JQ2`4TB z+MWeKd>DA28JK{Ga-`VkQy#AjNXN{ou@oh_vSO4CFZqmO9>F)n8JV84f3pZPobjJ+ ztG1P{foRyTDfS&4ST|c{E9QMY5MjLU5Sh{zub?5L+l~rPw7-)qBTLIh#Pmr4-kbH$ zVm$DoYgZ=-f|Fy!ER;*rV%-zJG-il2ortB%=VbJ<3Xg;;f2fQ2$PNXF9(brYqm)qZMY- zhdQ#rLmNYo5x&{pN-fwJ2AwfIB)TYeeey z0Od>u?uk3IBX9%K`thBig)<{BYwayzPHL@Lx&J#BD1Hp|-R0YZyiox+!&}eh&g>%H zzXd_ahM7(nig7?RC!u}l6$Xrftk;0BJ3>E>Qhk#SHn!T)9%_NA@DUjpXZKO#p28mH zMaeDRm-~=TE{c*hh%Le^VORubOxOeyJ8{qoT&K%;`*K1 zt=~VO6`=&uk+7nRq2_da1*zxTqhH&TVfOL@x0OHvSv>&K!U1Tw0uo#-$zL7suC)@E5RT6PaaN&?;N z^|}Fq4~LE>l|JqEwdr$Tt%G%4`-zmby%sLf4iPIR2a$0O+{Z`cx&d@jLAH?`WK|6xznpt&2TFM`*wl)%`|TId7)v)CMIs{ictw|{a%D3^8O#bw zDGBezX@57;Fr4vl2aEUb=cjHcoaCCt+A%uaw5zir9!aZK#I!v<_W!OFk)HFB+85}i zJko4Ar6z_xiOOOp1vXOPZM0TRw5u?=t%kd2Okr^5jI|U^!}XEOFN13uG$d9gB&QBE z{vqFaGvd@=lVKkPht{)!dz&8O%nOCvyEgI^5bkZJVavl;K@!8t$p1NTMySy7ZzsP1 ztp6)nXbdX!p|A2iVXFb%J-OUW6}7NXCvT zY%z`BP-BhIa$%)(!w&V@a2l@7SsD0aO7)yzP^X<$eA@jc8d32m*a3u^wj%D0Swp6a z?o~t6XT>4YCP@d>sD&96D8U>3x&&q#Xf{!Cr{WiH8CjTHa4duXVI8gw+oMpm;w-om%c2s_ZO^7=Le>zF&;vFTGljPDs^N52MQX8-AQ_p z93#77`}Q#2hBH5Gq7HW0N+FjC)gN}vi?|I*=LrdvV@C-_ugBg*lh9S;VkX$Z>S-x+ zkaa_&x3r$IM3XQiNWk0P#A7wWXLrT)5{#em!HCq=2}ym_Mtq-4RJrEP;SQ@DrlPip zsz3x8$4CuZM=#yzxqmJ118gGl7<_|n)h5Wwn?Zhl4ur4bcq$O&3%B2y?EOL?vG?Gp zl`>>N8DSv7>|$l*e;QH1pN`CG&)EU>SRPNTyVngyBu#a=O5XA zCpn02*T|AaTub|>B#ui~_X$nAR0Md<15#8eH)@bRKN3NnOa3L3x2h}tlmxw57JW-i z?I@cGkO0Av0R)(hMt^6P`~}}%?uK^F7PqGuu0-o>c?xi(L^a$+c~9}m56w@qaIn=- zYQzP*7~iDll4xK97LenN<}yxi-=oUGq&$Q4^n@E%E~hFhipH3rTLS})OpKl55GD^> zP^~I8AOo>ctwJPf|A8BY+dx5uhcDl?#^d_!1&ZK#raBP5o$0VFc^q(CQ7HZpxs+4* z&L_!qHOLgbN_5BWNCDAA_%u5kb2!!mJ&nPr3qYHL6P2=_76Ql!a%?qJI}tWS0%MT; zS9V@&d@H_7K1=@(X-egChxbtFsitM*eEC`31l>ThX1ZEE z_-C_5y*Sn2ee3nRRr-Z^;ToSs40{U*-IN&{eN=kR1$X?AgX?NL5=VCyRHj2#PSoox zqj(GU;zoe!iLzviQYc%AyOfr4mHWy^9x@#MHq+%s1~NOxmj0?+5j*zU>@l8Cho@PU z+i3l(`WQ9oK+8V|(`J%Y#u=QkZ)A*i&RWLFzNvHCZY*GZrym56` z2ocIYGs7t-Cc@Y`hZY1}f((Hs30_FNfB8FLqn*~g$+@cZTCzU}c(CdE;au2~-6dV3 z9Tuy(=0HOMOtkosA-alS2qC(P?}`Fm`BFabS1dt_w!SzlZezjLKrS#)gCIBecSB!{ zwX;G*8iTO;eGJC`Wwo<{hfXxSC^)0J+!la>F!yY%!=~gGDU_;zDg+%bp$M&z%WqO` z{?H9Gf(#Z)!e8^RP%luZCL3cpjX1j69IQ7sCv9c~z&zn!cL1S5m=xA~0ID~QQi|1_ zuD6<4U?Fjl)uhtwwVJn%FwP*q8iu`1#MI+49F30vKCaq+NGRLM0;hYBf>gF?9q$|auPgpQV_~P2XTDl;{A3)hgjlo~=${!NuS;(#gre>%Rx4`eeoI=7znk z9*AKkBNIeDmCRJzgnq?5%h_`Lu}}H4fbcibei2y8>Tr1B@TM#tQVc6$!}7)xNh>9n z1w94(QDH^Vr0uJUm!kyX!jzxe-Nu*8IIPLE=`_SK+YsihU>r;yU_UU07q470`;NvA zIN5QuC#Mgg7z3Tetm$^lBgq4g;}#cw)amugXuq56XcwDu4|r8$5Tf7O$hNzONkGaT`| z+Nz)j&F`dzBMcjk?on&y$xh>pw)8{;3Ewdsk)ni+oPd2u!w_CcrtZBx?wcmpp_Y7c zZx}^MaE!qGE1aW(K%J2eE{E@U-RO@wnY#R+G|%C%B)`YX1&!p~_AG;QOW@eJ#`A#P zVni`q)2}`dBV@EI(nA{0sE06ex3|LAPQ`0<)LOW{Fb9BG z2iR2K1FCvhR?uuUd|736Q&3MJ9KgM~hoav9=3;d5Tv7#o8<3RQCnn?2<(Qrj0N%J& z7{lcInK*JQeXU!x2-XKk$)&vS0$cf?3=ZQs_KUwR(@KrG*zJ4g{BJUt_JJB&s{A6p zk%1r(5R7J&7*ve#;oh$H4PWQSZaujg(cnDX+Ok`uByF;=AJ^|iY-w8JtX)MFF&obQ zFu&nyvxx{(S85h_TnuVr_Tt&Q_dP9AXm~eZWYh3{YcV~q7XB>Qxe6WRhS)k)e{C6R z>mROh6*@`27(*309h0ayIqRc|oUVBW<0!Ou%rO)P-7It{w%PP7Z0J@EJKzHs7&Qr3 zDLY^sZQ%KVIo#6sHPl2$havPPowwJ@oBC^H9SWK3cmgYc$X5M@dcJ9@;2)(K47MQs zgfDX3$F`+^Y05TOYY0F2O-l$NA&IYq9h7$csK&upbZlGu0iERhOEt1oceoc!vo*M? z+8(?#oZ>^h(Nzpp4d?BDtR2?Wb{fz?(t6Djsx^|x*STsVDBD?7H%`(_b{Oa1a6xq1S{?~ zGH3t>T{PHHN@bn%`Zps^Fcjg7WfEC;x8_C?Z`k91Fm_HcnskBI?rGaL-?pu3+qP}n zwr$(CZClgR_O#u7`ui{coQsoGvQxOIq*BS=d#&{>1@uCG8rA-pyTP^mPUZo_Pl38s z;0(NdBMZbv7%ouEPnmQMUBcJc{QJrl49yjKZaleO$Y2g9*BYydExAdf{;A)V&C@QE z6i+)Fz&wiB4QYlQ{B)`Z3sX|Jme3Wru-D~LoR!$pP(B{$V6wW8 zivm{RQ!r<6Z@ZmUI%x`K4&s&&W7Fzdh*ThuW4TI~D&>X;mM?I*>_1)Cj=!O{?ecJ| zptOMN%xJy;{sEJ%G}Gk#2gysLLr6PAtrkNR2#q-^Ew3?C35F(L6VaD2qo0PnbaZRY z($USGB#qn$_o`E^*=Y=&OIVf~wfr(a*Xx`%#TbBIL`glPQ-#;Q!zkZ8Z5K6Z6?zsB zz(6A{N&nBYP-auC!?ZNO=4?>;Xd3xF>gegeAb;pu)pU9(`zz9o$`1lPi^|LeyB86W zcX5xSOFq>Ds@V}v@i(33xdPrTtfg9}FrvW9dXm4%4O?s{ZcEG`sts{EPtn3*iHSp~ zd|BW8&)kw6)xPWe#!?oF@;p_gn_?d`qo+iENh;lw4#@Q^{uNJi%C|p2iq%ENEVCXP z`{{Gps~v< zLsMx4dpmAXeFKNyQA{~{^{Q)#xPB@nA&wQ=gWR;Jdm?1(S<7{**}ZC(2ilbOjJi3R zeA3OTf;qaGI2qKaC*#aV^(tTbie9TK-)gd#H`UJug^Amz?1C5{MW!S*5Gs5)&9MIp zP>8+W9PPBTB?A9_ZjwDaYbT^Y1!2R@0zzB~0)h!ah`3cWEX%^jv3fteVi_5z6#?y+ zrZw?E1G3-#r%`nTM*c0-qISCsqd;5pI?~YP&j@!CMzG$lr?*P5_+x*%U8{QOR$A5` zB*4wqr+n@c=tVK zn&WTbmmq&)j(L|)SH43E11P+n?4NSmyEs=grZ*+E&=;ri=6W#T5_D%RhY1x?+#dk( zKIsEYr8kUoQ!`f($A)eRCf`V4W6KZW(NZ@#E37((@{biR?AoL_= z;pur}==&22lyrCFQXoSC0_{rVE;^Ty?}M^#kYkhAfx;wSS?(d*N@XI|^-%Efx}GLB z0!)Fc;85f+m49FJ%V+ztkbBH7ox%9xiOVIj0ZYDwE}Ielk_u?Uix@x91hBk{pA^gz z)@+N~&D`>tkYZV2#Jy20OBF_+)_F5x=Tn8!73kMM#Zn;ixe_FtMu^$@L-60YmVa^= ztWlnI$fxxwW|Qk~>n(wOCTy0(|14_k%LA>5h#9EsHmr#ncgtN7z@ zKyC<#0ip*p0QyQ(;!0@ZB{Oua`|QsY2Sq|oOv%}_jo{_kr@JvgX19co2PGz&oAmDy z*+R*(Af^(1sjIauTAjoL;Y}2wP%!nDH)0}$Tu|a&p+=tzC_=VVWhGT~aW^38h!tHc z<2>7xv2aYAIXEt`t~!?QnGh-d$ZRa<%-!9)`vr=9XYyTw;en%OkG}KwJmj_BjN5C0 zvWn^n1h?|({G|us`_k*WYmQUrfALN$go0tZK%H1Cqxnh%2TOew6hIa2j6KHRQP0^= zt}#Ky1uJGGwo`cqY8-r4;K&B5(d{8Q`z`%V?goCvuwRp5+ohes8Sz`nX|^8hGojV! z!))w=wq4f$hC1yehoj~eeRQWfK7JJ|SB%*@6P#IzIO{Ds=2gEVH#_ayxc}=+G$^u_fSn1N-LlirmKU0V)xj?v_J= zBiJP_4J+7Xexw-!f3aEisGq(-A$>nQp%<04sz0@pZiS>YMs}cGLMA12;2xeu+m5`{glX|s&+o>lFDb}K^JATNx)!qVX z=>#N*m(3yzWA4xX$Jy^ zBEDjIx*U|w4_7&~s4#giixtaU0Jlsgb@H&)JjsJs@~5D5^DwrMt?9xpU*_79KB+{e zb@q@)Dhu~+eaAeBMALu2YYD&}>v7>mMP!I~BIDUAG~$t@E-W_4lGmRFI;xbiF9R%b zXLb*O@a42pi0qc=F-u_~E}CuZmYA0#n##iMfrJfnPr4)28^{9X!2SC}7?{+aq}??p zbaCZzk^xZyPWZQChC-foHWP%;hr54keV~WRQg2wC-O}g;NQ9-E&4>pP8~a_SS9UBt z-hs1%4e~1My6Tq6tWb8M-~<35oQFy81Pj=!xXubkp;JTYS(%{(`Zt4(drr-cf^gIE znE~U!Ioeyz)g7#)`Zx)W-L_cletQpRN05RLUZ`$xqBJS32guH|T-_ZdvCm{+e$K+V zWivCjg|}?>huA6wIFmzlaH7=g>2P$B|N8*Qm>0DuAIx=fqD;}IPb99hlg01DZRhTD z1>dG|l@3HkLS%_yy=(d*z9EENRzo?Y9z_R&*g#I0LhyeCJ{q$6wUDMFiQlFS2w&r+ zvo3h~ZGXHGDKJ0RxjZMFVjpZEl}_nglr}>LgFlv7Aemw{PpN(lE>r>MW-cOi)M%jG z(HO%EC(7Q@Kro#z4C1YjhuVT^(KrE9#?WQfmS{jV{LFrc%aGo`X^bKPIP9WcJtkwMaU!9(FOK9 z=kD%npv0`syqn69zOyGn&WkQjhAB4gFQCE`H36cHu9vVnG*FVdF8o8LQ%s!vt7Ld= z+CGe9J(-00Hx$-r0=i6PSgOwO@tLdyU9ASh=H3s;$hSO(P0(51r>wQr6O8VPYSPT` zt_!RY7W2@@N3xHCm^TA{zo}@bMu?Z53R#a^GA&?M!4Y#L{d#}>`B0iB9;HJe3u=x| zfI>cr@k~aXx>KHtmEB4Bm(vo@F;YmUqF&33>&J8M*@G?LEZLP*#XP>#O2I>22Zk9E z1{-0@N*){7UwYT|JWFG6x@jl2K>*9Ac`8rAB9MLlwS!M7BsOpvb85M&w+@kI_)PPO znPY4MvGy(dRwsw8=8HTv0nfBTizl&Gzep)BbR(ML6ybba@xeT4;?Ru#dh zh0boIz|>RSziysOIZ=xJBFXR4t?aUx8Bqtk&652mc+wuH%3cKNF4{;&FxZ-WksY2W ze;X#MrsgHd-B!rZMcT<(p>990xv7;K0!E=I8AuEO$T2fu?gPk&8|c{S)UHwyNU9NI z)rUT;U;Z27ly=$mjAnvabk?)O$Lj;XY@N-B=dmA_hY&_U^$0U~yyR#G#M-BJrGOq$ zTNnL~oBe6cZ9Duu)^M3bO{Q-=8V8*JUs&CzyP}JOs7B3oZw(6TpQ>Lv%3_IZ`o(pEFE;r5B#xj+&*6nrql09?drBW)JTUkCkVnE_u3Y-bUk@*-90--qd)(xL(-$0tCr_pEIAMq&C7Y0l7OrM}kS^DMb&v%FzHKETEpA;x- zai)wYWiZ96>W!kCUYd?6Cc`Fi1tKzlBpJ-g@+KsSW%E`KDQT|Ed^;tR9GcKSHT+N7 zX+|e&3<9mxxrhwkDHL1=a_<;Z9=$>|uA+VaAmtH(xk@7QAzI_g<}@sQh1>e{AIYfj zA!R3f#tP}|dx@#bo@Dhwv4&2p3+Ou+(L}|d$I_Cs%g)cul`WT zXAE)@+p?WDun|vL`sw%;ax%EhlOeDXO%3(ng>iTKp8*=%6^58R&!J-Tb9nw`;#VGq zK)_~%SzP{5ms|DH{KZ^M{>$>YTTDJh&7BW1g%Ngxr;pWh<^^m=ZNEoP1}0>u#daw> zoj?cO1CdkCQ5Yfpg;E*ZE$zVJJ+)#i*ilk~tZ9599WiryH<3t2vJT_2`eoTdPx{J>nG>S&9_QEHyuzn3r1ZHy=>x*VFy^ zgiYDk8(w1Yvt3Rn3)|pYdb?CDpJ^6kVcu{9?qjzEvw(PwnVw6SI(@M{~hdD3sN=1 zq2$iR*$*cPq z55mTBZFKc+_zX2M=DQf>#r&Fy^EKB@9#17~6XwuU|B`)3V1 zUgNsxW0)r7*k#64XOY9PZDC9JrVOTFLY7Qku0OaWT53klwJ$?yix_}4T1_aK6y|wp^IkQe zuhgr$N=XBr50eHKKD0kk3?*0+_vEaw$K#Of&uX?UUP@{bGc zcsK0aNW*Ty(=WYgZyy2sSKz7^#e&#&3mLjTY3P`qs7SFT zI2_=WR{o@#o&5b*3Q5)jIK4kndA1?g$aw94FA^{spu>G|GrQ|Qf8IM3Q^U9ZcC;j4 zb4kcAp{5Tfk!KTVSx(>>-^I3}H&2)97QX^#tOSJ|kRR0UAy!=1e$E70>uvIGHRp?B zz%6*+6>I_6N*3HK{SUKxh?l5;Fzw)2B{#JWhKf`HZOsb%5$GVpyvjKA^pq#_Fx0m|k&cckegV{3~R?aZe1!93UJqS98=?2Yql zr}MMzyn)~n;-LQ$!lRuulC9{ih*U8347$w4ViMT$NasRbRG=kowKxmKNVMk(=Ype* z$p#>4y(^M+N|oRw6ny&dlZ~(<2q+vPQbJtA%+iz`wo)6p-ldc$fJ*9;WJB=vXXpGn zy02>}l_4uP+zlFQUlulO)r00&7<0Q7&PPJ0Yy2%0ChoX0a4H1j1)4Z2S-ii*A6C8q zROnG2&-9rx*1@Mv zwj@2ezZ%rRi;=x^Ye^J?H_99Vh1EjQq zns&sIke$LuCy4T82d}R+k@E-uFFTZfdBvioQV5$=k;YL)#$WaoWEGZxNwE+dfxuGW zFmKJzPSBJaS|3&>1`~K>0yV!Wn>OM<@Z(W1FWo;m1|W`n{Qu@3S~1CqpcDNFQZryZ ze1Lh|P0i3y_R&MQO^(nSTi;RjX~V#mZE81tFBTt=V^TRi=Ti4X5?}< z?n-D#Yio1ck3!^Mp(Uk=Tzzk2u^GJJ|icY>Z`0v1wrWAljX;bv@p^360x)CW0ZAX z4}I~Qi&j=!9mP*}j?Ngan@DE0w~!38%R_d&w3sM3ic(Z+lTBxa!R5BWCL0@W)WGw5 zx0I8h6a3iuPtJriK0flMzy&;{6DUS{|JNxgH*PrJzx`v7OYGYESvXXgzREuTKnoW- z=P!9eN)wbghTN~+(#v_E(cnVh=bL?cH)3KQuF;@0ZF&3MuW!{ zhGRTlRgDA>WgE=ykEX_gop)$vltZ013%9wH_E=5BSlo@JA$!Mjd$+gH$smynI4Jw92{^CRM2yY1{u_c?}<;IUc5e7BJf+)u7$~nKX3_Xok zVUcSp0RDDefo=AXuMazEVie z)Kx{llOsw~rZS12hb7$93<<)zqSnbolL!NgXIL+d({Xl6dW!iKk|oe>$3o^Khge6( z{+eFA7%%iC0fcTs5Am*qZSY;;G8VI8=2hWnkrxALnluHAi(@@!Ni#k~7jx#Jt# z{D`g!cVp!y{H6GZM$zW{kFML1*keVacMpjxVZ}+Z)2*<13uB>SmFVs$0XQ%6@i{k9 z*WBvx2I_O2_;^SE7!jks8;dMXq5n=fwvm2d){^kBZ3ak~(NiExAifE|UYmD*I{CN9 zA3p`|`r0c3G1^wnQYg!%JE?<{m=&b*^vtrV)Hv}Rxm_~nf7oZEhdLEXm#TNMnB-ka zZoAu1EFNP+r^B9`NGadThdMdZD;zFmnr`^F7~^ywx<)RCvV8~oe{1na);L~Qmlb55 z2bWhG3^3LaC;r0^^~+(oHl*ox!*+FX9h;TgYEyZA1*50q-MX9C^xxqSDJj;WoK<}+ zj4UGZH@arf1&0C%LNVAI#gnfE075|}WD`J7;nzE8&M2wBV9{0Zl*{7I;OVHbV=PS^ zMk}5$>vo|!8L^ig#}O)6nMyVrq2E9hY4NSJv5tIh&Giv(C3qqU=z~y01eOr3o3Chs zx($bf)IU3iC~;L`E}A-9Nt3!fjF7CFopDW+qDe(j#JxuNGjZ1wNp^tBL+yKi z2O|QQZ+PQtc?2-HWT(*xH?yH|h?At(gJ06fsFyU9NMl2gG+sA;AcF-~-=+ofS5@vc z$FBX6iU^@1lD$avQ_$j&(E!&%WA{}Xn%txVL!Z0B#6ZTfSQMtXI*OkWNL<&scFOCp2jP) zB?vRWnp8a!&O}p5U`)F=cF#UMo1X4%Vhi1^wt7e(DYbZw7#ce}s;hBMZ)iYqA#ue;0r980N9nrAAN$i~)nJy)68Jo) z-_1Lk&(3fk+g7Z39%g@g$IgsnfJVXSQn6gL26j4UC_LN$ zT;JV&|7v(ggZp1to1Fh=)+Q$t>;K2voN_#DZ#>l18+c?5f+ZbTGn+p5<Kwa*s{t0OT z$oJf4)}!lro_g$a{&c+UxvBl*e3BM*b9I^*;&1So0o<&+`_UPrqsLODW-d+L92?I$ zIls1U(%dwX|I~9ubM z!Nm!@MD!FvwD$Mj+P)DzSFp=v=2fX*i6f!3fsdiE3Um(m{&@ZrB?oXSL6|FO|0ko ziRa?tbTDQP~|wRO2whbwM; znVMmse-&`hq<`jo`z9jKs2M5j(2`uB{SLu^dt zKe+n3)+AnAX2%8dD(xS;_lEt5Xephur2-5%@=;{WFl6r_A?Ox9uculx6&J5U+2Yd? z>}mqYA83RxpiV>P(~2P0KWsCO^61-dxN6o9rS9CDDcw6R#=TfBARaRUH8(b?i8^~m zj&@X0M_f`-YJWb0Ypuq;5eB-OQ|oM}J6yLiu{HCw^ULwQQD$9UJyE8nWYF8x8hCo; z*eiJSOfKQ{c8o1D*~30ZbnX8Aeiu3Voi_L>$5lRB$2vbc=T+VIo~j<#$m;7|Ew&}X z$GXZ4&=A=%@?GOLVJ`pIbI{TXE*)wjHecZdIQv?~di;UL}#s zJld6ueAMP!8HII!sLFvQgP_xccGZ?!UKvI;GPFl`)@~ZmzX!*UMx0j1K2=(W@rq7> z&kGj=A)%agpa4X;AArdWOC%+;i`Ea@W`-}shdUYOCoWzh4*V(aF*Fqg%@yr-4mg`l zNBS^O=6Z20Vzeq{YAITsy1%TH8d=3t@It&~(|*W;#i=o4$nre@h?=xvZT&pW?`gg( zep?hjmX$VOo>>al3pOxv)?1Rj=ST0-B?%;BA~py7}PUZ{jcpsGKs`ImVuQ#zTTEZ69UjlMDg!dVm! z3rkOlL_qu&iUc{E|3hnqSPa{6DwwAH{udG4z#SXoLNuVnih|)4E=fL3))kn!^96&b zD{l&lSOI+7F(^jJc=AY8$@6~!(+E$=6xAqE3C3^rtZ6MDk1zg4##rJ znLjD|kY0Sn9TI3OOk`AU%CaAa7(U^6H6^cq*H>L45t`1W5rbWYc~d;%CE5m6Jn#p$ z0g?d9dd1q*ty&rGa5o1XfT{x1UzoH0;Tbr=V+Y#E@_2K#03Fl(iRgfaun3y%{DdhKLG151>GlVw>usJ@m>+Re{OMm> zM;|DwfoK)tCrG0+CmIgCa6h8LPSaiXD7!(370JiNeI9DpoNNWG^N62Ger(Ym59@d& zHlBMeL=iXf2~3(TL`iqF5f(I0v^(XHIfeET*2Ox{QW!)a=}04!d6_JP9#B%mS`n1w z7_c#VROe3wdMTDRgZXOhoV}sg=qjk~6P0v{AwH-!45$F=WXR+R<*Vd$P_F`Ljnv%yBERFz$wdxLRUN1;m!hbx z0?DyTYHky__tH$7sbiAMv7a6d+9@6#707_F^3f79Tcj7{T3e_0obRu?V?TIHejE0_ zxI8zDMJDTj`Y;s_bd+D8WE{C@!YM$EAmx-B{p$Y3@hNLEC!$2`& z7B8itk2gBjA@nN)vTF&OqNm2EvDO;{s+amyN~j~3y1Z6)iN`)cX?1!^KkrVmHX zNSu0X?Zvj%PI*}E=@K)J9TYP=6y$Uauph#X!r!cMeEOk_)A~alC+T^N{ye=iidJQa zycxrk`)kUU>(yq$1Tb>#0E_zu0`F5*=-tpb*q_3;iK2GP zud@HNT7W>Y-kri>oo`kJDHZv%``B;6W^yqYELW2WZl>O9&_a=!tu!rM5{r$Zwv$BCZpjU;fd3NiJ;!z?-szVT9Ba%wi1Yduc+9(pKytPOt>UqQ~Hc zqmkVzvM3R?je6e|KIyioDjv#pCm@l_6|&r^`X-qnE_vzgR!B;g`iZe{Y^jslT;bOT z=Km8Q3*_2Q-TN1#M)@-Gw<*2m_;(YV+4plCbLLXK#XqUDWZHJoGQ7zFF}73ZVxyyP8xX9Rv0^mC_H?6~@9gkE>eikQbUg1S6=^e{0ZyCb6}B z)NW>=)l!Lz4)%t{r#Tq^f*&#`QtCeJURr&3beT>_AAc7KXwzInakmKTl~!0^KaR)` z_L!r2jsW3HkqD;+(;ND>;SN_b`(I+ug>AFQw^mAKSb6K18 ze5?0t(a0P=Ea)PshGbLyku=DX9yI7=7l+Sdg%5UrXJSA~#u{P#RA?e|^1&}&u=)?D zdG{&u1n$i_piv(kIU><8vDUrZ#GB}YiwG_LQtnga(}dVTi@{ADZ}q({;#bD-&kpiC zYJrefp`&AJ(9m)!U!3DQXww;2lj#^E(15wfbns;RPq^!)Ho%_mzwSWi^B@CIw0FZ* z%>^KJ5mS@4#tvW1bL8K1m+ZC4t=>*7glXy!mykKxIqk8LNOObvqC|&-X@UbYiDMug z&4AsaLimD3S*T{U=#>2GSRS{|2la%5?l>J$;bVDD#5B#6E(9+Wm*wd^a3;vfBsI$v zFSy9@b5cp|%KqknHd8wf=IQF`s-5HE83(2oZ(`qWas0I9K7O3wRHh97EFspC9UYfZ zMD_)@X}glgWl}bZgcUX9$+c0=y(sKQ!e8@q#nl{C5%Ox5^P{#~cE<{#_pk({|4e07 zB$5-e7pO0l>n=oGU4kxN8WQMxoeQf^Lis@H%@GuN`LdFcW)O04iR4%z2!oM?!(?&7 zzyT}93YRY~q{A%Y54b66Xh_UR_N|YPs>?I{~l)AQMFb0EOBL`CaNQS58=YA@p6+0g3LMNu+GE5BX-wVCGcWuS8^G6RhJkxN& z(H<&{fA@;fgGWPacQTbnYh96GrrRk~buTC?6z@`0X^P~ew-n2w&;1r8SgL#<;(Fwn zw0QKU!yOHQJj?DOI(5m0X;XqW41;;LDIuJ7+K*KZGl$mZXu#-8fPpCJ9MW#D7xRu1 zCg)IqHcW#h7enMu#bk?ib}z9M<`4-rLNf2imJNkb3Ebu_A;dQr+EIZne0IEhEg^)( ztCjWXih}>y`hyeU+HOk?Y>$E`Uo=RASEC1OkP5r#frS~PaGY`Ytt}VLUulf!3vx1~ za`F4}-#!%v)hAGXsXX*w4ub3Qi5@NJzheLPYa{JeCGp`^kKB`NjT?J;_kobc(cErN zui*xeU3Xdk;tUC`j7mt%jKf=rx~elTcEc1tg)(URlEg9GBx1R|HK0^y&LL0ju*C#< zrbSfTXdJ1JGL;h*A~TwGJ&~2kHnDvfnD^;FE&@QT@5x|KNuwFa zqyh+9_iTE$gfRJ_vB%YA>a~alub5~1Km3~u#UF@QQ#5b3ebdgi>^|kh<0i6{Ck?}e zyJ#^nn$n`7T3~r!PmJg8dYdmK*7(Tx#XgNxn3q~bH1xKbXv2Yhm$(1LrgU2T`jy*g zp}=U?ZK2@No#~;nY>1HT_@@-iwiWn`|7vqZBV`70P=qUtlRd%6QeIYE&T#t19 z1!BIJspOByd*nhyJ4!SCs^Ps|v5(7+r+u-Sj3b1eF6+e9(N)qp&ouICd5Dz%_BqFO=&2Vn$@z$WwS5UpcUrGN;kt zwnq##d9QdTK-M zx7?!vGHgb#5otQ#hSE;kU*R_+uTTFc0R+C>qw3*a_!|kM6f9>3H9a_B|NVVkK4}Ok z+ff;3hq7MHi{7ve{x|B^NzsrHTyq~*AJN|hD+te2{lrf19gaBDU$(wzl2rx-1BPV; zrsd4E6bWtc-Ne|!kwOhi2oFt=-ObqUOg+aViZX|+>bcXLocFXy4R>k?dq-B-`-?s9 znTrNrkG%lSCcpZ+ioD&j{icn#gWgh~Iph_2c~9PBtGB4CN0bNl*G!<2UVwk5T8nRY za)o{0*cxbT$(XmyccA4bP*|9cOkhvtV^Y=6{jZnys)$druu8?HagF!6&P+x6&!FR) z>-`}Ms-reS`GsjNpsP14!Ii7Susmn(*Zn)23rrPliH3UM)fs0F3U$!{@M#3IZi><* zoPrVKU8Yrr)is9YdmeH0SOU7VR^g!a7~1;4qs#X6m##GnL3@9^h^hw?Lm{!SxWhC| zwkAEfVI?W`Afj8^r17Ue>*IcS&l<$V^~NTr1yWN(Z92K(5_ymqY#VUY!BPx~=jsOS z<89c+&hG*nSB_%>5kR3fH_YaJLDPx7$p%|x*zG{r;cG>a8!{Y-r6@zlWkvvHNa%D; zXizrHNQ0!!!N_%{YleXjdr@9f^+N=L{e9LUECz1v;*inM+VI!?&+s(YhHxJ^v+65s zQ)M4u2t}V{gVnWCdK1h;M~}U7(&RH7;X7%x>E1+u`zqrSIEFV`mwLe>X}!B(N}PEZ zic3%a+GnPa}|0RMc~In)H?8FhWveJ)%kCW!=Y%hfNBuVe$^v_wvp#{ zEC%12k?SV$2@+F&-uZ1eveW76Vk}b;Ka%?HaJ=!?)@4@6Wk+32=dj8vA{65#0nG7p z>XL60XUu)UaNJHsN-Q0dJCSaA*rt-iwPzZCWUNX7(Kx-brd0?XAyG?DXm5Gphmk4d z6Xppkf$3tG5qUQkv8UfI{%!4(5$I*9WqZdVF*j}yQI&}=;8CzZ8JUm`rSd!(;*+`A z(88%!3cE8vWT=j#wI<$`y95rqS!@BcLpD2u29dD#s?zQ1Hkgh0&|Co#+kxNz3_*;i zt03u-wMBuc$q1L)DzYzb`Z%&{J^pWm>D(H*w$DOg+ic- zLHvRva3+FR?d{^|Qu(zlTqLK{`+ePQSJ)}uG&|HhBM_MFNht1z#Bo$YcQnRXzq~IxGdZ0A;&e0h4H91 zEUDn*_2Vvg+?`i zHcq_cMggLe%qdc2&2o+G_fkqo0QvN!u@$zFQ7exIB+E!x4ddjTKiFg%`vzn%5sD)MAp+oS%|PJ`||dbaXg%t_|a0{!MZhWGM>4ue@-PRx?06LDF3a`f`JUivOLPx zwB4!RwZNNnj7VM7jVR>!DnWx)8M&umUf7k(f=mhr+%+NwY$gx)b2fbD^vBc0OTtz} z`z0QgI72alg$5-=c+=xxi~skGYO`_%WpGF6E%RkRiKesl&?lV+x^C){&<-hr#TXhi zluZXJ_R#PCPE|kG--!e<&{6}ewjNi~+H3|ogl(siYW&oN#|%R5>rj3L*+2KPvf9PA z2uuaH>e7@77a++b%m=l78^0j<$tglFGF@%kSoeDxA)!Yq(S1gU&KLbw9DZHdcyEW2 zfGlyMz~r8bz6y0Y0YUNw43(+#kfJ2 zum-6FJk@^|R~^IZf8TU284}c|ktta$U!NO>K(l@pj=G238wQt)D3|p@X`u&~_4d(> ztJy_iztCv13&U)f{rvIS#2_#j_Puum5J4yo2_oHWw#^TX>RNL0 zY!6xHC~o@d+^k*hhA_d@P6mp(*|wjgk5wXeW+j2Ah-tOCYd-5J`Z9o((lm$%ygsH$ zrMw>vYCHA9`o!oc?DXRcyvF=$v0a1iXNQc}AT2XyVkt&Ce!NZL^vT7sd48E32D{r* zJsyZxFfe(WUQVKBZu?zcE8Pb^S1r98XDHI=Vp3|ucU3(Ns-&)!@i?*)Q#mowtYGzf z*Vc+vYT;6*WBmfJwmbO3hc4tjZ<}4|ySp+CvjJ(UVyAoL(zs3)NS;Sle>bC{@)5e+ z{jQ7cAd^%)h)m`#w&FA|N4R@HuR0Ve~*a z6nFOQ=DtdZwl$$J2s~sJ_7s&nJKc@vgL}5-664J_iGeFmGk#v<|H}C$?>iaG`eJ~p zaUAzP_LlpbvTc;-5rRkoem#z+^hi1x4o|y>xuaBhVfM0q~G~rtM zsyvUZZW%s`?DGPl)U`hRwU4Vs2ymFP`D-X{Q6>6LUGCtep#l#dj^*!=kkD5*l$`99 z{5*Bb!Cua$Kt4h0W&&Cplde2RyHJd&I=;8<;Nm+&^=G|a3Bk`HWjgVM z4I#UhQ722iBTY{nQOVvY>Pl?)@n4d+?R@FAHpX=FJ<_hW9Nt?Y_h~QK3 zX$dI#U&HOhAy?6yWiSsHyPFEm zx#JhHx4CN6D_o|>M*AgcKSml+fyt8w@L^_y;OlkS?*{RyI`^P90?KMpkp6eVH z#9C@>!&1)q3zpE>h8ELYLw7W`W9dAuOl3Kelb9AI8lfcv3BySmgG*c{3Q8A!j5fA! zWNjnuh>A_}b|}_(4Mq=$7Pbdt&Cn$BLz`+1MX4>;6tiPzASPeqxGQW=MuFB=f(d#Rr63=nDL_C5M0g4RGPhQ`)7;5A#plm? ze=O>XtNN+_Jk0t1^yAFQpqe`x@;vWAV{Wmcv=%rh6XZlGnp$&%F)1~9c;lhpz)lGVgd%%K-{c=0c6S?^JP zg$g~a{zILl&Nqkymy(Ly)|mMiC?AMMc+lgfym8@UK^0})MUC5iPP?+Dg9Xw`=`lrH=RWeZk!|6ISJwmrWmy~E7hHrv*CC6rHcfN3k z5@S@`S_$k)%n_$H?k23$Uh1W!cyTE(q%()HS`l7>MR#mlirC#@_XQFH9gYI(#*_4w zBiKZuf%+CJ9`?s_d{{{+kM5BbEEF;okNf;^O>!{&W zxdbB2inHbA9Bpr)`&IumeN$=QkJV$1-G(@K#iCKf@0JVD^-;V8$*7*n%Jl^c)O0k6 zy&2R4>pPSVWwzeea=Ojjr!z(E4LJ=(1Q?{RtS{3v?C4iwA8BzUcL)*1-+&26C7$tr zEL%i78YpbRu&g_j6)?`|;na80of^RK?snue0~EZQt7y`N;X8g6SloD}G$|SS;ZU&ddm~PEJjB7c)Dn zuYTbNrm8;OGZM4)3e~i5Wc>5*I%vdK_ILLWQ!yT-n4|kw&o$c!% zOEZ@yBTSTn-eO}?%(CZGp8$Uy-KyczXxBIQrV0N-#JM@YWiqSv$Tk2LdLn!YfhDi0m; z=%vzHIhk+O%#VbHcGcxsmR+>hO5GTJx9~`{Zyz5v+8kgbTGg@l{eFA|ENSMqalGU% zrUh^W1II;RSj(HLV^1NTBei1}vhGEUs`I3jRwhQK4YVM{OLcu*BvNb*pd6hRlVP1g z_y5(xGaEK7rCX175;)?=fZg~VRD<1+(^honY`bTbtb$%lwv12(H6d{THVzpeo*NAyKHXmk7Zhhpr7xxU6aF7qdt8O~-BJZrSc86B?j z7Wxp>(Le(Gne1T)fKxT+Ns0NO_)kzEs1cH{9axD_v*vAThAKz2 z&z*=fS|w$Cu)TKF@H{L%o`2ejn!rj{e2U1Lvou}VCW5cBMq|Ql{g^TY2D?1*XJ~Yb zN4akqlW2)6<&bI0*~JzPPo{GQ>Mx=5b}dgBg+lyQeR(Qs{g{8>^ZyvAm7*b3xx;-H z>?He*s1%z8MKeA-S=uAJ`@ zXuvr74wU~})8xQg^vIkV%O`yN6VRm6M1lIBQhHp2Rdm$^*{mZ0^U*46nT(uCtyYH% z0p+j6(+`oDWz*+Cx9N(*2{2f1uf}4Hl36TEBTM;&Iu84JuqE6jlN8d)gqYMUAtqe_ zVIR`DtMYV)-oWlZ(=ywiDH{W)=I<_LjKcn;fihm4X;nzfYw$!M#0|~1S}EQ?vOBU8;J@S?*yuJkvF5w?XUN8+Y}mzBvxBQjiT$ZZ#Nlu;1=sL@G&mXQdL z_~1^|C`~Vbr~t04^Qbw>xOyaVoh;TVk-TUcw`j!oN1pIwNFEJPq0e^$&7)E%R})KL z_*03p^w6hHa4unM$%`|AU|ET>3}V`)C4xDlv14KIls`$7qNgyH32+;5}TT%FSAI*U|9kMIJk6uzc($8$a4vCxN@$yP}k(d=l_38T{+;ugXc~j63=&NJek; zfGx&lV+nRF4Wb}-O2f<1)>4+$6l@F!Mb+owc=brXF_?fg?z*Q{f-Amx8Y|>Z%W~UC zkwVzOQyc093MAU@n02xwqb5>c5)S?d0&fl!!SI@mWnDDz#D?bSr&v5jGY zBazWpj|6TX0aY<7#7fCOqIe12$qbzlS?tx#$Nb2gFba`Y3Mwb5o$g!6i>`{?^Xs7e zM(b2bK!L1%gC}knGkyc=&v`)Ucp?!+?9iTDTVih)iKnN;pJVNor~|lFahoh{yp*^K zu}Mmt{cHnau?VX{5hqN34})uqFp}fs`5vD}Z}8dTX9YYl<#t+We~k z2f}qa!mtOCBLQFg)wK9I>#`k+k4Qu^Lh(vPpi0o6S}5N^>Tw|PH!XBdj<}3T ze_v+y4roUvY{`iFMQ@!k7)`kr{8BPL>0BAy8CEq^uwIq?6Um5Qzak#8We2|v%24%F zy|5uiCuSB`-(n$yb89G!*lMF!af8*0EbH(*^|ebTn!9P|g2&2T`Or(U9%WdZFU9U* zo&O>&2CFLtb889WG8;A(={G7^=Sw|835AjzB|$<*dPIxeu`+zfFix<5ciafW@4=?3 z*4O0U9E8T4b2>DczO{jW67TqY%-TXZsLZ6YWK7}LDVfX z5&LWVbFdC6Y526P;y*6$P8yXL!kIv%8thq@hYI?}KDHm7DOg<`NeppzLhN>|4_m1K)qzhN= z-y*0Jrpl=2p*1qfGv&@AbOe7Gc&%Uflu;*!+U12gmB{QdnS9~O@+$Dk5@hnjj63Y_ zesGFgIh2~7Dj^r@FS5vAIxAQem50veF=g50#b`-0v+GO+%ggRxk-{~UXM7a^bNrBG zldiul-6hz+vnXGZjix9Pxt=yRk!D}FcSDkPuo(=QNe)>{x?0U7J&~l*ic-}WMTj32 zvLM*ND++ya`1XzF$k#Eg*o4U&gIUUo@_k+j2|iX$IyX6%Coa-pjPOGt|s^QM`Tg`6O1KjUjdRSsk7 zM>#3SR5s2D_W6Zu@nw?SHC$JICw4MN)r-~F7x3}@emzOk`w5MrtHXektLN359E!V{ zZ6bI6w%g3px4;ketiIP35)Rv~AMIV>zL;&;$sIQ?=_I*HuA&#g1>BAhZdh(2l{txI zj03W~rvew0m9bHJ>zpoSY~mzR4WmIx*ispx}&Af5SPlwP0YXsNYICiOjDyp@_MjFDKw1FcF43zbbXi|bEKdF^!!}^1y`L4h1ouJ*mi2~3^ za26jv8e-EWq$m~y3o8#*8e;PTjh7##fhhUbxH=_)0Zo5h3rL0^3@5m)hhg zl@nR+(1GyzedWL2h+qOia9p6a7OT{$G(IB(dwb%sKfW&2QsRckEAw&gQ|@mj+b0lZOC%6EIIl3Q#eD89?O<_CU(RkjFeVH9RYn}g zo=nGTCt9?Mc{c|0u4ktPX+nglSK@Ty%}N{>Rysl8Zvob)#SP(#L|?Yd=a~)7g+7&k6=hcHn~UpIZJIyjZO>aqEroZ62C*Wp?ZdOyV;j5+=FT}z zYgj$q{D5uQvVlr&`{T9S^;!0ueHyKKXqRfx#r!mM&QermG^@2qHU!LTb#+L1&f?*j zeSO-exm|E@2Tj+P4AR?uwsGizJx4v4dHLYlIj>!6)43Utd z;wpwVx#H}x7TA=@6S>sXj=IqLE>pA}?wkB*`$7%$6=N%ZRRYiK@iAKQ;#Sr7lUnRf zFQT2{!0c!&Ma5j@8PgiL-C_v*)1{dTUw6@LkST~#U1%aR0vZ`nUwGssaMYAf9GPi= z+8~8tAw@a3L=+>RMMF->H*VlK0!#k~>2~o+Q&xtPX;vC2W9ZbXZ4oyXIZ2v*(Ha~r zsFUEDynIc?*tC(_+`) zR$w)ha{KTKSH&8-zeARNpHm-W2On5(t&w6Nke715niZUc$7N(HR0sUxK+PmAA^z|Q=asT zcKL)u$~@apjB(STHYQY(40Tv*GeBVUJoS4p)ZBr^UjaNpFz|dj28W>NxIWMZw zO*O%^C`ifJZF&Bb5UHZ@VU*x5V#tTJitZ1;i%ILaOXV7Ez3^V?k`E;B+J&OKu1MUp^A6jD zrYiV*4uZU@-4Iccq1*kFOL1NLH|4dJfs_Z8a3|Q z;UrqnWa~u&U5Y#(kpdfFopRH|C9_f7o7)*KHUsNo@w5}Q;y`S@vMbB%%)5M#`3aCO zAIYJ7K~Em=xA%Rnxqw@0>;qtuYe3n9DdZx^4KpgZ-5l!VgF9FqOXDC`_@bGAPukm& zx`E9+c(EuQ$BHzpt1|Qw>YsAC%V}kM4=1NI+Nw{fbX%Kxn&5urno(y}0XMkg%|txm z1nHf-yw1!-fO~i3v98s7nNM2Veo_6b`^g>W5?=W08d&NEeJ_Z)>!FM?v{zu|qu|pT z-%~J3u2UGk$}s2nvO+%BW6BB-X7Aox4Pt=w7P3wVnZzs=TJ2rXcAt zUpjX+H^|UDri@!wKt~W6sraEB9*Q8j9A^Xy5~TAF92xwO`UC^BceMlSrVhwstQ#@+ z*eDkuF>R&D?2Y9x7fMRx7zNCj@d5%ti}Q8_`3I~5xWv_}@ZwAnAB@|ZnhSA=G^Zd1 zh=OwIkd5g3oGAV%1i%n!AX_S5qrl=&Db4bf8D?Lyi&S>dwcP^S!G|s9B{myJgrB`% zKGUl>Y^4xHn-8LU&W|)t7j2^gh2tf9HfXc&gkfOVAv7prcnf?ARQ@YW#M1OfN^HNW zO3q7}W^)QP@Ym;nFB8$kj@LLISh$4Sl_=j;=yzdY3aqTZ*Nu|UL2Evb6>IdoFW?SoSSP=Qi2VYKXQI7g-YL|l;xikoE$N|u zQf*5Zc|V<6e5>6zu&|ag9;_UI)!9gybjm%}Nq((uH7x<9Y3mk7B0o*Z0h(|DX6ce* zJB*5mkJ!kz&0`NNxG|S(7pup$u$xTF84ejFo-9n*>m6_nVSev6O`+%wsTi}%x_{(P^>i%dNSM>v)V(9_-CIa9`vA(eFFDeDI+oprTxll_-E`}AWH&^ ziT$X%5e@kzE{e5dVF&jBhmuwjanW;#th9BxInQ)w@+sdBxdep1`Wa20joI15H_@*o zX?QO**86$Z`P0T_2k8R!+PUY+5GvaUP9N>?Ee9y;|v7+eUu( zL#(*3OdX#I@sh&v2uNB}8_;sH^_!AKuur&QzgrQtI0vKWNWJ^qt z!C@T1E@mh96G4|@l{Zai0D;Ps*$LbAGKS&PiAE*Pk@it9iY$-DRv8BAJkp)y>MeT3 zJGq;QSiqvUoCuTDn?`phZ8s7n7TP^^=C?7L6;lgM<6~z2?*L#@glH znvTTK!dX;?39JN9%FQ2f?Y=yPED|FAt?-}$jn<=d)2I1I z#IOSd*+MSa+V&Slw5+t72=4%MpMkR9XH^m>b@0E3!R!u{t7lir;EA1_NQ|wICDnT< z(~gF9`Qe{izedt4m3LJY=s&(PD6zEffvVY z2qdPJhglsApunmIM=h?8*i;H+Nn1`HM~&C`WtRyQ?;u{j{1&IGt+E45QbAY2WL$?; z^(k^s_OoaVE%$4)XrAtk!E`)8HvrIVFIP_V{EM59WdR7 zGbs8u`EnU*YPKTrwIPPSUz0+usDd(HhKGL{tQUS`LKB=hgA&c-^4obDq#W^x_<-6< zl0V`LqRoeuE)flA2D4GN-*O;xf6BpIE1BdG#opo|f0y-x)=!LslubeW6t$1TU36j> zG;%3_hGMS;xyEL+&b}58?3fkL+GDW5*tqazNW9^${uv=&nw+bY*!Z(s13Iwt&4b&kC>r`FUGNvBi^u`t_z(j8l8-Cl3K=*U%H;uro5F_$ynIyFi6T1+a$T8^+a*w4i3R;=g+_FC z`)dUUcG$Sc4Aa1nm3nTw*9vZM$J?0|VmCscWZ!e>NzQ4Lzscsw-{rA^E9>%b9Rw2} z#r3fRy=fceQhN)Iv^*`})R~L@8TLn{1Kad9g~-#h%If*dgJMA+5S;VugL{`WObWYq zpfsJWrkxwObh3$b*zc(E5S7PdxEeF!K377E4hUcMa2WN*HGO>ww@MS4eHUnA2#RK> zc$jiN{ZLG%a^1`xFtD}A+0@}(Ojx(nXL}t^dA&y+Q~Nt#e;NfYb^jR+jVJs` zlZWo@vb$C^Wo|Ys&5SCQBfY^*BUsG5g0sUxn#mkJ+j52OaJf4sOz+nSwf)tztF|;0 z=?|b#8NatTI!TVYoj_Ne%M-8??t?#^LeB7|Gs$}0hlD@3KJnX?oHq`pTDC-kGxvqY zdDc5FD2za#tYKd>&4URnze{n#`bu*~G#I~{D9No0_3_qyAFTfs@of%HPTF?v8k=-6dPL44!dIPu+uPh9K*pn{4U>7#L^cCe4^k_rWm? zrUf7C^@n;y;G$6y+;e-Wfy;v0V{cgE6Nx_Q@z#9Z#dHdSi>nWB5^l|9=+@l*8$1~) z4%D_q96$IY1#n;i?7T-@L*tAIy1YVPW4?E10|;lKypgs%+7 zeLhf*F>Csn4OzsDv=XX0v}=c`f+zMG)R#q+{YnO-z-Ta324m(m7lru4g&R%oh6ZZ> z&pMPrV?nDbS%ld#9EKo8rYQTY2K#2%mzUHoOQBRMYN{ozlMFQ3xF6%0{wl_T#A4?4 zA{DP=N4{y}wqu7=&aoWj;XwX&PiKN-^PZ59B?9&`DX%rZP9ID7(rQ8O03{X6&J25P zzX)I~T4Hha^#-Jr-0_>xEr%wto!CvbD|uXfj4I~%_336gbxmhME9c5NK zgY2w#1cdkd3_OTHMo@yvj$?j33|~8tWw0Uaf7R&YKz>V`PL`zh%x>kT~~=N}@?v z4az`qZLAu?gBnv!6YL_7P9e8UC70vVg0EFo{E4H2aKAPgYQ+0NeCc`T#j2o38QYWC zoS$1SyfjQu0`dTma)q21V7p@MKqh~T!97$m81G=!s|n_)Fn336mWPw1W5y-eR%#)8(#&O~I zHjsg$ZjI25=e73_4LGJ2zD}xh!muGa^(TsS2EOE3JYJY~S6jM46WqTsmg3}h1oi@T zR5S?hD)RPR{8JI<_ra2(<-d;)KL6Q2guLtfOXD|2I<%McAwRpp}SBIROs z8Jv!vCUAI!8-Fk>BP3m9E2-8-8<6H-Yo`adKB`TerX)vTUu`SKimi5v#ZS+ay# zduR;)vxrK$Rxdp`jTel|-f|eHpImy^cpu1oWF3g9ZGx4ETbg-Ku{&Ldv_ zq>4;|AqrYnx4{Ulpf33d)b%qbG6DRN24r#B*}#BW3j@-+4;OsZw!5?xZ~($c!w&t^ z&JZgazI$7@G&%ZkxUf7Ab`RHe3djbSkRwAP!KXHuV0wO2t_U>0CL~|{2qFn4l)Kmq0>ZsT#uG?!S&f6K; zFMIOkxFrsXHm6&5^p+z}H8O`U@L5$pS;{pWr~u4*j?{{ZD2*EL^>ZKz&zJ zCw^9<#aa+iUdD8=pc=zxn~c>}q*KNi!xKKuCEwQ$5cm%!+4LEKQ-3vIsNVo|T+Dfs zs%BMasUU9JD{nP9(PRNqD8za>T6i!eDm<5>PcL!+HO`XmYW|DUH1=ZR{Y`O@kN4pl zA?`QwY5$un43dTXT--uKEXu-JXYJL5G#~%XIEM$8Tg^ubfcHRX>Hr<+eltEo6)-TP zSoqMMN@Xfl?|ccraj-mQf<6BS!Kn8`V?+_vS>U47$O9cB!+@`JYt|zhKe221)e`F}yceBBA znTWdgiIsJ{?W^~~$?J;UFQdPyjQVxU+NJw2ojfNMcG8Nw>cP1|#i&nw_Mr~2KBP^O)n zv+yT=WTeOLL5p;Ma+RDX`sXp}P95y#@9f}5%xjk=u9Oj)o>7L%XB+yFm2?pR#E!a& zw=3RRS?E*d*AnLG0{Uke@=uc^awpjvyq6k|nv6G(Mw#+eT5S$SA=1`WP)k30ex3`Ej2_aw1;bGkx>8U1Z)B7H{kee>3t7%@EFP-^RqT z{+ci{YjH|tx$E$C#j3QQ`~8eKw6TSahn5RHVd2B!t ztE;dGjop5Hs3Ylkkh!Z1oQFUMRC4O~R~GY2Q7-k~32V(CcAFi|cr`M#hC=p#`;J3I z_k0K`duGyxP!O8ZU~x@MY3BXVFV@I#lSfW#I(4nP5Bg$z1j=) zrbgL((3DXk&tYYLi7_WAtd3CTMwhX)@>2<@g6128^NaxauLqA%yx7?AY{ z6m@i|>~7t+^5;`a{UAd{4fs2J2{8#v0cezbse`_s+DQCTTHW5}Qk1kGai45eVRz3;Q~?bMSXe^I&Ok%p3YSk zR|;;y#+mw%-p_)A5Qsj+m83o2Tc2B}W5;q8oog;vb;zP9aDIjXGMJu+f7nf@Bu?;na(F{Y(Em zo5fZ9d*wdLSPbG}iz5r97mb?dVB!ka9`URYx%EtI4MXeZLJakt$|rsIc2B=SmNYD} zi+3>-k`~yl{HP!%c8@KDdMQYqR_LU7`4V4hFqE`lWL&?7T&2q>WX*6WcU9pddk2$q zO6PHAYr3B8m8Y%4!6z@GXq90%Gi{Xij9edWWQ0pKbhxEfnTjMKjQ!Or#ut13ZOUVVI!NAqekRI^@fo zSFHgL5Ae^z$cP*H6yLF+2 zYyyg`G@jd6-cpU8ojMXsWm4`Y_fx1qH-1D-t9{1DC_^BW^88qT6jGgx_>Wqe!dc)dLt&=+*-5y z#mnADCAf9-73YDQVQshl*qLDmem_@VlXX~MIJHR?@TQ&{j~?$M!K|(%C1=Wj$h;;K zG3@)@taXbrNVopQoJ~J(O%h$9A{sJm_WVYq9u(%p0pD7jd$RJPN_5zSnw`bo`tioQ)G}98bc8Z+}J716OHuIsca4!*jSM^)~)bTbBBR#_0q_ogIrrskfF|$c26s z`ZwcyF9o~#A$3~n^i8R~NkSsMAox>UEe=;w*{qi8>*V}i+pH$$`O_sNtzT$b<>==p z;MNvg-fQ7);y@~ttDyr9W82N|J5R+ne{yA>Em5cglaEM+{C)3Ae#=oJQzKiR9BJ74 zfa{ZiSsI2$bDqUgfgvMW1kv^TDwMS2Y8p20ltKkKBWiYl9h3rfL2&B6se=+<%UQCU zlj35>su0}vECgQl5es)y*GFgv_@XMg#cHN*QP0KT+|sDWL9Hl5^@)vWP|~Z>akW)6i+VZaf{5c3}#36r0cZ!e>SCabr+twZ-!sTd;G$1f}4# zse>Y{y^{Bd!pzEVFT}hU^ z$?!3$o ze;lg@+xxVO%qKy*Av4DjOMjz{1QAHs%&|pS*a_$bDjl#^Vgqpf_Ro-G1H42+2S?R) zpuknyJW(fXme{!5Mf7gZl)~9%_wvJackylOnuC+0OVwTZ28P)oicR*g2l{{aJFtH@ zfF6pvG{S89WQsa21FwDNs)uk>f6zToF@EGZbQfnxCQoadz`o;(BNQ4Diz%-u;j3%2 z$7k6zB}wdl-Ky55Dbx7=FnSw8t;NvgBl_u(s}bGtEX<@vTPox85LBiOhjsUM6i)FV zL}_qRG7B453lZrSY3OB9qQB2Hm`z$pM9PZ~s^ZF*1&+Zl&Z^&8S>TVo zR6`cmc6BpId@zt^g9YXU^B(RYQPy-}#4xs0K)lg0ZoCEkx?QaSY=WQO-ojy-N>8Bw zac$pg<91m^XoH)@hkA97?SLOlIsq7%kI}yc#$QNhi5(Xd=^|)R(`dVonTZU&DRbO| zz0M#y$`>M-6NU=ObqqOXh5!!kjGWw$+Tb`y^c>1Gh{2}X?1y>Jp=?TV%1X_idA6=y zD#9sq4G^qw!-3Iji%GzvSfEJFf7kk6!3+!DRf89;`&$J=6kcQxhUyeSlqQCjDUv8F zH|5|aOBp0L?Al7G^qvRl96D`AmH3;}1<+p3dZ=xK#oR z#!qvv!O)d&o8r@K4>L(s_ceb;>8e`%qnVUXSG>0#tK$;VhZ5;!N3vBo?Qzuqq)YIV zVDO{SS1A>M{knT8^Go>QS9t4Jn$DW{z=C{ErPoceEuU=)XVr_MX}8w`V*l>ZnzoU0 z1_CY&{XOJX(spt&y}B|)gL_z9zVkQzjk6`m_e*G9&FLfDLD%%#6I(IU!{2-c0h+T9JBS`JMUY1+PLRYPEkyb)5koa}69%Xba>S13Om49# zz>eHP%{5A~snV~fhkIkM_tNtQ;dGD=ai#OD^r^N?W<}Yjr0X093hs+ zIhmhW6HfccXr+KSLs5Tmik~tOz_|E|oOyU(tTvhq+haw;4lTAxQ`6)YBZ^ssV@=rW zT42B%G9chRn%xF#OL4vb%JpwvO^XDq^B@zBMKCMoG20pW!<8s7ocLp;>L`OClT~C=QlG*$<6U@hNw62{Rn)t zpPM>}&#vzMigvp&_E$2nwSQt_025&|IKZywWobY`{$V#aSU+28j1y@ZrE2(yHxf^V zQPRNS@n8~l^b_Yj&)#;A8ajsuWZQ@%ZFasVkVyhfAuKfnF}?hUD9~+Up4?NIWv)^- zJ};{h5lI2zt#DWLCSUWD><%l=Ea!YrP8$>%Rb}mHUPanCs4xW?2T+fp0?3g$9N-%yORKUV$fo=z$FZVo(S7%GO?pn zS;}?Vd{E42>;$bXZLF<~ ztQ_#!py>pye_7ip+UOY=;nN8jIhh$4DToR{(}|eVVJ0$OKI%Wn^XIV2aN`&+>x-noiMC-@(=9>jvVMdL~~bmHx4#CaZ65WZ(czr)p;S zkFsnG{~@33=kn(k06{`TTm%3F1O(9i`T#!H0D^#TP|z^Ykl$cnVBq1tA)pYTq97rm zkblR;AfTsYWT2y@rD5ijn1>O@bD;z zC}gOpWb!{~f5`urm(OkhA|#L?C_4xcApjT=2m}%6vmby5004n~)%LFn|F;DQ7z7jy z90KyI(q9D{5CFhHARxe?AYfpipkJjuzs>_d5y6lM82G`F<@F#4ZBZC~V{;*i1ZsLv z6=tr8ne^@aprFyvF)*=6NXf`4D4AJ)u(Gjp2nq>{h>D3zC@LwdsH&-J7#JEEo0yuJ z+dDWqIlH*J`3D3B1&4%&#lLsSX^3OS>4{*-P=DnJUTwPzPY`-fA~tr`|=lFKmd^c8?Aq0_HTG0e&GcS3JL-W z@fTh|z|LO)f(QymzyOZKFAt$-i%iJq3yC5Sn_JTZMZ~0Vg{p5i1C2(^yiIcb7i#~& z?Ef8Ne*d2^`zK=m1Fuy8EC|pS@jws(ynwqC@;o2tzhL~D_bsfo>)loQ6Oe;7S3ZUO z2^cOb`vfc{Y<^AZ3&WxF=2yXc8s>dOSfQ*%_rb4{eLui^hp18v$O|L?Kk)So{_UAn zaEx9nmbxgaQrqwhk-teGkOL=0?qC!&)HHpJFUY47NuL{T1L4Ca4KiG6p(@XYSdxzW zLDCa|dbd(808r$G|K6aaivHsv7SqZk3S&q$*3b7T%`)@6@J-|=Rk4-9xB7NQ2*8V> z^PU{&oxJiT3k(&gYDc@@irTi+EGX!!;WSv-LAz&>r1y4uQPkGZgG-i*>~;(o@!=nX z=o?W%(5pYa@%)sM$Ps1v;3~NN%JBcv+zS>KQf<w>swX!w9&jP74eR?Uy>Nn>a_s0|qVM&KVKB;nLRoHlKI z7hWp7zAv*+S;}qK*+F+l0#esfk4$8W7ywJMxvo8Okm@QP1~bWP5asv*Tv1BD{`DM$ zS_2wCky%lYtmn!*Ss1D5P`S~35|D4*p1g>fIzi>-j_W4c%?r6f7bhFfJ8DMb;Yjca zx~v#%++D%PJ`gVWL@xfC=@OCg{IN^JAR*&EfPJ7NrmPGDTpzgT{!hRS<;f@DexLQj z$0B=HUm9=c`(pBM;_xC(jrTlL!22I2!evl#=PoM7)p`U;~<%Lhc>8SNPU>Yp* ze@J7^%?K{W$MToV5E>i6t^R2{P()QTNRfBdPb}vE2hll8wY8~uXk0o{keoBzhPw&e zA@N(U0i4i-U8m|${@s#ec{YkNru=UqSy*``AaPeZA*&RGvsRN|34fqCOL%)d z`OlvnjyF`ZT&DU)^zgfCL&DAAFXctYke!Bdcw>0wsGNIRA0HB{mMbw=Z@@;J4#%bL zr;3Mh?oX%K1{411)TJKpUR_nmo+kWoubk?7em|5JMo|^t0Yj1J`#S<=>qcPFY4yPO zJCZcCO_Y!UZKgBP=PftraFMHx)VvAehnhA`u^;ubEzVR!nB1N68h3JFptIC-nx1;{ zfq!D2VV!MM@$c@pl%-{RUsMV`tP7&lXjhz=A8zV@okr+xZCwvl0=|P;%JX4rkOkLI zKuY}5B~+I&Ok8g3noo27m*%vXY3!2yA*`kI(f<1rF#QdnKKs?$P|ZF8nu?zQepK_) zWA7X2`cFV5#h0QG*1!jwg>iu&2c_y@MZU)oY`G;SPX`2g1HqWf^YR?J9G1D-l?gO&D64rmZTl@)Gng_fHM6AOuZb* z7MRPOtU9RLY*}F#PD-%acuz@TwQ1{ZYpK^utLL?V;U_%XgJY0)U&*-X#%GsQ$recz zad`}n(`PG}8C`X#ex)9h7dE%~J2t6*;{30~G+Q+J7h?a5>`*DonzeSEvo=CLih=Pg z{;lU8hYoVERyUWSD)nltYd% z<^jBk%8qTcs&7Z_K;b7kixMX2Wf&s*YpYW`<6>MBW)?idw?OTVM_ey`9~5!Nc~PZa zs?FwDxp03{r*^{JF1!|1`vm9&=bp?f{cx7sSQWOn+TMwErobCJRa8|u^qUK>`_fl^ z|B2w=O=kR82wGa1{0YD>lYQCAet|4g0>}%a092WFJ@IwSf*y$ROdG&Lx6qIyZtB^9EuzrT;jq5GK^ZkxGGd-qY#onv8 z(fBvAVvyxez>)HjB$hPH0AWz%d>O?Byu7xmC2=R#HSbgs+6}4~y%xNONi+Lbe@G*{ zKCgJ;-c0wO8$4rlNR%e`ns2;SgA(ZbWmYm2g6i-+kxcS_f!Ta6@B zV*rvUR|y8UC%gsnQG=vco@j3(=ynF&Ey~Ag`x5=)`ef-H=9ie|>DxllG(ev`UIW?Jh z7e3|DAss&$zmWQ$Eje9(0xDoKE@fP~fTFGKgj60LKZvfCqsp9%Wc7-Uuj}}dG1Q3@ z+hXAO2I1!ovP{2hJq%aT4-bXK7Lvc$1&f3pYbCjt5=iv>uSx@UK_If-E@yA9PNNN1 z?P+p?$A3;S5v1e)T8n~LTxzgK9Qd;D_G=W5YiLd87n~r4j{QWq86X%TG69Xq&cQfj zM*(u@TVOHe;}*X59GlWybx-V>L_Ne=N-ml&-e}l|Of${|N|iSM{tR|5G!_-;Lwn zRcK+B7Jq_k_5R~wY;2HcKCJCFE5%?Aueija>lsYLdkN)hbT6#&pR9`Dt;DhQcH|Da zf>f}6@cLAvzVUrt%_hp&wS`;5%MZdD;^{0V`bunol9G z?PIxTMyLvR%b1qY34IagAIQFII9}kb z(5s9G;`!rM;xi?bc1K?_Q9kDH)V2Muy0!n6`Q<+e0{O)=@WKMk)pOXhfT8#Zwtd%^ zg%b)EM`I<@Z4&Z}Xyz;F=jtWl`WCed(S+^{y`lBpC3d_k%DdKEI&}5U#2rCf5Y$_- zW|5CmlPs@%-jFK6*-Lb}Ihu+(}C?c|p`~1r7HfU4#oL z@>*meec43IEJgp;|L~#x3#(PSi(hpHBt58x7Irs5myp{u6I8=_a~zre&zxr< zDc1*CwDo#UEw?m3+3r=kd8a?XOW(NXrIPB7XX(eu#v`0p-97-jA1{@S2cRvDNgGnn zcDW)$xfm=5SS4@e($3I!iV`YU}^X$x0KHD8uUN7-#cSV}3 zLR{UvkxUF`UHanR5`p@#!a?E|M0jtqY{*M!PD@32!s~@3psiJ?n!~MmCAfv|L{x9~vJP_)=?R!K-p+woIvSvy4 z-Bd!7E&IL`lI&Xy2_=jrWZ$wIl6@C4$iDAF_I+QP8Sk(2Jm-GnwA`Kd+|T=*?)$Hq zex{l4b}irQ`dpuDe1)X2`o@rKG06IkNwmp`41|13Nw?a=iGSF&~db$fNctxS8nID`3zSD>QL2$zyPN57b zE7hu~Ty4bJgVk4DDle*2?z}h3=%f#FTh*+&Mf!0jHU0vurX=$dT$*}XxyQ`z>YMrO z3TP&EvY4oe4b@aMue{0oP)xrqGAhCfX)VE68ksB2z=mP{JBZj%i`N=Y@b>XjC`!Ts2X8A%O)>*Riw8XeQp_g8fQ|=LZvD{0A24Q zd2N7+q>&7fuIet!dF+Wp?*}1hL*??ywgrHPZEP`b7Lf+d=U1gj-NF-XU~gRUL#iZ-@&i^%l*kO z5-ilFljfLu*-t&K6Y-3JAjo_)Sk+PJ*wFSIL<(Ae6CJ zL_gi2pJUa4f;Dd+kt05%81a$ton(!AqwCjyXuRSn(pnmv_#)YEF{ zrKj3DNy4`QS1+XYS9bLv2LoThdb0mZv7S6UJiPzGdj1FN`M)0Pxx5tvmFaj?P##)7 zU^7)qblw4R7qqk@KU+zY+e;rg$Q9eWewtiLBMn)iBr6J&k&u;-O?<;ju~bEzGcfYB zYcZHhwEcW75d?FruV3Mj;_*1YN1SO%Ck7=Wd&SA#XBwEHI5alm32LHPo}H3q@j2nE z28$=2pW>cmd%9(~iYl?vJ40l4wr+RPim-cCwg6;tPrWC*A{ABIVt9JRkXjcM?Xb`p z^<{XAJ9KqTNeIGm$xEsHB?uctk*RVhiF)r?>z5gBC7)DBA5m$Z9PZ%*4#S1J- zLg&sm-C5lD2Oz!5qSE!Xs>V>A2hJuq0Y2;TCl$W~vLu;ONZNIHr>10di+(tsTAg!9 zWZp_UQ&XZ&gKc-So7lN#26DF?I;Pb2)PJ(Ml)6%0Njxu^H6_bF_g2V_;QF^ocBirg zJ=?o7V^?Jo*=)HyUIO9YumSYSDw=e1HQT%JNl9YFjLNIoo>1Nnz(G;e|5d$AtME67 z@v*1U>7x&x%k;4Jo_#3M5b_vw%4Xd^voBSo&Ra)EWA{0NoJGK>vkg0LT2?5CsDThe zT!L)UGxh)!XC!obxMsDD2!LyH2zV<4kVsY*IE%sh;*wsG?D9L(>wARh@h3tQ-?(aR zCdcvSzMJ9F(0I~7*2+HYkZmBn>Q<60!KAvIu18c7w3bpY#l9@bpN)7AYuT`8izs@4 zw1M5(S4hM3*|jrChi4TLnGG!+uWRb9GLbLYaa}@52u+mg9Kwgfi39j{obIKUJm=}~ z3mN{@dl*C2er&GyoNUTq*+6x3djf4eE(7LZcCCe_Wm&^xz9PH+1e-lY^{=Lbzvl5M z+GVmWQBlvgpUQt~Zv%U2U6n@S>?^IM7K&Red0Q~4Md+;CeeMp6E6RdFQ&$;Ct#%x@ zS|yNp6<5j;?+SxW-RNANO3E{zeA-VfY7&Qd$S^DBd?m^`(mUq(N5^A|`0h6OJ7nAZ zU@x0?`*N`8KudfEqkckuSY=h;N3}#>=2vUK-@Sg>*CSAj{Ds3VGb zR+gxF$L_5VjB)p&mk6h7@Fi=zscY4A` zn+zt%20>|~*NdJXe@HOw)h5H)TT1?&bpF@WFUic<>HAm$FL)cSUO8{R_33>8l*LVH zmOEtPIcC}{@0m*vLUAHU-!fQlxC`HEK$?QpYuObO1 zZ-qtk@HKQKLswGwX#n149(^j*z@sg9Y1tIOQr*xXvz@VwJ*Lf$7-ooT_>ARvFS}z$ zDZn}U4qEUb;i(R>EwpbKZKCyA{5}At{MUss|5)@iBjAhh0Iv*2rl7qPzHI`~NFYjZ zb509i=?IYc+fkw~B1beO9#<@qi$VY(lYH*1IKGox6jv_19#oCVhp6mn$pj6G{&YU;mZr`?!%$*6Nc9C{ta1zto zg~$tdd!5^+zeo6DZw2rM5hC%uQx;@4%t`Ozk{xMt?`;8n@ayIx|CMo~f8-?P`fS(I zXLopB?hRPSRO&UL9QTcLIwUhQImUTqZd;8|n|_Ge(93>qY7GRGE_?9R!pacY){qZM zb9U2ioLxh*ed-fel?6kl6R=jt-nC^rA;la9uf&(ehFaR67+%=$s6NF5YGPjFw~e%D9sU)yu}Nspz?ROEbn@MzN-SMj-VB|3uhSUebQGg|nE;A~&B zf4@J|-9_9H2za_g?#W%Up%8HEGfZ*$S{B%6Ffd@kl}Effd?$!NWEFfBc@4bN;t)Ee z-jWpyUZZi1VxqC)!a4xiuH$H5`{*)JV(t>GbY^*~MgN{GE}Ig{8J(KZA*ZJG&ea6J z8;89q!RHRlAYd{feIe7P*7V)LXKniUSFC*c$sPPjpYwO8fjMHWHGF%7dC4lP^} z-CDR~&NyF1piW`eWDkJzrwaqv0Gxo|57V#kY8~0Kgie|$E*DPKsR*XaEiMV;I=(-C zjbUEE8TD|;++XV2no)MBOPVms`&G8Z$7sgj%cl*~X~?h)ite%pShrk`5V>p~)PUen zuUk82v+f>`;^$f+eJw)2nswX0>A`^K63!Hc10jM2=?hxO3{ovXIcQfBIytt8pb#TC*qc>RVVJ{XvvrlaZOSw)x15qTwn31V4D;i zs&%M77?gJi6>Fn>W;gSb$WT*Br%=^p`{kl=zUq26w*q*|mF!B(?W{uCuJ@l<9uzM` zFB>fFw;$jC!ovS39?c&|IR~}qtn4G7HrLEW*sko^A@NNfL3*IQa|)2Gz>f!@vD^H} zhd4X__RR?|GC|i#FYM%8=~+r%9ed`W@hHQO-ZSK}&#o*#LP=-?<~)^ALZ87FvHXEH zSJg?6u5t}s1s|AKRB{zrXT4EFQSA0Hvy9rO7)c$_z@1EpL@{59&F zF=N&Uyr6a&gA3}cAMFSIOGzV)PZ`8=R4?AA2JOKxX@j~z-lnDW={yzG1=+)c!gXgz zKX`YXxY=rLJsbj?Hcw7;XQZo4I>yP zAA0UbI`w;*##yB@OL9rbw~SkjpRj)WdsSBj?>PBl5CE>QLP8 z2T+>t;Ca6mLHY8TD)rS)g7jpvOE>y>_8hBQRiUR5j!!^=ZMx#&L~eq{O`NLRAj?n(>Q4p4SXT^nAt!EOfVylTrq=rG^I7o|$Ykz0#0=75|``v{BP;rL&a$hf$T^E!^*~ZGE1N6HNPP6^?|Dc*|$?LfFor#U@0B)T>mz;|5w zR5WhfHk;kBBBt{JE)4NN)>8bJDuFqYoIG0UawJvxlcAMAcmV?jKyA`1xsK9MBjLC6 zm%HU~hZLQ(GYuTZW304^<}-$trXY2dKHwm5dtcHV`3r%<7?NQ=3U4ybVE2l#b}^*tH1u6U zH7|9gqvW~MjP3#6ASJ6ZTT}67g6(!d-@OhH*wZ+=8xZZMct7rTS~fhPyfAolf}Qs6DUR5!(A#F_%}Z|$=)BTh zCw9bfydK?&%+l{%d{QaDN#rr?vJb0su??LX-0@lA608y-WM8^IM!C?#|AC!~z^ct{ z)Dym%^DIQkPhBf8yh-G-oFEJ;zYDuRr{wT4cE(unI1V^#yufqB9$kg`>bH=Yl1;llQ%^2vA9q#<_#N7Rxe4H2{iceD{h?P#3teQA=I z+h&P*f>#}zUP^9ADD^n-<={KM6)IjVP!U`wxgvW5G6d<{Se7-{RC$Udr)VzkR5>N1 zKIAUEz3&RSQuBt3?X33f8`t0|at)(LLY6UWlaJ2}i}-XEN@f|{RUBiLE#J)4oin(! zphsO{fP&UiM~EqP6;Mda^vjxF4H68PcRjJBoS7^*4zOSO)zy~4X0pVO$76|Z^F9KH-Za1QCV|YObbgr;LiynxBy&VpjIb#RQ9$_s zOj^Qj*0vYEg*IY+e^WxA~& zEKUXmh&<9O20RrT)lWE7x{J=wxl+}vC(=`=i_n$E+;IW6C57-N>HBp?&$OBdQzRJH z;S0jzO}pSXT4L;&v^2*gy6s4sM;-Axx}yY3^zVl}16eKdy#>Sdv>n-0iyEKNl*k`| zgvM~dqOdNml6i#P!~H@Xon1SAoj4?TLzu&NJ=bYM_`Tk|ih z75ZP^8+7D90EGq30PHO-_cE_<@y&$mCzONV>om;HW)(k@NNg)IPC7BtZj@Za76! zn5{Ay85!0-d6k@$ktvrqK=bGztd@ioSMLsRkO7ain!srM>+yF)-63ka&=wXCsv1v?rj+va(w-JibjwEDuL zNH@rI^kRFLbb&-~{+5v!2KE#N4(4dqAAUqjpr&ziNX3PZERvY^l;)w5c`P^1f}$t++7`6V z9~u@U?>=OvehiIb+m$W&Bp|iZH&<}T^{sxY+I-M6+k?g|@=Oh`!EW@N;oWhCR z{Sf=IUO4wJ|82^ZXLhJdw`>nUc?;)c-lu8gIXN)ix;AOWC(It*3(#x-i5Y-bgJvO{ z6kS!Tmm&4QUKsa7+x)9g`#P&hpLlA~k1P&AD?rNA3uH5>^3*oDub`Hv!1#h`;??jH ztyfOB2}Z5DZ34D(4?wuoo`7st2p)irg&@t^{>f!mtGv{=saDRLA$BfTj}~Uil)>6W zRF_bVDHJ*M<+@88`aV!gSGj0HN|YH4ZaV)S?-+j5F#?V?!M;3B%FzFN(&SN5dIum8o&(U%9JI!r8G1yh>Q`f{UWtzH8kF?11k1CGv4k^{ z5^}G-6=wHy(f_M|oqq{hC!nBtZ+b{Q@1kXQlR=60Sp&~9oK%_|l0UtR|E%y(Zih}# zUA9|#*aBC3N`B9eZdt{Y`mSeDv>oMS#r>n}l6Pp`zNZ4%{Om@^XKI{ZTs79Z)mMB8;dEa9HVa*d3BIesArEZ7=B$~TkDvd`eve*j9_ z&1hwh+cOoCMZQ$A`{u@y5WJwCUGUa>mYNZ@x3Cv$De^2O{QxAfCIh?BhRiQkMBnV; zx9v}2EmG_FSUqX6`3P;OlJSL19#&e$tE(o8HqnX>rpT&>wM++dm-q2Sy|bbqypfa> zgM?T-C-xmOAwzu+-RA5fh}jIw8c+nxeP0-f!=f8fo9$OTbG9HAtL?JRxp}+<@i+aL zluh^&nY(3jm7UoZ#@&;_{HN2e<@%vTxfgW4R5)KQqqMyF5-0z(T%>6SY}o0I^nW93a+Xg1sI_4gU2@NyU^(FT%^=fwiQ-ggV;># z^ZVrU&~dVM06av7gW8a99A`ZyK0J6|cM{CZaR8!`paUF*zG0Q#tFq3}xC0QaP2B36 zrK*`GHsnb#Qd+LP@&dvjQC+nTsAYZ>l2;NXZT_%h zkJp^#<;zEnxgM0RVt^plGy)cH2H=>h%2d}`^_+!n)a!g&hV5S8gzQbSp?1VFfFZ3` zCwnZS0e`fStZMZQQ1&+gU6}_)f06;fRmL))(Qs2}4PgQ>GBW5&DP$Z6ShX3ys-2N@ znZP}tFbZP;4M7IAsyd=usZ0B+0J0f-X#P=@U8H7@AhlEVSWmEiz%R^p!P+40Jwc>f%+bQ#y;$5(|q7e@tjrR_fBb@Ea zIfwi+16xMVpbep4Y?vbSi+xaxTXhEx_{QK0dS4bz4?D7MD-!o{9CjcZ99))EbLWER zjqP7%?fA2(Uale0=C_n{R*w708A|Fp7XjZ#0|+S$xJYzCk-&U?v#QSS&WLxH^Sc`1 zL`}DxQ5wl3Ly{Ll#zDaT&lHTIHsg@e;KL&w^;D&}H#U3#YKEcDi2$x9!0^4+hGv5O z+;Yq1;cn`f)0yMg*LsNflf<&s+ zaNz424nSY(kW98ZG=E0{8-b46_36F5n@SG%>!H~2qY`pdv&8pe5Ay!;geU#f5((-G z{&9(nQ(?9V6Q;t%V^?eT{*{%5qnQK=mx*xk9E z*UkdZp^cS#I)S%%J321?{*Q;Ff$92}iHWgH&g2NwgateNRSXvIbK3H>ruz>i@RtSF z089OamHOeC(!l(Drj8tfw8MHT{regzpr7Eg6)?O9s1H`U?&c+SwH0#J*9uRV%B@G^ zH{pj2)<2=VgR8eJzhYI?+!)qc{nH(-_nQcLTOu!ImKk&Ias#)eL(1rg6l1^U>G7cjt@6so}IB(D}ADHQF}^W~+B zjZA4#eI@);QT1a}AlHr+C8J`5i41pFORY2k{}9 z%nbj5qWw{N?+gBK<*!k`ehX%zES@{zdS0~n7B_PTR(4s>qauSMzP2U;0rI{a;V6X| z5&HSNgQg*73PXd*<>nM=imjx)f&M;y9RT--e2o7@h+1(Wl*zgniKZZ{)f zpNHp&&@R;y*tpvr2Ft>%V%AU+H_hsIVAv%C(vEKD9 z5NidCsw=&}cV1l?J|UGkZq5@2uRR}PWx_7QRvwswe_b5fOiKVm1E~<_=a5w)A_*uAi2(RjRf=a zkK1G`H&U5Y*t77&V(oX&jnr>jra%thFH3x*!*`Irrn zMxgEWU@;-Pj+%ss(K6@nVsV(kDr-F9uQcKCx?o9b6^9TkWAT&oR_)5~th7(w^YKN> zg_CM**xpj1(5wx~_n2$==JLA3{D4lh6WH8fSeA_#T4-E-gW`9-Hx&8*dP%*Dq}(4<{h zC+zE{-fDite_dd~*{@2tyYxv={*zNnpwl98yfQJD2Sr#a8O-g2n6gytb4RW!fv`!z z&*)yxjJgYcPH%iGEKTu6AuWl@t?s1)e;%qE&AE>?msqX>z)zrJfz5Xl*Y5H9hz?(u zu6tE~yFv4d2Z9l$lgn#MgCXNZ$fuE(sDcAfN6s~><69pET>W;!Sqn)|m&NHqVpwCE zRSM;_Y9xIfdv7+p9jv9<>$^O003wuhwaheA*;$t|KmN+!+_>se{aenGr=JiHTM3Ig zi^|zQ(-sE-w8g*`XZDyo*X$Qj{3B_mdx=MBjenRYAjYU)xScc+?xV>#to!n8z^xOz zXp@cXrXPSWvzex_Y}>H25C1~-wAyK z;7LkP{Pu1f%TE7HI$pI8oTPo+EH>}4^-HEz+rW)LyaE_z>a#DKS9FZS_DF1D`|Cac zbuy4@A-4q<8v0ch2adm*#ep4Y^YwefE*@T=)|S)w)J(E&Vy2 z81yP=iB3t3jO8{ZNHDS^(Vcm&sWD|RDP37r?zH#`J`(+J%j$2AMfP233H5fQsC`jy z(O^o1z37mn>50Ihpts_37zmnJX9v36o{npj0pZ8DD<)nRd@93bVZ9%eSm--`yLrm{ z5qQpYVwX(xpcZVB6(zNE;5A0XVI5xA{+-oFM$&*TRg)(@cB1FuoJQ! z;g7D{8PRzqXGtH=KhHj)%)oCA@yUiX{`fZ(>XjAd1&Vy&$Me?*UDMtR*5fJ;V)N=+ zMaQ}o0F(HKOZ{b5_sjQIJaG?J8jy)OW*2H?Qe&i|F-7 zW5ROacK_9Z;9LIKaaS?5&7oIfEG;M9L5&R9xo+SgO?AgBH7C<(9~*7(N-%}$MUeV= zE}ADMx^tF`QHD5LD*Doz{+1aRmm=~35lq7f5VRr`ofDzt{6w8}hI)@*U1*@mg_HlM z+uT>oFXmT`Cg)#mG!M18War?&`pcTl|FpUMNBhoSz-(q3qz%k7bE>uGu@Jp9WNzmJ z1;wHyfO`g&ph6FgZ|8eC4Q4fxu&J8q8+_F|vJ+S{Rn9fLYD8}n%&sQT8FU+7lhr(a z{TdbAczz!pl87Y`I)6>mNbzyAgpB*y(fmxmRZY{hg+X)?98~0OAtfpEL-<}fl-+czC}S>awbvN zQlaSeeNkQ(740>K7ZpYmw1`VnlIL`R+c$W2DMmM5=5}rt(>{{=4Ijw9qw-V#~6lz zhPp1Gl1aZlITqIQ@)p-L;>+$KlNiD5nls?|40VJLm#bCB7Bg{7yPgi626e<;T*_ER z%#*UVy&`nOV?)KkgEh?>xTmR7ZVb=}6L5?OXF}_~?D}Um;^hUPateEu=dhS0Pk3T7 z!0)apJ_CE%=`RvfNGh6iCsfCu`b2nQ*WN;8P>t)k{t8hZRfXiSg8UW==}w`s#Ra~l z@?pz)?|8@U>tocU5ZhR~!^lwZ#3!Rb#8g_LCs9W!9c}7|dFQ;WQwbg}hzw{lyIiHFpSqr;=0D8*Z-oLPY zKI`-?{lI9fa6c5G?1DVg-DkH=BVWji8UI@_p?)*$ZE`3C@rOn-{|w_k37hSZ;L7f< zhgMZNpJlU+<`j_sFov-iF+^5vw5(EW%)0EWXo+c>-4-PJ5K*gPRvHUq3u4rNegI-g zrm6sf9-XG8TQTU zI~F@YU``ty=Wp()I3_NZj9(z3BW6YZpu#EjYEdyz*an?`W#^A7Kwgq^ z!hFcfw#L@2Y?CsfX#DCkmlsFPuSlivqdEO#wM?7ox9TVkWiIf@V}s1o#UH&Jx=O01 zlC}>ZL1IH2MpegV9d0PvD~&vf5a4}u21S^#ptVGk*x*G4bkrcx3p7_%wCYMAdTdPX zKf$;{#=7htFdl$OSUljyH%;DE8Nv=r;~=$+HKyYVUD-eZK}QC87Ri8YxZ9#=zpIE(mzLC{e$Xp zRe>>|q_T}G79vt1jWWJ7Rqb)_H(D&^mB{$Y61Zah#`9y$W^RWpZd`W6Jl*knFQkt; zPIgKw>+CxlJn54@{`I1GjeVQk-KU2&+>36DJib2biXz;jL`S4+&W7h;HPo~Ahp~yy z3j@gLkLD&M^4fwC^dA50#8_QDXls8c6cP=hQ?fd&xVE@{0pqBifF` z_Vds9bzP{zrI8&X`sa4OS`wZ+EA4nlobkkpu~7(dTf`J zd0a)dDFTZ}ri$roq7Ch+2-QI)VkDw>d-GcuOt!r?d8W|wW!A21ebk#6ZbvjVynk$9 zo(Jvf->t%KLXr5eniA79z$fUP;`hi%{&}9U4H#Kel-9%7g{qgJ5o%6Eu^&HeG$383 zE2uN()m;nIjkk*=ODF;*l!TuO``_%2+|i2Yd6Fp;s>GB#Edc@gsGOE?AUEw?CW;qP z6Z&X}7#|wys#4OH$~1MT1b2t3J$*ZJYOY#W5OzZ_U@R!-=IZpD$lhqWaTC}{Cd~H9 zG-{us$vJtM%&7b#fwg|p4qy27(I_M&XZKVuV5<$9zLgjJ6`u1ATzsy+8$rvfM_&DpKalqikr5%79#4fRn5nES83 z;MsAb?Q6}MYROElz2K|FuZqp{0w2jhlUnHP3vzgz;I|v4S<$&v4nH^f{xnBQx4ryh zl_9}WD=qLLH?xmFRRTZf9dmJhVB(Hyo= z>*Y4JnJ*F+s-jq=NL5gkvI88Rh~(sXp8aG$2m3|5*L&fmymlfJ@V-z-8`Y2--Oqw- zuwF`rx7+J2L$uur=I_nXn$zB=B0ZLsdckv;+&04o?jY`n1oxyaFPzV#5+hbl{chm= zTMqr-;5kNI=4_;K5uRAOT5?T7Q%Kz0n5EoPU3g3doHbLOJ}IbzM8)i z!MIi^da=H%TNiy(MOd}C${ZZAtjmNrEBPT4vRc)(KWFQ_MG`VzVZOST;ky4Hz<11h+ z<8qSq*;2C=)>0cN_ZFnT-rm;y355@xZF&&S;#7I#FTAezat6Ab}`4V z{?d2XBc9J+OhNrQMfh$_IhM_~Fz{44sHg|})NXTTHAf(?Bt)Y3QmLO|-HmYl+KW;n@)ol=&Z8y))h$jLq&XWS1Nt2)-1QDZTyjsl3OAf&HzOF76H`EjILZ z<+!bPkj*p7Y5&0feI@7jkH2N*oS7RNBsaIv>UVY*c-b?hI z6}s@fasHkEmi4(#sv$EIDARf|wvPc9I2<%S!if0KUqToU!?QS$qPlFGCCBQi@6~^t zWEgg%De5fmk}0#GQTLrv5s_LK3>5++uq)ik-`A5reA6ABxFo&@C{?68KS`+L#*GEX zdFK*oBfM5WG+E{&;EGBpB_Tgl4de;>Vn+ z$LzDmZF?Sub1Cpy5o_VSN!bU24~n|KqAC5c2{p%evbe7;ZGYaK)+p)IiR0mz{zJQb zE3leUrawt>M&dKk!lz>@evM<*sOkel&N|L2yy;6*8si-$vtZMNn<+lsYBc?Q+4*MIVwT!VA-4kj#~NL z?nI9MQBiA8GIlD)Sw{t>)n21?!E%`=Zs& z_J#JB6S5XK3YvpPBu(}1pKiFpNT%!VfWt4ci7|W5p)h=n?0$Aai62krY6B(aT+mpM zB2xARpncotz&nsgIs#7V~;Qa14? z1-@t(@+S<$e=Am zlZ>?x$)2pe&?FG5w`ksINfURoPxayuEzz>5AJ98Tm~cJY8NJ{y*1o-7pV^uIBwR}+ zXUno~YmkZg5UakK`mB(0q&)zMlKWK*117A1S#M2di|#lyKdWQHScsDzLw@%%#HWJc zS?c*%p4I6nA{O{5xDDfnMbM*H`?d^m_m$B_@pF+|rK0H?xHk=7_7i12@p~w-K3Bc@ zsv{p?P;7&|m43qr5y6$MHAaQOP*ecYIa|}kbxDyUt?^pzL$GX}3dsj%a~Hxhj=?R} z8t+PmGiGM4ehh`kT<6;&ThcN!wU^AS%y_N8eXBey+{QWrhqP6Yphrb*bvhg_MY$9B zy7<}cS8Mzd@^eAmb_=noz3x|+l2vwdZMNx7#p#}OY_jI{{t)Xtd2efB3#hL@bokP_ z{HYP*h4)zW`l*Tp&#|?iS6F9n~b*UR%{aLuv)hC&YD&BR{}hfS|Gm$6gJCo&b{fc z0f0oKHo1esFd21(v0*TpJ=#L9=m-W5T$2$hz-|BCELdOsSoZ@ z0(|EdE1lDus|H2ga@MJhAvrXki~O6FNuQ3M*CNzl%u3K1cyG!K)d_E2oCu=#qVx9@ z2SNxAI0>mL+#jUIZ4yv1FP*|#Rmd6#oq*20HKppkMAN<|*q5FsC ze>!&g(=^E=6be0qz4e!c1UYWrMU(PS;>MyI8CQu2`YDPzUs?z0pL;8^om&#B*9i6v%aIHoPp z<>YMbotsVcofEqDcfJB19s3cn17a+PY4N`gk^UBR8i!$xh)X~?KUv~so)`WsUNo%T zO>xC1pe0Er`PoVS>difXy_N$FY1ke^`W}FmCNqBHH3c-?*HfQ=qvwQQ1u=8|OF_)s ze7qe00Wtrlf9wDH{;iwyzlVzc=dAx{4*>IQJ&%sX>QX(nHsKf>-=_-bTBmu`u4~!} zOXIHLXc=C_TrmNZ9hq5`!%!y4MR=C)IV?}Q1l#6?kh@!kQ?^;<$L=;8Hh@yIR7xzWp*a-B)@I%P*pM?*sQ{$q~ITb+)dZ;9VhihsN3KS!NEV{3VG?(|^)FaoPa z@zzJ3&Gd&SK&X*^L?OEt$qz_VzYg;vse2^$<^TkfzAlk<#b%2cf!fllkndf@PJX31 zxO8gq2_nRgZ^~)E*Uq2~JD?dKs;ABAVz&7Bw` zYQ%`b?S)CMHF9Cl9mX>W-spwfEkTxg%`f=4T-X3%O;%~Y7&~;${wtmK&tm(V=)QlX zVT6jAxcn#?FL=Tbv(On}SgKyrewH|fFLAr5WF*W8W5aKGB~ZW_&FwS!2}2|}JR_;O z=ppIME(Ht`Qw5g?9Qk4z@)F3x@2KjMHph8rw)+mjRP#f$!o`oH z`-nxXj=O1y0}5&S*ko_pSuTRVAH>01nxzW9}?SAthPD=BEitmh>PD zckKC|LkOwqN-EPGtHJkt0BU6KqY49%N$hUzq^T-Q1; ztLSw0NqS?AMm!)V7ru5!`nx>4pNrr!=9kwZRMHEC;@!V0dW_hc_L*esnQLT7rrV4d zm6~prQMr#=${Z%6olQDpfXsgPcUxEgDKz|_0;=lo7Rd^DdkCa82cq``wzR9XagkOU zig$yjm5pCy2q-AglnQmdCHKhhRmQ$A0cminsG^+Q%8|;U?aivn-5P**(a}6?Tuu$- z+~muV>&!Whjym2jzp!D@{SbPpmy5z`$|b40WezbYUd|I)wY8r6z?Tu;M)`Ny+3$_> ze>}hZ-{$0Zv-0~ZrvI*wuJ+)V+|5S6J?qoBg0dIlt`R_2GAwIRw@9bDhTW@I?!;Cm ztuHN_XLe_W$aSUWg@A5*S&Q4pBB&8Kt2r#4S5i9d(gt2+zN7CGo#&(3gVmRem8glp zM2C~mJ?^1w1^6ndThQvQrpsq~Z}oI|GJ~#Dy<`3Ro0{LEML!z}%J_eYoFA=;a>@y? z?J&whC34rPT&uFI6xrFpSp=W^#BL^zi{ z#@skzwcPDJKacYGh7|th=rsw6>f8Fe-J7H^V4W7L$L<=M;I+jQ$b5K;H6{oAk8dl0*rcR7X{^)5Eb#)w28gM=?= zc|C{>mbMdW>P{AamHt~_Yt9SbIZR&;_J8I3BXQS1Kyi{@?Ya>cy(uLRNDoYB2(vW2 z+)io1kXn>%%l#+Y=zhx@GZiKqMta8xN54F#$Q;a>zses4Ox={a)uRojqRup;cPXhW zsuv+XqXj~^8Llbs77gz=5;j-P1D%qqatidsii@N-`?qZvv&0w;F7`<*piFnDl>W9D z55tAZOI@3EPqoNsBQ^IP-YENc|5PweY6boC2|+4-Q+Sf(lI2B=R|Tc8_o0fLe48I_ zx5(z1FLhK7t=&e&^!tl6(%clrc*IV#DvWaV;(QmBoa0x{mVTw%J^~)I7W~$m*j2rMa;PQNYxf<{3^%4~0>aBGqa#SyO?|A4ES+A;wVf*beTCWN+7l-W+`{c5R?(o^rT5n+ugnDe1 zq2GPCR#s*GVxnT^VBu?c*yizvZe&L?1$uK|>F<%BRltld3hlRqFPE2Ft{bTg#YViH zOhBd`>p5!6|HQvZ?4(GySb1Fd3C<~1Lq>$JBTrzLmr0cZr?n@>zMO+N$Xf8BxU;ig zAG{BD5=AS)VU~Nj?g{OfoQT5SDL2gCk_CGBUBRS*rull!e)YIh2O!A8+O1{%Ao^!? zep6JUm$z_|1xg?o^C{C!Qn(r%*EcS2-F1ttYAtOV;ij{7vP-}1FCp{!4t6=>Pu(E? z#H9bK-=Q>G%-waEIBVt*mDp7vW%p$G%sTA{cT7rTlG)Z=Tkgg1zFzdDwfg4-5w>}6 zQ};sJXm7s3tdD=Vs82E1kcN~w<4vBh4vjhj`#5f}cL+x` zp@dZC9YV#(F<$+>DEk!z-)39#jox!IQ=_fe#{9JPxD4y@c;xgs30lXyHeJ#vMX7Jf zL-G6w=OF?ihq(wAk8qKOAF5<&KQ`BUPBvw*Y@oWiJ>m2BVh(24T3A|^H9Y1kvg=Q< z*;7>iD?$T@V!lc%i{sra$@$S|DKk9-lGp%TQ#6f(lH(LPf{$t_wHcSLP(7)Z|r{+DGTRNtgn8H_7q8>InUhf6w8F zq-pQrGWa7UN3orDjgg~G{j=(ckJG`C1~Anbqg>hxX2H zzFAbS?VgIOWd-krZN`XGsmS^+6N%{g$l2tUr339_wyewhY6RZT?nkMOgiw{k3uRDPpSORXGFT<+o|MLR*9JhJjhpMntk@U_(@ zkIA6hZ(=|6g_-s8YE$&S^}hQA%z+EE>mA!W?cB$DtJHcsXefO}&rE_!V!lA9yz)E> zs=O(z?)!cfoeT8+Woc5BiN{R>fA0GW-SRh6xoviPc8y6P^m4JZ+GjHp_;hn}@dX9V?C@R4#7cq6<8ChUlE*TFm>+Eh^Y1eTiKH+j8F63%$s@ zGwMnK3#I7FC760*VnK=b`k>%*C#;}b99e?h1>KK6Nef;D1o-sdDH-wqH4^kSN6HG# zzPb}vCRcFn1X&>C3}kfQ8SPfkFE19N>~db_)tsaZK?}8X(t^VvRV$5t`*L$2`<@1p zuy}i(xodOe#*kv3RHn+X|681l*bf2qC6>gyMkmaNZq^WJ5xcfoEiDbrb-j4q&9*7^ zX1kM^pCWKQ7-L>=XJ=o9^KL@+ns9HraZtJIV5Z&Y^pbb;);u$_Xy4*iT3hfPn~cY+ zMe@tS;w~sozh1a4{i|#kK{9`5$djH(KsiNxZqfNqW3m2!e)ebgykv>tTYa4WHOQZm zsxywJcKBU`8P7Dr?|fk2qW0MX>}jyCX}@WHcSxQ@fTo75fymaVH_vz}$7$#de7iyL z|6%VgfGb(f1W~KS%*;}Yp~cM1%*>1}W@ct)Y%w#pn3-ORfEq+SxvA`-Ms?(n(cOW=Z(3nbsqNaHB8sNxxmcn{DEt~=mVxMSD9X4Z>$8nU8+9phkGqHlAU|{{5iUpLvHG@-m_Nls^$nQk?T(_$y#m=%&Pfm z4A?d0A#P>R{!a?Y)I#Q;2U*ERcia5p5E@*!S@8TWGh3 z?TTeVFw>H`oyUsDkSE=mJAt9jY6`?Rhh%JJd)S(5miF$3EPz4iXmS~SHi3WYFF;FV zRSZqnl?|{SgF&CMT9cyJ(XWRnH8#6Xqh!sqslsfgd+RUoJeg1kpau%0{Q`#BpNb9# zP9e%9->wv@-0dh8w)d#$@TW6sud=;(=elTTuDqp-m-*A1Q#q_adu%rgv7MWYr+FqX z6?6`G-cN{N>?G z*~#~ZSg9GphIm-iBq4kUw~Em(fMpBee|!{qu6@NZYJ5GKdSL?6Hx?19qjGwBdWbtF zubiZj88hh5WP2BGb;1xlkpK#x#?D{Kmgzgx-a_fUZUu4{sEDEuaiw`{xqnKX%rIQh z^&9dKC4EN&is)*f{MZDrc6p2s!G~|j^9R5`f@df(fNsWKa~A% z1kL>4lC1ODzxfWxzX9z2RbuAg^`}KzJY|ULHlHqY$ge11S6EHV|J^?;^^G$3x6dN?s z0pEX=e*L|h?5;EOHC^@gKAcE-4kvHZ&Ig$+qf$olu(-qF@4A`4!8BOsbs- ziw+jva6-s04H5DX#l+g%$Xg?OwlcPSmC^qwQ~Yne>5z|Bx!9SGNR%DN5u8-nW8h8H zRT^G74v5X&EiFYDbJS~kVGJH?bp2h_RIDOk#yvy3*kn7YAu;zFCLTqY0M}(LKFS|h znJFs0NTOh6Xk{ZQjuWAda{V(SY)%Z{5#P9*&ELD2$$9I42uD=h{ruPaIP9$ckxJlD_lYW@Q3+<#I)itTd z9KOz8d>EG(M>YuZ=Bq^bzHejjq@o-Tip{F-9WNBTq^P`+SLB;XElPhTvy^)$FGYQo zOf{}ay3_v*Iusanq`^2rQd%s}{x5mrrgE9DL8Ui||gTWfo2V+OZFMyP;if!$?=m?`zxEZ%e! zmN%+4o9CO)M4y0zpMjKG5LZz_e0ciWo+ms{{C9BAw>*#6T?0|#nZ)m&J@*kv8`+1S z5GuOPZ?#vv-_BTnf@5eo-jk`H`w;o@d8ho%Obf*?0G9hlu*Poh$)=~ze8MI)9yETaQoiT zpLp#j4D=gXHu^80ZT`u};-}GkKKed>CcA{>*#@5e6Fb^D_@wY(-h!NY$LD#`%yxx0 z@;Q3pL-gkyr+tCuDJIj*bFP(PY$1lgW1bQEbBBzFa@B7^MR5}@{!av1L{%*Fe;N4s$1USOAN1d!d$JpE{8NWD z&4JLX1(69RCh~OeC!e<5e`Yl+|GAKOgr9u#HB1{(A7MD8P}R)^^Npp2|wc#@XO>v4*Vkm&sh49*q_sc`^JQY)>j&$uJ zV_65qIWdyzIP)5#&->Iy%j%$j?dq!EI5ZzE$lgH1u^Yj$OCYWyHdIs|l!;_V3&y&oQGBzC;8f&6qCJ+Y2kcioS$4Q!RBxlJ0y{AIWcvD}aFT1x41kt< z^gXu&ANI80525@==L^kBSF}%97U0>;%EKUE0zBJsBCB%jA0^fgt@)YWo&-i5nGX6Z92Sg$EAAzLgELi2w^Ds{Y_o@|K33L{~xLRze(HrkDB4{Bb99L z-)N9TQ1V8ZQ>f=<>7NlHn7_w9USZ)?IQ*^A2!CFNau0>hL@RM;#dnXrbul(nCnE$xb{Qi}qvc%*)w@_R4IZJ1Sz{Po& z!G_rds+e=#vOCF2Em zaRXcNtQx{v^1NQ+<-TUj07lX`zG8RMEP4*q<1RHp%?+Tad+pYaC-HF*(^K16E79h*%U{7SZH#yzNq#ID2M1<6UftTuEhE2VO~ zyyP00UDsj#h8^d<*UYUbEF-&k^62V!qapL$dd)BZqG?RlssucAGnec;3UY%4I8%=q znyugfbgOlE+Z(-Kc@sU`-L=hkE9p&c+rkxaurRLKmpW>iUhER)mbNFfhf=(e;vw`r zKT>{pEQgmQVsyQAOm)ZQguUhqoTkCt$Yk#o05-hEedG>ka(ltbD8%d}dcoU90)L{8 zZlQv}FJL#t`Bd{93vW(pzy5~Wxv1-9;Huxnt2+z@VCvcb%)!jx70d+Lt-9Z>> z^bS~0<=}e-BgOWdLjE9k>P<~FeGcBJTDOGt!!#P!nNSHpiH{`3k zAHL0#s-b*<*b2nd+coHHZskq;R$(sihyb1cW?o(*SW#Y@n*9rTeEf{zw!dgH8t-;j z!(W@)tp1o`Zk0t(@_xWgUiYAC7Pg3;)fiVuK}(vY>7(^Ib&nUaL5wFzJx@J*k0s@1 zykIXUDP?t|P~f{-P(Z}9m z8XBcutD3Fz0v^O(Pa>l-%`lfqHyDa#{m(b|r!z%h@Zf!BIc(=<^*T*86-4v{1ze6e zv_v^q0H2_voR)io{x5k>cXrMPP!<)u_lS5#ZSsK3A-%m!YD1EYN3?1tNWGug^D83p zo77_=>>?HouSj>9m~C$yZPp4%xWvwYieL+hsS-_5L_Z2WjChT>jDOr4U=a@O*MW$9 ze`f^1jPuq;o>E3YdKK?anL07=z#8pkXV$GlsF1ta5WnFNU{K>#F=CDe`j)&J1#|$X zwBu7pm+FFj#jbUY<87VR>tH82(W>v#8oNnHnb|!E$1DlV6FEMtUO3$uR^zh?p11I} zb;=rh>Xz-tip&Qk6ifkT;t>C%0MIMJdYIgj5Dl#dpVqDBd4p~yw`T#ekhA2eW=#01 z3?v%tAUe>)l$vfN1PpwKsFH!__4(nZKOBt_xQxQYW`-B{MIztdQ!}uoivnjtT4zvk zNfU=Xe*b`QPMjJ%0<^OnIs%9s*-`HF0)&)(JEmAQgOwqTVeMq35JIZc>;61t)Cz(AL zUXyw=t_5ks=JF9Lf4MtUS;nvX^51WqM?&CErWjqzEskx`2q3ZK^1%l(1ddg~$Sv?- z&n(G&cn3!D!J;+H`k=4To?l1;_m%8tij`5Ss@Av^+G17&js`h6dL4WVTx;3*$G==EFg= zoUY!l{kpas%deutAMm%m!4Q0IYSbm;wr$|(Slva5S6tgKmgW6$G4g)Q_|0(i2BVnK zlzcJPVjKMQaB4#O3GreB-MDBT+A^N%AqSEmV!W*Bzix_5EcoM6@acdP(MyR#0i)l+ zvI-}5B6!D)2`iaLzEPSGIvsY(-)BxVm3FeMT7s=cpwsYDeN`L-N3P!ta;;13 zuXrY1i;YcAk0=(xkMAeO&;_J3QPGGRRUjXoE-H&6qEHsv`_6TgNq18J#WZrDqF{kZ z=OrVsAMdRYs;|qT_=a{mcj|rfC3~D|T-~A832A`J*V7Otmzq0{g_v3=+D@?4gGfT1 z>^2s)_``yyhrt~Rj?l&Jj>PXUyfk&4yaAIz6nFqs?MU6ve z?!a-~B~ATwRW!F#wx|6I7m$ab3+AG1KZ1@QRpyyGvHcOo&w^8XXa?PbSmw zs)2^$Em+P9h|3x!wpjr_8!w$xyM~AwD}>$apIrt`bh0jT23yXJGT+Kgnk;HPW9Y&0p3Y}~TMWRHPKi>6Rilf$lwRjd{1BJOm5 zw6E05Vh3I%uo zmZTTw0O;e4(ffnD`S1VO3Ds(2<8T+;eFWnyxxAvn+@**H_}pm=LHJ!)_^uP`%n8pH zY4*&oeg;E!Eg^nk_XKR+fGI_4Xfo?-%)LFomc+|-g92T1C-52qFinCMym2abTv}s- z=u3bwH=!*^+1J#neFX(Dj2Rv$8u`6b_tf}18Z)cO<~&zDJaYD7nQwL1FbAPlcIW|D z)GvddeucqEna)lc$d}b9yM8Yo5H3^PYvXTuKt1q{uV&D%>q!g9`l&8g{9aQG7ox256d>Y=;UJ=ef8SB3lYnqT6 zc%Xg6!c)^P8~^H%>W1|r1es6*m!Rk7Fz*-!t+JaLpN~GS2-3JH^1fb99SuEKTKjv!U1AhR z4eB05NK#cV`77n~C1;B=RPgyVDeQO=g7KrMG#qY#lcjCn+io0RZPI=4Ye9q!p`ZxU z0LU};7~nW*ND4FJ3nADl3d-; zSuy4AlFFl}XYb)kOKX^CK6|FDirQ%UU)x&SF=%tMMD)yi7us27RhmKZdTf(jvr$^UL^Hq{1TI3iD{)Yo0N%*6oXd8s$e8NA;96{ zdFpM#Q#xHG8K4$~qlK6q3kam~slNfq82ds041%7i=()Fg(hl#4W}POQc=z*u<1Cx} z?gI7Ev=wdBE0NA?VY|0d~S2w5hLAlQiK5t2gs5U z*9MC!%2&0$kQuK>tGc$b7`7WVu1>vKzx#r~8N973Mz|ahOL+o;eyZ2c`Q__JWdZvY zpk$5!!cMkvzNkKfw>5GfcYkNwf?UmpC>V{(lO<+~lw5vKUAf<(KE}^v3#G&1wfit+ zyyjdc;zZgr@~LHrhO>Be{Q6RXoQ!)+xdm9c{4eqr`C95la&q(r-&=+_ zSZ7H52IcAPLU7|fmQnAMdCTL~Iz)z1Yo;F>!DARGlh1J+2&yfPXI$zK6x>zJifTp~ z^PNR6oj`bm^o%7pn^?IOLm4Ns2_+%Q1lv#W%gC>sczsbGzcQ<{y}y^#86%!1Pq?Z5 zD9dMP-k>)N#)yf{n#w!PSg2qRIZ*&(l)B(;xvLhJbg||&I`oH*^!GQ$mSEPaZexnE z!cE{IW@xgw#Uf6!p)BvIU2C7%gG9r>GqlAp-;*pt=dsV}C zU?V3!FyQM&%g4a#=~c8{DGbcFCB~YXOcV}6D1fl1_R-$ZR(#5DF~&sdka1&<_+lrz z%_`-)3Hi6cBm2j!bU#&%+h89aP>T44DWPGQhxmnPp^WB_V)I+Cc=@f-tK&Tb_n;B^cYaud z?W9>yGS0aF@NC@MW!AAXfkBMmU)8s{$FY&6VMU`WOSNmu>308Qd(+=r9kz|M0VGa{ zF$`p^TP%UQ2+{P?3SsqS@7i{@YIkRvWAM^isq;rsrc+t#un!zLpcyU=4w1*jjxe32 zW0Pw|m~GPKC0#KkH}FsVRa3ClluW7wumQtsYRq>vZ$ZM`c@>0$;5LLIfgt1$Lvp1^f8LzTT61GHb z12bs>UIP6PVBv}o$FBje`a(&fAqRiRr`%>wAx@N2X&IBx`h1WUP8Gk77QBmlpoREJ z-StI3%_;(3;^iA)yMagwhk;nRwNdpcQ_NgItU5f4-FcsqM@iufGAvFW4+4zPycvvA zslaxd;aeDQSaaes1}kOW&xENsNDYg4530O5>*AaX*4SQNL>j`F^)umNSI#LuFBwB5 ze!?~!kun4+aB{Rk9?}40d{)J10;4|AE=Oo`|Hr-I&ZORxb7qO#6FR)2 zjrrWpUiDmrsL9f+nCXiM<)94xEoo{goy1-#m4T#zr*qc&a}7^n?<1`fds2m~3hvF5 z+dogdMeb9vMBC?!dG50FxN#sZfBVbRlR5-$qc&TFHXW6n`I!A4)2%#dNOw*)ea9ua z9pcb%x6tINn-%b0kPA?6GJ|^*@peO8wa{eUu&_&tF2E!gS9hZ0`GY^d?MrZ}fT|^J z6uDegT0x`{b0MLu+DcH}DQu1?@3U}a3Phw4N{i9|W*8yLmb`2GqqYip_!WP+u3MsA zlRA0g^v14Id_4&@wLK$z-ikbyoYRno-ZfMu!r=)JOnw4IlsXx=v#U>nDd@q%$KZ2g zYF3qKcFiSyWdv#-dGB4xb~Y6?q=_z(<3yg!$%0qskuzMETrrSxl3QrJYg*!lAbd6y z*lqf5E7s?X9#t9`p`3@>gi?1|n9O zD>cyrVJkmSoMs)sR@Ii}uJ~$J3iU`;&9uh!sZqHkZUnXulv%zXH>Ye*LgJwB(7psdd z@F8hp6sw7|W8Gd3r7Ka7bXXW;o;R9(aU9u#u3$*X6=qoGqE#Duyjt(}n`cM^WxchrOES18t?cdA5759jU^ zXxjph%_s2Hb6X75FNh)b9L2Yc%2ILdrerZqrTbtmr?Yui$SViz@abC zb{^3;Sps;bjV;D6w40J-F1M20j*Pkefj!^|Dvv6`vKt@`j3p;w2|_C#X$RS!FVNU6 zNOb;l$Y@t0!Lr+F*afJV+qa0hRy)9iA{qP$5h$TyW+hbmB$xEVRw>xp#!mGSRdkND zU;$C?gRSA2L4H0jj2-D+ZH_MsfH@bp_;_e(p^MAtEi~hL*kJ%89nQ`?;lYl_{j~6*a*-us+&0>0%v>wL$)9sVbL(Y9 zOPqnhm>=xhI3BVnu#-puL@q(S0r7O>sY^NggoE2e$UNME> zrY9Mw`KbhqEiZt+>J`!#EP&Q0mhelB4j9927D~%b>67`1?m6m{1;DszP7*r+k4}9_ z51HlHU%eWPh?M*FJmO={5-#JSlPAY!A-`Ck+~jBH7pMe@o2E;cr?|DrLfS{k7EYYv zlY+zqBH1?*AnrUQt>geo_7VX*t4-e;H{7b@+wAAY%Ff}}qGV#94EU-|8+zv_*CHXw z!lssEmwXz2>Kf8Y8V(X4O^zwq(wZ{OE906PlV2MLfu4h-h5xFThUtK21Jxd%b7HY= zC+&+4adPXc3tGm0AWxv%^HH1CNrowE=G~p+TRR5gBzMl6x7UNdWOWl1f_QR+taWP|uaVqC|Lv>5xiSt1v8 ztNSqWu#pv(y>|DV;8~7~L)Wv7g`wN>*xXpc43%18P5xhy7Jd63p9@zpzk_vF#5OV2 znnhOI_2`&KMnnP|B=>J{N33It!B>k~8%dTxK2xMVflZVzeTzZ**f)}tKvz%#s+3Y^GY`^Yn zL}{apNE%(AYSgz0M6l7gmY|66sqtGGS_cg(^?MI>!Z^QMZMJjawO6G)zg)NM5~0 znpkq!HR0IMmUeE^ax$TITmNQ&nx=nJxCiH$Mu*Iiab6}wljbN>Ayidg!j>Xl%q9^s zPAv;&!z+K4q<)u)Gto_DX#l~VKw;xmfcj2M)&Jgb^hzbQ!(9XMQ$vLjnOEC zr5d)g+TK{`VnE%h8--&+-5;jpQdKCr)A^_owhZc_PW{r6q>ovLa9b@Em_T@U=0uML z)^ES56E2-@c@6216tOaf)}kt~Bp2Sf@djiuT}ZlOF`s907o>i-fB9-Yt;FTpfvTn1 zr5Qfqvg49dCIrURsua#$?zYj<6RGZ?nBREAH#o!K;!WqK>1~Ocf2iTcPuF@0>#RWc zqNFB0%|i9%+tP*pT`3}6bQTh4^W>ZbTK?*z%~;tWNI(}XdW&%=pZ?TX-)u zLnJaD$`M)3-YLs;XHSp?FR*JXuo08dXj9U1IaDusY3s3>rr-17V zUaQ2#xeJ@j28*66(zxI2ZI`9__pn(b<@Ap`m*wCV_ff}Wb)r}Wq<{%ilYB{J`E!9d z$BWacT7YrY;%RWhw;4kqL|(FQ0wXd6h^PUEURrsirEJ9!OXf{Lv{2jCZvYs>oF>>Q zJ%*inLAovzh&-j>1lBKI^nx3tKF?WLq=r;&AT}tdc_JhX+hAM$$_j4Eom!yk-$AxztfwuQwAN`TT#f=jt*5D@B6Lqkb{RF1bfJjm zY9N*TQnJ3cq&8%lOy8&s`$2VTCelS;$3Gg720et@{DmK_UL4h zHud2|&{;iSA*S!DBK8t^?9FU=nQ(_Lu3FGdV6+Wt-Cu%WB{gCKu<) zebXm8j^IHpQif$uy| z(XQ)FPMU2q_A@1TaOiO_7DO;rqzlM)48j_o5UWFdEGF1=MhracD7GMz6V0}4ksjD~ z_1HH-Q$hv_h+utoOL*8!HaooSDY-Cc_aDNnL|8j(0;~m`{L-vcbx^$|+qN>rDH;&L z3MY6d*}sZ~t-K=E>SALqa#65I3T89LMH6GB83s;?2-cgP8TaqQbe0j(? zH&pw=`N}WQu*7v{D!C`V2KCWsH^fC_SEhylbHAN?UlF%;z=q(WQkCDUgQsT#Rbabs zeCDaaXQmkDw?q+&+Kpst^2MWrb``h|5TJw$j=sqedW_p6@7}>W!B3kQFv2B6S6B zK!uck5QzZ(sG|*0KLTX~7RSL`0LtY^F*45`@l=6$V1C}b6$cdT3n&wqEl%*0Cq>3E zmZ7_ei@MRv4fBh#4@1SxZ2^`Xg4SckO-yB@$4PsgSp*lL^)*e*c#Q*ce}v{`we-l))SopKtQ%@qUSf+!{2*9re}NO5UC`;3h$xlVcHmJ&zpt5x5htB z)s@-r2sjusX!Hg5{0QI(h4Xhbk?0HF5EPs$K&E6^jUO3_Sm4ahOseI= z_$v8uqaF8XiznbQRM%)_WE^i-?Ic<MH3mnJUL@|0Q zGtoQgHSQTl7jqobm&F=_FL`MEqWutII81{>4CE-l* zO?#Y2^LkP$dOa2OPC66#of0G1~ zn?AYlD(jfYO`&Lm3#V2>p=A67Ww42l`ys(#0@o?SgI!)7LP6l+>&^=#dU+xsKY@;2 zC4n{PbS!Nm@pA&$5a3IyL%0obI|@P>!@jYI=I$jb;C~MXJn*Xo>wVR)Q61EUj77b$ zaZ~dpO6%l42_*{*y=M~QvA@r845jX2!PW(ahN$SBFT)8*?6!6I!iBvmI7gRgpkWhs zxD=$?2O9)V63h;0LiPY?%ash-6(kyT3yNz9gI!f0WIWu})r&uAzR%D!MWHy0J#g%v z{Ay|jdjr;QVtS)N(S51RO@khB6j#6f!L?Mca*Zu$*n!2_?&cq?;gsM8o&F$#$*Gzp zuryxei9bzH$>Y@p3g>+hCGV~4A50kndkG4+4QF#j>l|n0&SKmIW^Ke7_Z-sOM)&&p zgEyVxDcxO@)rHo31#p;u5kyq9b&d4kNm*7I8o3@ixC5x=JEUf@W(dX{GZ7`?F@;Fc zzxg8@9CE_!3QG_VYJ1GdPF5h0nw)ribZNW>Aw}@H1rlM%plDAAgx$N>jU5e2p{Bfi z>#Ez!c511%X2K+d&5MuWLN(qGMM2C28f7yXP zKq>2=(?QckMHWyFZ}>s`??TA8=v^?mA5zmUBtiyf1!9$XrVgY{7dK%V0@FS`_-MO^ zDH%*}!$ez0GLN~sz%VPpe(;Q0OTqe!5~(ki5o8;JqMwC_qKB=FCHYIw6cJP8-5fQ^ zmUSA329$J1&y!5GZ3>V_AT6ikRkrPDr@wLSS1AD#n6ii0c8Cz|}3D4r2@x&*$vbHvm{~(=WCk6PM?2*Xd{gJdL-5 zlxP6ih7!RTtL_g$OE>p@i5BI?a@lIS#D+g^Gkz5#t8Ag@#u+$t)iZ^FMHn`(UiPfy z)iodkqPm0*mx&K&sD$F|OX*f&QTzZ!LkfJ*a8wRm4)IlGe6;N2Wo?ScfGX;T!J<>` z0w+j^U3{f=$$dNP)4AG7yzB*-THuC8?LRyDe8F%m^lYfWNZ4<$f%6Yk49c=z+A7T& z=Y}@RRE@}50p0So{F%$y4_j=zm<5%)1nBudMGL+ib2NUr_xIMGEEF-# zq_m83G8&-IF~YwDhjoCzJQl9YR9Fk5#f~_(9!@|sP3;7N7nW0M0hI@)H>f+V1(P?( zZ9@0$Gt3&k1?%S_MK%o~9*Q6aE4rVx| z_boCmN(SFh5xJFVkY{M*y-?z89{ny#6}he5f{%)Gsj!ffYK(9N-oQJyK8%0aEl^*I z!4gSLeS;iA&~i6Cl3pa!RDv610j5j~B62^w@KqZGSvao}D1K(u#A^By=k9A#;WpKm z_X1$p`?Knn*4tNRI$|kLhd3cRF~7l=a}J0gy3N=17mp`p=tG>USH1g7uUsHuQ^rSD zT{h_N{y@e+M$YWI2p7x8ed*ZM>Yle%&fQa?tqWfSAnz`>eauMBqnniM@^E*35<4oa zz{c#ly;6Y=pzyRR1a>pGIu&! zy@9kgmU?ZrJ}5a_iL{sLlvuK8Y*2Mc;RvHvp#;yy;q>XdN%=8GX_i>W#J)(n( zWI^!hnBT0ZuUwlbBwz54YR$DoZ*4S9(q}D4`9^1`e7{*<;!v|B{W5muOF|Z3WFe4E zroGpUMm&`(G*D+NzJ7Hq$`2)VX9pX8NEmNS0y~t~{pr2n{Y^|YGW^lS0#p~{+ zMH2bbJEW1d+T|z?xnT~Z&SuN168TdHH38k42KU2T9^5o5P~_pFtm709Y3`asWLtmk z+8v?bCg&`=Yr?ME{$%E?EJbSE{;rgpecvo-Y8N&nke9BsFl4}42~%~9=B^1$;i~DL zLCZ9WU--bP*R`~Zxtro_tnnhUF#$HV#5I3f>F3K&kty=F{8l>>BMu_3Er2193XRJu z2)5iv2UcJ!vZ*Md&A2^}_c2qlIT7~kbFACb4ZXYqDF7_Ncg3AQq-5 zWP1)%M9i}@Ku&S?8cfT2cSj-sL4RakR3dHwohPSTw#LNv`Fo+CRYCY|OYZHn{P8l1 zH&taBtnGj}KHpJyF%SGJmE!1A!T?l8;C_ix(N6R^5H|wGS%zD~Mk4e@M)z2DcvvjJ zidutD_KNO8%8TrN%@?~BQIwP~B2+8s!X-7FwPtAOR%C(J7RDN8I3FvUxrC1|^8Fz# zGAU)8L=M^t5h=U0H^%n++om9?p$ktFo^&V6{#EuS)OnGSX3pE&FckF7l~D5GM;4lM zi(>ppjNhi?RGb8;38^`$lF>`uD@Cx0Vst${h~Z2tnU?o)N_L7XP(Z{#=0W%esFrr8 z#drP5H6KWz^rHej$rd=Y<*HLW@n`yent?HGE6y7q=|z$Wo29uwh|nOdeun?9HVq5g zs`J5PK#%%&6ap*_>t}3H==a+pOIN=YY*i?WtnSfwd56r`gpKJKIQ9uJ}uHH*s*!_=99tqJ*T1f5F6Ch!ZW z1xUoi+Tpkx)l^+Yq&4pC{JSxv*I*#fmGKsBG~-#=0?y3_Jbr-H?UW4bW!4=lB>ig; zomvCGm&_)ARzoYPEWUON^UtA9rWmEZxnn=GuMua_NQiWx<3Sv8jVq3N3DW0`-t*d^%UF#NOytae+~&Ff02;i1aA)nt_uL3MZ@Q>k1z=`Zoah8O~CjOU~S@w1Bju_$lf@yoYuXVMa@Fdr#>6VkB) z@bYj!&}b^$w*8b)kyaTLG*iaLTtp5mMJ1m^##aW@t68>DGrNC;rAA1*q(*Xe zO>M^Jb?!ZfdW*?P#9=t4G>48vt0!_YRle7CNuZ1vx(7qQhh4U;j3k+vrKg>bu z2=tOpY*P>119yBQ zy(0#AY#ijIcs(L@(uR09J^H_*qc!O6`w#5jv9vFhD|F7`4*f7ig{N4&bvHzZop2WJ z0X5$y2$$+E2aTe_@;02buZY0L>nB=4Hj|Ww85_sf5nJLT*2hXbBcZ*uB)q+YR3!Xf zu39kQF2V6baGq;4*_G$5@PW!3)0a(PgzaQJtUX>_aYM=|z56Y!t>i}zFA2IfaR3toPjI2Dyg zDae{am~RM&Xj(nQcIQ(mAf}SVgSMf@x0x}Hp3QL*jEtv^m^_KA@;5vr(IrvGQI41) z%HaKXNv3#BTJMzM=3#pkyteiGw`>u-fIJqyR4!phw1J8n@gRc z0ib*~H%WlMF!m}U+J`l|$XzW?hzajVY^ayEr8dN!4mS6wZwjhJH`0vBy_NJGwHqv3h51U)B&5mX@|fL8ZGK4o})rVf(1zHJn}1uA^dZi5bHJ-07r-lr;|q?e`HWHCQrVdsv&{wgR$Z zlk+^w^YpCkTh8rS2ZU+`=T}%g-;2oIJXzm>>Uzf6HrUoJS6yYN+qP}{oIB@x^Je1B#2DDerVZ!&S;+AI3VwRB=hd3ia5n=XBJ0Il$(gQO9A`C9lvgL8p5d#-nhgVKI0C)?y|P zqBH%_#;3#n@1D;P%IYuy@EGpiT}A%s!aoJ%QllUP7L=KRF(@dkPM_{&YxDCyJ*IEQ zvlTnIFsGms5j$%HkUCJwTlzB+jyH(w0#l4cA>()(tv|tGL2VOdmSF2F`Q4KzTN7R+ zrv|#qH@i?NV<1w*fx&ku)^YBx2;fmc^e3=T7xd}1!0m-g*vRR?+qVxTwv>!OT~4Lw z^2iq8(_4p(SzU{4# zdauqGGxCHxsERF+ife-^L%N|DVpiglXm#0I#GF^+Y{9;r5dof4u}^H?h21u$p)x;j zu@8c%F6tdR5XnCFbS`jTIVdbaSM24!abe|B#F452O)m@_osM9;y+aBt1`Cm-vD&b? zaEWsUvrCiOAIk3-np!-RpH-)A9FQFpj1@{=gaangfMI-X`sxFQ z1FrTldfSin!V(iLpO+c&5%;^G30M0a3PYNDG!?;>Ymkb%6!%z4v@Nd35UyOrRu$9; zCGCKuL-*9mw8shwY?1Ov(F>4?#8WI9xOtqk{O260CW%hJwURdq`a<;ZiQ-Oc=LOOH zh#I_nQ9p~>JP9cH-!u!P{yW`6RO6(?gaMmtgjY;18J7%A4X_S%J2737rlFn~z| z2o}z}YPtj$x2l6g9!}zEPIkSGGWg!%QB{;s%p27k$k09#ZErmM{Pa?hb5 zYNRNV3zfd$Yup)2U|lw)rRRd>&07x~yO>!`Nu9eUcoG+7-5rHLC?|izK|m{Hi|SBl zE~UML1)W(ro};*#YpK`ujg^bMzv8J7_!Vksz-%NtOQ_fT*Q(ck) zw+e#m$9Z8ErfrP$o~gx4!Q^`mudqAVR0(}x=-JjQ-Lx(f!8`9A!JKx*k{O7l-5_Lb zn&haNOnoMv?D-abE>0!~S+9#fhj^aTfB(Glf}nnnL=xi9;40a}UkdV;3EAf4AlvV5 zIT0T`HMwkYemq*!oGb)%z^%#+)nDw-m^_R;J39#sWIkMLgW#aKUfkfNNM2NejV?@G{DW`Sq1Xx= zjT{P{xKMpwblUm8=ZDN=s(5w`KG)Ss3*obR0Tmd-10h+&SPq4l7`_$;erz5@L}}PW zF=q-z`(R;n8jgJd0iRZu-4mB)?PRjH!225WYtJLDi5$(h0O3gA6*_{skN!pRn3ilF zuqS86S8?{(kXnCi3)$~<3IuZq7Ivs-WDI@%YTQBwWzCLZRA>$F)y-LNyRI?J_3!g7 z;1Mp*Y0lZMS+bts@%$+eKmWQ;1F(&$3?*#bCX{O$-F-w|<5;#D!w|86meEMQ)L}3t zO88I&NrFi|-%J~lqb_X@BABwhjd#L@s$-IOn4UcM-~%O_p((h!wWuEh5QLSczB$!rcE~9Y|7dRJ7HEDi<1@%*q>1wnm?2--xItrSp+KOm#qNmBgqx|Bq$N*WT!fyi>`qxF3WCl zyHjVeD`uoO(GH#y>D)m}$zqpdAL6JE$@1&h=CezBn*-d=6zY!a^F#4XZB-(*-Jo3;9#v#uK+3@=mF99SUJCg2?N&JL14*M4swxBo8vm_z+u{d_22y^k6!d#-3`+d7_U zVc}O&9?8FQv_g@Nwd~HTb7Qp;QT1L>(X@9xkydH%KUNTSJuW$lM`jamyR>e-W0&7) zoHBmqnyb0j?LCnudA^)P4KhHLrHrmXHK8YP=Um0A& z@aWzaKD)Tqhd53hM^d$e``6!V-5wv8UN22-pW_;YE*sq-Cv%7%f2yp`aAcT4ypcCc zs{s%iQ3V56gaNrI;gBmqG&PRI0;gE@S89~id&-)%E&l8#E_g>}IBIG%8_qW^u&SOq zAAkS2?~uH98Kx$G$@_7)*6luxcIP+l;=%de+_;RDQX3z0aYv3&@BZPl^iH@ef0S<3 z)OM(by4IXZv*S7{{2ak}p$_$aRO=_&Jq}IfdGHiLg0XbE-E0<9!F@N)ML97=<9>*E z?H(kmea=gfG85l!JC?LJZx!n)RH}{;$otfJ97FO@E1Ii1DcU`X|IH)uaUjcfKMGLE zqOP@{B$?HZuRmfLHz>^B#ZCPxmOKotK~kc&yK*iRx_LgcyNN4h`I*mt=5Ri1BVsyA z6-VIE-sWyFs;9IAK|!#A)o}7(uW=uqxX0}`tJ=!B3XkqH9>`5oR#$~2HsIJ>8EZ~A{~wA2U@S{dyqVy z+s^EPXTNhrMC$Zx=BB#i`Bm$UpLwS7)g~x5y)wW<;Q+{=0q(Jqp2Q7r<+R+6LYBO$ zSa#2EJD28q7g`r(hUNMi{@l1b7(t%)#{O9l8B)Ze_)X2Ui9S%PeC#xh53r6a(IZb}oQu{1??NaZ{p=OsSZ4Rl{Rw+LDkzq_)ib(0 zfl0DmYm|++Yk4d9*+>~n)Xn}Srcm!hYflpF= zAyWx-E?W&_(XgxnaH$Yn@+F;cJD?gl$yE8XguHz7?g$7OqUd*F@i064qNg&lS;LAL z@Dw>$@|8kyh>3%qoRRx@6K2I%^I4md=r3+W3;V-z{h2im4|)ChMoJS6a{|&hDcK!v zT|6XVvERo<%e1K6eCuRm2iZ`~HgVwfq(5liYQ1p4DSBWzOZsQGsJMCZJ3>Y?>rv6_ zymScM0z~K|;x~ZV<}p?m>~%$ZT_6Wc>0>P;Qc^!!>sVCi9Z#=;5uomK`!)T(k2Iet zr>E8l8d|hvucoLSZ@2z(suy#Ic#55hbYV@)>Oae7GSQL^Hj$8=JXWzO{joAgSeqK< zLY7#CE4QvLHXmg;NP)x-i0s3<$3Jc=HNn%M9tBJ#Wv66sjCp@&f;;W0O9Uft)Jx!}l^`6F)N}z{g%`xjlx@4>rE1CE2u8 z*~6UNCahVVnGA?UgQQGy4LhB$Bi#ge6*KP|RsN%Ak{E4} z*2~xSk}#mBDA6h_#}$8GKQw*_=A5CgjypwTe$LF%uQF74NS>wtj)B`gG1BEXdB}Yy zju%|GwwuE|Ek=;{kz+(O(eKwV^61n}9kYQ>dPbC;OF>w8&oe%oZk(4k8v*M3P3+Z~ z{4|Joiy$#mLqdAo!?Cjk0KQ-@aK#WnXJlpt5f4i54F|d)2FjE)4@|655pqOL!K~@@ zz?ibud5J7<9@y^K{V3jvvl9T;eKr18p(5^}y~l6p$u(xL9Tsi-Nd~s9I#jI4md9FO zU!oIkG~juj8iNT+_Fc5lUFpZJyAL z2#{#wE{4N_%xRAx77{!t-iQJ@JT@{?_RqU|D5p5=%w}MlJNgm7tJF*#?QHlEsK!yl zE_GQ`2hm-retiVodEsxP_(#7HrQ4dS_V;i&RJDK0Y3FFFw z$ySOu#m0ZeqUVdVlo&JJEoU}~>dsj<;5u?C0kx)E8mh&nt*a)-xt;M{Q{YqL&lNhu z%1`Z76iRf9-KvlPzG{BG<&TwG@wV0hn5dTLZvZL1JSq-4trARb9p>EjSLJ8MtzNuC zve;#|Czyd%%m4^Dwww;YV5Kux!QmrCJG)iDuF%J|v9t0oP(2|~Js%thChjgs^i60; zfzXCvz4%IZpkLH9CaULu($D;$ekN=GtKrkVJ1vqY_XcFA7&KyWUpg%DM(RS+bnAUd#%)d}Wx}sdtFsx+J@p}Xx4X|sIi5wV zo7egU(2NBzsuJOCoS$B`|EJSzDynK5JDy#SfW0*crwfq^-4A~#E8Cwne z(#s$0#<0qM9+?N_vAw$w3y(s1@#01F-N`fHmT)4t(lY>Rq)3RLG4h%O>j$8_Z}#Gd zn?dHW(knoY(L38u_Ql!3_R}Fekt9_1DCxkx-Y|I}KS}~p(5dqF74$o)tocxE?FNKb zY3UQK%PumZt0vy`uHKRGIjJ-f4AF^5)bF@+@W_zDjjZst=jR0jNod#Yn{#IkhFb&> zaibK<`A!CUZDsP>^WS?K>x3{}>E@v@l<(5pz&T=gGL+qyO9V0GHKd{}`%_x~ft~n5_R0KZw7t_lm4(_7m; zDk0Y9hIBC25L9iJC|McpQ+bvs)wWwuU*7HEDC;j1)UT7tttCY)*(59_vJFKp38+gt zugG>0)`P>gm&4W8m^YnP-jjnF?@ONE=f!v^tACR_2Z5Jbxf#n!i@&`$wtG?q5xHc$ z@AgV;cg${=#uc`E{*|_SKGuIye_tJ4Is;1EQ**xOV6g3%VYsIs&D=Vo%lXP|_dv~l zC7?EbPrX{?{DHmRvE73&dcZ*eLuv#y5}cacEx>w{uJfL^>J0c~Tx{F9wp)Vv`mYza z8_=4LfI+vijsPIvrME8}l?*sBAKbp*rOr92GS_XvdP~9TIgh(_9GryZxQwksKt7G` z)hobYKk4#qL3=x@?L3a{^$K9}out}w9HTiidex1^{@K&rGh=DKa(%i1`Qc$} zM|(RTU(Kc4hRUK{G;}YAw{H-}4O!#E$ytWlBARr<`Kj;j3mqFVEnF{`0L0O4LUXU? zdE0Nj1o361sOK8&M03wDDCOz<1dp(hUU#9~x6e78{{1ow>b(3b_kJ_!t;)hB!j!l# z?+QDNn?^;?$tWzx7d8Y3hIzKF(%R}E;2bNdha6$H5ZAKS$-FYQRsHKP5N$0n3u`6r z0%#Y5>7IGV>QQCJMyCxkRJ5FS*cXau5hV0Vb;Z#1ujBuVdowJN~^C3FWtQ_-1WN|FnQan z4dh^r(~vx0sV@`ac3 z2d!*lNCZpUp+id(EtCmRCm+{K6SZVPI^p13!2m~z?WmW_s>6i9nM0Tc1g9D;$=!qV zZjWQ>EToyCP*MNVQm^>hJ@qgPa}M)U)n5GxXJ&jrvr2^~;W>~>2eg(2W1UCAi3?C% zt+@u?cEWXVAQB#mWrgk917T^Nc^M#)9h=b!xdMzR_ zVVcyGZSlrm9tlJgh6+kW;P(a^*c}llnA@ju)jI8C)T((DRXCRCzHe4RqFHk2&qdxH;`r?qDnccR2y z-LH9IISoA`EtRt2hWsMtr3(j4FB8?p${k`n39mMafIttB+mmbQ@555K7FdCtA`sJs zpRd3tbCk|hs{KZ%lYlSRKk;d1EUf+4Kv`k!7e@fRE^o0u`B|gj6Zw|V#xf#Mz^JUP zBhzqtz=sNJ>O`7!FX+;~6ff+ZNiBT}!Hn9*g=el~)Ua%~b}Cv)o1f#&9`2dYy!uRb zIbs8EsrH0tU+v9=82XPZeV4ixCnO8L((3X&d2tzKv}#^1Dr1E00YlzG z$yEl-yN+_nN&VJ#w^B@8rjDOAI)?PrVD%W@Ovr+n;G*vhh)%73iukULu)*;Oi~Nuw zf7h!D-Q>E0i-kkE2$082by)Ffc51OVIwX!{bbu~_`ut$xp~vMK@P{d93{2n;S3cV@q#Y!5y9m*)RvbCk-K!z;6;?z@YrgmajYb$jSo{j|d=P*R!--APN>mn?4~N?<_k5x`H^W4n}itmW6{T{wPQVrsRqzfvFMB7GX&* z=D&^GeO3@fJa<0W{Saq7%em-f6L!;gG zyM;xS{5mE1n}HEm&gs%n$CmMh1L+;KO(T4PjQy{SSO=oUr9 zT(HSOD{(xE^eKhvk;Lgv+8T?)zH;XTRv*y zrSc`=?)qUYLNWOtZEX5%AlBLj%}7$B;K73N?Ut~SjB%u115#ZF?GY~-77;t(XTw$6Lq2L>J>NC z3pM>+G-|~vsnLw8%%TEteIXn~?!BnO|6wv^#a%5b?R1Dmlf3`Q()|314oKb|O$F4+ zgF7Z+k`2h=ht`5P(i%e_rtOH8XDw49CC{iuj=rDa#14^>EW)OgzNg21u_@j;{OS>fIO{135qS2SANR1JmnuL&vY2&!Z~Ho)?okUVD`zjJd5I zM0a+Nt{$}Pe33oMv0yu-Y?9tJaJr;lpi8&IQKcGonA>;I3caS{`G~I`RHPILovt2i z$ehUnI^f| z(}z+h;=)EV9%qFo&!E1L<3^kL%bSVB<^MBd*61biz_nh`-ErK6Q2zsbp?Yg7syA71 zU`4jCJy0DI{3QE1sAM!gxg2jw*ur{kX+2 zYI6<<_yxVQIpS-_*^S_@y;+Y|%I)C8c7oK}lp9w7Zcg&8t92Vu0cSW(b1|@wc28!| zxG(W;_Myt`xEmOrKi^%Do2a)Q$=3tZTLFY!<~D5XZ&IZWVDU)F8SGTt(Bwz|ZX?|r zM+Nm8<7Plr=v^Yjt&YSUPk98Mocrtw;X}uKl#l6vSJa}};_Ty_s+yh4v#Q#?oU$5U z->hdP6~>RM+DV^SMP-SOk-nX83Qv;SpKsK!Dq^~^;r?YOAkAYllQX#^GZMa+=64OK z11-W!@kPKN(=X~!oSflV#NbC|Usc_;vDpWF!OLuqu`GGYFe~^(TOH~!PfR@eSLE3s`ujbyGqi+cVf#NU6v)CzPyhd|6R0y8b2L%C zwW_wX!H=q_c<~GZ3cWSl?&iR^_ov063}y}MUr%KvF{5~huFf{o3kOeShIw()1Q?UJ zXvu{Z?!)&k%W`W1UN5-v_K0V|#?AfZ$0f*oPY&Hxr_Y%}%On&h^kZ-_a2YQ46FJu0 zh3fL>T(@;kbPp>srehUTffLmgztdxT15<`wc9)&bN}ia8$Z1XgX0^~s`-0XezFNzz zww8@RN%ncL)2S66#M9ZXKOu80B4B&N(SWD=U+wh@STs;^-LbCPFF|u#aT|qqlMM`7 z?GA04^%+O&s15@y!`SBYE$|2eA~YccTj)q9)y0DR*zR=580tt8CzOQ zy8l_%_V&bMO~(5D1b;nW7feIB%=eQw?!!);+1g_8Gw6y$u(fh_=}}7kB_MC?vafpp z6}%}J5y|tKB&QtljU%adQ6j*A)K+E_t7mS?ML!0i?iS`W@KfzwVa za*~%?HfgjnK$~4=NBtaugaoRAEr-c z&R3yyEOg~=_qoMG;em>ujgv0;T&Q%cJm*`Xne`YU)j6|EK+vCxPvE%)3Jgp+97c}} zPsa!LXF#emX5mvzd}cma0vz+O2nQ84CO7~^H1koiZ)7$Vu)EuJnd`4CpJ^GMgZ7`% z&T`-nS0$$(I|rr7Zdo@bo-MV=`p#g^AYmNiX**<;0~lahDD9{aj;h|fxbZd?84 zr{PUq8%`#5q;!(-C|{qFbTa4=Py7`V%`6@I6)<`s6huwEkmX=zoPlILX7UgxQJWIg z3xWGg8su((3&Op@3fXzir|KSxm+G1|`VseCR}MqYAkmdc_j7_Pjjo4e&Iq2+voo3j zT2)ZZuJXfTl_qZu+@FqkkA<0zUaWM-%FNFAaXeS?&zV(_egXcvEMV(YhQMKpH5wxC z1xyBN=9&4E^NODrTer^}&MBoMgTQ4eg;y{If}6wz)ewvG*NpFfcr||i#0L-2EiS6{ zvU7`O0nqo(8x*S^tZ1?F*l8uw1WO47i|ZN+=^{mo?_XwnU^aRyV$|=xs>WBO-fIKy ze4hFDMa>SuDaM9fh8o>pxO*o||K!Ji?F3Ao6%D_Is&fd)Sa8ctWx@Xna3&Ux9Hj*E)Ica5Am zWCZ(DXSLaS(qWWFb!9#QPW4tmMMLW&(N<=0j0T_9wpmZqvUR4#1Q9b%(F5odxNOsq z7zW^^{c0ac8WxM^~0d%Zuqo@ab%b7=XK z1%>{oM&CMr;H+fgcg+U=dyP%~_$Za?`MFkvc;lPRdwSMOt??}hsrWqPEXx}Be$#%b z{5<@*eHWB@-ote9{dcIH$`*9niuutV;j_72@#*tv3bT?q28Hv)mO*I40=NJ190&IZ zi%gZXyZ zffR&2{dFzb7RPU*ZvsNIgCr;?gO5~xN4`TVOcv#UhTQ25RRPgBj2l1k2VLXRIY2Tt zpi&eVs24X11_eRuj+(+3bL{$jgXNlr&F#{@)%)6}YRLOy>ozAot@It+_WL`d2lCFb zdCU0VHAgl$s6&y?AupeMaOMzP|&ycFuOsuZf;HgR7F+_S(4Pz5@1;IyMYb(pGmC0ZE;5Fa!;1U!&fu%G-j4L=S< z^yApoym1Pzd|WKFaW=_+cmciNnIRulgdt(^&xUjUwEnb!Jh~U0sq+>1*`j8Pi<>A$ ziRJzC^81KBbv(iF!=l3B8tZJia<5yeV*Sg{!>x2BfV*ekB!22lHZEJbi7GDaD=$|@ zhY06=fdessruO_dw`5!1%^ZrLCB4hmTOaa=+5zi%U5$h>>LX9`>odBkQhru(%w7(h{_ ziP#9Fwm5!EAfhuMd;%J9(cHrxU=-e}FJ82;xyQaCPO`lTph*aivm_WWZ;7t|;*md1*3^iqjS`gQv6kVt+5UzkoEzMX2rp!vQgHq7i zTWRV&Y>md#YKKbVVL_dl#Agj#w1SlkSg2S*(@y}kFh2Q-QGhYAd~Et0!XtCupFET!t(+f z69;)XNI=WZA)s;A;7-HXIVu{+nhqJcig^lZaN< zM?rf+X{bkXJKD_smc8(a15xn>jR(d+ z@W?cYSBD%Ep`QrTk)jTc&;k@fJ5n9+ka)JdCFCXgUrX*v~U$a)xDBX0E!R{zl`u<1t}@ z`Frb6uUa1Vg``Xmha6ZCKuE(Y-aNR>E9>FJxD<~f8VrFR2Fe;Mf&YtvK*Kah&?+lB zsS#RNn+tcQmke&MBfm>$CwWjWtPsi7hG<;_^$Xv`2Yxu<|G?_9cZ3qJ*@4Z1G(BS{ z$s3G@^F*`~!M~Y5;2|=V#N{*PfK{16e{S$@VrrsL!_{x#cKldQSZ-qbYinF5?$7{V zpoC=_t{^B&%svlTUv1gbVo))D#I-DMj{iYEi%^6iEGA8`V4^m;(mEGh_J}*}aO#_x zc2U9XPKyX_YE&K`LTTL&=clJGHZ{$_x=+qF2tc|84Z*zaJ#p{*BTDYfEl=SIk7=$F z1vLBp4_;oJ*wVmAlB6RBlqwjR3`;C;P|})5%R^c%PnYsanLdyzN-~J%9ik8oC*#pG zELD|PKgp4s!+^)Tcs@TmE(J$Z(_<)u*3gA?*x^wK-60$p$>vxiD929N7;y{dAF@*& zkSk-PRRd+H56gR*GB z;EQ-;N$uN+^|@iiZ4glK*jP94_K<)>;5aCOqcY&z0%Ny0xtbXTf1gOf21@=+thL63 zbhebXoKzGR>gLKLR8re;=a6}*7G0>dLN>7Q(&>{|^r6iHQ{9kSt>qmD zD7GnJGdoMr0UP5K_$6HpgtW%f0dR$nN)#IiZwl$*7j7~zgt(BAmziID9Oz*~E(ACh zm!b6>NR?nyJSa3KBTGz0pG@A+Y%nq#O2WQ3cN%mhFlZuJJpidCH?$W$XySUe9IauY zC4}BfMOp99wMsBlZ+AtauF8GSOsm>6*K37q)J@r@m^?erN`kl0ep7%7flsdl{G{C1 zj#>20oq2yp7uI(BqMs$G9TgT5>doa%JgNbnwx&W+j@JwV=(K49H!bge`dF*OSEN=;=uRPW?4Zluh z{VxL;m;j$gcNBk@bpzjWeN6@!uTUY8tFV44q2BZow&7&Gp+h10wkq|_`2!bsM8vAR zzPmx6Oa1a>Z?+nIrYMD+rd)_^?i0d#BBXsu6QrXe$@2Z3d(Z<{P{Ia3;z6o`kOQxy#bB6G@le|X zF*!I?FZ=Tk?c4sd^LnpbA{?I;p19|SzFBCs2EBYCYL8(l3|GR9@w$w9IY<8-CiAe6 zu`;1_4Am;r+SzLNaRe=nvZ0h;5Klghr+a%nv z2v8BIKy3Q4KOD#j{-ybnIX=WB1902lxU@G|(QWFrWJXCw9)faoaHj z`VL!MxEA$}Sp%a+hYK}!pj+JQT9_2S)p;FO#~sQ-v;$qspLsD*XfcA7QU`+p&#yf{ zv|~x-*{g-PXSi`-cxxrr;DpN;)qravPygaUXxHYl365+yK?gco*sigGk`~wpI%m~4 zJVuQ|VeJm%CkCHGnd=M$uXh%bt^$;K`T~NqF5k^nGoj2I*@Ab*lJV02<1szK7J`$- zzX#CKFgWa|;;ugrD)JE0A56BjUsw1 zeFTH|ysjRPW8`6E?484?YUMFO*LDPcgSE#%-3Cc76-nb8DV85g(ta<96%mcKYs{7E z-0H0@;fB$_R+xYt4(oHhVx!(3Haw``{(0WXg^~*OViz7zbQoRo8%)h)@KJ(1xvicX z5fh}#fuIq<^Va-iFWU5^xgjndU+i_D>h8-$F;+fW#?61JH23#0FBsyKC)`7O3IB*t z)?;rr+x>c)b;!?(6kLY{r#VmW2!DP5O>cZUwQ~Nqgqq~p;9utPyBYNBBa^|hnh2N% zvhMB|({Pl7+8qQ#VeAN*r@0*#jR@d!VMWafpY*Y;4+w&^`!B?5|-fpBpaXo+4RpHHG4kTGmXK0_PzDnmW%O#!B53`pOf~f zQ1f1k)1UzU3cvYNcg)l?gI4c$z1;}!W-|!HjQwks20agggT#tW|2a}xx>2~HwLWX2 z1O&4>`tfKT@wR57iSKJ)S754M;Q`b5yK*SnqkQhLDW*b#gyZ4MRKkV>1ounCXs8DM z6nyp^M)1Rj=>lu9mmAva!eBt5XINGxbL%2g9yz6Kzfa-6ZNrrd3qz_SdXt=gRTgakpMm zr~}N#%GqmWM5bZfc76HHi68e)-_X5hkW^Br1vFu$(P6tDYbY?H29sPolL(kRX$G=t zyOP!k*}GDj0ANJbUYQR^cP1mSq58DTK$ z_3xa*h&HELKtolCu{@>dsZ4m=xT)n)A%e)+TDj6??-4(!53eQ7dj8bT!FaKl=K8S9^t>c1S!_Jn=|6iznl?Dc$zx%b=!jdYmu) z#Gm<>(N7foSN*`l6gV@$%?elecO=r;?CUjEZAfBymp2fXLyi4|im9kug%VW6H1L7K z$|DxfT5bL1>JAoxW;SiX>4FYITG({7+p?T#&Lq1bTv);8Z0<(#c29J#fBk3#zOfp<@$?8WMCxBoft=&y(2KYRrs>(2l#^ zzmy95LgF@kNFUb9RkiUapcJg@DBx)IscoDPz{$StbsPn*NB1R{jCRn(PRRZwA;T%z z-Th3(0b`$=Ep9$?rN^Kwd>ZotORi)mYKZ#f-TwQHPI8%5{-drbQuYC;ZL!UBxZLL_guvF27DI!-+smaHW~3*82*RJgwMkGKTKwP7N-AUvf#5Y z{|}QDpXEQ2UW)%gH-ESP21c3xGvq%A>3=RMWM}JaV(aXLuZ7S2Ut{r^|0A%Xh|l~V z`1H5=kFUQC$A2{}|99ViL92@RI=|B$?d%2Z+<#}&)Bbw>`(bBhpyl{QRDV6=V4-FD zJ!1IJKp7Kb3xofok@5zPzYgL5ca(}IPIfMiMkY@9EdS*RB%Pw2^RL(oK0PFzvWLA1 zKArsUn*ERHSpTzl|4(%PTYVS?X14#oKFp*oF<0ESuAYJw5OSLI$t4shx;|=-#v2f3 z9hm62e|P$>TXNDkJA%X5lw$JI#imOD=mjoGqBQRTPX8Mx%>BbIMbAi?AMn3c0}S0y z=XaKD-|p_O-BjC8A+qXJlc+`S55IqxBrdg5A8$^ndWYWc$+C8IgY;c9?+;#rUr}%D zG_|RIlM8zG9?^mS9*_NczFxN(q*L8qQc(}fr6fk`j#keMu=6mv# z@%Sm`OwoIC`TCT~puI=i{SWl*f#>k0Q|fW$lB-KQv=Ke6J9DacSKwG~k$REG+OG2| z??vn#t*2X?_4pI~;GEIzkaOU{E%@2OhWjM2+Gck_*GupN3khOK2JUhk~WO5Bsv4k*XK4r#W{J}b& zw>=z$-gfYH(s$D|^K;ex`|8H0w`R|bO=}(6ggjr`G=&1r1e9`*6YF+*6+#%k#40<^ ztqzMuJvYlo(>*=yz7UN)*pBY;?p^?5zcH}1dS9a(crO#x+}($a>G2rlP}G|a3K?=3 z+T@f_lN48$Z4eOqJ=u4J3P5h#{eh3tD%RRwCuCc%p%w^M)VDfv>*smi`y24tDh5|e z^si24Di3I^BX#`_RDQrd%Eli&;kww9#LO(xkRss}EIe)KbAE9cZwBF9p%l{!g~=>b z@sk>F#{k|9ROaOOiQixDwGTqo$y1yG6M2wN^)irfM2*`8-il426#(PttS5#ci;5$mW$1aDJTsSvv5=h=e9&=258qkB~x zJf@?&Y9etc5iX^CSLtZg}*BE?*gC6K={VdI@!_2 zrKy>6GenOzuaww1`%aKZVCH{Z$P?oMWUTDE%OV;+g+Oi8h z@sYhlk$HH^BsMeflD*d_Qk&LNNomvcQG*OwnGrTwFfn?Wz* zPdJM@)}i8S&7hsTYIOZ5;b)+6DTg&_f=0z!LZ9v;QjSt9=*vsCdO&R$x1~|mH#YO{ zSLN6E+t>m~GyxrE^puv?&FM?e*|{H-EPpF{M}_;90CvG4$gEYvAJawv3W5Szr%qM8 zOT=a=ue0kXee{;JAS1^nW2E~k=zH2%N%ibYJK#I6>c|UcvRT~q*E$;$O<=IKQ5KB* zNgoFllR6eL12^cYa)-{a?a-j|w`_SxnDNDCe5g$#5o5Nr;r?TU>>tW#F{_V1<^(n- zHGeWh!2t9qiI8(td4*44feQdWqp=<{CzfWg=&~bGOuvmhwC7FI_Zz$!`%TI~6u<&T{5wURZZr7?m;? z*&czznt4g*s&_(@0#{$4l4YRj{{iQRL!s>d!v0#Nuc1 z-f?qh&hdVM8gUq^Pa7jb$I#cj3NjCkgKd8p*&0sTQQrMyxLJt#^R;4`> znoa?RT#B7)St~V69)tCk^;`>30NN<@XaoL$lo(Bm^|V+WnhjA#L|yorbWzTnOQy09 z>mB>1nl@{wwBEc2;sOf$;CQ8>8ogJekf8(3pGu!iJ07DU(7q4uwy|QWF>{Os4Hc3b;tQ@(ds|Xu1*vo1X{8q%>HxfSH7!w z8~uoRRbpS8ChO|%Gz*O#G-FCxq$)onf1J639u9Z^9g}4LJd@=7yh^F{`F)0QvwyEj ztx9}(=LEYK)1sj{h4?@IYYRxAeK;}ndB;qIVmi6a&{oeXVH!ji1SHG+b~Ht&fliPg z_KB1MV{Rv^m{5#y&Klplmk$dWsly&$LP#6;hg9-RVIrbn!xf2dPDYcjOQV^Y&`h{u zBWUvNXh?x?obX9W$--GefRcOnwzNPvbCrsuwy)1`lA!^qH_T>jM!uVrrrD`cWNAk3 zlx%wF?oQF0`OQ|>B2abdQw(Bu|m zN$H|#Wu+!^X^mB9;j9f1NtYlL+dX~NhyoRL=3f4-c5Wfw2EIXzRy53~L`xeP)y_y@ zLePnZV&d^?Lf(ZHZ1nmllF`MRU`5|`Of7-2jIfgwNAzU@FCmjs1sIVh?wr^-0ru9! z`eqb3(@CuPo*jso6Wo%uq=7U%PCPP3VJ{XmE<3^6PDRFnmZAXcc0?R%!O}!SrZPY! zu0L0E)kH;R!WPapA;Cp}SD5Nc-bO{HkslVuhr%%qC9=oP z#CMjZjV8J3nJhGzg3V6=iJy>!5kAiuv*#@RL z)t021;8O~u7l$xA$mEN>>1YgUB`9-Qsf_S!CiMBR^Aj`y#!FPHLf_+WWl~hI%UKSi z8p!dMpYxL+7k6`jF(xOl{3pSJDVp#^%I0s>@=QBNd>YOVnT!MDo~Y&xTO9dLLy?u* zWz8@AMDVZ2)F4ddR}f%R+<+%uyXlAwdU6>2|bM`IWVj$z872>6e{k=hZ-1X+0rD1{+NJ%@^ER4{=lJN)?( z)nm>KUEtxrvi;tDrXq_QxaR0TZf(R`I4E5L3;0LH6D+9a8;=FR5C)!SuE9An3o)1i zWYa{Xg>FOYL9?Av9p*DL;;Ik?Vo6AHokv*0SIdP;XN|RuT3Vb26RoiU(_5%ED0vHj zoda+9Elh19LvHbL>15?AIyl6u5te~Rwg1YdMav1jQO`q-Vqb_2W`z_WpZw?+&#l9# z9010a%E{s~mBd@e8iF7pvP5xBCz@vmEk9z{wo&^N&LCTOeNKI4Ujd(Lt8urnnb|Am~aYA>_lBy(jA zJ+B%v2AqK9G4hTT1*1{}J=jw2RTgjm3xoi+R2x3U1f8oC?4RFo>Fc>@ek+R4Z=zt`b7hs&roUoWa5ZDCG}&g8~R0Y zyf`1hhbMe1(MT@kMs=Q>jzsfORx-BAycp07lc&%KNq|HYYDZAqp16sXzyygx_G!*_ zD!SleJ)#KUvB>ZRz45l`u^zc(%u$Us!HwG#F)z9OkO67bh%{z2fHIyxaQ^;^=>#;} zjS5*CRh8V`6*N;IQ&(fFV2I6gu`>T+{vM7%9^)$aZ#L03_GKtR{aH2qAK*WUV2nh& z>r%J=1TqRIlmt{Y5sFxgmjOu;1{S1$#nwKx81Gxrp(>>$xBH>*k=(Ps3xz5STRd)! zxehp&tANI>og1T6efvvELVQo&!h>-``Uw~H?@UD*g_$t;=Q>B5Zrs*mqavj!T@>dp7DcGlWL}y zUUA8u%3gArY;wfqq(PnX5mkeXVml6?0#1RIr<|0219+dHm`M&g;%{>s-a7R4sY+Q@rnBkItZ$R>RMo-=lCyaW~c?36CAAum7$yamAHsz-l?r zaaYB5l^e`pgoU=@S}|hB4uc;T7pFwx88k#dHHh#e8yM+Euf!O}fw7Us7)y^f$|^6I z76^eVAsj1Xi`d?Q6c*6_U=>xwfgm&M9J@sclibOY<2qTo{b14R{qGsP^SA{l*H!AX zY!uh3m79`j*P=BmZSM1Qjb_wh67kc(RmyQTYK)r8b&`mKLay_8^zZL((e}Mb%a>dH zDy7PI)UH`e_OX!IrTE|5$C>&~3WF`miUREEdoac&tvM(K>MlJA8*n@gz2;aZ(Tpb6 zq=x9FRlqjSz0-!RlTU>>-~R=RKy<%PMH0PdS49$a=pU>iZR_%Psz`^_rf*e|1p6H- zlCwSk1Qm(d`hTK|G_P;X-=rc5Rk~e85^L{cR3t>dMn&p;y}cV$B-vU!Dw6EW+f^i| z5B)S1iKH1mRiuiFL>_#oibQ-bk5`eflc$Ol*U8&{EK)KzuS4(em()pxaG4)hxI#;+ zxD1W*8o{KKdWj?wfd=>Vh`l>&K)|guIhJo6Rjk6p7(M2GX}Ju42{RGm>$r*bFm|N& zDtFu^CRCD)C#5M>ZWVDEPpbM6MRis3^*04&W9$`)t+--gj}cC;wgz(qFKm^Yj|Spf zJ{d2%qeyCFc6{(%^55CUlo#Efs+}?dv2=bvl^MP_;`i}lq3n{USop1CA(i&HSU5-b z;8QI0&>t!m67)xjg-!sxTP!3p;5UhdDX#Xh^!L>NuGF;@DNY_eWJcCD$eYc`Cmy|J z(tG9NPciaP6vC~=T!oRor6iWCD`WCoO97fxKFAfX`2(wM!y))9iftdRB3T3!Q3(zf z+df)Fk{8=PRz>pfD7GzM+;~*O-q&3pa3^9bYk zwP>mY;>xQ_IzyZ^0*p{4pZ{<)Oe3PawaW*_B%4|{hYD1AN8ekFueHWFs_ zGV_}coVpyUPHd4?bF?oaCee@PGZC~MSyn0CN`va%G&QS9n1t|xk~WA_pSR~Nvj`&MEN za0vntbyI}4#Cfw$CPLHb+k)Vo%JjD`L0~>8ELc*Y$=bSnyiI-i&MP;0U#z<=zQ|1o)EmK9S;mNo7*$*gDP0%E$!vu%51F>IC9{?3Jfzyv zVAOhis?uOc=`Bxhb>y4{SwkBDdxFdacr4ErDFLzA(1Kn7q9T#Ex-<}++UE0C9K-eW zARu-PaT9sa+oinfcY*-QW{{9Y-Wz7S@Wj$Xpp%X!JaFc;K6-sypbn59E7>yl`NH(cN1IA*98cx1I8{q-%zk+8wP`}&p`?V|^-Z`lT) zeN=3?;rf1cEgg~W{`~7(m@l4Q--53EufD!z-DU@_Z*g{kV2lb{O0`c61 zKkNFIo~UC=`x(niSv}zxEmqF$$pn8Ky}m^##7&ewm%-di>2Hg>b1nrFcgOPg7D8)( zZ;cPw@uaSG_~J5%iY&Wuyuf4egsLlvc6;D>jgQ3k>p-F=?vA@lcDa5)jSsw1LsU3uo%%V}pUcv`8-LRGDtJzryG_A!%G~`5USgsE(fhtt z!DGP-cPem7GF6DGalVM5cKV5cZ~ZzW+B`U2=*u@#ilU}i&$cIW7F7mD$$8r2g(A;qbxR!m4*o#-_PKM}Ez3mNKSCISl`L zGjdNPi7!pxR?45~j$dj|WN+$?4DS-UgO8Nh3nC{au2d_y~S@_rXqWUhU>Y!h+`3aCtVZT9;WcXaJ~6L zUM{3zz7}RJ9=d1shV>W24p(pZWSPLJ7|h9loo2 zL&Vn4>J6-V!!&A05tC0EpVb?zL?52j8|?Y~`5rQIW57+-8wx1v`NOL>c)uC< zka0P_$WniK^@ih8Mqg?~nRr{dzRASf!o5xySlgw|{#St?6K|V|arm3!ZAs|jpB!)7 z<4p`dP{I^;@bl_}JyODCL0HEn%-#qHBv|5?RN zb^Uc!-0tD}>#HBh^?QjJeHhm-`WBjFy|qP|;3QLlnQGc5xKPb<7Ym-0X4r@Tu`vZ> zpmL>40*0{*CeiXh?@$8q!62DfX|gs|NCtqLL--&Rf8g5@mZ&Up4J>qo+O{iNd-|m_ zvimZ8N#15T;woN#jQ&xEiA9s1S$XB&5w#I~p7uHX+CVAYM?X4b91&pL-c%szT~$92TrUsV0-&cG{L{fY-(F{S*@ z>Q_H2@akFp>hG$4bzkJwpHcm)5_$Eke)WyjukMMwdRD&*50AXMv-(v(fam||g*6ZU z!@RJ*hR4$jYlr%Ky|AR_#_#mPj*$9MA~f$;LE6elW?Y`@C~{<(f-*7{q-lN+mEdq5 zpOyUeo9CB6(&-I47Zkmn1O@dJT`>Yuhe|S{XrRG{fhM-jB(=YlepUv9mDmY1CDyix zID?%8gmPqUEgGN%MIBP!5psnAap!P1Gx0j1`cO)kL_GS1Z!MMN>^ObS0_r8FVS_z9#5$8b4Mvo1n`{@>*5U<&?|PsG!Tsdx||4gD&a& z&p*(pILUQ4e{7;fZv?tKrF|>!g=Zx`^Vs4B|JNp3EKaoE7ynOxL?ym{o{PWX-g}kM z;$N;|7ow1X$&esNBU;P#^XTxEXEV6q@eLx8$W8FsP1mlx9l%3H`DDwRbZFw2^txP$ zeD}@q9jl=9d*VA>9;u?w;aPxO&+?BiK%U&-e`W!4iTU{I0^|Ix7^63W>ovZ^ z3C{2!n#;(#KPtZC$g<=(y^hm*y(orWgnlkrcVQVmHtkiF!#@m{73wZ?K3z4&>$0xP zRm0&$cPtEXuqaFGSJ&2Ykssk%z47#^5RZRI^~Psyo%OG?dF)xeQ6K7OZJiDJ!)ohT zG(5a|V~%<#r(e(7I%wDV0jBlb@k?%U$1l0b9lzuzcl?qY{{HjNGp*{`f9zl+%}=an@I#F2|A2Z1k2kL8Gzb;D@0y!EMbCYBFvql!{;I?( z7gD3Gl&JD`&K^X5X-V*?q1j}Yy4!1*b(s#D&h$*+_FXzxmyGNaLM^8G7i zEE*2oGIP=aIL#|%ETruFJ6FnBNbOND+XY`RAdu^00*Tqt#`Os1ZCMF#9gjSDGLl3| zZp-S)0;=8{DFcDm7l__ufsJP~YeoY(7Ig<|^dZfHZ1-DvRUfeu*)!if#!ver#n1T6 zH~%7ko(4DD&x`JwNRr&`hs0I8^1=Xg`{8j~(Xrm8SQ2Cvw zf2V@#n9w&Ws3Z^aTNG5g-EUP;^HM~Pzg|JTGhp_qpgs$t$tO9z^?n8QhJe{`Qcx=a zv%gnCJsL23gMuo`=x)I5Z!d^;knj&5x@4E$V+Ym{%})}3FO+#_qfj8(Dy>|v0PbQZ zE4;ULWn4+f6xS_|%5u@NBhz-Vq9LSOFIM?|AG0%6kO*tOwT`A~yRG`(wjPGn47gHj z1P?lhl*vAU{~E)v=GcJbdkIRIIjO;W!W1zOXI%kb0-3f&y=g#N<#8y5wlBkdMbI5+ zjI3?ZwM2KXLu!qDmSPi9d!y`~V~}ZUqb`E4WD+nEgGQGLfvH0$ojzEoRGuBg3@QXA zp#j8lh3fF|ZNEn2W*{_K7L6Z*VZ3Cv_&dV|{FvK$4%T@eQOOcb+y$!wITok*yK zkTU$UMxCuGpgBtfmzhblg<6_>44gqD5Duzno-z$cT?C+ZPGe`0O?bGY`Rh-#5051e z=H603G=NbcTX2IDBzi2l*(5QIlN)G8+oj?8(T?ni&lCe7Dy- zXY!>ySBhaB@13Pzd5kzhG`UBa!EviVs$JOTE>A4%q*~mq-i?xW_buujGoH4hh(D#? zE#4CPd(=AuskUwPZn3r_qZ;0>-U)iUdPlNsni}7Zde_wWcGSBj^b^!Op&~?=dx(0s zr=pFq_8@OdvPq9Y-=f|TsHWZ>(fDfW-4TuN%hbDr1bdn!Tx8l3hdxQLeW*PN!*?D9 zGXt$W7e0H$$>n$?2`E)|%NJ;NRBBqcUwnaI=vRuuKxydIjCswmfc{`B+V4B%m471IhG+OzqvWBxqrB4>-SusU4;++EV$67Ot z_x&U0Hup(K<&__Al?W%B9~&qc2|!2OT2d2(+6ct(P#_noX0D|y=we9+kswX&)z2)}PjVu0v|^>9r+wNJ*%~=164L8zLBq$6OT{wFB59!1E}C=;?gS;dq> zR^?W6Mct=Dr)+MzvQ!eIByoXazqcuwixiUheO5sd^zpO`R;+^e1bqnl+k-wHY!&=j zK_5q95Lc;RLjU^+euP zkEZOgZ5B-Pf%L?%DUrcr)yrfjM;+yuNpn&mv+}DSX><2=ihz)Kq(IX6f-xSt`+QWR z!L3I%jN4t%6L_4NQkxnPAb~}Sn4B|aN%4sl1k-!*_^(f;Z91%GB-#tsQ(2$Rg>cs1 z0+NUuz3q9bZt#jxQFAZYhPMK0RUqahzW)vWg-QQebf+B$mO(ka!Lo6;Fb zb}aJ;_ez1BZO0yQnX2cH%3u`fcq%}F>{s=tF2h>oW5Wy5d$E$U7&eoY~$BK@iB1Xak*8v+YMFI|6 z9F9pQt#}hEFmj4SxUoJ(R(K7(Y;jKvZNz51r=wE+)=CLXU)GidZWeTjLc!>%VwgaZ zKe}FdQje3Q>ZTgmn}eMWYjqUyvTb#&)EtpmLwk2hXkAmHNQg`E<4Ant1-odmHY{N!9hD&uiWn5 zFzVap&gRqprL`)&DU_TBqeCndb<%vesa8`fPRUa}9VKw{o}Xq>4KpQTt1D03+TY*I}t1aNuoOWuu+7Zz14V2)?QewYTCwMo)K$51i6;S zeAsIVkBy+vl(?u;p^pW=+R@VS`!L!ve0GNw(p(E3K~5@ubrJegb}_@sLbJu^lrKh$ z-Li-0^`xeEP2nE89K4kcIdukyZuwvht{<9})nX+M2*Nz{$&$kmiJj;G?Ga)JnvLQDj(MT5^@2tLNx_#jB3Dw6Nq zF&V@AAgW%8lPZX6)ij`gonKj|c^=GP_;EI_iVMFV6sFceN&lmBBz4;H_dKkCTKFRJPNUj>t6_>Mr5n$l?>4S4z-m?I$=&q~OeT-)r;rZ*WUmtji ztJwbj{=PI$GPEmR?m)aqE1NXi!k0~?N(slA`)$%wpJ0A+DX@|HS?*-)hP26lDGx9Y zL%C}_4fvk1Okx_QE!gvl7ZE&-mmyp}eO})2WpgH^vD|xo!KZTFK$?2F+p)W7rt74n zsobh~!RNHO94@Eooz8Xd&(DQ|q#0=Sb&=LdPxC0Jq+5n<6Q_Cpa1*@G!?J9ZjndM6 zD00_+Q!Fn{OOk$5oL|THg}mS;9`k~C>4V;0=K0#yNA|)MFN+7)xL@#8w3xKO_omDK z+2-ehuQiW9hp&rz7~l5oa#@PYc;=6Bj%8hr;@i3$!zY>l8RoN(`2MnvpTW2Nv%vmu z;oCVqif`xC;_$tI7y5G$Pvtyb@Ip@#(1*(wet$fD5-;Pt3m*zyviL@qj^U%6uLaJL z5U(p<=*(yEjXoU17g-nJQ&+s~+aq|6LI=ttSG?ce-$&qU-+{06(BbQ#4PNX82k|2O zUh(yjD?VYrhwycuTydeFpTO5iH+W%A2k~X2+Zq?y>xy5c>#kdI7|)mBuwDo7!qgqU z@^^z5etpG-4-Ny)=K*}ge!m2VeRv3m^;P&P99;41jLdTrFHBV95)*ef4&zrij9=mF z$6WCu=cKXQge`-ojp-UZZ=1m3{QY%&9h}2qJ^>$OzjY!X*6||b8GM%U7`%+(@lgLg<*0q^PiTR7VfpTXI>^fBZ92Yf*K4ER)e|JUPu z{y{HLILQABUy$Ak-gSI_8aVCuVR+*Es!RO4xK<5wPKvxgpKvxgoO5XSq9M0Dv9L~i)o)n$@5jgC(LpYqfyKvag z2XMtlI1c*0de1=|^w7I-&~v{8FYEXfIPTkncsUmb@pA6I1P8it5HED;AYSO+K^*K7 zUw}`1|0BOJINetbobQuI;mXc-00%y<@Pzgmh0}A|rOJ4^O23c8`8lfKk=tpNT&Hku zA69as!QmYJ09@JI0ax~Uz?Gd};rx61O22iy=p$c(EB*zzqR(QVUl#gZN?-dTyy%;E z;Uk_?zz4dHO21Zk7Q2DLfzB%&==m4m3F$519o<*T?qP5~{#fZZBH!7^(awYZDYOeI ze8heg4*cj4UhG<5f)D7wIDjj<0eGr>Z>sd$AwN?1s*K%@1O4B}CnXmFuH+NICqDiL z4&z)&R2zqJ-h~5S09?@rz z9KMd{oAD9jJphMzp@aAq$EERH>9_a+592HSKZqB9rH-!<|E9qs_N(v`S7Y!kF77D4 zZkl7b_=|O%NfjS)Ume0>-V_ewKZL{hAB9UikHiTWyqEYig(r*)T1Blh#xoea=midk zeh)og!)g4|t+>RKfaur4OID7-C;Tpj!}t&3FwR5x7FT%;AB28lJX;md82=`5aaFvR z?=pB9zro8m@5E{R9>#rPTw)E!__0~yjjuTLtMC$ccL;|#w>xo&Z-lr_h~L9F&niCP zdL6>cJY)Q7pJki|FXQ|Xc#`uwfq$@yce3si_<5^%#C{LqMNT+~mpIsic!{(93Ovn1 z|0jrtsp6yTlM&*M8hGhFh4QNzU_eTi}IZ2MfQIugSe{BMXu`>;g9nm>)Xx3M`p~YkpD?4e`FGRHI0~e zkjws@lIUgE1h8$r#tHKmWL?Gtc@v|=?GLa|x?vK$ld^Z+AoH0A$alE#@hxAVpCKRQ z!q+xB+2eaOF8MfFHMK(C zFaCn=S`@tGm2|lze~Ag=IKbDOV@4v>inRt(4{Lb^K-$kk6-h2CXgRmc*zaK zyqE^QFY)xRmw*5JrQfiB`$&I2{TFr!HqbZ3 zl|buC9ELy$kdc6h@3k)e18xo}A;LQ7&lqU0{5Ql?fQy!mBA%Uhb&cCls&mIF?4{kH8h zpuX_>xdOd^uM{HQ%EUtH`Ei?UDF(MfSStk|>}|i2imYnMmu^yjUBl z$|jllwDhQyBye{mVRk(&UY%wKNsTbPmSnV}A%(-R_T3nztwWDNrY-5Dj9H36NVO(% zwLZNaY5OuPRY6dC1rsaML~1mV5=~fPLn^@0GNw|=!xk$Dw3b2eH4g%25~b^255DCJeok?xqP{6%Xr9)MnkC;1BI?={E&g zcPBU(F0a;rtzGdAzbU+nP-x+5UHs5GtGK-9#$qkqQnL0TQ0B9B=6fTs=(=Bo2RLGH zszlXG1(ULc{F2A=NJ!|Vi?TeE%jwOj4?r-jrbHNVX@G zNrqGk4pvuUOjzJWPBdWu`p3oZ;g6fwt zgmrOv`D&D+V>AyIZ7I zhw4t%AbD7KX~I++=`N|zfQNP0k5t$PoC=Ik&PoZ4h@)V5^{j7|ENb|t1;&I1Oa{5*jXJa6A9{*%=_EdKw#)%=~}{~y4Z z#67Et8@O#BNlS;cxk`0+f22p0*MTh*759-tsQ*~KC z=f2waRh4`5+-*PFmvGSA%E*CQqClYhY4fe7V3{W>n1W;1>~CIvhrw)Xpn3v^On zSPKPEclePqh{Ry(?gW2iccz+8=??IRcBhNcNOzq|-gsDdx)z3XCpZ=8RPH|rbcmzi z)+ecLSi?Up(5XTVPuEn8f3!fS%B_5dYpSeT+cjk!QQixsM5dUG7|oYiKk~e-oI;(_ANFDl%LR2&V!9>k`6_vhG;161tE42^7V;j2?+1ck zB*WB7o*1@UZH#1?Y1QWc_!ENYY6&5dSwp_*5#1%ZFY662)&cyX-OU5IBCSp3W}9Dcc>Un8ku^l&=F)ki1q_qc=X)|VY?Ore zZPFXey=4V>PH!lFCD4i_XcWjr<{4A`k08tGZDXCl?pBVH9l%phhzqjMj(d&vqgRsNzjwsVAEWv`u>@zrSGeeNwG$ z^ih)1V#tHZbCBIdqO1nnFE@f0^n4`u^ZiCXNd}xsoY6JGQ*I;^{H$@vz*g@8{HBOn zsVZoANTL0Thm_yIFUnbG*n@aT)5S%?@VJXBTZM<3kwlb!l#6S!rw}-Vb7s|CT+u3r z#EN0s{&p8vv=1sOuZ#?iRw{#n7#T+5)(a$`==>6B$mBL8VtM$nPOc-?1JgEn4pB^E z-|XaaYH%>7W_N5Wo-ynAQc-9-Ms5;L2L=%Eaz)cg+cf;gXpYxNp7;3~jj}UBZTtr+ zJ94X-?oRNBb|*KS>hAF7(+76fPg^RJR^(2mp<`c>Ctb9-W%G5P#MiRd-ZpI&xz4-}~pupJ_pnNhCDEA1a}xv?YF+?vj-7dSG{5=G_VY(C%WX zO{nEh!9Op5>S9m-eEIXBD`6eQqg)9OmOr^G;VFOKEq^vjM;(zrzsHqukNkPql|bZA z;!0rhCv_$KdGaUqCUE)lNY3^bcoSkN;jQIQ!L|Gu%atcu{zUvX`4ei1ma?%Q@@H>_ zb3})2ubgGeF$~SSpJpS0xDx^oijkcJQTe1CS-@>9o5T8{udRJ-J?blq{Z2(~fb?UU{SiCm%1Wj26r6@;i{zVMfK&FOrX z-cTyW_^)r)!LFcJQXNL ztGi`uJNJ3yH&JBV|yjqfm%M z;fS!7Ev86Z?nV%?0p6h<{=&RxC;}B|_QyNonJIKYB&|X%lKoyok~%}EkR%C|v+ozk zSu6)+g^(1MRKf}Ou0_!yJB$v>IA-U$rT$&JHBP_&Je?gXuqmw;@JDL3o!rc3x{H!} z^T6)r#Jdyxq1{cTcA3)I0spkl-c2Lq4}s2}H%j-Z@V_i{@@vBX{xF^WVEEsCI(t24 z<5N2O;qbo)>+B@_@3_v+!vF5n*%h08>g=Bj|0CkbvGBh;b@sy%fX8%p`QG2JvtLQ~ z`Uj=61AeynT5slT-&640boMnfVtHppYbM4=1fXofz6iJl&D%s>qy6Sw#iaE^boOI` ze;5f6JfjILLbWp*m)0dGqho;7*Liu|mv8q!d_)$q5pN>)cLvaS2d@-+u7@Oza7QEq zb^^?qmj|;oHUqSG8A4&U? zs?!TFa(0l+Gc3DO1Z>tKVfrMwvL;!SofD&8j*2c|NgFd0%De+u)^;&W#BWtxY+u33 z+XK-G2(Ptu762JDX=qK9@M)b>zA$Xp+QXP%)gnkvm~v;uH%$;$xkMZc-2^re)WRpc z15NN=-CY*p&UV1>&mx74%i<1y)9O6jG4~%@+5)lb(k@Q(RjQfF9cq07!voyPpTO<_ zu-wyl#+M-c&6cIS%&}ii{>Sw*<(6_OlJa(ix3pY=FW>V~cjXUgkAOC?R}S@GPC-OXg25 z&``*HD!1u>TyeKpVeIXNc;L=2-a2_!BJRxstHbV_SQ`Lcdt{zf6~5cQiy_{#6I&<&qsPmFoW(tuG=HiZT~cY@Y{xoc6*iaZ`* zPRFKZiKT43@Rm5YNNZ7g>%Ho@kD(^!K{TPsvIp_9Jh(TeDVE19+qMabGs%=d06 z%+(R-v|G%Km}Ajy>(J)1VZS%gjVyFy-0FgUPU81&?Dr&<=%jOh1ggm>o?E`DcS?o} z*ufL%238q6vv;0B54hF>+l2He<^X_)QU&$G)uaw;6_?lC$nLP@m|U3u$qJq8&wv%y z&~Hsp)UwK)QxGz*g7@9%g}?+R>&?&`CT>HzmpNXee78%^Qx7#mZlB1CN^|JfsaiXL z{bH_-z=M8W{dZ7x%(9ogE0jQ{ZPQC& zA=8%J6j6sxI_6X+c^P*hwO05bfyT_*S`^JBb;$Uh-Nv9%56W-d3T&;aEm{Vw>N2-W zoz)+wH6GU5lina?T~oRh9E6dSWn-AOP<0IuS(EprpH&QfNoB>@E&@VFH_^#1l`Dh9 zjD07=fj~V3XM31g5S6)9LSPnyH8?tCQUWBpX?6q?F^NTt*!#BiGti%npk+ePvZg>e z`$tFeN{4B?5I(x3I#xdD^b43Oe5ZsTNJ0d`PMF03v&^xX$|A4p(gAcYClM5!QcS7j<-Bw}BdPGZ}7#^G>_x^j5|(`E(~4!q6$ZrP`swt8ug zJJV1i4Zek=xVm^?Vwqls$st-X#fsG-Y9B0h1{Zf+Wp894PC1g^Wkca1n#;i&%dc4W zhD4CUhLXL3zvQoSoFIf052>88#=%u;tb%1bk5=+gWE5^lKzMeafn>C2f@8C0Cglnp zAs-m%SO`Kr98wX!9g8@L#0cJ{$DwRKV^3HOBwng6C^M0qiSA6w-z6i8NUl@*h6J1c za&7chMb;1rw@IZD3l9&ZJZvBV;*2h9PRq%4a_hlUeAJ^J<6+Q&l%P{|k0jfvHrXoV zY9|I_^HP{|0&4D0%uj7hFDI#G7|`@3q3tkugcrAkFluqKGoz_4#yko(MvnpA<5GZN zOj^ig@Ha79Db#TxuMDwxdaz|IwBoTb@gT_Vld;&V*) zlgglwvmd+HJfpeWnI z4cfyxjrLL5ECbmU10FyTc0kV+REy+Rt3xoLL6Drmvt~T*HpD1MkUPVW63}Ulo&u3XL8T1UQx9oDYNdyj z(&NdBsdzBgPgX1x@+v2*A|jPto0!wRzMGH{q&5?2>+{(IWW76^hT+?DGy{w-g*QM3 zkP;cHSwP-PL<`$AqcW`*@TB6zeK@(dLa#qQjLANr2n9J>Nr7Z&EaY^Ob4H;=mJHA1 z7#%c?zU_^d6dQ4yTxwf#I-UHkjuoIH0v2fWZS(B=MUOZ!8`ztJt$yRI2^FkQe!2pQ zjR+)~Ash%8Wc7MT@Nj5XFd^AA3m&hsVM(Q!G&@M5=WgPbeZ&a%C%1fZ%O|&da?5Yw zmMsSQOrW(xyxI~Oj?OuG13Cv8igy5^ z4UD0f=0wV$g|@p)9mRr@SW^HqhXD9CSumcuA2-bgjRk%6FSs!)!EHnJa&O~Ypc=)- znim-7Qo5$m6@$79K=8S$lU)SUT8}2Okxc$V7Rgl_(<6m!$3V(Z2I}u;L83rE zT;Oe^j>IEqOJ277so?7BN5(cE3RAZFH48*;WMgU%Au<&wYz5*tx1ym-ISiyYi`DLL zbg5eHK9`=DpOj(i*iOdFEh5b1hDzO4mvt3437@4%0`5-wWKplt`oGN`fk@k24TiUpaHD zGyBp`1WY@CrW$|K4&T|0{&6Hf@Yth)4IX3sB#Mvyk{78Uz1|&E9v(Ze}<}cMlQ8gZRu_1DVn+RkRk`<>``mDI*kP_w@RS#+l5Zj zYjhHs1j3q0JdH7sTGMBsHdAI?1xt6dRx(n0Q5i^~s)DP5LCiwB$XJYeR=xNQ2-XTK zU^VZkV%5GuY9HcOI?GntsW#qoia}A=g83k8c85g|nqdKLJ!J0#!VtN#e%Z}wcJrQ9 z{#MDDDyvwsnC!Y@!?FRh+Yx|FBWXCf9v9Oiq`R(zKSAA5xsPVs=w&KAa)L^yWex!; z9J9ysL{|&;sr+TeBOG;tcCy0g5}!(nml# z)}sZ>?tzV7$cvT(X=$!vVflAm+MN5vzSMoNSFSV$~V-b*c)L zJ9$SdRn43pC6ms`ZiLm&mfut`6$v=HY2uhmDp1U>@+h+|(Of&sDB5^r_C|R<^Te$X zNCKU*jKRzkIA9E?$IRdzth646jVSOWH_LliKa%E{G$!*vQM7~mlY(HtL_zfIyTI4V zUzMWhV5RdhJ+Nm68+_EMq;)m*(4$A1$Lt^Vn91*PaNy}d4m)Y@vn-PL`<53e(69E5jis8`y)|Ge27Ix_v+zUeTyKVH1ftYg3k@^ybarP(&DV-Fi!S(9N&9-C zDr57h8+ZaQC(@3(6v!4kR~BFNhtw->n7V@&JqD?MiR+ViS&Zl0`r?Bx*&BR$-V=`$ z0NabuQfp;V7D;0I#PGiYv3zNiItHV-22iFtltXLS67MHig zam)l$9Saeij@vfk{Lyv)GxGzpvy+jC3%&5|azEskc6#6g zWAraN9KYC(X*B6X4i4nL!$1oEC}AUDpxZFEFqV)c1636QDM|}cP*4}NupkP)b;!uz z&9p!((kts3K1ebJJJOb>1&*7}GI`B$AjFjfPO-c|a{c2Y@&e=bhNI?)oxDH@VRFa8 zN?+Rv)v=H!&ts$ukQ-6}x*%DEJPmp=I{lYO7bzwQar_{DUH3Jrxwl`M zODR~j2jP^BQo4GXN!Eg5j&j_^G@@AD_UK;1pUMrKo!raAcTyzZ&a0C)ZaawDmtE|* zuCysyuvVy}r9VmdBPLaigf&25vqZ}E8<$Gae6ooHEIwaJh$;>j;zFJYb!+)J0(V_g zA9u2C!KFGA9bLv;W}K{+F&TQt|Js|keqzQL)8uXFdnG%<8m z>ts=c(p-a7TVlheHHBmi|5I71QW35|x|H>_?z;e$nkJ(969P&F-4vniI!)vr4^oJC z-_@S7gREe$1SAp~i;=ODk((6>f%w5dE1uLLqcjpDM1e@nA{8%IPBX`;$7_ zBnO{B>U-P8%Y;bDfhOoNBBj;{9_;LK;&ICarO+JBm!0(epTp=LEQ$}y?r#-Q;!vDf z+c?)AB>e8A?>i-zo8EI*YW-4gHP4{aAAwGg+7%$m?g(VsrrAA6pf0htE-AXDW~uLO z6X|XGbe5@$4yBNDK%da%O{=t7nineBt?Q55EUKx?kIH&e%Gy8rmJ6X554+{URrAnV z^7EDpy;+{OT=;p0;d81GNZpkmddmgFa-_|F`z;r8qlHU6dE_k@Zs~57%)7ZHW<4yw z88sW?0Xn}hv)qh*Q;;rA(B?O`b;h>ev2EM7ZJn`g+qP{RXKdS^oquDmc5gPKBeSc! zt17B4va=FTYGB`{txklmzK;>KKh+15P>`l|u|bKV;7f3MD#n}mZ(yXVDz@us9cdk1}(7?Qz##rZ74pG8ZGMbMXWqcJ1_M6lPdpB0l-%{l7@|#2G2$Py}xp%oa zJ6OeeND%Az$cF_ty7YS@-skgCCMIzt=%Pyd#>XYk=b(xth^}xYVBOG<59uYe_mZIa zNsxUffVcn|n~*eUGl+cRR56^)SC?KxCmR0i3wOwI-Da%aEhUjsNECt8sq#h)yQtj< z z03UDMkSETLo8D$UYh>Ap<^j7wvubPP&erEh1pzYWdO=5>U45)Hag~ZcawG-1juTjv zb58HWk$1P2oRnCXfk)&U;%GGjCT@-iGR@C0)FD{eTVZtEgFE;6qu*8@o$U0T*G&yF0_M2`%5z(rz?=p>viHmy$c zYw5hB)(lT!ap!%JZ4-|6ja*@|&ygDzZDM9@>Ad3A65pixzgX;MKP=kbadQdQ0X9t9 zSe3hd{06oQLZ_tA@!umkHbF0lI?e@8xdfR^KvcartLzse8V7uCGwM8EG zLK?L4Tz`c3*B z`dNlNZp)thC@!;ZJ&`gm=OWw>zQz8$_>J{eFa`J$c)(-Au|k5UAf+Ud@ev$%L+~W) zLyuJ%`02>bI<4X`^vNB|El=URy$9-MDLx`3Vc>pTI+}mO%VJGOu4CHlZ1ntPy*Z%J zN1^?5uXp7oeQgFXww1tV=PTm(5CEJU_b)+^akrA49M>m!%?KsmD3gWgZkRxy<=3V< zj9XcEeP`+zGNq+9zYTHY0}NNA)-{lxESjRlj`?QDzr|$!akJxtCt-3Rpr*&Y6B?gS z&=kvShBOl1NS8SFWQCN3WM3$}$ucj+T@XA|^vFv$C)ENRxcFWLvKeHK>JhfnclQ0jN z(nc*S&k*&v>deXc^sFg~qN&Hql<{Y2Hk39FXu8n}Tq{dG1(O{*BsUoalOk?^D=RZmZK)~ZE(Rbv&N2Qbca~g|n;;pMhBv$n05ER$7kgj1iILZy_sxe&gPy#w{UkBY5+jQ{+Of#-Lt}K zCA^e}n@%zPciG|~ISq(MJ-Wm>*WB;?sC>e(?B)WXeCYoCq}1Ls@{LLA|w`kY2F&j2;@I)nR_A!OqoufEMK8Ejt( z-Pos@_;xyRoxtZr8R>k~YI&0b@O6)cN`v^?_l20;uzkz}c&>%aPzO?m7})VS<^HL? z&)IPQtPT6hhQ39)pBnHU81N!Ic%;n^dgC1@X3Snc$SmFEvgQ7VfBe9Z8~XNHjJY}J zJ@R{{X3oAxWp~dyuxHL%I0)acN z!vyL`)snvX3YKp&JMhr?IDcmuX_R}dod7;fg^|O7%!YnXSM#=;%fn<^om_rO?ZS~f z92S@q!m{xbO-t95BLgmOA)l2MCX~b~bTRAJVy!icogAekH#5iVhfT*;JDuwUF)1Ef zWl162Y3B9`5e`no|7Y%gzdL3`75#K7wgGvTR2}oCGToYC&*(T&%sb%!;7;<0m-W{U zPwLBZ!ErWQ&t&T17$XIr+mEi|k&Kvfhq1A_xl!9(wHoPZa=8RarIi`~&452{(&DG# zA+np)Tr-F=NRVO9#nUx>fKxHUsF&Wx=5Q|QmK^)Xup7$2I>$W?kOio1Mnvz28w;c4 zsUVC~ybqRae1v`a?p(aN&FvpvhwnTM>4#B^#R5Ow{v(aun_w zH`*fk%e~B|q>&nGY;L}Zcpl54&ykco6)#Ekw{5m9m8`5iPyUsAY_wQoUk0_1gHPD4 zGZ;SWv0Ey;Lowk0v(mHTumHCMecvJ4y$^e-_2uNJYq7 zRQ|tfx2VqVk4^s0gX*x02i%C`s(;K%)M^DfvXC=N{Qko_TF~SZVBWx*tMx(gD{ZnN z<;YHX%Ln9rYL;JCT3T#q>Gq7kghn(n$yde; ziZ6?G$<>ujhJ{e1(TRz7N1;)DNcCy@hX?h`HTsR=Fq`ME8kNxe|3beIq&+1xQ>S-* zpoLMJ%dO7D=rde+!zJ_~_As!BPr9dJk?61j`p4Wz1h?)WUBt*D>4+rf4Mvuiq2R74 zXF(hRH0gf<*m4upj^?Xe%+|?~!qW@=GZ2EvQzwN1m=z&>JG^>mOY$dgj{*vTK<)4` z=`gSYSNs8o{YaN&d-;?^D^HJ)^FI}p&qPSRp`w1)b0*qp1TMoWKHu}}ncPZ@$==?> zHFBCb{S59Bt$>FXFMRrB+AjsHiixl5UyQYc+0x{Y6<^2TyJjbEQ|1V5GgrW3F}#S8#}=AvDeQ=oXZ`k zEsw?vb>E;u8mvg79hhe|b_azxxr+vc-iz@TwvRd3+{OF2{CY!|nicPS+{Hsfo&OKP zG#qZ;IVXIoCaJDf5qJ4uSE%)BJDJ8JAfuo+UkY3_W@PE|CK>mFF>L_{goDsi+m7wq ze8%{H#(j#2EPWP*%LCVu@m{1uBK^n6Z@(}CDkn`6KC;LNCY{~up(ZFi_xVAtG$+BI z{%7U_r9?ZWP4Qi-M1bHT(MJ&&q5#b}%_Oc$KicT{7zkbqSWC4Q(>2A(T=eOcDzQg( zf?d=dd;&TjD`a&+UKP?QyixFrur~w^xq1+;>KAN}MHLeD7F@NBuI8Jt3UPqL4~`nN zjI-q|ED0E|ilKH@=mm4GEOVz(1|m&v_Cg;z2)B4oa8#1YKFCGg+I45Nb3 z*AcKEGAQNw0pd^Gbi8eC%3cm>=TO^VFjY09C)qkwhxSc@BzVIB9ESjge0pB&gP= zQ2j$XfaRUyF8S{0D4Gra>8El}DHnDND2k>c&q(~0-4ddP&Rze4lq8oxfO%{wXLV}x zf^@nfy!V6`dvRN+uT=8feT)26-At5~V)3}-Tr7=`&E%+(tNT7z;-U@_E2H@H8%dG7 zKgvf*#v|<#30SvRcr^mXl;C?C?Pd;zko1<=LXC?F|4HXrlK#`4;@jC~3)RT46=#K^ zUr9&g$G^xV4*E3laSCg*$5-|V294)mF7$EwZ!6WWriblc)_xJ`0YZxfd8;NO2Ux0g ziU%{&O?}pEb$y<3<|BG$_WEL?B;V;A>%;(O*(qS&Hu`)nX=yj_v5pv)Ny8UO{27m|oud1>jJ%nn z^A)#S6Sx<*`+f@%>-S>}Wm};#TYyj3zjcLnm9*QlP5n*;b*-n9_Vn^=hx8H=5%&`L zi-){|n#cHFlx~YO3VN!1C3A<%h%~ zB_L|Jo$(%}iEq9-ltRG^5)WKskB_n&tU_Lg3S!`~oZAduJynnC>F9!-0VC{X;j8^7 zk|7ds1*I)$NWpMC&|s^RmyuOzOfuq zU^x&yY5xAoK*|*1ZJdykAckeE7lCSAxZgZFUzDdgN`|&?)BJsy1Q%rgD@kVjCm{+% zL`aT1zhYf@PI5o%zG*D6A~$^B-icTJE0n9H9W@e~eFg{GjSY2>Cu3c?wk$xH8QjFKJ) z#S4BUuI*X(FJ7cgA*!e9ig0$I`AOzR(RD4@ATQxim1j}oM-~Az-B<0KW%**&E4Xd? z&N99>X3&A!$*NH&Tu6#wL%dQ=nYXZV2trBw7{FLnR+t(qJ)wUSK60e(tzf&6Yn)2m?gY0rRcv5!Gk?xQe~gsRZ13cLvX=6tp>scHOZhB@jK zPo?LZXm>d**-s$p7?^-!j}>rzG@{B7@teS$e8i=8EVznUH$2C?YLV}B*a?*{lz@Vy z3#QBpDz-=w;|yeTa%J(m`m194zR#3XO82K0`r7w{$3-ErVw9Lzk$aKR-DV;2LVU~@ zS|+M8ivu=<;7)?lGP2 zB?tU&?igJ>G5Xlq-d|3P=lOVFcOJ2`HA(CeEnMJN%tlh5Hi-SMXlJfRs%tWN4R3dP z^AIAgcqQf`wEMz+35T?LQrVTS`=l!=MR37#21FK{2C-ZM;Z6uKR2T>&&c-j{UXQp0 ztkF=0(TVychwM;f;uVD&7s3B=>HS+hunnd#lVG(`jPD3pUEF^vn%emmKB(qsQogiy zgWgp3eRc++pnLf(9xiv{hc339d65O$i zpb+)S#W@=BG=ILSHx}7@V-Y|m0@6*ybP(qFvjiJH)9bx_Hg&4Mn(a)7!aD{PiTW|cRErULwse|1b4+AAIm<` zBbK|5)L=i9NS0~u5zaY`x2)wJCth|NOGNC_${9kv)}xoZmn^bu<%S9pUrrrQ3^9Fs z7#r!L!De~{jD2}IQR2nMx;icnUXg3$X>uF@ukerBB6gZl`!$?l76o=G&I+q)=%aVC zBL~OAjakVc!AvJ8_VNcQhOC0FL<@4&g$H>9BTeMCz$mXIn}w9jmr&U>g10;Qn_jq` zf3T}4m-zw+nEx%A7-V&tG^yeHGHEi*dDdd?13tZXJQXb;uA_rPM85)qX!S*uqtHD> z8O*bGu8R+hy5(EEupQ*0dohrEH?41}6?@C6m1Ho!1?0%-_-wBm&p{yxw)sa7Z+zVM#*Qa#LcB5!K z=I7;UUBIwD9y;@|2NQvJ0-xt$_0WB35^MFaOig6wAzSj)IUKMV;LP)T`iY{&V~HCB zSxtjTVgVm_YLi*<9HG@|gg+Q2w(6{ld+M!bf54ilDR3?v<`XjFEUZQ|`#ALH9bK5Qn<4_A95iiQG*8N&(($+^%=WB(H z#RScYefEjtz>(IV2fEnT;RMs?xg(Y4-6AD z8cTyXOOcoLAv=E}O=8O8_;{6vz(ZS|`H-iwc6PwCrmMKh1>V@kUuhSSNnI#6|2oxX zp2|O!1`c=&CM{c%wA@oU1Lq_BL!>sPB%w23%C20egp5J8a>m3(6?_msi=xzIG!{1# z{dp43E9B%k`7^_CRBpIv6wK0q*{lfy-nv`nLWdAKWXC941w3A@rTwHtX(Dpbqwu7J zH!lDR+ha7G7A-Bqz#D7&eZj1~qf@coDD{&hr{3re_uguikU`C|t=I|Ip&CeAMK=$x zcq~8U{8hat{9kBhg=evqD1#H#lDqdPKHT5FB@(w=q#&jIvQ~eI(Hw{gtozvs1tdBZP3Z&3OrB1q;oa8|9xz z+3Bh7MLE)ws41}(dzjjyFb}pyZ%+3p*92>hRBA6Zkgo9hu58R9cvJNLsWVlul~I?u zE{>WRP@=}d!}qbd4w z9Fp9UqfEZc!k0*XOPpD7x&Eyt=3tI)7e((9Dm@CHV)2U82k!@e=Y;IOCEqxct4_#%WlEvE`Vwy4cHK4g{2kHbewFVWPwx z6lGrmiRRH*1^$Dfb_Z^OX6TAMtduDG2j%YwDk@l2h!AZ&R#gstb>H6Ygc^9i9<|Rv z$7_8rn#g?Z;N#Vx1pBWk2#jY%qqaYG;)>(pu@p>0H>9RyDFjuP!|s9I=TH2vo#pLd zErH-zYx!QJz#NA`lW?cU*J8fC0t-OT4YB!m=X6dphF;d#X8rURTtIsfO!ug7J-1R4 zVM-TV*#3a4A!PasG6;VPgD^;h={+}%_U1rQVWnjB9P`<1vLB>YyCut_!|kHWV_W+> z0M_%#tlG&{l8eEvu-+=IWrJadD)D~0)vbZ@mGZ$SVYDT}2X016u>K3FMHb+yN&b2g zN+U5Hl})zKLge5?c>N@&6kC?M(tg|46(h)4Tl5#2imwE8>8S#G$$TC2`l52M=k~-rv>u(6BwBCqA{N};RLp*j{a8m z!9T2ZGR?!!AHxrMfr~Hp%`wcoa*1y|yHmDME!{;Tn03DzQmT8L_(ID;y>azpDuW0X z_Q6zn3e;vjH+(iBT)He=nw$9YoEVQYF4q|M6__5#)C7^TM?2NLH;g%QvOO##@{f@kXLdD3*y`9yK}|@%8Y}43F=(>v_1KH_ zc0tHGc&-{6qJKzGGWa+H^&CV{(giQ^`&NO)mYoRWy}p&0iQqeDDSwN`t#uU{ei|tI ze-AsqL8SEhIpG1?BUR!ko$tI}^@iZe`eNo30YI%&Byk`8Pav(cq!TYseTl?s9^6+w zUi=5GJ|p8kAW=(HSS;~!ZzJEO$;%nSB;rbq;OXgAPlXQJp|I)Cte=l925YN?-+^w~ zFxfzl5C?<@&Ob$`ABeSq+uo*=CxDXCacQ|VYQQ?$bQQe0IC}RBj0NC&wgJawUyqh; zKC-r*MlUd)z6p=Ta0}0EQUQ1T2vCFl0f=uR%gb6|jJ`})&T-(LDUcYgSocX)Z_p~& zL@so{wWYuKi@Js1+HjsfIZ^4{J=)ThWEB2yaRM4 zm_Ruaj>n@h4k?;X!e42IBNKJrWPLTrARr|R;mY|D$xbkXrY+}6fKmt-t)jqK!muPP z+(Y(4D0Nd)&Mqp^E>i)fTh{6DFP4P)psvmTSx?b=r}IG>uQU?)lDnF|Rg{kCZvtg!+odhELP8@LT(bs!veDEAX@-d5U zAeU73frhI<{<^XZ9|MJSS@krK5}TBi#uu@0M^A6;wxHWn9{Wlv>;J2Ug$Z_`j zWBpJfk8j4ziGzFRUA_FpM z$|e5uxNjUth(q2QNN7MbizJ;E^1+a*=vEO+De94wN$@V<5_CXZaZ@SDn1o<(jVrpu zLYG*$Qczf*HjN}fVoml)j3b%Ngl%3Ukm#W;lmbVSNC=%uHJ4C4&>fOVkI)G+=UJ|c zM67=dj8;gJK+f3F5??qSneujFMg$I5w}mOo09NLAODv+);rn^tOBkt3t_k@gryegF zF9zQw2U%$kFARY!9(c419a7Kt0M`j#fBFwaOTT8cz1BCI~%k18ZRuxbc~L7_I#Y34SVL^Hgt56Gj@U@)%mvT>V^9yus7W z_xAHFuW0Le?cT#S<@nij8Ed|)?~&Fq+ytUlnRrLIYhRKOlt)#4nJcbD15AfCvkU_?6%XKqsH5fjgS+W7eU;>s8~AO|-|2?`8oRP9Pa(5+WaF33aFv5UMYav(}=n*Pe~iMDEqr2vg$- zu)!l?H)WU54T|xrkA0i1hHUk-x_f~-0QKElV;2Y{?ovZ7QEcSh4OCQ3hWEw(Y?z?N zv}Gb|N|(IdiB+e@8gG*+cjR#{Eoxn2_P}T7Z6nah%mg?G`q`wgzuZXE?hO^UCc<0^ zk2gsOy|t>;0@GScTm2Ss zb(pcf>IGV3`k`NjhL^*I*-+wnI&|5`A#_z4++EllA4+1ROdmbI;+jxXi@ap*XmH#b z2)n{*`h!6ebuyl%Y^N%6K8v8bek$~7`ixRcAUDCP<+CBCa&p9v8IgQc_tQs(0kPr6 zcwFZqSZ7qmIn(#kR2QJE)b0VN(q;#ka9MPXXr3A z1VqU{&pxNy3Vn+pXUK@!nSb*~g-m29^`Cu6kgp|+lEoVKYQS@{jo2QMP-sMB+lS?L zeTRfFO|kszRrxwQP(F&;1}H8Vdi6`NBsY!C*Sig$3Uem1OZ7BYS}msRG+r~c@$ErP z_K}jp#pKC)$S6RpzG4w3tcNUO@}^orO){!7z3^0KbC1HGn3m(_b}~4;v(8)K45<~M z!db_5CDaA##utre)#q9zi+ER_b~ZP@8V^c^v}XFe99iSJJ3|Tq?^V@D{M@I>riuFk zt^C5SuQy&>KS`%&t*utfB(N-~SRnOU>K18jXt|kPZ;z$3DFe;TOB8<|lid+MU3{bv zISmC$_??4Yk5AVm_m(q)`7U=n3W#wcmh=8tzj;EHcjs&e2-VaFoY>^*(DT&US3kjM zuhPx|{%cVePRfXr^mft_9;DULQx8pbTup_;&1xwGOLsJ3T7B@T5k(CbyfCU(jVte9 z^-==@gU*CTBqL}q4}*Ce#!gex`46WBfI-GT059W#s&4{aQw^znTBR@F;fL!1$yocj zEau2bSU}DxW?L*Y=w*E($|ZJq4~-u$#Wf*zxS;1JcIcSyFBheK9bxKgaftjGoQv2_ zlXzSzLicZ_dGAG-E>pqN|GR38G)&AcO#8ZA>Mdc6^lZRGn64HgBAJ&cwU^9Mf;+O8 z+i`rts)xnVqkO^#UWE-_zNS58V$H>I zX7r=kkPj-l`ZR$Jtt%R>73Q2Q{wut3RH>R3!bb}1rD0n13ulR6#+VA10h|ll?f~Slg)HZD zXBuXzPQ<6}dTehwCezNoxcwo-4W~TwBj5I8>6yMTCVg||U=6_D=nTuow*+9}7;%Vk z+z|(RL;fH;gINBGy~;2``M%I_LIZz25!eskf9`wp*C~6g%s_e;c9hJr@LOmSEe7HR zH?W?x>*fsQkCJ4tOD2va4tNn%(=PHhbp^4~@y`G&AM*_Fhq=LHjFwGR{C>W92QN3K zacOzm>$dLJ^uyog)@=3nr5#!L)64PXdVZ`{n_-Qg<0HxEJ=x%iW zS}=Q?b72t@@sO5nMTti_iBg@6M2UVGrrVk5xS$|N1JBursk8kqrT7_`;X*W$?CKT& zb%HTntrgQ&8A>FlCQFU2Y%0jDat*3|G+X>mIz_= zk^c7OZZ#shEjc0wF1HF%PM-;WzBB(CyK$e7Icg#`=r=+syG^O(7BLx);`FXdx&p`h zq$8rz8Kk{U8VVQccRZtBRC^g?Ll6b#o|4HM`^{I+lyct}>FdcfAQaTiW#ke2sleAw zd3|gDdiL?&JTxS2P~Ar{pR>wBwPWiSQp(wsn6!PcX$fL8(H#iNqQsSxbX*s&IVKoBqP2H z;qdz0&>?4vOebSvih*93`vQK zCWWDIq%Ol)=ni)vT<8vMg{^v~ho`qIZuW(_9?GgBLp*y{9~e;FQ? zs7>S{Yd8~Bq51r`ve<@rUuzld3*43@lh5@mjUMErWi6biKEnM%*V=E~0MMG;lJM5} zDARdMyw3l0Anw<|PEU(9aJ!k`{7J~we|ez`yPhWeCaaAr%JTC)Pnh+UwlSZrciUjT zu{dqON)6AlZ+DpoCbE*gJ>16E+-CDCUQllA zoDvIIRqc zv#;9Z2r@p_b;--aPsv>awkXC4M)HcoTl!)&ZDWY6rs-L<@^u38R{^fGfD!?vO$;(y(rB<`+Dqc47mYS>y@V zQl!jvSNtb=7R?vfSeey-V&=pJ#~Cp)M~dO8IWKIvfz8W8TO| zaiV!hMZAeJIQ21S5>F9t$UKrg^9Nzj(%0oL<;VlP|0*Dr@t`T3n!V3>|BqF?;s5rw z2mDvm`{wvyYj1cpS3lsqpu*9%#HPyd5Mq4$n^1tI5q{3pY;%zIV;wp>TCrgjxcSiQ zO-DBPb{uk1xSISGYT9!l)wtsMkCMK+|J)3(j^3YwR&~XVlQ!IKcMSFWzfzUvoT`79 zAicy_CRxK{*#r9HvgXo>$*IyXLMh?Qd=j+*X%Bqxp50TwF|>{4c(f`IsC@MqVW4;V zq?<25Rz3yLB4(^d<_oPWz)p=d)23noHUF=@}*s>wX+eB>AE)e0*-55f^%% zVN$q0F|N-X3+DGPp9{QVe|_~NaB1Ax9yx%mK46rA27YoC6(J1U&(C~fm_rHX5U!k* zmE$Z?_zmH`f`FG_QkII^Ilb>r z*}F|%uygGr{E9K{!CANg&wX$c?^RNUYlJ_0`F$Ar$kj74&Q-KSALom~(@~r3>zACU zh7dXW{Q9j=07BfE6L%$-l`93f^?+=Pm2Qdv89`J zNKiYKn~=k4vzK4tBJ|uX)eKnFXXZvsx7+31k+)vL3WHrkk+^i>hfOf+4{U7^FvICz zcgKo^3v*e4n+kl}1V+k*=_MDjATs}^Ac!u@ZX+%4>4 z^PtJF+E2Kfd zzD&Zw`NF^2%E^J!z$wICA`yaPpozgrOe(^%Cct!3-IY~EQog`q za@0fx!`o^|Tsz&F;IB$*8?5zGA{B>8-A%!Az-helve)9jH7CoE!hx0>_aZ*J|JuUP!zTBJn+#&lwaM24i{JeJJO&8a%OY634LPwOmi+ z94{ySN)vOdY~7vLlujZ12IMN`>3Fau{dBrA;9ur!EcT zQEt45WUNGf8H$D!g8u$TZW;f!GfqhvH0Js1-@oc$`1V_KtV31JDDRxx^9ykr^j|L+ zw@e7f=MSD~T~L;JFj(#qjC6k>jT>A`|L=-GA`s7*DK(kINE# z#WzW|KJyg!6tt8Hf@X$9Phqy1{99?E@j5y|67np02nddr#m7hH1Wv)R-~iXdUo!dh zOT<7he^`ArLDIWn{5*5`f^4zxLit@j#+z3gh4(1Y!itzX-xbipu-41?QJa+g*%5mW z>!F8uVo+X+S#e5Bl?i|kXM7^~Ncb>DS;ll;etXF03FKMYff31_*(G5kpHfpJO3XES zHUT5e?I`%K6&GLLE}WleD0gc&4`mJXZ734X@A}#kFc}}!`nT=+S8WM|3MaMd^tb|?HmH3Qjy29x8!j+s%E_#4hXkHdwL0zAwa_Y zB9%(sYJP=EdQpi6(W2GC3aIS_>&)zn0skpMu}d>`g|;y`XwkjsTN+sN;8im1$j#Pm}m1Zz+Soe*^$2vR? z+|Em;l)Shpm{o~1yyi}<`GX}k>v^GJzjb-C?~r$aKcnUZVxM%8^W`FV0tju!6l$E< zSyN%MT1d8YUja^FV$(tmK$R;Nl6R@J_-}(^gg^$~w-OMpJjGogE%{B%og{HRg7{{Z zEMeZmguGSuO=P0D!)wKMXGUU37Vv#2JcVF&n&r7XO>c+dS35H$*ZUWRZH^LOJcJ35GO{ksRdNa{3;+2<2mX zvN$fyH*F$52qu5wyn-Lv@Z9)I{MYBdR_aSa3$3b)2Q*!5Ytff8a@Jil%eo|HB9!2B zD9H32nKJx6Sv>!q6~fj1^tAwF3%1hhYB)EB5*V`E%~(7vvXvdxP}- z6>@7A8qL2FQea39>Z&M8 zYoElh22ku^mb%uhOG!J)(+R33!@7TEItGT}K)w~%_h+sLhASp?DdzmIK?=gIG=Egp ze~y|uUqgE7FWC}9Jd{3b?}T}2);^kjjxsJfxU2XGm*g&rq-}yD9$*NXu(?-s0#mB8 zxcp_bZ9G*(yu=o2y5ovyA#PQnRVU~jqmfqF&o>I)Egtc8jivxvk9v7itK<1|n#i^w zVy`$;q|ebQQ2BwLQb#N2(xceQt0*Hjsm3Q&*{RyOx@>YY&hnaC=R>mm7(w!A*(TE{ zR;L#f_D1F?9*L5D#-MoidEFE#Z-5@+s*367))a}yF_Ja+(MgHyCbKNqDv4#CBsjwnciJTA?TPFKu(vL6Tn7@nVxj@N}y? zbV=)#6iyY7+nk66-fs<8o${1?la3Q|1{B5o$%3rhBGB|#cFIm_0W!`SgiWC89Ig_X zG2xX&O-94bAi9%lPWew;H`{J@ZDiXiGdIiT|0s4G%{IC`l}Cy}(=k@}1{Muu6wEri zowuE)a{WUZCN(a?vA!aOdeyyV$ut+}iQyd3aQns#CS)1gJfv@QJ&)T~hHDTa(R^LG zkb*b&65?$mG!Mb=UOKfKMn2@1NE5@K1yilJq`0&j{`e(JsowXt=rkyb#r?Kjle4iXCIyjsI1543bX5VDK-$sLn21c;=p`Q@hG-JXmR8lYVXytz-vovaEJu&ID#{ zXG&cHc-IH(lxY!HI74oz32uvlmviq~r`b>u|7J?(bwWdOE6)Q5)RmUx0c1Ar0j)Yp z@^{byf-(YvAPQ9kW8&oje^o%;i`L5s)T=4WSg9bp0v266>6c*i9SgJtcGV`5p@FL~ z)-(j_bm;4dc-u{M{y3f8*T42y-d$m19zMUrJ;&1b05;bG!t|FbnsUpb4LF)ht#IK9 zQv?#VTU-h)rUpFQ^rLJ>k1LUP39q=NxvT34D|^YwER7w1&@6i4NBtrGhy!KFrp?x_ z70(+vgGe4Jbt>HocKM{MKZQ28wXT2nkE%$3CPDCP&F99+|COe0P=VbsnSc&(g?xkZ zvnL5I($~XcyW$$h_7=Gn1UDphuP?=xH_^&Bo%9x?ULpsj&sm0M5&FH|*@kXjdP(BH z-rNYp7zVL})3xT$7zOD7x>GGfEMJ4w9kWz~*5yyz57`AnOgi_{%3m4u=+EJm;*Sx& zLE}R1{!uJ&iz+BE=kp}G&N*1ign}}=SKh+_iVPJ1AsG35of+JbL)&{edlg0NO zB1lyF%Ez-LFv0Op@>(lbr5;VUj?&-MjabKJH{F+EJ)N7A23?_Y&-BLN;Moyo!>OUl zkG0niJXtyHkhJ9Ue8|slLX=k0V2~qh*x<8uv9tgVIrip3s$jQ?gD8~1MiW){x-~%U z^fGVN(suNLk|3V2O!nbBW?amk>jQJ^ER*rwROxZR?U-SrznQZox4yHw)^M09>d9ER zZf4|zv>wq02DM^@);}1=VJh1E1yv9#H0f`ABgCWc6!Z_ zThRi#R$XoK*>T3E*o1TG2yUBB$%a>BD!#B-fzwe9<>ItzlX^+!upwhbf6h)Mdd76? z`yoJQ^}#pl8eC7MWFw#Ua~-hdEro5;(K9T#R`2${4bT}pdQLf$9m0V36G*SAy4j{{C$I;@qWs5tGd<3^1I#sC;f6?TZ5}hkgML#-~L+-4`)BY zVW)cSVGu(<%^hi(NXQBx!`@^EZ!UaXDWO4f5kROVIPv!{7#$n@&^E;OxNi2$SEYZ} zOjCvbQx!RfV~7TpBx^M+$uk=J1GILto_yrL#c*&I#P=hK+qvCJOf2ux>(7OucD-`jY4kE9O?5;mkk>Q!o0M(}N^6xww@j9I2yD zvQTjK^zuh#Hdp>C|I@veSbOq}#EAM?zV|NL@?6RmfyCL?W{lA(lvBujR%x zkz9a7(vM?-w6%Fp#?QeyQG)j5sOyJ}x#$_L{n%uc{+wgW0&pe&z@a}yXdnukpn)ib ztsSyE@l5jHBK^6!MQVv4$r#B0Q>(FSMz# z1~R!<;K}1e^_XbN#QmnaV$+Y<_@rq+?<6;!as|Yh9dHjjR7vCFt+5bO^V5I72~zoq zW~4E;p2|XbcP!Qj^Ld~(pa5>P0YxfsQhA{&1{J6G7%hP#OH3hBOl{3XmPdEGe_G*7 zdL1UF_YVF5W7W2PkFJjdUsI35srts#78*q zFaC7H_9hU~-%5(L@vMQn0z}WeGW9nZ6MEC4%i`I(^nnm02vS3H9S5x?1)2oZ?hQX8 zrba(<`4}~<1kY2W9K!9Eb%98esxps%%UDh>*o$1S3>lt*1mzi1nyMX^J+Z?ojsnZt z!@;%}iE`eytJb`3NERJ8;R>C#1OCxia1R8gCGv5Op$Yg}ma1!7kL(7>o}j?&VU>SG zW1IJcNdWwW3(0S30wFYFw~%N{6SsBBEHvJ~*XO-}y%=mgoA+Ih)s8;>e)`Ca_P3vU z{ynbCPpI)yJj9!S zL}kQ@-9S$40s@d~R*1E@)M7p*sh&Z&JSaUzd6mNNY5=caI8GQAGmyG@1 zw!V+0-gbER39d0VDf~0R8mDDNPZ*!dN)oW~hB)3>lxQ4gHL5$n>_mOLExwU02O^mA z7>zIB0}=izLuG2Gi%l^wg4HtZh;aRa|FAfK<*I=`#)^imiZ_DvEHou^pZx zNPJ}A#-zRxIzE-tYYO}9K@Iw*w9B}pzCAhgIHbNPOnk3ZNPOl-_x2Hbi+X-lwy|v& zg$}D|fWTzSu=M!aX(AzZEJNgrGj@vl@hXLC-Qj4tp}_8QNZZ2*HbXCDe(1HWPtwqWN9b zaJ_(PQ#;ln+QP&~wCm#0BxU;9ZMOqKJ2LFAFmPZHDZ_TSiMT8B6VNWAKVwi#?$Aj_TZWeBK%Hp&~FX*ibQz|zk!?$+3V`|hjJ-6qV9y3Nu4 zY)Bn?22spuYFAM#b%D}6Sz{?V(c)>Et|yWAzc-*`Pjf7P4P_8#@|6$Bu@{967J~gK z0J8?$GvX~5SlXxJvk_^P`;yJ@ocopoT&9M4#?Oqq$iu7fG|FtEJR z-&ZJ<0sd;lz!0yGkvSmcuKNlTJ)yHjJ>Gnp{$-@;+Mln}A-bEUM{*)d8S{)zbIRE1 z^voDJGgE8`Y28^L`dF1`D!E;k8}E_Y6QaOWc;yxxcV)jLOS)WJxA@j5+l_@{_i=6pACue9J*T$iu51iA0_PMzLT+{4d7q77#FTqO`fHG zuV8GU!?B{B42j{cvl(fsW0~9>37dmg4|bO?qIG-?j&0i)#X}*gFlkXabU$;`O*3Wc z%7#Jov7N(GcCv@nvin24r|XT52pL1K{_OH=u(FPTwAv4VJ%fi#R0w`-Jl6opgew*hv1lV`e>iQ*wQSah6 z9x$XRjn!943bCc3xQxb9s~}h+;2@VzXGFt63@qujKu=d#F%x#u7&6||If9k?m;3{l z{bfl=n|#GpFo~9ToMK_Q-Ad0;B=HZ9&j8qfgzknQ&S(#KB2KwG46M8OI+%{|>IWMXPqqP*mt2|XW@(hK%Vt>{6V_IW8wuDibPCrJT`0vz0pM+$u0 zjnAi8I2%{C&oVe0)_i+-SMx#5<=vh9YMWnD$0grr6~xdBWs zt#w>MkXsn+ch{GnaM48g{~@iy^#7DrVPa%tWQF48g>rIsG%>J&a?iTz9*?>FQ%BP_ zTO0lanwCdm`5p*{bvo?T-G(pUcQqh%2&!xM{=!A1Q~+;URD^MFtU3$`72bftYH$Cp ze+@JJ@n>kVSLt-8^GNOC`)$yGlH>AmbraNARSahKbN=j*eiXQ#mFVs5gQjS#H2CN{xsK6=FsO`5meCsxU}#>>pMe$WKw zV5MU22C<&7{P-erd~{ zx>suRxf>tAGBKoQV`N+>&8rv8N9NMOo<2=XScr0uYtsF+l%dK(2Y-W=REPS2Oo+d( zR)n#AmAm&S7wSW+HuuvL|NZTKmGjCOyPxdq>EeDeQC!A8dfK{STrok)M8;8?her;M z7{@YAgA(g^zexs^^T&|7Nf2b6Q%9Rm#k9_bIctGFPoG=wQg5|{3CEts=&#ZzV=mX9 ztD8UWAG>z2QmCC2cPOIK<@ldh}%w&nG*@bW^zt@?w(Yf0h{Nq*yr2??x$ zun}F}6Ww|Bn5yozYAMb-wTGJ#K zb*H@&SN;*!6%x>-7CBzuPCK%RH(nmTicZD&IL}WK7ckP6U?by33&f^>L~uxmN?6&1 zH@HcE3UI8*@9(j$HGdDn)XnyueYj0mb8t#>?v`P%I8PYTRoV=VrlDr>y?*RteA1O# zn1!ao5=2J%hbe>N)ZHw^mI_ucu$Qj0bMO94je}25*w_2!W3u*)sJGMi{XOA05MB>B zgU;>h{q5_1m-{LA_2gfyn)ho)m&}VtZt+>W{ZG*5!YylV<^}Vj*QU-j;>}h{K|ms3$W3}t-LoQHoHz>>PcwE}EF&ZfCUg?ufiTAY;BGDGFw zTe`?$(~2 zYGOGnVX&qc1Z5>gVjU?gPk9~+;_uPoJ;HJZ*WCT)2si4=5s>i8V;U-Jr1AedP#p_4hcR*c%8kN9o^}}P>`_ZiB=XR&Ywbi@A@OM5t((r9AWb`C;NJBUb z>Hy60vKiEBka;ljf`!Org0;qKkp2!dMk7*ZU0^zONb2J%5C*)cqdE)HrogGd449EWUNE?Tt<@%&i)_>eIK}4T+n~?g5D6}A9 zy+6>NgQ`H9P})1Y^hp7%T~X?hh8)-GkeZ-ztb@$dAv-~SoX?VuiLP!|2Omz$)f9A( zXr3P2DPmP)E2=u=?Q)AQX7A0rJLjTLufH?s54@Y*N~HW);WsH1s;r<39tzetgPZ#6 zCM<0r{K4mCZ$rl{8yLORsLRMqD+*IbxpiWRLMxrqilPrUJ;aL|wmZVbMT_qaX`lkI zI>(KjpZ6ug@|l({PU!3?^fLH_d0Bp#_G#D=4bnd3P5pee7XahA=_Ev~Q}(1V!W{&? z!|e^Y*2Bj9(@%~G7blrzu9@#2k1dt2W4g2%6pOt$*oSTtp{Q7=tgF-&%|FK6zHJ7K zCtrN5hi6uPf7&w0oQQKOPjDqOt=(o<4^?8`0O8OH0g?!INHWDxDmd<7GNzccmS2?- znLPe=dpG{;(7FJna7Zd7>ebMZ@R6@wOVC4uclnhPyjhrN-RkjJW}eFC1Xmr!g2f_Z z!a`W25+KOX%%ilE#GOQ~7lib@<93hGi+|pHYq5!REJRAx!yL1qAVH3>0ox06f5LM* zxCmBNQ^Z0|f3$6quAR4L9@Nl1Mz6TNXDUayY)=%D*st2Ux6J0Hs}53je$s%F3_pBT zkWQRi2ij(3Dsc<7ayBo=iQ?|IR<@eh-EAl1GQIJRaIcleF}VqLGJ*7AHH{ z5GDKUh(4*x&ULZo?l#FFb$1ly&r^~gCpYB)R0v(el{Ua2(vh6Y3guKj?~Pv!U`Y-s zPAZAJIkix0BD6T+`H^X2$60vr%$T<_SkxK#QXsZ+KMwjAuC_vci24Pq@(xegbth+< zv^(@tDWm@6q4>pU(?$)TL|E+ zb8GcYcjg-?n*7(hQnYE%yKS-Had6d|=G-~erDwF@0e@`Ac-Ent6C+QG05a@%r@lsvNuI64Un z+sP~B`|COP$Kn0P3c)VNkUjTy^yiarXJhf_4NdOn!m`(=`J=Z-u%PtE&S;VlOnj{> zI?fz3R3RNGP}bNfeVMMA*Egl=lR|EyOjaySq+hGkOK^XcLbx>o3rVRbf8nb;zS^A) zS`c{KlId$V7rA^IsKTyCx2XNGGtbB}1a|&qaHA)9Qs+KujYI3;wpqTW(M8uuhZi;3 zqU{q~=78SVZ3A00Am|-?R$FSve1XilMH8$b2SJOADqgxFJCG@r|207q*7Vv&#f2X{ z`@{H{7~m-RYnh7dUGY{0gGbv5w7^aXho~6g)9*4h#K9B4qjqR2Y_`UKKDNIz5D35aSo)zdAs-1oB;V*^H~&jt7wFL1hBEIheQFogN_W0ti;1sl8wp2|{b*6YjmCo$xY) z^&?1bP1VXPL;5CJeEWfB^HEDRG-=uw(eEC9;n9kX%(h+xn=li?ys~FgHiShB;W$F`7vL zFsqP^uzCn#{s_K=9V?zJl8g$6HUc%%Hz#UCs5)GPVJC#Us8=zTsr`Kdd zqXXdr<$f_n4z;kWCTemVYnDQ#d~-Pr7Ed(EeNO9xJ7dKN4_?5l=y}?UW*v*ZDL1P& zG4MyIx-Hu{6|=MBEa6>V8(%_M#twlDh7KD$!Zt4x{HB(`BBq3UE8hv=sR-lGopIEfd@x-DyMP>51gKD; z#|Y@GC_(2IxK4{FHXaebCsY+hYRGL&KSy|Yq}c$t=T+YnfDd6;?}{&1i*_@G^eyd1 zyZ#8@+czVU{_{3YmTim}>?yXu(OsVu97>z&6d|D;ADMaRE{VDRizj4;PGIP80v^42 z#l>S=)?UpNdH63X3ij|c44=wWJ%U~J!U~aU8Qsig?~JG?h4a#U8=wr4!PhR&NIe=r8lh|SV)CVAurzY*V9OUZcAj9 zFe!Ki9kyiqd{cIk69=!4&V3l!jRoo_&)smRb@}u_K?FwP%@xDQOx#z02v+$;hl6N32-&-(I=IBUK=*Zcoyp6X-;a%3kw}L zqSW1K=S45_H^r65`ef;WF_bh#JEge?eq;fEzZo+7yC@0}_8spAho?!Qkz806c5JfH z%6#R_-bh@tD|Gzazed3o+O}13juFQ(Pk%g8XMa7EhU*V{KDYNQ8!4dY?Z)WWfOQa> zHiqKZ;$5**8@DcWyrbfiiZldJE2H50W4eO~7}e@y5)HC0WqJdJb>?Kc($?uVW#q}l8;N1_=FZphvw9ne|ZyvTmDsFu?g9K zCH6u-9daz`geZLgd%G@hJGhl2CQFIjn(+8(*G|{@IY@Xz+Z3U1cE&B1Fo~uD;#w!} z$~2pr=Yz!e%f@HoY|%GxI}~WfoFd33!k$XZgqTgbxi! zNbj!G?RcQYamREl5m&9`d-Xa-@Qn{~{#=&4X_y%gNB9>67>A!eAm4=|+|W=09DFu6 z_R7awLF|fRQkx5A%fwp)X@XkQ@Mhr5Ss7k?SjJBYD@yISq>9aEg(dd-8?evTI83v6 z6;*sQI96B_(>qptl=u;Hs4RU{7HX&&v2sYOUPHbU-Gm}>X^bU8;i-!`OPCP#yIyRaV zg-5Ru&VKQW72?;Sf1a=48jZ;ns)^OPH>+wc1uZLs*8k0q3ges~rArNV>(B98I^yYZ zqH|&ktqB{1V0uSeurcU1>yD@7Jrua3XNMEE6f8yn7$d@#bQqv$&$k8RBLn! z1C(Dcjd?u)MSr70n|DqzTxv@uG>WZkVfJ)H@j>&&FWYMx^<3_>4@=MA!CYnQQ%~1}3E>a1VQ{DUXEpD+f?W*!t}XJ} zn$g5cAVN-%Yd;F>j>cF=5Jl$BshYsb$yjU1ufBp8Z>5lVA8RUa zn0b*ljg_XQ8No=MR92h|ADEsvoluWG@R2KPDn*K6&7-e-cnH(a6*MJujmBn%tseB3 zbk&QUvf*Uj(!M0?`kl3M*13H(8_$r;k^^*ATR5LP24VExsXsio=6e53`0HE?C!@_Q z9;0jkH#9YFSLz+|rq|zYnd2+tDWLPQvf&UTm9Zhmy1Yc!A_2~y_DxcWO7NLm9?zb> zfEhlns_;NYf7K&$QgHxfNd9Dt{4*Gk%14P?s%o7^)?kXDNf-9nt$^zt0lRl@G+q(? z%mWWqKqo2BF{yiE)^_rLF=V?grQZ(0WcLxgH-}}i@fs}A&RtBT8sVXQnb!gYsymmC zt`=H%dRr_!)9KS}3HNLWaEwAjGZ6D7X+S3L{D7u8cEDwx(e{TW%V5&);UKZZ<8rPe z+{N5GiX>N-hNQ2~(%j2zOc2|aAM$=+>!nDtg&YQ^^EX0#O%L(cfH!_}AFMm@hS70H z=jIA%#07lF9U9X+#Xkb~4yg_f5L5^ICtp2jl$;h?)nloWhwvu&*LXgT#kBTky3Erw zJno5OvuuLp5y36aVNC2HdX03#3buhw>3MSdO2T~Kb7{Dn8?0nfqXiW#Bao*KLA6&P z`NY9b4TNU->uyB2E8=e6KF?zv4^}A1Qt_{62n(Wo_jP>yWawr$CR5eP0Nsop|8bBO zfiWrI&p2%yrkc=|b9lhm0+ojn$3U{}-x!2UVI|i>6dvm67gEYvX-vlj$f+@`Lr(n1 zGc4nc3S|P3+>DEw4B*7p=>1>)$^cC9tmn^>sW#?=(sL;bFPD+sZpG43OebIFiJBBl zP(fg3-2*>a~yJ+1ZH zjfoC!5nU|}ZyS@U2fu686g;#@FB=p1^@-=`jeFIvufi6t-mU{tYo49{K#V0~FE@lj zq&f%^roBOkQ-&^PD1n44!Mmx$cY}}p+nb1wJOojIzXogZha(JkA8E$`=-vwc9(qY+ z;@2^8{0=AhJEZADVQ{siZYTK1k-4)!Wpx;-93T?$iYBDm8}8`y5|qvD7- zT>Tt{z>X=}_A7;e$S;Bs4$^caJI$ZLF;p-ljnNc}Q_Zr=)EI!JtR^U;$uPbW0)dbs z-gVxg3GLD)-e>$s;uYl3iy#Jwu;R{eSs&8$Q{*K{gv7Gp;UtE$5!S@>T_tu1i{v2l<^!Cv2%&Uz!X%W3u5-L?FOIqVNnmBLGk^i{TJ=Oo9(70)4-GS zI}RsL+eemBtmqS7x!T36yf%wXo31%6+PW!KwK!Sdjh>mAZns#VOt^l$&6Tt}VO8=O zUXw|@_Yo3#qzX^ITSHl5%^x>CB0=(-V5x6%`&6kK#0ph=(wzz&Ckx+e(c}YXX7i zkiwX-^>cE$|aYbcT4bB!51Z2 zP~auA3iFAxtm;H|j6m~4xzJicm!qN>;!fFZ zdpi?kUc5z@$>u9Y_g|mlahD}ONFI)cy^Y>g}OILUNh+5bdWN!J!+Xb-xJx1JgjrTgWYWvQ3_kVX2*Zhff*1 zU|&mF2iB65fw7G4p>!(UTDPl#H!Q|dgzPKtkp#0Xj~5b5YDXU%IJcVDM@agTEH>UO zZ>lW4)U~69S6tjMQR=y+fme)cD&seGq)_wv#F{yiA~xSf7gTWbFgRJ*BzW&5iMvKs zbf6H3z{ZgIeB&fC@A&o%UR??hH<(c5GZN!ju_a*DlHtQde=toS^h zsxW;QH5urUUm1#K)hD1rQP~pyF{(^?T@-c~F*(EVEMG20GP+P5_=V#i%JY41_orQH z*!ymYYGCQltH1IEYM>)Ol#x`!e7pY=OEUI0Mx3GMJT-yIE@KyvVlO2D>r*arV?-^o zi5~exM)X{jA-(^Ao5JJCvDEu)Ei)gk_jkUTFJ2zv*Wk>jwOM}GSJ(aV;(Pa0*zFC+ zx4O^n4VB%_@T+gLcIjDu0mA2&0XV7SvT+MV{Nv|t2bStIUuy+NJEfg-s)&}H{TMJ zp$#zO3-O=gY#m|r##Dq9cmZ*w{OdRJEcZ^(MjtQmWS7vZzkjv_8Cf*eYXoV*Z@F6Q z=v=MDzrO2msY3JiQ;Ez?3`5~;AxY-TU}r$GjP;F>KajKu%>NYv@=$OQML)0Zu4r~9 zJuV-Eid9eilPP<^Rw|$}AHM7z*03u2zAwgS%M0nJMy38cFEBz|O9#>m>rsdK*aeAr z4MSPeFH|EeowRj7^dWv(hk@%nMGJ3OPBTem!WBr}2rpdFnBAYO_!0m=$VkarEu3@1 zbp{H=w?lq+Te?t3CZuTjExSCsl0RZV0ItlRcclv-8fk0-U|lA?!%`-&{< z89>YS$t>r2mO*C4G5EQoZN>i>OI3{_&dq=@nyv=bk1SHfa`O0CGsjOnw*!BUQ?f5> zc{>!`=(3H#VkP+whO(r*tGO-06z?vbK2qPpovz_)tu%&rHg=hz+ETTvR%8(Lx#AJ< zw(b2#w8*wPAML)6`IS392f4M_;Ygg%sy%s z%~f$1;+Hs9F^@3+eWkzISuZLSO{n(A?>xZzPy11Cl_)S|fg{@%-uY&ws8E!-s}2YbU`LN z&L+|$>M+J_GxAi%LnefV&r}ao-qVENAFkbrZsoLd08hFh~SEoDjwP?f#*Lt4qTSGBm-4!WbD1d`fMj>Bp;8~??3$A87E zvhReNr&cxb8-Nzw2(n@fbU3V&o;N)N4-3M*%o*~AWRC}Fz;O@I&lql3jMp1V$#tW7 zz#Q=F*_)RNJVaDYIbrbzA^%(z`>}?9>k)qpKp5wTQIjPP zL7$4MkJo4sieJ(XBTr3TP7r}%`z9$210L8+| zmzbPS@Dq82zTaZ$g?H>{Auw>fqJ!<4X~dOHaxn#9z-%=x-|m!PBT3Ni<&@WKsWvDx zc%29bEyPXfStfq=Lm@NrH((EsIE0!XY%L zh=f;V^NC?q-jCslU;#g_#*J_im7J^R4~g^rE8dmGBHkkc!c?1l_+xYxyekc}@Rh~5 zXY*uyJ^xuY1Bok#8ALspTM`8cR=(KJfei@frZnP@hxRv#Q52qwAG2~{kZB14d{}n` z;}4E3=m^H^kW>^SVivqXRJ<^)=q3@?0OE*xqgXdYRu$Tq?uQwsk&kEWfe10Co|x&k z6VLL;ABNs_rR~@b_1D1fwRcN|E-qA#i?$C`_)m@K;#{A9@D6z(A{)WmGA|YfBZE~0 z`}$=N^GfYK89RUQ<#nUoQGwEpho89j99HUsE0{~2Ij@5?01A8I!7Apoh-P(LnYDGuyCon!X# z$d}H%sGg<5zMQC^kz*76Vo%(&Lf@=dYQ;=lFJ?#8D0ZIxl+zeotYZ(r%H;D;UkrjK zeA5L?1YQ6^z|yyUuh@s^VK&!qRg#P77-@v^lh}Jv z>c3R>fKEP8Tya`BmJ7*3zG7^m<@uM@hLGLUZWZ&CrCcO8vz8i+FZ<)l3P>`E!x`==moM?84GF1)=Qs%orUeF5^879>PO=GS7y(u z0RYuqN=8-~FWNuP;sxdZH*wnM+EX7)v6p*Ik6V%PzIi;6B`Ork)$v=Avccspsc z#8-io{%`sO@n^Ky*esj}X}TVThyV;E!kER6#)Ebtp@N!7VgPsU|mN? z>y2rLnnY|Pj9upz@{)Hz?B7GG;!?tDN%WJ9T;WXIT)@NlZ#=+9@<3^>5`k)55Znw5 z_%E1DjhVD?!ign`QKw3z7<+{u_6e9@;^p5$Hi@gqVM(N#hjJ{A#N9U06g_jOy6nug zDd#s+&pj$!P21k$NHb7 zR~aw26}3FwzR*XFQPlR1*;o#}=;yxu9(Imb-ZwoPO3T2vd)j1VN?wj-vmmj9E zS}1KXJy0R_685x0^$3Gn4B=jp-68Z)gId2B?bU|5n-jwI>WF)J7R7 z{2(yv_TQ=$7;ag&q!OChuV{H<%Z_iEkWE@alb$I!oLgWf;|?r~f(Ri(L@m+vXHW?BYzRS?#WUz_7uRfIGI${$edRJ5)hY{ctY#V-h!u_~8OIbgn4kbrr8F*D zgfm0Ws4N8s=`KBr9+7i#+l$+g!9fk!P?;u9A;zyDBV63+nHoCG^(YxBRN!4-(UK25 zO04jn_%9%b8c)wztA+}O(Vb-0DUzSxbld|e+a7}-AbB)XgbAd!Y<9s;LJoh!d(6lA zYmt$xFw7z{HD%iXz&917f3*_hLH*iudOQgwBOgnSQZC<&tE{Cd6q`l5%6Vr3mQ*&S zsW8qhQ8@3;B2QF0n{eR!%{*JrK^B^VThiO9XuW*^$Mynv)da(F;`HRm`?9B3B;+7eC_WB!dx3eO;oAE1yIZ zWA85}OeeTbo+LsBk=_J@q4$!iD}sc~s*~Jz5?x}-aF#qGf@%d;WD4pATjIBUVh~W* zU*$66REsZ;WTZ~`**6i7OAyg~OUPXXD-ghQ7lbc^q(pahivQd8ojiplVHC_<>&JGo z^h=jP>xm^{n{ICy{1Vfo)v=7Ox^xMc04q8T)VjjkZX*m?0#dcD+|t@`AkA~Myg<%P zSx!o#rlIH3Y3Wt9*PZ^U`Z?OnmnUj?jk}0UADq4oEX+zXlUJ-T#I!dF&z2ikOJ&A(uyyFb(VAU&8D_8IQr)d z1NL%(TdLeZJ7llA(`&lA^+*NGM2gZf?~Q|=Pa4A$%QF;g+g065I2;UGcu<5Ur=~dx zre6YN-JXfFyJh5F6>3Y}7MJXij7*zgYf#V|W#~rV2L^8_#iI;KszP*%#?&5V5G zdC47Li=6yob3ymvHUn<>*C*P?-+jxJ_Ri7KPzKZ}Ce&=IZtGn(m~lDovt0ido`J5f z7uDAUms(*zM@rEUu3dM@{#v>j9ytolq9B!-Xcmoym2z$B>|W<)?>&Q(dVSP+!mcotqkh%6h;MokdP zxqynIV5HY>cqUv*E;EzkYPhE$0luWOuI${TWgKQ(*F{ESB0{Ifv#ev;c(-(Z8ecii z9TD2q_)0dV5?OfZI#uYFYqlZc0~-so5Or@A>!95b!|@E9maO}YEj{O+gq_1KpaYXN z`WFW-iAPg(TS^WwUIfh+EuNJ?*miv|_K;CZ$Uplw1#ZvVaQCTG*!_7W)MtsQ0{1OK zMtoAd3uK07GA*`6?%F?v9vK&~I|>=(y*~nb+cEIUJh~ti=mD02VLcGa^gt@t3BU#A zlU3!Zx^D~Axp``?G(P(~z}L58-)Q@P`^M-#;?>&FDsl`8QXE9Py1f-G5YL(POode_ z;zOxg$G{I6?Q44#j__S7rLnVJqelH6qc+?4To|tpxyab(=U5E%j_^`9O9jeyDRhWQ!LuLlVjz`L6T(A1`cD4d zDx(Xo$saa+>t?SpRY`%~M>&fshGk^JgopmCFE(#{)> zevD5-U|x0QPcZ<XGl^%zoAw<W@YE8 zfuDP%%BZ)ymE!@8q*DDxrQz>#2r)1E@8V9-=rd(xLy*0xd73g~9T5Dox#69cTJLJFa5B>TP@`Q$Yr5Xz6FmnzkD9h*g$8mGYBBo3fah-n9keHmdJ- za+nYE^Zo(>i+V4=pG3fmCioXq+cyioqSJ_O+SSb;zJk!2e`8dBhiyRAKQ=D_d=l!8 z2Mx*?i}``gx?&xM`cSu?!K592D=YGwy7jQO&dvgaQcW@uax>p-~k^25|#rJdYxXZP=VDjai z!q&Cp1u0!rTby)E>G}Zahod2>13d^ySD#pIocu&ucO*$?R<|K;?0-1Q0i68@%v+ji ztwN6kso^n{a)nF*vzg0sG*g@Ng9|Kyxqfsfkl8$FF{N)4dF-zHxYn|B!|EL&bCvDn z*ddVpFI$M|BOVl}1d6GL!Rm@vIVCPxGO4RWQd2_6g857 zQu}P znXc3yZ1(E~4KrkFRf1E}6ZY#l<6bCDIT1?euq|}`XLN?bhH2r&jEDh#E~9gvZ4lCLYb3Y^1fsh)5EQtd3}(2F0OPMqRg;@)P(c4M zZQTISC_gw|f5#SsmAZoo zBlnas1l3!a0+r%U7)zR46-kD;Z8gK(O}UN3&j?TDp8528cNn{^$Yf%VK+R6POiEeN zFRCre$(Ps~pN9!WdD?_8_aqsuMAq_i?v~qkqWXBF#^zmHyghi*22OU9j83`!*zsW} z%UsjiTk6}WtYq$WJ9<5Ds*WXvFs@9S^gH9m7(5fCvLmi(biqKiYepK{PMJn&Q7HCw zK`T&3TIY0n3PqXCxnC5cSQnYkxc4eqwKZmyppr}!Jl%XgPgXZMA6J~`EMUn2+q_Aq zJKotbwzPN+OWu>a!fY070D_g+T2%H}=)?t^^){o9vc-7LTFhrI;kA!?G%tjx8S;D$ zRXY+pnD9czLg0whQuJSq<{=Y!34^fPJn$!>OjZLXNf_KV)wAQPu2YZWVJ~)G>tnLG z(GShQI#C&nGE^X1w!DH{#L|OhgWx9-C3$gJ&#^i04HSr-V7V1k>AX-?3SPN@o=vJp z4Lt}&q`@MZ!r3X-<1$;}0l?r=<#2YcLg?0HUq_8V4Y1gy1p(Vj$~sFc8tl1#-Jwo_ zwt7OK8>CNbjkVE=RDYhFq=7oYbcC4O`In@{B1?fy^Raf9;XxpX_~DcCzR!*qYQCR( z?Zy0b6&*~)4&A!Mj2$HIi=5(qW--Jlx9)o-^HX%}GrB`Tu8l~)fXz@s1x49o$WD_8 ze&ZIscmOv#3?!8cYB(WA%=TKpkZb>R3*P-69IrT#qi5Uf>W=>u7WtU~SD8jl^^^sW zhgh?h83Pdn>+0Q17kzM=vt^s6ve~l9+8pu5=FI(o=4wz&K6pH<*t*MQ15J}RQMb(5 z)W01349sHz)v`h27K7DyE&@TN9jYC2!6U;WaN&#qmafQ=W+gi3)M}s43VG++f5jbS zck)=%IgMBOGWODQF2hJO=4E6l7zX+Y;z$_O8M1T89tag;6j)W!MeS@|zttUDa-wmd zd8>2QTAS71+Va0)-||eoR0KRC!-htzZeH1M#j_jXF_P=K4U2nv`e$23+!fdwKI@0A zNwY{<$XxsfuBV{EsPck$UB8kwnF30NoRoHD&Lo5LGf!^A>kn5dqZ&n~z7a;}JVnQ1 zs)qgz@ytPmnE(_}NG`Zr!)x|iA@@{JsW2c#J$ngB;#XbqbY@ZDPo_Ce^6gnL?;5r> zSUsulVq3oQpu{=I@1xC%%j8~rEg6E5+~(?*I{NQ38`k$5@0Av+8_Xy2uXCH`JEzO$ z>JCC0+sc3JpFEqE=esAz)Mz}ddXuJItK*8V!x-&TYDg{S0=JW4Qf3%-4L%^F%J}*1 zGdcjdzV_wtkh*pk1jJM`&I}T}{5ieUk-L9}r*X7*6G`?qEvkcT)1(B?=Ryp5d$=13 zwW!1WdYenOh>e|iHnTFzl-bFY)T^)zp~+|voU=R8T0nI!it)uy5)B!SMH6pKkYOM@ z)?}cK#1dShr5X2of-q|sSu>kCi8?Fw69|^MXjht6q9tdo*YvLiSMr`mY`$OWIYYGag{)p2;b5O9C=HnUTQ`W(umeSXBi{Uo! zAQ?`vCG1Qf1zdnM`_rw$3ta`-dqz{5llWG<3dlPTDMWr8nj(aSj&02J>{{3qr_9Vp z1&Wh-_-f}MkIS(TwDKiGVUIEU+yxZ9c(EXC9ob_5+TXM32bl9s2KwG$PXyW~-)Gs}oKkJ5;#xb-A}Y@ab$ zbpQBeU+geWZPm)CFabwX^%`|pjNNvRU&j;5f3;d|y>1ihFDn>)OoK(eYUPy7m3N`1G%GTJj7Q39h5`=`jIBbSfwk8<+wra8c=Lup`@4~_O++T* ztS;b{Aex@r>C6ugN(Cgo^Rs~4|sCaQ~JjhSur21m0(ji%pr_V{YagHzwWP{ z+X0v{#SO4(<$}Z^wzw*z0QdD+bJVAm(QhzCXwy_^@0s0Woh;87F0v{p04C~N zRUVkQKnW+BuH=8W&%cGq!6lN+!8E^prflCHheG|rt8zku1g&^g$GFQdjO3ho5!NQr zeF5H31ii+OCi_n$28=Jzq?DhBwR?{aGUbH4A#J&wafH2Z`Rc;|211*3%dymyQ(^~A z=U`2jqf5^w>Wx}UVpW8mZD)_mQ0pk}wl>s!x}giKcR$@~Ogv(sh8*Lw!O6Q)-qld< zq+U3x*@`F<%Ub83?U!LRAo!q21gBZ_dEfkomitO@1cL><*ohlDDCzx5##KFkMt}1s zlSNc}1jyi03XgP6D{Q|YY0xk?2FJE^o(T?atI?agkHNv_v91$MeilEAJBNh1SWMp1 zA0HBULaurlY)Ri*vv|r3$bY!#>J<51VdSm7zFij4BCePPL+&c0;R>47ZBN7s6$#RC zzE@rKM-3)UxMuAPR&E7OBaoX^&OZHHxF{QnEQuFs{wKZZ|4Y1XGK z5fUeiy^7-;2+W*+W6vnfS_%O_Y*zF1YJ5AcLKCnHO`K$Y9O!^H)IjQ2pud*-#;HW~ zp^OZeEBB@Bc@+$o@-EyM-X+*?V{qynD%)e?Udei6Sr6=4mR6}`d;*MGp&76rkz z&aq^gyopm51=*Y8H~+)fIRuFkw#oXOwr$(CZQHhO+qP}n?mlhXwrx!RGk0?%W-*Ie zd=(W{72l#NBJ<5B7llTYh25e^GAN14dd3S|^21H2&or6mqCOv(=GMHwZD)lnElT-x zPN*yj4p;Y5N#6fRI|WT0+ekO{#m5-I8myc1BLcs&niu@(WtxMYk{B=j4!MWznGHlF zm8JaYE1s_W9IX5V^!tgrhec(yeEO1YB;V4p(n^3#>$PLaTmI_>bZ8}EdnR|+@J0>? zE(Kf1b@Kg{(e|Y7TgD8m0{a3;{Zrj2^uDA6b9i|KnW1+`P3B#aWCL*iC2h|HKI-XE z=n7aOoMiHMjen-1^3?$q%N~`=_6ybtRqC*v*0sNPQoD}U?#Tf)NOjjD zwR0D_?H#opa-Hm?t!r@)B1N~X3MSD5X+}PDgRL8O3xV4cTH_NtaJk8&SX;OC?8bGH zT940qEKD-RKn*S-*@2+NecNvur8;rglvX(U8R=CYtiY3B8MO0c4jyu;;Mt#a9Y_US zw72JSUhcK1E;(BgO8J&0ggT@G$5=q_2uJ=8j>jgg}E(Eq>XHJiu z&&5X;zxu!tjVb#ni3%(N#t3spf>4sL*4~Wxy7}up_uxvO)}GFEKu6!i+dhiP3lA=L z2IGq*Pw>~WA#`JXVN9I%w@uyjo9$$H^!DiBZA6YgMNu90&@3kcj^lJ3%9IGP-94#3 z%)=WrBQSJ|Ai=j2dolg#%%mPM$Kivs%;hZrO6qA=Z1gZOj$O!a;H)Nbie!uX9BS$k zWr9&s$oj98#mUTcLy=O_rgr*>$k0J{sF_LahBGpad`fJqIlFY>((PK`m!~T{l%j9& zk~ET+ncw@1EIp$)k6cAU2(C|<$?AAN(=ty`Jgcv~aLNY;-(3Av>wJQmR3B4qZrT`~ zqCu$gfxm}JzEea=ZFU~MIcK3Gf8l)$dP40so3LV*;87s6v>*1I-2{0?oVp}gPVqPy zT^z>xEp-9|L=b5o7;t8%n?a?KQ2_2K+8Kwo>48q@6T!JoT3PvOMm5Tx`ui!6=+@EI!KA4 zoWJx7Sz+j=ma^zi#Yh<6{ia|7VfbO)(7*^*Z{)(6`N&O+%?A(WH_l&WN0(2V1Vg;1 zyG~Wv;Zn+rif&fz))Fve`}V1~)4NXgr~~K*gM$qy2F-`b)CIQ2gt}rv41^8M#;t59 zwwmWGAX!EtL{BG`T<{{|W*G(|u9UXxZ3$grr5>VkwD3?F4ryY2x?<W^L2B4m;3a zrC!2r52kFE1y&Hcqh-rEA1Fj?19&Oa;CQ*a;ucoU$JmvuM6|f|KeFe!epbX#+bVI0 z{*qz#x=t_-*UB6nJHq_uSUcP`(6auOdHpuShtYjW88?#S*#ai=c*)qwwodX@XF$9r zX}eJ?ECx@pH-Go7-;8_>v^0_>e#$7_(yLl%^nT{qO~R5!Ct@nvo+g^og3UkEJo&wF zbI^<-mCG|+2c^*0B{24XN?r|M3sfaR2Q4scO ziS{RCRi>*^A0;ZLe0Y@z4`JwapW1VXJ}s?muwCXqZ}X4`adK!5<~1d}q`r@y%C+_M zfNa))u4)!X0{xYZ>DciW(lmZE!KaCIqJ?APIwV8@p&%%A_z9(mY^Mv|XeRp@)Lxy# zLbV{1tg-gpN+KcHFe+@KR(|fKl5Swj^`#GlR_mv|Tl5xwxfo(+`+N~Np6|-z(FBuz z1L5Kvl>BK5RNbdG)peH3Tm`v#9y35+V-+tj6mnj+owN%j+9s>apV`NgV)CzR`;9~Y zo~)6&V4U~JgH={SseTlPmn5+rx}vR*ADU1bukWcBye!#*PkHM8-m9^I>m}wfg^P2# zzSXq=+X{{yX*+Aa$OtlL$yOu08WAR1q;w%QdbajBJ-b2$ncM*9fU&~6Ir#jo{K9#4 zw~-6uiDQI|E+ti(U;tHk>t{I`!-Gqql>;qUF9S;=4O}})fF;GVrIeE-lKVCXY!Qok z7M&ADwwG+FG!uaYkV=#@N=kAR9<822so{i=+U0{0ZCHmq@yWYaEW3}_4b;RsM$M{+ z)1o&?&mP<9>5E`#2~HzHOs_|rR7;H}?eX#LQR(Bz=+9A^eRbB14o}`sArd>&hW9UF z1VI+z7~02b*f?*vSK> z&0W@*ob0gbGhuDPpS+gv;R1JRea?mnO5!CLN(4-x!gbjlAq;SYyL(ebRKv6nisAW$o zn=WLe7l`&e-u{5|trBvkdB_k9KbLZw8v9ofP{7d$!Pso*2Us$mMYWWk#s1gubUmR@ zml|btce#JMoZKN-7W1EA$YDHFe25t47NYSxKTetX?E7z42-k!@NO#(KdT_3ms1uX{ zC4S|dY1n{gqM-ymW?CNxY}fd()sYm`CR@cU5Prw5eQz6 zQPu%F*+JHIbw@2wEkVIMa?7a{YZ5&h+(npR&exV5Ds5#+om^`(eqS6U=OdcOXuN6P z7GFMoeamhXo(yQCYoWNnvhu3fM!&c^zs%BuIpq_#Y!_6SET@3POt|WUkdZ;{`4nTw zWErw@t*AjHjGfXdjq|spPaN(U^*1C1+{i0!8=_JiA}yfCqHvl*L#)@TkGHjJ@9ICs zv+1VICc<_;5S`tp;*d{&f3gjKp(22AQTGJNaa&Lw*}&+@=Z;K5z@ry{@_AG#YCh;d z*=0MUJ$TF{O|F@ixPUsA{S|p>kyL`FJiMO11dbnnRypZc&=COs8E>tM(*6p zr`FF4y1^2P5MDJjt48ua3N5kDxB2(1-X)D`_pAV!_pE}2XtWN9&_9#ECwn{0rQb09 zrQb4rP-a3Xd=2$nZXT+SY~O25S*Ko-d-dl)aWnLwtmKt&<-d>rWPd#l-Lt-Zg*Mw7 z0}fJn%#iyQQv1OK{p-G0O73l+TrtMz9pCwVP6NdMyDbl`uHv`IAZtqRnW!?}xf3EwyD+w|Ft80f~;VYF*!;KzC`F8t|y)A1Tcx*($Bru>VraF&i*Vx7Ga$9KDTT$1Q?y(34t2iJI4D8=nL^Me>Y8 z!WiuI?pAUj(yFa-x5ajpO+E{aLA(UrQS*clxi{!%&~6NNzwsn$=Jbr1>$a5b>JwIT zLzYyj*6h(`x^wfk%{&U!_83gw;VLpZDSs6&KSnNTo4FJ|S6rY!d1*1+v&l5kA3&@5 zB!?Ab5F}{tK(*kF4pVY>$iWz=B?gSXmMuRDnt!DKZ=8F0G=16i!Di6lU@C(tc&lQ6 z^KKhg%HLd!9jJB74|Twbf2_83cUm~$pH|oyf7(qYJ7D=fo?LzX?PGTnh2h&*Ncz^}v%P+q?*-aA|G2pIx4q@ph^*jRb0mqC8UP)_iTS6P0GS*uPqzV)f5s^PU+7$-4Bw5zsyTpy>e zhNA1_v0WS={!3eJX%P;dnyS(wNvTM&3ayc@+V4}Y!U8Xeq9`;C1*Jxq%qKfHelLhq znyf9U>jZgc&r}}vZ z52YzKa<4}`xWNGUTx7_dqF`5rcQkM>{^e~v-W;fvcokY6AR@fdFE+Q9Wq?1GT=CY1 z6imaITZ5or;kLPgxbRNHpNNTWaj`4FGxIies5^#z`gStPwU|dU7ZL+*}kUZBPYz>pQo8nGC_B3S5caCi@ljxhA#zQ`?|7Ip+9?!}w zb&z>`hYcrBqB6Cr$-{e+_=7sVT==p(KVFAq1Xe|M2Mm0 zYDvT&Z}#0(vKbYbyep!w6R~IT6}Lcd+~&C|C(Y!Z=9P*lkMqYzoND7JRuGCyAHU>Q)CkP?KxzwF#(R((U+3p z5SX)vA9ApfOCKn-qV)|^oTFU@#aK-;wuJtTnGLl=#Z4q&bsqqxFJdH&HJpY071fP? zmp^o0#4C*ShzJhpBWYsF@uNY=^n)+F2;bKLqw)z(KYHDno;2(1$cayOt5r7{^bY`+EE;< z`h}WV#8w(~05P4pY{`!tAT1f*d((dV2WfPl=Y<2L2H9>U!tcPU!T|dk^n89LM76i$ zZ-5Lre3HU2LR*Vdo?n1Rq#_M3z;;q4a-Eu~IZE8%z^^=~-cHh?uO?}yEn>u;@*z05 zaLW^&d%NVAa&Q2wX5+wfoOT-GeuODuwf_x7w|aa2E~WnDuN?*)8oiB@{O?SBdgvG5 z+%rryBPM6;;VLn54*F-#-G={e@Gu?V4geM7R#YEolL2rG7l0a`zDRmhofFQMozKTN zL!PNk&HqmE3_d(A)0yOb^bJ}$hoXS>d;B_5<^w-Iq_zF@;zGIh{@dGzhj?;?)GIq? zs#Mo|u3*M?Yt_2{jl|UF#t>79lxB{+8fif@c=nJ_`c~XzLBq6L7(Y}2oa!oGqqK3% zl894())dOml$ebdV%5-8k_Hi}c%$8pDjdLhbW=3qT9v6|0;OU0m9}J6`ylL_Gt(!# z&XtL5+XeV|Te1rmr^L=#k;h*8oPCEQ7kvM8I&#k4CU zW;4xb=%~m$zd$MnvXoBm<3VSSP1>^Qgh8VqQo110xjJnj-ue>E5Du7?y8bpBhLO6Zw@%d}kMY0Qa>L`oT-ara!njSjppJ-nn! z1f2mnAe9pF(ikJbx(8p8As-Y#TFDaz-W*GeMtK%=kczbd2;Un9J_r~v95TaAd=@^& z+2c%4>ix(Ej}+oOdrtRST9#EE0`U2&>GQ_&~R zQA~!_(H?D5r@F>+kezUsqj-u;|HaVeDR(vsX=W=UgFwemJXMlg!@mHsGtzJPQYj@x=Bbmjl4DsRG7UbB zAjLrMOk`2&qK!Oe4K@!0a?fbixkxp7;y!d2r7gIXEN7)Fevs9G3-bbCO2H#wfiX>a z4m(RVKm&+Nf_2rUkH!CCgQKR3E3)SG2mNvJ$KA}!u*5d;cV5)?9K5pw!cJ)n-)F~< zFp5pQPw=pRhv2u#P4jY{EnDGxZxtyeyP@}CCAX%31IDjA2k^#$F53P39-hrDmE>f1 zkf9^z*&34+FvO*aC{uX33HK=+GJjsJDaDH}ok823TnL?R+QUAX!qLqwf+p%JatO&7*{-6doEuLj zrxzxX-6>H zlO9&Rn-P2KgkCR{Wm03-$Og}38&NptX%y9K;Mc#9`Fs(zkfq7t-Z&2b zhEYm?9N*9Js=_^LPSJA>a_?&067C92M`Pwhd(bs?j;0GeP?Jw=r@}bJ!c;h)>Acnh zJbKw%or@~L8S*D6ok9XQx2sh}wy~OgvrPbLF}QN4b`| zgeU<*q{=P$xlsDW)`|#z}iXfgI>Cocl*aDEfiWKbSM`8s2)Pv{Sr>K%#xL?7})}Z*`-@sgjQ~WgN)Z7Jrh?z zH?4%BiD%r~YNf+eW%j)jBLftR(y=)2>EBV0y9KS`&(kyS&iBX0k9Q=leJ1YDFZ@y0 zwmhA8{|Wy1rTix?(>C z%HSF6&Hu=rw(u$VtHrqWWD2*E?=7(>8oB93m+yt1*mbAr%h~t*YCMQ@N3XH>n#Xjb zis%Wu1<^pTXi&7R^Ou&V2)wHOY6Y27ysaS8nmgK9WV7Q9Rp*A@m?@~cE)&K~jZVWU zL4$0cU(YnR2acmd>&c3@d@dYPUF4%s)WaqJ-E%oOL39pl7$nSsE5ZZ2i1(#F{XH3v znXxd&wY|D;Ia*mx-2%Z#T!-3xfgI*w!cO6`@x}rw?UmaRTWORvQn_kfdPU%0d++?2 zRx{wzHZbV&aS^+j1Frvim1xj3Eet6pt09&vnbYcGXyvA!l(+i>1`or_`3oEW?%g#5Wm z^bob+t#M6X_*k@I_0qUGU0>I|y-MaC3;#Uin%(<@Nj^{)a*5~oZ8=vgAD=dbcPeGW zf=CY2Qq!CemLNA0Wwpw#`dDxDcr)Fb(4yEHJVjBPNS%nPC;mLrQURf$Ytup&&Mh%1 z?-*jNbS%T)-CEu3Lu^Zcn6RUo*7li7zjzPltsi3G&}b{;Eo6Mgv}jwKkJk5jBaSZq zw#A%QN*=p{Cm&@I2S5EjaA=BOo1b3u`EM-P9TIM8tgE45O^^11I#*R2YQM{J>FwM# zUO>cn#HfX~ol!BH=S?q-07@taftubkZZz^Z{hMj`R2`RE<9<@u02V$_dm?Vlo7Uvt zA?3IvWn)h1h?iQ}`0*U?3BDlH86-GUt5sELMk=ca3vR%qzXD-J^YLAGn?hOu z`9z$Wm%5`$MUg=NVIhP^q4LSxjbyPQWD@daNX1rkYmH?bqZr1I|I#lZW}EtWfUlt* ztO)7c(BmTRi{OH@3ATfL_EvLpBo1k{f%3rvqU;e;zco1p4{x1DyXhlO>^dV_UK)w-Ta6nDb_@fyCk{ydtI z^KT1U@^xkF>g$}A^n$8aIdmHNIs=lGo=OZ0>7233QAKt{J&yuktE=3!J)?`C_@QOC zDUUU6esMhTigh9{!&fFp4jxCd)&_ux;*4&l)~PFaytIi!6FK`wuHpwJ0!vI>iP9Y_ zSJ}!}^8QUMi^Pl}Q=o=ffwA(^Cx>oR<#D9U%^+l$fNe|D@)_geN3vao#{o5Y@v&^q z3v&p1frc_J_mBQ{=8iZ`ksOSTK1l$#>^%g60LrE?F#{@E3C7`~mjHpQ4>feU=E|A> zGY5P@!Y8TG(kEhoXBe(3g+oS8F-YvaAF)HMCy?SV^_l%5fdl1yFO7NTpXI+Usd&s{ z9UVS?K_D|5d#XEcb8ZiBj+fwOoxFmfm4+=WfSjQ{CutN0L}F~b0Drn98lV0~cV+&X zw+yIniJoCZ(%hMQ66Q1UHdtn736F7=@b5qJIcPW-WFPPaz;lrYRwL-p|E?C~W+w(9 z!k3-#=4aa@_%t_5O}dDD6EemCIw%_1VcWKCazQ6?D{lQ771P;Z-L9+J9%iH+qy5wg zO?x!PZqia@c8{W=7rrS5rq1%v2A-9ZfWM;Sz*5$)VK~T&O%&k*3Dokz%<$qVFE5!m zY2v6&>%uoTh4P}^q3`qc3_%nK^e%!Ga+JR6CuMFkp=I~|PD7Uwilfy0B(jFAkHv2h z$5D}JHQ=jo*hRBJ?&ot+fLC1c{=)Z@msrJ-6(LW4=pW4s_NY5j0b!T%?aOO{h3667 zu2?OgkQAVas(`aY{-bLWOa-B#9t~oFd-nJtZcg~>r#CRxz9rhdXNjqLN$IK zKGjhIh5i|x7g+Y$!qj4}rx(rnrxU{&1M?Obfie8IxbT#Xqc$6E!EpwII3qeX1s`*- zDTU6*>FZzAWi5YA>&{Ki62j?N53Ayk*bF6*!o(yJ^mj$}rAQmL9^}}V4Ol8)QgGjt z!NaPvIgvo^-FZ>!IUb-3up~c-axV<})Z2-l#q$ZKf$BR(5Gb(tBcZ>|j37cu44(;A zeRk4br*s0e8Qv%0D+FNwCBm�M7CXbm(Yr9wKnxHgrsjWKQU8L91Vb5Qucxcw$2z zCb{7Y^O9$1exq{3lKYHpcY#}a6v0$-UuG+G9(vFvsKAU z5F(kai|D!a;y?)gbAT$7e-~I#HyBsU$|ZHm+VL3G;7q)<7(k2UP&gMMyqb=yLnx|z zw-AG;Yrdjo7z!DjJbW7se_l)%t+84cK605g@~XR?gf9BVhIA$^1Os283w@EjKU+cp{({)f{Ly!)kaJX_grerdoDTA$_CihI(G(tT;3!POxjnk% z5bxODyhJ^Yq?!T(AGlN?W@bAc-fUa$*=leav&y1277uud78JVpC=g|Awdtp_ zz%ZMdP;W|y)lcjMpVvUJfrTCC+lkoN5B@pme2|34o8o-Mo)2Q3*`FJg`HP|#(*tH7 z;B>)R#DL#TY4O^>6NFoctf`FKlvIgFI~o}>+^vN?U17{c5r;2<0h@iZrR4TRPOu9Q zf@d-)J0^n2`hZ<(LV}>r4o_RxaB&wu_{`tNl9QA$5STp(OpH`G{IcU&SS%Ad+DqYd znljBWP)TO!+T6Y3yJ@wbxDst)A_X0^&E21aK=AAPEEtm?sF94VjBQsILH}jP` zoXSCMHOaLT6hUESmyG0_j+Er;12Pz{S;AUrWymOWRizF>t|Ykc04tyuiDm)zD7K#| zcRrTPZLE96^gRQ(qs5Nt`iJrW_xRfS{SrepRr*T_oXaYX;JJ^O)!{;@NZ`?l9S&1E zi1(TmV8=0MKIe@Ebu+Qt6aJeM#)Gu`CLNnTNYkug6bBZSt(V{UH)oGk7;%UAMcJja zz1=%m`h!OX*SnXb>!tqVG;?C7F#r`>wy>g?khfsZxBDyh=l6<8v^Tcl&oJebEL!j>fNB|FXng?{>2XaUsMT?Fas16ugiQ>#7PSFc{`ocC| z!HWBw5o1dSVFC0AMZ{IHtO%!OBt=FpDyE{N_u+7j!pPd#w(ZY8(%!%_ydaU>Qg`ufCYEMi>#RhfB85__fCa^v@CgMNs{g|Vg4y@ zx#SUqp1Y+uWk3P_I})Meh2fN|p7asnzl{04KcE9ch>`2+02^3KmHcRueV~En zW@3NP=TF6;hy@e#^`5-ZzYj0wbi{nHXEB3_R`tIshB=nsaIb8 zow4=3M?yPy&A*k6Yd5r|Vh#CMMiH0?5H;Nz{T`#BCN08?;$?KUZ#1@MEQ}!WtGlo4 z1?jbLb8GcPxdJ7ppyMwQ>RJ<+7SR)!9ca)l1A}GVji>rbVX3<78-*!U(l}>wMfnzY zUYq@P)ft}YWiDM_rw=WOxLelltcRxYhQ#G{5nRB)bmTft+5FJ^%T3LpjA}XAga!8R zVyNaE={L6&7zZS=NIhy@8*SnLzGDVttLKkeZM)n%wiFYZ)#^4%COR`8#)nVXydj4{a@pDempoU z;(#$C5YCT$$Nfuetk@&y^A4RRZJ9GTHo&{w%r3wU_6h7$K#fwq3XB+I9kyHXRWR1$ z&k+TLOw|2(xN011R{hNqaO}^%7>cjbz%GT5BZuAHp7RV&%Bo~(#M;Ty4fwfA7tMnC z1y%+M9(3%&T+J)1ieu71PfFZ4Tg)+p!;RovHQ~vj9{J^&q$1dNX2YfT!B?ODVXnDW zX{GECs_~?4 zdjBmphWX=QxF^8u{U_bDq4OC zxj2jFSawoYrB7gleYI-e3knf#9K5ZRK1VHp zxK=S#Xd%J~w;WZ%Y&m$FVs|4?r~G^)FXu4-Y27C7=yGWQ2EINWI+dFsb=<++%4!R7 ztJ|0U4HQ{bz4mjhJC~4Ci?U(AU+SC=U9%VGK5L9*Q5@P;YFFw!EN9K(9LLzMZ-u@S z=Ut(nj*|ZF^1Mh1F(f>V!3NqdT?mq6UeCZtuz4`OUuqC%6VP+@-F%~b;ooqJI*Bt7 zV67*zlRRU%jNfnyi?(VcOgQS`GH@;2=fQ~bYV2U_?hpLuo#^e(_dEQjZ^LeAUo&pM zEYOc#uRY^8m=E!+FVN3_U&9-)BfGUDek-f_by1mUW*za3W*EY)iMs78ADwefTY%%% z_i^fwL9yN{{mqJA0s@))){W(6SW76~lz9HQerf!p3;;eI1aT{X>W|8SL14g$StFPw z>@FuwL^Ml``-Zd_zl(O-lZNJ=APpkiuk}`EjtOZIs^aUFlfd38en~Dur=}|l;=Ruc z;-f+9{*Ta=iGXuwQN&2q01AnS7XBO=w&=hH#ue>}{daDCHuV9l$wRd7GyY!?b**hT z(kF8plm9Z+b9l{h@>B59I&?fvwdljwWT}*ZN2yxKVrZEh*jX|EOF>RHN7Ar(K&#It z8*J{?g7%*6#>vcccb0vVq?U?y0AOB*B&yrIupaXb6HCKh*YG|`5i`hH?#mwHsz8xs zP(3uHxcdOPik09)xgn`z}H@%;IV6wMMySAw%4ia^G*p7CDeei#*P+aCcuvo%lHAlL&lo#X|HT z+1-JoP2n%4#AGB$I0bgM$8}d0vEIFSGvMGXfKRG_NDuI5(Nh=GcNoQzx<40VL41f} zx@E&a0D6acpz@J;J2`M;5eqgPn}syT-bM$C{1@Z^vi;)nSWt~3Nc1E6X)D#uR$_1k zsQ}3g5<5BoyaN+MtZ3dzpa_js_I+Nj{sVSG6pt-w(AIsMLq4lyJetRkB`NVyr*Pg> z_TfM28D*=AOqzUi^*AT^rG8)gihhz}YF^aAO%JT>f;U2!)b{M0TmqywYmBDEUXw(=!C|0}UFTK-On#A=Q&0tqTee%~PoAmHJILs%h=4l9jIjLJT zc?TnfIpqdKjK?0`u}KRMD~^yojr(Zs1JnT}nYyjEQX`HHkg%j}V`hs6d zM=_GR(RjaEa)6UDK7;>a*@F-tcO5XD=eF5e4ZC>2dd=mj$`6N7@>^#rMO5xUDV0Yv-DgImcY&-1I;f%NTo@Myj@Nzsy34Y`Fy(boW3uV zjpS;u&^3zDw+KRlP1`pt8-$tl@BwL0*--O>o>lvr_r9Wr@c0o6;hXY6aX@DZxGu@c zEr|zrO?TJp1*iFt7d`Ol@|wd(VxXyyA5rY=Ak|~h==P9|(qAikA}Z#aWL=&mu8`k- zvBYb~hLb^9Rr`lw&Z+_{zb>U6YwysMQ@)m8U@WojGdOZjQ&mBCRp$C6Nz{6N

QO z@ECoia>-hhF0x>XHisA0O2Y^ftY8QFz^p5Bies@se4PznnL}u9;laGGL6tNvCq$xZ(U~LsM@$(J_PnMB`%8rP zT>j3-i!!plx|p^R6W)`+pT*ffFW9mLp_^)NTns?|ks6X*#Rg1+qK@ZOv_tTd4cQAT0w#|@>-9>fo#RI6 zGb(^){8Hf6GNnqZWNdn#mXQRu@~FF81noD7niw;69N!(npfwTk{YC8VnG-pPhz%U( zdDhrtpRd4aUeZ3Ea5fg8LWXw+R6XU|Y2tVXXl+Y1*@byw0h;w>MzJ#LEqY*^+|~~) zGu2U(ka}38@9Sb}ze0LO>n|KwY%`HZXz5j4%6nqGr1cJg5yY;`c~HQ>nrFJI6A^Uk zyd8^B8gXHwMqrjy!FUdpbc4SiGIm*$4T`rBRr{BVs+ANS<{DpQL5dklTBrAXZjvLsRX%vFTebw#0(IC*~d!bF60mLC*q3=odiERkXIEL4v6nT}#Wt|Y1?1ZD;nd@13*J6i1AVyibF+({(Hk}*lD zf9JBsBd~AZQY&?J)##nrTdM=y`*+*hb3lum39bdUQIwep0XQ;DZv5H4SWSrfOm@uc zWbwu)?TT~x(%h+{Q4wO9ce>G=^d4j!XcxU@ruOYacZWIKOUar+!A9(B0E5=|g|Egi zk?Z93CQ0zDhveJy;}-Qiwi$k_{(Tt(Yt;_mJj$F2*gD}VbvQA0%kHDzk~F*NIvBO+ z%5PW(>6trIM7SW3dYGDB;{aVs5QkQQm7iHeA|SNvq7G2a^G#3C+5ddQ-w6*9sLBix zBa^cY10t|>2fBON^I*7*1pxdJ{C#NMCjqEXom04!URtl!+_X&`A*buQ@}isXjlA^F z@sKb+p|}5u+_`vaJNEu}z$n7Vgo(C0$o-fv)W_Xs6#rKf870)PfO68CMzpbhmMtBX zDv>xa(FjFc#>KW1uf*~qT*0FqMh-_(bA!4}1$2=>@LeK?Lv;)?mns!OEWK-`T^nre zNSi8Mp~B@iGpy6A6cI`!id7odDkRk=G$6;25GX>{`Ixn}bd(^lbyRqKvI2mJ@?mVs zK0EF`2AlD;R<4vaSN+Q5tzarfln8&;x7_D934~)5@u@d$c_j^L%|3ByJrt`rBP?tG z(lJeb04}g?I z@}nm)Y#-Lcpn4UL;i z#RzQ;*mC;8qX7Kz|Ikn>oieHm=0d#SLkldb{PeHmD<*~}NTXn?GD1zgXUsPdY<1I3 z5=gSdq7kSU^BLtq;SPxScke)ugJ;igy68K?jzVr;F?@&W)74?K6as^IdiT`QNl<2C zpIcJTpAKchgkBW73HsAtTXa2@13(k544+(Oy6Fkimw+Kt6jN}8RmvjXR4u}zdntL( z+dGgaBXi$x@#8~DZ{;T$<*5*h0^atb9xC*F+PoS<>1aLrsi^cs8i)SOdwjQ1f&*e; zQ-8k$=!P^XDsGEgR1$}9+18o98J-FZ(iiIeBPHYTa-j-vD=}1-v6Jd$@V~2?p zXj=s-ws-}BtUycOQ;CN$!0uHntCY~&^3T1&E%H|p*eJp$h{z&}mqDVr7q*bULz?k? zAblC5)fQ%}qYvTbY~8Bel)f_MS&ah5Ej;NTEaRO>RDp0SG3HyM{*Hx1%fq~VVmAs? zH>QZPz6R0{Jp2ozMGzYsBK*S^^pc3|r4q=)m%b&NWCUFt z9z8`yg<8+keiebNHD{8~ zVN|AP-1=Lu`l0+h4a+R7@$^UxC4i=p; z`&n>7>$|nRc(8&X=NWhT8Na@JQknCpAq;pm3CFvwMSnGV*{Hu3X^GdatrUel88wj- zmDG(4qGHc1tlMu7twZapHCwrKY<7}ehGWvvblw_Go`f4w1Txh47B?=ww4-$ zY<+YE2O>E<4H6k>l7p(+D!|cIUz|HKf@?mV2OVLZU65qQ$eU%W7cLJAB-yGjN%TlM zVZ3a-d`LoHL@59$h8Vb;4!G?xFRUNHa?mT#rr-Q#FLP|n_p@lxQWo^qX1SN*$R z2l*c;S+7_vx|)!2i$$C|o45YOP3DW7?E>fu^{QcU9Zt6wH?;4faI51r#;;qqE;`8a zmgjNax0xkJNbWW>(Iy_Slabk$+1VLosZ63>!(#ojN6=7WU;Q#0gZla|X$Y>u`>=U- zM7Tr=j_n8?P2xB>VzRCUh+Z=fF{ECb0U}Hy<@t}%ctNfw<@4iRLTXM|3d5_1GegQ( zA$>>w*9G%Lg-?)vR}?bq9yEdZdM6MtK=_i50K=~)UUqO@Xc5| zrMr%(?L3jj`y+X0>i-9hZa4dSRZP~f0I6ZviYlnrFI^&`U`7C^qnrp2*DcD(jQ}T5 zNGl_plL2ur88IAHauK(1J$1t3k?66a)X4HwJW41w^B=2H?q@cNqJn;Q=|3YGL^?G{ zb1QTTc2&6$;@gn5s+ve}lAtWez-XhKrGtk?p3}=3ol($Wms{re`w0IPRVX6XOyexz z)VeK_E~cYS!w>k>MsD}SnJS#>&%@c%TIh~q?hb~w3Y(1a(ocSUptK7lTDq3{IW(#* z^_i6<2kT){;%=47CJZQlen@G3$IbctVZbA^q9okle}4f*caJO{i}djUBavUBmjVPuDF)4~|(?y7Qvgi7Ei3T)=tUUGsEpNO*BTAk{|?9|obci~=5LLW$Y<}X2E zElHOMvv4~C(ivZ? z5RsUd51pWOxsI@*YyEF&Pq3K8#W=dhIo|k{F`oLBI}Yqu@f?!RAwhd*i>iM5SPj2@ z4U-tt6bbX9IX)WfF?|?wk!QQLiN7zvwNY3rJBHklS&J=t8Tiq-er0|N-U49A8?i+d z?n1`&USvh+k^_>KageCwsXAb2kgwB#KW4W&IXuiN)L=-Hv!tS%IKpRy>f08P#HqcA zlt#f(XZf?+xUvR56rhRZY~WaRWDVC0l=RL3>MYZ-vr3$swx%Uj=X0iHdt&Q*m=0oi{DyhL{H4?gE|33rxAT>47Oxwnb0NDFTcUAqus(^ zUsJe~&|!g5Th`^IFBKu{Z*|?3NM(Znn6}<2f@&Ju02va@E*j|sL=P3;SH%N>C`_HZ z5hWAFg*EgoJjT{#NAJkyB0+mzgC(wm+RgHWK$z_0sFK7C9Wxns`Qx!vma@xrD>IEp zZMz6SA(c9Q!)2t5No3qHnAVAru1%A>w71_TCg?O~a}+t}krf?K7bEewkRc&}saF_G z@p*J`4cg$?2`<;~Np8n&&AnESy{dlPW~3MwU}za{k8B0z+uUHB@td8wsO)3NE0!uNC}a%KX)$6Y3VEq5N5-2JHPqrx3rzv;hq`K2>FIo8 zJsjVMVCvJ7V$<-03rH${5_S+sUwPkU+`YI8OWfAqZkn(kW0ZhhBG>u%QaSgk4iwKK zpIHGqsjl9eeWAP-RS$+q21Q^l_(*8{dqwOZz_v&-nx4`qc5|Q0tr6Qe{B#m#*x9=1 zAgI@1Uj)4~brN2$1Sy9F-47d;TWP4bV~Eo-R<+Ul!c`ayLgJpw_(z^uHWEQDts@W@9!!c&~dQ6 z{kLJ`)XmQwT2X0;w3FbkE^@>_>{b6?bcd_Yf?q|Ha-rM@iCjd!ub* z+L*R&PusR_P22XgZQHgvZ5z|JZTDBtdG9&*ea`o-b?&|YJ~wMcWmZ*WRQz)1j{NPt zcIL4Qgar1N@?sU+qN;(e^QM+z=J>LSFg=NW_SM`NxHYb2$ON_lSxh8TZVLhl0n}4E) z#n3Uhjx}#OdO<_@YLH)V>NQ#!E!LrPRE!9Qz#>-=4UP=}G0gg-u0QNIHBM2O zk#Kc((_%f2t=1*kO8OSzdH7aS&n--40RIHs1vi( z#!}t@6o&~lp<%uKw4gEC75WD|&Z9<_cuXqPGLQ@%NncAkaRj=(8L|)6;vN3!d^&O5 zrU=GYHqZU-M2r1qV1e=guOqyIs&L~vKnPEK)vvAy{BKD*ar{j*crbQeK>^TOPcSNg z48Lk9rKEt<^Ak=1?=Y#pMS%KOVvKz60HH8)>7DQ@x{S%Gk+}A8FVqh3-pz-^kkdir z$DQxDXz&UKo&}SYS+S0AD>jk+s5z=W_R`M{QyGXN5}Z4>xSg#qg{7odk37Rark}CN zg_E7t3%=o6O-mAh+x-I{^WYPXq7!#3WUqtIcDd90D=QaL52CM)a2x}oGDV*^GwU}@ z8XdC{<=@$*Mg-R*vg!C$qg~?4YFq5JaiqeU{qI{%JUr4hF8P@CHX%vLOP}Ft@sMb| z9+BQ#=#G029?X;q@?hN>YC#&4`AkLn%kZFTPGn%iXKcf738+}v(n8v`h|VHoGjeK$ zUdyMPTHJ~`-29Bjd%|iYi0-VFgr{%OT8HK?p!SR00Dj2hjgXBWet;wIO){4caf9z= zZpF$nN`L=$2Y|!Agv^|5elmctz8uswhSQ2JvtSJa(10_ZI88~U&{?zO(hA)BgNCgS zeGTFje5w1Lzc`^;2ayb=8P0PzvSYNEoj2(|z7uGeX|}Q&3B;H6t7N0i8x8$2bzFbO zmxVWJG4J922_0|JXH&_3Hk5#W4V^M>Q#O}S_L<-CPlA38ld?1gv&G#BfrcE)c-LhX z`wBL@v3_H{cw`LhMeB0q@T9`;Z$vf%Md~8A;w&m{Q8rxKNPh@_|ElV#k*qV^0LGJ4 znaZh@b_~{(r!y;(R7EalP|-->NHt7~%R;5*E^#lf4|r5ea`b_BgAzw0y9_08j~$5E zSyk9qHu+P>sglM&T}ahp9D}Zy6gG-+7crroVY*aIGZ3a<-F}9MdQaTWP4YeDL;Ao9 z5;$hy!ml80EaWamy!9b4ZOnTtZS3n=^8@+nO{qd}`qp3bV-1|XaxsUoK!h z)i(nNC%bx)ZvZqEElp3mqQ_!mLL=7MGf_Sm>oCZL4ar=KI-u zzUD`W@Ygrk4~#X_SdlrG`d3J!Z*mt)+%-U7VJ;3G8+!Pr!)NzmB~oWfSF>Cnx}+R> zC10L@M*C}jQLcP0B3i-Q;4$0E4>u0*;D2*`OxX216UG?;8r+5Qbjt##fBsG%BV$)Yj*&vdF9 z7Rc`48A7GFf@CP*bhEB=_4#%|v?Zi-jNc02b6(rk9#G(H0T4x3e;N)J7#33DE77fu zJk1(lTD&9fHar!~@O9}4QEe#997JR9)2R}obW8jCYIe?3orr z4i>u5pYS0afFYD}%fx|BAhu#c^jU#M8*{=L&nMt+JVfkVo_LunS8zJJ=j6*o9EUBe z3Re6E>8^L68wU%WIO466fXEQ|bc$s_j*ZZSbVTLLv%fY!!%$ZTYB>-t9YS>bIxsor zBt_;QpJFH4AvD)e;XhYT+eV*!Jln~+FtDwm(Ig+`XODeVJaiOyJe)G1pP36MmV}6< zr?y^uxoP+y_**yJNrbXx_#^O=HW~3Tamgq4>Aqx0;VL!0Zs;?*`S=Gtw%sYoLPGU+Bm5PY2v4*yFRBuNHZ|=KA8`{CNxmQ zfpx;$ZaXNsIAVulCy-nEQBa8U)Djz9qLGy6w`MA_6qTpu@ zvONv7{m$P!umXhWk^^&IQCoIJ)I{75rhIX`x-yi8#jQu)ZisZ0O@}mMyf_A2e<@kh zs6#LvtN1%@c4!r#rIid8)ufu4(|TuY+G7teu^Bxilj`Wd$y|gEyps)rHi3o8mUK?5 zHRt6;SAW7aXl|Ug1siq&;>K-fyaP0TK#)_PVDApG$%3bN3z%!kz9M_HLSUI>oFgBA zM7piP9foPcw0kbS8MxjxO9efVS7W3wCMtbOkQNR#a?~ zxXhBe+b;=8+~aR{elgYMTYNPfTc_WM=Pf^1YR~dXKh=K+*ZGmf&+7(GD9$orEK2wA zD}i{2e)pe%AXUMo5XLnV_rs_8zDvzi8e%2ys6fDVcv{V+ky&^eRjMnqnpYptMKR`% z$RG_r#cq;HCtKk42W)}$IWbI#-#JI=);>8NS;tfF=<)>*fqEn_+Uqc6%n3}|f@wFb zI5Dxw@Tm+LNde)Up@hjE=39opCsw%vH8_Sy)4R^LfpJ)w4!1r$7U`Y`58e$$>MRy` zFo=`DTG#BEhU&q7AeHk*RoSEbjDC_$g zotRj_V{m9ny*PJnJ&!g0Li#`s3@D`bde#vruMPR@v>k<~a@)W&(1&TrPmcuWc1VW_ zh6-cw2l7lU`c!(i`}9yEHZnfoOgS=D$gtIw2>gPBItYg?p|LP7H5L`rjh<|tz2cb1 z^jxH#nC05#)uvuF#JoQWLqFX{gfK%rXI6v5u9Z7%_%2%d#bu%%yjn@ZcStNNqxLsg zX&C9b0$Lu%RiMT%?wP}APTv1m1pz;=SC;8HcQC#vIt*rw^%?>%!{b1L-5srgWdaYw zJdFHOAT+!DUGU|83-oUCp}Fo%RgbS-;&OD}CY#rhcq97@lDL|1VO-yVOh`0?&mH+Z z(sI@MPYH&?({+`~#w;-ga(WkOIG0NVd|}8cao#Ej8m5cr&@#0qU;!=lml#QjZ)Q1_ z(;Ae#h{~HKG8ZE0E_0{*!JLON%$audEb#H%HKgQ!ML7cqlj+OCkc(Lta^O2~KKKQPP>~G-C5JQTz zXrkyEw?Y>Euegpt%L5!S=mVc5&9aR8cx;denT9$0?${n<`L%OrC1%QUHRPfX!I;g# z><_Rg`poCzmqi7?IP?539OrJC&=0^Qz-*JJST4T$ogV2d$gU5utS=a6yrpZgtPohe z$|=vm5Af6X7m%hc$t*JsMQ6kwg(HD+U)?OexYzrFDPLyiZY+n;{xjk-mV0>uv^V~* zV}7dk<{p~Z(>x-QuK|9l*ph6haxj@+dKls&2v{zde{es)gOt%#*uVXGOj@c|yklMI zqsAS{ibwXrd};g1hC7`FQfcM9NL%;dd{Hee{2) zi1^hw3S~D_1VWwK!f~KD5Q=8WGa~oBvOg#VA$Kw(4MTla@idRJJPlL2enx)=+H@T) zIGMHYockwrx`BSG)}2j_;#5LE?4UQ$=AdDI|Cs`eU)oMG5w0N?3w4PCW$p+JF=?|y z48u2?mQtUShJJ~Ou%z*aYgEDT*BvB;Wh!#R;GXzStGAfqHr(tQ8rx~ZaQyPGzI$Z( zpXXyt)GjT4Axm!G^`j9=D_dPWqJBBV(bh|~)sFRZ>dXdR8kgh5cR16?2b(e_F9F8~ zu9t9OXG`1}Kq}%+N|dCr#h)Jk48^=NEV=#UP#-yFTO50H4}YY-Ix5GPXFC@@@W!_& zvu^YHQ&ZK+XWR0Omh?2N}PIqbo~btc*#6OqxQ7Cku&o zOhi>1&Hw8Ht-LR*Po*a!2#r(Oe_*ZQA(Ay&%b##IPuF=X=&p)_(Na(S#>nRAZRBz7 z`4x{!>&v(gk->Np*~_^PvA6P%I{mYKuT`S6|1RDRe_sqRCcTbagZ#Bn<khxBj>urO(c@c{={DnL zjW8r04gSHXcr5BF_z|Iz@?0GllbLFj9hH+BAZ3XlD>WkF-S2^sGJ&Zh$l^JlZBJTn zIiD#Z)4-*c8Vsm|L%SeVvC@L^CjjWUufiI2A!vh2Kjgt6MHhNodPn}-FEUn;^ zz86jk^MvcAHFtZfxD`v|$wAu+W zEh&QOnzin7XYSW{F8Ct5oXFDOVk-LBVgSCbk=t~16{e>8g2l+N5n4Y-SjX{MaTpf6 ziK^f1XOOHtU$YBEdV&izn;<+&?yYj z`@x`9MIkq=MWJn``9aRN8 z$!`M#@c-cc#s$7|ayR(RZOJZgb4&C|_2+=3Ic2~-K4G6tb>_S&NM92^EK5M%@BsPy z(z@D>aG@!+vRPLY>7~q{RIvE|sAgJZqaL_4R>dJ$;qGgFOhq0KNNhA(@%I|Lbd-^( zNf%|bcvhm);CgtrSj1M3y!r(oCdVQ=RC653*za21vFf2Mb$)n(>nn-df*=5^b4}LH zU_P0Exmk7yQTK`Er?RV7pyPoK_)oj|x%s_3`D>exy}|*!c+{fI9K}T;5-zeQ?!E!_ zgsrte>OSv2Vwb z0T_CohiW6-t%72{D7)7#{@QJP>-$Y)xI=54f_)5HTrBQcLKhBtW^0`1j?-mm@a2|7 z@&~dp+AUzvzsNNUVdGQtJ^57{@Kj^9910mw4uvcQ)%^$6>qeH)-RsM*q{*K3Y+o^T zY5;t0;P=m6_xt2>jmGvX|Fl1wS-`^vD>AJ68eu}hH13opzoZt^bguEsOrw5FQP_D# zayhjU8vhlNk$kGfZ)k3|)T4edJuNsKcpefIBrOyh3njgpH5p=)Zks0RBWO>9F^s>V zhAln~2glB;rSXO|ba5aqT>%Y|m9^Q(Pz%GFY;sc?EPkJ{3i|+9nCCGcZPih7C`-uV z2qX0uCIk>0fj!>3G{ST6=(2230AoU;hWH^Q$Y_?u6G%gBD>pQT{!qENKk)`nri2D; z5N?>eXyl+#a=r$!GogAo7}M#SLV^Q{DKh-#!v|@m2F0<|gy2gXM-qXnUTdtT=MU4o z72$!#dDERZ*rsHKo_bv1#eg}J&)`R$U_I&t%P2fTuqE?ukOSTKD?jGcKDK9REA zYib=cc?bPEca_RJt@{o(j%6%ZoN^Wtgem7C5araf^HINNlxpTaWGowPvt5OZ?G41% zDX{8}sR2T3ZL@6!*mY;JPxJm?!kBbYD=2jPerJ_YmpoF{%<;_DR9&PKk&M+17n~^U z_$Z9{6`!^BXI7!1MZzJVIE_NEL{VL5mHw_<{pM~DusUYW6RlIxrWe0;Z?f5IAp%{p z!j>!mfAIiCgM9teF;y&DAE9eYjI{hGCQ8`4P_v^y#EPUg_!H)|@rPKcJO z`M{2YEP3XZe0{DvG*IZ*m>NscE3h%+j5Q%$I{N(SoglviRS4sUPdatlx`CCe2;)vV zO{1(&@sO0Q9=LoMN!rwTgdF6ADiA5imC&=ZepI36^PQX%-Rdm?Un!8`ER(-@&7;1s z&4v@Dv`r5ZCQ_ztWf&L7D}x--jGFJkOJcJdPC&#*=g3jVCmP}C`XDC*mQG*Yc7EZL zSzTg7D#rt{0JruKeX|<=RZKHW5!B}`dBp~Wul-13KjTh3#zmy??Los^QY-sS+qEN$ zH~6Pi){B9Ur7(8rpmD;TL?BCHMnIrdsFz$YkGUiZqa>Zs@_JO#J*morkP#E)VRL|H za#a+oUAQp^Fl$x_s|d`)*Q|46%FcB}{u%Z7-PPCQQuo(#%kyUsJbc$iW3)cR}*}0DyW7U%0(ghnOwm$hX3mjE?gPD9mpwf@)wB zz+xhUPLEi+P*(7+yRF@Bn4m{*)+1=5_!(Vn9NdI84?4UNr~nR`7W$K5F2IC!0`GMO z4Ns7Xl`o{taWRuslzY?S^m(v_AyCpA4Y(C+lBLWQC+wXQkM}8O2hHmlZ3rMhvCKlI z&JH)|8yf=Ay0-E

UuEk;TC+nWsC})d`A(cqy^nY{lf?&INA--{o0pT4xYcH}Mna z((%xJMcngosnhjdB1B1mI~6pp^G0bzxk8YNm?^r zorKTom7j_6?VkihQ|~AT;&Mi7y4>U3TPCSUm6{-(N*H$L9;JA;r?0SaN>xq*#x3{L zh-#YVY*a>Up}y`!{9FNo1#XoxjVPkWdK6Ptec6YrB-VJ!m!QaiZpB6L_^pAJ=>zx( zrY_^rVk`1b$&Sij7oKBufrzBnG_AjjoV6z1()zTiS4?PfWU~Ar&mcTItbo9y7Cu?k z^Cq=~5Pnudy7tnce772_Agp&c6?B}YLjj#wF=^mSoy_YtN*QI$yQmlDO^KKG6J$dB z8TH4+S?dD0qjH4-%Dod~#bjcIYQ-c(^Tsz$r&tTR*2QND1hmVt&T?`5oT<<7KDA*S z2%%8;N$R}5+B>P#_m@ua))$5t0d@x*6%E>XeX#Y5o@ol}1cKWtU10Bkqst%HF#Z9n z37w8}XQWWXKPL1M{Oe8Qr%0i=N_OS5!CQ-T6=DRJt0v!U(cE~i4LU0E{GS~<&V$l@ zx8f$BHwz!UZA4}SPv0hcP!FGHU0Rg-KKl=D*HRXnQ+~wEFUc1IRpe;k)yz9zhGN~m ze=USi;WP3*Z`EYgUeEh;>T*d(EYCA6KqqF%Wn2v{XXyLhV(<1ZH6t8J{^&IUYlX1AXYj zkcPwKT0j39eFBxt)0Ga`g0RmS_)fsOzxx^*RK~AF>83{`hNUl8VL*(peOnlz4bvUp zL^8y(6INI@eGKgNl5{tp;;EXZ% zXrfzZv3qiOX;(omMnBeR$%!@k1XG8%u?s>Kpii16oR7U@x7}GPO0s@>RG24fw9^b` z6xA?soP&!r>}vVn-@&U}$R^X|<=vHg${5JVRxD&O}_YU}J zVq^ikP#vbD>QY2*!NgNINcvhj^OOk$s8Et%5jidM=4hSqW-pk1pPLWq$nkit_h%w_ zydS=JyZ1Kbb4SWp2w1A`b8_d8exkLpiAh1lVGu+;=+5G+sWLh3kBF04)IAtpDf{S+ zTKA6bP@{m%3Hkk0;I|*h zr6Y1LiEDn1^N7Q!ld|5SMv`mOAB;FkduHLPO}rC~2csyZ!_YGm^C|YyX9bFNe?okxcM$_^)aF$4`L1v zM5b+xGx{&y@^Fw9yDC~c#>oBdO%~%M6V%PzO~r1Oc$%Yg0kk0Y!HF|35JAH|%7}E{ zSa{`77sLmEv_e3g{>VW_kT7L09mTHRLp=<3_EEsCjJ6d8qmupyM~vOXQxL=fuw^ctBVke+WW)-bQ{?x{q5qdo!;&Lm6p&=$<)o^v^ogIAI*e$#7i5 zL;CVmq#S*YWAc`DXK$tWRL2TT`_-n~ll74CVOJ*Vv8&66%Lr>*xtW1*Ud5SYsT+Oy zD)+J2G!n&+A_%NDIYq(H6&JH-uEl}Y<#-k)AW?IVc7odSsGCpQW?^engk>?YA*4}B zo@@Wz=x`bhz7RQ3RdFv5oqRJd<*X#At57Y?Yua+*vbs(0r@yEz z3w`cF$atyMoy}bblYesQ=_iBspBz3O=dv=zm^?wq;C&OoE!f*e($I1?H-&cW6lJ=o zJ@GE{cUd`4BjDLIXn1fudytZruf9E8vLr*5+vWw`tK@YLZB?5_b0uj|@)yc(!!{0D zENh0-Rz%XuEc8DGy$}wO0q2=9NZ_}4n|M^-wOue^7K#j32rKn(p{vq4cIJH==1OgcAL&P<}pY)IO<9XyC z+%pdtf`+t`*ONNpPn;`4ATk2P@ql%Rsw^-OaXjyrV2ar$rB;}D(FfqQz7^l*&{l=H8dRMy7n}%4sP~F)@xqD=LZ| zA;FPM=gfESwB`&x%C3vu$C@+zah)yjmOHai3gMQzW=b)`pJ2NqHAbo@#_)8A1MyH^ z$}iUU)j?PqW|sFcA1^}_yR{gi6ORf6gViARR-!)b}DY&<+q=UTR(3 zVwKlXKke|#g;;jsPpdPu{a%F<#NwrPezvRQ*Y8SteF_yiW&&3Wi8ag~a&cVK#uZd_ z*SdB@$a~pK7vn>?nmm{;b{9y|d>4WR_*crbOZo}im|I75hcfH<&jRSFWZWq2qTw2T z2Y&r(V%gX@+UYIwA91&}iFo~88_?tvic7~lL_515*11@^=(AP^cPc7Qb;&6T2&J+^ z$V^8NCWKkX8eKX0-E6ovz5X#%bg+~3G0i~ij>H4eb;Y_=5fN%1*#`1Qq`ng7OT|>e z2(u3(rskvmU%|J|5<`h+@!HvMOB1K|7y?8&svBZHy|z9J_CTr23AwtWxDDUa#0z>G zwAG13wteVk*MaW((^4+%jIj|hHz$26ncL7RjoIz3wDLC8MQvP~bc-4znWCoZ7sS}& zp-a*B`STfYT<2ovA#e2q7+s;HpSX5lCb_TXWc*i&KDiz``tNUBZ5ID zvW{p9yYcg;{fwqL?d8m37ums?&rPtP z$xsYNRiRevf3^Q)aNQpnsZdHrM+KInA?LrTTYWZChj`$15Ul++cg*|KK$t5E9X0~(hI>|4Wh zGjmkD=lxN?z^HbKoCW$C_}Ea5=tDGvQ=gKB;ZU}!95-HT6ZvnUl=ac(m&3YcB*h$f zV+Lqq!57GzUoTbV33M9M1E(B-ilg_+t|_MQ9qn z#_NY+D=+v$4>%ned9=*^NyrwAu|xu=M85R?*y+OI+y6n-uE(Ov8#I*z*4k;76hV2g zvXJ+d+CJPM*0edwDTh3P31c6_1=X~9sq#BiMF^q}W}3zL8axcodL;HLn)(r>-cWUF zen-RCI7>TKfSJZ^i-R2Y1eps=2cjZ6dyPGAW?PCymobgOK|q0$^v1Va88jKmpgKl} z9e%GhR8pI(AA;q&%g_J~gI+a-oiw4#JM=I`g?7qnKsrfBWLQeQ!H!!sbaYJqAtERr zR44jAJtzMC0N08Z6A3%e%Hb?zV;n~=uJeb)oR+zCRoGBTDYzPN1+jet2^xi3YQ%nA zIpr=D{UGWJCXu$f?A>8jdXCgxFqF-G*iRv7KFOiJm+f`(hp!r`J2E^xWQd8g zrSI8OJ1lSR!CCMzlXIEOCusSzOQm$jbE+jTvW4sTy~Ep5fgUSmXQXKNpI>>=vVnl z^rJ0&S1;eV?sy}6qQ%vmKFGy~eng;iYq~shp;;sMIi>nkt#2C zIk-qBjEf0yU}o9dwFlLrcqw{97P#HapFE^!(vpoQeF;bDAhq!QjR!reZ`>hS?mVy$ zBn^U4Ioe~jf?xy?u=Vox0qz&^B3w*SN;0^JzP<#HOj5nS@&!;l(I#HA9*Wj}-m(af z!JZ~G`@Fh%@BksS>svr}^ug!s$hI@g+Q2U%70a>+d@MiK1S=9oD(qzQXvxA0(H8Z# z<6>d3(Er$M;n>Qhai*vG(2qFjkEKZ5L^oM6a2>(=ij5zvC*Q+MhjWgRC~2d1-1O{LnsT_yyWXXp*1;F1 zYp9iRFLp98rMx3S?26-D!EbP<<=+bBby=fL{ zkk;!0Vt14RQ!95q)3{(e{kqmQB_F2Awry|?K`s^uqje>@_j4to2`+QT0``95C~Ml8BdSDFAFBYtz18ED z!;!U~i{Mc?J6yS!YPxy_9dRq~16_AhG-$YRD{o?$@Rnqugu7ZkC264VHEWuAswtdf zlJ@rNQ0rFIhn&VPk6{aXLKCqJU6+Q8g=n|eZ9@{1gPPf!n}3~gD_b`tS-NM1NV?y% z9*@f%yVIr+CDO-T*Ku9h~`je7efp~^) z%nrCJyBi74RWOl3uxOuT$AxclP~_zn#G@lAKTPPU32j*JcvQ&=0}O9aw1Vll2h*%; zTy8nw9LnhA1Z`GXpvo|EasxA|>FOPi@OBD^90u(-V+vemexRgkt<|5+3VtkyB7`3` z4HQNit*yt(V{cx#p_?#80X_0qsgD;U>2)swDAAL^Iwm9M47WwdbI}RiL3qXA&R#^q zla>LwsfMa%73DV@b`i-^eg?(KgzcL}a2T(z07A;T*F<|&zl(IWpxX`RSA>QHxrxCE z<xy>1GQ~c_;t8IRes9i#GIw zQ1W!8(ye{R%x)HEy2xoJZoh0Mnp7EL(Nj54iTDOp#CSS&srT)tk;%l(x&t##{4vOA ziczXwFXWu+=#3MUgHc#Q)48j63&N^dW@Rj_P&dYB+YIauYy`_~vX|rjor4h%wmDT{ z$iyefPx0&uwu>r_>M>o#esPa}q`diXCExRNpVntpq( z0v4k{{CHf*ST=v(^+a)avjvx=Xh zhMy}AEE^aLY7N~j17%+Q+cSrw9KlyWM0JhQ0cMPOH|Sh-pT0@^!nX=zV2O#$h7Pfs zFbY-B-&mQH{Fb|wwtBEI%pE!H&jj6DA`v+9vX7l-XZYlDtqT&)5A+Y1$WzS98NTY{ z{6FAL?%?!YxJn2)Km#AaV92t2Q;*nio?gSKYi7-W?>U&KSo%C%T(eYuC6v~&#k-Q{ zwR0&1fuCVleuJjTFT5MJBlrO6qP~!j(q0AUe#u%14>xi6>= z`*dv2dIaowEwh!52n|bAATxAAj45$N`?s@T5Fxam^n()a>G`ADW-3^@@lp}oX$Pv9(u`R=rb=7PoGF^nasU|VtkO=hrCVUi!N1aUxg7yxWF<+X_ zz9R;$zR@W7_98eN%6bikPb;xj|(>|G<58_~k;2 zhGZb$-iJvS5GNE?=r40QkNx(pZc!(cCL6^`T z0mf*r{L%YL4vw!v^``o}Rj)|-RJP%E6{m@@+ek~u8gfl0udq~C!fLf^CeXExoKIkn zn%t+8$MwgT`5naD>|svBDZzA8S*L(A-R~O20PQfIKaiT0IGTY^|l z)h9L_S6igkRAnpt%Bo9t6TCN6!_bCqQf8gEerqSTzDtaKH9;|vX-EQQ5C|J`(lS$_ z5KUm;QvP@SgT^?RvWIMbebyudgKXbYH7Cne$l!?C&Dta*1B#$8;}xXGg5RN;cWap( zV#BShreCy8e39K#s0hXV{N`;N>Wf_XdGeis%gZQPNg4q|u>*tiZvvPYf7m-BVU2!z zXHC8xODBO=Re<_484CtGC>D6xVZ{R`^m5i~<_2|>?8tG;hX*MmVVSB6Ytrtg5fN13 zXOxsG7x~<$GgDUVj_t9o(PvjH<_PHB!3xbjl`qurJ=9|pz`Tx8Jrs7%e*-pDIkliO zWL7f_Lq;-;?@=WE?p=*B^BrjJ=&%ynap?XcD20WZSK*Hl`SevU_n5*_X?@C0`B z;vC+PpfcjLlxJgEFg#$+W%46~WEUf)hoOmm#Cb_=i0AZC(ze7%VU66#JdR6$_r_I1 zj4OrMwD{JwJTG3gr5hc74MbP>u|*r43P)T_id<8d7k9kZlg{nU0@-qSDI}Vr+^`UQ zbHK4vr|I=qxUcXNgX}}oiCe`)1i#q`;Qt$CcN=W7|Fh8$6d8bLTcq>iOz3 zZF;y4pO~PcU&lxe5v#uJ7<1Ryom*g>;hV{|YK*z+>YhvbPb22onP(kS;xd)WUKjG~ z@mCmMlIGq!5jf%H3*c&J^#}mwAb{*cvJZ)KL+wK;UyRNCVHLV)%E>lw6 z$Pz_Sl-GmW-E|pyh*DC%yk&eJJL2&yqKFND`Mfq9198ctW@Armkn^HEzYZ9AV!9gy zVFU9lZOhXqLoXiZo(H?i7H2WbC(E+1Y5kb-KMY<2Z;vyO3?0>FSBOLkJ`-$^Z@m(C z?7tA+u(lBwB$JjE`#t7P7^feMPJI#v%c@02a^EW~9;A@H=LR>GSPj@ZI~YPT_}>3Rf|_xBT_nin?ey5Ra?7 z-tI5LDeT?(wkX{E3@SylXm;5xd*EumiGu7=z?vR0m2GV`<#xgZ$4@TbVZEEbxUc-EB0MSSc{)0H7rzS% zGV*PQaZt`Y=@@E?_DxsW@>m~f%(+fcH1d+r85phZlP}CxW;HY&Bt`Kig_yV8a)qo? zW@XS1mXdkuqyz;qj&>eQx$QQS-<;7Q=!;(ht2DWU3Tz|6iANal2l3`I_DWK+W*fA` zf6G!&>ZNp__Qfi;?z+8mdX}}5h&246=Jv{uthTB1F5A@%VSKF7&4x@YX7r0!;6Yh* zg)I(Z`pk<3jFn_HIbE+vURbtA?ykG27A#H{;f;$!ob~A-& z($$JSuZf^}LZyQ?f)T9HOs%{sTQk8Xegzm ztngPOzzB$ls7R>fXlUdLY;{uI}jKWI5Hul00fGH0VI(< zDwBU)9u%=)T_2j_>@^9qp+f*P3_1oT7B(pvIRzyZ3o9Et2Pc=1u!yLbxP+vVvWlvj zx`w8av5BdfxrL>ple3Gfo4ZF~(68W-(6I3Mgv6xel+?8J{DQ)w;*!#`^7@9xrskH` zw)Wrs1A{}uBco$;^9zeh%PW6YcXs#o4-SuxPfl-c@9rNSpPpY{|H1_f1o|&n|Ap+o z;X(r70s#X91%vzx7cht`pnxKQffF)9APXo!8rY){G5JHG3dZHt^+6LeD_)}+I?TeL zld$ZN-uwmaKal-D0~YZA3E6)E`@eCm0>Oa-1B3^P1jGk)e@c<>2lH2%xZ!&bZ}0hV zm-zz9#h$O6M)?97si^n@T29=012dXL>J6|ySsXQBvi*+zqFn2wnOiWt&53oD zlV|D$vZ!sN4g=h5HOFd68TSV@?2fTD`mfTVTP!SAEY!Bs0V+p++$yC7R-GSGG2S2N zYD3I~`g&o&%bnCEm8UGvV8R`VWcPt#mo|${=r9fLGSE*EV_^ zR;O{Un_WgxAd~_F19%1%{wCnwIU*U@U9`glOJP-v=KLGloHKik_s9)){b)~oZ($n0fT}40H%NGsa-)S&j%a;6IYKaMALNYwXOoM6 z<9q|)Uh)S=Rp9@}7W*xDzJ0XvFQ64!+YfN+x^fTG6qCY18dU~&36^5B?`ic%SlkK6 z6d=9X=xKS#c}b#@5a0b?eTdrlz{Z+ahePkvKt!nYy2gZNJ6ndJ@KRyti^WQ-<5)UK z7PnN?89hmKrKH;0qyr<(a6>FBDxV#tmWrZ1N7S{2ixk~53rg=tPPrbYmCpDvlecad zo-3TWyk;#PsiBRJaiaxuyqKNt%X~=Go2G+J+5{b~utG-<#QXM^Io_GI+C^iG3ba_z z8O{;bvLevUY*oqQE&2X74iu42R9Z+D6tS|{=}n%Wmo4Q0C(zc>P4^%x)Op^G5csEfwN2ISrfKp#5K+!7Dtda{Mtz1 z7)JG`NsJc44}3c+d?KF=K9^HkKgxYm-r4s(L{JrU#Df0m!ubpT|0E!Er=AyZP2XkI zFQ6F__v!G;Er}cAaUe$O+H5l17~j!`;kmBwQeQx^DkUHGavxx-_|f8tyZ6KT0)h-{$(@HVUobMHjDuEOx1OZG?SK537JlvJZ zukm|u+$nhPvA#5)g3a7$Ww00Ugr*ZqJsmbVuFrA@!#moIU8C)09jWw{J9*(+=K#&u zn>aSl4?pE5$PcFg`X`tFMpdi0{w__Rh9UryrJDb2E%^+fTKwP0D&^@Tb=iq4y0ptn zg`YR31L7gL`xj7PO^(bB%-Uo-Yvv1GR9wjPc-&bw=ShNYny$s(Pf&yEjMVzN^%z!h z%>J0J>1sRQZIwwK%|#5MwXx!I${n-D;-A4gdqHFT3lilnMZpRVLLH7%o7(J!-^#$TQMJZcn$snoE04#2!!DA=i22TvWs; zB%vYj*dwip;%*oTzPJZjk|Mty5tAZ69OxfcDtSBy;7c~OPMX<@pOo6Z$K$T4U=%;{ zgy0tm6}p9=>KMIYXw+)q@(-9sSdE=9fr#N8aihfW%b^0#Du_6;e-bT_E|ttV;j+?` zHo@4KCdNpd!`3{_Da8=R?(;^{=bWoh zQ^26)tA0Nu?`~M{c{vt}t}FShG#J_grhkQz>SpM1PHRWH@~(M8Jz(YNq{y(LR7xPG z(~afOM)R*_I`7|HXg8;^Y{D-*nA6>lm$AHMB-qf zSE`(>fM{7dR55GnU8w^CNz#|S>`gy@2N>o=)iqy0x=Oys5Opl(bWJrFd|_lw@pE(E zeH%0jb1TM}WN#4#Mu&H_eEv?~vC>_`@?_W+WfLlm1p_0Xp^ks}YrdM6rl(}o&pmF9 z5BV(G%-T$OnAOM~DE{3F|CgO@r}xci9(RE&Q{O7l-NCn$3$Jq@K>vZCsvk?wG(Ao| zR0i`v9cxD9fEf1iry42{+!|f2!#;Z2T2N+-8s5{BUZcsedek{QC&? zzq!r+ojF#i=+J)(sOCHj^4%k;mi{Ma1D))&Ey;kl(h-CabKve37{c*BcfIF}a>a%y zWYxig%@<1*{R2cCjDuh7u{RT5wL8gh>VZ>%ZIg|^IUKnkw*conGL6?-ZMO4SXxN=1 z>+(VlzK8R1&G|n38K_7tq<5?FY~dI6QX0u9g-?g3hmPXe{&3-@qoldoG^{KlZMx z!^{6q>i5@$bT{oWU&RQM(kfL^)7YMZ8gk&c2Sa*RD_dsY%VOC)-ZGDJq%EW0y2S5# z_kX8`xju|qI(}fP6fDq7)`M&G&1);!6e(2~az$KEay6QH!uKDkKpS}HU4%xlaHu0d zWTVN>*~Ik;0rK_euxxic3OA!;M!0?`k}Hwp2WX&B;y;dh0O%Gq^WUEMKV=)Z|27Q! z(fnOpD*tYVYvzK4Q~ayMB{C)HLlJ}F-8afZCg~3H1$RnIOY#THG10Xe^E7Nl241B< ze7Bf8T%``ZHA(`l7Bgg`PPutZwPAU_+EX~x%H)M4MSR9Tw8%kxAZE>Mw+gcHyNcP6 z*mpYj`~qsa&<6NTT^0HZc+U0SOc6MeZp6eseE67a0Fo=c7W~g{{FC_jjke-#_@3l*Ori z&ffdkPgrX`-?X7W+fs~zhETChsl;RlrWQA^KJ{>kUZhD~8C`y9=p`894su^P-h9^; z0l0iGr40HIXWlf1-zW(EglY!A%5~kWnA1)kY_VYIvp3o3l#ky{97;|J&JKQW|KLJF z%yWEev;J0RLe(R^=mCNc#wADP0O29svk`WiXHZ#NOlMP;+Vi?sqMFKV7qAbL|8Cm< zGOs@tg4>PAm2+wjYg1iRQBbAbzHhTaiBb8}q0?ed1^KBEiitVPId}C@NtBZ$Q@Fv3 zxfTPtrC@T4<@NYl5xV0!`H&+zEM(V_k>e+_b-&%a_95IMJb3;XYRW;PYnN;$E^}3H ziod&Cl|~y$9bW?#fm~6mI{)rCPuAkRKBu)I z9k?tF)gPEw{%anSzjQpte&NKt%l$IMQUNK7U;Xk2gQ&ks-LYWwer0m_z4v?Evjd^> zQ}G0z+c%m$LNHLK9tDCA{P*i!i*4fnb*^-F5$PPCsT)*v87qiH$QHNJ@H_dE(zKei z4;DTWJ>ow@J=vQTv2i_XubMlX-o4#&-`2&nQ|=f>{nRoyt>i`dbhOZlERI-qW^00? zIFST~_*I2J`wtF%cB@McGRIx;Qe8=e!fjU8lvhCWAnVJw7Vx0d9!ynNWT)gw%u22- zk*JeDNh_f7o4fPVOYwte%7GYTIMdRdr13I$aOy9aN`ERZ@-uC~XTr>cyh%fTN`zi@ z)*8zv^vFy(E7hdv57QxpmqMI|{&AqWrvg@Zi_sCG89Lg>6*9-N@Z9RuNv(w_-IR->$;b&V#HGgj93&*P>GLpPYvB{ zLA@IWi`cC=H@dd;Rq;AkR7IC~WuAacbmbCs8oCdH<)7b@62{|fI_8jGG)=%|!$-R8 zj7IHJ91XzxSxFv8;#P{~ftdnpX-`1?YE`Fv%zyP?Jj2d1jh133;V;zE5!Vx_C`S<&o?Lu$dz@S;NyNdJ^%e>Xz67Cqs>|< z_p!x(+|QxD<|Htwe+@v!FU;rJAMjoN;m4>)AuFXV!D`xX6%3yn&PgcGZjDjjZj`ID zUv9j&(~_KHmcKNjQv!Rc@dyld@VRr0pU)kx<-WNsxP{X1&$^B#Nk&(_a_7%t%}Nc}tx}t#x_F70vU~(;gW4FBnTYt zFn&3BcB4L2s{WOlPWI3FJ1?7ESr#xHjX57V=i9kailly7w2;zc-d5p2FL%$z(R2$aw3v4$ zEUgm_DB)PKPC3qGl6^wq>p$Lb&Qr*xZH#6^)lce+m$iCe20`v1ZTkA*Sj!KWdXIRf zd}1-t3nw5KVUgqm!>&Q@>x-?!tut=UOE&f08Z9!qDe%0d0f80(a{xQ@wXgYS`~4Ra z{0xgCBwZonEt_0r#8ayDcqC_dFgoXTFZ~P3=a-f``9g?9cT-~bGu&*BbHcCkSo*Vb zg*fvVOPw&zg`CIVWJ_$E#?MRVUJ4JLmZjp3WlsWKe1$gE3H0e*fPUP|wosl|*G}$f z&9}f;j(`FMojJ`OZUzTS0p>DmUR(|ndWtg0eA*>lpsE^Ics<}9plPva#r)Xbu;}hV z10wFtf~)8AYK~Z@n9Xfk@C#?H68($)fZMJW^Jh$1VUxV#KHxga^5B#!IWo?)dnqMd zlVlQUIAm>3b)!x_FXs}4cCWbiOmGy9QJ7RHNX}-#niF<^2f!V}PfYUY>7TrLcgQy`N$`*lLGXv=r8H#C~Oafk`7bU9%b@3bp& zv++JkU4=*bAHVyY^f_jyQ!l>dDO>mHGkS~&|7cTbp>{ygtRR=AS+FjcI*S8(T&*=@l16 z<%)h-Zhk{fuSd{97)2$8F!fN%+K;ROAcjlhJ{jGbp5TFN1NO5~_k8;>xD1inD10k) ze$Kr`S!rErs(ZGnyyvsH0ALFT<~Po`Kk|EcGMX>fB{yH_{Z!hUUR@mBH!?lvsl(=7OZBoQ8e5`gKZ+ zKCscUl?6%aUio?qp1$m zd`SI7-PQyYB$;lb%XX?rJrH|3(*2h-=XdMW|1J}t)W0(XSS)Sn_q@1S2zrWq@O+xM zZc?ba+9NUB7hy>&-LtL^tMf0p2Lr{#l2_tx@i}xV;0fB|Q+b@vQz(rCsx@mg)<6j^ z+{fA?elyVPINfZo(pq-xf^~vPn_k)BF6|~2a=waU8vI^1(II4KhxAI%RrgM9i~qC&OfO#Y2E{b%Kp z8;Cx9xdb<(-TpZ}hHmhkK7#4aHf?pmWNTcn$Nbb z;{W6XWa{R62(HOb<%uthnD;dBevy=KFG2zjMZ*bgfe8<7_@xv35BdMUlS7(x8Ul`a zaa1ZVd#*Ufm|rDxF?fx0%z5Qix;T)OdX*gpy9%&GC(kEt@L0T!CJU=Xs#C>E-e&y- zw3KsUYt$k@rberkHa$Ix+EY3-A7}g1YG+xVRIkHDOQm+!9DQ5fGt}?go(qyQs?2q- zk)lZ6d-lY=cY|~l0}P+W=sz1M@|VaU7gHvNMcx|ux?pjNJ;k7*i@|s8$=1Cg)*aH) zGR5_lD9TWh;G#V)1!$hH!*0CfA3(8hh9Y0h{Li1kqNt0;)%u)(@xn>bYgWqD13&*5 za?9D0M7d(4A@8Qsty@ZB@>iBuBp+`#KE(fE(U%p!Y5dgTwRprBL)8oSa)c`YR)Mqv z=YRBkmMqFf>6WswzHbhj`CXBU7c<7U9Q`Bll}> z>JRa`AA>>saE$UTi^mTqa(=|E(f&E%ynAxGC<7G?o`}LPrJXuQ70$*JV1=mFE#n}e z`p@A1`Be9Wt17z0yjj70AF@tTNDly=l%M`tqSIdyl?u$XTRnPg&!Q-*0&8b)d~c1t z;YQBs0v@LBion+#!jS`Nq`kfc&|A( zo48M>e(xpgCgr=;OUL7`Zusu&r{Ju=O(gK0D1mHb90ttun;R6mE`bXCz&vLF^Gv>7 zxhyMRGm>T)6%^!N9=g^9mv5yx0X@r81;7%CRV5+g)9iFgxEyi20r&2?=8!EuC_Ha) z+?;DF54(9;?iJ{9TO>R+59v}Y)2b`ha=f!DHbf-d!|l=HnuWFRlhDC0WT&`DO;uLhudUke zV8$)j6{mCG@XAe#i3@lf9;R3cxo&lyG!Y%9JF(Y)vdh-N4}nbiLO-CNsv>tr!#1y0 zMD?Xwn0U1in+OsW;GxSp&)BaIl!tHdWZ|W|KrN=DXrfnJo7DP@wxq}=x{RN4qv)rG z?WIiO4rg?i)Ga@_-aDKebA$=&jk@4dWX13?KKve9-6vk0ewIIB?yO}2f*C&*wPL;j-# z6CsD4%lOvEY&a2urXO7u80ll_#5TmKMXlXBX;rxM-NMnAd;c9bkV1*$)y}fgIhDsvq zJ-;?!QzT#hgYF5?kNH`~-#~Hvuv7g_TamHGGF9@|)QYE$ zs2=igG|-lfzKE4<6M>IY+KV9T?e4vnkA7Py9L*nNE;;-V(N28~&1>w-PhBc;Er!RM zF+9d7$H#rKM~ez%T6KAnnq>Zgx`Ko~l0A{0)u02k*tu^P^WYE>{kgl!Hszdy(TFpq z^B@dKa02p~mE+!>jq_LCDnYDT=fy!_yT}8o93rafI$j03y{()1d@ThrUP|hsh(D^V z$LSo|zYsmnkjr@|(}#!GnDH=kGz8KSFOc$JblAkqS6hCYsq@V>@Pm5@;~!`soe%kw zSw z?n~t$D7k}+SaS~2cp0a?-N`9%N1TOwG<8GIWthNLY@MC@}mie!I@3b@a z?+IQ&+RNOvQfsLGhL5q7pF|Gt$itr`aM}ZgY2o(=#eWwF7Vg*6otro5rXA3;*y9l` z_d(kT$mZ-Gs%wkiO(a_j^do&&=HzNyI^%LbB6{BE#`bertKNOzZCbkqdHIh6b5V%$ z%V+vlQ6I5|nj}b%Mfv7O!S~iQ|BheNAdh^(m9^S=)woBA&(v85fyLYlzOP2zVvVK{ zR()fzDe!PA&*4~qo15!ctyWoVK%J3Q;8`txhERXYwy@-7 zEM(HfVoA0>QMTnC^RtFCcXnQkqP2@I9 zqU;l&c#TM-yT+>Bt{mUa^}G0r)o`0-F3@y4p!>bSf!{c%e~C$?_9Zp1VyPl&@vEw& z|MlRvUocbu5oqnJaPilMm8U+Zs=dn7s32SFnBU%j@#x^`p0MPUT1HC$J`+cn?(|9r zui^$JtLDy8+N+pg%4FO5Ug6uQ<@mC$-D9fZ=|F2vbV+}62aX;;*3wzma3cTr8?HI{ zN`Y3dp3lanRCV&a-^|T=EH>uiWHV#pJTkOLd+4Q0?-O936-10^D+?(N?u><;3q}QH&DR#e7M{7kr#;1X0s0C;Sm^=5$;mqOq%ms+%d6(T0}ndDgG~fl3YF1=9YB zlI&xwZmt_pEvQCGs2cq&b+?_t5+hWfvyUN{qqDK=viPe1E1O!ePlZTI!)@+Li)l;Z z<)7FPV%SoV`_3qB5Sl34yhfYzc`g>A%(NHk1VpRlC;p&?Op3<;xnR$L59x0)E5G$M z)K1eMf3dPuzIx++f5do;;WXI@C}Ui-^z~V5yfN=iInIHv*gL;xx`&D4t&BynYI&)j zbvljIv;2d;J_W83CrN&n$((CbukX^A@CivAoH@pW-dCfaf0`S5y=RMGQn!Hd&JIFk zJbXe?^PWHW&W8vSzx1N@<;+=FGSWxN#5u9z)s@!Ka(?O~c{#zp0ragwmiWgZDWlG# zT!#K0w=8ENHtzl=;kBlP_8&hExG*H@1bQX=+kvC*mz zi>f=+Nl1*J1L2nF|4RbSSCUy;4yPowzAoHnosx|CLH#k!5$we4nJJPkOiY48uf%o^ zbODmoql8Q3e^(p&wXe(~jfxgI%F2c8-o&=ouyNM01GEpLyZ*^r{VIk%XHryBPFhy# zXW;L-i3JsCFWdOwYZEeX?#29@=KCf?lxp=vtc+^`23o0*=d!Mx;qf1%En;eg>m-Fa zNCD-c;#l6NH&l-sk||=SsX5?sF9w~&jTe+X@S2R@lzCJh4sA=L2(#-%#GiXYW@Fv} z?CE?3=p$sL+%$ugVI#Qgq3bs4di6a&Se9h6fSQBWK#a0v#3idbH7tBP`!|A6&$s0} z2R>T)I040Pd^)=18&O3t@F5;^&r;QhN7%u3_GIV{h|q)W<)-AJcFSw zEm#{0y%YDAt^*>}-KzPxc62s${H^|A-hw1aAeT?aY&i@(?r(QMs7_e#N?4}oi2)f8 z_=sxCZWh9NpuO)Dd4avVq;!YKm+b|W!%R=lfkt(f4vuMlcfU>F3CN9qFFCqmf$dRv zr&;l_D`y!@w}(!*HB;+ZjC+qa+QE|5a>m+M=y79$`k6sYG-h9IP^4OR^=nS7g9rW6 zLKHbkvzCaU`J@*3;8i!R*UqpdK1O%$)#YQr&&dPSYhF0j@xX0+j6M&x22mmgu><0m zU^7^17|t~ZZ&2)#r54WlP@@|Cv!?LnzFj8fR%ofaB+k0l+^pEXebcc7qjCfJQrYzl zKJ@b4H;|y@W%i{v(1+?!+$1!hkRmMMx9yCw$x3r#DT+exn82F+;@GH{utY3V3tcV8 z;C;P^b-3fQe%f?slZ0-ao6yVjWZU+ARB;+N~Z|I<`f&Ln!yTu}vDVxM<-e)t45v3mj{cXv&TWwwMV6x;bv z87m)~ZL`h@sFDmrZJzjftwzLe@8TctF{#)GVEkvzWlf2Rr4@6 zX~ez4_FV1j%ETwOHbq2+@hE#W?;kY;<1~GAJ@(AiVsz@xgwARUE?*geM7x|t;?N=z zt<*3=R$j@Q3)vhT9OrkqJrg2YddzS`Mrzhv3nk7&0zk^Znt+J{ihkp;3vMUjv?9biTo~FyWENX#2p5P$#3)lZyNE zSp4%jrYE3(ULg61rxxvQc>-Doh<)B5wXX*at&vOs43m}I3Fu=Aun-E5-x{2NM0id> z`-{*T*q6h?&^|R}OUXI`ip5f?=z+Mlt}>8LBHiTCK;)jK4+=R7tSaC{xBw}944H43 zKp(Rq6|i}IPi5Dt;wJSAP3b3GVz2{&v&CLh1%XPa0qoWtUb2ubn$=X1thiZ%h}CG z@lR7RvaHt+6dR|n?qjplx4?qRnf>G9VzUzeyPjI@2s)T@q%l5Q^IA#5D)CVmDDm#B zt*eQ!@UqFNJ^x)Zb^6v}U+y$D=s&H1;wkI$l=|Up;HTbDF=?!^Vo~;r>hxxxBpfA?IOmE7x@%ix(IleMLWY3T55PsaHPe!v?j~p4CI=dS--GDuY3BAjT=RFg zI{UFd+dVj4>ZN?q^{$4yG$wo<7>JPy$d?YomwwD|WFUU^#-7*L?}1Ely;RKB^oTza z?vGz(EQG#!b7r2b0jf0+s=u+4RU&J6-zH`%*AOz0`^8Yd@|a@%%N@Yy+F?BV;_mjJ zZ%Tr5MCm@9kEF=8SA?y#lLJXBZRqz7f900=JE~eKj-f{#jv7@LS$TCA4Z)wQE~29I zcP~QEoq((s^F=+3OY$huZuFBhR|7iSE>UcFJUb=@1f$)WjQ#M?V}KMUfm(>t>i~>1YMU z62W~RUzgUc3vuxyzI8b`hJ7+lq%4ai$*fXt;_AW-;^~vCP_3OWuk)q9o7m;Gpknt} z#d82HwGCdeusS5&VMAR4PboI1-hMNhXIfx#RNC4&@3+hLot2h(SagZl&Ts1o#)NKv zjrJm!MB_-Jxh2+yB;72?Cp4tUhMoj&U4z@l$*n;s?erSIdw*9ww6I({ep=``f=|Xt z?#Ul|0B)NIKAJU1NBZ1WuhKKI7y~P1aI$*t_x(6FAhdsU0(znjy=n+(Swzi1AHPLE z4~9;fLpN2RR=S^#QU{C_szcUkclh#jzCZ0E*%dtCQBEikUmUkf?pQm0riYfMP`TIh zC+9~T-*@T>?CxioOlYh z*9|n91-uby4%s1t>~C81fA`FW0dS`%pS^78e48htHF+~PoqSc-;9Q5NWdN#P)CIw! zWX3|e)Ou828jy%BqDDDs%fH~9r}6zeGk>jb7S+lAB67oUpV|ikiYJ>5}(%z4xHjXt#E>;ln9Wx&BLpcc=x+|+mhbAFYhU3saK_Jqe28QAd zb2$MitPh@m{BpOC@FjsTRW%Zgm5x+A_DKeUF(v>@iqVT=bmKn(u|sugp`EEfS`!~l zEIfaF2dRpp)aAOMUHXX$vGTPC!#erKn9naSdKP)I7CHtn;L2 zRRU6ZS%3CE;4z!r0fuJ;-fyQ2hrB&J@;e;3vb5+4MFlqj^V4i~fG`8t7(YMckcsVv zUNm}8_XKpV!w1maZ-T5xL#D{O0NM{3&hfS+JrH9Kj)65l0h0mmJOPF937a%-jhnTf z5jz*tOo0=qTxRKDwWtpN=XeI8HJku6u8RZzXby&yu!kIC13|rece65lcb{M`2BgcPj0slCn;)}oQW0}IoFC-SQor&3`g)RTjh|~ve$-6@1 zPe62b6B`Aq@c9-t)I~5#*2LMTvE(q$%k5!FequC7qIc6{Ptv(cF!D|n1h~B^;J)>L zUS2N*YfnHsc;J0tdK&_@s(}%eMXF==hk+3%pl07R=TeF4-s!S<#r)#n?KgUh9A$J) zjcKk4Nxzn>a%)8U_Uu%N-*sBDyCB3yW@gaeq2j*;u|B1@ul26tpYrWF zKcoS5_L9Cves@lU+hPfhWk#Y5XKB*2W^QeXO_A{IPWs}awn%owt@|%|X~~*!G7jxg z;s)kQ+Krpqa_FuHv=&q)l|C)>tj^5{zRvrU;b0Y{m(!)V)Tz<1VDA;)gm)=#rC&|* z32#{A%-^Oe{to8uo8?O-ORai`S39A6yfCsL3H};?haCWjr@YI@`owdZ9 z?R7UuUgBMT7}9#S)j!4Q3Tf*x=gvE7Hi^njHt(H1Q92HtX3j(*Lh|RrWoNoKSwBOk zNCiR+ShKGOn$ly(O(XteE`W9U{-Fb&ZYf#Zm#*WT^AtVQNGE;{qLy)eBXqcY?UE6OgLYps!Gb za-#*q%c*38t1pab4ZQ-9To`9Nvdk>s4KEh(AIVPI5j=~#YBb-IJBV3v!Sn;qMsIan zsZ%8ON~aAYzb$Q3&5Spe&7|v~$FDEdtMqd-%U-XM86Cc>(7-R;yaHO2)y^esKvTN~ zaH{rmUp&YqCSo&tf;TihiFbPmfYyiJrfO57>!!;GdbK7Is1`j5JyN(<)mqU>@k2jE>(}-pbgR07qxpRHTLrn@e z%7L-W+25@sV189uz;3;Ehp_dhnrjh;3uje(xCJc@WqlM1Z$5|=l)|W*-@37V+s;T*j>90G%vA)?pSo4jg@I27m4*8V7pm3 zmeAU0btNc$5UkbHQ>;z(uu0EskXh)g-x}!oxutVLUc0+E)sKo?^2 zPDGjob_*lK)eUG9;u`zqfPU%Ub|gTuUU4T6==yR1%*Tas7Grrbq*NA>h&_S^@%%D* z;pPqWU0E6QFm$00P(xjO81R$tHGhLEVi`M_vA;|v{d=(=qs3u@Ss=eJOqy5N%@zQ0nPl)X|t<_b19)Oxp{{rCh3i z!82}tTf_U3|GdA+Ch!I8s;ZZ-F{mm&1%1Q>cp<;qR^$S(Seh*O;q(dU@O(Dg%ZaUP zX7D}06OpLCs(>S}V;n`Ug;MXoR!Xg+tl^t-cS>`gtxfX&mdn0K8o-n(1khVp-&925 z`K=XE*ny^ke{T=S!@>Kf?G6Yc_}}h;|I_vGPt+Z-WAm!5>{PW9LvTv)D!r;W+0V5m z!RYR!r~Ioo(^9j z{c5}MH~W(7xHmFY<&mb7O+ZS}qiQA=`%Ze2u#0>lBLUB(A=+WAIo;-{kcW_`6Y!gIo$N+qJh6*@;6Peb?h*qeO}3dfE_GNs{-?j&VO6x_%GBx(c~Uy7xn4gf^Gkf||UkBy75N zQ36ILIS)ruTw(Rh12HaMvPI&)RL<&;d8XE%Lm>t-(;+vjET&>buQEnRvlw}LJ{Y=? zg75fHcmeBuwugS*h+eR5NhyIeeY5WP{VP$VY?+Os+C(2?@3G-JAF1-@SC1^Qr)1KX zZPUGAqtJAHw!Q*?ild#h9Q~y7u}N=k#DlW&YO?dYIKf@VHubVuy2USp-CSQ$zJ z_#r!Nf}$c0Hu3}K z5nc{`KtqhGVW@@l+;%C%jlzS!!6GXUg7kiPt?xm#I7sfTHWo6n9CZ%tZK$Q>Z$;SC z%BYy5Jv^XZ(c8Ckftj|Z6wslm-RmL14bBTg&4(l6ZEr!z2Xh`Cgm>4fy#=&qp2R-) zV@NapduHgb@@f-FsJ)<1Fut_)sI;hWC4a6-EIs-KF7XXm7`}WJL;uQMA?blC4j`b%5G;yonq=@D~n)V#c@PBA57IP&4%tHLkMeD5t@H= zK|+Aiv8HF(ihM)+E~};^+4D=Y9=r~XSbkoL-8=0H7*K<=%~%*Iw>2g8@D*=UmPFAB zMAo&&%1ATQr#OmHWWAWB3l##n#hhI{p6Ezd3{1@}$EarM0D`WX=%xD#RL)`)riXsgO`;QGH6|f7z|CMW{Jhi<^omIHQ8o z8|mb(Hof%e%~an#FCk1mi0>Is)z5=rHQKe~%(^q)CGlo-MsGUF8Y^PZ+)Mp|)Ozd8 z3$8BpTv<%{Bj!NXcoJBq_SAg8HJ1C2ay@lkMCs~Fet%w&ml~+NM_f#2MICZPxCbu zwu^RvVvjK7!rGPaE`eJ=D;+gm3zxFJ^`bneNKxEa!#^=B3nWTPv!BQGhS#S`Z4~38 zrN|^kGkcs(yaOM~qCe{e()Xd-^uV#oRA1dZB_==E_Y7LK^A)VJt%ABiUX`iCza+YJ z7a800{t<40zTnACU-$g+pdlEK2`nx zM$RrUXXf6h6EHL@eQo!oPMnrlH*OYU_!W zlry*aOzkjvae`JOq#M?18)Ji#X*%XrPa2Fc?~+b%PN*`)Y-EU|;XBJ2BoZq*r5FEI zdr`Zo&!Iqj(Sxe1>6CYQLeOx`dw|xb{MFx+PV?V-?O#+{`KrN}&R$3y9r2#{8dsr3 zF~=DK9L8r8o}92+?yfEjMP2Pi2TS^@WX5Z&BIAhh)TF0;#3TaP`A_S@gk8^HJ^{fN zJi|waKa0DWM_vw5Y_xeU9H262-<_!uuD{zon@md?4^S4Eqc_kghnAbA@wTpp3P|DC~(wtJhq9ya`TS%$izGUWYQQ!2tMt`8E{9QGXYX( z0cv7Q{ira!!PYTO6m7VXlcQGez`{D+zIoI~Ll{SqA>?}blFRz@^-HiJTL0WKtZR^;()Ukb2Xz`=1^a1j`<#k~mKrk)2=D(6Y`zs47|MA#=gr55iR(Gy; zeY76_oG?uEU7ZDS#0HTJT$OBpjM_%A zd^&amDWfFWtFgK#@!a3XGO+o$Q!2rIugD4l|LDbU_ z_M-ynR<`sh)Q9kHH9Ht{AuGX%)K)wBv@BNLQfLsS)Ppx(PgP<}(nV`MiIyDZ;g`8K zu~Uh*Oh}kt?mYr|CWC`>OKSyu`*!$lI9}p_vC8lJdd zg!i{={VXGm``>E*f3I=<;<3VDI!@B_Q*nNI;Q1FB!AkB4}~E=9}$Bl>En%1$+dRaTm!NJHumW@NyolMz>^O#dkH}tE@5nG+JdR}^(S)$jU zO+VjExJa4g{B-ha$L&K0u(wNbbu-heL!shq@e6OH9r~eqCBkxkfg|?iC4SRFZ)R^V z2M_uCg;c;UrNzDhoV|0u*JS)xT{k<{PQSRj>P;+NS!J2!du=fcCrFoDpDX0mWZ$}8 zjf`L`#R6jcK8d0wz1{N`*DGm=$?ev}k2HAdK=@on5cTJDf zI}CSs1)4sqtIDI%V;aYZt=N}^ui)BWqmw(+BGl4w!@HQ)!PJu8VD2MGk3DPw!WtiL z>@M0{H7dn@RX>_=w)q+AM&ga3pT(^ujNXb3eA07I8v~3Td3?h&Cm zidRTsfC~8vl9B40+D;`9ONuL#sKx2QyR-BViH#atB+#lP*z0`Oc=w4UL}4P;foOJ| zsKS!Dt~<4Ht(Len>`GVs>^6p8vQ8g;`$b2=LUZcY%QGbr@Hrq3dg5a6|B@~I|I>Hl zfYZY(km*@clM#i5fec%=Aj@p2o#n%LEg_AU6AjcPa6k5{j=i;(gmN_y{>MijqPW`S zri6GA-C25IHrc+MI{aI5wBfE#Xq>RHHdl%%OAYHqIC~~!>{#PdBO+Wr3SN9aC7FrX zXimTzuNti-&siCXC})jKWf@QAUXG#*?dN_|ZujZeU`s!TRYR+@svb62A?q$i5O=|T&Kk6vQKVuXc zZ=j2FO60l=+c*}1k9Qs5DQ4ZyexE=Sa*mI>KQGNf;7Q&b(7a7g(r(t!vldV|g3^Ao zE&3M#8#0k=y`B>fG%+}9E?(#C%xL@o5vbotOQ9*_QKFP&Z=uGf01tvZY?gJsZ9Exz z#Z!mMeQj`OLI-D`0Ms}Aj?%QgNLr5Q!Z`_j*v(71MXX_-Yl}{fN3|f>43vCz=aQ6p zg%HVI*sXv9kR&c2{?XYt zF2OTEDryO|5AgV0_UyB`4&%jd?6y@)yQ`dl*pOCD>lr_b*U=>XdPvN#h0gr9eGY?6 zwF>~m89YDNbS;Dd@sgcVD#I%&<0IHxzz@V&&`8<+W>(x@SoNhSim^`tlj$AJU4?ha zAdIJHjZfLlf021Qh4cD_hNU1?x1+ls3L-}2u>7$W+`t{#in4;{I9P@@tUlRbZt0=> zwhUkw4+$tHGp(xc4upWra__O`*}5|x17fx~RFYOTmGVT3Y0hVNWFlWZyp7SUuU~rr zHb?A=u@;4~)^-%}DcM8>z~nvB6Lt(2Wk~QXk+7O|`p=C8Ns`a2Nr)aw`CoDOzz`iHkr zI+?ONG=da-Ey2$rN|0lR1){gPi^)pwnUeRrQQdL;BJnV!TG(vM%AS$5@W8@$zy;L8 z$cj>-PoMCEs8 za5tY_d3P`LfO=14C|g*_$O&M2>cJDs0k!P;SHR);gEaI%=I4J8h&K)qf{HFBz>XA? z5&6Uwq8H~whC0q-{zUGZKY(uiX_RPiZB)ph@$>2~=?TbUq?&kXT(DA;WtL1D8^5&L zg(uI9Cq7dE(z5hfk}?pn!@r-MPg0Oksvo@aNGU*Eh;lC?Yw&Pz#&wq{Ho^RkYWHLX zoy!Z$AWS}kPlqPC!sl|xy9Kk7TQYIvi2f@k5YyDeY|3|Xl>cS~VeK8p~=DMCqZEuw@ zKAp=$IFQ)yxIbT%_b|RU$>5~%W-F#5OW$jPk&9!{c&*)+e}_v9h618`Nfx#>UNboE zclYn~9>QwghwgC`$;Has;XF1b*WiCr4BI_6?NoYSDYMLwYdFc*Ozl&KTB^74ywZQh z?zOSi*qH4HfL1rSxLfZS-p@C@m_Nn5vM(xrRpn2eu>8g3VRR?Lhd2{7h<}pv7JXZ&<}(8jzGkclUk@ zE);^^j6?fuqFwU%2aD#rxzoL&{qt?F=J~~(J7*-Pw4$%4?ol+Yg%Jn598~lVhYX?^ zr&3pG7OSTn=XMOqgX@)%CI>+Ovdo1dC0gbL`v)zxG+sgCESznB#_f7*cl~lK$JT^= zLB7Wwr80_;Van@-m7G_e@@3dVuL_SBjPPWpNvD|$;$~8`wPFnc_2=zuevx}n!*Y6E)=<~saXa`#xU(IId1D|%Ko-u1y82hlXcc7a zFr&yYiN~z*^}=tQO27>014PgR3?1koz)C$NGXM9D2Fhav>$(6@sdVW9j-N#9U%arV z`k3RvsUj=WK5XV@HH(0lmztKE2y+gmZzWvZ`4wTz1Ls;PfwV9qU!Vi}ECP$)0CflK zv$(G3k=DFjBnfX50jR0+vwENO45r&}E*y5gwF-M_I9I10;3M=b@QtwWt6bNBp6D!a z)avY3Ad~-lRe_~yXpZOhyN$RsBjxnA;YSonbb+yhhsT_Yx-2d+B)D<1tA&s0W{617 z)xO)3m(QH^-_5(zyKV?ClzG*3;L}##(L1JYc{f@)ux+FKk(^x2zIZf4QUSw%RSx?H z_*&l^H)3Vjr~d5@u462>G}&ZOGi(kjAP>;dnr5fi4p(`%?lC0bHB<#sUGF%qBmN^m9n(gdzkOoKiq$+PKX;JQR0kQK@kc-y=0_^m34uS)0=V#lVH1ZKz!(d^ z;D#~v|4JHz1~uJvWsGI0<)RL#V2>^+&koLq3OjAR~4`y8>&-Z3v248qWctvweD-n zcW4NSJ*5bu1~AB=HChyA#027YR_CIg(3yS)@rgNqTDj$_I&sPn<_Mhj;lDDAzdjrC zWk`{esZpP4wyoJ78B)$XV!|t-EetbcPs@Mfj4(sVNJI4p{C83uLbw4} z@8e}j8yTI(7sb~^duI(kvXFp%!GqhmaV0S>x-dMBId#AXOiB1NX2pK2XUTsy@4ytD*ke&x9`@F%tgZeP+>gw1<}Pg4~u>a!g?+C0j`34 z2402OZX<+9782HXp`lphkwb;BQ0dhSm6`Zj7Vtq#aZ8Gh01Gn}ocL-Jo$}X8gaAK8I8c4uK#6g1ZNIckSQ~0fM``LvT95-7UDgyEeD? zn|J2z?0e?!edeCIZ)V>6tG~ATs_I*{q}Hn6FIoiF^CHtiCFwv@ZQ(Pcs}(li7r14; zHDD#KkZeaw%LBJFBCR#e%U-(GjiO76MPkdrBa_C{<>ozhi)~he6v0w*Vo=f#l0e4` zegR$QT7i8@6Lkp@Jwi?}2(|I3mA)i28yn;8YjGhL$*tgjsbW&gTo!eD=&LBpr-p}1 zwS5CuSSZjdA|zNpzn3_^&nao=|MGP3Y37)|IZv&ZDEXq=T2R9#93l(`X8+yN9sdz& zjbHZq{#Lr6JsWXJQLOP)vxHZ%stu!%$>P{|ANAo;!eh^@_^Wb!ay`ODwt{ld?u8JF zZvGV9`(`1AfcmnCTl9YaUP#e1+awKzggD5XM9FRE&X93yh<7#W(Szhbxz#+IDbP$Gr)PRMdhb#|Vq-Ea^$1RT(r0Prei5cgMV^bj z%A?~?Yb3|4Uyli6{!5@UByL^>VlWdj(*mf9L>ZSoCN zZKWj_`iTcgIl@>@S9k+-Q8D^qDtD@EMuk)=3my#!{|tbhZ#{Vj`tUJD<$Ail(YE~& zmvWcjo&=KMbY`fqVHePdzX-IBEh2GuoH8Ymx2%X43n_fswBM+T{h_+`z--u_lZ;f% zPs?E4L5mHu0Ws{e>otn*v19XIDk2o`Lq zJp+U>4UaZhZyt`>9ymdVRZ9KcHiZw;o7ja-aE$p(Rp%R$sLc& z5pNIE$BlN?ViI%YXjrEmk=$Gbja-|sH)X#ap80Q)7yri$M1`m1EVZR4yi3S7+7v_fl$CL9~kJTNJHhxdKL{NHW z$EZs__x6-~ZoWELXm)i}X`=p(Graj=IEY-)I_7bI}VbT1$5-2TOq@AASkZe81{Ji98ss$TAz3oE zIXxu8eCU$x{Q_(OlO*OltJJNpAC4mYmk%bJ1WdLcRL``1NNQV}Y8rwt1g1^_g#H~x zR%f%5cgm_0dTxf@*d97Pxt!UB7OAa?%?=mBj2j$}z|diU!#}2*5Ifa)gEH44ln2PmdeT5!!WZky<{_-) z$6M+f3_d=2kfjGOg?87`=5nV;kU3zN{*G255jGzOLnz>;2WnA+siqiYa~F79k-P zd$EfB)3jck0HG>2ZV|sOy5)85edU3k(%hS}bZAxl$clb#?-G`a2tzyYDYzYSK+saP zMwV&lOsTmUvW4;GzoJuu!YBE((kVjL|6=Tb{OM+87{gj!RiB051@z9X0U8FUGhBV*GS! zg`Ma9lU2~Rk7T6j{ptyNXQj^mb@Ns8;z;jJv=yG;CG;2j@6gdwfTh!sK+a66p2A|8 zo&DKHwwk9Y=$to~#O>3+il{|_zy7+k)@+>mOip_P%a`grgaA%)ly^k6cmET`@Gzh3 z8Q!F|lv@y>UFs7N|7%z{@2koJEeln!?R8Wx(e|O$Punf)gUofFQIdG+U-B6L+dc?Z zuUkV$&sN@)(O=TM{S(eGXB)(cpRy z-Ow_zk{>@!6%yaMQA~LPnRmk1qv2EckdISJ8ju_*MOQy~OJrXidR!g!%;{;HCmJS( zZdf_I?ejc)>^4QHK>azrkP8Ooc_c+JG8hq4z@K?T)<|OJ&c4SJR${iL{QmWKKWt|_ zC!(j`hI6n-{Md9fs`YQYcAx*YVE?PV{!#zQ{=o(R{J)uQ|0~f+69~)Am_vPdDGS~! zw@~;EQ8Xy~5w$_`Uuvu#ujF&`EKu=H25AGrlAC!CNSkWHpo zzr+>YZGdwZ?tDZGKx+>=HXN)NSRF`|1FZJD682zk%aNUiX@0(9+E1qgk>?-Ss?T;k zBS>aben=^M|Fp!IkLTq{*(p4p-ftE<04;kgVTG?f1JE@O-Ud<`wCLiKdpuMYf%Qf$ znlWT_h>4^e^J(Bq*&#kR+keRj{m&xtUvra=&0K+(A=XwlhJN~Vln%`I%8f4pKF5cK z3%C_wpZ{r93#G;8*Yo+Q^Gnp5Ho`>8*QD1R7Qgx3%0{bGIfvt0^WZ?&EM11N)}Y02 z2I+2e-ta`I7mwff_=Ps!*oZ7x7=KE7^TNR{%KI7643ur-#+sJFRO%X+!Iva(R+ATg zM7ATQI1NbfvEI%=TtH3gp8n!`A3f8Q&ZFct1>RUJ49|`X%MYK>p?U&#dJqSSxo7yU zm$p#_wv9Z5Yx~wm591PgHC-P~MlH_fsO!z|b9Stc=rf4M#KidVp}Av~^HygT@2sD4 z*i|mi2;5^s6v5QmKW%b;pWgV7y#6&C^S`G1{rB(7{@v}NKWueD$DNS`tYvUES4A7; zQswHc-vfiUPP%_^X6G#9>64ktu*yx0FDYCA>OfB-NagGg{WBHB@8q7WrOxjf19`|mbi~f>$NhB$ zh0f_v!jC)^)`gv5g$oD;n&s6_;Y7X%yD4l!b66%^6%&bu$$;T|0EHa3B5h z95XHU*nx!FTE5tYc#X0X1<=t&yPh7d2Rhh=YpI@TgJxo_przhEAj(p+k4pDGzLGFY z*g6K%-01Ae*bFoBb&*iaK_`2mCS3+E7x)|uVs5-lMHZP<^dG5BH~zS~;U}1NE`(pJ z%bjU8S%A?=(RDEKVT8VTg5R0kI$Sw?h=_kT2z9+ph{2nlLvu7Cr&ctCIxk;x4b z^IsV@=aj1NV|xVn7^e?80-(s`=rfXuBxJ8l8f5Qt`@U-H3_Y}v)zuV7e1~D=A#||a0L-Wb4kZjyKj!JD)SBJE`C?`Pj zgTobEZ!;*i;8iKeNy^|CGRFuaiL}_ktI!PF$mgx28WmSHO-PjG_h3ORUVu_L|uHGWj|7eva~}= z>JM#KBMJ8MG*XRp*KQ|H5M3!4Nz7u}e#a@*YV??Qaf_j(aht0(vHf{Sb zzjNw|G`tt`wu=xV^S?vbE#ueE(?zSK*ZS}QH|Y~_<$Z*=z51|g&b}N-W%9*{8{0dn z9f7`4Td%3tZc-yR+v8Wtj`Os)wvJ!eo&ixauM0!+x1;ja7`koJNFbEZF)LyWj^Z_9 zd{Whm?^qIIu?JR(w>&-ZL8cq&ibSOjUlxma4Ad;q_hP<3 zmZ*|3QkKzfUc_!^b5K2bMT_S&c`_63#eHc|7__kOr|20Y=>~Pq-B2Da`28m$1Rfv zA+B^te$MaMi6AP!BRS)kAJ^( zCF0TKL!*IDEBf86A%ns&o}{4$+Lam}R=nd{Ij5bA_~|#tq=kFJ=z-LDo<}p%eMQ$o zdcuucOW}4pD-I=_t_`DHq0ew|R~+f?tHTCM(eZ??w0^GQtA?lCJ9{Zh&8O)@md(pf zsnGHIRbV2C^AbVX+Pqj58#09pqSnHVh_D`YUbb6}J;jk~r*=lQ%&YsPgHpF($xk)f zIvpBzrFMCz0?^T0n%~+5+CGMta+~0OpX)~Pmebo)T|E;!uNVvnTYE*;zy$x;_(V(D ze0l`-`I&deB)1YA-L*m79#rEdHFj&{%rFV3b$i)vd9Rn8YrWx3Zt$|*yQ!CIlHwUa z)c-`UJE}fuTg6zZ?;?QXLU7K1Qz0UUyo>YRIicp$=BA7v%P!PBFkPkbRIn&a7vB09 zr%H`9bI9Cw6(rs!+81DsSEyhdEzwR9+MxwHlYd z6Tiz%gNl&G1slR9&M4l-`)*Fgw$Th2P+dqqwB5Q^~qdiyLH-UnX%Wlo2!jvCfFUYRrKPhxfE$^&7>urotd$X)_O2 zk9|B(IcD6?G{<~iAfe{f`=XpM6a9Zno&HCE{vURv=zlhz@*28YEA!>UWf?{vhq9|A z=(^?L7V!ZYe`ROom*4my4tj={rkdp~G1k%zG*Xz;;X1DP@hV^by%i6oyWKHyAn0A^ z@S3HuayYtDb11W8-YGI^sOoH7i{h&P$@Rb}O}Izo{cZQ*o;HXc2C9 z-yMfX5hO1`kZlz=T0QLgRW+=xId(7CU&m0rMxQWF>eY_bV66KMUU6!d3{UrUrny5> z4}t@bf7ariz8@5EP|0Ba-i6Ht!x~j>EZPglW7>xg((55_Mwre_2~XAr%ZKgr_)$Cv zTsO}9Nb-fL1J`~kGq#u8BgRDx6R+JvJsy;#cH$fPZ%UHy+>$&xDjT2rB~a5(z2u z0~PX=-|^G>wyyA4tr==x`6I(t{N$vR>jDe$K+O^3 zI=`XmrJ>arEpdCikV49>iTP8l2(UXVa|tZ+W8C3Htv=M zamV&Tz$5J3t?=yS8+=-4DE!wBWn0|*59mt34zYCtJ&-G_&EB>+iv3=U(p5k^W$#lY z4-h3!@9IK8D(r&0)x2CB$EjMy1D37uQV0Q6j@AVdxx1fs6n$b%iH!R)dOh=q}gW0)9wY&6qtbxjC z_O@K-`Z?}R7^P=GtxEh^L6|x;Lkax8A-{^Jx+|+2lHxMbu34GbnT_8Nrd~u`l!5&d zo%0!X#1N*%Tcb3Gxx!K6Z8=08TeurG#jxC`+I--c>?nkkzVa3VC1X_w!P+PSo>Z$0 zMWpkTPtxSXsIvwszM>$Fx~%K_#n+%iEFJU|_ce{vZ~Xe6b z9gHS$789c6#WX7{Iwfbc?u$gkI9tma+ubPO6wf za8Y^2q3&A#<0@<{hXdTln3T@uQ*gPfB}W;Urpe7jJaYE1Dxw&dg3KG4ml0JXh%!tF zQ#(KmA@{KA6z&oBGcN)?;veq>?wu9dHE)6tt$z@@O#v(w*;1J?6ea^039VL%lc70c zo}w#&W0Q{0fX`omXYBn>0wxeVB7Oyj-w=svI{So9@c~og6`P=OD_diP8f~p!dKkhN z1Ms~K91cwjdZ_y|303ny);+%lVXBY&48nK#er8o0Q~q_1-x1WQ;#>wTeGG};NLsHdF}>F=hoH8z%iKp~)hlPt;nWM6y+tWrW)`v5lM z>UzI)RpQs-j=>)3yU~Nil7I*Gz2GR1Uj(M~r<<*ERlSy_-s{EQ*R^l;YC7Ca7~JXi zWdKfpK5=6DzxIXXmwvp%eiSH@DKR@+mMyAbkIjDd3ReS9LecZhZ)0oaDpA)gudfWX zF$~p6V*aVmUyIEje?|T87@f(kN5Fi9S~P1;k}Y+E&gX~{7C>4?z0x1#(W0#|=t`O@ z-uhA6!B0ce^cf%)ur;?8O}{t>C;cZQ`Ewz%m6)OiB`Qg(U}`RNG+V>PBNWnPfLI_y zEr&ctP4*+WP#gJ0DU-M-Y>cKpK!#crVDBGayDqg(-XfNF&g}6DV&xlJ1!L~=B@XTf z7x=}$$TWxUY^O(luI!jw!WME@fw|DQK402r_${|pl&??|e=aXrfxk4z{_9f);4?o) zEJK{=iZS4BeEIx#*6DJwt+S&ePNh}K8>m?2ER0oV*Nld;uIB?m z)giAdO$qPx$Wx13mRQ${5$MS2TQLsaMoe$D{@x=eRsHM4LACsuVAZEI2Mn*fJ9QLq z=BH@G{#a^kp(V19cypxk>pG1_-uIWcJX_bwtg91&aM&0JAHVp3yAYN4&k$Z~XZX~v z^SwZ&erfhbWd9a>7e(F;T!neaScwUyVY6m8x*CMc%>t;vgQ$xyzpykANtXU$trOHm zgsr#>--mVns`h^w#b@?Z>B+fIa|>W}U+u$r&WvTwAk^A*&dIGWMFxVlEU+Hnbo%#y zT(?c9%SFyGAVI382dOT7)N6I0HPV>K#(fwy_LlH??EKUAl-q?JiRfdH-Vna;Bb9~l zPsg_cwf|F*kw$aP#nX56bf0I?XFz+V*F z9~A54^(0Ph=&)dT5mOs+64J~1TDcbc!vW9(SH28{6ZW|L86cQ>hYswi9}R*;V~lra zjHC0a6t93aoj33=BdmMn>3V-v)sxrfs76s9GB~R7;gXgV3HutpqX!VAuj&fWE*|sK ztUpwuuOzvrqrr;XZe?t-RYEA|3C>B|qK&@e+jVOt8Rh)AJ z)aC*AYfIDa5IrUB4zrm-)x@??T4oKIXZg9Mo<+h{=OUlsrvPh0S!zC&#N`o+2SJh( zp>3fK|H5wnAUmI&mYH$qgokCCv?r@oh>Kxfp0z)euhkVBPw|rA4G)AU!NUEGP?c3J zlEr*3H_742J%sHMQlE3R%j*jF8Uk?E0;$QX*Z`wzjou?a1GWTLAgF-_4FMH%n+L(C z)eR&MjB?eT5WKT>i&`s(2iH61bAGU;Moz{uf8mLGrO$xeWihCB8+`9$`bb|F_k&HE zolUTT%uSLu{KLDK5rmPA{KS`$tM19+L>?QIJK=7+}+bcFZR*K3x&U9B(L7urypZkZVqHl!@Af&}lqffWd5Ef;a3ETU-_@`31Gx>0E8;U1{@!As% zgw$ib2A*-yxs7Tm1BMAQPuLA<&dW!C|JOHvXg9ISn;PPJLx`#Cs!qK4fv8~7t$HCW ziw4CxJYD`y2da;x4?om_N}8b43=7c33B;s&aXkaDG+EtXw#)_(8Yp`f5^q>e?Ia4D z3b;CNMhDCL;M&Se?-dRUCydHmULOtkLGIb%UIJlAZp(Z+U3pab*e=*Q&!zrdmWM0^ zQpUNaCkbK4?)}Y&+=UcT0hyoRAhqC76uCc@_gLGTK6{RnK{|bZ0`}5>2DC@A>V>!} zq}s9HhML_|f_vbQpcDg+3S*nBM@ZL$ z&_$=UOD*?T9!#Zzu~DByK<9>#g_rxgYe+9491xIJAhmBR@enb9EJry=?;0RX()3`= zwshdO-fUlGnKAHUUvKuQRqwZ+O@h535p;VX$!Vr0a5Q4&W~_wdf7QwzJ&+aLF8W|q z3-%tozl&RX6bZ$~Ku)bN5p%e;{ZfS-fj+{k@(j3@W3RlsX@xY61EJL}3%<3c|4g9i z0QJ&m&m&ClRt*w>jX{>#2}F$r3QEl^p&vOMn;uK8%qBzB68tu#`+_%_HxTk12rYYu zdp>ZqZRhC}^r)f_>}Z_=?Y_x`3>01Bk$zYj>=$|ugwXq`9{bO4f%=6yA4mL{3C&T{ z2OWup+HiNysk5fMob{3HIIaY}W6}+lkziVLj*0G2is-B$`O+q#o z3?(Ddpc;~Pex1o+3QW99=X#`WX1>{mOr=Tmt&Ef2$uMNC4Lbr)D><0&5oq=xe!Bu> z$}bcl^Pl6B`6xzM-;#Z?1sW9kzNglcLi-7+rii9E;tUc4>p-%bkSa5<2oOx&^#1fh zu@^tb^c13)XhEkHSGM&xqejyH1%Y54z(XcJWs_vBrti z6WkNM;*OZe1nQ>u0`(mL*OMRs)kpvj;nq7rP`bGi>EG(S{*TsAZM43>F1PIAY$ujZE-#Cn zTGCDmRU%ymXx|&5NE8>@maU!Il;_D6EDmC4Iy+u#lo>Tr3#9?ebbj`{>K793kpZ|| z{v+oERJ=v@%F1Y(q}^>aIT*+SUHLNK(T7b|a4ck!?42JdNZ1fhi2E%O2&$8s3PLO$ z9pJ>QLa%4m_2pg)WBHGUIOWViceN9S_a_@GF<=i9%X?8Dv^syS@%)xh(#FV2{Rd&= zbolwMpb_<0SWi=dBIuT!7>$2LLZUVMD}^He@|)Hjt=3s*BI);SE#JKPWO(E2?C1M{ z?i3iYBYcK70Kxi|mBpuMxu%x$c|CIKID;#z7j^<8Z(exNkLG4-HJ@Dvx|WDrTW?#& z*qX?(l=S$R-0*>|f^huy+Kx}kA5CYaQ1X(b@Cxm`;8}}QTH>B#-3Up}!`O@YWTAup< ze8khx>taX4(E&8EGbW)+GpvKN=KE~(kSQ_jyjGpTCrZQqQl@YxHK)575$i1jVTt<7 zBBe4dw29^V4A6$S0>T`Drwb4|ZZ7aV1Uh>bGTBqJP7gYYeA0YfroP*J@kT~V4-KpF zq#N^%ApeF$3=Ioa2gxMHdCo{XLB)j|$Eh9YatLR2?l^>?>hFSg@cgsEJ6IuT9e<;w z=4ShEOi7LT|3i2DcY*G>-2Yn@+#k~YMHS`iE%hlgPAf=#slj9j_ll3497CK zdr;KcSw;_>a~WJq&wC|N5MK4U92nMibM*q&2LJfZVASl)|ufmv&n$h2_f+6hNcmyDvz5_J;UB( z;ulPjsSBl=$)&W!v`k>g_P4=3`o7&+u z?*oOqiOY|JL5!%cP=zn0VOs67sSM>mXEZ`%QT;_UCx|_RW7&wlO9UOVL4uiDH92`5 z4J}=FA@e}vb1IG8rAH>-w~!?1E_Bi?Xw&nw@CkzWwVSOYAj}b8cjI#7&`~My?Sytz zdGYPseOSg{FU9US>wOGuE_|{V8d5!iRKX!H)g{cbFjV!m=-?Wmzr#A*4qJHd=blEX zphe$89G2}MV}GXIy&=8k=5qF>xy|Tdh;@wuT`ZBnCC;* zee@9qHNZ9G)7dAeBM`+q0_=0GezXU+p0mmU{+d^~N8QpY>`Sb@QVnJdjIqnq)>}&1 zR#2H^D$Re{K9`mN`{+)n{!$tlT{R{n3m5hY3p?i42ihWXfpyp#Z(j>e5$5 zUgUSpM}eD;Ow#}sjtfAq$Aw;y*JEb%Hd{sIF>q68cz6$c$MZ7SBuVwMvNBrT<`MXu z{&=-WF4Nxqg`Yfq4(R~#pj~}z5r?M862~lrzK(xyLbch{UGsvcp__OTI&XXnnVtR9 zg8e7!#9sKXK=TiUj{LP3?Crc&{67j! zA_lAbF>SO&X^V4wRfKo2?hiat_S0S{2tFEmFVnPu>}W{n01&?mPLd9p~KrHa;EmMJb4j4Q_jH$vCMd z_>0A8lFEje=+BkerUxdjXiQ^QsA<4H8JTLeBaI0O ziXLy1=t&h~FTDY^96ux-KIlHQciRt+aRc&tw6i0*b}qFuW{z3Hyq5EMK?)N2@S}`Q z(0c(Fu`~nyiHchFCP~g13RJy6M8r)aE%0gk=dz3_9fs87`fVK%UOY?$!o|+M{pts+ z3v7c~rbL;%DqXmvL`ih#Up!*LA7{yZ7o*i^Y*wY0y1R`@sEU`3=^nJyqL!z7f@LZI zJkF?6`<{W@Cu>!QSWmAmC-;Iv-j=i9(_^SvF%G+crYU^p>q{y@a>fsdI}VeIsow{K z(fF3!)f1kLE{g;yizD=&9M55$3e`{B&-ayVG8tD@k(o{4P%_(Qh9J>7CT2|&WGIgAK zl~2}iFE(>IH}BD4_(p&sExqW{yJlHF&Y6r^+}quu6k0bw*way?p)g|az1_^bp6~oR zmXt)74Lu%}-gDcWVSs9w4U&{qfqDUJLE4V8DRn6$?$FWF&m4@_DB|sBqiS#Y(nQBn z?)o30QWLM=qhAagk55%6Ebv=*oJ1(0*RII&E5cePqm5S`7SgUU-&vN%tA}`-Q5+`Q zbPJXX=M`jiZ3LmG@#j+PjmyizeNSX*%Q~4_!R0K*wr^rU>B(Y7NB1Y{@j!b&8s?2u zUHIeaRQ5Uf?)_SP!JUiN)M*O~@vT_(^wPNcG+0zij&&!0=^KvuAiS>?-z<{amR-9N z)4SXvn%>7=yq2_GE;Aa=T-r-51gllnkH~$>HODasOSQDds&y$Ze^~#_a(+}_(DweS z{#z5w(_#HLgH%hIDk4k9EhYGkpyUM}80H#+Fbx+lu7-A zrQE> z!shbCV0SsFtR_0&gmlVyjo)O=^LmbH;_|?d*aW?NqojvWZnjrijbj7Gc7$NW?Z?94 z0sGUI;D$TRJ`UjtF!zr2S|guV^0A<4@qs0tjy$sz7Ow#jeoDct;iUa=#MOESiYcuv z$-(D2;#-xenj5hTPA^d^DS4Ah=Z`DSo^Mv2hlJM-)qcBg+dNoAO&&kM+&6N+&ohk= z$xJsg2|+4+aS^PHCR2Wv8iqhkMvkEdpT%E}enu_4cNtXCJ!vk(7yu)M~|Rs~#8 z+QZe|`?Eh_(*7|kgYwAQ|I4RUsCS*b7=F=KB00GP6ZkF4Hay>M#e3*p^oo+|t8Cmw z4uND17CgO%UfeM1@_r1#TV~`ALkhZl)!TxF>qZq6P9IdL@J;jt)_LjEx-9EJ>#4bM zW5CA+kF5a=QyNqf6b@qEp|Lr&a z@oVti9TGu(#rp8lD+JqbbQ<$cTvTG6)U4Ud)|-`2|ka( zFe5&yr0zLjuB?{q|BWrHDytwbna*Rnm)Hm<$lB$!xB!$r*U6U`QW3dzcyGZ#Zj6m;f5%!DjM z4aq@lbU~t!?2ySGZ;z2&qWIw>VdT)6eKObgu{&C_PaM|p`f7Y%9&hz_V6aan@Y{*+ zk$jnsxJM&#$mj@U*@M3_7{SJyQE>DP(a2ocV7#MUcVvN+CoL!2_Tm;-j-poT@)zzV z@&&At*Wx`D!z`rC)r}%lxAmNr9P#&DG0As}d9)pjwGvhOXh&?Qq-gb)s#6Lzp&)-U z?zLRPdobnG?e1^ha|@KYZ*Xj#F}{)9mdi9`8#Oe9*Dn-8GO(i)pW8y^;V*mxc{`Md zVy!s{PtU)hs%N@@fN{jKV>j0gg&1~FBZfF=!Ry}U|ldL%#u{n`ZmXajJYh#3xoM%GOf9vTKRcLE0z0d>stm|VR!unhN`93sv{CE zi}FrxL*~%vI~`Ph5)V_u5F14fkQJD`V;eBB@mogZ*asj;v)+>bqX6&Xj56j)z^>o2Fsu za5jXd+n6M9ntW&r)Q-=lc_5N>r1^RJEk!i~F)80gT=NTU^R5hROl-5lrFiJlR<<5& zK))Py`(PpI^d9S!2XlP2hzcH`0>Jw!Da&Fm|B+TWzFLbpPd-(B0duVbseTukWskUR z!TGX`CLgU%4qXwm+-%$#mvpVi?b+;$xZc3qF{3i5_pB~2hSx(U;w&5^@3uZDkbq!X zzM-*_c>-3DKD-kHwq_nS9A_v+QE^N2C5fFZZ0_2 z?PXL=tXf4zR=p0dJAhmUY8AgGfT!QWow(1wo7K_JZ>8@o;`PMCAyPf(STxE?=QF^Q z#8(X)M@~YdNA7Q1jq8+h*UHz=-(~V7EvwVuwy{<3$Ej>&EPF|ow<1s`I#e-SHSxvs zSS>JK+|+d$Uv(fWf+Zkc9>$x$?5hH4yH#NP*RUmb^qTT6Q|o6gB>Li}EO`xLJaV|D z+o}m4s@zdH>7lcEmSK(lSH(^EhZkfK!=@|R+M%#|USWj?(Ih&cDSk7ls^-D7%h>0q zOqAyX&%WH`{A?N>}OFd$LUVjqNJ5BZI8&XyYiuYMl46y>Xq5jq?Tl9(eBptCd^!dDw1yP`%t>= z)Fw<~W2Pq$tPAs@{IIY)nW6l2I+OG!Wfvj>oW&L0?!{7rAs*D8H%X{PxIj=C8L6*X zHyT@WJhvS>kC$FI+EW+2E>cYLk$rp^SvN_rYxkE_iq3`Vb%Oj3+)9|zd8b%}qe-M_ zD_cgZHY8ghF0wi}N;T%~)2lg?VlJLe=* z=}`}hScYsBn8A*&%w=Vj7)(?^IY;kZrjfV}_!Bl7OWl1H7aVPrnqqsu*66}$>ekgAnhI@t?|A;DU zQWg39%AhKPD-nTuEEpC8`Ga>$Q0@dw7uOq?t2y$S+Ot)Oj~|-Z2D3P`^T^ioX^*~_ zDY=Jdqx?j2;l9fs5*iB8_az~O8gG$jsH(bUi6R+lv&Q_?VTuq?h)I|WAA18Wd4Wo4 zyfi|16j*^|{T5thLDzuC{Ncmt$W1Z>*!k*p&vW(%)V)^O4$)})0D^I7Kg9H|f|Yt{ z7d)H+7{dWi7WCneKkn52j7CDap}%Ttpr!!_?i$k4nZR_)gvP?HcLFq3YNtvZt&` z_qpsY->KU-kND)~6%q+5s|pI+sdd>Eg9Xddi=+!0>G!8?D-@-*7oMUTj{be-ZU(A_ z{Y;GFyhvgulHpkC1+#X%bEv+&F^0 z^IjtLPNY}>dUAz)x8>?vK(3iZegRWikx986Q`jWz(j?wKjr?M}L(b0sa5~x6&OfBp zv~bn7QCO2-@_gFnOJ>L5e*Sg*n(>wYw;zFt)6pq8c6*74%%wQgwQI)X56{ZI{+LBz z@4Y!ZZxqHs495=CLPJBC3bo1Vo$QdurQJDVF99Ng+WL&q0sJkeL^v!v!x_;_3F@D; z5zzATZAy%(^D*~ZvSx|{#qIBfAb@K17PaKMK@>7@0?Q7>U5rF4(k?@l4PIRdzAlh+cq#A0qU=W^y^F4x}T!d%^Nh>%s;b*&88( zW<&H@SC3C-PHK-~`vf`Mt%$8{h^>LHSCL`Px9<^JS+JgTyf<{b4ShxB9ui*Ip6nB> z&Fm8hb+-wkCRSLsd3ww8cIz!3I5K-wx>SxDR*0G|9$bQZGxv0b>OoS)XX)4c-vdwT zOg9jG3I$qFgdVHSN0rh0$-7=9;qhc>{bZ?NgDid5$yBHvvTB8O7;kcx zVn{QEKUOHK9AJI$kwM^G#k@*iKD(q_E?s_XrWivby?tXUG-5!Tko+B(6d{+}HjQ_U zYy)kD+qvVtNz}X&4Sy!*8+x8?)Z{kq8k_l|)}J}ATvufsF4aCmkE7vk%SegWQBfOz z%@F-MmoZwF|AMDndQyrkf(S@SQSElPd#dem+u(i&^6tpW ztuU`giy{`pPvxvw7~CAPndJHcC+4eA(wN~w<#GOtM_H*S-;q+6fss;MHbp+6woHS( zk*=IaK?>*D@i0(J3(`A|m9q|%~ zGk{;Lle$!V67T~F6gkxpb1#eQMT2y&3nqFEdxHSJ{F#9Vps_lxAmLu5zg3{>BqWNF zVpX~BDHKx~OO|*SJ72h%KCdXlaW?^$Zy`|e=}$@-9RK|6R$^q z6Sgk`U1hX()!-P@@3q5c)d1%O+@nm}Yq|o;uSKQvKKJftbQ#e>yoeWTXg!u>Q**?J zBq>{uV{DFP$%O}t$I?~J!_c~7%QRR6=5~*?$xeeJJo6&T=$HO-th3 zSvzq2I4XF2Dqvs!O_oQsY4#I4vwccsu3J89y6C$ zfO3dg9U&nyLS4i6^zH&AC212J={P)c>-Gkh$;H^jojXpXIA?vcLjb{DAnR~b@7Bat zegsWwPV>ji^JjEpSIzrP^oqkQ`|p&Kk~PEd+`a*sbId`Bx6|!#|ipg zmMt35#$wwyr2WSb#v4SYsz+Uu?IX;&_d`=L!Nt(iRyZW`$h#!RH~?2Ewb$ES`Pia%oX6x#C{Xil}7cj`3t<$O&!Zal`8$50-z?{I+UN4F9+ z{AGN3R7{6{v9J=KA`}yiMi31LaX_QNTATS&vK2~_Tl`?Q`*qMu`H@yGtMrjJnT$}2 zTUHoT(c;MBQ42rHLjy6`^AuE%n(`Z5rBl|4j`EPKUgYf9RhPHMi(d$ohqP`2;6nB$?b`0#TBgIU-czHO3CUR1tO{^CzXeVPO)+N7m(+pP>s~5KP`kKBS=s zkZuvN$h%Wou{43tgfZ_bMfL#9Y%j1Vg!2(P8>b&p#7Au0D0oeSTfR9W;=C}zWTNuR z1)AnqoX>v_P!}W1%^&d>^C#y@Aj{2Bq^4+mB0_Y~%i@2ZJEO)*Hxh{iRoxew9Py$$ zqK}bgjlX$xm(x2x@U`zb*zBd_#u6NR4+JKBO?-J}OiCtHZwH6+GP*&pY8A&T01UNT znG59q$$VS8OOhq^K-OKg)WXH`p z;e$acu_dGga_i+d8kUbEAK8a#&YikGln<50$<25?sqM7f&J(teyh7`cLg=D0GxcxJ zA~_Y8UlrtT#{FXNKT}9&`bEP(IZogmI&u_2cPqWK)tH>AV7!O^Pruado|{uy@{j9l zUj>YPV{kjhgAgx!pd31^X~@04bDF;Bza~yJ9fInZATj+_ly$xX$gvdLf5Y#%e?d%Yr?-b zL+Y-5!BdgFRsFcAh)+%{A)_6Vca<*h{}FB<5&kRrHx==>goPg{GZwZ@S6Jw}(FfKO z7Hvx-O4OJjYuL@&H-LV-u?PkYQxOT)sCUSQ%E_YfHNIxC9dVD6TBPOKtE*rWUB}`m zl3}~%NjEZAoKMcF8}Hd|pYMDVN2Nc?TkyclD3gk-y>aVuW}>a$fVL-1vNkg!V3xj{ zFbC%ZRr3RL`>PCN>U|V=zFe-Vzj$yfj5!NFoZF^>oZQHhO+qP}nwr$(C zZR5>8_x#xLe%!bb-JO+PS&`KlUC~)p*fw{tC#Vk%#Bn(xjE_CPNlPHDzj)3R?C0A$OWeL?vM71{osEz6IE;}&TM~-*y{So? z?H=C*!1S0%6Y$~Mi6aV}f|N9ZrINLKduvM*-0}LPD7+IE%@~aqH*Bv}CLQBa&r{ck z+o!Q|k=&$yun#m&acNVtsVnN;C*p~j=Sth%02EdEcl5)<<~_nF>(htVm}T0V=p#cC zbXHoVR!mPq6Q_oqFw~pDveVjaxY=xjjW;e&3>mGTrBHLt4*qV7YKG2XO@_rZtFDXeklTY%R^3#3@hpC!{1yaN}Z5D^7 zOb@_JI-g{P07l;uVkhexi9-9Sg!eIO&&VoCH&$pu7d!jCP<@*hj6` zxgyUqpE%fuhZ21`D({hw8~~|z_tQ07kUWL1Co$!xL2!e)tvI_eXo=Q?g9oIY%onh* zm%!xe-6c{vj|*mjKJfJ`*`QV-umdc6FlyFxZ{FHf@$)yHPqt(<Da@l~P3iz1M!=HT_V~U$F|IlM1asOG+Lqw0oi>5NriiC}9KYN+NzINBOPeOa zM6TJtH3Sw|Unb*1oa~5H$DBD0e18Ig0j*4NPJ1vu{sGCKKDluLm=q$f7{6NK392RA z{=r?9eS}poTUd{Kzy0vixF&MAVSl5@AD({fzio!Q5?X>UJ$taAH+!+6HHM;%!Ps z@-KdRnXr?xNHz`9;u3xmyFf4Jy-32jSnsRgMR6QsjG4PMwbXWI3`WLghXEfbMuA*i zrm+%hLvpr-fG8uM-y2#*KR2(A~=m!Q=nuhBV zC;UANJz>SiJR2Cnngl*Q7P?}v(>KS!qT?V2J%oY?R9S#}eG+2U8Xpx(rBuFT>NIrN zH@VTWqqVP6r!mfMnCT}eKuyV}>N1prhu~>WMzZZjjds{c(Lfy&mhBjZ1$MuVGW0>* zx*q>zCNRPCJCM05|C-f|&MY-imQwm(NVK2fJ*C z8zWQLhjZ@C89Fr~yMyX9#quL1=yA8dl;S@$tGX~}xX8$sdl+W;vD-BvTK2?MK>?uA zm7$L2C#(Y5isX||h+SGRjs#}d=m;RqQQp-*+Z-A!?W#&$eqEdZLL%m)ke6l z?g7r=0ijQrA+e)@mLS`wyaLI0Je z+#dFW3xybO1Cs3golc$^axF(Dac#!edw?_9;mwv<A@oqO6}sUy#Ni1Q**L$sf}ls&lf9UPQ<5z~ zdI8+#bCil!&%rXx!?nVee}-ZD;SK{p3lnzMQ+ITnorklBF#W>F`Kt>O_Iht_>0Sab z#Y!VKooKf4hN>t*xI-xHdNiW)l#0A!COhKAqZ_#&Q!agx_45?V@k#%M>gw3-kFA-R zZDi@Zo9{IBx7tG)P$m_&$yOe}Uyw*0dOZu^4=~|BBH9JXFZ=s$4YGMVw|GR;;`yG= z!cl6qO%5)^WL{%`?t1=+v}lMqwvD%MZ(P9x8Q4ky3Z8tAlYprB6U4Oc#JaqhsBv8y z>Kjf9v|@~t5c0?eIBBK34jhp>7BZA;dhK$h-Q6T2{aJFxL}4r;jr4r7*-(GW|V zU4%T>-w+1YPj%|J5SW@>1h+GcZ$fIhW&(Y0>dDsImR$s+Q#Z|gMsfJS9m0BG&c$0> zLy6j8sJ@tJOZZFdwReGk8XYQ4+#xjNsC=jUwK#(~!^aIa%lXphuv4C17Y;&6ZDS7L#fWvlF_!SF_6s0G&>4VysT|q-g}<6CU{d3SH{J{#G|$A9R9BcLRD;J6vd-(@rhi=dw6l zOl`U|v=CHJ?!>n-ImNer8C(DA{MC@r=Jb7&(S|%TZ`aNJ@;_3aK|aI|7NNF#8Es05 z@jiqO6hbeXEDjSAeJlD$GH zUtGO)YRcD>jQu9_(VsuF74Ib06aVq=o6059AHH_?&fGw*|Je>d>r*rDD=R9%_2k$J z+bKOgEOn>w!7{jWj3J8{22D!iP=PG{;s)Dr=b*h^2wDCbp<;F}+qAd5i(1u2Ty?wW zm`+6<;P7V_`uyWv){x-a+i4=6VU-;UTI`+}X4X-1_sU?GdQ&s zIHzpjKxiYndi+^h*G;9*l3pccxjqqYjYIQXlT-#1Imyx02`8?;cux-hBXJvp%$TxU!-5AOE&z=@r5Pk`w;7x`> z8902>w7YqTvvP~}zr9B$gunRAFecMWoDF=~`j%K-IMAuh`2_}Xsh}*`&X&tebA(|i zYiJ*1ANw&F4}Ru?zpFHthn0Bim!*R8ECBhgrFSWR!Fh;;SrA^_<5sq}_k^lFlGSE; z;4Y{xNhsiI{DMDi(NIbC6lGzX^`0Jg_1o-XaC3BMT2zG2nsWT|o)_mp7qI?pU*J)* z1vFKYq?!gzpk`=I7z#@6;!$URv{@s(H_pH?9$}w&M^|<5JTZ1$VMGH$f3B`?)4&vv zp*aQ9srLC&Rj}6PoWZ4>xgs2m%YzEvgXDW2K%kgNM1wjR+$g!@gDE&*dgjV)kBOituQ2^m``Tguz;DFMLx**3la{Uc9(frE4j z*&wuxF3@dldWHGm6j ziH~tL1>oS%%;ESp5D=EK#9UiFaPr+iy`6_N?wqq(-4k>&Cwn44uH*DxBr(zxk5b=C zP-F7zDLz-N2asgw4(o$+#fYC&5LN{byyB-jSw^(W3qYWnD_=W40Oa0OLIaCRKItyw zC8zoKN@N&Dl@i*Kt)SWFrNQXP*7DfY-y2uXtfFclF|kLc zOz|iX=@1h7No#kLo+^SEVvBdTL59dDUmIOTDr%@l;OE5)cu{@?Zldg@%GJ2=zT27GLOdZ z7&UE}MN~VhNSi(Cm|q$8_d*T&poXJ&N3#0##WIsqABWw1*hITGCQmfE2VNqho8Y*;DaoahrZsj&q;F!2u&Y!q_h=rKcMnM z4X&Kubu7YfzhhNT{7UZ=GXLCX$x%Ybg5+ns3zJmC>)#M6?_%a!gw$2{Y2AkxSj zR4U z`sC%nFE6Kza0N63ikd-K5hr%*M?k zorF!}R4s-oNknCq;Xlm8pprW=*Ro@7h#srh;+Y1=wBiYdpuf|a+d9S4Vf6tW^eB?P zPGs5aP7h~hpr3c5WWHP&=3G^{-flFMkg!U%^DvbyM9l$2#?EIFYL42DoBrXNO`5Km z(X0J>#XXG;DZFjb((~Sjnc`ydt9agq>+_E-OJ{)w zr|ZX0fa*|mA&)QRz*kgcNNLUCz03>1X4K92%TT2bI^M-RieUv`7*10988J>C$`&@Cmb%fRIu0B9aM7CJ(68GbE-;QN6!9v zdAa7)m>u9M%~xf6u4f4~F=mrbqsZQjuZb_~1#L0I4~JGW=L>GhkCrQ#!%f6&J#%KU z-)}s>YiK?{E62CE-z>uFGb+?jM>Id-kk;B=7a>XehT2=ZF`e!0a^6qL-S2PXoK>3? z$76c8ZcMqG6%?K)6(+{8Ju==8)?N=>&{FN?Q~T#(@Tl}?t>gJOFd_9;$e zk#Fh}DU|JY@s$k71RR|<)+EJ~P->m?r_zcjk7))V=(v?#j3VaSV_+_pv{q2|W0@}6 zOv!I*v!iT$6>sy4>&MWo)LU&so;t0_15gJ!QRRMV!;UA7`E!TW5fnkzXohDH?H~1F z56dImq&{xPtWy0meK#2wjq%o)@8e{9XWI&@<2m1{Y}|gv(&?&dD!gX=cE|8gr4VwS z&f?qxnoIf{$NHVn3oFdLbd4x^_)7-xDbk(7*Ms^;_PKO^VXJN;GJMaa4Iaz8C0?y&6p55kmih9#-Mv zlJ?bGEuCY1i!B`QoCv87<>69JAc!1ksu_sHHO6V%uuyU|A2JJSGDtgOgk1cW_*}Zd21ozz#f6Htuc`_|TMm>1i z9Zl2l_(g&w!9NXCE#}F8oOjU?kJFGRAE+;MptugyawzLc<9!XK*yZ=}6&G?ieMG5^ zRMSl#qB*nldOaHq*}dZZHhoESns22$4f*iG5d0Q-!8+CXSJ}}(?5`*}>?i_iWToLA zK;7Q;^l54kEs12n%ExPaa3t$1y5&F>)C|m7$K1+@DO9+tNZJ*;cqQ`;r1EXLz6m0m zovdr~l{2B)>!$=Bq%SP=8~Xp;84aGkPqYc6jOEi1M#{osTaqIYKAT%5XOZSwy6bWy z=pgM-fe*#mVz)>i_N|nwnbIQQ@#)*2;U!E^$g~$hQ}0 zHm@~heL5`3<=8eW8C*m=0cwioMgefeqZNgh34Bq;@1HxLX&Q$tO8EtXrgXEy*y{B+ zLz`8Y7YYOeirLbFcZzPzpSSBY29Z;$>KKLNRQM&(7O7nva*)Z=B3Fa1$@8U>xg|Cw~Grg#CG_sQ)Y8+8gqEWACa<#u$G zi+1@}3h9a*nCLDy^z<*;rMeBGmLkIm5u>zac;X*~hww}-KA2{_A*V@)q>>)ZmJL=1 zFmZ8FgwtGksK+2#yHHg8`RvHCH^5LTM9XrnI-~N~>1Gn-^zzwxuWGC3Mkh4E^PDW5N?|`mjcri} zC!C8ao=3`>6oB3>5WzpdJ6yFNHZo+yQ8gUyQes=KQsPv$?uxMmf%m$Jg+FC(VG0ij zWyo=&ym)diF>JE7)5^5TP0k}ORhZ@7j-xGsqdmIJ&Fi8j{JF5i5plukqhwOle^{z{3XS4-kgz=h^vF5=*IPa z>aWh;+yT0D^T&{u1TG5vma{alw!0x{e@^yyUyZB=C4d3jNBZiZNluNlGd63X>mnPM zL+%_|ap2>JG;C40sb4+9G`fL*AbNm*G;aUr@}d150OW&6Q?nGgL;32*{*Ll#)Av&X z`3+|9i1Mjosc;MVjPf}H|4HuBtt8ZbeV@7{12NWTdj&$c%aVy?zrcpJwODga>j4w| z9>4`!kb$Z6CA1}WPB0$(R0&y#~0gU62r|p28+DqBzu}TuUgy0_kzTEJd0C z9u@j+HE_+}spY*?^wk5$AAj)Bef{7C%b!o&;r1RwAP}adrv7uH+OEA&?X>%Y$A_WjPCCVe<|3eEU8H2C+oHch%gIuaM?RI z;K7YOi13|a9b3QRw8xr9$vr^!)NP&BY?4ZQSpK1 z`6GwmiWkr>#~q75S3nq#wWX`gbyk3nwB1s0&obc!^*vfqfqA5Ib5@a4qlt2v;xh!? zQnStUxzurdtTHo^v_sPKmMhbTmY!+PK7B#Qp@YFamSxu2YtmG$A(H!NLMpn2V;l8; zDRDB5d8nDi>~KAWlT=8<++K06mm==3@m5>=G5SERa0WDxibM;rmiiQ93c01dSyg66 zor}{KU_ADO+}7ObXNxYgm+gg5u-;0wWOSKUOt!n&5&Uha+l%~=7jiifx7BM(A{L~J zG7fx>%>{N~cN>rw(P3ngp=eR(1=9I$1k>`HkO7iMP&@*Web2TVx}=7>nI#j8c#?>H z8oaz4P;$CmRK=tV83TP)b=E0%lyw*NL4JxwHRrsWz;Mu;!x22GjcC7V=V1|!+Kn4Q zHNydt!ARcwCM>4Tq;7NCbu}l#3Wud4P9HzMPUSLRZ-SkF`Jet*=)zFSGSrLnY2p>C zzmTtIv>{=L#z^E9;hp5l5te=QCw#*l=eC5gXe_QBVnm_?6XVX-_W+5Bw8QB;s6r=& z1(e7Asjx;|xatWq<>*i7)c`q`5tVbL8K$fpG5MGgp9ekPBQejnIXwG&KHiMzpEN23 zm$yICFIg&(cZDir6X2fn71R}vn*1L7^kO6y(Fbb@rB z8dx=lnuxNYz+OAtqTptZM62P#kOf^P26|vUgVVg`#7udpxI_Pn&B{>lPVgvUh{%D+ z5iZv<>ynj~m)TjyoYR}=>@c-e<*`=OUqpT5sF&)0z8S^jQS zVSP?xa>t;a8#=ty@RQlEMn#rt%TioZgdOOz$&?b9HuaHZl?Sj0Dp%hxBCdg!g%(a| z^#v3I*NtKsX`B)h)L6CK6kORa()9+`HYPNs&RR`#{RFvNa8<9+WcLS*Lrnnx6ot?I z4C!w}a;L!PomUvrDd?G;^8@|O2!3C0+`1G5q>o9;$0R2W+~kN6i@Jvq50oD)IU0C) z4HTYYhB=z#$H{j3jwXS+A(pow+S`FV+J?8yg{|j&w%)co*2-Ly)iEGlY{wmm1H}>5 z2jMIod0GM(wb^1F%=!VG*}_r2;=lVr&#`Rp#M{KB%jRto&eZ+T*mQyusj6~Lq43@FRG7`ux9gMTqa-mZRzquK?Hf&;A^DSAq z+Y7l{PlwjDil^y~Zb|O~h8n;wR{pp%Q1xW_p+b&%pRaA^G7e%F2xnvvLC4*ZB%!aZ zF)qAHo?*Edq?Im&r`By`6(Hn`prG7%<(ksm_YAm}LK`$>-$Gi~n6Wr2Q|193D~g_<1mvdf)U7{kbsYJFyCjdwwTq z)-=(A1rS?R*;b|LdvSXlHdc)y3uiz}rL`|Fbs47YE*3K6$!2vqCSbQrsRI>o{8xn@ zrnlA>UL9#g)%_-GTmWX76D4Gf$weJvE5KM8{e3(#fRTFWo6?+yr)*v|z8{4CR11|; zK-#7sp)@eP8-Sc+Rdc_CKUxzyQ#5qX#B7aIUzCFT=}M#Zffvp(l`2QkT9?gZN2FG_ z5cl(!v=SJAL7<#8fFY$4*gDJ+vt%PD z<8fn&XKy5H|6OWoLD=F2lB7Kbz>(8Usp@$%xEc}R?opSOaadlA%MXk|R*`$a9bbvB zA8$eT+$_N?V5ZdCK6i!-0skm&W9W0(xroKdnVmUFaDQ%^nR4GJrBNATXxrUR#s^q( zj19~K3Ea}ab+v{Xi7sA!@7{I+XtH7Uh#0_x$eDrg{YnC26!^qcZ5q-Is5q!8xn?nd z)Zp>lB#lqJXs?0jp4B`0 zU+1pbopJSE#Dy`nTarpXXaw%@-mplLn-z4LXk+HOjh)u26;gYj z=LslM#NaMS*YRlcpxs|D%T>}bApjRZCX`@!-kG%gVYxcklfWkTZ7}@{SI(Q5wN&$zXdh(yI#-Vh{?x1{RLt8G1dDrSRzQ79v{t)1npa7EHQ=Yk*bf zob$rQfqMp_$SWh*f-;2!8=F4wmIXn(O8*z5-YxOmr@een z9BbE`-{#?|b^o~oQ1|dzgqz_a%1-4l&>Re{1-4rUGh2Vih_eDu!1!D2A()XqUzaMC zZ;G^i$803IjqyDHmUzpTv5@Pn_a6jLS_PsSXnTmZY-6i_{DOB+dt8#(v~7qh&{jA~ zIs+-aV;fm~kx+aNreD3hRKhfX zX4tKou$_@!LyPQ4X@4gxF%Ya^@ZU$K$WbJzX?aUdM}##*BZCbm$s_OSJ|YuSSs)bg z)N{_#PE~xyD%<%Uc8Hu!#_;Ag&)g>K7^bqg`z&gu6AEQm{&s)H?R>Z%3JnB($or%8O$Jb+=tTyq$Ge#K!1TD!`?o zq+KH?c$l_#XRqLgTMNWDyYkD?=_}`==ShIi%(Z(xcCvy{Me}Zs$z`_$>6ADL6K$xH zC582nhNla)xehb>-8cnEJkm9c(wiEX=>;YF1Ssj~m#gdu40tH_9W5oxTWQ9jN)(?{ z31{YmS)Q_CO&F4(6weQ}RH^iUXz)Yxn9*atoMW5Lc$d$X&v19IQDNRf3!ze7b9~%p zIme1JCTErYbQ-hON_!Q_!>%O{#*-`Ed@PB$2Z}i zg`Q>RG%Zv!bQ4S@&uV!gq+XB54f-4!{d$rnVzI^v+> zgAPZ26njYO&5lX8Vlhd?V93O+z)PR7HbOQ89?!Jt-~~+x^Oi2UIp?`~;YDpUb!Dr7 z7_nNq;^J1FumXB>r#Y}JGI0|wT@z5!X3zr_Q~m-HLH!49OtTlk*bjyMV)S0=a&1|{ zbpIb?U$i?BGpz=uM|&2{OEKVGRwbc#C!zeF(9hl?mh47Tq=w6J;94BO9e_?O4eGy1Qd7;+^S`Ih;!O`gW)fokJ z#k9|C6$o#&k>W5OK(*ua8XocoL4=MLS}e&KxjsGi4C z?k-glvY@KP>^~zn>&`|v-)BeDDb}GXORoU5(dvbc&4PlbXK3W!S=W+^Ru;T735O zac6FW7$W`2LB!^d+>*N+a(91YPw?oo$R|^F;Y)6hu$Yxi@ors2WAHG;CKETKcJhJt zu(#JGVrO0=dU6pZmYb9ou2{@!Bm+@|YFOMbIJ-;%J@$kmA8I{55Wl@K{6tY9!N$$N zUIuHBHzq925fZ`-)NH+$bA8UUrV*Z}U_R5OGvIc!l4HuB#l@^MngzECH0|mGf%{U} zE9UWP{Kpiutt`gIxFv06DE}$*kSlV6zcIX^9)y)FIQ&u3_O^!U<9sH5wN$Xtl7NJh zy=;Jz}Ret|w2nE8Fn5=2TN*wLa+g4tyKL2c*sa?!8whDQ&>1QCX0vyf=Yl4?kO z=ApVav%K8z6Zrz`FB7E2`Tk4b$i8p9ln17Y{tennh{XW-g{_Y6UiQed-hlrgP!p*0 zR;B*}-iPS0CP_dGyHRN#2}Rz}>+w(tBjx*`sg!2R;w;A7Mx^h}@tR_TwRz#>Ke%5u z{4r|;*=&c5!5xh7q6CR{77Pm~AC4xKbEULpgcB&TcE4^G=5vJ$(=(Z(GVix-6LKh9 zb#aq_+07I4XshPz2XQ8WS1&F&4-y_VwlUPGqDAr3A8hv1L~m8H)b8;1hCqS>@9a-~ zVL5GNvrj5WGFEC=vS80bPdJ!mN#dCvtYTM^{jns!Ky03Q5>&Z`*Miz0QSb?kSp^j zg~GNpm!&F%pm89T9WoM|A+>MB#gxtOLS)!zntC3@IjvQDN#t!eK3@;eQ1p@Qgz>RM zj#*m5EB3$R0#bJLU8y&~+U~cckikc_se!o-UJ%@-b76c8`#8l&OFnfH_C^GbR{F5y$SoP_sD87XVG^Pj!^Pl zg#AsMV<28=vmwepQd3@lFWcRYDUy`ke3-{|p*o))z^Iyne(EPU96K2k5f6mIKK8mq zuh{}@g8Y=`AJf-F^sOv|1ify(;exNsNO9gWj-O#cRI2LlGD|@?Vk6YSD|^=JpuziS zQZ@m1$0H4W2OWc?5VbMJgGcluV6nH&7kXs4sEI$)Q9F(rfC+x0GC2T71{5gR4~^Fz zmxRBPjWT5TO`8F-54pTLVcx4jOAAu@CQEjhTZ+CMvnS}9}jmfp|3 zA<@2s8NRe0XQiRHK>o>O1@8lck7 z>sD6ROic>1VYCK8Xz?XQ-j$^&?l5v6+m)#pPFO$#0%AnH$#*?Di+wnav6GO%VY6eh zeK@T%OxPWM?eq5fV+$vT4Pj($_`gs!za<-ea|jl?|AM+vmC-jhGH}G>S&UzQ$^nd!e+20Uiw|6&>Om|6adWx``-{V$dokNH1XdGh~3%lSS2S3T2z zA#+bW6$tq+y(V%d(=MBNZQaAIy=v5qat!lfju#nTPj-`=53gR81R$U7xP6nU){#2khesu8@h) zv&E;kktaE~*3JQS@5vPpXRsXT&d=7(!}lT+2Snc&mRVG+4%~r9x^L{+wnv`fJ9_W8 z*KsqS8H{R|HtqwS@2kh0l#oMQBdz<|?ERPvlW89Dw_Jl2Sf2I?u9dfY7}VAao^I&f zi5E$p@%p}n?;+eX6-#qUzrftQwv{7=^>&-PjC z_gA}RNNDEAja?$h=BOZCg*ETdqYJ~hg_#K!=Puw5+^!B}ybUfMkYxQGe|&md4@Pcy zZn0nt%j`?t04p1S(9WyGF%yVYsqd}(?`HmR=r*WC8$U8c2$zJC+vk!PzkrU7G|3OI z2rG2&!wVA~RE?gR4iVH0N)Wds!a>UR`gqw~0PCDjI?sQ2{=C&uc(}PFS`n-*ZhJwr z3(OxWTCH36UsmWmJf$M9mb;KWqi+ck2U35!E&PXZaV?GCTz7}PSSdvd8V!5AVuH zKS5$^hx>5hI|2vTq(B2G@>-Ih*%n1D=M<=nAi&MnRUC|3S9TZhzAxQx5{HLQk%e3LxBmZr9MUEEj+~E1jgYylL-BX7ka@6 z0@dId-Gxe1`D(f9KaCje(kRWt*!2h{(ZngjhLI3+I+>4uA3$9W`pdERnf5C8WX%L~ z;lN3ch&CK=Vfqx(tOz5cR4cXqw3s*%hy&I?i#RcRVO{9)l^}C;L zf%jC(Psc+#JQ`W`MS#~>>wi!Db_hy6s?kM^ud?nYgg`L-_-k*_rM?x&J&b^_m?B|K z87Bcz1w1Y zZBl<=ffYMC;o=}ex0OgtkQ7&<02f?AR9l^2>{7uF^e3C9{TrEDr7fAG?#`lh`&im< z~3V;3v3}ridZWL%O)lpnzR|Uk}7yi*Lbh2SHM8pDIWuZWz}2$mTzzMNNAD4 zX@*l!*s$|bft9^~UqJ$TZf}Hikkt2iV`0#75Id>&7zk-c?^UtM{1nm)RBPpCyVr)m z2RrTr_v;cnYDdtUD((a3i)Baf8-sv`r&v#8YygMQRkE?}MZgxHrmK+$NZU1h=I=_H zKf%8!6)t_+S8e=e#LCBx>1VXQR+j23=Z=A)V)Mpoho>2m{dBtT+9i(iOIyu?@-J|6 zRJSoFIQ_rxl#tTb;$ALo68^3OAm~5wlz)j(`1i%s!$1>Tzwu^cAA*r+F@P@p_d2C< z(sXqjTOFQPOkPf56#%g!f;>73*jcNy zc@-#l+=e%RS_3+kQJku*XUH0dyW2g^7RyE+PFd0`;Y2ZD5J)QiL@8KLulc0)=VWw5 zWlfi0K(ESIxe!yzu|&Js%#J(`JbynJNl7wqjf$(G=80eS)m@FdAR~OHu3@F)5BU&Z zH2&mv1k^0jNODjVHs^+%_8-~d8|aA&|FUT|T4vGD_b|{rsm0brS2G#wF-4T}oKR*y z#yI4cm0$z|jGb|s3y-B}ZON*VB^ZpZyAS%gTRDF!DN!YrSMqfHLiwwis93!mCof{R+u3Jsjv+^gWYv6*3Vd2OJ?td7)Z&vrn zy&kJkZ)76-&>2KdToSaU`R6Qu*`)PE!2(|NQ!~N>2r<~j;JlLs<9f1pLJ!Nps_^J5 zJt^L&K%!tO;h_?=Orw{(@@#EIHEWfaf2iw87UdmZf!b%kg&R&AL!}_!3adAgUK)NA zW$f$&P|r1<$9es&I4u}5>7&*R>v$h+2QFR~X-<09O-u`d991Rm#waa*9|FOO)qBbA zH;I7Z`$+E#L^r}QSsZm9&EHDlxAzM z@RSav+bQ!oqdWFVJc{JtxfwU2)9DgFc-X^k)=j&iE;P+w3r+snbvnqmsZHoWL%k+^ zKrehLg_$9cFbl3~xk2H>FMvjgvY!N)*U~ZZ5WpnjB^liZ*Yo5aCOJd>d;N~Cit5`A z39KpRZ4y16v9)&YcOw9z&H^N(r_$@G)Z^H9IzwI%v9Oa!b++-yE9Pa7y2+=dyg_$^ zE9nVtF?*e|OUO(2Hy6%*$1uw4p67c)!{@!m=Iya(hyCx*#>qYVS5J$zsxx#2g?;)_ zeg?F=tnl5#Mi1`JVtI$t01!!)c6}Lz_0)7l3rR|MHDm{n4Zau+%fxmoZHKN#f{t|i z0I-6!9x)~ds|4cRW1+YyOcywX9Vaam6u_fK=}4fS-iJ2~?$<;{EVED*a2r>IKSAIO za?Ihg)S_5g*fyPSdGj+1{>jv&cQ!o2&PM*>TSaFYo$cDKaeitI@&5L~)MoPlhl3qG z=*hqB$;+jqbQXoJYz3HDSB5E7aETXhxhA}V#=Rh-oxoNKfG4g;tHWMsG1EsyuJwEd zIsYj=W)>b*#OdF#wSzJ23vlT%K~B@>BLm-?;D>k$`Vs$%VWIhZ`*=iZbL02|E2%d( zI?3Rehd!+_+iAumx0PgtoR@zlAh^t2C+?|MXhfjR00Uan?!%Su!A?G*Ef*GKitI+n zwpUJ{oJ_MMp7=d6GUk^{aPLat^VoMf&YU!+g40{KP2mX8xGhNpP`IE`rTVfew8$+i z$VGPMdOa=qhk4=oj-oE*T`NRXTHjUiuoQ$ zMcJG$E2QG>ZJ6T;MpT@i>#WM3kjO;-TLq+DgpgOs`AGC|nBntsXKZ2!)$Q;-#NaLv z3#SA&m#*#MiLeFu?y6a4w8Lr^j+)57<3K}rFjQ?Gt>@~GU+{U8+HpN52V z=rQx7QrpzdpH_SkBjKZQ7eMlf96%DGNyB5Ht*KKlsER;KVj6gb1=yP^r!L2PnR1N_ z$z8@ttHKflm>D%eIQ%0P9D5c*)Mts`FTWfGsww&3c{V{{NNJsarC1B7RQ#sJ5X<}M ztV>QFnTm4ZNlViTzN$DxVy!?`TKF~B8AXx^Tux7bg&k?39}Ryq)JU{RTCe2GJk&N- zw;=HG>8Ibe)Q3BBp1Rl#n1c@ZFuCljQ?bgATf)WEM*|Z%^geQIA^K%QyFTfhpO`tB zuIwsk$=}h{HO;g39n7-L z5&LPKZfQ4tWw}8gRnvf2m_<-DW&AkS-r)K<&Wyjn0Ho5Qke>p0@#9VnD)SL~ zxB%Mf2-9j{+UmG3Xqu#7QtKWKWw){!91;aYIfwiM!m@QG7*&=TxLBA?K29FIpgiUq z(gKh?To)-7*DU~GU+BqYP9=~Vr2odt+kE;(b}3O)5$SiO+$@*)wp;HifTuw}jHDql zQ??1#`Js=uOb(A_*f_g}S%@e^K`XCLpzd!_6RzvLl9eF1xMAoiT{1A*vpj(*G(d_C ziaW15x$5O1P717hXZGcn==ulDf-7+gGEK3+ZtfO=A7dl%b*j{+&7y1PI0OZ9kT0 zw_lKizp^!ABDm$Nh@%QJ4g(n>cRwA*FEN%Eoh+PvPz!TabXvlkr0w~GX?gjNS<=xJ z><@{(IddDY1+65a%MU2>yfhYh@f{El{819`ALWrYvdJ60&w&e1dOGQjK#y8ZLU}xY zEaN>tJ|y^r7aQJD4y*_l?c z+Xc9U(beg@Sh^75{enNBl8F2{lDs(&W2aXDgBBLe;kF1W5>q6Ik|!J9Nn|V3m-$Xc zp4PIy$6$xU&l0V*zi(Z<8=wBx-|{!Z=vFhRtiCY&K`DoNB^#eM8DlaJ=Zy=-CmflP zOI=1UB})QBPlUXF5urEeyvqc!EQKrI4>IK%LXV(-$%OkTXi~Cdggw9kljY}q3vvpJ z5-GQQXb3v9%2!-lbnK>)TWqFug_2<{IU%|{b`jgBvXieghspSBedn^Ap#FNrlHe7* z3;mfMQEvPGi(;CWgz=TG#V{ibE6<^kEIv$Q%9BEjpffOHFpU(TCCO~YAOsBL3LMXN z<|6(6(47v7jh+EF^QJaoDp2b>*#^WXM7N}&uw;bf!DSM>=5e9vaIC(V7YVcoR$_EA zc9xPWqArV7r72PpBMqwvJX1@odrt3TG1SVLVTAMd)(N-!YsQP7;Vvj@&Vv1FVS-%< zHAHct!zydmS>q$IANUrB+DfKxnPGbyW@1^%0jL!|?F;fseHqdcT=?Iy3-&rAJJJ(h^EM?% zEerEM?-iNJvnZ#KnaOl<&g$M?1Zm{!zw$OEM&I@&M@M}% z^NUgMR3T|kO?jn^h{wf3Kqx~ZQsOmKat%!H$esS$9t=LAw-*dN?_ZpIEXelXRFZ|R z@2_TvWp>1`8-nwDAHX}r^54vH1fNy}MjZe@j)-M53nvtjJ*SmZItB!H4a_}pVS+R3 zo*AM$#0WjN=!ju4UngmzgE;Sql7%qhw2~c7kL3WuU~VBPQSnR`!9nQV5JegYF_1JBe&-PCASA*xs$N4ceM8Z8ZDVdC8NpgCM{!^9DoAq z;!7(rB>AloT`;KdZ#fg*hDd7Ll+of5yPNvUl|`j>f0)(vu7I9bEQ0ucIKGldYI~ac zSImQ4GJC%}EP}r3QK`N{R(_PXDA?ofe%)LW`RaJLYK5lL*mw6uotU-Ecy4G2RG}c3 zY<#Ii zs|}i$1uv7)kG!9(dAgV|a01xM)_08&45rf8moTPli^HJ0VLkgDwFoACGw{b`Qy}>j z;0T`Un>XD`yQc@|c8X=zx{?P~1CH<4muRMX0jVTagWBeW9Apd5>30$)g>f9$&Ste% zbtV?K`hRPdphLb1+@xx0mH!uOKF z@CtV?W(~EI>nrshX^}Uf5KawK{aw$d&GP0%>U^hi4`pu`#);CP?d)aJQ}*LEI~N0)@)ptAiE&^WpVQkZ;k~?-4Cb z*QO14!3y7>8;DjYvlYv1$u2QLmr;8?jUC;o1LRcTj2yUu4Y5ll|Bh?<^&tmVQPoBZ zkJ0L48BFF|!Jbc&k_f8Q* zs$2V~EhZRb

N~p(xu#yDYbIE*t6*#P3}bL;h0-*w}eu=$pYxr)(`pA*f(s4D^4aau)b6ohwD@sy@7(UOFcP_r7D+31OyxfdVjgv*o5VOlb$bXz zdMv1#c$X9YV)1VsDZji6d{97X<(5kG^b%wI(2re-gzemci9tX2gw>!!VxDm$t1r^< ztLS5FY7vRAvcyg>vGOKg(hq)#O70rVs9+Oy&}ehy9NLs!zrnO`R}yQZcO`-LgV#wj z?c{Zev7bD=(*Ts40l`xtBjLG+=PKp)}YU)KK&@LmQ~t*)HCPFZk{J@Bk;0^q7b;XFbZzOA}9;G}2`bi-}`Y3Ze3^m~Nzi z`IqlYd{KsFwv>s7FR|7hyh}mFi@>a!{Dmh%QaosKtl68n4V6l6ENMkqeGnO5;MknOOw;G*6`B;S?)WDrUSC3S*9(KEH}$ zOh1NB5!3U?VCk`@BA8_mV>*Q&YC!4Ck2)}+s>0W}P)K1wQDcI6%$pSwGn|~e-~lSK zV@Z)W=fsyN=yo9ujVisTn1eQ15Bv6y2?}M-y@O;;OxADaQCvQ#UQt@_tqtpF3eXQy3qH15X?tHyu_`ugsA-#Uw=VMv-A2_@Jom_tUqbE67D8We8=PkRkNoob;u-fc@&`#9&phCk0KNVk6ULR1yd~sjhu^w90&3cOqW_Q z&FH5f{$$Y!a{J*j`2a!Wq!B*RgE3@89YJx&#>21?Il<8hcD>*7IG+H@J9~Kn&eRfL z6&7Md7DwPnY=;M7&75~IhR;lX>+|jKVp3zJ9UeJr zX$;L!u-MS~rcG%44%>RFw!>rC?A20hVzi64qtAvqT^?$ON16$^>}0f__uE=D`)d=X z9Y?oewH;neM8S}-`gay|&;&PYK;EoASzhTbQ5=fH{I&u!tYt5Q&@aLFB!Tk9mljvahsBRJk_&$?}#V4OMiPZdg z$RrBpkKuvFB+|gcLncvl=Kt{~kzx;+M7*%gSD8et>C_)@5cSl>$kJlg@(7Y*SDAWqq5frPnhrQ^}Djy!=cA? zSN1w7);h<}COb@Arp@9THnSKtf%u7`ZF_xW7|cAwu>vA@Fa z+I!9RKEG=vrTM7eH57%l#`Rz5cWv|TA&+~OmPrU3aeAt>~`{3 zB^|7h{1p*=;u2mgA}ce!JP28y)gPxXP6wk2#Q-+a!H8MI(!rvgNz=h%*4XU?vC~gl zocwlz*qzGi(9L^Is;&(Cfw1R2Vhz{Tg8FX9o3NL=zQ^YkIZ6us2Wnq?gc3{ zMn^${6I&z^4PA-85>_H5ge_}9Z``2@Nml!A7EVglYDhu9p}xQvf-_qOHO0f#kbF8f zLP0KYVSuknPMJJe4Qc2*)z|x%xq5~`UHslqGSCW7{9;z6q*4rtiAVP9$#Bxhp3aLQ zH9ZjD1+$e?wVWP!Ns*NTI_@%sE_Z*<4|Le5+*s z2dEg3;PV|xwHN*&k<^2QHNGRM969}Ak<=JBeSIXgY{ieJFG~9(43XD6JJXXxCZdOj zKTxyPnyi>vB?g~STl5`Bnm?jo$vth|U3(7fM;kAaaC}W=V9X1emIj(3oeegCf|Xt| zlCCdcixTaR8Aj=$Ym<$}L4y&PY%~@<-iXOYm;0<&0(LIhh~EF+d0Kx=^T&gJzv@%1 zf>gg)MtTN&kBt0ns!v5B*$|t*sQT1zA|!v0>QfI3$=g5f6_OJqA-+mTLOW^&!Lg~3 z`l{3cbu-^wQ`2vrHP$o4S)R1-e^!^hn&Ydk9L**Up*cGo1$Ia>Fxbe4Ya(`_p}|yJ zfNw`QgWSx;57P%BHnRCZe_aSPq~=Lo>mn59S4?;W#@l@$K^m}Nvx-yL&)gP7$C zCkjN;ud6H1|y3E5)H+Sl?>(469J);Eo3Y+Qnk7T86OiVyH3I( zyg@CA&=7;dIHy2lg_iX(PFInVy|c`sA%F`Uz{sDgjQ39NTC${`{bMuwN}hiVmk(cD z`LL4V>>p(Gl{_lVAfvD3Mcs;!(Z}z9zHgrP{`!A%`7n<@sT_OtD1Da?b1$||Rpg(R z^j_t(w{+v*xqMjZ6??XI3c7?uWmFbXjK&uNT22$ycK#%Z?SdAF?&2NPEuva$36w;= z$Ev5Hpbf3b)h za^3#nN3ma9ujGYCv0v}H9cSe&&vkwv+`#i(M8P%(faYx0_V<{!#NIDki+k0zkLAEQs={W`6IjT;b)e%YvY~ z7N;B_-*~~OnK!yDc*uBB5}xQploa7y zqf(X$Uogtn&_^t|gRG%Oz8vdQz7?Wp5&nOfF#Go7{kXO7jSFWEhIyk zEzR}gv%BFV%=Ix@<4eO_51i>@X^Oc2mFi}qSaPDuk|05ni;_i2hU>Wx){}WU@#Zp9 z$DH$mZ%18l5~cc3KaA5)7BEIAt4dFTS)qtuguzg9ZC=&PmCn&QNPLP@u zJy7QZBf)s3FrkbSJ>_s=DFN!2_}rK&GFh3AUKrU{A z3&k5h)TZ&4kJ%|SKoHVuO>hB%n;VJ=wl*I}PV*sH+?A<)m@ngNPuZdg&i5%KW}HdZ z5;HF3ACQ_zCY~Fko@m+Ww)e)KF;yCYP(aX->)fhr=H{Y3_IM^PQM2A}M+h5d5+U)m7!kiJpHWbqTU^zsQ*00QyLud6?%+jP0lD2!RBPxHnl|BAtV|NlYd0~ z5r3ugCXHSpqRy#tigOfEgzC;XBL)&)*~XajE#30*2JPIN&df+}V5groyZ?|KdasVR z7Cb@so%5UXch0Y;@^@<-|NH~>ZN77UzjJ=~U%#}z&6V}9>rSSwTYp@m#p`@w(E!iV ztor;mLT%6*uD7{9=Rf}K^q+?%%&0wOq`l085+-Vy>NxOc$BeE>6G4JNC2rx5v7tO8O{lrf-T|Gprp!eH8l{0?4cEKesTg(LBBu8w#cN(w zF^{kYVxU{glkLoAG}ne^xQ8NWRLR9igP2LYKtxYeq{Pz*rhEXiOOLEgGbmstcxZS{ zUs{+sRiLb@5kpF(d$e(nB{&6_ND(Vry`l&Rp%Mb>B5-aT=KH#tN)k#fn5CguDdbBD zoSJ9b{P0G6FtNHOJlvW{Wt0j=g;>*}ooLO0=VkdS*4LbOe)Da8`AZ5ZmnHty#1sN;63eA^T<)Q^=LG+9r`r)XZ}Ar`R)NK2tTi7UH01 z+tnch8qDdltvnw~$2aX!|M^QGG-BZh!0D&$IWkW58=(yhpHGUkC6W!p)bGhSBV94Z{)xFbXsH4 zA`givE*pjD>3~?T9s)SE@|{}=B_ST`@-;fIWJBsm9Wrx9^6y*F z$>ziAg=Ctp3?c`*0OhQPPrk&{2rS>tf03~-cEWm~dH!#Z$ zNfo|Cjx{Eiq#xi!c8d|ttRRTFG@O?<@}5SBNf|zx%mq}ZDPAwh`l=V^b7P4LN)*+{ zvaY+K`()SUx3k#ENeNvBH!Suer8d7U_RkByE%xtt>9@uHc_HD+%vk+PE%wswLDFly zbSuvA!W>HCmv-?%siBuJ#ZFO7eJgRQwQ?<#_!D(yf7 zW#YvaN-*ou$YqtwD^&v38V@OeCzsk6jPyimUnO4rD&a{MhV_LGFF9VyuyLZp=RRJ# zEC;ZYNpjUoNoy_k%X>ezS2itQxl1K9j8D8hd?L-@6VIPy9pa4(F6IxD(kUmC#zOAB)`V4MS;(@&I-znz$ebu{0x

7w^%&NdSi4&?Miq z)*@*F3s;U|lhf6MUzN@PncRDyO^)&!Jq97Cix;Lq`5miL<{XATZ4i%oa&x-8#{BrX zniOjvo(-r+k$^A+?0N{6tD3;kLD_|<;V2#hYJq3L3p1g`;=`m-rcB=86UQX^z+9ps<__fPN6YhXgqHB9*lRS ztjpz}r}(4l9U;}rNaZu0H$(K=;F~}QL$5(z-0-rZhqmcLCK0|RDh~jNG-3pKr^OhUOto~ZMRdaCh^OBqn z5WEoQS}{NU6?G)1V%?b@pWMlQRWRFSV;O@mPETKICAFHF8}0&}DI`*n!o(+Au9%#K z@!KNNL>8Qed(?}0`n*H=5GYt>`hJ1pt&6h>A&ROWc}N&J}ikb#DWsf0!YMT zlX#YXC857nmW*J2c<}jDu$8E=$!ghQH=OCY35Nz9Kk@1!1M_^|;Bj92b^5YiNED8o z~X@NQcG4}#9DRBY;49-+*|VvHwg@O6Y{BhAi#fEp@dgBe4&vZ|H)5Eh&258k=_P4?$-8a! z{CgxZ$Nfq9TZrn6kW~!F^zGGak zo1L}l#)eb0Ei2iLZ6*(S=w!2jn~@`)NgT3}A+Auoqri-fXad(AIXP&?l7vM9`AqMV z>EPo{sK_m?Gw*hm_*aB3ek&i;GKqe5kxkS5j1MYGPMt9<(*;rpL6KKQ^$-~iSU8z` zW{0Mp7uzdLM`tp`?iSm(e6|S zJT6Or`7wU}xKOvttLRdzR6KeAz&~863*zU8@DI-0AH=&X>c>%h4*;y2-+XG~-H);R zh)7=XdHh&}pZFf+d=}r2njgb^(ZY`6n+yIRKH$7;8JcYz=H))T>{IlK@9Ch&@FL9N zD83a7If!ckwiSZaT_?Ne%W#>;gZKw)9**OC%tNb~w(v#wk&x;!9OmT^zRSggaIHA$iCdwu_Lm*0=!@?8#>_dkfsdX^>J!Uz3cgG(NBx60Cc43~9y zKmKvcdBZow>mWXgZg#=9K<^b-ed~gYF83>NnJ(B(3xAf@Zkma`_SvWL()(;$fmtq3hU}_eB9sv zFuuLS71wpxz_)q4;<`QukqcK`qUYTplilZTU)ooE)%)~FH-iJ+UWac7?hfPIJoXvf zL|qZ0TyarHug62SMcn72diS+^=f>>%Jc8cx050!i@S^k|L2qf`+al=m1o}e*-zN2n z>wFb?i9XLrhgsiqg?WD&zUX(Yz&9GW%-4!^tK-`~?Jp|!b{OS~OO3?712d!>MUU+} z)Eh7Oe*e31)ax$zw%M+@zE1<+=c_}#sEUhEpzlUl=cC-T?@&&SlfLH)*K2lC-;coO zCy{sk&;x&%mR(3(9s~F+#!s&#zv8pdf4pq*%lj`M_g~~#R)4wWRTOt0^Rh^t`~EWY zs={|4`*9Wd(l28b-#Q{W{IV}DpSa8$zVqP={-Gk}CNA>giYuRK;QRVtX3&?`Ug);0 z`2Nbb)y)%d-50C!bC2)*a2@RZYxvHuuJ(x1r-tkLxm>dKKEL9k1oZ0!^Jwv_AE+B| z;F~dg#jkI$EE~S_t93ISx*Pbut}Z`;o;6&Qfd29mzIRnR;JUT=)ns4R8~DB+9>8J! za2%9_A%owjg>ReoiVOX(!hWOYkUL!`4wwDa!Z$h}#3igVTz~HLZ{Zt%yW*nnweW3o zUU9Lru1dg0&jIEB{kZ(&ii@7s!ew5H^5+)5@#iZp`>Ta-eCCSFz5wN5$RpB!Qo2n@ z=hxxeWL$CKt1VpSYr=V~;q%TXuQ<%F=m|rfalb4|w^{AbSK_k24&pLj3$81J!}<{= z>5A*Tt6y=*tIF{fF7&(~7yfz0H=;XS?6Lv%x)#34sUd@WyyDyBIb4*Iq06v-I+STuAcqtKaaQ{>N}p7O%L-wHChbuLdsit5<*K zpi|evC#8Q6>%W_n&UIY(MHQcw{s-}We;vhlxpu)}Ki2S7>D;TH)2l!5%kWKaJdE%A zuIoXL)Nu7%4!Y!9xHuQCxbls@Q#ylw+rl@!@h~p)atIe?V(1`VQ^yD4V;$(*kKjV* z0pxWRSAF9szRRy;_^9+Oz*ir@g})udWnK>9s^=WVg|9;VqK?nX$G{%16>0pAeU+QJ!@hU|?{Iz(;iBgp#9==kz|~K33?KMB zK7fnfID-EFLR|D5gBP6l1New^K7<3EpTb3-F}V6kEIwE0P{)Dq9l|+1>p1LFz!%(K zfUgxgybcFGc?cK%5b+W81cP^+ZV%v;o@0-E%-|yT9S(Bp5DxO_06rkUGB~AY1E=e} zf%AE(;f3#)(dZk1kGO8t&!E|ePvgL6489rp0pE<|FT#z!@e~gG&fuF7co3H$%9r7r z@pc%8{SNrLE29>lGN1PbPS?W=ap1Ry@GYq0@Q%-W0|)u|B{*Gg4SaKs9K?IR9vV1Z zCojaoZaRd6-VXS%D`5^Voc}a%zE1APH>cr2e5|au5#`I5;C!9ji%*;{O;cqaCzMl9 z;e0*R@Od{T0}lEL;7etGm&!cWaVn>(_*&r)YlZ%GoXVp)^Z9Dvlt0Xw&&!-S{i}G# z<<8vkeLZ(vpP743|GDRMz8fF-K5gKXZ_h(zUP^`jb)3&j;rnhLD|8w2huH$_D*YLGM=Q_SA{Q>9mvhsbjWG)|ZNe~cB$wUn*8VRio9;% zl+QG9K3_F_=6q?X$m<49_r+3?@5{pZ(y~A6-F< zYemkk9p@(voYJ|9_k5ihJc&Ngs9FQqas6?wf@hbZg;^pFk3-!?|Cgg)@4# za3-%I+0@}&4z_T{XIeO0&yYMCa8A!U&iKX^XY2WzB+BVl#~I&f;Y=@rWKf6C6}sJz z^L0K`zA@ybLeHf_&pOW6Ik$@;IWpjU-PUnR=Z@RIkfi8vF4u;R+oyG$%eyO1>D+NU zw}n%BR`G$aXHCWmIOETCyj191sGc))Ts~g^!RcAUrwX0#$0`5mc)VlixV(D==kvnt z-=X9F{}#^azf{)$LiL%Uk$@e%Vg58%Lu9nR?weBR(77Y^bgcO1^=1?1X6T;%3KobEf6;|A|4^sM82 zf91;h&z#Pv=Qy0M^9C+@m%$fKPt@xiPS<$@r*zIUryJ_A4ySzPZhYc=1NC-?bGp@W zx}K|e;p-Fa8i#Xw)^W;z&@OX0r&}EtJMj?SSJrt~S+`w%1bDb4C6( zaK=xJU&7&xZY^B=B!}>s@@M0>aX6!!@e4Vet>+fb=w|#{2Iq3k_{|RDoIYGW8o!^z z89%S%1LYgWZ|QKhK3h2B8!epExrTQYde(8i&g(eiGsf@ja6T`&LjO$loGOlfeuFQ3 zJuh4inz+M3obC&ZgE*Yh4dW~aak?)s?sE`la<+vtxlqSP&c~KgnU_+bbK&b8<9Y{i zJ}*Os&NaN}>%4)}_20nxeDxJNcT_Jjap8kF<$DXamrY#T;grsEMV`*wKCR;mr*i|R z^ladi&)kjAd|qa5|C+oDhg1Gm#Vhi9uE<%;GjTXw{|%h-rMV(!F|Wqqbe&gmZqJ&$ zAcs?Zsft(R{sTDWdvjOWM-@4Xd0Yms$lnG|`48ryIh@nKf@5Bs!|A?g;B=i&+%9h6 zl>QBz>Tgp;zE2f-jd_v>aXK##;B?1%d|BMwqaIE-kUWQlvKUKWqx54vw z1|P8g#vvT)dmO^4+-cx^-r@Y?K^*ETJcYx&XuXlq_&doed83c?yTRZC`+Qx{t8lT@}wr&qFxSQ|s?FaFLG(anWPH z0`FJccL(qV=?wJ`>$vDY2XUyocnBAMdkCL!e?eVGsBdHHL)LMTn}_fb>uMgtg-?D7 zUa)@Y=HmLqh0Z2!M=R-Ke*AC*sR}BvFuO8}7_dU|z;4qJXcSwJ&kJ`Y2o`-PZ zs|E)>q=UN3n9qszW@|X+c^_4p;eW>-MW(LQ^cywjTZn>!E>5J$C5-azC#6fbBb=a?|!rP=7)mfWKk? zf&u5Tj_>kUQz>7IOWpnf*N@6m+n+-H1DdLN{^&y?^y!fPbzJK0cSz?iz%$NQr+rvf z>{B3vA;t3i(NARWYqKu6U+VZq=N|j4weY?F(F3^FF|J(St=dP-_Jt8Yfa_~h!{w&E z=`+~CrSHrHea8^TK8X!{6P6B_kGZB;LO-KP>1_H3)$zSQ)Y@a8ojNXkf_m)ZV{qvE zBSdky#1XD3esF*B+e2#JC%)g`_Is-18_};RaDU2EOyLW4QJO!~PxDzH-t>&-ATZ zwSVFQ{WpvDP19B|ZG2zn+G?haOTRzR)9%M5U!})BJDtW0uA*D#u@rrOT<6$-us~nY zV>r-F7Ud&2(6fe%J?r{Ks=U+IQs<98l5(F8`!hm+$qxGx)^X|E*daaZ_|BKU1Xq7@ zZ~Ki-+V53F}? z%6FMQxpiFL6ZMb=4*hu#;Tv&nKi_+C?GxepAkW%A7xkHb#=g%gFB~m`_Y?z+?Rj!`Li!D_TQ}HMf;vRd}CgRap|Z36#i*+ZT-hpAMOXGKlU4~ z;=R)UAP#--RlZ=K@h`!%_WQ>Et=j+SiYtG|M6em^69@`{{P=^!;by8w-0sp^#49yWD|_n8VZ|Z z?A_wf`0n4IeB9O8{G3nwIK+XUJ^Q%6<6npPD<3!WuS5KWj~h&L27MgjuY8=TZ3B-p zy#&otxjwL~KT!VEVIGo*+Mn-lY0Cr4r*zQ>K7S$ld2HfSNBwZCS1=uY-8BF4Z>Rrk z5#s;;FY?#RV>gTH3T{8rrjJ~qsqE0Q4_!a6I{mzk-Ttw8YAzRcpE~9h+F!H#(SP1< zGgd#x%8*U#`nYiVe8{Jl+d*RwW4DJ0dWM(T)WMIp-XML3d`SN(9QO~|PW*%Y?MspOo4kBNg3#T|PsI#8GgZ#pzV$+3U&?tLq)mx%8^}j+&`m!}Tt* z)}GmRwgr)HJH%hO%STi3O&^E&D<3!WuN&tt`MPP~Ux)ZBA7|PZ!Q)oiR`xEIIcY0u zt&(+RnZiR-*>@140-i6gyp$@I0DLjatZ#MUqMw{b(AAHX&jDm(f5RbOU^*vTk`s z_8b$!rE<^wIrkad=-MayW z3j3~vUDJ8}&WTn$s)MIU^SKEf5;sQOqJK@VNLb!4F$2%sdpP2h)MNl z4+0|dA_%T3&n^Iof70prLv-YM_(Z;~;t4JkBI_zwB}Az`qXh z*FCPcrRn8y27gpX)|{nl1>5Zy#HWtD^K$VPyc;`v4Eiv`68IV(){z@FaAU)Na4yd* zfD?KB&vIuKj6`)5#>>^ermoj70a8^;QMorlvwyC5Cy>9Z^G82Jd>bmv(FvlnJ%~G5 zj3j|nYzy?kI;RpY9Qpul)YZ2$7EDq%jgH=O1|4QxErVBP;g)e~lNC>cSCdfmcWz-h z&8hSHloBk;$%N94YHV}V6j!2aBT6o;LvHL5O%Vm_F}3ivrdXU|nBvZKc38iJ3p>9z ziTP_5CN-!J+Xr6iqlVgfs@PR2@Y$lltiNe<;0oC$=-t>2UPrrSbEw4!if8d=CGL?G zsMC2%6QRBYsAM*FcHCJvJaUjsbbsL%`WXW0_X=cI5?naNvC1AZtl-tZAVPB=ppx0x zzJv?2bHf-q{~5~VHGvL#@PmQ^_zU$R+gd{(hxjWWxA3n+{DqI}O(PtA9O5s0+>rU# zAx@M_b8c}`RSogW8|yimL6TIecnA4ZvMP^gvArg1U4vs=^7GI4$K0`lGuA&?cS{BY zW{<88bV*EJ89*K^dMSj&qMdzaAPVo^dqPlaLE)`JbaGF|&oxqQL*aOf5Q$+Vl5}V` z;pnunNggpAyl?%m;Sl`}(Qxqo8ta|eKZn^33URlw*bTj(VT90b=)Ip8p^^hM_c}I< zpLcQoBb9<^O7!t_(dGyS2FlrK2{cBVqlm@TX(rI>Kik+gpca)9pnX!2JQ#zRy~PP3pm~b4LDc&r(Z&eY zgfU>h&Q1uE(*Wu$3f8paM(=baPhd5Ihu|OayjDQ=(5DJ~v@W&NKtUCEeD2&2L9#R;I zJ1RJ>{$Pa>YsCID)&DO2*NO;^rYe_x(INRD@ zABXr0A7?wN>*Ek-f(bj2pkM;r2q5VEQ^Ow@Obe9J`WjY7vRz2>j4*}YS1^e^@cRm; zRVo(^TG#18Psa8$wetl-R#Pq4X)1w2D~V-bIKgLl;QZ}2SuHb3LJ=XTh0sc!64^T? zAU3LydfX8Wu6b~1%+&T(LwEFcq(B&S7zv%>!t5_hc-g=l1DJ9?iNj`DBBtM*NU-H> z(b-$W7;V{K6K#2Pie$$R5K^}S+NbLj2;Rjx=$H6hOj?}12T7bR2o;z=MSHI&LA0eO zz8MlHL$=mOE{TapArhE~wwSmVArXH=B}(WckA@fC&`$|dkGW%K#B$!SKU%9>O%HF- z3;=(fB66*h#1s*Ozw&Vl{W^oc@Nr$i#^L(7uFwLe&pyuf;nv3?PP97He;Kqo#8G>@ z{$nfRQ^gP%DY@Ay>Cf3&*+TfP61_>|0AJ3b{MtMiH#3X5ZDY$O(CqD(X#RlHJG zOFo)?qzDp`RguIqC*)uQNudad7ET%5)C7daDL}tAG8WX$J0fGMgkof@EaAd#3Q*4O z?QUn|pzH1~0AOH)O~ zw=eOXA%|-9OCJpYJirssW6;SSi`ZWE{D$Jd9}z=Hvm?1CEt|c0#O20$mS$k^{w&4) zxqn>*5v_CLh-m~Bxy(y8(=eO`PSgpo-BW%@%Grl3%mW_E-@F%B)yp_TH~ehz2}&H| zeE`3m4t`M$`&MNJDM92^!=kOLMlEIf?|;HM4X7&7OPSR7k1`*7xz!%Zr~dmF6}NyY z$&rLFd0du0nD*-wf9>OB_T1xOR$uqHUQ33V$MslB?3Is`O5bMg0KfBCNLJ-g3xEE6 z2UmkR76N*s2>wM6qebk?j)i!m=Wupc)SlaC@3yxf#|}se(8-<(S@y9zbjPWX>@TF* zT_e%iTRJR4_v^5#Eq&pM5~9`yck5l*UBL@l&+Zz$T9z;`-eh+L=U}1&etSujyxcA& zS!k8)uAl|ivb&CG!FObLHPYMp$rXCm_1vP8=*^g^miLE4Y3Mizr5I|FHDV027}{X3Swg;#V4T6VboFjk(ttbGMG_yvCRlNGCNDM|Pl+OtD~Xn2EZnf40K-4+ay6=jj>!^Tol037*>wCX~fJ*KXM2 zr|nhx=M7(RGtq+t6ZCt3gJ43D(v4RCEZ7|maZm!xeE`2t|CEkd{UFUoKlRVSE9Z!U zS}ALUVd&j`K{;<`DkhSQYyFj^-dVzBtczoH_R4iMERN#6_n2HJ(2Qe+^^bn7DW{X? zn!Lf-SV2ETxNd@;3KJUXQwbNAICkjm6OhRP8}BCjdVmmb08=TlHNvMlzbZ^tG}zdkCoj6ziwg&ssiC#vRQvZe+&{;zeRxPc@y}$Yff5v|DHB`7 zZGtWu@_|3b>flwMJvrbg!qcR}w|F{9@zd{(>DuSF_z;%wowNP%k%LFVdhc&MA+nFM zZgtapvgalBLRo*I1U?1~Q5$V4r~MN*-6Yux%YPh;OTdX8GYOA zJNjaq{cz0a>uvUD5&-pke*>GnlaAKbX78}mwZ*kFu)UAq_u1^y4f-mIAdh^67F>fU zxTCh<+U{Ula79cYX>y(tHgvX~`b(%jINRaa9{{MTC09n3d)cWGE~o>lHZ5 z68i`J#4idhrixqOV#ahPz#MKAd;lig-Tz20b8JwnZkIU|59U1OR^ZxG0kgcHDCMW$h9T~2*RHXKQw~V_p&8kI; zpKZO50Ta2khXCTw*HSTcNAz?R=vRw$cG}gpE(oE^bYA9jUassPTFVaLhlDc81Gpgp zE^yEZZi4VHR`tuePJ?K{BL4vuG9tZ`Y4}9= zB-ZyfrotG^yK-YzqWw$(qw_fLZ%g`!NADcVHt`(O+UMKA=Sw3l!=9pdU9Wo5@S(-# z9g$~9t|+G3)%Lpr%K2O6{s>0>^ZZ7_Lbpobwt3;AC9q1~OJKdfE#q!s0(>@buQ~pB z6M*lUpi$U-=`gI1&h}|nSyHUacqUbYb9qH=W{-r zm0u>H6I`H)cuI}32*Zh;TEY5-4lhJo4f<8$sm+OGa#bP%#GRRmmBF(k_buCB~Lc5l9b{gjtLVo@iGJzVv^!%#(K1=BRhwP*PLMs zMNyzs2GFa;%*GjdGO!wusf1{Lp^|op`z@k;4J({ryk9(3oNnDNow`ZEjoKEB(g{Wb z77Ws}VUGud(=pPlS=zR$YRu!=W z<(+RME>cP|R!IH=J~W_2#8$R2$$fffU=y;T>VV#W&^`|+aq4hC4;4a3g2gA>E8R!# znve_Y3t^5xCtK9F_Yqo}C4lJ!0mV5YkUsY=&QX+e*A-KhAGtIi1Olubz>P z^77r>Qx9H4dPWb{fj7s_?4D<^1lCp5^r7g(42x$5Fo{rB0CXyuHGlv*aegKS9(@FUJsvbI>*&(wfV;$?cl(S zn)a`XdDH&IGH%-TPa898Zz6di6<0coEgJiz>knYwxC)6(40GmjRLA|s3-NMza=W_?s$14PjjQ#{Y+Xs09`Bye*Q5FT_F zpX~Y{)8HN1PYN8U`G8>PUB+_ztL-gV$;fcnG`W+i8o^rv!z>^m_oZ8q{pfBez-)Gg zRtQ5YmIIX%FP-uM%zB0jaKE)bfSrC~%8P!xMpiinq|?(XN@c`GQ9?&HaSCIt9Ss&! z)GCn@&Ldy~uYMxuWfFIBOBM4u?E)VtXQbzYjT_o$6dl_U?#-Cv|i5JvybmbsbJVgjx*Fc zrDGT$b$}Cpx>+t$4i^fvzcYj-;hmdmt-)?;${{VgqPrV4Y;mtyHL!J23z^@MW0Sud z&Z<0k;qoFA(bCHxc5E?`B&bA+4Kc=SMQxK`n?-+vhm&?xiRbzxjCf!YWfyEC5~DBy zqy;H5$y0;V%U~f6XvIJAKeaJCo#^Lc*yv@R75_x+B|J?td&*e0OFGLYk{@LmA1>ff z{oE|zu+Z;xrFDI;zO?5gZ6ftKj8MgT0^u}L!v192_gSWd=aiMEW7tF3WZ*GbV!2WpPtX(K%4OQ9w`{e z^QK+JBihZ>V8k_xo-|sC14UVuVL!uIIbRq?2T-5t%>Ou-_yFH!?ab`_ZhRZY7rGt$LzsM86yzVbV(*a;r2SDf~EjLc-1a>|DnOQ=v*m@-;;HxfXK_izz7`8~Xtqq@4*{ z;ro&?RY6r|!~{Gayhp#LVtP%rkUgX@p*dW<9`L}y0iHE~xP$~|%YvY#u({$+3dH^} zKi$T)*adJA#MgQ`#!d@(5HGmlD-$W-rz72^Zg-ujQ1SAV=+NN~N7QBJNma$~cPo8Fh+@o~BQd1qbM%+5S5 zo^oS2>Kjf6@8VZjJE7(|9Ni^-0y0&hyRNn@dUf4f#N8vMVsu2Wb983M$oGlBic6Sd za$#i0W+24hX;*1}+Oi+;ofh4vJ8T$9XI+t|S$D`p%**r_3x%f2_!>MOq>M$y)bKi^ za)0FQz+Re__x0f>dk(ujiWiwqhREnr%{chV_+N+YPD~r6u6hq=Y({CTIF2N&(f`r#Oj!p5A*7?sXu$9>W3MGq;Ko=Ill{K7l@D74ryVu~?xvYaE!ACMyyhqrB zSgm<}YS+=kEg$!dJkzFQJsc1s$KY_`QsedEsBeg^p>N_hWv5%b$EvmfGW~QIzURm| z&dlCpYR_9Jq(rHi?Q|1@3_e*I(nG*6IHZxo`8c3wwQSpm+-nt(+AXBt}h^Gi}G4GnP zXJwwj#HmzpdwuJYm((O5%MbJ_X8jhlZjbXVHt0@FzkMyZ+k?Hk6^7pPWL@ClGZPiy zh`q@w^vT zZy<$&C`D(f54Dz9u-4(rnJ{Why)N}!Hk9wlXn&x}|0ZNjiUN8+Qmw=sKp1lqOcL3( z1eGnbm4UMi1LK6=YXd9j1up#k_xQw)C{3^FITOG8&I} zQmsLlH&bPn)o1Ko(oCnzf($(50jMA13cRO?27)$5+>Jlsv z!fZq+V{JK~FiET?ACz%hbN9wEA4(xIUz%}Z`<|x1A@tw5SMR<-o%kKu=iQC}KI}0*q!|FAZbbSk4jbM|AIMR7a$Jm` z(scwzROsy}6uf9AfS6Oz7<|1P$JVWsHpi`DhK#yEOKH*7wXYhv0hmv$HVtX^d+e6f zkcSxOR~k*&;i<1khcXKX&fe?QXdo*6IS7pE4z)f`2KnR%YNd;B(=7prYY6M#)WrcJ zE|#8>f1@DB7KTJ}`%uv8dJ7Bh>pMQ^tokhrp?%$C?L08&v%6(mqeRO{*X5_9r}!JY z*%T4N?Br}fU~!(m1K;nax0eQbmc8@R7Swtx3&*_YfrB)W$Q_0`#qrg$+;@(vV!@EY9&N6E!dYKB$cOT*@y56&o! z;YAe?^quwHP>`zA{Ghn1r~NHb^$kl?rC%Y$5?`~274fC!aM_|DT#ips4kB+6kkY1o z?V?XKQSy^g@Llw{TQaM>5*8Hao@so*%Fcxa^!ANtt!Kw*R; z-YOCSc^jtDC5FcicBTG%HG4pxN5RA6OE*mk!5evrOI5QtC1UE_lqIQbx z^5KXgAgveoCqcaxpGTuP_$x>g1WwfE$n6}Y+0kHhRKkX=q6Vvcg4MEgnRUka9q@F@ zsJ{|-XCL2UvoUqw5;UPwt$Ee+wQ}m$T;A60iI+hEUX($!?sfDhYmGTu3*D-B9t4lJZXBOFX zlcxZ(JA?%Ej|DVWc#al6?FZ>Zx3HX-`hpU2Ubs2rZ`e5}RNjL$pE%N~{D2+^_|K6* z<;SIn2%Q)R+C9f~uc- z39!~Jt651oGMR-dix=8DiZY3mORwCdtsb-;Q{0IHcP6#M$ugKUg_46yZu#gPzRzv2 zBObX!oJQ>UY9Ttj(rxjDrm1C794_ByE87*1^uUk%6#^Bbe048zoZ{b&e=5uQon{2n z6JTijotCPAeeY`Bu=^?pf@v$PpF!qQusUhTls-hXl5SWt{b-zKbz}d6T}>Ur2KH2^MravY*-4d>Pt;B>+iFgpR#6or01cK|C{C%ABY{Xok{6VslH_bYf{>X`$HZQp z8q8#=AEx4Ui^}ntaTv+`aLK35`X-*(soES&QJ)#}Z|OA2U#23*<2}Knx(*(PZ-Wt; z#mmC81+ip-hZe#h6KVjzfsAp!JacS%#4IB<-#pKN(#V9mo)qRtNfopTlbd4 zs%Fp%{Jdt7u}%4AksOmo8fqHc2v9!%62BlrB}h|x@^f002Gg{@T4OB)I5KKhMuO&G zlCS_dF!@}ZOZROk(JHhU=VK=H*`b-Y}?c17}k#wu*%io zLnc+cqGfgB-mshpud`8h9TW`6r29hPn=%IW89-}H-vEH%QTbXo!v3MZ2Dv$T?NQI3EbCI!u; z!y&S3o;2off(-B=No+PP($q#qPMk*bE9~U>q#5HFZ-JT!5wP<4`LK#`$?o(eJ<##m z=V?jO;G*STBbU`|6=i?6KFA_yS$rG&2k?+HQMgBDI*HW=&Y<*r*}SrAWJ{cq5_Tr~ zmyFTg3F6<$obRx4oPf&|CqcpUwFtl{=dba#yeU``f@-#+EC$G8ypv#ADXcsfE`v2^`jhsVKyPhxvTZY? zhif%tqs}`3+jn_6ZWBZ2;T?`%8i80TQO5B3+qGd21`?mZ5jujRo ze8^{V{g#MBj~C|nJxoRga>UHQWma}GD4*)jH|-^r-0Xg`3L9Vz5i=dEBg15WXAb!t z>_DNqYbAQ0FxDn&MY%!B1|SIyDDgTD=<^4$=MMuLZPNqbx{%kge@?{bWuW^oXA8&# z&53$0?R~goVGwE6M7jQpbg}Grm4F@YJDRas3zq|WNamMe0~!rf8W&ek-k$i2#0JJh zNObym6d7LO37#%&1^^7~$%8lk@t?P)M2C=(6Gei!5IH{=4K^#_qe?5S=hNLk!6GrF zEh058Ke~}x#Iv1>QMEyg!#7aW%eoiISuY`#`DFDd@(r7!2p7%r45zZT`6*32tb^Ex zr^}+tNDtK6M!fapV>qm>q4>s=FaY{DDGu)jI(xlhS6zzf?rUQ8!N!YC|`6 ztm72>*i9duxZHOE4c8in0`6>RJ!JE#y`wt`rKVCus%J&+nmZ8Df^_62ArH7 zDaL3tgTLvqY*o^Ch+Z<=Ja2Z5_W=%!#v~uSvZi6@vq)qINw3!j#xHH)WCP=D*o}i@ z>_Eq$9O=a#*EK4;m(@74-T)!Rt5R`Dvt!Nk7KCP9Qj(xEbchOkV9Lt=AdSetHmzin zJZmhvo&6j(M60ze4FLW2a7E1Fmc+f$5(9LX&JMjt-6@LIz=i7*RHV+@__klZMk6bJ zTNjD?kan4)41li2ApIeK)kwmCa%XBuAdOc&jPnv_R8=|ZWsVA*X29U){^$j%%Tb-o zma)m-&0Av^?aJJM$FI!FgBlXA+u@7du(FENyFpo;!@R6Vp_yCTk6*C|t*kQ7raC*1 zVXJ}$b3D7oD9Fi%MYLBN^g7{|xViU!OI;?(5CC?c6lqPEfxJ-ovGj_}o10!@4D)ig z|2r)B=;E8773-%*I$khCLcP+?-u~slrl?zenoDv!eVUWg&G;tktu4L8CKRbBeH!@XgxZv# zKF{CFNNmqs>Jxt1P1@4|Jn9p2rZkbl$5QnvMYMTPT;}7fN3yCt+aiV=`8c%mdxSriSjYIm z$F(UDN7s`XxA^s^uJaPOiqJ^sR`JkC6nMZG-iwtE@iN+tmQGQ%S1iDv=K=3BvKmmm zzO@b@7|dY&(fUmF>Sn)=#*+hYisW=AiJm)?PIoe&2u;@M z7@HZyjC-=5y7v8xm2V5++SFNS!m8vd>!&#|y%3Gnt{K5I ztZu9aW?f&y`q%(l<8MX2;QG?R8YeoQ563(_&g6WE}BOdF^MFPVr@E6iX}NS={vGhlLoM}CsD~> zm($YdFLz#SO#&FaJliOz3?_zcFtlo;vjw{KHN{w+z4hV+SLNieuWznwM3If1ir+PC z{-PX!&_aJz{G*e)_Oy;`?jYTV8F0ybuJgjHIeJIkH;dlUZHd5R*9O1Q_}w+@TOu>* zCH0lD^_h^&@GPGUvY?9Rq!zi#xX>2<*_aESNVf0CUViQBX@~bE<@QVzcO<-o&(qkU zx6=m9mRPcIlX#Wa5m)lte2&p812NONdTjybY9I%QjuH>jK+XxqBASOpV54hINix~i zR8Gkm9O+-G_4UcFJ-8Rt?}4=3D~u;+W?m9Od?W(`KT@ytL4t4YhY~L5L|Gru&#|Zz zF4qyBhZ5g8AwS$VCfv9C+1$6e@UO}*1$qph;2_C@h9H6`K;U!dWn>70U4j<;oGN}voKcuvKVS;1`!^%xw2@ z<4kT-n4LkS5T?h{S)uMKIyR0T+Wf|~M8&7z;H%Bd&;wK;?)!PchZT2sp0Xfu_(FW` zVM1QyY#qZkxXF7P-)lJ!0*N!autTj6V#RyG$dPGO>8bedl}j}m>s9pHn}loD^Qrsq zbxyr+N}{do99miq)gG&I5*e*kZ5m_#D=l@!&qR`J0Tk|*Yqj-hDF-Uw5e(q45H$5{ zQY{4;t1)>c!>XMZ9VemS&Pkb>l~)G)^W<7FYh!j?ITsB%w6QzV@NtOOxED@39_ z>}7#txQjTv6l5SM9@uaXpijjY2?gF#GPTReh=)AgQ)ap+LSFv38$QaabOBRo$tO#b zS(ez-JSU@eg*0_C^=ZRHR`t&6N?!?@t5J@OUPj`*z+pz~FhVaEISON0nH8==*Rqro z*Zn^&tFlfqVQ$x@gOTX1_ZRC|^4qAZs;&!jO=Z;ghnvUaPxGx)X%#kvRSNf5aLgoe z^du>>jx)IIfj}1i!7Kb6w|)+7eLfr+4g}9{mgfcFfAtYCl z@RcXthk8v!p;25?OSV;=E25b5oRh=I$aO}Gz%wSO0(GSR*7L#x7ju}8OmlY zH)|m`?0w?!sflXZ;JlAh6roWZ7S&5RB;RZKj$~%_Ajp553rKIy7|jeUiUHZbZ{PpZ zj=_o|Ef#vKwUH$tSY1vzALR|V6R&%TCG^VDPPp)>J%g=9?>VTfa@vvHOs=S_V2wk^_*c1cQi(D36z*-WTac$h)Hh)eBIQa< zo>B{-oWR`ZI|3#DmNN|k8;k?b^gs`tf3ATBz5a4q!U9nHlJ#S$6D#Pak3_dRR?ls#<*83Uv`b* zWJ$YG$Oa0lzZuEyEvrH@T{kBb)g)=Bd1JYs>LhY8U#ioQiQoXIkJ?2m=b5ivwDWUp z3x;y-;$l0Kdh2WrrwK{acpY_}DUr?>!;TljNY{?>AfJ7-NVlPI01D^}UWwH=*F7Az zQ)ny5X?^-NvO9|t_16@J$g|sh)jf?TtiI zM#NQ9N57Ut_4dzs7yn5a2G-2~ld4^clI|0Iz9QXZhu4wnJOjt_sY5uN`zK{Y9OC}t zavt4H`Fs_I6Wz_+@FHJGCnlTK&AQ26yg7EZT08?gjUO#}H*=!H9zWS#5EyiP5rDK( zw2741zPf-+VIh|jhHg+?;4LU|q<)9SU%)DJ&NBeF*>oE1*?yuU>Tu+|J0y)%;S$M6 zVQ83knon~b4R}= z<^6-7IMfdhvf*ns?!jJ>fx^QA4@BspjoO%Ts2 z{RZ^mB66!#PMXvJ7td zQj)gNO0bdHuKhsfZ0#fu((Sdrey|&W_0<&{eZJtLIoW5jdOgxVUFZuEpw?O=ojvU}VmH~m#raXze{E8T|Jq&#Uvv|q7vpSWTXZvtGJ!Ti0 z%qLWewVUp5F0A?jC(l}6nJDjCl=W{RNy;TPyh1SBQTWegc_6Y-!5u%M(O5(Qq z0%)OKm}Jg7lh&}S>ISt9h86S+@C7{8_SwUPH3k>#^ms~LTY;a=#OkTS^BN;-P2D4n zkyG1rm)7txh4&ba(LIrj80{tc1Qa)#Ym~`!gTAZA++?x6Y_JyXG1x3D;>x)NhBj9``|*-J=km)9 zAHY?-I2U!;Zl#!++=<3k$xUPG-vIZ*&7|$lvb;)JyQwqTZch-mfVVz(S~)kYgAeqX z(@74AA9BPGgxD7f-cD_87*mKG*m%l3YX;hW2`RqKE4MLnjV3Ld>L#r1YCCsyqFeuu z^L-qb@hPBC8XdHo2!naCjl1qN$EpgV)7Up<*NN>x9noGne)H5BN>!no--8W|my_Gb zCo}Zxbvm)TW#=`zXs9&wYMf3G`=Q4UDQOUkg!Ry#6Le2?+j>xK9+tpHiO1bLq;Kp+ z(!G#aFKd&0Y(#?9sW`8FiDyFJ+m4pg*7*!JX7qR|rq7MHkw>&H5WP=dAwU z0T8y4Csk!~01Ex**o|o!sPyYVKYSJi=JHzsCD}$_guKIMB+pjg?@Z8evAuuTpBVRD zkytI5(u&;(^wC=1gJg9)^6ww=a~WEH;(NAV(A&DT!ya{PR-FkW4>&u)U<4q+6o2g{ zedJps2mlfKuqJ>KFJNM{@bCV4l&MCMq=FZ8FMYiBgr({cX242L4n|Zj&yk1r?a2By zS9-LY5^fwXDh*<-{hju+pc`!*sP|LlmNoy zF+n(=9agI5R4p<`;zYtGMXgYe$LFi)@?dnN@H&cMX~ie@M{}|9n zKaV?O}Wh)gl2Z5JTkC3w@oR#PB$ln2-HP6iB95{o_+l9(|{PG zy$sW($7IwU$1Ein6e!jP+FL{LVL?Nq9|;+GxE%$?K&kHK-4722Q6ABO5(4?EFkWMk zH)MBiKfr9HxxsSEclcrG)v54-!3Ki-vl^J`Vu->TX*G$RCSaxcO^dOZj$q=s1i2~b z_M;Aib10mQi$&RZXGFg$m|aR_Q{`HBPLSbhFZ2K0Gy_RwS?7;xl{cOw))H=%Xp&?n zvtS{FGiw+RHIs6Wo;m&nYW-so3n%41vD!}yRps;+e%W~;P%8vpK@kX9A^M!7UU=!# zQFOW5d>`7J-D5l>n$!DxVj4QFdGCm4r8cIGkI~sGEy9%TiHEPAy&NfmgZfK~!z!2B zPR+T;%j|Q|zcp#{$SKW*2|6@nD4P?z6SbjaEyDJuTRsgd_d?EbN z_m;tQLttYbwY|#my1?CtU;fW(?S=TU(V&GUS2dCv@2NKQc1+KlT zA`xr+R~`S#mPDvmQHDq$izmk&t4LDgwnmyAZPinY`e-1E8padV;|O#^4Os`K z++rpNg!(d<5L`DAt;!t0LI&CF#zSQSGwh)--Oa><`%ROKCp32InS$gnH;swSdcy7y zI~t^W{H$t@olCWdLlw1=dZTry&oyXJtH}HM?LZ?YYG^3lMbzZH^q7r(boSQ#6yErmp|7bMj{MFdC z4U6wImO*aFL_a}Ol){k0ag4A6;3UaUXmt7dO0L;)*?(%Utb`2z8I<;(;&<5TTv_42 zb+0oGX+vGRUyk~oO_#7Lb(6R<%nX1T)>YQx8g*N37xl_dtZ~U{)IIW_K6$F;s^2Uj z>L_pS{-y4eHb)_v2n`VdYg5nq8Md>N8dnte$%6M6`Ye%X`NkeeR{WNd_at(5wg?=N4=W8E@%2kk4Liqi6?) zG^XlAp+QmkUSp1JZr~P)OnlVuvOjhpBddzS(s^pdA|voPpY4^{Dc2fYYzZ7ZH+Loz zq~2_6(se50wIl%AReSFeJ)jr&g|;2QruF;Bn^ic`X&NcB=knz;H>}dk4$yBMcj8

yfWPy1$!bsH$i~x?imh8Y#sdY0k0QTS;vCMy)P^S~o{YxCPkX+Ndn* zgUNWi2>X^^Lo^|gF)usahf|$j?TK9qW$jk&;BNSwq#WBVrwi~fDnU(_q$cLGuu5az zf#71bzPj{O^55wlKZ`SS!qU=~8(}m(Z4ibyzmK`kLDxCk^TfazQbg0^>+yqN@a&c#Cqo?EY_kO$5vRZV(!O+ zypNUxrYp{OF(FeEHiP{?g9H|}wHe4GGz%MK$*pum%f3Bl@_cLvCWp6-kSW=nGAADs zZ}LY2UK_hrYI(pX`_4{ndfF9;;8!@Cbv3vfzJGZ}cBYTF81H>OG-dpWf4;of@k$8^ zAb;W6_U925I{QyFIVs#^#(A3^qsYlnI2_Ha_HLX@w3ok#P`HB0m!0q>Q(d8ss!Wr~ z2xN5+s4cG~D9J=K^oGpgWs3SO2;3;*EsKTA(-W!<5<=8@J&H((T_z;XQm9kVis?lH zDa=-^4J{g6r^h8p_4B+;F_bOy#&z;>QcK7?`6Vk+!uKR|7ug36oXQYtiB=nPz7&-W zrnlj|`I7kEFZtc?^kJ+GaG^4#!R9L^8W=L#QdRYW4%y5bNBZx{kS=AodpP5X#ePcB zm@ReHLoiN>&Lt+gY7{4=m&={8q^49!2u@})d&vO`6Cc<_WYWrf#FU$V~^NPi&OWIz!-LtG&gy=yF4Q}Ng_cC_;*#3^j7!t zrPxU#Plxrp?CbbjRi)j?q_)*3+7kvGai@=BogV{yoJt%bPF1osY|5*Aqnmedr3DL4 zc$FHLU36pa@^&%yxR=PvoPG&kyILcAMdy$AHBW5q>Y93%35T-x?|PmZp61of7U`L2)xYZtB?8PeX^1XoTsJ!Xn|gK)hiODZ3>>zDnvslg zwwSQFv>wz105V<21Ke(M&&3Y0?iv%!C9`#t@rkc&RX}9;jBZ9zu z#r*(h7#4*oAb8a$Fnm#$6-!4|mKixjf0!sVCmyfAD~~#X+>B|wyh?7iD*rm6btg4d zRv~`&x!wmdsz9-D`=F6App6#zGs6G<=ny}C!hb3%~3R^~S-R1O}9 zgF7$x6bJI|gPUN#)-xw0>9f6cZRRO{pM{M(5AYISyxqf9oWpr*!c7SDEe#F&N98F# z4e(qSBD|Va^AMk(ZM4{E3%p(k@mzYYtPn$3j&d&PkWKh=t>ZTqFdP(p)aQveHx-YTgyYLZ~mp1e(S|5TO z`k=G1#JY_!cfE)E_7Y_nHyfNIUc?Ze@!- zv3Z8I3Fce>{#pj7OU^H)-7V7Oz*s?D{8O+WSIWx?h{c{8C0O^dUo~D(CE;qqYX;?A z4!5c~a(PUuah-OJP^`j69e!PiOVbAUaL|5nFSpZJ=fP}*G{Ge|XyD~b|0m%c`VW7H zVHyNWgS9ruQ#CL;x+xb}6l^VrA(58-^R=JQu@9G$5FlOE{92U4zJxW;paa8rqhI*& zD<4~0%CP{CnlQK6lxJ1EKY~&ZKmIBV-C8<+a^#875un2T*;W#^DS{vu*(VwfQ(bH% z**F_HnMz0aZ1u+o`ZSHVaY}16;=5Z>Savk%CcJO>vY@A@Yo*Cg{IhPd{HYml{)kSg zZ~y4|!}|?hroHQ_>BLV5z9qI&FJO=HgzQP<*EMI4vpyGLUaS~@dp-~-mjv7Rv+-(S z_rAPTwOqjEoZ!}$D!+;jnt7!Om%xV<6U_b0g#EM36Bod~a~}Dg|Kpgc>Vbii2M`4! z$V*O^Btj4bNwE>-&qjmSRvbIcPOMtFpN(?iO=x1)N{#B}xi+mXV_9Cv*Ep*tZRM$Z zv(mOkztmkIlWu>NWy(>O_Qcm)iT5p5hSQl+Jdt=38+hyxHihZM=x##9o~Z&Zp}eCJw4izL~}&O z!B)2$t95wYWmr#4N8{RuhZ`^;A`{l&#~M(T=; zc~VZXDB$`iSIa*RR>-TcV?Pt&x?G{)gK{`;jUz|xunp$sFog_|Ke(DxFbP9dZayou0J-o zaBGQ+t}h`+65`M}ajj(pGrrsHK+uCW~!&fc00|g zzdQAz)!eJEj0r5St4U$FnVwBe5D@D*-M~^!+YN$|3v$=DCrhj0v@=pRtA${bL`OaN zs16TS;PAXH(T5ZQo2=F>A#m9LV93l_ir}aPb&O9;TYN8;^B3j{`7G7!|1QM|^;80z zED+y9+Yy@UwTI8jiS<2CB zXPq_W{3tNv2<@L-=~G_QD4<8Iz!N0VqWozlg`5LJ(@+jY_i;g|Hl-G^Bz#wvz9)q? z(Wjrdiy;|j3PXRJge#1gGa!?otzIs){|OIjm76zn`T+bLbzT-+3bdp-$Fctw#k4ZG?kbe3o23r`@}O3{r- za5$VeJ+XzFZ~WoSfn8o?p^(Q$Z(tQz(UD7bresJvUd%U#_t%N*8YYDO#m-oADw6x7 zlh)$Z^$g>^9dKmDQ>2lAhdckXv|kb|UG3>D2q7&W-Naoz#0?H{a2NT2_@%xZ;Ns4o zuHu~td*=@b)q~@{A0+Vpn8U-DogeS#%B`{@<}+J+ME63~ zd9b#Rk0P~p@&$Vn)vE$)EcpxX0#kr<{%n0-$v3m@8b@pAx(`p`UCsm8BdtKbAWoRp&%ARA*+$O!O#E z!^*(@R6Vr4m`P2&WLWYKj(E1tjPN;OX<*|zPjZVdjD@&gS(svF>6E}I{Il4jTow*H z#3CDiZr*0O+#Sf$Eh_;cE^Kw?+%Yc*j!)m_`RxX)pTn||3fx(_o`~L^ih5p+c#m^! zt;O!DNS=!Yqq~8|>XX5@H9Kf|wOIH)4|8A>RfAM$X|j_Hie2OEd*s7~kzyb2F*Nyn z>6{kb=J6ahWH~vq2aE79g+A;V2mbKQw$?+IsG`>4Cid=zTR3Dnzr6Mk#<6hONPt@A zWa%}~on6>LoC4V#mD10{sr0ZK`0n~-3ybo6w^)x=hVL=eubV@bn5DA1uLR4z)q;%I zNEm5xF*<GGKI7pk+)`=1^wzUR~WIJ4wuPK&q8?qXME`0cwSZ`1=a zV3IRS=kInZ1!^_wov@F`Z7A!KVk1vFr+cg%^2AV5tajB@ix(Z=w3Id8a0|7(*zA%+ zc;O#Y_cjaD3hw#6t)ph{H1B5-BI;UOrMU{6ec=AL#JY^8tbm#3Pf^5G23oI@NDmc_ zzEwH795jAeLFNLGc=^BM#$P4j5^%kW<>n0FyI+lea?>a&m%l$Pev6bw`eyM}q+NB) z1LaT^BmetSo>P;87FVGu`?PfXb9|Rt0fQHkxQ+Ac>(9oosHt~#pRB35>?g3i1BFo! zXlM*Kb?cEylN9#0e8>bh)QB#-M<$Xm5reG4`U#-|ct$AnH-3~;A;`q27 znEm$fsi4xh)yl4D_Cm^6{SXF~B$eSjxbkqn{D6akbx3HTf{Mxd)u;Hb$z%AkasT<; z_y-+^lWXy}pO2eiJfsK&uvX~V){nE`Icw5*rIDXiMOlp)E~@NH_ls@ z8(At>Lif+?3(dApc40PW*jttixh|CLH@|!~f`JlRs$1STm%8!IX}tNqwXL5FTw z+HreeD))GDjN@N3W&q#wtTvyp)8CgiELG%K8;iubKUHBMLxVb#5m_3wm7vK3nP{8( zi#fJN)WU92ekF?$9`;3RGdENvYjn&HobwlcrWv0&uw9&9B|q~O@K?@7Yj%K-S^VSN z#}HjAsRItXf9cfG16Xev)X~{p`2~T_?n1F1LW7U5klV9EoVlYNX3wO<;Kp58?T6px z)Sch?9XxkDhbthGTbv#I&E4!_LGy`n}k z|6Bj}@)*bAr_Nqr)<9kqA%RKN^ULxA+}6>EF$2sk&uCa$Q&x1yQTmDKAL@L#K2NflV9Gc*8sQ9r;bmyv55m_%$6mGy%oFx8ZF9A+0m%QJ+0~6!I%dk?6bh0 zlLtZ^lX~901{H0~Jf%#`-ag`0dReOX^v^(o4&$II-zn}uvezg&z;}}hz5R;k3D7r- zm!AeM$UwLJLing)+K^51mFV*;Tq!(GXO~mA;n;`s!uV|SojWq95;BMcYE+%#D`l>y z`ggFQBRKOqcAu5wnodVkuj85wjV%SLyAVzFIg_jI8SgQQ$_=N4Mj&(i_8eH}HAdYr zWNcm(`L0z-I5*X-O`n3Lc_}H(kx)0uTWod{2b1xIXoZdQLh9Ut$lxmaO@PcL+$7#s zAq(`zp>RUR+>3UPJihRK14z%Me{&rqd%69sGbd;Txn5o;7BC*p|1fq=LAo?im;Tze zZQHhO+qU1fZQHi3)3%M%w(T=L|J+T?#YF6g%F2tXin_?C%DvWl@`z^0AC|6Fedqo( z12>=CmyH~#ujbXgeUdLI_8#Aqndt=4JF^WJX7qT1k;{;c=>7WaXx5ADzdG7Nt4>G95(b z$+clvX(QG&56zjrY(2eUTfVn$uDHu7Qm26wlVcMNN3-n?}$@<5Io~})PX|JV1 zGRXe&`axZ$*vZeH;(-ywixI?xROY}0zs zK=rf6z2iI&0QIw2rX9?6`*ihFO{&-YI{5(eVnEiJDd6&NC04Gr&CDn-?ptFfu+7V3 zy}mL{grnRBS=bE6wdk{+Ke;YanajomBDb%s5`D|;f@g`XntV;0<5yMJ_`_J7{mQE1 z_5G!?ug1f}c-mgp&&lZv6;_?o-&Uzkd?GmC$ce;aPf@Ely}2C6d)caEdiBIYh9-r$ ztc9j5NLn0FDjxA-crKOE)jlLxosVwq>#9Px%C*6!1;5TG14azCiyz^N&6*)ubct8j z&SlvX)8Gz@y;B;0WtL^FCU+CL=K3xBB!Epvv5?N|*JY*5+7lI*H=daJ-vUzZ=!n(P zp){_mD3N-n86^?`+Gd-X)nDZuF3Eg>j@m((sNuEHETsCHMyTDTdl0V!NSoI~vO3}5 z1_iPJQ={;*GaDWiV>d@<20vG_#>X9octYqsQ3n+mKh=p!$ofE=VMjaPY~i9n!QE)Y zQvQ*J!Um@;OCr|&AR-#BucOGM%c}&>DHvAjL`bKe9-oa^Iaw!4fCgZBi*^^OE;i>H zfX>GcV=eXcMBZ0CI4SS@FtTo~F6bkPNhd-Ks1fbVl{u14qXbpXXG&zr9vK7Ix>q|G znv7z*zn|{Ze$sTzX4OXJ!y#mI@-)Q5ODRo6=F3z@SulZOOA)UjGkF+gjLJ(q(?FDr z%N1KlE?vkgqEHxI@y|p?;_v6xTzE`z{3!V_ban4<m+4ffWVd%Wa4B_^1L4R|WY)_J-U(4TNO{UdcpVx$T z4;22c^`|-3N0GW=CVV-L@xhLQN8Lz-gy1w5e0O}z4&D8ud3Ri5F;X4py<;@$LDA_yHgz`D$LCuPG{R4WkWjoY)-{9i zL#RtNk7CLlByM8YKGtgfs}f+vGIWZSBOjtG27aovG?=~Ig&vpWc%S2RfHYSmzKb?VFp3%4D zR3EzH)=kDA7v|j>kc=FEMfJ-O3(6tz+L8@(|HNN_+6UUbL?Q z=iYKw)$!*%TMh}{d2-ZoN6g8x=o>+01M}+nWnSXbEiD8DcR~%F>r=ZBRxQA;~pMwMmr%v3kvNq(?mEJz}u z;YuzJ9)eaq8ZycIrvC|E&@Ns_1e3j(jPxU=6{jh#L3TXm55y2w%1clAHJ8-fQ6bu) zM0JBwX9s9Y?+yfS0_oSl-jNg zynhL`?3q|IQRLOH7mt6X{Cs*sFM4kT{0;m@oZeF#`04vM&EMI4zn`DxvbhWV>W>2& zwHwS`DfAjJkDpuv22L~>Ft7pPdI}D^)e8ihJ!6vw6#AA9^ROP{R1Ef)8J7+9x)-4`}$DF%lu>v1wm3 z+UN4fDVB1Eb@sQuCdAEG>v!hIog*?djQ6XP`LkQoVcGgnnIuW1 zqXcwk6@gX~IXP))G8G069g{w2w5z8HE28ZE@Q z<1Y2A&d)cyl#k+3_OmVzKTWF~D#DFG7u1ctqN$1m6VUV)$uw0{mQHghLjb4r)%P(7 zwT4WI&5tIFSj;gD~HH;>+>ch3KN z?7W}DZ)QsBf$j6WxAP~*{xeIc6OknYl`Jp@oE=p#6J1ghcjBBle%2una=PHy%X#0% zA;Whgp&&bG)s3WsTH6TAGwsscn#@7mpan=>*aqxT){qL+&Ro>r$s16b2F~OTs~&A? zzkSMj6~*81a#Mg@YBw|+`(qcuQ5H*KM>qrG%Wg<)0?s;d%JK%W1T5@@+lw(GRRVbg z`?1T{o|mHS{q&Q%GKuvJHZmM~{3mATaM({}2oTNiXBU9wp^v5ZV_7cc2tm=_n5=>;^eXzHa+my6M2cL_qVCC>~+5gxBNy$A?~_7fzKeW zUewkAH*YQ;L*V|zhTli8ygQG3mQ&xLI$2!ZSHu6jsG42s3^Ciav+goId~W}o+B;Qh zhwgR*K3%{dWr7p8QWkQVo9j>=s$o_;S+s@CInGec<@vc@ya#X6)476#DQqxJ$~dpe(il9ua7D+yOC4|{UK88*>WAx-GAUZ{JIu1l6OQa zpo^L{xaL8ovtW2T)OrarLCfI*C<(jesY91;DY#bI zW`rng+sqQ~ZBCOH5hP%Pna`)UxJ(74DQIv76Fmh5f^W5%wIx-Nt{O2K{~Ewg1#f+! zM+TgV*s+C}mZI7*lUBPrf9Y{eW8EM^66r9%l)!H*OtWu{MU)%10*e^(EZ^?TpOBby z0XW$}Tb=dZlQdcfemIL2xhIsWnu+Z&*?M(Z<i=54e@DyLp_k3G1xeBFc}xh#%qM+3TDkcgH;4R$r&~y4y3tT z54!95R18z}#!~B@j3%<*UE}qT&B%ze7j~H!XM9GDBw|5JWuh4A#rN=IIIBco zX6r8LhmH|zo$JFh)x`_-hlua{lq_p_+b4G8hv{#3$KcR|3_pvAURMHKJsl~}xIfG& zEK7PQ6EMhqdYAW?``BLQiV&{dhr~^+HhZx~jUWuvZt`mRu|a?dTIo3#9-q_Y6PMTV zN$P2gUNeJHc z?jR#*bjaJ|{&}=JcvQ$GBh=ENgNiBVG!`@ub64Zd=Arm>O=l5Hs=bCZ%%*y;FmhjC zHMft7Nw;8(ENlw1jv{Oh;l5$m@!jw;avxa$T<@x-tt6Tvmx1c<@w6k*?Hp`<+M&Y~ zEWr*4XdV{7C;Ne`s5vL2n2||a$8*n9A>VecX|&FHQ8NzV3TqGZ5Df?CW#)b?25|;B zzJBIDDmNc7i>`2WxLFv7o{Q?h9mc|VuZD5>{5V}B=}k$Z4x>#otMdaMfiwxnZtwEG(AY1!i8&f7@0};M zx@4J+%MY@~g|aI*5opVcl-?<~k7|PLt`t7Nw?&EVC;2h)ZhAwwCS^HF?eQfP=*98Y z#fa|FSLX!givNJ z+wq{ul~2^N3x8sFH)+sgvgGoZ<;`Axts8RSHxTvP)1Z$-YgNZfz(!DgSd%nQp3w}L zI}Nl{9}B#}2t1lU#b^&hv$py+5>ra+2^8ED9bCpfl$o&I8%MC&Czt;Xg6)? zMmKlkYYxvgT&$tb6#~hMLx|630rJoyG$8HD(%hm!?nW3n7X_oSfb?A`ka&Aiz!qB9 zR8xh8O0IxduV_0_7=Q#%0|S4(KUe%{G|)mQ+A#!Rd^uW;vIxX}SdfH5V=|cOtYXDZ zB8^14nvF%nl`N>UICYn=xzwtUoFBam6C@8wr9+FPvzlePXJsu8M>W8LUBu<>-U#A7 z%wYN;Z-J*!wXCt0Ekr~k&KgWr^lBz901_$twEx~9`@7eNnTcPJ4WMAU>3r>?H}$44 z8viEhP3Cs@*yX7twg-@ym_nwYhef&`LUry+^}f>Gz$8BFPagp&+~l{;JT+B1HQb4q zBg4_WDI%fuFLPP_`<@XuzE<>mldF2r)#6(gc`6^#eaBzqrC)|byeWhzr?toGccr$7 zO+mN|{wd4saRDfxvM8mPl2ML=%}2>Qsf5YfRHG6i>7F6HDc&9E*+<=JOmsUG@*Q|& zZ`D4n{5yQMo*+G9g-f69DxYQuhn`>s{#Fnpw8SSo|nV3L&>=PZnF zB>!yM8~vzy$Qv6ak=A(APHT9~p0+W1xSslGWiY@rSNRq2P&6|l%ng3Dw=lMEV$OWJ zwlZB9AQAf2h0*u(3HCJRPeCG_P+X1v=R{=s)eLlC_pKWThnQ@6mkbtBZgtP4?@OrA z{V8aVbJP}9nb-DjQ7at2sVy9;3ZJLpqTy+=1ztMvJ<&6%q~T=~{)R?niZrw}m64E~ zs-{-_ot2yF3XuEGlUc&(_f2txw%PUFM5V8{ZLj#DA0MKD(f(WgOCz;*s-tI0+6G^A za%03>#z8%m%7IF3X3+Ge)!Qh+>Dnx`!U2x5gGj2C0KVhGa@LoSQd=*w+ZM2(3Btq% z)8u9I;saG`o$p*}c zoi*+jQrITQtJ5P_N9wLXa(Iel_lo8rtvug@msHBPTokWx7>byBcrRq-=tA~3|X zfh?mn(5tUNNp4LsGqKW=$>sl85t+djew&X#bnwk3)JJ>4efVpY|Zdf32L}{hxYVLjtRs zIOD4kbi{y?w`zrdRl5n*R8(DR827g96}{y-3VqazGNOFi>Y z5c6+iFbLHn9s~SQyAz?3@W$`poijlrx$d{Jvs~?t1@V_kF0=n~+QV zuw>^pC4NQC)nMk*Ee+K?IesPeWo5hKyG!-RLAmrdVth&^tPOt&@uFWh-^ISh#jhKe za4vc9IrXL>2oWaS!nj}C&2D@E(0cK4S=%M~u-YekMX^cUSGVj zge}W0=QCQ8jJa^;u5??mkQx^|$-1g>2Jj4Vtx=8+ndRJSQu%d9%Oue^Zf=45eRXNL zybciTo2(cPS~4JCeoVuYZI8t7d0P0^m~y21((X+myfiLyHgUSl*nV^$PV;q8bstRc z0nB`Ae!qXrPI!b}w=pgBZO_#RWEgC(O;W!r(PhtVbGT;MPfP+2TNq|x<5YIXq~RB= zbACaXr%)ApvO5}0|p8t0Jn`khq4~=Qy@&)EFc(1XY1_cPJ{tcIh zw)SaLtuQ-(eelo~q+GeTV#aS|I)#$^t=#lkdl>7+DAY?I#wpeq1ChR5>VnUBMB#|Rq@z@+{ihGlwY?;NO zsHt^4*cJdjPi^53LYjY97R6zV#(toNPbw!mrLhFe|ADrGlat}B>cOKTuR=vSu1BF1 zk^cQ!cz=O{*52Y5vXxth{#SO50(s=2$_NEbvqj-KUXzo0jlyesVrjPd_%=Kr@OQUE zofbkhlB7u`$f=gnUuT<&$kan&fL9SY#yoH1Jpa0zBF26`XCqIvPH` zjpwDZihg5UfZ$=XjI4#bBEsZhYYBRZvngRMIbA(XME_r0Y3gyp8Ua;p4Yk|HTv*Qw z#=%$R;$&@*e@fN|kBI(XgL}$y0+ss?tDdlB(4Q@zu2qFF5udKeiq#?CF1@WQru;gS zpR4|01&sS`i-&X2p1dyVRZL5_vh^Pk?kwxhdKv*=?bp_c=vfT3kJhk0%!UM(}o^Hb~-6qY!!m!(E;-S(5N zg*&n6-j!0!jI;nN(_%9QUQa;Y1rQs!cKeupeX8GQ0GkJo``OMp{Cn4h^Sh`@2Si(G zB6IM=r8f3|;Y?2$i~}n1#GRyEGnC3pbHWRZ7x-IvwJBe4YU??|DQ=WZH>4T2DguUsPn_1(NZ;Q zx_yQ||07wAtA3{)zzQ>Mq_|w80Id0O3Xi8>l(fG@<2gxR$0EI&J-4JqUn6^TDkh8T zd%^HG+?lRfek85)v$E-xUfL2Z~6EL&2Z zqQFPg#DYZ@-`C*U@*f-6mco>`xI+rK=maWJZoI^zAQbE0=^EG|aQ&#}ESoS_F{Dp! z-&3i!)E4|D@zswLde*x*Ek+ zx>;`9<;%bbF0n`TEzs#2PPL;4vLdDwHM1212$|^2u z=Rg`2@$Ag_C5a+;^At$$mm(Y?bY*`ZUJvliTFvnOm8dFZL^; z$a}W>q6hO_iVtN{XO*wTGdQz}#KOW-Sbn-QO=k9x&!sR|CH8R|OR;$bB%oF$mn6gv zf2jceeueU50cM8WvUbs&JH)kG^Vty4lo+Zm(MINd=h@|5Y+^w|0a1>vap$?)31Dj0 zkZd*!>OF2#zNZ$l33UKeNnb^6V^UxWBnxE8oPRHF_Q&R}@HR;amSSIgi|_HaS7!jA zmm8}m;9$l!n7~i&$z~uT4$*LPeT!0%Uk&J!4FVb?jy=YchEW=E# zydWjjDAQ(Gs*9$NkEMAiHU<~XPH1mBeNZ%tc-1{AMbU)Gb?OHzLT)&WZ49zAAc7x` zfhR;cx14u{XT8Qx3Pn;GOele+TpD*?(N;bJ*j&yv=`t$whi z|Hch72YjxtvtkNiI;mbtI$8M^IiXF%wzeb60GS8 zHf`VOkEKbluRW2(|6B`OA;zdlsG&?7TVO`e2F5JIQF#~4^6&nUF53v`${J0ecFh^k}J-u>ooch`D1A(Q8l*aRmnTE@BDE_rns`132lvbUs<(>v?~B{2|~frBKa{OQm8gIw~ue`OcsNgXZVMJ~*|_ zR;jwpvlHDyB`-K-+Q58e+@!bXL*xe%4jrv$EFA#xv6;nrgoAs$rkG%^w2F3Xs?EL; zTZutuR*6v+MAn#Dm<^JasjFX)AoK+uDnZM!JGEn$PG4nGZ!@U)q4 z@DnU<2TVl`Tf#f9z$?iH*^}WL>Ti)dE2&=NamN9bxkpYPGcJF>Fh?Oi4%n!jn7Xk! z{u|d_AlCPr57zn7>72ec`d+?FjAoJ7|OOJUin6WKvuA9VL?NtDB?TX?$!5H}omUMtD z2|D8wtysf77pnQj&RuF4{fSN6Ks?3MTOWUfl_+-I+yXmd%>>gn2EteUg9+_xS<2B9 z{fuiudz$G&@2YOhhYuJ5#6>(S>U>NX^NFP7lIVS}^OemIHRic?8rM+R!d`(QuiVGE zafvr)MSjg2A{Z2xE@&simDaNw*wbx3@}ijzy_Gg`OCD|rB>K~uG&~nkT}dBGbsP6G zgYWEFkUM*t!Col5O=4~nTaS{TPY<2{2ghU*t^CKvc0d92+b;sn6YTp+7f-o9tUFR^ zzaZJ7D(WuDf=V%O^Xmf`zZD~dtN4~kQ6dO8ZS3hBF3YQ(%_pybx1Wjq?IxbNG!}r5 z{3_AdP+ZGwB|p^?fB{r{5V7$R9!^JlAgzYhmzWEz?_)WMV~L8-K+X$c)jd1m&Q~@c zjiK|IH6rvzPS-_Bzi>(PboQ>FSRC%{2W|ZTp_Y_~K%4FOUuK9lo7B49{MX+6P+&<; zFL7}30kPmCQksLr6X5B!*3yez3yl@uN>-P^fv1_lS=|?Bs;ML|>-bW?xHI3!$z|v2 zE=cB;d2kN9ze{5cXYDy=ZjI@U7(T!9a9-@66!m6)6w<8A3mVDSAf}N^?sxES*lCU) z8f4}8Q%^h+c_~kzgc!EP=~8u49kr^uj{zX{%wY8+^8(be{$jCO6a#4npbAKJXsCPM z(f&PtU^}0y8J`EV`_bGzKFq z&Axbh9dIVb;^f+gD{kW8HT;IzA<`p2R7mHq%E{f>z=KcX*s&*>OSmeHuQ=P#cuZk2 zV~!Ke%3N89&4*ns*y=zG1Hg9@d#eylyqwBpcx)c}EJ4>iDF@H5QNp^$*vz%jJMG`+ z7&jjbh78{g8Vcu()1Iy*ho0jSl6tR0T5&g%cdz&g1-x;z6Y)4X4#$AHbl>nH-h z^ICEVJoj${x)-Z&j;-in+XVcA25Y(vza!Si(HAAj&nnWK{!BBcfhjlUOwz=dPc2sN z2J6i+#Av}+mG%OSCF&K9>h{q@kYo$e6w`Cst2hEV2?WD%BL4{PYZI}DSjZQ!km498 zVJnt|bps!0^QQ~pZ0T`ng7H3q!RBaMKcZvf?_2ViXZU#lk$gYEA!TDACKc8h&ZM;f zOw4drqz7mkmS9Bo?G)ha?x0g=Fod^*DAO1J1kn^2vdE|emUV9h#YgEZTf)sTCIR8l z@pKG;V2ui~b?FR06iBEK*~N#`Gpm}Q-7BV;uCD)gQNCs%HZ&2apiQN&H4QN5LpP_A zOYLzlu6$bM95UVq?~R|`t5gdv<@1EafM`(a)0|4)xrSJJkEoQ}O+Q%@$0LhA8uGJrEoPykU2p$hSq6AqmBOe*Bl9 z$~otfZ@UT+g3o$nqZ?x<`o|a$d)L1Cv;K%Ly8h+*f^V1p zPypvbAOQg@%4{@`2elfvI(`UzvZugM%Q==!#Fn3_V!fd;V5I9M=5uWwJ}rt2b+CSG zTvLM@rU5Hd_*Lc9-B@LLAmh)qua69zl0wVOXacwVy0%lRE%5-^{7C4`Kgrh>dXvNQ^MWk}!#QsF zZMKD-KI4{{2ty)SiOiI<}L($keAvi@YSf63!8f$R$vs0#GTXkyardgLvW^c3* z;+ARp9+Th-9yg2Wnt9zic|04%y?`sz{g+5+8TLAEZzjj?Wi+eK0^f||*^A2b)98e# zTX3SngNPx>3!s{nF70`6bO&M$wi3PF5I|-se@_^og?_1KA%XTDY|-@RB&LcTtzh|3 zIq37={km)o)*w>_Nx>!IiI$shqaW?3yf@o7;0v+H zkhnNCaitv*k|$wbb{-Qur0lS(4}bvVNGiPr6Z5J+9d! z@E}HLEc+#bFxOn^xK$D2&cq_PFPJ^=3nHcGh|ersc&Rqu^U04BpC99qs~_S`V?DbC z2RNLmzS`1`wB~;@)|OJ{$>BK?Y{l_+>)qBH^y1WH^9Rb}2UtRllSF9lH5uH4sXAlLgj1`~`$wFh zG!(ppQrYyK6(K+`81J@Qc!!+e;9)9ugI0xVIzmN0#%3Y3Qm(XBr1r}^x-Ie(>o*I> zjRP#0pA(Hl5lBu*qUmEK-Oaag#dGw`QN%@MZ*yajh6M1%W9*4-;Yo}K z=Aju9$?7SMpKFywSE=j?g9I8TKZc4TO#SkH3h)2eqBh5+C}-#9U?{B`teA3y>ADB3{gVF<;uD0HI3`!8|SiJ7hLi zdAC>H6qc8R;I1+U#@d>Fqq^l}76T*@Ers1@J#c|oYo5W>zxK743V_`=6P|S;Gd>f| zUo3!Fu!#`8xf3Y8_hKU`SD;w77usr7sxr{#9#z1o&cau&mH(9QClupDX)rl$_PPWt*oIS?ZJZ>DWCA5VW zw5peRXvqJp&XUfPgO;(O*>3lu+x;!?`1ClB&4L2$GoR`jK7&)FsQy`s+B2|$wKP4? z3NXhQz`1YZ5qixJcs61@%mDe7>nUT%rnNpBuK|ulrob-4>MBdRC_E@SwJfr;*jPDR z4kPARnM(_Grb^amS)pDx@iavrX+9WCOba`I=Jzx(G3f?)V$pSCRMGNk!x{g&4b#@j z^-2a^fURD-fQ6o9mD(vxtc-8&=|*I8BTH<7TwK&qFz>Pb3g?RTHD~j(XIfy$~R8~KgUui zDOXBkO->htBZ?naheZwY73p0uK!J!{;l?f}nh9KGkqk6l22>Ml$k;zCT;1>%ny8?Q zty)pOBb{s~c_haFy>{aK(%!X$mcLc`#+vNO3L3lGZTNr@AKD6XqWuPzS@5?Q7lF)y zy=^@Px!ZWaK7U|iqA}9*3_)U7l7%LK}kQq^&wP2sE)|UoKM6Aigc-(FusnEALKz8$;8V@ zKv58g=M2S#g9;cYJCYm*@{Gy8_>h4a!t5_i`!hy*B$*dm1mR~P94Dw0U(it^1qUVi zz?xrFm;dIn>jQh1l-Fi{q$q&4WZxtArGmw^$C1N~#btQ&ofm_f0CJUHDtudaX)rau zp|m!4;A~|JKQ(T(PGdJWo;hv`$(ztgLISa;IJ>AdH4arWy1!O-1iSe6>sF(1+1Ads zUig=@$Ba-Xd~f3TVd0Gyl`mj!?2xI(p-|tLbnfObnvTgteJvKe*?EaYDT79A_%WqW z(Gt0jIcc>mP5=oV70CR!%}K0|deuZenti{atm4zDC;g2?sT{{b%`aLo>1Hpsd0^F5CMhXUcPfQ#AL*CcOdDvR+NW)JEVr(nh(jam8UqB)*bL}i31lUUmhlA(=&F|IQY+X9QoDDSmi z32L{oh0k2;#aBpCnic27D30@6a8aTGpZiniRc$=2TIa;W5Q07}2ZGDdU+CF)r9S4E* zfufj|z-X7~^X;<2x|^n>^DNg+-K8=yBGD3cRdAQBy-#FTD!~=^O7g=T+E4VZ`CodW zk3pw8uZC4po@PSt7>OWhUfL2{{><`1!j&m7ZEajhs!y5zih9h*-gHpmvAp@I zmpM=YGBTdSdcd~PYT8Fk4!J>)+j3TA3ujoJ2wm>Oj|^GQz`o#>ES33vn~b8H=)Mk8 zE4NXSs#F*G=(%_wbUaO*^g`D7_ix0Eo^kjUsrf<|H1F21JS~sj=RO*t+qn9@NTFu` zgKb?LWw%ig5Via&PL1Zibio_qH!Wn2Rt@qAP0um^30#$o4Y_M7d^fCGRfJ( zo$58cr|XUm9#FFNAG`&(B+`%R1-J2KzTOW#)j2dhg~Pk~vk#LGz5j6Wf8U^6!#`tJ z-z*#{0wF09l-|T7abRr!alvx08A>Y!97+wQ-0|OmU~#VHulldRyF7`GhqnXCFol)s z>Vr!O7D;J|szgK3-)p`lvmH6>%l2G><_-^8%M_=W}gd zenu(9RXB9M!c_59Wiiqp9cUie!i$D%Mi$Aq<*J~h@XI>1bXP{o222cgdkFGeE^3}h z%f^RQ6M>5#TNc5Xc4th2g(L}`D@aQ!;}p-wRb)3kX-*0sO-X>RNN%&hn3v>58KCpaGb zWTWOl=k1L6oi+`aaqjnip#hMIJNct)Z~QiMNW$pMInveNo3oAV_SB6J#GYL0D9e%FaO= z#XoNW5~dqez@a~z$)4!e44vy73E0IzShhf5EzK0n19A+`zmfzVNzCObCgxKUCK$4p zd&n+(t;+S7$#^Zv@3SHKleM`&oG>f03k`8t5R==q@@+P~?RzOT?YMD2?uRJhlqrx)90QeDAu8v&DF*;U<{bYS4Fz4daxiZ`1 zQR!UvYo<+=dYgSe<+qoAM?4HYZ{nXh@ch@V>TCsGJ&D7=U31%QX21T|UTgsYCB474 z$8T;v>}&%7XbA^+8pt47pZA227Uj*&i7@N-gwDG5q4}Y$!eoE;oh$$-72mekPc#P- z5uYffl~LGKu?2{GgFU8uG1{VT+49#TBMoRW4`X>Pv+8Y{DJLOlYMMC;c{1_LfQ$O{ zqLgEdrzH?irw^oUqufU*XnL%YbS|Ya53vj_T5tiXvDPf8-b8|Y4A`&LAF~uq`boqm z{T#1@05)zQ65}SH1N}&a;MqR8q^=Kr^*gsh19o@dEC-j9dW#bb46^Erpv4=$Vf|tV zpv%;0yu(uYT*{xF7+^9o&v{_OA`1uBcqrga?h40iO_=EcFNaX=0VRd7b&&Ud%7HBL z>nkz-n|>K@O{B!y*eu?DnD=0{YQ*-)Jy#f}d*U{sxSQhzXBAp%dbK2AGXso)7S*aV zinW8TI(LlAVP)nurfCE)0kwUX7!*uS=5uY*nx3#GOt9#fPA4G;u>;vb{F`>9x|;wL z8-ZY*?|J+IkZ*YwX^vd1P-I?kImjTdAj8Mglgf?-H_oiVT}Q#K>QiO38L z<&E!{2henontAp-ZdJujEk?*4)!0ji2Tc*=ID&dUV_aGxLFyqv zR_`l7a3*M>yvah7PI1+k^4k=16_P%3<-_`F+qH@rw*z((yGVf5ZuVbC4Y5&zJIkrG z)|aR;A%>L;hc!(`cdItCnpeahO12k;>4gcT>Da6<&MSs?!nBu2Cw)8Gfj&UzgndH; zE>3NW7KT>}3}r#6ev>R_f=Ni6Ye6%jf#Ho~K(s=x)~L3U3%+dF-e3Xjjyu_0EnicT zUwND)qQwxxG$Ge)lwzyHi$ej6%Z7O(vcPGi9#{wU^jenYyR4#Te}tg!L*n#-5_IiU zb|sN}S2W9GCE0Z5nRBZV@Q&s2)+xE|7!q86nm5SkLJt_buW}gvNtgAAPdym~o<6q0 z9pRhBKs3*0d^cFRTdY?W=@|}*VCHDpD}as;UA8@)pF}?1oAWz^nMhjO2WR zj6oCjs-vsYRe?4diffkyirNBe9T3T!*|$a~lR5Z+2Y@i$iIlM?s0wAN5&k`p?cb6| zTU%Y^ySo$iV6795vmEguo^u_i|MFqUV*|Zum8hT3ToIX1s+(7^Ni;1+B_tkQQw8Kys*eHiN8(l9Rtk#jxre z>w6;EcstZsB5Y85s4w(&PUcee>Z#qt@X~CU-Q3X9>Oim9zcNy;6sOY`Y+>f0b(P`9 zZnxiSwZ1hsV%<_ZBiO{*67gR4s{DFEEoMP)A)L8yX6>5pA|T8gfaE>u)Pgc?R@fq9 zr&*#yFd{JF;!{v#IH!n{4)A8U&r%YlYG(m^pE(9fx%IRX!`c2j1Sk{^_y_MQ>pWwj?nByj{g zZ9TW7>rP7fuS`Q*e^_kVfSITzwN)0xp?Ld7m)?9DNxy8)pb1BcenXA7B7{tT=d$yDOs!@ z0Y|lv6@9q>va+c22!4i2jASGORSP*ta9Hllpt`eZVhGP^5iLkse8s-E`>XENqQo`o(&Aw?vN8_S=? zC1WTVrSoa4kQ~+#Qx)=I^9;hVb-sa2j(QM^TXaAMOpdU5ICrswi_HGaTWJxaWK*&hXwE20>!Q=vq6g_ zavq<=2-AnT0MxT6cx8`jF@l zAU%DxIkVrr^L~^Q=$H{zZbm>3xwQ9k#TmqV^hfreOb{ifmu_H9j1XgzyWsxGClATp z1T_me{LhcnYDa2OKgOCYOYPCe_?vn(&h?_acdA##xhe9X#2mK?#nU-x7E{#%Lr2`P zC@g`u>Foh7Gsg``TQ;7mQI>HxUygxD`-G%iy>NQe(hMbsdZER19=N=nIj|zDp&?WD z07*ai-(&`A5^!gIxjbEGB!-!{?0?}21Xv(;Y<5;6%6XBDi?FrKP4tnPRGZ3YrCpfzc0>m29WRwApix6i4? zUAZk1?E+_(iIiS=-^7L%9aYCNicbr;i>zduH?yYJMf7wSim{-mK?83^R-_TR-PQU? z%`g1B!lIR4elR67Eh0-p?kRCsiuCz^C2y`W`PRHF91_H#ow9H0B4e$Uh|ZkFJD z%CV8Tyv#CI#|e?5h_A_!qJWQy5J=Bi@PRq7u5q{0w>F|pBpY8T{LZz@vEUn3>t(mk z?3iZ1@YCR=u4KNOx0xmetZro}%mus=@q9Qr;O4kD>eq)|soAbxi)dd1V<0xY6M+FU zn>KS#Ipc2%gW6+aofcR40$b4{d3r!nw|Mb=SWm*>jHc$G{ee$VWOad$Xd_&4@;U8L zrjh-1qd>??_RKEbdXRpBvJkHVldrNLz;GroJVNb5fiAY1|j&6Xc#+c;l zLFq|CVXg5&it!DGvlVTTlv!UkZA_ku7*qEXn;y$9j20o3a{{@I!jaU`MbXS!AF}bp zFJp;UN^LK4CHaGj5SLMMuI##oQ~zlisLsxqch+U^?p)rc8ec+=3n&Gf9FS zW%>#@Yat2M+)j#oYZ!hln(n!O`86`(ejTSU-a<8tn(Pio?T-2!XS`k&bUe-R3xnuh57c{w-O^( zlqd;^E0#2DsQm8&yT`#AgtQ(BEuKTbw`EaXdn@1=NhxAf_8w&X6Y@#Uw8l2%AT@&@ zzmtL=r!N4oz)IyPIG<8p9Bm+^beQyxw16`xj9t=F;j>TQi9Pnt=O)WSj8#q{vNLc9 zmKAu#V$GtY$7>5LVI=%l^j)fV$sFkhQwx`iyx1fC5s~4sG?xXe|3=FLq6zgiWv*oE zcqE%`aV<)TS*_m80VECZmid8IKdjIxy3Lz^nId#fGn3x^mnT+a)9J!~MM655y}ECr z-;N8{HRA#W-==i+fPvZ61*n!fn+NOl2LAIE;#cfIna zgguJ-f`879FY#sxq%t)>W{hca4&mpOM&O}HJZz`xr|aYr`hMxKgXX4XGzBf9p$FTz zf3b`C68>`2D+Q%UhJUjgcd|X}EaJobZlmZ5_*{HJ;QpK-+jFF%LSNqE^Ew@?O3?Hc z{euRKMSY!xKZdq54b2-3+%d~Po5wE zc1080Ub|ZixT6INe|0FU+3gcy9aWvIQQ@OkVs51%0io)ov3|MpQS#hl_7)^(YBC5) z{xK2TxM{w3j{0`~0nb!&3LTnhG~4koM7SKUJVP86jx<8v0TI!J+N_V75aHDboKWEk zOzdARTV4M4^t`sZ9J(k7I$y|k8_@79?p+^B=k4lFsqfNBy$fH}DetmxM<|(PlF?#5 zGHaMpx@)*)r*8CX?YVFDWG`-D5Km`MwK`GPp$Q}{53KX;_c>grN@pcHNh|OzHV_nO zAO>biPpx3`KVdH0J}y9F-V{!zDc$X}TDSeiyTtumd~AvNh0T=G67Za(bD<(-CY6a_ zQVAml!hrCiDWTa!TFFKqT`p6(p%hNdJmYi|?WQAeD}m&3HXc&aGyx=&oq~nid5xc5 zwi-xtu-%Vemta$}Rv`28_q&EP$YwB;#G?OIzyrC?#7@Bu;@Yd@VxlU#!484c4z0oi z@kxrzKGNZTxbzs1PnH9#^P8{{!$mY`z?LinnCPYaqzepi<$GXc=OJV`X^48WtaK%l z)lQk?-1?O-wvqpfv3H8jh4t+)wQ2z_ueT*(;fJg$)G2xe}OD96U7_W8J9C!g_TCUbe4_XjgBr| z#G22oi5VX;MS=$Wg(hN=B&tIAMozt~q{;d*ML9p0HCXn7V64emHL&(-c4S83S!$n> zC;q^w6ZiXj9S+UF;L&=$?gMcBN=+y#A0EQ+#90Gd&D`AUctQ>RIFfyJ)L76gQl(W} zDGwD7atQ3612Qu{&zMhNS>H~&?2H0;?p~Mc*d00=g@dvvFe;IDo7xgD$Y_z1Kvm`P zbs}AAdU*ubEq+#+@X6o5fkYIl;2Z?a;pI`r>UB?7yIR!kPNsyB<|IINQ}9ngBnLxE zw9|algY>8UJY9GbvI%8bqSGpx!sw^57sYWBD4IcvepeLU3pWn=NLMPd?sQaI+w&!7 z%g)s_$~Xc3m-++I>;yy)`ms`` z?Dyi}Cc;%sNVz<p% z&K)n~l*=E9(Wk0sTspeIsF z7K)lQO;%x(+z>*dqvSS9t{oBadcF35yV`9B0p}|5!j#H!R$7_+0(_egaWHBSvvHqr z!DmCQgxJX_V9te(CL+h?m@2DG1C_D^^2y4A$O6*M)hILqCHjPg$#P-2gfnnpWY3x= zKo=X=&6T#G74ZMouA?HkDT^riv8nwKc}`%ml1|m~kicdKdQ*`-IZm&(8yKo% zy9UmAVza*lQAER9TDJFrjr~ZBH72XCgfvvfW;YNyxW9Lt_tR=?{7EQ|AWsJ~f`)9R5g~q@uX;^-;o#$Z)Plb3ovE=r3t5`rhBkbOVbn4 z>e+t1&5}?B8grUkuo6xxOo^CLwJl3z{IzP%iKNhG-BS%V!ET& z7;-|0<)fat&gHUsLH6+P%H8m-;n(j=$HDuho#d_pq$?hB=g1pdg%(;S^6eroGj4f5 z`SyHaq)G(LFu?&xUj7zI@Wo=v=3P)m?Jsbj2&^$OCZ>J8-{5-sOwEBH7(rTAKg2^a zi-xZSkh`%6^0LxNRNCO&8G@Il6HP7VP0Ha`p)Rtt`_rTJuPw$Fk{3bTpp_v=MY?pY zf3(@#Y-UyURT0eKU1TeUljB>4{@M2n^o)pCE*(V2OteH!1_ux81pjSX*{%ntF=1_) zP2!O38AH(%?6)IA9|;46T;2UMD+BRfvc!;_?PmMpC`%E7`zpJ0&HYx4T}Y6()*$|0 zLFkmo%XUgQtb-6))@Tzo@*e$6t|#WgL&>9e=*e#S=3B>5dtz8PHf0QUS5zt_ZZ?D) z2NC!y$*uFDVRGwgoL!^E)I}sbAMjdt2;I3`2OXNK(e-jED;mT(U#NCHYPu%fjxR2r z+z}$%|6Hd=x#^tpYp(+4N0@)sJb0=No?ZovS$ZxDdw{w}w-VY&pHB&e3Sj|e2nR~c@$I0VWow~@810W)gSYpzhEB044#FKRiB7=>iRM8Fj#+jPpBb}j zEejBvgFogs7PINB18dl_m)90q4KZ&3x{92?aC(H2I%8+$vlgwY;#+=~8Pft4^4Ox? z4|r`a6!sd`)2;<}pDr6+U#*Y^Zuh-Yp+}@+9n?YY6BRQOP-f45a2>VV646A?0jJrQ z>uF>pcYHV>`+V@c6)paTQ8V8~&yGn=R8Gy9JCQFY%Vk|8Mwpz@^YjEZN+y@^;yE2I z_qIC@sZb;y?YAcBK1e;Uy#6`0JNFl>tB+O_`%S!Xm1OjKgGS3DMg1Z)3yjU44_K;5 z_V$ln9k$ITE|n#UzlYKkgYYcl(cDZ28=-(XP3sB}AATE2^J*@9AJT*1TveBIoS9RL zs^YcJaW3OKZU1yFsqTPOzgqA*WNsj#A$*4?77;9{B$pys0c3)j4B~cq(mwRnus{Oj zL*4ollpbxo$gn`AY4ib_1gIfJ^p>T(S+H=^7rd-DaN`Lk(=mZzX@AA+d0lCH^5ghn zXut7Lmq-bRAGJ)z+&Yy}f(X-jQHGuYwiC#`fs#94tZYFBD%w5X3|E=R^uR!qpH6_6 zWXo4^yuy}5bfq~ejzB{VpjO&S5rjk7Ci-c3Fw+1s3ISsxv5rfqof-xskO1UqQ#UX2h1_nk5*ZF zybngKL^8(KvmLaqjKGR!NNkFZ%1$s3)AAtWy{paA<`f z%W@wWf5~RKgRtP>c}AAQ@wlI;=BaXmwqQ@4LYm93W`PR?lRQ*ln9!;w47Vea3N z0ghS5s2+$LZn;RWL;!ivKRTOpfYTC|b=Vn4`R7ixFOacLI87uiZt(JR5(;${n1g<6 z*T_@56YmUg6yr|An@=NVS8E-7g*H4#-WcMyf4!T#{YO3@Z0G1(KLL^aZ^U{S{tH#R zfJ&mXJ=Ghm@3Ze{&v)1T9kk6-adakx=r8|bCFh)^2;SsypyJgxHC?xEa4kQc!d;M$ zXojfT?+*CM=|mocK#Uq^{@=p`SKdx0MpB?RN&&mjgtCUPzMRpIQ>QI^cBxHeShN)#ttm6 zYqY7U-o>dSukn~auL;_?{eZ0V_k&Uh@}i?aP9** zQt#gN7T+=VZql0ppfydtIR(SbzA1jFqbD|L#@kdWY>i!OQHn4SLvVijxN-v2Odh>JaqYUc(W{*!+w zkV`Uup;!pJ@@(rq@T_XDiHREZFEbf?r*Q${ZH;Eu&;L$o_xQfNPqxf^zFyBs8lrIfILr8H)dZ&>`0v z7yF=yv0i3;*~E+b$uGeHRtsL(`##(*aZ-4CqPU-&`a_Z?I6$+gyOn2k-m`VS57db3lR~o69Gm2Mh-f+kyGHX#n2ok za|nst4G|p=Wy1Bk8V$;l6jQ_66&AS)~bjgCrUJ z(TB(|x%rDL_HwUanW@#YKY!%dDEc1Z3qTBxe3$)~nA~$A>yAJ(F`GLe1MdHaJ0STe zTtY`IAlb@RfB|d`wECXt%%uiTGpQrC&CD6C)blB!H>w{dWHnsz=msDz^)XQUJ-8U3 zBA3z%O0*@!wyJ-`<*GV%!}qFZYQw<7D4<%M#qEJa%*KZc1TAc8isphJSr=jj2h++e zH|6`jDtK`-L0j`fV4y-On)Gq!HgXaYBP}<7()g~jSLc-69`IH@id)!id91nsGo|$hnq$a zmwAkvu7XZ}wW_BGg`%Bre>Mvb8cQoL?^PKropiM*zw@=!ZU_V%rI< zF?-omBVbEHe{(fa?&xYw5toiu*6IiM<@S@OMf#6z#W^Nj!_(!?AK4q#a~-cn!2J%t zI0nWvzPYhH2DYtWcU8AIMvA_&w6!o!+N^vEab45N<1=#nz8Y`zrXH2Dyb3^|HgNdN zAzdN+@f>OLl_BBw4wrC_ZslVuaT96MO|mkDGkO^tZSoY`?;%=$u&CWq{A`_Y9`xO< zNVq+H52=x8W)y`+3OBhEIwU~y5v^CpE{%yX>~9dOe}fXQ=LBydL>+w$wfP?2RQ*{e z;r4Z(aBe#IIgpB8=Pz2H(EW~)aK3{v`Y99_VM5qJIY^sW!#6^k`0;&j2{JsM?(0Ys zQpj$-1e>s0CX8XxdcdlGCZ<|d&S{C|Y*?VNRh5fhRGRT?70i;Eqie=p*W-($N617P z_eWv;%QI{S7G#;E$=A1E?rr*FLw;^hgTJ5$1S%e@Qxf~~gaz#SbMl(u&>Ar>6pI&n z+tmI_MFjNT!3qL*-*4*0xnVf7Bl-C7$4o|&MdEVW8Ut_f%JetX5czOHW68O{!2Rln zd~E;JK7n>jx6e0;FIx9YDr@97!LlRiCj~okVaRxn_@KXac;J?NOV9Q(Z0WWlpP{jFpQr5(WqVoJe3QpH8M(xLeWk&7jP5i`B){20}nOid~I4{<3d7j{&pwqvB zo!18QZiJi$e66C|BqxQ~@mkjErM@J`uFa?N2`tnOIgMT0of{NWQ}Jq!&2Q2|osOt~ z=S==~iefe<`=x{mNF&EIGtJ^^6Aan3<=zLQhyw*0IjEp%Q@7ndDvz zR@)h6w^Oww8r+#jNiSZgy)*@XRE z;q^E}w{Gl{TEPTPj2ua{0}%HqT_rV~;0wmWXA+6qO})&t1+0L5<+d+7X-NyP+U2(O zJzWtOxp^uPTmGA${uHWsg#Q<5IFA2EX*d=p4i*krK0a7y7bjCgTUd|mi*IST^RasJ zUrXu^??14Xf3<(3oPeJyhugkAAe9WL1yCxow@M5G9uQmjoSm+ocwP}MKNwrSi?7^Nb^#T0Q)bX|KQ}H?4ogxu{-}F z_(`#+ORtPamwV?7olfrF;SX@ga+U7U)dNhrC4~OTn^(upscjE|O7495V3Dm+he7Zp z?yTU;>#ck16VUSYR1@GY<6rD=HFVjDe{|-r8hzpY^rBw<`SMS%`-<N@W0>dUjA z)z1R{supK^lDmH57I$8Gm>MdBlde5b$g=6+V`O~R-ihGnx02x-UFwI(V`pe;9OZ{0 zAN9v5iiO5jDvAP3j`s8Sr?N2Jc81HCT;+kz7l$ae#RBH#N6_{LK__;Jpw$#wPE&J;$9R8V6_DrKnN_c|rGgP`Y}8Vn#g&JnOFGqZWNoufCh$gFZ>Z5pk5}LXAI7dUpLDClZtL9L|F6 zHf!6Oe~_r_Wh{{9g}eM?hu5$2W2f@*>}jgI^rU$82q_9PaV8iycPGns%Q$9vV4}SW zC&{nPuI$qH&j#v(R@GY6Kymbb)9H#|>E{8{3W=BWD2hZ?seZ0Ji-%ri1%tSA#Y4Ayn< zZl37=1|J@c3aP9#8FcEgw*$w{Rhm-W`$rPBVt!9UJ)a~ zloF%WBIk2h<>a~uxrwRaXS>`H|N7{?&PYDyDd#m=wYO*dnIsEGVfMU^yp$u(6Y=C( zq{zepmsuk@<5?p>y)L~3(WWSze_1G!D%^1r{8`Z1m^oZ1!d@^R>ePXf{wamN;f=G? z^=)gQ)%GA(Cv{D0HcKDu%|Ax9d||rfZ`4x_fG)nId5M5-*sjkhT#h`Y>Wox*7OQuo zo1M-t^yE20ogDFH)bVNoG5_@H5PO zn>!@-$k0T7JWp0lhM9%t2+O}0P4s1P;pflNeFD9V5XnIpQal)?SmVU{X4fIeSX;~`;we`xhd6`x&O@GM1b3G&PL)r zW2D5}np>6ppu>@iiLyB*mo#YOd`SGjAdT`8fib{m_FD7$^uoK)HAdwN?<2;419!>u z85fCR!Twjzx3BsbyaVWXgWuxq_vx@(GX74u(#5pM-)G|5Zr7y#rF?aruCn64SiYn^ zexTbpYRYyzwfu*-yCC=E88GOoKkFpF=nJzt>+6U?T@NmazbX6Vc~HEt6M9)?4ac%^ zq*{g9j)EGC0)CU@q7T}w`g9WFQ+NxPKIYZ)0lWqqG-gZddN5HF0;~L8PpKKJ) znC@9w*nlV{6a<$dsY6u$x1=c|WrMukj})!#gR{^sSLQoO{>Ii4^pb5@($gmUk$I!v zPoEX>j<5OlhuWLAzax@??3gw;_K5;P3p52-ag=nm59U1V)vI=&^?+a<1)9ttKXtO- z-jM^Pa5IqlTXK*!>}x@#Ll?Z`+FpE+bg0GoboPm1THau{38;GXBt25kcaTE`FRGj> ztAaB&jr>8V7qj*tJDz9K!r74ANv$ukdVFeL#GN9=H;SP>ie8*IxVq`A6!eONv0Ni| zv}~53rR#VLsv~?d9RckSgNWjnp8JEy{ro(+t2tZz%l0hnTh?-u7Mkl#93fy)TA!X* z^!b!(kKV{V}vFxd2S(RWYZz8RYz^&A5pMs@+oQP1UxQA zo4O4Rlem`#3a5Xhd{5#xC~xixM|^l^k-29 zi;2?(zV!c*{DWrk@vG(U%z^?-A$X!jd~A@Y{}fFsM0|qB$(HGhRD4ongMS9O zg#YAg7|A`z?9xKA=9Q&`1RjR4OL=IAII2zcZ@J453k#cXRZ+LwAsMKBss;d}XNm2+ z;7N(fxrqXovBKZ|a%OW4UV(z(-eDxB>AHsex>*>eyP$+@CknrG7?x22a94tVd}#=% z_Z;Vj7;Hz{A@}U?bfQL-bVOy3sJ$Q*&0;oS`PC}iU;UB5h9eVr{LI)31d`<F9= zu=#hL;~VaglvDr_zj7!1CUv31HrR_f&{8Pb{H`IUULgEyyX@#uum4g`VcX8Rt35L?+BB<5LfQc!IVU#0mU)In4Lu5jkch2w;2@Y0dhsAbithPtqSnF}vA zJ^m@S=3-U`Z3VR~;Cs&F38h8%&T}zR?0e-Shvpu+LF{9-i4vuf)p2HU5#8d1PAZ z2Vr@$8@+~S@n)6Rrz!8W1K8DIwgZ3lukVH=hA^nOpx&jU z_D7RLb*|R4h4yV}h)gZfzyn#R+5;%JcSNy2-G~*%+1}c&*$niUViG|r&bm>oiF#&v zA~BJEG0bDN{te@6YZ`ufRn~O%PhQAVXWMFPitw0N6J{9RdifU>EB(ChgQIC;9q#g&T&_aZnG+|;Zw+sl=n1` zQ6z&|WY>ArcLQo;aN2aF!(?u;Acof=f&{SgX2ATdcn+Wms#7s0IU}6p`(vFuUMz)) zg6lEzqc~n36~vYwc~yr<6@~-1OrC5PzxJe?u!Hv#`+72t0%M5-;)cdn$vaRROgi`6 zlX?5NW&jmq&Q#U~jTi|sQ&%#c+Bh=5z0n6vq2%;HQ>Bm)J5KA^V+5M~gYEzgRf1O< zN|&^jGTLB6ZNPjLN5f0#h$ecW`y6ZJ<-xe!b6$h zKV%&g@q@+P!QqckaA9( zn@6_8cq+t%nqJ7o5L>uJjwoJb zTRHSq<1no6&>A~T`bS!|Z9nT-;M;3B{L3$F(MGDb#caD6nJYd$1Z_;9uhF$^oyR2TR1CpTkHzpNWwe~f%y^kE*F>RN;|FxB2RRl~-U=9plJ%wM#H8I5b36R7K`%nh9~##X z2i32pV+@J)sJq$RRv>bFCfJ1Afppfx-2p?jnwN=Pc*@E5xrl7FF3gs!p1iT{#K4y* zh>YxOY4QrH@F}@lRZ8=D#tdet<)^O5nt1O8_*Ebd&=J|fCj!8jrO@xzu`}vFAW*S) z1Q=Ub9!N&Ss44y8Br@lj-<09E+d`3=XXDHS1eXgj{KHffGHF=?OpEzfB zE8%(sI3Z%yRK1!vM*ooZ*Rzf99T)P4Hwr0B@G_!;dO)#Obo=W z`sScX#*JF`4k2?3?@&=p;^E&rT9qhw_U^uIE1j_4Q|>W0%cchsIz&SN zud>pwDzB$W?46Y{qzC6Q8-@ zg01cVmaebc&Cd3=N$|A0o**|0gpLzW<-k8H0TbAl=?86t$7bnnHm9o_H*wM^_aARe zehcygjvseA9|M~X!(w%WFj#i|xC%o6O@Tl-hD=e3_l(td z_($>4>hxPr>D!@Mpq}An z8~e?g!iwncExukP%wl;0tD(PO>>Yl;eqGA6zHefks!E|Vf8?6Bas zmnqDbk**lWH5m&uKttHpF?5GH)uq*kw#vG+liifeGf77ndWN^T@T@_p9_XZe1*}v_UP@%wg$pY+dj$RWFQIiJD-IxhHyXFO7TgcQk`^Uy<(0@O+&Z^{da%*Mh%qSVF&jKJrmRt*3B3PX5ZONLLg zu?b}Bz&&v_2dt~|%Y_Raz9t7+%qO@0W9WXV<*6iAKpcV{e8k`BdFJ9L&`FO8Mg<%P!dw?j_=apCo6<< z-Bua(^NUp0CG&+OES<$&PZkHUK}yjQdh}2{i~#bpkmfSilTadC;fwT^$`ESgt6vW) z%c@^+6AK3trFBprQl_qqW`A4M?CaphukC_d{YJ&B5Q^d#iyO6&^{ve+sST? zD-FL{Cx+3fXY~F|g7GQQgY*bszhTi13OIpF?HUnc8MZ2d81o^JxIqHWk)1+8sQyB;cGvj#tUYfOGQ=wAZ8|K0ZMcu|6Dv6N0`BV-YDW(=gM(elth`A1n z`a{tzIVJ}|=EAP7g??MCa(#42YL~$J(ExWcyjcL_CGa;znYQK5!e^PK^8``zBA8|U*k498VTP! zKcB0ts`{L(0-HPbL~EIu65U2HNVK+GCAj_vl0Js~2-M_MqQX2Z=0W}z!5 z&v`0a)BHI(MTIMAuPq}>3TV@8;4hFSx)4v_~f{6Ep zO4*-&jNHa*!T-JG*@HuLD0x1&DahCfXD4u&aj!! z_?+jt2EZ8O3Rz3u5jD_*0bdsKt}YdJ6}k`5XO=GcSFtv!IB6Y0 zNZ-;tPH&SVmSSmn(%9YNpoDLjBaXMeSRnC^D=tUiW=(2ZpbPAD-!41;piY%GsD{Ta z_~5s#(~vsBTgvc|?bDdCcl)ak0iKbp`>1iy0bXwAa4dkQSybQiJnZnB02QaJmHYX9 zNC$V!#Trbod2!u`-{+3yd12RQtEEkA zRyS7+z4hHOn_F)aH23VX(>Q>w+4~P=XixxnUV1m! z85{BVS%x(iBh+PcF6BDvJ_Mz$4V4Ir)X(~1Uuf_H3bSoq!{l&uQ7)CSkW}%y=kDKN zs2mM^ZmQgG3Rvyfx>ea+9$ShW4z@8)xo|&L%lDqth z6Wl^GVj<+ay%h>_qHlT*SKcQE?U#$&%b}KiZ%-*LZ z9yq^FZxY1QJC3(Tna25Osw)G9@Ee4S12g*E0d!TTVF`6=!dgzzYmUeAI8mMBu%Wmx z^V;CIszBFDadZIJ?R|kX%qnhMqd**f8=J^?Zr*!+y2J(8+eyXVOv(F)r^0L6%U60l z@IAIb+KV_1%6Dj<+(=gyiJ)C1cb=*m4~o$>$w)8!G`Z}5Ho{k&)A zfCWT66`Xtm>J&d+yN1N*tqbyAsEvzo{i{(szJvOh)qb@Hh2KYJ!lxe}xOfk^c&1C? zT)DYM=R7J*LCu;kFge$40`1dMd+FrAI)}s@g>P>$%lkX{$jyHAxktws?Nb}Ge8)Y< zzn?bt84rzpXNg?L>R}od&k8T0$wF5wjmWvVI`Dd6b9}iGp;liM_wxAc%{@+uI~kq|b-st4FQ#hJe@1|+~64uvNy z{8%BeysWc(Q#3TBvZ(Ln;A@HFHiovP;yrE%DiN9f@u=`d^d8`IkoH8($Y@b(N-8YD zd8nWgg}{mSaVq}9?#;agC6fPar`8GTmbR`&DL@XV{5f$rmau>mQYCZ7!eU33nzFt@ z5fZg<#0;xGP7s0Ln6zk055%L^nV6+}>C{HA{VRBes(pp!@Xu(YMi!c%^-&sguliA( zl$^GUMp@y!iQCEzuQ4mfup~Gp?eKN5oCM#V+=xwCUopf3vMhZLXiPqt2gX}2g`26$ znwa0<#_(|!*hcZMXPFO4^gT!sT(CF!L9zg$01i9Om=FR^q{VHTXE z7>|66>@>|KNwjwZG zNCPTZ&ct?~!YdkrP${=gpqctLSS&Pu1Ji=TEc|@AqfCMic)*>SxFgEukNwwKzPjMy zu5p)80Y6246`be}pHfBq6b+q}8&lz>5rb{^Y|>+6Weu4NEguLg$ZapCXrXC#$4l)j zmOo#I*=Em;MzK2*tW6C|=-lzs7mLuMl+^HThHC z6=c>7BEEuc9_e>^y)U>J0ExO-mY8|M2PcN32(lg!`%=;%Qj(V<0aQ4Bq)^%cjFpUE zrAt6?*b?nD2^>SDjE9n-8H%$s-PI~>kE(o|m1}(+n^;BfJLJkhoVc-Nz~0hX+&C+< zq|}l368?qrGG@UT(Z!0|OqDTRY)86R;UI=B4lbiq_B~WNLXwe5GLeJXw|%EclZp9M z`)luJsu?_9!HDB!aDfo&JUYLE)4yn{+c`hA(dJ12Z9;RpK$ zlZGE#l2nMSIfq;;9wZEwy@1h?qM9QL30bAUxaL*a^RPF2zkwONhv&YnDpI=UFE1zs zyqY3dYpFlRw})UH3?E$?A@NNwOor+06Li6hNpFwyT_hqcZEgw=NHyqFQ*^;$U3A)S z&dzC1<~C*->dUq3k8v%_42;h6&x5;rtDpBqQ$^PgXx4LZ7g>N~6X(vz{Gu+2??Q3q z{{Jo%ufE~8NH?==8plWZN4Pb{Z}!b-S4A35zisU8Qpb;|tF|E{I_7Pj`)e4XazPry z<>~f_#o)>W4$4snrAJ-DaQzyQfZtGY+5f5mVT`y=Ww7V>i3;+Ga62Pg$FS) zx*tKN5lWHW5(enAxG$7`5{pO|w7E^!+-#%{m`%tR{ERhBp-oN5gB=CS2&ZFOp6R{b9g@z#RIUDh_eVa425jqIyySd`K&#Q=|<;Ys+Q0` z(U&`WP0fBFW=~}o@Ui;)%7YVO(frX;0&PVWy>G4#{51%vu-ly&ik?z(dM{H(_omWYCgpHynX+!J{8SR@3&)4# zXR)Uf*rwI9>fOE(XHC*KZQewpk*ec#t*@#pM%WA@PiL!C0TubZ=D}7EO^v_1%eHmy zn*PCdyG?E7wHX@)?_F0duF~GP`BwOJ?MIcLqAwn6Zol*C8mQs5dUsI|{iD%x*Z0cL z{So1OphCZEUHg+xPJev5v!Oza4)M8GWzVY(73bR>$?~{UJ+hsb`&&}vNU>sQH0Vev zCWceisY0xek2vJ#8U0qSRq%gR2Pk^b)UkcM77l7XY9>1yiAvCcrlS!wI8cCFvSe6jiAIlGR_$>rg#1@3?rMhomZ^{M2 z8Tdx#W>+$ixrYHmTaSM9tl z239b(SHr+MtHFesm$^)uVB<`6P#HtV*n~SfEfSaWQMWJqFN{KP-h?2i?=Xa<~nTasFD5)R2N zXg|+4{dRUW*83CqrKs$TGQu(DTOU@0Vc?H4IogW-83d7y_)u!L=00c9ZQhxYALAa@ zXRLxb-58`~Xt*iktvo}EBhDd0jm$=)ns)oYiv>wv(c8^)-;n*x4n4g_Pu!rMa#>iX zI@!9;CY(LXmIJez!f*Xmpv-gS5$D@npC;}w`-#)9rsZ;4@>R(y9hr*>neRGqN?k&C zbV5t^yPWDoXWI%yjLDi?-FM+A+UxjNmT*0kQZgFpxH>%xBX~RxAD4}v9RgXsqpC!O z!U}#)>gUgagqu|>gYIg!G5S`CJ$ZWK#`DP0#gn!%TDDT2b%EQSbb$+&KT>QQvB$pr zBq(`Hv|4DJq7`wqKWUIe5?IYgchwj2%e|a~dl5OnV$qC-vf{rj77O2~{2EG+WD4bm zNRn!uc98Z$M~6phJC}}g;zPBq6~-lsx+8FFaz)t6C16*KH7^st!%-&PsvsHR^k=`# zG0C(*JKi`^41nAnpDEXB(JSuN^>g-8nG1hk>b))AL@t*@l=bv+YrGi>9*-6K3+m~n z;+u>#8Vf2*ay}AU-&|YPPz08pY%WgeCQrw$W%JcW$?f&$`la~XBGgoOBp9+QrhihV zym_cek-~xxt?dGlz)=bDjiP_dP<3L_Tn0!+2j3+19L8x~btDT+28&W=g(^#WVCA#2 zGUHlVoSz`>Lz)ZPWMWSepy#v6S7t5J{!JmMdG3KRa6fVYAW;u(RE`6+}W@E1G8yfA^8Aum>yUAWhjze;FTKn@}XeAnuj!&OM$u$!An# z7ziMjx0za%F4wU!q#mt7YLg-@l1JpC7&o+S%}>b?rsO*Y61sV8 zgogW002>B6`0AP18=UQoZ41o^2IP{KE$X>=*p=6UHn&#ygf@47a12BUgE8cj;+FT1 z@eab+i*n4yR%A#9!-WyBq+9X3M~uP-ZECQ^~g_nJQ-WL z7b-EzNuY1i;m_A3T>>ukJh}bA4g`J36j|u~m?j+w+`d#Uts`q^njD_Gri)DunB=33 zbNV@tJPkv>9+dba&5t{^Xu9}P!C2%>r5M`_HEH2J1LB6IgRpPS5Z~>35}1V#_EdBE zNG*Ni^ldYZTg|WOIgN+5dlL}Xu$TYE*f|7g7OV-h%eHM>f7v#=Y}>YN+h&(-yUVtX zF1w~?Hxuy|Zv@o^)sVCtLU(dmD)0=oAg zz#?yyH@t`|BC-6Xm2B2|2Erk>fw4=?^n z1ZV$Zp64WZn*E1tKRp!!0u^UmC$UTuuOPMCjz4IEf)QvsIKRZINL50rwXh``st~WHae}Q4_WBrnys`ij zHzSH$$034ck$h)bpl24-EFh1!NAt=yqWZ5^)8A>5W&3Rqr@6b2K76&A*BJ<~+a)ze(zpy_{V(e-ugYNhQoD`4&7J3v>h!6b@&;gfm0*SoflhGFE;2#z0 zQ;t|h%qZf{-EO!br+f;W%VzFTBgs)Eh{DmB4#TTR5nza34N9O>0vle45}>!bz39w{ z^bCrH7WD$)2Azmeaqi72S2wVF%wk(0aGem*oe&f9haVNltw>XUCjP$BWmvn!jE3f% zwZzwe`%|tRS!lmn$aTwvIbAK8FC!8MfUfKM3LVcGqR!T(piWnR(bp0hTQRNbU5bQ; zOadUhqT!x}mi)vHVh z=1ow8746U5#Zru-`StnLu((JhAx{oQe|7Si%<~Ac#6nt9T+>tJ=cj6t8sWY$%Afk3 zk-+U=umH%M?Q676P!^IB?1lIEV3w<2$5&8rK}zK$$v>kmpOvTng~N_c{)SXr1WJHu%d*|vjUIhu!|c1NeB+)`Nl)Tq-PB6J--hb0 zmD51t*JdQG@{;qtEhc_CtKl|n#iNVRij7cYei$K*9g3S<00NwQex1ueodjK=H(*hM zW|cKO62G<>cG-{#N)AOT7*TVR#4n=uuL{srI0GdRJR^-&bBQz4p83XRj3nVP$*-mT zZLovg9(oJF*CihUK1MJThJwMK;O9mSSDI1+S$NKMrAvZGCk& zy}ODSqHHpHwg_=d0*j|}J&J<6J<`$CpfIm!swcr`po@y$h9OfhnPifjBc!6UUKC3) zc_2Fnx>yZ5S_u>u`VHZ7MM%I%t%bS^<)J2d5?IFNHs{E3+@;3i<3sz&TR6JiWq%M~ zipGn|t1F5tN`OablZNxru#Wz)>>xp?>KZK^X+Z|H#J@tLr;}%3NhM^8J0IMN-7-q_ zQ=!46nrxXIy{qJY=(N+ypn0y*Y2(>rQ%Hp&dPQbcSodYlZ|$)6FjL+bCKrnTSST#= zDTPrBOa^-8?zE?~daUZO7e!9V*QO_URmdBdBiHs_Q0szHdjt8d5JZ46@%0yinwP=e-lhuL-zP?WxAW%qX+;Jy-_G>@tY;f6!NQdo2ye4iyN zJr|O8|L`wV|3zg$2C^S@c{bVY;9z`w%z`m$CBfZ&Rz@pVZE})b^n#jgL!O6C{977d zP@r)n+zC6>KfA&SIk62q?@FLbch;1wxBqk|ksZn1gs-qb`8=K_PRqe2jHlE`r5P3# z*P$KKc#7H3KF!+R$li-}_9HwjnzJn-_y-3*rhXCb{@%Thk~k~ztb)0$IfMO};f;G#1Y;OHU*s(*c*c@Vir{mZcQ zH_og!=ay_5p72UR0cjWzvQ1j(tcZ6xvCmOkMShTu=n$^q42CV`EgX+n|1Khf_b$l! zCH?@PwTb%XrvQS9&6m{}0i6kR+$^lKsd#dQ!3FBZzfI2AOmy`^A*bgJwPZ|{x-yz! ztJCjQiql#PGXg}g+T)6Z!Frj`mlQbT*6jC5ml;n3jlC}K}mE? zJ!uFpr7c6N zFbb|BJSoFW${@V#?bd`rN93q)hTO+N3dl_GLh`Ha5u+E-ixRwxO%jB&yX4JQNM04L z_uzuGDc~3+d5|^yimmr~nn(WrRfyO=J64o_md%ujfgXZgDD03SFCdLzb2h>wsszXC zIX;EvG=9D-DJOlLF)6`Ze;wsxrv|0*djbSGo?1$J!o~1vyVzC`{u*M_mj7^WBTT5P{F+xZZ&;?2A$Ew+E^~a?&S*`40>u zI8e8yB7=$e%|(<~^K5X!eJ~{8Om`g&uzgP0(6xvTy*1B&eFwUeic%b<@3H$zc9%x} z?!5ERZ6r#0tVP&l$6+SAi+(p1eghOQ(KQl1iq1@h(!vLlDnubveQs`9>44m-(ocpv-S|Uvj^Vv{D%FP-xG?41~B z;rv}AO0^$nw8r~rJ{;V=Vs2#bQ)F{9o0*1lz(|J&korjFjCDDv&_j{r6VEOl7c5#SOXE$o8KD@%M7F& zO9jep3%3#7`T|EzR>gp(3tGq|fvMJKD7YJ14|m%LP=0yUt*Z#MN~OTjh94 zuw^m(yoz;eKEV55TIHPoz0v#ROdJZeh+OKoT8aG?Ps~%I(}TG?UHIv zymDr4j^}^AMq2WKaNi9VBt0TnPK=0bIm=}CxLT|zO=uGhOb}@2O9%n?Y87fN%?WtM z5u!gnA2ptSaEblr3-D$N-D?es$t=$6S0yR29=RF~hYurmfKgfRnoUv@=ckN{7l`g{ zQcMuQj)k|Z$Tx}z_4b?st0eN44ca7ba&}V`XvR~$q@Und;o!KPQr1O5$FDL{A=0WL=hCpqr$R!u^QHvj!$M3lV z3flfNNxLcMsm)cFTy>2JKRVWSb3nFsb`)-6No0ADuh?w2q8O35ZW_%GmSq{wc|zo^ z+a2U)a<%ZiQaR3s(uN>yHtA@+$dM9Q|KJ7TYeO+&AiaM3bjm0_n_KeA(y%f`ZyeDo z-GiYaN8IBa9M>^dwmw^QW{78wvo}J?Onu?5hKkWhaGd`MoO2Ls!*eDC)zwCN|9TSOcw$HD7BxtE?K)r4q|U*qJ`$eQW^P(|;qSt1zR1B=lQ$}bUPCd7!y3*N_E-I)-@`EBFb(!`T{+Fh=7Za zmhm+iYuU;Z3<|q_X_a?PHn9ea{nsc_p?-r6{DRTO2VKtd$0Ru(7yi>sl^c_#Ng9XK6^m<+CIX4mOBnsuiJX2bo%ic#w z&-daUrcp2~9%S6rItn(zgM=WokP*#u6`EaV4(C|mG>8x#jmVBClmcP+DN->!h;j>4 z;YADv4Q^#%u@%WEHumjJZq>i5q9HP8^WJPE-#{UMwbMgUU&gRw4*ActO3Mb}Y ziy0l=WeCE8q1jxerd1@G;5dvae*qoDW6g!!ebH91faFw3!ctM>QUDejxkX+%PC~P+ z^=;Ek>vhyuqkX7rGt;~`pzn6)x!fOYy6kmcA9jUiWsp#`wIl2-Pn{)NlW6a`8TiLO zs!&olr~fcPBpx6@5r0LdP?Pu&Hsquy?bdsJK?mzcRixvEG9Ey@TZDD>nU1V}aECU< zPEnUXbT_ani;kM$qE9-zCgCU&aHXU|>Sk^Gw5psh4w@9k#e_2YrhQ(I8%ZbvW5j|y z%FJ29U%pUn$lJ~J0~VKI5d_eAn6U_6ftD@FS0T1=P5UESbV4!vx)~Vz*wa1(2PF$#>MI=ys7L#6y?lE)s-MFEY^X>Eb}Xo?9JYXF?Un??7u zAiz_SG(aQjx20=9Kw3E2ymVH^hOzTOwm=u=*qu>uEnf^S;-+0tvX_neQSvM}t3K8zkp1B+HB>ydJos?gi@`EhB{(9%6lTG-%gwrhAl2$&s zoxVKb>{&T*8I5HC`(#0N_SoCtqzdC0NqPSG_w62>-lSJ5&E=60gv2kGo+O2bLFZ}S#NwIWIkeR4tYPN|LpI&!nO?SoZPIl` zt@Ur52tCGNlV5Ccd?*lFgPcHWpf~cBT>6c8%RuHBidyGmubL8^NgNi#bFFyu678sF zrvtryOb%Pp`iFRSMpvM!U%Z?M+(rXfJhu<1=ja`!^}?i7(bY%W#k6M*&<9X+>Ce^n zzx5mBg-KhQ=9^4+zgCVe^CxGwsPQ_kL_K+)goi8}aqBd?3c0XO!q#b0e5QgHQ7z?K zKZT!bOtE^olln{)ALNg81mOO89R76^T8!<(=T5Fiy=WFZLZ8z&i^~_3QDWo>tWItq zewaNshPBmYq(?!a3DUh2(v!5+kS_v*GM2#%mnm30zYEUIENI;?QSeK{Mh#bi8S6d? zC>zc*EHDp_GVy|3(2q&~fk0*mRIYfW3H=jBq{p`m78x2j1TuH~Tr6(lx$?2^E=>`{ zf(>G+J5FFyi3_i;`q=+-4#K+nIyQ&=We=Xx$$B1_Y>YD3pt}YJp zEY=07ZkaIQxRnYj2$ujw%=YML_TVU~l8@}x)PTSN0%`IJPFA+IdLvnLIa!X~yf1w( zRPU_@&wItvTEX8(!G0ruS;nh3(pYp$c^H}cgvOIW%0u}P-3p%W_TE`eH3_*|V|Jzhdwya_8FzAT^XV^!Cd417BeS2ISL z;sbUZhbsB;`~-x%m1{#Ey@U7j3A`~#ucwSPozBJQkF6D>ReJi-u{+q5cm3XyeyUJ! zcfa+C%VAYNE$7EhV?V8=&{4s;E}W^wGdpkuuPBS;&_{@V7yHq^@|$#WCDW0>%KC>) z&etmyoN1@)a(fI*_fdENhI?Fq3_A#VT$0FU8^0;Fe6>~jqOQB!EQRxBD@08IlVX3 z=8t%Hwbtl#AXb0!!iEPfqLoBB%`Gq;<3lue8Fo|ve9@fch%g1!ES?I%t!q;oF*=({ zAsthLMS32Y1?N${JvMCttAXpMuslEf8WZEJETPeb0MFEfgi;my3nnHC^B@nNyeQiy z`>!gxd(0^oPIA-G+BnuPgLJyZwMM#wyU#sf>4WlQfE}) zZzcO7KKAnIz9^6+sj?tfSMrbv^n-Hv>z3b8HL??BkAadI@rZQ?1-z;;siM~g?V@L5 ze6D5WLU*!($Cz<-mdULKPiiq*r^m{HsL{o;k-vN}~1ckoGU8$UYL z#R3iDkjOq9A8?==QIh6}YC1Aroo$d!HKpa_c~tyv%-`~lO4S#%rmqGWZDpbCt2Hw1cA&gC(ja7V&trhyf8n-g3w1MM%HUaBpEVnS_IXp^)G4R zfSBXCJ2`Z|Ho2v|c|sS@uQ># zLUZ|ixgpTmxwrnTsO^nv*ylYK<$D)h)2~WyL%>h~Fr|phxQ>@XitgWw{mNrW{Yi72 zxa4aV9_Uo~(t=x9RCsa%D$8{8!h$~To-MGHt--Y4Q5AoQF^E5GDv77WH#zq7AUiLM zj{L4?JalUUZRI}g`B8CC9BPbvyM{Hul}+tkGJl#QtQO>Mgr7y<(tp2xBweHdG4Pp+7IGR_Pc0ETP;OCJEePZtmVPcZIK znY}jZ*u+>7zCfsn}pjb)0aG~A>kouvqN+MEpZ8mYptfR zGr3R(n9T0yk8g_A;Y@p0uSD4r@ojZ4HcO5uyt?nC0`?AD9R|-vLey^aO&ycQGH7iF zXfz*_J8~W)pylj1^(BH7$V=5q(ncv-viL+C)&i~o9riKwF%mM3M32W>CfqFF25HSYA0PBPEG*ysX6oIr>vBW@=(oMx^b+~ol zM;PbeA?G`OE`7~}_S=?!MlBbxFv(6#Jvl=mYQobX%dp#lToh4lh7qoTkdZc5n5k7{ z3d|kWFUixYK<+K(nI0kWjG6Dqm>}JVT&sMR#s>J%ou5}Lc2mr1S$-f&eQ*`tR!;v# z5P5U_{q;A8z*}q9KL1`g@h#d>T%nukcd0Zee%a=)o56M%*Qi>YhDkCN=|^2~ zT|C-WrSlYsd;)hlj?i=^4QEBaDS7!nS_-36qKH5&7)vC_lfm2N5(OODAv40;eN*q| z4zbTQkWJ)wT!VG)PpG5fn}f*3O}l5VjXI1gr=<`lpU)KxU(F5mu>cZ5tvPbG^VaDc zyx;Xx7H>X~?c@DYa026kG69Z}2xrEl=L8w5CNYHF46_7PHC#Qp zLTGgp7{nBmP7-K7-PNO7;CfbbeXT|2)UxQ-C4&AQcrzuCRg2=3Hbf~LVd|L-U|N|V zw!GEXGh_~13)K_g41Vk(?ot`4q%yX^RB;&4UXmna$XK_F<1jc8MKdvi*j>&ochbg( z`s1kDJei}g!}*%(2`1p9HzYH)Pqyg#aV@=QlHb7t@2!Dda|jXk5&Sg-x0y0jNo5|X zgEfh+f5$R`W$e5gdVnth5>g3eS#~e!+$y4zr=N5f`Bj35S)6i|l@M9&F(#-|DvpC$ zwRTELGjAv;d%MwX^v%LyG(U2H1Z1T#=q)K~QbFqmt&Raay!Q{t${7<<)dAVSU8&C# z!hjs5j(nsLZEd~cJ)u|MKnMkj@QCPUPH3Fv#1yGx~F>&W6SWI4CPr7Y*ZgnsM9uE%|f(+E2 zqa|5-WLdRY6SFmZ6F7{@l(2<>>=G+r9l>sIrbVn<8ml>i9|Gk+;)A;Pjg80*D;~9t z#jCdL-11|?tE|cTDL1i;BwZ z63RloX1qw`Gn9rYM04SjsjsQ^yfqKcWNP+nV|ef=Re7*HkOvP65-8e#TIq9{ha;b3 zc@iv#%S3WTa{1WrntC<=-9+*oQpfXueCnkc54v?nv<8oSvPF4EX42INLz(b@P5I+>o>CmiaJ)Kf z;`2TwQyICEJd?i76=_kVe?q^?C*TdksKUOsL|4>^=m!;8yDpIe8^MMf<@9*?!;MHx zNZnYp{rQwS>z{K)v7+B2PzNa6yA=qVLfww=eNAHa} z>9r}HQY5+j5hohkgr+#GBx?IcGyC`3iyp!E=fSt{5BA}0hiZV}HE*56FZPpX=96mr z>csuaDpT(J?JYdd$L;kd*zcqF`!k^TrKH~U_E{$(|EtET)-U_(v0#qX2IJ4STmex< z{YCHS43+KA7e4=q_YRfjDRaxK^|}k+`Xl*k?J-LUoaXn0-{uJXhV~!7>;eb%g2y-( zRy()!pWM@D-V@88=V`y@JR4xjVII|j&tDj^bOH;(Mx8THPf?TNxmck`1lo%*7=3)b zj-g7lf~Md{DQKt^?C)3|G1GY#Ia2UPH{26yGtvS*+P(&_=N>voJKZr?EqdC1n&@_+ ziydjhrOWQRkyzswOAK!peXwtS!#+uNK6sSeqdO7SrTTW%=Dr-S?H}O4XY5xWA6Dfq zGx!fJ6Eh6b0Rn>Gxvvctj&(e}{iPD2lk7`4Z8?b2zTKIRxZx6vLHgs^1%z>3>Zte~ z{#Z~HzX1p@&UXWM&N1l9cTciWEK09xjSGtVvqQ~evB_0Ulb&nZd6~J>N#>_Q`uGI^vhyWs7*-*5b?_w~PZL;nbkzY&E zz{~bGt^WP%)+Nz09N}C2^~tC9{wd~_hOK)CySu}MHOPe^Qz)Z{3F{(xO|mbA4%CLe zxx`30PFh0~niT)!)iL<@-ayc06W2=WhM+06M-%5zrL)s2ip9IK*MuRI6c z$D+w_es>bkITWKp2mS$XuO~dRj87ovHtKFY(k{IV8Lq!5zJNgxFs*h(J_5KXZ2tkz z&{)F2_n(rAhq*t$<};!eG#xcD za<|P1kuuc>MknX*rNRbK9sg)#N`F7-*T`n~KgJ!&8M$@HI(PwGJ1=+u|Hc{B2w4!@ zoQz42B&w<79jDwoMeRYa8L#%8nKgxu0Ocps9v*JK zjSlpT3H5#5_0(v*--#&`PcB|7r>#Uf#9$Y24+puU0+1a81_ zUkgoi;}Dp#sXlp*O?-sxft|6q#M*K8lpR{-1))9-d`H_0h=Q_)Hsmg@3Hwp>w9wZcK zkXl!2MG}Z;(rgBZ(=j@8)tI$64YAjAxYu)i*EYoV4;aT9gqF-q#EF>$Woo7vb_At< zz9yzf`D&%W6m|hTZOm5EKGxE+S5{)$!PNQG`4h3HDeV&;oy_-+vbs5^OH1T1Xllm+ z!=5-7YT2o#L#U2Yz!rMwJvEmk6t z$L14;wQg3zTYG^aqj@eV^ME7^H8IitwQ_ko?0{%WW9g-oSxW+qxDj zbLOF&7x?RPjMIowm-Ow>Nm6Ni$4OLN#biKSYn%HwU+o{xkw;KjPA8WBz-XCsu_hMe zUMxNd*r>n;_9rL)jCWdUz6_n_Cz{7MhWQ44l&B-y%^hkM8 z^Or9RH+)F_sCAN81y^6n)fRb^sa{<-QGMGd(V}Ck{M}_3kJxj27?1HoD~kKq{k3U# zn{b_*14PfM@Gzc!8tAodsQ4X=Wdsr&9{jQO$E_4KMLf@628o*w)nPo)JE_5~=j(lV zkqn#KeE#}25@D*H=QLC|-1298)2q(5gM$57Yo?5Pe7Ku^c(~8~efaIL13Q}Q(Uxz~*I4_!&Sg%L)C ze_kebPV_ffJJL+tAA-KMv(#KSqG*iApga>dHBKI2G$JYLzo3a__rN~3JzuEq)I7s? zVCwpZxa~f@Uw_Tojou7D1cpAnbmPOh-Foq2!z=nm>COXcYYeN zZtQM-F^%*Vd>YYteaPE8LLxLnY2ZU7({*xeV1cC{=-ersbAnCHBvVIddLHHJ|bj{j))CU`?duuAH z^5*z}gx!NQ8a}_e`s=?hvl>IVzh9Xc`@V>n z82KL=!UHmnN|x6={tY>FRL3*1pd`0V_mpBobUygQ}Tsi7l0FF7@8c^#Y} zALZ{C#vl+EoKyACW(PVbtu3Zcq>)-XM&tLTj4)7a?ZEtl_l%s-`L)|d>-^#vPv z)8l)QJC}GV(0>Y#faUYsor5uQCYs9tqk=jPo8-N~tkF_v9C8ghGe9HzMsj~Z;fA#; z5FBqr0J95c(?MD+zwy>u9yoeA_ zR{dGlOQqocK%!-7;}Bg+{JH%41O)k86QV`%URo#KC~zbaw2yqkMOJf^i@OEccdjzQ zp7iU2YSaYq#tEemY>%da{KQ#L42Y(M`ihLDleUxwwm3^$m(t9s7+`|g24fcQjMNpw z^2+<8b*LU#uqAuN)B7&8jz@>>)a|s;jeCUblv{VG*~*2w$hMEEoXM65t0irx^OfJ! zSt*XcakT+evGw&Lop{qxE8Vg)I2I`g%v(4bAKy(Dgow_ zkcYOtR=wM={=AXI1&xyGTW_lAqzzk$xY#P)2_pBVu8qG@5sSTw zt&dWOjr3zi7^V2@#55eH{EHW3*7RA>CHP}Qkm`AVT$7ZZd_?5V70O!)=#}bg3vp4P zf)sNW66V!N%FS+#M}Sy!B@}99%S15!)t{wsPM*b06z2PKF9hj~(+REaLnPqAolze? zA+nOcu^Jr<;$5n1bL}0+e26dhvad`OO{WYmoe<UFvJvOWbYz~#5-wOKDO)9{bb4&*WFX?Zvf#!2?m8VVVu_Z3ZKmjjfIe_0D!7z*-<+qp3+kxLOD|Tmjxn=W}X0OK`STZ+A5_N zCJl3Y#N!R`(h!k5F0Q|fFiD6Em!S(x2N5|O>R47wh#mKoU#$VnyyCt_ac?Hk{Ktki z4{N;Z+th*G%SVn8x)JSc)*dgj-^k&vMvwYs$co(34dYk;kh-?l5QU{^{JtWz1z#4X zTUTKC(B{mFA%JY_?K>VBHNu&#}kgwUo=%OL|CQ+P@j$Djv zeLM&RsIP)HUjd1-O9Z1V!pg^ti8y57p(|o zlVoV^Y{%{KpN#6yLu*B&BUiY~GxzzI%R`Hmu#UqB=)Q`8HoBIyd3O&t+*f(M4Qk2~(JT{I7A$j3mkbIr%;Lj& ziTX2~)r0f37^R&!;T;X20!=^&k>h>keSnw}i6Fz9T8rHqS@cRorCR`-qv42M9f>az z(}?#_i4iiMJ{7U2lA6L4SbO3lm7hy6U!&TvVsYiu2qq>8H-O5P0N zB7`%6vMMZl{iO`q2*7N%F<%5k33iJ#b&KcI8vGs#o5L_I&kE)0hJE-bUk%X1o2R} zfMBcD3G!LSRFU#vMz|wprVNg-VF(f#>tP=f`$fL)bv>>-B`<-ibG7xyFT?lT!?F0@ zGgnx0{BR@V09V=6PSm9^zL;18%4k57&WA(9HkC0!L4wWGWc+n zr{z{~4!-5}Ib9@9svtsy);0dSm{YAg54a?Nf>=hPT3k5kcg9~#l=p}DK^*g!uXHN4 zrfYDs(bEtxld1KP_sML&=4(7Jxs=s867}|C=Sc`fQsB&wY*0f&buvNd{pTDAUp}P4 zK6Ls{`sx{MZ%Ulc{bW^DKMl$q>yM4ObU9%eH6LA0&35kihEEIiLU61UjL&(sDro5B zN7_vj%|{0-suw`bM~U6Sxs7JGERBsO++W2nCz&dV>vurScInb{mMU%a&+-d&fx1!g zt&~ZJEHX&CG-dvlrVUe}+%H{H8E(%vbT}mW10-KPN0JZ*HUIHe6CBinzf7yAsE1fW!abh%_#;b!+1>q^ zGLX)}0;brNFo1`+Igylw+dD^5|M@_5fLL6>Din%AIycmuHCRyaL&V!yK~RSH4;dUw zVZ{rG?R}tXUg(90+#x4BQ^iW;u+KyX%fQPbonTd@16ic?lXE~i1sM|<85@nywXbei~Mar&5O+#vw`J8@g0kHd9 z-B8(ydXS*E2XK#u-TUS?aD!D&r1ZOIkZxZDuHGqUf?K?7KYdc1T2@>+wQdA9opU9x zk4VAYp8SsnUr~?88OIy#CnR8UFM0X|M&tywh>tbiqBt4!LZN?|@@x2fn7cTV0zt90 z+vbjUZnKVOV~LXETsbZBv~MN8S318w`Ln+3PH$TI<|&oMw2Bo%pEN=BM68X*_$3L1 zkM}!(1Ynr(G(#VEw@R_(3uJ9~j6n*bM_fcH_ znNsf9^Ylh&)&-`~caQT9eXe7FdmTPx-^ZKtbQYTPy-p*!Y6Aqh+v%QO@@>DMSWc)` zy%#h*C!WLH*Da>73@CFsO3~Zv^!p<2 zBYeJK>MjL<*Q3fv7~*H`keekW|79qZv zP$|7kLih%RqDdG&glm0V$0|-Mb#)qDx{gX9<-55>E1bvf&Dob5geDaBc5#cHqy|1s zE)N%jp4`mi7x`>iz^!+h1^P(5)QUydaTKMerP!CMTo>bI^oyvchZzmi0K?dy( z{bXo7XMD{d(&nu07ngo|1+;z*N9*1kz)^3S4PegsJof+Eo;hW!dFPzk!V)cG@#OS@_>(btTGKi>xXUDIfa00k zRRlW0;Vu&9(hxmH6fH$6bo^Y4KnLPR%>hMY;aGc=SP*|qj;E?4G*kBK99#Pg-Xwkc z%DN*LJ45=wGvVZorIZV85}OdLt6D=|kTz#2#2{Ra_DA+~2{8jlf)fu}J#bW(4hT+3A?D@BFyL{3CZ6IWihAnbj%}|$5anD|yALJ$ zx-3^3a;M{-<#jn-8!p9x!<3XJ`%*%2tKBXV8DGUQW_X5&SvkSEdOpwCs%BQyIun4f zDg&2St4!Zw0~HO`?K(q2^;eiKMuMmK7s+fyE0p$5z&(?vFkgX>o1q;RY*3)-k`Z)l zx<0nldc$2k797y&(s4`k-@xH=V5 zPPk=Ahq>N}Ne1_)td=Km{&%w6tjk{L8QHWg)v0|KS0)F~bxsA3uqwI5tCb$p8uN`# zRx8IFk9ApxL6*xb*XPkI&CNBFvEeJi6mirjrv)E&2fPUyVKJ057$<)QkBu2DxSA|5 zIzgx*<@9C!ZZ%MKYTIDWW|^T-vJvRk6!F%9M<1ghGx%bE!qZ@K^+i6JT!9~7hj~=a z0CKCLIf8KlC_aDX@11LwyO9kNSoy{lVDRJVgaOSul&425Swz&P{8As{Mky+=FYvp03;`pvp3< zab2Rr=9AaaOt(-3KT8BCnM@&hCAB2e+>CpY4l@5^67E*@-!TT=dF5mQsvf=G-+*oD^uBeJeKO8PCxk4+p zmz6cK99z0QbGP|>$RMhG`Fk?M&5olM4Gw+X$ehKlM&Q(VK77_Q8vRFVv@fqOeq3K8 zZ=@$}|4JIndH3*ASFr6S3VC|uiix~+b}tC8n7w^-_MQ!BZ=IXiGwwiVzOIrCff{zY zrC+KHtE1UKl)TCU1Mft-C%`y`C&1>BQsK1IET24i%XI@Hx-dEO19(EAkA*Mp7QH*U%J3gr(cuYm)5?wYQ;6X$(tf_DEgNNN z!O(%?*7&iisegq9-uz-<9g{8NF}APP(|)ll&xn&#bES-JOPr$8S}YZxQD^|$tOLJD zO(cWWLJ@|gABIs_@~vu`cHZcj;ao!2BIrcmZN^Q?R+e%Cn6D+aK5H)ygFC9qtu?W4 zGv()>ZL+dPw;7&~)ju{TtcXH!&$d`TX@YG*l``OYYL_E+n0WRCarc~wtOpIC1SnUx zFk9*g4Ug?Kv;GF9i+Z`ejZ2WY!gLrcqh}yszi=ATRorFf;G<-*&q>#Kc$w@QGiO@X z$#P(6=AwCU09b1+@aBW3S4_+9ip-uisSh@8Rz}p`J~^S+1vElC|J*eN;qsq*)ISZX zO-IUYxCmb{Zrph+_r5+jF|d`@@d{1%ZpuLX?<9chgV>maSeY;;@^QeNXVvNGR*UfF zWruDj%$J@W;V+%GSV26 zmpu%J`eHo{IX5fREgAYQ&)M;+$YiCf42e*-!f6aRDGc_s>dQ)5Ow$&5$Kc_a5{`yV zoj01^WGv(M^ob`67JmzAgTP-tvZYSxzguwK8`EO$#HtXQr0nP~{i0jsd4H;#oCT1C z*Vgg`iJQDuE^s{Xq>emC#8FuSoQA8h!IRM8m01z}4Mk~$Y5 zKDFb%oMOHI$l+{7{XpZnoln*+0;m0o%Ckf0NlWoa^ZiK-vX8}?T?!@(ab3{9cWRk} z>YHd_d8>o8ob6YsbTZOnz3@XhhF-AFP@-JI3=!@1H4Xdp(s&Y+(hDe?olle=2l&e8C(mIw{On#G|3qw2hhA2EV z4#u_sppmEf>{O=W zfxZp_6(w#aI%2^1Nm7dqpgxL;H&4)$q0(0k`%Y1ICWA+a8U}GWq;J zaGVBOqyI^0YlsbfL%S#LI6C7KKL8pTVva~VdUhV&Fco$XWVRHp^{OE#_cdC%J6=9O zH&U1mcpEn#o=@NGS@^b0drbKrRJ(5vyX&%6Hr2H$H$3l6jl|XC0_JqOcd=n*y)q1q z-F(}m{4O7h4zR7I_-1~0p7>WzUeOGz@|9XIxl6aM!`vniu*sgp2*Mbm48drJNJ7`5 z(YwXcHV`;48Bt}%s_k`GIH8L_EP?OxB9>1%#up9;Z_AaG^o0@_Qmp6Jq}#n2Fdl|V zl0qrWPc;v|hX`18h?V(4dA+H_VkJac^Hjm;rJhMlU-5*dz+%Pt1sSAc46zCk1Vfk2 zdPK3m2(KnY)CliKt_dJ@Zabn~x@by@pPbEOc+u zIqMWI-WI2h#ju~1BLf(_AS16mnq5%#;1_6612yWy=xPwY0vN2ay|`>>2H&51c>BjJ zwbD(XK-7W!o&_;gjW3l>$k>O@N9su1SPcvB1>BJl$EWr#7HwcTVCfb17;l3j zRMc-Dt)djWuoved)g9X?X{9n2=bSAM2$?Sr?S;#Od!~u5WKErG`-Pce0V#)DIzApp zmd*h?4^LxkVe~1v_6Oa|IwS2Cwm4IZv|d$_hb_}JXIa8&oCODe$hmmv`i0omgy zL_7)OF8@bgqk`-3``|CI}?KhC{0CP}(l!%w-gAvlO|?g z71Rxh2z$v$;HPB*INxiVuY|a<0`6gB1b&$-OlQs%6V7?KocEw-==ct zxiJ0GS<-gh^))|tkdnu&eJ&uNM*;f*q@YI3`k{gT#TVuez#ZEMu= zdX?4?Y%7x1gv*kYUI#i{U+D2YPp`NCMsDFfD-+xq=@)s^i`u=cvxmFe#Wm;WeNISK z$r=V>g&C!bc4hlLV21da0^L94SRJo2mvsovcd{I>ef8xsXEqceWGFBU&9toScK zVF1!s=*n2XFH_#S?(Z$`n`<2fh8bt35)HAbx9rbd3xiXT2o`+!JxbeD-ap zjYda|+8$3J?Khk1NTv6oY;dw%Jfo2cP7N`^K#WU>Z5h1&vOPL*_j8V3+dQKqwo3FNYpg{V8n+8e zTF76jgGXj5AL%yZN3HFKXI`r)mDzK%MC$j|s=Pq6=25hC*yCBmsZziIw1eGlmWM~dpE7bg-&8FFItyl!Vdt)zhp}!-FBB7+rtk}* zIQ4+#V4 zFm^hkE7JYt?fbFZ*FrdOD+M>jHW-k(4~NH}N8#B`)@3_qM$`B{q=d%rEd1PCUftID zCo%BY#VvY2$W_JNckzn^uAOEu`2N;{WtLPj+B6?~=%X%2!YU$G{XD=a{^koVQv5tD zfKiM&e{9kOME(8JZi2P1&2k$LS1B|cgL zU4-i~eo(zNf-%_S2GBLcSIY>Au|8xqF8uwW!Uwy(a6hgkPV>lEs(7j-kkvT|cvMN& z_v%GGsRfx=ncK)X&-T%ta`QF3RJ>_5waY*;swH$C=^PntW)@5$|>r zo_2GGqyex9ak3G0DbZ72+l|Dv++TPmg>ee4WDmab`1fJ^fN{aCYXO$?t)P0_As4w| z(Al6QHGuBqfjE@L4uv{&Hy+zrc2}^66Q?7f0!w^0il3I^6oy%?febVnJ2C z?Blz3e(k=`2mE$?=p$C${Ub1<@EV}Prc`6gJjnx+UI#{dp5BEi7gwa-zQw}PPxy>% zt^1WUBmOdh%LRKPU}@HTEnfZ*X`VH-S%udM3>^{0?`LNRdDoo1#u?4iuFrpv`mO*- zoe~%cpO`R7w}_r}9!q@_&zq%;Ay(j?P60^oY5gt$NHwYj+Tb93b6kHdXP83eVzKoF zJxv~fqz4b+XN1!!IX6gB|5I~7!O<&h_}=_Mdae;QUV)`A^Yjs8B$gjSc2Ci@nqLPX zHMQ0yjKi6$NM0NOMIrDnbl{Oui8vP2z4_gYIzTqAkmsFyu|LC>n>FgG-+qH?rF@Lb zVcObn`6N+rNoNj%5CN7({PRFM!Nz3AFGjoyK)UKQB|_X=yO=&Q0G3uM*RAw<_W(=J zVU=iB9>;M1{JVp4MBhx`>oe!ucn&dA`)WdPI6iDH=xYN~(I5r<1be6<+0fi2U2lH~ zBDT6#K^bU-^ppJ`M}xU_sNnJDU#;%kfz+{?+~HUnFc>|^{plSE4^R$AccF{j?fik% zWACM=_ro2@5Ri=Q@oU091sUX-Ff=X%WFd0+9suwcX;pdE22ZvP`QYcWfzx|xtJUZa1qZ_uKq78Ij^F)^q0p$|V z)A^g}?N5Z?A=mJ)0t?+=aU@lGCObE>U8#HZ#>ab1gF)N(sYztJ=XV1Szs3u<@S!tz zm48R1{vx_aOF*dcHE?@-kHKp#Y*(?r{;oF~N!2EOwQMRbiKQbTIA=8GCd8be6{5ui z6NL*_=OKn*kRP?*=9YX$Sup`t$pJ+`7QnpLM=5pmiJmVt~yL?nvwDmcEu3vvBukFvU8s5YdkHtV9b+($Q> z1?Ecsr!LCoH0~BXEfY;UKRNjy_%Gev0Tv9tSJj`&h0^8_2(#PKrbtXsFCeda7jMjq z2$yMjj8r0^NfBG&a-F z<~KP*eAry7CxNS14}G7puQ(o6dzjglWFS;HaO5?}{Q_;ZW=L4u2dYjGqZ{HZ7+uF? zw!}r~zLMK_(*$yq z6iC1tQY4T42_;KW8l2x9dGoB5tq5)CR~PkiAZ5(0vj^L7t<%OQ>>~ z21vfe>fM&(AsvvU(sP;?$Y_ikf_U*AX9T(UF~7gCxpDZ>>MGJxsmSBB&QZLJzEX{~ zPGiP7or6}!6KjT1xoh$IZ!()cz$bTa4c#N z7rEv(2W(Ok3o+|6m~$pT85;KX7M1#NIq-6ijISXQ;>VFN2T`28Dno&;WVt_ zG|S;GE&(kp)q!%)Vvx0rbJrTu2WD>Dl1e|7_LU~8fE0AARV1aF^cn6@oi38=AT^)H z5Ix-r2D>FfSR?sXcZ#TZDYuLdQjpvheXa+Jj%DKR;VJ?!>CsXMsS%*-+DFaizFlAMaSrS4(|qIY=o2T4o@LCgw2WCz#s zywj47PXaX=!qhVLXv`GwzsG`ZwTTmg6*Co95>ua%gdTya<;;6U^2F&H0C>q{n3W^| z6~dCWBfxrg4Ib9Op$>gg#+7uf;kr{$hCmBe5fiVY@Ndr7mz-~D565N_h*vNu0mWjl z_|~)AoJ?SClOW^cZpKK(` zb9D1`_il6_VsN%;8ItbM*o4B|;c`%?uy_QxXy&$P;gosf^kMU+kCS}L_hY(sBAC1D zTbTFbTtEpN(TG?`6w!DXp+x!*Az$N~`jbpt;I5_Us--~%BsG&A?L-k1!$xKbG#LWY z7UOsVgD7bAfz6t?DWZAY;^FIaOhCOZ&@(0^^WKohWSU6KMh(sqJ+pc_N|YQYh%_+f zL-a91fbOaHIOSmr#@$`M@3FGsXN~ ztuLTN73i;BevDqAjm+BQOISa$+J&7jfCT;n=Q2#W5<46V-V8C4`HSHDI>+|jC2=Te zOOy=+XL2iJl~;>@No#9euUvurKl{q&QY(0pmvzW)30e-DGO-Y>bC-TlfQnq5Kg%tjFfb0bF5 z#)kf}B}4+Gt9|cfjEJAPXd{PyEcVx6`mQ#2j&Zj9l_q%UZt~|}uD5eS&c#g*zlOOq z3c-8&R_D8?E0=flooN0b%UI5IS7#HG z=Jwl_#7hz7*El!A3znQCn_6ess|JPDA#MpIXGUx7kc!LVqD^f{a&MTk?-^lFB9!Hb z6xY6CG;ic3K}&TE2(F>JPg*a;5Gb0_CFb*~cmVyM z{eB<1bzEih2`(g`RT`a|qM*Rj5>7_uc;}3ViSE=pD~Mn6@E1?2e!Z|S9K9&I=9U?X zNd9*A^FcWM*S(yn`daCN$bv#uKj56G)NrFF@^HQfIwk@DAjk`~7(?UfUol z{Kkvc@<_^ccOBH4#h(aE$%fKV+j7eLR-~D!>`8;LYj$j&Y3sXMlBYEi-d!v5STX6? zZ;NUNXB6rk&RNK*n5_eN8n1Rc7LLw}AZxa4pV>sCxwc%bIw1D$wG4h@+ye9%fsxE% zrwCUyL;plQE|NGGY6CU8MlO1RFTgmxiQQ^mAefrnPOgUh#kLV#A8c+9X_APcjK%+y zWo33rIK~k;h(yCm!LKgDH%>7|g?&!8bFI907akNl%)>7^n6W!f7rpXe#zDc~_PQP5 zuW|0VM6a4&W>eLt<(dqhnqn~CU9BU$| zV63hJa;dL|K%!&5Ot09QbI&}c0*Kii#O;%>ScW_njw${747I;F3V$QqHsU!W~1I^}=wMv&5ebLoJn1ik% zCn|pq#r4C3QYfeq!L#8BAVU~bJ)$Byba%1!8xmHK)8+(P95RTYy)&7XuzD|$xjM*i z*LbGQD`nZ^K3D({sX1VqMHTKZq&^V+B-4co3c3zwJt*Uyx|hK?^JT(316W2+QCp>5 z)@My|Hp*&Rf+jklEA5z|ZK3Y+9emyRqvZG1DD(2jjCvdZ?81=Mx{)#-n7!sB_YmWC zZ0f7iQFo(mh*XWReh0OoMK@eXq}J^i{&X_syH>i8v)UB>Z;(wG3IiykSm4S`$4nOw zCT^$*WW^+rE&W?&iez*VxNgzRERjp|ueN#tikq<`If@YU&lpcVL#jA_GUhimY(%)} zq7f_S&DJCtI{jKZpC*(N{lf$+55wtHf^R8iU%|R(s=p`ek_<~=jlwKE@_f5x5ReH} zp0gyY0?t!$5V7clx+Af*@I_=)+4aCcz%zw3ZMPM-mgR!b>IJMPl69W+L*ty|4u^Sn|{dOD7F#qyV&-de}|CM*NP_C2SV52Tx z@C`lY3c}jAbnCFvV>f|zBHhEz(MCVZNP3j+u&)m`QYUeO;U$od0S#utBU+|Ik+BEm zlAJ@}*urTuw#qPQSRk#D(COd9Tvt^okJ4D{S0apHVn(1sYqhM)R30`AaICv@`dyuJ zLv=Dbol&}raLpZ?1EIUpnM>C38iK=A^es9I^OEu|Yjj|(CD?OH!mk*9GA)D~onI66 zf`8bl#g5`8_}UYR2lIbGnC!>@BvJ~by5eu`s5V;Fij*zx+TQVeM=OZN#u5)B@bMyY z^BdDC>@U=rjvIojDglcng5J;Tp_+)S2~mDm%nU5QA^X2^Qx}*kJ2q@9Bjp3`QMEgI z`aI*u`2tb(999WoV28o=(f2sSz}kgHP^5K+InW@*G#C!zzegfabVFW7bdI0o0k=_) zN42*@bMWway@|U^m=dbM1ep@Pkv}U+W8>74MUaN1{u#;5_fY&B<*^@~f)nOdfKMJa zSX*(7%Ov2*RQYyZ5_#b2UbPuVB4X>RtCQ+Oy^dP1?UhenvvlLb}STSzavr9l_Ep&Bvib* zZZ(Qb`S8#%;4xH|j?g6k>>pcd22xlgXDbHO+vhBuzmR*pe@zq#Zhy&_M4+auvbQ2i z+<){nFa4eLpxIS7JOx0{S7ZBiQvroLq04jiV|Q8ysq>t}vP-2^L*_GC?Y@(pu&j=t z%lPp)h2ICp=o&NWP{m^mQ`^|y6PWLH}Pw~ zsQt4-(=h;LxKbc5p*ysr(FA5Jm4LLqZnvN#orZ{E5?M_YfWMK5K z6*?F&wzyn;24J~o_FTtf^0?QC*w6%XfPl0qVQ-sx@xajAIXiy2xn^>8yNDxo%NGv{ zM^5cI=9so~av#_g-ro|ZSYZ_qL$~_2c-AT45oTN50F<=Hr{rAeB)#j*6ztSAC^3S^ zlG;j%-JGs?JI;AMvXqTmK7+J1?v>0`$V*x1K|XL&{j1L^?k?FPbLy!|*HPF!i*T<5 z%WOl_SLfoVDd8mIE#~FwkryhG&%Fd{(2cXSbIA1`{_$1!2h@@x4-e*gc#x0N!Ln=} z)+YOHjOYGrMNz8BCB5%+jN9n9=tL(e3;4p=8u-UeV)1m|1BpDd+{0VXE0>b+=%&Ek zBQvupa7Qe8L_gGk+KL!nH-Ofjx{m=H|F<8V1uf`oa4-D&YBAiFJSH!;=C1+4#+d{5pAaMa0B-958YJ zXIG!kv2*RWt!tj$(pkg{px5_a`oSw(9+uMwm*c-9mc_4gbs(m)efd~RAXhpq8sNOM zZ?50f0d5L(+D-<|49t|KNZtxJtdKMRp(`S$ilFazOUZa4PE-2!sWEa^kNUoM*_|V@y817J)Ta4mMQmX( zQ`f@t3oi04)L=3ch2}jK8ulWccVu?_YF#z^ptHE9qA(g$4|;oO7QM}uEM#(N=w%!)6|h)9G;@&Ze`K`ZZT`^w&gwUuwV)}{%p5#viV_j!PKjM z9r89mVd5P#>)u5pstCt5>+#F6$5@vw<_&eNo-cZ~1UXBXO7Xp&Sk~X3*W{fgHKL`e zdz)qb4WIbnIs3zPFT((9{(#cG)1P1P1o^;V^Y=|zjHJ+~>+Da?Y)9Ux$I_n2(-?OE z=9k~a*5K7$j*5v8m+nH=mAg(I)%&R>QM>fh$FvhIsRO`b(XYhX5`I82GW^!<>iQBJ zA$q~A-Px7#Q7{&&{Xk!A|ccak_`0R9*(3BoL8zi#_D2$2%Kfz8Eyqhkm@?pxl^Ow5bl5=1K-`t_Qx4 zJN;OGF94N10NYplfU6BGG{h76K4C!w)4#Gsj9%6J0tk_qbR=CW1NB8}9E*GW0Gc<@ zI?y1Q6TFep#&qL>0X?6Jh%qd$hKS)%&$JN-DIhD&u(|D~D6;%|>BLMMc-Zg4PWJo(u088iSyNzPIT2a5DWj!JcCyZf(&~d$tPh>-7r_Rxb z!QUEeA8B8!61-_M=5j2t%yvBW>c?SgAPD2_N#HC2&fXY;pcy&~5?f<75!mtZuQx#e ztBTzX)G2J?4w`(wB}trzsS81Xzp4*qV^_5|>o7k%DGO;l=9djEt_yP=mOo4zy+RAo zH{h{)4=?zYAH$GjdkhVgHXvZm6Qh-oV<+2r8LdEW8TV)uho| zVeh`e&30Nkm|>$-mqK0gJgwh2V1K*6o+jnLgW~I~RgVC#S!~w^3~R$L9dW4mrj3cE z^&-qVzf}SHv9-IS(=9b0lL5UFQdt>Lm^8Nfev{_~KsBS_1~Z(H7j#|t_3vF6d-m96 z(ihIBOkW)|(VYj6!(m$A{xUWib##u$WirbT)a>Na@Hh;d!(E^hFR-aDY^}^lj5}^x zrLRd7qrp6Zl{3x>qA+vZhUOXFiEyf3kKlEtdsf5@)~@dd_4AJAwZ^Xt*O+j`Z~@FON^` z_BZ%=u>G*U+UeQcjM+t7#upWaGQ=2nivEf4JYc15!Ba?ybILKt(H)bKx{8EX~e z^FHB`$}0~T8sold9{)dtmgXL2tjMNAh{7%P-LCLOdqpHOxOn)GJWk3O|95CSZbK`E zC;da^+QXd$Jn3qfIBh@RtfWnartDWV^#GkHD#1*aSJ#+IMAg(9)$;4}#e!UOtqYkR zXz=k&LD8%gOk8l`cO&2-#l(gkrU9ErsR@=l8QV+48FxGTF7_mZKcQi1v&)#>446H; zgy%G0IQ@CHS$WD2Cs=%-LmnYC*FgfJB7po*%GyLPj(EkYOvT$}Phd;e%#rIdE$5wY zMI?tX?i@i4)=b#aZgE9Q^Mo0#keBnhY+V+q6Pz@G(r|^qkF4H+IKwk?Xe}~b9m@t; zErjV*W{1GIk`;Lb0L+PX>$8)y?0*U$5qa`v@l4PcF~YjKYxw9GN~etz-NLpI>M!gr z?&}6jUWJ07oLsuRYqfRo!p#@-yl!g(NVr5p7rq6$>!<2h8Pim{$VBs0TR5>bhD(=> zvWY7ORx&klc=NGCZA_LSn>Xf~l`eR&ki->Atw*gRAO>SV6+~V(g2#7>PR50=m}9rE z`=^5dWVKta-6w|1 zq*%+qOAR(csVmG&$FifxW`na#W-Y?-TDayC;MnVdN{YcYl6hvQ*7un;6Eg5OshklI z@j{`}R3tD24Pk0L(x*eUtI~{G+bM1@Y~c#vwM!`#`6l<>?Ca2 zG}og7VI=tH+yt3EGtfXHhW8xCb)(6bi*%e@6#0DxD^O4ZuW{HcH~}%ck}HuZ8$>%le*0hQ^FIl;URbI^q00i7gIX6s1SCg za$2y++j_^)rH+8%5Iq`xeB+WG#OEH^r74r6wLR4T4X>o5Ey(mtfS=W%6~|daQ}KC@ z(tr@5pEMALq^ppu(Ul*r56sPtMrRnBj2+7Ft^HNpXorh~SHk>J&%y?ztu zqfwoM1)w7nOV&5?Ls4EX4ii^+@wJYs`?d2StSrPA4)4`K9H-`%&Hi)AiVf%*DPxVe zh|Adh{RhOxOB^wkP~MghBmCH-wCV7dbU(Bu+!-5cbR_CP8)@7nj_b-*75()H{i})L zOqu8BlAE%bD%xWSz`(@%QAX@187Q?r z1VYpskz#30f!twR>%NeOo+MXG5N_OJMRP}#Emda%jtsN{N}MNaq>~`kCFe8Uc6omp z%Cn%GCfpkJjE(qB6$u^G6+#PNTZ@ccg}0_x@RH?iN&ZG-^y~MfgqhHn2-OX~sE(^8N&r{L#0#VVL&-us^`}F|Bm$!C+XP*yT%uucr&tC> z*0&i6#*ZwCTjJ_ubAEg@|4E8;vYBjiFNT(b_{HC2_-W;w6=gClV|7vp0Esy>|nk7-*aKkeTu<8C~?*{;KME>PBFEbwuZoCbb$yfZ&#a3RqiDXuxzl0TqP z^o$3&E)KX37l|hrWBqsmre(=5U~I|Ml~RxB@{C5r?t_v+VfNR_8X#kI(h>=kv1xpk z1+`8L$fh}4tKMypc&Pfg2H%n@$LZMB%1z@c)Pn{vniB z4SuNS*j%qTgui!_L+20F0||t4*$jlT8wC8*L(s$^uXVdL-A&)} z1Wj{!hx62eWbNC^LR*8U3R$8gwu4zMBMLJ58$L9Tq@}4djH^mwCtnM+;w#ZV(MH5c+16p$kp|27c{kmCR!KERTXETHVJT!?Q$xEriM#KJnl znY}llmK^;!RBigvBn^)?vp5DN!dE?vN>*eN?A`xra^Fcc%p7sE8L+j4=*N=U-xBd7 zId9Ej8?#n#f2Zc2Mk53qqG7a!QHmd`VOnEIQ6s-1eNboNNjjac&ZiqdmWZV9y$%1O6PD3xNRM+%k;x44&S-P2l=ea~@7cmrOt9{Jp7G z>|h*~nEApf>&EV!NPBxj)%&JtB(CJ~>xj$us;L!$xz?uj?Ab@S^gZ)26M!?R2Y1h7 zGYj4Xajb$YqxhDq_n=+Eq4W2-oRs5zzCT|2VUYUxjI^UCGq;=XHj~6OcKa(BF^9@K zBJ1GI@5BBhw}c0;gn!~oaDIvjPEkUNN%|si210%>dK)lE}eujz7LU5%Wr?>MJ_c5TEp&=bJiBWcFo)sbha0d+zA;vm68AhuT(fzh@)Ta%Lef z@y!YZtp;*hM6>9uOGF@XBZJ`4LU37fmRQOAW=t#ja_Jf2;>K{h=(g-@@Mu!n)BRmU z6S89{SqlL-8WUjW4Y4scUjl#*8aLkGCba_D?w9qcS)FB}(GH$e*94FHr5QY62RY0; zalwO8P1fb&G-TY3T#vlJfwMp20koaeJuNJiI2qs<7l_RDWJ~pk6rY= z4-TWyo60^>DgKeSeAjJG>V!G@I;6@^bX-{_OiS|Oasa9%E+2=&mt<$i0H zu*zcg(BTo6EIkh>HC-kn;GK~ck5KO|YR1dN%%UiuSD`7-YYRLdjG^sn;7qKzE=))|nMEne1 zDmH(TSA>{}QKjkSgoa?XMV>O8KGtNB!n*)C#8ajI0uO3!^_m}O;V4c-ynSe~dOiC` ze|TQFFn;3AmSduwi>}ll2M=gv3AG}PMf-Kzlm<}mbxo4gB}f7LX{&^RzU(hIC*RHD zI+G=;P-#&*VCXAIV(_|c+RJeX)k5=E2Krl{W^HGT{bA7?7Jr`iHg7$8rRJuIebc7I z73b@sz1(AGpC;_qd6HO6t-~bX(pEwr{QbfwbHdf65A}~)6>o{VsVSlE;awdIQwa9C z)aY+O!nua%@xRv>9YUtu#;Ml5$s$>OpE84+C(JMnq{Q6@RDw$pQ; z{uPo*y63rW8D61RAycxFsvvW7!>jKXTf*QXOw3laQm2@>@ZqPtoa?&|F*>tThaDl0 zEnbD2^nN;;A$B4n)^=oxA=fq~wsD$1ie)l0D zM)b|N{N}kp2MYQG44e@@$t_A^Z}fmxZfeYJoWd7x%~Bc%Q7#}WYuYFj8yUw%LA*n( zFB&f78_n)0_SWxTG3L|ypBW&rlJ>7S`{@*RkeC*s0XgHIY3C&4usLzYvQ!iQ2aJNe zcN_9Nr!aSs@=NTr1c>rN<4c&fQ;07fDrZ5C#pE&aX~6*JVOj1Ot|&+GI@@}%LSp*9M#YnN`PiPmoHi3)QOvSIOTjVB+2`eniWT7pCb_l{(?Su&xlPF*| z9)~X1QK0K2AS7yIQ6-ZOGhLDWp?lt& z;WQ(61-0qbJi!mnad~kz%MbxszS8=4L zul?=%T|&y%qJ*(Dq`>Vnf+C0MhhNQv91IfMpqbfLoF}AcA0HXzJ;eAQjMs5!vum^+PYFK zR^b11oTb)zOds_N$vapxT?)3;QLX>BoxFh!-4Mw8#_LW<3Y#=r#=Y6|P_E;u)N^<- z(DmWIIUS;RW-mjKE+Roll#RV(46wezzY?NUt`B=?J{EqeZ0Dc6AoAe8bBVyU-Tv2g zW+wJHsi?Tb?M6=2?4fRsYFoF)U`a6!ryokW(O^6+C0o>{X_8f=r}=UyuUL(Dc%8jm zmv)(;9WGNVEiQ3g%?|s@J_c->k2SD+~ZTBnU55h{kVtTsiKVzG zq?D(pHnnT3I!g1+YEU`qMzlG-daR)}#yT7<%%QsSgW941n?H~Rk>NMy8263ni8Qdg zj+`Fql|Ebiv~OP%$UlO|8ivzO9QW93eoSw$`TH5ToX?t!npA0Qrw@%tQNJqBZ(&6C zvH9GP&jS68a_7>R#tI%uMMTgGtxtSI>>aW*FAm)&4vCtnaurDGW|FSlqJ-U)N;_rb zA;vD5S8O|DyF$*^b?UmIdQDa})hi5Zdec_)y3N-iltu%K!TMhPG>i(n+xlf$9XZM^ zFGcQ~LC1U1%J^ON&b19zNgC+XnWDP*EgfE&8bx0m_0IO5LiAlrcSYAyR8;s12u|t+ zxI?c|Dv~BZkz)O?q5|14^}bIBl!hH4Daw$hZxWks^7x1#;WVr8#LdRs3Io~Ky3Q*7 zOZ%>Do=#Q8z;IT}^kaf8Z=f>_^=9h2c@3&toGLk4Ty5m{apev4BBtpbOaKkuZ$2;* zHpKsj(=q%1x6?5bJM;hLbUYFBz}~XencaT?RLd{1cm)9nJc>WI%gqlo7TfFMZ|tbc zN2|5pT`3}2uajD{!BeiAV=h75L}#Ukp7GKao%$nt$0M`CH*J^a6>9-tgj^d9#STZc z+C8#Sdfb%-{Lj|!#IGyRMzfa}&Td;tGX(BU^v);3-o)GP*UjUT`26~=%j(PMct!r^ zp{C{M>3L`8`$h}sC*^1KhdJip3G~X_a{hCh`GNbTq=$DD?u74q=ZEy?{qAjY;vu~! zr186{QgF0}c=e2q#prn6f#3SMhK_OX6UV#^?to!bQhrih zR2hM-Kk~#z4_k+%gkJZ2$37O>8iyLbZJk8nn^jxC8t=86wc0Z6HRJ4J3kF=8Apq0Cjam17tmG!lV^s z;|XKD-XTjJ7d+(ZH8gP6{Y-_L{vGCC(sjvwF3#fU2I<> z?QU>V@1JI~$L%RIm^PoGzRiYh)yTrjm{xB7c9tb8h9E=^rhs#ky3}mOKIdr~_aT=t z!&-dO${V38h8n^yY{(2;E}GOUB2T@|9jJXB!cAZ6PeuA)nQ*OUvc=8#LrSN+T8x-7 z8{tOVk(xo$x6+tcUzl6E5QPyQQ)%|1gh)AFL$O%f@IJhWQ_KyaJ04~01k?S0+>w~{ z0DD0b;UMVwI!SJ(Ye%ryJ?Pw5`EXyj@#=cKT{oeTnI$3f{4%fiG8!U*4s(tVaYG z66ZgKxACY=juk=x4DB#uDEK&Wq3L0up*2+bkh4wBY?<|i`01uNIynLatk|PT2AfPl zV*NHWCuAuYVg#%k;?jw{_ZhMcCQp*-N;Gv?y!9V=Q&-2;rzS5EJw;@-Nw%WG560W` z{)#m8RpKewguJUY-c5z6CV8-u&s7F}dD-S$)lxwT^{|U`Cu7TA(%qnjaIW zlkXQp1%kyhD?SxNzh(n5eh0IBiMd(1B%T~dm= zM$TmMET0lUW|Xdv_yfUB_fjC|l|z870zXWwWbZNIe?Yp4OBR}E$n?wsNsO~IB64v( ziZUDK?_?*Ua7!7SfKH((mqE>l6w+Zr8sTW=7xspeV1g82JRnYNo}$L1PWz&xkjTcA za5=15J~Unv*iCj2{Q^DjS#}Roo>TmR;OiqF8R6upKsw?7A$k_aWTpDq7^ad(v&6lv z0z$BQE+GrehkNlZ0saxVwpno$^To~D9}6wx%KGV% zpvV;sG5K-akl+&OjlOksq^IvtWc=4!?DhAng=_gO zdL0tvTKR8wSE`7x2Wes@DTh?3oT_|Mls^`!7fAIg_`6VyV+6t$MhfPZ`6xWfqt!Jf z%YS$!FTsbbjL^iL4Zt}K(YvwH{gVredxBKT-SMrlQ|iqr{lTfZ;B>~8|B;b)x-AN9B(MSbW?^Cv0(2|fK z=m8d!4lGdhN-_iyJ^SNog<`Wt#D-rgU4hyiA{x_%33JZq5jobiEML*Gy79WypPAUW zxER}@IACY@M;^K!dk2xI_p(n?16S=HtG7chMpysS&pn#_6xT}&i&zJu91%QmMt{*& z69e>gXgAfJ6`jr2`Ah^8qxA9}U-At`u#Hcna9qO2PjFy#Hxs`XmMByHa`G{AyDobi zNN^(}_o*$_&If4wTXlhe_g^E`a4v)j(vS4v92h$pRAip&|KgSvO?BUwp+Fi%yZ2dE zY0jrdjOMo}Q08_lzB|GDJd*BMR7*!InqIoCmAiQ=+)qL>T@5_>37}=TB5}}EL0!{n zinLfk{U^X!>GIk5z9;_g8%Fn6?X;I>bbPh`39DP0|A)9}NQWI`tYT>ehfHy+2|jfn zq^4<4wCFOj4&3%&3QKmCwTvJ|Zg^GQkjCeKKFCR0W>`^Kx~#(y&V zavhq+>Z;mz9h|r_^h_-IpsBnqvsU81rx@zTqB)^4vb&{~&;NAT02Yzc3Gb*}^SL6)t)2H0sp~JgcfWSNpRh5_!V74(9s0@}IwgH^7 z2oEv3w3|Bei)bI}YMI8G^RVD4bnzqsWYV7!__-Xwp1{EACd9(JX7g+l(##WeYeB!1 z?hJ0J%M70#q^pHJ1^7Wo=S8ed8|#;F;BrI2MFCE!i^=}psL?6c+kr%IjnI#aG!q={ zfKXXHsU}Fni~gCi1Qg>aUN0pXM%b%sEE<_41+%i^@DClUYKaG`9wp+IA2798&925S zOcod(DT)YK1oQ{CsaV;=sn6OTUBEeI1QeZ)tJl}>co%&%1(*Fz%VI08 z@&@aqa#&R8)H7*9H3%{RKl9l5c$CYTef*IO#CQf!6q)_lEqv;h zd=K58jRT}=PaRu|P=sY1dMxzq`QLPg z=07@vO>rszOJ}(9a>s&W&r35H-c7!mG)KGsC4LFYo3`RwzE}EmsKk`eR`6Ak;nn6- zY>btmA$9<>S<%}C&slTVBp_hZIH)F}UmDRfTu+@b82uYGq0wYF6cVIj&4yzniX2t0 zp3yIgetwoN~ zsvAee+44)v!$;DGb}$sic?CUp6)^gn+@v^|_Sr45mY*Tkf8D<{Z;>&4Ke^wf!GARak{MLDzy6Oo&v zrGSPXa$}gbrI^f!q6L;fHw_)y&bbPDy0!|1)-eb{mZV6N_%!p&OfkYevoULergx~o z6aFup$+xYxTuquMVP0)0c7LztKA=c(X8+SN*}&6I_ZrB3kS8hhdX8fc2MzpO-L;_k)^Pvg+KIbmkyv~qeg0(l`kV#!b zieuRbyn--3yCR_CjiCpc`c?zFPW_aOYulKt4lp8yaFO7$V?f{#@+h*x1>|x=p zoLMcVq{*ZWl#qEH@B}r|YT9>c!qWygatqlNlCN-S_g<;wJ{&N^$AN)qO;~pf*{&@I zwb2O2euZ#kTAC3CLb&-=W|&@bDch85%!>-!)BBS}h;YKGNl#-&4uJDCq@rS;zo-2V zND@ItM@Dnk>QX5r; zTlwh{n43P^bK$7!RC>l^;YiAmu(Oj&x)y6|Ia%fm64cQl4oWuSGQpF$nfASZy4yph z5vSq$NnKQZ?HtZkPsNCY0Eb6p(X26HQ!0}P+6E|2-J#8<^8^#Y*;a$jec#FOE;ZVq`gEqduZECXc%XIy^bnMj z?@YD%^!>t~GLPPFiul?-Tc1_X+c{zGkz>ftq|mJ` z@4vtVoc>N-J&gdbYn;1ijB;&GSUAGoWj`S>(LrC4HY%q=)q~k;(;(b=>9X~wRUydq z%^4y$=GLz?Nqzi18Fy@FA|4763!Swqt%eKqaP@{+=a3Fs1kb2UZz@RPCv=a&v65-b z!Z0B{<@-a7_O3C=!0sKH2sW}{&31XOc=>_Y-e2|dbCi9{*G4RxvugR2FSo=2`IMlf zFmJ(zo~^@&m-}htLN#ttAbrDOkbjv`~PYk6Ea#ZaDW4pyJAMFn&T7T&}#f0Vj7Lfs|IP zYRyf?E25}%;Z^CdNr;|DIN>Z8J6C`SD@+z%JIUa8=AgVurYc7En*EVDE~uV1QkI{J z0_jlkH)$(zoofWCu+xE)hq=9d2`-K;W^nv0b)+h|!>eLh6cU21KV-jKY5gAE zAFD|}fF~e5FZT5q@l^>N(1K^!J^P)46qhO2b_+cmfoac5l^(aSk5+2&(@#A*OH58Z zxA||{^4NP3N{BzDO(-eKDNJ`kfUvBh(&8c-8EbDvyAkynku8vv_n;%$w}2^)N*cmQ zSyBPf)_tg#0F84_pKYwUHR78&8Lz{UqMO0N64ExXzgSnFx6R`!&B6xa5_B9s24bPo zcDAWwfWEO=)=(NXbJks!?laoBHWAN^&_d0v<=vJs|YobbEPjD z@oahMKX!<6JHbfEt{AvfeZK|)KsmM|^t=Z_H2N9RbgwT9LYiL# zz19hVlLp--baR?Z&XdRFN?Jc3EfKrYBfbE=Xn^tw^EJ#=A_5;ss6`=Z=V0Y0FuYM| zFU|`g3415EwB`CyqwGc>Z&y@}>6(&*HJ9qFN2wB>;UPUNDcn4+Td`dkiyqhqJ9&c0 zG$wfdeLcXkVU=@OvdQAm)pq*^gKZ8IWbuvs2Z!w2yLVye*o#Ww)HjjkbVlshB?a7v zCvtoMfEvG%KC;>yVTY+pkS9aRA;HFV{X68EWWU@FGL&NAqcpk+WSke)$JFaxH-bl8WRw_&Mo&LV4Qw*9{uyI0^b0(N@LNiQOg|J z?+frDh!~qT#M4du{3UObSeGzbS?#27zWqQFt!55VB22pg>@>4_RPc*%g^*Gza<_=S zN6q+7<2!`ukTbAj?5ceni~njv(iDfp@n8ZZQSeK`O%q$DB9CJODQr|kU%kzT;J{~1 zL7?y%%y{=K?C8$M^rjRs-R$Co0q~nn1zpO*nN}J*CslLpV4zn-9&RvFyil{tDI5Hb zpKY9w=hr*ojR3&;+``>dk!o~OiO`ms-|%o+Fy=S-f`+ue1TX0O^4gIK9A;S_b(8pt zH}Kkm;_HX`o6E{0Vf;nPXses`TNo6QskSTp1A{ep0iuyV##p`iU>4t5SzI~ zZJSrXT}UX)h9Lt;7N-76qZmnQ;_XB`s9uiqiRs9CEjJPmTe1wLzGP93W&i}g=-=v= ze&vN1#7aWxVLHwvG)EbeSa18*T~W;@3~6Ad7P{9}klsz*cBnRtD#lBqqp(x*dcxM- zt-_7lAt3H$uf$*onoqNR|9h$JW!cd_Ugtp9pKVH0kpl<%)n&QDg`iT!w}r1zVk&Ue zzKiy3?1rPx#|eqTR*J+|eH)pBYZJ0ew>GdyzwY&>x=}z0n`f%cT>5US-+N_%{EFswAh2nsZkY_>eh*C0c!<2<>Ri+y>YI^^Sd_Y*Pt%Spjvp~ z`>#r*%wEPkK^9E6J4pjkt^J)K?r*~TtX_d|jeau=ZfHnY9ycPBBu8C9PXt9B$U_pr zOaw=#)RSFTb=VA46FpY}r1(oxmq6)uFyD%8=Cxk&Wpl#PqDrS+z*!b+`A)jj8+ z0!vs|nk#=7j_ts@k+;1Yzx4W)PeJ_#3CPNp6;Y+_r{G{4phGovyX!@RzR3fH@aSzP zp{baSEH!b`P(!cI-1RsJ=*%d!A+^J%t|*-HP(250q)_>OHb>EFSfpUl8R%r90&VFYoGw z2*rQAiwx4k-y{_A+!K*cH^je>Y~h*_>;UWUG=1J@pG8|MTL0ubXt;mGI@HGISpX|4 z8D>7Adi$AIevC4}X?kPde%JG&yZ?)nG~=!16H=Jk?|2$U7qNimpEA|1 zbc0gcG(#$0acdV$1p~_ccOoX0U(1kWXC;cvG{n+WNq{+nmbZ5Vk`vUq-XxP2qirqP z#W}eVZuPHD6#@o}NaN9TNpz=y2pldV>gM{9zIA(J{<-trD~=D>US`t12V|>U@HaG@ zjg|<<47^q-td+CV>+0fDe|yA2G}gMceq(-650J3SEj1PgtTsR}KI(L7Sq}3@=SH~y z?&4Jbt7!QxZ?63TB=;{cvvIAss0%U1(pPaM4>M`JgZI6A5G2mKoZCA-1Wke8T8RYOT zHsHF#Y&Zt}6r#s*bNc-o(To_P-r*wj)(|80pICZH)8lAjBs?P!_HaZS1=~`NP##4B zz+&~(qRGM{IC3Fa>f~IbA|DEiz5!`OowkFF67=mXYBF&g+w$abM%*L)IEvEam_y95 zA&Qy9NxK-^y&aZ?bY@TP3{}G3si(5Sx~^sx#v&+XzTpQ(L`Xnf-Ai2jBc}6nB5}eg z;Lq01#tjd!cpXg4%y^N_F~Xub5xmKMy@QwWa9H(DhE?Ir1ag6pfb{gNz?eB9I);N`wZ| zoa5P~KhX;TX<66qoW|Vl;ou=J3zNBN-;_V6nikM?X(lM1aK<-%SqQz~CTPjdb#FGP zJ&NtYf%ph^%e7ILvoiRabT|C_7L0du(I{Q1>XdY^Pcy;#mrGpLe=!|#)>jJ_9Rp1{4cF~&_0c1)=+#6ei$YjJ%u&QwJ1mSmdVd15t&mHvIk z&F(vl=k)?w{0qLrTd6Kg({P&_7}NfIYpFoL!wtFTiosJD<&Xdez^p-Hs}dbh+M@v{ zJAOm3BxLt)?TA?NI=6vSYQxEJX5PBjH}Of=-g4$tMnH&TRq)+(i^6}>yYpkZC_2sf zO}ovS%=by4ISe2DW~IU}rwRd#R>DGD!4*rv_4&*RYtYu$(5`uLk=DM5urW_Vsh;Gb zPl31v;a*ybpu+zGHPrQID-1alg@mnLxu%kyp{awAW~_HU4)Bjq19%@WH_@peAMV6c zB$~=0F@4mZbR%T2t(qba#NIO*IzP;#(zZ_Nm|pt4Ip8>EeYsaa?oHWJnm~iR=8+wbcNo zRrNuu^FD_lF{TYA$H+6Zh&nHH_{J@lZ-~be7BJ<#nhsaIJ^Yj>P97 zZ_XAXi=Vq+@vo_z{y$f!tZLt{iavEn*dIc(N2x&k$K~tLI+oh5~kPExkC^lXe8<~h+n3`;KguNT?F0xwkmL(wm zdHqp*YvB7a*dFBBVdAH5k+)Hsd-vX>DooScPI<#GzoR)yn;+?P^q@@y6Iye3~!OY zFy-085E^UE?k|gp%Vs%L#r|38QfU{1<^R{mLnkZ!>C&s8r?g+DIA^GqwhFB@Iye1- zJ#GDI_x#RYa91Ww=P7@Z(JNX9?q-Wim`ahY3wSPP4&H77BZX(bBWLBP zeT&o#(S%K`2^DxUlM=Tn(F}k%^5`y?T#kn2USLGc+fF>?Y_xa);TF|&VsOe<|=H`9wuDbRXteDo8c zoSO<;2Z!`vbD%*Td>I-@D3gEnbkdNGQ{bxC;A&V29sqp(vUH{UUGi#nbs`Bb=WQlqWdUp|b<=l7>*0dcFYQkm~=G}mZfCNFw2?kDrGhkw6GljSz+ zhq2`E6r! zvHmsLk7)@4qm5c+nuC``pSPQ|8E1P|Z9&mNkQ}fG4>{9gOi5R~)R?^BX5fOMU&lZ)#{9li9aC8UQNq#2^#O#y zeMn3_G@4~G9iyVPwPf67oIB#4+qnVT{2;@TMU%m$&}u+%v0z69*6*`tnaU;? z$!1I0I{L(?Ixf%rU9L>9$)xsj>Ig0~?Y5D5Ib}m^dwMc~RLT^v|B1cz%L(7t}z*S<9tC8oD<`fIY9Rgv!hyqrA$k4_?e%fzY7cUD< zxTx$hBZoHY6I43G@^a8Mrme@2G8oKYd8^VF#CFjl8C#4uzHio(B>k7NoAY8<+j*Cooa$ zOzK#P9y};nFqCb@xV@>EG-(6u6^E|WRIA1f=dJXEDCa(7+PEdwL!#Q^eVX`W6=q-Qu+@LBx zL`?6J&_z;i>WXF$zU0Mg*=4TPV32}O$W19z(iO_cAZSxAWgzub=q$i>?rpo&Y{oK{ z=^Kxr*Ri8pebUOF^V?B&vT?II(;4a|l~T>iwF^4_lPGq*`nVtI#S@$5xIMQ>5zchz z=I}|*=!S)e;^6<_DNk889QG3aZ*QfC^(Q3R$yR5gXjSYt5=yDghs@wuP8iz~(fgHU zKd^yM+$bS)SY1rjzi(0E?=50y{*yS~$tTL1`oCC_))AXF8NN*)eTG zp&^HK1Bn~@NTkGDBt2_hG3z&%h;XIK+mf`;d_MnYC+H?d(GUd+eqoOZ)MyZ+Y#k&; zCd?)ad((X5PN*r_k|jU=LcZ;~z|{EdNElHPyufs>5H z#6`i-F;d2Y^z)J@BHRu&l&mDgT0w^Xx*%JICVgMFDDB36;U+H)%th_D@POXN6{6?= zTaGO4d3fNeAY}(KY+Ia`_m>r`AkAf7#--QhxGUh5Mo|im=(UlI#Jw0I8!2L3tMjbr z_qLVf)2?~ig0w#{Mfw_Ka#BTmv{v&nzC^=IlA?j+JWd*QD4%cngdFi1H}@mTb=9P* zO2lviDfHu5Jm=2=+;WKeaZ+v0_#hiJjD@Dlj&-CK{>de1vuUX!4cBaM;#BMQ6SY<= zZ}eu8wbx0C%^rE;-g%UxbC&Z|Pz!iogA&Zqt-4l00cIq|p<$O?;y=vxiK6(2E2HQ; zr{5c*QaL7aSkYVUsW3s4l{z}c0%ENo(e5}Pti`F|nQ#&CqZMyHUF^$it_VAqt2?*2 zwueh6JqiK1=F-eChCIH;She08H$2rG2_7|K9t8I>+5TByC`^zXu&=d@FH66RXHcV? z5Zh*8UiX=i<)F3P9x{iyDLAfKxcYU!{O(ip)_)mesg}6 zM`u1YPGXXl6KceYAM=g|lD51bH`pWDS-pTLs)g&v*pUoY62n5R8LLLB}>t1c1iDuXh$`Y9=w0vO`tYT8{x|L70FbN;wV%#B$;TyTEx0fuLYQ zdK`?mDdo{S87Tp$0qX8c<_~Pvfo3sUi2A}`bhC0a-*C|-O#MvdY68K(4fBg;$Byi=ILyfH@vbS|HbzgWmINd-PC$*m4pe zGyY}yO`?VSZ7LTLOr_>*e8h+$Czhy3r;5giQRil8Foowj2vw+^?liD!rsKqOcyJ_y zayCf{JjhhbyM%D5KNgCJ@b>s}JRjP1xShf_gRQEp5iC)7ALqe* zOJORatJ0@;D9RgfgkW%g7|VS@3GG@sp^m??PYX(@?l`;?nVdX<6~jiiqI!|T^7JyN z_U@EU{y+=9;V#i;!>$Cw7_d$q3SyHFm@K}eOmPW6!Pb$lP6ycHTTiSQl0OD)73ofF;Ogp0=uV*fnvgfZp|>6KL#3Va6V3A*dy zW6Bc8$xsp1TuSv>S^gaqBa;wN2}9v+CqH?}GR6B8ZO&ZZ1=L>D8ul}3tX)Dl{>v5Rw(7mk4P`Cl|M zblCFOgz^XJWM`7}#7U*D5bEF3(Z5DeV(xn1*(Em4Ui!p4E9#^UVX^GvielA1wQMUq z%pBLQ&W@F1L`8H!Tld*g4&Bb~o?83p1PdOvn4RHHWw! z>sLjoj!BlN*ikW{>m8vMLw zUPf}99^>kQ-Ci}XhxUEK5jf0ANtmznms9|gCKjIlBSq86bx?CjzC?$sLZr8gtoL$kiYWKJq4Se4Eyi> zvnr8}FiIR_b(P1$DfB`IY*LHV%Ys*PK?!xa+!ghkJ|9_2e%z-~U(+66hXBKrZ>HQH zsvFEe$@^Ndf}5H}?_asfYG^swo4{9C3otZ6nnJSyn}?Dr6uBRUPTdDA_@k5)KB@hV zYY2Rs8Mg(EPzECx#PFzuvF(;O9mcP8@SNR;F5}b`{O>^5=ww)YcV)jx&$SLTN09MV z7E672vJ{1Mw-6ZtO|53>cjI(fB%clC{eve~xL5UrBgi1!BvQ50jpC^RWnZ`~yD0*v0W zkJBFdi%GONf%|MTmF3*L9tDq0uq6y_uRYB~wO7-pm#30*R;QuLWna|BWEW$S;Le5U ziewT})ZZz`IzVySm%&Tydm%aOv#`|xFC@-``kWF_jssNO;HeHIl;fcKwubXS z_+UDS_B>4V;T-omtkf5wE-|u#cMZNa=eVw1nqvF*chq@ORB^PYmT*V=O{=$_aEGct zq+D0A@TPiqO2;IXH%~$MMoaJs)(ZQLVldu|Ei>T*z4u}uzE*sFZSr=JQ1{7}qLpA* zn|<<)9#^}bTxV!=m@EB#GU6D}3)gljApG9roJEOv)p?FcVA9e+Wm1snK6ALhW@&At z&_i8-AV^oiCESd*@KcV#qQ3(o>wr{OQj-|UFq|C3LET#w`n~9^EN7QMDt9A%>}<>t zYcoud#;7AKrlj5F%5%-ch+cf86?WKeMKVZn#d4{ z!}G*ZuKImrEK@7xZ_Gu5*u6gbeLo%M-jrUzWJLUAvfSi^$b|kSl}h_|cDzngE4Caw z&C6n8{?5%z)O7dtUf36g5!83|&ad4y{jkVUpUnXI%+vrGteD$^u?`?^v5u(ot6^MX z__&r-!EZ)1B)C!O_qb>0q_m?4xMf7fdRB@H#s&B<_i;KaFCLFD!eU6nUxz(nCa%?x zn8=w)ODjF`uhSwJ&~F#Dl&gh?7$BiB zdlO{v%tt}gV+OX+$$z}4EHaX~goTNl;%}(ek!AyXD*TyyoC)YYQ0nOK?Yz+|>S02+ z$wZb;%=K*dB~V5&;XX=65OI4|t6Jsr12|8FMjLBrf98d%o$KM1BSFXPt&A z>UP1?ZtJ!i5?!(Fnoo%epp&o~58SOxls*+@O27=LS&M;v^%RW_5qLk*O z!(C30TwOgvI|gnpskYQDECYby09xv|u^TjPLyUDoo^i*}zZgPT@~!@{AVVHNL%vyW zJYK5fa=7Mm7A$`#g#JJ|#f&2UxU&MUSD_8J=%#lm=DhcPRsctD>iU%FscoW1gj zfc}oP4;>Q$kuYpAqA~%sJVcx6cXsbY@7(2->5JiA7YVUL|c=KD|5%%_3 zB%IHyQ!a4HyODx&Oc{iAI5`sdd9sr;2x0UeR0#_s9tpKLB8&TUu4TEPMi#mx%N|{% zpx}<_nz`&wr`pPL-`Ii0=fo3&~3Y)NqB+}l1l<~;C5x9 zt28%9!=l)Y8(O)b({)FxV-}8>59;$ez{JD!C1oU~@(}G&i8|YmQf`c-d6t2ktH%F| zKn}&xaup)t%_#5?8qJCf2zyTluUuGlcZ=SnGBgZa4sW@Nl<3H8>k}(~43eI16n_&_ z>yXB`-Jj{zluhCjpACZ_&OdSRA7;u3f`99wtWUL5pqCvDFk|*Id9zuH9&s6%i;y18&0E~bRg2BIxyLzYaRV&Z?)dJ`u z)U_VR%r(Cu9fm#;8Qrtqz+zA}$7Srjl%^zD3U}p`-XNvl`GEERGH<6NSaKjMt!q1V zs*c#=FfQu~Ym4g4o!rW1;fe^E?yb-msSulf$+k@EY4rt+Qc<%h%@Lgj1*DU;2 z8qKEoO3f-GWRihM@~ogzTfw$@raS}%BC|~!pr>&DOesPzu03!v5aIDN-6hP2p!Wf> zpiQ<(2TemRUuhhOWPN*V#fnw1^?2Vwr5(@uVNhJ1bt#@+uqs-`u-?!Q<}35>G2{8E z+xXM!13zM(kz>G6dV?K}qyRPm6xNq+(`yioWtmW)I)_Fp*&f&|$RL4%ukYiu2DIo=%!g1ceLtMfTOnC}2WNfudy3_4W` zB2SUz@vtKTR+v7sfD#++o&+kS$`HKdFl!=539YdkE~&oQk=fGesPjXq$H@>cbW#v_ znS{82@kii^8 z+;Qd&r&~sK3gn29%@prco4>`0nsO>ls0jkP3n-OFKttD9m@W`uRZHIK(N$?M+A?Pv zbrh;~1}iv$?h^g1F5fB#K+02IQ-X@_q#gR>&Qh4Pab% z6vlZ#AM`ox2y-sRwBpym`S{PkIlybn`p>{w47vm^mvlL;8?s-K9$%xw2zgani?`Q4 zheLKFB}Ys)lqe~13y7R__eP@ALad_>U*x(oN7Q6eQ0H%Kn2dX?ATS{?)A3^!c`{oY zZ})sKpna*Izlx=7;!9}d-9alwRg2^wVDdbPk559L^2C@@E^C8LDL8gdP_sE~V4@V} z0**5F4Xxg&k`@&vLTj?2^BEI^s_rv?h0xXogSyM{6^+JcA9y;rp*@}6(L6gZ3^oOn zp)5NB7<|yn5hrk&EV?03m%>u!t@{-3_q3kSk7K$qT~CUThbY?mwz8~pin(1|k^6!) zkX2BsHG-^WnpL{ZsXibz^Ew!cwdY=X?Tm7V{(7`}W5Iu3Z21&>4FE$qU4M|4 z#Q8R!9Q5e6dh_j~zLk#QolG&+hEAh~O(WK9-tL*~@m+tIviVuGeydMC3MoC6Ge4_A zqIjn7Q7F^Xy_L@2u;L9U-}{+Dq8N*8sML~9h2YH;P*&pNO&4IEQRVE$&b_cd1}kaN zy2yUWK3B7BFogcouRiMM47sg*ao!@W4?+>{NvKbTD3j~ zq+8_pO3-zh(z`~tUPz0*iLExiUDcU)vfpm1@uC8H;yAWsUInVSGu3q?+Q#)eH#EWd zt4`9Hy;#znZ7?h}kld}X%pHx)F#hCA9AaK>T0f1gW6`+s?)?B_iGj4Hb+_C$xMOCAJLowxuO{Lr(k5YkjESb<&mXl<#XJ8cz9Js?K2TR6%8eMSTfymV z`Fs|Ej5E%6zg@D3^+;aoST5vw`S6R;rxC4H_l0-3a(O9x!S1E&^{ULW=H!2KDgzD+ zaCt5xt)@0tjU#<3t3?$|vBZkbA*H5m78;8puC!l4QVBtbxz=DwvCEs}fFFC`De9v; zqtY6iYBrF2#GON-j9Vex$**og0^jr&@LR}l_HD%J%wvMSbMNM%**STl9?89Wf`9!~L zI54)4y}Iwg`8ZJj$?Czm_%jW9dH=Vzz4FHxf>&)?yBLNRDO0EMc@=rer%w~vy%W7Z zJG+nzH@qM~uQSljiHdN_qL~?kfnv7MU+DyXD>ejB*&PR3wsyiYO!`Mn8E0I&4EchZ(c}FxwsxWtX(o8O zqU!>9KU~=z?&zPDuJ-_hvip=WC9TVANCnqQM6U8NGQ;SQNRs4yidP$j?Z1*1=<46{ z<*e}TrE=o3o14G#;lbs-TG?Hl)yr6U2TSw(=&g>_FDD{r;n$vt`|Xf#H%Zj!{+$#r z6*65_4CI*R@C`(oa^>RHcL;rXUNi|)y*Toyy}3Wk`gc_GA(2f*RZ#aw;wDjyFrtD3 zV9QH3EvLkNWqod=WMbCz-&hfeb+Re1!xVm8;YxJ(W13(}(}WsbKT9loQV`6)5yY4N z-q*Cjr`lZh6FURfpM67^V8KEXD*?&N9YdH)QCtjba_wU7C^65R?AxPcB&&l9%!9as?IZo_sHZHL-bL8xK)=;MnC>saCPle;9Cep3 zz*wMmHGqge68Ki@kNj}sDu5U)i>$oGaPjAs8FD@suL5ff`5kTf4nPo-*t)hrSIn~Z z1pNNJNX|iviEgc`^KI5bwAZKa;Llxck6)_si9^u)Z>c%xb0*`lvScpD*$Cn>w#bMH zjX<#0~Aik zNnoM2ymbUko?W%c{<8_k&ynhyE{L5!Q}ZJfhL?aU9dJlP=%ucmz$pVIc`7Y^$q4(s zNOBxXlbx^W3-5uZkKd-ui9WPdL8ZyK&_ox9E@P%OPV{vtUAcEW0SjpGz&0wy1CzDf zJU)(EaVgX|*zdYO^MDf1Er)Mh40$^$SwPK@%b#sY)&&%R@t5_WrV)|bXyn2@YmVd| zbI+*p{9(%%DF$>*o^yjCmQ6^#Di5rW~|1I5w zGEtGr457?x8bENbC23;eEx!-IVOs^Zw3FOmRxghgZd%aO+1Ga$Nall*B7=$f(J&}EpDFs#@EALboRhM zlj|$^(K{gdBdw8H^ocxg%}_-ldq)i-7x9eX-sB%KMajH4?1)g60|>mb2Qy>q5VpcI zL{e4+rU-JCqBBGiQl2FLh(yaq9pbs;8F#*+d${5yiQ7IIlE(V-7~hCgjCT4)gMh$CiyGb`#^mrE7D=@Ekb6bo?R|7L>lp8LbahPdg-@ff zdp5TIWPQuapPnqN-z7E6Q|;V9i~uOiFVz{N5J!hChOpuPx_E`nFla=HgmD=6E`;hk zf&4z_7W@y#9_fZ*2qPVyzbMvOAwQ=Wzr9rc>9PA=txjdfQYHAzEv8mlp?oOwKFiqu z5f|4sqfsYS*M5cJW&T_jv6rwonFx7Dn3iF~%{2yuI12xEa;jN|d^IWS`(S$M`$;4! z5mwO|D0+VkTr%WfbfW7~g`X|nkP0>t3|Qf4gmF&XC=zJ+rsVa5$h)v}6rv)@MVl|P zlga_Ik%37}F_)YTtUl>>ysp!ExXO9>)ZXs#4oJJ-LQmZmy`DyZTr|V^)^aSG@xO3kHI6O~bTj!)()w0eHdm zkH<-kNd(8G*tRw%5%$zejEr;jX_S_kevo%Qdg**^ym#>z^buLBvnrs+U(f`4Og9v3 zyc}P=8s9x9KD?P9ohv1(%5uZtiY%6W&xV4Wv7PK9hfs^mLq+;kI^s{s?`0;lz`4Z$X@8ffVu5cKJ8&KyLPt1 z!T0?b0A!GwPnC5pD~V=X=e0-b!^@=X-z@( zE-Xz>R^}Ccg(Ia-yN}j*8^0ST#s?KNe>3}eS2evv9SbEIMBO!gS;F+wxXgs!orh1m zz`HcV=+;t1069-zvVB<6tSik5{BvokcH?&9L&e@Ot(D-jkS_33Va5hCDeEtBtS{Xo zOj=wvb$KG0EOIX$6^w#p-;)Hf3|ATJcWT9Yh+|F zpBo?yd9^1CMb@t0WuHGP>R3Ky*N^3jOZ1nEe|It=iB#w`cn;l2qv-vV*&6*YUc)$$ zq!?pP>nQ0qrHNf z6}#+2H-MD|c_>cX0PXC_GkncQrDK>(o1v?M{YXx9=PXYK>wzzN&_B(sB6dEQoxEz6 zVh2CeK*;Q_csj8DytaA=i#ioON=)+^W(==dh$O0|SPn}9)i7trCTq|a{SEztmei@0 z#1nrk`4e7ctqow0cx#=EbS4mgnHbB0nN`AvY7SwcEHWxL$-{&^Y@3gk&_&dwWmiy{ z==_~N7Dy}-xq*xfcpZ@Z(4k7pADL};WJESI>-I{ z(YFJB3WyWDhK0`iTUSNh`+D1L>0=h+?S3ajTyItfPE1MDN{3&!?0qX|J`PSO9v|xZ ztortx+1Ua`qk10(rV;Nli0IvEfEm61LXmIbB5>;ktWY_ArYAxYGLd10^>N#1?r;aG zw!82$U62T_teG)ILAO{y>#Jt5LBIWG>RVr9Dcj0NYtv87ik4COQ2K^&-NN<`B1R9}VjzBp;87e6zG4Eu97x0xs@ zYW%mrz3^G?)pQeQFs>4iNH(jUb%3jx`t`=(t3hW(g_oJ>j)-g%a#1y-HDP!|tK&>d z>3Z`umRJ28R{c1fjTgezMAeKtpNOj0qLUK9Z=6@ErXmL2-_+Y`?2jQ9bPi_-)mau; z6HQ&M9`+nFp^Q56eWYs69O{nm_P|EhGu-NK<4b6=49$In8qDdxGh0<4szF{!8)q^W zFGwv(?z)mA=!WJh71d5L^+KjB~i+Up!QoF10sYzmsOYH0xt z&sjodAu)O4Dm%6iiSYS?N;|fjEj7)8Pd%!8|<+S@ZeEr>OK-+j8*)`|8# z#5(7GT1v1!)Vlo3sG2F>AX{@zKL$;FfYV*zFr9esdWM!aJxxg7tBN*YIBS6x^Okjc z4Eof3kMN0_iAeM~9AyUk<*fZEuVI(f>L;Vz#1P#4Ei-P80e|i>P)m= zP(t-WF0fmnH@K&oIx~;QiILZwgMe|i{>-pKzp6l5WH!cCMM8wZB=sGz*EH=ogDil9 zvdY>@BD2<`3x!m%9x;dM7)k?lmi~EXi4TQylt-GdxU<2NAYqR7QagwqzlJbXG0&YGLE`fT zWcaH(61?>1MOi)pU!OSl;c)h&qJC1BQDvm})h0O}{1O0;B2UBe@`@Z0H;L6DEZ}HK zR$SVL+gU3E7N&2nzDt@!WZbeY_EpI4rJ{@I=h=jit0CQ~lF2>al|-6wa0oGP+^Z>;|L070Z)? z>k0t^Dt>1}VrmNM*%I=`k6lOjiSRJ{`7`+|ACvsVzJZ4`lgXsy7ah3N>$|QAJGq(G zQKTkaFMoa%hBWvTI2sym{N{YOQE8{^xCu@yk3Cso$!t6J*+VjREN5=Nb!Nmt?hyxd zR~QCkKIV7P=^y9ZC`~!tarNqFH4hvHMMet2;qK^(Xlj))=^sJh9)!Vk>aeF8U9Ey5 zagi$=;v>)0d&Pl(Q9b`9nJDz#8|X((LV;x+ zgqEbiMp?kI3VObhv^8qI3vHx!*{hccP~|`6A>`II4FC zuCUj$jb1skUXl;y)$tXX4A?8(i9E$jO~vPVFva7xpBGei#aD(B-7&o=JUp;6Q-7yQ zm{5Sz)ZX%@Rq)myRVq%WezB#{$Y@?qci+n7_6%{o#!i4GzjwhzcfIhLfi5~G)10NQ z%qZ|%4B9~GEeqmjSy~=rU6k_|EYHQ|Z^)o$T}FR7$4{utDjbb*mSuk)#8ErmqBNED z(_7I0cbmCNGuPecU|Fxs$>d-rd(L8-T!;!KVbsmR2n#(W=?zS1FUH-ldcy@h^aJj$ zlwq5gGwD;-YW(N-$x@0RS_e6IE|~qq-x;46akYdZTLwoblaxfdDSmMJf~9=5Qh^!B zB=UK$<(2~H)wx_HodgT3C#&sduwV&?u)I##0dZiQPbD$M94#dz!e2ozv^rJOvQF&X zzFD~Fc?)b*aXzwK}m?rhEh%|y^b@)Hl{!m6-AQ>v4X zN4#>Dtv4#sPhEqXV@Zc$^aCN($dRF-(Y zEX^SMvOn@a^Qf6XZXqU=dPaV>PiRc?sX_->_5SP)@RE*DfwAw}^dtY+qa%e}BlLzQ zuFb4#w__l-`SjXqJgZki_B(`y`|z_~2KI>8E}?9eCnl)6(Sz7xaSAq9QX>iEk+_Jy zA68~lGSxQw#t_>Bk60aB4I9&^+F}mat}ekP@z`w1!M#sXs>KsFSzgs(0?BJ4sW?xH z>Ao6inLfqG!o{RJc^~~$0auH(birC3$TobDzu{AsRRoLIui$~T)WF$T$PX(`#u@eC zCO9$P*CSz*dfO>~{9!o)bLvHeQzQttAlx_Jh~I(G%8noQkFqT6~r z6qU*#x`9Y0gIG@%H$kS`RKH2zqCh5@dF2jsWkZUuiBMe7ocsz*EN3h;p9IF;n2S-`KtMQL3%hP;`Y zp&-pZF1ELC8|kRkQAGtL;paEhw@n@K)zD~k@xG{|og57TGHtjU%11-jpR@K>CpC1B zt+a`cz@0R>2gFD)>#vg*8dj-3Jlspj?5^J+F)NB@voiH+l`_T@MF@bB&!N0tPQdI8 zG%3w!9>F+7wkuLl@l6#M3lqqNGU8q7DX5Z3NVy7Il}g0uO|IcX}@BM`~O%AG8o)VkVR zNKO(DuI-&9#O?>p260W+O zNu66aO{{~9hs$Cwgv*~`v*}T+dUB#x*b2(UniVw`Zldv{g+b{D5vPT4H1A=+kvH`H z%NFR#a*IBE)}JWeXl&?j#g<6;qXnW!GkPt&^{X06>RCS}*^o9=I$wSSb1W){-|o87 z@Bo8=+vBIpN1*v|(&5(%0oPuZ=APZoC~C9JS<6+-9D8EPYxl-_=c5O&0z^QRbk-w*PE-dWuQ{^LoF=2Vsb6^ScHJvD zgd5BI_(pR=OOzh6#YBI2=1qpj;lH@`X=sQUB99k)nJMcee--tf8IPmuz(F2Jd85UY zzql)^HBpSidZzrWri~fzZ0%E1FoI5}pI6-dTm9BXKTsMKnDcI1YJu)@6uMz3ag@Xt z<#UmoPNflL(MXEQ;hOr;>^RNSRk)IC@a8UB`z>Aub@4DNP@b0EO{b&5dcg+UugHzW zowl_v30D%X7)pc;sqRiq09Fg7`bdW-Ebf$;Sbk_ryOpz8PQD!m>{a$hR>W8Wxc2jf(+9US4YFRVY)us$+9e3PmRZodpEB=_O_F;h@pG$bb^ws z_-p6lNjoH`aEF zHhKm|OjuM%7(%$Wn^XI zU`o!y!txy2hN7dsgR2d+0dY$`6KGAPpZ|C*t8Z>(;DExcYG(LT-RCb^{$^|7`|0~{ zfJYJ{;vxVT7#M&q^cQeH3lIXJJwSPgf{ga?;X~-=&X2I4;9x&~j7>{IivQ#}Ju3?{ zJrg54k0d|)OHnRHCP6hpQ5iWUWhFL{mVu^%zNDg({7;R*pkrWQV`9_b;Lyl(GI7fP z?w|V>046ew5Ih$g3Sx3-UtPfpLyFD|dHf9e+u0PauS`fJaA=ocomU$F4-aPUY!^$P~p8Cu{l z;Srv&AU+n5N7A#!qG0t!#ukjqC~JK{$)<3Kqi;8gf=k7|M1AyA*M9EVZ|j)fztpq8 zcI^M}*9-s^4hA}TaF_rP;B=ezlMl*IW#9;O8(i0X=PG>{V($HEP@xCc_KIGe-(v0<;wY=HWw;DIR*p)6Bvo%59K7Q>;=nE}}*Y^(@3z>mXS zKxmv}P@opl$hXGygoY@-?36N>Hyoo#{>X6v7lJ#{F-~PHsU{CcjH~|^05m0(uBU*+ z-vh`CWUrUgu8|9rMTJs%QXco2CfVUDd6DZzwD_y$&Jo%==?P=Yk$(!N1^kB=II<2x ztL*$j&Z@+S=^_$MEmkH&UH%#D6<;urM+L8~Cl2kQ{JRGXq?r`3Zr|up_AJ6L&7cEY zqzY-X_ui!ACkeA{diZLha?o8p7XHh_?kYcHs@O1hfSZlzhL)f?r*$4*a(P~T7;jfd zjW*Y{9Yfq<%7D7;dtQOe`F@i6##yaaqDL7~zFaz*v;-t&yQVNxwCuyds^_C$y3w-@ ztDkbn`%_f0jr+H!d0bC6lWwt?lM>a}w&3BG^1lDtrG#3_*MJVZ2N34u)LD={-nZVH zgRU;djBnqgk3V@6l^RH3l{(qH?0tpf=zV>hbPwQXPn1@Rm&wZOPh?gMI23(PF`k1P z&qgsL>)()ydDJ?bvFVNBcIskfx&OiytD9+|9-k9LeZt`(qd?{WpS`Z+FcqGkT9nnu>6JSqxQ z)YMAFj(fl{{q{ZJZ0!Za$3mu@SN0x2QCxBl&{p)`MD(GmtO__0sIIOF6~~SwHv&TB zwQbp*Q*n=wXJ%6=P^z9&3!R;9?FyWhNR8bCR&k(@x~AeiKmaFxdH#|4jPpm7h{~3S zqL7jO<_K%=yg~-WbybbbiGEv&(0T4O_zG|Ey2Wd4pKKPnykDiJ%56OAa>NNeF$sc-l=9>~ zV5iUe4ltEs?2-l%*3yAAe7*;apaImrmpJqME$?HLihDpY9n=5|uH;9s^WqtWOd500 z3b1Ju6Qic|rpfAyUz?28^@+&!Df^IzK60Osp|>r6(XJXtnx97+Nbrrs0D3+W3m}&n z=9{6(v!;z?h*#{4YTVAX1B3*OD``weV9hz-0%8U^r)GKaVy0GZCNgD{7G-xjB_ITl zuwA@%B%5%@RFjLjq^<)#8+xl%rqo2><$dVQdWJ2pg%tY#r1USV>aR*E%Im#1CXo3_ zEoDk?x@^I>0QB)=6OuZxu(Ct*6@t1q7#lkC!s_X;!L;e9&6ryZg=Px;0IZT>EYblU zFCd8cyqL0$uwaY3wW4+|a%e%Lz_#qfN5-3Syrj}i%k?6H-Ph8o?gK3@-OyJ+OGk=* zgbnDqr$u6gx_Oox>4KUH2jw$rt?cTOv&&R}Vckoi*O1AvHVN_CDi|sn8k^m(z#(+c z)}rkNRs~hj81)ai6Al}7(3Ls2hxSu2;6Jf2u>F%2^x5}Psd*l=Y)QShTi8*4wWh%M zc}(twE~;TM_r;bL+Rtkkjy7b7M6gdoyp^S|=H)gJ`2s1iOc+f^pi734qmK7;*YZX? zA4NxdLQ?-n)s#)!WQRRJ5XzZYmUxD^f$nHsfC@?Lrp1S&^>DCCULJpTmakI}fa=3e zTFb^E-z1*TSriqGM9MwD<)f)2X~Decc*#hb#Mmn`%? zo}Sa}CxpGTNyj=P0eaOKCC@|zHYl29X`8d^Y+VPx__|s{IT$ozm}k8VZ?G-4HKdWv zM$^e?$A!Nx`8t(c#!C*HEaz#;3NBK|0#1<3SLxa3p6R#gOiP!m-ckG{j<%^z*~`{g z+io6iA7(7$lBzgyyB|wv@a|KFW8X29mw+ltV>(mm8mHdu8;FlOD7Ffou=E2A9 zg&O3Z4od*04~H_mQpqPzNdylUlAaK?^N3&ufAJGCC}!o_c0I=__|DcFx-{lu$H1L8 zeW5@-KF`mz(#X@W1<>d0OXgz2Ey?+nRQj=7L8wHnx8t} zz{ejRo~o?qoCFU-CgXaqUA>LMz$Er51D?(5fM%%s5A)}Ol;|=n!EIb}o{OD@hvXK! zVsSy@O*-$grPUnBVKl{_yFv8;yc#QNOmYt(Z4T#Af}UfZSQX2Wsmp`f)qSbyz}4EF zasIU7rkyZp)9q{U220!CnoO4G7&lo9HS#^6EdYJdiYyq?jP3RgYDAa} zLtpt3{zD4!#d~&!*%XOcwbA0SS;cA{+8{gqRNf7PmGsqAq&1&cZdO70(j}rr7S)^) zw(ue^pHv89vLz>1Q>|PjZkeW|Jh09Uv)v~=(~x<-r(yjJ_KTs%Y+Y0+#4(7|w_wYy zaUo-=K1o<(ebLs!gE&2giz(X`ej`Ulwvse^7GVLQbMsK9VI4nbdmx` z%MedY6nK0`o%Fj$OWpB1H-sI=MDiXGsho3XD|-j8oL}&ry8O;x!)bH55j9M4G*$Xw z^Y{&{jVMghTU{@>srov<^D%}Ut|AkHaAkToL-)`N5@8bs;-fOKe@6p{k-Q~%r2SB( z)RBaFcbw$~ZVMgN-P*2q&Qj{xC^%NV-*zeD@v>$b^?488<;ac6h#$;BC^)Z^LK;Pq z2r+DewR9gtNM6umw0xd~>ob8u-X7g8>m>T8Uw-+Ih1@ zGjxo7(|D)!;icxIX(Uj}FTq=wUY8TG7n~t^g730@EF)2qyTLEdX^v^eG7iy8OW@4d zo}<5Q;3799mADh=y_L;&VhWdxzXfX-CtnFM`Pnk#OG9@-qpPI*2;XwD0XqEJ=B zdEzh|4|f@Q-Ve6oqyHqo^1tju{-|bkFPlZ7K0$xSgW4*D6*wB3{Th-XL|{wNHoXxJ zwXuarVeW+TlRDm;7Pp$JdP`1|hu9kqhTrsM5{7HY5=bjIIo7oq$7V&RRNSrSg;-9W z(At&-up)BnMv6|jsXC{d7ZjS=&I54yog~tUkw|R!dO%@%g3{W_b);2h5**mJ4pniG zX7I8Z6!;l)@%@|S=r7CCANKkKs`CqVD;=2Tf0EQ>x6g&n4DUC|*JijhS0MbztK zaqus|fgdLp`ZvMMd0bsnEaPYXm;;gSPo-NBvM?KMtVs=#DO5Z_H|hXI!gD|-oR5r~ zZcLiKC&PGw&(VIkUY(W#4xeWCn;K#UC(!#l(MEgK5S2WV(LE!_Opa&NIsqDPP~i+( z9M!xB_*Vu@vX>JNsIO1IwG*cfJS^jDz`QhRbiipa%qotcuOyJq-RgIM!UXb>|0#0% zZ*w-}qAxrex=G?kW2 z#-xUn4r;t#F35cEFe>fFy@srkW;6Cz^ve=VmzRzhsqehiL6jxX)in1|5Q?mVAhH5d%bL*%a7H^|Y9@KblGUF5Q z1Uk0t+pz2-=&2Kr*3FZqss$^VAImPqg-(?=Kp&XkeOTxNBjOez=h?bksG53-_45@t!Dd)+#+;j8+Ubs8GEOa&*l1Zn+AW%Cbed$Yq+T@_C*gT%O(9 z&U~J#m_D;)(hzNV#u^b(*Pa0hoQ6UlsN1p`JD+)yyRl+Wx4qwP_=lc@GB|qf0gj5j zX#!-Ia%~zAZJ{F_@N$GaR3Q~!9sYqqEx6Fh&k^lj+=TOEJ&BfkIWg>g*>PM-p|~hK zK7i}gwoHqOBa={vuk5v?(jW;&s`9r_2!(vG4MR_N!Z(U7sy}xU+jLO|;XHCs#)msh zM`78)jkfr*+0s0-95_T?(qB#Pcq?q@X0%u0?;%{EZhlo&H9_-&Galwam@jV*2{Lrp zcWhISqhhsCxC2!1$wU2U;X+2KNhyv7>hAKn#x0Ay`cVh6J;3uZKCYB;r+Zp>|HVMZ zuh=qw#RqH__(sp`wh#S;9>s*qpg%9#ec8RXqctdM3$LnjtTE)f4CTqCew$DVUtfT`HNmi>fHi*&3HDtv=D?>nR5s$G!_uW3vFI^#a99nmi6{d5u)DKe|ctdrg_z zJ!)Pt#@&!PGh?v1Au<)ZB3#q030Z(e#y>R`(5<@?pHHxlJEItHPaEpmZOwU+h_39s zhQLip*^|&a-_5RNJd;J67X_D0kf|Rq4BV<^afTHz4(1v98J|!ZwOv^!$Kr2=BX3=+ zGAb=mD}dPM`?p20Bwllu41vIB6Q_L)%(i`YTlUcYQJ?$0AOkhGg96;X~BSmHpC9 zZzv*IA}?N0z?#7&C?P*jsZqm+e%eL`@0lW=qa_ z16V&eM&XtXs)(=tQvP^&BUY>`Nt}P)hb6jZXEED>L-o73!Ed4!FbsNV zWj00R6|JSS%=XPjrq8Z{G-0{j!qc+dlocjVryVW1HN;C_pcbr96P1x|d=@rRN#nJg z*l*EaAk2@s)Q%V_SW3}z3}d7+CNm3#PcSqAEp%t>T!l}TXsc!|%(<9o>)C|EVi6xj zEbGXpwM6J>TTDcaiA{-3b3aE=lMz6wVb7h|P;t+c>PId;JPX+ zX)@W~xwoDOPO)nc>Mc*5Vd z8@>7=%>|?x!bX?guS3+vi4lKB^1K`Zp@M~eg_HD~@V(p}ZbS8^BXzb?oJ8(edr)tceeDwbJ0%Xs3J<-`B-LJoa^C+{T z3ZqILbWy$}`(fBv#2$6MXW9c*6iv8}Fdv9s#DKR!ah?cDhosf_fagK8lSPNk3N2|9 zUc9F`gVJ@1=hjw%^&xL zj$7cg%on4I*#%HdxPjg~cv{+IEVwuut%(>&Hrw_=awfJurTh(!>A742BlRB@}wmBifXN9UPCOk&`EyS46Oof<1(a&4zUNKmmIWwYG z;j;^!MYoqc8aeH5lLrxLy=toz*GJGp?*byQImcC-$< zLJX*W82WS*a!BzOGs@ioXQu1bF_`59jB}3oK;-kDb5H`wMj*$Bsfr~|92%jj*Au6F znbY@x_Zv7CO5;Umk_3!Q*f@H})ecqzz)sgJM$aWJSM}ErmrJ8L!M?ze3)0lLb}u{a zct&HvZNnM<;U+@SI-L0*@9!l1yA}7Ot->}F7AB~z#^iaw+RWNfcps82fp@7M|Ef& zICKtr+`*LO)@u2+*_m#O02omQydiCHSbv*BXD4YDSRI^6?8#g>qJ4ZBe|E?A6Mb}t z_jfh#s;(%K zndtFJ_e36V9O*(+noP(Ty)H zjNXTP0NJNBZ=uB+{m|X$#M5J2HcDVz!hIEpAP+PObCt9)sWseeAi?SD6Q(fv(y8OdU4_>oZ2tnM;TP4@xC**(C_ zvpIfMYCLy#HFf=R4%>jNQ18tD7A>FlQ#Eho|5nNTt@riMBseqcGD+Osoq^>U#8oN8 ztl|UOG#mj#c;mI|zwEvK9m5%=E-uY7U#+od%t~Yxb5d3x!$8|0ck4PZpi;>wvVd+L zb@Qby#D#LPhWENtd7|RRQekkwd3e72BX`2CA|_9jjclLp2DY`hQumUbYh&*~ zUIFxKOaJ%#D`X8J;JfT|h)xub@>*SSRPLqzIZ?tIwX@gu5+c_rWm&hC0BHl*_E#rg zB3rq-7dXf=P1^-}-Co}cL7e=*8;sNpuXXe+a480%zh0EqBX(L}UN-eX7x)ISA797r zcRj;EbNSpaR@0m$H||JnO(FSto}HDpm&oVJw`V6jb7U2+>{IZ{7+B*7y(}+#9+Hv0 zbw2K@vSrmIDS>D=`@WX|4&Dh$!r%QduZO6;dgfhxu(b!9s{?pc2)VYp_5L$eD?_AmcHr?_Uz4Qwm)2}ni)BtoV7oZB5Pr6{sYo|Mc6qs5w zX8oMQ>yMh#XrvOIc*1k|a!b!>f!RUVMYW?hzl)KnM{ydOH5T?sE0L`WzC0ZDa?B`FBo?6x(>&EbLt%uJ!!=> zb3;#`*|u<7o5PwHeh`dbw8B8F#zpnmPL|4(7A~_;7V|Qggpl2j>P97-525iBad}J& zm6J9G-=r<$8D=rCUAw@ni=@DE%|}HlBFR~SC2gqo>0w}y0ocmX!qN-ImX4k(dX9(Q z#D^7G8%PW1-mXsF88Vn>9*?-9Tn{&->m>&MLVJp1{hecK{@Gt|SyBTW^Lpx2Q#DIu zSr*D$P7!o|lJcv`=I@-`bkteoTjjen%Qej{Qk@U=&Kmv6x&|PS`qVg{s?LiW6%CrL zwY#_%nvO%xEa!LTTK^Rn_V3x2FvZ^!!qxZg~d?UohgFpc_OU)XX`$F za+sL>IQgz~qHQ=4V{J6mb*Tgo_}2ETjz4uN`Lo*oS4|1~-0r?REhPd!7|JZmvJZs4 z*B7QC`-it(ygt#S_W%*TMxa}aW>Z9oIUi~5b6MhuNB95yf$;i;>nMMO~s5 z?~)jVl2oMr&#l4#Y|Z^XEzWrB#kuU~uN2z+10(4Gu?IA83l+cL_x(p&p|H_fuzX6F zffYWP>9HdjE7Z|FzW{PiWn(8Qs2GjsaVsc7J*HS~we2Rn38Abog6>{kZ`ErTI!{mo zNT)=7%_fD$#k`($)fV5QjUGS3$&>8t&IyPZe3F9ErK<8ow;9b5QFchikl+F+s@>G+ z(&;>1EVVl+xMi}f+0$$>LqC|d2%Y>N_4ftI!0>l9;n_h1X4Q&`Ew|PQbtkPYWDAe?A15^kQOY?*! zl{0}-PmQ=4zD{V4>_YceXxU(wB~V+`XV|NXSvg?y+N;@!8E;0KjnM+y%nbV`U~xv@ z1X8t9+TR0UtdDMYh$O+4vKWKsW|*N8UKVDpME1i_gswmN+XVfWfLOeNtyI_mI(I4J zN{H&6x7M)2r!VX}n6E963y9tq+YX?6y;-5Lz6eChSqTOg$5KOMQ>jC)sv~-@P zgWIa;U3Jo%ZpiE2<7Tha2GpZ8w~3M$leYxkMs;Y`q@Q z*-0f%>V5he@!(9MSiaP?%biU5c4yL@YwufaM1M^HSLTpYPe$OX#RI*`10(}*c9Lv- z3?>f8WpZ57N)44!gnae$Wcz0(b{lsK>0XZG)7vWCepVHA;a04I)dNU1+aSWWi3Y6C z^Jr6{Q+6gPwT>WPP*3nW^DSke**%~!n8haFju2K7-DRcN>to(}0Y;GK__QvIPFp);XfNjIxPru zk?dJ7`mk(f9?yCVDRy*F)*zASmXn@}mmlmBQ@QfFfKoM83Jed**85mPDq<6$pi1w* zU5C(~4++rj{JzMsFHM|34kk4+A6N{e~9H&sXfn;0xVQ62srrNHy^ z^!9_Q{VA@RmS@e+NxO4z8PXaLnNprVoiejb0%8nh9`ZseC*|eoZR4P)^M#a%UfNk4 z-$bxB9R`%^d-P=Dp)@}?C0ZvCMz36D(4-fUMBC#e0OthE!_G$-8hy| znBJm`I1O=nHGXE~k&Z6Y;!JxI6Xe zz6U&ry=jGNvF41~c6P-sssN=Zj3Y`|5Q}UHV|;rm`FO%0Nkgpyz}>m`)^~X8l{N+V z^eb;IlX1^>{KJ|H$OSv3%sQA8=>vV@NN)C>tL7O!gKzcG+04cs=kwmJwKCa_L~zy7 zP%Pa;cKa6Sxr3|`JsYP5%HOV&V_6%NL1o_3GO59XRp8T*blxIC)EFOYZ*v4eBBX+M4Z9}j!|zEIV#n#+vMZIsRv( zJ(9Id7yoe%Jlx0`14; z{-ijSD(gSKsbCb`e+*x$Ax>dvXr)Z$O`kfXlG^tm889YN%)b@Q#*YP62+;bRbd-rK zR5HbZnRL)JPyqMO*c%-j11^j&y$wGQLuZ>7#`I^oNm>_OztR8?%+?#bb{7L_VJ3b~ zIuTP-%6$f7;PYS`nt~|A|L|uf2Tts=`_}0qx{mhjbG3{Jx5un(Q8PXqe`*LSgr7U9 z>_w=8CPz+0wl<;2 z_~?b$N3#T52MZypT2>&l*kP9%sNfei;)PUj!LA=>(BPZSMs(vBMD5hQ3aNEukYkHT zlxrTU4Qe90TS3e|RSmiJzoY-q1UE5J7QQ^$LTr?Pb?vRrwZphfrqZ8tIB5Zf5Rm#4 zk4mS}D|tB1v@EA->(KaDcD!NC?_rrV(%BXktn#8Lw`&eyx4VP?tnmOBR z{Rq;Z$-D%X-Mzr-6h2d;qUT&xgw~Jal8CDUxL(UuT250a`56xBQQepHbT42J_#OTMrf|#Vs zYl_}JBfEa*y$aQQ1}b>nQ|Fp2e~8aa@E*YJwtcPfTzR7C z0S({*IBhD8bzdk`-Wu-$&omcdFM|M2F6thjg&;{>)>oeyrD;N-nCQ%AYoQVd732(+v)cQ(L0WVA7g2j+q>x^U5DuWp+qpyg zv#6=41|8&#dvJNWziBlN0B(x)42hag{<$4GoY)cW=Rajb_E7lX{z*&ZQQ27?&+Ay= zSmwN>EW1cY`jbj|y2d2;d=5Zm5{V(Z>P-(&|Jee_dX}$*3n*)WKLdJaq$B*vx$gTF z5#=YW_?v7toEXn#Y5KOkJu9P+Mp9M}Ef~T@-0~w`IEsV;dfsh%8TWu;_q1EsG$BC}S8sr6gzhR6hDGy2Ljxj;S9*Q;3#O#MtK6^h+js44 z_{nyaBQB-bL01P*htfw8I)ykn-|wmM<9B94u+T6d?sNBmZ_tgyZiTHz`H4;5-HK*U zo7!q<0SD{~%UN{3NV%A)1wQdaF0%fi_4;4-;@4Uyo;OiVFn0lWqY}^9?Iro5N+Izs;cAILW$0dx<*)Tod{!iP|f z4Tmf>W7wY?mAOdXMO!x+3L`P~on!wn_C+(a zaG_ui(d_xbtO^Xf<%KKbn7hY%m9Q^qVmG3>RjO~F5|Z6s)ZPPH=xpd_>o`Coo3x~$d_Ukr510?txNyAx@PXQs^t2}Z$@h!SpzsqLMK?A)Fe z3et8Y6v}$%Ts7nv=M34usofuYgA=pljk)DSNUQ>uwI?okHlVs2LrSQk*P|oIQ2sBr zn0*-`Sq#co#-Q)VS7i?y=G_lt{Kat*bIaM@j1g|Grn*Tj>mKkb z!ID4x!J6x8c(iGYxtijkU_jfCBP;sDWBejRV8uQxR_eafhwtV;Tg=E2%sBw?fm!Dcxx^47e+&XC<9F?k=Vf-aR9^*-CNmj7u@n>RmTg`Cq`C}yQrhG#9@8pW+iNQdej|!GW8V95V?yQ(k6x7EwOod zNi%bjm!StD#HH#S%3{ndp0sU1ZlO1l=j=!bFI$x#?yDb(v8D|cW-bt_XWVcJY%sV0 zo$&H4tY336VO-l?MO!U%ab58b%bM5K4Hf3&SXJ@^S^$!r?j$(cZNRUIgZbH3Vt0#& zvLuk%DbU7=5_IRliOU9oBH@&3x1iyRXc35hqgSwYtF!J2^k8(`o91t+oHOfR9L4r; zXXkew3a`7OCF3ea)bFWyFHwU*8|ydF8-#MYw5x?x%e1~eWQ}g#Un+^e#p)Fett_yP zDzU;&wWY3--LCL%b1d{8zD>JC0bM4Z<p|#X*etJK1{J7gAOGP1U3Tl6gmOG7>F@-f&k}TsMktAXi0ZF?PS#Zkf6CO z;_@|j&h4qrEu!^diPQ~A&h2&kJ-`EnuNw+1@s-{K7GWcdnAeRw-6C$UBj)b`@W-Ay zU2Xx{*_vO)gs6IyeBt1(mW#dHS|>pppP+^coApP`E=8JjLWdwIND-tfEz%4f>Agq`y#_gu8_jPj^D{Xsha?ti+QQg8g2}(IKi7u-@sQ= zKl6G74$B_K-Asp18tDPPR#naMel*sihpw*m-t}D@&V#)F90NSBI6~~rz|WwAJpgu416aS8;Pw35fCDi$egX*3 z@{Gd`&Gfb}6aX9XPe{Lc<0kMK#J96Ywo}Q6J=Amh40>V%{bpZDxs8sMppy3YcRl;< zOoS3&ZK_JrY#&&lp?QV5hi4xGCl8p;^WVOM#2tlgXaLcnZ}r+fGd{Q>)~lwn;AOCD zmfh`r^k>kdu{7|2Sb=9%v#)N#^fbA7I99F%m*U{T?M;ARxK03g7~O*4*5EH>p}D2G zS(9|zpFy~vK`k^+*qiClxkmUJ0Pi{9rAON;EXIV~<=E29qIRt2cYLzFmn#aaoA$u1 zed_>?1g{61)@&2_Z6=2y;Y+I|4f>x!;p?A4E5Sl1msJp3Q#E^SpFz)o`vq8d1lea$ zwH}r=@9!S~Jird$T3d%>Ls9U$*6yx4b3LyqY--49z>r7|o1O2RmTp7uu&Ockbmm6Q7Cb31012NQ4(kb=TIwpq0|o=q)l{|0z}-UAI65CJUjXCoaV$=gDfXxYzf)EN$;l z&RVUd^j2RP*IrPYQx97tm5p_F!YyF|wOFRwKA)Gjb90KVvyWG9Dz8p;7D2&j?v6g8 zxiob%oxmRRc429i^VG2SuIte8}D*y?>pHo4`EXZG8Yi}`T4yEz?L$;lmu#pPt{j_XsN#qAa&>3CJxl0V*4o@NJ8M?Cjw1$zh@N#FuPW9&>drf7%)e zlg6f<1{3TDcQp`oUI{k6#rB%5frM$`Ww0|e0O2Wcx|lU&J)7_M0ZdjNEFQcxaV1OJS1Fz{PXhvpF94A zA`VMJa;n)-mU+zc2)?WKCGB@)<|scb3KB#p-l1tvi~0;AS*KvCKRWH$BS5@=^0l2~+%MG2*N&li=1WfDCphLW@ z+h31G(g$Zd{cYI>!q03~A5c5WgE}dK`#T0RavO&?Nly=%GCu8F6+Qlm^Z~9hFp6-0 zmfnHm_ojE?0OZ~ND)z?9|KCgQ03!ZBt+&5u*!>r2y(Q)hxBV&c$#n3pD2iMAX%x#H zN|D)IASWm2`f4`bD@ERd8c3M zBGQ{Rgjd;j6~ z+8w=u#GkH;_Slac^XCNrid&jvQA?$>8ZsGC(066igt&riB>RJ~9UfV4&mB^pVHd0I zixLB8#<>Ubn*v{PHcH_zkMz-z6_lc}T#rngz|q2rKf#*$p^A+bzrtVuJwX(@c<9yb zT)aVzaq$^#@fugFi$N7c&5RE8rTc|zmUdMwt*@K%Ez9__g=<$%xvp9W8wgw=te`lH8n4>e7}D|h+)7*;Qh z81gTyx=lP>9}7>*K|19u(Q{Xqi&E87p1JFFJQ9q2+6j+zDEu+A)z=Qm|0DnZyy@ip zy-nvgLaAKreC+?njP!rZNPhrkq#IvRWfW}dn73(rPr02n37`!6skznwBtSRL12XLq zH&{Gj%InP~Zf=CRIJZ@54K~h7k@p3UADe@QzU#71zKhvDb_H5d9WRntMp2SK2?a}l zF-Y9*p0Al+e}fRiU&D$2d3`w4SzwlYCto}4;Z`20T?64~kouf-VdS6@9H-Rue$6;5Coqv(=pE{4&Hqt0@2qS7yBa3!%{;c^hiutj}@P zuJhxXGVcyPm+m``2M0|!U{RkYfvzWN%ys*{wB$+w9M9xrR2An>r#iw=?%Y6)LM`(% z=#fCpHtAb}rqXdx#;D%DpBf9kg69S+(biA8cedy2H*?f*JLJ~4Qj1ym$OijbK%ub<<)evY4RC)GGz!<_o0-oqL;GYt=C zsUF$xB%~#rc^G3qZ;c$L6sezek*#okU>|HBGf))JLt2z#lkxt{YcI;}1-W-6WN2o9 zMf1Yn8wRWl4MT!UR9a0LB4~=+c(tAI3WOMX6OySLpd=&H-Ww^c6cfiM8N1J*&MWvj zKeB6Z^~D2$t48yL)9B6ZT&Y}vjm}q3if)(Ot0^sKjKkTifp_K3E$BG;^4MlBNHYds zY=<+}>eKAkhBVQvUl7%6D{7L>2!WA)?Fij7VP*Mj1xrj~Bqql)5yDSG>S6@s!us+a)K z6GhYo1O8A&TyaG&==r*hqL5)>F88s=UG#XyM`feWgw>9}?bhaA$skb|m=|WVXN#|V zKXOm3DNAg|_LWExX*E?p3AKSV*D;31(>bR`_G{&sezh=$!G=jno+F?-Ws2(f@E9D- zkCdE(sNtOpQ}w7M4F#cQd~`Z^rF!q(pl3~Aq%flL?1yw$#cFXy_%))_L_AWg;2#ZY zx_FWa0~`*hiSZ2fjGK=IG7C)0jp_+aF3mx&3}f?DnAcMSS2<*F-rJ_UfV*>STE*P^ z!7N$kqLxA_PFrQ*O&c8EUN}yNc8&-fZ#2_$YU&0#xG@qM4ed-n4$(wQ-JoqS6gVCn z5rU!U;!SsL;rIkDY&~O&+HxiSI}~?_UF?H)U>{IOiflJ)vcYB*1=3gHeIaiocaB+f zDCr}m3Oob62R4URoU}T_Y{N)5MUvCfmzc6NzRGH!l6;6Z=yzzzX2iM486-Jkg~IN3 zxXk&&n7en-w4H|jExs^lo&5)(g}ggvhiak{o=UMAuHr8(eMj2kwFAU0SkQ4V$9%)Q z|ML89etAzc?`35D?XE+t{BFQpC1ob9tn{X_KmvxSMDLC5CZao}9< zpG(SrA-rV?^8OLRN236s>*^B2CU|v3>;A1WwvcD?? z_oc!8N?CqUh0?7n!SWno0${N|HSzK1S*a~0P9@g&SM{2=4hMF~WbA_5qe=Jp19J(? z)n3ltOVY3OeSxi~qL)5*y zofFmxoG`wYeEz9Ef^&yH9VRSx!87U1c?JR3)2_2rCz=3KJUl7mcB;b&v5zOXXR`oi z-+BI)#&oux8CSNEYPt;yavbwa3KQ`1TzL2P6*|G`u_~ofYw*GuLG$ihT%vXm#Eowo zo2m6dFs-`x@_+=LM;cy;$_WX29V@V;-G^X|=i7v|*Rhh_{n(bdB{_+L$L#gTe)X=T0&V?8;9TJ4F9X~k2@VF%{3TpeB?g`$KiXyg4PN+iR zEUfADlVzE=GV(LoxmpJpOK7ZhO992(Y(;O8;`#E0fj9*qt@)_E(EBWK9#gH`i%hB$xKViL<#;WFoYbd=Y#?i>&yv z8*EiQL^@BcZ;5O`uVNMCKZB;Vih`1+mODrk4Dg4gaqW(AEK zPN+ASn9sP#8@vX28bMHL^OCt_i$x9YcY163&EF$a?DgT}H=VJZ3VY&qn7|UjQMyi5 zP2ny=~`6k;Y8Gw4!QEBa`k)s{Qv=TUQqr`CRzS8EV*MIM;JSEmkX<>-*O65L`N@m(kuYK(Zw+WY*inVB>Xf0ihetBo zE(ytS93-P?Ob*~IE16vCJ#0ISH$ef@g>PZIB1M(vOl6OaCM^wgi_5%MiP$PL>FK6R z^0redivY4cEsJLW*0c?jM=zX`!P!%y zm$pO3m1+#jxJAaZ+%p&Bz6I!74?pgtx2GvRVFX}&H`%eQeUU!bjjwofo?FvaXt>CF ztd@D+RgxF?coP*;&j?Tws)al)QYc=~GYT!>$ssiOO1}A zbhR*gXXzjw5DCzceD*)V*MFC)`ENsi{zf8sAjNiuyx2xhi<>0p6Xe_?vd;}eo@Rz| zCF`?C-C#w88B@%4hirxJW1JMb&Zx6ja$RvA(NE95s)*|Lmwa81-eL9dY_$|TP&E#f zd4+ocqAu_WhUMCxDs1z|@=e{BKerjz$PU6byM-urhv>4xANE}9ePd-AKL(QQ!YU>V zqQ10C;WwzC20COaO*ibwjoROW_K&i6774oz@*0))JhDana>J*{h3fi;;E0_=I;6OL zHD15Scrw0|Kn$7);Q&~*ZXy6H+~qo-78DU?I+-h>!Xgt_0>sa%6#o^3On{B~23z`V zbnv$XO|;B)hs0Wgx=hihM_5u4>n40_1+YtrzkO_c!DF2k%uJMg&{_|y?&7v|^xdAQ zat)QD!drMZ!55mbXobklD;jQ^fa1ILoh&FC5FiqXGpn0gMDZ1QatD8xI%uO zhnP|+b=V*c6G;UZkr#iOLkMw~NbwL;HWF^KNT(i4$D}SDVIz}3;2LLNE3lyAkaTT7 zHHYi^=ucUSS1FHDSizVBWvp&K(jUuee_56d-Jn9_o?dv zLFe|--PwLsB%5GUV1f+*_aZcKSn~>_3rnR zC~Y}v>JA?`cMW9^u?=?J-&p|qJ&wPhC%^EX3?@sl!^Z0-KyX>L7CH(M#hyD`nbGMM z&#b~=>uVa9tbaU!3syKOw!kcPReGczCmirlL=%m;=LUD;?tq&y5TmJn@p4F9Mv6(t z^YlUt!1E~iC}}Z0L+kQzzUexnB0Axj8;#ma7vGm@3g(7o&o}6?*$F`q!d&xhH|l2V z6}73etqIBH2@@FYFf(}}E>zq#nUr(|*cTRywEq@A{8aN2D=cxp4&o`K6&wo?D5U_r?ClO#TSCrdGb4R|P|$?F3E(alk)A@(C37w1 zFTAUR`Cr`d|=Ed-t{PZl5Xq(xY|JT-87<$@D_5aK$z0mTNC*BraZ0d1F5 zzbxRY`j3h01Wqi^Oa9Tvf9Y!Fv}qBgTcEruU~JpK%F)KsE|cwHj~UozSDTPP=aBmOO~bvw;yX39)4BG+E|kmScDn`I zrkWoJ&OTUvMc{Pf!}KJh-ndlc96&eX0b1mW-$vqS?l$VN#2bO-_;0?3f$UH(0r3RIkaH zr#ML>oN-l-AX^K)#SEnf;gC4OMd+&>L__(*>LQZ5l##pqsyMf*P?LS0B1H|(NgoRJ zE|C`>4+)UeslW7t2)jcK=*_5u3L9d($-yRx2%55uF6Uy>?nQ2p2V;Xm@dykCT(RLvu`u+x-_MHwfDhwQA(` zD^ilSBC!nmvPaE+U}wVDo>vHuW-D4ZtIT`#2%Ups?Tb{Ob%S^9YZqNFNkVMbw2Pt{ zBk#GDIYco%TMygO!{jcy>Lwb~9>)$haH900Um3A;~T2iat5RAC%ct2&Et`dei zSkg&-KH{{?uG1jV@__eLCq%N34tjnLtA#YNN+jN{Yr{T0K}5Qe8X?MeO}hGh0=Fa; z#r5~q6_4Z+3nOdXKnEUQ@dXP`2F_Xd_{%D_PB45v#dtp4gs0@euZj!DxT5qGj6 zYiBDLP~k)vYD|7w0W=y@V-;o0D@7=mw)oA$Eb+B|a@mZvBf*-(3GavGSd^C}2)!nD z*5J0{JeQSAV%D@<-{CJShuaQ1xjF*Zs~;R$~m@Wm*b#RDDygeos zn<0GtC@ilZ&=%=5|9@d*kaAm-nR01<973hnnK%UVgv3Q%x!|xA^Q(1@e_&KkwK^Z& zC#N#kYkCtkGTFT9x5LkWXw;`ixTC;3pu;J)CH98lGsq@EQodmi+PI?QkeAY3sdU|R z^ozdd4%v*-%@fLvTX$|+erlcD?>?dJn;t4N_gppi5KP!T|FQk%``jr_fOmIf$90mY zg0Hve5hIj^%O&p;zj8uC9NpOKoGHBIQg4AN%bw=MzG=!cMrxilNLn!kRw^H169>(b?~IzJ*|=08wA9L5dst!KZ7s} zJB^N{8Inz3gTdp}VUatP4a7AysE{N?(e3R{=ws-ZndPSxdaJVZL4V zm8U8#{~Gq_0j~0QUHvMBYzk_YnoE)c+0#e&u3rn79o3NJq`|=?;~YCrGp+dpxDnNU zz^b=eAA|libiC@^kc$6j9$;+4$L9Vh(3(g{RE2DD`9x*4t6&rD4Rqnct}Eo zH3iv=#^|!lZy}mWQ~$KVm@i<(#Lt-?44TY7g=gO=;U zLlnyq(?8)hcwROdoC|Eiv4z^>IDx&ewn_licBbVNtKOygs0DlWXTzgf+=1YjH_aay zya|;P+SU|5ezc%M`DgEVSSSS7QIi^%lx#g~j4v-1t;NV|&Uz}1u&e2f#=S?!Q$>T*L!1uP4^JZe#2 zzMAZj{E-Q1lJ-7wg6}l5@BJ_-why?><4EKcVpFHXsQ9Tjm3$dG9z~kq!l6<2`pC}n z@9B=pcK1L}_7NxII(jFS0H&h*;$u@+-DKzsD|gW>tww91yH~tN_1Za@mA4!^J#ce# z1wEMo6qvd?faknXvyF3yvY7mYUPolmu$wLZj0{;#AxEjc{mVGD;y3o`+AcLif)0*u zwgtwh*oqwZGea6r*ew9?c_mZfa0+pFE>q>734BhWuy=Z~!x}~Ws15>#@Z&mXh#SdA zIC+uW1lt4cg=}PVeMhl?u8R@#QYRr@ZMH*++J??hnlmFg?uV7DThOhU6nP+Z~w?Jl%}7D32>Ma>q`?9t}a}YtROrq7U~l5jrhH3z`lKmJ3Kb3Fo}GL4?SKit#;=iAF}4Wr8 z|Hl28=0S6WX$VU=f

IT?5yJgUuHUGy7}MQ>ACD7zl75)51~n;*vQUa8t8 z7r4(6>#8m^DJQnP_pVo>!Txw80cUq@9El+t-#~9k2CldDEvF>~%<=r8^Zx&)^6;;* zLDMH!%sef#G~*0s{fJslCWYy${FkADLn-TYSyovHg*R=oR$O!n*C0@wLn58~>nPhZ zuVetGDjD`p&T}7fSzjX8yZmjW4Xv4|!A*V}t4NXlzpf^ZEdR+? zf5I3)nzLQdTsY+R{2HV6>A$2`Ti9tY0dCs0URNRYJFR)^iN zYd%;EEx%>9XXar@)@oa62O+dQ=nweh&fsoX=Ee-YS;OhZPIIE~8HrI!r+cVj6U|u) z$Y}lacXKXZ&zt|m|9?}Kfls<7--EY>c=PPz=b+Pfq`!2Qep@j7M=sG$M5I@)F~i)J zFyU0bXxDWG+;zqi&wh-u@k^%XQ=wuKi>eWOxM^u|0#j(fPn+?}$dE*SvhzIE|FSW2 zAqU#tO`@0Lx`=v+Cwu@&l08%%o#pZh8=xUeg!8o1cHzUyLcq$+9JS3( z)@QZE*ZFbzA*c!GtZ`C}<6Jqe>&G+I+HScU@Q}&1hbNb6K7=(%EN!6>eQ<3Li|*(e z{2fW(szI%?zCU!3`EAO9Tk*~%Gr`M2QEKXVDIc@isQ6!Lz19DSE6`-0uv7FWUdUg@ z_x~V_{NlEps&|*XM{KtF)2WYA_=aI;M=qQ&Z)M;1+Z0X!!yFkUg;+vFpYvl|u=7b} zcX>C^kDqgMzN3bQDB578`6E+>b z2)*5RekGa5;gG97SLT5gv1ZaL!l9&?eI%_m)J`&SUUE*2HGJJ;L3$?NfVXrEu||+Q z&TydqP$tF2*uY>l2Us*kfhMOv9;ouWoRlW)%`XA3<_aS=u9W28woQ%INq=?amB4+1 zqm4LE${gR{r(LrXQ&`l$oo>l_2I0yJA@fsM$681P$T4NLAqAAf;+!PkILoS7f*+dR zg2OJL+FtWFHBo*LSn!sDDlh29>cXcxXf3V6m7d;330b}Zfe10s7hO|8`~SLU4ovR4 zBx_VzNu89uUH!g1oDe-$mR5o%_++<$LXt>^ztzJ5j+xw}5R9yh;VpXY`5=oi@OWIl zMsY1*mCcHwyf}D@AtKa?(AseAp$JPpIhFMgDG4L4@P!!#y$$R|)%E8m`w5L*H?~mQ zt5E2iZba3-JxsC_H5wWGr9sO6kEI`#R9aS2_@d2T*aql53L+(J=+zt@)~#bIECt{* zw$;o4d?o-C^97FZU9CP>Yh-v-!l*bw;1!2b&wKrIi=0CJU=n~WE)&3uVIsy4PrdyY zFEd{d@~8i{bHB1nwj5Ef%fQNC`!Y!Rg2yN3wC1ivx=L3}hC20h2Zi*xetm^8rpx-t z8M}tt3)>96WlN322|~#qTbCN8Cl}qh08;AQ?xha_Qff6^SL>&OTHMVau~G;|H^GJH4W@BVJ){>vaM?P-321@zMWs)CUE z1i@aW-svMq4ze6S(>eOdy|e=@+Ea7IA`3e_Y*9C>Sns1&Eyi}!@)-g{@W$-6Qr7|Utb z30_viZ@cHB_U)arIOQ&s8!#oH+sB+EE~|I327TH}u+>rcg=BqZ%=`5|PP5%!xVia4 z`86T6lRIbcOkCK`w&aqP8y4Bx8TFCg!B*sO_>{bzsia-C;w!kUlHrad0R$v+4{{XmgHM<1Piq zxI~qwG{+%$0g-CDZ?HXTX28eL?ghwoc$wuhDl)Fw$<-1PgMjN<7w`UB@YDbD z_b!ZDi{%YW`rqmw(9m+{Y8YmGUZq;$xI5u`K2UOf#y8YvPmyx2BGeJm*#1t^xYITq zrRz*1`zand+&Lh>FAEdWOP?E0 z!+NmxEao5|5g;G2rA%L+_8C<$5Q&V`bl=Du^=cGmGZu;WxR6b7>@GREKp!8ya>_m3 z4tESi7=kIea;QePKN zPRJ?T;L*&~4Y>@;t9{wcrdFiJes^s@U?n%RZD20wXFj|ij&+mL6(*z7mQAy|2=%B} z*eF{#o7_v7s|CSr;9v{+ST#qJ(@yF@Ci4}ry8dwhvfr8Bza0X;FQ>B4T4+&g?C{@T z4Q=+`XU1w*NfklIC7bi z-+U{Duf=8b=y0VAgXrp0PsF@&&Xo$6=zrc({K@tPZdX(2kUjXf^oGdG(G35n-02yN{`Qwl)@WKUh z^k7G5QE_u}vSIRtV>`mcy`1E_=o5*gJS#fYW}F0pMdYF3SYf3}BCSl#`-MRic?N|W~1MO4cSg}N`tB0-5j0;mb za@3USy?@+gZDG6H8@KsIMhOpQt8U-zo9-_xU3~?(wZmUf@6Rx$(Y_q@M;l;j-x5TPAX0GV9#L zwa=gdvbl1COx~v%QIX&_DC33$ARPp>pAwB#X_i81Opk6gZnHkUe(;`uL~wTvGcuc( zF5NcfJHL~UHPTO@tNC!d{_r!%+lgI{wt=XN#0v0Gkrd4g^ax$p#Q3FSZ}|JMj^d7! zNvqIm54Rh08*{;Ou57A;0ZCzZv}iJyXIzA^{*G1mTFg=A)$Of>Iv)<{}~H z023kJd}2nuyMh?yiCm(q!4Rg6W*gfxLCy^M9v;x!_dBMR2w5hrU%7{2b5C~pv9-sL zrO;~haEnDV1D(vP{O7oPM(cRH{7XwsxRk9`A`0W^gJeLsh#?TUb5pF}{r2`r$qvLW zU{)ABMcT&}R=22RZHRke?%4d;Hxz^XR@T4w(}{FHyi zF|L~*HU__ZQZO#}UdU4X{KNPvQUd8T2RMw_a9Z)se&w8+9!=55VlqLSUOZKYO6x8H0&C3@T~ zsfgZui&yy4`u@PAi^Fh3sS3Y7C#44`@{9>?iMh!)AuNV(a+++sAse_BsX~o2oaM); zXx3&F?Ww(Eiw?=tKXK%S0VIv)4>M8r6b_UDMy#*qU3XTxk1%i5 zAyZY{U7%`zyNwG{AOY5;eK^C4mQvWhZhNO0R@TAxguW-WCpT)b8xE~_gGq4dBRxYf$&3xA?UOWRByJ-zSvdjM)+oz3U z*vO}h!gV5ihgFNthvn6BzB`L2On|#sT^Lg}zKaSjlx2eqm@Yrexurv($|<592gABy z)IA=VqzxaC59Db##;ru+fNUfrTX5RvJLh9w#x5!# zZ!TI*D{v&Ok_UUn1x)c|J2?Ajl=e(wuJmjlDf_Qd!PMhx%Hx6s=McH6P6oY$)>P|S z_ijCOr1ZWx!Od`t_H%Pie`o@A@8EW`6kz z?(5RL%|K5;f2#4jk7h?F^@i3Kvxe|+;&;mqowyK%If<`h_J689?T0BmrLVBWY^0|? zEJlT!#=Lc=jkK>Or}aZt3wnqYVMMRJD@pa-JZ&v9<0~<=h@z(EZ|PDH13ZNszoU;X$=6Hdog_qxQgruC zl!6xr)Hj_TQ=%Tg%g6Sy=dgE{-62zMI**j_I4-V^yguR;jD+S09^1wYe(N@3VwS3D zs=DX+9+11;(^rD=8wpJF&x@|1k#}u%jgnbz#|VLCWwLL!o{w}g4>TD+T-l>Th})e| zZ5Z(_k;NaKTf-XyQ#@3#P85lU2u_s;ECluS_e`tT_tkfWB^7*`PPP9V)8*Iv=5L3{ zh3DKK*i}Q_?I$IZ!lG&1a6wkhp7DnczgMZ|yH)oaLpmd@nzC$|b|>S~giLa<^wD?- z09VmrNNS;GNHf+K#VyTz7N^q^;Sw2i8-LMz_T$6W@#<&pafa8~ai^g5VD zY;U+f?YbpD+qnIl3H>Q-^}~hYJLHez3U$X)+zw$2;mMP^6wJ}IQ5kcdcT-#DC67!F zPdr*yECM&cKB|$c+Y$74hZDww439$;kTXI02b)M1>lnm{$3+_Bo7!X-^jh`ij$PwZ z$!244{Z|VmEo4hS#fX%6>(&tXVQ~-a-*73Jc^07Bui9}J?88IfM`;wzp=MU6z}}}ho@L^k#YsfOw%t3 zuK%b3_}d2Fzq%0pORL*owh7b_o0>0NJ5D>lh%Xb5L$C}v_VBE-aCXz(tZ+1Xo15&7Uw-9TqarxLf8QCxirNF>h|A8LuXuqO02Fv*A zlcf|p@Wigj*l~5d;83THjiYgsj1+4WMwrsleb())?87`C3T=sTucI2j867#Yh_~;u zI%6mTUc1;UI|{#JeQ8m*7kkc`VxrJ`i_yntTjUK*u!KcXH};`n2C298wng&OypYzp zB;CLBWwAQi+l|1k=eQ@=wx3YRr|-?pTxGr=pJ(p2&ReDE`fu&p<-8++H1K})Nn z>s+lQO$41^ADm^G6-R4*akOGo^HMlbR7e409*!tsDhcX~zS*97IeyBTf%UC}erx>| zpI72+Hsz0Vol@>!d81uN*nuBJ)@7T30BTG+j=X#Wn00^4PZw*i!Tmj6tn?;1jCh<6 z>I>usKmrfNRC=;_Om|0XDL0-+I>VN_PZ%dQR_mCd@ffv*-Hu5-b&b1O`x}W==SBsBP?v?iJH_&BiEw*ANsB#w_7hZ*J|w zYe$TwEe~JdC+u4x5=0_X)6LWbQ`~N|4ctA8vu%7xSJZ5ta3+Sm*Q|ujW`(pAK&5#& z2p_ZF(k$HVr}HbSHH5w>yEcy8S=x)AA)8UuTNiv6sxM{Nu=X!iCB5@u{qDpg5H$*I0CjMPzO>XO)iMVPWKvCy#lF{1KgY^7RVohd^HH{;Q;)Z-4rRx&L4Fo$vUSvjx9x`T8zcw=d^=zWu`T ziIt)EBNj%x+lMNpXF#5-%Z9@gIRU>CNn zW$nEaZ1FEJR3+s(dRbwkCrh6Uwj%b)_os>#|3{)ZFGAaiTMqL43uKzp z)S%QqDSKr-*kLyv6cCVs~H?_jB^Olkh=w$Ygk$p6Q~IKJHn9q#No9dhngx4Ht%#Vx7j4895#am53Nu=lhsGiu zPWe6X3h$A9ZmsJV)2|X#Y=Th6(~U-*4ct}~f7t%-HU$6V;y=y_Iw7_T zcL@GG!JjBeavMm+>i~qMui#W5*q^%pF=70>2f^uO-Z|4j;UC@5X@6cBUUBB>QxGH1 z;B@btBt-$UFGF**y;$>dq7&X}4Yrg}PEJ0SFlZ!5Cn>QY5}EI90^$zMd?jcU)Yk_@ z`+V&o9h)V&Z%Q27w?edCAK;|@iLN}BG_->vj9Fc*C*l*h$&2<+=I7_+$(7Ek-NZSq zGU4S)SJS5i5UG$wPPr{?j}z$W4zoW@3~?pqWRMGxnhlaB$xNJYwIiJV%T0KdpZ-AOGzvu0w{znA<+^~p-whnr%cq{Q*xZ2- z>Mh>*qAK@GTIF(E3|sEmOS6`v1;W!9x(LwXmt*+O4&awoR=kM1xBUpcu%N8O`ai~u z`c#LWv!X`9pj=65u)O31ylWuuMSr0r?q2ak+)gV=NCSz^@tM=?65>xXAqnrSVn%6F zk%8KmN*q7p6@jt@Z{6)(JvT~RyRw=7Vx`Od z6#AW;nt0c<)CY1!y){rr@nKY-2{aWtD%-4kxFuNoW%*(CvE+J)4y2flKQ&Q!K^}g4 zNl9!9qBQ!(2=>b7Wj<1&jns`Aduwt zU~sA(RP4cmoWl)yrWvw$x~kOHVYLm>CQp6!gMiE_HZwM1s0R!=T8m+Cth$?Da#u*D zw5XhAA@+V^L?%d-;>upua4ww>CDG2Ba>`c567}2xgbtgmnX^xvxSyeH~oE*p)Ml+ zqf&i{2de@6qG<{4ZR9 zpu|`*s$I^aDDE@;q$K@e!6(71*JsM@YUnYN>MH7LE8&7!HqrkDCIyciO(Qz$3pdM;1Gu`1aI$* z2k(mYA`6=qO3hHBJglLEY$%cAAkUjqT;3iZ>2PHgfjCKpI^9Y&KWn=sLw?Yg zw^;rpHy?7hf0(kaJ!N_e*vN|Ftuh6}v`krbcdUVSlrY z#n49Up|%}YzlzU?Z1d|l-^-7i?E5roLQsA%e)<@D#;E)xA2ZINh%0vLI2$>|-*xwR zaXk@!m@I}I7H7m?QeeaU!ZaCetQaXt6nT%Xkpbb z()dllahPGfOuGR7ytt#ogI^`$?(Em#sn>ULXAqt* zpezeng|DB7pU{_>zWrYPob>w}0B9ox^Ro}z04vWsYGkGQQiJHOKFgDDlDOB08l&Z_Y34UbvQCjiTNaWFQb0h z-sTQ?Sv6$;J~#AW%^qlARQ?RwAgd4uJ^JqCvZ6QWqTKZ^?zndiVyJ zguMJ!HcEm;mo&%!c89v}W$J+@`whD2H0Q@Bojt2Y2^s-O$6=4ccUS|K=YQ1@_Q$d+JuGT-RV7?edZ`B%4ajGU1{zO1w()ExMkJ^p5fwrl|8VpU@G ze7lYz_Kceis^rVz7ZB;%>L!0Xo|AukmaNx+@rfX>_oSO!ZZlYqK4KhqZ+>>cvg?jT zL6R4H%_KWOA2L_fb#e+wHZ&;yc*2u~PwEjZxWav(+*}=-6_|R#nmfqE4}DPj?;7u% zdSuS74uf1B^oNk32KYQ#x8fZ-4>Om^`mDt*?MA^5H$!9XiVL1TrShG)4Q7X!KV)3b zBv#sca6bWI6!8=g23e|1%9fXXEF0iK$ZwcTSdr1`S?)0X8DyN5t@GC7*5sA=ccHH` zlCgKTwcBHf%4vV*8kPfDDFeEUn=ZZz>8sb};kEtd3< zwamKIV3|q~TYG#br@<%msS32(EI-}U{tR--)??lzn|DA{akPjt_XT+Nz*)!{R&BuR z2?{5cMu2#F>f8M$9j&|HkCD(YufTN$TJ#y{iFj89HMFXs{p6tB?Odu4t3K>Z9kb;QZmDozUF4{NRu- zXC9Zqp0_8CNA&%vP#FV5hXdlLr{rK97+jtbpN=B0=rOhY|E?(IrT8^|zXp5klowXq z$NJIT)~RefYugWl_paBExn;QN=2seHP35i~xp38Z_}R}JYSsT)3}u{Ino)UU#WpzS zqeIt7aa{Bja2>3B^?a>MbA!+P(3P6!`<;ShxX!Oyt^8S#>QA1Mo%E zA^$Z{$FX=XX25R1RRXwGz1&O4`nJ-E-5ba#Fxg;g-MIbeDFFT@n#|OfC{6xX~_F^<$ccM1wDrq+z$4 zlL<wa_=nD|k{`Gag@ zG|&t{kwC@YK+ts~|3?8?`FeTDM>G-vR17{JMk~Cu$}}b1rdNlu%`(Q;4>r!oluger ze^eDm-8$RJY;ypPH7|U~szv_fZ0Rq~fOX*#V7{C`Jq9?!6q<_hyS{+?0vpxWGM`D& zH;`@zk5YD2)u=Nn#*3Y^UR{>le}H{MW!ws92&GbG*JZ zVY<0`2oD^*7jsYgbH-O-NAMWEVo!8YM-S`_*469;Yaj~PklAnVk&ijVJNbdBKCZ;U%iPYi4xR3vvGwX!XafzHQQop#!`DM6b0&Kr4^L1H9A#k3JXqfOpE-*IQlpz%D${dHpvo zqJI~X^bI8a={fi|g5u@*h3E~0)K1ehYNs|?-oOZ^t&RDrdO$_I_?gw`e_7fyu#>Y( z`T&!B@dg47+?)VE`gciktK80HltkNW*aW>EMs`)MpTf?4{%2(Yh1+n8_@H{{^A(t1 zE#j4ZU`Yp2ht^RS_Q%??jJ4v0&8#!|v&h7#e{L%bFUZY()xQnj{ZE7X z`?o$Ag9hbviRQ&RM_9`|15uEh=(F(;U!14ZAX!)1O#5jik7a_NHL6Gi?X96il6D2a zNh1sFXE^tZ@qL|^h(c&@Lv5@(LQmZQPwHL%Y$9~SL3h03jiO}_4x<{gxoxwW5}Sc+g{Ay$ zD~?GYT6@4RDr^INuE+<0^K=COC(!(ohazfk;8HAjyhzzIvQ;LnZB%3j&u5iRaNUOa zN~1WCOF4LV$7M;jVR#RQ7i50j4ZqNf!!%E8i!)Vvp0F^lZJDTh2}}KV1W&Y|>GxW#qp>Sj(3=`WaKKh66AfsWcsT$s{Mkrt z{Xr(}=}h#~w)V>)UbH^%IIdVOVP&C~1?q?QvVOhI3c%OYa2`%$NAn6xtVpu4VPlF| z{NSCh7N%6Z4$RpeT^l}+=uTZvTl}dxh)e&I;{xF%?d{EV&E{uCpFYb=m~!AFyn#rT zZoX>rx{5Z>ZiVJaG#g;=L@??d%3J8-*Zp*Mqpx0)3fT}SHQQ%68y>|xa|gdTSLVa> z843lavRl@B#k~PJu72lNDrZ<^&fXTk%qX!FC?I0+!X2%o=Ec3m&5t6^;m?`V(xl&v zBAu?u#<>BY@_yKXOPd>%xH!$6of=4rVaC~aad1DAAO)xdZ;HmNT)r#bQUDh;cL+sn z+6+omE029ZAd;H}uljum>W|-Gov*h|nI`vYj-(32M<-YmQ>LwDYeYZu=bf~?Wk05o zrn{g7G!O+0faN)*0W28hV81As5c2lF}5 zI&KY!lAZ+25}mVIi(zu4RA3*FH&;B;W~Of2WgO-tDwEW+C=nEUxUAyH2~vEr$52(y z41@cceoPh|RNLJ%pC?g!fyeRP^Fo9B9p6^i21hhI9CH=?pwe5_2DLZCC~cx{0TJA% zptu^87XUdq_-oc7?5~lzKi0yT<^7o-{$FI+Q6svfjlQGHM(vSs#*Ur!6{f@9z5!0m z5d6zXAp14Q$Hr)kp_SIzOew+^$QtGYpyQyc%V%S3@JKJ(XX(r+;P_1{`go-f4(zBz*CjY7nGODwqjDa3{*#@vV0(h>2ACdLxJ{_B@O z3}9B$f3_e&+qJjr5#8_&r0Rzc*T)>hbM)T>`OCfmpT@E5Qo!3E9@Bug|5@{b+xuJ7 z01l$vhuIX*^1WX$V^_ps>78!Zx>4oewI6=5oc^hT^8TZWf-gunSlCCIV(1%7x7mM;s zmzO}0rZiY$XYLpu;0h?vMc@+}^uJ9X#PWZ2`XELQIC^Pg8&fAUVn%jGw*S{A4+24h z-~H>D`Qff zsr#>>ICwuHF;40L_v7;rORdy<$aFrnfw6uElSXYRV*i2MBd%NjGAp>t=GFLL~(+^t{nhyq{Kfa~*z8k5>L zPi>yO345Gn_~jkB1x(e`V58SKZD4Ea+`}WY7EuW13qSp49%T@2=E#a`^tDP7U&qh%Redo!|3Nen?92PEWKd(GK@ZZ36Q*qO7NYS=~fb|9|37s8?;ozLzdc;V%&nY^ z9f;}0tPGrtMT`w?jg0^ELCM6*#sJ612j}SIU~FIw=azBmEfIbCY3k>2NJw4C*?4%8-IxVUfqnrZ)j%V^29Wd3LMxz?)d$RSDa5Vouc;PH~553sxa z=5^C|!O3>b!&dz5@gxY_(D6ygP5RVyee#+oGby?#^wN<_FJbSBXh&>xFq`P@c0B_y z|0p5IhnLC4JWEehCoOI; z=u>+1jzq=uN?fun|F%)~a4lPG)rSilsp&7Z`mLrm>7%$0OghfI=Fh z(L9tfHC+{QG&yF`F@1+K zq~TWOnNv`Y6T?_ONMuf5D>x5?N_bv^3mHn(Y^7)%1JTL)SU%t>7eZ$lY1ruqiPTU; zK444Pf0lcHnhPqmX?ufiEM^&0g?|PQKr<1MCi1CiLJ7IO7LTg zLfY7!r(<>Qi&&*tzr#2A9GaH6)!r&=QQ3X?^d3RRx+caW{&mWlV6F4U>(a<;Q^(ka z*K5hmCx0~={S>N?Hc#%#C}U|N{(J6-pbuVhD@k_gfFG5krCsNh2$)AonC74J+m;;Zp1*(>`i2@AFj$kz?q+4f8MafRWdQ`yoQBTR%- z?QOuP;t;CBoDIK9LvTJ`jpmwOsxF)H!s*O&d&{!~+uQGJ;Ng;75%xjJ$cb{00!I7^lAw!NQj`5sD6Rask(BaL9#fvsW1vyD8jOuqOE) z(Pdymj8GM(QEi*laH{cN-jr*k%@gZ#G$GX`MWd;Uqmm z@lZJ=3DLUrvY0D#OlKpM zuk=M8HoPTAq!WcVsKq0}WphrBfx40q;x+|#pzYyOacOJCg&bSf(jTpwe6dA(*=QYq zJRV_uN6YEn#IE6)t1Mh2EHqnkie?7OO}N(bx&bYdMOg9_T#)HmLc)q_C1qxgaU^T> z{U9wCd1DkO;g@%YhHcJHcs{XGnjT(*WIBj7c~Y89@7qmJTMJNM36ojEh)}7y0s9D? zA4+!O-Yqt6$MJ3X@SVi1U9#j$d4!$y4u5kTCgUY_&AsM-V@YoK5RL!!%ua&4WcJQJ z`35Ng&GH#6nT7EeEZjFW?{Hryx#9W-RpwwR=^@)EQOe_tZ@)eztF6A=^Fc-ah(Kal;`@BQM^p1NRL(yX)Q1JJ@Lr7kzm)+6cf z|IlrH0ixiCm_RZHWI{YNbGp93Co@w$WpWS?6G)kEwiwRrPaN+by94x}BGGDppuwt= zTDQtf>v17NGpuF~Lz5h(5RQp(Bm*1EH=RAbGx-`!bOa%zuc1g6-)_5>%ovTUhl~W* z0ULba`voV}a3+opVT4i-H)}ZeD3R!9uW&!HXX)}}LYER*^HSmXur8`juPoY7*f3!I zOZR)Bwik-VLIbosq2`J1ZEEAEoVF^n(~_Y`Uvc+q&jlJ1y88m8`4y+Z*cJUyrmPt@ z+B| z)Ge9!jPhupBjh^oI^1K4ooOC(3|E&m9nchi%20u#iEf5nk)7@!b~6>@o|YMFv6LCy zVZ3=tYKmh@p^ZOrwi$PtA{YMdv;B(2==vj@=wsVl@E6L9kog`6T)bmW5b=N(^7`mV zcXEjd2zzHLaU6!dCV1~0&^}bu<~Uqby2n*f*nqlHIoBeV+NNF!?8v+*B)^b#%V_}< zZ4LLgAYbz9yCsI*QjB=gJF0a-wS=>8bhMC-iJncPoMI#rjm_=62STJ1r=or{Q2wXi zYgQI4;e0by24J(^m(hxELLJM&@s&7_*}t4TIkMl`R&G~1r@+6pYKoubHP2nnaeWDz zn_eb(taN^X)D)lblHE^l+@_agMJ}MXSznGhoq8-1W?Wnm-2#`OLB?Ljxj3AlR9Y|~ zu$7mKxA@HYT=?q#FiMsLji%Db%_~K-F2jc9rzFQl{}C=q^J$qpox8=i6~d`az8e85&aOnvogAw59Df!l-Nmr1ZR` zz{^kB8AU1hj!d;_;KPxm#KNSAgMwX9!h3U_7FjTlcsOxCy$|t`J?gNCnecHS`fz_Z z@m+mM}!VQm71z2(+<(tY&SJVZhX!nl38$>tzo<)TaK( z-mqOPJ{A)SoA2$!TqIp`jH%4GIh>3TSpH#q^Tv{`$c6D9$iR2zuZgS0=9GHp3_of; zqDzrTaD0@NMV)9p=EH5Eh{>0=!fpFIHfhkCjmH)4IQ47=l55awUA9rsQe(z5*tzVw zoQVm~1QyJCTE>pwuM`$RZdaaHC{y(#Wo$WEX5I3!`?mzt#|>u2*_@Hg;wCDFOd5n8@=H@ydZEpBe1(<#OawYTGsru!mjIe$S zw|LnyLJl_{Ag)r}IPvB&wEC*}isk0?%|BB*Bg@#zWkS?4jl1Pc1Cd9EZ?;z=5C%Qb zjP<|{&No1b#%L*y=hflpn+D|%d-phWv!Wke9R)*l8Y|qi=t%+={(SX9;i*x+`U5WC zx>lh(FN4A1^>@Wt&b@vpTxnOGhtFT2*I*^PW?>>2LW1BF=^Qkff%z}dX0N(J1njSn z5zJUCSuLG!p>b04UMQCe^nTx@ql=Y7hVLRtE}`Iy)$1V}A!GZ(m~3WUH%T@U_Qah7+D=jIz@|!ZpT20PX<7fE;dkhy@#ys2kVQhcAk}J z|BE*Jb}zrbR6_2&edv#mq9_3JSlU5hL^<&$2+JXqmxG~qJ!`R*>nwH7ZYtY?sI)CG zLRi6*P2BWX*WqKUr>oUunH$JoY1Ylx=yHiyKD&41pih0ey7zBLfv7j0PKsW`lJbKG zPmt^jWf-ERD4(Xws8YUOdMT-6V^-Gmxo(2{;8O9SkZ&rzxzXQtEr}qC-S!yzx@kZR zZFH@pvMZ>0cXnYWz4>;|CR=@`)2OS%UCUyTPZ`o81j*yN3F_|3c1_g)X80j{t%LS; z9*BwAc+GL{7k}!TJ-YlvrjoKpX~UP!ZaX^uz-|lA|1iEBW}*vFUz?jX{(d{Y3}?GG z2P}QhS_kmFXZ=0gDZ_Ts`??8OnCIsC@G@>*`^ES&mE`bxTytWc`&oLkap6XKvuN{Z zYx@`XYv7vw8X&&}i%-)Xl_Z6eEECsGy5Gk;2-t4}-8=^jU3tHpSBz!*c+2j;Aqqbt z+ZFH1rcLo!dsR0{;6Wcw|7cVVON;NoqgRF7Sdo0T_M*fMIZKs^qYDq6pM z?Wx#DpGzqo(4VJ3Z#=Z=?U%iVH3hO3e%Km6>#ras&i&xghTf$xJ*;r63g8&ndL)bw z>E2IBg;on!dbUPsYIM=xFh#b0j@Ga`QEc5^cw+zTDWh*XOvIt5i*SC>K)D57BbAv6 zzBA@o)Nr^L>ZV@?{dkZp*N+t+qDF47Cw=}Q5N;W&s(4TY9s#|C!pdJadx1w|u^FUH zg;WYm#WXrUrzgJz#kg3LQ?T$0raBw|YiU*%4v)zBi#MHL0$HC7KU{gzdKhrFMHil2!|o83um&d7M0tz|Qod(lUx1ZK{-r2D9$kZ6&NiP=$13aIeJ8M4=Q0UwsF1 zi__Q1J{75O4|mAA6^q96Z9AE1LE+EV%tt05n>sjwB*o|=$LWTpu+!9;x3fr2s?Dk& zHg8zbKuOq;OecQw)PqJbs7C3ALuEJlPuG4L`^r7ZrFxuZ7AF#JmGElheF^`WP5w02 ze~^!xlNu(CAo0_YtiUXh`AeZduUzPKM1Q{SPGvK)TkLU`@w*%3eh>J;VYq%v-xva< zT`;l;xT7A`imbI(^|O`j!FjdO(_B*CCmiguNqldn@tz)Wf_^enh9eLEP}P<%wM&i4 zV*NY#{oj@Nn`OWzpH4E0yf$VhYgzA$vrOuB+WQ2+`5T&=!-dV^Br^>VR86~+RPdX# z4ML=xc|skGOSi?Ykn+3?5pnt$ar4Cb2r7mpy~=%SJHQHYn8(aV#kMNWl^Z~Y4Mz2F zF~O4+%Hi2kDC8VznCPK#!^h?-77FJ4%OD8BHqD4&#grM2N#30yHA^kHzpKlyG%P9l zOsqW7J$b6XGUY31QhZ8@ko7IOl6c_^lp>3v&)XJO?~79!=w~{ZYBHkBDF_!|4u0pC z!Jvq=1-81{Y)_MpHNb7hjX%z0%AsF@CZsHFq3(B{q)~Bi#dk%sAxBwbWy6n_Wl?0b z-7%Lk2tnO5F-BQTy^_RMSYbHLSt0NUk_{r|Ch5_L4|Zw>#4MUw&rq(?@tz@{C`Ui2 zSv%jGOjWvVd9xbiWH5fSpmGyd)~oQ-WpSZxcUd&t98t}vq-~@ybx72rix!JU3J(J? zXF|$aR2kjpdUn7;DkM4?S%v-3(10Z&j{Klxhmt1rg}jgOER$|;!*fhLoM(xf4c1YC zILP!m2Hj4I<;N+!8O3KMzGy#|r-c?mPPwyd!-2!AMB$nJAIMfDoiyAydTGWqb9;M4)P)DFN>e^}AGVcy7karWro(q>` z$q~i`UR-liHb+Ci`8HfONClf}pAY<}6H>DXPn#xJOp==9*{r{sB9up!7u6;I*a+UC zFI9|OZ{Ou(zJ)+x4Lww!ATWGbft5zP_#_db7@44AH(|u|JnPs~ z>=T{G*w8#-wR|1LWPR|JTau}>$qQxM?6DgFJw*$mV;Tu*N&V>OA*4J5)kjwu_1vyb zs(v_^2x4DS1aA(HL0N0WNyCM}sHB|aShr`xfs#=I$9X)bRO{GL^U?9^L`uESH&;n1 z?{l`&EBbr6!-!lyE85b)LT0*=uYNh>t<%KA>K4&7;Zgq`?8T z21pZoWds1{XyT8(9ka$m2m7I}Q_o)Lv=!EhlrU6Lej-<2Cn5DB-nHAJ?SD>BmgvYs zmf7k~IRFhiLKRm3+PXpH;pXtZ)OQNC^#^DNYM=Bze$DFyfnz4-YpdbYcsG}p(f%s6 ztx+eoF5D#fOx`*8gZEb!Z`~ysENZ(JbEebA5Gs3jpHeO|eP~x>ni7y>O&;f?y(S!4 zz#wxWNR(O0ZNr!QQ4a$Rw-WzE7yXr_1*D{u#lYmcgN}n1NX%A?)(ehI+SuK}(2k)zN*X48~1*q)-%=03#Z&n9;l??0~;RB2azV{>szIsUrD#?h# z%Qj+y?9N)NTj6J(Ns#;ZDO~-@)L%3*PQ3=|+dTW`LoMuF-kvMZSH4eL!-Aej6KN=^ zugTOef<1>eE_A#GTV&tUKc_GeZ(V?@WvZBhkocKyQ18ou^)l(_$5-j9+)x$LZ+Li{ zK~)l0ABYz7^Qrq4N=lF_f8lBl<+UY`*81LHW6_-YqR7mNmAK9t-wEZgB8~LzJgYI@ zabU-oKsRfFMQs|J-5uf~?@~}CsSSDKzEsGb+b%DiA*Iun0-5n%RBb@ll48Dc>qC;m zcPb>Ff-)LoES*(Xws^%t$cjueM-$5M$I%+0i0Gd>i}?+N`F)zs^9|1SLut3#EQ!eK zlOyZ`RBj4N8oLp|AR@A0bGocm3YB1n#qYojK zFZoOh!ByxgG=mg`4GFJ&PwdSJGfj?t@2;)7_lA%SaFzE}=ii~MPPIFQg{THo@mCc2 zPGh-fFg8oFkDYf!m%y;@!f7C@P9c-=eBejB8+0Zxgz=w3xinDB>G%m%lvcD!nFSDg8p;dBns0?UxIBT#gd}6q5 z&$0hnG-QTX!Wde05NBH9aymOwqjm0FjV2ISQLTR9mkn3v*&KhlwC@Dw-dLAWVn0&;mEk0NJv+$CfUfUT#*79P!R$ zaA+rw$%15F3^jEhz(aAd$}N9F#<*XfW7w~hidK!UlA=wiQ%E}3P^HMW6C@wc`gB!a zrILfd$tWGV>f2M=0xhFJ1`cByfazPTO5H|a0GdT^{6wHbYG=uK-3Q3-64zPrt%$95 zvP}-Oy8Ojs+~b&>Gqf|c+K*301xOo9`9a_G6>v}j_U4*z_s601sQ3jqk$)!5o_(CR zX0xVv*5){#A+Y&*&}+E5K}R|z8%Q`D;cszN<@;{fp0(Yns$LkbxFrHQzKa9ttaoRb zt$-Fo!j%${(YECpB zA?v@g+hhw>ID9H&1CL6MjC#0{$uj6^pcoaKrw;6%sZ|W&c^$5szE%7IUjP1XM2!1n zjz{!5vuu_i$vif|0Z&KRLcZ|%1s}nsZtc~zk1CDC!r`qhN_{DX1x0Q{& z6TCbQ8DS^)IB}`3k%Of}Tpe#5iDt&wbepjafkK{iI`K3D@pwtBfu>PPwZXY{Gs;uf z$G5PPKWo;yXQungKF{*Y9-C9m+>u+l9?mE?xr4?yYOdO+Nj~~wvKkdcK$hlOCyZ#a zew(x0t>775zhuGOi=|XA)j4jbjvs9 z1V-+s$h%r63saLO-BEt$s8Lk!Nv;$@IflZ5ONybCC_Yrv?0Z}dvtKecC_m5GW7yOH5UMkb zw`*R#G7$+6i|sJNr$@DSYH8 ziswD!*D|fRH6&Jn*HRRdaTv_Jo@~v{Jv{6V%!KlCMKm(KyH0Hnjg{qNq4IN4qPv3# zkOsskGqhyTp_oz=FeK0+G4I8WT2bUF=f&0dnEm4vGa@s_a9>qtrfb&3xp{84GjsbIB`h}N?t)Y zn1n^@z-dS8z!gPFSYF-4d^x#dxj-1|$B7A@-T6d%7FQB4L$JbOs`r(i$R8g$%=mYO&d*y6=+Qh7 zC>+y1toy&YV!cd9PHSDP*XZ=nFKAtKiCs`sKwKcBzC?io-o4oNylKG#+G5^pdd^=k zZF{-^PlEn>?qh5IddQDj7lRLfp}c#+yIY0uRPIzU9f@tlv6s(A|Hl&7QjJy;@P^X>322SG-^Cj`^EMVITjPU^E#&#WB+u2 zlFKY?C;y10y{8OwP_i^*4O%8Q&7B*a#Bp?7AJiIv`P^M3TcKghII8crnLF0GQr(`%j8!uLVn|j?T^dY{isr)hZQt zt&%7uOT0v=BLyBU9;;s8^BPfo_u@$4GJ?Ah-LA(6%RK{s_!=x-7}9@z(HCwizSZ7Q z?!wlWl87BOKjD(HDg?bB?NQ_6(wXHVDC!cXwNRbuJ$8T-x~W)gc%&UEXWyN=9e;d z$*9z}6Q$!zfpfzm8*gyoLgu*jLFvrF0`uzag%t2;5H)DROz{hs>(NUkH=_P*&T?3r z1UVkbn~I{*M0cw(>ODfJ4!LcYt0)iWK>q6^yZo0UUhmt{#MYY{_wOf9VjZ?k5*2y` zmwkiMkM*4!e2?SMJSG-qZ8F?=raY?jeaXHLEm^Uyi~v&0dy2ctbd`xxDtB~q zSnt16aD)+@X1?K$6-BQ<=@~5Se(lK06usG=xQ)0(_>{;>odax?dJY)EGPymgxYr_URO9g4abbrcrD$!v0Y|m zjw}oW-H{R+Znb@>R|n@vTcV|Qn}OZ)5ue4W&hjm+ngBf~zu?dK)(*@VhL&_m`oahm z4{cJJNJU0-cZx&aae60W`sEi}&RX*-+gKh^_yvrVUoobjMOU2p`D_c1gLq}}@E#r9 zG`bFv!RTS+@~t}T&;x+`>wFUcTxP$$ihDjq6J6f$^QR#IiqlW+o_zM7C$#$YqRJnI z9y(t2o-Z7vr+iwyryeoqzaAy{lQ3AI?dPs3CxgAT_)qW7;1|7%qVf6EV;B3{Egbt5 zvy{!|J)W2_TddFq@gfL0ZIX2+iHCc>hG5c69-N`Ge)-N(0GMJDymQ^oyb~brQ>z-X zXkopj-;RDV3Hr24R`UU6powGCM_4VCPrS(|#~7cZNbpf%XpE+w&61F9G~w0Q%x4Y#;x9B@AG!TFlR89u!r+OyL3k8v zgLVh*RZwiM&M>p_#E4Y2F+wi0hrhaKFeoN)%LPZDSa^x@8xgG}tnW-8j`ezd4*4`L z+^emo$=pt+`lGDi4}+Fw$6+g2kZbbmHM1JCF6bc_1wHaXB9;@#XAPAdFo zX&WBoB7 zj})@v>RTB#g+#PC?2hEc5wcj^tv)q8TAfQ;m*g$(BR#_mH8`=@N=X}1NO78Ye8iUv z(3;l&*#yGco!>cDqYBN<*GRQ((XuH7R*RUBGqmr&0B=&Rjv5uS)5>BbL_R4fD|@ME z4c^KWLjhf}Uhh(yg>kTgllOQe5EWdft9%YEI3K2eVwTuF$#hN078Ey%R_I}R*Q04Y z)P4?;qQxv6@w%n%TH%{@^N^h;R|9xbYc1QM)Gl0Q_s+0C?&NSH(!Bu&8xs2S+@D-21Kk+Gz;Uh;qnA}YV2-W z#Q`T~#3eQy2^R0*)o`NBP>&ET+X8QTK%M(2Mf{9ZlYSz?des=>C$>#OI@hYsT z7>N|kAMCIM5iTs^v>%DN*m)JV8H5%YJNLov#ID^UW2bf}dp zr=Oigj7xUris>bDu%iHvAPc`NU`pgZ1Ggkqp}i3LE)B2HMdcBWNHxn!TI|12;-a&< z5NTmsElw^+99A`_>UIQYxZx3LIC#!RCrkXGgNi{`<&T?`>uhog%qP-l>UaNhW zO>dUda0}+XI52lo%M>n-+5Y3}gMg@Uz04352`K%swUX4>vs?5z!>mRaUIZc+BoU1A z5gsCKQ7HtDR?5La06Sk!NYmqNc+<6A#!_gm%@i0X76Zlv+{!kR`&h)=GzPEfOW>Q3ymBMrSz^djuw&?xqfr zU4|AIhZ-ugP+9@8*8?z?2^aD*ENt0$i;Ldj7~u+DGd#eTR451hl402FaYsgm$`*Ll zt*#sV0#n1wKz*m(hvzo`+)OuVC-fk*4R`K-^(ACc=eZ@(p}lmdw7akXjzJcIYJrH0 z9}^lVA=iGbkPVha9;D91rgE0mmhZunyv`vVCmOg>U2=`=`WVhLPXj9)?JW>QP+>c` zW;gDP9dRG#yfgL`>@5#VzfTgJLq#{nvY3+XxowDYBBy%uqSyaaSgo*pl~>@c9KxqB zV_*DU4e{cNt~`NeJ!81mA7R*u2iK2)S}ljd9EG@)z+P|*x(bh7c8g$W+LjrkEkKHOMY@ycO5$3*zt(b1Vvv)*mq)ok|%Kw zfk0j?Ntj@zb&jN`HdJ-wEqx5tw;0#g~vvFRdBaLA5OxAn07Va}U zW{25GnL|9s3aV2wyxwP3i5Ry!fPB5oirkLkXpQ}NC@f|T68%poG@RO<_M;SyMpG+B zkJR`%ztP+7Nwu;R&EogWzNsq0dE+`E0QdSZ$ar{!DaxfnJT`Lcq3}T*i63WR1&*GZjzhBo2L2LlspUEt zCH%Rdm2X;Iy$7pOi3i(VkS@T(l;d4|heqht8cuu}=k_s*huy;NMGkmgfY^Rn>Apld z%dyK<@<o&Gsb!?ZWXj$h4M7QLq&KMKV zTzSH~jJ!c@uj@}VO4{$~1T>Ju=CJ2@UQQlz0`&Bq)GYN0(2)kpw?xEbU^^Qd&2sag zbt#wn%@9T1`ci3hKP#Y#8gZ-z|RFV4LRnPVh8hLTXA`u zb2~?g)e$eB`c>bk)#=#?G+b#qTL*zBh7eE|7yc|Omj7vgv0==xi%(sQoH{ z;)YowejNUHWYiCP9+9mDK@|h0a9LvoclMI@4#T*6t-$q+q*E((O>@&7__ut?b$duH zrJ#wT!o+`SeGN?LVp431JnNl^q7bO@^5b3B zgq86MpjrSeQU8MDU{d}=*kC#R6h7~J28oKd#p_zxlehCCibtb3^CF)V86!X90?pAwpCar!AcoG7gVc67|JCNmhUbP199lX;pF0| zG0P{uOgY@QrfP9cQMA`iA@^4vgNL;nm$I0puCDiW=&n)ZfxK_R2HjKL&kqA zw9uOOII;W5#)6+Igd$mca+?S??u?fglmI0Ip6j7LpCuP#98(+yHE$jdO>iD+@!L|qDavyg?IJ@)UHC`xuXcl`A<$Ge2>Tras4$6Yz0vq_ojd^cj!l~f;ujl_;4 z#LY&m>pxFOPQ^U6?=a}@u7RBj`0I%@>goknGu+IhECM3B2I6kAZsvVwn@qy^31a4^ z+ydJNf(Aw%Rz?=8qYeGp6PWty5}YZRmFC5JQPW?ghu^DyF0gmV3@(u#WKx+5u!8Z6 z!LRIdpe!9~dbWEI%@Asj47T0HK%0!nH%>n>;y!I15qJm@vE(>`>aZ<8r~)l1ZJ*M+ zAWr_gyzlIl%wr+kj<~=Y06@!cMHk}MI5qxGd{E)itRpJd{b5QXTiYTsSUx{L10l7@ zfl!UuYBZi?h6BxHBLkFN1&rL)t+#6eQLv^_5f*9Efx;d4{UpX}VCxZ+LeztV#;#%Q z`*0&rGe`vLBAPILRuMZEGh(9G!f6tM=Ryo6g`T4TxZp(rnr$;>|9Vvw^dc~lf)pnY z9{u6zFW?{Gu;S@-YBRz1hKO7?mFZNlcN^^z=MBA*VF%3_^H5$(wR1UgX+q-cqSFkf z1+%wC5TE1NOYT*6>FProdod zR(CXcyz0w^vKR|^wj_bd#JVLum)4O0%z%lAtW$VTQTtWln~QkGc0cuYzu>*E6J5Jz zytg@uQ8MS*o-5S*&_B=<+k!`?B#NPa3YDE1%R-j5&>Sv?fJi!ibW>_9k8tPvz2k+QsiFF+# zIDP8(a*C9ey5S=03I+R=L-R#t8C+zgW^~;7l1FS_2Hi64-oKqCan>k!z;z0~|z8(x%)sXOYNLQ)GeTNtq^w-&K3NeZWlvEAlBPBDY&J zhg$Bm@!pNVd&5tAgDMgZ@3@8^L~)|5GwZ{iq%)&?8pr^uQW(Ibd<5-NYAn=8%^NY} zjcCM4`UE$=I}ep+ScDJ+t~T&6U*2i&p+0Y~Om%GvF`BK&-homs5|spMLFdv_fI9}_ zpZ8MfA()Ux=rJPaOOX(hqS=5!H<#7|9D;Vjea850Rq*t3rNq=0I{ zvQhL3QZBnswRMhg7h{M4?hivjeZiz~(=&hvxT?n{SGkNmGVzrNBsk)xQN z#Zkr|E^}1F5<^WyJTGs}S@e_^OvNSGSJ1_@P1Z%*7PsfnpN$4%NZw8IBoP062i*b1 zXz1G2T@6=Yl^fIM+cj;gTL(0%Azrt*=5 zm>vRxJ{^z1+1M2L&IImyd_4F0y6M`^L|24_7y9bk)#V%LIJMOpoUx73zlBBsf7yPv zfa75MEwn;i?z4rlp%XC=4;;OOwSlQIBQZNC@V?@|T{01KF#LAOOw7Uf+a(Jz2h(qt zti&A5zg@BsbNmXCRQwg40sQ;7>e+u${Nm$RmBO|*PR2G)j>KBT?0=CGv;Rdx%>FC> zLy?&M7q7q*`#(+`f1Nn~aZd+G?qF*tWa|c`W}pMI3H;|^VWi_^Vqjn)X60n1V+Q_W zBnBeN7#o=z{I4+O4IF?B5&xT5ipGw%&JKpgj>Lay4X71GTPI);3NZs5y|TNVF)_V7 zP-nkM_jlo(fh7UMIHk;ueo6Qb0U7@x64O6UEdLOf^)Hn#TgqoncLck{F3FP2p1Cr z6B`3N0}C+hl$DWznt_>ufq?>uCu3{$uTbP2Y>k`^f#EqHWy}p7Y#nV)oVbYP9n68E zE87ywi--Y>Q8st7`c)5y5QhLC69X^Mg20Gn9##Q5J0lay-}rTNFgAe$T9E@0j^RHJ zVm4M*W>#X8zhI1voGdKNKz02(h;9A@#>@irir-)iOhAbkfadre_SePVX@NLQKv_LM{fKK)|7zZaK^B=T~jKGK_prL-pV`OG!X9AkyZ!lIiW@ey6{|&~@ z#?15we~g^$jLd)3%f!gR_+RB^<^0uFe=m=jgBghVcNkDFO#g+Jg_Rko;lI%`u>tY^ z;F*boo$XIrW(IZ^#y{#{W@6{~)t>*x3oFoaf0W0}&cw_LYzTkD1M>WUUZeCML%J0%Kw3VEjY(ENmVaY=7Xfu`#eQ{^9p*>>Lbif9M`4 z?tif*I}-yd;~)I7voQTv7%TIC@jrHUhW}H>wc9EX1HqgsNXR|svv;=ukY4lxDj)y} z34wH6MD>gvorePUKOaXE+l&K5|a7z)aj-ZwGh())&y)pB3X%OA#v z{+bp;dD%{0$5Sjg)4Vo4s%=W%7}~0L(;RD8)fz8)GS)?&FPs znX#jm0F}ERF~ky-FwN)4qW9cO4&he!t!>Zia=AaQOMeFaJ#Vjl_v-$_c&&RDZf~&j b{d1)oHivw#mu2n#*isQdyTjr5f7*Qk;y7U& literal 0 HcmV?d00001 diff --git a/media/fitting_sheet_small.pdf b/media/fitting_sheet_small.pdf new file mode 100755 index 0000000000000000000000000000000000000000..14474876e24f7dc2a854c1a67250a669bd67a583 GIT binary patch literal 961562 zcmV)rK$*WKP((&8F)lX>3N#=vAa7!73OqatFGgu>bY*fNFGg%(bY(HH8cu7J_>Vma%Ev{3V59Dea(*KI*;W(pTg?_l&~ERhy4T%G|-FgUi1SL zF!Q0|Y+z>dz5YaG*b+q^Qk3n?in=!oC?IfB@{j&_cu2|Z`|aA^|26G<+vY!l{M&WD zzF+$LuUqr$xb=x1hRC}Js_BJ*D@Bh4AFYnj+{%>m1uaCFO(7#`=3|=UFxz6wR z|MPUckS@nczfKTQ}J|_$36b*e>MMeze)Q(%u{=r8~Nk$ zikJ84@mOOs-rn2c^D-X~^x8dNJfh13eSi;idY?a^@riC_b5vXxG`k!&@lVt6K1|PM zzHN87j~e@R=OE;yCbP2C`l= zuNZG+AnUC^E3Ut@SDL_U&g{7}EZ$-kFFv*4H7C)N@!3>_J}oI0Z{4>1*7S}MT#GHB z+bhS~xJ{uk{@Od%_-ic>aBZY@rmo=nx(aw56S%ft4)V6ingL;~X&mccoVsZW-WP{y zd&qyp_% zR<6Dq8~H=&b!zkY;7kzubsx_eoSq6{;@7jfQ6PX9<<$k82AqvOt52;gYGc{E&!BM( zj4mMnEkNkb@FwZ8ImGIw#sg4X8q*?8(bS*-ic9AD<5`!ZbiL7`Y?y$Kw4iK+(t;L5 zjZ(`R!9=JT*$?+}Sef&Cm}x%GAMFswjD+isZb>?%B@F|h z?Yb5*1`Z-^I{}gY?&y%_C>=gJ z#Ku`F7>BKZvS%h}G&s~?tgVe9F+%vt;&RY~!@n0&Kv3lYSJ40!Mt~Ne?9LnwQicss zhXrVWo;z^yYY0u(#s?Ya&GX!4I)kEGZcl%Cig>v@r+}9+)!+IaqM67Zp9x{{krH`% z86UlCFB@w)$X|jf6n+DNv1v<@z_`eY&Op2brk`MSFM$!PPQe4>AI!>-BP=P;`662&FcO_s#4A zLAQn?P_kw7wzSz6v|B-f@O3p8X1P@*NL-h=?pTUc6bvYN$hG802Cjv%Nl0_10~RG)|9dg$0mf&i z5UOpAn-6b%JgY9Es|q%N*-6@Mz50Sc3Z>P8L+pZj!E)Wirz3Rf1(f>mADM?b$8kaC zif|QxOTd^VV5O1K>X6EY9T1a-Ocvfx^1jj~pin<)P$nbNSb_w75WZljNJfZg8uq+{ z0TlVgzken+w(a_7{^QOP9^7K?o`Hp^j(ptVNs1;5g>UV1Eq=oBA{2hPOo7Mauc?<~ zOd8lpq~roEW4;3*+J)SZcoDSDS$&S7G?)N=G8J1om?|BkKxb5X8sdv2h&wld&SY2+ zti}RrNXBLDYMk|vy&4OM#fPnBTR<$vI}DxX<@kB9$ zE`Rt4XV{JV@CnPCu798S9Llh*ha#4HE2$`T#S_*~pnCFRBTOZ48eEe88wJx%4YU^z z=)`ij4*jC`8S#c7RX8KFCryTR?0n>C8j$no!19i=tJ9Z5PDlX4e*kU>uRd@Zk@Zs^ z#z;ejqG?d288MFzEMH*gB(t#=FK;u@-VCf(;p}ej{q0H2k13qN843&_=GUkRN_NuH zgj(FxGXr4bJV1wRgP^p*p>fW_hyfWbQyK%%BmQAoCL}=POf|gsBv;A6KbfS>5x6Mb&2-G)CwqSFEg-RK&hq!;KKBiCQo!q z11Lha%Gqu`Gz-r+64!`O?ioSP28A|0>_5nOE~=b56qw2>-~fWFK@DNM1ks?VoJbJG z%BR4Z!)ZRGG1n>!0x2ZoBuuGv6fD*jb%ziW#}z1$rY)yF3eM1col)AfeTo{V0gwE$w9yPxT7&uF$QY+P&};S zCm7IrhSu1^>IZ`Xh}-=H1GI$a6@7(Z07!WL2?nqiwA`i0RZ|5 z282H|7(n<14F+894CDb{@?b!MvtU5F$ZH1!?vFp-wzqnrU_k2Kzg#c?puaB|0HB{> zz>5U~42}OM7|<3?&tEDSaJg*;;CRZja4=~!Ai7Em6xy*0xB2nKjbpEPb^C-Y;JNARi--75&nCX* z#P{081A!^=O>jYP?>&`trQ|FQi=Wfh)p)G0mPE`Bf2*A z&qr)pC>cNq`9|<2z_OhacBnE`V+tRfwMP_2UKErbR7S($^!T!r05Y_xYzkq|#Er*? zT?v!Hz7GOWV)zevspHzw%u5}kPndbB3C_IKbP?pGzQ~sZyK#6QZl8A?$L%TiX1ef5 zyz=ED%HseCKYXNsu`S{~5w@2Pj!CRI_?aTPvpNrU$7YZYzV;r{PJfhw>L~LIVWcwo z>iu|)r>1n9mhwRdVS@7^d)YR$FZ3c5jvtX%8}>i`<*jf2^{s9G`>l)MzdhZQ=AUof zts`HQilR?H-D1A;Ee(wSd@-G9>SC5(w>8R__#K8X!c}vx-;r6rgMNpAp)catIC@a_ zw%wL~DpWU;c069s2>cs})_e_XB%m+HgF}qn>Tb_jo={fTa(mpKkO)|Oy(d(iV0U{UC5T><5{0UcnF2 zogOf%YyF^Uh(*nu6DSgmR8{Y!Kj1!W?ZKYQ7>zJ3gN~M?1E2o}(>} zgMm5P16Z_Sj&@pUIqPk{J4ZXK%QLrwD{Z?uEk`@EdX*#r*EI?8ChuTM-9;>xKVOntmXnYI8UjfBsqUcK@{dCQlM zB@>O9_j{?mQx_s*6{>Z;e9!_`W@EXIinIe0Y6`cmfMu&d>99`ZvXAKDu_uqZHPf}l z4qkh#1y$Gf`c6tRxtJ;?-A=|MF~l8FCYtIhSvVNFS)}HoqN`(03taF16T`Uqb=D5lYQhN+aPH)^XN>a z94Yir-JeND-7O@Nl*$aoiXE6-?m5W|c$4x7DwRU~C_5#Q|!V)dW zzGxv}Lg>w}T;xvGt`A}W*z2L>J{bsQ*%+4>Z1+lFxnq%^FqS^P0nl8(r>i= z<<;}ayP?D&l8Zs~)QK)8^CCQg_``%xkaTSQB zYb@u)zvBCn_PS9@wLQE7f^>6??n>VNwqTRdh=r8uzP*p2B1FP`rG)~o*jj^ zl z!3~s-8?d;Guxyp{MnM#EZ~;qn!i+Cd@hFHbtB(V$o-Da7>d%Opq_>N3@u*w~hTIiI z=)p5+s>e02J_wtQ7t#QP;}0$VhoZg7=60x~%%Xbr8B7Nk#(4zIm=NrOeX)+Bh)UQP zAu>+ZQDh>)jMD}jyRC6V`a9WJkE*&(XD3NesJLO@yKzQIAO4n&Gdp*_RBT;wt<9PC zYA0rbq`qN7bwRX8jBJ)$v7**?0t)q@!GIS590%=mR*~Fc9rl{dtHOBz9LfwI=q|W1 z#+k*-G04)bkIf|jU2q0<# zXoLkR0bkNyvuwi5>A0}wUl157B1uQ0P!Scg148LV>gYw3Jnr=3)1&Nm`;l=F(ac=Y zY71O278GdIX?_&Ez(tj*OqqWyIg=-ij}N?HQWA!sWG60QjX$nS_iftl-EPG2_-8xN z3M!X>)lEf$^T6(y4$q+GFT_(1C^WL(4MP^V+zJk9oTS^t+5y}oP@Q`Mvn@S%D0#x@ z7^8so2C#Chk6R2Hb6SzpmdJQ|FzBY1Ura`b(_>VP!iSo+t{TVGC*XlBd3z$1iUUAN zV5e!_$YLVYZ{}dGl$pr`mtI~MqHbZ@ZmCE6e#Qqr)xCAM#m61)w#lF1g~96?5evIW zgkM~ly*KJZneF;#^WInkOtM{GO_}X3+Yx)$+f!bi&q|RBCuTYss}q+{U0!~`i9ZUb zH!zP!(TysmRA;OsS?+>lXoG>chdR{c>8Ii;;0~{>E=LQz9+O(pCcw#JstZShC&8&H zWHG9FO3k4xMnKg+6b|l4EMpq22!U7->ocKpSx`;gIDB@bITz}#4Z9!^Lt=z**IpzK zhGVY%7gT4oj1N>F#OjI_*MhJc>Vv8|+_0JMyPZ1uNG9g_Av9-TLxGoda22QCn~;DP zIQ$lt40*1B=~dFK-cKW@p#is4^Z*xobm8LJD&2ppv7iE)+)dIFp0+} zCCSS}HynA==Xuv%{21x!+zreU0M#)!B~oKhyWk*x-tdmX+`MA$cQQ8@O$(Bcsmu)! zGR)i@G%Y|CFF@vI5i+=mgl7x=(Y)=5cIxJBFU0wd@iyM|CKP@T@e*qpU%_0<-rtM2 zP4Cz1CtG^~-X^jm4Bj?#Y56zsHh(K$;};#f?L61dq|h;*WEuu?NG$!s<*KMk8cr^>>`x8Vy0aTCG;ekhpIqSKfLdGzB{flyTJ&zTz(QA|)#T$1k%|SX^9#Jf z@@hv{KStq}njD|^C?6#;6X{aO<;na(nF9x<6_!Yz2_X|ErdC0k!r7&E(nf6OE_n_y zzQUvH(jCe###tIdfHEg3go)6Wu4v$#qw(fk-pr>~-y^>me>sHE{^oSr^CPb~i}5kD zzM@G1G6CT6-t(wbHSW{=dNYf~MxPNUH;VD}i@c@P@rRJq-||G*2;P(0Bs9xYxhukqiw<-k+@-;40sA2VWp#&|oLAvm8s4l#8j>^Gq z&QTv!t_$vqbp{|vm^wr7s%l`g*4d}{$(wFa6i1Up#Q zKzhiZxyhwdC37=KKT=KIjLmc+X`8m6$7!<8%qS$;S-ekwu6`l zDgCgz!Yo=4s|$#^kT;l_jMiy9^EGQe)V70QKY(9aR2g06g zG7XY?%H!xTg!Z6$Q;cKdBl}*E1VAt%K;7Ze>rlpO99b!Z$5LsVgOYg5$W`-Ahn@EQ zyqy8|`&3ro0Egc#vbu!V#*qwWV09X;z&zCr^TpXVbxQ>?%5__CM1=x^oYu3XTL+YN zZ$b9u0`KpWeT`W0*U7$o(fcOZ7q8QQGuhWp&@OZ-IjiL$TU zcpbclU4RolfGmk2WvjFIV-M(Hl2H1rMB<+-#vOH|XrP{UR$b)ic`@#&S9-mk>W1&1 z+h8oc=f`N`^Kzy19#GC;&=M2{4-bIEBaFAcu*Dvk#1>>aK;&lVy2kfBEMs3TTR!CJ ztT^mcv5_EMAwwH1HXPKE0gK`)idVzQL>Obq0gG5>gibn-N-RKN0l}&nSQEhX&j#{K z&a_>Q79dLuS!{ts zMVfQICn5c!f~O>NXFm`apbA_o7Y8%`a*CS(#N{JIzrLBgK4c9BQpZYcrg8z6GT{7218Z<}n`Oj|h?Y~X z&2zDfTz%)lAdFV1k|htSnw9cHIHq0%Et-{D&bKlh_Z-%JFt^9fwcGWCoojWg3}ZNY z!BCYs)j)o@&6gPcz^!pw)%i<)@X*)kJ5Uf*p zZL0@fbmanO zl3u_fw;_x2>Pg15LOYq8%+Vkd)2TC!q+8%lSrA({gqsKiX;zn`!4=kHYrAj?kd6e2 z#rmVtxD65e!$N|^pq_vgEDa}kV(`wOUYc>KD8gp+@KiEKUx7oPfE>`&&G#;%oZJp9 za4@A8XaAywMPPg_+?9{)T6Oi6_zSD=$&F`+sCeU<$Rs!xeHX@8?OitG3o@teY-(gR zkjXL45VJWgZzKz1HmBu1Ro2jta8*ZsbH;@3r$MYDv&%V||`xe&l1qV7{owPQ(d~uvi&g zkS?TiFPlL_$8>@9S`ge#B`@Td`*WydzEOC46O87c(G@$4G8BHj@Puy~Qag@qKI+Y* z?S733KfjH_BlF5>xba=hpt5+I2N={sXYqou2SCkr7B4d15H;6XJo>(K6^lo^=v=>a z7Vl#AyhSRRqArNIFunTkX7PfXt1RA@bBZk9<#ll$or=1WOTU%Hi^8pKkq(+^V+hhwT0z1=Ugg-7dYM7q= zaiVWaSbZf~300Af*OB9-7TC1!?6T0V-PIkJ$8h!Y!X*!<7uc zXXL(^*S#dw0UVrxqmyGysHpLaSC0x*h#5K<%~coc^s+#gVdud!n#)|OWMJP=z2f0_ z$OYAr!oao#0liE*BStXHs}~d89GtL6UIB3drjSHb@C(2h*mFlzFb1H>VnGWSVvs^n-kRvx zt(dJ}V0{A`9TqFW(gmg@t9z06jlQEuWMeZoqQZlaz6VU9lPk1b4wNJ$Pm=Qbqxq^s zo5w-CzXMY1#wODtrU0gb4v5)FVcfuipyj*iiE$L_pndK}QE=_2fO8(ail?cT27ivN z;sl%Np}-TQs4t%xt^B|QKq!sNIzt)1L-cA%dBK@l6ROhkTwwy;S+zaT%;Q3_KNrUR zz0=Oxm`4Z3-9=Qia8w6y7uh-60L>}7wb3s?;VU?UUYxrMIP8ovzRIB-*Z5KXZ`fJ~ zZEaQgfVZC1|EjC*%og)OUt9NEHr!k!`O~4}bt6?1{a``vx+U(Y7CWON4bj90tN2l> z7;nUXH2EQQbW0uaC2n%<%(l<1OA^Ae?Q`9zVkE2<KC*{>lmE>n3M5qR^p-Pimoxeb<|mpu)VC6KOVW4fG)lwjd$^I>FB)1A9243(No zc1RO8WISG7I9kwibG!H=ERLh%U?5u%TQhvFGD>6s0xXCPv$`Cu7qQkKwKnZ`62%Y5 z1EI}KlV&0a(++6X0*sfz$XXOVhe3dO?)7?o2$Jf@+jdRpxjw$LyLRy2w&mP#$z_F@ zI!|X70O=u?X$632y!;n^xai&{^JBbqU-dOFku$SE+sLxG?1)H($wSFI6-LH|HOJ1N zrRdm-f@3Rhe8bOu8`Yv{oN`rc?$x51^~tKI(c6mNquACZ5zBR{R5Ud;!m_*5u=d=u zmQ}FZ2&=EHyg)RR@+DS`OKmqn4Jek_zzwktvuH*fZh&s@RVlsI4`$>PtDhD$cVz+a zcb7#0yVGeRB8&*jc%F!@e$~eX$8Ov6Gsc;|bIF%pvQ$rCN}UW6im(h0;K0b_EL~re zstF?H1&F#ev-ERC?_wXIP;eeKh}EqM5@u~hXgh$=bb!%BPk^x@U$GC+3(%p%b#`uxADZfipwLm8ak<)J=|3Wn{fv*Yxr(a9sJkJX*I()Mj;ka$DP?x+}VS zwH`iOth+uEpFW$eKTgnH0hEBl0|7K}0DTx#HO>B&R4 z%-X;*8IyR*f|k=;-+&}RP{H>=x-iRLT2a7MLAEZ7_;NIm%qNkwi?f44tQiElahw|@ zRRjKr1N@*DfewaK6J!p9R4j9w6T!IjM?_79D#f7G&``4;#vL8Xwd99)3nFl2xk_pI zyugj-(-V2zhG(uT^+uvjz%hmZBN=V0LD|wk!&wsaLHL5Z>Iz{O3b?5i@_e|pJwFf_ zTqp!{v6%ds?qGV28NP45JLq%iusbLmJs(uz(h0*+cIl4PjZJ^V9o$iu z3;S$bc?!OoJ6N^09jsgL4q}(i=MHvo-SGH+U*!%?+s}jXngDz*<#eY&=QTyeDzoUh zqGO9t!2_!H?15GIs}4#U=g+6=+Ana!!B7dR7cK~HsPe+aoDK)Q@RDa<^uq1!N0}FH zZ&5CJ;SmJ|FTH@W2al+Th3xXehe3zXPS=7L&i(Dj4P%zH;k`oRJI{fnEPBB=YdT{N?4)p*E-?zXR<$xy(4O5ninLmVDK-+z0gP+GFwNdZ)B zmcxLsGl^12gyC7ATVXJrYd3f=0(rMi+Va#4pb?gAU!B6#tH?zI_em|v<|%8%!ke~y zD`knf@)rhBEpxpM?~j8s=i#w+VeSrXUEs4oNrVr!ivaWJ74W+CQ@kg_cH4>Z*_*=& z+d6FBPk5Dqr8kJl$`bD71)v#UpGbA90R8Wn=G5fr79#1qf6A*lG|_iiZ+Cg_{-lq3 zc^~;34N#;QvKhMGhSpyH9PdHK$0S$g_{{RfU<1g8GMuw~Nq-E##{j%u-X8<%KBBsL zd+rZ{Ugmgg!18t(`i-Y(c)H4CkpI{JYW}C<8<*P#o9m$!00?Az&bI`DVt~g~8K+q_ zY-hzv3lvOHo#qz|nkbmil=+lRMG-cSpt^I%LU0_>7`q|>z6CKrA{w?eqMzg|?K+#o zg*9KbyTHaWHBG=?jH|0NS-C_MX6I+XX27%ppoa>E2%^%pMtAcdPwGY+%d}g2-^m4x z)hxth@2u@c730+_cat%W+w$JBplrFI1szZ}v1q|_g#Y01VZGIn3;?*vf$xFYzfd}R zC`C;StWh%`ZEQd*Dp(+F%v0Tn@$!c^BF90ECLgSBN3e}w4Gx8${5`O7IH=^e@wHLD zzLCSvwITG&80)-sjVVwwFtL&Q_I!QH06EnBdewA&!P2yJeLXin6w~zurv%g!lT<)w z0qdZ3{&DOW`4AR`rstY(&@ddy(xX&A;Y{nGC zv}U{X$MD_B`T(lR6Y#`9%dviUo-8%jg~r82EUliI;F0j z6ab)1((!4E^ZVsG&l8J1g>Je$KR-G=4o+C*s2uOx=UE@~y`{SLS-Dlvbd4wn?T{_y z^0lD+8s$5u3A}AG9IdW^QN@b)L>Q2CUq(^uZkMO+9Gj#dpMTiB1!3392jNhN4`K#F zm=X(OZmH=1< zsfE>N@t&#QDb`P*dKzo=@Sm}jSQ=E>fk1Pw7EmrkToMYW$7?yOLFXFf)oFtzEOl3l zmylVmKRk*Ae9uN7&|+|7~JQJHN_ z5Kj8?WuY7SUsY*_X*6=x($ehW_>CB8u$WFAjDt+ z*M(3A?<=^oMaG#5BMJt8$Sv$t($XMsNnx6k)W*wLPLf-!&~0(^tI|?VTYA^sQcjPb z<5{Pz2WMP^TS_A$7}O}CZC(wN%e#3;n5{bEA8^`asLp`cTRn3vz43e{9YDaLl$JoM z(*lUtpnl1!qc{}`s&gTV3Jqq-4YA3i?_Ax(^U55Ul}b(im)Kr~Qh z#%D`RYj2Vp!F^p(j{wuogQWQZG5@yByCW9_q;8UW0rMu`KLGU!tC!jF-AL&Cy-MZOId1RAqL94$3?AN))p>NW6`rbzaieQ|+#`TsS?)v8fT`pyODT6GP@)WYDn`A(JkoEb_Be0F(7*#xAF5q&>Qh|`}sas zZg+qArorhNOJ%n5G;faft>3`IA201j(MKUi#j3KP^xvYWmFJts>QH@|+EkL~UMwgX zF8|&+Ey+_{7L*V7HQ)T~?w!6K*l@c%*~STH8G|L6Tg(8{g922Zhplc>m~VZmyP=o& zp0!Vir+B1+GZ15#>JGp$3*Zcpbd!J|Cs3byh(%FWn^@*K^`1m^kVS}7BM>3ssqc9Y zM7z+Z@pkEzswlLQnzd3XP2yapZiVg=b+d52m-);+Y4ShZpKz1hmbY%0x33v$IJwZW zUpJ)#8|+X~&^#?%NFqxfkiU%x9R_&?>_5|I04#aO2PN%xdUWIGt;fgG|2a;EdsB6H z8`M4;{6gS`!Q<8=`9;RmQ7^9l-W&Cy|K49}ys>xvc~0r2hIcN zf|OF6%xqwFqC!R5mMfKuYZ7+WSJ82ylrf>nc4J*qX4WrRbX_E9gVZJ_Dn>Ltg_V$+ zcw>QJidJFwr0_|6)Abp&X|71kIl`BSB{JtfC27Z;1FxMlf49?I3pa`>_;EN{_|@X`&vO$bnj5%w>TC5FeeJukP#XoZ+y=Y=S!%=r4!Pk>n$4 zfkwVeZSxDjNe_H+QoZ1I%au-Xk%8I4Sq8Kqai+OXb;7xyZOZp*zx12E#h8wF#Zu^3 zeMqRt-dvQ7(=XdU{!aGh-7GmvCKMoha}YXalTG%cKY`h;BOD1Vm-6>hrfLpe@mO_hO_wq<8KIsF$yIy zCl8!-h%7<^2x*<9TR{p=uJbzAN*`}Q3;c*>O$!~pUI2~I`zUK3%>W_Bl*Q*Ys@2WABoTx=b&T-khMulVRQ{$ z{pF^p$9u%o5jKtFH02GpyJDEH`@~5cykykVt z05C7PMa?tR?iER^#QsJh@8e!=44B^f?N*25{P9t;#hQBj!Y|SUhfN9eAJ zvCuz|lXl6TcLb74EQdC;a+S=`oUjVS-PT3jdUh~llpD%okPA7k<%CfbSeBi2b|1dMTEh|^y>3yVaS#TVD$rF5dl*W<(F}BUfq5U z@fy74?Ke(+uxmTCQoYjU@KjIZ+t}*Erwk%b29{Tc8S=q>*v97R_7Sx=V9Vr%a z3u3;mQMck)GcFqghMP?(t6+l^ywp0NA(mFOM`0_e7D0ocA<{ce=bnL%^j@=ELT6UU_ zjikZ=kNwaO9B%SW*#}QHLq*4S!xC*=G46GzqKU8?827qU(L^x~EFbcv5AF+$JME~b z@qw<~mfGL)a#UaM&Y~1O;os>SO8}*sH_C<#TI%Ht#2LZn0}wKF%>yX_ie%zdTx|W# z6-x0=^YMMSJ;PPs!H+>u>lAwICB+KAMFiC)an|WEikwrqh-Ie4{wfK8u;ZHsq4gyd zB!PiB0ijHN<7eL>NV4hXm!D&w&yztx9s&bUW-@>xXF=J_unLlS-65{Lw$FknJBBV$ z)&TN?TblSrzB>Yw1L7PORIY34V5Ci>cPTL$29-#DF|`;$sKUZQkK43)OPuU~AWLgP z;h1n7c9MO;;CGSzplQJAHMzP4AU1D6L1Fl?SWkSeI{Th>b;Kh+URwX^kclmEfiw&R z#yj6uy~Y7nHwuKEA!iq+2w0(los^0ijD?e%5wLTJLdvaxZ7aawjO+3tCSU~;B4 zx;_mHTT|Wq1rw=j99hs zs&;IS?x=fYUEz7M!If~r>ZXEIt3jd4w<(4=kpShwbb{&n#kq&gO2u<;@AJ%Z)GSExq#@Yna7a5)k*S%IULZ!6dmMnF$eZTeRjQVIHe~ak4M2A58U|E16!U zyC{U}p&+J%@}1EI2&D*sWCAc0+1ztvWCa+GqYI#LY5}9i9^h!lV#0+8i+@+to6PtPvmQTKXzowm=Yb4?FfS;Y4JK^p$ z793Bw%~dq)jMnX1$#+!GbrYdPFQ=~huD;1F@R#ILi|j0f@#?5(nyCZQUHt2WuuWAa zi!Wu&Wa$Nil**XNN(FVc%Ia1TCCrk;YpC$9b9vTZA6lT;mV}EUpUql}3gxa$MpX2m z5L{7REJ8M>S5NJ6nue~pIHG44I2vlXQ2MTB|9qOumz*{dJA6@2&fzn9dBbxhEs=9C zn?Xazbb<9+5ZuiuNAjtUa~Ng54SIVMjM7us0FlX1_(8}MJ`+ieIX3*>m9M7Vrm}^`cIiPL@8b44k9TorWO3OC@- z;PD5Ect!P!P{r5q_)Gh(SyB`N%4|3>M+!OVN{$qo2`(pD>6x%I26b>)+0m#&IZ_VC z{I}#tr5D|mBlUerP9n_V#m*Fu!f(ity2NGWt6eSNSG|h6B(PJwEjz$skWyaV=C6YO za$nC@yc1S*6%U4dTv%Q8euC8n9CikrjG}t=f%p68>UtXuG*@5vOj+KLC%lvno55Ii z)Qy0>zj!xQKF2pyH-7QzmA|lSwIIL8@TgJhgpGY)1o5D7@n`5BX9|{=%lqwd{i`NE)>*BN|k&qMAB%R8{3MQ4j&~8O*1LF*|A)u-Oh|Pla??8vM zpltC0a}9JN&O!tJf(12b+n|YnY&tUaWsVX|kLH=C#)PKB>DvzVh)|k&BO5$SkkbpQ zb*EMo$b9vwK1R(5k~ z2Led>;{&*Z;D5>0B7E zPCYB^g&jSmBfUXoLh^56?HOJ88sa-{*(I;E#m@VSbLL&uks|KGPO0vY32UrHeO-Oy z3xI0s7WVG|E2Tp7C!a=q@|2EG$T8^9!<8_zNUtaRtsrY6H`e*&;Uq3DtQ<_IiB?lInWf`dfEBRq`|CeBGx1`TeM2+%kbecY8i%*W`Z~(}9%3 z?R|Rwh9J4ba_IX}umiUdnQ^(bfCl!YuO|!5b{Di3#=78@zScAhr)OP|HV7ach(#iC zj+%?H=mr?6q=pS;nww|O*;#rWMaNbY1ki0nb#LJ9=3d3PQaB5S5N8L%a=Jx}ZXIi4 zIaj1bw@ykJ*jUoAjDfjlt)F2@ew(R@7fBpTIo;z1_{)uwZvkgq#lSe_x^b_;#`Nlm z>KIt_^*KsL>N>CPN{A1K^8kv0e2V}xJu@v$GjO_$zw&r-S|gD{e4H^2n*wl)wr1yQ zFV!2#^?+apS)vFv;h+>S0T4n#eSm_TRJ=12^qUW2bvbhkR`@b|Ut)kfP(!}k56Gzr zWqm{ndZ3EB!V&$fYkEC8bYfl3?M&#K>LR(K;N|Jix7Vd}PP8Vm z&_|GofDa`Cy#*oQx=GJXI(@m#=$Pr2^96jdk2kcx*G6H6ykjSP;G-g~Td_7b#d!D2Kuck1x13U4;`Krx;4VgC2Lu36Jww z_qc=Rgj*iB*xjBzv*mG92<;%1JaBmnl~Dq$Iv=YmY$S9a6C1B(7ya$~qOmXKguhTU zHa+0qBO3eTgnvQZT4(q#7>zyRgnRt*=BuKyj|F?aZlTuexK;Wf=#6Ap_VfJ`_l0}9 zX>hv6Qkjpr)w~@&zax~~%VKy%4DBX6Uqc5a}iA|s&%}@ z3|OhjVsIEjdS452s}{uX7A5j>k+<%o!-+g0BOD24lqU+wJRzCU^npO1y(|-Wozt_r zKH(YpP#_FSp-DDFKpO(|u$<0{EdJB{QZwAGRZv$pn|$MjSQO~w2ZJWqn?Cf&RW(Dt zJ?G440?ev_?p+PJqnaO+)r|?{?LxtPCqUed0m185J>C;xyS2&r{c?92rt4`N-jOK? zAcH@Y&Jw_9^ard{0=J|vzJyu92Vj5%`2Kxp*?reN6wK(|Ju}`Wm(9|rHy-k5Uh59o z2wU$QYsdGDw;-eACfDWo$nw45`5_TRKDFhzJ2hNON4cinUv?m+mEwbyR61yl0VxU|Y zyXd~^D6E1_KAjr@Y(hBq!w9av37EJAK(7N};eiRar+pYW-bkpa&;jg*cfj*yZSi5>OvGd>*Hoy8r|)ng5Sn>0f_>_8w=PSQwF$! zDXpXYQu+pUt;B#0Jmropz!5!1Wr~m>a^?JhVbCF*qTloOf+_mw zj5=_d9XKBk9|RA~umv?*et;GBhbj7ME`XH3nioycUke9c(7&k)@GJQNF8ie0ESGf* zYJPxW+)Hdh2Dg?{w!98CzfP;Gi-}lYbY$sIvLW;cY1Xh{Rkd;knu_FtxCnHB!&q8) z!1A~)4eM%glPAX02!jB~U7&S3jRO0lm)OP zEFQQ*12Y6Xa`eh9ZcD*5b!B5x@b)~8mp>r{<73BrB5bd+I;M}UUP;zx=pI7rqYp0k zQ93{6yXVO_=?_B^jr+@11cKxe$C}>~wnLsd^30YZY|6nN z^#_SZiuQy&6(na(EvzmiU0cu1t7DlL{dJ^w7jSmZ+o)n(+O^NSNv&|^fi;(27VY>G z(E*TNJ)!wYYFl-BCQ-urLB;YXqD2w5y%4J|UV(Lg)Lq}X1V^%(ly}w4w#6bs|`VZ z*rmbg5@gL3stpru;wlVsTme*~&fJfdM!Y#;Bh;;bpC1Ocdr-3@2?09W zE25$jD|fCP2g})6EUG=6BA{mp-kn!26;{P-O)r-+sfLP%hK5RK?HU-VDW%?w@iK7> zT}}r&D+{B5hQ8wjw2U#L5)ks~i|eGP?y!*%JgiP9s~I5=l!x7*!9wb5rMUHZ7H(ZD z+Pgt{aUmWL8i7UouN~>^pD(z3%cuvn9S)wNdXnUNfN4irB+Lkzpm_*yd$j=wB{aCU z;KNwMkgRFw^cKI}siArS9)4X?ugQ9khlSK&&4s>>K+EBAgge;v5x&sGSrMY0#V;1M zSoIklY5VpV1)tZBQgO5i{a#$#hW|aNfYms?L|`JTqo{+ww2*E<4m=9s7vfb z_DQv#^lKx_(x{xsTn&i3W=Io!h&g&cM6HkLuX6n}I;=An@A2vhY={nfplCa zaXTSI4j$5VzDTsvX%@q1YdVU-A6_;|ib;77<~d;RD5s)tq54`GQ|vr!>$k{s&&m!sLu_7sqT}*^gIaEISxTXhVrq2L@A2gM zq9JwmGXc-3$4%o*y%2uiEpvRoEwg`rE{omlFq9 zMVGZAp4^-wXoqPku>o4YZHtV+RZqmv!ha!0pC5!$5LCE0tuR~#tuuG@KAh=iF!};J z8I1m63ohy*nlAG#AD3H(*5KGkUXEpC((<76W`T28#gs~`AtWQ)FIMc_+Eoz0|0)rY zCale+Y??7rB`TT|qpK5W&w`N6?bBK^A{B)?`t14YK^ifnfDytC=A3`@HH6Y}T&|~s z<1aY@{>CY$RG)H^S5gc-gDiT_S%&&4zW2{=`zt|;aI%=c%=;6C&I#OU6=hN$3c-6C z1Vd`6rpphg-}{pj=bxScf+POXox&be z5>gepK!v6-Cr9;=H78m}kW7;8qrxVmMy!2ru#osUhQCUj2pe*ru&xlbArfbE;6CfW z-|WFTmMLsDh64m)t1`>(PvEwVxuouNql0YX9_}_zxEl8iP_%;SOaBAoA1`QUyPETd zPoGrOk4DDga#vQrW5S%>4(22Ut7-sDHOSWyj6D1z8J6ApFYJ8VH|+L-D@|IPUth7Q zZf`z&HKaF*eJird`X_8q?T-lEB5IUF#8(_1E}rhHhIgE*!rGA{Hu+(X2Q!8_>l2%! zgvASaK{BPqNK&o8CaYUHp$YTG5JS*4an(p9{t&9brRc@SawooLWco#S3327pANF3) z-_AbOL|+q4$yCKk`rLsoF;s78ohSbk=<{8?dyh>L?U!KmxVis<+DS0xG!+< z#vo#Q1H@FsFLYH^M4_573dfdkom)O z?~w%8{Kb19l5O#&eS$p`JWwkjCJuYM6%o7I?%(vS7=9MYx|?u=H{v%w?MIqHDk)R| z-q&2TG#nL@Ys83m^`7j=9Ij?coO|===;*f|Ru#sKL?~|@MTf}PQ2#F8jDZQA<%>9OYRz1VvtCmK z5U?oPR-2ws%2#e1Y98KvQQ;3Hcij8v?Pl2}MR3-R*iSxdyWL-Yx_y3d+67|5xZ56_ z!?sC6q%Qnh`nY_TwEB8wkIRhW*_qclyZYO~f5n94A-&_5e&65zPNwI-oq5x!9eO>E zJOdYcDTP~-u>fjF+&@iw>FHuHRm)-jBm|`Gm#Ob1+#K&q4a0FI$hhMM3i7;1g#=x% z;de)HTn|+b^>0-BEyU=x(M6(Ifr4#sv*6w%Y(zLJ@A8d|Q0gCBO9|3NeG_7$E%5;_ z>|kJqesPR}%BN^VTt@>+v`P@egp`9}X)EDlVtxT9Oju=AnjJiU_1Z!eeKD!--uWrL7kYzB?r%5=OV}*{rlA1DG zvpf^E$HaiKR&F9Up@aovp(;BZFrO;mvJ5rd7LU12dzvkEDp2tQ-8j6}o(9K#_&=Co z+4W4sDmH3Vwg#(WXThXtng9i6GGM=10`Xgbiy^Ia1&7P z0PtxGP-nM>#{$Mt%j9gf24UGAk#__HuJp=d&l%`n6!os~!aS}T28&`zS@h(&? zXkAHOiQ%Q>W5L>lsi1KdvllXU6i(Y{Twm6=C~^JpSYT*MpnE7v5_ww2OQBxi>$!iH zLbO>cEf-s~WwbgcS`cRWz=^{i`X=@UeM&F$m~YW`sPlCJ`M`U?>@2+n08)r7iBN~fH$J*D|Qd!qzs%q{<7D{r*Ggm)QJKZQ#+IYm0SIk{&Qln{r|eL zI9S4~1(#r~!LY`#K{X%fqElr%fh8eU1w8lPiR)WKCrYS4mOQTz^lWZF_+{6!cb}dg z4td52pTieZ)4I(*hW?S2^p%T2X?e05v^y#f@MVpg)#*i&4x(p)bO`zJ8b`Dd8_eoH<2wo8kg2PJxz&KW=aWWCFo>vhh( zpoAr70BfTNu9vvku|Kxnnf|MnzM}U|baE=y-<@OX&&Cb!-o0M#!7Y6;_}$WeEAZnT zu>ZRKS?C`B=N{P7u)7zq*A?iDD_xTCiD_MUd}}|IW0(Qc+x}`al8HHY&OO@b@LfOk zJ`nN>19I^Wo99vU9GqH!rDgnw-}BKa7%&6YD2M^u8+r>ac-1l+A9pgjq3A*&CIUR9 z$hcOQ*I5UM^bNE?jMjO2l)Qs+Ytwa*>#|Pn7?^SL zkPaxZ=^$vkL}TysP`W+3F&RP-AGW5!T&x31@VU~wWuFM=P7p|N4GO#-%b{S=6Evw)_Smt2XLR&zgr!FH8GTEAj7AXy;e;IncNY z7oRv=*-PEC_1o{v9M>v*DnD?+b0nA8_Y0b>fGL9;bykfdi!V^8=qASTksbW%|1b(P zzYTq?qzX~ChUTj#QEK4pk_YwH0`(**-vt^hsC*nX-g?0Wri2Ea;@Pg{**9T<0*9a- zDqI73q(>1w$RtY+;q5)?H_ngwc$eY82jfb>qoct8|otlr@DI9ZAzf#yG_{J zt_N-XoNlXl^*q}z`$;;VPqqm3>ZW3L`uO?O1^3~YwFPzEH+DUf+xs%>_0I3LbD=S^ zw2}6=%Tt#hQ$C~akEpNGJ2rCr?`f}i8X;c3|6u|pVpD`BafoUEGyTan$e#+>$z-L) z6k%#Ix#?0yac(A(r+p5&cPsZ=1v)5}J`=GXh z>}{(|$&=Sm{n7@q@hG%}_Sn!6PEE1Q@j6Omj+R0le!v3|Olk}96s2;7A$RiSz{6G%9neMP#Xc zScS~=SI!C|i7_^R^{)+QyH=XnOweHQS!UiU&XIOUU2Ufrkhkq=5C8F_jF3GVWM!GJ zkw2zgal7}CoOk58h#)Ar51xlR#bXdVROANX<`~7t?vuj)I^BvYmmo&}1@1voy^k_c zy`f4gPJTzev)M10daBP!^KJ$@-y9mvScC%s%P!pYT@hnh&JmheIFvKWl? ze)QS_(wKz8N`MHjKO1eOQ|K4~uh~QtWEDL7ew3$TO_r$tMa!K=>PfddnR98BE5kQh zD@;)KoPg^z1x?&k$_E-HupU|!LOg?O*dbDouS>pPltYMv0v$TmF9|r}pOj;FA!Q8v zN5&up>^}SFSdIwJ5nCZe5X*}%;2*B&tryD{3EV!N;aozn3B>a!-R?(v5Ld2xMd+MM z)oi(l+#~1&knnH}eWZ;y3y=wg_22bK?Rq7LBezi#}4!wF);!F>M zk>N@Q3D=eRWiKiS3~Q8MWJz!ON9g)j|dq6(f`}NJ;@46iqIO0(Y7dkwRC6%M$fOHt6JnJqA z12(tNShcr1=IB@vaO=KD&uYSehBuu$`q`5tbtKjI@3k9skQ@b?4in<#G&LnqC2fC?{*Ie2Xk!Us=Z3r*>xGIL z8!`M>krtPl%&S6ImD^kmCH2C3-t$E6ouG@c_68MDq~TVDUzXU|n>!5k?^4LaMf9TO zcz1PtJ6|6pLFQ5?v5q6H+0CRWR0hHX;KQSs>=Lx6BJes&u}UUz!8k+Z!C!|WoSO2GEf>(1bTnXs!-r$?5ksGt)p?XBfE5Wv@MO8$eW{gzfj8w)9J zom1iiyl>H9!y%*NFDRYzhikzj+HLpEIah>8Co zbr6+EWW(|EpGg#!Np(4UUEFQ)cR}c{?VY}Y!g2c1uEH!x`ne~&Mg5f%q{A|N{0-Y2 zy%_&Ch+_3*FQOTib1>g8I+k0Wxd-R-Q7GQ#2IgPVB^M&_CfmRY)<>C!7Hj|VTN328 zeo^2N)P$v$xsVFLWmgg8q})MF8P{|s*}%G_E{883T?r38C)t5nKd(qq^{{prM)3K1 zn5Lk_5y94uAdQ~-1bxP3Px`#;#l{U7d`|?Y0YkrM4sPH`E)>Fe4vqBMd7tr>?qZ-y zt*L#6FJb+*hVgq|q-<@wT0r|)S9r2>>8!P}kOw%QB~<76#Fx8}HdGg|#;C>FNcsi5 z%H1k?)E|WhnuzG;J%ggWx8@gPwFZUoDfWzV&jYIsA<{ddE|2&!3?YCBp&jvAEoO*o zyHPUW0weI>3Z);?1F8K8YNyWic2qlw@|qddzG{pwm=YgHffU9bW`0Q`;O< zu(DzNH1AM0KbTNNpJkwc{wh@%-?o=X4`78oh)FK#FNH|nDl8E{`;Ca803Wf3r|ZXB zHa&M!sOBdBXlFO0QC@5xKL?}r#>D+W5QoPjK8dm_3ls+g0o8bTLNT7&zy`39O2lQn zCRhKQdYmC*cNDzHKkxU950r79e5$m9D;0J13C@5*+l>i&iFyty@%sLf_UGBS(d72k zH@R=Ff5i$r77QE*dlv0Ko2i@)|DRF3gW=({G2XJ9CSXuZkoD=&p1!#)Yn1!Lx0pRp zBr!uQ`D^eB1|UWsZ%cc&e}vqnM>nL8siK!&T||o2^IXgfC;gs${l2c@Al1-EyihPY zs$h7o(e|So4OHV9!(Y)9qo)FbW;Lj1C3Tv4Xsd_HFM=AK0xV7%=HmXbAR506orwXa z8gD{;-_(frqW7#;3MXmSMh%cLh?DW|LAmrcc9hDHfHy*uVFkO^)YOVY{7W_w6dJ3` zm*fKANfs=-qK#-kC~r}F3mR->R?}cdyTc=e#J~Z$%CZyv-cCzqLs#e(`rX?M7kbd= zJ194H$=HWzDC|OSHOH=oTI){5Vu4&Ko( zO!B_MD?CM;7+8)%LYkZMfEqvn=Z%|xyNFQr(G?hpq?57|afg4nVv@x&Ru%pVQ}))& z-MCwhDcv}}g+!;M)QZ)=CDt1*F3A(ZI~CnvqjUhqVPk7Bj`V|9u>@j+tN|00l|7Ds z&Qy0dJ#sTpprsITH4lUXBQiejhOHwAPaZ$IB}mAZYOjrMdO&cczUoV8aWI6;EX=nt z@S##~fcZMlbW(WC_hJvif)5OWx^+{(Z*XxqFce9 z=yLRTh6U10z67DxNKU!O@6PbMG(8$595CNs9O4|sZj0kX0V`@!B8I>^Px<>TK|YcH zDj$6od^WU|F-@2>_ZtGs6+Zk+@%%k^-yTWJH^F!YtKjLAv|P&V@RJBOJ%@6{A(kuD zQ>QO`!gK6EW0oA?m7ny1E7lIR4~GstZkdRN<$tK891LBaw$Qf7TCWH?ahQXAlPEGb)4PbPMG%s!;z+Ex{y0EkkV5+U_2h z(Se*8ALDqBz^euN%PMi%B(R(@)I((ohDJ#QDPcwJdR3GTdtI z844P*j{2P+kO0znjZik%@bldGuin(Jc7Bsov+C*l4p8;8;rc@*i8U6n=GTgxt-*Dm8#eMpA8x^dp{6V z@lLK}nZO^0sY{)M=>aBRTz*aZjNS=4hV0B=257T;_9Sp7QoOz_@`@GK4BkCKB@1iw zCx2np1?k&^>;~bcl6$w0k^-;5b#$y1HF{lE|+NoMgu8;bl8U6p+P3Ns8s@(^kWvM+JAO;#XAt z0-01;Z>7rYW+-qbfha*R zyHpaFv^ez?#4sgd$5j<(9Vy&M3wg_vCPcreNKKQE(l#W!Z@cy*r+iRlDjja??Db zM7G2%E7Lz|e1$c&!Q@rL-cXX~Xi!D0yQno#^OQawXfAxYtH@ii{E2WI2HHuDhNX2t z#2J!taJeBRC{&hwR2Mmg#gAP2Xp{j-cp%t@3#T)SMv#9PlntnUF}!@#BRk!7PLKD!DFOTI#o4 zba;srMdJ`a0U2<45PkqKL13y49Sb4Z7%aZh)M6xk1D%B5vbq}6a)>&RY(ZaXjw@{$ z5FdKxjLEIE{%B&(SERbS~yiA~6RU{1_y}~63zwhL3 zscpuv=T_rI5EUD%@D$7{Qxm|m_5``&qmP^DMxsMx+?YZXExjaBz}d33AcqTY!ZPf& zq?)J^T!uouzNif|)kuhCG->yB4M~ku_zPp0Rv`N94;r5plAXs5V6VSfQtyv8c;l_l}!%v>g4KZvg8851YR5MHOEb=?P%ys zL1sUdIOt6G6xf9W{OM^;L8v@K%!tuT^(g+CscI(|pgVFW(WDLrBbpheME#?>G`^Lp zui2*x-P^wc^fcf=w24N*vvd)MpKF4g{a#__$}^L8oMI%_?t-DD8e(HrbA(DTK}_c{rz@-$z!k#d(hK9Eo5={FuD!#@>Fqm+Wf?GW|oLK?jj%DBOYvuP292M7SS-189iwlc>;T zca{=oMr#ThfVuLpQt$uiWBA7fcHW5*f4g$f41kl&fKodsee5BYn2t0tBxXsnmAsjzUahg#Vr6O82LoLj7Zkp*4zI4&b zb?+9oy|RDiu+htR)zqt$J#$f&jSe_Vd#miSi~hPU*|lLLULs5JIYdaXWK| zg!(9ibzao{*_;L3iP;m`*TALKWBuA!-7j_BC=xP9D_NenS12fA&AV=K@CejkXW(wO8A zT9*qiBhjm_#shrlRFVF4Lu8G_N6;2?6t2~Ql5U7O5#2Kp+82XYGPFvSW zpCgm=<)?rv2&cQbTpV+b#y{fuX5gQ;CpU$?J@f2qz+e01#rKz>ql}Ylrh9Ih+zc%!49238wmN)C($DRAvEaz-6G`nFX(rna@bB3fdPMZ-5LgkuF`3Ee>x%9i?MQ-%j^nycA7Gd)$IhYyk}> z1)Ze_a1R-8yng)$&X5r!=A1k2Chh$&J9cYA4KDN$nad~_tWRn1!!qq>uFkzqtFGl{ z^>hQg5!v8oNu}mAHVmv`%hznTlMIFiYBpjl3bXERVT6Y&H76u0qhyT_<219*5LM*U zK!-Dm-UsfS@(*{;n-ki6$tEB~viX^12vG8wt)kn61`9TQeN&70+1B) zLgovVD~UYIxTM9aL^!)T0Qa8pC3Un~Bu~}%so*8Avn)(G+R|?_a<0Q{IGC&Pm$Rmw zQAl1pcuB%Aiw2|m=5u{`W0kir>#;-p>0a^rA-oFLq#OrMNWvEK-Vhl6P4H`%IlT74 zmrq8=?7q2_G~I}=HxM;QK^9j-Huc@O0bF2|o{BK737j7gx1Ta83ktWNo0sT2Grqh& zr!a9uSxrIu!3#?rh-6vYVQzl*^0!@YXJcOp)aCzH+|gtXqBBU(f)hZ9e1Q5NB8ein z&Jrw4;iO1|LJnXndUYD+r4)iJSE^sFwwttg6p|pVJ~#)Ne>Ea;KE1sjbzP!Gw%ZIMAnHI8Q zeTq1rhk=Cz%!4kWxip-2t~U=~OFf`;nCp^4gH^BCDZ|B3^$yI*583k-OD_px@E02v zegxoHsnVOqh1xr#ka~Sx-^D7;s*xqbvGixZ=N8lU{>IFq@riVt2c?CIF`@>$wmn43 z_ziVZo9&DJ7Mk-8BszTf6Vl%XI{Z5Xx-E!bq4es1i7E*2e?;{TtAw-{-tz*INW4{a zc{UJhcV60FxE^Oj8_-h9dXmtRmo)}l-hyy936behO;^Tc#)7jZ15faT-p!}KeR>wR zCk{1}<@-l&kf*FQIVi{qBDE|6RN^x+vnxbej~!Nr~^}#D`h`A^`RNF9nU-~kw_?Y zUm=TrB>xzA!cnJoptzWcTXS>CbwA^5Ox-;}z+|GeUE2RVCo1xL@U8}@`A{>}{WXVd z%{h`{allmO+Hlj8c3`YU*Y~3V9c&CcWyDtG>Dc@t_jF$wvms)wTMAA(n2|Vc&zKA` zlN6&iAAPqimy%*s0gE4e(cp#%`3(;Eo_uBS)uvyG)lO)!PS@ zcIIl`yFI9ow?o@^@Xx>xNX0D)#1ET8me+V^w=+E|I3mG)hginbmSYIcQBa+X%fOHZ z?|cN`JMj9++pupbe(_OjvAC45= zj42M%sr|vK)ztJip z=vNV3|EycoxFTeZR110bswz_we{W_N_;9JtKaooybGjm#dIoU6RV2{eA|C+_n$oEV zyNY|)_s^hU6H>eySl?gawUu^ihBbZId^gaGxRE&)Xr?xHF^uf5@7*{WFM9?Vh-W=6 zR1{`VrnNK@L9~zX=u17%x$k^SJ$*?h-~aCPXB8-WrxsGb$Kg{o%7~%RgP(#qO9|E@ zJ)xA6?L=Etvr6VF{=m;MFdkFu!7wcIw(_QLBaYteho+eQi^X^v{3Lmogw#M6N<(S6 zMY^DkeQ^#!`LrjYUWtC{C3OGILhbM}D z?ksz1jC*meMHA;!auDM_^24>s&gZL&Jaaqzvx~2V{qXBF5GOxBNuMbg$nI($66Aiu zZ2>0HUK(M@)I-fk#(-ZXn42+8MIa)J0)(7Gn@1GtHN-49_e{7){?Jh=n>^#UJlyB9n(=i(9W< zjD@dsOU-R>D!!>J(C@IzT|r5h>Ds++_Q&S0IWdn}^IN>;~S zC%Q#Lipl=Wl(sKH)h+6&eGngYDN0J1BSJ>1dtkEV(H5og-{$RInJD!Dfl}2qi@Jas zzVYe~;no4m1@r0;Lr=kwGO`i$RL`qr$R6lrr<0*JTM4w zfoBSv_`Unl^>^gU!=vWcXR|{$NNSx?OEgO3zw>izx4eCk7G4`GX9l!Z^L7tJCvGbR z2hUp$0ICZ(2!qWf4t5R~5X{RF!$%++>&k*Npa7L_9 z2sDGBB{~jkv>|*m2q+6#Zmf}+zb{ry;~_{jEl75;Coufzf1BVnu_~y(;o(+KNP=qQcXV_SYvw*yHWjpS0Ot!p z7(26wY3|9+_Tr4b^J)b6U>i3M>bSPDie6^r=Qgf}*HmNcNjfZRZfCy|Tnc#XtQ5H; zp55Qaw#wP2oJ-`5fV|nNvb8lu&IR;42!oJT8zHL@$&xRqKflw;%V5v~5D zP3*9Y$On%}FZW*CKAqNV0{6py5izf<-Lrx7R z!yftf78Ikw#VL4k@i#ykFtlVNkc>(OPMg4NTK_$+4mdr%B&GRjxVCR=QjwxQ<(c3d zk|iND*fcF#OSKxa@Q$Uc__uu~RSMh9?#MXP;!@r5Q?{ljyZGx#xa>R*0Msm2Fh0D_ z^0&})7o3nk5if?o0DrAg(65iNh89CtCHHMt8$?v*S1evvvc%@|- zArEC}yzP!vJTy7rrW5b0w15)8AmN*~CG!x{8?$hm_S$sZ;sP{o8KR|C6Y@Gcf zLS)igF%fmm>we;&JsmbBpjp25$ocld7YN_W0y|U}#g<|H(3{i^GRd|zr^$ifooK+2 z8quZjL-xSZ!3mJj6Y=8xZ)jlG8RfXS2MctNwoZ^>Q$(AAgUhU~G%3@dTto3hrvpf* z^z8}A`zDk4ry{GUOAG{j7qU@p?_@`vA<_kAx{$!TLJISAP$q-lx7=u!KObnH_i|%& z3%_u<0sAuevE(9Sl&WOM0t6y&QRo6iSmV}e_AR$|7^keXgg#weM8aPljs0d|eSx`w zjZ|xLRp&C{Pwg8iUp1!*E>w-K)ELAo@c~A=0j%0H#+8eFM_-?kaXurzR!4HtvRbqT2R)w_m;Fc|}%`A1r_mJz&$w6ZY@%-qgh=*9 zKr=fm_eL4%d!n0z51<8_rflf>dvV{62s2xU3SK`ORMsd``OjQns4dKtLlp!@%opp zuX#%K&V3j1EQ6-v_vb|$Sp}e!X|2{6q(HNqTMxB=kG%Ni+p~qhdPe1Rd%z$t-3~Sm z@!NJ!sfdxj9mOr|J8n(=5&g@bC8SrmMOUxn7zc~GvzR$GdGI84f{!aaWt4E5BNO*XO9qCucp$w_;nu&0Sj}to>b+4TyLSNEb{W> zY$s^rObI#4BM$TFWXITlNffz)MJ|H91{!QhmM}4p1CJS2m+(fwJ+%inVUAQgF?#Aq zX~WQ@E=m^SBSFmsfVgGNikp14UUPm`WkIRy030LIs)Ezhod92iVtOCQ^bH{5a{jDW>c#*#xwx) z;en`t{Ox&URcsRQH!a{Kdgev-d$VU)T=8!TECZ2cCNS^wOGm*LkYeQq1UAp+WK-|6 zgv;N<{sd(s;hvF88N#ZW9VB-0Y}u9Uya(ujoKTIRhc`mx4tCE& zVhgNe_=F?dyGRMWRa@aH;GLdJ`g0?+1{_;!DB2wD7F3(&(Twx{uPqUll;FL!pOkmY0rb$~p+LaCZ>3v)vTikU5DZfxm zHDJ0Zktz~PSjlod@-j0^EmE$0u@o~b5`n3}7vhwN>w;-CAk8c~gz~nrki!6p<{oOJ zdZF*DucLEOP}fvH584Yme<-)!pS zuoe=qS#2Y1B{~mk`L}1iGUvn%3Xe8Bde7iAEsJGj_H(6w)vD*--`lY8Y*Ons{R_N7 z2S4$8mMMIH`}#iu-&*y~CaB_NNIbv~C_Dq#Xgt(?c}C`hJtm1!*<3k;(;vL@v~Ev) zs@C5s^{A<~Kg}MM56aoRqwx3_uTu9D;6e9=GSvSejE8>D5%0Lb-~oo#+lDcDWrl(B z(IHK1*HdWjM*E0pWr1Y`PpPaTM>i%2;DRD#X(l%u0Gb+6WABPa$@F%(CJHaA;^D#3 zj)4E5Y^zJkc=|J#D6pOv84wSc5N@I1K==up7NdKao)b81o+eBtwoIlMyrhF9VmajWsOtnA;HWrmfs;fAKYq*^_mh7xUG=u}*XwL~ z)O%c~5=gbVO$;6D_gs>oXxwjT(c*8+Vla<-XOChqJ?a39t14FnRcc@%r2b#zHgpxwF)>q%)#SS4m3grHu4g5eE-K5eeGKKj%G-1X1)0VX)g;+j?SVmIP&W~ zY0tWY;MBX`?X`jAuooo#aglc=f~#4kanNE+6;G_t4f~w5yZHUzo})AOgX04ZCG%s_ zo-fKtkief>hs62*8FvcR1U`T73}9e-Bs_atdQ?0)QDxu1(&XblgarU6w*TJQTFo$Y zsbq&lXN=870b=0R3L^Hv-f^5<^6)ma#!da`;5sDARVDSLu%_BVLJp~&6mWTMRcL$| zK>OFn`p1^qp7N)bQOvY_V9XHW3L-=sK6rU;fUdNW&H}wEZodUeEXYqj^Yh5)X%A(7k+r=Rmk}&=&2pt_;vdv)p^>&@b*6N;NJPYc;o*4Gz}LXFnBXb zDD}8Pa)cnWjd4afK|)~%)nbrmAxFx!3r98vGB_ba3~t>RARM`Gy0(&Pr^OI8Hf(Wm_Fs_-PY_B> z@!kMJ8bVcz}n@?|KnVH=VSjT?cj_yW}kmY2;J0orz<82f$MqYt7m}i zc)7Tb=lhJgH}3lr3Z%|D;$wi)$Cm=wlED?C7+95o0;0P(oflb9MtcD+9}*4(tTITx z;xH3d2m)GQgv)~sDaV^@pAIy_)~;Q!@=H((#HU(V2XXU$;T@6hydc6q=>LsaUP+(CH9_Uwa$ zY6G*JNrx`17asx*8ySkh`gjmU!X6%kuFG#4x%}yHd?XDJ1x1)DfQx_oo5+kGZ7YTZ zk^jDAs+f)aO-+xzxp-%`Wyx8F2BO**h}7UB&j+I;m6@N9KxSYvZMH^bQRHCf#M4_eqYfbgxwzrf+L)_oJRtb%gj{?r#aLiTK!9yB2SA(-) zcu!NHa3_yZ2E9KQa$qIDAcnhZ0-zBrv`&ZOfhBzAPX$ldf{^Gwy`*e?rC)DS2A7*l z1yHrsG4VOV(ze4UR(9#?(XCfVx+z+GroTV7U7wRQbz1+%Ee0UA4E@ng#dPLAcgbh z+uo4*Cepw(XqT+dQ73yO^Km?%j%ejZ|CJ``E0d+eU-Oa%lRj+;V)~Mb+P1sqN%G|r zB~UU^0qgSFYS-K1PpJI{u_nLcf&0R0*~2NNw_|6+NTs|u>bW`w&o8Iz8Lxm&h{I%D{lOz! z9)98DVyotGr=NY^9_x|XhGo|~G(FCvl@N5t-yRJ)MWn^H$Sr%e0BV)D!K|HcA!q^C zNUdN%8@^^owXw^ENH}<)aqB`GK2^TwC`8qvpN{c=82hH+PM$ct~%w8CFye$s!rx$|e&I?lc+u5q_sK(S=ynA=w&-H&R)9MZrn%BcMW zV8zF+*gz`G4p_*Y^w;R)!!=Q=e5Q)#cJqzbK4_=$ap#u#ioILKP~7XMCv;0sm#dBCyyLkU{9@$M;*K+*Cx_CrG|M@_OiMikW8N*0-Cla@D&QK z4C?4$k^_-bAAm0)`}HSZFN!h|(Qitx!=?3VpD?UFe_7LH^qOtdmRK8qKWmz029AHh znQbt3(eOZ69|S(E%(XO$or`SX|JfKJbsW)-h`BI=o{4Lo#<}KNg|$bq2Mq3!_@=p? zO3?xgH%_Lawbwj;hY{?QP6EgBUg$rPDwSHe?Sj)s$3jw^w}-N4aB>E(R~cc71`mxX ziv{IK>HI#CnX8wa6E>4|oIBmkLLR;#n$0xK`7j%Mo;syo4BV8%x6{ddX?j;3&w5DM zcvZdcQicJg(hlxI@Ywmo+*x{HJY;gjxE{B4*m&aI<=UZxTK#9U(WbNyR~?eP08N|! z_68j436wh+q2G*7C~bZwPqr~6&-Uix&Q`s&)4}OA;d;c;r; zlwuT~j}SBK_D6=mfC}qw9TibNnQ~m~9j4am_d#2_$vfAFxCX~2DQ2guCJPjOog1#v z(dP5(35k-I2Wi>>J+8rq?k?)QJ{9kn;He~5cMdVqY2v#dmS}q}z6Kyj!%OB{c;0&M zP7LB9(`lBwlIuG}zQ`4{pu1gYJMBw#Ojm+av0A%Ja9U>n`!5qiY`gssea}4?JR8Oo z8xS%M!&Y;q$COAB?i5f6f`)3<1A`+MvkJHz@Fu01`z+WUT_h*hP$v>?r(;zO22UwIuPDmT5eKdEzN3RGR4wQDjuA94%5YMTZ$|G<) z$d0FTKALnNZ-h%Jk#WG(gFPV?)`x`#pPF*fv@5xdu2>W5eY_wi5mW(745%<@k6|o* zgsfvmkqBI33JKFn@#Sxm`;#Mr&cA)c>tFvm)RPg0j#dtb8QJbnf>Uu1Y37yC{d;1l z#4|Y51nb}ZOC;N6 zIzH8UjrR}L#wt-W7{@bsEcL z0u_s42SUN9o5)=`q5K!G*aOB?pZIUFdw4>ZkA3O-yf0LDgz2ZX5uYg*)c?xCL91`` z#7lSA6j0N429nO){a47P>E8*b51H(aVQ1(8i7z0aiaK|@nQ_qjHRP!;8MKV5W}0QF zs)U-oI!$%nuW#FTaglGmsM)%J1YCqut)f$R8$?kXrU2MOyUE`rO+_F_{46rwj(L30<<03m3>0@i^7#&l=WKZ&eE{sM6x)HPvrr#2QR11Mii zbKX0xH`y@0A5{kH9m<}rd*O+8R>UgcstuAhQ(XpF z3334M4!?r>JUl<337^(9LBzFyJQGB#VKp(mej)&gl|_ELbG(~auMQZ`G*icMw#}>xvH_@rq!I^Gn{B$yPv3vXtl0c9Z8}66FSh(~6KkrYKhe4y2 z>|>p2x6(teqIOjy4ABUU-abYJS^u%^W6uIlj+Q{u5J_|9EVC%x6k(}TrX6Hz))c?s z)K^L8EskySITFcn3!6FtC#Iwve;+!Wytl+G4LsO(lu`H{?w2K}&!*>R1cldK$TNh4 zTQs6q8Tj5A!`}G8$U-jo+Rgb{2e;a{$ia`C=^g(;ZnLkS@!YK@2ann7sQs&G;%zTM zs3=xY?#V5)_WR3Xu^iC86va~r%)xOo82yB!eBEG#6PBm8xl~#PQ^4v z0jR$D)>)NDA!&w|b^IU+9affL5aScTx@d!LKS_=$U{+~nI7Ha{NonKkx3zQAx{&@@=7hrqg&gpBjJIFoYA|C(1&u;Ai-$EqEU%%G=A{- z9%ulC08l?Jd>Te#CYYzc++V&44BI z4HphnuirVSeV|K+r7HC+ryt!74bOvX!{#@@%I&MJI`n6e(VS=N3h1bS_*)9DaY`2( zuKFM5TNj~mQ*1;P#DXn|n+E$xe{pkLXN6^U`Y7(9=@%lK!tjEtkYCvh_?{@ns>_Df z6%<8`>BZ}MoSiKK95=>x+j(MlqbV9(`*7I9k^GBaK@QPjoWiDYh+BLKDas#j=Wc!E zE>=dG$Y%LQ2;_tTp0;sO{zl1xs0mGovg36k53kP@h(6BH0cQ7z*%vq4lOJyF-pjA+ z3%b3_JA9zYJwCY0*6}tw{t~_%r56`7t+gSon53m@F>i>dSF1%lQM5PMa9vRari|F4 zj?+J}p;wKPUsC)$UtzHoP=JB^=pEQ??{ak~V{o$Bv+< z#0dKboyVGR`*vHz!>OS*12(&4nvbXQ;9k02fg`q`(wNF)Ao5@+7P-VA)U8P#MWVmf zt*|5B&qi1=b)H%XzprHuJe7x|SUlEz<&n2gJ@ZP?{1cUpg!;a!%ysa@u9sV+bV0e`Vy%ltYfKtj2B*6=;g#>bwr3q0Q>JqeHxo#;aGzcDxt>JtD2%u_m3R({(7e31iOk#)9gpAedu4(9(8xN*U-A=6_BB*DI4cK`5K z7ZpieBn@cYc9KkmplE&M8`&N7*tiWcr_`v@P4;0$zh(cbF0Z5k_Igp&%9VqXb^;4{ z;&O@uIV5m@`bCf*8y*_uAkbw)MOu^y0m8dQOt~6i(r4ni%X!aNpW1UE6;I-+kLz|8MLF z+y8Iu2nP!@`~MX?G8uEok#NP=1GoUkoSQtF$6%Qgpf@pLB#7(V1PC$qb!UEm;ULjb zT-lqkNZgN&N!0>?D^Low3Md;5N282B)}^mL_@&KsL%$!!AXxczddxSjAO#AnzlS1P ztTjXUHauj0H$_8SOzP7Ad$=dK`S-n(dUVf)Fxem_y`rsC`t}gS4vnz&W#@f1y4U>m znoAU0I_dQ};eC3wAn|{r1=0?!PaBTh+yZ zOR{BM*qo6o@p(O@Q;tYUuYwJ%OO3`JGN>&dpTC2YfHQL9rY(Q7%xgk`V`iX@^}*Kf z_Z*BhGNg{?t-0&wT;&}BhL%!qNneVd8j&t`kCnqFH(hX$DnB+5kD|GkhZUHsz$=;U zpL2IRYbRef8;n7%RspJlVal`MoOV$D>qG}s^Olcw_fz!cH#>MqOxRXVs7)`)&g{E_ zr8o02gHBu2ZOC~h1c6r&-{{moFKo?Rv@BivR98i=Ud{eH=l8mbNj@5}olWq2`nhvC zXqVa*an@Ns$zK1%zbqwQ@vV+2r>WcAClAjffph`tF2>d4x}BMl9SD;jgkg1d$johB z??jhwyO4@0^`3a5TWrrR0q-k5N^{A4lP{6z@sUya$a<=pCz4f1i>$DnKF5!ZxK>=g8%`RS3=6~mu}-WGW~T$VL@^ez&P z!_1K_aBo&0O0tep%~Tm3i+l=IQav6AN{{eZJ2f|UvW^F2W5=gT2M4LsG}fVEtm`U| zTAU;HS(uQ+M%HBKfvcv1vQ7fUEx>igYnow3Z4CVZtpv02o_P-1m7>|w3vv5?8?DHD9lbu4Ks?=Wbi?}Jz*0QWbS<55XSWc%xg}g1>>id> zB($^Fgp8FALP>CZ%vYpr~00a)Z!XiDwH zdE$kZK6FK~Zwo>X4^b(NSBA%*~xv%Z3LQ-g# z7{I!NAPb+FLvHZz6@uZ&u}|2Zhr~Or-50=eqyI+ow= z+mJ)<5Be?#Q{wsMiP}0(lv5`!(oCEizbnp*J3N0PZ7s9`jS48I6(f@aT^yf9n>=Me zoJ=eNQe5*lR{COm#GNo<3B#5MTF-JLq3Pp+?1eFRL}H4`+v6~i znPgeK0qYi!wphVnA$?Ti*J)tTy^il6rTk`@IJlPo-K%baZGfK*KM3oVj@*_G4lhwM z{0^*NU^@}N&C~rnxJ;kA5{s`0`KllF*?)X1Ew*8?XO?Wb(YVcnT`o4z!zwM$G9@xFbS3Yoyy%bCX3{YUcyb z$*UK*z3j$b=e` z!}y`|{cuC?{Scel^0p%RLwam~T0PvP8h30x-ui4+o7jJLb$_$1*P!a^eoONHfR|yv zdJy3O1XQ7=lS)2e1V>ej>+07S{92l)q%c!Yd1~uNFUDn7D;#BohyB z(KBiaUP&NMQZd z=ki1l5=ma5+4n6ozunlny*bipnZIqTg7Q)WsN?SHcXMS(Z5a`^bX;*Ux^Wj!u|*eE zB+{HN1+^V7Ac4l|rKs}Qj`I(~rf;CZQB!PfLWxBspoM<}qq4&Q-i?XmF^G)f{hJ`? zx0PmU@+GzTyJuEtg=2+xe?y>4F#b-`tY@-pBYR6x49zD=MjJmlPU;uvIbPOEKavV@ z5Ul6&6Z*GaL4?i7HU(LMU7Aad*lr&{cQ2}tix{Rx6%bSC#&-@&;#AD{;n7+p`FO2~ z0xdGS2{M_{0SVBq-9X-|P96*c97L^;#7cM5G5Cs-)-+>ov~;~d&RhDHfg;fA-8wK~ zxe&M%6+Y_3X^55WIeU@&hWn&DXA76>&IkoKY8OWq$~{h2RSPqcniD(jK62OPA*~|6 ztEMrEAy6)>u& z4b~5DBv|zIEG*MN^0C=-hb#L?k+EkKi~=1Xm)%U5mG*L~6aOgACsSV1Q3XyO2G1)W-d=eucRu8`yfkfebe zln_5lQb(BOYzovQ5Z_0LJ#&Wz#)Ih9=oj}ATK=qtDO!t|M<0>mm6hW;Yfcpz9f2ft z9J0sJjzQ(|-CU8OGp2loZFW&p%0eDb98LVl{8DTot@N_7?NLQfvSg7k%h}3`-I4E`n zP~ZgQ;D{M2tWcY%pZ6}e-v%JGUvCX1HMnW=2bqe-AqH1>l@%&c&D@&77ByVbF+gUVXML8I zl@bgfvI0uUdReO~WPM(8?beqxNr8b&yM99%C>-wcO#ne+grEVqTtWkBE)g9dCg$7u zj*Vo9oTs_j(NG!0Y>|2{2XbQgkYGBr7UEL`|!j(6>|J2 z5!uCup6*3ggFb(iRdr~?Rm2YfR=#uanmD5k<@t0xjR_gS4rChO2O!I~aP>*fS#);w zU5sAwyjs@hEeD&`+EePH&+T?tIW5Cv+#^a}wqRi?o`;`Yh2ey20z*vM2Wp-{(f_-w z*O>9Z#vd0Fk$;MkrWkKVXg>8d84rXI>P_UPi3oV^Qw;|T1C=1OG&&U&$~L7l$>F~1 z*@6PpEbhXaxJuBUq%d6d~nR?L)OJz?ZiKP63n$l zVS+-y7@PUkGY8K{)M&X(=yPaKcwHnJEVs&<)yi- zEevVHBcXFvg|9YUYdXrCsc(JJ0=vBHM?Aj;JjfxMCyM7yX_Rov8H7PL!5d9{d! z_4S%_mvr`U(Bx(=ikH6RW)3`18J}GIKc;E?<|H?F-zsawFq<%DPc?QWQk{;rEM<0? zPzj1C^mm}l>Rs4qAvUo;qMZRo!f@~oX;4L)js`grMPaj;dAL#hB{fEZ#C&qeSLlmM zsKzb~PT=)PK{H_x{vOqE^nkoVUSu&F{<{_uy1plzHvj@qI7Uk$EhU4!0IPNJH!X|EnhqxYLazV;$Qoe zlEpuPo%#^|${)3cPTTN0``A=Bc%SOio}8`V>Tn^=$Bv4=ygB*REVO%S0n6D&(6Rcy|Td`v4w|AJ`)&Ddjlz!Wu9 zlkTK%-F$ZAu$Yg{g2~hS4i_1+18ZE<{K7*68&fRYj!!GGk6S(au8sX_s3(hJJKInW znG3MnK=VHgZ4CRs5~z#zm=@4;y=YDNLP7IflVtbN^0EA+i&|)a=*o}!4Hv|or3_&j zAEGpqfMLTnjei^IZbQJ=$`|(zdvkWlz!VpPde-n#ExoD_vCv9Y%d&I*`Cg_MouNji zc?s7{37I*`p5iL<{w)8Zp>6Z1AzpahSwyNB-Em_cejTD}zIdbBCd>WWa@Ph8>Qn5N z<#MZvLXXlgTixtCN~;0^Ympy2!_a5_kWZg?jM|IFD=q@IXv$RSBXI^ z)w^%c$h*km@fZRJm#j_7%~wU9fFw=MnAtu?Q_qSZmE+34FI(Mo06F48Y{PxmciVSw z&-zYyEH!nOvDB}(*M`tFhl1WBD`^Szk5tzk8&I)VOl+DMXc3x*z)bBN)~iC()IF_W zMk2jvinhMQ+1dbG7W=rh4JD~K>hXe&EelCe$+`+JJ4GuIiUe}UJ)wJ$xA2^^p#I2$ zIX}x5n47w})yS%r{}yV2hKN~Jblq6*dVjM%csM5N&v0oM>i6K35mPPOWEntyqC3ojx4d57>iee16Ka*p-?QW zJrR5@R6RW#MP{A9$D$8K(A3s8-F}jlT3n?{cm?!`7L0J@&06zZ*JhVtg{;(UtX?|s z^HiyVjF4V=_OVKP(DHW8FA1-cJH1c_ZZG3#OML-C0r41pV_H%N&` zE>$n`6a6c-R`^_~`tb8M2;rph6d(OT7gOWI3ik2iyr7{*7f_LXvTeJ_XBf6}kEz^w zgzqtHSQg&aus#%LZqEd8H2`m5m$=xk<*<;xW8cn;-J_jeGFTIa+BQuL@c6XN__jHz z@EHW$Jmh*i{R)S`i*BiI_pg)(i$M2I(#rjn5^5}_NgEZL*%;i#Z?GO~&ZL=vT}D6> zsotdAO2s8sQawLvi_AZe5^^EuPV$Y7zc9tM_fCw)|31+$X;nBMNGUh%pO{6cmTJB<2D3 z#R6tV4-`FI3zX(VzofrxS3TQ~P;5m^@yO?}pF;n0IV^ZK2_m;Iy(`={VVftB;D7f4 zJlVL0c_Y=8YF_%9XjY?l|Ba-galzsT;0W5v@GQNiO>5*-MU28Pw0=qyDy}+|qK&<3 zs@~|=FlX!ZL_WQ!1WdazEB)1WvH;ssP9KIX*>rHUkuRh184e+ck)1>TVrmnG)TcW- z(C0QoDbc#iRG@=N$!B^X{0l^-id#X6%fb|fZ4R$oDN(3Lyhv_D`zPG?49A^Dy)@K# zH&8nCL9VfMF8PZt%rGX1g6Rug?@x^#ab6JR;r1|IrBR1m#8V(u%&#f;KtKOFLCZpRiKBycugh%CvJmVhfk&tSCEaChZMWYN)&S61` z0;zl}o$~%=R#nl43+mYWY3&<<9@kpy2In1;^u(v)WlD(9h%0Plcerjq06VGA2j$MD z3N^KGbi{Gk08ZKo3QN{e>id$^LvBq$?k4)H=^;%O%A~bx*{J{#kQ}e}6oeCphi2@= zJ^U5_;i6TXgq^?|Y6x0Qn=(dYb*O`Pe%Q5@n!VgK#;8+U*YnEPId>g(L5LW=WH#u5 z!BQ2kz_=`t$W_~fi+FRCs4|om<+HT#0wao?1j8ECgF=A* zLdo%ihnEEKl%pg*{{_sd>@R)@gW2!R1PH+2;BObrd%07=2D4whF?G@GADfAy(Tz@l z@RS=WK9EGE?~;oU`V}qs`?jXdPv+}qf2?may7uoM+e*J4W;NBd<6f8>}}?*%&( z?5|t4k^(E#eKx~R4(v1&-jIIhGK~0{8G#UG)BgvRwPf1Ug&z=@WX(I*+zM$DqkK}t@qd}Q^Iyo($|I=6j!SJ6LjKs{x&!y`i_T!(al zD?>mXH_t=W2|9*6qMAn&fJEn^j9G0u39f5=gSQ_*@&4hTTED_ON(W8#5>2yhQkNYxhOJkZg5&Ip)mLIqjo_@Y?DfKfs$npO2Yn8fnGy zYntj-kO|Gv@RolR>K)OEeY8yT4-Ma7Ea40DWGk5|_~4yKp+GhqhS52sPoyO{xXP|O zI{4a9r+e{#XDoKbnX*Og(Yhv>`M~sTecAYSQ|Hk(sm^NJDm6R!@(^tq0w#6$zB@zI z<5@;B3Qo@Crd~z696ofl#OR~3(tXHQBx1V!S-i!i!hM)dLc^8EC@DwVwj_P}r}~`f z+UVpm8pB*U9Dc^Eg708l|E(Do^luf1 zi4CZZ6Tv04?02B?S5p@HV-|!GVOdL?mA~aAZ~N4-On2YVqNf_&6LEi}DWWV@5<{Z22)$ku4|YsuEGrn-fhW2MVy zuiAMBKfPprFQ2t*g|;QQ5CZmu>|YKuqYCejzgiVrz^v^Gfo?DEW#wWElU$^NjQ12K z8#xIUs;Kh;6V}OC19SnWlt7Py)9&Rib_RSO+ha?BS#}H4? z&@<*2Vglq`$n;hFcL{=dIcC_nts|D(4s6F1Gf- zM;ke-YPCfzPnrzpS?U}hF7lZ;)2xBwt)a#ckfpGBy8IlRbms5v$JsNu&g78*c)h=* zgGwF^@rd1vuy{&-q{)d|6MABBn(=JUUMUE7A^3d1yfXOTYcZ|L_1w?b&|$d2Grj06 zXba!F8=BC6(FXxr;f)DSqdCpCCswbb>ey~LIz5tjwIVrw79e*qxpmcoG&Mvbww-?s zb$rDVWbwgXoKTmG$(K;7XC`3+M}whz+N#&N!YsQg79z;3X&csh&enm_la%MNwNyC> z_asewOTO^b$!uY8G8bG|+Na(*OD}3eO1b5436q=RXM6`@h-8f2(Tamhn#844N5bnQ1LqtHW9b%B9fU4TDPwj59kKc2x1z?Dm z-DF(W=7UZMlb#AP!NIwRi?-NnJm=|Gwx{}1E--923NEk}-O&XdSgG-u+0dMB()u{v z+d{GsRbYDjl;5nT*e>plk)8UWm8kOG{=Jam1nYO*J9%Mk>e?8%b3d}<`)!z9x5XBA>X7tD$aalVYqNa6L>YIpt% zMU)gP{{frnQTbd8!=QLYj%YoNT_`yT#eFbBF&0E1@NQ4C;1U&A1!@vfBvX6?e^6S% zBy4GqImr5Wu#VUsL@3s-Z;hINXfi|lHM zHkCeLuV7j#K+L`-#Pt>6MbSDhrQEV$|F~vQvfq>cYk0FukEkSP7WSxeXCBUY9A}ts zWG8=yvc2UGj~>0yC+fPccb#0b{wD1*E;*=N)2{GiU!VIuKT{vGd-HD=WA54QvpMun z9J3p*{Yo!B(Q6it$p5LWxVOu4oR&=fEv7K;tuxooj6HrEg5{7Z|MHd-NJ8@%_5`SP z6?a_gJJZNYdlEFeS**L?mYcWE)_wl8{Nb8Btk&-P?wbXcjw0=ABc7^zj27e%+Y3j? zmYcfC{}fDEObdxItF!tIF_0V!+kM-QMU8_HWrfl=mA)=L?Gcnaea7rTdoJ39A%*I$a^abU%g z;9pU|^k6K+B(Tff6M7JMa={Sx?|vN6`v^6#S%$V8g!cU;)``54bCkVY76p{e#Lm8` zO5jO7(&I|%qX3CaLUAu_Mh3VO2-d$NU-XrJ#LGjf-E?-2>RvL=x z?xftUiz5SI=7;_M-EqEETeqU$?`D%RI3NW_wz_6XokYG;-!-LR_rj~op8NJ_dT))A z3>n-{dV?IuFajX>17rG>sN951TK}RXB2CJQzFKvPk%JOW6;NXL9{f5YAy{rlQAIqFoobd=?wg-k=uwC>%jAy-B#pvy znLG&`wFFm~>NYnAxHR$B0<=UJz|3sqHz*a02!Iibqu!EHrskUWmL652DlwG?D__Y} zS@VyBzWO`CrfRlvfGb;(ED+JbJrSAr|UtX$%=ikIIZLmdUs@GKI! zOL+#NITcKCxic zmlxUIY+|6aBsc2Yf5_`hrqM2W6F#}{XcL3$$2K(EmY+IykZ}9D6lKjCwoc!X1Eaa?zK2&4fx`})2Cj#?h*?k!GUHx})`y$<~-O<#%LD21T3DVYI z^9z|c0g8qWMTp8U0TqR}$Q{AYft-rdG_1l@yf#Rq)G#@%ijO;z0E$!FEo&*9vHV^O znH+*K2cDP`#^454%A{@#3Z~HOcgWYZV|%-Tqw4GY=j&H$Pe+KgEwSE_8?@S+ zbB}YMM|+9p)pe*RO>9x<_-{5$F<5AUHWhvFD4faR9pP0S8xEvBeK%|Vn3ojecAeFhz0)gaW)b&GKb}+Kfj7`xw*dm$cYXnEJDg_Gzn$X z%M}d7Ewd_#GMDfbCLY0z7G%czz44+#m?%IkxS)iYQFrhBMAuuuLPN_5n@t6 ziqk$J2|aRFon0wPNw}Ba+PDc^d46_3>by&QlpyiBBOXe zvPCH}a_tnNI;#>&{jM2B?TAKPm<#yyFF{6}Ftt-|;G&;s6B}lRyN%>Ka2uHY=q~)_ z+jBDGGymjK9iTXG%*vwM4x6hJvV>sQ-1eiiUMZCgWwq@1B`YXeJSumhL?SqDm`aLr zJ;qj5c{SR=l1Avtaqo@bCGA>56}2r1TLpPFyzuMs;H7F(yaEo7czy+4HMq*MrG08s zG!@C>TLJy%70-8=%7>@4m-o)%=ImN1~ZNXkVE51x?%p=1%DG>y1F6ApP9~}TIZvGrw zw1+5>AZzcbLH;nVaz<`RFnO%XJfPfgK!Y+{^o5dkabx`8;(mO8o4cL6qj$XO8Vrew z@e3hOOF&Z!aXA*40l$i}N@MM6^!Shy3Ej5LWj5(UrQ}B2=j-(AX9Exi#2i8dE@PhN z?!87sOp0TK2z|jO_Z{Bx?ZroP+fe$kBhD2SkO$6+z&hNZq^k{r`35XfM%*MCpb`P} zhpZ)h(^(^4>J9#Rh34JaLLb%Jl&wzG0xPRy4Y~oc>4uzLymAGf44wj@FD44QqUfM$ zPfDp0l13-xXA5x=eNpl9oRVp}0eoNPFqdGzPBs9Y7`0G3vM;XKul|AEKt?Q2_XV@; zGgn8rOQ?=CO^CYjs}zaCuqY4Zl%pD7OT@B(mau16g$uEJ9%r%A(j>r}XK#HOK@P|- z3VJZ9fpUk=g0EFQO0Ji8E%$}a?ECAUh-2%;pmRiOj`qtjcQ5X?;!zgEk#FnCqpqYi z+8g#*?66cCGBn{uBfp|;D)>mGDPl3Px*tpQZAw|hQRo0hSKUVz6w27jy@7`;$!SZ> zgfU8vI+<}h_40UPMSI1o&mzKp;O;m?=XYjjk#WVyp}6ms3hd3Yailr_r3yx*FmjKC z7Yw3`dv@3k?L{i-O*amsmq*;**Pjy{<*ux{Rhloh%YNNmDzzy`edp;;D7Mr8ie5-8`bw0J1;3~_&F|>(oP?Ef{JnAA&GR-|r zJ&kHqSFqLglgbH#-_DBlCPUA&5b2b5tL`9^#;-^K`3dlkWbSK|@ZJW{KT zdwetKMphO;V=Ge9IT;{tqBybZyP!PgH2}rJbl}Ghm5g+|ef$&;4tvkdF=f6;*$)zQ z8AW!!(&Vhfx+NN{q_xAuWEFJG1_9-fz|XkBmRr!2XQgRw3Q|=DVm7zO=Qs3V15wwo z{lAGF{2yXxQ9hCne@62}XSM*n-vE_plJ>GN&_XB}tfJ00*}s^f=UfpveG|17D0D)x zK3vR_q3ue}DoOl5AFNqk)zy5D12rXb-=5}{kafN&_D6Z};U4!d;*#_NH&%~j% z6R5l-JE6ioY(v-F1+lSS^$!~aZviN=KgT-h_lU99WlOFL?hf&9R-FlgHybzaL!5@S zp&R7)jUM^bY%eM}By zp0!z6%R!k;6!XKp%LcLm6jcY!EAePt2xc?5CT*aHS;yC%{eolrlgvN!D+HVHs%c{& z>`CZU^|4G#J+HX{@}{>UYYf)Qxrs9~6XU-Syp5TQtj%go0pd}n9Fd$hK6cU6PkXz% z+>Jn_#A;5==erbf?Tpzh_~EB>wSEPSNn86BJmEvbPp;Sg;;l0&?4~0}? zDg?ld89{WyKc~2M3o%E!Yzck+M{(SOUlTZaZC#2g~$NR)&AFBTBsi&oP zL7D+UAs`$;%zxg6I9`A0E^(Kve!+=ESw^2JF<`LxHQ!@qBQN}U5}wH`?XC54S2`DB zT&IBvFSVkKsxR}S2*5lbIH8W3=y$5N=IItp+7ibufO4Vta^&<(Uynu6?uF_lCZKQqsq z&{ocU4YQ8GG^l2N@^U>^5dfH$yHL=i8E5EpT5ezj!uI&;B9&9P?)DLyQR!lK{U#$0 zW{FrvjKp!UxdI;A#wsKmVF~ODaWfB37qka{c27R9RnB32opi0rLT-fBnoiC`7{K@~ zFeWA6VIf$KQt5KIc?|*}saw-qw{(9Kb}q1F{lk{EyH4*O7H#CQPf9@2Y7><$KY5}D zprdt^&^+R-zI0+8Y%4Jzi2b{Ss(CB*!XvMm$h~`;GytzHz42L_v^1h7_8?+joeFA$v@$M0ksxaU17|Htm6EKYd<52>A$|nnx}+KK z=;7V1-*cS9=}9;)=Rl`=h2F$suiHK?9x|T*o2cQHYlA{SMJunY7eJ?=QS1aMZInPU z;#1-w#eS!0zM2sLwp2)tV{7ZEYo{nj87`ID!vynP_`cFPrAWC2yiD7#0^z zR&b%?@l*P1WbfJE6LDFjoLfa*J+YGL$Mmzy8E*HS#FXmBMXKeb5iH!4Yw0SsWkJg~ zbTW;0^~66hSVf<&M3#P;(ZHfm#vlVHaF8+`{nk2m#9B}^nKNJ6Rj3r($>(VSWS?Sn zt?|TcL=jWUXk;jI#_eu^7AUC>m(4YUt%wZ&ah>NEntBT;A@6s;hl=!;(?(=K$E3wa zYi0>DF5<|(n~a#H9=r$tE0>H1C@mRV?c*6I6G}^6XN80Wp=Bya%`1!82i2nkE=#z- zD^Ue6_&+mhR@GqVlD%|T;Q{G+6M3}Kq?ta3_v+w7v6!~f#a+2~77 zo04<{Pf2V|vIY+Z-5)9bgO-~L-j@`o53iOOYORkBa;%Rt^U#Z$41(Tqan;)$J~vydaB5$w zk6uTN6>}5zKG^6wqo`cGZM4uO_5ve(i@TdEV1dc2yP3qWtbit@fJ~_U66n@G+wIlC zE!^Po%)}5j+N1(BGM5wF0@>*zQ>iDin7Uou4jM#1aN)x96I^AS4vEqixat?#68+Aa zS~qln{DeV{efHHwfcmLn5i_jctszL)j~j*a(>Nx$9|HL_VjeWmc9AhOzl_=FCfj(q z_j?JHmGkg6+on=D)xp*YTJ6(oL99D(9S@k!jS6oj-xrQ6+2|4xP%PN!9IZ{3jU=I* zl+{ass!1_0;mK-&Ikq6q3a<8PK)exq^neXis0$9NWRx5Um4Gv*%<;F|em4}`w%cRT z33%FQsiYcCscAEX%S1P0aQUfaZl0r7uV@1MGB!G+U{mha~tAyk0 zX?C;ickc+VUz#YG{{VfRefl{<&C=fDr8!P2?dghdY4jvHQnt|+I;86B6q8JL)=02qmG6}UCCLZbnoE-8zt!kTqk!%=|1R~{7@Sn&l9mGX zI^8z=H8Pv{K6bjyj*nks-8iY*$K1VM|2?N-mh{EM%5!of8hdJ-@#Bf-P=y+N`FuN$ zC0Wq$0jZQExp_V-=eaYRhHIs6`nBog+K;4T%F;8gdlvRbgSAaET18fJ*>^mg)NW0T z23mvlw#$YtnHAb>X?D5;xAnFt-4h&JEjH`I&-YSWtrYX?2_YgWHueTRLR9k{?$lrf z|6=Gq4l3Vkt>u>bUs}Q6YuS?{YyRUK>;}no%s%phg;p`c)M%yHWvxyk`kM_LrsEJi zl8`wX83hVt2GZW^zh7Zo=!8V2Tl6OA3aAw#paBQYd=q42^S?GcQ7<%kk8|&_@}|)U z(L(~#GqTZDNf*#2_Nr_V1JZn z@h%~SA~&7Bi+HAvqZW&4d64fK80=RA2{#qwX-JCk+_=>JAKeepf7?Ujv6ME)m;Ua_ z0M%fc2AGes0Z65^yg=|erZ&`NRc{>{QN=M3E$Up@%(f=*z(^#cME<_7$yx=kfL(6- zbhzB{vt8av5E_C-uaB+Co}#%Sri8wv>$-OP&$^xDG6ZC6!vLG9-aBYo;WHVD2z_}xk0 z!4l?Eg?s0}y+M1aY|lz>be}gudMQHdu3O&J*acR;HhV9zzPC4)|3-$(n0_0&G{wU> zeFC`Gi{5MrY%h}(oL$+1;N&ttu)?FsHG={bV$Zo#f@J>Y0j(ncb3W0!iPN^gmfe*Z zt~amq0~=Fip|Lhzm}X;ub81Vtb?LJ)9~HLckTkYIV~H-i;;2M{xN`;$gUe?ow-gnA zXnx#h#n=$(Z0UJ>PHcvO3F5J9VAGj(Sp4qS*)sM729{k0FD5c6LjTMtCd*l*Bm+wZ zv*QBF=fDi=?~8*@ydVUmsV;Gr@maUKSQ%30eJRZrOEBk4IF|QibnUp(Ej`_PytR$q zwWI9S4s4*;<;{tA(Q-73;_s`V-dpXP=*^$6KPgVQOOV+_SV*lfE1| zejI)U$`V-YX)vVOkM;Wra{nryg;hfT-W!uUnkb5~RUmcubP3P@Eu{6B8gl|y`^ePA zvSwG{gbw|f8Dv#wEnO4X(Ug6;9)?Z-*@G6U^M5dQ4#Ay8?beTN+xW+}ZQJfR9XsjR zwr$(CZQC}xZ{Dxo(RU|zat3>HYFF*5bDp)=`mKUGe1-^H#5~!fO<>d&V6VOmuavVP z541G<`ZMkn51%C5^36EMQ{s8{*=dpZnm|+;Z}i*`aJyjevt zAXRY|H1mcGcv1X-yYu-xk_7jM7^sXk$~B^(G0yC-KKm%$uv#TuL^j|&N?B5?&$0%U z_uz$|*D`kV(phS(&#hvy(Z68DYWT;=>OoY`YACLlda%M}Vx9+^)_2v$T7YT81~EG^j6 zvQlu(+MeATPG)`EZwBANF3^omsWCrp%{b9MAdge+p#kz`ct$vm1>NEM7crIGUatT| zjKQu+Ikx`j?1?RGzgm1_JbF>aRfy2PQV2go4Nb9d2p23K!8OsOG>8Q$uxLz@;Y%Sb ztvxY3)%Z7FOj|(+T#(iq-83#_lr-#7sCpP7<%-&Stie<&ypa|=3o7jK$MhW7V-DmJ zx9+BLFZy5<3!p8GMb^y(0Bccu; zGyLVl1d3-q#xj$>xK*!QT2S3`3>j_xyJR%k10Ziu^g;105Pw;UT3mtt6p7@mmn^Ci zhvl>V{aEdE?W9}!Y-sB*^ICuu_Xa|L$8I%3PM0R`LkybO1a#bjjt%AhSMsG^BzT3oz@D+s=Mr}#YcxXC zI>ztE#;T3|HY3Z$htNT;$aXLqJD|8G#AJ#06Lc}wm-3MG#FcR~WWMQM!@D4>ci2-S z|9_wnSk&4L@>4B*9uQ$g>Od%#&0pcgS7{RG@;+Bw@C*EhhinKzEd)+vzl(>U%a5aO z;Y{iszLbLQd1FkEX%c!OX*v^k%Nt`ww!-(SzGHlTqiS&&p3q9dd6;3*odGVNGg7em zYekuk=w-%5gzU*Xv*6Uq)R6cBd88p&1990HrHrT<$f%+;L`5<{t{4-yq#*U5K{5$% zmcYEqhs7wB=r_~~DbWw4x`9Vw{z*=#3v+(Zq%z3}yA6y9Qq$4sD=qx0$lHvKWKb*s zu4yMAet8$u$QPz&Ot^1_3=pD`NR>N*_d!M}(M#PjjkK31{+r4m1210y9a3`_*n&Bx zu|^f%pLDlaoX^>~TKJnITN?G3)kpr+m0UIdGql+FxnB zZlKNJ5t9;Q13y4rCx9h(}}?I2e$VbQ;T=S`!AAIiAy zGO6m41g+>uQ@)B!+|VqWHT)iCdv~y@XE3G_Q@4hd8bRjk2>cx2$kK9EN-dZ0D%r~$oPb*Aw${z7nMXexC+fNp*~1^_X>^P7owmi8cu)mLZ9I)I7+bO0nYi>E?8FEMj97HmI8<7&rc&bKrysP!uk_XGJvnAT6f) zs&~pZabQI8Y>xKo78_UOpD1^dl^UeQ5$z$NsV?QQlZ>uu$|V<|7h`6A`Npv`ZF`{O ziO8c%ny75B2ol4?+V?swOIfJI>1dVLzaRaX5^J0TC&?0=d>|adNK#DH>FZA|Bxe$( zILQbN?RseUXIq7>?bVt=d;z2B#%8Mv&(*VfgQQ6?A(804FI$7i?^P)6A<6ojW`_}! z?Z>Q<4gsWE74D#hSW$hJNjTI*LJs_e%wB!4hL@Jp z=5U_Oq@<85-XpAFqB@L}^V(B|kj{5~#smw3*4A<5;vb2ak9TxqOaWdifMSk`Z6hZj z7&N14JZ)vjmCa+~s}0a3A%|lTeFpfpw-zjrNn#xY5}~GYRdkzIe@*Z!fo1iJEz>_< z1DB~k{x)ttEj%?&(nil+kNub5ZddxP_^b^7alcslt@Gfcp-(Q}LD7nbZB#D6pS;1@IxQP~kPPJ?(1$!n>?-Clxt7!iQT zM&cUmF~~-`*D(|_ALZJeHpANKgyCyR6}iZvZ1pAq$a@dNHY=EN?VxEk{DHV~QT!~& zGdiOc^kgayt_i9}TgWLTTU4?MK%|9|-P%SodO*k~5GqPkr|6n+B1N`VLT($0H-fbE z?QAH`G!ZRbOUZD>wHeNC;3Ej~9g&Kb3)!NBm~tJU@ogpqIgB?Euk9{1*Le$_&$b&; z=k{=UCP{gz;}e(^lEYM(Ps0I@Y37HSEVe`p^E)+&LJME+r!SUtiRU}BUOXDJ%FwDF zM5fj}z=4C-yA`1$fOObA$X)DhCn*_hUSm>5Mc&pPB8IjU-Q078#~MVndo|7sV9je_ zOVrS32G#2P1}c9mV-r|A{sFj7KrS*9RjwX-f1c*TP|ec`I$jwCJLtD{$xT7-b9v#1 zi#DFUm>oSIWpXW&cn3n#Zf(2pcToPuAN9d}!s1lWJbTUJX2FyoRj)|UQ zi@Mf%r8HBUv!#I+u{YJG4xwM%0oFnxKnq;T`J%<&db!a8lnx6`)E<8BO5i^1YW{F#Un6V>L?P5<;ET8wQ$Wm+;3E+DS{`A1 z46-odfavd|bs(4kay)^4R5fxCzyHK^hj!Mam5jq)mh(Q>LBm`0YUQUyid%x_^80Xe z%1XF_!k!=NTbwF?Ry#N3Nv&v{Dk#V{MiB7@LFYoctlT*ATLgWqH<_Kqqd1){%~JO5 z+6faWE5?@Anw2gjFLc5-D0Pz4%>pQj@+#QK;f~SKyNg6!NwjOxX!Sy*iPg#3epD}# z%m1og;i0xjME~s+u>`vV>23FO3ejr=y}ctzB$u+p6f@$C)6wE@T1q`=sN8fu71M68z8dII;jh!# zB-_jbis`g)H=0=KmeB=^Xj(D;J4Flsg0bjAlFoj^oapanQq)p}ithUrSO+euTI?yI zhlOolO-5S*R-B4rOp1-+6p)~xdoILAQ#oZF%BZ)i?jfHSt|YEK%J{J)XC|Z; z;-Dc|mKWiN1ey4YYa|eKfb06&h1LPJEICY!hbRLXmVUlLvDmuC#pxXgRa0vTm51sK z?j<9$G`b`S|K=^;%sN)|z}a-ozij|V$>Dty;voH8no|m*gl1oGD%Loup$S}@ByqS>L%G^V4jupif@1@KA1Lbe}XzT#w1ko>pg{F3%)o7=S9$?_xi+pRf_Ci$~BIHnNZMB=i;l9;Q_u zRuRDhbsaTGSB4fU0a(|9HaoD_u*iuX#Lwr#9q&A_AKzAo$Pm*Ff;A>$STv^SUu~_i{jTPmE0ari@Vre zsfiku6X^xvy*3q^8if0Cl~bIOI8btARQr0R;1yJ*u|-kIKm^XWn0<;Mh8xgTP_P=4 zA&4Uc*!ji$kV1KdH%*{sgvtRWwMYWQ?dN92BWZ&EoIzBSti4U;=F1CD1CVeN_uJmgN`GU*mZzpA}l=m;rAiJV>nr;vA8ZC=j+LcTW*f zRNF~Z)@gkKIFfY&3#;2t#9rjL?rA+d9fOZa@77SREZvhs{IA#DjDIeh+vyYbI`E%D z--*3|^BavP2mlo98_S+Ep~pQ3a?2`}-iO!T-F_0kbp-?BdJoYZKrh~f|Fejk2+g6k zW0KA6aHQ>WSxzX9b#*^(`Is=<7h7KdqwE8aqIXk!9-TMHycH$=Z^s7flZSk4|D4)% z4VU3m;NRZ`j(_f!nSZ*Sk-tu(?b-hMj;3f%bv~UBUVSvd3l6NN{(JZxH26y!AW^_!u|a`So*pe;T4KP=DAhi9G!)Su9ZpLmJ56Wl`%OhjmDprGA$1V0 zQT%JcgUrefdX^AxcdzhL22k-&V++_Q8W5rE(V;lCNc0&Utp}tg^}AI5KQgLefXyQ) z!#jvO^*~z;fl>YW>ZzOr^)gj&%Th7qVur=YOMMfCe(?Rhr5xHHLK*9kxBJM&jK((OIj*Uv zo}YPR@Tr(>+#IuTBWz7;T7GC9vLPdz`{%@~WG*MQ5?D24xQ^S0^6gt{O`9S{Xvrmm zK)bTe=J3AYL`RWf`G!|fEJ=~1DHw(5stZ04jei;LV6+dH`P{B?Q9BL{EZxwvGfR0`O8)c zAF#F9@Tny??rO`na$yM<%Q7B;ND+=yeI!JWuG!UJ(nnaDk>EoQVRXZ*Rei!O4sbkg zNzZ%6h8gIM^U$2%n2|xr69Wx~6sd|!!|u_Tjx_%yh1L5hxk?W8O$@0FS@d&M?A;L| z7shHO-2#mBHm*j)un^0p`3;8Ne5@M(q=W%mHTs7+INH9b3~^Ez^X9SgtOquVM(y^n zZt7g!+lof%TD}~LMPWJqZ6OIU77Dc$wyHx8e;#}tvb;uAj?#nGk35NBBOh>z*BcDK5 zN7>7;a}?A8W!2l%@M-`>27@WJRVITmihzDUuYA23hwoNZ)L+)VZo~7#wD9L%cy`&x zUaU?eMhx%)1Q&0bVPE}NoX%F`v#;iA0}*KCQR?)5+gK#>Z*Ny#6R7;Fh4QkO?G$Zf zM^Blp3COU*LmOY`u?GV8LV@?hLR#pX3vLDnUlyq)(vp~M13q)7UKvyNnOE*Y{I)cUZwF4?QkE*teCP=T!^!grCYVH{sK&ymy$>Xd6shQVFgHPakK@8IaZTHj21hSO@D-A|!gDSyZ zT}4xFXs+MqVe+AvILEWY0rG635|n<2goxDs(I{M61zthDD9-9%2#_~_GL z^R-94ZfCrDa;Z&HqFhSiDTpf>@lq6)lAP-rDPyP%4vieul6uISxM!gU3m&JMF;*(OsEXML`xiLrhT=(t zwdPLeRWSQ={Ir^F3yXz|)N@VXbTVRF26UwNojO;j-e<@V72a{6QsHv7`Z+mC>LGYh z^IjaJt3vePZAP70Ks1Ajug+A&ECERV7@MoDpBks$1LTtbaU(efmX|~Db}n0IIa%V^ z7f??ja}X%?eJ{^p>0KD(;1iVt(=@!+GJOIi2qm!3yGf5Ymt~1MJS^z^^t9gJW5A!M)>9j;n(7Y-``VBHC~M$GEpR^yE6Ck)N*eIwB)) z?(N{n8(|C=&BpQW#IN*4rz}moOpVOGOWO+A{?K;+38;;+#Dh?fU)f z^sQ%)s08b((22fY(WGgt2?k^{+w7M}F)gl-KW<9wuDdEp-|Gc79OHpMGK+$e`tD;c z*@Q2plxvjKNvKpq7+&X_tA4_E@!1Ef8q?5RIXxn+n9`BItyBv4uf5908=a=)c^^() z&0w?*aBtoGCJZ<6DLHfno(L@q4n0`z6g)p(-K`xga86Q$?e zfubCXESw(MDK_U-XJ}M-@^F{I2P>Q5D2}3Y;;TBG&l`Yom2(FUt~9cogYe{RlF2m6 z>Ry~l^l*AWoJssLTU`Sl&A8PZxoT^RVfc`H`xE@0AW=f6d}Ch%o^^d6Ly8GLjIDZ1 zbR5+vgr2agU~KdltF&pB(BSX9Q4-AcnTe>WZO%RGw8L z-te(=Cin-|?m+}JmyPOR%930>SI_^+(D=Vy%$Xq40k~pXFX4@a#>=}g$#3-(6KLhQ zXC-K|gtW08GD!-BB*er6Cz5*T`>#j@!rob9zM6y*aN={>+f;zUmBvdGwt#+BDJLnI z$7Wyx?UQ+M4$}#_duEvs;Inbk4gjfq6jZCk#ulO?WeM5^O8w*}CdSRnqJHsaY-Nd< zK}i+xTVuE#1jd{^^o6JJAp1&06!A;e*&6JFSxq|eBC{rn^O1=XESwnyT&P-=9Q&c1 z7k`BxxBN`~!HRr9dAWUUCLBPEyc18P9M?{nsci|5PA>AUR?7nzl31QKGwHLCe}jVQ ze7nB>G^~#%{coHQ$Nw28#Kp<^|KWtTV=mifj(u_lRzb@Qd14NE`+*S{F`arMJ^bLO z@VxEe8J!-x|B|8W6pV>QG-O|GY%fPcEL76|8%t_mym2}P8=zzt&)jz)s zXHQXmF7YO~+4Y&aL0~6#sQBi9%?7FPv2J$)8scRU@!lR$%1SRK@Q5d4xj+{godmCf zyf#YK^F``sdqxKSaev2t_WpZy?(~*D-MnUJe+|E9;`iOTDJ1ECWhWebzC885U|1Yo z{gG7?7pGn?zh?ifeC2+cao5YoFFSoR=?ZK}Og^rT_flNUeSPpYdmjFK?d>;^ij3<8 z%;#fo{Eq-`@YSV% zmCwnzanw*2{`v$e}<4&K#Hyb$?=-Q^Sg)arh-cNuVt=gGV~Ov&D-Vu z*kQ-WDb)!gj+P|&fH@9ZDMpzTFh$MY*QZJ;$(&_V4?*j{fFO!@CaOQj1v+a3l#awh zY_3Kj3XP5RjxB}^M|qe7jI|MEu+7Qk^-`V)wl|6r;`!wC>2#~IvptSgkhp6K_r65n2ax?2~CKI~~ zoRBdx8m+7XOcM<@l3rc+29x4a>j$cd&rIvp*q8Rr%kGZAv0sp?AmKUf0WD}gcNAB}YJ-&G_Tz*4zPJVN*GI)yKy+0A6hy2mivT>ta zI=#PqaYNO<`7nXXG|$m)fpyYpIgPWo~wKGbmFlkN4EK=Y?N--Dw9>$e>q%t^X5>x#>w zJ~=_;bzNa@UV9VY{@`!v-KWea$3O#Ed_>K$+C2Fjd@uP9nNWTK?~+>7+{`2qXHQJqep z24%Lir{BmktM|w2yfW;X+cIUw^I#*XZoi#O2P3J~fer>JMZ2+jeFpJi)aaGP9^+9@ zuA+zXWrB}TDhvmr=glDV*M7)TZo$?KGqs81c1jUFV$waabd!Yr2eaPz)vVVpHbnu_ zYKk+`ll{4RR+{u)ePqIO>KgD`I!s#rL;Wd~^ms-V@53t)F~$J;K1t7f)WA_~5V+o= zR!|CbsN{xAN7g()M;gLZzk6(WF!2J35-%e1=#Cs_!)th>NoyYxowL9Qr9DGWes3%F zk0H-TPl3V9X;KB0kZwP!P^1SN*!ZB279#FlWNVZo$uCi1hM#Cnpl0s{r1BZWZa5`S zq?S~^?G?lj)fv2_0imGHv!Uupa%)Ll76FRb$wVEF=eIp(Ey++IF<{&pHi(gkSK1I--MtPGl&y*7Tw)kxCE zFoM?KPcP%~MVLJASw{yC!T50ny!xw8MK`X0+xXY^j{VlSNsPnvh?V5RFCJb~5{}A% zWw~C@y}w6;W1q-rh&fiFryW6zNB-oMqIrC-e}mzi;p*&w1CTZ4Zbf^+x|g?*>S*m* zawK5hjJa};U>H`hf_1ytQ0LfoYKveB{_v03t5z`?dejJ)iRee7=tw{o-5Uj!w}Tpk zj|2Dmvc8TMLJlDc?VNc}G;FFM@yfA=jf{&`I#{@VHPop9YW5~$uTl(=(MhC)jRY98`4D(qeK)!8<;X4({tW~u?_}_y^v%ap~TQh@S#LS5RAr| z+PnSok;#;?u>NG9D`KY1&-zWKqq4)*wcDSAxGXD^`txP( zdU~9}%jV+Zz%Mae`vIJB$;B~{fd(sVw4t~QG9e#SLiFO_fc6gFRK8vjXf+0q_oszi zLiK5tU3q8~ia`Gw`|y(Cp@q)-MAZ#nV?o|`angtiFro!^8&8ANu(QM!j2I}733jd9 z7&@``>4A-4Gi0 zo=nHH>Je*n9!Fp~6-=;$IYDpMr)tf$a711TamQUQ@5`aEuT~Dm22JPVKzk+NBO#>L z@mSVvp|prB{|!N5C#2k$7(nG(XHNtaTVxGI@uEWFM@xDW!ij@;eyW zKa-4TRVkGDn4WvuaB&Ak3c^M^&Q!RqCa%hsXdDmT^+IChWh)XCABl8rK)v95N=0S7 z!zhTp5A759P8>i!qz`N?CXio)sk4}@%tuu3A}Bl2A!St|Vumdnnn9cW2iUw5%|I;U zq5$NAYMiz=42_q(J^#Qw{H&GE3w1Z>j7QTa{p@q&R{+Z&wx5Z(6!pk0J zf5KlrRLQ=&zg`&Pk4Mm14(IYl+VuAA zvlCS9IMGyxY3U8qd%+dQnuyE7AnDFf&~o@*>r%y(JEHI1uJElT*a;y$%6`!6DQ@!f z&9<$l_STC#mDimdvSXh8$t)_Xx@6m=Q4C5i+8nZV?U#z(?=i?oFIuhA&^96f3@!2S z52EJl^iFA%i5(Vq)H-p{_m&m^w(4@1$_qCi3wZXbxBjJPEQBlV{tYE8U7XblrbG6{?nkXvXG=vMQYRP%I(-ki0Lw$tvl*bFW<`{)MlC<(%{bu> z-RyEWJotx41R-&z`c*k%CVmHBFnjLmDTWqR81&958Ey|fDum{0i;i7jtX&N9rQRXn zBM0{4Yoz=>1Zd=r0e_+J`}aWSL7>doYThSq>8q7M^V0Q(dp)oWUq|rCxcH_?%pzyN zfZ^6Owu#7PG=ZBFo!nM~$KVg@(qw&A&L0Y5#v@kIM~v*Zjo$0LTZJOOYpg^}ycd4N z`x@tK2MM8$sTV{X+C+6sb}XH-wb1lv3o15P`j{8NMp=v5_k^r|vtNtHOeSWNmLwswX)&VN z$n&2kl2O+sI~UJ^%d|b~k|W7Oaf+r#o7Zbr3%Z-6vN}2O^v`YfX>3vR1IUMv$R<^e zAr~eXhw^04wR-yzrKj}vfD%{i_qUkezNiJ@jT-9Ilb!Yl3!_qwk)8{cG z)F(ZYXV>$iTf^tPlt2zb3J;6;qE5n!z{fzk5*lfdpQmA9Ms?Z2M>xU(lS+1ggU zKPSo!d;Pu5mMgCMOg^--e$3Whc%3Y{*tFc1IXjL?1<=|LiE!_GU(u&m*mo&%4hJub znUrAge}Z+452VdnHSP>vbbBs67H`xT1EAka>1BV@Z*9U&daDCtGOF8B)C|4!fLhRx z*jMn2{QhBZtx`yA1b?Sbhg0gpuwiSi@M=hvszZw0I4T_YT&p9q4@3NmIw`u0O%RM( zV(9#weJn7zp)rTM(LG}MrMyEe9{^9GrVi3;i8 z-X$fI6d8GdroQ4~9MUWUNx%p*X9v0_*bY9~kW&C?RBAm8YL~F2Mj<9K3P4;R7WqY#sWsjoFQ+N=eyQ~s>2`nCDO1pWTQ&@; z$nLhi#ihd;4T?69&E~dzbw2HeaiGR-{sOTyac2ZV8)@}>%Y_{hb5ZNrWsGY>HO!p6 zi%?7URVA3RPM{8^_O=AAYf~dwqm!(G>n8HG{qnBrp`)t07Gbu#MU$7av&Q6iY~B$e z=VR(%Yt`T;{?JRwV8rKML=ne{R@I=>^2xFImbczd2b?sqK4ao(U?IvZQs=;J`49_p z%fN_q7Y&Z|@5-Uh0B}TZ&v|^Xcg1zEpR1^Ty>LpUjys@U&!8jSv4&4qD0ee*{apsc zx3Zx~kT-v=(;^vIimWb9PqMq$F-pGk;F0Hbi;8EEllF~CnqVT!8n>EWug|8%@w+FJ z-mc2I=T%CniwygiU6P4^j1;4<-X6Z(Wy3^V!`@S)CCa19mLxBj=;}c3lrq(4T2ToT zpj-q0;uv_IzmK`*MlgNa;K9sJcoza4SH6~?_%tIyW|UDLeEYl*s3}$%fxF&IE_8H; zaJ9qr#Miz^t~9;`83%Aus+jLzlZ}kU9pD-9GlIIqGmE;o)b=Uz2IO=R4yQ*`1SqTV zBsCX~=}B#NCfM}G-!yk2yJx`hcaI@^4#K7&=&rY#gr z<=0CEEh?4xnsz@tbMU0+M*QZRy^efJQAinQ-hq9-(XE=$!A{jG0`yy$86cEc?)HRE zkQH3v@&phJYOcx%5XE*Ji42W_mtv1+LG2p(M`==mQ|D(|XF=itX-WCiy$;rG>JksL z^ctqp%aL(5Nr_+k&p+b9NL*Cd^dXtOAc+tYSz#R0v`m-iUiSPc`6E3}cGw+lmiKvT zyJ7soP;gvgR!QBw2l2R!_Q?qUC0bC0nJsevb32latysD_+?6edrvQNN+13gZEkCO}v0%RtWi{5>q?z*Rmb>!mTXtZcb2_SsiXXK>?+W@0Em5 z?gG}h-2y=E_`--qTtNhcN={JEU9Exm15{G(pT->i@_(_`z;33pMqw;GD<#3xE+>%t z`5BVMB8@@wg|i`hF4wyw+UhYLxW{m47_ zBAiNf9ES5lqxBpVbD(t{Zk#J?IA1%}G_oj5r;8Kn;n(djlG+bERp%Yqto82mbsD{W zjT^NjLUPw^-omFFQr}TCzr&~5Ya^!lSFSdXO}PKq{&DLapib~bdGnpUgz$JQ?-gy; z9UQkjned+8_gvB^TzeKpIQ83N_=yQ=hB2L*KHw>36>~*oE-+uehxS|IslUZc1zNY0 zuQgnQ6R|)aIEQ-}MZ!wCz`_(1*-6uiMhEPZQuU8p^c_kAp?pER|JuI33v;jeG9LjK zOJ)JQ8m>Fw!P6gSiY>{OXJqD5Fiaukpk<43aLStX_w_0~bu0B6?wKHUz{I1Qjn68d z4pb8Si3OVI`b}tLiibO7=gx@tB*dnWgFp+s|C>SKSs-yZN&y;XKpGf4it6(|18S36 zS-&Ip@lbkO=Wt*KYXQ{LJgWcC;$gnetA5}T+- z#Vi104J)u@hhcVn;mAZsyT|E9?DF_mQC9jb4#{)9`()Ps$rNKimeTml4CZq(icc;` ziVUs%2G3MKNx37Ypd(WTyy-smqlYn#EyT)Ea8bblny?@fygei_pGR2pF&>zRhWqRX z0vGVo3aiz)TtNcL;D$5cI<2=yMj|_4FVR0C+2$4t7_yHqumhMprq#tya&sBB_MLaA zBpdtMd&>Dya^{ZU!ZPLsj+Iftsfo==Ho_Z=osvcop87!f>_82KIn6k8&xGz}IDhdXfXWe+VHcPt1_e^N#fBde4MpU{YB z;>4pI_dAECABNHg5r87B8?$*S@f~;XW2G*=%sOZAAtq%Grbk!$4=4PdHMz*)VujA( z!&OsntX9pmP0o#@Azpy`fQBR%l=8PAqC}XT_Cx~J2)Bz7Ko`^!?@W?n6?Tu29(w}= zXPBFrf+V0QeOq)t8xA8;``!B2Q5X3+$l-LbJq}Qz`3}8AAT4#C39#9)h(8`2C)oo@ z?_9#ax_n5tI}hrkNtZ$hCTyZ_e1Pu#&`pd~Y39*ku(BG+!+Qucd+AM~T)W**w=WrE zv`kW3u)A4&e}o#5pG^{koe5Yzf~*{%GU5wu`f^!9AY>{`2_HXu<}!p5F;c=!tFo2U z+jpAsPWTrZU$z2K85?N;uC!Fh`judG9IrX5z~>wsF2&l`r?sdk@2;whDb-9)d)OL1 ziU7}*Qu?Hh(59~9Ye3s-e?|yEqUH3IfN!t`8K3N%D&o}i2?ENq97q(c|EYIVd23^>xIWoZl(06pw2EFz3>_RZXn zwjDbPC~?S#FT~=mn-oUc{?Z)_C3-7yMsVCncm^HN+)cvoKEJWgHR+|bTRpYx@YN;Q zb}7Eg>Q9ZW`CQOGxgrCr@f28PV|~8sRYn0d9?#XnHcSnf)*1!DHgHg=|8#oZUK=AM z_aA%nhojbbxHb^mykyHU7X_=&rrw~>+{6J6Z>TL0siLzF14`m!lL(}_4{rvCgmFN_ zRGI@NC2I>#QLG@8T+OSZlQ_pI5IF|w&UsB|fxDp@Z*CaoQh#7P*Hg|X3#eEF$)39{ z;~i!o;7{2Y-SFU%^(ZK!nkA25hXPa%Z&!;|j7BMszTjT#bV39YiW>p9V%uV0PrW{F z85$m+eT#P1oUG>GfaOZNFG?mkueGka6nW=#+ulj0breWPHAD-{fkpa}8=Q0cM|aLFbHLlgsLP$~>W zN$dYkxZUdX^hEcP5(UXXK#Nm%ZgjTKH>5myCzh(&TX!sN%Q`Ar89shVk;x62{taUg zRR`}9C&rQs1;_ju|H9+p`w%ds9%)D@zLHYdzmellUhY_pIx+w%+r(v~l5G>?(wE*A zjX;Z-nUn!LF}{k)gKULo=#;vN0wmYJe+m+`2?DNwxK!Ul(tO`1Tz_Ntx8(AmKqA-k zPfV%p@KB*sD!Q2y4n+BTaWH?BpM+sQS3G_-81!(!<`*~k=_#;ci|FHJ5X@5c=MbOH zBgnJ;SgU}F#`s3aRgGoHy4*(lK#6@h4%!uJYgRCMk5=&+iFM5J*08d3JsYFs+F*L8 z`ZiZEGpXJ9P>r^;sz*)6>h=gLe?@D@9v!Y<_^r#;CXj4s8nObUwpV~z&~LBd1|Om_ z`}6#5p!SjAr?>!O5J-^CAl^t}HU>g#_+3OJ?CRXoiz;OKpsThfNn>bQ@IvNBX2WPk zp!m6wwqOxpG14*ju%A83`r(^Rb~g|QN>bRl*^Uv(GP18cMT<$AV$Iu?B@~uOR(I%> zES1}G{K*RP&7#M?4x(60`BNZh13EYZ)M7q?UY`j)(WDtQJmRv|9P3bIr>&Ni-KlYm zPa8%?a|&d!gQ|ggrRW5;06WYRyf-qJ+d8SD>-;Zm89q*WlIq1lK z72i@dDC!FG4%3MouPDYJtg#7Zz;9&(gXayKTx2|n#DUrGA-0PF2ouKd1*{~ls99pA ze$INQ&cWU{vC`Q+GD*>76HCnMD;+``2+Q8!g0tNTJ@=q zJBiA1PcV*nyq!6fnp?iJfs)F1Tal4rEmm_2PEc5^mWpu|ip?>*%){%s93S_G;=S|l zu)bdAGc4MLiuxI4D*-3)wowKq8?8%z-7zunqO#B2c|&c=ep@ZZz?^P@?iIdC3f2nQ4-)c1iTsKO?Z;z@sT&10e@>=IIK)F!&A^^M84=MvFWv+L zIqehsD%&`~Ri2xFFzjlQQiz}_qWT*zUqPfosF zeq|g%0AW@R?<;rI?ko4&1m%C97G!Po%R02S;wjGNlD5wD z-YWZ!-J^w#^NxZqd8)`BO@w!3m~}E!x6mc5dj4R!56q^CByWkvoEf7OGsJfpZJ~OZ z(0VUDGgjdVs!75*%mtrQaVp#~pbJ!aliTrmopE!qWg^j31r!fZh2Db4MF$el13Ewn zrz`-DgrVKv2QtSE!BriMTwsWE*hetJK9ZTR1_laEP2+%H!BI=5+&?QHn7cK=8IMp8 zEVqsY>4U_-U(#aSq{**FS6`q!*kotxrmEk8_`tbQdvd=++{c3q=Ke~q2O6RnxXxNFb=p>t;Hlac$<-z1MUyZ;n+AroH41QTYyMaR82wr|QC?vV| z(dJD1^^t=3fVDj+n%-*7opX{*&ve;dajb9M8Txn*#sKK57WcBq9p?Yu7S(t2d6hTb zL8xtvM>kdjudSSg67{Cwe5U$)m8`bYR!z?wRB)3Q3722SBl`g1!sSo*yH$yY@tJKW z4H|9U-&CcmkrHrNPsC2>f0Os~X){rBtI;^)`B2KAE8Xm=!ZyP8 zCT9B^i=U3kT+(+=)@TA5FulHmzT?5&PndlD?Smq-VFt*`^c{1%R>Z}eB-^|3eh-Z! z;Y@HNf5jaoN4U2=%59F>yW?dZV_*R;dr$Tmu>1~zq_SMf4>=Jnp&OJ6E<)hj3;<0f zsLwOsd^_KB&igqpBiq={XX~y)vzIA5&N*UpkY*ez7M;!@)|2x~rD)pv$kw<9A06O4 zeq(hV0ma!jsD$~jtyk-Yq-ATf_}*hAyN!3WzXF@5-qih^wx+JP2zt<#T&A8E0$0fO zL%6}@Ckww^?4J?yVkg6a1cpbo@=C!BM_RLT1FGqv&8E7RAS(vk1c)eUdA=`PE~1mu z4|#7)$ZL&7`gH9d#^4Rl*^1h7;ppm+)*F@lPD6w70w^&+tMmH{Q|oq*&+pMPPj=*6 zI3=H0f(uV@D$j9%7opRYDn}UwKuJ)Mt+>dAA@{@7U1*33QhLx>POOFmrpR&My8iX> z&z1K1&xZ^j&n37UpVlP?sF{lw?NAU|rHr;XJZy2ZVr2M8Rr*5K!fGB`tP5Tv`ZX-f zwhHG~^iiPQswH{AzRII*6$ zX24>{OVF!%oa%5V4YH1S7WktCewSmvE=S!`pWK9Ka(ndf6W(i0;kzjkyC+-!5qQ+5 z@Qpd%tEE4wX~>>>a7S3$2(W=iT>3(DYDC=_-Xcu{bN2WPi{a#E`FZz9?z4P^yxgUi zlc76siWi%knEm*O^o5JzG+NX;8clyj)8c@l*q7jZzse*P1H4eEm`+<)PB$ix&|;ux zrIU=c`9)Q{1#);WPN+4Zm)nYx$C0@c&EqhuFpw^PIofkp= zREuKv*i5EI%$e2qRSHO3>Q&|+tHWr60Y=$C$}!U}Z-uz=x8YL$2w7~+9~3M-_0XSm zX*)q%uBD@M+r7S9?Q#6oCBEdXElu3=h3VGXBM79`?@VLyW`uHE6N57(ukBwtZt6{- z#QRT-mc9n^JU@WNj!*U(T=v?fOJU! z9uUC#bA}xcuRjc0t1!jO0nva+=#gRB+!FO>M>33_UzwQ-AJw3jNVeh{01M00k03}WA2Z1XwGRhV zF+c7hT;NasoZm^s3!Bru!#WpDKK=&Sh_)e+-FpUCE%ZdrLIoO3Er8&_f+*!h(KXkL1^!Szshj7Cxz zm1m8JV$sd)Kjwq_G*T-wS@ecE+1RooF&X$}{Ql_w9GkNEJN}U&#oW5^dH&%kXWeb8 zR2`2K0R)F)iG4%%4&Uh>r16ye>>@fX=NTv=*?k;FtSqG_MafwXgYzx++62Mq3@TzeG^TCljhM+KS z5RH2nH2Jam?o8)jPwlD1Rl{B#F{h3wKPawWPl-zAVj*rt?hQ4Sr$Jx0=+W#J;Jx2JV z=UgyoXACGZlMYx&>dO(YmBf#K|2*;S^G^7C0*w2eRocw?E~Gbl$zu`*bKi7c@}@SA z$Ji!Lb-R5040Np+H)&pX&==i1qu=(WrK35us{n%2$Jg0{3av_7P}V&d*5_E zOQ|1Ug5ij908Xw0IVu=izaW{RnMn8#*r=_zOwk);hE{Nq&2V~dgu9E~)1=%ozJi&; zt>&|N`_{}&bhZVHAaD=<+*X=eO4$Gsqp5ZTU7m+M7aGz#j|12AY|o+HTB295@`!o}{u zUf>BlO(yOp`X(VS!4zT(6u)mJ9g~~%XX=(L9#*9qeIj9E7=FS7=0&PdG4YI1#E+aj z2ky#9+gZcN|7PO5$vkl^)6^smqOI4^CbO=f0Vh9W;`_Vo7m=2eW(q&qiR8V(e!C@_ zcemT8krM~qReYCgPZ~g4ayoD^Ry`d}h3O)=uAN)?Ka8DIbY@+!u9JMR)3I&aww+GL zNyoNr+qP}1W81cE?)>B2oqe;%SZmEOFV^jxRc}>2ZxarU05Xq0(;`|REUQEpaP`zt z>J~$xJT%R;1F!FILV3$Hi(Wr$K;iHsF2zY|2 z6b%U5xC{82P?EXpasmX^356-fAHeS}E)Et}&|q@8qQ;z2_Bd?QO7mpLyh0N$_Z1vE z;@(H+{&Hgg9+Vdo&*ebMe>s)SaF;Z;%bDjs+I}ME_h1V~4{RfvW6T{!VyjhpqB@Ab zd0dYN*8-0JgV3!UAw>#XUa+fY*E5-xjhgC3xlZCP?#yR!r;6TYO>euv&ba_ZvhA)BGt zwwQ>?Zh;i*TT{I?GcT|*aX|nIa`CR-&0(ZS@H2aWuHDd|JP5TR%WxYGWachPRh<5O z5n!y`TtXSpK&dj>S!?`+>;=H&54@UK7uYwx^0mZ(6@rj$i7o#z+PO1rJrwVNEgYgP zDj&JNndlk1nC;dPT$N+*6&t8uPJ`it4MXJ#s+a+28S1y(r(y*~q@tLsE4wZ_*3&gP zojQJGpGiVmK_7H$LvyAhL>eiwVVc1dC_@$&S=c5+9HMS*t(AS&teQF^kxaZgu+9+W zhAboofi;rt4iWbQY_<2*?qY``9u)&s&sM1K!q7UXF6X2nP9RiU2!HHLyS2o&U-4(1 zo}0^@u;>RhP!A72OzsPf?+GgT0{FSg$|(@qt7YY?uH{&x@%xu@v?X$Q_vsIBpQ(wZ~?Z-oPoZ>?vCj$TG89L|;eua^? zcVUuHBs(Uyq#RV?4Y#EPdV^79i42|rIQRwj1ifpSZ37SiS-d?qmn;UCXrK>pq1BBY z3TOD*zeuwKmaW_lvtq(;g@=?pM=m=u~I zqvz9fCv`YWU4;rJOLR$0n;93RPYu><+}(A#NCM?!xOX2w$*N^tm(7!4Zi-}`)lOu{uSE>eH)0( z4i!f=z+L<-)SEZiAx>s?IK3Su#ZEZw^r|>M{4*i!<8`&{8s_m~jqADLk?nx&LcB@& zYv>4>B0oDW9MDr-^&4X-!+$5Z4A+q3oSAs$;WR-IQ`5HKpmCjTwbQZVVP|JLnWETW z%?)`Ey#*^c8goI2O!qdiJt;7&$!tKbZC!>~AD}K=mI*O~^FYdDFOl>chci}2PO8z# z985*R6=ed9jE4x?nv@5;4U27?dOr?*2b4RmF7XzFyF2mrM8XD^DK5^;w}*V65dr4Z z%nxng*sh3u<)i;Fu)_gbH&>VP)tLK{Iz$~cToRe!R&Y9qV!TATLa^!K$n(`zLZ;7i|ccg|t+^(@=%|a{LFA?T@#=YlSu1Y_6+sVeG<0y@T;5G$zhmvQ5G~D3tZ05N?mOjRz zqc;0*mLR}cUlYeh-o6v>24)b0pjO@8w8qYAV);%EmY^A3C1zj*3C?`Ww8$Ex9K;QL zh&Gd!11b`kkefgs;ttWoU66zxbK^}STj7OW^zP-PqF9a5b6GdItFK%R5!0czgtz~W z0DcYDCf4&Qel_Q@S5Zwox*|5^?XI0F9BwoHT8bHR9;#*{zsMpMyK^UW4hWpyt9u}* zzPi?5KG)@xLo7HYyxX*!W8O0zqRdsXR0X*&fm)!( zPz5NIUSM*U2K*3tRWlK&g#b|%%@>RU^Kbawt;seuLPhk4e;;h;v6mmawY1E7*EraV z7W3M>$o={)IH<3Tf~34*Ebt%L3IpHPKlaMTfU23o%(kdzQSe_GY)VU6v6S&d*v6es_Kk_i%Wa^>lN1 zwD{}FzpRv;H@joylw8?IbJ|1IyzO1Y3T>SdVON-O2}<}jO$b`k-)e|o#&oNsD~M_) zCIA%h3!6}pG=RLCP!+d9M525Q5(@9Z20^j7VrLpM2tU9CD9E9633@?u#a_qK)U)m6 zNYvMp=t0j_7VGG_HpzIHmWDy2Frh$mIJ+;-`0wvUKCrJMwn}V}2C#X}5zO!hPELvg z;eg*g0nVpy%|y(T5J~GGIf2!Xs#7qUZeA76?pxTNvj6FhJD6I924aqB5ors4xPN9~ zmwIa>`Om2SKES>d!0hYK{@7D{-+H6fO3V2fo*Fv*DBF!F$||8@HL z&F%4a2!sK2FDR>umEX#0jY1_kkt0haTm%@QgN5RSfI(!c23zdvuDS|TRW2nV-tfT_ z%A3GLP<4C-qmfb|&Jt~7(sM*3r4g~MrQo^)MZFEQFOWmeWjHyK;L`;96<*gDW>IrO z>8x#=Yt-M+9RIhmD%_F{%lGZ~C!(WK+W@(HAc2=2P+j%<%u-wddShdk)O?OMI!zH; zgE*A62qa|kJ(7&3hKVzEdWVc%)}mT^k0hsi%OZHmd9Dipp63}$#fk!f`WKH>_1Ab9 z9IEl1UY+1F{uUjZUWs|fik^{NhKpeB7SAHMpiCrg>g z*Uz^^im({erz+uWvXuQu{(wj7soaf_ARFV^nkLvreH!u55rUFg(rIq3>{K)%8d-xn z(RMox%Q$$FL9~ZJ>$=HR^nj@tCtXc3%9GyCkc6hFA1U zFmzh!W>|M0LRJzLWs~k^!n00li~bFyTz$^EYJ^|6ky^ke$exy}G}m02*BToz@VMBV$Cb&6{+bkc0JmtY}t<=;deeMQgB4$Lj#M^}>@ogRJq;dmdUd7)+y zy%ngiaaKift;QoN?b{vb8!SB6XP&x`^cH68&r~h#>3Zz`M~I%nZAr5h-*3ZZHeYV$ zqHnLC+I(}-$Z!m=;wVnlf`YvSlcnSdJc}POY!**j)Z^D#frafA}p{-5SxOVPyFt%9D(#F z$TSBxyH|IWrg=fMCtpZ~t)EhgzxEmE!t`OYUe{nEg5I@iw-bwrwT|Qiu2*IUhbQfapN;D3w^3yG_Pf!X^;{Mgkcr~3 zT!;!nh34oWPQ|i&p*|aGSs!-wN?-hHwvMgSR7reB-(i!}`X$E}@4k~K|Gr!G6Eqj- zUh7@nV|ZGfph2&iG%q2?FP)D4uG5(B7)@4d#StHJj9>@2e^ynRcK{=nHi>aqUCc+ZNw6jc*{YeelI zXyj*;Zo~Du^&vNc(PsoG+%wYVv)7yFPuY{@y*o0E+JvS|-_#UEI=7 zNLP@jx}7`=%`&&t2)cmse3Gj1sPpP?El-4$ze8=m?BQJ(TYwl9z)TxD%o?Z~s6q2f z*)NUWWEJG`W&=HM0)+TeM-kS}Ba2;gP^%O>hqsGEGaG`8i(N8f=!ffY| zpOc*6oqd61oq-%fM1O>%BY9G=ad0-wi@2m_D?U#B7)UtP6@EG^frO1fAT{uQ!KTqO zfN^lWyhuSHyY*CD3CHp7?C!j_-%w~5(cQtmsGWVKBYw+eLuEYoe0rY{G6V$vwZ(3& z61>##hU}K!VU;s&9StytQA5F9qpDno$@HhhD`ofmUB~rX;kQ0hcu##b@=fLKt}Ip& z!GwN+kVYQlg1A|@dmy#g7{vV4k%3z+V^*e!h1{R3}>`Y8JqM9|Z1L}{nQw@p(=nM}{AaFm)AI}uYW}Hl5w9ZjZprRQPZWLL3 zh5>>DC$I(la%u(khb5wNZ<|-V9w(;?o6QoYyrX66b&wbvqEDI&e}uJ#@;4B$gLX(+AKeFQ8v)9=KhPWr$^Y^yED7xXT zf>LXbbd9hi14Hju=@@%qyx%YuPtw$6AC`Bva2gB0-W4vK+AWAb)#7^Ub$Z|$&|3;? z$`N@f$gcaZw>n;QrsSMLtj%la0&fjp!TK?(nBndNY5vf#mH>^(3X0@m6 zqoXw@0-;M4qoHkjeUP@A>GRPg@w$W3SorEd$yhujDze2Np{>wwXGeH%5LAE-q?mLy zubS!5#34?eFGm4)B=fRT^!#N%TL)1lsG%FKZ|^?Q#mrIQ4@3YH8f4eSeplaMgcOZw zgQp@1b0(%Y6)e-%ye!jEC4l2BpxzGZ%!4Mhsb~my;SVRl6M+@=l}3p9+THU84tk$F zL^pFi*pd>Afz@CQL(<=8J(G zgE*=YS7Scj?8*btV_snWP_0$_9nc22fAywNuA~k-wbv21Trh10aY#_hDQBD+viKxz_Gl)>3kyLhO{PS!0b|q^?oHrbiQ&pXejNX3Eax&Cn2VI1 zm$uJ*gj5kAs5k1N3KuTuR7Nm@ir^?Bn;@}^MS`<`>G?(F49T?O~R4zpHNJLw@ShyJ}C6;owii&0pfMybFV!0eKqT0b4#u@uo|J&AS>l8qUchs_s)KcSH1Eg7g>r~5B)x4S z*@eYFzce%1G%~zC2POIA;LP3@XsnaMnsS379Pjp(jLz_Vr3G5k1vGuzK~$P%ZQ0@wJOjVlkiRTyhlKsv-?!*Dwd7!AK#?I7lUTXariDd%KsOi z7NYOPA4aMy{l5G;R%4Jaapr#&P$#L6vgog%B)OF^5NgrnB~Q+5u3+E%QusjFxaf2s z=a@!L3{wt!q|BTjbeq*>hC-%g2R??AY!g`?6FkKdYl+zvm%Qy>BW<;YkL{g6+Wy1H+jb@ zkIp5XGC=vin;kEedE8YG!R>Rpsf^8EM24n!dF`+{R)Zc zVUCY|glJ)Lw<<(dH$%o|!~meEuKlAK{lf^z{8`Wl^xO|U#2{;*9R*hCAX zVqTlOa`!jS5k3B5uh}6t65{+`N*s2E^tGt$2T-Uw&|5iGl{L5AO^Ah-uUn zz(5DPiW%x2U@<}vt*uFXi)U^sz5x1z2OWhNekThZ%MY9-%$gpua|Jhv`{mUP_N{V^ z0yLF*wkLz1q?1p=>Rh3s?w*kvPqL~D6k?6+0sGJTPo-+`xe0AK-;GPf+G4Jg3m^%4 z?iF;9bSK2IB+xBsig^A`DD)4s{j^I;*u9@uDnQt?R1vFIYFGK^b4yj!_t5lxClx@) zcR?=G-P|KhYun<4tPH^q8A1t1&n(yt035h`xExohV)gr7h?{+RtRl>iZV7pR1=|BQ zk8cJ^QQ~!WwCdx!X!jr+R%UHx-n3Zxq=;3)3mfPtiK6VSZLQCME z4%Mlz4)){P{y^*cTPDUsb)R$#L6a2=JeMPZG`M>#JR`3uLF7;#Sx`QRb$h?{A@7qJ zrADup5`G}Wgav2@i&%xLO7#PWa_jr<-w%7kt4tep?euAGzGBd(&}kgqU*#s=*`YnG zLF=vy|0!nd-#ktE3kP5EctvENjcR@en+zL#?c(aM@h-xmWuve0&GwheUFXr;W2o^e zB=$h_e{ACdsyIqC8L4ZS-uLNuWlUn&W{1l*S-2A+87iBptv>3qA+H<3&RP4sYk_U_ zQ?h(a;K)~+W0s})v0dg&{oYVpc7eeWu%$y-U8=JjtdL5gj4D^pAt}5;?OiQ<%KHPT z9`HX>Q!ZMAla4oL?@>^#5_pg1Q4(lK#^od z_KYQzVcsV+XWak@co$r9TB7a(xF%z^*VA?}(H(ZY+wo?Ru32`t39e3>Vg1jg`zX=| z_n+q+aYPC`Ph6We-P*Y1914{k>L&gW>CUw?ufF1hcJP&EHKqHV@&!Sue4#gY_l$xy z_{-x7pZ`VlKLY&c-lu~%p1)5I*OUWQ&nfXgpRTzmqnI11JnV{#Br4fbg|_YdSbTwZ z_OkOgzdpiHB5StWFGy0>XL^l)uT-Bimeh;s{AI!StVGQ-)8!T%R@3|3AwcE*MP>+% zAx>HgHT)b}?h~ez2CIu*01-Wz-x6K`0y@n6MM%s5Ap@gE!2dgB zrhb;WMU{}1y-IuuaL(F}yDTD53=c_Y_@vYImqeS29Z&_&|C;W-e!3T)3gGJmpJ>e}kiD!hcP?sq)t@u;EOTQKzHxL+K zqm{O9?(WsdM*e^@bdHJ+qFl}DW%EIBoC!;w{9QiE9y2mzt$7a>B!7+)%56}Hp$>Xd zLk@VAb$<~=2$gv>2XH=&qku?Kj+yMG?U9AxO+1PnjWTW>)ABwir_zn316QY|I7{Tk znv?Bv&->-mZ-7Kyir)XGPI3HSsZ*Sc>`eb3b!t5Nfy3djJDX@3Tz!T%X$~2KVP|j! zhF<`{9Gu6*&~SS$Z(Jk-PW%IAi?1*5?y2w-Gsz)x$}4TnY^7ki{xQ8Ocu?wazQwt4J6 zhX9I}d!g@;NY@Tu2hsf3TC0&|2H5L*qZNNHpNpV*>O2O_k1rILK@tL@(Zaet?t3Cx zANMBCPnH;sNbo~de_8}~BCxu*e)VYv$eLz-;AtjB_L#mCfs2owFXOQt4fKt`vsc?8 zh^{$z`tqe``)hgq+sh)TGm?KVr#;W3N9Wirn@)S%>O>dcCW`O%`xF1>w}TiEef8Z$ zlCD|Z0DbrVg>E=&AS^jyB|xD+O+OD-wuN!uBj?p?i(Th^OBQ^sd)hFj8bYDh2^w@h zNJGIn#c`)y3@!1}n9DX5v~kPyeaqhjd$!RND7X+{?FRRz{>Y`PDO^ITb zFv%X#UGjtSaD3UvOQ!ql3+`rm@#g(V#JG;5;Q*~J&^8ecK3JAfzz>-?iVW;ooI?| z(kdmcp$~sr3OaSAhs8oWRn5|5QO^w#rslGcP_ChUQ&;;GVWR-)FcVqC#%Q%`M@U&I z1&-&Zi0cK}Z5Lg8rta)Cp=D8iD`h`}buYdhM`zH|^ZF0q$WR1*1iJV@M(0?)2MUMk z7{Y)X)mBXhEb+)%cj$eZb(mFw1HUTt4uV)AAs+)-3pko-S@T(c=Q$v+`z_w9bN6q~ z9`;Y~f-zA5(1{UEZ*}Sj9hx3EI@LDY4amJq*4sNR|3W;rE>Kj0eSfY7Db8OQPdt9L zt`1&rv)B(p_;2^Q7-237S7BKW8L$x$h=C7>1k+SP@qIniQh$V0X9)hA+p%9W3sA2-S42Bv_D%Z(%=DwqF8tp1+A{(dEuQ=19d0#5^q5{f$O? zUms5?3&1y%B>=`9YI4W-3y%fR5*R%TD|aPOf;p#+Vit^En4gtEY1jVv&{Bf=_S~Fx z{Q735BpXwp?J{irWBZd^)VN>>5sKUU2g*hRZlnk%iH$Eq^Dw2ht-(+mRHTSSAYf8} z=`&U@@55@Jp4~;dxuDnH4`{&v=!{Np5W^Qs#1ppXIjrUuWERMC{emklA7Khex0el^ zD9tjGAHl<2pZ(?4G_fD4{M3?fvnc+o7~4GD!&=84X%(u^@y=h$^sdFTuMKnVOWSuw zo66|(@ssfEc)g_3hhgmAHvPSGr9RHI9F)`~6qvux(FLGxvN&VB7;+7yI_9<0X4%<+PAIA)i1>rJLkW?}>N?}b z^7>=MnH|)%GSy2SbMbAS z;1Qx*gQl0`#Ms!n0;s>!CN~8SRk=3&L^Ul#u&eeLdRa5X&r?D%?>eLEvq5@lwtyP8X(>>VJ<|0Kt^E=YAy_V z1#;JqkZAq+6f_02>CzB0xM3_%{QE^{J3F7BcW<$(3UBvWHNJ0L1+S-cdzL^WPg`NX zJ5SfivvJAyG9cTYt`Qg+8D@%DreNFSaID4wKi=a+bHQ2@Kv%aItVSR|LH0oYcR1_jg9-m=7kfY&Y24u zKlsOctJ?;*4`EpOxt+c_Q5L0Wy#JcF)MZNX9VkgW4;`ekmE=b}38;<1?u9|VsW`+f zm!}VUrZ57r%vab`m4!H<(d~AgJ;%tjFeH6H&%5Ku=tEK%>@eoPAJ=6i)Fi#z9eaZh zkwy=+?aWLOIcpetgP&xjm4L5n>y-ghCw(nygv zI{x=yn%huN5DKuuMf!x2NV;pz``UggXCu&~AgjavouLEgS%CSGy>671&3qZR5#1QK z9~mNxejv@_i=@|1b(09@NH_FjLcd3nm=7pB0cteNk?Vccy?yp#h85dd9yBO z+`Y?5q;PA1o3s%JwNGDTj!+V*stvP;&*C4YaKfXe!th{>6*ofm%b=n7IL}Sw2&6R%v?&7M~Y&p=;Iy^c#gvU>4ou8FY(_(Z=5c@^`^JkjXH+%T079G zeW~&^vbkulh|Z>3TUAsnbwS^cKVHHV`yiQs!t&x$O|!yvt*P<+{hmPMRAJXSU$_6@uP`KzxxEXtOqv{A)>g7HGXSi8E1=r5&VExV+VOOVmN%H(R zn(60pRlxz^aS2&fm}KvifeSLP&JVXS#i~Q(D!hY}5cvjZ3ec0#cuR&H$5^*|{h1A1 znPC{Uv>d^*e8!~48p#d|LNM%@Ylph)K4671vn8h?bI*6QKTPMki6@wclrDWtp03G~ zm;utQ5abF8n3(81Vl_YSwOCqb$5SBDhZp+JQ4&&YX*y2T@MZv`qkylDjUR`4_+8Wq zuU-UxB6QAmxHtI)K2xO5QGQ%}7vbDgGgrZnpoZC99)a=4_*C{kAj=luwd6q)U%J4e*9hdYnbvA8b zIl191jb6!V4K7eiCGiELvw&r8|I%$;jD$E4 zN+;WjI`9=BC|EFHWus1?9U>2V&f>+W2dZi<{t~nFE89;pw$^Ye_Oxse{nH@yBCR_& zTRLK?0%Zkc;suGNF3K)qY`m&v#F^^UKEsXD(i)!8PbM7yP0m0zVOpnN?ys3P{}$Df z!p-$YAtI37L ztrBH}f1~2lg-yi=q+R52m$~PG;kXIT{*ThM6pa<3gLu2xS7cjm;e>>1%8X&A)ncZ7 zp+?vIr=Ua^yuI#5=yEe@>osO&dv44KskwmPkODU*=9FLZ?T;K_0=FvDZRe+RzXs3q zXWSoGH(WCu-Acp+G6bQV2wk-V+6-7}9-A&G){JRoh$uW%?1#YWxhP16X2M7XqP zKM(^1e_JWqP9Nxt%)dAM*@GNQw#FO8f(dCe_59GRwZ6 zZtcmC$Q6UAI9TQ@l^gk7lbudjrMFh2vL5hC6sMZ-bpU@qA>hBNviRzO?$vJ25GzAY zN46`q(9nHkBOH;zRAe(N5YWkgJ|AgLEcSq%9iR`4h+9LW;MBROyb#GcA+Jn{J7#O? z-8gp1mat8ydLNQ(qd-h4@dTdf`LgQGnbkeee{?&{J+TOUyouTlV9I&zxZGT^5V;I* z4SYGxQ^RZhB5&yO>zLrHyHBJrpvQw}=XmV*=P$15`Nswd=O2#<<;GCNq<)l^4g?Mf z##-j!CS|Y!97!$j1S1mH9_`g{2^^b&K+vru~lqK>4JQ*lOeb^m6oA5Y^~W_BvPdtFTRVX43GQ(dUOpx zx_4&icjpl4zRdVcjEX!M={mp&S<#v#FHA7B2W{-?Ac{q^yTk#FN8A76JUyTW)vV>p z%bRD>^7uk~rwkY-b89p#m&i|Fkw)L3TR8UUWC9#gGeziTk@0fB1EQFZfD!r7~a-9wS?rV-{DS@edGaM%1AQ)XoaX z&eV$|Fob|-o-WUk>36&SZwaltczl&sfhYQIqP=k`wq#{-@86|AXmGG=LKzrpr*D+h z;cWVWJE_i;-Ez}PO;rcE+b3GiHIOJBfq>Pn#0Wi-l4ulU^+Mce2|z!BfP_8%-%Ka> zv@J|~Tt8WT!BsKfIw5FL@%V`(Qv$^-&?va{@mZkL$u?n!zm~LrC`lU03YmA@nD%`A?e?zLKmz;X~O&s2TR;Rp_Y@{=(W#7=wARH zClKp)nh=iM81O8|Zi~)q2q&*#O_e2gS+mc$_h_(9AXlr&tGX;-x z=Sf}|A&(t)gdM5JiP zUEwJiM5zC5z`B^MP)@u}iY122A1{EGS7V;%zL;e&!JERkgkBg7qaGt10YZ&%grF46 zsD^bj1}Gex>L;Vu8wW(>Pyz(S1WFI~MI;Q@3^+j(m;;SUDQneq^yWK4#2=03|gS_BoJ5#%6P{qT$V+~Tv94*`t=kT#vZ$qW_$D7){OsXnYecOnkoK=Z)c zQ&S2m|4|)-nizsg>1u<^wbcCZCIcs5tK~GOz$~FE69;+48ZJBZaIG!)#fh#DfeDv9 z>QpFl2>_%MaymDxLGC{y!{Yr`JH?e7P%Yl0S5X0=K)A*i5OGEpcvHGi3tM6efes3Z zxlEz{kAH-Y7J8$q30g4;pSzkEge;el0l};-8HqX8*OU9r$NzF9p@S?7QeDMgmBBil z&AtrtYUH%ij-H#fdn{a7>_jnG3d>m!%s7QEXlJAha_Ec2cQozY0NHif=mRbkZ3`E7 zhX??h+K~uYbSe)TQ(lAQb!f=r*4ckkGy=7M_0v?-8|PT{u>+S zj#Y~`sMx4ra@B`^ig@2+n87>5Db1m*nBRG>Z=E@DHnM(4)H);5<3cN3Ow3UwrDC4N zd)2k(SIYZk;XVBRlfETb@i6BTie6K-t8$9HzbB($FEymQAyZB=!M8)X6ZPG>hd|{T zjxif<5kJ9j9ucpu#H@m9)j3hlt7H1^7Rcov#j0~zMRW|^IPJxD=iqUhCc1%E{n+4k zrKeX%$6SBKhpxr;dlBYAwWBlTE|$$D-P^njexIq74+Iz0FG(=IF(MmHNgB{m!f485 zG#;HqiQK@^fr^lQYZfxOztY zv1Pli0<%)MkEA6|b4WPN>(M-Y8+L(PKHPUkOvy~NuQAlUmlzDZQ6rg3H1r!M zA}GWwsn+kU7lfkK%V}~HQrG=Ya^HT*DLLzkH1z9xNXc>5Tx}C&*X&ur*2G+R+v^;^ zoS`|^48N(0`&P^Bc((u&UKpu-T|x+LAD1^&%35tl@1@TY_(g6^eM zO8D3i$%BwWWf&*Hi>a+VYK3(DuziY!(cmkrHmlaP$TQ)vzRN-MhOB!;P6f7IWN)y6 zTsb;!xUXt-r2oQIN7#{N9HA5KLG$8@GON6uskChe$Z%erXe7YE{S}7I+Rg|Fr~GG} zfjf{a(K>(kssVEcP2z$x+FFJq!gLh+Is6XHc5tg(^zQ`{mbx`iShL8(Af*Et>n_f4 z!vkaSyN@4+f)1VwKBjbuq@GPU^)CdbJNCrw+8Z|dUQVl-M3Y-Jff>^Z2LsnZr_DZN zDsYQ64NZBwGzB@m8)B~7UeY( zcyJqP3|w5GTm?dj*QM1UwRHBP%Yuw}jfD@)JFy{mlExt=X)8zM4D*bMlh5@b4&{Vw zS_$ZF*f#JZ6}SS^g%ARL4wS%9Q{a%vD<~0C9l&md6BWxD?>x7fyQgYc#cBLFeKL@N z>$&4SJGb&fNs30Nqv`W#Lw!<0d8FlwAj+j4u<$}m^7Lk?bPAvaTnKOY1hB-B_X4@C1xE?wu;$v<{qi12h>-l z5u9d`<$f@-eGJR$bWh}whBdQ4nevlQS)%h?Wt1%c68VhN4f-Iw4%l)5)pUNXzZU48 zv;TYRNV6Js&lgunH+(ExTl}Z4Aimt@Z9%eZHE@Z#+bK#`&@A^eFDFz4ttJ$~WZr?= zJEESgkdsbS8G9qJd3xN29+S-u&~!~u;t|5%1Imj$x%#|*oHxJrXmPZhXz>U-ANtqX z*YV3SpVo1rnz9HeJVtl8Lq(sl z&(y#$?khqDG#+nF-*zVKdM|@afLP zMt@qv;*u19hrGpvR_1nBAf)R`gxH7n(2e-FXx8b`b?LQ+|hi&AfT`-A!`B5lcM&$bw>ni!LZyuek-4glWoE7paE23J@hpib*ggam2vUIq zF^;S8NWgH>0}&K;mqXAk($4E02*4}*#E$f#ubT3mqVwz9Ez9MccPeueZc4tU`}ry& zDB60di69^uhv)$i@M*xd9cuQvxj`!s7>52`X<K_(k0HdFR0ci~ROl)>0-vRWPIb!-t{{ zT8c1tgcU5fP3?EM?74OC*I9&mD8DFMBf92 z%|P{OIUc?w^i*)|CPn*u5h9;81BaCfuT*h5|x<&4rU(}IG;ZmzP9}2*IcAqNU=vF{fj^FgNfuo zUS=ee5~!kEw-!g~A2fFJAdbPiOrs4b;y4Pnh%ePhqX%plZa-)~IR>QtNmXDRsn~z5mId{-uR@OXmQ;=m_nB5cpGU5` zcsi5NQ-1&3$^2(4tGZZbF`rY-)zw}j%&8?~f0!A2=FIQ~O5bN+bZNvgi*#{#O?#)P7l{SRl- zZ)8;#dy3{b2`sWvC2ZkMw}3zIA`FKSDXmXtrYaZxOs+KrIPR!wk`wAZAQ9fkENRAA(4%A z+gODv`sS>#)ae**hXvti*bgqQqx{Qh`EXGkFfq2_I>OtEgZUZAlXX9;hk}8oY6T^T zmwE+CfAnmQ8He^4b#op0MHcE%Kn$w=_Y%)`g?t;oZp%>pqdk79aPsFi>_WHODRb;`?P$@ z>vPywZ1*iqBbMLrAen5x;j-6Jt0e|Y0ctjbn^Z-1tqX3XE5+R$QkQu>ubzr6_Nc!9 zdm@odFu`ft3cBzTbm6Dck}D2oYSXtCXUEdojgUB6g8#;ti+6UFd}@71bqCJom{g?m zNU<0|rLwe$&Nl!;Pz|gwjb*qQX8iZ#ktNvJhP@mcDz~2`6^vyVHI&A0nm;IBMEdhs z=D{y-PnqKO4b(#{N8egw(oQ!vMf3$spmNWeLSRXWLPG{%``bBnP6yc=sJKxiz%m9= zZx}RpAtk$W~MZ1h&3V#CToKRUJL%++0&g({p22vK~_!e16W_9#LiO^RH5w zP2Iz%ca}xpo1C%~v?=9)=-_lvA`^r?EMZq|X2CR%S|}8x$9Hcf6E9wS8uV4v)opDX z{4?3Xr#UF}iHHmjNCcwLzV8tq`}wciJtCvV&NVuDkfr zqzG*9>zzUNiqYCLgR|tdPAfHAa>qh#Kh=R9ERw5^`QDV7u(6G#e}^Ev=!%)&K9^t) z7Pc4aa9E=D%OM9g87qQa<`Vl1b9BSL_Z9sxX0%;q<|I$n{y{dCVCf-dU(F#0SlTO7 zwDL{bF2Wv11<&6hWiIgKV{g`BP7ow}rs30k-kzVi2p#N04$hN+8(>P32a0_T;`FEI zQJmw=cJ*-q=4gjv-j!d&l6qry@c|#E(f8i3n$M#-Q+Cj+A)InM8Q)`-5d`u?bC(0_wbrI{IaojHe&$}g$yNxeQb^lr&dO^ z=juMjVeT*3pTF=$IU!F<6yfpE_B1I&m`wwg72&x}19ZoBLloeb$&^+vn1#+Z=r1l0 zm{^>KG1D3W&#p|=1imA}z1B`_n;3{Px|y0sl4|*$%!N+=Y3XPu71}h1O%<%+a&WAd zqCz9_oSlhE;ao7jvh~9LHGxR_o@tifCPUZ@hg4u8?+^Z`LlO3)^)N0RHtnI5>)p%7 z?s%RfR@=>PJ$yZ#DXZO}WMXu@BQech>(1Q!Hm#S-PgaiakIPS=a4nx}-P_jh@zZ5r zv~TJ85H;$Z{;zXY@;1bnMaZzwcYZo@X^K#a*svsxAQa<~=!aH@AP1sICD5-cWk@rS z9IE;H@+WUX%^uV=5L7lq7>59aA0e}|m0O7VVB|bzn=U`fxL@RvBgWoZ>&)N7&|PMO zTWXG?D%0~MZ(GCC^wmHJkCK=5PD zboqA4RdYK7p&U7quFQbME+Ptq_(Y)6`{Fm_Di?U!1kpkH#bb;BPMUX0wj{>&vgRcr z`{~D(Fms=~Kpz-4dQjlPe*&oai%+`KST+AA*!}BJHIFS68kG|}?OO;hD9z82w0XHV z$Sl5nn%lbc^H+;I8@mVan&QNkb)Z^HILrj6;|xBf-WT(H;Rbvm{c9>Ij##XBwHKJp zdPYvJBwrKMt6zcyLOR&&EE@?b6{fqaxjarzAI(YPpIB7oBcJ;SVu|tUi)7x3NASHa zU(>FfUza)C?c+V2tSR5_7Q`<#)4WcvIW7Og*f|Bs(f~?&Z1aq5 z+qQYewr$(C%`>)b+qP}r`S0WIKI}tRMRe3#M^trIW`3z3Rs7uY@$7pVwsA0(n{zSS z45G9B-BsYJ{VDt4#>KUaB59t|fo&t~s?5IGZ&_~N3Rn{ANm(GG5xdwp7|jOr`M{zQv*-s(H(VwMznR&Ob{LJM7Do1u=9%oK!8u}(b;%o zX#+we)X2n3`!d z{cWN#5V}VFZtp98n;Sk>`)h6DpmtCC#dT&(AF@uKU{axe=fa!P zBSUNX(Nz0_-qEcx@kbttZL8!nkMpP{Mbiojg@2p25DWOb^8r8-9Zk72s5^C5KM<<@F7Ckic81yNF=z+AU=lU#d_5JI7T9 z5b>B;~VcO9{=n(f(%_hwnqV^XM|Rbvh11%2XwqH`7OIRdYhs z+&M;`Bo0ReH8vY3qR5>_x3wH#QZ5KUBiz+^NhpckJq|td3xYt8u>ZV7fSGXTRp<13?t9)B0u@{*z2x`YnNZ0QuWc{xDq2`j~tZh zUz8lKpn-k?fxiZ7uhkOGnzf-F&@&M*phAVvr8i2zQb5d16Ja)Ik;9UG7eLTdy>k`% zf59YvD9GaQY*%*qPMk;4bD-ammqYIj?u8qpy-Tgeh04Uh`%=O8zj5lyK>Aqf_yX6Go~DjuG(tiP-*gZYKW-9Hy5q*^3D3}5d_^lzf*3K9qOU0TK46j zPb#GaC21XZ)|8a&UB=pCf8VEYahzubYi{9#c6A(>DRK-_6a>UL7FD8S`dJHRScf>F z$eD6ufXXx_Fb0ZpAz>=CeU4Sh%ZVa}^F3vinR#6aGbg?p4U^)B*86tW>v<;I&Pvda!J%=W@8qc^ zb@e>pHLW}lk#RP7L7 zv}C;Ua1#N^beUC82ir+T9W!-EhW0pq)&B6|0~OTT4(!RI!iAiMkV>2 z%6Ynw=9IM*B9}Y@%3Ri3f;o@*KGInmwtIj&%&<|)b%oHZ+~p(Et*CoReD1>z}gHpU!LK?pLv+gj!Qeq-3CJYXpl>PgB}J z4!wo*&mtxrNQC=gbx0g61_XXKuQ~Ee-)m)RT}FArn16OaRI=!Hq_I)`Ia$huLdMz% zGyzs|n?<0n5XgTeyx!YKG2Fo=9e`h3|M=oEx#21u^xmWPEun&?Y_t@g0rxo5J}!8- z)6YB_+!yjJo=y&ydSY>*Ql(K#m*)!da8LH|z7)vAO<*BllO_4fKA`c7cTMOhyJZq{ zRn9_nK-ngK5OIWd1-IC@JB81@me}AuKxY&Nx7ZC4?abvH=hf4=z~m8$*?Z>MN^RRm zJy#szhb$)!Vm_W!pOnFSOl!LeH+p!_I$r<7Jmm*3nk2beb2?>MVY%JiwBi3R_fX&V zWfDOLA&qV*uoj)>c))1tcyLez42Z%uDO?rYN<~(Ug70)Oy1ANhGHgEE=vVX?eyt4T z%B>beO?;7?i`Lzsrt%;GoYToS;Be0xDOM^c>^hEHZ`Wt+07+Dr#Qk(IB*&ib0hO9yHWAB6fOf9r`Z=hBvKJ;V0af4 zFuWfxys_E96Fmgnm7$$IWc{xxKm`W@!u;>7x)#V3Sy~%Yfe_Ilx6RXWUGYCs z<5s``;N#u0`+deHkj5Hh1pa>d33761!rSSx&k=#YJc~-Jjb!;ns*(cVsLQ~^LA5M4 z9p2@ZwTas6Z20IU5n+4K(yZFLcvm?cM7l!Q*W0X&Nu2gY0avp_$MLzw@_8(VShy%L z$RL~wJ=heveWgiO6%0vFF9EL$tTpbNypQVTMHhS-`9?r8GLXz=Fh~`5yuH}Gp^-@&^gXT$N3GV6? zXaZko606zP<)sXbHk|9dmNQ(|C-(f^_9776vEXn;{8FatP0rIpX{Hd)*o9dvkk|n*>56PM43l4-Z!TWRnnjeov3*BM^dNC+oh^4I@O+cai8He5+kWS zsF9AQu1eCo&=GB(L)yww)|6riD-4@vILIH&Kr4`nb1>Nnr;*#LTa27oyaPtXJnv z#n8Orpciadgyh+~A=__0YYyb7U-sIkU6!#XgZt9J8 z##iTn@8&lQ*B(1qRbRPW=?yl-YvW#8w_Ef;qlIEjeg$X0v&por(H3wcN~Gzy(+P2& zyCtVg>GA3fgGy5OZTBQ}SOdY?`}0%xzSJQ?j3S}64pDUYo*aW?f^e1*0z@MYk%1k$j{ zb21dmCfnB4y_}+tz-(--3{SwS6BTUq*5~i{8BkM9}?r2vL|t$ z5d$`y0l|?wBI#{H)hAMe4tvAopITEhwFyy3DcUOp&9rsqpI?zseX51ube@CxNlwj} z#CPDc6kWoIb#y{l#N}Bn1~~SHdmm#%9N&O@fHOvYDMT2^d2!f7GV4uNUTa;ZLrOxd zni(5bXGS1wn9}&#Qs zHZY|DFd)-pS~MAS(>1qZ!#S3fqSV`PayeVlh79WQ=Wuh{sy%xnya0&o*u}*w6KCS; zvNg}m+~y?ugX3sZR*cXT-~Lwh*d<`q1U}hyB8kl%UAsJ+k?AnGJevs1ox7>wzQS>D za#7Y4(-gpdOB)8q5dEijQTF?j?!PM%(enwLkok2J*3FGQO+fe{;G&}8zP6OOI+V%S zyX0EFvfTl)tCppevNOk9`KQonx@X2c%P7^4x)h*@vowxYycFx$8 z_pBU5VO=rdGyslPPeqIPS22^tOxb)Qc!8N3+m&2HEfQ})GyJu}Rp+qhfIYN--vodQJbNPGV5iE%F1+11jQVlas`yE z<(EiGJ6XsVt&2_~A!+aC=XzT=V>+q>y&~`ZPCu4U8+CC5$=%gT(r}{8FGR7JHw)l0 zl&oePJ7BWnxiqIzo>Rali~{t)#xB&W72_cjUeKg**Y2jPQ1{@*Uv@uc4hc)@d0etR z&Pyjo!7L3V*a%?cIv-$1-eE|!Myhkkl#2_y8$t z{Tn3_>Fl>D@6&!e=~C0zwFnyRkW|y@{xS@k*xO?_??FW z-(*2wEo)!%*voCiVoePS@GD;;c;OiV4YZQ()rE*{`cNB ziS&7UkN?hP7OR|zpJ~S2vF!TzQd&)Yi*CLa?VbWv#e~ z62~+)fzzx&l^sIRfsP}CS&m_*EUyULqe4_dpJ>iB%YX#5F}wez?U6H`fDLGu$mlfC5NfQdrN;hnMvi3e{)GC`bvf9u zwPE%=wad>2ViQqMtOCPWVY#(!U7c+%)PlzF@lqSWa0crMxFQ#M7Ax_f|CR%4MIpJ$ z!3@pZk|PIGF@)4YMm|c?A^*2O0$O%6t3@zHy|1G7_kt2#U1Lj>2CKmXznFACppYe| zR(2M~POno_-sG>nOc%D|z3CKabB#o&G6wp9<1u<;H)1&jxsuA+pFmzTkskRL9<}xU zke~|*_)Pwftx@3F8A{@eYpWk{bD1`e(Wl&7?9|-*7-^RoV zn+Md1REP#F*E={gJ2JPZxt#33^r{fxs!Q8nDM#`v<(&Ul%2ifad+d>jIzC0b1Qlbq7Y^8)6x_76krttLFDf6dOKV7O2+c?h)!qL_nYA0U+ zVa8lu;2ke8#%sNn7K4uFMpgbJs)_+{a!?6XjQsqv=WwnJ2+db>I2WnmMq3vZE^y-Ka<7J9(5tl#S3x8Q~+C{yWnJ)7{2)Zf2X;;@?}C zoLmmac|({7JV-;nB>e`)ZNo-3Jm=v&rzbT?@eL49_a*VZ85H5}u2a3U?d-Mv1NzvtW)M9gC<0qVdsTpK?L)(FIx)kAzs_B1-SW&H;}5#NL4^jZ7pcEAp?1h7 zt-DDmt^yqWXcV{x7}NMp9asp@aI=kXLtFdb>gl6rgpjPJ7#Bg=lAZkr8DKzW7_;B< z9y9CjQAk8;t_>L&RQS@BF}0R`Q82rh&f8E}tQVFw{2&WVG!Wg3r}XhC``3G5&ufd( zD$XmW<8VkOHgtT;K`DZ=^tNi*eD49Dqx7+N+}bq)#@A)ZX&%=SbI~4B<g)61+%9<}O$2qe;39DOj$1J^Q2Bw%pom1FeGD}EjNbz)n@``l9^f9 zku_r?544#@r_p4j`VxQIZ8OM;kwG?hEn5YdmEV?e`$V79QwHJFkr6RywWE_18Bnto zsxZnSbACZsEq;oD@h1%pbgQ0-SP_r`7WC`5QJp9WagEKqrd9heEW!yI>W)6%fTF_z zPg#m1V~8`U%lnpUl{2XvyB0VvIlJo#8x+C4P5{Y5D_7+1af=#I@6Z0fQv^+qf&Jt- z0~+K=MPa&CR#4!=ZUFfL)&QAc$b5d|04K8)w%9}^2hT%#9rYwfYQ!YI4AD3HI$nF7 zb7!4A9|Mj2eZZ&p=#l^m z%H3`-o1FXt=j93vHaOC|oIx_ZrKNz$J+1cfV9G@t>(ZK_-pj5I@H5x5VW(Maq5~jo+zD2yBX~+Vf3WH$ zu289$fK6p%+V=o3HYoMe{tRX&fkm;!W`_neqNk>~k>^B&+b3wqn*;i;!xz_pWKFENoIBew zGHr!a*d@z}N!S^5VW4BqG288ygaoA((r8iE^4SYA-Qq(lwBaMKl#4GBkZ!dRgib<@ zle1X8S^V92`Zx##FraHhgoLSyfGZH+eI`U1@Wi)5=Uq``zruEFC;osD`b$V z6Dr;bhkwDj<7TqYGT!bZO-Eu_2xCct(E*Nbahl(Li=(3ML4+7-WLg)^T+90lCHpf? znF#~eJ)Vpnjsbrlq$G&vdsv2u0p~|^T+*y?hJqdP-RC7vfNOQxZ?Gg0lNUkmPvK>U zNTtHJmMqTXQm0idqbD0E``Mi0U ziAoI&HX61z!Ha)aC(*&8`9?a&L~&k2--8SynlRJZpWjR;a8nvg5|8-&D`1hOgVqm? zM0cwF<<2mlZ!&2nsnmMnWi)4~xs%GfW;jLF@k+~ui*entVPDhg4Uq?4E9s>EhJ(po z<9*Y-y7y)Ez98roMw6F^`{v>NcDl~WU7ltv`YzGRy}?x528SSBzWzq@GHkW^6Lxh` zzMo^#Q4z0~_hQq!k>ICkN?MCwbZR0>u1bjOLJRsEIeTPF2i0^NeACpvx0x3n!4 z<}2t*#0tEfYdI<|IGp$6=uTfwGW0?h4f=3t?sBu+K2<2aHz%X-)?e-474<#y_S#K2 za*ltJv*rjDQFVw_+X3egtNA9NS>1)d;%KoDpM$+)&jn(4IVmT{o2{L2flGhW(P*`51ktX zqsQ1WI0GQUKjNBGd(C^>;Kg{aYqw~60Bhnt~^V9lpUDF@9o0eyr$7V6h>i}&$LVQ~8_^HeK!nUVN z#x`JD21pW%&VtM89N|WYf%fDE=?Y1E)Cl9AE4(T%= z9QEN093A~(Uxh22vcQ9d#5#Gz@n%LfoF>=Ptm=)?C%q>^2k33H8=#yY5sGf;-q6Wf zBm1Y(?T>1Wpf+{|0t+3EJO%WZkxBzr|1UJA(r?3&-jC8(3gO)H@=0*qg;>n@r? ziJC9GzO>iZP07KO{t0k*vI+P>dOhBloKhIU4alXRepXLacL< z=yrKltHdw~R-DDvq<5|4tgO5H=15;v2N&7bIC@?lLeJKmsqw41+GOsy0Mj-Lz3k{| zA?@_j!X?p$hFl&07+YP*ng@V_Ab1pQOTol2w%pa7&B&1v}X7#V`zT*f6ZL?YwPDIFW|Zxm|t@5 z)Y2C5u`~1{cs9GM#UTH0-Em2%+^QPY5f#L(d0JQ;pbYeyxo9V&1SWfrpxN4LcAgvc zbq_&-e8|OPuxgK*oQR2%{U4-BuLJoa_CFasEa(Y`A_P}LE~&C5GZ$PIac>JuM$grp z5caJVA2Wb8#rBY6Ov6 zXKD|nbrkI~<5%Eo5I%3%1&nW;97GxDB&(aZps*8v?(6}n1#kXF?&DifK(n#qk6G^Q z?Ztgtj(^SV#jpU(Bfpgmvj?}ldo?XJm6zb9+`E_HAsnhAqs}GrHeskMwM*bh2`!O=~^LwbK}CtZXxR87OF7ht{3hbit#|#EmTcd((g8%D{KE zGOAgf5luPlY}m%tBS)(zVaD~+!DO_X7nkY53BPB{Eo4{YAZ<0I%&TxBCGIpGS8~t& zO;YV`sE~g)9reH}Yt>fO7@fN_JRYE4fIggFMdBi{QvKu4zBb zvf=)k;~M;NE)}Gr!J|(t0m*Gbi*>4D5b+B*gfO|Dv{K9rV-lspfC_xAFziT_eHsihawk@KXzkiJFk?&k5Zv59 zTwg>nZB||`4kAt_oVeQKgVM)&qx4YRjQ$u10hJWOMr6q0fw_|cADGPch6mO*)Xz1C zxOmI#H6|opK+xi*W^J~vO-soRi~GrKa@{6nwT?>xmC=k9f{*as&$*B^BBP%U(pDDb zfo9SCqneJ0?*gm^prqt|MpZV-Tx4MeD2&zqPN+EDep}^KV>h+ZC zE=e$kFd}o*V%*d5?F^rnJRRw;KAG73CRYJ^SqqP}SCLUDItsDwwh1F*6txF*slJ91;3W>hNgj_xv9iuJGa8I|Ni_usmuX^Qa(i_-Kac z8MeK5WOJB!Fhm^@!^Kh)(}kX};WD`?-q2xoK9-LTGnlvxShFZ4#RgyVs1lCwVK)I2 zmjsB?xj&wa4L@F(2jV8r73MHBOdn6oU@x3McV;kr;dg67^<9%ILNUbjq)|TMf=>;^ zQ5fVWDy_8XBC`6n3n5k`>mn59Sm=Q(qRYB=Zr&lrh<;?Fr5j&J!DMN4*=P7*=a41~ z!Axa({almTkP8BnpMjOS`>VIm#WDyAJ;L=)PMp`NVZ4~?pU1@K(d61_e)eo0sjf_c z(FgZ#vd%G`Ur0+Kp*lPNUO7+(1R$b51cXfSF@&8#Um_8cXMxO_m4q(cdIs^5_jrov z2xLQhK!DFI^*?Fot5Y6kP##aNoTX(h9$8wXElw@Z3$iA3KXBFX7D!91v%6_YdPL|L zaX5b+;}I2sj0cZ&0a78;ea&#)$E^84gmw&%t>0l0X7odL#~KFlSjGlufIh>&J#}sS z5^8arsV6GnG+PLz=xP;P4@9YBu>EEMcKMoW{ndTeUGF=QK>v~U24F=5_yh*96hH5#l4XA^ zZoYOFc8ob*0!srTC{tI{e!7BY`cJ}-qOvkfhlhIuF)SrkPs;D#DQzIy#=~km48opd z{aWzc4%5k})-%C90VFT%jy@pRWh+*C&fN=9YC!>XnH#OO5yhaM7=`@G?hH2D?!Nj& z1UlWAe5fV8Vlf`jG;qu2Mhnrewb2xPrppZx%jyy0HwD45)+=uzAW=Vsg=<{r<3|we zJ%!V`;pV%ps*M*f=t~MdiDG5}ztJ;ANECc9elYM!VsO*hWVxC}pf@M}eXvA1*w$T? zF_ZHM`>-M5UM&P<3{qzFwC_ajn-akvkB^@j=mNq2o0i4#|4GYYq^D z^e5`w+{6{~J#*J*d^4`QE^fft%&^(Ya#_mWp3wGv2l))mI_!QOQx44a7vuH3s~nrz z&Er|qjc0Gnq3{E0+L3&*4S{bPwz`w#*(&Rg?fPoQxL5i{eXlIHuUB#qj4?V3 z-w1K6j#Ik%zPrg-m`&Mdf!Lgl9P+0a^o2~@FMY!`t{GWp{n+CJYPqf2$3qapXbE2{ zbX_L9ERmiwgpS?xW+6IR5P6Tdp6yd$o2}1y|Hw-$oN-RpDZImnMS^FXQse{h+-?y# zp7j9agU@){5dzj1r~01flVo{T-$8I)#9s#k6uwEO5SRZmduOEIxBIJRdiu0jX1~et<@LVteGljNR&Xa3V@TDJp5N_`F#{1?L z`KsRw1MLAMmyw4>z&vZ4xzT_hjT<~a``ZZmo%!uXdhR?MTxEca*kS|ZO_U|JWfxf3 zcFCvnj(?czH;3}C&bzvrNM8&8^2FP)k$HcqBe8DjSmRaUlt)IfW%=D(l99uH-sz&Z zLAnV__=Tk;B*wo8nWN+a%lIq~gBQEdxh#l1!|?dF)fJvTn0l`~T?)^;^56kA0+VNK zs~7D_(dAuwi#b`W#maYYGgVZs@-UiHJ9wx8{M_4vn4EyWb)cP0zj_GQc=bzoljzzq z+y8vAx-5J=ndlt1ou#~(`+kAortIBiep$D7HK)E5ckBg5luigU9W@mWe0-W;l$e}7 z7iQw{7#)I5r>lga)qyS;-N{-@+tT__0C1&5BM*gOslc^5sw1gO`Knq&5&ie;~n z66>!7*Zaa)i)o?jnS9c>1_6H^onuDRR{JiHoO%K8gHr<7PKiFc_6%CV-V%Mx_(=*k zd9l^|ysI(51d^23%TNdi7EIFLUqV#c&pe>(sA+7x`8vVo!^=DB5J(Cub~Kbd-IP(t@x8M1=?Nyv2PKN6xS7) zOoJ5{aS!*GgB8xHoUXs>5-^Q?ekM+yf*R+RO<>HV`A;!+r!-J!H~i;_>3vAEX6}Q1 z>(&VMXO+mQ<-~Wv^%i>z$Lm_;Msn()nt>8;#gviw$WE4s++@FoPD3h2pFq}fJtBuO z5qUtJ>kItEEBp6dOH23LhvvrTiY9uWuP?XT1D|awR;vi(@eu>k`$mi7S!qYdhBjnp z_gCl-)AjMo#L+d@Wa`UIAejeb6*l4M;_*H(1S@D>8aQ=2_$~|hLdUVN!T#dHFne@5 z`%n{u>@Vn%#>%(MK>?8pie_`an-#eD9u}zj1zwt+KG-( z+&6y=c%sCyH^0USE(DiZSsRdtwa-u*4}+W+5rW1qN3+0Z*2xFl7PzQN_=r5n5E;8z znscrfk-G+__?WhDdE<}6h+V}d)gfM6t8Cpap2=?>TF|5!J7kP*?tXlYrX7sP5q_#c@rmS%o1y0!skntU_jcMp{t-Xji~lG z>(QTI&=yUD_WDu=gpDP|I1z1V|4xW*RZg?0@h6L{+jGRfAkvs&U%#bRdB)~g%`IDLJAeSAO6e?8>@ zx@U~ewh*h0WrTj5gegv>&l=5@he9Gvk#EUXshkor;i2aVGbYM)EXNPocyg_nq~j_L zxUuhq%p_OFo@r5#Z$$L-SfbGe?al@s155_qd--VY0GR3u2wy<*Y?C$FdvJf*wT}2_ zEiuR<8i`V7Qa)mny?|RzG{xy1 zv$IhrLsJ;^Q$Vh6g2o-E;b_m*D0O!T!w*c`D0X7ShZrA$&@%`ML-#uM!C>E}3P3>C zfQIFQp>G<8G!trDgIl82!zrf-x(hBoVv5Q9MM{XXahD&SCRV7&qH1#@9~;t?gQR@D zD`7tn%}~(Wug|_9^g?2VRo_od3vLA9dPU?(51D}4XM)6cCEYzt_iN~i_^lx9u1OOL zkNJ^|0x*vP2#@-qFM26--^HgbSN-rAYOrB-ZH+PV9=D50U)2A21XLJkc=v!0rF`G% zgr*KQI)#Nc##Ni@c?e&|QJZD`V?*bSdl9#_nMhQ3B-%DL%sEDFXM0i;o|npz&gwUs z_o;^4zn;>=^jMuruK6HiuKA>V)nt?f&ERA~Xm?czo8LJOpIJM~k=gK>rk%6zc^vq# zbDTVZ_E!b7^%)(fMcT`4RW8E2F|6s}>9wPr_7@#|SNRDBAO71lB{tpR?l{;1BW-&f z(R9awn{6Td?)D(EP6#OA&HakrmN)BiOXna!(bAVLjbkUzi#=8V?P54Vs4B- zd_cZFv3q`4->61h?ae2a4oKA;`x+Gz6QaYjkK+;+?*gQG@QgGbf#`U^UP8)XG|{kArm^_gQI6hll}LaESC#Fdi!vy|H;kA{%>O|#YqdzND*xpy?TOBI z;5UZTu2;f-5}>QIhifohrT9MY*_v%7ZLozC{Kj=Tudi{?p!Ec~%XHooN;!`7qGXui zRYHf8-`w(Skk31c4Au`gzg90p51F_SWqXuAL&S%<&|sK8t3VH-7&l#6p&FPE=~l$Z zIU*TIr5K=N;oB*JDGUdbmOy(XO4i5A{<<5l)dbj0c^{!1Xjj|x5_&I>9h&^G?QT{< zWS(F|P5=A4rVB;`*67MegV_jAso@w#j22fQ6vPBm9nlDZ^yb~3!5I%w z_eXQ)TA=MVj3a%H^_}KWB$7}(63tq#azThdVI&OgOX8H8>^nW`^9s`Bw2Q9ZXoxUX ziuMiZY}JJz_op?N@;={WjKbtld&U4^!b7ytLm}Cb-svWF`7vrT1Ip;5szwxG` zvRjp<%`oByEB!ToYnXelIiMTZEV=-*J7G=}SD+uJZJ#LsORc2FGd5TXA0utQo}O2T zd7qJyUYnGNT(V{5X}~<1Ohz7xU`V(&yxT+722(sjWx@0%|2S_aAsaj$3qx%dSWi)9 zo&QnILZx3+ZQ&GraUf}BTJcH0+X@Es2oOS08z=rm^=`41(J@e4z2u%F$6YlaW1Mft z@RR6k^^2q{7Cd*C3g!mYy!Q5yBh^ zPQ;?>1iVzl1G36S-0Gs~*IyV@EsPnoi=8%!tS)#-l1etpWmZP@1aV$Pk`hw;F`9$b zTXrEV;vxpelrLmr(@Pyu1-A1%>^8386R!JfXs1xd@n~?Z)#^|Q&V{^)&3pLv;p#Og zldP;f3B_g@jorM3m`w0Ne=?nCC9z==i!MO19Y$}KP_ndjoyC!h=i((OXRIP8#B8S^ z$?6Sd$_kLNrJXm{-leyDup|KN$4v$*C18=)31XBAC80xroyE+#fMd7t5j7rR>poOI zLdkC_(e`i7WIvH!cnhepE*ww%N+C>-Ot_?zg@-xV@L0oE7Q6)MYIBu~L7Zr06DS`c zseTGe@7!+mwkkuzT|TbM*9onzE85N%Tyl2VPc#+RoTKjFwXvOvh3f|+C;Z9G`R6vW zv)ix&I+>7}Goq}MqE)~+Eq$IQqBDt5@$zqwNHH2}z1n}7Cj6mgsmtoq0}(>P(Q0Ev z5nG4%VLmAE+Rv6n>o+rW_Ndrn7+?ypF_#gN_n50j86_W1|17I0TXf0HD~~ew3~2I| zv%&R8v%s~`hI{Xi%jToP?J*Y1%#jy4*>LPu7HF`7)9+t=YD17c8VF}V^|hFoRqhBY zssAcde}*RN^g^E|ViC~$$cfvr(8ucN>wP*yp_BV576aPCBlx|b+C4Q_zAcU`)g)RG z*NQoEMflM(Voth=@Y_dQAyFhJNqxaanjP3(1A*P5mLn9mYitqg>L2q#uI6`+fX&hjfBR?J4Li;fEUUOO^tUz9xB;e&egLoeBN_a{Y9R9L zg?~jcom zSrD6)k&w9)Au7S_ARvjm8tJ(r_1$!3n;-BK0W39M{o|ssgWel>qO1s9ZN}gUCu-Xc z2V(DCkp2wrG$9hgl(Q}GR%M%_C{1HFeHd}Md$T#k~&%`W3b>m{{QCtz-4?(SF`Ww0ggS+B@8hGChdH_Del@}uF-Vn*B)xe5pHq7YeVUA%G`n!XVLv|4F zY{5y~sOCQYD2nj&SzD@fyegB@aCU(Z(2}VzwDIiX!D$>CXTsn`&Cc{Mj6>j)JcX~H zODK7OQR^utPAh6pB(%sH-FlJs0A~fM6ASxU{D)HH$2{HvP{{O2jN4l5KjVm6#C|Gh z?1d%mhbn#I@>hmI;kEE&%=X_<%z~iuB9Op(Ib-|3i(y{?m8uU0pEw<8)jVw+m`lTA zh_xXIaAoMFUm<6A`|rgP6iR%x9#3Q3n7|8}h2^rpciMkh6p_HYS?0iTnq8FXL*w$) zlA1s{1VN1O@rC|rbU5QWj`=isdIApgctIPIGFpu7@2i+rYWBT{PpwX&jKew9=&|_m zE(WCpQOq%X5w)AN_BuHmBpF4c*=eXeGFKoR-L7oM&N#d)W?OVie3k)?CDPCFz|+Th z_Exij$j*|UVIR0@TANxsk{n~}m{ilKRsgaVz2PRJ8JdptgOaPH1}Sbh73}-%B{B-2 z!_G1vDY}WPWIE9^Lq_o+ZOu%((&a(f(&xyK3>@XmOt*1X*-X9}f}!+xE7BRz?8!56 z<84XlxC6`W4K;a;bjW zX=!==oi@n72HietBcsb>MWEF>4gf?xc0!wKa_n4bD$|lezz!=)^jh?TslJG;JW$rI z1>T5JkhrR<&KlfUY@$0(l*GEJK}$JCm-o*@4PWCK+bp-M{>M{oZ${QULKF{mN|(H% z^<>$BV!DIH-8fpS_!XTV;Y;*pbHLTZSZrsCet&iA6@$`U{Euxr#}ZhqOd3kHW2!|u zKgEp5+O%kU<8>R_`F*#Qw$035?CkKJPpA=b8oc)InHH(X6**Jii40C{{!;59*x|am zZVB29{W^weOo@j>P^Z9_@1X}MBxqw-A%bK`mBeU+J_H5Xs zZgFK|D0M3rT>zSCFP1Of;i-+D=qd2HkNz&t%o+Hwg`DYSM|)S{&4;n+!|SltlSLrM zmq0Hc#GIzY13v#5;MIvcXV>1LyNgZ0{Ju}7TldFq5c`!^FN%YQkz03Ld+FqvLdGoG zn3{Wc@FCT=&cJ;~1EYsGRnz$mFC9JhKk8E_+M7J&&{qO6Ra+WUdWUyxBwU~R2?o)w@sv>MdoFuas{8&3fW`!4vs+)>Jn4k zB?2++%iOi=^ObZwbVDLrb+?em(ZtUiYs_VNc`9$A;r<|0K|#gXyPdFy|2nXj!Qk9V|gR6z{RBsFT3)@4!tyULGSiNZATNzn*?Ue({YjPU|?y2_qe%$2h>GmM=cKg7%J39o;b-I$2WW zlLZ3VPX4)NFpQxMHACH zd}X|={*Va$+DUbLj($5Ag8_Kg1PkT|N1Z@HJ$+YIz*P%$GfCM#P<{zzH+cqn0{Ql>4M3D7G(R`1h`p`g&x zSzD$-)7s2-s29^<|54Pwzc0>=aj?`y7PH+Ay&j(cKcnh1WvUjro|NIj@8U$EjP;+S zL+>_MK#$=4Wj<8O7g0Z_xwvx!U6K&_OjDVKwcX=4?-oK?(PIyqOEG)Ml5m1G)VWzB zx=NOmg-Pb5i9qCC5LPJztEaU!I4!j)n&$5MEs9p%C}UG1_y`f4b)n#OtUrl55@#$x z!uk@rjNL@qeS?YMOhNl24(uXWW0Mn!caCNwN_8D*Vkgn{prCbrS!DdV2UU&W)3&Q07O#poo}2_-J;B7Lr4*y4N)n0(vwF zRg-)&j@AWBOMM521GGEc)2ZkE)y9cLE@q;Ifs%T!IK0Rw&ttTNlKMdp4s#Ho5* zr%742do55EzBwZp0PCb+BtX`G(c-ZB}L2~a@RnPgm{gWSn-qzBhFBN_Z0;cG5jA)TP%e^=l>we^PQ*wSJ-I{QPXc!OS0B)_=6kt;_$kO?*EEkB%Gi zhm|%t3zt-R2uqn2M(?-RAVny6)+JT_1NDq1b7Zfd==)z zNz{vUs1^{m6?GWI4MXYo8C6H}iOmrQjqO$nJ&*oR?I;l_oz(nG+Y}cp^Vn_1V#yiy zxl?fbqrwG}1j+AX9{CzXAf5(kI6oDFg+G&t?TNcEk40htRAlL706}-YGzQb>Wo%Eo zU7l=tRrTmW5Qb6k`K>|E(Jj-Md(QigKzd^Yu{BLQaR%I(bnW5Tcm;~u8hymJ#@9`iFz8OjTxPI5$>)+7X&&5j;au0!R1 za>l5W`SS3Oxp@dG=1lDZ3X7f(0QVyPZ3@a_aBh>SQa!$!5H(ziF|-jR)d_?nzJyVX zC0i5V(2x6vSq{kB0>`yOwlE1|r5>EYP1hGW++v9hCc2$;LY0|IuMgN^7AUIf{zMy- zX4p`Q1~W-IuRokUt^ScZ)+u_rF6((hVv=(SPc;lyMbOo-yF=sJ>__<=33A!#23?HR zksPHhah7K0g9X$GJewX##HtYC*S+{jRfa zv1G0Ua}KPhToWS8%(CqC^C$CWO-y+B@(LaT(88jTWi086hFhLqXq@$ICMncr7`f@b zF(x5F_55ql!SOzkwppilI*Vw67fxl2%*~(K zgb+Q7;;?lXp0owXklD)#Z?K;-KQwaw6Dz4lZlGm0NHHQ&Qk<~Mr_XPc6dkKHi5sx1 z1H3V@#+F~F3~BNc;*XyH`3E=M=Fa2PJ7mZ+5dQrEu`?DGR7Ml!QxkCrVUPpTDknus z{E5+_&uAqh-r;i z_o~GINQvLYH2}?DEtK0M;M2z%`aBy@Cv7{QL0!`G9~p55EceB(DPQ`Y@L#s*Y=izk1u} z^<~TzO7A&|-ZAg4_WEUVnQ4mY1{Do4Bzo6Q6O) zrVp4c!)(8;5VSC)gfpa%Q&u#_4Mm6C6n<>p+=INQqK<&V`1~>yV4c6P#Z%v~y@^XO`OiGJ>)~ zA%*`qQ*<5&__;;nNNesN`gFW}{ciext*ratHtW{u*M9z2TK{Z!^C_@4O}OVbPh=fR z!Ux9ZU#)&}^_+mUmUO=RTXs8hp;gizGY@xS61onA;YnAHfB%=exVCZPe}lQBy080w zbIXAhy@KT9`xo(D1N0pa8lZb?ySW_L9QS6S@cq8Z?SF{YZUS$PRQe@3iZL zVXg|Jo)}G`-@|gB3(?7mah_jBL&ja|FPKSUJHDw)?&37g< zxt*<)V~0K<5e$K&IBDW)y8MTaf$~y%a<}dmZ|<-L|&ACS1sda(Gh$~%4$~6&WLaF$ZWzbX>BAp$!P6CO@JfzEF-MzF6K0aW^-vG z)V`OXMQ&yVn6P*IX0^cajj^4rn}9t$3uqBa1I2_jwMyhvq&!&i&Nj!G*&~N3u+>g? z;5Z)L!$!l?Lea5PF=EX)WBo-A=}yUqJ@j= zSvRN!2w>Ug%DGCucf{>KYiIzXC14dPzyt43EDAHU(5>-0tVZna;iX3!JdHnC8&7`f z_yWk6ycC zF!HVw=b7O$Z=%+*qO7T7VZxLi&UFC9mSCH^Oc=Q8(;v!k((c<%m2lEPmX_;yY|t^+ zvrU7FyA*3wsF)0lw(d#CBW1qGf?k+Rb=?J)6RXW}sd^4(x0GKH9sSbZY}e^{z{l7( zi7j}_t-pkDp96PH9Zi?_lVB+y(bJivFi`)NyhYLPwjQwi9T`nHMnzM1-FW>1K{5G7 zM}sfkVXD>MKPiJsE14;e9}V5(0f@Bb1n^{pu_3zLZ3Q971^e5XLJG6q zMpi+)p;{pHo1$=(1VASL?jGV3UANcu^G~3>3W5VO*kg4KKmw6NpkSaQCr?yL#Gs=y zHRF#C(V%s-@k>RG4s=0KI;)6FRX7LiiK4(H3Z>YhV2+X~03B0HG&NRg4ztyHJbzKP||ZQ>#9lS zg8DKiw{W)t-)6$LYe3vvcj& z9~MA5Pib);?r^u>YfJ$x_8EWWKrD~@byzYr3v(#E4+9ddz<7EKTn#k7Rdkw;npryg z_bLFFmZgCP{av8mkOT=7BMwwTlLJx$X(FId9VmCe7%)5WMqp4@A2)DG zvCm&`tUBt=`xoqztDZ}8(@S`=E{0L#P(iof5&!yR%SJC#cnkKqB4Jb^x9rpjR9VYX zFzZQuNGR2SOXVSX$VCNW8}&nfwtn$5yaa)GBu1A*)*de?AwHoYS%@b_+WjQA)o1ed zUleF!T9)(sWia761*!Y?6TD)CW6mxqD{Y?}>;$J7GG1wo7luWymRygo>EL7H(}kx+ z;dZ>2_P{vU8Owu6-$u1ivZQw+W|JYmc5-O?w9C$Ql4*DOYc8_w;d;%ABhm?`7#Rqu z<)w);v|%StaBkNQSlE@DeU9L&3{|HxsEGrxFSpWKbc?4KiA%rFJ92@HP#;NtAe{^F zXhCgqWV_(?9aM4s=D?hRV~7OA0n1~vGbfHef*kfV5O|p)Z#Tj|m0~?=eq-PPXJXIQ z{~puq`Gs!;ik4H}6;oX^+GdiBmA<4dYJQqU8n6cbjEdNTzC_ER-^V$?m;nur$0E?m z4HP$%y{T4`L8c~e(rv=Z*=|!J{z5B+Q=HcHe^NHIzwZ7l1TU4gZA<&caEP(-`5Ab0 z@(|=6D}^s^b!A{!`ZJ1(sY>>96@h>fY1k0CgUKMTfI7L z5@D1NsVE=^O`KpM1>rh$DcY(|oRK@Gm35U7Qgt4+7RUIB-uL?vRs6=z@=afLta0eZ zOd!}w=grj`ET1x$%idPn>DXe;r?gWmqc{EPY+;uPMm*gY91F=}p1V;{l*YC5EYOr$ z-_6i0DPMA1tpVx6I+nwdY*9-5_4nHNF2rq=fdjNFLOcLuh2&M6! zw|@~VQTH_OibtLvR%fZwNm^mOZg|e>IJNUrXsu2~Rb3Tz%(gbJ%Zp7)(OafpwFZNS?T0H3B zCh>nmOvHE&!L|l(6mYy!L$T)Q{!%S>WSoJ($x+Fgl}}a4;^4TzCZc`i`(#5`$AUI!(PX$HdN}JG_G#rSsvh>Kz6QLGy{>T9V+umYaPVuA z^s65VP$w!>Ix^nB4nXG;ow1MnakveIdiPU|1^w5}KaBHFw`=v`U-jVbDBrWtmIi$= z10wWU&#waQjcp$)2coXOsWb@xG~Z|m9x3UMGQu?8JYx>eOs0X_`Q&wm(t}YwwSC45 zTX*u%P_M*+;^J9AD}-cSmGSFNeJ0^C+tCMt_b#)Bl+9)y)=K53 zVk<}TOQ1=}6ll6%gBL#~Vx{0J4Z+3;g=eO69iB?_g+TB%(2FZHRw4+WsH_EV!wt0L zg05(PCchQu#O_UvY%|`EssfCAXsB{+(f}6~--tnW_m<3JGb7+j?xO?BG!G#`n2rj! zScNH3hfkxc@F)za>KFn6e4q0sP$SctE^)>PFckS?str-wx*A!ah#Hb z21E`O_y8{>3o~?eOUH&{LX`H)7q!tjQp^|fMOXapE|14%$h8e~ccuY~CIdm#0Zo1W z4@HrJ0?`UFN?ATjey$aCuS-*!P16Izer&P(39WZ8f*-->WJV)p4_pwwki3@oOabVK z%z3j3mhR8zw2^9CAV=Bn`Y+BVqI{g+<$@*T(t*{#7(3wktR|hak2tiXey<^{h$r^t zqF%(~{q|gi#7Vk(8>H!<516D@6G52|CkC`^Nrt^wEKl3k;&X_Qp~Sgd zI(e>eSQ80Fw8g%sWB7y(nL}`nBGe9a&j*fDXO!Ruj2Ei0ee66mEv>$w6TYJvfX*ys7#In?-k0e6gOw%*muXH~GhSBU}Mv8(cqudX>qcdAQ` zRhS41Xx)*->PoH0%D z#BnJ^s!Cu1W@TE8h5_e*7s47^9-Z^10+8XRuH|bWrm;e**F)g~c5=6adOMKe14$V5 zlz~8`{Yqp(5LCNl$S{@*lzb9;3wr+)_Ak>~hdC=)vHmim^uJe@-*`>l67Y@Hc96R0 z1{sVa|H#o14zwnZKJa zFu-(OmXp)d>fi56!s*TeJYBNY!iQC4FR=+X_uX($8YYJDnd5u2eIHplPSzWZHP2JN z?M@thbpCmH-HW%JV#&ciW>OrZ><`W&pCt0;^4$X)0{#Sg83MKsS79FahCm0pg{#aL z-;+ZhYrN}wdG=AB{!8)%$ z_l`AL(^!dyy=STBU~PhpEMNmoSqF2b4MTJ*VdOwz&N@+D8nhR)3m*Epm-i5ASOBFd zqN%MX$>*b1gB8C`#K&Pt7|0fT3PIjuZmx;@6ECEz2LneNJs;O$Kek{DL)iYN)wsL} zXlz~T)`r!lUMle1*4B9F!mRpbmrV0h)^Xk>B1B>1lq_RmWghK&0QnoIt6Q#{`7NIc zt=*aN#^*M>F1pKVSWf6lYJy8KGz@yj)JC~^fX}AikJhrL<(Q))~2u~~4vN{2=tc=A83S0VE@Ru4t9}TwE z9@YS-!W=FpxmfE@BYEJ(c_!ex7x&<5h$B1o^RG>?+Lj2ixoxh_iHleKm{irI(G#2<&O=>QUZ)Y6ye321l|_$mzRVyfW_EA zRc`PUG@lm>N=Z`iySTEOe#T{T3o@~-tem=fpqLQ((r$qA5seD}V0mH`w{F|D>ZmOK z1T8VZsPV9AZTfg!@he2~TZi~XL;CLIYN(#`(3?DS2D+F|{_s__6IF1=GSOG(^UvoV z<*UdZT{gQ4l4_*WBzoP&3ylerl!VKgCaa?s;bCqwqzCOKr02`L1fr4w9|!s%jwca0 zo9?(S3Gh@@jQenN`J;pYUYV)=Q}{rx`zvJ275=S<4JLc2gg0A9 zkKGtGm*n6UN3CL~gxWngGM@!3{d|?9XB(8+Vc`&}lZL!v2dHCbXrD`MLlM1geJ)%q z;w&0}U$M3c6zhX!mCUnDd|GTfXN%{%{DCq($K!i_B~_6+B|6(t1pA*BpI_g+05dPf zx1wQ_&>|NeHo^LmK$p82KZ;41I6Dpc0vAb$85kpR3JN#70>rbFoI6;@vICimL%fLe zS%w(?FLIY5zg6PWMl5K2X8EFd6z;-RV4{aEH>EHHQ$b@dqY$aTml~95DBSJAoh0=@ zv3EfvXmACVBDSIZkb=aCbNw8eizwU+cgQka^&to*?bm-Y6pE=hg{=!R5D#L~*{p=Z zWATmJMT2a>AV3`ZS}{}BM|GCs4Vdc?B6Jl(+UO!$&=Xz%r{Z<2rc2o1xCYyvcd9m~ zsu5scX7VeaY(DYJD8Ear6xG;<;dvo}ePHv}dg^KOYY2HrW)UMi@LOVcf+q)AQRZ)v zk+`bQL5?}eEJTP^>*lZ_fk_@DMVcZVQ?gJA1ug@Hty?F&z3ziFM}WlXD12`>V!CN2 zgC|(ZeuExYm)wxQ!GF(oGj-j+n$Q=enK9^nU%%hK>lS@!Z8on6ulG8@@o9NGHf*1- zZ_X*^@PbsLqTFEwQzjKA?90y{q^00_SC0i=o(b;9n;ynUlZovK9Tks-ATlix$Z;zx zW85kG%*|j)L}5%}bERI3=AFp5XF1svUdgQK4Zv~5*L3<|*nhm;08od?Ielka%2`#J z>A4f*5#(FsW{$))2`XNWWk-}=$%a~WrW@FHwd=4-7yiS#EyT)hM0$ix$#^NH-nWkx zj-%jOhs_@Jx*AqCT>yAd2dtsg3dSib@W>|T(5EL-6(~~HM_!4bjLb9`lD8gHZJ$QJ za7jYh5=$y+c2ggvhF;B{b4)rxOYFd}>G-IH%8VvK3Jz@@-nau1p#9Ks5@^^H&iihN zmxbq$QlcjPjC2YB+&l2mI0oL+Sow5CCpVjjgCC(i!SYt_3CVePn>S@qQ#w z@d(&>M__Vr=}Zo^0Wf08CPRkAm?`+$_b)MTE7Kwp*ozPeU?bYVk0c9nE1-sGptQ1w z|EhMP^Av%{Pw0@PZ`_9h!jvi+QayAE`DijwfX~2%3MlEXL^gTdbUEFjx5PftRC3B7*N&0##~p%Bf4A&L_FM@Xq0QZkn85VJ8M-^#bT>BQ7F&3 z^C7G4(Uq%_>^#?o*dRO}!QYc7_W-lb?XJ!$ zfH+hXsp=WNUCCOm2yzb9Ge!pMjn|bMz;TzhI^_zGkf_lT-^xTp(olc%LpI}Zg@ zy<;7k&ZmGYmV`)LC!zH3-yrb*gP4RbY-x)~zx=^ddktKo^{@KcaC9rq^?1%^q~0M^_TrU8F|vDpGUg{huGGCq zIkr14-z=Qa$}VHWL7}0op*DP4cZFxKdJ!f%cN)Y^2w?!h^yP=y>xf0A*6pRc=27yl zn*DG$bzDoOL0_y72q;@aeq$@VqjJyBIG|n@w<~&BkVi&?cB7U}5K!mNXxl7`HfqZ& zvo>!V#W&Lu6-kb8ztiIX4;nWAm6ReexU{B@ePmhv4Wpnk^#Xe?wXqY_i_l&Eo zV@5U!{UpHbYT_KvT!*Q&@_RcB9WkqGZojmBZ&*4@G%-hOf5vRVS(BdUt0Y08P<_ zTc#<8v}x3*tPwq(O9fEE3%X2gx&}FSv_WCn8u-BIZlX*aFlzlPC~7i_67@8*WN0jM z4k*&`-KF-rQ2_eYzYMN}wkw3M%n)@{;g&--)(5i4)s-2=;F2I)@l(M!7^bpjHpE&`O=K?{fH6cANFkCO z*=HrQ00hDj?hk=|M9;fK&IOuq{W1JM;+a_=CWWkX1UyTEF5MEyid)JDf#763m^YZmAhtpT0*n-nj@1Vpl z;H*V4r70^KT9Ez--sbS$_(VMOrI&Cl$=qxT^jrvgf%zyJk>c1{&lQQF_VYGuNr!{Q zShDbpTupnjcZYJOq&^(LutX=Ek%v(NW@e>5V-lz{B&-7arT9~enA0LR0|zNrw?4z@ zuyvWJ2;aW%T~b*_mPzg0V5wRPlo7U8EJq49%z|rLHab!jZF=Aup$gCy&6O%=)_u zBlO2jW8N9ndL4`s(wD8z7H|gQPV*VwjGrzsdy1jY+v(cO=s}ppS`?VU$C^jTa-XFH z-T)U`>@x%<8r66}IAx+r1gCCXVvs<@0oMe=$Tx|j{&gxZ&Ky@i2wW$FT1>Q>9*BY$ zfQf^(URy1WRsV`70D?qbOms=`h|sf_9fu|Y8Hgi9OpvIkNaAg* z(YsxHI{LPM|MJ>k*WHd5__+<I}_1pV5Gvdr-UJ&DxPCU(Xovid+xCHu|rMvgQon8DeFEu{Bzc}@1{hr0}3 zlg8wo2+HzNHq>+^YM(&zcp=O>^jl81t5g5#_&100iY@gvac}#Wo2pNF!0-64Ah%fC zrR;@}SqltLTS(69E3u3VF${8|CLeP@aKhHLA=VcuZp|bh5aepEy@UT%SGN3&L!}zm z1)|W?nW^A7TK-%MGIyw1NVFM3m9c-+(_ksC6j0_Vwz#JO25_dNCV2M{C-ySc;I-$` zcz@YC1T>&~&z&ugBu0@NJpgyfJ&WszmEB_(eAT_nXIj)h8@AqzeAc^0_||=xgy@OY zn60}@^4ROEMzZowqT~?L7%5O0ljk73wTHniVk-FqM<~;YZaUptuV5e82e=Z*cUW)^K#Jyqp}J;o6l&t{lSgM$xuUZ7ORAEE?p$RIxho3zfx`Dn zs&fPh)%_oRIxbD8q)NZVq%wQAjzj-*WBV{!o>+Om+4xK8;w$-FWz1YiP>Q!;yEz6# zi4+o=+a9%A#Kb_U;d=R0hZi2R)IpNJTmVH-l3zvWr^sOtx>*o^^*(EI7>FvE^#*oO zy%H&y^@4*Cu<2x`5ODX|>3VhHE^GEK7qmD4v3%i`y=p%HqYgCVV{ms5SP+)_xVkxY zP{u#6s;@~BhKL&6UM|>PVf#)*v#Cm!>RXf5tdCrOW`xBFn^HEJkl|xA9OYNN+>L5W zgr`C#Odth>9wki3;E6p}Ra=LKRxh~WV>}ecet1&Uo)zRcI($pgndDVo@LO~Fwn)Fr z?@2^u^5eOXEmlP1@xbDl?2=E3tGr4IhcY4()rRC^p7cj{GR6xp_GU6NOt)Fh^@?Ud zDoAFyM_&RAckoQpUIVbsb zGa)ZJ5qwLScM&BWBcdZ_7?4vU<;yvNtEfBW*<2b_FN{+R5y~E}<7|W}9{VjL=b=VG zzLBwy-5mn^pQ5)CEH=`COL2Q|O#Pc?U$Rifncs1s zV-{1vV|+tQ$yEBHVv+oq{z2%{yYy9R12ty*4rQwo+}AeU3L9*tLKai{_Rx@}UPhOf z1_P}yif*kG*n~P8sekIS9uA@+hUgWAmkUo#q8b+lje%^7hBv;4&8#Ctw16w4{|@6h z&vouNO@K;ic@8ynpaMUGOcQd{P%dad1CYoTXA1~>BKb!UE;aTZ*}5D)`+n=_v3^l& z)^nskr0X{JowfLXUf0-vf3HNT=Cs}X(;0rJF0zmAT8Mu0$gVvDSFJhdmbr%+d^(G} zd`;=$qi!X2{&fNr;y92hL#v^gTL%=fcM@CkzF`=$Pyn^|R$1}ZXS$aRmpvD-41v@d zU_MZELKb7ZpC(ob`_~GL$nTkZs5;{glJ;!g4R1ISC`)U}O?cb@#-U4DkAx4cvJ`V8 zYuE%f)WQ*Y^HB9*JjNR1`nTAUTh4GK(dR-#WKYG87H6!|IB+o>Ji5)I)h2NYOch^C z!^O0%6o1D(MON!|QIzDLfol|KMBos5kT?p6t1gOlL7DIMRU|6#)~Zt%12rht(X&bR zuRWw}+=a+Elv7RfATQEz_Aj70pwqCoJGqqR%SoqTTJa9w0 znF?!N#+-FkQXZ257Z1p@v4E(v4!ATN9(eGkA0Bl?+yXI(#Lr01NFsO;TD?)se4j%A zDzhvxj^Q-a)GLzEBVZ~K6pY#T(KU?uT7ggJ*7Rq-egW!mmuzAw8 zv$)S=O3a~Pulxyo2qYvd*pSLQ8u&-u@p_1`08clRIBO*MrlX$br=+y1Abb#T(?;Tof18=LNUjdHt^8l1a>|2HO-}}?xgSy1Hx`ul5m6_hf^UyKL zy$IckhY`JsDeuAbas<68g(i39MM}nIH}JJ`w#Eh33>Gwg*t;D0u6qSd_gcS60+cdm zs-HPizU)h&&J>bQizKe+E5s&LKq}-B_$;VICktc75B<^6p<%KRIFZMABj7<>Z3Jnl zs3pX>j7Oc+uUqum#R66Sv?xB(5 zb&Rr7Rftt4dw$dmOt6UwwW?*Yy7VDs2FfaLaT&%DVZLLvd`}1VFW$!r zrrhd{Yz01j-twfvVX?fC>OOr}tB|E~7&}lQ{?KuSdbK^HdPH~;8oXVCre`srL_*fy zCz!UNbRPj$gK$9);LgE-Za7h*$FQcMvJrfUQ58ZJb?Q><2EPrz%fp&8`FsXo&BGtp z+lqa;dDO>9X=CH(Ot0m?pk6R@i3j6ijp8?9P(`YvHt@T(P5GfVxlOmr&66Mudi(z= zoAc?`J=v#k*D;S;t>Ca+jVa*AMG0mS7o1*oB9T+9KJPQx8~BwKeA{dD*QK0G-4(zY z?6&VhWPfJpeEXyYr>`<0wZ+~J=*rJZOZjU;VFMm6^xPaF!@XRB|L}U>d{QgXU`~sJ zjUUzEYxWow(21W}XK~Ys6k!pG-XX}bmY=)XoI9x&bSR`{yA+){;S*RW| zv=p|8Z19WT{9d;;j}}rrYWV~NgmrBJALpOJ8))>&%H9&_GHN-lCsW6{&ODIkr2{2B zNl58w-Q`&SCpbK;Tb$IvCmz<-|C%(uFwh-oV9-;{+2-Xa^GyS7rG z9Hw(zwZOTa0(69ixWsF3PyaRKkg$Rw*^V!$p?J{vvH@~!cQB#0EcXK%ItZT?fj_?F=1 zero0NS!^h0B6v5#15$KY09rM-iUuDhHa*PrsXa`slyFm6x{bEFhQPQ$;lNv58Cr^6R9o z5tV@?3VFEd_nFfRo%YEFvAgcVuiSgCRQ_YZdMZAQK&j3I=6T-HSy*x@|1lx7bDpoI zfG6B$4{JO>A}H;#5;_NyWc|E-SwI{fZ*#|c(|Bx?tq+k*(le^{1|YK}z4wCwfaB@ve zQ>>czotCt<(x3Klwm!zZI=k!o(liHVvV0Uq&laCh4X+uw;pyoXNualVOyGY zS_<*ael2E!Qe-aU02sq;6qau=EbVh(5P{ zgmVGD1}50`l;6Im!jdD#Ojs!?sx4j4ppfE!qEw{Nup16UTl22J^cVf&9=!~Sg#CLh zzCVZzIL6J^qpe5%eZibgExYx7m>m3A5$SCY@3u6ZQh`63BMvjZ2N_?SsS#s{%=ndS*uE7|3C<)agd5is1o75| zBC8K8bnZJ|dHDk>g2Fce5j)3sJz$kGA?wBJ7u@ErQqALLb<^~JiVlp%(1wYsBNvma zA%J>zF_d$X>L6+@w-kmXGt*=^2KF_Bj_k2Cb@4?uN+N@=gf${zMK}fz1VHUNDC?JW zS2U+OUo%0D!`AxtAYnZ{04MAz+tL6C7WrWQs(m=a`H#E2qF}MxAe1H(^B)OU*LnT7 zAjDCepfs-`JQyZim;XfKYGd_&)kzb|y}iD4?(!$6t)W7I>=Q;0fb~@n23#l;p@80j znL*># z&sbtrjHfeprA&otkAup=w$>6m4lGK$)i;s1xPn?mfcB2QMdah@g@7;+h z%bxBU{vE~k0p2Cc`uGPZ(7Ph}@$}`nqP5wqM@&TTU=+2 z)YJ|1TWi>9wcYw<#Kj=Yid9htXSm+JdZhu?D0$3P`fN1;U$G)9;^;?Yo7U49$S?UQW#i=C1dMMP81O~l1qDOvd>!DK@;GlCwmHp*H$L|07 z)o3e?$)KE=2B58w2nT%fR7kKqbgGILmNFRBz_LB7&}-l-Ln>(^bD@chU<^oqj8G+!~VwIf>)yOaSZkIPqui77PVOE{i_{Z z7w2K4jO>GN{?w&*r|PS||9Ay8=>~uNBO-yuPzz3cJL&o&veLKRCn)eAJId9 zm&_$p1I%NnQ?QaQqF=(@?(?<;u|g*P41Pr)xvBHig6ZRG{?xM3La!-OV$a*XGp<1B zCn{URxJdyqBc;e%7vGQ5S@vGSv{ukoU+BHq^TEfo_PA))GycJLeM0s4ZZxSX;hWST96JAC z^M-fv-Q>S>!&Uip8aXBws`rCXzkQmF_RBz)Md?nP!@KMQ+1K|39~V}-+oExJ!#lbT zpVjQ1lJLt6SP0}Um2CY!A40Js_rUFU{S;^87k~EMS3V1mwMR>QJ7^}wF6@Nv+467T z*Qb2*I<#ZSOniEH=r4ZH^cgCKMUnagLt2nLk>BY6pT1$m-TzJnMmoB{{tS#_as#l( z_BuTW^u4;ea;MRimaxUjHJf>KLc4?$eG)_Us9DSoo}PbveYm~mtZ3Bpb>p+H1j?p` zizxhnL!fHp)7wn`a53~9borps4t5u4vg0GU3KGPVSWY>}5h6nPn_`foa9nYWDk7SW zT+^s)2VnQ7927HP^tKu42eHI9S#dszmIpfeA8CN05-@B6`Go7^wKQ@HqR|`Yo7ffS zd?h7qzz#}}!ZvNiwN*K4*?&A6&fZN)VFffXaoXb3O6LE`#gr+$g;38;+{2TZ)N&K= z$6<|gh8?xZtfpaud{kaMLu)sGDmaBxeJ1?(GSBwU@8_WYI3sz}uj7+j{rAtGu*@?C z$5ChW*yp!Y+50Eg?>ZTi{I}ynewwF?x2qNS$i^ zTDaakhdozB&u?nW|c^!R(#A5&r!mPp}RuMi? z#z?AxsjBiF#}heG1NAeNQ3Fi%Y+aIMR(O_^WON`~oXf7!tCB~2rwkA!40&(mCV{(1 zM3b*IwS*{MuVicoN&fHgKg zX=Ka8rtfGzI#&`&q;7P4Zgy3&i(spdk$wYT@{8b~Vk1Tl=*AM}@oxbTFtTEBHvd13 z3>m`bqTiu85Bk{he}cQB9A)9RHMQTvfD-~?rcElI%%lg_41He{)Xy6`h<ym(Bw@8_Nj>6tM2$~lj3)s zAyzFV6$05xZqIVMxNf+K*`5A%T~MEP1RLY`7idRMTY$@1wS-hFCY28CC>W=*?0x%E zBEiA7psi}6SE>&EVj@_n8*g+nc2R#N!NOAhDxyHik9d^?bFB*(fUUeg$0#{oISEaS zK)PXudZJVoX|pQ`A-=9vq*Uctb%Umo)J`rg0EbUxjPQ81M6qMKQw@S|Es;*sqs!yM%u5)_rz4lt@VWw@j)?JIO8op8A zitl$7VKa+oUf|2Ltcoi!u(TPZnzWR$ztt3e7a-G*C|x8fY0%{CE^n0lN!(UMr-+rl zBUDz`WUI)aPuIDUy#^~1E)k!zeq?QT-RYIz5yV`*UF3&~_x@xl(D%oRL40H|byz6E z`hJ$KGEn>%BLM7$eJz%;brq7EuY7tDov*yCHpqaIklDA-kNoc#%=EzQ-@y+5`|*x| zwi>n5mwStH)Da$Ni7Qdr_d75kfD_S|=(7|>g~xZhOu_^Gao|kLqs~pPS1V|%Y#cVN zP5E3A1=@6znuS93N_lsiw6Dhiay^(vh2QkDm!hM%Ooe7dgpwMZ<+9pRZ;%tTL@s}) zckp-9R8|?Y1Zam_xm)7TjBMjdejRrOZP^{qUY(L)o6Mm;2eXilmTpXq}ncR z+279lA6Q$yfA>FB6=!NbBbO@X|G->d=ndZ#c0 zLimRVYQrMCiyh4j=um3Nzika7=17(cg#D1NaizBzH%!0znofjjs{~p)*cqGE3ng6o zEn?HJ7RFxzcroLz4k0W>2sOepxRg`rxdf9zE{NV~JSWn+`4;7H30N9D-$e~7NbHZb z9dm(tYNkDH%=;x00OoF@DVz*Z^z;()37K?L^r-2hp10OJqc{mK8+f8dQ&m6K8;xaa$-po0TX8gng_RGx_sfb63>klC9sR6< zmYA#D<5wBGtp!?dbB`l4jL@wzr<$T|%olvzYuHy@amBY)rR zQoO5Gqm7C;h*`SyDsKsk34}yiyusi(sz!F_e)kv%T+caOcl)?*Cg7f4^jugt;BbFl8uOKgBmAMtp{YqKsbh;oszAcU(2H}R#pKp~*G?~pQRjWo zGq>DVtfR3Fs<|xW9#O33^Lv@?*LVusw8w9Vk=v+;tIeb2=FwhEUAg(I@bSd0vt0zV zV?DN_6BVJ7Ht;@NSGt@F_QNvYE9;iV)lsB#I1l$>cJ8@+rU|910e&84Ut;U|LVCSYdgK&+-Yz~tU?&nJQwzcUy$PYwtPWr6zAy}q z28KmBmxZUoQqmPZCznlpF%=7tim`R%ko0>?Gm1@4hv?tOGD-b|X#9YZ3Zt2Lx^YG& z6;=m|!Z1HxZayz!A;BTSBu2?9%15OjiU3-f;~CkUmCs;ktU} zKfmVHeNk(o5KgsrBSFnrQlzUrRveUvmDtpB{i>??;VZ{1H>v&38V)9$dp4tqAtfl*0B#iLbT=Z?O9shI2p`_f@2ggxDXbdv zi)kyRj?q8;TlGFe)`KC)XyDk88~a{_UleA=`oD8sS+c^iy3lB#P-9j-p*NMC8z~#SqSmcnVHu$c6PYT2|AThBi3~jWzq--2{ z0M|joIs0U2sGD54@7dTSZjOo2?UEy$NxQH*edSggK$?nhqM`ZbqHbHS)}<3u-cjgb z>H&xzcLk^_V1F^FP0Dw< zlfF2bAiM^jW)6hN7-`*;LV61~%C~9TC79-*T{tb)ohT@j!Ts{Ht=cWwKwm}=jQ60U z>F9GtUBnTw!yG6cx%feJ3ZfD$(?#4_#vAFRJq9w` z<2PyA^M#-F+V%XAFsl0ybkLjNAB`mwhgA#7nb!g0K+l8~XoS+V1{OYn)V8N7iaMUuPB}ZQAjQ> z5?`yDW1FTEBJl&_B-JxH>P@Y`=CKV4&Sc7b$ODW9o_P)cZ-y6$BL*8x!v-U2g|Z{V21^{%!v=a9 z@bNv~bze$3AtAMw8k>C#ET_@6!^p2Jrv@o;CGCv#s<&$(5W`*E=Cf?3pmi~LbGAgw z{k0C{Kqt|^kS^j5%t7j!oOCZYp|}6c&wv>(02;1Ca2$RepXtZ$FKyWOkR$nQjDNRb zf2-{SviEw9!6dCf6@OU2DH4Dkxre}#Sb?@- zyLDu|L-YBJD{T&laSyyp&d)T5e}^8IK!Oyr4J^nN@PM5m$`ylmtDAbhB|D@`7*amUsTe4F z#^DEj3naI}c2$oihx9y2F|!%1(2K!BWfdtZCK*EyP;$SK2ijJx%my*+f%x5=YBJKs zp{rre>V-6hfhk-0gqp!=s0>_|AHZ<{dUIm*H_e?tA&IHLw{RC`S~jUI~1W{ z;9Qegn{%F=&0&t+iG9M8z2J2GcY2-DRfEG=-~Ld$+_kr}uk$1V2J5OwSr_}Rh z3IK}q1(GE&%47`(;bO0ND(m)Y&o$XC`%2=F%9=dWKa;puba{o=Bd;PJn29YTmbpnC z_1$~ZAC7HcI?HP6*syPTulm}m>k&(^SgtuO&?{7AXl7G4kBLx3uTZIV8pRa9phN9A ztgPLvE6mT3$P5Df4URj}o$jbKyik+6Gr3VBcXJt%%xqxFY}|!Ms7o{8>IhY{It%F> zk$Gerdj-4SW7Q5^olm3;-(MVAo0570q8#ThizSo(MG-jb%&t7jHm~|C4V1Xx4Nka# zd6vKIQmo-$DjYN$dZyA{nC4Do<&voon;)!;Y?wOTsl|u%$o|e%B!FA&N5_dg=*~3& zxS{&=TW+$xJ4I1pzTz8^bH57rV6Q?#ZQ(4&aIX4T!+t)##+`lzu2|Vyj0`MT(fUtR z`*k7Re>)oW!(95V5wpYt2Gwcd`s{B0jLtp0&AUItizei=F^wKO?ta9Zl~~kpDV(Dhld- zdXxDPN7*{Q{_yT--#yWWe3p3H-|0j6a_Tw_`LWA9-@H}0ti+k&;P^b-P%~MT^QHE? zF>1l&FW!XX(_D;mwLNZzf)?<8M~5|bpqtwr=Ro%Ji}tXe`=AzcXj?Ye5AkR{8nT|` zprx`)cp;#+`@7L#-C5GuV697a^(0~7)V$Ic@9JT|(XlZA_wv}Jt{6otNv`bLpUrKW z@J+?asty0-+biZ z3Q#Ai3Xd_odzwI!W$Ls%G6TKiaLALL>yHp;W$zKpGmkvh@Kmg05`=G`@qd`l#iy*~ zYkl7b&v*CXmvj=emv4&(p4yvFYptDMpmC2wW`;ey(R`i%aO(8)gQEQ7OdJV}-wXHR zTf}Q|@=psQHo&421x>M*ak>I(^`R`a_pWQdjxs0y7_`@3*>W4AtpdW&ebR6iMT2Z& zdgG#z)8oqQ+(K@GU(&6fcF>>e>TlZpk^|W6?LWiaPadN`3iXFd!}o;oYpcr;tS`Q# zVJP5r^DcIhT%WUJ4JV3erACB0h(tMkn@EfKMBn5#bN1i> z)nqe$^1d;Xv-J_?Qv1F@p}J$mrY@q#m}T}#4=~iLO*szX$~U8pU>RINZ_MGzuL208 z@+o8e)gj?Tom+NCPKpLu>|LZ#L2%<6J66LWoaR&)Wz^~^w$=*-|KOiYp`unc32aL| zEAgZn?ryt~7drlBaBD9^>Un$`6FBPv<(y4gXy&h;Pi&k6?LGr7Lxwq&*Z+qUm1kDY zb74PX<2vOI)Nogy%Ph}`HH7MDeb+Q$*Yw+sKx4z`qO?=7CmCkXvqN}^5vLk}qoZl$ zwNcgY`j8bfe(CF~;p14_w#amqNmyeGTUo+*hy1QbP za`Z5qHNBvgEt`;!WuQD`4&}vVqzKhv+`lRh+gb{{?h1P2!bKthzKWY8wan^}+UVzM zu(&Hq8%Mkbo&bf=`cI!`iUuUoHK6lG;>JxuuL zAO+=puR%=GeY#Vsc=7imUgq$ZTzAAlXPy3Ylj4*N056d5VbF3{R?BerNbpGUSvl<@ zBN`+2E>OABxnqPEFd+Y?{7V7Su`w%#Tqr6yk2FB{IHQ8FFPh7$TShX7;bwgryh>XP zPZ!zAz|}=W2MYTm{l)Q@8fa)JINso>1gg~vPtiq}Lc||70Eq2^;wt&r-_NipTVO2s zfu_3t%7pcIWHUz>PU&XSI(+U+QfhLL)J=Pzu?Tv@-}16Pivp$=$~ViXC7W8HsoQWV z8Xcthg~06~PX_!jYGpQ8CZ~X36)>6jkxP*1Puiy}xEfyL*Zs}I+tln8%bMX#2VY0g zzchZ}yCDLABC6zLRGX2pyH{FN*+`cgC~nlgf{}jxkF)Z|9*L~GLJeymgv-Q4;+F8X z`5sIPX|VewZ64XR^?3Kj^wtZ<6`R3nd|G@En*>;$hq!N2u7v>P!o1ws_Zbf4^l9bQpWB)TaLu7)IVFab_EG1YHA#W`Bqv zfrm0-5dN_rov|t&-x5K{sr90SNv&E0B#e3GockDH6JcSNhwXzo_Tjg;+NHZCyHDkAd4u#%F#idqbB+Q_X8;Ge6GaZLbwd)eM!%ggq^^=t zHqej;xq|PM%}7QZ89aoI`|IxknlixEd~c&zo!6d{R@pA{1Cd;D2xJ<+F&?CX5X#rPh-A9g6p<_8{~G`-mJ6w zf;Gb0*OEIiDm8c#+8Hw-^od*-g<8JdLc>RUQ4a zY78t(B`p08i_1_%WFc|}Yvd}OdSAiXourV|9jaU!PP7DZayU2$n??^zjAS^wuEWFh zw#J#9Yvo+_wclBMNcC+?@p}`-Rsv}66-QI4cYOGnvvyNR7A-=wudoE;r%q~3+2)(R z9TLv$hpQ>9^xJBmlFlpX=Y-jDABymiY3>VKy$aRz(eJE6dH-$#og) zP8w1E%TI#xx_OFi5(k#~ts1E9Ve*(AQf)(xveixTNH!eRwDSVOuNKhky}~kP%5YnS z9V$Z4;E*m>=7T~-Z)@W*jH0*=!#&?L5WBgA_NB%hqSW3VBxO;1qpGlHe;3_gtQw}i z`NKkH$z+#~Fl8+Dciw(Vo*_EeXjv$wc;o}h>6^9`yn0252dzspG))6XoqxazXcTGfV*|ss!{lu$!pj7oTaiaHB#NfD_(BN%;nK6_7B}7<3<$GcM zC9JKnAD~iI@KCaoQK0fDDm2qMq>!}D7y`!Gy9+NbDGBFq{Ud)b{!=VjN!U<~A*0Q+;0(|ufa|0bJXh?g70&YYI@aX8PJbeGLa8>z&H9wb6-7waPdKmnep9x;HruvAagUlq9)TO)3#RAMPi*?6E8M?>491e!=ENrFLdli)_)O*l9z)j(rTlGmpQU0ss=wA zK~dt9v8FWmX#Zo;t4u0^yQd<3kYwQLKOKp*rCHbchVbgt!hOEWY+?{PQFa>emqEY1 zsqE%^8Qa2Lpzd~yLA_B6eRLO)mHTPvKvolX(u|CQegRmx9j!mrJ{yU6*){{1*+WJUX^(O=sKgXaP&A z#3;_LduLTjkv#wBW~D~Pc;b{_^mvrv1$YH$VmqfSBxPUT3NU>ieQ7Q6%>%dKl8qPB zb;xr@bHlYtRrWd-%U4=7O4He&$5$Z2Osu%bWtc9t&PFsQ)exEMvlpqU`b?OrCk|RkQT2x*YTy+> ztM%O3i{`HA)Jl;G$N*Was9X=UTnNklKj$)+o>+NQ%98=MreEO*b6$?x2~u1Rte0jSE0+>{ zBz(@|vkDmyi@k?0r%U&JSmXWmFC>PS@pg;_ySuLNUY(Lw#8k95kAksmMtt5LIr^4p zFOu^Xn22W58UD@;z1L_QWjuO>?-*hNH}turVqTOS=1(OCiNHww@L_}$FBg(Aop7L=5@SnB^Fr%BUqOa1`PMGi$TM`OE637G= z2wu-0k1>V+Q5-j&k&TvTQRahXdTuD>fpIlT*1*%PlTwDwVYACDb3e{z`-I)R>A@NS z4cyAUOPhEMO($%%Woj!h#d7uK>B8G7+F0IeVNVVUtOtB zJQ0tKgkIY#IQhLk2|#^&R(xCw9H1xg0PA`BgcpCTK<91nytEFnAfUViL&aArCJLKBk5B-@SKS#`BPXRs?Kf8c(R*aXoV=EG& z&s+CI5YZ0jXj}Emvj?#(d<{ETcsM-$uX}%<6*gM24oH66|aq|_}83u z0S0td{IGSV{XW|ulbCb62$X~V&CvXjGe`T&6c=kQW`YeFd<7uLs?>=(pz42BY6xP# zv{k-mZ|R1(R9}A|XOi;8#3h6?59`*IB8G| z*LQ&UMCDoNAB2z1=Us-mXNhF5eJF^VU}ywKn$gH<#H0j`mxAYm54vk4tLh3+eq@M# z*)rKkAGuQ>WBWZY=4Xw*y~xLQdi8L*Ml@`?6)6qbcL%qQC#Ytl=22xjn)z{+nym+oU{1DAgIg-T?y03L0@!yC6RX375=e#Rxvi zH;c;O;;c@JA$noB?>1->M)w=&b8dZb-Y685KuCE8e@05 z6q{~ivwlHgCC>aO)tRs1#axEZkiSN;P{a|?U^ z06=_DnaI)vwAX#E5vY&U4RO{CU*kHgZO;NfBRol{kq7hblKRW~J$D?H?JIYDp^&QK zzpyj@@R!$RoCTmT@iSBisJMT$?twX~Ksypp_mXGbcdNZGnKf#65j;OZT*>`&rsMGq z?^dp!8i2YK1?s`S#B~AeSv74?$gO96Pguo$;xlvosGyX4P7UDJJAZ7cl-J3{Q2X^q zp^$PV`6~yq<IHN!sN(a?nI2^retT&0T0 zPANC6A8e({ba>9WYvow&#>xAKYWd_$X(G(cUP)_nyK0xTTi%AJ?333{6r!Q7sG7(} zYN6FG^DblQ_e>PX9A?I3oJI1%!?R_ErKqP*pg+sT>N`9!&4>CipM&?;qHYM#xAIT=M*Y)X_LLe_0^Yx?mX75LZ-bPhJ6(?HviS zX@&wX^`!RQN?In`C(gLrv7c*pj>r*RFjA|ak{p;fANf?21UWGqT><5Ox1p`rZZ>;^ zb*s-mK0&-vHutC_r&A6wig&rcx=n-T{<*&5k+XCHqL{3hs+m;c1w;J?-Ry;2!detK zO9Az4LDmT(660DVZ()A)?D5N&IVeq{l{r7nrD&Sn;%B$U&q9C{(gQZ7*BEb zFhInZWQ}ZmiUToow742hf5I{Qw60&9(UE?&UksH_gXAeF;ES?Tubt~@?BwK@3WX8( zryit2N=S=aC-X+Sn_g-SjEv{b_j+LA@nq6W1R7almdNoqQ^$IgKkN4otDBTVyDR8e zQ;_0bJ-b5e6(T7#5tBL?Z{8NjrDXC~K@YZ<_eI@?;hS$ZD=21L*k)Y3g03}m0iSp6 zBMA3mT+&o|Lz~6~DfEC^tB}NOgFiHYktJ|KjSFpP-)>*$?-5_iq89Lhi0u@C>g=73`c} zq*^Irg8jH24uG(>{JEL%&DF3*uClHGxDe}XC>i`3NdctnoMe1(0~nB7UO%6@r@@ix zf=wO}pWQ%C5pUi0yB!Qpsy@?3-nebP(snK`MAa8PUb&UP#}eMTGtR!rwurms)3n7O zLVTL9Je?iM(Oy{wGZ`xEn2lcXQJA6<1YNYXoi`r9diCXxVP#%pb{4!uWxNZH#6Y8LnHLti$Z9IaRG zGFvZ%cE_H2Zyq}I5X+m(B`Pjm_$-6E6zH&@cmJZ-Z}QhvRJysY$J$w zBJ9*d6xj3TY_e#-IV6VEfw*Evz>RU$OEa4H&+BuT{@cw(0){QaZFDYOZ~7siP*g^9$sf`3Jxg<0zv_i zS@x`JvZW{Y;*mcq!MvhSE6bxYoN9GjkxR%y2o8U}ev(9)1L49uujiC+ARp2}&o{{f z@>14kmp9&Rb^AZJ0`ehaZALeCx1u3(Mr4CzX@N;#e>2E*$?8=6TOT2;LxOUs?0x8- z)LDSNWr}M^wv|sybB7W_b38nA)CREZDz>o0WmWXD<-z5_iUSkt(1R75k%Xqy>oKQ% zdY09veUZ9ah~_--KfAK0iL=MC#m6IJbyq1=$QSS-%7H>ZK)Q-S9{UAx$$!nM;0jI| zq(w)EfF<@`?y)(l3G$UJMpSLj1-Gti9K=@Cqjz%LOBcz45%WKt)94v?2 z+`#O9Xcm2(*u*?M`5ya1Fp2IAcFXh^rG_%Z#$hde7WN;*^{_hLWI+~egv|wKWE)$ z()jv4#-+qp%d)Q^yNphYrQpyg-J<|IPjkGu``F~Lj^{Shi5Yc5wPnKIG3!M=O>Kp2!?cA0?ApzE1;QGyO)kN%EcR^)Y z1E=-HltGq7Zh`{)5bp(RJ&Lz7HMY*TG0|wlbh$n(f91XE^O4pG@g4&E8^`fA#*IQy zq!JwPvxvV(9@}-cxnJl#6$JcL!!vU1gC4v4z!tNDm2F|Rz{$gw6i)kd8$8-T#8UZ! zock*Y8boZyNT@f63!|o{#bVylje_#o}Av%C{DqGD77J^VfF(O!g!dS-ETm zOti-KK$tw(8t~c5!RJlC6x{KaAf=biJ-hoYyo#$=6nC4}2-DkDcSQI|qAdO5KzuQ= z{ABHyy(j+CMOE-r4}{;B@xvQo zcUlpCo)9z#7uHD&w2yY%bxCLX!2Hz(JN3bC}(5C&T+h zEQ?ZuAn&1dbSNiS6!~qbEP4#G*s;zfDeP;o5@1d5UM&h?S>&+01^F6A*m3W%pa^`g z6C)@?d-NY;2teas5ZNyX;KrBYi`Z`G#|?&UWy_jL zKZW`MC)cj~bEIa6kvQb=5{q7{Dv0IJrUoK%!I|Hn>j38JaQn16i7hy9^b_LeT%$cn z0u+>jW(PA}Hu(B->{Q_4dphU@!Oe#Q(0?TATF12)TyIq3urav@2_&&R#_wE+&Kl9F z@0gG58Pd>PLv~0fcLii3hiEYCMq$KAhftmw@1--wx|YFywzjb{eC=Tf{dq;Qw!Ou> zCF6FnIvS5cdRQK)fj}68tFxKUDRFn#zJS_N4#n${ROA39d?eIWkWn6}z(QhK?Ygnx z`EU3EFJV6#@9v$aytd~L4c4&lZCLI;Tntug?WTgJjDtY%FVV5L z!$WfIHHqtkh#DHDl`hY`9)V%W;Db4jycvqRU|8gjcn;lXi>1;=(H{Tw&Wm8 z*I%sAbUcPhTyW#&hoJMqKnR=}bXG?gkxHKOaZye^9-%J37}mn*f{wRa=k}LEM?r2; zHZ=MXkq8N8xJ&A~$DR1m0?bhH*yOU7dS5p(+8I2(s9r$^)F3J~12aHIR}^5!#e7H{DxK;8%o9^-K1hOl(UVYu;8a5-=m4_x<}@fj$~D=e zzp`-S;c~r7%Xc1HP_AOI$SA3;WpjeO`UUTK;QnUu%0xn_i7y(`NMJwyZQTWiLzPBr z`epf^@eoajNkk*5?Wfca3=WH!jv2=QM2@M7@s=hRN5~R+=@OM8vim*Q%xqlevvwz1 zE8)EVLuC^I;D9J+itiav_B~W_U#Qetp3OW9U1nqKm!OOfYv!hDm`>9q0~4Dz%)8r*SUL}4UOw)?0?F16h6!)c`cL^fv z@NK14NJ=!E<$^ad$O6^x78DPhgoK73pv*@^j;2D<#nQmKakYhWU9Rq4Sb))-zJ4aAGAmA?G<8 zkcSehj$7VVv`&TJTAk46p}>}k<{OvA=XRykh1iJ|uV#_07cYXcQ(PIQhG1Y_s4c!|{5)1EJ}TF3vz3x$w_2UcYadBEijEyAYF zT?{w+)S23qPx)#R2n@X{z=5y@V|mkSGYYz_*_9g~q4~Eq-^iR3h`A7a3!hM*|6pD> z12K);Nh~2rV`tc$v%jxy#)Cly)mo_=j8q>)myS4TZ0oMCZ#B~Xk(J7B1Nw0WPNij+ ze^mM+`Sn@N3;*Eq%;d=#@SL!|G%;d_+1um*AQ9oQtPtXK$(XDaxemk_wZ09RO|q-G>wg$0>8qduG8yDsEJ!0FI<% zEt25GCWV+@DgTM+u*W0?LAuXqhMJU4(!(_^W zYw?uF+ET0W5a|Z#g${hVJ7A7ILB~76fNd#UbdDy-HNq~+RYJMpS0pHkDJS}%=%T8Noygw{ z9|r53%3!gg%))1UMg-(`>%sFCXqO#A_8``|(OZJ{NRf)>XJus$WD>^9^B5*o6)rp~ zgxDw|_qWIZ`#m)gj2>g2L+=paQWT>yyQTul* z(@ZPV12+^)^lYLg)qKnese!3G=JVQ831kE)vKcb(>!Rrzogz++hnxeR_P!Y+(IBY$ zBk({}|AHTCOWA4*vQXdlV!QU$%p=<=Z;twr2NFeY{BRj(ZzK_3s$EsN7nrbh13vK3 z7lWW~akkJSG z1oy{~^>RVFqG+E30mLLfundGbMvEcRTlB#o%5aXODC>yFq`}$$>=B7uLP=Y7&H0a+ z;)y1W*Td0H3-Hymh7tg^P*W_IAwGRtL65}_=Wu=_(z>i?XCtys^)6=(tIrZA5Htmq zbW_z1h~8#2F=4L1-fi*VAg-r0J_}NBvRjBh6aI`1YME0|xyDIO9;i*@TXP6a z?A0zMKSAJ=u?ehUd7-Lr^}e98>)Dh5KJLA2y_G-eP0dV5Q1VpPzR6V^P>R~S9QBo_ z5XHfP2^Cr(G+lIp9zsH(Oo(t3D%p--CY~l~@OfjPu+_r&zKNL(*zWpKH|FM|qiG}SwxJrsuCBNL6*95EkuPX&(Dv5iCu3Gd~Q zBrG+^MJ1Xo0Oc5V`uq)=n!T>t zTQ-4sAKuZ01L zsK$k^Rj)se& zlp^m?4DB<0+;C?%hd|o32>9Y}2uq8hV`^Gr+_4!*z{wa0U8cLx@-;Y}KzEDMWsThs zX}GUce5Oa5YY1`93Kf-PAOw+f=*Q|nhjhE07;oBkfc29@cU1`+n&tjphqU(OzDF8s zzOP}l`|PM%ovqB-9yAxmz(iaD&lry}JR`mKk_^q-|^PA-04 z6&l3w)sTYB2#KP*_4Y^xn*xes!At3~+*X_an`1s(1>*}?m4bCe3gmw6_^)U_C6xTO zuGM@)eb)Tp18%cD(zn?Ly4|N*mi=>_`R8@GT}Ge#@nOSt^og!v zVtRf&9wt$N`WtBqumDHwl46>hZAtQ&gRSZBu;TjZ{vauv9}EmRm?&?Tp=`Vz#-e89 zdqOhBX z+Q=lKb;n$Cj6vg##yuSGa{&bv1n);T*2kAPB{tahCpWh0vyB9?)1Sk|C5PoOoaQuS zaA2|l>n|1@7}AGhqfriI1FQGyjWw$l(3c3MG9M1HxXHZbkXpuZV)*ZCNMs|$0wIyg z53!jy?6P*LkK+D-kn}>}4j$t1AvPrbQf4WflizuOO=5IGbX!&n%Ucm`V@yLXy+nqa z`@+8kpsr#8T^Ckb(=DhGBQsX5EB^?N@Y)y^k934WY{>GKL|4?1k!al{l|#+dCXLAk z90iCI{j+FTr`m545nknbWW5FQx&NBq2J#LDHe99lXs=s@9Md7^WWurp2L>>_M_}aM zJDb@`WtC7Zlm+>+>ynO}it86<`u3WkoZ1oPJ3~I(4{7+#OYoD28>&H89-^k3N++A05Wwl}W3o!wsuQNvp=KSi zO<18*nn|7MMyi5KE)c~;7zP@Rpk(zeq8}*V!k7j_?DgN3N!1P2PM0%8Lgcikjoq)O zk%iYUIz?-jRqLr8>3JsIub$rw&anoeIhko@l}ApQXBCx5G>fC_eiBIuFG{^r5g^s? zT)LAB6woM$hamH><4_y3!PJ1P165jNjt!ypfrJ*0Hy;HS&4vJPtr zjhRR)r3t`Ve`Vs3oi0YN$Q%?Bn;$H!f1TPZZh%LEZCVyJuZyZ-cX7I{T9`+xVP6rc zfxr_tYJ{;LHI_NqJH-pDG7gFSaz$fibIrN0LYvY3h|r~7RC7R$uk3@y9nh5ut-Xdp zxE97U2B&z2g%!n1Y%K&ZBrB^*0!#XTg==V!7=0TX0&-bP|2T-ID1y(Dq{m0H|6-nv zN`oXqKH{HP6LsK-fA?U+*~|t`#AZg$i1`nO83AYMEUu`~ijG;~_etU!`xU#ulZ76d z5HqHtz`Lw>X?*`pbgFq8H^X4g93r)*NPxFtV?BHHVx7p1us6pQvyZ2CwETsJC{*a z1uqL%C-T9W`^XBWLm*Ufo(GrjVU#S_CZdxYJ|_7*L=#R;pPv_VoK1vn5-ajaMooKH zCGj$&Pm@%iNe&s_7^;w4V?<_QcC4l`^LkI2RJtu;VdI76L|DM|ffSrb1EwFQNBOc4 zu|z-c0nNh<=-g{_mS*kOy6fex7> zeDkt_9$@s(1BC8vZlS7N*X7>rvM_g{Bf{8x2e;ws%ergq%nWDs@H5N(#ew4m28rG= zgtLQJGfFO`LYrh=2jV@<3ryV$PO|qo;FS$M%5@&IxhJ(SHAag}BvE%QZDTC#JUFoM zo1u;;^_`(?UwG1z759iO11kGd29Gw~9FxnE6;J<=h*)S-zboGa#|%WA1PA%--=P`;GTtHshTjbH z#FpNX;vR%!d+5>qrs`2(7PW`OXuBXUIy|w)AyJE9`~P$>+n;w-j1qV6a_1R9!99r~ zgb9Q1{u_ipNM=Ci;-tm_p?99O+9)g2zkpq~4c4PA8vTxM4&|Y+1hb`f;BTB&JcAl% zu$*?EW32!eu)(gLZU*SMt~;5O*}MR7SWWAiMOPIR9A}$rDPdSfrZ}_0xEa9SgfJ;0 zLc^?jq`C2PZ`QvyTGl8CEV<}Ds&uL5QNp)E+QtGCK2yJMPn@hrvadW=R&)Yrb1boW zZM0gdO2UN7F-xR>{6i5Xh2&={`QZ>b;bE+efP{aDp-RzY{|_x4rvG0p9S%-r*8f{e zr-rn{`O?=fY#4%aQRe9t1Qdd|^|_a@HpmANjt=yBuqWV&EG08(%v4RPtG(qp?~h56 za+jpJsCd1w3tq(W{Z1jD`@lJQ7 z3_D&piR%pyd(qygLWp2OemmjAK|kxrUVI*lBi<@_Bhho1&iizn588Q2$Q;1@-tF045KvSx4MuTdX2yn7h2r zgn?82g?!2O6}EcM)|lNAGPw0WaXD*og>;5{^2Yu|M>v7{%q4GDKBgTWjx5%qOHcte z-|lojUsh)0N6wu89ly=ek2v}3YJ$AT1PH`m&)Zqcj~qD=4 z2V=@oGymviYe?Mcf$12|hlp+1`IC^GedC#OhoXRVFn(*xXpiYR*2vSZbsaq=aX;q{7Wft$OGfQuzmvCfiT=zRs3le4qM z*}KXS_u@fK&r6Jo4}D~m+ea??9cfy>`|E=>4ugGG%kb>*g<=2hI(}-h*2V)yK!Mcg zEEYK3Ljg0^c;*7W_H*|vx2Y~~8su#GF}G9iw9s0@@#yRzyQ~&t5>o5sx~-A}z9SqX zRcyV2IMjG?E_fuZCJHFp$zqwK$nO`JC&=)k*k>To4@D&LY}d(rHCVK<(f2!ozCw3$ifaO)jxAFV{81~(-;##P9|9u!_4(q1P(SZ2=#%ryF>2I!NaSY&%Bn}k;(dkq8^$eYo zZ9VLRBaA%ylD$TH%W_mzniE?5@q>so-~gI3kCXByU*ZopU>~Ng56(YWIxL*$A({q$ zL6iXO{m)+X0k8?{KhJTXs+&Zx${)j!DiNz_1st^SrfaeYSFUk`Y(h9>!V&_EzT3t(&uVr(=D?>h&UPg>ov6Uqq1QpC{#Ni=JkxPpOY zae$YVyTJqEOEkmoVbuNlxtCvXpF)U;|q3s}Lb2J{o{ zj|~{+5dBHR+$Dd#eVF?P`gH6sEBAc54D|7SUvA7Mw9T9}p#FKp`5*fBI6v=B+g!fs z+NjlF@-^p8*)Vw_$VEG)xF$^t3P^KQ&wC5eIPA|LPW=(NC*wl?+dqGGhkyBM4*z+% z8&B|G?*ZrGf4@%Sd>k%^GB-3M_5F34F3;rk5VK6x`Rm{P57*S(;>m8fd_#A6c%rn8H%o=kGXK|Hy)h$MyV1 zV1Ri?4rLeCN^XXVd}kc;I;7@V9Z>cpgV+N?h_(<48n$JN27cpRP`R%lW%NYqB8=u1 zYq!%S!njl6Wqwx*7G$ZENW>W7JcYV3I@xHs+&KMF3NFI&GxQkd^A&YTaF8y|_9%Ll z(*ZDQ%)O!0L5E5!vAQ@g7QPtC?B44bv)6>PkgT!@|aQTa|50(0*O?_ zlW0L|-?=G5hulQ9r7!jF^BavJC5$jk4>opql?}ra*kC;&$hZsl4t;hY_bTBEug7kTtESYNwBzy5W*ywr~V9D{8LFV zU`vnw0o$KJ!x9C~=5N$A4Pyi2G2oWP$D+GIhBJ(GTE-_Iguiejdv5s}vz7ttbT`Nl zbrl0fiDg(Ft3xdQ7NtNCLJSzl>;S@ypQ<6RW3leOwIOX~vVIy;KK1c6{XJRVo?@0g zX6JLfpN`#hv+-P$^6?o};Pfr$4XJuN`(>*a6r?%%*j)i*@+JNz!hT(%-gTpg%L%nN zlX<%g_Z(xlwMev5_F!RiY6u{As1G2wYZ^eDT4BN!Ky{FNX@!MKN=Xx{ezL>XVTRpB zHc!Fk26i{fM+1lv^X{cjDHhGbNC5|sCq>xduXSnCqO&Tk%LaB(y$B!&)->|e6H2`R z)KS=pr-EX_PM9B&*_50R>n>mgd$sGh6VD&T2K4K|T%lm;p~_r_OQ$wazKHM=Q0ZAL z^CY9NRKAIf<75gURb)-WjvYRc+4KWwYNVP2KiP_CR^+^ypcf}*ktT-$5t74!f+QCU zg^@izoa>aDp^p_^m(}~R*uKrMP>~Wa)P1f7+6JGBZ4{6(M65(yYw^y(JsPao`z37I z*=kKt&`=Du?5Yz~j8ota!*$!h{0tU2w$5@iz}#)eERfpIuTc2H~&m%~)b>Q(POGJvcKt(oQNFpl2 zT?n=CcSZP2*Fz3*$++cbXJdR86nb26Xlm&xur;+29J@q=6u`n7*}}}k)vcC<)ApO{ zpMym{?N5BQv{M{nE#-*~+rcyQTfuL1`XZP0n?GhK2VyM1{2{M2cCPJCrZVi`bz%J6 zQ_~h)Z!s(KE02O31LOBSHAQ#3MNtx%70x+tL>VjO9a##_(H`4zjVenmOaY0=|5d>f${D}gsMlau3d71x^s@L6SZ=6ZW_{C z&;D2tlg3g*3o6NK4wbG(&Kp^v!1{^_8;oFVSOPOMWV$6v%tIa!+#D*B$V-R%M)Yy; zXCfwHNZz-&%={H;cM_5t*-);W{gbh%@jOV#oUOY9&=|Y&M_A<`L`^Z>d z`6`c(oXe1`v}puG5GG79O0uwW`m`^PafYQrLS(UY2EZJ$(|=(6IYmtkn}RNNxUkv)`*ccqz2>=Wyl;DT7`%!1Ol&vKz4Off%rNDrOo7PjH8AmBf76Re(IZt%~Gza7QEV65* zapc_%0FPhayfMtEZ{LZAJs-d10YlUst;Oo`SG zUyk}9weK<(A(qc+B{lSB1siZMcFeIV4)Js!X4#ZKeM%VPYDgjU!|->-w2Cb#^()+J zB7A!7d&Z2#XXk~+s~lAjVWdJ-5aEOsiLmVz_>n{ylr8_^L|7PkAQ49LHDG@wiz^4~ ziEwSIdKV%bHk&7V5H^MCG=zryeP3b?vf*tfNMOHI>THiHQT4?yk} zLpePq{WpykNawV+)4|*nI}SQXy33Vqk4t_^&*P_V8aE6T2G393v2P0R29)J+#Ke(tGh3$FL4Zkl7Cx@qw! zf9j^`^!cfqPDh7wYG7uDOt(adKXuaqhOcg45lF-J9qQXl@qtJGK}rROA73{;b!l(b zPu=vVZkmNwpStNkq;7gT9dBd1`_xUR52d>4X}tdgubZBh_-^l&b<>w`X!>QDuG4P& z+(~?=_nA0(Y(7Vpc&s87w}5Ke@-Y$%luxUaW}{PZaAy~m&k=s=y~3RZyyuEceugRA zGYYuQD3Ustts+e$57f|?JW`Y)dhmN}IL^Xm7g|Mkkr@ix3Al8eP z(9`@f6gqskLR0ay=a0e+H(^Wquj>_7Sg7MF@6=^7@Y0`nJs9~CBG|C5Wj+P z#KKZNe#Idzd7#zswG@}C$#-4b;o8Z!5<~E*Bvd$R0kpuF-U=AHS%Vmd0sKc-6|I-#H`t?K(K^O2ZGu|@&Jih__>w?cKduV_z~ z6>8aJ%>@$I8H)ND+TAxNWm#p4CQn4}Pe?^si+nm2F9SUW>N5c-S@O4s0jJ}5_3iYZ zxa~KI+mdDAa>IsceL^nmXIS?}a21C2V%#R+P|BK*Kzs{+p)~96a+e23Nwd*302z>X zmle?_mUqWaYXi&Az0_TN%C9^KOl&N_?8xUC1~sIs4cVTRoiA22Ky0cS7kb;LXe zp3hszmW}jxf$?J!fwztE3n~Kq;Mlf2-MZ8iVM3ed50hXk88!^CyWm2Ba-3mMv3vKW zlT8;fCV)-y+PzeLoeY`9itOhFD^+Qa=-}y{wXtHU0NP|A-NKCc3OG2+2blcZH0&B$ zkQ%OA5j-*>0S{6|t$^wGFNEuQY#u7Y^?1xW#Ln038!sQqMS}U24soO}OO!(C>v-`d ziwRLv zcQGMqN~y0=V3-F0zilxgQY%^@zlaLK{PO)N#e`!s?qx!#maun@j9pQ1U1;m_;wr&q zz`CE%XSkG;R?0=HDSW>^#(H}`I_bn@vR?YcE{quh8l3$u*w6z)nQj*;GuW3bjm!Z= zs=f$W#=mnO=9F#{C!3?OWT>OzEoSkcYs;&-#SOLmw{ z?l7=OI740Nsnj7=2DA1sOVO5OGG|*QQISJo>j@P(?Dj&yN8j&KoZmDWq{R8Z&f~!^ zcR9}Y^~Hj7HAj#azjkGxZ&$4AZY%rkJEoV^jiP#-0ma*N6}H{)nTT!s?9mdR2B8uS z2q_(X;)(}9}W&)TYzkd56(bd${S6W}ECxWb3+wdrHqB+vP{)0RVi_K;nM%1%Lb(zM`V zFfcyJ*pr>W>bmd$2!yw;Z@VR9xzEi9mHP@u6kEzTN+I!Ru;1mV55j#tVO@Q44R);f z!1VQ)D4}6vo;`VhMB|B<7Gb1w{85DEOA`;_^Q9>{`6ZJ%qqC`Y`g1Bk&s101aC_i^nEQp=Ot3lUDvN zhe{IB<3sHVHy+!|5;yg)PZff^pqVNRKu`}LF&NZjAxaFoGJtj2KA5h_h#d&r+0kqOR@Z9%Je$%0*B%NC|j1sl-8n-=Wguw}R4xiq4Q z{K~^cs%hADWourwj8=$xofsFgM7SQXG=V%Z0c&0chIxjT91lSL{VprL;~>vITe=r8 z_;>S08tN~XYQ-d>U>RkouZB{(i*%Ze@pHGk3u3bi-w}8A44;wOplG_CLbu$4qV8HH zxV&VSW@22G5ow0S&e%zk=EW1Z4jLL?Oqu2!1g?!OyC!9^_KGcO0Wm!lgtlpi7PRhV zXkM7y%mzyDq@3Q>9Voy=aDI_7sOxXL_;t$_9jjsN4SVoi~&Y8+s9n`@(insxuUs+yng zsXa1l5JNT(QzJ{6g?t7)jpueq>a z)SXaa0DCc(wof-n8iCF^Wv84Q5&0L$2*vE+#^mCgx|2)4S88)l1+#DN%IoQk`z!Y- zlJXZc3fBjZWsEY$u#$r!FOuTIS&bazGXB&^0I&7OIfcEtCDzl>R$x^bxAedtR#Aqcq)1sH%&9a*M=8&`mlEO zsM_hHBg{x7Dc`uK$7V;N67<){%>#Hyb`5-o6!`95mFI)9!HYv>;}aLS?N3Tcp0}cJ zV@cjV6@6^Q;b;MJuQ)oC9rf;Ib)~+bhR&+AbKBl`EvxJ0y7Z~X`~B+i`sp?)x6KRc z@tilMb~a^webspGN3aGmEa6` zyPmMJ8qZaE7eFpCU&1RlemN+`cz{a;(@`H**5V0F*EnZzL<{q&x9h68Jt0ZhaK2$DlLvy@3&FA?R`af8} zj;?cZoePV%)RQ!>7Z>vUhsNi*QLFU>%)Q!=n+!qHef!1j;%+BPbEm-FODz4=GoFSF z1p8yxh?B-BDGHDe-yWCe@!HewMQ;lOiH!3XT7l2&7QSq&ID06C0?sa;fpHl!HBI-!!1(P%O;>GqJoAej zR{3>+=Poe6j@`5<4K837u(1ItxHR-jSU1a0S&B!Lu__Dj_KAO_ujM{nC;oZu#4pto zAnPE{9zcN!5OYM3O$W;cwv$$7{j!?`P;iF<#QHk2e%Z4Hvwj}v)>kkdAC%oAnOZcV zTVIfE^g!jlk#-2^)>kb11*n@*U%+C(jv}ebE>t9XsD8 z!_K3B(8?A?0gQqP;}{>DLPxf-x~xH(LbC1x4(=qZ456SP=7ZQ5`ue*4TDpacB@g3e z{zi#83W@oXIUZt^oF-KVbja;;f;^S{krJg5_82cAcVK2uGHfWk=OjMNSRJ3wSYO?!Y7)ISF~SvnW2Df7=gQY`A2yk@I)VD2RedR|0|`G5 zq_H{=(aWy0%?R5O^)&;H7c;{7*!7obdV9@jpz}e@2Le8Gh8|h$=)^L*TEhpD<&~9v zV!nRWK1(CX*lwfZ!Ecl-mMQ(QTpVoqqH}TnxTsuwc;1Y}#Uqq{IYJp1kElqrl(~4v z!&1P-CA6K3bClBaU(dyR5dKRpP9d9&N02*~WNAn~pGQ!7K3+-2NBNZ%WL(*`0+I1e zdk}3V<1;^Vjf}?{6H3M-m=-Gs#Jr)=kC*^Zuk~YsmN~ zJ^M+|YJLBl^sJAJ&qC0d|rss5O5kTkS-N%r-N_-f*|QG6O`vtB+!oWX6^m+(m!h|&R)7BBcRjaoASBE)hBlvja$Ccrm?u`XvK9u=*3UQx~c~$z%=` z{a#_U+yQWG@{({%fVw!h5u!=|W##+;lf1Z*`P=(J=I&;XoM z0V};IObMV0F)+5!g3G)ry_uT2c4p-1%`}sm_Tw#HV{+iGJr@C4J`}yiX@p|0ab(pZ zzX{%eQ{goh?>50DXI3&Z-7x&J(R!~j8F!IyM&viP8auZ9)3ckdlqDaWLWHuh!(UL1 z3V^2uHM=QNBf;eWI{c-U*>f=LWHr{a0f(a1Sa;k#vzt7*Q=wq+glBePVHz~evm81U zt;RZZ$gRdAjIf|XZZ#I$fItYbhWO!(!0W_ze|sHc;cMhubqti- z4SpS?=P}+#$N1&X!v|poRpjG7O z=@>73orI}lbRaJOJ#~!e(>8UCEk5m!j?wI`V;}>}kJB+mc;@k{rP%k6(lIR2;#cb! zQn7fKjuBbsAFE^dRgC4z9|%xNZQwIVdVL6|rptA6U*DB6f^VR*2X^5{sQwY~LO0lX+q~&iy9K zrPrQ6^7T0%kF+T&;S?BG=?u%WMvHiP4zzFv$@Bn}oeZoe)hj<(K&bnjgS5G4(Sg?j zO$ZINKszATSKM3+!qIqemEvS~9SHo8gk=OS>LF>`2JhB1cbcOzM}#^qJh6!3aWphw ziK@xOA2lr6gKe_qHurS3m1+o)O!(8E7fAK&5~IS3rpZ4rrW%jrJ39wZp)cfI{MI?} zig6ICmDQ>^p9`gn-S3F%De@poHrX?}$Vp?7)5AjNf^iTH0XgKA3Wwb7(@IGUKph|{ zAO{9Q7kZuFZa?>}bL0JthD+FUIr(djeSKsiRx*}fM+&*%_JK{HsHw%0@pBTugJNU+ z*O5dgF~-NeVxU-=IiW^Uq_K%a9i3N_xB|{FW4l$ZMJyu1L0H8O@)Q$we-28UN4c<| z#jJe^xlusORbGt8cPK+-U@S_Ahp(nlg;(GkqJeTiWS>=h4n|YGyEk<#FwQoCeJ12Z zmm)WO*0RVIY}rV>DHu|i1J32yHjg?+L+s%Dy(Pw(Mn$1`z;1EIR@kg6zmJqrQ6dPoZT*eTC#hhZ?d*%A#4I3k2zR zV`&f}I+Zur0jV3VG60ALh+^4=P@0gW^^OdnMUVo@CO9amqhzcHT-M!)Z-__}fAJqk z3i?Ltp$P@X(Otp>3Z2#_LVLghgQ=o zIoNa}b$;+u(>`DDn`@?F=$?7i(4UU|c>9>)ZId<;z3S`_iClrnx12Zm!QUdxDpTcK zgjq1^f1NOkpX@(Zn2ne3Bh3D4Vb*Ib`v|jd5@vCj@C$|6A0^A4n*OZ&oC3I{=!}R194OVtpjZkU1pliP?E7_hh zMOFy4p~BQcZ9-I$1vM;^DPxt@K+`i>`AJt~U7uLM9S?s8MHVSj0^^#Z(KNhG&^5Hz z^c5x=aM6MYmvlu|*ogxOzMdVAnE3yG|8by*t^6RgZWJ^zOQId6S z-jrvGc9UdzxEiF9>fYDd$1sh72$dw+81a=PSt|~Fvn1kweWD>PZ|(mEs1 z2dOHM11k4*XtG;2mpnCbzv*mq$y0hc@yg95Pi=geRhJm-Yu>43ggHMmq;X<=#x|lK z6#5*hlGI9fqfW@ic=x0?fYMcp=7sH1_5vU*mtR#U2O7rUMu*rOmIB2%*(GQkP+vzD z8U!~ilF>t+KthZ(-~W_uOn2}KJ=+5e~DookR1{PihS`(O$D|dl>p^<)jk&hifica{64}c z5>Yt-s7@p6uPRoCZQREA@DwyQn1*-0{pPQP(KW)@5qnYhB~;aCuInl zI2^10sxSff6>QQ{XR1St{`Q*VuDNZb^*}dnnMeau5H7rVD@`6lJGRnHQvq2oVoN#a zzp)7U)J?ay&9vR^hTV>C`t@>({i!IYpg__v6Yyyt83#7XDMq$ck4RlnDqnC>(`8gK z-d#2Y1TtU-X*Uh(b_|t!I0TkzYC(*!j1KI;QqlH3K)KjZ%A*^K*nwq&Wz=F~2WGeM zx=a+4%41eMLp0#LrNHY{ewKMY~9^$vtF0~S70sb&e;t>KbG!8gi$UaS@ zg=Lw~1q`1>Jl=r!A7%GPTmXtN@%$ZFihU#H0BN$O z(V#3irR)GeoI^0VYK14-(x!A3sw`K5&~&f@+aQg|6hg`kSWzvAU1zbxf;ks2uvWt$ zZPH931ttm|VjN5-Yk}-NghmvQlq@J4%<-a~6?1pgVOl=I@FHK3n2|gUldp4AgbrFB z804R0;vkdqE6w{(Jw+mEWO-y4MTn`1+UKO?cF))KZL@V%ePCDjfd*&XpT{0f6B+OB zY8rsIgOi17%ZHsN(4q32{j27C;6iXa2}&*mUMS&%)V`bo1BgAGdc*o;q>3D>vzY0| zdYTo}pRv&8n=Ez_q$$1rzB%1pJs5P1bdEoYuw3elYbpTahci+V&**Hx&NY8&sKS>-%ICAsrTzXrD!kumE zoqk=!%XnGbL7wb~RNtQHP6_6%#o|hb=#P2JkK>P9-XIS#s z_EW0uiK(0KuhVcpt}aXIRC#RsC1vsYSC@t+9=@tH)F=Z*nBIM-($Ff^-7DJv@ui{Q z^|^oF(onNz$)%ye${nzzBej+NpxRJ=vjKGY)AsB8^J+tVecc(IaS%{Ckvdwx9Q#XL zF`sTP(BA94XCUp!L*4-A!{E#i2Aqbf2v5+pRst0R;}e*$R@BXZlzxlg8NaJJpRcHs zfP>~pc#9hVxaBZy2dfW+;8Hw4KNtwL5y+fl%i=SM8;yK@u}SH1Vb2J}kP=4-*o&$I~C(ZSSP)J@%{)N4Bc}bzX}=; z9=Ntvu|-n4YL5K^*brk1IL%D`3ow#NR|1 z$ZY#|b84c$XRkM-`&^XBiVOlYD{QTaZ_&&sQ4G1gz;h!YUICkp{#DBuDwMIYEXuQk zMBz9IjygxH>W@ubsH)JeG(=HXzy*^c6bmfy62W9}CL0edGgw(Fbzs?hE2@g;G4mR~FV6EJ1yz zL9A~pe^-Z?ZqYRCd@YDAeW{^KjM9~(_{cW#k9;vxSqdknVGTV8EA~oy-k#zHI2Q(b zx~`M+8#ll~T(V-xM23KXZ7oIlU%KdK9HK2(Dgst}%N4=U0$ZnCTdo8k87WH@+)0H) zOw~#a!8*mEYy?`eTc}Xt>idcr8w_FW?4b>LJyMY3u$l&OhcTR+2bgPJfLbc|IjPtl zGyZHgSU}*`%>u%XyoLV=bcnc}DIj-%C4pW_5$&i$P!!SUJ{rtSK1n+Qhtx>oL19ZX%Ccekl^-@)#E=V%&0{Ku(Y3l==*XMudr?~+kMyH8Mac>#9#*bK2))6^ zm~0mhA5V5@$=c)1v?A*FVtRK=)WN!R$V(_%&Xj73lD#ni7hX_kU|215-NuF0l7-7! z5%ZJn(;@Y~m(eH*N+TH=90|%*1IAl_+@W9h*B__H!E3t?FiHQo?wMKy8?NwOTS|c2 zcdc8oS(XvhAL~|ZmUc4hk2%EBT`TI3IT}cYQZGqn8A`FfqXOh#ZoH1f?9uYupZ*dj z$kqAE_=k_r%IJ$Przpxq(I`>~1Jn|m_&t2pWisC&>FhT9^p?INwE&_>dKIebkGEv5 z9m(v2mbnHH%3S;Ek7a(F$>V0#B^N+hTxPk1!QClQ@m^Ed$@h&!{c;`I4*>8YE_(k4S4$qJg z$W+8Up6+Ru5w4>Eok&e1dt1R3h0rgklAct56LEA4hJPr+deMi!=u zl}4;8`by(1b}q7RkuDFWb)v|+L8_8V_B_Oe(1DjG45<^ z^5T;<#m>ms=pBTPR2DlsqSSIYD_nwXJaH65yoQ;D;CjOnZ&BI-Y%LUs(f?Xzn;0{dS3eYP#ZN(w+qoNpF(!t)M@_U zl2hgUn-4ZHxxpEfjFnFzJCL@*OBJis5GYnHWXT*QL$Ow{l2b)Q=)}-6Uf~z4WK!i* z$j%z3c`)PE4{Ry z?rBsDjCVJh>fL>wXYh$%d1-3J82NR4XOU@6j9*R+Q}q@Qx`UbC3%Gttxs0Dec8Kxr z;~<+NEE|WPLiW@UtWzAyMxZ6Tg$gCEzOR_E!4Sp{S>W#ig-lq6vtpL;DP(Vy03*Pd z8RUhqB+yGKq8)VziUQnQW3Yk4y9(KdJ9BKOPa*rKkUe!5ia``;N z7&%WnJLntf@de4OkbOQKy9pGsC!FLn+x{|MuHc}cpF;MZS;#(|(vBsxkbRhMk6U|M zUC4gn;nA@L3kfRF$E-at#R_O@d zx-rVHdms#kJj4_!X02+03}6U0jSdFvwi5)LUuAEBTNeEb*o%3(d%b>k)9h|z<3qY~ z4#-T4{k+__ySOkM5umwjN z=>-dp(p{`WHpbM!%H?W>$B!q)SYJI=7GUdYuxQ-E$#Jxyuue9UuG4vRrCJ&v}aUB+d(! zWUvgYE2kBJF-q6G4eG!c9-l3OOvx*;8DIUb&lpeelP{BjSUQfMS)w;~@m;f*DeCqe z{m+pxS0z?>-(yhcH>z&2=fgmST)U@*Qjo$^e@`LuD~TX&giiO9@T!Pj?)e zgf=`DI+ra^^caAj?ED2v%yx18j8l3gKP4-nz5Mf$-wgdok}l*A3vu`~(>)#ADk%Aq z^CsU9f1uTS36|}g((K5H;%d5%5pfCfoULp7Qlg&}hfZxwr#H*fP4=!hwCD|TebVDl zJ2uUxRH4iiW78~*mDME9(j6rZ4V&w1jAD?0EBCUdLct3_!aFc0st6oxEL;35J|WGq zaLC{y9+(fbvQ#R6>M#>QX)fd)2*7t`V_d3mN&b5GL|y=@U?TO#PswPST@ge>6uqLj zn+Ix|ZgJ5SEDglCu1Qp3=K~3_ya32xz(wA{+-)N4xB~^51<;#hoJCXluLC72fNW`~ zDv&CsdG{`ma@9;RQ%7pZnMQbNfs|R~#39yKtcw;@?yK_=cD|{h17g=%EXH7g-Im+S z`VNC=2%xb+eK{KJ7mc6+1%@6KkPF*XP;=cPwSh@W4Lpu!s?A`XY6Bq1F6O!lRzCHyO5h_Lvj(dIc2~F-nC|Q{Fa@ARA5>FQg=~#|_hMnD zC>2QJZ$U7ZvVr#Ol%s*2$mK9PRM?5ONZFCx|2Qc-BJY>7`79iEma-*OBV}V5{0B+d z`&F;}PExj|Td$C^Ep>a2$6U8)CPT<>Qua^1%s({kw>u{-vT99WhU3rVBVfUX}L@n0cu(F6+U|c+Vc@edDpwG9ErW-a#$HA1W z!)DukQISRwusguT>NAQ^-?c%beAdewG>TaaGGB7qTQ+Ef1Q~45IDxov+Xjt}fLe`{ zeU=Xnv0!hX7~2ZFv%bANIUbCc;&a8$C}^1ly(i+WFmKdHts=E!K}^m{leYy~y2#nq zN>ugauulc!is}o#3*%zsSJ2a+V$pJ8PY2QvemN#ZQG)w=?~%D`z%V zp_~;HJt7~>lrwT+dvwQv2w3$83 z-E*tju9-F!)%dh^0PzW;l7r~Vyvtsr6Bn1n&!;EXlo+s@r@WexNUh0P6J8cgf8JjHhhSD6rhyO<16WH;ZXM5P?``f z0bCjf9#QZlAXM_Zyg=JB1=ZbB*n%C{CXNdpsdHn@=OG*&J2vVk zKBd?`Vd1pn6Pl4?3u@ZUn6hllGaIk!K8hO)Fut&&U4Nmjl3j57Q#SFZn}_ZV%JZUh zP}t2+UBXZzt77yLepa#q81qSX?sVefZ{r0JTeMO`01X4`3-okdVrP9Fj_puy;tqZx zKI|lTX?gGf7T<5p3n>kb09z}`qCg{>Q+n(d~>%)-07CLtc(3D}G2-R;7y1v9J# zFf74rfkZyt_+2+Z2rDl4SHEEOy3&CB-c#a2+(%dg<;C zR+Oc?-IcD}F{aG7hDoP_&^B$Tgd&y<&5Np=*+A)?l(RVdtqvX+K#Ox<&4oXut+9Tx z*>6=S?=tr3q5LS~?h3aai13TyeS-or8n(N_dn=T8h3zj2<(*-Ba5(5z#p2^2o4PPh z_gzDITf^BclviFo=X%ZD?-RN$@ zTm&Tx4w`0npYgfR{3>~|a`)nkElcHFtI|a-jCXHD3}Rw=5V5lRC@!57;{-Vsl+jJ@ z0GdlLJYYXV^2AWYzR+J4-i(@}t!%Osn5(I$yK$gv55A&%<)^HBu8Gc#4u)JaL*eai ztbf%OORKuSK(eUlUP(6UGBq`;Xcu3WxBq?~p~^PwEm#~7`vYVpR23|uz1AwyNa@zw z1&a%gl%=2|74LGvq6jcRe32bDL1+0R%cw!w?-mLcd1Ri+LST*qQYoJQz{+CPFlNy~ zp=CvEHj${Yu9%o3&XOid+ahXPWWoHI#Z-`@z>O?~6+H2S6#zm>Ua4CsPsg^s zInIA!S}!;(dY?@^a(1_B6Awh=Hg4jP7P|9;zbjLmqr z7@S^FaOeHRRp#AdXV)iB=)GIX-98eewsfRB;8P$A%TB2-rgF*Jt>g|gbeG)u%JpJ+ z__A_6GZt-8^s6?5L98)=jSq)U(H)p0mz2ZXyXcNS8DfgV6QtEJRFuv+s_EEp(;J3u zWp^=1My6g6cthxMMYDj229Vy`|2LK0Ire8rEVH8Q4kfx>U&KR{Rb_WZLKI@9vb$j2 z>QJn^3xF>wnBb&&Tu>^!Q{+y;k^}H(1;E64WQ|N)#lkxyo((u~P1G=ycJN1%bFuKQ zzJ?+7jZmrZj-y}&32!RAbJXIo$z6nfZk6ltp>lO=yW97-+ZjMW4253kWUNt)30!Z| zC?9!~C;g%Ed2aNjQx7n=Xg|Imf~32Cas8Kfh&!6J&68{0UM_VyJ+F4?@0%tz-68+O zbbB?>?PtgMJV20q#d*`KrKEo@P;rAqbdLrY?9)M#nFgYy;6Og%zs-A`#&&vs;cH&j z20VY~FSMeczmyf<@;|A|xNSZxE}Ce4O)F53RF=(3UcK>TXu!coIKxhStxFge0w)nb znHU!W=b7KGgi*BqB<}zW{GA&Tx?$akr-<&l&UzpyEPnn-J^UcA}vUt>~M}00IS78vx3#^X`4;MuS*iKsI$Kd#+@1*o4^c z##seGJsA65;l3SFUmzPcO&QvQ?{-7fotydTpMK2-^+ryKXN}M&War8>gEXI`&^}E} zVoE;zrPbTG{ES@QNloSZ1|3CpC^iQ^uFUW?Jnx2x*6B}2h#WXUQ*icxfF(K$N(d@~ zS`hs*%WSlPrHuGA3MlFo$kq%D&>%mL?cg9@1nzchYXIRCgpeTvSU03gCto@mc00)E zTSSCJ=d%d%Ii%?LB0A*bY`#k}$L^Z1+5T?AKxc{QK%%L#5?U zRusyZc*oaPLa<9ryy5XIVB&;x@5aO(v^(ACw=?lbuuUdT#-dHcTNa1O&{5h{4%s`E z`E2eW;_)EsiTD8NsF#QrH{r0HYzh$v(X`F3gWnonCgMB*J%7~(s%)mR8tSnt>kHBz z!U?b^5s%OcBF-U&h`YFXCd?FSH!%^n7<-9`^Wg3LRS5EQ7u%u2?pElVp85#wN5uO+ zRjmD~saXIWKB?KpJ4YSflbY?J@bF2^{+6lP6@CBSso9%X^R(PwyuKXT=|V@Z2F>wm z)=YT!u+rR2nd3CXeK{1Ie9yVkt=Z41?(rqBDMz{Av?yi);=qZ7vGa_W>(6;jH`Bg=!9^A(DvW(oaA(o8?k~1&+qP}n&cw;Y{Kd8>wkMg`wrxyoCle

y})2&5usH)ZAm)jdE!tcw6qWn@mg`_(S551I^`v%oX>S_(a9vQUMP5>83u zyx`n9UGbp_!`|Z$=Oa3O(yxrX3`=d?crmggzN(w)()wkyv9%mE64c;VQ>O)uK5Bmd zC0g3>U`JenO8*g0Mk|!Nr?+}54kH^uo^Kr2mRvMVQ9ZY4IV0y*&%ws@_mpq0gW!IL zxW$7+#2$RVdg$1{!uK$_-Q3INmy%Xah=fpihy`|0ve$mFVwntYGep4>rw*dFKbDC* zpb}T>ArU~8!(0stsqqOL^IL~lvNsxUH9x|oKO`>Jn%XqEZiA9L!0#iV0+3w&KTy4} z{%@&XxLG(j|9`5NxCid!t?pdWb0TArmc>IDcG(^j$Y6G6%Wfa@!>=9 z1a(V)BexbCifmFfR0$SR#q501H=c*f%UYPN<8}gy>My%=0z9lhjsRcc=P-q$VM3_( zH{R1y+;hPWLf31-Hwi=EC!RP$PNllH2R|>Zh@|@wB4O;Fl0|egIk*nG)!tGRcP%H( z4F^^CoofLBQ>^_45U#B}&|Y(o#YQ7}dG~89zdYy-!h+7H-&|QqWhg{+0Zyks)Fxl9 zpY-KDI=lR|f|~Q}I|6SLj061NM@GKhpKIe4KbQyy0~Ge(+cy21^0KaZ%$%sO+Dzp<5Y|fRpyfP}hT^{Sm#&Tc4(!%{{$=5z-QKiYp)H!1l`)C)rE9ahl_QSAyfPh z{%x>`(;N0QM+O6Y(@mx00uTogUW0IM>Kq16WN5TtHPqW0zVP{{Eq~AGLB>mmE@=Nl zPx!Ro?;g;Gj|mPvU2dIuKfC#JS1w6NW-UPq1`*z*IIHX1{ zT8y_WfZ%nog z3h3SlqNL8P1%G`#?g+jf^#n9deZ8EJJ_~i*+uwf?3U#s#h~;fp%kd4$-m(q0@OcfbQ?)kM0WD(5WjyQ($z+GBx0UbiI6@DBjIqn_Op)!K&U2A{vip!HEEu zD#=KI(~q7~dY?>kaG?!-Kt(s!rRFT*-Jtc-FR6i@We%zyHTqwu*vNb!4NCV4fWtA8rjlVxyw##t*^Xe&6*m5%r6{# zx8*Q@DDPtr=eD_4Jd5LQO9c?wyIee(0c@VB+ZJfr%v%J5W9mMN0avt?+0WF-pf7N z$-xj7Xt2K@=#8~SOnzq>Pz=6V{7p1Q9vEy^0E-08QDbbL*r1-5SaQ?}FilHDz64AP z!@c*JmkU5={vg%?L_zREy9q93*GnfFc!et+9zfbD_6nIMH&ffkWjCOvPxc+q1yhGU zl&79+?#+?dL7WEw+LPT{ zFRw;Fke4%1dr7NNU@3NJv@-A&$vO3X&}>73oHR*zQRsY9~Pp*K!Os1rVzJ5XK zPiF1NrsPG<7JP}o%!=F}smy1F>uR_p-#adE-#ez4Qw|f7tkxKK7*`GfDN5$av_E8o zQ*OvPv(z7l8@3l)-P;1`J{LR)przrM)!DZp|4Rpm*L#34$A#A6Wtl{n@gIS+*8ALK zSH(}0YtHhR{JBdVYH-xTD5KqQaYE9=agx}^nlRd0JQ!s1hb>8M4#W3yNk`sQR%n)& zczUZesfGz0G=hFvfQdlW3DXQh50-Jr{E6XIBWmpGqdbcj`yQ1{7gEP>Nv8TfjlEc& z_Ofc0b@VK&RR>T~0BH@`E?<6aQIC7{Hr>_EgNOR0x1-esimreW}_e z{xa=X;k!BP%Rcyo#aXzdMSKHvmWIZoJ;u|r9SHj!AoA9Zpfv_H-wTsZ4B4lGRxE2E z$}z-Wj;~{72A$^plR4M(a!Fzat$kM@Y7Qs8QMwqf6b^oBc`%GN5Nw|Rg2W5q_6QQ7 z@DoA!!5;*co)>Yv@61agZ5QHKedwa!bl&BSGF?|?68@kmb+fH_m@7yQe!Ki|GL-C- za~aiXYhiH}{7{ZQebf~Nitqr1gulKJsHZ_Kkugkry*UB^Y|$a4rIaX!bzYQ4lRKkp zl(j9+o4$3kzPKP!GGDnzBsX!osoOL&Lv?82wavYPfAhi)N-4Qs*nE(&+?ht31wqipD8{dhE_zi$c~DWZ3oNZMs^e_KtAh*g~Wov0?k&KZI^(jXn;~C&IkL} z2Fuc*U`x4I*@_Sa36W3C`4Y*1m5w<`t+9?T0u{Ct26^=JGqBv?AT#cVsoZdQuIx^M zwOh*gp%K<(3dQWvL#)eNs1WEm(|2(tAvNDXP(%dzK1rtpp}IJ6-Fl|g_8a5S1GF?* zte`TrMoB|)eCqEI>t*5+VrI@nDh$Xu0{jor)0nZ>knW#9Jd3-ViT4#dvKn6|tjuH+ zkvStxup)71kt4KML!}lEgEz^Mw0B5C4lb0RatrIq2l4tEKvkiUS0cL?%5mf5Fl}15 z)dVDrMMEKC%XP>KP`X>CCRU@QBomxL2%0()fyDi)E_{qScJ%mjZ_`D<@V1BRr6|L)k-=Tb5Baq)#w)u4> zVDckI`$;1wM=&7cXF?zbeyrtEQI_L07c0l5Ua)8OC75*f?pLUZ>|8_VcqT@44QHo7dn(+ z4eS7ss0ViKqn4lt^}M0LVDw?iovy|F?F@lbMq+6&BlkKl9ywKpK%jF@-Nq3ue;^4; ziuTog%@2C>l@(`Ya9y;QMh3IVLygB}nOsE?t1bYq1IWpN-x>vJbg4yaVXm#^^O$JFZ5 zG$tBPx|ruGm#>%8JwT=j-i+82EpS;O&2r07PdPHB*jgYh`qr2Fp*!!FTePL<-d$wYpMOLF*WMCZRnZ`JmkBqD}b5`W`}+6NIf?XMpms79T0lldDI+;>Xx;G z&JVkWLiejgE#J*j_xj8T!tIvP2;9dkhl3)0KM$8`g`|E^l6MG`g780s&6Gj(A{EJw17{ZgOlDj7@ zEMd15*9VZ7rC&?7s%iEuAC6}anT6+*f5CrcgS1g#tKBl~3nPb_BkNPSsX%&W3@~mv zJd+p^&9D-mnC4jsyP{9C67xt_zv(~@2Cw&c;mp<#k}fsCM+m)q8!;=K1iRHArjnvl zI*=)|4e%%QVBR3kw^s)WP1>~kH&%C476%KC)L^7};5-w+=RxiXAZ^EY*x0}di|Co} z5YpVSyYygtV&N3?lf$_d!qo*)bbtDQ2pY76P=(9~LKDDW4e;eJQYj#beiPHI`JBgI z*%rdzY0o~>8Np}`D5XWlbaEO94k~{xYkLn={$#v-GCOY{_?D+l;{0s&MO@gwar|eY zz}L5tZM1BT&;{>$Kh9)Zh_S_@7AuXX#ztyzvf``LplYn%he`=82MgN>75>_OLGC41 z)+mVBHEh~(`B(R!!PNL|N?f+%dRTX>&s<_3XztFET_Qr8UO|RR9EOdf%9hp7@e(%5 za}g4#3z;Rq;g`vZt2xnc913j_nsJ&Ho~@+TTo{U~IYw!_ti}`d2ZW|ac{`KhS|I%2 z8P%<-GH8vbNq@;kakrkrA%XQFP5yfP{rs0us)q4XjC!;wZMQrcjd!@JD~JzECmitVlJ`j z;6l>@k(_az^Di=Os39tm1JvHi|WOI8p~hz&&D-5~>eBQr|lL2p8vn|7r6v z5pMO;UFmb`_4Pqc=wOAt;s`Rl9%2z73ZKj9BQf+?l$F-?Fb`aa*MItOH2MSwEujD^ zE^I3sUkV@(`ym%oMQOqIA@UC}e(47+FApx<@N6mZvVVjs=87q4z6NU@aa0QcsO}nz z#T*1yp7}keyunAV)5fGlPC%=5#1|?LMeI;6dMxA?e?Ac(JuZZ8M0n16?0Bgnz!5iG zuUi#dcjL7)jQgI)L8pman6mn{h#>n>{2ERX-5^8t+ZQu3k4YhBt+D(IS2jmFD-qUi z>JuFCk5v*BPk8ps12az|MO5Wp2*PMD2b(mQQ4FxIF_X;r<28ej=+iiQXCPEV`7ML zYOthr90{jC+^>?BaiK3&%l5&Q-5!VP8*n`A1n#;1J+1IKTCGXuKP zBoxnLprIWW!QtO9EzHQm!$jC23N^}kTYpT9yZF~~Un490{+m!VmWO`K0xESmMd326 zK3DyZy&leX?~`sL2FAQB6?`m56Zdzg970!)rnFH%rD6@XJFEiP8JzTaK?_MWutCO_ z)h(a{T=B@Y2VS%dNW}?r$bDtpgRVY-aCX~qaYT(er2I#gO;G?3)$3PWh8#{CWG!x> zVDgQ*fooj28#^V33wm<6MqQwV*Q%B3+9JFs@>SKc4|IVW(TP9nT_i6b&J*7$lhQ)& z(6*WPdqBXov%=;|tIrt}0m|cQEs=9^*o*~H7Hz&55by8&@YM#B3Ul0D2D7$! z@nr~4#FsZ`x$ba|{DH_4Ye~Y1wsKQ3QgHma8XxGAPi*toiBFPEPD0f&H9~$o4k9s~ zR-BZbm=c`Ar@+=8YQg3m%{`gt8)+z7LxhAaw|0$$(P6z9bk$x8(skq(t{eu{J`VuK zVk7X~y{9~E=&e(s#s)h7TL*86E`oSphnlHB8F>sRO zC7v^>WP~YUom( zSn5LHXx;QRhzMj@?~r?`_2*&&)GP zs!?~@k4cjOq+7m;r3D6a#$qm-bHyYudHh|>6s6grN#B|MgO8d(+jdrhqTj%Twk;J} zn+c0RjD#yZ92kz!CK55h1M?mdi<)YI=b?&ODY@6(l?V+si9Nr zFD1IY_MfJYSLmg?Q6NWkL8n7(sJOpjQ8%)%`AjKifh-$S^Pdb|uNu!M*-}=mT4z9k z6M(%+A3vJbW{p_6x><&bR08&C8(g6WI1rWE9Hy`6mb56$4_sv32HmGGUqLpb z@d>mG|B@Kv;LKe3Wymww5J~O#k))*%oAOly20(Y0KKf#eK3xY1^*!b_3@t=;5!G05 zEqHa=5OpX4KKPeeDA~{u5tNOeg(p6H75I^E14f**(9=1XPdhQ#uWz!ZmW`3(Q0&8c zwEAqG(v^i?ZteTe_GHx^_7n;0N&Zvi_g_W8~8=2fC-`dkgjaB3Hwz-4-hV-X(6{iSjSnaf7POxFnCGN}Dk2I#gye^`wLuT0w3L;aF%_qV3qq8QwGHmeXH$&-89l6ULA z_sLuA(#$>*fe8!@$jA|S8J5onH6x(j15e#q`<-mlsfOffjh}=PGQ)Jntozu|qK< zenBt3)9v-l@3iU#}Z7~s3(8Ny7w;o<&PqhYSc?@O~L@QcU5{j{gS)3ziH_(s^ z>C>&Q9+W)qR9v#(k8?gHT9>b4OTVgsI1JVU@6RSN!dO8m9xI6tQ4ZzEtj81C=idvF zU=7+$;^VFor^s?oj9wB0aIWWX84RH>z&kxFQn(Iz)i}M%Tv$NtC@Hp}IWo`X-77A+ z^r=4*18xNV5#J%c>3<3kyKNb%g+X)+6le@K0<$v+65Tr1LMT8s0@=vk1;so~reKo_@ZH^hQj_1<#1_T(x6J98`#~ZYugjciRMp z7-D#v^j1M=`Xmy?Q%i3I9uP+Ji@cobB(6tUoxfVI(YK&K_^0yaCEo<&~6Vrdnx`}Z(IIp9FWxsv0);}hye823+4?LtuJHL{J8ChAlkun(*9g#i02@*{5P1$yGxH@fyHjnC;S3@JAE%W5Y%Hnlf=`uZH9-;jrmV_=TDhZWbT=&(A zZcn?l?%hPI%j3Lj-AkIIg3IV7C#aAhNj^}2Tn=WgDHeCBwVflcN1cRd+A7JK&yO?> z^@pqA!S-uB{d-JCga_0@aiL)qD?OC15(63f)CXayOM(bf)8?I>wcN0=ZnLUpLp-Cv zjex4HhEN;^c1A7M5-4+*Ti!ccf0dV;lIuOH3Z@x9ZeDX&sez}J+Ts+%AhbUv z(c#^C{qq6mukD`@sF;sY213HzZik967-GRh(8NyNg%~g6pht>dw4DIT-XxpjbEvcT z_XMTd$}<=#ZY4`HSuhkgaxv7Vv{%93mrG>FGdC6q8~f=ZsCxU9TA;k4XOlQ-lhXE-`$^4zgMq4jYTflzzpVhj0&6c*Z^5g0p;B(q(J$(} zAQ!EWf9WoAbwR7yijhIbu)YAH3k>vHS$zI9mI7G2q_ViQQUzSXk*exP!bDTKd;5xG zm7S#k*;33pwPMAYcfDd5wdc0ha$Z}1hnhjctG&ZZ=|II2t7YDat;<`X?J7kmQHMi* zpr7$qSqNP)Ia9@XJin@QmqYNPA1Hn-ZvpoGfw$Svd}r>6_JwnKpQTXMNXiWc`Tn{F zZ8`H|k4B{+Z5eGV%^4r!3V*h z-;{`QSj&kTz`#XzhKII{_Fz=^oj|$OaSUBbJfg)S>q!5lez2dSy90D9Dri^NDxLP- zuPNr5Pbk&s9f@Jaa#MY_b7GMt%lJ)<0C!zC-ADgjkbt${!koN-AyH~#nv{FD!$Mu) z@Y3t}ssgIEfqQ{P4#03*megt}4meA%vHe4n*Lsh?Un&y*JA0$!|(MN7CI z4N=TVKK~rK1ay%<-2yGIKn?&@qu~Bdr(us)&vFz0%iez_QT*TMLM4CD{1rHUEI(8& zCxb)MZK3&QjM>5Th+LRCHWF`2ag+x<)WXSRmDL?uvMA3P zHnMgxAu=*vipTxr3%%KMx7lJlVwMFElt%g5dK@@YaIP%PyZVCnF}f#8WjKpbi$8{K zTz#|#oOgz~K4_yp9?U%1W^{RyecRw;LLU-7Xv|uFuN%4gh+l1nOTE6m3&=u8cMdKX zp(Q#lOGwIV*qA64yPH`+1JAW>aPM?~_od@)@Tu>Z|9M2{G^haLf{pv~%K}WELO)-5!2N5LO(aueed#&H`}w**FIEf51MEer0#TAeR5E z7)@qOvffn}w0Yk8exrWj%&nWWE*MMp{O?@8%{e}3DUWV7|F5`(-t0|x!GLZ?0E8DJ zUS-*zc~F&Nfo-TQ8z5&kWI zlUL0Q4@c>Wu%L_pz*R*&j!ft{5i52$Yg`$NAW9zb29Cos)t*H=wmh$;4G<5h;G>hE z5&^nyc2Khqx4;G#|2{1%7EG^@a~q}wqODSJ6kAUix)9C+|mw!!KfaO zh!~0J8SAKfS9>X#69p^Ub}a<@Yf^p-9|1asIw+dy?CMf3)P5VfvM|5&_(6IUd=IZmRs0G->k(cWj zMVeaYC>uq#BP+%L(Zit*-)P||FC_6l0y9`)(nOx2*pS)!Q4va9xAN?;n_u1@19Nu7 zH1tQ&t$wcAB!y#D#uHSBFgj6(R6Cw!o!T{~J1c<@_wckC^Phfr|3GPY>Zb7WH|Cwsg<_z>TOIYqVDqfm+B1ofgyd02FU1?^8aUKxb)BpwNXM*qigJr`9Bej#3Ndzu*dUAlx)TsMv0x94yQ*zV*a^FH z6>;9tMXCkb07OhSbd_P|5)ky~G2XlYp=&zTQRLb*YB&0*^!tD{1O%uE@mqD$CpaC* zO{_ZjV1K&!dibB_IKv8GPVcsaE=ydl=px}}=pn4|VA)Ss-yck~)A6W2oQ=k}llNI3 zw}CdHE&qe#=2?A2?sK6B+;iYL=5us~EKH~*LOyj9?I=J-;2KDG!I?5EI5qxu5nkZ@?02hu7N@oJ^Z5GBU0&Za28F) zSS~SvxCX^vyl<_&aY87cI3&?eWbJE`kYzt%M)T1TUNIiu=7IL^i%n1_fo?3vz;Le87aqO8r=9Q^)so6p60!=O{HJXYh7*^MMnB>B zo9exlw~^PB1%oXo0)Msmq0#qIyE-%T;fiXrcm>p%A0ptU&~vEovEV2!1`^x=8heT4 z!`h71z5!PPbzB!fF2f{P^AG(nEI)e;6}!_w4;PVr8m2}!%v(S+8{}tde3!{PzBF#h z^IXFJ{pphrl;>4=2TJ5qo$C38vhAtOcH8#CPyD&rAxK~t%3PMoys*xJnj%QxZ~&|A zIboyTzw@f)&`ld*x4YKr>XwZGmmI_APMAnzQLF1OFVR3q1@D75_~^neRWYM}!4|G$ zY3-oAX*m98a&Z8DggLPF6UAiHwAF`^G)66cX*W{e?c$pnZxMTg85Ehp>;iWrO+P+p zje(Lr7VpEe9aD7W< zT1|GXwN7KKVL2=z=X-Nlkm~eZElcF6dWeF`af6`%kehW@2EV zv07sHEtGH4uSaIG5JRlG>V+qy>ppGFx7~~e;zSfzOflt)iUKNA6Td*y65+w1pLi6$ z;fZUr)0z6TxYaE7OHAU$u}?1-m@zY>ilrzB2EOJN^=LwLswo%DYixnW^qieih@2(>>OZ48BCn$(?zL8|}puTK2| zgH0Z&hzR*x51mA%EFKi-#?33=b8TWuNy`n)hVM7`D7oUS`vwxuu{pU)vG(5NHIqa# zsfvWqb{%aDLJavWz2;f%!xGOu0n0^(pa0VtSAirKRzA(>e8Q@L1t9$W?!PrdgKDvh zbh)#fXq2^q$u_2GJ}prb2;*ErO$@blS-u}IrccC`^jVrZqnq^O8gGq4*t?`=Z1^DToG!UsS z!=I$E0Xipbu1|nx^V#dSlmweLCS?>VD$T5NjO@v(s+Wc3{lcE{X&GBv)Qtbv8AWjhSC-d@AKkS+d|v z!)V<^7Xt`7jFLls>a43=TU38oRUbm&QIULbMhmP7Sh)9QA+l!Xz9 z=xj{=W3QwTbW(B2AKEoNU;c6$=lvh;@_dNO@;ru)(8T=V9b(Mqz1xN~mUYOh@M&YL zbNREsQ3&KEDyb#D)5$D_c(&l==+RU z0gZ<}!9+$nYwOnXk}Lb`j?A%LMpk^1Dp$|aTGBD%iM;nRp*3c^hDW$S5KU^2UVNdP zaGzkb$6_pXrW6>$C+xTb5Rk>bF?k-l_`5NRb=Yr=6RkI>=&7Vl&$sX~&r|xf!fBlU z8|{h4S8ccBc;oQQIOVSgg5c!1-^^%(ExGbS!e{lw(o!C7!sBMvqPr6O?xzlYPc&P# zR)L5vgNfkB^s^}L`}DKB!I{5uA$TQMqqYF4A)vS3+Yp!HJNVIU1o~AiDP3B5|L%42 z$+EteymndzPV40V#5@t^tphWsvi8J0VXl7p?-+t&BASEW>^1bJzs%ea`|obn+h4xp zD=ff^^@EVz?>&;RboWBUQ_~jOYS1#+{Brlxny6Jzm+%zab+?rQnq4ff+{0wN$ z3g!uYMd<>82_1nK{91w3mq3rdCJw3eqLI9vlH~Wo^7Nwge>d zkEIgW*egXw7W9O`ae5y&E9exuuzH8?#YV2c-L;yhjyasYYr16X_z| z=*8I(r$vU1u$Nuq$ezmgBTx?7%6@C_f#N9zqC!k_tPx#!%GPvxg0^2C)a|g;gdn@4Xqjj@6QV)K zJjWJ%r#f#;l*I@z#};_24gY%l)?F++kOVILGq7QoP9ImE{iI+b8vYrvPs#kEg@zv7 z#RU&h;0*cp+#qd0fY(?c>5ekWd)jEv2xT{YndaZUx<`hQy$4r0rYHO*vLo>wwb_?@ zhU%-uVCNqcT17^DnOP5blo#dsm<=2y>70%9o`>^RaA1%kR!>GE$evUuBopZWeoyn|L$(n9{qf|=-NT%(a{n{W?KE@`f~E%t$G9F{<>At$?oOmgjL@EOOaO+ z>Chc{XEH|rgfp0tj^=>i-xN=`!*e#c07{RnZ#O^XnZ~E$;8VKsMQM)X#q!5OgAqER zrpvFku8Zi<(6YR?yu+QZrT62X>*c9-hVqc6?eg&j0d@lNzl-(pINVOLhApH5lxkd2 z25={hQ9~0j*6bj{^~2r-`pBEwY_Icg-Aan-z}wt4fD8TikTIM)r=&i)sZQ_YhfCk9EFIP3}VzNsE#+>;jG1}%uAHlA7K&7 z1tp2kc6rMF`piiy(MYg4fXI?AJV_&^)d3PvwER}7EURe?qksRs`rgpIuD@?H&n)wR zT}H~kMk1;gOq&oi;R(EM+utKEuq!K2s(W0e)uVRXCZcQG*^ywKNA#@%Mw~G_|C}7R zv>@u(;v8LMDNWG$obb=s0{y!=ynRpqKW$RXj?`%8(00S8*cO>^j~^K5J5?C--e)vH zIr^&~r~{dl3GncvZ!qXfqX)m1InoiQ)>X%h{aNZ(z%1xC<-awMY*$w$&a)wPLk&E8H0mV^Bq z-J?iQX&4zLNExGO*@{c$5^j4!4#4qjMPCA^ZI zMHISSuF%OVDZeULuuXhvkMZ3@Z!6@pFim_vpbX`DJ2XhsNdZv(+_)+cq5-2jB*{|} zj{EWaWc=$EF(`jutZTH2o# zqq-Jy(w#mQByQ9}5_)o=ZjD1eOv@=hTd$pP(m{V_vYz1CZMf6C z35%ni3IUlhT^QjD(g9?u-xTYN6L8!g=46D-2q-TgLZL(e zVGnXb$j1@okdU*!r|H__?K=@0FJ?FA4e=8um7rkmKxJbS&^EU2hAeinix41ZB1@r! z>aqliTH~r1ZS)~{CwsH}S!9LlNx$ukal~EMHs)d6i5`3IT$GZ<2bC6uLfIkyh54rs zt+1gkt?Wb^b(L0}m0A51!$sXNoCjb;U7RMz7qP?mpml9<%xt-v09&M-c?*|>gh)w6 zD0@{@L=O?WjgjI<%#ypkc^T@nq9FF==jKs!a5=X*Q2MgjF}-4?IDp)vmp4yt#Kli5 z4P#g`gU^`vR5rKun7N>)w-j!L#@tOfEHgg(9=k(Rh1kS^2*mAvB(R3g7=#(rsVm5K zom>Q{qKm$jC@Vtcqt|o%WVH=Uv!n{3zeiK_rU0_XB;LG$ysa!92aA2*=ERq#8t~Ew za5!%COrwyzYMasSAdaCzYEpd{3@8$q@&a*HRue-vOys6qE$q`E0-&6 zGL=TV%qQ1pir4Juy0bA75FJjGjyWb*7*TjHlAxT=NO!3Yz>4O?8PY;s=om(ij-+|n zx}uE3Y{I#BqE=80K0*8*EHcxaUsgOyUfG1#inIxw!`t*fItP2}9-<)Pk;|sQTO>z< zvgM=|s6uV-H9@vpX{5ffak1%$@sQ2ay&GcJhTJ8Z6rTJmgD%ej(CE-eZVz zcj1$AyZ>#vT$EngI(cTCh?U_T2q&L{dmD8?v=YzCL}hFMb>s5aopO%+uvrwO6gf-9 z*fD%Nh+ZK=S41FF`W{zhG@qZ+2pzR?^=v}fSVB59y8m}jm~aY5Z22{NWnVOVI0BA; z2olS6XYUW_v^zP*fR*@q3s!3n%}wbIU4*G_XKU2~&~mS;NoEm7J|jt4UBAGJCXxlC zs;5W&0EKQzC1gadiB`X!LxPat0i|?o$&sry_@xOt=-zfiQEvFINSXdVN-V=6uDbKz z2YAZ6A{FRtEqXcRScta>YPKSz-U(wg6S!kSYkOVl|gM36KkR5=2ZgW#UYI9#- zv0wQl#A;@Bl(@FaJRQCXo{Ou9irBzcpw5tyEXUt&piSLcxJ|gt2R`F@yRVfKVGm1= z&ysyGo4YevkMnD%eq31#sOl9|-Kze5waju0y#+Lq1rkcL>9BOI7URb}dN~3PJeqm!b?LEB^# z`S8rGz_XY?r?L*qL+UmyScXlTMxFjN4ph1s_F16;=eAIr6MIj(MrN;Lc(_Rw&5ud@ zaYIlxi)q3tfC|Tdg)yvT4A+f3ub|dK8fjNX1I#;&M2aQ>8V|;99OMB1HqQPc+h8azU`<*SLW|cib+2k9dCy+Cm}WvBDe(St*(2c-5$OJX#5bwaRNzwT0 zkQ=N>57Tkrs}YL@I3;yI-cZ}8U~!XiQW$ywln}Zm=f}irr-}Eo)3y|SIa!f@H}LvK zN2z#9X#HYXk<{Nf=ls;(5dwcn&gEDf9&W=lV^l+M$_<-fV<(Tw5j~n0|&2^|LFq zs(3afSd&Z<_rr5x+M_z(+yK1ceL-+cu_%p11C-X34Re8SOV%)3bIgBC^tpIxr@QcMoL;Fc5u2Aj!35P!d)FB}}bHE6dmO8BA)n+1o-&vN35S ze{V&)SUHVyx_g^3p7attXvT*|hgOubJFE3?mG{i`jXjutf)X!#B%C)Q74VBng3}ru zp3R=2?!W0-FKsI|eU93D;y(p;4Dn25;_~r~A=c^ge8QiiW%%rMkRn=I`9;+wUB&gw zx<3tR6S$9K-~$)&KGH|nK9K?!aRRQ|MoI{)vfVy|N>Qhi=4E-gCjXLdMb(4)_VJbf zRD+~Hum($cK+4cMNqwW2uL=tO5`bjMOwj&wVvDRG^0_b;IetYg?<5N4f6ZfPWYV0< zs44Y#47Y2(xrvzb*m?l;yVqZyY)0}j+b-<%pB~NxkvYWN$q~^cwBb`C&S5P84QJYZv=c_08@8h3K zBrx5aPZ8mZJeXcn5;+zq{MYXTs9&z|UyQwDbR}QZJ{a3}Zqz}?wr$&H$F^w6%56SeAT7Sp6N zs`OmVD>fK7!p4Z$7K9)ZYpmtz1gSE?G%$Z>Sm}X=Oqtn6X=;G5QjLKRQZY^Nj_C~c zeJfw~9%t((;aSqvOctHEe34ngsZN=NNEQMEE~cSh)l+n6H&Ahw%(d;x^lwt?{4Uq~H7 zzHzBJFLa~dDk2J@%wTwvKg$rcFr$oL{7rppWi52F&7>44E&VGRO{qYVu2MbB>k!0* zV=0WNsaEOSF&dL$gFC?_HT_eY9|1<}N!@y;oWklCH?jsAlq7}bKW8F2I;K~E8HE>U>7G0g)FWrrt6{tv2VY{|VRM(%dT zf9uGf$Hwiw*erfhGe7^F*TDK8MZb8+AhX{+c82kqYra`LoP*EC<-v0nFZX}WxcT(wRc=8R7^5X}deVxz7{SY^cM>w~&n3BWBtzQny z7Y{V0P}nSP(F90NtiGN8P)AdO7=d^Ko0VMQU#3BWpFYcNf_q?jHaUXD)t;Ji! z#w|Y7%qIe7<#O4$YtD9R#VusbC@f-U{1U3?aT(st4|>EcbQjBo;+Icjtahd+A3C?) z1^(sfHa`k+;@rN|2F&-0BH|nBQ@mKOA@$s+_L=W`xp6qtQW7*X10q~V^q*CdT%j%) z@T;9jQO1!(T=BB&XaB}YZgKe=f#P(G3BB5AME|7KHb$-;87P9^RF6r9COn7#{6kHb zEK=XN_KT;(&jNiZ<}1jO>d@e#DHJXlx#(_;aY929voU_nv1JK;{6?5Q6yt_FaCZS( z`SPnCI7|3`|9yFiH=(NW6br)b)E1MnID_KuJatg?GuRs_4rQyIOvZ5+q6rB5@Bb)C zu(|_2F`s;Rvgi(Y41aux3EJ zR+s$YZypRv95@M=tGQdLtmc<~-et_u)W=k+u&706ROJB#d2@#_w`Cax(4|A>MgAX` z=4QII=>^jA2dQo>OAEOSrYXOrKtgi)cL}@Xca)y?XumY%*xV9)9bRd^}?Ndh>i79xu_*4uk1JkhSbS9Pb8fG(~hl{M(;% zWu?3OqXnt1F5nvC6OjSWUpEPTXQ8b|H0`S&G+(1yo6ArIG(H zl;-sxl=k?4Lup0T{{yAL*8-t5hR**7O5?^pKsa(!{4|%(cb9h1%3HaF_~aZuEF993 z{!6W`B`#iy;KE$0<*cS_6qwZ|p6V_@<*VcX;wTRih(z3_+vuoGVs6S_eSz08J*%cx zgWlnBP9mBCp0_7%w_E%b^ixfw4%{LVDm7V^l-113FvcY(?-ml zExc!=@e9d8p!(E&nvNrpV@wW@!b822@zW5ZRPHlG*o+-;A!IJ?yc|GA17ALJagYB@Xlnsm1@ z`HYaWqXIYQumA9yh1E_2BVII827zF_O6b`ssFS`o9v*tfntr4+z7?yzvF~qxeoLS9 zUt&0CvW07j%%3Nc+8-j;*aCv%P;{x}nS|_s?DG&bx3yhUBh$46-Bt{Cz(4B#e6Lg6 zZVpI%&Hmq4aKP2TkS$DGL+UR>q3EF4V%$;Q^Q3xWznTN$anxIz3pLVcZ_T4k(1y-a zY;w0({UHv&09VB!UrI>r?X8D5TIbD z38oIjhT!8uyM2Pp;}@e>ZR2lRYP1tq{J#Cge0TbC8)#xp>a|rx%HMrcpN|IapDlFp z3XnS9=oeo-Ol#jIeW%qtZ(mM?_twS+Tds?HzBp{`bp`J?eGg!L4lbH-+I>MqN26h4 z2Gzmin+$T-n%~=#jpHczUK=-l_$bB#wDWMR{}WM%-CGM4)n}0rkzZ*{({Lv|Ct@wC z79GtiS?ap(?D^&ay*E0(bMKXY_yRjo-)qah1^CxN=6irke+EJ$ejy^L3o*pJI|{Z6 zRKDDJm^soK!5^uo9R0t_~F&~+v`2w{`>Os8z>bV z|0?pe=)>Rp+-|egb=%|f`PTVo*u&om<4z*1;Exe|8_VY44{GE497vh~!t!>H?b5<8z_J+|#oE?QR zWz)6aZICVuGA*oh2Xc*`P}l||ZMv33I!@PSC@dr0Cs5d5rJq&)I|F@vExLZMpGF9V zIoxv+;SJ1V2MGDl)*JP2j!okwhC%b46^z@29DEEvesrgc9hlrBbk8=grx+c;g~io* zn5Ciq;39rI^g(T|a%m>teaOh)VAuWq+$4y@$AX-q)x$B>9{y+ zh>2E*PihcGIV`GW_RtEA9Po|gI|z{y7TG`^*}#`3zxR=CRwi>=eN8z1^IW)(G59e2 zNVLEvL|3YB|Dzf&6ZSGggP#;)ytr-3u!Ex4l?a*Q-ZbT2gfgQ?d~n{}7xS=+>A}1;?)qfY6=8MS+M{7vFFSQ4W9Y)i_-FT9Wy2yY zuFOUYqh5HQ)43>uP|?>y!BjBhcKJl83Tc4T0jp&+rZQ}jo9~*(!fjp%sO*MrM4xrT zfFL}y{x1_uU?2inq5AtRy6?BrR?93cpYG80GJeq+3;2mP_i4nxi#vWj+!J;Kj)x1g9ly_q!?3)EBMQ2D^2Ttgz(ga zX_{DdDmBPQFIMay28F*TeE+D;<7#5nHje;q$5Ni<3K5aIMU$W4`i7I@f<|>wEF~jo zM9Ef}thJ3ol|C2$#l2X-G*jEbBs0^K&dxm1b_XjeG1TKEzf!&Ch%c>D@q1I?(o2=(`mm z>EGwaeNAN8xn;2X*0EIHdp~|mNFv*m*Hqyf!^ISPdt@4>KR0p`V)AcJ2KEjRGYT_qITsMLuc1T_x2NWgbtEIGOB?@){S@^Or7f87y95B+U9gZPddn}uuQsE zp)82lItv6pEq;-5hNfJ^O+xqYz&{*wnB=X=Bt#=UmA;t09zgtPe;n)`Rl@q+W%t*E zl|k50pI~d^->VcjR2uPl@VDi&m^2_-mN#!%bT5U9F1^kF=(v@FpZ6 zvN@p@rJh!fFbLw`B_aV?eIq22dC7B)F4?>;8>nq<`4GCb$Pr})<-j~dpVuPDvAjrY z(STfCL#l6M$QRVess*+b%LC4J_El9KL@&wOybbaFvrmz~J{u*R$Kcb)>`G1CCKEY= z`Rs;RX!2Pws3KUll5Fa|B;FBEMp-LG3zeFzQ3VBsZ~Se_FmD~h2uc>5A|at@s&@A& zr;`=8tArL0wAd7`)6IXoK#|1pw;597Ha>--TMFOpf@(-^931>0WJ?rRmM13Xa0!(| zi@iakN|qqkPQXZ|Y|4nmdB=hk2hnfRPB*l?SzXZNM8(vusGM~pO})~1XhKW;?5o~D zlDP0l)nV{fieNnnV-~hO66T(%Sl}vxtrS`|R#3zYhOubgJ`C&wF8m5^{D8%KSV*lj z&0x9a+;*)&Y#DT|QOPBgZ=Pz41~*=66T$8vgygsj!^^E}?zC2_!I-N&vY>$&R<~!J zI!m**Rn5x@x%PLaU%O~DZ^$ZdM`$^Q*3Lc*g*Vu8c?HIZe4t?KIlNsZ0#kpuiXV3u?moHK7=VMyBMGDbwPcU+!%l+t_=*jGt_`+A@ zkhqh4JF1)!PK%GYc@XKR=&?~YD%{bN`@Z<@_8vF>XL9wg-_g#O%JcOern{fPF9B}C zPN<#cQbZBz7J}{a#YfLvH{_d*U{Lz^7imR`B|U^6H6{Q8T64jA9-fDUdW@h>o=%03 zBY124yUr4KUXDY+oJRB~Vn)JyR^1!9yZ#O?laKlm1{WEXY=&V?{ok$}$;ioHkcdCV zFRPksz0fR%m$IVJ3F`wLtyc5~V3#JyWV^tm4eyz7nN`QT`A0%M0JQix&cP}7!7_3& z3SrJ6A5^XZAcM97BhPj*+Kc4`iCL6Nu8;|<4L_HGSoAh%QF%6%?0G0lCZe^}fwOD~ z>U}9rAZ$J_09>J5Mdh~cZ?57MxP-CY;)5!-$-ieMf+1*}6HBj?c+e60tE zj8>+VLc_8tU(OMc2U&J%(uX3kNFknNL$FK<31u8BK6u(X6#eotuRJ1k!y!bvASNcy zEmw(kS<1`BWxmLxF|{lVxG0Ba$`RPg;(2o^d?%FM*n&v#U=8*QV<%t17|Zecpf^-; zYZzg2ijQ|sc%05H0YEE zDc@RKx!3M?;82phWTXeBG8u1iJYKjQ!UKIOZ_ld-*_6^}Mz<;HOxn!~fx>=f>8`-D zZcroNWEu@hWf{e7q6qiL-4&yvVl?B6G~Ff;I!%Y^%df(DU!r;e&*=6?0oAfhFfO@1 z@M>No9SP)S1I5v_phkpF(D!kN^Ac44%SKh3>O~;aFYNr?fgN+K8!WQQqZ5P!OPK6) zYpOEE)ryJ)5_8LJ?mLpAB%!I5nW2kt%l`p9Fe6$z;?n-RP+Ah)Ht&rkLMaf(c55=T z6koi+vlXxi6&Ui0%cz)Z7fuo!$PEiVK0TVcSx+3`)%3fSgoH1pgx-vpr=9Y09w|?X z6a33R)65P76tYAAR9~#cjavC#+nbGH(tpbO*u}hpFNFzE{zC6t%hV{0mhyCEs~~)~ z1^oU$->X7RO=2Q2-AK`7f0f?_Xt_gDPEl6Bl6-}gLCE70Q4gv)%bUX;UW5?U#CUmh zO7A8w!TYrKSHMou|K#ip#N*2R;EWF*zoK#p$>7%+sjw<6qN4jH{2UibM44i)WA$wb zSEKaUi-V7h=H+aKvoazm0%(;Q14gM353Z(+yd-)0gw4~Q7y%dcZpi;)f?UrNg$om_ zUm?vY^Kw|D0a;!#l{Ms}58F#fG46H^Lf#1(jAqwRC;;(scV`Ti|5CeK+Mxi2)4^d$ z+)fG#LE6++RuUU5tiHqMPaa;xbt#VBjiYC`jzAd2GPvK5UB69};p6ib0hvv=*au3M-!Fq7?hc@~RHfoho+7#VM0b&d zFwRSk>YY1Eqm^$&t~nBfCrYE9OO7;H&^UmxnFQxro^wtk_a#gV&WF#U)UF`Wy{ zxHW;YxO>*v>!DPw-11+#ZT0p#eH5R$lt>eNc|kc#JKgw(byZ`)YS~*Y&VB+0z4`Yy zGP5K(D00=cIZr)zG*8h{x`cdmm$Xh|8Oqi#Pv{mKJHALpR6M|^7_DoA8t53>j^U(| zl)2SgJ;qj2PpRT;fBi+=Ft+TVTD-D3W^3;fms}v|Z;^P>a`;hIE!9IT^SpraP}L-Tt-!YjY!=O!RDXBh=s?i|t8ruSSSu#NkhC zju)lDJ<2~gA>fdYJ~b0K!Wn;weFh6N#NhW{%JZuN8G{{Ie|U*@eNUpsL0T=g6716K zS(0=0M>zc5e)H(=+dDU}yFWOnM(f(M8KokJA777_rS?h-(&pbNim`s`g8y?^i5IvUYD-yzi#{PSmMe=vS@0H23YeKC=Sto}PA?^VKld0`If zUBZzBMXUh{P0~(yd%+=s?#8<#(;)|32tAapYyBVxJ`Ew|5GG&034c8@s+sQUs1_cv z{VM*rZtX61oPE6DL#RLUfd9(}(uw)^yT2cP_xIh3`}e!u*slL)*2mU&_x4%>**_P6 z{JpPy&a2=@e3^UlAxXE>g-(Tw=duj$z*Uml4?phw5++C19n&)C@TDe<^xvno;FgPD z%M54@!c{5c0G=6jn7rbIsb);Lz4tKSub3JRavX<$(iV00W8|%Sek}@VpZ8e>x=Pb) z$?P41@Y;(Mn(#w5&!C}zR~y(5mU=Foz$;y}^REKgLO9jQZ3GP2-44c2?$%NhRIoIq z3hJO`X+||cx44Y5#$?Q zL2JAq=bS1s^oKonCSASsc22wQwKG|OfKSItNJuMZW_45)A}CDDrwxng)sAJg#IWNs zM%=#!imU|4xf)3o8PI_q7>3&qVlBJP+a9uRqYafb8}1S zE`0TcByzL#!qiEc!jXG(n9Gvq2&Oe?7)))1VPvFJcn42ijVfp)_j0_F)k{Ckpe!OYgKo2K zs*P{&V-Q59jY7|ez)^a8zwQhsjU@GEuCc&$%dZq=eoZeO7(1|~r$xDi&yruLz3b}& zYlN-iA37YE+Nb|E9f|=f*Ee_fQflH*9_y*OX`x)l7vx;mv9fqHwYSozw`a;$;SiY! z2Z6#q!BdsZ$g$ayN$w376G&B^#8aFJZ$Tw7qE}O^GX(R%hUsFTD;P;pJ0qdFzf>Y4 z$^Wfup9;|^6F;6Hz4*HfPx4X!&7Gx@yFb1?W8tZblVu6Uc2A*3=w>ZIGtyLU7toQ2 z-KjaJEz((ruU*wzvr(01;HHDI#TY~esV=eiiepf9^%@0pU^C5UfNG=*e>bB6p=d$S z2_yJK<~|>yH%oZ%Cy$-3U9*81uf`j9YQaUNUw-{O!W@iG&ry9A3`HH+O8A7fNFfH= zqx@&rqU;-Fb5@UwR?rsBSqfg4U#f*#`#Vx$&I1OiC$Sy=$x}p$e{flrH4$}GLP=Id z6~C*wY%Pwh1a)dwZ2nSNk%71(?H;4+I-(!9UlIUhZyW?O*|Jq0r%0qmqwUp_?T{NvLKa!0DuZh~^brX_M& z${BQWp^WRFeudaXjG8c2P4M)xKe8+yAyLSU%?F1`N!%CXVnY7PalQ0Yz@433Fy@b9 z16@(lv~GHP?$~`ydwqeERgC({1I8(PPvnP6*~zBjCBZukfb;@X>)-Jc`kFy0+TbrC6!u;+{-DAf8{?octpEWNKV*rk?3w%UpLp_vndXs ze~V(-fe~EYahEbKcT6U49mQZSwO!YSb=1dkCK$Vi9l1Rtr`KBs;Z?`CpTlsEGc&+q zb0aPgan12I;h{jslmSE%yLJ9q;^>m3=u-0U$yHstR%pbKw$6ar;mH{G7|W zrJN6PY0iaRoUoD;Qd%o3{1T!8O1o~@UV13-F+u>ICUIRML!<$+xjrgCd!r%0Bh8SEwLPB5%BByfI`KlxoIZ*J4}GKO3OUv;jxJ4Do6B*NMp$&6+Bk#l22-Md8*Ftz z2{!2V@vG)^O%;RC>rp!AS)53ooA{Bt+}j*?($AIXMX)J=88*%p7R?XAN(+>I&Xj3{ z-M9j^#>MhALogEDzcg{q;G>W+c@5^l?0UEpMBY2jCCRe+(TT}3nLKB(k_S~t(yut5=f4iWd$j*qD1(jVVy-qfJNiii!y*dITZp>(v? zDA=iP2c`WZA`vSfs*GLDE6~p?4Y&GvpQn=0s-RThd8UsJC3j9}5@jvj+c!K^w zWzCk=dg=L{=J_V4eas_^Fv1A_SO&!t?p_1Y)Zj$?Dm4}XFMSAwV-{h*d|N|#x@KT2 z-w8Vp66&b0r48sT`xE9J4E(a|Xqxa+SG-ahjbY{lIf9(IeiAA*h*$1)Qmuhl+y{Zh z?l7_Aj1VmxC=WjmoY!oWk^NM<;ATIp zKXLaQIg&Y9syO~~|Iofas5DaT-Vj_s5vYcv@ii@{6heQtC>X^&Q~X9jmv$d*VFFD$ z^*?vG3%bod-*}Pl`RQ7Oh2WC(uOptNVYplo{HMSSXKfH}n7k)9*};BaGJ=tl;HOFv z=195IWy&e49`9IHjh}HQYNMve5td|3dn|Qb2rDN)-wmBqAIGlWk zF;ET7X|7uilw$3~#LrPoEW{c+2_t<_7J*$=9DEZ2Amfp63csYBDnL>rR)7$Iw6js{ zNRJ3E{3Dx0e?@r1xxg{=G8?NuiN3cS8ZQ`eG4p-|?RWzeysbORr2VJf1*g(XRyPNLMw>`wyuoj>Q!WguGCFq1&yDN0QZ zbfSIue5sGnbwJE_`ZQy|-gR*9M03>S(43Zl@&_6KAI(=`BCi9d+!D8Jhw~YW+;8KT z<~7eu)gBdv{zb1WkbiJJWStm>I(Gh^;f7N5Ts?=QdYw(2{eM`eOUjlAXuhjzh*gM@ zj!$n@YE;KzTPV+V8-USnJ$wOf94L9*~ON`ObIa1${xW0G2j2=`md@=e+t}>I7n=TDl~G zPz_w5EiqNljp3qrb-mz^rUP`%f+i@NgU%am=fcTWSw(vM$->ZRPjj?5BTq+Rjuy-(fM zE9F1mU*D!r_9~Rks8T>Nmw?84*V5x@mcPVqUoD^0|D4De&~*a$PB0P!uftAxAOgu( zrD_&jEWI2gx&t&?p^Q1FR61dQRiO-t4llT+R0`KE0aQciogYpT!5(Lp%UC<7o$(h; zJ$L!^c)XmwP%7P!Scz#o1m2k%@-cAhnaDda?i$!=Z-D6~CQ_@~FWdx%p}%&b;D9O^ zK*E>x>JwmIIaGY0ne9SuK@m&r|C+_pYTZ2&sn$_8 zkY`6q4WKi}kdS!&2A02l1Lq8Fkf%eezoZ{{f#b1uI8It-|FyUZNxO3&H4D}CYRb9< zYf7;j*9OrZ;F;nxU!Kjf5ho}qZdx(l0+QgF6@$>46Z!_wApdL?WC56m{74G}nIK3^ z?2`MsA`-T2?r))dGiC0*TJ4u)A(#S1%Hp&Jz`auMD@acePzGQUgm z4><|@+oxw;Ma;i`gM?$9rH|w58HRR==3*+S{-CzW7c$qjQ>WdQIZja6kvZomN2ZuAKKJ?1V=45F9l(p{e4bEces5>^|xzPfAAYeRM}hbIMd+q@x=-( z5&pS~YC`d7$7~ZrNJdDaUe2m*x8__R+d)yM$Z6RsRLqn9VfpR(qG;~(Tx-WC+r?v5 zUuZJs%^bZhkJMwdlat(NZb@i@w|>sWvdmj~W6r<||3b$bp zQd3Zb89(?U; zh-r!_L>5Tg$IU7^TCbj&y2yk>QDFYrIcu;B-n*0>S~WmNSxdH@6t5!JEQ+&`imoiH z7ar=4j8#ZM;3oC!%ML6#1Uc9HFZw2>raK!xB7G%e9}fsw=3jR~XJq7ltu7qGqt1z| zXDIB59|;UGjGi(P5j;3MjUXIMjHZ$*a^Na!+gDV0m~4#d&*sJGXLT{2gIX-&i&c~- zl(#$vGc~MRw6Gb^(sYiVP0k)WJ8$)5WMLP5{-mkPR$cV9@1^0UK}j(fe|B{f4v(je$*OXkvqWe zzaG3dHFW0@{dl=lQcpyTkylr8?58<)bon=*2)az$<28#{uNdBXLITtF-o&n#Hy_JV zowE)0wH}d41`0-A(C2Z8Zmg*A5Z5y9mePD(Vq6`;HsL}P4cs-LDBckcqy?AwAgn^m zFgZJ$mwGs~OCVK+XAP>@O~x(OS)op1;2##ex_GcFL$FpB*0TLfJJXn5!fc3Bq2P-N z`mf@dd(v=fB~(b?ti<1Nag(>@>l)99jAbl99nekaHE_NDsA9u-xHXLy>>=6H_i&kP z=q@^g9k;J{k=??76Q*ImMfR>BNTZp(N-O#r1DW|FtNtd2yNf@^S!fyZ7%gHw<%&Z# zUZhdll+7t=)G(~A>;YN29-hS6QC_%6Gn0}&3q~Goy`G6LCF^L}1*y9qAXgg2sKb3j zjh@q>N9yx?Ig|RnBI0j8`Ere~8S>d5fG-x$WItOXh+C1px0$Hv;1J_XH`);2<%FgT z>17u!e|>${jj&VtLka`3E&MSp7x+P`9VKcxBPSpu!JaySJAjuuL@jzwxbfQ*^5$K? z{&_;yLh-fUNmAJm}UX#r6H*C14nAQ=1x_frW{EXKU?SbOrE-l3I1 z;}|tteIxe=1Qd2qaV6gkaaHb=(eUHSmWIAaT@W72wuHSt>+kw%N1)%fm6%59>w{ni ze_l-vuBprzv=jP|K?V~f>-WY!*BUN_YKvfT8O}r1O4@O9@k+Q#gKSB4%Cc3+h#2{4M~LJrvRdB5&_PQ>W5xYW5p7`xhBxaN zxFD~*Z&G&tw-iN^G!!~1kySZkDdSltpOu?~-H31a%c=k$j#4Mo_6`nhI{Iw9BfcM< zHa1ciB7>)>X`+p-JLAVvGEEHucMs&y375f@=LcR)r3vRaCjQK#N&f)VYuu#Dz>S!~ z;vI~lXp^8Z93a0(puENH?@|Iw*LwcUVrnmol z;RO=!jM<8c503!V-y=J&lj)&9lh3*v%3SiF$`GSR&QxK0-W~_6Ss6 z`5UYf!MrbjivwS$;0zz{n+h7gqx69uXBFfjqn7IOTt#mC^kTZD^az82oodQeQG1sMOu8*=`mCK1Y9sGMv=| zqaP&H%kFDNm&r2;{+UkjH@GXgr{Ldc)G@n)4Dllu0lH&BW-xt6uqe+| z=<-!;JlS?J?}j=6iZiqF;kr_$^~JQnsJC8O7@+#A%%SAWC<`o6vF+OZN zjhlJlD#%?h6bT_!fjtbRghROCD&oMZ`l^&rF#c%&yNRxJ^xT_Z9^HT$Ofh(L!%!^M zW*$-!ER}Svs9gS}Dj@AXRuWvkxPERZ4yf{1f++guT8J{}Oyk#4pZnLa>c4M-+7p=Y zn6}3+e{Q&nQ#c;DiZPZbz*ap&0iME2-OW<}p-nkG5Abj;Ok;*RKT< z>OPmRxD@#lSZ3XoA}TOFv`TV1MW~dCqVjZ%-KO)6NJ9F`Uz9HeUpnkgr@K;he%j0|9 zhUl8=3ypRm6d4~Wv%E2elnB1)!f09-vSH9xScXHp`foc7365JoL!0H5g%yEEjsV)& z4PAw`k|hh4;I4-ge8Cf_af5s6q#3bUTWoN;6bFRsp^F5?`K`Qr48iV6ItSh%Tvlcf zPRU5s5KrH?`cwa2MYvh&ecv^81zWsToub`DodP~qnsLht519!pSR$Y%luN^+)LOd0 zi)eC>CS-y8cnhYa6E47c^C`jP7wp2c7o2&|zKTcJ5sZa55_YAY1NmmmPxILqmai6J zy02FXl%3TFZK#fa)gEwW2XfS!1+iHYO475pAnB}10(%LccNhpRP=H9Ce8Z#b=&btJuomNm-_`Kl)TDi3ZKN<0eaQ>l?i7Yxxe z#lK|pj6L-(ARI!pEiu;dI&bD59?J;7?yxNb-NMux=8rj$)4Rv)iRjyToHu;!ImsMz zp8CF-J-cr|qh56qSU8`3JX{`W`u!>Iio@@|0;v-U&o~VHPh0Fxq)g#Tje2(0=SpvR z{g751&R-0|zJ4+N$}}5t(!(yF_4xr`zT@IagDHnJ0a>+^p2iDWnjyn6g}v$?dPa!9 zp_UAx3qR9+EqkHl04A>nrjJS7r7h&K9yc>4zF1}!?Zhb0Xt^kijVeyhuWbp=%d_6Q z#0bh-NJAPhuA@w1OU&~0Ol9sap#>l1IyQd*1cuQ9K;_ag(! zA6c@m*pYn-rCrMlJ5_fK69zU_z3bx8(-7HVQY2&1F65G-8u-j1t0?4uT7+Zog7gnr zP<=}YqDd-;;r5p0#bq{LU*1zRr~~~()nu7(WUbOI;f`?OQn%CYlT)XtkZ}V;4X9Ik z$X7FFPpduUZK;G7nM$rU2g*A8_iAU7#6gLSI!bXG)U3`s#qJ3ykZkg*P4X&)34oz?zF#^G(;QH&e z`2$V@keJvw38h2L^uRg^I>QpFyl5+8n-`eOdiIeAdP|D>wJ;Z)0U%d`!@LTZL0E!1 zzQbzfb`^oZ3u~U$C4(B=_9rQS2JajlueFup+#&0X3%#@zU8WjZwn|AZ2~-Wnp^#vY zhdWzRBNEG;1Ea<8v}VOt3&Nm*(h%N<7ZRbkGuA;=H7Ve_Ml#ELC*_m9zPMEEIKrO| z5y>~z{Y`0tUi8CJO6U^OX@hga#H+9)U_l5SCY@681C1n9GFAiUI_{6pb3HTtZZ6qV z3sk)uA8w+fJT_>Z#i-4nYo0pJG`beE@?0j;&~>IFlpo>F8WB?A$*16Mj9jT0w~_&h z8brky4>^`JXf=s#l_0qm~v^7R9 zBHUt4CDDRSu2shdKNt6e_OtA)Gx65UiE!}I4s`LLE-)hu%3>f;&_#DjH4ryFWm8lu zZ(K#xn-F0Qq;Oe~(fG5HZ>=zw>w2wWnoI(tLFXXQT?2p1DRm0l=)VH;C?>q|AP6sM zPUc^)eBiAJiHS$qBux4#zvKSIwhs?DS@ag(x;NSvzhR>5O<+GDjTz^aTFGy|2^vCj zFXC#Z^ft2+^Z)41$J$yNAl*9I{$uK1PTl*skX@v_=t5G>kRXXEs-aX`kEYD?M&oAS zNQct9Q#5oO7%BMJS3dl|DAx?xxi?X5*n^+dPS7zMO5h(BZH>nm+p+V_XV(hP;v9Yz zg_+3{@mJ4gPwE#;0WPO5 zNT~HWg06+jNSR+X0x-Y2>JN)4ZAdR=wFe{luCnk?W~d={N}L+phvSw3IY*sy#7WkI zRfIWaaK6*#`lwV;ZzMn?muEesw~+S6>&KXU7p&(jfwdSPQ|8X^KMkNHlUQH7u(wx7wQ}=y5<6PsVuUV2vgs7g&<4wYv;@9yQ z2U9pvlnMfq9EqQi%mrJCfO)BSeve%A%a&*oExwA})?4z``yD4v5k$G&8^#N>*FeYZ6z&CZju`uofSsk566PdOJ zML29&ID(GCoL^I8AhAoK6*=H@dbe}Eu2bw$*o|e(>2Izg%&;T; z;$i?X?*C^+XV$xWGef&|rdSZ-$*Z5m9hxDwQF06lbTG6ty?%}Vrmc&cR@7uR)IfFN z6;VFnI`1-<#`C%jfFacb8%xM}iTs)yH_@*U8#C1U2{M5lIsxTQhzd@s4>A$ojU@<< zg49=OqR%S{fe&4a4+UV^#|wan&S;^#H{PtoyNY`h1)GQ^U7trvR0?Z6ro^=Eg+LPkN|nH%+$N& zjtTNp(|j4_(8Ca)JGN@CK{G+=((*3F-h@7RU)qmeGPM(=+9WyiN`Yvm!jV9tCJ**NH%f9q*5_?$a@tcv9RR<^qa7l zzim@W`QE2XZ$hL0<=KTF=~zgN9FV|&tRSC!H$HnvZ<2OX2{WpswXeO#?@Ev=M)%~X zng*F!gac5(eS4HJTQ9d@n!i8#pN3KPeOGZ)07+A!7s|BUcVqlS*ACkeFFSdpY+&N` zzF`|rNJE3)j%q#Hkr3Pk7}KlXz9M7YQ#>#A1uGWfzLk0DETSN?>fzwKPnGl_o-=1g zs*KP&^WHtBGUFB*?)vKOV2kxI_@HV}G&13~Ih=YK;YFRf37875k&pXJTDvbsaj~w( z`sX&_rVSbTz>n<5KGKLg?Qc0BS-1FK?_)>;JA`7sgt8N1v0_PyR}&eOIXuY@UcSr8 z@M25JsAj8ZV=~)Ms5{U1HqN7$qWVv1ZAUU?J6$e){I#3q&Z9RzF2hHcZ;buF?3oqs z2-82W-zzHc7J4PseKWcHF^EKk6eCr z>QiJLeMb^m$kvYLNqorIv&IH9w>83>k6dsB&<~r;Y{H||{KskOTrhpVnuz@#rECf9 zxPG@zU$+~t+xe-H+L0ch$=8D+V=(T4u9@OU)kW1&HIH(bQaP4ck01u~OD7o{2J2EJ zA=^rCyE4g}2S_Ie$R>x3sIW2^XsBcy2HyE#V4r`f&YT-=Mzoj6*h#tA z8gGW43KsaZFQrh}J8*60QKHF@{{i)GHW=k6@{i|1>Q0byCRb2YX@V|dq8Kq{UUJlk zr3`&BYL0eO934F<(ua+P&sFkL``_Tet?1!JR5iIm2U^uff!eEMYXR0WT6Jk4j?V(< zOPoZwj0gibI@cB>l)Z(a8zb#C&0{|cm3?$01H)`hsVvm~!CJiHZbU~fi$pvfud{P>M&4ostPi>eyBex zN$OrqW40ZTBc{5N2C>GLnMwwcKjebY4#ge{e^$Yq=0}K1VFu%2uwdIB@*qzb8^q(*7LSPAOM3mq@4TYX3|NU4}ePWXO!W)lRdh)fB zHd^=vKwmU;yTX239EB1%(bk)vjV@iM`+sAht3*UwskwaUlWp`b#EoYC)lA{ zk@(~AH*GebkbiP4>DW%OHc>~^mHXcASr@32V#2?;8OLM8Y2uI8@r zn?N3xs5f5U%xVbZEruVh;st`~CCZ`mcclpOiGqwHvZPPXmOhiCcg%tKZJ9{ItcYLt zGrM2h(RTZ*C1L8HIdm!Y8Waxv^RL~$2}sCnztJ6v1XwMI^A~t}@=Rxv>U!ygK~J4n zilfLkXTgu&9yYk%scuLlatDmSd@3kV2Xml&BO!_hibe@Ir&YF0DmdbxuNS}F_2*@H zos3=1WKH>t8@-GJ7lYX>`^_C+`iKkC9a0^gg=8;p?$9^6*l5BM72-|LITVad!_EY- zY-`iYjBsBPGXg|Ac1{dbL5~OY?-829f_IciM&&q;Krf8p(}o!65r`Nfc@?M$xTrJC zQ4+LM`0h~L%CN7JZkya#EVoJ_Ahxfe>v<&XnUH{za(e@4a|&=i77~8K8Ix{c>Ez|p z)Ro=QK}^n*Hb(guM&}#MMzBNqvit_M)Vli{qMb|Djez_ zus3>3T0piOKX8NQ{11b`sPXbo4urGoSW|K&SF0+a-Ae1%&&4+n36&PawTt(7_MDg> zB*_<&%BFWEo@yfh=IgYx;-L`(&cNKxg>L&cFfrTu#$z#iZul*+A^ziabiW0yh2C*` z(8Crm?JSjz3fxmi{A}hE@)yiOnW1WbEQurvo4v-x7Bl4Sq;e%iIvkGAUJ4 zBx#-ToKe6OIFZ?foIhysvu=lse%*GpTyx>ndVqVmf9FCM*FGnjSN(HGkl$~lz{ER1 zZ=~Ek4$1>}^8_ayIzrUUNbe!LX~&eUT^#b|gexPzke3+1APy}yjEaZ4(1)sH<%28h zaQEq#?tv)e(?A2kLg6*mSroq}){fo3R&4D+$pu`C2)8qB8_q{Tx(vGS; z18B#0RbITL%^%oFr?x8%I0geY`BNhN?Q4dN4M{x&hK#J^dd@*9EZI~66sI2f>+-#O zO+^@@Bjx^PUF+-}g?8RKwG^3D;h5ed<<)go-Tqfz-!z%6c>_(4y)hiS4QRMpkOSO< zy&`)+!nCYHsZp6TIAhkFlpEmORi$6c%+l(UZ@_l^@ObzKpvT48N`AliOuuED1VH#n5)Bm_pEagjGO zan`bfwaQk%z}9VVKQX!tu%48y!>W+fc#%Mqctf;&44ffq+yUj;{kpLAVH5M`cR;=p z`ER^*)%?Q{$D(s;6e|tuus|l^D+})R!fLM=_&=i!9ca}WntRt(O-6v!C{5A`kt&?y zJTFMISW$z>GDV0SJ1c!hu+V@rmYs@wGZ>lFTsMRZ_%Y+9% z!Wu~NYb(3YGa-9ke--d8V3S*9MvsDwSIN7c;ZEp5uh9a*!e=B1Z{Pr?$X|mcmb$@c z4U0+(5u@H=21vtTEGzyy$eR1NHXC?aA$EJRIA~fB)Cx6;SNT~zbvDnqjVmJm4$a-5 z8hfSQ0Nn^&2CnG-=iKm|PNzwejyXe0hIxB-*+#D4p&0g77++;0q!NIjlDr7LCcAfyTY+pGU)X< zF#Ke8_{U5)WqU^Y^1m}A&{77&=}k)Z@xwdo8V|;RtnXnX3<#TUao?ZhUGod;50Qyi zR@r`+sIj5&qs6;mFSAO|Fhf}r;hG{YUfvC%U7|EgJyW?x9R+TJP~HCxW$RO3`fj1i zjHmG9LeDl%&!@hN=67Qc@gI}S-ucEj7G&nP5G1*@+6mx@<1ZvFqt0cf_@fNqLCxc+ zYKMFOq59=I3g4fHPN^TQ!Tik5Elg!2!^!E6eetJ1h#Pr5)0pA9qd;r!i$g8+VB`ji z-aZKG4zMyvvz>+1xkuUF@dtrcLT4EN{J{evmaqij6dw=;CX_R#IzgxVV|TleUh!k! zUb`*FQR^msy2)J6d3J**fT6Yr%84rD36`Ti2E)g&1TK_mg2cB^BXdx}jPupM)>)*( zBLVDb1dsN&SJ1ZU;oaYY__46RtZWk0FykT2=yDP`rc}cOta77WMkDM-+ov74RP2%H zy55er=KUuygb=inZg$Rmp3hr>tKt1F{J^r=e@2U-?|!bnbYM_YVLi<;?-;tL*0guqO}{C(Rmxdz=z)8lPS6lt$HX zd~w`h76kdIWhSezaqafOA{NpLsE01)HsThE4#c|mD+J6n%~{$<)`rwrq zjE;3bPr4?E3PU@w@UXgUaO*Z(n5WDA8qo+@t7yciUH_TvQJJ}HPtj*2U)wME-KT)l z<%)Qz+xM?SB*1YMJory^cI}j;e?YU?xKvd-)Z#yZ z|1jej-c$(#Kje|EJ{BJI{}~?m85ih$s(MC)T>X*^)W-?ql!D&Op3^^_IU<{ts(s6c z*bJ?p9cBIeIGFqz<51T=Xh8-Y)WNn8-PLO3@Be9s{6EPfsZ_CTq;1FnzvvOudCw8z z`XYVtR_ZfORC)_MgfP+QF9o&LkfMYO!n0LgD~$%PckAy#LbSFT>G!5-P5})Hp3g z|N7q#MhgAKsjc>w;4piM@C8OQ|zB^*g+=qlYxvjCGt z%PxbGAq4z{DF7MlPy`8^-#E901j>6hlQ2_ro|1Yd{?6&(dKYxT)1oOZ*Vdzop$%v7+7q7j8W!svuVsfO(&Ws%FKQ&G-d_gD=!Q}&+RJuDh| zo5NbRo;AKH$uUkl?&G%5DIt5hTw&|mqWL^Iiu1nXwx(j_FrO<4kzC5C>-zHl&UQJq zpH%Y=BRdfVzeJYL$dE=35C6KMzAbr(@1uk~YxBnpzw%bY;x^Zc9=oW0yPNZVtE|R^ z{#Fl}_v5cXl_e$$H5|-K^RSa4-9yW%v9x?thNdV8>Zj&IfUt*FFb5R|TAz%7kw!ki z5Q{pC0N+HhczSE-NI(u_HUh07{$OfZn4AdB!wJ1Qt(jQ$eMq5UyCMi}_u@}D4)d;J zU7j%MTpekCh0%xz#IhtQJw~A8Cer79Z^#^gD0M_i>4}mO60CD~N^V?{q3Q|yu>8ex zjo%rN|8*I#p-l!t{;|g@t*F%<-IDJ5y*rYU`MBM757Gk9`ppbF+h%k)0Ztq>9z3_p z?q9*pnqXdpWy%vAlXZJ&;mGLJ%cvq{%Ix@P5^I)s#Q%bvR9i7#7ec4^5V)<=+PJMd0LaK+<8Chhk2B+{ieVwY7sm2DO8OTnAgI zhUUZbQk{XY)8ES9Uz?2MR+rXX=b=-lKd-;W5#qs(@!As4$WK#=o|N&#WT#>6&QUrB zl6L(bbw7y4bTsjjswNXlWKb zw>%eDh0096f8fY@=(PnaqgMEePXoh+Rqo)}2wImyv_l>d>WxVSNV2GmWWG;y!=^C+ zIP3?0k$1*aFXX~5cZQQSqCjZCb&5RDAp|AHVptN}f^h(SMY}#T zqE-eqk&w`&hihZgDPgKg?Iglxw15NAX*dz2&-_HTnqA^i;SWFM@A9_FJuw1vKU3(U z7!vN{vCqn&6on6hidAiCxNT8cFs!K6v(MbpkKnL^y?b&Y8Coi>dK9?gAia#`t=SN? zxhCsMb!_C-H=G;1r51`4GyDNO7OZRwnoc*cWLB)H<g_9QP`_{+VmmQLpB)AqGzzH7{?t$LiltqO?_xmzA*mV+ z@1iPG*!7PZU_b+keq~nT#D+diHm|t*MZnAn+T>=!HdRwBYX>R!=dy&(;2Sf2>TT0%lwFP6R+)$8u(7ou#$y|Z->`@Or1nu!)MHfYJ<7v)?tx__X> z&F79x%imzDw~qhrr{pvx&D2I;$U+**#0?CBD-CN|ApZV~%!fyYbg9nc*_I_dBI#|w zwm=do%MxgSmoE->hdd1rllfmuDV#kz-6KtYRdRzBDdS>_3X^Ltz=>##TY6Cb!4EHV zhV|kqf3U_m&ukgSo)v<2Dc()9Imv0_EGf@sm8vs(vYu8hJTBTvgv`$%e01~MPkMY_a;|V^jnY;s`<+C^xY@BEKn(SnGn?>N4?4NN zozH;cRV-RGxN4M!hx{aiSOs#fxELy%pF`qqa0O61s4CAIL(FHM%;TAgig2Y2sVu^kP{4ti<0KeZq2>gXzx3F#bORZqk1OuFUm5 zYfx{C8nr)+l>gQ#q)Ps6)Xb24l2kPJQmn@qxKE-THWZVvj5a?t07y4$z;{YrA|>Uz z&*z7@a=E)tRlH-=C#MM2Cz?-=<_g$`2}Lj6{agNkQ+~nCkgbShCRJd~YrM#_O#!$T zNAp`blJcYQ3am^#Tp27nXQX{3!><3mP%`)ret0(pvEPG_M-La!%8j2s_tv8VN@M&Q zskZZ3SI}KMssX-nAo=Ze$Zjm0g`I@@R&eumv@`V0DT_d>ND^s64KizGwF7Xz4^|Y~ zLtlslV(UEF&SU+4#vFb%ZLXu_G-Pz?qP8rs`&4gzw?vZ+AU|`U0<_pH?RQwA-@n)L zd1MFNJ0+i~J|AEH1N&@rV)=gnnb`h+flS;iOzi&`kZB_RpfmYUpjYG^5_|ptx3?e= zV6*Uu`3Z`3;t%v>yYW`-+YyLr*~>^u-6A7%c!OXl;3Ju&h;G^YT`=#D=;!lVZ!EcA zlu)K@G-F8gGhi!zq!L<}ii>Yx^Ra8Lj~+@dfv8QO-QLTztvMAS&hE*yvATNK9kw}jZ|FhqTa;PmDF z0UccA#Xf1K<>~_bzG>0oZSc!cr=~C}r;Ig8(6$oXOpi^s@-{#+fy2!EEsse)xJ$3PC@C4DSLFGwU{Y|%uX@_bCkSdtWpyK53{}mjL3z>lb)@soHu*lpUxzELGlqslvx*;m|G>UvB$$+o zIhdB(FIIqDMzRV7(tG9UO$pNX_2UoFgZ}4Oel{qSkB}_uA`m%))4W1$@e7xnEt`J$jN9s8o-OgUqq7iLGyeZ5_`!ng$F#})1cM7nrO&_R#Z`fU2rQ2`Z^a*3c zH;zfOzc$YqhmM{eI^3~*nQmP(x#IraQQisuyDWD2`Yg8pIxmjd4e;GswYlFRT4M6e zWAI>6{JAFR-}bXh=V*#RL9|;mIA8Efxv^n%?$Eoud+5@$?n!#Y1zR zeberwEPZN}CMf`~dYfF$1;qgo; zZ-5-@dKP3}ooI>JdL6%C9z(*)FHSed+~^<2b?nn4u51sKqtqGrAr(vtZ3pr28w;Eo z9@s?OKBG*2qw-s<$%jtl7s7$b1Uj@7OnA_dfcPHdp<#E`=*G7|;S~t0qMvR@?hrg6xTkm;ASjzx zL9|JnklT(VJot+NtMP=X9q_~ImY??}`vh3pqJtgb(d^KWP~nq{DETApZIA<=h#M#M zSd~Q%O<9kuOATqKht2G48{h}Aw%9R4S&~~Io~{Jf+4x3%NgAesZyInFgQ3(cwt3cr z;8w0JwGfw00X*#))YsSA0~}uJXuqdp2_7)PmAn&qLcYP`3g?}A2vsps9Y*?n*ULGY|UY9bw$Q$D^tSQpD z(2}@lw#eS7VyHG?U5PDeM^HDpR+`Z~{opEzabX3$0)RkU-DFG7 z@W>8&B0H!v69_$}F)47y3EdY5i)mi2q**#cnJ$QtEZj^Kqp=zv2cVVWHYq~-M*~9> zYYIN6qJ})_7~w>E!W44Gy{T3iH$~C}T8cz!3{$nk-d1?VP$M4iZyLgRE3g6&WR2=H zP54bmKw~Tc`yqOH4hK46JE>S7xgT7&BVC2-adU5_xwCAjZoiqYx~U>AcAhI7oF{oS z%)z4jyd0WRf6CPc%C`v-Z$-R(6+U21@f0gO*!MK=&!g(3%=eNV*=J3$b#8v<`iG1yK)X@#E#Ka_NQJMA~<3coHA!p zQyQ_TEb0v?>m!Mz5e-k8E-p90cd|+%tsjR<<~TTj=|&H~6l!*EpIjS_HH9_z~OPSd7X{2+kW_+|TsnY|HVSToMxZqZ}2A6vk3rYWdOW zb5apfBNFw)c|CL$x`!TogVw#bWN!$=f{2{+6t{@^WFSv6+$cV`LhW4rqa8MaHaAB>WCeqT67kNu>l`;XuWrfNaEC za2Gll4B>|yAVtU~4gnV^(PWDq`lC7IY#_Qh1g&SD7d9)l{9yUDK3$U zZ%~DXFx9d+!V z+0H1eXj)J)n!Myjc3=UMp80-(ARF9C9tOr#l6#Sm{NUEqWG4>ipmMG-Uncxo^A7y- z0TK#%(iBVw42VF}>VZaZJqnMLhV70@punYqO2AQx@+S@_6pClW1GCjFxX8d?NF=Bn z?c6Kg!!(@3w0HMFDq$H~J8yqGgT!>>EbZpUbip5K&qfF}<3aRH_Bl3V02|N7YOwpd zAc5XATj6+fZ~(@H@jc-RB*rQK_uIr&mNI^;KFMD$(;H&EptqR7zXOBU#CAA(RS|Wl zYisESI6XLk$tp#itk0LyuRl~;QtNvzi5^~t5%d`BWaNsHVliV2w+4R|6T5U4JOIU@OWY7pU@{hEX$(3EXbTB+Q)HGcMvLidEw(%s(3<xzvw+HT$(-w)fVcgV+GY}PT`&s1MuG3+JhFT-ak`jenf+ZxF+CW$n8t8N2 z+8-`{#PFO(v@23HhN35(!+qOEe+rh)wX^bEK*rvWmxkZM9)6%0sPrCQ6xI$=AP56&&kigP~V=#5w(o-ES4;#EEJg;re&+$;L#B>jmCZ7y*xE!(b5C8$sesnzcs!eoT)B4~>d1}PVtH9v zq^$$tb_7*MI!G&VxZak$GcV6d>86Np#0E9B=A8Yk2M{;OFUXe963CX~6lxS~dd zjb#EO=&u}F)DSXGP8NlrM!6%=P|2{^R$^JBmE5Q=ppHQ=Uo-w8GkPq6t z>zO1Y@XDjP_Pm5J!(@N`k?B<1+c>5na^Rb}MNP1PpZY;U zzB7lzIfmHpg<7#Qq>E$E($)lE&$kz0Zx5a#?f|B9KwAmK7488Ds6OJ&HD&6G+V zQ-@^HqTp#Je-=lhrpy^+aolH_Wn#?ZK$CGIp<7^zHeLjFpr-QuOqb7{U`8`NaxitS zh`WuWlw44-%}dIAzL!J9c=C*!P&P6A=%5^1gyjN3{cBDsd8+dUCWn~F{mj8Fck#Ve zM!)i4;ZC*qV5XFe_tz#B7n!hzq{8&pf!WU4?bzPvWO2sT?@IR1e5XIR%4n1JGywI9 z@*=;$L7w>LCj-1C(Ja53fZD>dMJ;QLgS&T75TM;CFQTkU-akW{06pDsHWgL?z+Gey za1F#RuZeGoqc<~v)ZD}x+sFzl0%jkrnhyV#SS8FvoR*}pggUA|8AptgUwj3RC7$LC z`9qEzy%K)c{yk&MMEv$HP*dqiiXm3#mt%ZSGh@+>(|U+g+{=-6R^ARJiv*F9ze1V4 zD7>W{Jr3=H(1tjO75FH`%L{U-V>WD8K17%jH7ZbNk{xuut$=_hmZkL^w4xh;WKzb* zr%d4)RhbUR6QTJf$Hj!A|L9764JBzVEVmZoNC?nhP31cisURwrAirST26UZa76T@-EEl%e{G8&;+ve45)CD^|}ERf`n5@8H4P z0&;9|QW=Hm$b{2!Qkr6zQZ|WJ&Qv8888{A`sJ#%WH>FAA}!K$~0kIc;RzQ zyX)Nk&pJyOmfq{0fXQ&NPFX{Z>`rbWEU{R?C{GfF{Uj>H2**_ikOZ8Yn#=f^pORl_ zF*rMysNrGmAO0Xe9*s2&clqoVOJFti-R-P429ysX)*MQ z3P~~W6NN#NWl>Yqg&D12_f+gC=s^>l3g!BCOn=yz#^ zEd1>aAzX=Mql1+T$d@eDup1ZKs@#=3QPr!ube?mmOube+R-xXBl1z7INTa!}_NYY1 zRhrDq%!t>kBITTNuZ-TRkuX!^n<>3ZVRP?Lqe&+jiV*iIr(j5P#+|3rV!%lJ+pCy{ z)`fOkrt96v^And+e%G~R(1=xGh2k{m} zA9nOx8t3=y|F9xaLDWi{$3HcCl2$TlY zvDsp0jt7lNGFRD_x|D3e*QmOmvDw(^?K(o>(Fhr{z)t4^Uqejzl)^vx2CnEji5xE?-yD4z>FJR;iGl_yXIh87@$V9BCkX#T-%TGa(_sNGqnV4sIo^d6q zHYH@bdpfF(5b!R07r%j`e}w-ckrZY~5hrtyp&?OIl*5x7)cT`jv%_pq;mA*?zyVql zIvBXM!{%~^=Z0DdL6MG?5BUmlW4x~-M)NsjxkYu7XyrL>yGt>HvB7ebZ%t0lDSo8- z3NJn!Pf?&$oToqCIAU7><7_wGzN>~Ky2TfK1rK~QU0%M{W~kSva6yHnaIm45tAE0^ zp3=lB$2Eq@?&a8INW>vv5#@@6e}w^%EgF~}GH45XD5773oWxAwa-f#-L3*V?Lx+?t z$s{0%8;s86R#oki9&5lAGr;@vYh7j!jP!b|pQ=35bL7SaSgB!W&0byaf^6vjdA*+v zEm$wRmtN|-^Mjagka23C@QEq^+t|u>+ZNEdH!yiG|DHQ4Iy1=fOKZ5gLaA6 zydAiUNv-_cKjLJ&Ib2^w^ZNtvB8p#N*NVlO|GxbD;TxCQU>MFuei3VheuPnSZBfQGoUu4TG9KYv7=PPmwABU!*3oVn<`I1K-r2R#_x;>i%;RQ z(gs>dB5SkKuxRklagfIrsrP-u>=#3!O2juVh28)DEAIIXC{kTwFX@WvaxYqJel8Iq%Afen8ZkTJ%m!o~T4ZqEinrxtDj7gxeu7YVer%w5X2{Jt(Hqy&;?cZUsLshYgN22bt(YC< z{B$un2nh!%aR^xnyueDYTZGBiFVS&TE)*@tQK_7INj(aGmg1bWqt+qw@zl=fe-WG__q=m z8q+LY{CgEruuM!HIP+hv+qWZO`hYF^{Bj?nETWF}^AxGmQHDR~(d%5BC~J#7c~c~A zsF99{*2;rc4ao`QxHQgE`r-(_|P1e>>E6iimBzQ)V?`00}b)8rYW=q{ZI@8`e zWAxvnYF=4OQJSqOOwsFGok9Csyg2FzGXATdI=zE(CJ3j+09>1NID7r{xn8q4TcW!7 z`Jns;o{z&9@P{Syh*pk4WcLzroWNjIakH+3vlmgfa^_NcO$)>LlSKa{M<6Z0OB^f3 zLkrK((QldI30f-O<+F49V+dC9<};I!l!l_zJ zc*(A~qrXQ2wd1|nxPD4G@l{BP@5DnnU3>_S#G^@f;-$qbQX(_`iN&anEvo~0>9@%+ zO7%MN;DYsAh}qGNyJCWua>eK>Y83I7A>+TG4!y>5Zh;*??7rdFUHp{)^yeadhTF~w zUcVMOb*;>s9NsP%P#p;CI;}et_ZYTA*(|*+TeMQGNMHpFz!pSqW#Cm6rg6fc^9$R` zH_Of)vJQ{#o_)$kKiFO8Ny>Z8YG1+bq2#SuxbU?GR-II9$s3mCjS9HI`h8(;s73iT zGe#x!|Ah%*d0QW$&vU|}Hr~E9y5U6fO&?egPlkSraE0iTW{kmTvIe>o;=YfY4g!4a zw$GXG5;~FHE4WMej)I23;uuTN1$g($usMU|CAY=&-kp!frBrxpfCrW`-gTqx`^idn zfD~4hx~HEVb$}PIB=iT%J6`4*g+%M51soR!L!gvPe^k`C3_O>tvc37&c?X^N_x5m9 zB*V|a#NyWRU>u5)08)aKFQ~<69C&AewQm)2qgvGf7LLFkfV0h7bZjjeEU}|Nt|uQ{ zh7y;?90yX2g*vzZ2a6HTs8O0&{EmuZHFk|;IGq1tLOlK`HD5#&tl+Hk0s^pB01-!? zb_H17z}AmwIhyFTaSXSiB4od0jwE0q8xi8lC^6FUT2I4bba;cPp&>)qnF8aUq@p!q z)#aqJ$9CW}sw=VCIOW~b^`Gb1bCtzC+mXDx>f&ah;B}>v3AV`7*D)zp-m8AJqhy}^ z`TV??fm*eYf$D8L{RCw-4S0Nsu$eCGf*^i>otw`%8(+mri7SA2mWJ}!*7+1Ib92v1P z|0UVq{RUSzfOSmD5Fj?xSO1gyd}(KqRSpvs0L4Ih9~l|`qm*8_aBLgS!6r>`vCKr@ zoIJ8o*`w+wG&anhq??FkN^S*S`J)a5>M0I;K4sui@-n_-#}zpzP7D~}1F_aO1EgyN z;unS+NT(RC8?429pMGS;bc% zxRA`!6m`X3X;v}YEgw*@tygU+Y>{^|HF85Kg<5{)!+f_zbRw!AyZWVr#cEB<<`z`2 z5gc_+7g+@%rxbMWH)_S+;o_|rNGm<=X4}WyG0)ud@@Ts1Sa9pKqP#^Ok-b~4DvpnG z5nEt}B=RaG4~DVye8Zm17dWvnAf3ICX?2R}h>@BLKmH%hHJ92*fO-vQ#;qax`L@NM z5wm_rjXVT|vnnCRV^k?EU?E$LneUvC_@RwbfH5RWfoOSADA05Ltc6dTJ85S^Ok=i$)Oc!4?~yV{5ISj z^m4ApHI*C{U=Q`IVA9{^k+d%A*~QpZ&XLzLuG7tbo60%FnY+*<+>^(CsyUp|_o-RA zD$)0@(P^xyf619jxhBN@`9?Y(y|NNib9l=4<(*(pJ7_M_?2_2!OMd0V@15An*u^!u~Icq`KUN#5;0okR>i?h5hw`TovQ`j;OYIAQkw# zE(kGdtk;$0d)G5u1!&1l@{-YEo~(#!js9r+#DYBU7Wn>>qr!jQ9EQ1oynGq4Lu_ZN z|HMXxc?berMnN@2Ka68Te2>{-6Fv*2)n}v3I^d1;({i<#-Jx_FTh7GrHrO$nA(yOjGl+EOa0Ag~Bf%$e z!4nKTQTCaZ6eG9mc)J@weu}KW>9T8r&KZKN=s<=W_>6P^mL?Rl zD~gwg^Y?1rd^8@_i?*h=IZ`+HFa{r4`VlOlPd_K>*FcrueMn}7(_;y(%t?W*i1O|~5cbn z{`E_WQMUo&mMV_V8atgJus_9S$9_|?jpVHn>K8&4<^2JR69P*;c^ADpb>83;ILc$V zKR$Kd?5S|0VscZQ5D)ZuYZln-5X18DX2ZCMFT+goLdudYBdQ7~zOc6nT%b~{u&= zWdb*97}I?(=(?=?iF?3D9plh5Q=xvu6MI z*;q4m?7QCK;(-zQYlnzI*NUM0_a?>QaYDey@SIxx<(pR;=KXTc>U;J@9wir|&kL|6 z?eQj;Nh3Gn+UHZkP6oxu2PT+wv4EVTl=RiPeX{#awJ)4>JNn+rbV;ZNQex75E2 zI24qf5$-^=ot&X1u85mKPpfd_hC;qmqkH6;Jp3`glA(=9UG%4xt(nTJ_etW|P{jN_ z4pg4RI#J0TO-N?2(oFggsk)F&hbJil@Q&Lv9_ZxN_bMJ}Sbm0&4W3BrX_1*m9_XfP zLPfDe!B%*HIlg(ZL|#Z|GyLGhm9>8}3pDRS!9=<+d=CV>&lK^+B($+gWo(mRBRl|{ z#BOGXuO6PX_6-^%RX8>4n}_7yo`E&BLLo>{sNG899=>qH`e4khpUY4H!NMpnKNJOC zreNl~q+dT<5@h@Lv*zt-B6FiQc!kB1_;13}U)x`HB#Be+-p=ZFvm$09Yl_K^@fYM# zq|GYPAIj@t47H2cr#)fReaRxyEPt+%GTF_MI6m%~E;u1~jUjg%Aup~h;vLOnoTkK6 z#&>w<^#w*X31&y#=`bh8-$&z|dtcL?6e0Y1*p1qvgWI#Mmz8_~}fX24AQxw1;xX9#4x3o-0~VcQY)M)w7n@!vhu=>ZTG!`PY2 zTOZn#ysl3R8Om;%>cW`=7P_`zoi1fR+GZ!*CRvxVA4Kh5j*EG8HW&s|l0EKhI9N@M zS))=F3H83_fmW$rs|!GKC2VKCfCe{79ClxNkPO9a4bnzP{8LN_(gH!Ou5{@^mWnf1 zX<@%Y0lbFAq=e+Mrv)}yudBc?)g4@}$>^HhdhtiS=#@l>1hXgxkHP@dku}zApPJVB z=RVajt(Q-6)!SO)FN`Da(}h5~{M=Q4b3!+!TnO}%%RpwsNu)3bBzg2|`0L@qUj0MeYv=H52Y=NB}t%- z8?wE*JH+Wa`cK8E6?}A9AiAB=q;fL3c#@(y!g1xysqH(+;YX2NA+kCXvps9zMg|BS zTc|W6hnLbuGkdPlfhh05eBdkkT}}kfdpD+*~FGTG|q=` zL|sJS<`MFC&kXN~&BxxRZ`3v@q4x6jZNG9i#vQQS%)SJ{F0cjB$p;0QLR9 z7_a#@w{rRbw*Hgfvcph1_2k@?V3b~yYv5ULFF&1{@8K4As&EtmluP#57xB6c0hCgI z(X|Roc5ouPkS$viUb4JwZ29*d7i0>hfbF^Ka_UgZmdJ17Oh&K!3c5jSds*R zJ?V}!2UZNL1?fDSi1w~OkYI|M!a%7K+L4!(&b?)$a4pGFokk^bne!>wM~cfxkp^Jt zn&1jyo+~S?HBSZ#1qR2k>1m!ZK3p*g7QX3IxC1^hy!jV+j_K)`cJ*{5N&0K<(VV}( z4Lwenl6$o>>R+^!GbtG}3=J4YX(=NTaP%1otu`Ro$bG7v1v%9;Z!EHu4jvX8Cb;GD zBqp;`6eRX*q!JP(JobBkFIJLa6eKD;Xq0nDEKjB}IC0ra;A$AM6ydzgNYpRKESGh} zyW4cgpW!WMuqf91j9)3%yMsj)?<3L>N# zuxN*BS20j~a96n1vGN(vDHa2D*j1Cs!y0UfEw5TsT+COVcqU~qOk{jga(h+Ba6;2X zc&XQTGNK%rjtMH6gsDW;d@TC>_xn|U*9znE2mKq=K51E5gPh0^aLn$xM&saDu9`v; zS@jQ$WXp$swrC5>>-)7b-VvD|O%X_2LqsS5=}`+8vB;j)X7c7YIoWw zMN*hafoUir;e_zh$41aD!j=MlhskAuo&$B&^bvr@fQ;BQE1Y3WL14^%L002==xA`u zdr?b!Lpdqch1_r8B&c=OqIlwnnwiewSTGT&lGAK>_L1hX!}G88%U)^OFhIb&wN2H@ ziMdTxWYp&mb~p0tdLfrgn<^ofo|WbM6}84HYE@N9H3ULh3?-a{ipr|cAC*9KUp;ws z_<(9^FQMgS>}&$J{QJ{+NzU^Y)e0H??NX~$l}3!XcyK^c^tizU9Mx!P!&#pMF~$(uGrw%6P=Q+$vHKE}yg?cOMh9CB7EA{li%_yB%c8abQin<8bhtto zjV)T&7!S2u3%XFMZj8vb>NjyX8EG^3N!N;ZYdCiLwta7GIwwmll;cRSyebuBzf|~8 zjkCr(x^)TU(SwoHq#GsH2j8xevd4aIMF~2l%FQr2(EF1ZqNbs#g}>?7XjU9=8nHZ?stI;+keS&*bEm=f*7NWN0be+tk(_vBUlfzGsNfx#kgZQZNw34v zlR?3};CTvaVPq~=o(+$3l^_TK=Yx4{8$9ZdJQcGC59LhyX$sT1X@e#=N{N|JvH#ju67rO? za3oo;d=9m`u=~ioZBRz}AM^%$2VYz}J3fPskZ@t%dvpT6H<LQ7PZ z96?5%(~}b&rU@Y~1d2m(lpj zTTv?h+54?C)L5TnGQQ0DVXj4L0Du~36gpp2IF+A*47FB`VUYJ@1>V3?2^xRisQo2= z-oTR80XJV9B88f-qRj#lN;C^4U^e59Ot-&&wlvC{x@?*%e>f$yXf@HKCK(?YclSDY zYf~YsMdTUd0S=<9yTIuJ4eV%-rkD#82@)SSO*eC`!+~KHj9~u8|azBnNNwL zepf-peQzTV#feL?;5+U6tk_@irj?2Cjr=#QQpK=;7=6 z>5Q?U_$u>1WK!|mHP(uA-? zds;yIlvuiOx^;-&aSrV`R!VBLSBvyyDSdyty|AKwIiMzVe{01Y`ZjL8j&%Q%xwo_$ z+D2v19a&f+XyzGf1jMd)XH4RRf8>~Nn#%nW(<1l%ordr$w2o9#0KVP*XPC3OK?E(7 zkB{|d>$)VTUp$tlHB2}AJJ1Kq^aKCj9XCQmyS{l~4hb&o(t+I=_$&LjK^d!~EZLD^ z@}n&r%K{%_zy>3;Z@egdC`mjH{w|sjAJJvTQsCGV2o-jYfAI97!OvB;FkEtM&{7wY zCXePo6jK0_W4RDARIam#cX|`!tkC-1OYx!`Z*lFWp-mpTdpiPKaRRY|m?{nahp}@A z?yQTpcx>CYopfycW81cE+qP|XY}-l4w$X9=xmxR)* z2yxzBl8L3L1StibK{ji)b?qXJup>&I*^u8M240e5Q&KH#K^Wx7HTS?>iKwkfrpLme z0-gfJW9tRA34eHc9xPi9WF#yBcC{O1$YSuaCgzYV+~3QU(!SdAd&s{df>>EKHMT`@ z02|a0VvZe5SMo*H2_geG*dmw$eyk`Ot+7iv4jJA%<$9q(b-=FmeaMVxsCnysnmuVUV*(W1ef2v@l?8Cg|P) zLtNrBl`$sIB6wvNqxopf3T$#);*ch8AvqYNN|mFVPpFIE6%`75Kp)(b4gt|miM7Q( zzDFg2ykZj6%8vHRF*R}TsbD#Dn({0H6pPid-Dz?L&o}-TpYi`K3c=$Z=^wDLP>a zntfTNhmnogh{wI8t#D-NWRa(tm!4*Y$z!83RsL#p3Jmipr3{Nk6p;iyqa1wV%rj4| zXuv+Iu~@w+1WclsguKg(9JC_%Q?6XKTcuU2l4H&?N-PcMf3H5TN!}%rO%;e8Bi?8# zz86laT)dB$dr4Vo@z)Pa%4AX^mY~eQN-4f*+Mlv^eR1hrwwh1B{+N@3XLy7y`wKwD zv*r94f~|Z|ItW7guUkyoh-LJG;4MR}3QHAsdWLS71Am+{L(wdzAjy9i&v*9SpEAzs z{gq!3LLH|l)r*UnZkE4-Zt%s;ycJP+Jqy+-M@elg_Z|2d2)~oiLL@caM2rG1;h*W%2a+u z#Uh51C6a|CG`N<~>{hy1ZmNpfFbS>X6&2N?#|2?^oe?T#E)CXdk*9+cV$XBqz;`N2 z%RXi3?VM0Z_S%x2C_34)Ryhj_R7ONvJ+y67H}ztc&2G{|IA^~n|MOm=7$At)wFyVM}I z!PZ^nE@Ap6vVGT*?{9mH5IT`5FCiB~XMn(ZWZ^1Cd8aydPADdUo550El7Aszdtm++ z(&@`RSbwwK2#6)G?RgsBUF!nP)mr#jvfzqZ)X*q8u+h7rmXqLJp+5 zB-J8^G=Q7IMn->PEQRE6w~2`jWvKrghy`PLK3@0mkW>|A zAO)!en886Do4KH3Y2bR-edJ6%-+bJ=TkIfHNxi+?>?kf*f*R_e-(KzPyI#EFy53eC zeE479;Gb8++}_}C3e|a!G5ObRo6d^9#5Kkf_HV5982fbJXjA>We-2r5>;f_xT#3$r z*!w44zBaK3t$Kbp{)L~o3$=H(z@VmO*ftg05GSJn3 z{qJu-tty$NPda+lf~1Rm8dRk9?Rw{HtmrQZv<{6TR4WUw4hC z|1w3_;Y*vU%V}fnrP^{;_EOc|jCVxT`f2xZtNWe*TefAcTzbf1{DNfYO|d15YNPzJ z5++{3XvnML+-j!{KSp386Ux2-nt~i%2pZNnr|!tqe5h0Ws#K;JIgQDSYPe>PU}FGh zH7vitJ9bcI0%yKRA5fvtD#_ep3YkI0`_4EbOvo+SQ^;ssMkC|255PcvZcNXWXV8;tv@~nky*v1A(k!+O z<8^lW_fS#`%(MU;zn6=2Epm*}ouWba)JJa-uReR?Rczl7pF{tks-@iZQo{V3Shqqc zoAImDbcFtpc!?J)Go;BPVU7#EIEkjY7ekcacQ5CE2&%(t4H(!4XXGynKyK?Smwb3dq{7qKAl&z;D}5fjkWG5Qssq}eD2)2 zeLVYknXbH?J)^iJ~%^8IRO?Oz7VgqYwHl-jg&HvpL zz+K)Y#nY7Bq@={N;W*|CMWbQdFsRm&p*BOSE1*Vq%cs~KvvP5BMdpjBo3A$5*5ZvJ zvNN5{e?3j+>D5|PzYDB~#+HCteZx$DA*rEUv9?7}6kV#Jp?H-$?Xp6F+f^&E;&gSG zVzH1T5L0^OOchi6=dX}wdBl~2Y9r<}O|McJ;F{Rm8a@dTE+8j0r*>#=16Ny$EG+gS zE~H9rk@i)nISTFI0@d(=bx7L0MYsufi6IA*0bnpHmyWoqTzM31gDRVj)(UsvPw8^2>^WS& zco|-htMhAn#fyQ>ctE+wm@1##Ay3VOnc}k3C)OiK?H-!yvo|c+`q<}5nQkw@e(7)# zBavI}J6=ie4g0kBlUN-Kip zAf<}p@$@7OFop`CtRr9>{%^v06|j!sKreJOR@(G0rv+@3<5$T;JVd@UG|iZGC7H#D-#3S55PdsFnR(4o=l+v8yQdkZIS0H5qt)kFpy_?>vt|HP`Sw5FSY`C)tD@TuRXc1OG z66;>QM;fShfb{6<_^~`)48KmQo>VdEl~{`qKUXGi=M0}WS)ID-GK5b-+^h%yhH`#I zp~Yk^2he(eAOv%1Z2wriyyI43?H(FU;uk9AtTldZDV9Jb4o~8W#+f{*PE*U}iiN=$xJBWaVpvB^`$Mthsw4Mn#tC|1 ztI8#6Xu0{Rq0hI$pqGOasKIqX;rOkq#U{O^OMWSO`=! z3DS^*929!z7yq6yx2H4d<|%YSFI+-1L%=Y9+r+iO{Wc3SwooUG*f@cyp-1RjhWsyF zGHGBF6t-t$VAv8BGIrU^>1a>d1kLwTA8{&PdSxVwsRNmTqehR+pvseO5@iLmifdW4 zr(hd=2lL8mR3SY*0-??j!o8~Cz-qZrqm^~bkrqo5<)$4X84NW7IoOGG(NX(@pd#jN{gdLEZYJEIdl zc~kW%CaZ;-p5Q?pMyQ8+nSfWO00)~6A}HT^iHs1)rO!~1$i8uj1Vcjn04tW6&L(6q z?Ah;0v1Z_qC31Af6QRKp<>>^-V;OElD-Rfv@|jZ;1c0Q*AsZZmm;Ab%nnzEzN{AFl z+4vO7fa;!!r=L0`{G}WZF@RQOectXyJQbh!MSHCD*fITZDXRqx??By|Sd$~4NjXcl z_oxMCK5>Bz*m0oB)u;k+|FpzE(TwRAwJmdh6-qUtCtR-%BlcT@%rdJ3ZBDHU4gUjy zEHk;(WAtc7lbeTWy%R+C_ShK$1>VmziZa5%O~F+<#YQZ5{|~WjI}Nx6&C1C-XE}SW zwW-I(c6d-hw!&RKm94Vf+#(cZ^JHRirf5(wzB*B-?-h0+n$kX&p*dzw24VKqITW?| zw%NvNJA;o^jXs?uldW5}7SKBZna8ov8g@eWHYjbn#b`OcY_2YIX^8aGO;&Sc80Tpp+vEmW}c1 zSi(Qdfbuirw|(^1*zd$d14TWgOf%x_9mOY@x2hpxFUVwGcOO?oq*F5ztc{DDa_FKn_pGVB6%izA&}Lsx^43 zHIS6?+EbmS`OJ;QO1|!lR-qK;TeLDo? zcR4Yuza(kXv{3oburASuq@j&TWes$mD#d>Okd`4s(isH~be%+NI}D+LV>BDv!6Abl znN5)?gS3T31!w0^Cz}b05Eo+aRYB}U;`e!J#i6*pqq|cHUfH2mc!@R*-FTu zgxneu!}EN&2vu7oC$mqpo0F`KQjav^xc0wgAR~nwvi|a__Jo=?MF)r>;EI0Sj=G*; zCnrU2f+9+^arO!B!pXQ~{wq#jR)Y`3>PK1btv_!!AeV9A7&GrZNK= zErG-yL5y%kTm;H!#g2JQ={j8{@@&K7Gizf_am*bYgQ^p)*8bVGH_IjR^1Q!KHsTwJ z=(O4RV!<<9_9g*suw4I0Nc5GC{P;tP=u43`wVc0@D4brGFO=~o)pkCm`|eAaEQ7sv zJ>FNdtYZ$cE=ghpEM1>l?>Y~!jgdn{yDeTdv9(joOcb$L3>KM=jJz1DI~bHoy;m-m zt*#7aTygYDUDh<5`2=pGeM>_M6vZ2>k2miVoee|xu0@e@w#D9s2mc&Zy+d}JG z-bWs#Suj+9i72k8L>nh$?-@Hey9xSpXDpY9b>tNCstJbX!NEt4AC^E9B&>=Yhlga8 z+{;bJtGZE#)X2<_`KT@H{CrP9!QOgC)U1UuJ~fn--Jncv>|c3EB1vbnPHGAZOPf z+i-^C5+9oPbrVlJ4?cnWE&_|cj7Tsc*WjP|TNX~FgE{#R17&PT1Siq;N zRf)l_fJB98?)6Peqmu4lJel+l)oisTo=vh4hhm!~{9t zx-zf?PBFC96~V$?K!G2jqyJOKK`u>frUGyDJ_j`|D07~A++aRhl?zn(MC5uRb`|rB zF&u?1I4xz1qV#5aeseEUwS+$mcdxUj{09m_%BjN6sr>nLpE`Ae;QNlHp#z?v0evo7 z$p)0d>0m4QDmLl!LbQ)by`7k7qLCcvXTqlh!4+CXf>%EsXF~vyNYsBIR0BTv>VPEn z@^3Q#E7G!bVzlOUHQ*gcrUJkqviqHo=6a^EtDLr#8rJn^9quxaFY}A)^2O8w)717c z{X9(_tobK``VFRFO1;4Kl5S+<7jb|JZ*RgEH+;^Mgqz__GQ+uRt42tT)_2VYOmZa0 zpnfxcmta*yVls@54vg4D)LT9N7B&-Y$yAZlz)3wN)w)J~>yLW3#9GCpH)TtOBJ$37 z!496@VDQcmP?E5B^4&;oE~za6@>mO4Yg3*dv_TCDLR}FzzRWG4*-rLEHX3+afFQU-)P;NiSp;YT0)7^WmTpw&YE!0v;bb()578uyT-KAnARW`a%u6ORK*D}OglBL6@p@cP1!kTD6_ZtZhzaOiuwx6h1h4ge5)LZ==j8~Nu)kbT`l}}N9m!QJSfAi89 z&yO78DD&pTrw$|Gtq!)wZ0UwXsRj;`2MN2ahRc>6>^Bnrm_ zKMX28)Os`G8#gF3nASznr65%U!Z$ylsQipB_|#}E4>d}$nAdTrh$sw@aku#gfIoyO3L@cV2#(4(xE?}5s{SPsS6 z9~1sDHB9#;+xg8k@O19x!YU6+=Owdk$(%<=oPMTQeI(Gm5H2A%mkjQ=33yFlu++xy zap=?`-+v zU<}1aH^)e*fZX3N8kGS+MYBG+OL<2A z%1*V#_EpA>LLE|nGw(4G6gh!LJid8_)^q4X6M5a&$NxiI$ZHJ$KX_W~|8JfaGc(u! z=4tgz*j-H~(Q~b-54Qthu7d}E27#fB3z;J9K;rGKhy~FU?2!5Q2`{v3H&1V^hm`on z{f+RR$QAN3H=DvK``eS9b=jwEwexY~7usm(VRY@$#r^dhwnyvMWg$1?y+jq^nno4+ z6BT2Tp|C6UZ=6>P>2kC8_rvpKm-X4s%YFXC36j?qm&i*mwlA;X_Zoo#UqT4=i5Dw+&o&&ouIOjG^Kb$CDop_unFs`T5|65r+i&yj?322VC z9}&~J1mwK$k=cDTI0-F*K@F!hH#=~Q>@RDa!JF-HDZVbq#@tMaL&sb2KxWA;hYS@F z+^QG)v5=gTk1Qg_SFB@1h&1Y^LLYmMy5lFJY*fLcr+KRF8xEISSe)5n_(XFGN_pBb zSi!3nvX8s_ga07nz58XorVHj3Hl)8!f4AQC?S9|>{&!oe8V>nG$iQ4G_0Qk*%zIzj z>T^$jd%t~J8`Cy^`4aet_*%V5dj2SLv)458A;)&d%%QeI%YO3kdVXB>m$^+xQ`zNJ zbxyAH%IuHrJ^)Jau}LrEHO>aC@&0&KtJ!m46!H{`-{D=3-9`cyC0o771mA3c4w>dP zvSl_Rg~a869V>nJXf~ek>nDYah7ni+?pWQ#mmE;&*+SIzYB^M?_&XctsVgu{h1JlP zb>k$qfW4vQlt9o335O4g!{jgg8CiBpy2Gwp3(*25n+jza*F6ijOcilJlwXS+NAB*J zeB={*6SQtEs@%mSh8zIt8dDAc^Jma9+326uK3al$nFGj%p#~RlEC*eVjps9M4$i|n zuvCjOmlX38%03zS!WuN?yhFSL%y_l_z6!Ej`peYwpN$hX_uEI$E{6y51jkn4elB&T zez=FHCuR|0GKUlj0|chDM0WfXkK$>4`I#>eTC-F`OvjULZ~bBZQiZqkXo_1ZEvUk1 zUP369VpHG{%Re!lEj1xvzlua#$ChD~%GmHAU3p}t04Y(kO+Y~O*}R|);?rgd(HhEG zHz~Oxd}YHmB`Jr)bRM=5wMJ&@Xa1&3AH#J6)7)fsxmnl4$URI7xpV|%cJ1Z$P6R?{ zTviy_+XRTPlGzv;VA<=rK#0~Wp8AXZ^DDNiys_>1nfG~IGT8N20|Go4eG zSvQxK>otaw&BlgA_{#C10s?dP8{0sq<*n)dsD?*@YOynH-M`gyFBkJqE?@nWK+|W8 zN#}|~33d7zQ{e0sI|9|XxHKTtd3-V2)H|j4(7>eJ=~v>g?x&pDXRkjxw%HHbIQxS` zv`g5g=LxDo#wp1ry2GS4JqEp$4=_5d8vP&MdKI!20Lv3Gnu3$h0eHBAwZ<9?-mq$M z+{2LMNL&F-JNTkBul~njVu~7poih!vi`gtW0b21)b+7YfrbzfP*)A=XWLF_o^_AZC z4Hb>NLbQ$rTkyn$nGSeMu4mcy;_C(FFNQMH< z8P(C7?Oce_nF--C2hQ{JtO2wnUCDjJ2eU3A3CXZ?t?XmZ>RK~Hl1*Z{V^ezHP3Qq4 z%1bCU*o1?;Nw=o08y1gpGj@IkHJJ5klBH+$#tok;wo`dw%Z>AENe1^65TB&mGAeb8 zC)5neFltnZjjm$ugT{HoZCD;;ZoAU)?7-Gq<{tWCGhp}?Ib+zog2MuwG~-&}RYmbi zrfl-QBz?_0DQtR_XXY@$Ef%?m2AN|vm3a()DcJ)U{t5U;X#~%wP)EOOD#nMOVY?Wc z1EM`1DfEN>$J`S1;lR_FYV3b)s0#C?!9Kr0DnW(D6Juy>F@@(r6cD39*IMmn!L65VU&M#^#G1T_6Mz<_~%vu_+i@@ z^M^i`VEteXQUUtTKvdq%8^leG5is2g>?bG5*}BhLv7>%%NsLXN#Ri;T(+#v&nzRvD z2?QLCyMFwqOk!2R&qK~A-Ius$YhqFY2VzB`%4Z^KHvc$YaE86+8GuiA{^~UVMFkI& z1a@pP&l`BD6}F(gA$TVn#tvA1>p8E_T6)4BXd3GSi;FvkPe?{fx=9p;RuJSUEfAUo zH;FxGX`jtCId;y)6IWYpfPgjv;Ds^OsT1!cE~fo(tGiACL>B*cke)nQBb>%E(F9=4 zU&9B4s=2|7$$h>IQEvqRM&!WFsyWJUd@qkt=^yeg`HIWGxmwTJ>lO<`zS7{~23WHj zPDKS>!nKz?hyH#3{(bXwYd>?|x4QxNJ+^s0TK>;7`{aD0ALHd=Y;)`B_6t347EEvF zo0b>T*?Cv>dZx6G(!!zil1=D5serS!f|8yEw^213B+#pb&X`And1AsOU2$oCh1=<; z!#EP#fQ^`IpHmFvTjobYFA=g0nlgG|jc!#r5>|o}T#`chOD>z`LRj|trgyU_%W(KmIA3#W>Tjd^ZJKO8K*FdigyF6t94}V#i(H zVKZJbGc)_IX)A3p+^R@=_{yXjoYgqZU=3 zCc-`614goj{eXJwMV;4I&!>rJ4(jCwc0AK$boZ@jJdthj`^hr3=_oOu=1mBE&xH@X z2t+L;Cp;(9CXhhIOn#v?035+DD*o^Q)z*}!Liz@#ZHrPV`dv{+8H2ck4DblQ3>%%g&FBFb>f%{`S2s zz3}_`lA;!U`<2-%P(2^6Il?D%bf(ohvT<{c)j2)q+U_0wtcwkL+{Ct2p^Hn_0hWHW z+j6@MpL=?OZg&B8p8qXeD2HA_rx&0E73$bDkHYv34W5`)oJ8*@h)Dhm) z1)~nI>(_mH+bU4 zFREkE|tB6u5cEvUsItnjj7<920JeA?)2e^OR(B%ZqB0g+$Vp*&VLUx^%@|n zVW2h<1ZUYL9u_02H?1Ui_!wJA8g$XP^q5;#765AXC+;FIOH&7^+F>|E)?Ig>!_b@L zImpJC1$(?gU%E0TiSmxLd9n^WFsaq3Jn4oV0tKHH0#p+Nc05FPCxJ;zgM%T~Jcry= zoW(x>lw5Q1sC{|jH?-M~SyTdkD=>e8MZ*f4c09?jWm^E^Q)DmPiEcLXl4;wfP};2w zz6mqsT8TbMD6bZ^Os$8_R35MPPnGjzafM-n>({?2)eyido53W5Tedw{tnkKr=^gX0-6$N*Dn9}Slv6B;4Qzh$F)On!*!7VFvrc>UNF{~ou{&^_K8$_ zn;yqY_nCkc4q}{?!>RZJlLgY$z4Tp-`A^S05b^ZQO^GfgT{o%%@+U3-gW$P_F4C@^tFp}IDV$q8opY(Wtv zesBfIW@RThqYdFNR!p6BVI?>YNGLY=p%?rThUw;NpP0TjZF&8`yBXSg0eICgvz(W( zjpVewB@~fnjZ{YX1=>APTNyAP!rx@1a}=?Jx}H%tmNf-)TYdc&+q_h5l_M}TA>ae; zJLi7@Ty={}-@3NfZ5`UE&UfxQ)dA@HdY})bDm6p5 zmxLzrP~Ar9z?w3ua#RA&03sK5H7p%yXz_YBI6+23f1#~Y#*b<}k}s;ioPtoh!VzIXZqAxR*hZpl<|Ne_JccCZLz>_^9?(j{fsSaV zwJ6O$0tQucFG^`=GkoKUEUp)TWAjN!bX3(S1qF@Fu)msL6J40f_OpU*UFK) zd;=jM=S$eze$pA^Glf!qN9L%dV=}Vh7A{wldCQrUS{Xx}JIX`l@p40v=03)g#6*)- z4mu}3wHuu0LXq_~UpU|a$oK9u>U%;FBpSy8J1O9UOX#5+Pp-qvb_3$F8#ZwHw96o# zbD#RBjnR{|LW&(kKd}q@TTCFt#qn#W^=t#P0$Em;Q+?d^ja4&DIE!&E6Bm4~tc;fY z->Yv5?yAu%k@)LSmPtO){!KkgrKgA=v8%rW=cWN&rZEYmJMiX8sOFnLHey6~W7JGFOj{kndB}7TMMw`l->=VwA<;}8QSkfmnWr9L z%ZPdy2BrlFerp`EsAZ_6<+_xk%|CIDh*lMhQkf-mS{lQsSXP0gp^jT8#kAyuthhCJ z!&YpetHr@UXzbx=R>N)g(Aqv)p6^;IwlcnbE9pT_Wvhu|r|}&2Cpt;y4KQg~upZ;` z-hdCx&>Z`~3U|beRi>~RX7oY}KPJ*g2@$1Gl5i#mFGh;88zi)2%z@8eO#C+5n%jPS z_)vKRBhe_ayrq5QQ?fXm{ES#Ww;0Bs-*_`TrMZ!`KJ@~(twMWgo$MCQlnYn!Et@W0 z?rvZ~+^Yz(-vl8B7cheToJsX$)2FdoQabs{Sh!U<0jB6Gp3zr5QM}77-djt33-Gh2 zc?AB-yROE%&6K%)gAKCIIfK6n)v28hM|(k&bZ|m**UpTm;Hug*RE6N{A3L(^E#4!_Y_hd;2n;jylyC8CH#hzUF#Ts<@>z+$%gKBu5!l)CvYe`AF=Ji|&z1=!vH(-QKY_irf&!^y8W} zEeHiJP+64408F4DJXDo{NsyzAy-_EnVs6p_;Bff{Kx_h`)~Sdla-SikE0c^e54&Xck3!EabER{;JyActV0(SF#y7<_^_9F#C+^r)&t|$ydchI{ zP-Lq*PMGqk;E=-wo<;kq&BS{hJTtWPE@y@t=JL`KVY1ur$?)ruI*7%adHXQEVAuhz zei63oIH}oZPj_gnIB2kWO4fS>@;|=z2f6;Lvfa)g7mF`sJNxbBF;x=}5nzUI^>W>$ z6$f%cHbF#sfw}l{-LOaBYvZ+JBU-@j|BM_s{jI*^%ek0Vb7CyS{E|J3=>tpCO@I9> zynnNL5|Kqr2)7V0LkqeNB&6ByNdUBgVdUr$pVX{nU}g}st^p2Z?BB-Y~NGje&~ z%gjC=UwG02ohoFQ;4e4B5tQvV+Be z&n0>kBK-Hu^@$x{#wo(|L?mOoXBu*_3L1r2#%&k9;Sl1KjMV`0T#COXxx;^3J`#RS~c6ef$k+0&(< z=**LV9}Ycs>+w#JU0O`4c{dbXx^yYNmTp~vUbVZT7(v8@A6SGILep3GAE~c?S3@}L z%Ex4eHnT)x*t#2p1>DBA`Z4WT0qBRBHXX>y$Huqv!rJ3FO+>77grD@*Bq)4#83Mi` zv7GF;$Iu)9%h#Ik3l#D{XpMDfkKf7TAPNpziJ}3?i;8wr>-{$iOgtJ&Bm`LGLyGb% z{Zz+!X3JngscTrnsH`wQ=;u6PV^Td$uyDN)p*Uj8XI2;}kD@?AZK}Xbe1!`VNpdtC z1B4i*ecOOfl#6`P3AL0)Ivu;SJL<}Q3;NSx8n2fsV{!&S_=ykJpQuD8JPvbciBqmh zRwr+9OYf5e(MTG=m$cd6NF@SanTA}YNG&TN^)@YXJ1oVvnqFr7s_Ff{bp(%?N65#Y zEGv)*PW1aA7Lde?2_PeFm|-p&s4)pEwt;m(ruIl0%ifux45hdJIfOnER`4*qu9lW? zk^S&VVb;DD{9)$6Q!(A(!y zqPy#s7;R9xXZbeB8+t65?`qNWe`h-qR@~#ou$WQkqnV7z{JO-r%piWQ6%>IHpn3>Z zV7?$C;NeaTmn^S>P-m0f{H{8ERZWX3KCK^g_h|8nSBbwmH_;f4T6E6Id|4$=z{_51 z^ej|`u#SGgW*-bW2Tj7vA+e6Ib`GH3mVm&>ID#-M^WvWQ^C)*icK$<9<_+dfwzMJ> zCKrNe?exl^wiBT?h$5x@3!}_ylDAprG0vNAK82zDNy7F89*7>1xr7ocRAjH%%A&$K zQo7PJh&Ja2$tufwk#(>*$RXosVQ8$p)!YS3MsKr(Mu>|mybQ`Y!bd+BCZ`sn0fgc^ z^-fTFUs~?oO3i<|SiEZ<6^zv`F!u}gz|KFn*=$$;^a}Rlo7;RzI=5N27)QK-RObFo zW>RfS&DFicdDU?O&?-$oFv4`3$njgls#r-O8J)SVS6McS9j%K-WSB@tx6crW8)rqd ziK7rua`4Xir=i#d1U&LxWl{pw(0-G3!)c#E#M9~gOut>0qXVwA{;2qb=A44Ph-v`% zNZ!N8Wm}|7(!g*RZZU-N5b8lS!?HB`{_8S!7I$R@vI9b7hpCXE&14|JS!ULF(Rtd& z$brHGCi|?~g~I{EW>xoe%CQoT<)l-Mj&>Mz( zA8F#kjM%t3>~z@SFXCf}cMbgn@aZnl1XvtP1Z;hQd5lPbquGkD)4m?pa({noxqn}) zW_JQNlN0CuJ7s>|jB!)0ax9+T_Z+G9=tw@EAN6-=@?TFT$D3yDePeE38kL6CO=M_p zD8RE3{jN-1-f!gPb}Ldx7AeiBhU0EbE=dV_PAI={W+`D7NAciQ(vAxG?!xPjEzraw ze-^-J(Mg8U95%|f>Wvr-g`PvN@4pwOjk>V+!bcp`U&&Fp6-LU%V;vW)fB?781{S1~ zg`rUh8MIkJDww*(-*P0Ng>0(ac!OM*IfnPKXjNp@Wa**ik8l@n%xxrZ!Sc_7FglQc4Q)^{$VqIR%h%kH2gZhZR@TS6PYk<`QC zsWdA5!^I>{rQqK08xcB+cvkVa4k+$)tPnmeufcrt@D(KtbYyN8f;TlardSEI@U856 z{ruVq8|*3F0XjkzulMZ;6rAOUchZofhixj`QCy!%6sL0Gp@(ui@JpA2j^0K*l=wax z$LKay`zr8b^rtl;a{CTCR{}ctanWee0Is@{T)E9b$06cYeZn|gb*3<3Jl;vDtzN;5 zP7>nqPfOvj-?|gk_T^6YaLHXh7p?y;|8aly@lZnxx|8#JS`~2pR<<(;@qSAIEB!SZ zCJ%N>4QR)?cTGVJpEkCWDvLtFacZO!OnD6%4V_;8EXn1k+M4@X>T}2)Fw4oOsdx)_ zD&}onICl3WWL)!p^5;zs{OmcO%76>4HD>XuJpN+A?)%AAl8q%ey_N}^)3PyOVdA@= zGGVjX^Q_Fp83`DNq*Z^oPX}&#DyR_Npi0ZUwW+CRP)T{67g8vdScS~-*kp$ z_PuZC)nr&0TU$~oNfW}ue9CB?#Hy>X#wJ@^oUv@kXql0{AbqK!BT_tmcB3?O{`!m5 zU$nVAf>NK8kH)l1uBrS)I((=fZcCXZ#>BdPZ-C%K1mUJkSzqcH5}TgJu7*VuoUqx( zfMVeUu;i0!@}-aluDqTb>|vG5CvC2wK?pM_!z1zWdfIL&n_>M=Do$?1zVzPWZ*!3x3X;JYL`Y)yo zfO;86ZiNXmOC?g4#ma$(*@7S20F2o>+&Yws9_b2AIh9Q=GCL`Eq0zDvALdCGReh=Q zxJ0g+qKuWtxWtixu>5$uJ-3o7*Z`!cGQH10gp1%p8v?~w11+d56;sQ~>C$^z<>bSUI~<6R*11o>ID1aaGniZ_YMUyxA6kvc;r zsMR>=yq0KVA~+E2!3Mw08pZ?v_~G!<#L{gG7?}BMmBR5w+KD-M#4uG?aL2fB7Tf$F-LBbi z*%zNZLi=$$HFL86actI?ogF)x_Qho9hBlP+&9OzNhT5B${bf0Q<d}(ZB{J?!bsRfRYyV6jzZIzOmuU#CWHF0kBjZp%S zR>HXdJvUJ=-WI@RLz^guJC$MKI^RU0uJ@&X)WaNuYfubzR!0FQS$482;{Z&B>AX|0(n%tzNx3ltfzlMU%?eHpgSlaMVscf@E;SW? z#o=JKXh=g-Ay`{ndHW+scvtCBo>t>e&EtxOrabDWks62K@{jjYVwuFzAB;Xb(J|q_ zwz@z-ni$NC`eIYXdHO<=rbw`1%!S4ak7Mp-z+4=%g)0)+w zeykAt3?fdpfYv=uxcMd_^uxttxbzc6jh5|tqaXfj0WZltbf_&c_CfBRy8~cH82dg4 zP7#6yQ-MC4BpqPts|dV8yMC-rBT&0ei~X$M#t*2mwSB%Y32{Vo@ZyJr93aViMw}^l zbsi%8qQ=iY)lPF=PAl|rv)iR)2~{SYFJ0Cg>%nENKQ=$lYA-^BVG(K8B4^c-ZDyII zY-OWlc?Fvu@)5*ellHGJ;(6|lyWHB2|FqlD8FMA^OZ$tyfBwCaXeP4Uj*ty6Bx5Dk zyRuLizKa6O0))@2Xi5|!Rb1-eMN}78)Ey*RmIDlRsbm9?1cz@1HWU$-rMk^}hJJo8 zs&64?B7=uAq+d4^BZ>NwDN$PD?VtH8Tu+x$HAk|Wc@c^tlhq)P5sruh@yt4(FkJ@^ zz0{O?(Fh5hjIrL!G5pRUI%~xw)b=}ATp~t=qsi?+k1Gp#d5oa{eTn zM#xn>Sr&|h0>1YdJ}>U-(b=6}kGROr`R9*r8>NrLF&Rn(hdIW zX(0i^^1Gp+uf*Fl|FTe{-kCZU-La6&RqZmWgTAS}7uuN?zOkKCW?*$($0prL}oqgDVw7C0h%WEAVpeguy7NE+>iitT?)+S)j5EKK#5mN?A|1aTSB&# zh7=2ua(-hhqbQ5&6ns9U7!-{{zmn~_aS94@Io@9}Dmh0^pjVOJd*#GH5rk@L z>koerS5hDvvm{bnsbSb)395y~qk`+;itKq!(ssAv^rq@x-O241I;CxC6> zDEQ}{_0WOiY8m&>;9q1biqUu?ZO(Ykd;DT{{ah$!%x0xuH$+eS6I)d;$|tkuZrB1I z@o+Yh&HRQnlN1;eP^E>NquITt!L)7Q(`GSDIUuAA`wKf_1}E9ZXd1E$@U3yReNc%>6#}YL-0FnYC)J!M|d#R4V!lTVV~wCmul}yIMGH9XT57`Th)CDzkYY z86`MY15&&g_gjFRTaj2O@Z_7=IgLKiEiue15lm^uFPf*^c<1X)rm(jw?cL+G)X|vZ z1HUjQyDXH4XTpady&s+O} zGjz+$YnI?wXKa_day2?g6y)wSCu2ei(Ck`Yks++r?j}Huae{LOMn1N-~p{8=- zo|$?d&HT(*NeC$J9j!7B8>Ji>IeOSqWw=aTeJm$CCxUOzU(`{CT=poiPS}v73*5Fw z!K&?vPz;qM@*ths^EgB*5KUGLQ~?(iMo6<{Y{!oiItAUklrpU+cr8$$4)vOpM2+BoiYB4|7zFRRij4TRK4q+Yp!Q9!xZ=-G#l}&6C^ui z&6TlT8X$bhR+~n=fpPxaBvjk~rOGsVPk4AxkBqp92NhHj(y-`GEiYgwxPhBj!Q>4> zitj!0A}#M!>H|LrSHPDi6mqT6zcs#9ZS5}?giQ(1=s}Z4DH?3I=8{5@=3WVbEtwY3 zi?JQMkeo@WPR}z}-b6&ljYd_8u%Ylt-0-xinvageA9?+)R65rGBcNNuMOC7NbP+6K za)5(|wC+s7ke`5=B*PnW6L2W>IKad0-m&6*+AE__8bomkPy2Ko2~(A*BooZ_Djy=V zu?y+N%y4X11aLdNdJ~?tqp_ z--v@tP86nq=S1n9c&Zx@iA>9gR*_@<&}2<~74!Bdj)0DMKDddf#7!h2DL?SHYAdiP zK#!jNcsb%0k@E=>uRb|RZ9uQos9C=^XK(JRcJ8m}ikhT6MLvF{uqG5R_umUA>Zl1| zRSlESRej-tiBJSxsJDQSK}ySuS)?>P-CS;Dq^gA{m|qIWB?ItEbkgexsR5_uk59fQ zD@VBDQ$bfQ8C~wb7UzUF-+s8h6Z0V?*Y)l4zp>CrC-#7UhhDB^#A&| zlLh(Eu0>~1{ye3A(B7GDMj z5ly|q((2rbO{CmtfC%DxNM5uyPU$l0zY(awU2Ph+|P-kW2;)S3$@^i2>PV zdTT2lb@6=Mp#N}Oj<@8CI#~676icjB3)vd49t-cH1fbl(XqQ#cCkBz64WlKSt@0=- zPfGCr)q;yN5da~7rB&YuUEeK`!3+BB^EL|0Yak7VlV;^{%5B<}qQ z)=4Y+b9P>BY5;G3XldgIr^q+{agnR!2|O{pPHPc@&9N6N6f0n`@T^h;qfWFh9-lgw z6tq+%ON*g?l#OzDszw8RWD-0wE~G)vf?e%`mozb#vSiM^w{BjU zz?57Ps+pW|)rW9T2kF;1hV3X*YSmhO2Hi>rI3>;|P0ln~{ZZ%2nI=3&Y2~8OP~kZ0 z`vSwG7n^g`87r6;gyCuX%4g_DIbU~>*9{sxyz+l2_F3S)>2mkXop32W52{{8ACM0> zUzNY*uykO6+mn$?<&>53LnIZyw50G%A%NvHsi+D%;?Eyle*2=>=axVDw!AqR*R>fr2-nEIrN1^0p{zd7b8j=|8F(J zqtYmKtiGB9; zHoY2hX}ZKTWlBpo7^>f*4Znn(cdS=6@cjC@Z+m$8dpk*(k7c7*`25QNH-wU04Q-x| z!m+dhlQ^ZhKIRV#6IK~}73hPhgO+98J5~);#T>V@&KLx zYh#tKhzMF)TqK-#FiuynGMGOsK1O@N*B~WO zExU*CzVC6yeujAC*wyZ9$EAHu+cNjs`5w&$@^aen3G_x}8;K~{GW|X%96~7`d8RiM z8mc9;X{$%}uc-JEPGd}GWz^JGHb&1yKLho9Fd?Z5*2#WeSna7giVq0Oo|`S}lI(C| z>3It*#KPC6QcvXKA_!LOPi}kX&VQHh`*2#Imj`F}TdGcwLVM~?kgmmmJ!OAMI!lb>u1SB1q|&L}>XXE+H5j!&C$uF%YP%aF}OF8s>F8nR@$1 z=DyFYCh_iU>j?S)3*U!fWfWL6L|G`i8coBQr`tq=uPyPnWM78>hx_u-40%ougl^m#o z-i&E!1&u71f=0Nq3==$`DyLXjAQX+zk92j=n&h&Eg3e&GF8gzgpEHv=tAT_^58Rs> z7`o90;zuQ}6g^%&Xx`PNuu!E4oj?W)Q7thUULc#?6wmqfe#H`(4DEE7aSL@vbfi(#h^vms$bO8 zPNCKs_(CD*bco>d0Y9!2d(VfVba5gbf&q*?p2?nAhX~s`?CchHYC|{GtzZ~!3e`;y z6>r~-D;NNQH^wa_h5cI-xF<3h;G;So{q0eFMdMF|+2j{^)h|Cr%@;k>K(iK1b#01| zrm9~RY!?uEpd43%NU!NK!dUkdedRZ#dM~K3-zfrFH;Nn4Hgu3w3Nz{3P(^|rn=;y9 zC_9&BA7oX(rq>QXye)O?%^etD9?ZAC|G4tX2L64Rof#NNXU2Micvz)HX)4w=staej z#x6b=9?#1d-RG+5OxEM=tb&RrMIs5i8(Ngtld@n5ZOqHyGz-!pMqk1G6^pB3s*6Q~ z;&d`s6S}d3`cll4O$EoGzTtl?gPrAy+W~UKGaR4?cI}rI%k6f?*+$cGX$r@b95q`- z1U(t?He>%fV~=*I_PjR+Cd@1gSim7a&0S;yAzW{xV427Atc6JZEwf-OVBr~<+m1H8 zZ(*HQa5Du@e|Zqml4}P0I^1MU49t5$PBz4t4Vo$ z2yq_^kEi>!qyRU}!vcY3l-z?DU zVGvfEKMC$v|I<(DQTQsL-_FlKlc9bo3%n6DEZk9)v}&UhIAc7oz;ec+=sYY^tNp|h zoBsQNiJx@8l5s!+_WQ2)5^Cq880&KR=32nnn!R8i?Oi_@)EhntE1KU^>n-pnDL);h z1<*XP_6ebiII9JUcZe$giMMrzp#g}vh1mtN*8dPobm?aQAcwJ1>z@y`?vJ;8p|{Y8 zl~<)Hx;m{|YBPR6Daut1QmW0c8a+MO8R{_YQ2FN$>mwMS9(30t*x-1?MZI{WT#DT~ zdIW=!WKFX&5|;9V92mxofJOcawlvXNb|h-p|E7MpuI6Pi=xlea#{7F7&*=xZAqn>{ z7%}h#^Y`}}@np;)1c~HhVXOsxQ?fu}2(PIZ7;zU0)=qf#C$e4*h)C|>{rg)@j?x72 zPTtDT#x6rlA#Kpcu9Vmy@*ILrtz8*_X|d6)A#Pp2g0#OAeW2R7DCfz3odvmaaCWK{ zE<>NtwVawQD0NTpoio`47X!7npRgPn;{nSl4mgn{`B_#t^N(MvvEy~NYcHR#Jg$4k z5O=e*?6m!zCsj1_+6cM}m5Stx1qJYQp3bfEVC3>-Cq)98 z^&j?D;xRT@dc8l(h4=`Z@~s8TyqC`4udk*|-_;%(iTAc1p42+?l{o#ocP_-WoLdIt znB@MX^+?UDCy7mKa)G-KWQ0cGgTmU4wE#+q;g(8H$X4J$HyhV4w9&3hu!Mu}Nfg|0 z_2WTAlNYhY^f#_mivbgR@Gi=Pm`{#OkmIjrc7MyfgS3^*kJRmY{!$0x#@8agywj~pGZ}_5Cxr0qLqZ{ z#bP7cqA(qf#);vCo(<_`XXPrG_go`C?_Z?S%39wcFzjNm*eiUK?SHrDJ>jt@x1X|t zpqUtt*kzq0yp$9PH-^p&6zO58TtNE;*f z_Y4s$X03eJi$!H=+M-UDT#+fR&}5hpBeX^Tpf`8pI`L)8I4OGNF;C5nx-ixG>6c7h zJT~b5fG1y~1BEIscQO zf+iIq&yaEy0Frc4eFFwGTQrqPJ@fM-=z|yAK;{PeQHt?#t@ChnOe?2NN#K|*qMj*e z?n7QeSoG6?C%B8?(CM6bAp<{Mw8Z7Vt+2g&@qF}TKL4^#G++D_0`EeYX%XhM)K&_F z)F4NrXv9X0L+*46H<>0_NLV&)SXu2vf+AYgNnUA<&x9@Z-lt<8QFD;3fMb&p!(4Qz zU5prZsW}O!bPGp;rP)tCrCvLyV@`rBAl6NC zJ}$CCApWuogh?A%>rRO!NRDe5WFh`>b8?~RG2;N2Nu(4A2(8&~RQ#Gj2e7$%a**TY>CCS2|-reJNi4&Eu@>{-zh}L z&i4r5o4yqp9i`H(=Z1@hGP&XBLUer|f{7pqn_LCse8XEU94uiMo83qOnAG~yawK$- z!mENXI5{=Q1PDM*34+a3R2#{9lsz1qi-S*!y4yU|3x!-lqVx%XPi6H)Fy5#(O>wW2 zkWL&J3z81;^zdK#&`Er4y9F6hS#VKm@a|pq8Gw;^>qHMLqF4_*O*XIqr(c;oKy`}JGP3! zd34u1Q1pB~vXqXKd{tPaTzsIAr~a>nmB*tQ89#knH!-^DTTS(qnZ5aV@sZgrhDLsA zrCJ_a#*I{zsw2^#t*H}ZCJ!|j324I4@*luuW>=R&d6%IGnl}|w3>+{@EBGL7Nm5GH zK?_U1(bF$vmUvph#n%a-3U@ZAB)aUNTb>)2ce_BC-vQrFhPCi7(cGWUvbpCs>paN5v+oA%)~rqjGdy{)%=-1%F$8o5#O3b#8FZQdLYj zbA$;`&n(J)!c>h}zAX6^>*I<7km|o1Jo*)Zj<4Rma-6Dxuk@F!*LBqoAlOiU*kl^Z zQNO*eILSqYIRji;R;p2%V?BU&?Naj6n|Ku(YY8@g%&^u{aw-*VoJrPS*%QKNa_6D? z?;6ng@C7SPjx+rkW*hlsQ>tv_@nltgQaxW|)%Oy3hEn!z?srO;dOB%?Uceup{8im( z#gY~G6)APQtm;Jazsh$Hxf%}DUeq^|mDLT-E}<*#g&dKq??HR`!!s`!tkX*m6c|g0 zubpdX>y$*(G=Zg)&?~;#&4z`O#bvzeFNq;N3fP7V`o1I@75Bo7!*uE|Q|_jL5^_&{ z1FAOv7C!Nkl1?QwOZWC^!at!Dqramm%2(kT0QY>SFntr|<7t7&%`J@qhRiipf09Gc z*)wt;sRHcUwUuF-elds(k}ut$sdHdb+Q;HbHQ+KSvTmYOShFj_XUC8{BoXVZSGh3- zSanEP>zG$WFr9fRQPK_lusW)g)=QqYdf^Rn`4m6DhkuNKQQH`!*@vO4H++>aZY5?2 z6YtcN|593#dQQ_^Z`Mh?BBi&H$&o*Q(eMVPVwbIsg2(uaGDy197yk@{OLg|7{SzB4 z)Xxj+(1HIWLE40#)v)=uQUlFIGqnU(I}Fa1kW#5@Ke@#HHXvFV`w0}q*GkBAB?X5f zOUj^_=gS~_m_+OO`X*{8J14Ih( z96}?)dIvH5YfANVb7R?7FbpH<6IeHuB?cNWQfUxel*6%?pMLP|LrAD{pySmunE9o}=w1(B)f8C1GyM{vErsd&p12+wz zpxYl)0bLgqES+1N1jw);KEi!{Q*zka+A^)Xu>HFc#qb%JXl=Y7(taL|lDgL`w8heX!LJl0$kaccP6<)^^S(F)r`2MMs-! z9o$k*AIRIlP1P+W#==t^j7o4a1fy88L))DSk&l{;IM+mx(jYW zLG+%0Ec{m&IY1t9Ldhd;ds#>v1B?+Pz7v9)>A^{hUWlKHGMjWQ8g?g5Tx28%*q#jQ zW+G9bYuK`EijqyX$OM)Fqqo_V#*1N1-7Z!kk=D(%Do*G?d7f^VH6|80W%d~So zrdK8f&6mkSTmkXimb2zL&7%@N`k4^=sdsTAr~M2TPa^6a9d<%WAZ?wk!g1+Vu#Ufu z@i+zJkl(?_NB)=3Q5efTjgl00%x}CTmxBl2eX&0=>U=Rt;?X3u)HzC;4|R0@xy;QF z>dr^~2eU*u1u|{m0}FCA6N)gYIw*SdVCJk zf~BRlUT{y!n-c$JHU(=2SPqqgzN3sz`~`B}4?4(Ar`vEVvZkPGvhB3j*v)DdX_}`o zIyR#^F}i7sa&B7fK&k^(XiL@!MPh`|@OsFF+{%4D}39I>A$Qae(i zye101j?^_WzlImapR-5yiuMF5B4*fS+{4IpZf6xP92M88g@fG~ZnC;( zi!j(~9pTb5=N>x!Y>){`C&^ZrSfg0T|(QG}tA`twQC}ee zE7Kei+h2FkMc|F?)D!zqw(q16PjI$=%WZPi#eFLMc*xqPRAdG97KNI>?xcG=%;OBh z8v6iDPzU%bQsUtUt}(RLE>)mzLF{?*35cs)3i$}YUE3OGYoF}Zc1xeN8t2NT0iFVy zBPkS4z2h(x|EYVT(vOxcyuLFWZvCq@!MBTi{*PD7=j`Ra&yD<>{J6|R!;}0EzQ*!e z-{j(x25L_Thph%TyX@NaKdZ!(ap~^N+4f5wZO%Ou0@v058g|d+22G1ODpfrs78+tp zORyNADl`+yEja*D`4CX#s<1sgxPZMi+CXKD|3~GK5!g zk=q-7_B8g5=nJ{X|g@QAi_j(({Zwh+$lgyi1@~nD3d|^XW$cG%M8OII< z4?=5y6y9UAS&p@MEN;}Uwe|m@JoC27!$pUUQ)sfHqX3MQWTuBRjb#N5K{VMm@D}K` z5MqWHUxJ85mflrg5C6}Dg(AdA9eNnBieyZc1b&#RDZV~2?V}W9Ui1m7HCCn(Wr6cJ zPLW90C6sDh_bC!yq+Sf%(MPR^jl=_R#fWzzhel6aD=dYVOD*~+T9eeL>viumq(BgapNp?{=;C+m(;ht~%F8K%s#<5^@q;GXkG zjXIKU{9Q-&dZnk5GKH z&(*-BMBBL}qAGZ7``LSC3bai=A~^l?%bB|3ZPR4EIIOCB67^6@6{LSh*4Jg@^P!3n zC?< z_p{=nx3N(h(q<(A(m{vu!L-p0HvK;H5TGTe5jVUh%a^D+_R&D&qN(ANhAnl8flxRu zubSL94%s2R@ng}yPVVkkGC*KRglF>DrCbe1tko7~v;w08*@qRdY4BLoNdsSsPx=8g zN=(Izp!`nURj57AfC%N7$k(f>V34Fs*)-M;FMM5Zg<`70wl>a%@Zn&K6Cx=Q(H-s} zwT>&Hxq_&SFKKe_k4HJF5Lr8`RAm)B-YKWY6)fH8R!<){?*bTJhWswg$V$dXmJrJp z3}!et_2WJ$Q-@C7Tkc36v;g4CT|qTmRY0BGShTn$yI*qLU+)@+E3%)2d|Vm~*>;|1 z&)qDwqQ7yhZ$joagEa#*GD6+nOD~L#12B04(d2p$?I1)Em$9!h!%DEM%XnoV8ard> z9Yvx#l_n90fViD5)w99Zg0;L=R9(An+6JwQV#PEc(syaJQc2jL z^&1}|b$lLmuygq%H5&e3s1@5a^9fS(1B#|an-}u6g1-D&f~Cu3i^jz0BjIX)S&$*7 z@1sIC9Q`#+B8+9qBP~Wz(cY7LMl}zdie^*yJQ+7@kb31G5vHgtyH8GvsMyI?fbsLmE2!37t;{ABjb$z{Q;|Tq7&S)+F z>e%@=f%H7%%4|q{t8%`D@$K1X{Lo?8NP@hn)jd=Wesn!V)YN}`jVx^W61r~oko-$g z@`oquE#!eX1J*^2!=Bt=T)dI4V18%8Vx>Q;A*YnsSG-5>CbAC#9*1yA2UQjS-2boSJ z>#5m!wF$%84;Wj#C(flUtD1_(Wi`sXY@m)}G`WA^A~-DFIy-kP&3NM#i+0u~6~Bnn zb->`NT z7W%y$j$&02Z|zL#o2o)_0?rjAxLaS$r2%nJ*Y-s$UzQa0KY*_|{@36u78dURAAIFM z6HnJQyVIRNcnCjVA(&B}2M`KENJh8@C)l47-~S9UOI}OZvX{l^kWyCn@Vs$-LqO`* zl=VoHLBqzD#(WyHKCk^Etl*6wIw}9;q6fXaUE9LEj)dl8NGQX*h`*q(Pq+r@4e0c* zFwWmmUeew{=@;lKE?fF-{4w20$7Q4u z3^KE@Hyk;2!eHO-=iyaf-$#Dir?YGBYvO0K+*;*A-GvX&?b@5JrRQhg z7ySEE?o1AZ!9I9Tw>ojuU-`rOp4X=j})>5 zkNLM=$f<%H#qYtZR4~JSxoD<{(J;0Lz!)W$6+UIPg@exQ>Zn?N(RLMI&3%x2E_Ppq zaftY?Wu=2q+G{yf(Ocz3y>D{+w2@>iR#~9q4BAy^H9XWfR@kVErfVRTJEo>RrD0vx zXd#S2x!rAFS``0edRhxP#mdduOJ!Z?J0ju>H6i2*H8mO`l{h5)t$y5dxN%d@(*gZ2 zzNo0g1^fYr0WduBcY^c%4dA83d{C$e#m9Mc2$~Iw5MGZ1t8OtEI($Rx`dfGe4pJ>t z)LINak5t(tPb073qu{NvM+q0Uo^!2d?ScMUQ*@-0THhMhg!;p-LE(nl2{eeA)~Zb6 z;rqVEr(U9vrLvfh9%pJp-c=$aW`~GN+v>I$Z{dm0vGH|uP-Vzx)od{)rqjp>Ppr&+2{sn#o)9=Wk2_ zHHGlU_)yegM68{c)k;XY7Vv2PR}lm}$fsFzp`8}^X#N@E?0Q)2vr{2?NjvlBTkciH z5H`E?b7RM^Oc4+EP2D?QeJexHZLM9-37F5HBbTc$i}JRQym|`by(sBc2`8?kmU&VUP`mF?@p#jl5+$|T;0rNp&s6p`8g?D$f z_mHYg9~j;JD%Ao$S~9*nwbA;XCoyu|3!OTHEz)U!CDS$k!GXBL90| z+p!x@UTuQese|vo59qzU^cPpHH}o+^$FBzu-6kAp`umYl29s5OSr>T^JNFM*`|Ih%%2s3bEiwMa?h8T9@#R#imK*$F_OSFV2F*sI$ z5Hj&iik_VuhGMoZ^)cEcxKx_@8KYYXCz^_afywAtb8v~z1!m2EvxOFfP=+VNLrMT^ z1waVc)}{{PUxHM}c`>0-2#d<-{uo7>CrK1IMh-x?&Sdpyq23wGczn~x-{X1&niPp2 zT2f=7Bh5rd=%F9+hA$!`Sx8jm->BBR3X)cGT$o(U)5Ks_{4)pOO=zXz_GXoop};|4 z?h;6)1SuIOX;hxn3ne0A`tmVZ?9;%A(k{GP0U!|CTlY2}GinOa=ORfKO;SONA+iog zJ`P%a6FG=(Ab}a*OCBG~J}a1%U1@L-(V0{ME-?g3JcG<~xEOuQnvCW50A^Z86=boy z)Mtp$CfZEGQ!duB=G9JrSQ-`r%FZ+AbU?0|5eo%|SxnLd(SR8#{SY_MEF*52wkViO z3!j^CVZMV%J3P+?nj(c6aTM?#jtOJ_7!*dt6gruE7rPQ)LG2XaXDXQE84ad@Y?BP( zm)|RlW(C|=kQOm>e|-}gS{*!TXF(T%fuepEF+!6E=$AS4so7K;@l5p7BEdUgb_w)L zgB4pIuK-I<&Dp+P#M5)tm5by?zf*N-r`yDs*%T}4GQL`E;;L{wqE)CVYJnEnE+=S{ z;slC>O^~e4%=+aH!x2atjTAvnjphKllvZ+^&3T1|sN(*jt$9kFC>nEK2D|9dnz01O zQ$u4+>tdB_VE>23LP4A&XDmMMbM=f#ze?{gJ(%X>lSPtfV7)#9uq$I-d~SQ?(xiVI z*Ms?TRJ5yNAlHN0h*tNK^tx;8M@WS4_c^ss-u01=sqpBN!?U3mK0*0gaAYb0bMbBkaCbK^NIGrYuPyo(_m(DtRcw8P*j z-BOft1-2Txpm3}cs=kaQVGD%@1_Gp)Ri(gk@EbY_6Znmbq>Tj=$-H@oPs;Wj_Ywjr z81$mX@t`su$CPVP@?%dSPt{+fT*cqUI7(EXSE*Sxv zg-9@m+rST=pvton3U|9G=S8%^f9@KJIwC+9OqptJ-U`^V7>xDgyjz_=>`pV@6EsI3$Uc8q*e<# zEsc4cw3!*T{p}nNom1U>yVWy2a>NyXRvksCV!=Pmk+T9BExJdVv?u?vml}8zKRj)d51n%ahA8=;JUQ9g_)}jUW{=CzX>LB8k--`yd zh3?RvE~tk}BV`M5gxCA2Bn z>2h#_5I)6-{p~r>iWHxV!kqB7KK%VVdjOC^YVeXKdMIJRcDP!sj7TOzEm6jRi%&!f zjq-{{iU&F;y7Za6ap`&tvl$E8HCAE4}}cMpMlB* z=Yn1_E?4CeqJ9L`iKHv?Now<1Whbs{#=6qZzY$|RMepxta;d)&BQNZ)_e!<2X%eQy zB$<~BQb9c)h0ituNSud%2+dG<4u|9bfjeQ7MG{NIx{Is@7G-p*qF~e&{@syLl&9mT zG->xb!=6!V6Fu%Xdk|%H<|`#lxqI-d+!;<{dQr{7jg|~$fkH`8%|H56Ue=f(4TVlh z)T|6t0XE~053>OYdl{)0{*2`zM9G0abAjx{5!Hebj`-WJUr-5Whv@quBvJdCH~Z+{*} z63{1KIX}z~C`dQhEt;%wxkoxiU5=)qU4!$|Fae=>8g6#anh$-5;Z;I{lFG34Ss4gq zV<;`jDYaW;?DtX*w)Gt)LSpD@lD2skAA0YF#gHMA={et`GqY`}`qLkL@+AR^g-Z!<6xtkLQB4=yL=PvJGC*S~ieN zTStxP5TsceTvQm{h&^awzsn;#mtb*VX09!zftfeel9LPAAH%;-&yjGF-tuh97~eUUBs#!tCy4-r4~O4l9& zl7u;JhNBgG^Xg~_xKkK8D7$qBg9kAv4RpF*P+glWO>W#j?|7PVy32(MLv%YCFM9kwnV=M6g6JlfTRuAhcNS6n&~9 z3^FlcKYQ(H>0qeX*(VzY)tsvcZ>#GG2M~i1!O#tzX&QbrGfQ8oiL13nR`af1Pa+`madIcEjVy>{|#YNML@{l!EHI;7kAuACW)JEd#rWgi#{V_}q zophKrHE*M6tA3)M>;3m$7&{O1$7L7v4ew!jx`R~)mU4j#uynUlzVbgT_e&b>2g`C= zxb{9oFLt?4xZZlvGzP(<$YN09f%Df=-k+)VrHf?Nrd9j4Hdnkc6G+) z^F@K!zp(2Y&)I9_>lD83@m9S>{K0wPBDe80kXqo#VHbjvtU(DmVaQoZ=9Px=;%PyX zz~M247PL-i)#xuQF&lhhz7e}_HBs!^$u)@cnivfx@RZ803?}vqKicQ^h1=^I15gHQ zNU&I^U2Eb<>Bk;cdU&16Tfrfa@B<-+c)D5+b20YtWrYkG=O%|yNX%MEW!8Ki;qqSAm$NmBDFcw8Qjvs zv9N}DoadNRTCDi9pUze}0d%}beN%HR>u48soY9;Kynf-zy#}Na%_&2H9Rg+62JB2R z84A@*;wbXgMq3X+iW7vS_`}RSk%&9JjMM60B!i@7;OtLhe{mAJb>w*o@{Qtr+^S)+ zGt!E))4=3MMS0&%Y6bRs$zd3RbffI=PpY3Wq3w8**yyGCY^g#HOQxU;ng}q*tCyCC z;r2KF;raS)Z)d!_MQKK#d(AU)3(u34 z!q9Go%LL#VY5g&(tNZQ2TBl|DHR1BGxdc*CEsi12`1+GM+cYWI~vte2O4d#^E)Atk2I* z3T~_3LJ!RD?djD{6;>^yq^;wZMA#7M4unN7^9@`VmOYxd;JY@3`6sLVJ7%EF%%*)+ zeXR;YxQ+P-XhyB(CN_Q2eYsKbU>RYDlw2#&tKEiI%D!~Qp*74JFgk*em}BW_ zhTpejjvqhJ^*%f0oHte4sPEa5eJEv+Y5RA@4eu&0OPDw^T97qFz7le<1i#svt*r=j zPfI`{6j_sjL*3n&k!iMT-!vyxoWa|bEcln3zWCv95V?BC$NiijmFKwMJ~p{7&yN=s zp4e?oMzr{W(Nh>#3y4|8P!N=X_^di~{!=TKUpM>p@6Z_}_41hz?JqB9stTX_%FF7Z zvsCqi9nEL|J)>cc=H=YdHnKUXau|np>J&dQ75_Ej$zjcH5~P~n;9zh0?>?3FwLklq zCx^|?Eoojh7$?5gO2(Zs$UmK#R&u8wJ*mnR_Q+V9V=pSK<@Fscgu?CdAgKBPw^Y;* zty+6>l@av3?|BJi(3X=cVN1JeiiV=Xmos&to!z*PbIxf0*o3b=L`qCGdecaP8;A3W zhn>Gl588w5J>I{AgZ6GuCNc>3G|Q4*_wXqnRs0S}IddQJFYmENxfdZ7^triS#kY>H zWC_JCf}ymnGks1D$J}`5x|Vb%Zs*f-yR=@jzhJG2F%sr1L}eW2fp~Bz%Bq~(`W|)W z5%G(m)Qr99eI@lSr%p*b-W<#wg8$3|Hxzlu2KTWEL$XGaYljomSrp7C(~93^(^h2w zThUde`8cY1re~(#%+yi4%Qf|y{RcS8%Nja412vW7&Q8vRo*cW3vjh6lbM zS)eD3FYUvDpNF^kedV9-x-llRvH>w?+TE^RdSi1>0)BiU4h9MSfvP`d1dkYHkg0h5 z6=*`ewTKOSo46{?a;$MQ*;+G8@K>CZneR{3i5S}8e9}3|kZGqEocN?4u7pQki3Rqe z$2@J3X~iUVZv{w+9ygx(sv|(hFT0S`Pn&LD0rNX0M55|+a`k;*84TK`Six-(%NWQ>p-@H#*R=#6V^@mKAW$o^Q_Y`hV zUhfaGeD``;zBpoK3A4#@Q`UB$6L^nEmoan09T$;b28r{o$p2Qx(7rU3$pJ zz&xg0Xts@croS?rqZCIUoP(4J90CWXkgJ%afLOtn9VXncMy%hBagZ-MxD2Jrrxd0- z^uI>jn@LekL=nVqqm;~+kmKfjnrJp8$Ab~}e!U;QrKPrt%TM^&%j21IqKb?BF5JMS zdk@C;)<7FkqL7pg$Kk60mgtEs1H!8qj(L#6^N)Bwiw5P2eRntCowi-?En}0GsL#xt zKrn5IE}v0E-UO!S4IWF6*!L``)*gMvmagq$nS7@eUmfR&$_WIx{m0I}s##|Ua(%4k2;{ca-S6XgkZ0`54P0{MZAA3F_K4- zWGJhzYXK)ft&l@6Nv@!$G3$4~>#A~bcDdeg9aXL?smMXp`%)$geRxf+!@`R&dblEvk&#zZtcX zl^Pgab|aFpmyj>qB#1(!j5hJjuA-bD8o@*!Otq@Ug+7ES*Ii>02-w}??$w+l%-{== zq1JS%w|5@3`*n`zr8bmlY2~~+$lh1{Yy1}}am)JT$lhtEZN*^vZXjejBxKo-rKpsu zSS|}E+80{LRCSgfB$6*3>JHdSI|o%KBLf$48`V@9mBlK9qczT|@3T-ns1?URSFl|A zN*mqqQHBiADIhVKg?m0oqjVMP(7;3i3HY}BO@8rysLmKYZpv3@`p&nezCE<}iH-zj)AQsY-pI;}oB-+9Q0$<{t zV&kuPCOXTdUw1$j;vFEL$+LNk7#b84&oKk!=b*^@2aP~F?$yg6{rdZ_Ie?l_kc-HBnhg0Owc-lPiNTId>DTU-xS1jE5SbP&< z2U3)p%#Lk~9wDOMkx)R4Mlrf?FC|4^MI9w7-9YmygCV*o&qDSeh$^>4KV%-n!b&=Z z&v-Fn7<&_rQoE=OgBIpo&ZU;{TK(L*aNF|YEnC*@|1fq=L6US~w{F`ut8Lr1J#E{b zw(Xv_J#E{zF>TxS-`^i`ZcdzwlTld_nYAzSqB3{x_g(8*T&h!?f}vR07e-O)BMwTn zdy>p3`gR(F;|MOH;~2$`E=C1lCswc=Vx8*mn}1r;{>dygOf=*_5t)<#ckRciO?R0o zHl z2vcvC&~AXrIPMJRh9x=qi^|G(^`@jbQ>=_mJ!Eb`4s~qH7ZBY}C!8#E1S0tL;7S+7 z1-A59OWYA}M@xH4??0==_qnrEvBk$%w8a{9zA_LqNrPbxC$0ke`B}03k2A(n1iD z$o%Rjs9+0llpY3PyEed!{=KKa(KrDh5o$0rK0uY$j|TV{G<|cws2t{nBs<0U6CV8V z6r%Rlq#;Tg;mfb&4A_$`rKH!pY$TJ=>wt&uiP5H&!3}GqQ>iV=o(wwe@5A0)yOuKu?ylnD~9Yq-E0u5K+ig0ovbbS$U50;5lm z(4D%|sF5jXGoX{zh7`5?r$%b!RfrJ1_livm2Sf`oZmYbMoWLX+^UQl{U6IIipx>YT#0AGR`O8X~Hw^7i*6SDr| z2Crf{!!1)T4y^~RiOkP?Mj_K2CnjDHNGzZ3T~5Q0EKyFHjz;tG_6g9XxYDSd8Q!2n z5!ej+{PK>{aW5tvM>pq&Wrh#PNp`Gt!B{-gprdSmoYGq4S5VAtjy%_=_{+6d@Jp|o zz5J)_*f~Wh>*k(;vKnprjD7)%Kpr-Ij_^h8Ba+;DVxSEBM7R=s#n+v!7DTP}%bmpm zNq|gcOPwks82vu7Rc`@K5t(>N^b4C05ePN!H`pF$qFG_dYb^Q?2>L*cB7aG7f!Grd7)#iZ3Yo%G9c9>KHtcTP+UMQ2%JnQ4g?X?OB=C&3HW0Qm+1(B;BkCVSF8mTH? zgrn0x^XD+VJrVFT$b#x1wi7RZN!9`EohSY1aTB7&%GwI|etLF{vVnKlZ!X^##)-Q~ zW`Z5i#B#S#WoM|g3=twZLED;#fxjO9<6k;MDrs}MibD%C><`E4x1&|ZQ57Blz=LJS zM%a_ut)wJnsvSCFHISDRdYs1UeW}K+iBvSK0cer?^`a|mMn{gC;KBZwnJVC;`PIz zUcb`9<0L70LS!N~8256-5DCInp@_S!AcZ(nokM6}5~Qg5Ck!J+1asvb1_VhBx5)diyM8mSlS94~hhl8sL2N=8D!i-{N0dE=&RkYC_g4o62gb)s>fe$4t2# zwWq4*O%una3KO84;>S%aegQf6hgF;YCb@ z^^{ktR&EJ9HHlv`hLId<#b9942-1il0`0C(j78y?4aC7x=KWkV$cDDlo3tqkYkUkD zirfmBG)eYOz0X&r%H>(KRM2l+TH+|{964vTTUDzgTJ?ksvM(=NUny)TMDdg%$Y}ba z0is3rNx1q&IQkl$iZVWs_G=OGEt~b z17K^9Fhh-RA{D6fpZ6ZRIHkF|WQ>9#Bs8lyVA2pbT?a7ti^_Qw?qgf4k;BYUY28Dv@P<2Qs|0UwK3@rsU{|zL}PphgYq}DD@11l&(+lPlQw{| z!9xcs``-UuMRP++$3GG5x2Z)V@7SM25MVPNnjuXd5|T^DS4a|>3m_142mg_}HVjCC zOA!O_k-IPN7xwAC5 zwrX<)+fCoRfhyn^8<&f`%7aF^*{goCeW8T6%%vlCB3uTRg@B4tReoiLL=0QFs-&Ds zbEvG3!bA|;l7XNs_5_UNJ1yLiBUMeHqh%;!D3m+=^l0mfy?7 zxQKL7<2h|vnscY&k0im?*-Cp=Py~TE3b<1dX}IsG-}xhg%6C-V{}I+xch3DvRRrjg z#|lm`u>nR*)3$(!MlyU3AZb3sN9@IswGa@z;01foby9}H9q_lgH~mqc_eWjx9uPc@zg$5T zMrMwfOK5)7)l;?a!E)d;a$90GUZ-%qn0;l;@*$bK-FJ|){UUa^QcOIAR6BkED~b&Q zT?AHMljRap3>*sxCg_>Srtw$L3k47*UvdCnsj|s3T7z-s9Y%#WY#M<=2^yU*ixzqr z25n&dD>?TngirVBN{1iY%X%JnoYk~)|8}6d%eeoM_bE9Glcgt5M<66(Gl|0gc0Q*G zJPN4t-_fnKA&x76a-=LGMc$%BvXR|FR-7ll=RX=~E;;4gc4F>1cF|~Todqx-;bx%Z zD>(Iw`uJA_U!40vL}=XN-x=|nIZ*z%W<4>jQHZ?20bqD=Dix$~{YxMoT{j{?0FW?g zgvUIips*%vx04se;j|Rw5Tx2IdBJqzEM`eX`=`rs5w<~EW3_9jgIR8!_*z>x+KkGZ z2j22fAZ_kNjh{xb`Oi0#WLYqE+OE)J_qacF12JgwANT;-2uY(I@!ZX~E`xK!XiH-7UB=J54!e<*i#gIdhAcnAMydg6$qCxaY_8ie3UL zguxGGTST3G`j(%*(QW+2#Q+75TvZzHp+8wQZr#ltHriUZ^*VWO+5$US*G&|tBCp#d z5X7);qEbr-Dn8SkzlwVc$Chg_iXOp)RGkb^43nI+80}t#WE8u0lu4#RXUW9ix0in9Vo%*03f4pPOfl`9HEu7F}DeOagAi+%v}FPiyx`M}F~j@Hf6ubjiQb=#G_vV#A-z4x`yKgc_Tbb4pM+?3Q=Ak$yWBo0)X*UR&Ol z@Dk4MNx|Os|DHKbC)3H!H%Ymk&6l+r`vF@WzWS`7r6^YIrzz?6IxTi(RFKz z=fT~-R~%W4$SM<|aWtE798WtX(kNUFWwP6@jGa)GkR6?T3?_6DmPh%MVjXEnnv{T` z@s;Q35r0%&^=G*Zc0mua8M;z#yEwPyy91|x zBrCQj-Wf{UNhGTD>Oav=%wr!h>;PXJRy=Z8?%sVM;^Z2Ho}oEAi$@<#f@MY!{1;pz ztpO<2>&#GvAFkDAyvT1aN>+%7?qeag#{AH3&#c#XIdmA}CYYg(THL*ETU-<0gnieb z4N{-QW)}6@a>1Qx;A%&MnvKE1elysXZhw*1#z4aN@>wjGOV}(Jk5z)Z)ZSC-yvR(E zwH2X|wUbNx9fN5U*`9*f=Rt|UzyXna^b#LZMA&TupbUwnpvbVnt;Kp5*RnLtw@n5p zYKk!Ce@Md0K&u4|FY#-i!g?fv44f+gfz&N%cOSGAk5b%;uM6Cewc#i~T20uTl&cUX zv<_Q`-4S57RQQ1 z%ks*=IDgb}lmCG3s~DN_SE$FgU+Cbfut&S=_RrQM3a3>jxZ`gs+&=7h%j z{?yFS6*0g}gF;E0Id1_*gpA8KKL?5>k;e<45tLxac_ryN=)4y3Ca(zIOwvq_MIlo} zh~$spibqhVxAKovb=P#|e7^%4x!+0`9NV7orfWFo`t+GiLT^8@Rp9sk_CmGQc}9J% z@CJq=X@mMalg>6^xgpO1!H)r@Zih=8sh<{& z=su)S@^RgxYLH!yeLUb&qmsjg(XzY*&A7xDKW+P#fR0-#$^aWeCUBfdf|!hh{WQqZ zs^)xn8a_#XhA6UB;oKXx^&D0dl#?8rNLy=%z}`8w?Yu6kct6{>RbX{pkAVR1$$Mi! zF^d0;(oGTFS^W6v<)!|0TcAASSRN zFK$|q?Z%AP_Xh1YFCPQPqnLRCaCqx?L*cB*Ikjm@0(vtHWi~+9fg`K+o8d?X{%e6X z9&g>Xpcrano|(UqF1>AF?v67af6L3ufbiwcmV9puuwQZ$xcU{At&Wn;KOh}STR=BY z8Wqm05Dh?=C_0Y%9LYV8&->Sg04&s9J@?=9xWPuGe`X3kNi!=S`KwwqLh2gGYrGEu zT6S5gV+48^#RnvpeokUF%0Nyq?l}*5c7;J;)i7Ia;PQ^2D0}A5a}(W*B_xlBVa{aM z6aGaWvCu)gJa4D@d~Wu~&`Gz7p*?_cs1`geR>;?YAQr+n{zcd{j_)V4)w6DW>Gd$- z_`|z42q%lahvIFV+n(m~L##YRtt0|tuB0_2iG-vDB^g0^&e*@p#yEr8IXDczY_d@0 z@dA&o@7)H3>;W$W>>cG7BZq7WlQZ+!TX0D3VVM`2!VOpE3vi@{EOGXOCaH_^=$g>U zK|u?2wrbASz9%Zm8?|!tbXg6FsZGUdeEg@)cF|Gw&F2#0)fSV)KYBps&#|4kcY*(2y5*rR0NVz_!VAZ*c2V}TFlu6yz44L?7}$S%1uY&6a$oym7~hyfkhfOb>m-eR2oWBPgyXu(y%brLCNL zmF(Vy!R2C|+XJiPS+!^yA{xDVdjt!Q_HJ#BN9^Es0?ugVQtj|K!AJtQRxUE%xfCbx z9wIX6041a9>+{-^aUS#D>ia{}W8mG@@x=F0Y}+OC_uwCSq5I%Ba_1@nlHf>{Z?7r5 zB7w@%EUvgBV- zeE!i4jnIBxUd&t+e-8sQB=gffby2-FIc;;WUaVOkbMKt_2V9lJz%8eXQS$IUEk{B` zjD{VjDFgYp?3vt-L?jI_X<{0ER2OVC^zv|1+Z0z>Y;Ks$g)@uNMk&9gawKtBbw zF*2majj2&+^pS@fG%0fwvg>5YI(a?{28O#_ z^fyQ)c!r0#a7*tKfq+EZPUb%LdYErkUx0HkAz>>1hvG_jJG z`id;0#6LxU9AcV@YYqDzR@ZCTJ|A>{``gPgAJShsb`#IDt}O(|0K^jq*)9N3y{8m{@`wakS1tt=^W4Ilv}{$NnH|HpgKgS)S2i&H>2YqiY@Bjne?qFlzTg*G@{F5li* zn}t$W*K$q}>=j{QwFvC1;no>*vB%ct-o#Ybno&VVK^-;|G!eTIG$Z$a!+uQR$L0cQ zM{Z+hS!8u8D{{+}T$_81_pOt0UlYX*`%*&t5W>w>CX{9CUopN58O1kpJWG0@`%q9+ z7p5xjXv3}FkSVSOg6f|N4$ORl=dI1+fE+CB>gndNxVlm3{m65AR|>7 zRY4cl@Dj9%u(tX8z#Dza`S$7yzHp8GmBR87cADDW>e7<^=mt43g8en{_5wMOIekND zrf1=vDVIqKtn6$;;g32I14N{m=8u3szOu%e;-T%cWCxQc@@hxXk-xM;E{~^dcbosa zMWy{n%{yrn6+-y*kS^n-3NR`1T2D!219IjOHV7oW7a?`dnhyyXJjLoi`gv%fJxx^c z9Gz`DU9sl%YxuH!_*OFmSg$>ruqwCrJlY`q%9kzmtql9Jv32Tv^4~55r?C@@TpS@$=Vm01j%bWewG&zwMSY?#cO#~*` z98H!X;_78AFI@6nGbIdlF+VZ@_c70VmgccW^H;@`G(Fd&Np6Y_V{8pmlG1*eTRg?c zAK%1uuuet`a<+d)Awwd1{pB2cv)glyP?~nP6qZpN`Bbpif1&OQ!?u;U; z8-=V&^0?GLO3(iVF<)<8nSwZp*fU+zk>T+AirtD?(Q9WijnC2*s`xAB$y*vqFh4ff zik5CNuwCr)aOm%;+#S{NV{=(Z+an63nCCX` zW+0x^(Bd^Xq8;8TS&}SUn#e6#e||2lp)wH5HMszYQvDkhQ(IF8mBwX(Lt|sDrRIP( zM7BzD#}1JiVdhX9X9m6$`au(B%IUO23P{b&_L#7RA1?b7{Lv{SGS{UPpM|5DFlEsRHk^LVyirpR0{TS6PWSpMYAj_!BIaT{rEWx)K9Klfc{tO z0e*G9-81Gm?xc&uScXpb(XOqt5UQ z&|Wcpq?d(+%W9g0fohy(Fe}U%QG}FEj%^Mb!`NfhoF`MZN~s9ca ze}&JzY~jz7C+MG7YR5D8Av3fWH}a9dA(FX2{4?-ex~TE?zn;TUxK> zjTi9xfiQOxE=?Xb$OD-amw%gN7|)<+)Sk=?E5V1e+rIB)42uqg;-*xlb!T_@rLlkO zNb~710q^~f2VR)mU-ob%mwA{)ViDFy*{)pd%NjwbZ%YLF3Hhnoh#QiI&_drH13QGJxyX{~=~a4gg(;AsXV=;5e~}1Au}uGzy=#k4o1f}hVf4#hHWQ)%hTiUJbT3(5bZ6MiP`EwamS19lHlPqg`r#z3c2@J} zg2Gqh5G1Hkf44*&VaRg!IH}w>mY>1YJ%7e;H=i@xgJ1uA`!1YL@t6;){5~a-iIx_q z8y)FFP6$+ReaZ9b!3xH^gM0fz!(Q>&w(P28Ek{Rp&HZ%C8eynh>NeKixI>6o)+tZ! z?)M_4yiDPf&AKSEgz&Fu4=_&l@se)Q#1f%>BdhQyC9X51OtY z`t9#=g{3z+jk6my#I`oSd>>_)SNU>G;jrOn`7&98eD2H}dlx#gZpn$itxev_COc|z zv-PYm-_u9Wpby*8TTTNhL8zm+)t$^2ub3cy_m%IeJH03< z)_w4V+e8wMp?aCZ95v6fkkM}KKXG+?pqPxV@|eiX?q2)8F{b49qu@=|IIU6^3920 z=Mf+COw(<$OS6j^;fJ@?GR@KXk`pXYIpaCDY{oa8`}{b)>xl16C%!#(UO3qQA@Wra zxBYr7fbiW`qi13UY0!{=(&5Nitr5xne5lEa7EOB}bnv8t(`)O7zU-%^1n^Vler-!Y z4;dweIYyescC@OuohW(W4wmYuKu98S2~6j_knaNzm5*lm!CEYOIA7edP7WN(k29Ll zBHHvvZWdW^m+Q|2X?}PSFmAc1Jx|x!0dJ}V!HPz0yCd|`uo-N*Xg;t#f_e}D(LbM)>^w2DrIjH|n7HzsBa)vJlwv;0iYMuy(LyrPyk_CfKc^%?{JO2e zy|i*!(T_V{Ql;B>UCE6*j=R3pPuCObg%wD9MJLXlL?8$Okxtl27b* zz;z!1Wjyia*g^Hxhw_NoCiCp!_iJn%DhO27tYVvZP@s%*{nk+mfs5+I%=Y*;uARbhEkvW9oj3zm=ZtP+xO@AQNx*G?==90ESn9CXinp@ z9Z8snS@ufF(NlgR6K<8eXn(B+;zB&J`}^}v65eGp@%Q*B@_4R#x#k#n;Ani|4BnR) zi^U2ymf&GB8eS+o0*}uVQ#G7X!=%6-I}cTgiaq-0VQ@R@yZRg^o&kLRUfR72M)e&U zXYvK}9jbq3Z@%xW&%yw>M830yw&J#l#F7XYqT*;?SM3=$P(PAGt^YKZgc69rdEL3m zyZo=oeBQ_A#=<04Jw`_`6{NVol+f5Tqk@7@M20;nvy=HIsWZI;PdFf{nzBmQVCD_> z+K^{9#8B|F7B{m|jSN^7MT|D1nkngw21dw}p0Ah{ZN3b>)u^C-`4yRYAan=g>cxBW zl}0iMXlivFhk96JsKo6iDrHc*%vj0Qwmn3(Aapmd4dp+Yu`;1nSkdtp%Eq}0D$7F+ z?Z*VjI{BK&dM7rlx*`aK!%1PnBsh9iJR!3**0ZWSP@vJ6GL(4K3&!%e>^Yde#+kkx z6w@W-CGF&D3;zH%olkdcyx$fn z%fT=W6u>neO2T73rsHqQW?!?U95&4fcRjW;F9izJ_-e3k7e>5mEhxgMUL|7{VLP2o zX5cz4ja7z(C^+;e+@x*f`Ju#dmv_`mC`(3E6NjH^CF5lNO32)T9x=Ik;C(%JP(AI* zo+Cm!%Um(ZF|J<7+7>1{=0ver*c|O3P`nSIb}JA|8={ z42&EEs+Eccss69X&a}5ML(jcnO?XOT_kAU#Wq*u;o2<}CwXwKriIgmoWa^<86DzSVcrU0;t%+;S>u_t( zo}i&^ngZd6TNgw`HP0#~q74U=ell4wPO^IPoO}BrcMQ|LO9YNj2F#Bjw{`hWZdO9O zDfoTvm$J|botV~q&RiDCRRny)219~E2TX*1h!j75V3}PXbeteNA2oG-xcaxFybSow zw|4l28!E|%CS0cz*23=6H7m_)Zvs^j+@IffL6K@QlqiE2xzU^l?84uhZ4y2o{aQXh z3hmC@CAR48?`e!a@#&U~#M;2`Ac@h#YlC$3Gg%BM-}!nu!i8G8$5()IVEpZTjENhd z!`&!PaSky8Z(N{D^tFC~47&!0zc$d6X3A@yV?a&%F@lD0DtI-sm|%s!n0{*cU*66M z3h--HavnoPsyx)cWnO&guG^Ot%3%yM+_N`yQSVjZQYR;|iuz1(D)^<$nfP7oWH7v zFO^C&K82+USDtIQ#QiK!46@4=lxlY zFsb7(m4A2`B0wq^Cqsv8j0Yef{C)==-Xxn{=@ufHZ^E}W(>#Zq7XPcGwejle#g&X*2*xCxJ4NPDk7LBBxU>pIbY{gr)*)HBKKFhI64nzG;j9W6 zexEzhitY%v^A9CDu4%mq7H9qAU;<|I4!*F{%g(D;AN#*IR*1!z*WYRw`LQ2bWqFn6m$oh-oUT+a~g< zmt_;_&3=TW1DztUQsqYd~K8O_r`u&*)?Ko%dC zHZY1bz}o1%&C+8m|67%AENVc@_fqWz%}Q3b>%dv3+0~C-%J`nVd*_G`r?}A^(S@5%qVc(wWVMG(KjB;oVE@}<98)!Ilds6yM)}M=W6PXM1S~`mv40SeQS{FX8x2z23=cfn zY&DJIl5}X!ipnBv&r5GzmK$XSF}?=&n!q7AzhM|MXC|pbcb=3i3#6dui0#9okfIPI z;e!*MtqI6uSTzejp0EDSf@?|4196t758-Mk=F2Gb9U3Vn`WbHY2JD9nDb`8Z0GO>B zlM@pz6=pQk!#k090F&v*u1U-5cfj`cN)bYF zD*2FwtUy9bn|yan`H-}M+mxyOQB5%dN~cHp(2S?AadP}HnfTaDY}n;IVA93H+P|Gb z$+U|v_$9!MOlt2IFl+eLcmKED!ZCRk~uC{1pD~pUJPku`;}K z$C~gt2I8}2OBbMLR?tbxSb}RHE~a0Od{Lw@v$6u3=$-w!8ru^;;Q2;L`3@_nuy~Y0 z2Pu7xV9Vcw?AYFedie2vmczbZ2%cc7bd&SSxWc5Cv6tOoR+MbiabMvv7v2Juow!`Ek;rC zNJ)SOV)ZM9UGI|CL}{+h`eN|WRS^5n&lXaFq$Wc`w^uS_@JY5ZTAADBdHg!x-bXE# z`DO09Wc7^Vb1cOM_jejtKMc#B2138Uu88O4F_XJD9|h_8FfddEW%`E@qdT_k;qAC@ zD>>tbS&VGEa+c&mro`+JG+)L`u=ijkTn&&EL0_Zlj0HhEPgGj?BOP_E2VSSW1t%x$ zgQ{&{msXU}hAQ&#ZWRU}xCLNeatA{}JERtxJq~xuS!VYiLj)Nj0FxtI0@H+-#~sC;!gXw%ID>}isC;l(>*0x(!%#G zh#En#;+`Q%TIJjlp<2vF!Un#|$6UFaYfMti^r1wqd~b*iEr5ni^W9C3!uq>C!iBV5 zM-~9H`nw?lE?vZenj*2~(o;&; zfZlpYggk4IlaOE^b_I%}!bOEsi)^f?xy}w3K7po=hYx9Y8@#@yj)}qTQT$8_Skjp- zUG+Jx&*DSSI6;$S znpAEc;auC6%sdLamW;d?L9O){r_+c9$~;FQ+pwHXmSFDJ&V!D1f<&Tq78HOh^J~); z7ru?;Z^6JK4jDmymW1?TQ;z#I-ue9z9#09PkYOc36&WwP4yLzsQH!H(V|HaghF%r8 zDIptvEYKO|Vrn54j>Mwd!OVG}<~q|fm&#uezDDfzzRM|dNB=gZn0W96?36s3-1`$7 zp7HWSd*=LM!}r);B7riS$g5r%=tfrtTKL}90LfCfUX!Zd%ik9<=!$VB$)S2f^)-S_ z5fH;Mg?*_=bkxp7_~W$37Xi2+u(Ke3jM!GN!e$xT2T<@`{_WXCR$a8uf1mENRq6g5 z?klhC7ey+pTdMx>0b?YDk0Y{I_1~EMMtNAD%P&#!>G`hnc9|W$m=dc&PUznIA`r7Z zV*IbkgS?r}fd9gH7)|m6f-;)d_6Jv(>*z_QVv6fr%ft&Ici z(?78se4Mg9_8$TCeY3Msv7i?I-Kf{gHvL5nY{!D9bPZgPa*u(9CaaOOVi`MB%M2*E zr+^^&lh@x#hT)B1z1qwQ#8XK$^=J=^6c85n1^^9CxHXBUC+bwc($V4wtn74k=Htd& z_LjJh5}&ta7bK=H!7eP|Pg5IHKO4=h?1x3QU)kI;d^oVZf5&Q}T_l0*RNazspoKF! zQd}yl0=xVZ`n!~wmgY5}CQXTar$)P2clufCS?TvgjZ^UskRl;l#?$Y;+Nz(^oxMhh zP&R!wq%_5qoy!pR-xt__Kr9_9pS(EP|zZKbp0D2F6pc+zkgBmF@=n=|g$J;dL zJhAhC{))&VoxT>y=KBiSa!Er1{Oj$53K#iL=ndAkGsS`PJx9;4;dgR?!@!J!ehfhQ zv5frhFn5`2LFk#W=pO8&*T|aLnv4Mw0vHU~ue|W(Kw+9X`keseZ0*7u_|LfA+tQ9N(N)W2BfC=c3Z0kcV zzu*?9A8Q8;lyNig0t`c1N86FazXZAI(BkHbJ(%lFMqxF5nH#FBj3jv9xQj**(5xHa?I+TYBmRwOH5c>%fXf=#yP%W)UWq% zkMm4FAM4C-uXB#Qj{qzDMeM0{Yu8&lx2{Csx?N2ivUB5~Q;xMq+?p}1yl=YFIvbHS3} zI1katk>kI*Ae6Db(mzd;@5 z&DP4(%M;8OGpq={k1`QeYpUgvxxWlsfs!Q^EUJZh@BbMLU2pn6rc&VBNN}VBaVZ-6kPs}ynK7&w^zQq)1Jo=d{0!vGg`ff9NacQrffLVMi7?%$)z zy(XLb6{gyS-v2tB4Kh6*PL z-x>#Vb))RL4xWN=Tf9+~C9(Hm%i!i9Rptd~Dh2?_G$ATJZ;Gr&dRiMEP-Nxeuox9F z8kiwm9V%)AOSRC$eT2)VwKSoH!5r8P5}p|1LQ{jFQlYI8M&%RWnu6WIu|A$c2OtFW z)J4Fq%6pa?E<2`jfhmp&-_=m})*$9F)W@F}>gByR#;?Tf-=15kv#_Zw%89tDAiqc^ z{Toou6mx*exPYV}Dlb_hQQPq3h*e)fSm+)PCTv`AsnX{QRv>TWpB-AFy5C9DenBZ7 z0^?Um-fR$C0$GIAz}1T4_m_+LXKT+Y{n(b&S`r(IMNB2+T4XEfYBk7r-*HcYubU;2 zCJ&Ot$5i^Db2^-a;G-LeNINkW<1=m1;VWZB;a8*XkxKlzl4Ysdh-V>p35$^8&%+3s z*jzv5`6c1&&aSekEfM!wbPQ|6XVyAUDBu$Hm61ZR(H(r*<5omhr-6pM-1+^gtO<7q zN3P`=PO}BoK#{rvW0&YAv;&DACWs^%(5}$}JNCP#`Sl4wyY&5Bsc2U48PQ%5l#_N! zsSBKJaNe4VD?t$SwZ^Fp?jkN|P37>PGL!2|%n5bSCpuWNGqxb;OfNAVTz@sc1u8G6 z#4XGmF;JR<*Ti?^O`5YZ14fg>jfPUclBgZ`B_oGbT!{G{jB#RBM@Ndia zae%M|K!#Rmt2gcpCTK77$#?^Y^ETI{s#QOwY_h)8>gi0ts7pB|w=l18bk!E4&$1RY z?~}+!_m2^3PjJWJs1mzoDNRs|HD5F|!)Od(F4c=S0MB5fXw-ffl^)Pz&K3Nv!vpZ>yAq|f_Z2L?Ysq=s|%a|&QQqL9U zlhELYDcMv8W@BM}cg~huW^idvQXiRb{RSs&3AiWO4te6F_I-cC98G(F%-ATCil-2P$k*y39kBiw$zm+<{15`1}lCaH3t$iC! zW2|^)z-a|JOx4QBFr8n@sV+m6S(gGzImmr!)}yB)rTOK*ZaKBmqMXOCFzbI+#u`HB zpA>J6Fnyot0_-1H(|4~y4DxyJAN2UW3mZs?^*32GgaE+?JZj^9_^RgQ1S7^1;T%

b?o0?8WlJ~UrM30Fvn}jb=gHcp`F!KS6vT>}M>;#VR zI+f2sf0dL@W2^(VQGbzU(N_~(kVT4XdufHXyB^NmhLA4DfT}!1iv&cZ zXGR=ZdK5H6C~HY0UdW4zMZ{w(#5_VmTyeTfQk{!RTZAkE!Ql|@-a%@JEGF{6^o$va z=tE%D(~;(vFlA5?Dqdp<_nio%qh&Pcd`4k8;6pMkuIGFbj}hmqpvh|cJEFQAXF`*H zK3JCw%NJg|tSQT#CC&6#xn_4&TMXZk15ALJi*hLm5eIhc4fBdZq}EG+TR*dRzFUIG zMjQu1eXyAo@h7fgsof`yoIY@q4MYR znewMU_+5dkdPbCCje)fPd}gqI4caPJsWJWc85RebZSgN(6;>C>qOiAAfMa zwDMAMQ>E|tw@5@5baS4$z$M(*9W%iks`-ag#p|ClA{6x?~_ zh+w6t_(;|=Wavm*Zh{v=+P*7&58N+ zftS<%xRN%yGmC$LsZQ+D7W?z)B*)kke=E?Bi~(yt$Z|dCZiyMRD;fAR#Li4a(PgVP z$eswXH;JH#D9@OfH`0i|2$qAH?{DK9q_A6W}1Hi~$xrx2*;PczHN;1nQ~ z9ZsSPq~erQ%6LZO-I7ocz*?z8=Vg7sfn62TJYerQuD&KM{j6rl#;;m{Qd8ZL7g!0V zU^2Hb3_{j!i11Bl6rP>55rErFKyMc&84P9w0VQRIpWsx&A6@K>KvuPpzZt@zB3&U*V2F{mdmH%&5n>gX zcvBNCPHEZuwJb!RBAU0V@oJE-)3%~I&HEc(s<&V7om0Sv5R5eJAWdM>{w#)^o4(oH z%I_NDD<9de$e**2X?%*j<#WnzZY%p~U87De^3}Tv_}XRbYv#ie(YtuXA+3}N%x8Ak z;P-ge=p`^Q=wLgpcowKk!S#Kt$&3Z}>m4n3wJUO(voD48bJg^R^o!pz+S6;c`6MUx z&nMhSw;lKJZPJ-%1P(&xK|xgF7ogfitB7d?68CtSW)X2FV_^QiK%ADO=rEosTeLD74UY;}`i@ZM&sHrLh2Ypjj+l&Vv9D0I; z3MtNyujV0VP{OsMh5*R(lg zhrK;fFB+vlI{5H1;J0t~=MSyN#G`T{HztLLJ>Sw*5-nXef_c4qm9Sg*80-vk%_+I}KU*%nn#MXm#`sME8% zap247pMgxkGxinCFpAg$O66^M%B4g~oNSmVD35+DeuUwlBfZizK#?P9S+Zo3Im8@wPSRSUB(&Q*yMwvo49nxRUb97BCOj3NWEH z!%!81kUL$Ktq|WPiBXL8`Bly1%V^+uZ{By&v%1vg? zBG$_RA!ks?!w}h<8N>?V2@j}qtIp0)xLjUD(Y7s*8UnZ*&7J(P;ueco$jOCxZBK!A z-l~2_%~4d&BYH)6yi5D~_~{o$Ydp+`1oHa}qi)5oS3>Rn5I?VMnE^2prpXO*FE>lH zAi08D@i7>3ZS^np4-|2Hesn?i#ydYgcC$IhRM=CTvEZ1$eGw8KJAc{YpJnS>w(1TN zmy)T*Pi%`2vpCi8vm4T+qgcj`wV>S>2}LC`1xH zp`fU1@sjb4#j!hmVYml+6oWZ^iN+w-eQ{4v*}u~M^Som1mil6In^Mus{w>T7Y8W=F zc4_*65|}m2Tw#-4)^a4Oz(-N&u^l`upRl`oB~Q`G>>*7FWiFlS7p)Yb=yD0IZcq6=+VF z8RQmx+%3}@`GiR@0gJ5}x)dqw;^+tj2$To*0*19`?KriXU<@v|g*O|%9xCFZ3JkJ+ zhY$nPnEqhXO#PukcnZ-Edp&{dDp(Ik-zB?rH^z6w6@l>Hf zAABTp!3zb+4~_%Ic=)D}&%hYhAeQiRyN~CtS3MiEh+SM{yYB%| z24kh0Y-RL~SW{-s|Lr3Tc3hkBc;Ko@VEUL;G`fq56nO6Afr5Yp2PHRy>c~#K#T|Fi z27!DR1s=bx?&r6IV$2fi2#VTTN}=xICr$uNqXYj$%s)#vX2bvt$DyBlZ8x0z2F-V& zvU**`>5^$N=V4q>n3F|U_6^7Mtrg9mhxiuw1(3?Ceue;+`DLXAXW5{gx#~0z!`5Pn z6tm1NB8;Yj(oPR_Aq}m-lZHrXOx_}MzxYde=+aKp*;kwN*IhEFmT(v1?Wkc)?4)>& z%VJ4TF;k>oH)d9~1eJ!0xlA63x=(Z?g*@7O*n@o5wLiye#1v6Rh{ao^L`Fd_zi5B> z0WqQD0jM{hVNe-8F3|un6qTuaobU_}a11zBJv>uYwgN-OcGDKsRr8hTK@v%vjz~TQ zX2Bt3nkZ2e^-QMlI1W=k$f5sO1f8%que4S4=UWYEVB0S|mUQgXHGrn(q6-q5Z3!4- zw=$}Q9~HQE0nmpMqWj1r*1sXeI7S}`LRcbPA%j&(J+cbsRN0_+B=WOIMn7E$pl#gN_s_@XCfb#= zVcqkX;)YRBK+!c|jTuKyF40r1Wm;L0anj{*m2!YS`@_4lttnFv`)2xXC#1ZBbg=+| z3(*OJe^4E0nQ+eH;ifKZ8gQTBy80~vIll^DjAw@xFCCg>76!wwj>Y}-wXhyPW9S{q zetnGG#sYV^cWnuZS+gSaB)l@!UzT{KWouM z9bDXT9=qXQIu?pDkob6H&BlDfnIF@EK}1Tbiit4p%Io?0cR!qZ;Rf^QlFLJ9tD0yz zlg*dcz`}1O+rL6&xot>iqUu0-TA-MiBsnCNcGPKy*YfR8e@bVDU4Hs0eZ%-5_Bo4> zxY|ZYXSRXT#L~-?-m?YoB%8-Dv>qQngth5&B>W}hv*-$g(uGj%pJ#SK@%n)0&;gz_ zW>*7n>W|OJF)iK8)kEXu#o*R*)1Bt@hZ72-iAMM90}qBqFPOv6r!GB;hPh|$S2hu< zj5}Ak4Fs6iE7G;8GC`q5W^yb{3bJBWVMX46Of&Wgg6P4>K_|26`k+bq$#}S0j#c$% zLRA8>o(*$C?cS|Tf4&j=A=tHX>mK#^H+cdr_N#&X!of4#Nt&~lWh#cSvL>?~W&zgF z9E`d@9)BW1FNjM6C7-RmaETHv&o%nm9l#_ks;=sqC+-G4A_TC8i;b7(C3$I5UFNas z7F7(Q+e)(M%E=<6*DZ=`+%IMuQG4&DajExY{q zcf7-2Hu3T{GI%VuO&F46COoqJ8i&IWuK7QfP9j%W&kk|Uw^HCS&5=&$@(-3 zl-70hYpaK_i#xz<;NelEBGxhed+|zu)B02J!kZ;4O5l*JY-<8aVg=Ks4rwy%9SA zNOTwkf)7b#-Mg-ul|~rsPnc7N#!{Ktw)b0Z66BhX}QVwLUrmfVXrzYwXPW>DiDxNSA^XbJMU6NLph~Jn-N6H+T zH4lUVd)X(j?-s@lZdMeGP%=@m=@&fYHz*=zifw1>2@O1%ix&$3IoR0)@DY%B$Av<| zvhtNd^R8fe$E`0{&w}X80M)k)bO2iXEW(ezAPPQA=rtuEM7S^rSn)|2MAeLS4b@oq z6mxv4PGBmX(ILNx)d_{6rSb&DNCVJ|(!_qU(f0O3NTN^)*5y@E?`A+9);%cFOml=? zl4n;6{(J#w5KE|zuU*xz@n>$v@2vmA&8%#ONO?LC3xIXs7r$O>2;a^@Q<}YP{d{=* zMZJt$*%?-L^n1qP67X7dF+ainQ56Y$O?v&Y2hn&#TamQ2E4#g=Bexp(SafVLY27VN zQEK`uKl=FJ+ai{JhPPk{IDyslZ(4He7`bLzli(IB(lN*Jxj26iSDx=N&6!6JtZQS} zc0Nl^_Vw=w&=(%JxY=9ODap@eZ6G5Z(XL+ut_w4qv<}~Rsl>Q(587{z^APJqF&Y!c zAIHHp#23Q-5o>1@Bi{(x5r_s5Fgn>wl^^l0lq(W1t_C08mkC=}O1_CgYW}y!Ew}W? zBOBszq95x*D=xB}s*@*h@Z=)$f19EmU#@OviwIe8Ko}i=@IQ4oMC=L=rjTRQ^XA6~ zu9DhEQWplTl?aZb-$-Kq;)m2j5jqq2;0~U7Uuw3AB$4NLqwGA|Yl-E9Rw3K#PYRk{ z2;B~RMO`^94IzR%ui6GE@cs@xh9_}e(gQ?cK^O~IfiMU6gS9#uASThdVjNkdB9Sfx zx*8w`(0d$XYIEhiczcNB-5pHV18vv4pZRve93dhcDSLNFo9ZVE1vssW{q(IK8sPv@ zvzmHQryLK~jQbF44NRuo4^E_n<=IT46$$y+t%2$-k#=Z-);n*>_2<6iAhU7b8 zHp`tqXF6+wY2z8Gkumi@s7rzgV9Z`eom@)Jd1+r~9RiYB-ZTx;&F*HWo#FUv?G35* zpdP-y&cJkxY~OcvSW&1dDT>5n@`&1)0*B*57)61&Dt>f*nhhjuv)gCq0+0!=RVhSB zrf5RXR#jRp!Zn;W5m|L7{fB$v=9aC#BX>lkoL1@3zz;;i_F=8TzMJ77IOpG!{=*S?or2w~fRf-dqUmo{4*o%fV1id`6*N^s+;?6rB4H{exLlY6IWANF&sy3d7U?obP&-(#C_)a@ zLaTiZt@AGi+xYP40}q{9H;-W;V+M zLNy1M&rb&{X{dLdX-J&A7X(7m$L+f;clQjSB*rp`6E=UIdQEq`tACvBH^-Kc2bPyN zvcRj0L91s`+oYkWZ<_ZI0;k-&r{7Nm7d@gfCFiX(Bk*YzCC8(d0jEh7&>2QLGy=jG zOb6Oqrg8^c3-#wZGzYMQ3CT+zE^o+VWa_mXlh$T<&-SS>;WQ?(3EWctFb!DZ`2kr- z)D2^xGR#q7!f}LAtM{XEh$uv0nZQt!GKPB;!9iBRW<&xn0Q$u$HFCQ;o3(qcf~=Y` z@?6he=`=@e>OW;1YR5U$2b zxDG3;l}(h`|KOq8i^wp80)2Jq@I>u$N>DLcTHQyGyO5PbvD{a<-)5=fR; zpP23mni#O-gMswX7y=id5~2+I1zT%dxRoyPr%p_6y#+fdn$x2Iq(Whlqp6a%0aNuq z3g=;@rmZib2SEec?)#7Z+t7E3s(`0zCaAG;Xc|7vv1%M;5Ot4$V?0>>%x`jF^B*}f z20T;6g{toGn=aGt9eqY$BgX%$$e1{CVy*ci zN$B7`v_FRTDQ*7%A35<-D+CNu39c)^0u|y~yFeD-sS6r195V@nY)YV<%b(f#xf}u% znf_d+YjDuLW>T$@?Uk_k_N$QHeV!(+5#vGj2{2;-Ogho#Z>_CYqHtM!OKjHC(T7eg zxc&wZs%6b9b3PzPp4dRN&e{i@CO>CHwHgj=)|lrz1Q^=b@XG7d;l#CMrkEQuCIw=7 zM#a1O#dm-^SHsk4E8Y5j+|#cu&f(~)j^JP;qqVDy4VO_Yi2yfb@08g8LE3~;?JLE_ z0#+calJJ{TdDH%5AJvSOK@!!MT;PW1Bn%iT2oZv9CPc4BO@USQCT50=q6qSPd|IlI zpXlocxjj<-5E5DcBP#BNbxJdEFu>*M-3{VxM95YxESn=s2n>ZjB$gg#sxH5b9>h)) zb{4rSV$fH&Mwp%nco0;7z7srZ@sMv?i_rdKdi0)|`KC&7$mYrr!Ru#$n?*{+v0wN& z#DeRzMAc1KmAZq9v;|ZS?B%T`c;vSu%AFshJS^|k8kKus;X_sqjCi7aYJ$O;99avI zJh*YLuAtp`@EjINJwS~42Wt%?>LBDrw#L3@Hf+nHAlU<_^i2ZpM=mO*}MBoF1GmsG;T_ti!O^)P^&H2si8C=UXQaG{R~Z z=$uF&1#)P#cy9u(w9<{|esXb?FRpQyK^(B@7X>6?!Nmm3LJKUhIeIyJJgcxVaRi0l z7?K7He!xW)*|NL6>gXAg(ssU@VN2S+TSk$#diN&BgT|N#$Fn@_GDjE9e`pQK_(YL1 zB`g%?)DjSg-R>Lq}(6NyefQG*t-4fP2!{U-pn> zm=;0O-gQW1L+q)=ZB&-u6F;^V&7e4URuf8hmwj#%n)WV)1NH-Wl}=o+_$B)J8h8AD zVMTb~Po_9EJ-#}f_X2`gpTZHS?i^jh&h9<()hU)^pjs>it)s5(w02v%rx`7j*A3X~ zC^;*u=|&)Qa!)EHyGZ89*PPTuSl~;HznP#_`u)35D*`|qVgUkC-WTM+riro-?$;C$ zFo+FJi@&&k{)?CvkXL9Y{OoR;*Q>bf-!ILbwgW?=U|G4-2dqe9wq>^8&DZrRqAR)a zI%D41D>eZp;)k$N?9aoH>0nLA)KMy=Cs>=zz3$(?)bBwvzpVovb=don+c^cto1Jqi z*a8>eI`@u!|5kkanv5`_(pl=w zw0`^ZYU+y8T~8wYtoMT(Xh=j>E6G>e;A_bZ_d*m$1d$tCnO5cgTCJH46cCSU=8A=F zRicU`J9@lg;KCgiY_^AMTh{;*m=EopU%xeisSD4A78Dkc*ynlFA!=&f$FLakuw-1k zGVro4NjtUD7XnK{AMqFFc+00vG%3elO3hqbQaslMh6I7?PowC=i>7V43RVy4Svsl`>@ro=wP6gr zV>=XZCod(Eu77Ld&4*|~C+2Bi6v)CoQIAWdC=%Bo(i?6Q;ss8X;PGktS&5{0t*+Q(&8o7O#o%BrOA?)75P6CK3OJaMKF zE@17}i)AzeL#az;3TrXGu=!L}7YLP93K~NLHl|-zgB57g)B_beoK)05^;5E#kV*v& zbOy{`lVz7KFJ4=p-pd3C)iaoN2iDWW=hhT%1BALeuEX3cqeO9XxO5<`(Ss)Yiw>l! zOxYa2jv~HxhcpKNjp^;PbC4JSt`-ANHmaztdq_Q6r}4>qGQ*)9hlp^B6lsRHadh^D zJ#6PCtqx+B;0DedDhW(HtZ-w=Z8wJ(kU?gYgNU(igaIbnSgXF$?}s!5!@uUHq8k2z z$WbFV*yxWx0K@lLO!`2+X7z8k!RWWg3OP$7^oSc|HTgQ7cYtTr0APPi&Nw!AAd=RzuL${H~SX+j)7X1o9wYv4t8yPtHu-k&(`q_w`T*aWV(foIhu z#1RNSr)G|eW*+wPzr^RMRat`6_MIB`J3zp7*w#Yfg`U#eQQXW$yU9Vi_rKX?t`{Vr_DpuEaN%)1r zPB5lnc$h8`bmp^W!>0hWbcMMZAxhDRx;j=t+Ru1LHpIcdNGs5BRfI!NeKeJR!WR5B z)(oHP)t&NbAns8ANrFWFP%4#E1(&0ml5PTIYCz=+MHPQ^^GYqHr9LjXB19(4V3roB ze+*}bM&`*~yntyx4miJM6PwbXT8=y;Za1JXB~|ofL?;T?(hJfJsU+7t_ zF~Bh5i7pk%K@YZHLwHUMJiO#qm;2JPPD`M=Fu`b8^=E#vKlFLRX^Y>PBL$S`e%J#4 zJ7k5lsY>YpIn@xQaNRyiFZ%#Dz>Lj&7+wGc7$QCP;a4ho>IAJ! zUYDD!&kk#GL26fYNmbdUe zZl5MJilCs(H*;!vuKb~EE&p$j&Fc*_u5uUWeiL?`OP9V<0Sl zPGN^STPSG77>-?uz(~9u$^?hW{1Si~14=$D)IWZ4z_%_2!H2)4n1;i)G4gOC$>`^b zDFlOrNb@SU2Faqa3{-M?e{!Y#K6J*>;Gx2nB&ljzk%)jg6cuYYJo+*an>S#eWlw0? z`WRK0oP0^HDjIw#SDiQbP^La(@QFwUWpW8lPJ-fvs3wI*#&1ganX#&h;+gALq&yxf z`3Iz)D0{s>s!&d6G?z~5NGu3UR3|R@sMwI#26ZGcDFR~Z3_lhp;wG@QEYtxL*Besb znujh5Y*>(gwZd&Qe1RenprPzj`fA7mak0|Ry!Rr+(&8cL*T+ajVG0UKnY; zF!@BpOUZ41%*}3`AKO2;$kdzX^p^r7)CWTw)lzK&7Nk%YiqoaorUd1l>)x`^>3K+f z<%2xAwtuYX;$^rN3MLq01_>x)nF4`m?6HN!W)(gF8?GeYVd?E)hGRudjn6~Xzfz%T z)p%Gu89JlT^>&4)Qg%VDb^RzQBT>@pgcfi_5RcZ1eCi zt8!LRZUWbw(WKFlWuP(?_4Rf+JD)m3)jlNe16`1-z~oqQ(H;uVvPvnMyvlQ3?<)EC zc2-=OPvyLuATTfkXpd(abAcm4L!2&uZ7VMQWevF3N+EQ!y`s{%R+utc^G0!w$Iu{$ zo2Y>)xzTB^M3T~beXh`PIVA_0AO^Tx5F;J3$RD2_bx43h+`fzI1c@IZtkh`M7p*MS z3>ec;^IM5uQLTWh4F8k3vSi`#uvL4~@P~q-DpJ>Zq-?|~n(RP38z#=f&f*-L*3)!M zlpb9z)?nE3D@^<66xNL93ZKRq&6GCIf?MHopZXdvyV)9QrKTf@0=P{J?VgPAhfKFy@*H*C_?h1Kb~96y;Q~LPUf-hk1rP(MINsn}HK< z3rFeT$!g>ED&#Gg))?rvM3g9^I^(oYPw42##~B*EZcrpwLq}DDw&*exwECNX_CF(z zP;zmpU}}BgK@O-7xpG1dzvb%~sBQGQ?lKPyC{MnJ2%+SGBh#i$RaFnhRkS=F27$Kf z9K-*orunzB#PfdSGVrFMm!LU7PZhs6O#h7qzJIq+xje>V1v8EQ;4^!f2 zOhU63LcbTeR#j-Sga9CxVB&Gnf3%BMa%U?>K2)}kjddfEVL)0*`8!W4nFy^|MXIVP zn!PGDb>JmMsNU%Qp`k4nt-Nq-*Ch~q>HaxGt$%FH)A#*bu|DAV#hcUPpiG217a6E8 z_0Kd=-cwstL0As>p^pL6Ha$21z8FX$wSs8|SHDCrE}?~2`b4$8=_RI40S*RJ2?u!I zUg8;u;ZPDTplgf8y^ffC+{JQ^Cr{0U1*j}>ALNY1aoUlM0#4bVWOcSG$mS z)97YWd?b6T}PUo0bxPz)5h%Jrs4|MEslZHp43`uHFy3Qk+uu#Q$R(v1g7%p>M;9-NUAXpQSF9>Xr>D!d(@-jq1M`5Jv=_*Z}q;D_jN3 zd&KoN!dBZf_4FD%L8sL+%x2Wsj(7kcgt+dm_i>OjKKSKXg6c_I2bRpXR{yc%N|Jp{ zitPX3h6wVtSJOfY2HHlr3gXgqk@bJc#rAcrAUqLVS~?^@IXw6XEEWDOGtSTYRrTET zM!VOFSyl8}eye7vT|en85nb)yh8x=80G_1_V+dMA64;Zt(4B+Q-xOU-=~!ugeOKWd zyu~Yx3SAny=v`GiBQ;}IjgIj|@z*Rvvi7G?K?YrExhF9ll(R{W8S0}HnigCW12L$r!?CcbJ)&|98XN4K9R2Q&zxL`j9GGa(|u1*e75u24D%(axGytz`_TE- zjx8;&@hjC`$JNl~)V(-(Ju&4%-04~C*VW3vo}(9q>LRAq9xB=!Wly7dvP+nI``M6r zB??R5g(C~%-lvMyo(Karx$Qob5ZD`J4&9vR7|bs|Fn=FVlHjg-dR>@MwfJC?{hs1A zBgb>JQ#ErNbNzMlhCo43d4i$!b4#x|Fb_H3O{+bLQ|hx>!LI@q{<2y%~@I3n25?wSeV9wYnV6jI!7f>I$ z1@V5vvjAho_b_&Ger3o8>CoqpJ5pQ1!l`|n;DPY>#qO5L!q&GhxuIk7l|Q~(oouwK zn725ise1|~t_Qs+x22Eism3mjY*v_r3HQCGLg38}>x3z62F0 z8l7Kv3NEcQRn*6?j3_QP+h|{0@y#T?b+>`ntR~!_M^b55_uP5rnhG@d^_EQ%#^a$9 zs#+j9g+}f}*(9rL{hv=p_uYZ5;l3U&;Ey%h+50RBC85quz|8AJR3MAk!^fn9Ih-*y zvc(`ek2ZN3Q&es68gv(HwV=eh_PF}x5Kt_1z{Jn8b1eIwH60@trecwKlE0%_)53*B zD71ndOc#0MSldC9s`D}F#noOmt|Nsuwtm)dE8*FgJGAOuNVQv#y2O9{qiRK+JxR~X zCE?hgx0JEexI&8atQB&P*3Ue_q1iwMBfaNQjPwOU)jt3T%LbTi#89m5fjNsPsiV~LYkU%hVfBv+o1~4LFxDUtO z`5RS>_q}!$yH;z}qHi-(`A*EV(BxtiUCp!-uUi%YLUh{_^CS#AtR;Yc&zndSx)4u2 zp=t4aIBBGT4Keq4jsFxN=B+PmjvMN7h{J&O$by#*O;T-QE|O(Fzb)?c=DN+3)9q{rt^!b{T$PosyF~ai|32zPuONqE!;S7R#K`4*6 znGxGkJfC4jR_6vQ-4eSL{1sxfS6LY3$qZL&{LhZrHF!N;K@PS!TRv>$tMvMofMi0V zjaCGj)CkvE?T-!~8r?r@{MX#<%~u3;^DzYe0>3`hx3W971Q`bj!sl->pZqIxRF4Ur z7jglmWl$T>G@^|{Zq;+0IE>(6VZCP4!uq>3opfk@C*J~BmC4hvrdN^J*#d{UKw{#3 zZ399=dhCI2v6l%2PO+#TKZ*f&D9HEAvKXVK37AUcLEz<@J@WLHLSnebpO6K3ZWkJn z%^g)00Vjk$f>cveQqVoGUmNc}8w{DiA|6E&wT-4d!*_335l8K^m&06 z2Q#(ta-~>;%XK@LsMYZ%0oqG!h?IkcNh_Z^C16~tA;H=&%CfHmI025SlWG@u1Uyk? z)~uqvtGyZt#!kQu+1eVAMf`GL9ueJ)>gfUp#-h$iR$U(t->5-Sfp%G0`y)xD5W!~% z&nm2|8CK{Qg3`Fm(Thr;5dlaJ{ab&<&ix&d?Gx>X7Vaj+0u;}tTv}X$&Zj)6av=#U zgsnTW{0T?mb2xQ@4Bi8{HRT;2PJ_S|3ELK*!%%G-z`1GDIk}z0Yz1=XbOl1DaR9%R zwd1u2V+(QZU)J7*{mwRA4b7fUnuZiNc94!|Fpz3n%D)eYv(asJ%geFGsZcckeNSUk zb;{OOH-ePNjEi-B@7$;2V7i;YPMUZk2e}<>L-n^u_bv7^`qAvZPe|cqwe(}}t6gvR z9WR%j03`2%Qdb3)FDCZuoX@a)LpZ0!UEh8L(m8Yo9VqEo_{JPnUz<#VIfBSCvGR}Q zShycP8MrWABeUN?CZbD~{@m-UJtA;ZZMWGr7>+?NN{X9*%_v==N5c`ScGoh zc9M9b4Tjj(HJ2> z!T4eb+??hgh<0g^0L-Bvvz38M^dL$>kyk_-R|<(tKwaQN3;}(SDF79Ggs!0_m(Dm8 zI3mj^G^LZb>FN~c#owR|h6pZ6L;CIqD~=5-Zl12!WcV!r&$ytfb?x`NiFiq4<3BwK zgv~a%Zd^%l@`&$sge9~!2{%yh!PR0pFEfG!Lq78V@L;G~!8Elz5J&HZsxQOHm5XC= zT+=eifv8tm29Cq%ujZlV%0+cG&-5s#slDl{l6O#nenf|TPj9XM!#v+)uKXCKXe6zX zSw^_u4-;-!dPHB-ah3&k&+umh2T>C2h77>Y zQFhLV=q?PDd_$sW{EbNdmb<)aguVBv1oPdwTr@Uw- zLZQPcwB{|YOj_NM?5+-aP*aY?+3N>pKJl^Gz;2T4#CV@A7j=vyKp~)0_P%e(tMvFf zWLx$)O;7#4&*U|{>~HJ6MbzG?_NxM0SA*#oc^@r=Qh`8u`Pe0F4VFrrvkIJz)T|lo zkZyVa*TeGOizqx$3xdmOb1rQM!@uI41 z3`+lKuRnmf2r{}oFqAf_O!OyVWO>;<_%HfD7+Zn)&6g@VTFw0+Mal4@t=W>$+7m27AIo7W!=O z3hBp%gLfEWR+k(kGP-zDtPWB7T3we*tn>k-8pw2tKO4I>-e7Y~IJTN+sgGwmI{5>;4LJ{Cemx@6eC07KElPV^HIGli>K(Vs7{(EZcils- zNZw--Kr7%ByFSzXhXc=W_QDFL#q@XC&rK~hSQR-`CvERnOt=YrQYbi-%cz8~rjVz9 z=?Ca<<733N>d-lK({NxrlXsqvu&vX&~YxQM(}#vJ8e-|JIY( zIN#MJvRl^``Yx?HtCOp1_Zu{zomoCfs$)j3hc$?-1Sscx`&e;NP-8)13`gFou|M1` z5mluz#*GLl3^h02!D_UxB_ao!#HrPuF~s9>`7S%J!b@3k$r!Dl=GL4sR69o>^ZpE- zGzok?$M#;{US?xx$=;QR^kAzLoPxFa7jbnK1@jP*Z#R$C=+6Ij3F_J4%xF{2ObLk} z-$HHB_5Xp3TkYwufUlKQbPhTgJVWv*AI)y404XqLD`DW`p5daaYyXd|+;}{oi&M!3 zIsZgneQwV#L6Ga)`xR5k)fV&OcN=oR3{Sr+-&_$G&lOQ;ef*+Y$))}mIg8t}>Rf&b zk5$cOS3Z%P_*#9*U{_K0(g70a!iF>gIY<#4-eaFeO1T)V7crhq_isE`1|OO@8)ajp zM~uZ>fCl0Dk>4U=28iWmd13I|7T#IzQ}}=%V`Klp@{WxLggBdple0$XAQTLB%WuQg z|4!Mu$i*zJHU+6^Ax1Tt#Vf-jPKJia4}vccZp~=Q@Gm+|DCZJONy`(T5g957yg__rN^5+jAbTx) zB!G!nVBu~fuzYj8Hhyx2^t%!1Fw_9y7r2;WYi1{IEj?pG%GL*S^pAqeDweR(voj$9 z{JUvD0-r{P$K0q_bnb9e0+@ue)xyrth?-k}V^ww;$wU9>^uk+^ri1$J117~aO&udt zueC`yD2@kVzgF4h1TpcXGS!vv)KzQIhn!;l2F~z_I~$U)W|i6fE2tO`KuY$0yit3# zJGa%y+18g?H^z4>D5`s%T60ARRXo6`L!PpZ-ezOxB!ivex(a74HDg&>c`Jxns-gH^x%;(kOv#1@X9D=?r;}x}6((&sB!P-bv8xU4H%bW10qnrL@ajwR&wEJ} z`3EFs5USB9)%259bF@+I0SZ2TFAvpj@){x$5dF8<{LF<|c-AiIibEi=^kiHBjbS=u z14*41jD80Ar;fAB^LYJL`?ZQzd=OtP$5;L_$E(P?R=W8B|BV}XkkM{)FE95rIxt8M z&u~ztipWIJdR?aJ4V4`=%e=9Ji(c8mka~?em+va5p)vRanjN)CRINsBArP-v^RT+= zy=%larny1SfY|?JyNgf#Q-`KVk@}4o25Rc3YA`OaYwUuyD9Z7sB~Ba8Jv?|w^LZS7 z-hky>1jb#x^wWrz6xkACC^Jy)l;4u*J*axi1WRr;xUVU+AE`p@sgB|oF?Cu8C0;R7 zhr#9;?{6?AxOqct>^nGhG2sbZ_ot>Ikk5u!XnN;YWTr95w@X@J-ddVeJ_DQFEuj>T zGY=pWrNxPAEbZUFuy165qsr7biFIjR*mR1>y3sxMT`Qp?5R#gs=~Ht!qJgn77TGe+ zlYOUl!Hy#bt!w3v3C7L^*2gJw@c64$FpV+_Mrb?E{@Fsv;+Ms^-Q~DH3n2uVxMSVa zBZCI5Mm3ufvTDgELPQ0V+6Yelfr(xZ;M;IqJ_}UW+KEu$Wx-M~hOLERyD$xJMoUk3 zZowmUdc!%|`CsvPe?0u*1j9Z!arQb;B3L%Xr5zM?4Ktxg%1?}qNPz(Yol&@R$4xif zZj!M8=l|b;9JU#Zh*_4_F-SmlWk%g)M~81YEWI@Jye?l4G3F8aY}lR#TLWC@1Y5kg zan38y-g*>5$3Db7vley~x~d#<6u9bDJlJT#$S2jlDy*I@#@Z-YV@ZOVdcGwKc|I`#4&SW5QBU$T?3(OhCzqoIouY;R%wz$``5Kv%#axHL(1pw z5a*!%*>GW*mDKY91&|w;z8J23Mc(Nqn`hRGX`7tXCgbiu2?nio$v2xUjw5)DX~Zo0 z$xqeyS3b~Cv%>@XJ^!%pR2O=2NXjwW=@K9PPui_SCoj}C@p~qz9<`}dNDa^w;aIsk zIE%mVDH>1J3>!Q+{{c~lqi@)l5r7>M6AagTJ-ZGq0(WWA~WfdtS>r|Vn42o^I zKNk4j!F|7>9mgvO&7|M1V)YS$#Zjjd0&#^rqo3#abe;I|;ZY$N45-A3Df(0n~_AFBD%@3-o)0p~$CZ|Grta;Kd)>0?_ z{;M8X{ZG8+fufJ8Md9h&{pmXgkk|NsSVD39|5`$EvN5pzUzSjpJhfY0xdR6vWqVq$ zcc4JP#&O2>`1&B@v3YL*&crUC^Zf)0$M^#6nx4zr=P}P_U@rLm=Tj$9 z19Q)^7tPdMP>SIBIBU1axo&!K;jU~jo%fNA;t<638g;!G-8_dyqPresS$XWrYi~=Z z({1*GjYuVP92V$km~(Erg1tGIvcTu7U$;{~8u{8g__~ISOOQz}rBy~9k#4aC+uR!2 zE{oOJZ(y3tEDa@)N!{!!f3`1=pbp7E^__=JBy0>gL+^#cI}@0^4d`z@yYJ7d?;aP! z*U`wAQkPS^-kt0WTfFT~Tb&i9`;&v}CGPK&Z*X5$Pvb(Gn(JCCma(4Bwh1w6zx){n z#wdb|g&gR~C zy94s8wRPjf=4)qzi{|Ej7%8_iQ@@*c!XC@t1$Vo&G6|2u$LBrwYnHL)W`#gKWs=@G zmSBUjp&gj3*B{LZ%q0@?r#p?v4=z{)bgsH~EpCG)oxli-|ETAJ6gvaa+teQz0_%OC zkDtF6h<|cllvxkaKC_P+L=Fo_K;KAA;-&bq5G1hm#MP7UC2&zexmm)#*0__VxN^L) ziGAGlXnOgTY#G51oXH3@;=$jRYt0&KURo5*bVDEd>UgOakJxv=HiwAJc_tjnFM-Uc zMxhQHD}U&(z&;Kkn<8|92rF$A_A%E>RG6Kl{T(G4n$*tw-X z)DdxTxy^}YLN>={9&TI6O{L3Gx@z-NzXlCc&UL~2ZZ)>!6Ig4L8&y6T7(Edd*ii_x zCs&Msx*zrduJ2d}NxYT5^)82I+&6_bZ~+D^?Qlc=<#M3mE1S#hq%xRM1cMa2A56Gyi@8u=A=A*T6$9#~2MSUikEU ztGTJ3i8+|5Uep?DQSm~PcIoKlDTcfU1aG=)`fX z?UJz~U+jhBf4p&E(ZZ=!h4b^yA{W<`l#Fpx9=*F2;U};4Nm5^>)EOkUg98{U%KYvN zJ-f&Uo<^wUuHMg_apJB1{c9;YPKA}rQw9oC5wttcDy9%bV|0bVV0tbl<)W6tHwB1R+NOjJqg`F zp~GR=)dYOg!aL$<9BcM44oK82kMN(N$HZx#a77BJaCFQlP@O~BWy!#XP;eNSF^?8S z&Ww;ay8C!Wtf)k!3a~|12HPRQ0?_e11_*vuQ0MW!5P%a2>RZSmWGth(OXWh@Pth(i zAtgrD5mco2CO?5LOnw!by3+i*#ZZ_fjlW8ld z)8pW5Wd_K{UTRn1I`9(+)OzTPp}v-Ji^O(dRvd2&RCyg0d zb~72=v-Vh%jQ1e>LTDbTt1W3UFkPr$U3l76ND~sB=<_?Odz@-iQ~}XZUCqJ>Ey> zi^Ua9wbk0Jmz{p@#4LE!HNT3OWbrFz-kfe#w69^pkr|qc&GD!(d-Q$?b&uM%hq^2C zeSh3oHejm^7#)Uuv14GL-TfM@w19}VUe70%!cn!pRBLQ8iYJyVx~8jo%#te?cyW6# zYqhhF{|DDVD8KjNboqtTt#Y*;o~c~r7?$0;+^ z6+uG~sm3Agr49mzOOLl zfZIg}q0Xq9(xz3v<^I96*Mmx|`Di`Ia;GkUkf5*F5Jy6)T5zi)p!3`+6zJ)0DniY{ z<^D2$!qrfNH^gb%(na%I?%(oRW(Dwq7SpqfNm|)khuDj>{HcTK5ObZoi_H04F6c>} zdlVf6&>&Y;fU7S+(~z$!099+q<#Tt83l7@hFcs;#(p998D=$)!KyQ4@9dR65^Cc?M zp*7i(d0s~v2#9@rwvOc5utrBdlLvzJoKHs<^qiq1v6C&mgQs<*p0%}CN4oUpchHfj z>6ht93mTxXc&Uz@+q7xib6ev0RimOL#d|7O6~UZcj$mpkF(BhPxo+_Ah;VQIRP2c} zJw`q29MNh_HJ$$I~WIknM(o z^nvD!VLK5Sp?tg>7>$%Voeat-opi7P0Ntu1LJJVH!~4Krd3axVrosp#eq$EPjX$_> z2@~%TpO`+2d}dDnQ_aL+qmqU2EmbH7MKP6Gv)ZRfnox z)S7@xA2*0x=4btng@LS!WFe?fMSJ(;q-OeRfHZ(ABbj*-OzbW{)vM~(mT`RVE(Z8K zG<~~1c9Z#dTiaMEK=7KnwPoraR({`}p4z7-z%o=|EU*uc$^g(`SFDiipo1VPxMAxG zI&fb&!BZ=n&XbDq?sES+w09=kdNaXjQ_JN3KE{LXRGHwDFa=C3x5{bLb>dk123hws z-n8jBN^ELj_j%&)iLsTBQQkc^pqn+ojW+RyoW;F6(`)vl9FeSh2R>&SPy^%NqZi8u zW9bGV4xC*$4%@gd7c7sWaOJE8o6{x*Y+>s~2u3eb|PK$w#9dL?m^`EXn5C zGedb?_#=zsf)u;zSZqZ+)hZX%A?6BhFL>w)`WA5sas)YbVl>seCjl`4p3T5G?<3@w zjdAIQ(s>ZJhqb|ROp9i5vnOWuA)ob?-sv*Uj~!61O6-OC$`v67^mU5dWTgjGr-hJ> zly#r@2MJ&wzVPBLxP_}j{gf84HP(LH)TVBMY9Tu-JzkzbVh4S8?m|SxrcKm;*lw3u z+eBfvTrLAk9~=6#;lyr|z87{G>DK~KC*PMWyX_@qM3x{)2_Y41L@lWbmZ40paCJ?} z4FtLYH?Ym15rSL{XuycgE}3`3QL325`5f#-hmL<90*UiJ*bI%jdFDQd1!Xp=wVQk> zZZHovr`I8-GM>o9n&1zDY$`p$iuDy%0kA#jtp8V*BT6%|I2d5UYDKzh#ZDG>@OGC8 zRbd06rWH1jD@qlPO6AIiJ&>u^aAR3+Ej#4-m+Kr z=eGmG9(?BWzVIws?8?kCCM)l5WK@J=mPN@~5sR01uiSD*C!@uLKp3aOZKF?M9tO|Y zBAQch)(+Fu@l?*hO1i0EEKJ!0t&ds`CS<=in_LkMFai1G9UlN&_-S>KiMDtWS&SZo%= z9>#RW&7Cr>BEf*`24O(V8D9fMk>p#ha)BTV7jQBV%A8!zwG#7CmXbmv)0BHPWD?9o?V4&$| z2A11Oxar)h81HU0&9E%}Ou$}@cOP5X)WDSPbToCS$xp2Y4g1FmOn2zX5)>$W6!g#_ zHP8p`>YK(I*w2|Z8E@u=|F>zprH_y0J`<{G^CoI_7$iPy7UF^1@J-ubn7cTn?fut`M@ao z8s!**GvITO2fYIbjnn8dNR)mJ3Tg=_&r6;uEtu1lz2Ga?>1gWU|E*i+jb|4S5;#z)1%<7Z~OOa zTK+m7b&8mA5g3c-jogSUr8~G0&?=2`f*43Z?ZATfGJi--L26PY72x~l4$A@JwoQ|#g6R!+^#yCB zlhc9>nWU8uIX%oZpnO@|s!a*aqNc7Z9$w$znsdU~@$cRs$BL!eDn;1RY7moZMld8` z*;J>`msBXcS%TA-NAm6IqI_>Vl5d3P8#R(|mkJjw&nmmu8-(UQJBwn*++^0f_E_I$*Y} z91R1G)RGS}NJR$Hp@6K#TG(n>?pvEuf6(D!OiaqeT4(+)X9rMLLou!0mBNmcJ6CVd zn6$<2M;oufbQRBIozvq8FFbD^z6I$vYr@Sk#eT&8S3uygITN zva;B!pQ9sz=kx=0q^&l8jFRLUu|`Qcbf2muf$sZ>O46k_zk!lOO~0Lz{s1?c(M+3(vTDorn*Tg>SMQYdq9^8e|!CB}f!k5uwVPhj2Yw zTqtiEsr6Cw98wJ*H#H9$I&82SY91SURn$CtUydSZ4>fNa4RR)&5$J>P4;G-zZ{TQ< zvl+~_r>XfWa^1!MaSdVc@BzG99XCHNu)9|$Di)AU%^Fy-dzqc@n2B;mpbx@7Sb&Be z_0_5P1K9cXq7W_@U4Kh?=&y-+>x(MDl6xRUy?%n&)?EQ#dV<)p4!1Mamf`7y!hkB= z(7HNnG>D5&(G5&n5@e#;ZfeM(ygLdpVr*Apoxu3rr&cyKuzcvg%eDasqb4ibxi0M7 z&qr)hQL!1yce+So$C3MPC4{ym=D4hWSZ7#N>SFWt{axO`lVySziaJ90P^CjP2> zskY~eL(}cO&u8xEGfuH6x*P8$N&PE{1_0?i10tXlo&i~JKagkGe)ar@B-c6Lumqqv zxCudDVIY=|RFXy_ASssUd1ZPfI&Kpm)#pwEKQz$}dh^_TL;k(fn^)cXhVSIQ-Si^^ z^{l#}dE~wjNWmi)6>E_9$%dVyh%=Iq67s3%s&Xn`FK+AS9K#-ZwiKZai%GSGGk?~0JYU;aBoLV^r!GSEak~WXHtun@*Kf;gp|3kGYXnA z$nbWMYO$$KN~gLqf>JZ?)0OddV)_B-6%4el7|Z(3)Rl$03E_QO5ROIV2^`yK2VZp{ zU&xlO1Q=JfM$<1>wYx~;V%WSk?u|ObzCtr#9S>NwBX#AeyPf~pw-;SGJXKg$p)19! z?{y2)O9$-vuYlMRB7?7y)D%%WLi*pkBU;TqJCD4(c{(H+M6!oT+mhb;HdFNX`2HuX z@8cEW<}NLea`F@w3MF;Q_nEm5m~}9V*z|&(q7mih%H0ll1WOA%AUeDYy9w1qD_E28 zycMw-EHfWEZnj9zSjM<>Wvn{JQm;49mX>k1RXcGd4itcJ)_`d~afoSgaN%ZyLsHkp>=@DDJvpfH?h7+B>O0me`Q;U()jiE z*3{}r(>V>L8J46Prqv0Ds8|2ylqtxr1geoE7NNEzAj)(MTgKid2HAgy2Sr|np~czKcgVHn=$dkIxo zBQc%fWUI(-iCej1l>El^5&!+)n*Vq*5)60^QSm_MI7PwPpyT6a$ty*h@^0smQFT1L zFU(gBW5!QD8jkeCJ#KT+wfsefTP_)UK4tssF}{2f-78?gMyxcEhT{WEZ6gA5x`+%v z2*655>-;S0CcVJ)6c58@UebhKALIBz;b9#fGw?DU+i895&aVC;{ZO2z-j%e* z9Kh~$%u&FVnGb5r3s8GJ{G4fJm>T)GuNvgEGtH2G%JQJ?#3;dG2Q}{sY5$5-+~mnC zlztIdZq5LvCc~x?c7KS761OHWE)QBROaPSc2Amqg-GGyTv4jrWqF%t+D<&+BM%H}+ zcVETbDdR`Fr>~w)DW;rX&smDV&PSg3Fa<#S1#mu4Mipk0S1^BQn&sWGfi28?=D1oL zj|g_UOr03g7zW_Bi*x09pZ7QH+E-+Xg;E4uVfB#@T8w~uEx}^4mz^Ftj<9=j<3=G1 z@pQ`ACUiiU=V0}0-a=U5!)Usx&seOs&y^^RG{1 zzh5Hd6bG)NMqxLnav-iTr)yxS#c;^ z8gxlUNJtmv&_+}+On|duHYCU#(4l}khf?{2k}Ugz%z-pZpUkp5JoLXo&7RP|JK}O& z=zkg$O)=gN)#<+RrsN`hfSVWIRJ)4gl43+g@?cK7O}9>5*xv4$KoYPQcXy#xV{vICz@it19Ec)6;Jc}M*{p7^33F;3uO;t)Hs?A8%jS7CSR%UT*<+c;Q-D<=bTXl zYm>HXjK=AG?$&kgZbsu#dmR}hQUHcJ*TKkOOPILg287p?$hx~SOG8z*sjav(d1A)^ zj2JcVPUV6~Hv6&z$P8OZkBjWGyIm3SP_+7=PUEsOo{=63*yGV%RZMo(9zf=o6wCW{ z&yHoeNQ#;4-x0>?ekN?!g!Ocf{dP@;lO(Zj?%$`|{uT;Ke&f793J!)VOQkx2Gnq9o z?(#vt6-3Fc(0E%xfKLn48bet+PHk@Ep=TFWvF%avaludT?d5;-Lh-8O)GlBDHudLQ zV%_#KJCzU*!;ly{b} zgVT4n9fQ{8x&#y6cgw?yyGn!c@)(ytjGg`m@=NE+bdJlq-7c?*QMch4es`1Ju8>vW zro~H4yFwX^4|$(4FNu``gw0>Mn=}|cSX+xSl`S9g2-gs11=MLBf%NwLuOqNYCRC>-!9KD56Uc zN=v1RUzvw^CeiUKvH%qo9RWg=F)jZ{boy1E<1smN^j1g8uiH61+!>D z!=cw8)>pjfq3ZDz&m+31$MH%kPCwtyvBST;jt zmRfl37-TE|&Y8OhT~@rE56CwZE;6oR1W^|YVyauuVWmnMl_Xg?tQ6{`pZP>qs~Q`X zzHak{ryz5PdA7n3EHes+WW<_A9_|YaLDIjj#(N%l(!$cklNP%1sS_{@gA-^n2FNctBg!z} zMFoPEJ9b9W|BQ0Al+P&DbSWnFy$Xy;js24a#-WmBV{RKKHZa5q5$t(mHKXK@qV&@j zR2YleuS~#&QiZX=azBP*8+vO*2v#ro6c4(nU zr=SK&EgKXIr&El?%}`ZjY#;KIu`y_G5^s?)kuyN_2*H(&Iw&$GQ1boUMaEX$aSxXI zcPKJm__Lz1Hwqn$MM}u!!e+VA1bxFHj#7XmM1&a!QVJE^U z{6%FRO@M|%a4}P?uO7WNA=Wp}WD}z02f!oIQ)WV*|0q-i2&4n3$#?gvOq0!Be&>E3 zfrU4O2Yg0eK`tBs81fX6X>_6CC0X(n-RpD2P*clZga&uE@BU<~wg9Fui-6kWIv_)> zI!%vv_ZkQjvh#oel1-+Ze-d;hMuW}fvoMc~lL%N=1Z?8Fuu89HZQJD4bnnZszks1$ zkp!GA8_f86P|ZVRT_Q{|PM_qoUF8ZMGEC3S2wJ*EL_uE=I>RwG5T9G*eKY!TLwzwt zt%5;hXO$`#K&gWakOvtZXR+JV&{5QoP0&KjJVwW#h?zU<7Qd>70dP?|#N014X3n8T zi?_#*D+qqf@5A7_vkrky<~a3qh|N(?U$(9Q*XV#4=SLME2YnF!!Ciep!9ux)A->=? zTR#wp4d70iNl+C#)ic)+u9z3^jf*dTP?2Nwpzo0!xob7|85lw7L;D(`|e`2 zE@@x0-z^#{%)eqr1WLpy$_6TTMXcy|iv|s9ez#~q!8v!VZyH5I2gKr&si6aE@<4iO z=zv&X%Hjxi%oVI>FQPY8`+D{3*Q)2k*`q?kPA*tP1H*7nK`CqCYmF`c*W4TZ$Vbhwvz z*{2?_L20tV-@!W=d9~gl4j|HN=t?YiKEXv!W59_?75u*u6VUm8{}x8m<72!m0PyX% zFal82-8;50Dg*#@wm(R!9|r&=+b`95^Aq%+A+Zj>dl>P-nNpx+cw}KdpLBvK6qMD0%z;1?)J#4kKw_&yZaP=b zQdH%qY($W6jR5vf>E9P1X@`4CFn!_sL~N;K8FRt1H5`%37^P7^+^2K)cndK*;scIt zJ~;9Od3eZ(^l=eOv0Y@5Ip5@qdB4{j+U?Y)YkGFq$G?Pb?e9-9H~C+>rG0RS=eNt_ z#ot$O`b+1h(zLmec!oORT-Fr394VK^;%=NvHwHEJ%@=R4NW3#EO!J2?l_v_XDjz!M zfvo{2Ck1>4tWnvS+b6W?%00r2cO`cRaKKfqJ(8rL6qa$kR(&nVYvHeinhIZ!OLqZh zm{Cl`zei=wd0qFBj|`tot~^Aodv(QhdX0=u;pW>JS$=2W zBOhShq$A+^i>@K{KWq2c(Jw4BssBm%LMnawxSbV7$!|QTSS;%@UH!G2K>moDqP0sK z%_jrq<88e>aknAAC!Hhavl?9&T4!_vrzjUunzOFM`@K7!m9H0uo;4*YG{I$AkF zNFZVN;(`S5Md>JxfMm9F2|(^Rn(1Jom&t8Cuda{}KvAy4-3bBGvEH2!pk6e5AHMOS zVksyjHLwkL1@)H}_2nqAIRI3{&lmO)(HjO5Set-E0m=X<9jsqqJPQ)Kdr;)OytxNOZ`Yf9Fd^opWL_0(52r|h17m@rk=&)Zc@WGCzkOAI z9Lg5*?@qZg>VK4mj=#J;+lLZ;2lfs!jDQ6N6EwN$r5a=a!p0m=lgas?4Lni}4ZVtS zHH3mw2BwFeUEydhU=9mCyTZ}M(6go4%4!T~C#=SRaS3e3WaQPUu{Cb^b5Uc*9NJOT zV*{FICA#D*6p;|G0ni$`%S&|@!dAS*K-d)z7S7T zLrTC$1Rs#aw>qZVWf+|xNe>zEcefT+z2c&~8=vF@f!Mx?DmOD?I7$_ucss z@@dsVvW$ zgq*4lvA#l0Tl7+`Sv9tl9oRyhd(A4CJtJKGvld1|SH<)fWFe=SCFmqhMEKHQlR3*;Mat$3YFu)4dozbTtiaDSO77e4}R19F}~8FvX4Yl91xZS&X8+ z|NS$wXT~iJb-tw|Y?t41LpsCN<{uGx;KnDe@x=kg2`9sC&sIXF;{~i>LI!a&(I>(% ze-}y#h(%#)KZkgYI=QC^E^iKLQ3r2IgXKNgx=~=dYPCt0d4ePIQq?N3-0H_k5yewk z$5A#-`q;S2St;6J1`}9#$2luSA5WeR3ouS<87Ut@O#`X?TwI7GlMN*>85){P0mCs2 zsma54$m1P{j6tU4d;>V9f$f279?+Jp%T` zow_6`*+T-OHP-7X?xxV5o~>+K7?`I!6O%ixHH5{^a>NLh=04jg8>3VDfz|*sCxFIa zwtBG-1p1)dR*Gk-ET-O_FeZfr<6oXj; zVtqlxEdHE;ZhbusX|#>@6=(rUBMnd=#QM&?XsAQwzRRLPY^;_=jFk>)eZ@in5c|GX z-?o)~>jdTeetpQUzX{5%gkopvmo3(aRMO1})0Vi6i*QYVkOa`Judv*G5bg_n1^`|9 z0*3=a!h^Z>6;4wjl$JbTlzk&hnh6$2ju?n#Q%HoyX>>WcCM5p;ctQg83xjTbQ=lHi z?sX{pNLDI9njCpwfkJ2+<@*AZN)rL)6H6pDoHMN=!M%*$>AwF#-`*I#4gHdX^H3PZ zW>qtz74fF7D;~Q{4O|#^hJ{BJ%vzh~PdP`_V7Is@zuoDZ9h|o#|ITFb1M{paS^S`K zxn5>J>yB7sgcXTsBUP_NW{__r^KOn16T?lYcULhn-OY;quG1tm5E-!(cxnxtNdLt` z$z+wTrae5y8N`L!|Dz?CqGCZJb-Xa^QR_; zBU1e9x}y+KLEq>qsL2m}^U;CRi26>W))1!<02ENAIDY`73Q+$ZKp@F3IJ2q)3wt0o z*c~kfA)jx5(40jhha$6V_T@7(8)4W`On>^!WCc%2NDjTkV!Q3)%ukrx+B!~{Gn5v$ z=4}0@bT_o7t!EXDe&`8vW~N)?NE8y&IjDI?m04}Ip8jb~I~Qyg;q=P=*Ml0)Hx}me z6Xwa(`ho>n%0j8gyL6>^cv4P%hI?EyK;uheLE0J6ypamS2(UDNGJOzlTCuwT!1@cOLl*WJraHuCb27su=!5VN?&>Qz zCJ3b=th1=5cxG=qy`N6EQ{#RQd~3qa^h%e}&1bwY(|*c#SilMTg z=9mNDIFW)7%IHWVMYUFh*)p(2|CgU=!=Wb6^-2vL5bI0XlvPR@2gF{am5#s)#dBQX+@sN&ZX?iM5Y&8kV%z^kbk=RB-D6 zs^!)#x_uY7?(S=w4N_|ycj}w3FLGO;zB28-FFEziaBg%zNGt_})e-X*yuPg{zljM& zz9e-3Ip~A%4;G-IM}3E0G)(%FL)CUwpO}Y^oc&R6R|RRh?>+WylHC>Xwa30qr`!1U z>uqq>Za*yprW}=cA>TwL3D2HP#7T~>G?vbp9|^%l-d_P@cd5CJ+$paAKa?FhfVFx? z{VP9OH^;QxZg}dWNi1NOL2(pZ#92_uw92HNuq%BBa6ukN!La_hqd;Y;sJ>z8_W;dv z@?(X~1_rsE9yRVah*|QfVb>QSW@1foRF_sj(}?Et+H6G(QqP{$D?fh0y z``ZTq5VO%!Lup;^G(-)oQ4>rm3{lkdbu1U?{tyzVpm z`pXkv%)WVefs%9*Y%kN1E^T>;juh}eLPtt%$mFfA5TDeMQT3TRl1%p>tRm}KCs7>v z9aJQT{xTKmPon%WD$*cZ{#h!rf1fXUaqey^^0^Hk(f}P6ak4WcCJ;&pIJ%UsRz3r{ zmU}cUZ8MlfoF@K7!snflAkOf!_Z=Y5P0*F!Hx0=rosqEp3O)K@yIsW@2`!h&?3{yz z-z1I)g~kQ-jmqk4&q&}2DFm@oG26$jr9$5>nom3l$j=;MeG1xc{7zNWp$r&aU(83{#CM1=4IAgKcm zRb)*&ptHo=avKOW-DLyWc99aVdM4!u8bLbLl|g1 z1oJ!ugylo`;*Ffs^e*hgj4+x8R6HZ0UmO_kP6K(JAchbIvX%HN8BGJQ)^l-bHVweA z=ikHS19-Y4@=RcSGI%l$cS zs?eRt$+@AsZaaIu(a?l7QqlPz$T_WDH{M;3UO~x^Tp#k^|E>9teagl5&(k0mh3?F> z6x}5+L3A6=N8jPLPU2PYB(l-jQ-%nZIgJ9Kt1dk(GT?ayn)Nh0PIAr z{E(g$gWG1W6F<$wXg}ii4UC~~$ZmnzcADJmHeJCs{@BC7nU^%N*T+bHP z?X*62R963xekjgX?;)OT%-rejn`*7Yv*(TgehMa1VGCI2{DS;`nJxq7j78;ooR%cQ zMCjb(M-@OBO7Z`Or={BBi ze9X9GXC`{2j4?6(Lj5S;ebW;N%ZD>Hr5s-`K5%yTGy?!Z7r?=$fgM*l1A7#m;jtq7 zy#BlnM(-M5n|?yz_yxIx4qd;=T3Xs1VsZm8Eh;mYD~0XiTzUL)fBWEl|5JkB;)>go zcF0>8iJaF*RU?K~-QehTa5{+jq&F=kG840Dw=&gFAtA@uYwKHI1F_1ALHMDT6cWOp zEmMvLNPO}DeDg_R`Efyg2YC}7gAXt)FDZL>R6g1rQEG4!Uz%;rv->-7n)YJ{ON(4Z z7{1p7_01oD(i@7(gYf;~QTZOcuSA1Yb%iZ4SjQ#!0xX4qy$AR#CW3e-L68wA)%eu2 z3&PWRbp~7LVZ6UZ)E~PFJhL3Ad;pc>En+~ZjZR9LccZDN`#Q;{E07HdBAp}P zTn>~?2F*ir1{@sdNPM{&e+&-J*q%Z~zFbo4fY(P?oF_0Sg#awO%xVlM6k$d;xRssW z&V}*r-Y`ri1%!E7=OTEE&4uFS>##C@#;B>bWn*JO*_5LVEocXw#-VawkZ6Y#Mj<0_ z0#=wrgY^07h$2-1mM=8wO4i@h3Wy)|pUv&~@Mk4}Zds>D?pw9bbPz~iGFqvj17d@p z8UkosP+yJ)uTd4CLB>6`05h-xa_QQ~yGiPYI(ZS4nOZ8+6m}V~y~7&galWxh%WyLu zkJ_Y!zgNK4I!aCoB|}b$REp^uaK@;(;x>r&L%B(*Oq)E$zvT7 z4IkT7el?R*S3}p$4?;Sur}yjCIyd_b#H--uGo$%`ncfJEe6$(6t6l6X&mD5b=~mPmJU+)kSKZ}X^Q}~48P3DF=Iyr z5}s*84-~W-0vC|=1*V%0HTmh9v7vC+0o3FtWOkBaj$?)Vdq5jJwBPT!@>BZBwc@-XAB(%`aY z$IBnaPX7b>rE_IM$2i0jX1nP=w!`lxu&M~L;sj5ha)_jSIbZE_gn2L-KwL?WtfNB3#k%jowUKQz5o8Li2qNcwp@_KQlkK(Qs z)B89->TGtAes;Esq4{(zXKTI+D!9lb%OFQ7v%ooQ2%zlF zfQr#+944gnls!NcX&Hbf^%V7YmK)1as=q}%23Hiqofbrh2bU&+Pzs2`Fx}rt1A{Ai zsnVNozf-!UmscQ!LBt2Fy|T^4jkBQHYoMXS{PWw1l9go&+{5#h`#LCRtT+C)ozg)j ztvgGn)YR~AbXO=%d;{ZF)F3pAiE#~Qcdsymp0uL4{0Z2Kk|{d>fUVNUC7xp1b+-^( zJN|B!z75W4pyAACPOvKsPN1v-h>}6S>YOEfK@hrS5TrMXPYS`E0qpNrYfKLCeMzmc z!>?+z1V^4l8MMSo{#Aif9<*|g?^kO)a_c_(A+%jruxpJ0mg~r!wZ;O@2CP_XEa2=L zeCJx@G)5bi59fik##5_fj#^`}(O~%ET4OGhnR9C7ixA<9^1>{prQ~yM7qxnEO+o!H ztu;n530D}x6LLTmA`@`%1Fps}7#1#mM=`(Xrx@f+!?yt6Zd$PgI1WRBhH= zFsUJcfMpcCIbYn+QY|v>ssShy^su31f2f-m!9lo@D$;ybx$!inD#Cw6x$%nh2JW;1 zwbNlz5?Lv>0ai5sepI=!y`=^+hfwe}Yw9w{HQT+y^e;6nCW#3+I17+;x5pD!XS7ZH zMr4so48{q4f`ZhP=H5$K}U{r_PVpDGZaAABO^WI(mf3e3ELrfp?hVd8z>>s)ka2+<=S>XP`5v!B5nn!b%V} z@fmVo=bS#GD6*mq;yy6@+UCT>%ni)G_D)^#k!l^9i#pmauNijfkdWsb8bfw_?SiXN zAym{ZM5jPhkg&d1a2(Vw^wQukg5yfKyk#FlO8a^qr5G;fe2`YT5Fx!7v(duk?od0Z zTyPXKGMcA_%u<8mu(7)C0~k54e>K2S|LUp*+*c@M5HF%b_w?gmF^SGV&b>KXjT4;s3iq0~SflUEn zYefp$-whg$)$mRwU9I2|i))coLE50$Tn%39vX0~EUbxF&c#g9!UhUG63M+QFjzr|x zKUhaP)aLOz(pH;4MoDsw_*qKQq5D)N>CkvxV8jL*HM7Sb2e1lW0E8kCAcPC! z01LdY$cMMIGGj`Of+orM*TexhEWm44-S=*pe|IoKgEOaM%z-4y?iw81Y?LM(&I<@M zMGbQzh^67<%>>^h^96*s((3EQ9xQajlkExm_k{}F4ISPGJ|@Ha!tJ6FN~bZ?9NYCM zE&KbyH|+V+!^BS%A6mW{90AFGm~6#%kwxmh*M3fyyI!5DrM+eC-d=9MAmHK^S5dN@ zH(Hi3wc-b4&d@odOdz<(`zv7VE;%M6HIb*d!0iiJ+UGif2PHpSA)uCRE}xpdy>Eoy z&WDxzoJ%>qat{@@EmDFP;bPLo|Cj@D_2+g>gtLL9Kk%4Z^hODT&xALR>YUDh{%tpK z$!69Du7n{bptyP0-mCrTEiW3mrO%$=i4z8oHJkYfJ){m2OjSts1CM9wr1Z?5DNV`t z{lrFQ75nL|#BZsa=BKEKzvDDVv#(;BKU9Btnm>NjG0l^({U+1=F?Su){4pa-)BNG( z?w;o9{;!?p*+eHZe!aZG#qz$))uml;YU8?DWDSO z_S2&h>LzupSF*FurHF+g| zhH(-O1rX_LF5+9t%;QNC(neH~Ai#4%;_+Eub4d>7b;jO)f7(6UMr46*!_+?nFtvXb z@FY#u9F%^%96EQsDwd306gy-YUM1rgkF`knImhSsX})btd(MA{;B_A_w{e-PFj7HvK&?xDiCvr>- z6~U3_kL98m7sNsORxHudO>uvbiUQnrr~>9|}UQE>ZQL?00{k6{?%Ad`D|M8%rHV9#ZBHda?^tmorK5ai^<|;i=0TK><%`=I z22S_Kn-#w?H9?b?=vykI)OTS+XF_z;-F@kOO}(T;jsGZk5hQE!Q^Bohn!B&@*}9$F z*42@}cI@uvEj=Zp+U}R^)fp$~`E7KdMnBX@Y0nh>8R_aX`pxq$qGTAUJCF#GVWjQ= z!Iy{0o)aY$|HeegaC&$xIZ=}EoG2OQhZ~s_B^eHX|Gb+h8Kx|B^h=a9Urm&3WA|4Q zC6^g{Bgea6q9i9u(lX46l7#0($weeYiIx2h!S@m+1I^Y&6&W9>Af1pR2n%H0KTnhx z7ap3#z7iygC(r3gnk4i^^6CFDD!TJJ5L^mi|UlED7xQ{YPl7`4# z)8Qx)VI+y5uq>!4*5R00jaBNw&910UTXVqPsNa?(xoD{8h=9MCB)KS;eomVM9!iqP zi*HMks29H^2?Kq+$@e8mbnW#^k`$yyB1tah#Uv+sC~JoHA{plfwhQ>aE4Px_4xN)sy(&7b0hGRc z(1*>d!ylDbxnsD>wpB}`U#PM1%m#^}bRI6DAYyNXks%`J_M-WHXrVkm%C5Ngb?jU< zU_;tb^2y0cEhMnSGZfTd<1Ie}P4zdbHFGx*7jcR@!GJdm4D_gzB&^XHi8FNr6KovB zN-%Z|Y=ZkyHXU0P<7tnvIEyNP0_uDBl`mAPuZudk zM(}5xBsC({&TiK;IQc-GI&`H?HB}XsN{ZCDSe=Ud7Z}`Pz$D^|bw&qt2Evq$-tDaj z6ooem!AjMwf$@drT`8nHfCD~&O<>KReAA)S)P?0jzjQTEu=_kYnug*r;n3z&#>T+- zh#(Kv2OcE<){)6!7mOq8xD~4(2^_aOkH6Wgiai zZzCiflZlTyEh!*CtoLRm5;!ZxhlY~4DvO9w_)XYsk+sH(QA(AAa zh5HT&W||9qq%&N4BvyD2y!b_fkcpR|XO?K_V0O8k{uq^apFhMZcYnV4I}@KX0X@dPdUcBWGwfTGD~ zGvx^qXN736o=LQC zWE*UyN*jm4rrK~T8z=-xYi*Yem)T*xoRHQgep%maS3CUO;gA-!RM`J_Il>9u|oXlVLT{`~YQ22{r`1!lW;7-N=n z`oo$1VZ0CFJ(ZjM62Tv~r*ul}erDB+L}souvl<ueDe)L@{KtSG_7{iN@3tdoPgU+wgt(`Nl@d!JxPZKpa_Iwoa44>>neJ>?ON4xZ?C*wGj?g6 zZzELMBKywVGj7v=<~ZDnW7%F7TiN-pxj3D=ywUb>D}Y8dV~NsJQcblwgm8{@{p%@l zqlol&Kgad|#pTBos3crNFtGPJ1J&+=PgosBu)tw5r0yZdc6 zHYb`Ke6L0yoln{c^CO%e3j7HHAL!nE`vM@kLQMJg@ROx^!wlmQEBB8aCm+OVBj6VY zpPPEXbQVyN+>3+=dz6ROcJYXW zMLW}kL_shNzmg>ugC2tP^;Zq@_j3iT-(|HMQeROQ#3p(JO@v;*D2)~*5Zp|3I#;5K zJ`b1yd1H9L(9eD)vtcHW0Rt5U6jEBJ4XkxnxyrZ&_PVcjEZ+(P2QJBt>biv?#SPk5 zaN!(M8g7X#;qNQo4Ujs$-O?TkQ(2e-d%FFAm?_p#WFgMYoh{$7T9gN||0VJOt_iyr z3h>G?OvxwktqN%XS{{uxnP@752%+-!D>U^M)6oJWWKf*cE&i%9KQ((E5sq;Xn1yE8 zo0D9}KYkA!E1#9=7-Qg3=1+Dynto4luiwrOfAmc%|Nmid#`*s=IAda9W@P+d24_c| zjoaP5LPo$eXDL$W&~)|z-1WS7;4J$17*xP7M?bxf1tf@~xgJ<;fIO zxzvFLpE#p04|^=S<1|_k(Z?vika8 z1>x!7X#xK}-tzGOJs4)@34ou3A#`lsk?EE=^9$>Nws`@m>eaL2D5zON&!0r^8vv=l(zd zkc6(fi{ioI-vA%Oo861he}kN9TbI`}s_;0hE*z{Ln_CtP$19YQZ^WLW8;qp(a9^f2 zyHre;x6SY0gnn@z$RYp1TQVxq*8OxapFU(NpUpsed+aE4XJq*~%ho$QDjkl2%7=1& zWV4`-O87LXAX_4y5Ghv9@ho;uV_PRo^J4RG9& z^+7X~iWwg(kPA&c)%25$VA82t^kj8@w2D-YI%wR2G{HxvY6RXK7UaMwBTqY6tc!nS zc4ed;HLq;ODGP`ZVjc5Q#*|bN^kTUg$;>Met=b1vP#|uU@(p@LLp5+)db<3U{rS^` zpK4-}^~2(mOE3QD{eDKt_ndcn3Ga*^!VCXx=JqG`QUCCq>+(45XVlN)N4_D2n@{Xz z@mNQ%w$1soTDwu@V>ScB%FO>IkDQQV6+WMB6}~uk72dd}R_19K`bFLid`kt5HQ?l<(f#h8hR!J_rhAf$Z+5jTcat(ApE07e7I&msWt7C~4Zkq0`+@ow6wEoV*9zA$y-cZ%w@?KUUp2dIoR?1!OmAf2LM}}Z4C61ejE5GQ zvkc*cXKwb#lz}DK5O0sTa!s{NgE>tvS-8b;0npQJPh*1MhcichtC`Sm^tRu&Qm2vc z#cKh)*w`PEI<|XKheC$Za8P{#lJMf~6H`1+Hbt#bSGl;-K(37wfcy*h*CF>| zr?tbCf(8<1{xR64P|LGHC}6W*q-dMeu$^!^NPU^HM~4XsNJnpK{ zk>B<5=&d;phUhi233y~yc?3-34tljV2=~C7#;A@laF3Lz3~i83)!=lw+HF^{TIH2 z?(oO*hQ2H9zML3U5y4szs}~M7egv6qzhBV8x`trmN>(ml)h#3aQr=A+-}d);A~WaJ z^=hzt)2UyxDtI5eJEyAo;s&nv6z>!2*Y(?pW_zL`ObOi*|Rn8Ju@j z%!7X-bxLFreX_K7?E3qN90o(-a>aZs5mgV3(7OBqs-FjH-fZ=l?&4{kCLgKvdLm$K zoft=>L`|^-_i*1wlt2+?VkR+Mz7X|PU@QZsIMjxlo~ry-V;k!lF6^8XrQ`R?wez%e zB8?p`Y|q>fz*->1iU{0e9)yeZ`KwlT`NX+-iTyCcg~ZTt%z^bK$ctEv~rqwFwA}O_S-xD6$}f* z-J_x>s&>|XutfpeOyUPt9|7V3UPLTelFhrMF#<^w2?vG?K4m6*ZCqXv5jhTn1k2ZF z5U|ra8J>)=_(pdtDokc3mS`o@JAIM|n2D;-6VZSOIte^i!y~a3O=RPNKrC)NGE!k^ zL>gI8yJ|EZrF_KSkB!o>Ai9q@uWV9cyi5vsz3%of|;7}~tadPG1B6A58mLo*IhpK*k! zIUpQvjTEc@h|#8~9MZac?eDAw?qZH#YaX6J{BcxRo6#_hFSat$ciDI$W)qtHNSd~pb)Ht5 z*Cj4>pUJ7kC!bdJOgpR|J1X-rQ73#CR^*zSWYp>{_lo^fcvlY-CvndT$4eW>Q1Kq- zT)-Og{>5;S0&y2kHS>M?Y>sIc@IXoig6!*8Z3T48qjQIWt^NLv61J*WH4X(Ybg{(` z_iE}v8m13Q`LI0ZJ6X+kFdg7hb!Z2YFpiZgkRVkIVgd1)#Jd24=L8tnQ9imPv83?C zNE$vR7cti*YHHS<%(I6RVzbBmfG9jAuC2D2O62Dy7m%H!ZVy$sc7D2_iehz}=n$=4 z7+i;gfBVW{s~zP2-_x2g6+qjUIiV{7ZhM?E+~Mai8^{NtGSJ93wKz~oAz9c$Ms0VI z0#q)UR+{pT$ZmIrLLbc!vnYS<09+wdF`f)L7}1`tl%O3UcZfp5Xxl$1;!90zpl#jC z#o&+!!%X!Hh(->A2 z5X~Fz@_202qA%xJdc-H2c5(i;Oja}rus0YcC4oG8Q^Ls$p)4o1MQn9VlmkB;W1IB> zE$avMy2Rl!zLiD%zWxE0+G_s>Sr>}Zk%=l4tRW-h$h3=s__YyFZrVgw(zjTH%It1Y zvm_Vlk}r7XoAK}5*`c^bjIS>NXNPyJ55!_^*_r3KSPjrmJ+SwLbAShFBNEa{U9$%@ zYq$r2fi zhC={g*0%$=-JRtNZz{D@;OU+yV=TK6LGU;~YhEn^eAMNSbK%~Fwf z4Ur#?|C6BY#yAzO_P4WZeri#M&{6;h?UuiDehO!k<(n9LI#~__^8K-0K+5o#>-!W6c3O3+Yd-7rS-WpPX9ZzBN1BOuo~Fas}kpBfj3(0Lj0kW67XnYdAq ze-a@?BBJV()SiL9B{@MT(5p~8K9X!5ls#w2ZVN9N19pH1#mERwjb~Fo8_JI;dqf0b zJl!SOmXS?9p`4e&)J|L%Am?j}(T(+?(+f4TuiLYQN;fkiQr~Gaw=|0!GMewH(PZ z1=~<6a=4T`g4TG+Fi$xm0?Rzp&|ev?ozj{_p?E)!WZn%4;5flAsvjzhv0IgMWnA%=~ za(iwO;9wUa+}Ftko(B4_=&R6HgVp0PHkA=%HebV3`&_OOkKa0jsuAmD5bB_-km{%+ z=$Q3#ziZ)msQJgEe0k&=rQc?c<*G6Pz*Z&xLwKZ`+PrS@X2W|8vOf*(G{`j?JU8ey zL(;yn<|&TN8qJ-G)Ow9vXv`_qnXKsaDQVR%G3%$Cj8+=|o}a+y(|ykIbQ$cXs0dRZsc_;SfFEUSA zP4kAVgKw>;Zcc5L#ZV(+_smqLqbC-znz-k;^+TtkMv{4{JF160}jWpQ5XRU7F>nLX`aGo?F@Vm2nSow74q z7eeEupF_J7&Ci*A{IRB&&jTdT7>|{jhfWt8A>sEKXM6f{C=f%Q%kauTxrwG&ZHtkn z*z&(kWHLY_O<=_rhPf_)6O&ljV)=I4YnXC8JMT$rXr+3w?s{50_%fASq z>qSLM3ZI{j7D5#vXex6--ZBj{q!LI;Y@~PDmJXocM0q>{8#hZE^Ws5~!h*o@DxYVC z%rvT*8F7huf?yf27wcdY)<9;Dpx7R7%;(aJC?O0lYCsWG%oSpG7<4YQmWUMJ3luE*XL;#FMVj_Dwo;@t%Ry6&shnw`LuX;bnTJpOQ^6L>`;m*mQ(vbXrlrrzKsQ3!f7 zP2e93Mb&~#7RzZj>!tzz3q@u?od;)$Kr|{-`^~|yFl1o^RL)%7&w4utwVqTE>{m&4 zfn}W~*59z6%xC73jrG?o&&!jrVTZRo{+JuSx!xsPO$n|`x&+%k7+!MSCLRQ;_{!CG zu2Z3Ru#l;syGGW>Ud0&PC0ZuOyz*kNpqpnBq%S19C0Ne;8X+4$>SLHky}(fDG3-wW(>zusaXg=i_w>YMhZd$K_(Zv0&B-UD4^ z3}*J_c%p?IQCFDhg2j43~ zST?28HuAA5T6~SN1h>>;^9w0$Mn;fnznWQ6@$US>F4Y9CcM?zVg&3_|`DG6=+tHbgSg#jEL#?CPc69JqR&n$JgGOPi{3#kVE6MHoWv=POvlUvlkTAX za}jBLM_lFQcRGO$C~6V5SghT@S8$~`-qLY$L3VD}I)zP0fh8=!612P@Yq)dGpbfat zL;M=vu+<|5=L->H^Xy%~2p5~uw#j9xXj(^QkL{O9@{y0sm|qZC z>q`nxKb<7SW(DkI1^8wss7RJ6bvdZH0(5y;vgekdisj~P#28=ruXi{uHE7vrv2Fjn zXo0Qldnqww@qiyH<>p3SxrdCeo_7IGG$;I}eq~7#yDc32#_&3^b%TQIHxdKe}zU72gjCg�dZDzwjGUAvg~} z^b`3vi}@Kjf3EBYgo5LR9F!vT+#tJ`OaRdQ-fw=V@ZYo8#2MbH+4t4{3S$5})pcY8WCRX^By>ItvA5YQmYQ0x5)CL@9&n5@RaW%9)V zO0LU}g-l{e4D|t#;;eoFADTj^n+JE%X0kl#nHS|8K6Ng(^2SSc;INyd9a&(j7b z^?c@9hxq}xN!sgN+qTt7vYvw@(OnSR_MS4tLGqFgPl`GM3_ALvBpb)z-2L%thQOwH3lLYHdYoyz*ONr%R)bGHTeC zOP-l61xH*cvwfTYUhMFF9&hn&9{c!z(*{O)?U%n!j|Z8r;TQGnj61gXl5KeoE=T?R z{wA(g#Lz^#dh$%$Q9mkN&??YhESum>oI?32WQ6H0+;dOxs7Q)4O!9ms#^y1>b9%sy z1kt=L{qACjpD4ekrFqEwJ@xLm{h3(d!hKMpRW=I_)O(MlXLb=oq~Wx_ID5NIqRDAQ zca^IVjI*#LsS6n^0?a^mta*-vA-Fe0|M4S28>g>?N+pOsx zk@7@ced0YZ1=U`3dgatMb>Z7CMr`oyVtChWqLCh0bHxX76WYI#qF9u0ECPs4VE!p$KhT1MSt0q(@ zLS{xHL;&ci67(}ySb;IkeLwD9X|$3vSe!Ct;pO>lVgee06D>32xnq-Wcf64f@x>6w z-~A+4Um;ejs8a|*KH@zfZZs!ldjKT@fKsVP=;eCha^O5N0m`NG)rd{UiRHKg3lXD3 zt@1`~CGv+VqIKs9IZ-D6_CQbKW&=)ZH2-exRy-dlqEDVV0#QgY3_ZDcWCLYYtGO#1`@VL~Q|k$SR>iltdMP@7ck zE8uYB1;dwB)k5CcYMDll?iydPF#W(e!~leYVNYV|Gp5zEqoNb@8 z9^{Gx!(&p+=bj}2)z}nKt9GnPgQL7b7R(lalH?k_GBvrDj9)bFvgh4kg1?J|I0;9%J`lNsm zZDgQ~R!neButg$J$3~TF;hK?elbS1*?ZYJo4D=4tUM0w6itEi)mqXro-p6b8&q*+?iX zEk-1K8wv+v{d3n9LTW8IS)Ct&-%x~S09FNvfTp4Y4X)>`I+G-56T&}|>@jG^R$hZ3 zQ%NyLD~plhz7A-Vt=LtN8XUMHFhwNm&TK_B3k+v{1Q?H!iMe1&4={BfD6Zs%ptQ^{ zJGTmnv9SF363?8nXKZMFTV}LW*4*Pj_9;aevn>h-t>5nsW|w0F!&QUf`k=U3=R@Rf z1aR@$6hhZnz49MQa>DX(=28fRNJwn;kP}DrA<%<+UCCKI%G$?-Ic?_X5isSL2L?y< z=nr(k)9)?0`V=yVV49D|qJ06LWXTMIM{hLcrQ;{70E$s6$#2dqIx6NWk!z&_FV=01 zu!Z8+o4}F~0hnh4$@(KI%?nBqjTcV?f&*)94OlhR+BdaE=+DGBDav058^KXUvC*QEi?e<5Ll} zT3KERtH{H!p|i@~8Wsw)L%zg)LCHggXs zZLQC|wL`xEb^LjSa*0SC_dsOx058y8*#Url27>%yhjv*k*%Q*idZb6ZFq#;DvgY@6 zs?X^PJcfvhC#pgmB5tssy9)FF1IlOgTG>q9FWND^N|~XXOEzK2u2)u3gmfLMBrZdc zrZ)F_wrbJrkPH-TAlcBc4~6yzp`-#2UcDYVlx~c+yhe2a29BxX>-+^_aXo{c%nj%& zCxPZWrKylI(^sYh9jN@5&CdP-h*<$TYeo|>VCE7$CLOGei99nZf3VGP_3jQG+zvas zD_AYt$dF;f$}O)Y=L;6aQUH;no^bi;*D7tIxXccb%va+m7e}XJsx(ar2#o<%gon!y z6YLdObHrnW5a?1455Y_GAaIPk-W3SV~+81aZ_C`@?^ zMUZxoNd7Y=H5`tUCK8n92u;*ist=4U&e7c)WC{KS_iqV+kMO*$@G6&x08B;|h6A?b?|Y)=^+W0gZC7i<{HBkcyYRbrAgb&mo7m!4MN&$+J3y%{=x?9QQbm!>{N2ff#Su_)t4ZfljR0 z^JVg@h%fFdhg3|Gr$qyZpqq!__`_ne76e zX17UO?;^Ronm8=pZG(YtBBIx}>6c7L`t_r+didx(P?ojO-te*hKR|kt3cvfZ#x-BZ zb+u?%pUN_g+naRE?ae2q~96Ha;fsP- zkc$xs#ahB14UasrT{e)&43L#@%K0G@K}t7(B~2N8+xR7!&EjynVOpeR^wDGvj)x2g zdQ%!jI8o8?K?Wt5lL`wqewT=_Va6IscI?j5J+}Zo7d=$PQAH}1D2*4z{p&X~bIMI3w>@O2yP>?VNYBo9mI(^KxvHQ+XdAA)OaI0taTE`c8#hXkgS3Sk)9=MUp>zO zK+k$@-HF6N>g_?KArHo9K6dNy(54ufxVZ6E#^x_>2Rj5weugQ<1$^ z8^;Gxm2hqoIeSw}UNJx%y3340C|n)PlNpm2{4w z?~|LB$r#XQ!-Q{jqnf4(HWWmBZovyul{E_dYnz6NFLv$q5mlAUfSpAOCeJ_O+;4n~ zlmRsjRJ9D20n6$}lg0w|KPCiQku^-SAirnX7bSe3JYY`RNF4NC*pMQdW z0G=jjSS_^-AQb4{m2!oahIvR8YdoEtEk-8?E`>mNKYuO&Y1s&0495wh5)9yIxejPT zB{3&Tp)43kD)AWIYF@h&h7$I+8W~jD+f5A?Osw?@zXqO~S=MKVzxH4mDUpH?ud2K! z307L)0$GM8+&yAQVkSoHGc_x+EtX-FB>`g1KlKFOpm-wjQf#7b=(T)-3w1`%=q)4P z&qh@LZ|;VaCO(EqeCN!ET^OEPRtuf2520v%QYwVlnNV(1Q5#^-++V}^?`v~XK)!z! z@oc{?LqN2?k3KM4KRta+f_kka{p?$snMWLqGQKTBYI&e&fs0}` zoxVI(@@u?7UV0#KJjfMr*+PL0C=?;;IYOc+5UNij?z!{o z-($Di)C%Dnz@}3iTODEvzzb~FdcYwtVNTXr3|$YBWmuc=;$E z9Q$RqGsrZdjsrONYr7 z@wGruH#o$#(+)V9teJCd+Nsb|6@)IPsEYLxJ?@#(3XGxW3yMbpHdE)qRU9aZ5Cx0z zlbjLFbyqk^?6P8szD#y&8*g^qmFYh5v0L;_HF%jv=6y4@k!GgS4an10++rz>!a&Qf zYQC=e#4N(Q>12DxlO8jdHPTc(%ry1Dw7z+nGo`A~BOiOQO*v~Qt-~_^v)FPO-WT)z z6PA4S+E6@Jq{KEwp(f~$a|}_?>X0$P4GGCMb-Tg9Oluk^DSU&Oi-F!GTRYxl|0RnT z--f4eI}s%2E{K|6Rd1$hT)Rvw#R*NW!u$*rZtkQ`CO)Yw*+THZUyimq3mGHu0Eo0+XPT@b-yCl7b2e7f+fvl{V@gT9NUfQ<$#QAQLIN*czF z1A)DgDQ>CE(2$MmuIH}tO_*KVEc?u+e_hpc0xJ`T_+r0yaQ5ZEp4~b;<3gTf*)HV! zUekuosSWC!#8r0hIBn?iO15g>em>i~XR^|PF~~ScFV4Vw{g;U##I|^C)`HtLEb}a- zicrnq)_DZf%Vqm2GMVG6y8x=G2;j|Hc%U>5QWF*16i$NWTnR1E1p|qKF@b@U(ZEe~ zF>g|0C&Kl`u~XK7^u3B>$wE%sF7@lHTK7bqcMEv>LuOCmy-1@D*qE(sWC_SWq})9g zS*Jt(oaQuvlE**$Dz)AtBtagzcq*TQAKo@knh1Ltqx3HIlD2V7)!t>m8c4|5a-KVa zS)kN8z{ZMG90<_>@W*Am^EI7`vP|ppwRO9uoBYWcu^67oJOu`1eWQP6u}F1r$+$vy{c#zAxTia`ua>DZg{d_{|^6z zHOO2isecbIu&v#wFEXjLsyQ!qNLf_@xNi8a)S7F!y(3Ao#&leAIu>vWbv=GSCn8Ic zvtdJ@#bPB8LJXjMp`T^>8K*)5IOi7WGW~%A1E;pfDWD>lJ@ur*8oC;sxMpran_huF zCqT%0D;&tf0N|(y0>6>oiBSe}%JK9S>?+861N)D;SJ71K8zZ~#R1E*%mO|of)>KS~ zs8Q4uY>?oOk?q*{J0trOIpB1R%$CWG3(vcBKjjBc9D|xqz^K){)MU`Y*+z>)8s*EM zbiAZH9`3Oa0Yid*7&!ksX&UL+_o~r&R7*j&K!mHL;=Kj%m&u9FN1M!W@*@fiRge-d zaZZT=4tQ}Xz6lK`V2C;bLy-#hOYunHsXJ6NaMCJJ0U_oNGVaR9fDA~22~ko8QN$*k z`x#U+QftbA8U3C#vN}Y?350SuvanBaM*|hFV5j7U#luGMMa=bueFlWG7-;<$q4K=>HQ!dbVuXize|T^L!lV*hb2FGCnQKpg4VDxCjOm|<;pmGeIU>PN z9!-V6ntM^sg8`>ONeu)k(3xikHamiOxEeP0V1wx|_mO$b4@!!*2*m@Dz0agAm3--u z>}qP@#hJI!1SUx-524*|GKLtKg|K$q9ZM7}El@z)U5=J`1=5xs4i2580-MwPX&vhmyV33BY+%yg6$H$=rBOhn|4tWN1xU?SeX7uIm~q4LuP0(4I-I+Y~OC6t!eYuX&5 zrS~7?RGH2=Tb$P zL|RCxQ@t?1f3uvaP+FVJrpn8o-_Lr@p-P#G?+`u`Fv+2Eo}91|Xwv6Y70kl!RX>(4 zzj^RGP#`^c65ZkL^in=x34j#N)EORhQ!1lhJu@PoeylnC@}*OzF2g&~L65Wty=h{hr)I8q8Ln&f!J11H@bR`?RLs0 zh4x*JI|4=FR7PVdch>RhAnv*fJo>R11WBTQ7ehsi zO@(VHa`FEH4z(htd-W3lPD&T2AEH#6>sHYaLPDyL(|Q{L(zXx{CV05;Ulw6zl|L@*0yqb+IUGVuhy0Tb!W^?BWfI$?)n6 zdnsOV-&IG|24R#qDKJkKns7qJk}O0~G7vHVoGg{a z0OI{uUx!b7t9^nBf&viy9SH zhBpOUG9~HyGSN)Nk(6+G1iYO2Psh^4)gEv1TP8Ys*%5Py-Eu2ixV1=U1d!%I|E;?DfWZoZ{-RS|BfubqEA%V5}W zT~1RKL((;c``oejAWz=mt(dgrGcAJ4Z*fb8{w)E)qq56~2v>jneqt~_8z)UDtGbB< z8G=GD&{w%WWrVrdosV>G?3=o^>zk?ABEWx}RMu(uPtQ}@c(-9{zU3gGzFcMJLBKsMn^%R4OBTP7Bg3B-2-3_(Cg>ke&!Gw8^Go3DNXz6eV1!0f+(XFNy?}PWog2R1=9)sI()B3 zVV@i@=M0n?2M!q~lMn*X#cGsPZ5k*cwYPkC3Z>nRwFnfKvg?bP%r0$ho+inB!vg<7 zXG`W0eT+qw!hxn_B89`9ufV<;zwe7Cs8mF>Txfm zuQ4SwtDt5PZ70ax#+DvXZea4sLN_!5g#KG0Fo%Q+=jJ(?JBGYh_kaJWgrMKMAq8}A z;TuWAr+*(VcO-_DnI>J`qk~PAm011j;V1_RSPb@ZL=%K1_W?#&A!mhv@CCp%6Y^kW zGjIA%K5T^FRG-usccGP>g8|2mq+k_3EDiLgw(gnG5$-*rL#s*{F=-r&Vj$$!fuofX zgT}S^tELKW?zY<>t2^^-MfJkCsitklW=;M>!$~%xV z;LnaFe&jg6=F#0ib_8&2Trfg0N>RHb;+ zsS|$Na!)1@G~5xun+tP{+6Cx2l(kz4io%_AjqO& zIn#gG(BJRyEo;qI-uD**4$i&fKw1io_?fbajX}5wR1|U{IgR1DqRKRS!+ZPw(g}um zV3oTU7XO6Xsnu_<0+?xJ+~wkFdoB@gOdJD>AlDcN7sh{8ox!6cuQXE!Ehg2cD`*58 zKyyRTue}3dBMG@JW6U~(Iv|71l>=dTsyBgxZ|o+Y;%S+ZHC;TD{1%QX zq#|La@?-5&OTD||Q<~59_AlHlg&NKGij#~|nCKG}8Kpi!Pp)L-lf8&HQAIN*rgWqn9UUbQN-TdCQ z+8+IB>cMa)kF3Md#uhZwj z({#V=Mb{S?eC7FXzd8j;BltsFO2g#HF$yVHn@D;P0}JPI9-O*t1#zaBRnoskUA}jR z!WTsrZ#x!6cODEPIy~w`Yu$qw4L$ZFB7BYmElkncTo>6)RtXFivh)yh>`9ir2~rnEEY6UQVj!&sk)PI zrKAq;JRQ&i>079Z&y=1De02*dxVKEY*F67Xd`csFm%Mpc<9|Na z9WlYsb%k~O%dTU)eSgq;oG#9rUH!@Y`>hI(qD$%Bk>PH3M1{9OfP#Q z)j`wp>e)1THB6cnm2J3=I@W=Kxf7x3umR#+qs)?@&1Po@9lZ0-i;ndTM#p62ze((; z4jGk*)jb!b(0=y4S?_S|);7#4ctlH7;Ax{bC8oE)0>g%mR&5C(p_^THQ!avkaiOk- zkSN#C0%*1C4|RGud-ddUg3jwnM$pxO)Dgi&H5!O;g(&5e(TgtE`9^e(kuX9{k{H(i zpfd4=dr9c_r}Nj9#hP!WSVo$$I00->=^GcLPV}AJ?zpf!cyVp<&2ts%WbR?y2n#tQ zgtEPjJS%V~4Xs!LfT`s(@M>sxI8bHWYDK?%k&Ah^0$0lv`)avfO9y^n`5k2EIbl5R z7VR^fBpBtALHPOk^ryEYbMmVtGPIdnC*RsO?#<;jB8JNIxC@Q~;N(mO2#Iyc4 zYEGFuyG3T*3LXKwX?lU}Y=N6k)jAOfdcc>$v6hX{O32jhc?h^HrY$?F9lhE|4;kIx zN3Fr%X4pFPgv+HlNY(@^?O#A3EON zvW5_mdTagM)7$aT(}MJ7GJU1VVJ-8Yz0DA4o;~EB^5W8UYD0cA(dq zsDJHll&C)y;+23+6?_W>3@v45ylU<}h6Yn;Nf1Q3AKj9~>IHc;%U{|6uN{z5$*2cP zBKqTRBJbV;7_YqoUwjK2cW4gNYE>pO8@?HHW7FxEd(;E6Rq+palXad8~ zZ>&=;_tYUNWJ7pyTQ=TY%boz1MkSf5!+1M$v}*sz=7%K+AY69kPiFgzD_I zbBPi8s_vWB&Acs(2hW|_e`H?K3fUoNvd>C(jz6PzoMbejKqeC;TS;vJ2Jo_!gUT5$ zBoYl3SR@pAj_y8swT(I4qg-q+Aem>ch(85Q71z^zn}7o( z$a9Dn(JBAP&7(AwGzrf?8Bs1NAZm%Z{8oFvQU_e7DcW#!1 z&%v1@4gUn*P&s#2|>nZGZK?KHn1 zQ}~WiI>2qH^rNT*svZE*PVLh!!djncZx?*tZ_Tu~M&$Y`74~1CSaSL_R(RA;?~(2^!KssJkvs zA;=c6IQvh%pwXD8e5L$Glj>FhAbe_4z`5D5v{ucB5US=(>nw>bWA7~bKuCUC3lFzt{k+Xz-}#SF-T#C~SQAc0WMg$)w5Dm4}p?MHB@OPXL;HJ+G{`?^ew_>bLjR>h1E7>$=UW6CGZc8u%2O`Ofi24E*SAZU=q( z+%;#D_GR<^<0C~{{|rBDHFCNJ>{0Sw@04HTC%BM~k!jK?3geFdnK3I~UI=dw+?u3=H8W znI0~EJ>YIXK}LfaB^_$DDy8j8aL|VeJ8GM4vk%(t_#wo|IR5OdToh;p0xlU?^Gc8? zIbIGVK017_9=fhV!EhpIXqv(yH4Z;zDA#_glA_-vHpWg;lJPDhsv)RX5P+9ZF9u&P z^xB(+S;Gv@_o@RA|I`OLYN?RpZw?u@E-CmJqQFaljBm}CW%PF)iXcj`K6bBQVzdmX zc2<+YLbGgHWw0v1ys<^r2k%v+jk2*HDu(0O(2S`lYYrL)^1eou|Jy-^T55tMj6n^J zx@iQ1<<&JyGVTyNJEn8^)@KSp(&ar7r`0gDZQ11Xom+xMnX_bw1=W?P^O1_F#O&;? zWkof#9M%}=rK)eqJ}#%p5Ly2gOvxoRN^y5X+cm8(OhC2~fvbwDTN)v2I48d4bFuo* z2cYiQ2jI?FT^4TJwr$(CZR@pd+wOjC+qP}nwyifk|14(~ zv#Cu*R8~Y*R^5|z&-v03ariR|fFh^qG0dlou7DNo&l6Nw3S(Qr)88S~hVVG!%I=`X zQvr(OJ()4{)v#K)v3zqzM`2?QpDfT?TeFi{eASBN)P~+zE_#6T37;T9KDQ{MhNu{o zNQW}!Wh?7h!oj3|J&s6-s~V64w?bOR5CPxM)Ger1zL=W4-$2cr2{y{BCFd5}5vtV( z$}j`^Ji(jCrLT68WYwwYETWl8QGt{$Y^ZCmIVxD_r&I5S?1jQaYL<z#u;kBnj`Pi{rExC^C%KLzDC&*WYpKCe2nGXS3j{#` zhK7N;bO4!INy`NVSip8bG~@h!0&JkkN>!aKh^F&r67FkJ!DXL&Vi?WdiO2tYcx;J> z8s1^=<8ou0o#}pV_D$!&o&`qHn=;|G`gakkA1r{?ak>6{oiHkx zuu5N1z$R9xyxcvXH=-UiD3>JAi24ilGavfC`9+I6>~oT7Bxggc=}$5WF&NGFj8?d^n2!FGCy0 zFMS4)S5@RTW!LhljCM`(EVx&iKL*05K#HL8oGk=oW?-`gHL{+fLNUYmUXI$>0y1l}7_Gc2ht$fsnJ1U7+X&60-7 zB%oq~<#h9H-unk7FoGSvo)yi!fCiI%vM`-kuyU49%0h!Vtv0JsjHsKcu8V?$;S=RR zvMHEpsjq*M`>iy~4`K7UGB^jIJLYAqvtSpP=6&Hb{>YkYZx)y}FAxb(@vbvMB~cM& zZvZa3_kYN`u~X6fu1d`z2J#!iu+NpQAXD0}Jx!Di~7z>{td=Xwy@bM%u~vfJClw2^;J zxj3KXE9!nBJT_J8#5n$7jaJsMh+qjW z7{apzi);5E)mbvOGO_J9o-rE0b;UBL{0n1;vR2evwmu;~-No5l)LEszL3No;?Q?Y0 zmA7z;BdK>z+%*>d?vMtehsi_cAwtij#Hf1jd-C}h-HI>s%{r*9_Hh>EFR6sv;OXQ| zM$=W9;q3BB4c+o zTlMI1)yZmudV1Qej9d@3;$mC;H)=&=Q!X?OZYtLdW(m#u2g=((6t06)#IW|w`u$aU zP@Hl7ni2@z%J+CgDwCrxF)}aWly2#+Mef-+0LXC}#b+lG+2IT!?^n;MbxQ-Nl0BsU z@R7QWI<}3)y+82{2MBtlxVq$-d}1yK0CKj}@z@h}#17PlJAR*yETQ%fyCgUWg7Zhymk{s|^RJYnh? zrX4hwxYb7vODRR8x3F5IaV;g$he}hsibYn2Pi&i8H+< z#G=(X$MA?Fl4F{Bxlh2IW+X0Et|h}noa%|&FFJxSVIL`i%5xT2xdf>YC>Mg@no_}; zkbwrVAY~x0YOGL#D#eSaXnb*IJpF?9s!{5Nz9nBADGKPAk5l$3rNhg0*9NLuvdVqB z8qZWjKtjEyFk<$*LU5#2G^r_T^72pAWtYPR8NW*^5=gi-yp{R^hcOlOW><9*V zC3F->OMa6>WWg>qKNBBh*}EoUkk`lwaTuC-0c`4 ztY)%`y9Xc)rQu89G=#|tE5oxkzXEfhpR@tUe9o27$+@@Oy!2#&f5^b8letGHY~lwK zoT`@e5JF^3??IfDNlm+I(obDjXqTFmC!k@&HnKq0vPHG&Sb11%#Qctlu_gzni^7lD+ zx09~M4V;%C67?yi<02G5!EqXMv^lnF0bCfkQBH2}280Zu^f)7t{>p&{;qt!L3y;(7 zCzoCp+7hpuG!!sZ&8g~pT%;BB2-X@Y0)iI;of+=oJDeu!QKTRcPThf{AxH^mETpUl zX6gQgFKv-A;nT`T2Da!b=-jEdEVMISGMp4m{~@wI59KlL0cefCbVkchBE;!ZVcldi z7m>`ITK){7X_Y||%;eIihtQa@L9^mmWzT*)dNI(A8&R`893QH%#zNc4<4uQ+IK3u& zwg<4<*J<`tvXSU29E})lyL@m0QULyoCg^7jfMk4)4BWH}m=O>U2uyKP>JA4M)?f15XMd<`fR_1mS8tPmH21* zaH*R?iQYZ^^>lNstSlsDrm!e7(^ao&0jlHO8EQqD!W3!&wfr_^(&wq~*MS$G6mW(J zH*CUjlm^iIa!n{QWFEf~lB(xRVDfDrW(Ci`Exs+p6U4OI4XsETthSRL(y>OK4`J<_ zM@2IFO|&A#l=EQU!xw*S%e2~uswTwrLSA=yI(y#*>3^2z=i@B=SvErQHgV6$3)wkS z7BY{mnB7TeQ|jnl&a20-Z-p$duf$w&joNA*!W8f)(jCyLoO1B_5}31cMk({TT{ZWe zfwv;$r^xdg9~gL>@R#b0M-MBn}r{Cb0Ri&QmivdQCnXwu=8f25y6kO;N0)VC;{? zsAO=>Lzt}f5P8@0kP=f^0YLjT#!Th4g*JL#0>X~zskm;8{)+MUW3(pg5_Wf^B);g& zvr|sx*k*$mUcXlfB*r-L5qFb#){DgrQU!M`&+k}~`0QK)g34|i?*_j-YBE!Om7O8k z8#aC7!oaa@k%$20&C#@4Z`z2SJUMO(vBp_y5oUcqL_D$TaM2Z}A=a%z8Y^);2U3fK z3IG#Iiu5VEPzt({g)(~&UzQlBW-tCRP7z|A!|}nxu`TywlNINF?k|c$T>z~_xPS1V z70T>|1~~{LiA{ueI*Z`iP?E)*WE8+Ulqq>AJ4AhfDiE3^pD2?4FP%xiSu#3>0>TSO zBKRf=0bGGhwSN0Nvadl!N_M6gm@hzVl7KN_V*Z}s{s1i-TH{Gb6bcOjIB%=oR-DgY zjN(}$u;!8B$-p4zUtxEwcPmW;^b!=`}uxKBn&tp0K(nCR7k@*?H}p;`g`1 zNT?mF&Hhu#h1Md8^1rE8x?wAgTrq z<3Y7+e&j8){FrfId5nVqW+K7AhS~~-u{3-p2F&@@(ie`VuDB>EHq~FYnS@kbBA!wX14&E2Y4W z)%{;ZI{6ED+yz{42+`XV_ffcml~Lp@efv3#Db<*^I1@X}Kr{))*dTbW_x+}x2d=L{Rr51(ORxB#8A2*en&)EKyUay9?=? zB%bB0-=N=ap=)Ys(Vs=}6!V!*64&0jTsz}*=8L-*+dC$yc_Koocjr3M;BmIb^%U~^ zB$Pi0ldGJ`p%Bv!NXclEcM>kH^sz`gX-v_Anq>zMX&lQ5T4c>@jK;M91(*to;P_{m zY{3Z;hi_W4yyep-9{`<1fwTIV=pVU3@l89JmqgWF*8sizGL_$5>zXXNgO2OJ$2OZd zmZdjt?4ibHKa~HYYWJQRpbiU)@4og3s_=Ew!ac}#ZgrZ9`p@5=vV?}JB2^|DV$luU zLyF%eNIiI2gMtK-cI%WbL2? z+M*d>$P|Z*>lzU2rTa$fDnXEb*+?U?jctNRdkXPmF0MvsfpXSJg0Ry(%(dm$t;Uej zRtqCv008yp)YB(jKGg^3?>J6|z8x&|c!k^6G!i{QPd~qjH?;vO19E4j;Z&+erawb# zYP)%`lDJENxJL%o9YAB4Z|PH0oH;gS53UJ~RScF1{#QDiS_+R!C2`pqwl8%qi7Mp} z;HfBNT-|k#2>$k=^_f-3L2x#aPv?2VO~0;Fsxe@1Cd0Cumm5GSGkNN05-%ya#g5YV z=lg$vgoC!R|2v_NiQ)g5(8tKm!t#G4^fAO<^Yso~0w&*4&kquuBOO^~-1|XEH*LA&)G>Nsyt=*PMR~AqDpr4`O;!!li86`_=`D7s%J15ewjQ z*_=T&vD7xWVP366?OP8$c?|~TAnhQ~3JVYb#R{GuZ&OaxVTo+fSeAcT&geR23iADp zWfeitL z)DE_wEHM(U-e0z(E)f1}!RKr72-|4p8X{%$hXjIe1(UK0AjP-}^cBw^=X~+ssi z5zn{RFnB$Fx8mzf=qJ^F_=>Bd=}%0Cu7%3m7H`<#v{f4#{gvfnoA5 z47?T>bx$_{lf%YA(!PtXslB^151iV05RJR?wSVj2_?5v!>0HVJOfMMza7BfIW8llJ zC(nom9GgV4$*y@QG1BFr!453cnqMmPiB{$2yVEa0suBTBg2O@QXCkAbaYs{01Hr|; zQ`!uImhDOxukiQgc9?3;(3?C0RT@7YTp+N~(}<4LLe5Lwmis3+%adK~KY-c6$H&#e z7dXC;Sq?Gm-RJp$=ke;~2veoyVg#tQ^ALR7(#_6e(akF2ch7$L)9UO@k8bPi2yUs; z-4fjBj~#RGNnGzeC^F2*67z_(dxIQ{Zc?E)>-7BD{oJouKDFyRMy%W&KSmba89D~F z^utPPt*hOCKsI07O_|IE&8$9p2ygwzro$IAYN)eAcBbEdjGS663`ng3nkKIiFbRBc z_i6uL)5|}3=S*jJ=aoI#`R0S0hK_+R%#E~Es9&mVjiME(mCTX^egP}@l~0GzoCcJu zUO0z=fy_g#F8+erme5mDqIfMvcQfnjzte6(Maru(0J3^g%OBfNI-=M;A&yda55s+U z*N0h_T-?e~q{MW%9Z3hiCYv=t6dArIaUy_(!XhJ#in_%z0S-<`426n>gR5_Az@q8* z>79O?tqef{y4zBanVY1dz? P9pK|N7&(mR-do%#|z0lFQ2%ylzxc$_Cz zG#nHr*epoFESHE%22r76-80o9{s-5;4Yom-bl>t=E^wU%AT1mGEV=}chF}KrDyyxJ zgLr=NbU!cJ^JOr0$%}&r+pjd6{h&Q-=Tw`-&}zg(1|(r%vQ+Ihw6eH|6p^3R&2Epl zxb@#V{`5bN_iLunyb+%6-I`Pf^6uxyEhty*Xq8P;DzUEM*&|8!e6qviNd!d0gwvx* zg*THlc9ASPyRq>S3p^zK51b+t0>K0zlPkIgfc|lcrDvtoHLreZKwk5PLmDhGi8pAD z-@QNrMgf~nJ(5OZL3rRXP*YT``5mXnuY`aol?b^^Snof3u?FbdRuZGwoI(VR#)8r6 z7a%IfMe_x4BqGaB+j4m>0D)O>(QQ0fM#yf_tR^qfg%|@Z@nMrb2uZk}^9p53I7&Siv$DkrX2q)T(`i@CA|Kr=peKAU~(a zux%;gM^&SrO&D&-fET_kMa)DPyCN4V*P=zCGk)fv^li~`UAFMP8sBx|9GjplujAHt@{wV90T#=#S>vEB1b1l^@>=5rb)m~LS)%mHGzpi?*YBhDVy@K& zl*9bW#PnkxVy))3X^;A)#W1Hiae%b#60FEYmja~0TFe1Zgdi(*O!1@c233QzBzskl zFf^-aZDs>~SmNU$ilOsgR4MYAq{}>mRw`QH@$82Or;==_LzD~|$$Jw#%<{F7Pgq~n zlZD|vaOgUc4n>D;i~Jr9ha82we~)k9a7Q_B>#8Otc6Gmpf8E79o;??NkLHGN=NmSE zAorK6ac&Md72Xp2A3tSnb7~p7Ap`J(T(NfKC%5%=Y#dj0{fPTdAKhOm?Bw~P9Zt(b zlQt1npCf6VxM^a#+Pcr~?33ly@i{(b)!k{M$?uNAcIV{Z^tkxx-8foi3_Wf;B)Q|@ z8yu}lUtc!D9)NUupW)nG$rAbHOd519|a?h0(pc@31HXjv%42y z^qc@|+rw9rC64BwSb2N!3^v75@jU#V(7E#iUaZDEJgbT}y|3+{UDtWm-@Fvza5N`F zWTZiPWFd998NfYGbp#xOmf7J<-F@vwoAnQfx-P=s?~_4#Ozz$l!`#Mgh4w1$|Kh7% zz66ynmL`5Z1HRUJ=RJf@W@fE{6v9nb@NH&-U3Qiypx<0oFlVGCc`}coSImIaH8xS0 z;`!HF8FMBS$WnW|5_1WB#tZ*tu!gV=^G)Y#0nN9XR7<@LQj$fZIHm}7hY_H~bi8Fe zsOSQa?K1^qB}7XeeJz?%Pf#*YU`3k-qY)&%(b&bNv1&=k5J?{px*N@q<$L*j2yYnKQLHpZg- z^h*oAH)HYtAdppyCiSNp+>_p-bv#V0tl1fPHU&C*0K;nzO#?qyJ>dr#xMta|nSGg>?h* z@x)l!G$hH3SKhsV+dR-mr#9AEX4(>zQ!nTNsCL)G3{paa%+$KObiceH5&}}yE>}ow zNHgqd(h}TA{BaH*3qn>o>giKEq~R7;s9(e+`D*AwDu0)}Af0&!sdh8uF8dALj}-c* zF+KbfIE1;jFr{S4_(3g}D(8;@CH`(5|DKv@WWkQCkP23wu%FG!FG5*O%g+Q&_3$=M zhS~xiqGaf=VaXOmBLdxYgw%^!0e;AuKz8h=5o?Ff;-vS{M}R`}xXx4Pk8z7^c7s zCOJ%zqMBOaUNi=Z3TX1Ga!wbptSvgnv;zc@M+79r7-lX44++@s_yqEP$w;-e$(A%K zOqs=IQcHvbku?y4Sg)a}ne6vCVTU^?yW(fHxD!f!M@JJMp90r=`YecqwPSv?$ zhFzfn-Y}9{gji)v(6L==9U9bIDa@fka@{GKQsS802$1tuikAVH?qKk*OZ(-wMq zju;8Hcs>;||4`A-^4Ydd(oNTLG7M2T)X4b*Sh7owdLm%#p4;dA2E0MYMtY8nn<3u) z0Uq9*v;||GY8Z6OwRO+fN5#Z&{!X0|GhJX}m^M9K^RZc+g7WGveQR2#!-v!O6(oq| z>!g7XfiE{MADof|1?>nW5!F~!5l8a01OlXE@C8l-u$~bfi62yr6CzWrfC3ns3dyWw zVgo0qf8tUB)xf0F#hP4h)lVvaI~Qc7-~ILFS}5*2lR54t%A?fka`%TKe(OY&`15a1 zFDA}*k+dr^kb2DQyH8uU{HsUQ%?oj9E?3Lc8)kre+_m#^RmirBHLCXNPdrx(1aD*P zwBkmpVo@#^o3kJkQIGQ7xo4aqEZ;NyU1{vKYkgDw*VhK?rE7wnaw1V_lU~9?J!+{+ z(U`W7wyle117+9&oYt|ay1^WlVPpbf7RPieEoH7Fz>*vy5~4qC7!YhIks0&y0=mRa_Sfm9tWhcOw6{Y5 zLM!cyfpKqQ>5f($Tuq}K-Gm0W!~pt(BW)qb5&Z@y+uo7p|(Wr}7=kjk?Q_Gp?%e-(GGm>@&H5>CVVdeyh66-(Q^JKDoCQa`r8i zo)*gI0G87R9=DS#zh@f$Fe?fWT4Hj1Z|E*Bfu81pTe4kOZz_6z45+|` zo-wft=M(ICiLq=#i+TGk1`$_-=4$|&bH=t&qR}*cu(_EqY*sL6loCMHk2tL%#V#37 z92vNt5#tyu`z@l%%p25>G{ZC)v|tMOF=%NA1Ntqjh=?e3O*cJ$W-=>2J=BMumEKtli@1v6;y0Zd^RC4km6bbBpV z|7e30je9!g%If*)&|gX?M%IZZt>Ql(NtUhQz*?obNF=$$&X2?_NA&(!SM_{eE)K@b zvZ=xQaN)$-=B?a0XHK5PEK?TTHP&-=IT}CD#DW733(sze8md1}>8dRL3ubmxkB<7B z*)olwN??E?U{5zRh8`YG?LDQQ-Qtakf4O0Hn53%pwUlt!Gax-GKgwlXMTN=#J+ z)vVHN&g(CK=C`Z~FN3DC%>m_*qv6sRZV}jM+oIq?yf~+CzalJN8uiVozTb5^IobZm zYR!2Wzy(3Tijm{76eRB|Kin^1gd}MD>35+BZ#m+`uW+>MV?uiW)Wc6t%1DLCG!JN#@=Aqgh8HWwbcT^U(pEW=G z4GD)KDu$_|p>3YJsaQw|)#2U0YBnhe?=H^9K*=rdiI6;fh`WxL^jQS{wJMXlS;|FV zot4kQ6ePO&;F~VLj-p8%5x6Lx~)QBV!ZwV)E$gAI4cQnqX&e2c`g?R z5BQIdoL8nxJ0Cv|_s1_R2`?+qZ%z_^Rnz;kxaJ?{IU)DCVLF}{NJA1HQdag;d{@y` z5jd0`&-wmG(BU<*^rDd!2GV2}d+49;tk0=;{j2aZzC!VuSb2I~x#u5YFNGW55z zbw3aM`zkCgO}9v|jPGoJiT6NhT@W5}2F{aXSi{yCkgk- zp2#zD$0V6mJmq(w6cSFFdu=>!9D{ygQ5LLY=Y)T{(PEuMOP*xE!psx7(*ZR;)QE%Y z`L`|&pFVE~y%)?Jm}jV{0?U&!RvYsStzP$@8I159D){C+-FLRaABoC& zWM~$S^nkg3IAeh&Z!K?fnG_if_1#xYS>|QDan-x)L0oFJFqnr$z7K%QjBFWy)Vl@k zk1)fh!BSDc%JDO{rLrbFY(O&cYT@WqgAzUCMv7+ZF|A_;vimXj(&P2tKf zASXqpu~Gx36+ps9_rT(2ZI)jhi-xEA<7rmDxN%#hL&@r_!q2$Qa_U)=Fn)_PEpd_Y zltH0&u@nSX*o+OJ<<+Sp2J|vn81roZ`m+TEk#=bxg=YeXlJ2B-QH1SbIs532)(R$u z>e%>N$hHN7UhOsxbXkIBEoJ7#%^69+v?G!#1LM#^;Gce+t1+uAVF6Ntz#)~762Fg- zB+H2DgKSv>O%h4S2-%K=GEacL_$X^x;UACd;h0$mu?yG=YDHP`9TyU@ZUa6>IZwdC`A7ot z8M6?hyShVumSQ#Qld7T|(&|BDSPe6tmIwrA(!nF>=eVtnmez?;nI&6m#QL84h4+B#V_v zKMma`QVs^v0{}6hu6lWQhNhw2e-A6{em;LP|M^}Ly|sFAwY;xtuf{kKuXEaZe7Rqy zp8v?1N9ynVIP~4}R-}_ZOm}YHR*O=A_xQYOgEpxjUKHdP0e;mnLVRXub zrAr%4&><)4mKY5-Sd*&*DeFf$~2z z>8PZ9&X;zxF5cDkfVbn5{?Rhzg#EKo7wEM4WYeHKjKafpxAyiUZomkC_=(SAFfdq1 zV^JZlKH0ya`7_33sXzt|JVgmPK!}!wW=MKRo9Re2n6PPp#=;tXf+W!9FBpv$yjNnA z!%JT*(39scn2PO7fMD_sxP-!{0-|uzvFu7wGWv%*Sa7ZAyDSx&gZOP8r2~2s(;MSH;O{kBp9#t;p2& z$uXapFNDdp#4euh;w&DeL41VBn^_0-7ni;ll{}!6Q<&;A6MJRRm?%NdwxTHg6;Z=T z6=y6{W#B^xgi0KUWMcb!XFv3ks7~9V-R=iY_gVE9ApBR*IUwN0VcmQhK1-W>xL0pd z&V?bTW>rmCMEkk&0l|yYKzAd0u+%v48V6bbE#^K#=&inAP#m zC8V*~CtR0dI!8kw;Q|tP;8x9WkPw%aFTLXCt*~cI4-#06>bD*_qlUk6 z_9XgequJMQ#raZa5po!tlECv!s#X0Te$T>fnB8^@jLhlPAGr$qW5A3!H_SzjqG7mx zWi*Uz+T^2jlG{!ky;-kih}MsdC!a*^7qXnb&4k%FlCFv#*L1wJ(sDm*`1M}Rj0GWX zb~}TuAQVhl(8&WR@Zp*2NDctTRZNy8X!7)`9Rv;55dnCES~;OgY_83>e5Nb~u3lbC zhE27zj*YE9$>xrtO-O}$(WglY$_aPp z`p@Qdqx;r$o1W%pj#8+z71Llv#)r7Hz2sD}K9jkZ`Hrbz>&?~y0*)~aFn!0`lOfC- zO*duF-~f1&=caCR$=thKAAE#(`1tiV$DIuq!_exbO9B9(D$N{i$RTCp$Fp=afj~8= z%pgf9*n;>Nd(P}4)B$Y zBsSrZoevyV+Z5@OaQlh!79cMUsa=x1GhpzH7mGm9@(}X3N85D}v+NpIE%Cc)lzF`) zPgy9z1h^Tt+bBAGJR>XK*k<&%!1Q>GQh+yx!IasBJ)M`z7JT=#wE zoJ>Pz7B7IGLJjqO0Mg4`wya`qcP6&9A80>T9jNP=`;IrEVkTKWfS$k7+`A6Xb7cSW z#r(_hDF)FpEx+PBgt{2W})C~U*ZodcBf_76R^Z+3n- zgID(=Qjh8%*~eJKM_@IyqrH%<*uj$V3AvEWzLE;5vEhH{A5u2AMa0^)HJuSJ#%mZS z@`AwHY)aTZXukaH0eO9K?z+Ms&ezT( zsgV}Lpf8_~WrA(Q3A?-;dXm~K0CrYS*dVfP;!WWBrr4WBp(Dw-)b#PPlk1~|7p|p{ z{(uk)dM^@~(DI7srhU**pPnTw8@mNS)+pa_{QbCP7QDP+ivcKHwu!gl&!`Y-3?ZXv zGEOOaWz_mL%sb^lSlf3;9Dby2@2rb_M&pcz3%vS6Y4EXS&1boMd(|llS|p@Hz)NdG zo&8^d-v;~VI<{7g*x=~>CrZhTQ-!vBy_VKoRxcX#CQ}2>5a4orq5z3+5ORH(=+1Tx zBZa?(>NDL*hyH!9DrhL@lJ_uO7Fa6UO5WK5(N{1Dz?AgM6 zi;3QU5_W~FuE0cl$saBuzjbNLC^^vSvm?IGb9d0EyN zNX2Ny?k&jjWRYZ)@D1UcH}oEmENQ)Ly?_S?m-I6-FjV$)l^YOYuQddLR9deS_1m`4 z$e<-1m%&>p%ol?Hb{CQS9SW2^Qhe({$gyYEW7mFR)N_-ea?OCdj+T@RJ9!{!6&H2= zlx9x)Rygaq0Sva2f3@Lu;@Jj=m3GdB7p`{EUwF-fn^4VM!4;6rsd0VgY^_Nl##!)>frE~1^jmDss z{=8;VeBpAli{ywnN%}~|h-e`ZKM5Fwn@d9i@foyu_q}}9UhAI2^39pXupLt~SJ-~=z`u2|xUQ*f+OX-=O`STU6TtzB~AN?-DcBaG_i2#)G%ZKCHO>#ZLFV(UZVsoL|72 z{gT%%^Z<%p!_fAOKY5;jXotHphtwXr9H|nWMg)Q}Q9P<&e=NF^w!oPIFxWzYqVxnz z6%^2SB@Y*AWAX_8xu}0BAo>xZ))p^jn!ro!gYv_}|B#Tx>Q?jX$sU4gby4y8h9Dn4 z15pjRExgGdLuH0PMGX!A;Yk_EJ@@UmQ=vKza^Guo^t?Ezc`t^E4&?PxyMD4(T!d=P zlAB0Fm0BOHuKJd(DAc>;6Ze)sqv)%e+871Yn*6q1d5FI47i5=qOBtYc!mD*kg+tv)uvo+V_s zLGPB}aq<31g98!|GC2S+;*uDe_1`e6BuIQ)LJ&~QH*LTvj*<$~ z@E7HPL0iIk#3bu^LIi?NG}%t{oWJ7V3=)>H3kWqz*jJL;L)1dZq$JXVCPZ-uJ%Ouo zpuK^dH~~oR;BNye%12;^1uq$J3*F;^Goo~bGIanAVgN#0Qo%cLxUn$$h=RLcOIm{- z2I{Sqyv{GFeN^lIIRLY39$252zY~Z}KhQ-L(rOH$T5}5jWL$bzxY^vj_1x)RrBgYz z4xI4q75efp>?03X|9wS!)>Lg8oWr_Jh;4*91$z#rP1bCKpO=L-<59mgzTVuc#6>;c z`SJ}5e5PG>CmGZk!C2>WVXcheRq3?-TScM57!V`7sc@=}3c*oJ)~afC*beXICSn0| zl?aw|chiebaL)zyH&v%{;hdso$PBH}I2W`e@JrTiXR@6kb}TCw^lIn02r=TBOQ%># zHc*U9?WNQB)Nlg8ZH!2_CW9~opq9LG1C%=#$la#%cm8dLDm8QfisP{4%T4r(I&kP*7_nLK{4>tRTlV0~u z;}>?>-33bfx9157*5s{=4GE+6CFfRFQ!$ za+($e-9FE-(pRk>EKO5~Aj9yx%IGWQL$fC_;9kIpe{zPoPIyQca8UtOq`B@lPco{i zGpC6<3!f7{R5;&6Klj;YpmIdt*4g-H>8*6}^jIv0-cpfMbS-{1R(at#0P6wNc0*xy z7xY364eNrEmkjzp$4hB&rBW!9Qovv`)+ubyyio6TzBNwqqo5w4mP`fy%bE~KT#8AL zOvw7zZ(P$ut_OkHl$Z+v0qf|Bf-%$vniS)1G~x`!4_QbG&QcL@rB;7DabQVM_j zcP0rPZ3VGHff*bG2^s!=3rz&*AA5dyLX~Hyc!Gv1tFwT-BN;2bigmxlR~kFa9HnMu z!W${-V5N%wOaej086G%A(bSh^YeG_00v;SI_wlWbNqmT+xh*S&LR6{;2weYPRiuy- zLv5Mx1ud}7?3Db1?oWm=MR4D&AgNS0zDZ7fm47_K(p#}U>>kA-5AGhMRDdI4UL{v* zpYfY68{>)JGlnfv59E)Qw>w%mNGYo8f=mA?+bszH1U}}7{YPjvrTX=3qXmW)JX^YV z9Xnde)2@dMpx8-pJRCau3X3$S%pT=-4|x4CV@A79EbQ*i!IRaHJ#&D-r6&*>SoOXZw`;_ zkdQsBE+N9#;>oP}^LVm%lpisQLTv~%G;@hq<3w#(1HdN1r+18z-r7hu&OlJJYY@uz zY(I%cEm1vb)Pfqo3Cb`;+k;%NRL+X|+)7|1j&4J(-932J-Q?`BdgZ9zUNL2Su^?F0 zmlfLKuUdc`30$1+jn5$X5pV!tD4a)p-FvaxgsO+MyH6pY`d_`81Me=|KRDN4J8+d= z_PvsB8<%Ov*`w8ZJB0wj&%p>?w`CU0P;qtBW=1{yyWM>*-CH(f3V{T&lSl09&x&td zdjMmg>DAU&fuTaI2M?VbG>{j!=0-wX^%*L%F{0x#A?;$enFJFe$ML zvm*t5{F9<+xtcu~R{)C!V^^9N&l~V=!;z(*OuYDaoWcl9^$#`{8EmTDI3Oia&;tR# zkLEgZxmhr4uK`BBf4#nZcB4P5wE^so{{CBCgu^n&i#JMZGzn>)Wmp3NoZc^_rM*>D zG+c^70f^SZ*$arUY9YlPp6}^}8vS*|eUw^yMwO0Lx6AP!eYpHYGq3p}x%7`*Y|W0p znMniAvtR{HD;$7T(*Zy$jd?xUkoY)uFdTvNor8|5h@wvUxWG*v^d=SGlfqW9Z;uX- zG9A#1o&znHP%Kuv?=`t>L6{>B^hQRXgmXbwAHvALPcnwo)RI$IUv@LJStJt)g18}o zyWkHcz+*yyQs7>&McLcMQ+3IVMUSmc)LJSzt#DG1bb%9vLK_B91h^g*(-n45pSLRm zGi^JJi*uneBPzX|qB<7(-^@UYSZ}DqivG>PuJlpXjiw}M&Obnt+d_{=RV)=7p+kzH z;0@cZbkY3thTO1-sUJ4KB=MTMz+%LSA<(QC?hPLaJiZt~E2(;4wc4A50#~8-`EVU2 zCwx6|u&pKvND3ZZI}--ZBRxLkbKRu`3$xeL}QAso|-$5G)$=uyz)MdWbA0^xIsk z!6lbbfW&uX>9>q=&xkuIa$%|WKxB;?a9GcM7ofT6rB>~hBrPGd?A2%s(04M> z_4JshHb<$NqGK5ZSmaPALG}Oyeq+F@*846k5y0nPEVaPJ_keDcyybKTMSLUlGCSt* z;eSd#R~gFauv8mBak6V<#{N`2aXJ^9;(wQ8&=^Xx`RSQqRn99o9w~B_{Y2J} zy}fDt1L-^CpTKJgxF6-0(Ydn^cKF9v;cNl{+qA;v`k?|XL-Sm2vvXrp== zVHY<7bwayuE514*RIBCVM)geLsvtXTXK&weHXMQRVq-7l!pcl>$5!Ga=}ek zVngOYi3XSae?$>3@OEbPrWjStkA8g7kyQd#U z5DkaqeHXqnV^%q<6)oTSRwHKkt@h#YSbf53Jtz>;yM2H=J6$ zzM3SS-kn}%x>MEEv9P+ z4>vaz)TQ)qIia^8(@wrWqsL=O5DYT6IqWHkUlwhJFryXV$eSo?%j-q_Z~`BL1RCT? z_5{pkI@TMJK6G)1qkNTwW+`2CfK$-2Fj~0O-4eb|nXt+|+&yz-lwq~ycJ9isGZsbo zQ2?ucVN3e5uF-X)NH__v(YcZQm&p7r$O(kMA<8jiGt1~*cZQIm=J{CV1heo3uP{*t zgb_bhzI3YN`<{y9&mI~N+C4&rElT5I?Y*vHE-v2myN3BBj%+!GhB6JODNFMxqh^GI zP(O6#UY{H$vTTiYktCmUBYKo+s>#pF10=r!CX+1(3VhQYWzR6`} z^le~KmU-UM1!>-u7w*{1eRQ77v-EUaG$b1}e!N?Xh5hb7dQHT6;O?RrA9dNMc}8CK zf_UosI&xcj46A}8TJ#WP!^F>;DYggWC6@x`hvh}GM9y-wTg6hZwPeD16V>*$WOfVb z+z8_V!H+Q{Jpb;Ryy%l4alvTYsTjBYM*3c5WRrJWGIe!eVajx13Uvfmp#Jg}M3>QV zoI%vZ;XK|irSXc9`G(=gFe_|MlcvzvvoX81Pd>V2GQdK+7`Ryn*^C5Q2v{UmW|p4M zDw}wEaQF5$))@NlnS6s!RXLO-2#g5Jr1L_9g8Gd>{ezXC34RR{#*(M7NNLz{)N3Ti0NB zQL(`ljNz)N7eaaRAEtgS;r4H4=K+8n>_Tw8M&y1%t`JNEaV(pVnBw-Af{iX{NUmud z4}{ErC^`PRw%|auRW3(>VOXSfle==J!hLNCAIKDYxT57HB0EfV&B!FJ*A7w{aSKsq z#!L3Q=<2bH{{k{|3IP#PVKKb#OF7V=ZH=KCb0i{~Q*(t1Rb)siYI!)=1`*WvB6pHj z&}~*P8OTFC?D%|RY*&F$C~O+@7&yO)OUExs8wcxKYA_-YdTuu2ja?0y9LQ1E0}8>P zcp~qWmGLJN2q*+#AT7U0+#ar^5Wye_K4gn}pYTT}qWmkL&Yj5#IeaC-X5=^ld2}^) z{wabhi>}@qxRu+7N z+&4*Xd(a%9>wC(vd0kKZyF>rSxY#K=2ZTHBk7z62>( zH{F1g(Bb7e5}}p|rgHrwB1;;>^op~F26HQo>ah$X8W_f9<>fLn zIE?Q>V(+=3Gz9^p_P^29MIw0=V@9zVNm0b6yI@GGKnOGM>)DkTH?i)`bOEpih9GNy zIiaxlSQ8CCgx+vvk4nZGKz&=qG$*E0KAK;97|K5`__4u4_$fSVXY+1U|b>%X02 zY#*MeA`-f)Ohzu1ur=sQcs2CXT{c>|Ex={|BBSi5)@Qr7)i<@;sHNp_t6i38p6NY{ z9%kll##lFT_*L%>cI-8K(FXA<-H%>fptD?oOke#JtP(`(t8wC5(#mP4vzLlbsfXaD zu15p#zKo900(KLCK6Z<*yiwwrr+@gs<8jAOMdE5 z*G7*$ctOv1Pef4iwVw!tY?}kS1clw9ea36Y!L5GSog`layPQ#e@=$_BvVJ|rH0VO$ z;p}A53x(reIHoF*X)IK<_Km6^+!YDaqa`XL+-QF=c;pen1thDBEvg+IR~k2Ie3Q!7 zueGPXNxxU#)p)LHye05BsoR+Nn@;4e$h!ultc4>9Ck=b=1Qm7pe?T zrMpq4mZdn<)pwI=8{ znf81wat)ykDy9KvVGjSq&RF|B5t33>j4B_iakv_0=F@7Z-5|o`8K5v#V-A{xG(kGb zRCfCpgVDl|NCsro5jT4c@_>sDm~g`pvwUwWlXD{q1t_26>=)_`lO!1|bQ&+xGn>lO z{#o3bAb}VrQv_mS7LE^h&yryJqJiqd8zsuD3c}=JBh8W@o^e#{@yP8p8BXsy`0{rf z&2CDd#GV#@o#lS*Q>S%&m6-1)m)AXA)rkrNc!ocrW*f>M5g!NaxrOkmPCaXPy) zt|hJzrbjA$#t+?F)p1-*;;ZweI;oWl^Da^ z2k9S}U>}i_Di^zLeL+iG(XM$8Bc3P7!2k;v^Jt*ALQK!+7B-p$e~Mg_Mc5I@_fY_Dw!{nnW1m+16RbK z(~{zsOex6@67n`3(UhH9(L-7#BYl|Jl7J@jl#fCP9Y;Rp#!6o5MBs(1e{2|%587J! z>?LPHmD9W)`9`y(TCTteN{fT%^^7%#`_8eh&kX)eD~U$mAVy17=Dx%BO?vGuU$D_a z0OaIfg})Bd`#HhgRBE=u2Yr2>=TCqO9HIydFJyT1-* zNzRPl)~v+ClA}>jLnb_!4@&nQ<(eD=Ge{AZ6dAd%pipaFk3vvrvU% z)Evg5jsnT25oP?3VPy>a=)$)g;wm)=Fc&|{kFbsx-eSJGrgN!`kTCN`9ybmVNQ)j_ zr-{>o-#QUSxPwTWTw7VG`>6z{cT-1~c}-Q%PHE~L>%4LqUCB4p*dBx=xPqiaucsCu za{n?=Cp!c%8y5I3^iUvkf#=wcB)BW>K@`O&a@x@_gt>eiH)Q9e5TiM7auxk5l!{<= zT2~*JgjYrU4|8G9>6DPh1L>qKyf~5U8uMRN-B`k2 zQh*{kQT}wV&a2Y+3hu6=X?wl*hql&^g|9NKM=B8b+3S`}O_RTPO~VQf*um^p0S5?g z#&&xhGfs3U<(n$l7TNucEt2pJQ_5*!m)GKvQU+7*beVh)&g7a>qFyPBy~8N4&;S=a!b9mP_=_SBl5kCgDfNPStPL1uKl5#yf4r<6=A<_{x(mocZEW6VmQ!;hQNHHlY7%N% zHg=6%32o5v4hJs#s(3C_2A(((1diKvbt@b}61Ug}DZB4x^8&7gv7f`{d?f~k)H-k3 z0x>!`i<%*qP}ao99y->te}Q^4Z{q-|dBF{p;fK_@&fUO)Wa$~xyIWWvH(*E)1v>di z6geSh!azp(DVfpN?FLhOnbUE_2~KNn6w zgQ9GI)b{tT?+dY}fxkc97vhYec@^mN&Ix+?!F&ELTYKZx2 zJFxeTtwOX|;RdHrSS3!p7)3dssFZBCh%&;*s^a&AOF@_=-@wD$_ljs@JLfc>lvdU-06{ROMGc#Pt{wC`{|FCp7$pC}dv#DpC zvp83fJwptuqm7w>T6?SAnzcqr#E@POTxErCG8B%sj-Y`1Je5&H|7W|$N7IZ5lUAXZ z&;?^q%rnR{OWrOTX9E2?xup_(mM)+$=QK=0?%Dw{C)WAur6`*^LD zSAt2ZhD>Man>{y5RQ|0>(Rvao3WZVztdrs`EeVIu*@<$zl{Md@=bKL`k}!rP+6oGr zGFkNl0bnA2F3TImLx z@1I>0aVKYr;rw{l-+nu)vA4b7vDbz8=eCo#@Ns^*YZ9ZX$nO8PBDWOdc2hWFEtxh4p1;t^yV z)tC6E|M(u7GmAR>1y9YO!Wi(8l>`mdUb-*(fX7ifm3Ug;qF>L?kWg3 z>)(@6)*^vgOl)oBJg9oKC~S1;(n)na9KQychZMDAvVv~?tvHh1%^adHWkzJQXP-TsUPhOplLgC;4;m9Jfax7bwg2| z2<$#0aAJU+B=9oxL5WCsUw29NHdmaRt46xx zy{L*gLln?Jh04&3DIWz^N%pN~$D^Xq`wDL?uNevC_Dh zi4^}U-G5f9WR=z zKGF329_|i8lKo0VsNpg!PAVe>Eiex+reJ_AafJj98C_IAPF5O-Z;pr?zB6 zqzHwxXb&KaX-YOnbaTh?5vNExtrQ}VYhD=J{IvtMh|*=Rfwx;ekpQWo8zAg~gh^OI z3NIcW*H>j@C)@`22R}tqL6hQN9{Orr0aB4RRO|8B7aKu&B)b~N0n609I+AcZoMaFEZ?qAKMls^{}MueveOlGzVV> zbt)ej>4Nj&tH@$+-^H4cF}2`EUFX-2@tLxof8h#`noBgLFORn~BmX{M^ojmGD*B`x zI>CPieYw~^tZix`iE&2fTt2FAVfHW(nYQ2h{o{Q(KLoz9s517|Zhm}K%;x~=&ZXhG zIL@>;sEv%rGHM(?x%o0?@NESqzUf?EZBG6!%h?I=o{ggLw!dDa9;@frTG!>NuNJfg zm`5XHkyJDZv;5#>S)3g7Sb)*kk}IbBVI|v@(0gr0 ziwMDQm`yQg^=F(Uk6i_q6>}~=ix!wa!@HNd^16D&P7*yt5!)p{esvf*qpUfMAg?JP z=Le03s@5-o0HtPQgGVa ziPk`{C&-Yhm%!H|g4Np9=a}D#xs-b-sGx=k9(z9qOKdOB`B_>DB$U*0-l*aR4F+^nV9lXYSmQ=-mOd(S#%1CwF@I zTHAVMJ%_A)qz4K+cbIT ze+Y5QAM>!72eb2pLQ3TK!ve!ulfOMVdL8WjIWPpQ1W}f;12O>ktPEzkt|2zNdpz(* z!e^n1%O*nQw&ax%I7Z_gdpXG63@N_dFtyF+BjKuIMeLDzQuKt(rT%0d@oDn@(hjAz ziW_QC{BOL$!H0PS*Q{Wi#CcC_8PH|Tj=tv>#Mt*+_(70uzJH>E&hu(q9A7?FR+QP6 zJ+m4JNt=L<(_T8-6I{oS0`UJ59pya!{Y45XE?hkmhK|Ow^&}lX6&4AyZ~?cHSX@3> z6@rnVeHQ1|&4~Y5FPh9W-1b9d3{R=?JC0X;7qcAkhuhFk)96GY0%zCw3+xi{X55rw zb!j&Iu?bY>>8#z-uR3*lHr>e_Y=M#r8SG4;70F+SfM~^2z`&Rtl3FPO_lP*6(3q9o zsSd8c$nqq|gb%GgVXtH|37zaj!avr&Gwm(eUzT7hRu=UTpwxc_J%i;%^Aod)GyDr# z0lyI z+C%zk&n@R;=Ub|Q;;nSV&s@P(l4EMZ*_;%3R+)>|E(pViQWKU4fd6Qom-3MrcIN}~ z7aD)*_O3^5XRY7 z(fdNdekZ28NZ%rMxSLg$oeTZ_IttxWFPk;3>BiDuiQncJQYX{=*ajk8!MY^A9`(p0v2&ZhS)w^Iw0txa@Olfb{`a5`RoLqf-akUIR zGsHMn76K-&>CuOZf5hUL6#bNB&Z{dsL!%a;A1>lhI=O3vs=cFpf1Va_(h2XoqALjq zH#{nKPz9SLZ>hrMtAaXSybDS;1S4xAvaQ@N^$Gbes|E4KuRN~tyvDlos$VPZBbXMp zYPIVPjyR|;B!u_G!f{K2jMX1~{0kT8 z;jJ{ddqugsAOgqdkgA4wVcrKBx^1M4*iGQk{4_#k+P=mGeo(L(`fAyX8sgU>ozQ1Ge?7-XzSeTHQ;}>yM0Q=YB}9b(wS2;P^h)S#*Ja zV!Xyu%cBTP422aQ0ZX!`ay6P$PS1Q{7;Vq&o!s=7Hd<7h5SvX=B;2nPb@1rKOLoh= zuVxQ2ra-6Kw^Z>yi&__KTKI*jl5M@Si{WM6Fb+%Jo`=qFWc{0J#uZRx%coBL&>MOB zd=v5$1@?HZ)zh}pr^EHyBOM^Bc7!bVPY<7yXnp3+>OF3NH*rqyt;z9T)O*HHdXvxm z`jt1a&cmFgn-wR-3+7s8Sl97>vg-I+M%=@26~KAj#8GS9y#mSQ5~sDY;JxFx-|yh1 zLret|4+H;kGWzO9*X41|yG?+}CFmp&ZeZvGpPyP&$Ad5ZQ=8x<70|P8Azb_my(D&r zY7eMLxIV7s2kS7$xr)qKv6WQhi4NWH;oWBzL|tT5$v0b5&dS=T=P#YnlUw)Ye;Z~i zXz=EVV&-n>he+ZTfD?c%^3b1;ZKb`aR)9^KLcVT=F8Xr_f+FK#gc&Z)ENPs$qEgt5 zW2T&7n0$$nY@3DMM2-ht9W2AXQ=~q2<+@F3`3&O^`@+yYW~F`K8){z$iS;w=GJ76*UDUUz{q!ad2Cw59xuWEIP( zkHn$A{&oL0zfkb`ogU^8U9O<1xAy3aOrnZm-@bP3eQj^EbpDuvhXiaVAL#?G zW*9);T=#r!2|f>g-E*ce4|(i;Wy$qX+yi@^`YfYaPd-&{?}9^y?Fc5P zT&J^7eUDYOg7|mS-xeGwHoH~-0e@cZ{j%=omz$-l$KV{={*8@RV$655jd4Xy1dq{)OJMA93H zUIJi}bx$67NO7Sm~YG z%PV%(>QP54QxgmG$4wK@OCh~AvK_7%dR1vn`-)&@?j-Yf#$C4$_*^Y~_8;z~K}$=) zwuF#LNPmR45#=3)6Wbn!bR43H?3{#ih`QT|j{*sAc?00<%iaZ)M~VWkSzUk0y!Tg3 zFAAr6A;fjP<;X!+oB}3mx*;*5e_qLtr?t8|{cE-6Y=T}GsJdwYt8Y5esMhCXz_?Ok zqaFnrIezfGWA=b*vN)F#QK&rlnodksVn7!)1KAoax{}^d=XFPjV!m@nzzg@b59(=Z zEt`ABWkXi7EmL;Ry=-RdhElR!z{*}wW67Y7rCH#C=BcBvOTf42u+^F?ZT4KRgald} z!!ryTgZD+UV$u5kHEdtmGREcOBfkw_R*;V?)6$K(GD|)K%h`Vlv$9#?HA>nt_T6?E z`P@5@gD@q*{b7?*I>rrSr%LOiY@80knJUduGT^{uYaqT`&+PvUCj47XXRf%Vg*<6a z!HUS^Y8m9DE0?4cjC4guE>FzzalDExbTn*IL>F>;CLyx`Bvm%_-=^487e4c&&={I> zSANZEMhWka-fbsSEUk+5u*9aykQZdG*YT5JkWTK9bqs9AsW(*(Z(9u*!#!9#YJd8YFuu<05!kn zodR7ml3#mdR^_0N6vC(b=BE_NSjpJPVsHoVFM*e5pym<8zLe3@;8aZH@&No=TU^L5 zv$;3AD0yvn-yt6~og`-2=lR~Ci2SwyPQSY9foD$d2o$xCKd|^1#@%h=PM!Sak0?T_ zFeWnRNAH(b0Q{JSzIdYWy;UP2-czRLfmWy5{V^3;!%UKy_-lI9sTeGa6l!F_j2Ic( zdZ09V5XKljE7i432-No~H>TEzCln^>=C*d9AvAAYZn>Qag-mla5*iJ15^aei&KB6E zk?6}1byKxtou{oGs+5lk0vIIZeS9))9R)=x`V*ekDGn~pBqf>;p7RTyT?(A3$Pi*C z1QxTmkbFQ{k}@Wgilfki;nXB?G?bTv61~Tbb++TW{oRZZe0B=3PYBNBVCGTR@8QFQ zP3^qI@fWjUz<8Gj;I%vhHRVi-9%0}h_xpv$eqiTy3~Q9GEZ@q+}cCfuKXx zA38!j5^=Lc81&@TVhBszm3XM1M6$$@)571k;2@u>_k`ACT}YSOZC!|cVr^9zjvpde zAP%P;?Pn5^l)K;7#;z0%uf!-Xm|>GYJydgSRY;!SsOhLw$2U`!5EvX|9voIvnqXuT z=N^-^56P~i=fAH!4%dyV zB`|-Rck=19U>kV;w$yz`olQkQ1n%&PC4W4GV=kf~M;rDBawRo8e$2VsI*qtd_mF0V zsfoQEqTStF9%>ql4ID~@jcZmcICKX^L7`V==^<}zqk(ggIOhdKM2CnD?0}DNp&Xy^ zv{-d62DsIWpF1a%=@xT9MbJCozJ zAUPuDw3Ew5QXb3qU+8Xc1va0{6+bu-^uikNfyQZU#oja98gTPe(qf6%~>KsizYmMxeN9KYbW!5$BWk@MJNdC zZRieq{=`1ru6ESM3Lg^-@-H>UzrD=DIWEQ{niLnRbd;;dgmAgl>^vRiFOgK{dAR5D zC?XC49zhc+B>Oz7xHN_DZjWrWQAeLc0w0RMax z7^Ge%1R=N^z(~EYy}jHxM(yDmxuvwHnS#9-HMiBQPnHosPC>ghs-BZk52YnS0SGut zfx(;_#%26*E(l`mUH;WZa>k1|^Kt;AU_1}K@1>No zy~8Bw4+{P&o)~yatO>*Bw&Gv@lXOp6p-F#%_3ct)fTd*!FXF}6QhKI>g|gIfP?&i> zgei3z_iUo=S=1%90#LJ?J(Zs5P5}_9$UGdm=6}=T6p4~`31lZ>tUWpB5l;-;S9Mv6 z&VSA$8Yr`q`;$P zS`MtOhac|~Hu_W&J4lDJL`bHbv5$`u&o8(3|K1d_{s9ZaR@kxhS$f{eBd(6ExHrc3*#U_<9|EYZ0^Ksdg5m~(sB|4s z;Z@gACdP);yOX0BU1iYaisbBG=0lKwWAIDdz8m93?I4?QthhV=&P|1+*%ZdRi`5lEK9{{-{8DHI?%z+a(%(2ED>-)$b4ASes7prr18KX@H zT=xKZN8OfZhRO}dl3V`p1uu23sYH$psurc5#_Em7-2`Ykpf^g%W3@vDRb$O=sJbJ5 zhj;q!-fgz)#f%+4@om5Y4^Q|)JDLaDds|efR+G%z`}4OGblTYy^SS$DT-j}J2UpI* z3##0sW5z$Y5?|x6+0F6S`OeF9z0y!Fc_>Pv>|QKcuYm%5jjskBMu$JF;Myfi*vDg| zN46NJhmXg)&?_^$t~iH6xcYbQL|j$p5mRA5x~CH}6f?`KrR0_=&X1{XT=}hj>*~7> zJ(v+ZTIw?UC@SmSA;x{`v><1={Qc)T@SaDtt>JFdd3I}9y>&IPKc}jk@MTM_dJ@Ws ztiIax53idcBm1q5{`C>qUe#rQTdtk<)tt}Kora>@Gb)ZN z0@#Hh4~fs;LqM;d{qxrE`!(%pH5^GcpKkmdv(6? zOS?ixqL(VcnEJqP6 zIA{SsrjMG{?1l&Gd|eNPm142UebzXf%>-2KRLp7~9xG-Y{OPysgraP*7pd9_tMQ`8 zDtR38+(q$h8q92E;6mmDP$N`f!L8xT^kBUi`MdcMx*tT6=>;=+nde`^Gpcr%?`C z*Kq%-{E0oj_>nmm;6MHSeofrdT*db-F#DHQ_^cRXxHvv5o0qq#UL1WTE zY`?J@BX+op;k=a)d7u0k<9|;JEVi^V;g7J%d2ypjoVPP<48Al+ILZJmKE1fcoCDk= zZZA=Rt9`ERMCKo|dmfwbgIvWopw-sM66c?xz*i>9Wmnu0VD|8>7ZKXM;jix|;MZ6W zFQ6kGOR4TVx;V5}6W~`rm-hp;RXy;(v)0hxK5gZB)*ut|V6255Jv;wJh>8zxS0m)S`6Vkg#8@Q7y@q zW}C8JFOJOPbVMT#N2B z{IX3BJkan_Y1Vh!Sk zj7uL$q{LotyyS^#p$FVs&*mZBr~upP5FDuiMu_sNirI^q5So{6mH>lS*FYJ~Skj($ zd&nHTIYU+Y-B|>r@p@s5pZ6GH9q@u(6+fEF1iM0h6w*G1i)R3&Yl)h;)_UvNJ&u*ai4PW}h!yMSGzCE?KoCer>CA>tO z<%?A>L=DdT#=j%}U-P^SUcS@s&i<mnpftow&ub1Va?Nd)x{%%=uSeB8OxO|h#lub(@!%Ho_ zMFz586tqU3p2W7LO%+Jeo)LS10HGGD_|2i2tp8MPp!}o&cr`Pb}LIIfdpl zZ#v&B%?SoW4_2$g2cy2!A8$5n745$ctzb52ydLCyk|kJDsgupK=2h zs(km>Ew>z(tNvGV=mPwY)g>$g&=i9e22MtqbY6--rQOwKB*?LY162FBSd;!q)DW&I zpuyuOeQ(oOdp`w3w_K_F9THyBgCQt>>ijpxlqkn-|Bd-0A`IF81YRgb-vUjy6$ufZ zd88KT4%QJ7rzCC}3x48gbqd~qE#XTe+KIwOu39guABD4J(Fz|RmPg+t(0(9!VSCU6f=^^@5iB~M$F{~A!lR3!z6H~e@hN)#)G zHWWdE%h*7b+FY}kVv+SHQ8WXyIYSdn3yzR)3~hcC)Rt(lDTQTY;go**>Fpwm)WUdB z7UsVJ{))8Cxq97?^85&HWG%-H0!@P16JG$;{;$F3Gr3DwbN!gKW}?_#{KRME7_GCv zDF2S}0lQ=+!AZ#4nbk%!cNd(Ih_|9A;< zgi<7di+DD~VaxPV$B~5l;vp!8C*MBUpLRDkTpR{PUNV{rvcslyWF3he-|}3nfeNAz z2zCKWiA2ht6w`hNc+!=vE`Wt7bo+dfnhpUJq3M(RQnqCZHGh0}oItGo_Fi0Krq{H$ z4z!cz|GLn^dRT0KhUJjPZsSvWo}*DAgu;*>hM-eEzL%{9%~o@gMr4=#xjWjHjK?B$ zqF*Qh>&{^=vYu66U1^`7fU%LgqxK9@CGZ$Zj(v`sVd5B4NXpguSOsnR(w_vqk_S$$ zDP&QR3umvmmTUuDp&3?-N;#+9p~E%P!v*8 z#iSp9T4C=zrC)FMmjf^X?Sf#&fEixq&?8-0iH}vO39_W&!4yuZnU+h0&1cqvM1F0C z7dBbYy`GV4ZH7rf(u&iQTwdA>ysy$nm@Wkn9FV!LEN&^6TSdUfE4H1Y5?ZQe6R|H(1n)>ygM zObL4WOGOXewKKv_nRGaN?rs)#fG64XR|OqZc;1O??aToIkcN+Cc-E8;X2p2j;$Bx@ z)o0wL=HYFFW9H3;^%26GZL92 zeE;si80*%DaH~xJP+{l(-X^U*0ZG>gmt0&6nRhHtIt|UtGb6@#FDBz3zQ zn&XJZ>t`dK$fE^uYKo&O-0x0sg(3m^f$3d*q$eZu8xuYgoWaVuE^Hw;Q4qUouZGLWwavM}4OaFcG`-j!|{V)Z8_EUn6yLW85~L6&QMV})y7d(Xl=PC53efl$5Xvy4zZM`M^>pgK>-VT>QoO>H1?vmt%i z_@%xdhMeMCO?ab)1S_2cyFWuY`6!}6(vI$!I{O&oECrIWvgI&#NOPhgsu4s`B~yPd z+rlXwG%WMr#>=a6jOlo8ULS-27E>gFB(Sqxt)1@zcWs@=X4oW`71G>~PD%pkuMl(? zH;O8M=4T8x;K)o0E6SROlRFZc0|sFHEuWV4H3FJv>m;|-g&Ssa<>O~UDa=?>)@u2r zp;~O#>oOaAN0OxkR>m2odO7!6Qj(k>yj6=tiwhl`Gdyu_y3ON%V1GP#0#`8A7-Y^^ zRZp=SRg+`cW=;N*qoFu_h=8beSxy{D%Bk`gMCReT$g3AgTYZqKCL@KXtHq=^30<#K zs*FbKH+YV2VCeBFC(Fs0#DrGr&JUTXw%5xDOGyZ#jIE314#ViAP4E5~jMYCnapy}j zO@C1wEq7Vm!-5E{+_YU{>=k5Pn-SwK#w!~!=!58}<;W%MWHpc@4lh|prHRG*Bl$~o zD7M_i>)NVLGZ_hew^#KvdIHcJ&cMEXl(JQ7qt+QX!)AHzni}qi1cXN%Y0KBRoHVFP)ws95ZaF5lxC)>Zi! zObUdjfe2FQ`>$!v)l|@r@5l*knWQe{*Vo~FzT{di<$c{`T0gg*+btBgY9v13gZTR! z0#AipJkbK(aV{LS#bxDgGvPGlvT041_(Xatt@Q8*5O{O_Rqt2H{xBF?GFY&V;p#fT zu0aS^h`gZbE3?(mp@q-8TN;Cw&KTV%;RVXbRC$YU~?U;ZIx;8#8*;N%}D3L_^J&F5(&LhMjoZh{M?;XXqRFvjsGhPPyf(3 zr)OiQRJhGKtGtG#Qv+)6&XcOhk0lc~?kf)2!+H4*J8L-@qa&T;FxP2oNoPu8opy+ah@-tnU~0lde%NU*_IC zbtmYiX#g-O)x;uJ`Um%KXtU#(khi#{D)E_B-Mg*-#Zq4jS=qyq3+>TJd>dpC3WH09ml zxnVzieYz;dybrCpe_2*8$17_q7PW-!)KF?ReC$*6=B85O_j@!y0=`k;;|N8Ok_ktp z7!Ifhubbp$-RuN=&eG`nN{Y#iuviAI&CT^ZP}bHdPAG`Zv3zqewNrc&8HV*n*oDg zqM6rWnOpik4i4>8oi#9fO)YA?5AD(WZe3)>VDpXwl&vqt4JeoQuqpY5Fs6;5=37}A zU8RyBCA#1l$FhH+MAcB0S&YY|jYPUKu@aSR1Folo;**n7Uox!VD;wBUdhbb#c8#Ii zQ@_c~`khdu*6CWLN$U;gDG)7;g$P0_T=mF=wI@{~sGw%qK9NR`F zhdJ4(B2{y#n;g6E<@ve+bMv*{4li}hoH8k1AR9X1a=|bLLG*%~@_AbAw}=L?@$mWM zl2kLQ3GA_=2PTD?*?1Cz(1Ba^JY-?>lXCDif*spz$Gg&RhFTRU(so{`0SBR?@Ma7W z0TC05YYAj$x{}0?dbx{S2hR+vb`A-J{?=x;)>EaQSu_L{_0fY-<=lE{vV*&teJ!49 z?Culg(RYe_Pgn1h==YpN$?=}cS9P@+u<#Yl89}%7kWfm)&XAp4&0h2ZyKMfYU2&G_ zb{t!8X(^{>GeQ3Bt;?ViXiO62oV%g&Ip6O zxBNZhJw)9Mk;u(eAGrKu0zh8`4jaP@1LGbciXrjT1ya4vj+!5RBQ!CNV+2!4hts&X zO<z+xNM1mV?B<3P4fiBO#yX{ej4! z*DzD4vF+Tbu}H<4?@o(@KOb7~(6;_jK+*d*ViPU+M#8qTp$zL0Qcud#B}j&RP?)KP zTQPr*QaP@IGfzYUypNVtQ#@z;&Vd)uMhE!%XUHd0E|HVHs{lC zA+hhv5x&%gY1Y6^RL(SawAlwomhlAi!rku5rNEMLYF_Ucj&3r)J1_iiDK*q9i{Jmc z^wKQ(H4l!)G<^le!hdZY^UkBp=Vk9+5-HIj5bO7)<8$ASre~aLMl-d-^b*2eogQ{O zx{;$pyAtecqBoqR|42TtY`+qgOcu!n9fkK`_kYbbP^`|s?HU1{zq|;~lRJV^NGP8G zS)?D;LuS$fJyV!cDtB6pR@hgMLWlGRmph2WhSP##S{Eoz)lfU(+r?>om6nh0THd2K z_e^e(rgU~?8zza$RyHc6$(SaI{26`+1AJ=_)$5;!^BG&WVtc``(&}aA0)NW&`e}R4 z>}ps`lT%)miT5jC4#qSs27Dl#T%`inf0*lrxbI{yq^^UlaDAAW#DbWz{GKJ4q@SMf zjKLUU59U%FK#I7R1tCzh5Fh_*k|X9^6T4Eb_h!t)%vJjRO3o3os8}uA6qGvDY(>(e z#rUoUR;vM!0oIfuay2&Fs*`amb3ucxftP&H4qX@*s*k$`j#OOm?fms*_*1l#PydE5 z3a(%n2N1siR;W4J*2g#n7b(S2dpN<8_GFr;bH5OKY16nk&!`UyhNd2~r|1-a8x!BR zZQvK@xSGp|G`?ZrjGp$Bn_jaZ(p=mx$Odr%Bn47v3I z;yQ}#t?!ngX9`XBOUM%%L{|Qp#z;TOF(gT^h&p`X(lR!mRhUbBZ4u~W{@}7?7gTRN z4sP50ojb$p|1ow=F`~4=a&6nTZQI^GYumPMpS5k}r}+lSWHOzv zQ`ObgkQG{=Gb*aYzS_ZOs*p&DS$b=&7G+>!xC$wGdvq!LWdKELck$SHF`Gu^2~*qC znZEu~5danjnCUQ9TkTUx(#b4Ep)@ay{^o6<;$=^7b>&K$LFR#A^F^s(O>jd`wtpqh zu?*KlLBGa-LvRAW2!?UhtbjcBp%p-HIwcpJBN(8ll*CmXlslg@Se-pSWk+nnJC$h_ zajV#S^UVG;*Ol@QjSX`Q{cAe%>u&j|WlPL?oyjthXcW+L?`#9pBb&9zUi(}08D+_` zXXm2~wUO{Ob9FQaLk4CQBYplW_|dQ+2~sb(6(k6I)cO!2_1X3Hc58 zi6$mRSX{X&DUoT$>ga2KPeKz-Kn>p_S3y zPe57Phasqd9Zv$h;GRkQa%(S*lvYSrJ1qa;R8c0!JnwyjXn+DY!3ahFB=>kGt{57y zMuFz%hl7Q3$B8#!G*b;S-=j@m7i?m+t(PSCruz%Rg=iK$8~$Gr*^`l`RSNF5SMKeg z2&U!_6^wj`0Im$Jb=UChSfBHG__sxbVE}jeR)0*NIn@nyVty-rZtA`@H2(Gm)6!ZA z!3DVp=esm#J^@8y1Spbabbhn1#1$+UV`bD%I(AlaAM061Pr%Qp#Xt=s@_q&#P|XQ`uYeYV~z;af&CLn}Nnod@8IXn~Gzu$9=!#*51Ci|wE$rj0o8ps-_#Bf7Fc5)Mc&TKuQvx)$adoxFFeL?6avsqZ58T2D*7sm3R_bG zH1;tA#8YE^P%eJ9sAx5!LIn4_4_W2jl_=%v(RcNlMH;a{YwjHcvX(9g-(vJIZwaa9f+sUoBVh(f^8~qX9#V@L ze{sT6YBFya1Vhufy7OO>X#c5O0l+Zj#zg=+N%<^Pp)U*sy9ZuAN!`*LbGu%wubb?d zX=q<0bEJwGDgxDK2^hYWDM~rA?bx->IX0i0q-(`b_{Z;1p7de}vzWq|0TV=`ZY5%& z$&7(lWX+UB3&Nz$t{%aHKuu!Fk%o88R~85Yh>*n66t)Dw?2Ip{J`-jI zf7%WvZzgOW^{;sOjqMg>4kXOH;Wi79l;n_%Ol*w<1Su`Se&fMb{Ps^FuBs*t7gO{r z;8PPVzbPscxrRx7=HmuQvYOc7_auk@M^5x5|)j|>*q zh={SsJy{6T&w)191SOP%LN(Jk!>_(eN^(}322D{k%iVf4m{vE4EExlY@HrJBnh^qo z(+CFNlmDKCgiI)PXBSYP+|IEEY5QXzR5nnP%wlg7GkVvyuA`l}Eow-c21`v*fd2?~W1qj@c4+r(@*S)G|f01A051Z%J&pn?%cErynV} zTJK#qA_x^LXQ~GYpf3n}Gb^$|j z1G64w!Y!aluzy34MQ<_Jv70ZPQ!V=$F=1g{?K;kqu!9jOy2*C=B^kV89exp{{yj%i(II2m*zp#n!)59 z8D{0|4OswL>?}}kWN=8>>;WInE~~_<7yU17mihk=qxMJE{EFVbhesGcBD$W2jm zhp)QkW8lZVW-r4?;S8Z{9}-Z#2(U4FT5p7BxkS2<*M_f!zI5n~Bxk~0u_Z2*BPrIr zvSn}JZ6m4KR@in1JVFx3N4B&UH1kNUsA0c>`8?Jg9{}??@6TsfHKhvS;U(wppq-Jm z2T+~vVJ>^VmznOflO`19JcqeAH|3%@j&^9&IdMl)U$hA`F{DQz*ew53IO@oc3OzfINS&k%g*J#D?b# z6mWUj`%jBm5qTiA4O^m=9<%xHK643!ZPzJpITQ#-`~A+jlPiHaf7=mO2+Zm!_^!(& z8cyD3HO%8hso)l}Dm(8=F8(39hwBvbB5@Hi=<`C=mD2^q{%;Zqi6^UZz-!t) zniER8jP#;nnQS1iP6P-YWOAW}%zBmPHj|^|P)bT}Bkc4GLV+{%>rHBa!IO&OP)j*; z+KIRgOgZ*&4H5vz7Rf)92LA=mjQvgsG_y4w+@^IpHkuDnb^5L>OqSd$)`)76W8Ate z2n)B-GVqy1M`U{JOqa+W5if9-*m@BykNw~P&a~x1VJ=!o6S8-WZ+r~rWmyv3jF{fZ zzc}5+ql!QtD#E-2jT)J6yijP0Qt9WOP)WA~oNWY<;~hcV`FzPte<9&0=QW%Gu{PK& z!@p2NxWJUR8$}*@r0gjAISmY0Mj4Kv1xr9@)gSmCFnHUiO2NxtVf^dOxse{is)f01 z#=X~SIlC<{z0PPiP?4`Aotdv2s=?IT67|jkC+?EbiP?W*EbfH2TSXgGICo@;Dtr>; zTZml~&)sTf|IKp-Qg{FaW)Gru`jI*<4mmqA!2>1!%hfiYYxGB=1ws{cZLhUHjzTxB z{=VuB^pen|<7jc`vwo^?p*{#VKTKN#Ng%xlS_GIvK9Yg*Nicx7UJQn8m5T4y^6?6Z zWVF%PE1%8i!?JJe6X>>6nH6iU7X50(N}K`jYk@|FeRlhlssi?E3kh3f25zi=qmN31 zcnW25b0~+pV-s!}D}-5pg=`N-O1sl~p=SdtI+H#? zNiSZx4)|hX19&0$3??h&Tg8?dRZd~fm zZtHE*RuuK3w+qM8Cy4ZKb2Zf9Iwqh@E^?dnGHsU_uuc!ozVE4iTQxXeP!+~bt#5~x z3%k1J0M*SBHguq}z~6RqCj*TPw^(8Hyd(fsD#6TsM40-bTmm^D+XP1gNy zO{kV6a%o*83Cg8~u5Lin`ZJQkHI>M}gOFV5@v%D`mbS~6ip3a%RdiEqVd^5q>qG+s ztB;@wjyGd38vf|a66Vu+Ex%(Uyp(rdASHJ|tS>)DLoF-KDW^i(bZ%DHEFI4rA?DMu zV(HItO33Y&(v4yS(yta>&{H7otnGpOZy+{Lj~xq=kWYt+eZxUWyK|Uq0D^dI`_GFO zHx7zG{nd)H!(y-J3mKt-+sn!+M(-*|^bCGeOIZ&3S^&d<+zE}>Uo`$(1SSm`KTo^z z;mnu3Y^mjG`_6c)wPb`jc=y~P`J@47t&?oc*z8Tb>IewNoyIZ0Utw3R!G_`0;FW>F z&bh@aAk{tq9wHk=!*7$AFfQrJ#ftTc8~J*F93h8kPF{k2TgLoUX> z(*WGx4979Ag_ED0PT+fFFc&R3!mC8IQsTHb6gt*JCh!tW5`ulw^h$9h0k@2FCYo4$ z>TDn=UkbfH9&9{H0N(}<%(kG|1H3>{fH)w7(LEMk!*8u4~JKqxu_o?I<1X>nTZ5=cJ8Jm3H|+8`_cBECHC%^nL>7?8?D=9rH*)8BlT)$F&=yRO{LFUppRX_xlKR&W zxi{`e!b~Wse`nAWDSgAL(xQWV>e{98+~F4D8w_*SWDDkDDK-%kUS!K!EaF5PXnkrS zQH6K6AU-{sfDMf~)Z+SDUh}T)lM#t3Y-)Q`Z4@Ph4LJisz>P+#s-Hb(Bgz;#8)Md# zW9=PHODm&5JKf|t#b6}^SZm{5K{F5p)Y}PXS*Pn3;Iv{-H#(~0-Wy)$pPPxQsH&2z zyF^zVP)m2Z0!8~yusVT*2vPLX)N5(;WJ~MTQFt`M0=UeLfyH=`cLQ0z;FRhXWUd;< zyDG$>)J)fFWWXs!Ozd&<9ODC*OH9@1x$n0Or#wYAP3GX3UL316yI$UOW|A;CC?IbL zyaB4FL?HYMz-*piMi%31uj+<*RhzuthIk#jJ$eDyhj{;%WHfuoKDfEbV-GY{UY4I! zin%I(514-JqS@`(Lm#uvuIVK=pGsux->4PEZ{;MrSd6W0t6&pDSW7`!M(M8<6Sn_q zZ+W>Iy8xpdUt3jeabO&y2$-(F^bE}+1DqIb46%q8Mty}JORtRZg*j1~?DNOBU|umP zSXMdjmTGcDoCe>V>UZaOd_UoOBjcI{s&XsDGMk|$et+Zr9JqiUE>foY%9eYRSG+LZ z`%0nBPTM|GIABtZ1erI1UtG%m#M`N$9lb<$Xfk;L&9a-9LV^@N;Cc$IH(fqiG5*Q{ zLJoS&Z#QT=*-<;L)$AjSqFz32kbW5YQx3%JWRW%y#bunJ%n~Du8V1E5s|f@|#PVY7 zVFB81=CHA)OaEZ7&rbL7wuTo{=BjdbXSS|sbNX1*%B1cgH~M*Tj238hTCzHSYaq4o zcjDI=WMhuMhNQuPS#pi-$fY*{@ry0eNoqn}2m;lfLWGCIVzEMI>33tS6H=$KZ1xbr zJNwDCfg)rZ*NDqHpdkrUJ9Cbr$oD1r4@r;WI&fB^M<_El%%hrv<8IzHD=gn>^FI*f zTZbu|BJYUi_U8W}K^_SVlmh1x!6VAM=UbY8oq{~(a#}q5?V?Yz-kq zs2za<+<-ykGx00DU_*4u_2Ego2f{YUc5S)C1$-O$8~arb#OP?uyUwTh;_c8yzJ!Vm z8@b!(CxSIW0DJKRopRLEnz#?Une%bWQfZC&8EFZLHUP20f29Pz3{rA0E{LfeX^&=U%urvZo@C^NVA_yg_dBfR>h8MgrlNDldE3YatgpTFQ zCD<_S0=9qTSWcr2Uw4wP7rX)10Av@bk(#}{7neMpv30}bK$H69Mqz0t@y(w8 zCZ8sJ1wbx{C7|VgwT~o7d%DXf%jr`*&Uf|zZBKG)u&jveVe=u9{vd_V78sDi$%xtQ zZyl;wXIojPxqsT3T2GK>0PWl-QUe33K28I}Ak7p_IX57CfTlrxh|e?tY1NGZIv#&o zv8@(4aFziY_Lv!ZN=o;SA%Tty05f!)b(b{ERVi8u;}@M}z$9{$lx#_vXod~Q-*Y{{ z_V>>+(2l291?U*ZGl_wJ9!mume3Pabq4PMUDc0WVZdf4{JXnCA!Z@sD;+#KB&}{zO zCYs+v((|r7#9sK*3E*S4Lx6PBh`n%Y|BM&7hfzXYJU3jt556G`H8b-s$rr8#hzb>8 zU~HaW9ZbX|XNi=G=lfdNtVQ(%f;Gh1fn;Xj7&_{`IrX8}_Q78y0%(<_JpM>|G&Ywh zA0h3>X7M6An8%$dyd+NkO@+V8l@-HpKxjdF-~S~=;paEfH?lW3^kZxWI@UP--H62C`2pZ|PI z`l25${X4mn(S1d*-xaC71YoU?J_mX+o8=bX5g4{@4uJq5qQ?;Z<(h4XSov!JhhiBm zoVn>AE(iL{aVMQJ4qe@nO8lhS9N(`9G_b{KoA{k!DAZTGn0(K+HL!~EJHC0L`M1{y zG)WllYS&zIgDRx^r64m#Oh>%BR2~4&8>5AlWZTcPB6DeOIlsdQG@We`OW&0iQ}YcH zg&u@{DK%`NLjVW%SrD}BsY%v^VoW@{R0OcmWs6S@mqiwq-RYkQ)9KLfLoDti6k!9w zJzL)OAHW8c=IL-R>rH+!cR&i0e@AH|hSA=el$$>u1Fj#7SNO@mFmpU-sBF=Y6TlMH zdiI3t3>0jMZu@YbPv%WXoUMAKx<~yk`3;o{QYamoYa*=2mZ%O)Tnaij|prU52oa%6j zJ5}=j=3E0GXumW&85xZR@Tp-3C*4~gv^&N&ZXe%looWct-U6yQj1`~L9D|$-mNF!& zZ-TfH2*f#VOC(Q=5z?Z(U0)PePMDBrOC_I&#aiU2Lq8}%wv^J>M)pj_0-JLa%U*O6 zV)yfnzuuUH=`%8rXj}a>ixAMj@c9G`In5ar#LbN zWJcTZQ<#{fQx^z_)Q75WU@j)bBT4+V2-7$Sl*s((_rDALzKVJ4A#%n?|MjkTLBqudpYLZ45t zn%$97ga3wy&`cANlM(kfct8$91NZX;hb8^%^IPOQWcZ$}hIWyPl^@o96RlL|OE=3G74dx~< zL~c!4-~0|J*1~j{vw6l%LOmnxeOVG=q=$F7N=7a40SQn=iCT65Xj251ja*C+a!$W8 z8$^3Jn6k4+WfwFbEt>eO=UR#+W+hwK0g2Li!VyqX0-+#X$q-c2(@~Q$v0g@)sIO9y zP8fEmnAea(1Fzy>^+w91!e+znxcCUIH?dfP=|Mc6GhY^bbOM4vLnI2ZH&HUM%k2J3 zpWNd9a+Y3nVR%t~$M^fs`*SBDQsDjL32DYgDP+J*y%dTMw2Uhd!b-HX|92TTkU@!) z?e?Lc!D^~QD%j^ljUS9K>C8qht1otQMaSU*U$EaS(y@;l8ZU^PFdXkO^AlvDzMB}s zHE|eNXfWa@XspxZ_q!uxX|AxaQ<(+41ck_M$YWxBUS&pR1FAYE)4S1F1-MPZGE0-F zTH{+~1{J5nYH9clTtkLw3C_lo)2B7Fpqg95v^@>vM=eq1w}j=7&Xlk8_>XADqjc0d ze=TQqEXv@g(6l7igKCEIXgCH?R+HVdMvscq1%w(Q`-io;9Pi7nsuN!LJl;~4t~1aO zL-5JcnH9^ag0E}q(!hN+=QL;-i&+Vqtkn#SO~y)=#yI(|iW5=iz4P>XtHs$RYpGlo zM;<5S`cf8&> zXXE=z;=O779zJa_wK&JGW4m$vX=?Q^;AJ?*g4bWWF@!Xc{2X)~AmvMo5rUE?%nsj! zPXvq_;am=ol0Z4Yn1<%Eqzz+Fk9J*t%tbDX8hmG~##HT^EeD9H6R^UH*3^t(kLjEE zu<{CKhH2|>9brXhl9%hNRRY)A;po2j=4GL62A_S`&8})R2befKphaLrL*x)fk>qmF zlgQI}>5tb33UBDLCeik+icyr{ZP3RQctTj*Cw_aDX@5q_9cjig&5_P7#ge#s_f&Q& zWTgp#VXsq+o;!6dWL&Bp?$L>0!58ss9BeHvl~2{MzPz!*TPKk!LW360G+W!OP(HHk zru5Cezy=T)nz~y@i0J;KNq!HA=l~7+f7xMuDgr{E=pZ$Dhz<}GLqWxX>M*;%pC7zT zY;Eh_j#2tb$e_6JYKGbXTyfTYYk7X8o^z@rf6czm@8JLsfO_j`c`=Y{^bbR+-DD8Q z;xii72BpnAFDK*ki2D>lMtIrR&*RTvz8vK(SH{aIch9Gs z*~0Ri=G(oq@kQ@>y0c#$_looh%xs$xATA@#VQ0IM6Hk+!n{~tWChjMYn{{m1OVoC~ zkH)xxA|;E8YPBFLPy;sn-O$Be>q%Q_(&J%Lm%=wgnJ&;7Pw zkNEYDZzid?%fo-b3X$FCP$ss<|7&~oyRtL1gkoa)|Jr7;v9U4!AKR?S*ejl-t)3jA zOMLx+4rzJ)zCM~OjVWLjeLsdJ;I&K-pH)%O6VkK-sfwEm+iX?B*s>G~DrP38^oP@$ z`&7S>$J2(+?}yWVYz3WdUsQZ@KfF%x4VcFOD5_bLXaAF47fk8-_brr+Ss(&7wl7Wp z3c#3ZFcPnL{wiTW_ zETwpiOul#_laP@aitZQ|lAG7}`u+D)!K?Q~V5hv}`XG5hL+cL#C>Pj{-5N#q)X+6% zB3EMYju_hJX~6hb^Qzac-qJ<>(tj==_@)26>Y*S04aD8)W#iA7aL4-Susplpd^q4- z9vmWPaeTe`{losE#}u@&4nD{p)rxXm4d8aw@4!GS-3=&Bd_%3~!>-X6zxHjC8M_-r zUz=x#G>`?p$sTz8ZT^Gpr89SV2?|iELHe`m z;h=|df#pki#Ti&0sK8S10EyUn;sdk~M(*D)07BCB0vKSYS3N_&8*q2XbeD_FO7R#c z4^{yRneUFg)G-{A8Cq7%z8*0wd?RgwYJg}2XfVFVU>y-!o+G#Pccw8WUrCeLm3#_o zIGvfnLPUylo6Qx!#=J6S9u#yA6yn?DO+2}~*sd?IQUxq6V_Ma>;_39|pmZePJYy2M z`=i{UGdF|Yag&CO6>XP7hPDm?JH{buP7WDVAl2;t@Fh~>1Wi=p^oB)P_~u_`AE z=Oc%bZKzG=3zf45c*XnR1U!MTPmGt>j1~_zgzMTp{k4wAnchQ3y<^HZIF)Qi!sVuz z8Hyf<82X77#;={L)iH5!7ot_JHsmhsXTMWgFqLIA54f37bckT)qvLrsw-&7KmaUdw zV3NG2f+F&oNYmh@!U$Tuzn$*S2-JsyjfaQ|_B>CG04hL;QrRPAxE`wyxwSP2y+$yy zI&XqC`^b3&CAs9vs+`WSbKL!G+L-e-21lC_FMUNxTBI$y-N|s zb#jMr7Vt0nIQ>(4=WEl$&7BTA!Kk7I<-iR!_OQQfWU_G*5za-VzXtlH{O>OJQYj|L z%Mko*&&?0FeqB#VLixW{7sM-q>UL+hBPp5wS!Q@85U?iz!*8m(&?39ukzaX zC-rz$yXuGZ2 zww&K^asg1nWbUEOaW&Ax5VyxxvaixU)d#!KH?6?Fm#RHzL%sugYC&A~-L=yW`ILH} z!$^i43?DfxO;_}OO|?GTYuVn{d`1DiMLle%eW*QZqTB#d?;AMik4EPA|j+y#r9tWZz`ph#bW-6&-(2Q}MXa7ZF(p7y)eBqu?m@iK|< zFjGw`W_JgMk(+WrjtP$mxiDGqu63r>f<)Nl%7@Hfryz#W@-J!>3GhY7BHL;Lf6JTmh?*%S1l@%b#BjHwNtRy& z?TnQ+%gxoQ0$#Dn;vZlkPXynBQIzPEk3xX3QhmgVROv^2B5$2+)uxB<`_|2Hs}`)815M)Pd0|h=;H8 z=J;drQ3BJ=LbGg8e02Xqx?AOld88WJI{ znBcVWuzh^}Q-TKM;)mqX*3tzH_J(LApvo{&z#go@Ll{;D1@ln>#Uw)g#`Efs*}?OG zY~6F^tj@{Ss|^}#+)4-YkJ_(2#4W4k^R}j5R(>VidFc$) z#%%s%-tA%!c6Ke{7YbmxaEO;NU}DbDnRAg!=n(@0p~W-4_zQ87`f%>eM;+xr5Das6 z$rBmc%Y%d~5vFWqYA1RK9jS`JLEcCy2sj2v1SnDZ>kVp#!|~v1!pI9e5A~6ub%l|3 znJ!`YzhRHKTYs;KI#N~3+Gz-_^9V}sc7_WW5tzI5j-zxIQwdu}9MdS&nauj&UZVldjjX9L=@~&C%f_iZ;Dc=eq*XZ z77Jc&iBn|fmj*8Yxae*@C<~PbLump6eE4c^oJ$8Uh;3y}qDoOdg-VrMH`nV>s@|bf z6_+iLDf7xw7ejoqN?FuC7pO{E>@~?#6f2>*=oKZi$zmBwS&-MhD@dVBjBL5@Q{>+F zmU*A75qc)ihNIuC5q^lg!$gMZD)Tw9uFI}x*Y5u?prlg!kks%|?z~R7ceFsY$6on- zt_>y*jC<7ho%8>wewmfnwM9emXZ~onram@%naukaMfo!N-lPbvVBJgS1(GtLZbv?v7dLQhqow@QS44vonQT=e3+$Ki88ypuw>OjA zxj4~w-*#mG)YQn3X~vp!m{Ae9|m?ZCbz zSB-3JbGY796B5!R&lz|DO`G~UQZY0kY<&o*rCT*alm&{sq=->5+?0QCjdUYQA)M-` zoS+0l0Ctj)K&5vFf|ihbwpu<;LhT$M`5rc{#1W4Zi56Cw`~A{X16GBC1cTP)^r}OR zwvXw%?4r#F3KXZu-4Dp+5~+F7s&*iaWXx0}0KctZq{_*;utaf?P-6VN#Mr=M020Z1 z7>N)mrsG-}o$u0X+2ycP{AS->O3cAF69QL!GEB%naf}G1=Aa!#r@#3Ad0y^ApMXuB}UW&^jE@*gZOyqcv$traS`fa8QK}*@Ml^i z7?trL2=sVH%K%~2909DbI5m6P(GIw-=A|Xb`i^bj`zagEhazkpsmxT7G=LM-CPhw# zd51pA#J^ENx{aFEr_w|rEOR(Vj}bed2|S5u`-P;Hq@KnFz0qR3z28a{-mjaGpDS0j?WgK^}XH~5%SJmHlxfxK`)eQjYPQx$Y$XeF*o z$?Tnjb_79>AIuOWwwxYQygdqan{>&?w(dug5RVxNqY?x?mk5>s7*X#5dVVkVV}RnA zb36-Dn+&pa4irPA+5(tYBWPqo2oV|x+4q^I!b=rw{Udh*4YHLM1TKr}?}5O#uWS?$ zil#>lc_05-z4Xc$-4(j!G}c?%Wu2ZQ(oS0;yJVw=^LP6o;OMbBE~?B9*J|z2COkjJ z2zzAv5K~LEYCz9{#c!AB1IBfm42kzlRaSwf&!&E4%L1I57PS^A0cyc{ArggZBf~6~ zdzdxYvuI;BWguoaBs>d)nbU!=AQ_Y(jTmy^FwzDOd<1o2G6Vw)U9o3y19P64N)%Hq zFnl1Qd0mtd6PH6kgFiL$h$#{G2vf{U^2ZHqTu7uja8lI2UAq3+g<(imLQXfO0K22} zfKyvW)Xfj$Pkr*9%QAn4j7;gopE$a1%B(DM^_yE2ZdmBUK016%p$#iiEGD+!^kE(k zAwBl@X1rRE0*JNF8KBc}vDfocB$v^Dp~RFV3P?by^~90eOe$P9vH2WFV7yLwBn@r_ zT*w1Tfca857OPsGC?)di^J ztT&XprN_sa+bZK8u~!@SX*hG|OyO5Mg=!Fth;JxYarGgt#}J+9WNklVn@>deXLq)pvvEKuO-9PL~C}~Tnq)$UBts?Gx_NlROvEAzEjz%oi zSOhjiaXX$U5S3+}0s{BtKr>F5-}m`GDqkWQ)DvNykz8(RTPTTnMJ}0Cm9^ltNaB13 zm61Hz@Ixd^^{r#qVP|H&nJMJpO)}=SZ$(rRee3hq>Pu4Q!2?S`BZkT-Fl2-5oNUy8 zLVki78waA8`abEY=Xx-f`~8;yfLr?x!v>uACA3%liBSHj2L$18WB2E89z*`SHwas-~8Ws<_^@x(c+&v5{qOr~riC3@3@-A^P`9xYJx8LDau zG%r0MiV-|$APX)&3di4*vbBv*B%HD}WdF#oom40)-MLRDa4NJ<)4-p32ZEyRex9$jTnVkuy$C@! z>yqg@#8YzlE<6ODa)ul@2X?(LIk^!Ts zew!Pqw@CS#gwlC;bUGy)c+idDqr}`wH{Sq`+~UnSVIS6$q1@oEz8xy%n^XSj1%~?N z2e?Fi?4x%$7Wm3_6WCfZGQ!|@u2!KTL)jpo=)Eg$xyJXY%e4;iX}3s-3rY`iA=2+> zg(RMo5AYGrtHS;4VUm!qiVV}b-pnXNHSqr}c^W$A9ejKJJFMp(<>#C``R^b<#Gv*S zbiwx+h>NgNbbx=Gn$LTXTjBGITHGM6h7inHVQJhK?Sn2#&;5>WU1!P@a#SANGS?`8 zhCH^DcptcG;jfpwN7E6rg;jJTpzfppxIS348B4cF2r7Qs5BZ{pGmU`3|CifcesjA% zI8W^04b|&h)_z$knrOhSt3Gv=bW2SXyvi`x3v)6xxo%iUy}5NcZZQ;4+H+`U5P+8p zX7;|7eLjRy1osl=&KVlLqh4R%_}s?1Cen*#02DH`;VtSj0)P@sn|q1zP&L&QYa~c| zS2A)Z_2^IfMjSHzZXcAQU13@{aFqldJ7_04G~izk3H>9TepYM^^#mGV#v_rRf_$8@@*~>Kr{K3`RRfyz`)FlXkKdrxZp%n~`b|r{u4S>rKL>Vg(_Sf~z zn?u(HhKJYX-%U%Nt zp7^CDUEGH`X`)TO6B{&m^g-Bzh4fohz*~h}8ehd#`WDH~u*+EX^_Z+#3XyQ!h{{pi+FL}g`xgcoo78m09wQk~zxfSuGK?Pp1t$Gc0- z|5j)rtW)_rGF&CAu~OOt8?q$PwfaaZP>roII5agG-9i0Fh7ODSLL;qP7rhD4N{o5Z zqq^jQi8}(x;y?fiaSF)-HLL}Ybgez+u5Fdc7A%34luP!%u2Q)g3R>USqBKXweTmta zz9tUCk#HsiM`K;Vk=#pq>+p^t<4Vxj4g545H~1S_fw8n;E(J`WC^xoG$Tyq7(7Jyw!aKw-+EM8@plDaR6(SwM(<2I^0cn%dip@clBcsh4<eaLKS{seu|7RYD%vM>oBrKyk5=OOYvVv*o^td@^%^%jY8CkaAU!xu zh>aLdUq2o&L4+7F&a&P%0WplZ)@&%K2Quj=@IazJocYWyak&J!ZM_QZ$eA|0TPiA= zLpCuR;j59vEtPO^Gujk&Si79_**;gdFW>GBS7UP#zz@P~L~{|(EN3{SN5tureTh|55&i*ZW7p9> zXSd&glWQEuOPu=*DrX#x-A7FhGHOHBT~;0{y{G{{1_a+BXTs~`W7dW^l;l5?9H&zn z8GxWt4=(7#WlW%hK^)wiN8Cn+-D^&_*#Tp(nN>4`#2n^bH@MT2k8K5d{xszeh1=oY zG~u5hUz}0)SLiC_v-|O^+tky~hXi|$BM+A|!ddcpVIv8lFdq3E{x~Y!hcCj}e>@5K zwL!o;Z{u0syX80s-=XtlK%0a!@M?U=Z_;*#`Bn)q;LR~`ZkmcMuY6xxy=lthCN0-d zoPSwRM$w&uk+=7wIFEFaaf{qVd(h!2Mk{Tf@{fp4iFjKZ1D zgX$9ya8~$Tcn?TXmT|Cc?gPh7yE@YR<~oZg{*HCqHtj`HgsV&ZfBiTi#bKkpMad#z z%`B<48VwQx{V<;a_)`&U_x)M^Y8ODvjOA&fW?3Ny^A~UWaHy16wYiHmzxO9!yZO_Y zRlJ(Nfosmr_}JwgeO{i2v*E;FIX(8^?&0f-hv$7}_%XS^Ti!}B=hQ<^1pm8G8<{Qe zm4u9hy1V6Liy`DNnaVb3llQ8mW>sq1hHBWB4W8GqT5B1~oih6RsVgT=m-Lmhdpnt8 zTI`z6E47UqTHc=b9_PoJa$&*>Tw>)s1d>d&JE$=+d^+3=+D! zKh>V#?pDwxPKyQZUah5y8|+)|tV4JKK9?WrsAH_MBBs^e7BNQWTjpQsA^`8F!@iZ3 zD3D5lyj3qnY^B4?txdZtWIZMjhUG#$yxaS;HObPZ2Qh_slfl!77-V=)G`tz4pbqjvuF1fj#Qg+hOjfU2ivjB#w!Uk6H z|>wp`t9yccALMY!H=n{8^nHf`{vukc=b=Ki>|5#PmY;p>vG5A(dBs4{f%-tV|)HD z2yU%e*h_UDp3cZx7`4o>@j6Fa#~@NmP~hIu;#XBIc9577P5 zQG{d7&0Nu$W*3@-7#yKfW5k%@K)7W1XQDZ%?)qgHtW~-yl;g1`rVM3SGA`Zk*=ufC zz$uaS>|#UT(a^JAuxZBB@wt`!+JbK6W);rp8q)bC@3QLt=C`Ekcj?6&ovMLV>Ew33 zz)+&^m~s9-f-Yc{lZQlM?XxO^LOBRg84!GET|Tcu53Lv*1*e+4(m(AZhn{5^9!UgM ztgw5||D}TIK>Mvvc;P?4qI&#c98wsVKC7n1jJq>54!4Zq@@CBOd_YCxv^PmAXU(sw zT3WD&{i^a066K@ z*39EzQU8T_gPeO51X;N+o2+8BH7S$KH<6iztgAi6iu#||KVNpfo0!An?xUj@@lCIW z{SQj8@DZo0Bei%s)|1lM9d4c5@1Wh?Sf|gUmAE#$p zm#Gyqg5LXBEV|oiBW#&2a7kR?YqBQ`f*ZQJDyf8GlKg`w3zRU6nu>Gf8z}Nz!%~Yn zXmPATs9uqJBQIisFaC=P4-{CrQUjhp-!eG_GIEU;fAQB_V9qbbT1er(yw=&cja-d4 zw-Rg?ee)~KJwUEW*SFnXqN`v@{=qM>HaxrOsTVK z6ilrcdi#Ie4CxdWX!|Ol&_9htHzE+A@i^t*Ib;Kps>D5%VpuViuui;rOvGIY08kcA zzo&9ou%0Cm!5qinsOVIA2bN$#*RE+bLtWE3Ul9iS8POJNQDup&Daw>L`0OgmL?r!) zGaf6-czn*QUcY0lJ#Q<@P{Q*JbP{(x*23KS8ZwgNeeUe*=;YV)vvgHTzP{}T+-MdQ zm>L{lvNUa?-(DUUljwurDk*|aXHIN=2M3B5Iz&4{HA$AWX`tT9+`(MpZ`*2VB;~k} z>s6Mazcl+#{D|m5=lvEu1gX7gUlu)j&_2&;d(?_kAM)rQnroAU^-isFPvrIy6<_~Ioh zZg_BVv>=%STdnKqE*K4{H9!6=kRXIZ7=z#*tM}1sutx191ZsXz6Q%FMa z;T9P0q=2?>b7QN(48%?VE%escuPo*YLPuAwvOdqH6LFTLL_y`jy0Fv?r>%scskReK zs-sXaEsub+4EDE`D{XF43E!wRx3HwiD|RW)dxQDM89-qqD*X>G4Iz+9%Suqx5XVidkjrz=(A?ZG4l^@$(kC z3;p0+_=r!$_Me-`4SC?H9eR7WUg!%%ml45RLA3=1g~&tDCJu_27oOjFB#?fh9vX`8 zy4z01=wdiH7zJ1eprN3FfHpvHKPidCrG1}PxMM5Y7W@>{-)oK8HmA4ywPiTcKvG=bi{=0nkITBGY zuc@Ct1ba%V#6L2s~T1$x#xj40C z05sumv#JV5MC5Kl;~$791I?Am3l9Oo2K3?Tc?{8olen7`$IAc3CVI=b11=&1dpJF; zG4lzfBLK^}cz$ z1Hpjt`?bRJc5~vAcPF$x-#ve#OC0t?nkGyt$2T6SO27`1$ z0l@_o6cMT@r{qp^W+M_f*o{(vRI0T zsqGR@lQFh4vYB5K{CD!!z<4mcN-JGilF9Y7U0{PPX0ykK$pEP-K_t~Zlu0oKtQ z%$ixf<+$fshH_&n@yFob(Z%=HuJ9!;Ap68|^#@l+C~- zjXUN1)PAgJp$Kz0JKE>9eKSO9P*k5rVTZWqsd~Ca7I^8uVhm_F9sR_xUC6_icXH73${Fy(~6*f%!SGU_Xab9(0 zS<|*N0$C}$MrTW#iB@yNBG3$xhN=(6V7!gWuct_Pm+&@tJ~#ZM z<_K9o5Jl@))4>^Q(!{AS<@u_EPyH|yjBFwWXv4$TJ)>&VM8hEOw8p`anFttlvq5XI z8OB2_O$}JF@)<&g0}1v`396hDRlo%$7Huh)0^sXJPqoF=fXfF<+*gKPCn|5t&ohXd z+*g0Ri72W}NnAio`B^9?;i|uV6kbFFRbSRzK-@q~KQXTEDw3-Pa({isQf1FxB=K%0 zi~3}ognPAG)y>F>*OiN@q!b0C2cZ-9solZc|2?)ddu+nr_&A&{ z1=j7&K=HOeO1C$?Ui9Nwzz6fTGIlr~VL~APNPC8f$w4H4Z`sc<$NaM$o%ldo+3L;O z^3lbYYyFNbWC9lWA1u)?t zC+-aSQ>4Ebdf?`C@(wP)QV|M8h|&T?W|!!EKZU~I7IGbg&iDtaeG6w~2j^0ttc|UK zRVvt}XZ4q$iJ*SglRg2PsUgJrcVuA*7ASE6y;~i;lr-Gb7Dzz=&8AF}l%ap=qSjHx z_A7gXm5}eV8lAfmYu$^1FnWg^$tAr5b?SNzJLaups>Z->`KA7A$H2f_g9^eXrgT?2nLa_N4RcJR83hqg6CmG;`gcl}IR0sjux zl@y~LHsVCl-NQRbe_DC6V(IY}+@}D?da}KhAkZmI1QVP2rVicyUOL&AS?9y{zf}lW< zSr8PIBCaWt`qSiNRpXLGUydHn97zx`R8D@?EzqW(c9V`cqtnZK(uv`Sv48&#eV4>E z6oXT-I1&uI7Ty3ZM{lwo*?26T39BaMfzrijQhFRva9OUBGyts{apd1|DO?b*=hmvR z`=b^njZ-+f=M#n2f$52qk~syn7%pZReJkZA@A4^>;pSt=-60!4vJZ)|cmsrO=L&q0 z5U>ri1p|tWjll$%|8>(6*ku<(U<1CIuW-oQYMgqrhQE$<~J@a z8HJ>Xp(>kny_s0XxzYI;#5v#Z(|-p$;pe?e#tQ1#4@A562hIb*dja9h6C4IY5h=1` zRw+{LmlD3X0WU(pP`6gy^*4Lb5%DWifhXb%-L77CJUG-YfRl|)pm^bt ztc)HCK#a4?RF6Le-eh7GUVRkdjAKFLTqY-7V(6a@Htc@$r|SnaOT44>2yfLQhysE2 zNGtO-BO-fbM($WZ#SQ~Ql%bGP0^Kdhly!^VxHzcuDF3AOd^h?ASdKN&f>F-K&{*6j z>Mt=0{V+nIF){)bTKoZJ{H>`d0)^zQN>bSkih^HSC4)!8$}aqzEFlqamU%31BaZLeG%K z`xH=hCddR*e)t>I=i&bBGnnpI2mbd3y0g{`I)QSXaaSL%VP5oEK>w!)kNWnWboa91 zwyx%8WM0*oIv64rd-LME%^nu3>yy~3Hg=-wlc?&(8_!<8sc(O|qYvih_83K#|Mh6( zRR8^~l8gmqCqrV~k>5@fixe2iSd}s2_hfah4kj>JfxsMV^x^Y|=IBVs0BPiJC`saQ z|M8WC8xkmpzo#Vn9(_zPoX`rH;?-5Ox^sp|V-r0?WTOy)ch-|C@%24d5%#Mdc{w_i zLqk?vhF4HYL1h){Q0x}Cc`^s7QL$vkwnIv&h)n7iM>qViVvwO>p^9Y1HjK3oQu2^? zN%Wl97u2D$IDG8GKL!%U8Ts=9Mo)%v(BUxgq*3i(({&XAS(Hyd>7*4QC}@H0C>La- zkIcT17eqSzM+|V2Q2DqQDhme2Oxnxkk}OCXzgOu3Rif3BM$Ln05?H}QrAP{0mDo1W{wnAvZ%^YA0g?dr@GU`!@;#rT=UBT^YM@UFJQjW~$<4?ZBC%@Ooi%*|^L%wm|T!Xv?-x}^`2*c>kjBy@9 zm`Lx>8o5e<5GnK^<`j=aOzb3|z~?oxRhBs3H7*DoDs^{Hzu~O%<`bhz8Rkrw?>m7R z2fc^)PbbB!1KYmy49^hcY@d=`#IEEv|IoRC;^a5w%<3)5Cg%v`+!fC0gJC3&xt!C} zd90EADM#S>QvUnlBwN%#V4ri5#^&%wr0qXfWW+LDZ?cK7W$KFnWVf|suKIOC#LPk= zO7p71cJ4%GcfNIv!00q*#_=n4GSlNbjbKoshDhIrcqmpv3=o18ewenQ0c z5D`@-ErC$czZIpJQ{@DI2whYH({}I&u%AH`Hh)YaZSGZR{lW9X6evj(d;}KIZds=; zcSBRP^Y671G|Ua!w6KiokZN$YO{-#y0KFh(DyZ7i6x}KD17cC}%eI7dE6-GGmCez6 z8vC*paW4&yQ3M7C!RD-X*GEE5*w)=bZ>tmCGV3;}*eURxze=i#1zDdbU9`6!(M6mr zx7qx)tsgzGsQ!ulxCCU_VJoBtXsp;edwnBWwB`0OLw!8`WasvwG^T3P@ptkqEV~+6{M$w@ZM;v1>5tuA-R}7K(Ib5vJflZP3jA+3 z6YFx1%EyaJ7cV*HFh>QO{05AyjK1yP#K0nU zPG-YhnN9G#p{iJ~1)vx;>}S{-p{QlC^xuCU`{oUZT>oq5i^HAsBE}XD2H403?l+0> zY>f=lO-U<~MM=7@=>rRyn!n5XdYYO_6XHDen~7Hpno z#g1*9JXX(y^X57NGor2_``ir@5y)IP3=WvMfS9cX;XxEM3mTAI)ztOdYKs5vcM^oB zN~bs(cFQ=sO%3BpO!|~wh#-P>Ez&)|Gcr_QZMqg#Dk)m6Oz^B_;NaP6qqW+3gzC98 z75w+mzI%71YmK+7fQP<6sE&L=B2%s`*R8^&qmJ#tn+O2J^UZKwAcH!p|dbnc!!({?-*t?xVh#_%)gXT90VW2?WFUM?KFOh*PYTD%F zGbtVvAmG_2Ko|}n06{S(y@-RyoX>0}5StIIY?~qi1cpu2tmt`!&>Se&6f8|&QneZ% zEIX*;GhvBqI5}*=2U8Ob;l@@c0k2`GwUUew(O@Vdzy^Ap;@BP!=92G+Emg&uFSbmD z85X=bU}@1rrt5CAyyj+6+Zf}w&}zD(U@f$<*@&xUui*?79c-jSUv?P$%rr z?K^(<$e}kLqg9G`ACb(_D<8Y`k-fYT;>F|pX`Z-o?~P3QzU;Fv_Fd0X@FtY;?+bb+ zEm6fct9#6Lz#Ltl9668V=)ycQoCI_snql*s#`^-*Nxi!t+g&{5NxZwK#_#g;Xw5YV$D=)oLw^*3{<|KV z57N^qk8EgDzC;y=_F`@N4KFf{1dc+-_`fX7|33Jdv}fo~iIriWs9jOlpiv(ZsssO` zRv#1S&J^(jPxUALH;nrV(Wz;>umnf9Z{XF5C5ky-sOic{Zgpbkmihd$F2i5N)jhL^ z>&`&e?o#z5T%<=}=$foMj$%`IDQBropaPr%DThg{iU`+|DB6YZuI>dCs431xg51|& zC$R5u2A%@fk-LQp<-pP8$StDux8r=Sl;+~D|5gd&W&lDKcBpeZA=H{)fu(plt2zzS ztVX#VY101MER(;$HCnG;F0DUHNUytAIY6dTRnOMeIjb%QQ{!uo>y=WkJ~yP=O#85= zC+h;W4A`H@&z?cbFhj z38v>6$nW*rUQq^9b%c&WMn9c;^PdDgUGC20W?gLQ<9O?TGrWlOe7`o7ZCToNp7<== zhVMT#k$sJ~bkfe9LYgR+L8!fc9B&?n?Sp)sKH>jReLp&VIqc&O9`xn; z-22NtA0qu+(*>daw7faAyn?f)%NSLr#}J_i_@Oy;(9l+x+=*i~l6AdwrHxtvxsxV?1rjl!6VA;6g8g zv9n2D$-LKFgr6~H9=z3v7hcfff~qy#V#q6vKRcDV1P%nBqKFi{O)C?;vp6Y%l&c+v z5a=J197%YvkAs(zNGGd#*15)^A|}5bjgEM0o@5nkaJeFrT`mq-oz`GaydCdcj;%BX zf2bG~sN9)Q`I&?&8y5k?cmzX|C^xnFsxql`LEs8g1C2(7Jix$~!Nxv}aA7XB9OmHC zl9VJoWl+8mP)~UI5w78^)+Qg@VW)<6Wj^0P-4RsIU2L&{0$NI9jPU~a7IJxK5)>{O z4O2ZVyhMC?f67JHyRj%q)}T`Y3T+vF6> z%Zpc$e>ahl0l?{I=_+mk0%6klJn!}Skw`h#6YSu`_T7;soJA+_Ch1Bo<(0FJ0~u}4`xTsT@hrBaHdcIy;txaF5g>UYb3E{@de4v2+_7RHMSM9i(HI(ALEui^R%I`jI1Y6WFI6Ctd?p zcJ%#>#k4t6NhK}+`u0GH>p$u6j|6l^OtbfR)-k_&o6o3;?Qp8u;{$z5jPff){h1;?*-`mIOK5%8k)#qhmw#5EmF*p4M zDfE_yh-c&fbkhbtQ`}ftTXwX8BtR~(g{6@E&}=okQ)Jz;vhMcN@#F+fAKAerdAiBe z2xMXn)JA9v#-g^25Ydw0g9MgT zaje!ZeI(h620z)(`SZx&DOua{E?{uMU_Pl^&*`?75ay=V+K7~K0PD;3=M1LK{A=%A z1gR2P=EDw{atfZ(B>gD}uE0`atDBQeh70O4kUT`86)q>O6k6}A8Y3BWzu^PZ%A{q| z8sB@+)K*+u{|EI$yt5V9O&Blq`X~q&z;j^CCZA9u%v!oj7|rp__!&mtqb>)>=I&Rx z3769PM#VS=aPC$@v#9>@g}aM0!Sz=ms#+H>75jvOn@z zeonh18x~%z^#L)*{1Dd4+a{!?qZpXI7+ML_A5)b z`T-lj|FnPLO%Yk&O#j<3{8I|_Wx1QM4r*Iw?vJ-d3A4m#Cl>u_^q1sOYsg#nt- zLL^U}ala=ZR|>u$(!DB~mUAdp--#n5z+=Rd6DvKrm6FX4E&1e;xq^C{U=zd4z~rvd zzBKXn&8E4zqYB~PNx}jq-GAx&O0f-j3#~qDTzy}$tw>@+edSuf)~=;ol>kcHPQ&E*|UWgcm%+Mh9(ox0yK(pFgFYh{t~RHfo8r!3gwJ~R58K)Q&$}E z(2>Hb=BBJ;LT-*I6gd0K^2K7+#bMnY^@KluB3KdxPL{Lg&ORqYFW-ty4Mc%&COeVh zON?akYO)<)28mVgQ&_mVJ_W@$#z4J`Jhc6)2Iqz!z(2XG!Gdlv#gu>O=@6vWjleD_ z)wNvc0&6NP9AF=ZmBRljat^lDR0cIV4XVT~0xGg1)s-(vCL1R}ASFy-n~VIETTu=* z1*ZzBcZ_R;{Q_~L*j15V2An9Us?OFm3RTjxSC%(58P^fxMU65<)?sVQtsM350o%_< zobA~1s(ign_vAbzrnm~1EzyRXn8p0)@;E;TT-T(m@M{p)ag&s(MRhqdiYPQ_EAG!f zXc!5_V>GibgcQ@HyK9*OQ7c$-uxS@*7$s-q?7n^~sBxk!L`)7sZve#Tfk3YAWtNS( zcTfLi^-ugx*y2d}=gP)2=voF}v%Iu?iYBWYfZhOCGXlVDW08b`zmxDfH@fCsZV+~! zUNvxQ2>sYdJC~@fP(OD-6sZ=S23dW(ch|cZPW6J#$k)B7-!5x_>J)_Q8H@k&ceow7 zIGpI}zIpgRCV%Aqe5W>o^pBg(sa&^P)aW03ZeBv$veWkKJ>rGdTH;ctE09rr4K6~q zFutg%6{X=1Ib#Yc6YBNREHJoLR1sPV1gnnn=KyRn6N(g#elUo4*cmNWf`L#5vq6CF z2v=a79m!GIEBgN8$MTY13uB&*!f-yk!pQq#+dCg*k#&3~20z&)Y<|1N;kTH8xH!ma z(JI15xG3Hoxq$I~)gpM&j4_$vDtACbp)ZAo*AU`|sjcl!k#s2EV^%`W-M=Z&>xQ+e;M6C>TT%sMLXj;F!Eti+Vwnks%7_{EYyectRsy!* zejrT+CRmVR4#<5T^sqrIVOB0JNdeXYMj!E#p^sE>=&d*XAq$if^FPyVReRSL0r$WN zJ&K_x>-#~g1EFn`pQaIGfYL(0FiWC9TsT%?l=NR}0dcnzHTiQo>9fJSiO9{zdJ2wX zI|kK^?77rFrxewq6rI|z)YLOkyEZ-m)M(O?^Ulq|?}yO)-#k%GExdls`8)W$8_niQ zMEi2L*E)IW8qTGIq$ye&^VSqU#iU7g|NgMm5wbkI{;x5H4!Aal`F*Ihel`A}zpmVgFV6YZ&I74Tgm8Blqbxga*8 zMwa+Rasyyu{HB4yN7BJiP2g<)%}|>}m}>0*YU>A_EiP6;ymCUEh}uDHaR5@&-)a-< z)pawhgPc=GHsfNfxjis+tQACTR=}gSR<0wbPCHNL)^6+Kr*8UwmJ59F%%iy@=8^Ed zc4ZuS0^v>M_EK$IZ_&Nmm|>D#@7`RNztv6FsK)mVl@`{FZ8}x*aE^+0ZJqV9|J!nyL zXvU$hiS=ArJV#A@8ub{DC^&LpP`-~s2P%CE%&eQIKDaA@o_QjrlmBRArGvNO8>5rQ zq5_9T+?_n0rYN`9a`Oaa)zu4F>Er=$#BN%l1tn5hGB&LV<3(VdjeDDOi1q-`~l4teKHK4{?)1k{Xr>utTu*y^o%4GitWn687z>np^M|1}8=do&DX@ zU*E-*NRdSFlvHk&m0gR}uawkjrjjJH1teH{V(R?UPj%Avf_bI`u|poAE9*f!lchgL*o$=@bLQ)o zitKn|ps>#GW_hNhUUdDN(F_v2#69z;@MJ2k01&dteuz7iNGxTQI@VeFvyDj8H6sPq z*U^pVpbxPXl?XknCua%X2-A@Ryp=Ew`m2If~Lw%xlig`aG_2kxSR_(y38?y}V``!GXX1;qtxL|M?XCIl%6R=q9ncKk$X@ z*1aECO8uI6my#tA?Gtu}44jwWD!>%Ga{)lt!x>Ci6?NzGX|nMEJ066j!lPA$+upw; zJ%bCkPwCYN9zwqZ3>|R9<+C{>@uCx8E!sZ5BRvHXU=4?Vb6nd8-r1gk+hsZDVtyj$ z@PV{-edE};xYre2F+@)Kuoh|`OBb-T#JjvVtfM{oe?d}w=IJd+54$~anvQMh;J$=j zUnU818o3%A6}jvG-YYJB#j|@r8LZ|mo?cXp#{~4Xlly68AFriDW}H!4yu6q(syRau z(?IXGqA~Zk?B>zvG4`Fg93DQDu-{D1x=eV@gY0^Ylfh#d$odf>tfQubDtuBz+%O#| zYk4>UPEVGz@Td?GK4=qY+GzM63ed>LfPW2;gnEW{!sMKUz!E94>}KF*Ikaa*H0_Ra zwE;nItNZM6PC{S`issif1{ODp>mBOsxn|E>$R4{#@$GY_F?1ik$WZw_{~j7~a7)r} z1o2JnnQ6Na1r~#HtLAueJQ4CJoQ51WLGzLSn4mxv5&o`;=UQu1U(U?%)Jjb_0q1q0 zZw^g$QGG75;A6z-*P)wiNAWs~LNXy2-H9j=j+hEcw&HFRNPHJ2uxIbEIIAuApU#L1 z+ewmHc(^}j=%~=9kxEmhJI18~8dYWsfIcO?sofa4qy65`zK1|(mgZ7{q zC$|tPF=B4UAV{X_xCFI>lO!`#04PG#&FWRH>WC2O$F+z7?es-+7{41%?wk*E(EP>< zfWbk3>V1h-TmKRSdT{BXQRqS?`AAiF(^Am`r#wbYstutP2_UnaxfP)3d zm^Qb?Kek$-K8MJ|UT_MO?R7u;jtO&NNZfAX5G0p>Z`cgOL=`nEf0iFhnt;*>Eaul4 zVblgArr`~iMGVHrj*V|??CQze8^3J&sj*D=y`CTo+?^%aU-ANoP>5T^D59uVXxC0Q zF%htDV?wcpD3L?{YT-^&JlHW4CUQ8|D1q=fUK+eaiQr~_%lnc(;O&*(!4Gn~_$eIz z?`+n^5c*q}mAU_ARa*IfALrzyc zDH=Re2Q&by1A2fzga9ofRh*qMaz0F&KmN_Z(?(xg|A)*rRigPtTJBk1h4$=H%}r(} zshv-$9j|hm%DVZ*3bU&;>TgqXE?Bv(KlXQm`Gr~=t1ESy-?PlN6^TGNpCXk$LAiDD zry8$rQU!{U61TLxyh2m%jj(@t?o9`u``LNG=dhO-@hc?HO<6XcgZRd=3j)itFYZOJ zlB_r*gl|(;?T6!PaVfTwhYCm@ng&m0De)}I02tdI7%b(fhW)?AktaishdJIRWL7*a zC&{jdxh9K#`{M%C&e(9Uth?P&VR?cX--o&F7oV@>9Z29<8 z!r~IAV0a&F0(m?vyy*zh*uNuiJWu;+v+UE8wygJZg6Hd}rFG~a#Ht&-Z z+|%Oz^oCa*s@XlIZh_#TWac9p*Xzgq>A8ZW~(H?B)AJfyd|FV36V%fVj zsFQ(q3-8eik51(BS*xSEd?mN zo2CUxfv?3Bc}_1>-m$_47TH(gaE7=#I}?wl#TO)F#+72^h+{CZB->?20WuEhH zhT9X;%^V@|xhlkc88KZ=C3K>(y1S<0Kj?w`(rY(xfk_WM--(N;tmjV5DNNO~h_9t)O%iUPJv9 zn-T$J0b8DEoMr33#qL0iA1F0&ky(r5glIU2LFQph0z;;)y-yKTFs~WYva>azzrC2? ztuMu%AH>2il<}80BpK9LPf?DjZ>ES%UDl`!DEUPG9N#|~2V^+0UUG#3=;)3o^JK{z z%2{`6$(=e2A@I|NWQDIKBz?Q8l^G_9ieT8cfC+0f(5Z0T$h2y`076N(n04JpD$M>ZeFNE0}>DjYkg_9snz)_yMylLBmPk=w_k?Gy6+RXc-FNO8dtd6d&1ey;B{U z6G{5Ds`p^dPGg{T3@6mcq2vVRF2}z-pOL`EBLV26l8#JF2X~%;5vCx^_^IxG&@+$p= z*qaa|q67= zgTh@sp3O@w&H0@QM`A)-a~k8uG5F@NlQ^M9&`6KfGqhW^1vj+!qxSBM6n%@+pq>1Z>%&7g-c2e71hvv@fZ9g@SJu z-ji#C3HR8_)H2Cd1Bf0Pq|yNpnZ4`{Mpl-LD35;8ltiTn8V4GsFb@D&|1_Jb$6of= zosw|5!EDu_iIYr#k#QYaLH}$WS-HIyI~j5Mw#mrBBR^`SWJaKY!$5=&zC*K-oPE+F zW%ckOacJP`ym)NrU{p43xP0Tk$!QYCbm+*gFG9n1@ijnazQr1=0!b8#f`@dg+tm*!=&V ztoJ@3(9`F*RA5SV9p9AnVj9cEy}7vGEW*DJD~4Wpg&`5<%}okt|GqepXQqoQYe_37 zylnB$xO1IXA{lIfW>No%XFcfapC2msD}XU{6`6lIRBcJ&)=hZe+VJ=h!wP08n}qO{Dth@o1(C^?2TrPJGRcn`R|xBJn0@gr6MSmXyc%r*=t z`bdE2>T+Czdfk71+v!@x?-|^t@B=88KC9d$hPMqO6n8<|wM2tkWN}JROodS^rXmw1 zB*!`-vqyzd_Hu^Tg0?xjGR~1;RyMQ@+};9me5>8ac>4l+_^jGUITM(`94il0#r;#h zs1DOC79O;zwdxsw;4+RGPB?@%)_4r>{*TK3*gP+#5AsF9_As#}s9v$Jzd^%0{SByW zyW<0gk?MqY6mSt^uFaa&iTc#C_blI-du5223hTRI04EtzR5LPZhP1@Wi_(3^2$L4+ zqB?s~AT7_LpKN`F=5l=GucgPG;MgLUKi~P1F4fa-(eMf^Vg(tQif&RlDkB*Ut&<_` zbi%d@n%MC0Y2^+hBLz$@p=XojC6L&;8z*Mhf{>R#h!3WIRDNsCN9|@{Ijs zaDVL~dR>=~8~eqzu?YRjNJH!Smdo|isuGAbPpzfQt$>bw-e9#Dt2`M7H_@ksF&W`Nd1X%oq#zV zX0vG2A>;a9Rjo%%MM+8`#X{fJzz4$fJ6#6!0#B=hRpj*@;DN4;Oy#f*GiQrz+;rAE zoJO9$?uIMpc4Nm{LrJx%2B1`AfRSupdo7?N#Ux!RJr))>%U%786uc2V(PFpnf-iJ3 zOtZ^!Aad_?=OL9TA5vFu<*1&Xi$=jN@T^yy87LbC`P8d=_g3&1poe@?oBO?!p9q=m z4xDxAYxnKZ+^V$VJv(KE**SAZCo{SWTtqiBZo<)l02n$9w~?Bfw!Wpn$c+oUf&P9N z%d?X1eZk{VCFn4Jk+j!}baSdbTeHv!f-eESK(%waE)Eb_ zG$5CyFRCqK)^VBvmxjeb&fPRjnTt!#wM~VDN>kbeir+P%dCu!X=Eal6uPD-E5!oJ2 zq~Q!O03o`isFDMixM)9GE+5-u{(MO6@XS7GM%_xo;6?W?q ztxY@i72)&*a~e8=CmoIC)+Te6fE?Ovi$H)vVQE%NDQZ>r%H?$zs@|ZEx*H-hK z>9jB>9H+qii<+TK!1t{HEz6$tkURl(SkWAYbJPfkd_1h8-Ke0S7=lhuvr4r+WikJ% zdrCj-#ZbB0?IhFHJjhcD$0H0+VnX;dfeZ=&2aV^M;=>xcv(G%ue;>Zhm(*cWVkei! zP>TngPm#>bUD2A$%8C@m@N@%Wq;49TF3F!W+h|81MqvPjBN9au-j|~&pjrF7;RtNJ zBAYI|m)o$+DAtE!uR+&1%#%vl*nU~6%|YQ>&Fo10UdKSNDKl%}s^|+N-w4YgZDg7SErxRP=Ih+MTCHVy~zz7u8I+pr(d#UB* zfuU}t1~|%C$XHgArjE&24MzdHADUGNlg|MV%p|)x7vm@yxff?vFE(Ai!5j*S&ts1B zt+1q3R#sf^0YSCLrWzX$7r?r?5M%9#c?= ziLjSCmg(YjW)aLnrcwnsa2PiQUEJlt*a+evD;-MF6KwnpHjga-5*^;7X?N@1Ndq`* ztS%1THx1WGf6qR+BYiWs$>wSZxUL-?&E0&IPZJt_Ku;+fNFf;ub|Uqo?80o%3%{iiP_Ez&gg~HW+`C#JT}(U^y^mTy1|8c$9tbPY_Zp8YKb&$ZPuWSkN<)8> zEHtE;_KZtfv4v%usVX$dc`*ZesO7(S55|2wA50~;FKYLo<_Y-n)x#l_u?xXZyEi@A zKD6yIyKX;0pS{w2N^h8zP=05f#D6pO(ko}!pB*07q5X=wAt=Wh2zi;ew0B-OZ1^_g zxpIw$T_l=YFJVExXbXRyBhB`0ZVUxi>*ZIuELZ1eEkCNXIO!`!A`bMKBh|>o{C}N`CdM8+b^cUcXK_kW5JGZG6IOBIq zeR<$`NcgZez{@Z`S_<;MO+)jYqM-s z=n)+W71}rf0)(i^dW7>BTjZ!hC#SoGqhkh(S|dzUk&KD1a_R;ir{H9HtGL}P$6AUe z1&OSyuC9kgy_)8Z)fnHZSfWVQ(` z6&HC3=0Lk1n?awCLM+`+qZL9~`|XZ~=o>O$9YMnYPD*VwJ8`oETnu$3J|kzY^=nUb z$ik;B1WVv55%<@u=2oQo!X~sHi&%~^cJ;fOf?Mc|Tmg>MbQyu-N-yFS4dDctHfEs6x}zfdMuG)( zivyaF&!btW5QV?K-mjwb#6Ku}8g%XyxI5g`M$ciH{?d2z)#ZuOID|kg$lb#f%T&uc z&|>YswhZQA#vXrh0U*j$1HY&@;SoS4Dsx2r-<4S$k`gGY(AEVhUSZ-IOXR@e52_QLS8# z3*p>}B7Y^+Ocxlr)^{-lsuBe&rt$g)s?y3fr>fj(W7_;!;;Qd%)%5jv>7un-a=NbV zef@!(^2V(^WB)cWpKI!(=${z*@H{aA{AP1)S*Ru?Vg_`KkDV-SN{`n~4gaw4FEVPY zMsq?je5TBTqp9$T2}P>kk?w*;_AWJrP5y??@Aws<7ZXtGPe@Z4#+wyy)K0+8&BYR8 z4Ae(%s@z%ruR~3&Otc@9h1yOr(*?C2R+vX6^8uXBJv8Z3Y9juEErD8X$%Ywas+$;plFx~w(ZN7#`R05d^& zB-2#K00iii0vM(kwx!pz4)vu_36ZnPA92QW2_pRMfnwr{K`nndL-COYgP7D*Py18!oGsmbM~xk*8B@X>|KIGro$SDZ-Vp@Qbj3hcR_h|U<{PIc z7j->I6Fq6up&&2|eC>1Q`%qu|4UIycNsoAz81bX{4a`fp$#*$N!KYy+Kby8JKieaD z63o)TRGtQt!kB7nUgoQT?>9&OF8Bn@`fe@ zu^oziyw~9Au_ZS$&|bSMjc+(Ly1(OwnV+i4DqQhCkoTXnutV;)=%>=YQSM{|C?1s@ z_1+|Z@kxj(;sY2ozd&+#{7&cx8-vw&pMI^7=XMt(CLX4tmU}?mRO~JAKBD2?dM@Ym zSufEw?kN*SPmM*z?^NVdMh#2jSWb8(g0L+2+*Sn9b=7MBA^(NR@zouVhu0#@A2LSI z3O|3hRFpM0r-)R58fMc&QMQnGTT>*jM(&(_p-R#}nNzo`E7W|rLC>Gj9H^k@?{~kg zCF%?MR=G=V+#z5^(4QF5;j?Z$6?!}=>3qC*#h_zeyq{gy1r=CIiA5bO=0;;OaY`9~;N4^^ zpiv)XWnUzdnM6nztpx@aRVqNAY>E@Tej)1bc1=Dqq=~1IIEK`_Fhk%M#etxkqK+f% z@H70eQNkL!V9h_y!)+u0bAbSsgu0{K!axrnAQtrflxkJCOgWn#M%s_mg)-hD(s^_1 zng-sPyFH+x;o#1T4^3>OManw|a?I$c#@vP$$u~Iqf$+&Qaf4UZWtXr`IRR4T4Ua`k z05hOYv*irRN(sfXH4U} zo@bR0!_5RSBbJK?2G!Lrr!({$&fJfC`o`{Kc6w1ES$lmRs+fEf1um9 zv6td#9HLXDX_w@^i}yf~ZV+J}9tBYi7pe_HG4YF?7b8V(scrC8X}DJ~OUiSsxAgt; z*sIAnsKhGR#(;E82fLIA!2?^S=dtBJ-$6Z1&7T%x180~{a4qBOCO^}f-T%O*Uo^FV z5>{4T!M~h8Y|8Z)s`q#;qq{p!mPzg=T79cr+?QjB>1Zkrav(a%!m;F}bTM5_Tex<_x^Up3xe zI;+i2u9DX2ghphtSx0O>rNAxx7_fj)IHqjjNt%?!EewkF zgJolET3=h%0+WVZ+#bO^P6dwwRQ0>aR_q_Zi8Dxf6)KZbZ_gMj;J@bZQiIs!7V~#a zFpZ|y`RqI^K*}f{1|lZ&v_rE1V^rx*2ZHe-_>L@_QMHeV?LfybHmf;4W|Ghd<}7Ei zugRrB!lEqG= z&zIki@Z3%1K^Rji0hWGEl=_9aR|#e(ldzWo5wr^a*rT3THb8`Hixbv_qf(d0~wN!dpWh8Pgz&vd}(f0e3zE1oFg-f=LP_ zGthj3We-kGa%XB!!$Tt_20DVv(`J29AQ#dl2}8k z<^Mr)msGhc$fuZy-j>3ezuCl^kfCFU8`?(`m$V`q>E{Ic{lvdYOidROMOuu z7hiictWT~F?@98jr#38K#20Rt>dhk4^gO<=?22}?9iEuW7>vy-PH)8L6`ivt=24cb z0E2(Uq1T=m9$Ai|t%UfNyTkG}quqI`^=^{r@ejyie@vy=pw*&(`NAAB$2YO!1ZOlL zbZK|_+Ts1co;bMskZ;L9h`W8iPCwnJKDfK{>U`JXaQddc-hEYn$#=cx1n=@KuuRq7 z6q&Yz`1|-l1MG76PS6a!9WCM8fxl^UeB`{Gd_LfB_YQXNw{6-Q+ABfXW4Qng9W+^~61WIlJ%q|gBT|EqueLv-H2H$5`%xnhp$y+no zHb;e>Ix$f^QJ}|oSZAOi2Ia&2BYG>a!L@qxPFcLE|DidK2CxF0Li^`~@xJAk%0B4y zvwrV#vpHnW_n6V=XUntugNIk*+}kr!wA2d9E2YVPsQ6p^J(7QGKc2~N?Z-PZoC^JE zMJXqFlJ7Bn%7RwuDY{1~_db;dp;{;W@eDX8=snUWQYaA00;M_;J*8B5k`I8|9ftW% zrYw#DLWQ_3QfJFS?l`|CA_rF1%f8%GfBjUtGNwXGk)}k^F)*hc3h(f-QH&cfzQe)T z)+4SP{^mK;Ms&>*1**z_Y{@>RD%a9Wd+$sDkIjauyn^5y$4}IiX%8<~;Dim><;SjQ zFNGDznTvX6G+Z~HzYxiWh3wU0%>(~EYHGp%!W3?o-^BC!oLq)HcQX6o3jt@XM0X^H zMTZ5aO;@JwaINk(iLcbu!W;j6hASIhBM}N+OJx}ux0!fC%G#6=RPp%FcGB^y90c1> zsF?)B{RnfQi7Y?p3vb96*I$X2Z_^WtW}?5;yavM%)^`2j8P~<2nXWTq?AI@uc1%@M zG+=D-F~HvqJ_3g0mA{WB7gj-Y zk(PjwMOdl8B*s|-!67%w*^;ZFFKi*?aSV(jHaX>2)_QC zr6(J={YaIVv&b7~o2crGw|)2#+cPSG8et8F$h~CZ;*<5ge?Rr#ow6LlM~7ZhlJ_j_B-z*RALLWnUuJ>)M-@b}wiPZ2rdGdC}YZ z+Itx9iTldi5xwgJGjzD0g#`K?_?rV3q8Pm}l{#q1mVLvFm$54GHP{ z6Qzzew9rD;Q}_pO+Zk zU7dvmjwxrep(uw)GN=Q~jUC_3VjUlv5xSsXYAF5O|EOHdFUl`D$oE{vqFMVTYp_vm z7~}?ajb&%W&UuRm%kAf$G9~=SFPsNKMGo0!scs%V1E%}W5@g~KFa4FpT8oi2Qt*rU znnlw*FILOG(MLt1rN0WR_0K3b^TA?T{rX~1B5Oe3a%#Qeb~blLoQfM?HC&P$g#D0{Oo-9r84|3>5&;^DS-D&1xe}Lb!C#V0*i)x zHB7H=MnRo=x#nOdHn&-9<>e?viuqf3EzXx+3M2e5#__eRubB%ImrRv~_-t)NKgEQ4 zKvc|}a%*DFD)bKV5wIEB%v4?YcRb8Z-E3i2%uN?r^gCM@%uTfxQDOkMcP|s`6gAPp zbNKjrAB#>YC7+yVA7ir-YnB$QA{!<)f*!JMzcFH$A1F-hQ#m$Gyp>KCo8F+V3O(T?9#T1XK5|8_g=QItkC@d*^bx6KcwQZzmqWq3npRi(i zRb1@T>8`&ZYGh%~*4G!3gH1uPKE~i&I-hlhZ8~_p$2dGR#zFqwY?SVe;0O(OELcw5 zQ2b(rhmh+WFNh+&2m?ZF3SBlf+R3sB$dNFZYz^aw@40*u3VEsVl*ZC-$QlHTz@Tc9 zQY$Wm+Kd#b@ir4HSd<}`;SAGXGSfQCNo^p?*ptYB=bRo5%_YX-##T|ZS6%@?;Q%qD znl0r3(Z6VGG6DMTzg)}7*1?!kY$qew`oTjWWuZV<<;L9V4T9LD4wxCUNxnwlRtGxZ zTh9LbHy>O}qO*W~M3P3osV}Rrp?*AFc=YhNAJZT*QIn#c4bbN6)b=Vjk84_=HIJV< zims0sObaNB8_v4)_IAmmC)~oq! zE(o3cI(`YbCH?q~=URD>ov108$4E!9G7^^%A`jz0@XU*Ok|XP_G;qJj}x;>Ji^JY(tOEZp>3@gQ3{rncnrdT zmpTm59o2bwi3JuyCMJuU)41ZxED0b*HC@%zlsO-dwm>6n{HZ5veV;yV7$?+64v7;|3A?-uNq#4Ao}LUght z@W9kgmQaqo?09Xo`6Rq?l&c1d!fKzCM`1OGlRvwd{CI>D{1Y4=qEqY;7c*ENWWu3j zKtL0&OAP4|O^=VKlyOIB_|@}45em5ijDQIH)C&D4VfwkcsydwJU)u9y4~Pz=InMEl z{Qs3;yl9sNAtGNHuqABw1&M3A2Mxt>QA4}Cbj*^wS>nu-Rt_UNpmv-Cwadeq2KS)A z&=MW~W78ajqwUx=4A~h@H-mETDY@hc1ZsfpdPr^3|>NB3?=i9PHv+gcQlo! zK&pzXDt$W>H!{{tfGrNWKPWp>Y90O(Sg=pb(`*E^PWjqF@$nXXo78f2SW63H1^K;$ zBm$d?z~^nO+zF8ed6Xt?!%vxEFT}K8JcJu;O#kZi$188+bN$RcUHQ(W8+Y{9wO_t9 z8Z$Hx+PjD{lqG(y%5Kkw(F>mOY`!|^I?59KM*1yRe$AIw&q#Z0PhnO3QrVb)f6 zEkL*o8cPg?Uw4YH;SSA+&wh9Q5?zIXW=s4nQpW_Pm$9!&px9o#!|2cZF^-fsy`z8! zfrE{n>Dpg?Q<`HI$il$A3@qbjTyo&EH95$s_z4l1oSOa<$8O>%HO|TG2+<{l(M$%J zkz!7(hKpZON#7tDj|O7aUJsfCRTi#}nr$VKq!^FSBx$VU41MlK^Er*$-S)vEZt!BC zshxK8Yb|&TR5SwFt>>c9qdXW>-f{R$;%-F9Iqe>n;*Vvjp10nH;JxrB*UBs7YTSWo zQdp>um3%*)dk9u-c~zg@ii~;YD+=Ub!S=E$=TrLgr{eiJ+BSTOPg92{&+*h<%=d=y zECsY5nfm#V5H7+SPui7-*!qpV7^Xi$BOnO3JO?V+xN|~N&ac4S#&ZPVj?3@oejQz~X72uNt*BVzLBL19{^dDgFw40L*_NOqcKE0sk4;&Hql zRzKHbdyF*xDBz}O1uOj?wip_(TZoQhn^b4mdoJ?FSCkmNM(&lR8!qki`mslFPxu9t zltVq9G3XHA{4VxTM>Wv?1`eY1--f^yW9~_p{LntMD|WYB%^!}=QhW}Gb;w(^XXGuL z-DxMqv&0viRao925bL^W(!X8jr6@uyJYj6;=E4lyKdh!2RhN~o^06`Bh}irK@sR3wk<+7i^`PW2SJb` z{!ZN%i~Dr|+dXsFrY&1A{WP0{iOM1nz()2qEQ7-D*r=@g8IqVB3eIked7b`PO0WRg zm!*i_npE6u+Ni)f4^#onowEN;zL8I_D(rNRzUqv@i<5-dF}KD(BNvPsYEz?`2JBf1 z(#gDQ-z=9rxDnjIKbexj&FhS*Jl1?L&(7_Pp{xA+sO*NF^D&i(gV(xQp0zLNOBK$$ zaslKc>u_hBW1pDs2*azSL@^V$Yts~--Q(J-=mo4q$hir`TPIKo4we7797RvAc%O2J z$>6xLM%0q^P`aVO3Gu?r>U8uew0ja*DmqjYl_kB2@NmoxFv^l?9z4F#gHGX3A<)2j zJx{5tbtqOOfG`aXLIwgXtOz66Pw`Gfa@_j4WHHa`z<^0yUQ7*~MZT6F!%qVI;IUwL zX<#E{qjGYjizuM+Cw6>MV*?I^kkn)Q&&va4kao$+iD{93%lfJJRF&q)EdDn%8#XKr zbf!EfeU}DwlIt9O8Yp9z#&5{riFO)ji05Dg>7d_wszUB*6q72I)ESy7Njn7io(j;x zsh~}U@foHz(|Gc76*6h3apJN>DoY)HmZU4z;>dVfL5nmQCTl6jRh|?W!A7=ZsaPhB zFF0^iGt!CFZLV8cVmnKK$Nc$@4%y}lBdZ*K8L-b zT2F&N%3V8n%1JvJrnWdTbySe*jb{Ny3N#4ngdbdW3-~6rf`@-AmEJJfBdJ(-9{Al+ zhNdLdhEP9fXp1&wPq5Mhl(i0v+9NQ^C{ct&NN|D#oGxLK(45t&*PXakWqo@;*3m$? zaoMSD|MFRSoc+c&V^O^JifZGV&1z*M()wn_Jnco9(`R~q(sw)R(z-ScY<^));YC^0 zFvsd~x6xNqk1QV`pYkd!;hv}q_Sus_oy(K@TAi9bcx632yMZ(IEVj|gdA`(ZUVc8^`BmkDCCQBQus^GSXTU*JyVOK9Pqk#S`a>aYMIg>o!* zgg8Fm-cb?qT=!Hr#ojVS&w+?Hl5n7r(DK$&=DpEA0bmH$cT8zgr-YCj&?^H8hkTPYbs>tjITSq;e+Nj#`6y*XP`sh+=SYL znxLlPeB6H)$u37>*j_NaU1#TBj=rj!I!&1aTB7EWmVOb!c&Mm4RLMxn;94_m{#~#u z0Bp+wSOEFqE)*}%si+qs9M$k}GL8%i& z0VLkk4FZ*^o1H3@e<)_k^aF>6dvx0V20NOVC~YLI)?{x=AI|ER<+!hMqbYgAuFBSp z(E_%)aZIr(P)!$5F4VU*hEUysM;TOkuGRZs(37%D#_hK(IE}x0CK{@@gL1L@vqLY1}_Qf=X zW%_fuJP}APpI`1nN(;V*^V3&$kAIl>MmIA3A20V}$||%nyL3fhsj|4~>V>6ml{EQ4 z45&_Tz%l1HAiaEo6J0mN+9W$2{peCRK4Q-~^iFT!TV58dr-S0z(5=qO$uRF01Tr7C z-6Lis)xyI3{d>;BJ^X+7^@AvX*QYj@4%R~G`OR^Grg*io1tc<&-38kVLdEt@SNn7D zdOZ*7;{xyP;ew|M75SlN&NoepXrz_iWJ1&kz6+sh=FU7kLq<7(+a~zyiT6BNg@V#0<3k&{z2n9js2R&+t=795hZGOC?*q~}%3mi2} z3Wo8~vB;NKC)YsSEX`z-pQhp9iJ8_s6*EP)~Tuyg_s^lXp2Hd^co9n(5l1B1@fdNYt+i zb`W`pNDq(=d=Pd{3*K{EB8WzT@7)470Rig6c~vd`5nNTQP9APWm$x0#I+(%|EWqKK z{xx7u$Pl7ai7|FM}f7bB>$4wgdrs_eFwF;!CNuAY8~YycEWzn16G8kOk@RR20P@2e%PXk>kKNDvOd`l^{;5%?J&Owr6huPC zMIDDAu(0Q5vXfy`%qqBbRTr|cu{&e+F|d42psnm^N%ls@OAZimS4AO?U}xCTh*ae> zZ|P!3)If|Qc)8h_!wKja7)sYJ~ zr_wG6PIV>d8RAbwN%`h@VWGLnf1Mqyq2Hs5`C>_x14H_L=^!^S(b971#!XJhmUrKR z=ltW`T(x_c4e}^VR6sa5Ax&2P_|)~7ukE?4244sInq+==^v)uUeOwgt&qJ>q8KInU z`Q9tq;o!pUe3YAz&r=m_{7aW0P5h`CLC%_xK^zm{j6yi8G^9&m3u}q{UgB6;F(xA8xj-4SeEW?Lxr&QE;ef9GJ#izD;4Gh6 z$y+4n=}$dWU<8OzNO3@rSAoMW1T=MpsHPcwV*QjK=2^)xgkyF8v~xwebnT-ciO|j7 zJ5ESomH@aSGa_z#Zzn$q@PyjI6(gilQ1AF`a>rdp$f&S?l$A_2%`CIoU7;Bt}_uQ-$*ywAzOhD`(oOt2d(>zB1>eo~SVG%1i*+?XU7u#1sM25ip`v5fZ?AbDfov5_CaNx?WU=9ib9{N1eS1oVuvlm$KcrX zcb>acpian&w^ZO%u`Lg&;CY0ZN`=#dx|iS3YXsd8BGqEGn}SR&|gz)zFAfgg2jFIo7SyDt~X0RZ>R=G4rN zxr2&-c~tr#(RF%XHK4{2Zt|~;a(84QPpZ8X_-#yz?OoEASkp73PPIPL=0UX%uimh1 zX6FJwI!gsJ8b-Me-Y+tgUzT`9Q}L-p+NtUO4MysvK>vzB>V=~(KRA4cgI8c2gpiag z^c*YH;%t6q6>KfZj4jksYx9FCbeA=2;pQKA^Y#p(HKECE} z5Iep`SJSOKoa*=fp>ioWisN%5po+*%V%-|CHc|EcC2D|QBGz~S%ZzwjJJiX6!>Jy`w_q(BM^^}7`?JoKLVXQW_m zKow!o6z-!f`gI@_0g&MB@SUhSi*%TF44PN!2fM%1+LhP<#gW8LbYIAa6CCM} z@`>zy zA0n;dJtU5n^QwPGVG1p&bTOJs)-ioM)r4Dj#zw`jG7dayT;Za}&Ad=v0Ej)GVt64Y z3mGA##ZSs}jcF^BDf&^WFe>EZY2g>o2~^U)br`?#y3A&He5lS3nt1OSn&6g?&B~KB zJ0vFm+V!Bp4q5T(=NoH=_G;KzK4(pBPt>kGa#c@9J(7Jgy$f~?Hw4(>3e7i4WjuM0Np1c&zR z-j>ea^3usmRhPS80I_cH>LP64Pr8wMr-fLF`@AIFz2y|D#8ETJBC$t>qxJ)YL~Y#N zF173Rsf?l6$!f4vSj$rMCa6PKUI8w0xBC{!p40ukHzuc!OxwY>2RO?rdNs-` ze4P&SC6%el8l<5QEYg#ANOE<3_UxAjNNT zIGI(U*oy@m-bw*?D`AJle+Rt}BT`V$p`f*c`rd*b146s ztCbOG#d}Z5896V|U!ApIEzobp{OftTDyYr?1c`e?j`xnbf*0^L3HE21&tljWZXxRC zUzqRH7cA68({3V@auk`zppKOh&im0jQx~H3s6P)6G+=W zmdF@jcM+zAMeu|;)$hFE9I3Oz0Oi=W>28i5)TP(bWE1`iXwJr74gM=qV7o=Q_YeEZ zBSY35}RjwDHE5g1BDprul?k(H8YP_ne)_MHt?2eK+=e## z$Z)b`|k% zCYD)i{wQj!Hbt7`?ok&A5msAi4F~>{1j>mGtaNxep*P~h(@&EwiY|li{JE=oAbtQJ zL;2_PwUuzl?Sv2N%nH1K8Ved9BFljz#vpe<)&+{Pl@6pK3{;xTKq}bx5-ulk6kodx z+&<}>lrV!;oaonCP!d(ZG4PL3ZlJ}xK+@A01kS4D{95xmRolerUw7xH=hT+r!>&g2 zZ!}pUDtsU|tDHdCVj@S}pVXbe$TZg?(JK(_zx5~NE9j!YL{|)j4M?QZGJxg6(nvbS zD?Dzj0Kg64@bk09b+us3s)y z+i{T)EYE3VaCM|n{m)IjzIu4AsXxSkX4+Zm2Ca9b`b01Anr0~W5+ZD2ZL3WJtoNA@ zQTz*nuJvr-_Rfq_zc~Wjw9#U+!T|JIZhMX6bu;7?+Q6oP42b8BqjVb7BfO&NI0NdF zjaQs<;~7U9#Q(aCU{HJ2;14L-%+UYf3v=}A{V(hhmj5ezgp-k(^M9~MrehDgVvqRp ze%T`ohTPU+Um&n7b5Un{Ti_H1$HK(F31V5kUlC(Xq>((uB%2BRPbM{ma#}4k(x05g z<LfR{EQ41{d<7Ur$0;7cAA&Wp1x8z%Va3J3o;H(!D}oAG?|Q z^f*`VR|B>U`OhvHEiKhiji*+pWL6wg^@i>O7{E~MlKrbh! zjpA%8x~AGM6V23?x2KPt#k>30)n7d4&5ys`W0ukWbPoQ-UN7v# zJN6gEgYdVzRrwE=7(c;2^j#;( zb4SfYdwAcWyu^U~`U^ z%l=a3i5~e^58$+bbnPyCJ^+-F;Fr~;n!nJXnSDWP%SG!kI*@q|d*KyB6`bBX&(M(w zPI?`XPB^sQALxmYe=kSo8XI&={d{isM@@4DDwF=ufJ>lX2&;$!%yUCKtu~+&gcbFa zDb zq0mzW{@4aXOXo+n3`TE=HRUabuqE4Z!=RCDY@q*R)i{cka|^1~PJLT|dAMi$>fF9A zPjyw2aje-27@oW?V6l<|9mHIccH+b}4sm=?d=D5WK(^}|$QFh8>ge`wmFjo3ip{{- z3E<1rGH~R4*kVfa*CqAwHnaosL5|T{-65Gvj}!4u!S+1cY_xaH8+H1Ai#ygImiE|Mxj8smIl0lAuy+LdrUMO-wRFN7N4kGyl{2V28a)l6 zlt~7F4GJujA-5^q(UV9L#5t^;>Z@AH?DsiN9$P3<*K4ZrOSzDcz=lD_p&{q14$;9o7>q$dQfFX+l>lH3Zvh1L#f)pzE_XoQ;bw=7qe^)mcat zK$WwR8`w-9<)o3Yq;t{21~&iFD6A0z6nX6jfhbh6wtEmsq-;ak+|2$Ua7eb!0?lH) z9Y8vkQ?Tiy#3?p0%+TZF5amajp)vuIs8aVcRRw@xW zI#f(GK$Av`4TO~$2e4S6P4b|0AZE1qYY^CFu?Zz{o0bUVNElTMs!|dd9Na{|CF*2q zeG?A!m)y+DZSNsp|8ySYk;?f`d9akNZ;nCSRPEsQNY2g5^@5GsJ9D+}x&A0cLCY#j zpGWMKQ7~A(HA*w4^Og>Fr`OL7ULO;S5jTz#SQ~_0?jxe zf~mbg(GGY#j79|giK816Ajv!(rr8CNIW42I$?cK@yfSJrFi+y96z@Q!ch&$xLg(JS z1D?Qe013r{9TW?aX1&EG2C=mn+DMX%N&N(anZT=<@rq%7YNKdzsyGig`P>Vk6aW~`%R(_Q^D z(i)~qbI3XK$86G+RY*G!#+(IXpF2HD7JQP-=#tjsUXIHr!zt5(ewhXa05+cT9Mpa8 z?6AS?P6TI{8zH-AX>$Q^GBHHxW3AB;ooEnbS6qNk$r{CvEV;y+_Ya6pe_Z^h&a-@gM?f zdVNG_^V2XJ@-?35e#!v;Yn|px9foU^2EuXJ4UeB|SKl_!@t$dOzGwYKoD@zg1QG@GDt&(tz<@OX)J$>#c?lpO z$jWfoK9~no4ngH6&>HH&t_Y3Lw;Wf;Zb@PwDuv9?K&aqvT8Qp-NK_%D6q0B%D*-#{ zNdbTRa{J1I$)CT9Rk%c!0EDJfd#}6*VR>I6M8(NQ8B8lM7ztW$j1Le~h$dBx_ibc` z8tXf7VWF7K&62wGDzqE-q97HJ`DHFUo6}3+a~V(f#g`UwJ;Eb(;V~6Vn)8Vz@^vpk+ zI9gbu%Q<3UTde*5;BdRUL4073)|(8y8{lYbb%Xy~JAT^gdG+UDgCg(^<7n9jFRZf_ z#lhCy<4zunD5ymlrHj-|!W{h@t*0zV&_NWdi_%zn&*3^U^rL2YIqAau$8TV5mps}B z(j>xnV9nD$b@lFh={pA@9Y3OZ(Lo52MvWYfm~@ooRN8Gm0S=v{h%}2ro*jV8LgiMl z)beq-moPHQoiNZ8CfyH2xNeOzUJboB=bY^uL7+Vl7u~&A>@0LLf}b6uYa;1LTRpI( ztM9}SN?hx;Yqk9UeqFh7(pgkZKKe*O{VFgowiRoR}s`!IUL?|V~v_wz$~^YcX-UF&~U%zso2x3umG zG0$T{X$F|uzw&9e-O2ibepC{Rb?XF_EW7yqRk<+-??AoCRt>8ih?o81+|&hpFF`=> zOka^o2@kbpZhZ~2M7v4wk^s~;Tl-jzaW}l461_(>{Y{giv{Al8O1nN>7!OljI~K^9GaV?v5N;hk@ul}g`TErhiNp={g}cHr#?8N$GDnBfO9 zAlcLZ=09MKNx9rQbNJiup^AuFmy?YVfm$x0fifbtqyb=b%5vc4cC(T-d7o^~r=!f7 z5f~5#;kK7UG;P_ln8tSjjJ={ZqZ)Gw9%2?UjuM!*TO2Fc*mm2uL z3kuR=fEWZi3X60cl6#e0J-`z9} z>}Lq^!6l<{t5XEGyvS}+p$Khql+C0Gd8{PE-l1a5b1V-y9k3kv9G_Ok+tPQr+`b$z zk4U^Ny@D{l?zaP2YA>-Bc9R6bR*U|{R{v|cfRI}QLB_C(NS0M3ZK5k! zFG5Up;7Lc4$}T}eM`vB-`p^&S>#c0u1cqiqu$Cbu+kwe^T7*_ZnIm5vgo+n+peHRvAduqD(CFKr!>V z-ExryTV{f-fJ$6RK}#iLVkNSp$>Qn~3-FAH;4MAh9%HW31rV~nfB-`b=wu0j4s_+Y z=2PZKg!$JU0M94%YOpLE5UWaH^q(&Ja; z8k?;ukSV&qPSYvPH-k4}npzq#gOSTuibkXTJ@8fceF z2SQ(hEQ`f#8)wrFQGgN-xA<-B3k?(hzEIZ?l=aLP+RF(v>{tyJ33uCW-%c`I3D9P+ zVC%2RQx&IMFDU$0PRs7V{BcXDc$(T}tAbGTqgV^^zR~(rG!#2n@a^VGKqB5Rx} zOStE2BAHBgf%oQ`R}LX$Rj7ZswqE}6CJ@RCmo%)4Z%LhS6rG5I>+gE*%x`iTO>jDx z(0CN&nnFW_8c%rE?AX;3R@50;SSx@#!bLcVc=-6hupPea49E#r-np#2b|eSlb>>(B z^ip$^H~Arma}C4cDV~~8_IH5|z@M_22Nv?K3zXW0v=WC6i?X7ds5SrQ2B;qTV1mzM zlaE+5T*NPdNJ}xEAeaG`=}b5YmC2?E`}`X!3b&N}#)}`fSQm|zIhas3MEy7b454Zk zCrfP};-~Xb>n+)W)DYiQh5F2$(*>j0UFwo38Bl1Qe8&Nw@+wTjrt>M8u>VY-6MaXGS*FDgV(~%cU>c=OgBG z?Y_^15r3A7C-aZS+TY7r-14+nV*}ZRekcPDsOt`5j;{A~;gCOUZ2bgYso;?73|dH0 zAx1rV!!0psZXGA=gc3mNKhXXLW@-8jQGJ8oTgem*(f)pe6FG}baP0@hhI!@=n()I- z-l4;$c>_%f2Y93)W0V1F;n=JHZc|04x4elxesTyMcseUNcDgYTH@^pNB@R5Vxizmc z31quQlfiMP37=D7GY1wCbeJ=hFYsuudb-6o%fuf`_or~i^O5!=zgI-mIdaiG*U}QPvHN8lFOe3q6gMWS8jXu32s31 zDn3f}1$xb#gfN%uV+d>CTs$O7ulMTrNZ};(AT}L2=|83OJ2Wx|W}=r&NZNmCZ(f&< zzWU=Yk+aoVYL_ToMsRc~juS`&czmIel!|d96Z36K%$XAn2GsP1z7bfOzR%cz0*{`5@V_EEy&xMk`#sKSD9U3RyxOlHS&`moT#@B z3-w#FbPhi@Y#kGByta1 zNkaWG8W9oXq-0Po^uAGJlRrSB0Zo2SAkiCr6uk`RGC1#q5i5ybjuk@R&XLtdQlZ!0S3b@ zc+kxmH`Crx*uY8_)L(pUa>&5jT$Yv!6jx< zlYxa`!;8jMeH>?5!`cnE+L^ZD8}JB;Fmz|i(-7@iB0uIKMqVbL{2t5ULsTr_9r73f z;A8(jl+aeKvmcYf2Y6_&;W3uzvSMc|TFY;{tcoKHnqfpn_7-6dXRxgv-dv9j(nKj;CXO0Ju zNR?gD3>GZN*PQEyiR#lUXNmA{kaI#_csujKVC@+Lfgnls5`8(l_X9}g!MIic<;4L( zwF3vx;(bR))M1P^jJ{Mz63`R3iSbHa90lmc=Y4XJH$%jO`|E)TS&*FJ#ZL! z5)ma77hqoU+7tyS*H8-g>Jcb~QHUTY>Q9Y+M(D04> zNF0qe;Y3X^UBN|1f~f-28E_0CVL}t5@=nNa*1h3=8I5=%1zbpu0I)1Zz&o_A;L-^i zL}x0Q!T#kiAAV;kO-VcHYSeYTvN8t^V+I@{lZ8?aEB_Ew2FsTz`q^mQ$shaRGa4d* z0A3#hYFfZ4Y9o{qjsO)D;igk&B_urzC<(7p6qI#6CYFt)8fh~WSivY;xQL*VNQj%@ z6O}A04eeIS8G}LY&#sL`SL-So?;3ODy-i9a7#K6U_UBZ-AhM=-BJnyV~WC%^pX4p|LG+8D|79yavcfq%f?bJ5k*R*zff?I-(a=olQ2 zGxGRzT|z-Se-4&>2qY%K!s2nG2J;lApuNZGpLC7t1|+J$e*`1B2dS38Z}PjJ{G;Pu z49CiZY<)B`#GLs)>FBHl7}DoUW6_el)Ot{xjk$?*QqGZMn*YR3&dmD}>6OehDglC} zkOR|JUE_a2I$q#rzW6^+-gRNS>$-B2$-pqQ25zve(NK_yNMRab7DIeh=F>y*oelQs zvY4f{FhX~g*oe5~K0yV`7?;Rv9Aa%usr$vmemmnRNv4h^-L&m4sEaSOc3GKj4ArCH zB*Ng^1%l)h(eaKLPjxY#&f;Uu(eF_)o_cZ?_D)ylLk)aD#boEnrl}Gvz6Fx(#G0ubcKqAb&xJoN#kHRkt|uECS4on%b z4V&YaO7xFzm7Fk8;scq3ks3quAhmrAXSX&^VzTL(nS)X)0u)&Os?t_xg$lnxt*cM+ z4nR1_a-M(`MZg(}$PFI-N+J^qY5W*}<2f=xDdSf4%_OHbOzPuM;-` zvHXpo%VFRx7ltH<)7>+q3TfNsW>k=DR^iWujLEPnM-|xQ>%GHVlRYWw_VpuCye9mQ z%85fHt@g>lQP+mDrWZMvi4wou1KT zR2OCvIKBFxOCr~yU8(%nqqZX&)}zdP*Dq7%UNX9Ag6>8;K7m$B_-~b0N482|Fg)0I z^v~{agYFtfWXe8tlP*BNpVz^C^RgU%CODU$7&VU^?-M{fKbeo<)F^V9R*ZpyaZyy~ zYf|IKQ#a=11;wApU|gWNCj4_>9ZflF zK*5@(s_P__SSn3|1ROc4(m=)MEXh-`sto9A+7b}r&ACZ7@n#aT@&&R)ces6 zV?7Q_ybA`bJLWOLk;qUxmf%5%tYZBMp8X^{>cfjjWXh1?e7H0u50}_3vThXS9L~XP zd2y%_b8mFNs_=0BgsG+KwRLp^XsXp!FX#$Als^dTJ`-W&e37T4tKox~T;D|L; zD)SB=+L&W7-o1}NX>i75inMU{$yp17Ztqggh5%fY9lQbt^6clrM)1HJPtN8e0vC?M zz*ehE@{3-Si{%q8Rf~BnX95sA3Xdy49V#bkm+Nsrup!;~Y-(Slk#c@H?#%Eyq4rIB zJ!o{^#?IX$-^&Wez4p^TAQa}Q`DP!jy%YG@oNUHrXX_tW_rd!Qi8Ryit@b1DzZg5G z;7rZQI7g6HjcL6Wg|J+qUhU??3!&AMBH^>h7vO=<2F|*0a`qUEfc0 z?B8E=Y~P=AL4xlw&+ZE!)1PR+@Qxyd83Vsbgm3i^+xF+|DlYa*zKF%3OkH#HE_GCz zVO+#RBV8|rg0S04?9i=XA^1$u&zw*7+ux7d^!V;z&-~qDFgI>mFsg=it=)?#uNY7jY%!P^ z%|Dq2fj7v`7Wu^HtlRuow%Jg<#gRvkdF)-|uXxCxR#k?ihq7NgN&1$+Ne zSQAb(ob)*Rt4=|`JbkoCT_jq6-7Y0F5XS=vRK7T|b4|VpuYZFcED4lv6Was{l&(+2 z%xNBK&`x|s_fBj5ud01yTs+~OXI`ua^$*QFo?Sl7z$A+QxT#7GPOKX);@E^!9j%^} z1zC+q0-D*U@GKLkb#Q78fwCY3buOM2cNy95lE$cD_hK!@=zTXeC+Yjq#p?w`IylPu zDmf?pUtR5UwJh9R{LpI0pDE?csq8N#JOgFh`USmRziQ?9=f#frL(u`bZxrGt3SYuP zk3do&q;m>_KMDWA4@Fz22}aA~Q_+O6PE`XZFU8+z7&z06IL6LB(z>Z zw&0Gp+lcf}1-9UsORtPm-3bmptwS=Gr>)M8*j)mG3VIZUZia$I%1(MkY@xRJ`3Xsj z5RL&f_a-5h`?I4xV`FK?gGCzx*0;tz~ ziDA%RbbJalfU4g_6Dj&;!4%}d7=Thm=icud!7|MLf-#h&`$}A9A&&yQ@<7;Ys9elb zZ0Ihk-}Bf$|4j?fsPqmKjhZ4|1i}JE3Ii5YE?6O{VK0>>a6lgokCc~{XyjwFNm$0v`zi9 z1)2*=N=6iE$a*|E2JPTXmWk_rHOO*nuZKarRFx=9AUR3h7wS~urwgWpIi&(C7c_lX zZmtHH4dt{N$Ai=mG%o&LzLo$MH23`emcyP1lTm9}ocoSh)W02Xo?8|k*}i|>wk*>8 z>IbIy%=5hg>cX0DMN)R@50e{axkvqVfWIdh`wx>VT?z2}+4Zd9(EUZSi(3>XqY91H za%vS#2QGtiPdo`))kOp76^|c7J_$oHyk8LVxk3wbbn%jm*ayh+ljyRV8+s={GNO9Lgh^Z}B-?L|c2) z$<~6*OI79q(M zpfiR~gp7cS5J`Lk2{DPH*Vn@L4lp}|iHO*Ez7>&Ego|iujb!6kjSw=1P|!{Eu{J{H zQnA3sQ!6(HJ4^PN8cvAR2l@o;CDjnsTaxV8q3&!z^w4+X7k1Lo?+=2qKltSrb}P7A zX`?7c6(oH`2m5#04|&kNR5uB1A5xjhpw@;ymg$IrMsE){dW29UCDOw#N((fq6i8c9 z@6g2iT`~bgS&CL7QFyEvc^DR4rB&`Dw9h3_2rglu3c(z2ND^@@+ukBwaXqXu@a8~K z4&W1LXCx_u0#A352hM{@Pn6R8rNVVxp|zg6KU1-t z)PR+5Q&|)`HpVnihDRA*!Dz)QN}*g%xrMZ31>GFN2~G z1|_rpX3vmb!IrEZR+);?q>`S*stUydLubb~)if2W`6OOBxKwh=KTF#^ZGv;wy!V&L zW-;Z_-CfB$s_R>k;xlTD;`0L^)!7$=?y_q?av9NPwv%p?(HLyEL*}JK>+L(q3ziGN zLb;`px!0Ya1{nw9bz^$4gS$SkG_wp(8o}OvVSlyh&IModn2A3%H8ksIR{0b8QK`sj zfHX{2vdj)rHXHhzZ9G)f1V%6LyExs5FIkU7JF^* z$RysDJQwA^)Sfc*b{T-x%mrd3PorF_RIlcrF(4$_?X2cx&C4NU;VSc@;jD15(&u z1V0#2iUEiPMMcK?d$b^DNuT}XWOGJ(JGEAatrcBwl)?-gv09_<>kaO83OgLWz}hD? zYh1JGXv|@dkztrj;Ma?2?)ps^8tCtVNS-uN)@jx7+wwj{4rPqT{Z7s^Ca#?}h%a6a zEi|o+1pAE16K6wMKOj~brtMz__#&lYWB@?>1_P;AzCVu^=!uFU)i6v%9^B|30-0w5 zJKi+VGlArTWGQwDAw5fI;0)2xiHEz=zx+4~u19k<4cb)iE0gO0h(E(FVT0^MKdX>4 z?X3fE;4jkp%aFsXp6zU|ZSPkN-M4-m6YZyeCj{$E!ChqmnG!hD_BFO)y6{Y6$P|sj ze7%BrE4ib!H81Y7+sMbVso-E62%2-qYb9q=!iH8S{w#^;JClpEhmR}}pPmX3Jb>|)keh5}XVqtV&+Q(HvvnolG!tlFR+ zisvB4=P~QqUh#v(t$e9p)3rss??mRZ=&4hQo9$K^Qzn}8U`5PXO@CPbySVw^Db(wK zM+eF`9qTtFLb$G-4%vh31ez8v$mtl~&w~V-p(iZwobw?_FOAdMio&vv-zM==#DG-{ z5B6*ZMO0dsdRX+v2dMdHc~%`A|CYf_io(?_VU|3>DD*$HJDO8dZwt5>Hlj;~U|MjwDp~w-msuX&0Vu|E zbV_@Q!LGM2m~SRyWWh!7>(;D8^&-vDs&MGU%`amSz2!yK{ z9ov@ScQWm+pi6ET166j?rpb)(Rtl$uy`Vu3MbdN}ef^z5fmk2ggWO;6a*&L^D*V%( ziyf#T76amc7i5{i+itVlVvh?o2>Ccsh#Bp_izT*tcDUGo?lS|Ua`$TntXNB8whe=?w(R9T7d6SbMt}P3@FiqLY585 zn2B13im~XAx(g)*2$oqBH}!~Yfn1oknx4z_rPm_LjA9%PAy&~AC5C!^<}Jwfk-+Uf z!1shUR(?5`G|>0Ca<499kaPU5;?i7tvWYJccN-#({+*)nw+7h2?g5sFpHfx%! z?k6_A;*GA!^V~nYleM#4YB7tVja9#m@Iet+eO^kO!|X?yc5GeeD^@Y5i2wua7cMvs zsu*g%7yui($Mldz%r||a!ArJ@+pqbe*Kv~0s$F6P&!E0nyxy!wOf^Z>2o8t9D%i^3 z5D3bsznYtA_ozxsAkN>SfJn62$R2G-PUga|>54~IMBnQ-R7d-~nAk%(MGK84)v`!! zqktyU-6;XkeeFW!b6oXmvj1Q~a- zdDaa|D&VT3j1h53y^zS%CTg19mbxgH|4l%MxsyC5FS_FF1&!fB1YukF5Gvvb_74_P z!hke{_jb+#W|tKgl6C!q>N`_b%0inSBQxI`smSn8Txx~6Nlu7xQ9bu(utLqJs{zYP ziokl5BjqRqyI9&ZCR50q8<0G3AQ#Rs`kAOiFL|FQ4Ta$sJg5;axj)sMsB;7^=bRH} zA3OYXF6nu**V?2nk5=X5>sZCN1M2V9NJ!Y<4D-nXzhoZl4;N10N0KdV?m3A^0*)`j zdMRM8+-YisB_KR(4L%RM$}P&6%N2z*F6#5kDOppV^K3#}UZC(gXX+*$vSe>`DtBrn z+#oPvI>8(2tOCet&T9stXv%klCVz_K%-$SOdN`GX`tr4rc5c7mXb#$emcer`nP1>e z>0acsdVskG<&(;zUF4rqPCN}u-ImBx4q1Wr`NnZKVeu7GZ=S1h5QZIR6Tw;CqHFvs z!oCI_!~(R!wPR(zjMlGA29;v{bNa(AkZ~K&0SMi``%x4znc`IXw^1a2PbToG$n7>H zi5ZNq?XMG#Oc^UfvC3qOWrN&0!JTbf|8@2yZP^~61-h!-2<&y?+xHl%aKvn49(#?)Jp1ARj zz#F0wKg-f_oo-O=^`9n?5*jjp-5eq46E6~-rLv%{tFL5^m18aAJs-6f0OG6G5HX-cyQGF<=Ofs)#C;!4(5Y{1JiH4zl$8JOs2WygQLK2y$(!abITD4aKxlcaDBe?{&L#daUT&zqol;O zhvCIi2sYI*G%NnTn0`(1GX4vhL~&w$@ra-R1JS#APEXhivu=kOVz1f5q=#Yon;usD zR~n%2Z+e#PI;y4I$_0MsMD4X6e#exHhY%g=&Y#$3O({^qT!hAe&a3+f9Ey|anZW{ zK`hSb3$Do*dt+2zkGRwGfI+4bnB0dx)Kyb91p3Fg!UGdE4_3mXN6RYEsUw=_YbB5` z$UDKt0xZ=}odcb7gl?bnX!`b~6P5#AhUJH*;*zUcUu2b_q5zll`=HrhkyqB0z?AMU z%XDQ97my^hH_SHw%zx_v-^{BFAHe6oNlY}A{!^fsbkrDe*UwWtsHEVz2vd&a@5l6F zAqP`q^TKY#SII{tKc*}&f{msF@y4x)APWAT&Bc*pk9L7@ujuA;?jHWFDlEb2M%tr7 zpN>s(xAqll zL|h)CC~~Ah!3-I2?r(n*E+9&lI3r?q1%<3Cp$*$36LAA)cY^|@j3df4mH>^;kdZS5 zLD(pA1#-U{5W4^#a3t7nBroyz4r=WY`pgeKXPmTH)Beh}U?vTB=(JGWmj10ZYsU^~ z0cTB-yjU=-a@E9jA*;9|_~jmCp1fe!lUg6s&DC?9z-MJ`MURh{KS%BjG@xomUbjIx zotr8bV#F+ZG*_a8<_5C!*S zd&VJo27*44X8u79Fpu7xAX5+D5z&X_MoK{9U+FCZ5?~;OQ1@C0KFJ@=Lge*Y?a#O^ zMcJni8A3RZ1o@3=Nc&7wA`}s)c=fp0t>Hykc~tz!d&(rMqAw&^rj<<%43+v4nPR3b zCuI3!7#-p0mz%^2>?EgHK9W8IF+pNorYU%3o_EGW3nG0a3ZdOEYE%zBXk_nX&_EbX zTeQER1W0nXu3aUK$;%K~YNNOYwVg1fz7rxTT%gC4Iwk(nwfmEP9zkL;{vz6zxQb7K z71GsoDtD05bUE{yh^ZQPhzuu*rBr5kH6K7GIN5=)XBTpsCJhAWLWWI<&$Tq?7sjJ~ ziZy--#PI5)BDp+;>5?m5Trvnsk|*Oo^mEaCeI=&T zE@HeAf~}Z5?Wu=>U5%%Bn=sH^$wa{J3T@a0Xl>yWGHHBW!48nJ z?g3~(O9#9CaoNzV05UVIX~1RN#u}}wRbcSL_Df+6Z=%-mSSDp+RYXYU_kyhkg!xv% zjq#tAGSz7=-Z&kqBv>hS@nQ;if@`FEd!>OHwsMhiJ2I1Rk4siI@l&++OrHUa{5C3W zw7?hBY@&*MLk_LD$k05&k{PFI&(o^W&5Mah)(htY3Sip}{}6-;1*05~mz>TZ0GV8j z2aOnSJh91yIPIPIC(^L<@lLp$2e=FuzKIb;gpB7yy~nJ2)letQ$oQpx1#(c$1T%)Iym|^k%mex*6+&>$Oer6G z;u<>#T16VYW-B}MERdv6QxSMCW(I3+s!efUAi`c>3XD=|lV9v^$|7ts$v5j?Q@_YX zGDx5tT!_6L>+a?XstHK^P_%l;(En8uu~S2SooCX*rfdbrOA^g49LFe+ zbmc;ZgR4x!FnHU`!T%tup&{oQnHWe|<(U=*&#*&+1)tM$)ooo{T3@(~yGM(<1EjE} zW5939y5k*j>?f_WpmQg2Q@!&l?FyuQk7l^)d9dj>ZvJpShr6%)QdO_z$6B`>FB_rm~Q?#7P|;uvy|2?uiow3RUa$cqkBM3jX7SEEwYBYKZ0*QUvGDOf@=t2* zPFe3&`UNAR<|VTR>{C?ShsCV8Fy)CzqawHy#zY8*5f45i_hbmYJKulNFE6s+PlTl$ zDg0?KhTo4V3xj`$KPB<_IPNI6Y&VX}KZdDDcbJo;zw?k7@I&I|r-Yb1rG#i&`9?%8K2Z+puD}HO)U#C|J@tNh8wrHN8RMVCiYvQL!)*2wW45v5@pJhW1{S$iwu!)z#&n{1z$>)f`L}7B% zXpjU$&l@7!SnSG%sOgu{h$27IH972zG9W2ilTFry-H4halB}>bq|nL}l0Jgi7_85b zO%g*muEt}*+SL2e^NCy*%~hwmtrA_ zS*k!{Ypv+0j*;2Z!0rkg#GgnE%($wnlqbymf{C1@wTbpo4b1Z5G(^{?Pq?tX@~S1dZkI4;C?ZZGg*1qlYEteLCxpGU&U3G3SIdLYHPShGZ6udSeNT(cTbc= z*1TW%htx_m&u)OViRXfDnpXZdcbzf-%wO%BuK&r?Su5j5IkZSh0xRP>MK@pq zvfQO3-5+PPU`m%LFoh@m?D#4jVd}(?LfGK!4L);x=XRn-3fAd(Yj31mN+HVu52Hc) zkyqci(A^Wu_DY(~nQA6zB&!(D56NQCCtteab6^h7!FA9R`^Fa#}_E3TO*P) zlz@PXbP?MBc6;v;=qQ~8#>6|$SbgJZOE?6bI@fUXN|9keMT;m3QU6FdYU-8XByif65_9W3B6%91;YrqW^^ETn}86PQDYpBxW z?AAB&srN1z(Y(gxC5&(cZcHSbi+28XLESF)RbvY!F0CJi()ibL_&P6BN2`? z>97Uf$z?r90(BuV8(+cD=QWqIpD|cY;6s3{)x!$Is`ZXxq18k?%2Z>hNfPET#MTpQ z-PLdFn!MKbxwz}`wvylmg-F3FT4QdivHKs6pH?CsFOFY$6jzQZO4s0W$rC{;5=CrI z5V68eg2eWQ{U@Xd#T4(+G=fm+;)9z%mLD(-3X@$1RKyn<$9yuhRsS)wBCUyUf_ zg)A98&AihWdIMM5;>oHiZ{vgaT}gnO>3gmVC2ie{HQ?xjE@Gl~4l52j7?$!-TPi^A zxBl?(MmaGY-X!2B8A0LDo2(Okhly(kBuE#6x#EBI8$Zr?bcLJzh}^jPZZE^Xqr+_+ zfMGGD1^$%ylxR|B~ z4W_FTLu*_8`j&YCiZU6&NlBN6>kN^IcMr8X4t^K7gPe5Kh8Z#lAQ;+ct7-kakisyK zlJN#yj}uMM&fla*^ge5JAb^r4w=t__Se=;6TfhTkq*R)Qkbuqvjblf$IGz!MJ-7iB z@9Fv{!EtX~Gy0|vv>(n;=yLcb&I8#OU;Iu4^C@K`!AjJ~CdZ+F+i5E94 z!#4@kOHlj|9);cVjY?m5M#dLh^yU@amP-JU3d&-}?=j+NvYCj!-Oc|+o)lbP$Z3Bh zd7Wr6XlZJKfOZ@5uXBQfN$y9kZw%{XFYGc8mY| zgKeGE{VuRbwLV)j0Z6rpLez{4ECOKNQp1^mRCB5 zaI5WsFMw;;73BD?an*Ow$g^WUKj$iC#8fS|M7O$9c4hbefo8bvq(AM-^r3zA;#onv zT%G)uE%eC>zI&GcDD4%4j3`D{8Q0ZA^6A5U zJmzh(x3nfnH<~CfuVEQhIBcSJbx9|j@&)z(D1)*RgvblyR%3I1+))Qbylnidiwo9 zHalU3Y^y?7IO!~j=7&4$b9r$yi&>}`T`+1(3Q%WlMogYy|GN1HHU-iW1$zD`@aUHd zQ->?gV3oQ8JzmC0R_g1(P+L-mYTqk^b36i|oeg;?*c7I;!wZpzwn`Sb1#iL$SPofe zW%@viO9nit1Z)auFF>E%lTLBgTRb~&E43K7IFDoFrBn{A#lBftkkn^L{gLX35+~+k zSi@Shl#xVJQ#pJ&%#AO+#(`7_dr~%8;2iU8&4b`pv1cni8f2cj{m}lpK~x?5e^&X~NitNId}K zD6l`hJ$}rq*BBANUD44mY1%&*w6hlWON#weA0CDB5CW?!hS?qw_wjkF@I~~b8+#dcgZ=x7Crs2(|^c*zI^aT;I2!b}-@T06940fTM<Y?D8l7UE_27;nBHU!pVRby__EE*{pY~(zb)F0}=LZZ5HgmGiU)Wf9-245K& zOiTt*E&M$Kx9)ZGN6q{tx|$(R)|n+RJ3pu!hj& zS^z=cnpC5M1#m-^>p@QlGa1v_N^9X7&emeGIG<^0urPGu$*G%em3_CGXA&~RTofW|khM*%WGhHo{A&tBCO@H*v41(f&mD2VDVV}4#a~YC<}RjirP@?I!M&tz zdTF=OC5K;|v&H0vHiKJWlB`W#Z(juW6tKgS>6?My_w*j52&9yG6Op(kQna8ZOb$!x zpBa?C?4*d%$QcEV9-SzW$7rxUD@PMAP1SIgEuI@FInzlk8(eVp9>JsiR2f!}h45zD zuW^h{HHnFntok)6B`qqoqNqtU&J3?oxHF$}er;kVFuw{h;tB9RO@zq-ifrn=hK^B~ zs~fxXP)GboESZ7^5<+>EvIvflY2H0v4+MtiYv@+4bgWMxgPt3JmK&YP=6Aj9I`PeD zs4ztUI`CiGXI5xrq(FYPAv7{-at3#YD8IREWT`xE0%Q=vzdx_MM-xQG%PKMHx(8$B z;VJ-=BF+ohCD-d;I|Qjdd;#q*hIykR;J5XOgTQliTCW-|1&qbl*{0fDO8JdL(>M|X z_goDPO3H=c+G^7Lk;s?iwgzw*^#T_tl3F$~ScFZ;l2>qXuivjTsR5&WoQf<=#MUQD z`iJr$I11fJQZ)Hi3H~xZ17Tb7n6tEPiS};-q)DQu{^}Nrt_t_%O0NjoJs&4x)pgNx z_(HpwP7?_4`4q&4Tig9*9314jCiD=;_zMEr`w_QTZY#p`oD8aXTBQNSA|K0+H#3D( z)yNRjy(afkb)G4IDNI2a*m$yQ5BJqh35e1T+;bCMWc)e{hhPxUI~2UjI;d5E!kVnY ze>Q<)A=P zNO(;yhDDVR1;nErFS3CBFh|fQcM<2ddhVWGf5Sk5=xD5$quKgZm&4-W)CHm+g{GsF zR6mN-PP%yG;=j6%|Dj2be+lK7zAx2wnXMKvq)qtXI3Qgeem}u=xu&O#AhMSrC4(`N zHLD;pl1&+9Y7A=@Nw}t(ZMfKoo=~a@_rZo?NQD>!UoR{={?(Z?>{?bz6aOQrMKdMf zdhOy196_j|=}B+=A(>dRzlvHNB2ri036dH{@LqYeYv@X(;tlbTDKittX)u$zZ%*@w*$!Qj%r7yBlVw zu9&j$Q`etsY8nQG895SsWY)b{x{?M_(&+kRC!ikbW0}|VnK(I@mKjqo%g+{q+TgD0 zpgTGc+}Ubz<^CF+4)lS?@sFSWWqgAg?@+5MI&d(}8hR`{$e1Ra2iNk?+ShRH7Cw1nwNyh_J0cA z1K~c{U8>QA=2?%o9FqlpB0B@bZwfJnW-?dk+v|i6{?U@l`*=m(rW0~ZG?wbfn$aU4 zrn0>sqg^80B~g*%XbI35qLCD|du+|TuONht_d{Wi$W2ZW(KxBVHU*}tP~Ig3d46)^ zr=*xI3dnSDJX(sRm~ILxJbwU-AY^XMCw^+AmRRe&IO+03%JP$Av-5VdF5GfELRX6Z z^2HP!F0V^DB&vl!qxTex?=dJ{K%>}7!!#=fAno0>KJH-SHCYc#%T&ddfAlCCM5t%} z1*rG{VN{GMo!E%ONZHz`?p2;mNjaP~WIha@_51Pe8!$z14Dr9vuvq`EG%OA#PWJzg zhBY2vUQ>72(dB;|r2u9Sxy$U~%x@s>oDFaxZu|Z_<0JK|krof6-umPk6{;E!AT+J= zqCi`lwzHZ3D|^Bp(_H>kZ+owBf1F=o*mcdKTm1{P4#K(SULH#p!5iRue#OrFh+vZn z>Uv(aqa@?nji5|v_6I)%f~|q+!fGBDq>Rm=Qm26stZtWT%OK>M2x^QEke ztDO&4sRqx6bFv7XVWU^LZZC3l`xN&pRC4jL0y)3g^SVlRKSv1${%Pf%D)NR(>Q) z8`bsl_Zwp4DWX%;>lbt~oYNJGJ7T(q0ko2Zm7;!FQQ@JWjL<+kEo8xS4dE?=6{Qd) zty~-1zQt-R#)qMjK9qokx5%NC8C9R!^w#{bvrqq*b5|z+@x91D_;a)0*4ywh7XrtW zqK9uTgtN=ZrV@yb;Kyum2DuL4>OOrj#M0&6W`}~E9)zb{&%qfh4#2Jb1sCz3IwnL-F><$Ywl=ME@qUZYAR!#03 zufwsRl@4&Jx?uuCG#G|5myzx?VJ{s3PSpvI8@N}baE2kbD@2bq(qBhbhv)ZcSv+Fg zKjK^uWRg%bgPD}V#ehT!JN~W* zPjn4NF9VCajl2zwe*{|^EjjcsreUme7{rAk$$*!LQSbx-s78POg6k|mMHWaSLKBg} zeuE>ugl&VA2!bV|(n$q3i~;9N(Z>eyiyoVP4K+a$NMSsQf>S{oN{y`YB@)TN-%p#>=M+sPU385Rswci6vyt~x$XIkWp~(6ec#GA-`K~COam#$u(zVZ+%?7_hBuQAlYleX8K z++o>WWI!#f!DX*Mqh7`c#dc-Eg~d6%kHwa}q#KuGkx?l1a}TKD*l_%S+uo>5VF(L4 z{qDfa^efVtJPm+4a6AAoI;igYVp9l2X?6m+8%?UZ4hn72r+6{wAtU;UXlQH@`rd6H zOufrY<9ReMT8>DQ6l|R%JQ>q4w=BA5BMdlv>*HAI(@q!my4Rmx|48>wX{71!T0jQT zqs9Mh_WcdniIKG16n|)c|FC;@F94)-xL199eLVkV{Z?*C4>oL(OReJm9=W~cTV7VYGGs$!7;otFT0`JrZ=GmqbfX%30vf7M)to z@PQN^OI@;Jus=poEN8~U3!88eVvmOA;d^W@KuN;zFB!KGqLPC&5ee864IdSfDx8e; zQX%jF^hNXni3LZrvrqkHNeuJ=7Jck$4E^w(L$Lhc5)D44~o5m`q-r~`6yC75D^L~FovrgDx3{8L8s}WqPrfj&(OX(67 zU)}-u7VZEAkNzW=5LqSa8mH;b45v67C#xc|S=6OAC4XfrgTcTzLBrMV<)$*2<}?P@ z|1huy?>@M9tf1esQeI!_>$BztkO{!dQy>=X(;LIVLr4t6wLqX4jkdg zdQeC(Ya?zU2MiCh&uKvQWeZ8^LhRy(2(mFF;cbL%gLwYojK8`}!x#?o`DWGAR1t+R8LD_IoB!6`0yCC(3L(yk zTX8Ax*8w56|7I_Ppz-Bcj0K((#A>))6(wjb-4UP6Mt>B>ZI3wN96vgb(RmSEwtEnE zKy!iEKccIOqHz1>Sl#RlpA{xHhWPa6(Rt=@fhdb!I{lsXGbja=UnjPFW;uDC@KQE4 zp*xeO-6OA5$cJ;xA}Ehwbw7A>kJCkUww}D80@l+vf4v~LaZB?}r+;v_j|(H7nzekX z+L((BGSA3W*dAbab#pIYm%*KQJ=YTtVQypitXils7ckZ7;}#Xh#RT=QCv+o-)mic-W@2J)AJ>;@eCz`NfOF#l%kM+ zZ+S-&9}g^MRa}nmRJr5KVr1|&?p?X zlhizh2F;mV5P4x|bV7qJB7F zg+*F>VW0dtC%9<7NXp<=mgi*Y`RlF05a4|7iKW^PJaWPPtod^-TFkGGfMK&gV5Ps} z%o87L?S^j-we2s_EW6JGr4=$*oTUpe842z8FGAH~xD=E8jCEo~+d{h|JhlVrZvCoc zpy73bf2VKu-MyAspfiPl6ofsdOk_6dV=)|wr9a7Hw6DEA9_4e$(?&PNUk>g_sei!R ztXg{R0al@q*$=rdRS2k-2pr$2x}`grxNJY3Jc<4~7wZ}UR33gHOjHXF6EzUAGPj1) zRj9WU8G=EA)c_RdWOhkoA%dp<*RMcJ1xS{ry(BQC@DrLv;Gn!@%TsSpO5M;L>&6`8 z1x_he)e0o&a!j|^p5wbbWX|hu*S&cyqTA&H!V2Re29q)r@Q+B}?;7;WJoRRmdpM`l z2vf@hjzcBnDxi9PbB=MYSNCuNwsDJo$ih|HTQIf)eLNDXgn=9rp}m;p!{|kl}EHxU^he zF6doPyi9ZZUmdNUA37y9;R%q~6=rE5b4z}q;xy5W!oX`MhjumAM&~pd3qUhRJEp5* ziG+SoR#{G(iHTDZ=z^&^Djv6^|_yfu$bJ-lf*1&|Vgr!4)?MNOV-F_Z8>nu(Q z8p-NtzRjde2*hYsZ=!-2ju(!Jp`)-(6?#~XELB#f=IyCjB)C?NWfU3odnU<%g2~#- z2E(#4ah<^g$ein?vqtpvxhBfoFn8JkF%-Lj9DdsKFFgEQy*TWp9-Y0{5}>Ax(iy1w zLVMA&gjghDYi*drSxS3C3J%pw(&Wz}g4HRA|r!SBJ0*;p$+_GDVIJlJ0a?K>C zNpyN+>={n=>5o<0*cYEf7K%V$Y5_O%j#$Krl z+RYbL1D6n8Y9%U_F%99dayC+@C~6GVzf5^vwHdiAPeUy*U32XRS-wX-Cd>>&S&+fs4aX|J=ndA%bub846+Gj%)H+_S=B-o&>B06B$gnYcniU}@5b9*LmiG<5MB zB+ek;`vlS)FhbiY1_Yk-wE91%GW3@*>&!EUA%vdu=CM+`(SNfSr%=U3hP*WPx zxjNAB3rl=bqnP%=%+_46SlHS(H$ZpAYa|N1&Gj+@_9%o_C7)gA#`lCSZs775W7Q+pH1 z>XSI(Oy?i60|gfIR6h^KWr`_gw4?rZD7_Z1QJ3^S%&$s#lj`7?Ju5eOj*!m_RwAyil1!*`2rs&Dd#{!7)13O@lj6~l^!TBf3_QlJsYiJ>70bkS$HPI+g$pW>q z@C|K{$)uy})|#RV5KN=L(=dfL08rj(nb>=WFhc$OY(-cW5r(i%Jxs;OMtY4Ax@mXi z;;>Q!LQt+2ymSubyZ`QY1jyw9xSqLAh=Jt>OI2q$a=P?fb&ZCYq%~iPl!WQ6J!ge)&R#r3Pnli{}DXgcwMtf<<@+rm|odyfDk=PwlsxRN+uaDARP#yW|C0Q40!A zeW7+qRwQ9SNvAk#yN_bfUR@cG$Pz6y5-?%*!q`aO{4)`_;R?90nE1mZaYOzkxw3Mj zFJlY8p%$PE1i>w|<$*4DS=qUzQOfuMFRYXF6qL003jCHcXhX2E8Bw6Ol1~CNNV@BK zQnk>eVtf}96;gUowE)k%_M9@C{bs!rVr&5m7?WHJK@ zuZTxqLn8}phh0$1;+t@-Nii^8I9{iq#2}b)Z+wamK@`7&xJ7`*dQ)A1@7R-~2=BxM z7lTXSY(nA8$c9~U6t+vwRJeXT&Adp;8HEv3t1Am8u8bL___9SS)|OUI9j7VR(l-k{ z#%?vaS&qbfY0xDeh#4Q$j{f1uG5%Xpl#%G^h7cX~V6i%bpI09FO-n(_RhKd?GE80MX^gxPSt#czj(eu4^Hu6%!l-m?lkE!Q{Lh3_s-E%AB zD(C}+x28$Sp2AL3Cndw)>g$zEl4e52+ZHRQxld^`XdltbyRA&;PPd^W5+G6CPSfU( z@NoUXj0B)RUccplV^3fn7MKD+;iv2O^|q=~wG%eHOXwrzKp zt*$QHwr$(CZM&+=wmJ3vGpl)KF`LMY$lPRP<`XyWIrkg~hxmb1UQ1Hk4M&G~(195n z`S6%M_viCaHDi^TG9H@!Y4xo&3+8w5c|`vm4VR}?d>=dnG2Qk{-bTtl=g&8@e<*o% z#zlIHZYurvV7i3=t$DeXM!uhb#(-;N+o-*(^G?F^stWH6h_F52xSjww-`Vl0MZkJ; z?=E(RMfy7UqC%?eM_zdsT}Jp)Lc}Rgb)dosK;cIE{6%-n?q-d6_@m7?wcVCa|B-Go zRe@k)1uDM4GIBuHwNcN(4i*NdRFxW0%-%DX{bi0jdY2xVkDeEGK|+jLjx)=$9OmJ^ zlnZo86y6p}pHFY-^|@xZS}JWmaY&td2)B@qSQ?Me4x24%FyKg@f*iWFb0U+Y`<8yq zE~NgOs2+v?BXS5a{w0&-x(6m37IP^!(Vv8PM)+M z7Mu*V37SzP)q6s_OixcS#kD)>D~QF=9~pUAx0Hoyg3t>Z+sv`<6}J`#bTJBm9Rq|{ zjbH6py}qkO`dP)wt(teath-+yl%oQtckbVK(ok(H9jcW{~+8%MlFW~vA>*Jw*ODPMG$sOznSCO->`K~Ds z@Bmy_{Qf|F8)_qGt|L`FNEfvS&rP8W#2Gu`53(Cs4&H7fUmqc;ia_J{4q9r106!pi zsXE-{raklg2(}W1Gb|ln-Ac7m9?h?f`Nlx+Pim-1*T$=XID5Xt7gH@vk|1&MOQr$l z4+|=LeE>=4pq(TP(0}t@$JVurRKlrHx0Ig6zKrl*5*OO~&8ByuE^CYr@K#06Ra6CUaoA*_zOMjZAso9dqh$E#IZ z-7u!5Ebd5f!&TG^GfWQf3Yi~keFbe4!q)e8pGwZORdcDvZ9;s&Z(FqPtus~9V^nJN%{lHO2myrB^}2e$hKHZio+oL_XzG*B!}DNTv& zWrIShsV?QG$5Z*&X#+8VsaNPwsDCL7l+yPN>M_Zjl6uduy}d=%1FNt^S|q> z*Ax?jYL+U>35FBIKhGKxa=|ln@uWa<9&&Ev)G|2V0o9{oXmNu)5%}`g*xN3^zmta} zLi%^}_~Mbf|J~zYXyO=(9U}012CzJ&2xk3q7d)8Uxr${4JH(c4I&1z(SoG{3b-o+JcB6jzzaXV zEGN1=Nu#(4_S;w92o&$FW+K zWGs593O=`x4S*E^;fFP$e}1 zi&YDXl77W8=rPTE?VE4zXjh5jGJHa z@XDdw6op_Yl zAG4!rfhWZ5pit50oSw5ID29;wHhi(@oKFARgTPWy;q6-ZFUdpQdHbP_!RB#KylE7c z0TSxCs2WC^jlq1v040Q4C8GK37zVnP!4=(RIclHCYr(a25QQcmr1Z6cTIQN7SjnQ( z*Qw^gwdPW{Q)Dt=HH%Ce{1ER*C-ZWgu&I9_HxG{q{VDA7H?ZRJ{V#Jf)!Bk9N~52L zkKv7w{fsDTC3{u|y#@~a>mF!w>GvY4dN6j72L={_fzAR%*rt%>NQ(b{(!WiKCj~(8 zMU8hm_5(Ksq!YS4`AQ{cd|LPALs3RV)HT#QtrnTB+F!CtOyBwdMix9#|o z_eXcah@Y;|W!^qfQ>Nc8Q}?pyPE85Atkho_Rb*rrRtjl~G(1GnJcvBw=(cO*1WmJG z*i&rDR}F{$L0?iUTeXc+Xi}5f?AsJ8-327b7p0ni5&lDho*-fMu_FWfg>TRz4ISxE z#d!dXNU6d?qX1lbbU!plDi^^>|Kfn=i#j}lZygM&1|=%5qLYjf=0&=L6GtZFa$baR zrq{Qn1b}bV#Mng0*pNTBZjIlX=F{` zc&mt11xAeRC7iL0>j7<40fAVfP4kaGU5ehX$J})%8di-w=ElcjX%mUm#6*%8_szqM zVra32LTMU9d>BTHi{j$$B;W9H5q}tH2xcfHic^Fb+)0xo2|C>t zA~Aiek#rl9dl+HP7TT0^@S7r$+1HNh1BHL`t!asJ48w}$EvW>9#p^o3EsK;FrvRkxY^0l7R#-@sIJQtU)%? zXjvjFMFjfzX`tA6nYOo46?)_#DkXA%O5BnVbr$Uy;=8tTs1RGzWa1>OzANH!RMD;1 z2G&8O09~NX`+}~Rq~U}#N(}PTi?y7oWDAudI`w5D4^Gc;{()`WaAV5Q&E})KV5(kd ztEpwVk}TNOiNs!*<+Rtt_aS2+mC=*xJgTO0x)N8)7m9N&nbEY|FO(+%bwS>Eg$~0N z2qT4%gyU^{F1hXyNd2b^(SjT;<~69ZaS%7%q7LO#4_tIuLR6udor|VcLdI!T?~h8w z$N^0_SmxXcuS|4QN`+*%rrNDW7^p*iOAg|<uI9uVOw$b1Hq0Uz*(LM^x_`?=WUQ2^!n^Tq?wfU6ZV?$2Fv!*xW#fxtIu zR^N~3TKkefY1pPj2f5qOjzHbq3LigP$PtA6hsk~sZ_FYm$V4CafAZHNF^Wz4AcgG* zDi*+zL}?XNrM7DD)w%6Yk9fAE>Lyc@k6Md9|%;q@P#L2{jfz>SZL={XRAqmYVn%^g6l z@7B>O@d=%c!LB1i$P07xB{md4ST|m4=J5JDVt7&+)BdW!k+OU*cjPKhu!80M4|px68O;o33D13 zA!qwG*5SHQN6ZGSx&zb1U}M|fq*HA9mO4J9)3k*cc{6gh7Ln%RJ)!D46hQ+8Hf8AM zMRRnn9i#Te!^uBKX#d$mP5Ziab-($x@!X^<==UBfN=7arm&k; zC4`Hw(qh&XbNFP#qyQB@!6U;wP7cWA8Ez}rC>B52HIJ?2L1}Zo7*eDqxc!DCNv2+p z4R|Vz3rW}$qJUD&FBHo1&PRF!YMflGPu`icATQ!V(>omVXOnRaZIT;y&MD9DTMcSi zk#Enx{F~X^(Q$-G{%Kj!u25xrX0&!7ESkx}Pr2!}1Wz9Lh;pIZxJH$VlN+8MT>h!T zKm4RXwc0ChesBt2(MUwMg_gg#R-KeV$s^BqGTJPoQ8G99lF=@Ac@>RzY9z48XGQqF z3TShElT4qav%?6`(sfl9>2aHho%_x7rF;?6p1`1S5&+dJjjV3;A&EutDuZU0rX03% z*;h$1_+~B%kvkLpC|8(yavI0lb6hu4-YEu<0-Hy=zB~b)Ryvh(dCnKN@oSK^VAb;n z3S9fko9!vU;Tq&6(;ElMEX~3uCHNZ&fTR~8K0)|*XYq#63!l5KX_z6%Q)c}hB{zm* z9hdekZaO$srSp02)i8H&iOOFV+!s!_F1QY4Epz6Ol>(KYUEj;J= zywpPK_N1BINSeN>?!@ipP6YZenanoqxrFYpa5}{ZfU5Nq>+EI;B|D$1K<0G&y|UV+ zBYyS%1Lf}Y*PP3U)zzCPmF|v9i}aIOxBkC}kYrV^HP3OUq=tXP_PVf=#m(zOs>A5M za~dqfv(rKFoP5~qiPdF*E;SRl)Be;vhjl)hzcPAl-9v`WINg?d-fIh$!R> z^QW0xx+7fKiM#1E4eJzx-~;XAFFYYi0o7>ToSRvyEVzCGSS#D@*UwhI9KjE`+L0w; z(|m$_uQU=ND=#g(AX*oHgC6ZTYt)U(0NYl~F;SH1VHOc0RfCF(*T3(<#8VEl$DxUoU z;3z_PQsi8Pt79*|KL}r2@d@us5tP|h8%{|jt}2n3_~S-9&x@|#fk@^PF;1NyIBu$n zNTxX9Y!HV&9+v+NYwcB+K9hLxOQ(C-4GM5ti!-qw;Hgr`+PlM)v9>kHkxx zPn=%fpbFxx;Ej^YDAHl0*#s4%o>JG7E+=MKtKy;FD0C50iW1$%qu3i?6orn{0_O`G z*uO92kqCw4@GoaojTISBgccf6@5Gm!LcQ$^E$_!7Os1a~DJWMTQSvp`@~j3(euG&H z1%~fM`>R{YHg(7ah8J>V(Ta7o`5$FU)DFtU6_Wx@c~K|BFC7MUW2RE)q;sb8U-vtX35 zl?2UE0=t64VKolOAG9T-TZ_aX@ za~#nAq#D+tQD~c&mLhNh_Dcy;rOLh(oxe)|NmTm>59kZ!*KEZKKj7d!jL`bsd0j^C znV#P^mfHux^o80Gb{2tZFS%GM?U*-pApY*@eV|@5*tsc);G?Mxum|B>-uU6`Z^)$K zbr|t381DxU0{G`$vMur%*YMI@;Fm)^p$@WS8%@;25)%xIRwE&=S>#@f-Eu7QN78ut zlcBAdW?AG=$FJJ=WKjbB)=};*QAWg_T-*i0fc5_gxD=1sZbZ*PC~4AhT+1hBTsJ)O zR(}SKlp;xE5NnPZF4(>aE?%<)h=m9+d4b2Gn?VL#o;@V@EM@6V1C*DeO#p4n@T-XN zp|D~(MgSnmhopBibu2-$SQ9|fs^|sI>##~4P-D#PLj_zeQ0a;`$x#`2Y`7{wvT~=s zdlB%%zz>JZMIL4Lm9{3H08rP3Ju&*e4UnKcpQ33k@`FRR9p|syev2+^BsoZ>ZMQaERJksE%V;*+y9^`F8q``__a9aW2`sn@C%?XOWr= z;uVmI3VU8;pukUmNS{1Hf>5w=)%c^C7L#Lnx{K=FT5=20gD0s{*1jWzZCGpV8|fq; ztquEm8ZJ$vLSW$Onc?gyF0hba?z`oxkwCLqyY7I1bG}3ujXE@fh7OE(Tg8Qb8m{Zu z0k&=nIx=hmu8x{rD#fp^o&gm*`~#1nPdyxJx?9v;#Zv`0Xm7L9Mq00ZJZi5H>3grT z68&RE3#o?(ju2^t&qt~Def&J-A(_$&-{cd3=?m}xISgz1ly)j-vKX_d&RxU2T%F)q z!=h+`CAfEP`5j)HD>MNYZcP&1+Y^T+2uzVb4Eb{MuxD{-?EF0;QCkz=}RDw3QwiYs#4Q z8Qhef0D2aP1cEZh>bfg2x#x@Sq9+iiifba{s}9ibzR0iRh5jC@g73>>_l`1ezl`$K z^-pDvCA)AaI-K(YOzT>I4DPrYKqtM>jWFsmEwq!ift+j$tZB1O*iXTM>bU<63Q(d0 z%~(G$*Z9oNPi8PA1JTw_v`99z9!KX^_cbf$XP+VNB3q3+CUiEfof%tAthUREqcdGu}GvId)L&?O~Es*i+Y>R0!qadzB-ki$W z-#=}aneIPzxAO-oA<$w^8p)7&?MIc>1v7jHLR{`+>3w0p&4vWYob>70{~L-UJZ*h} zKm5kMZ}i5Aq{qoGU|GlT;R5-UPWCpf(24>EmMsNcWiR_ilDA(= zT%PbLA_eO$XR2`QWz)h=mKE|zL0To;5%#}yRh@_@{<2F!KZ#m=ABhd)ASdh3QK zv-uF(@#~_!VVQRv<)ppZEAwPLCYR(}KV+&1`3(GnKj7*ZWV7T2YP&j^U81soL*_?% zo5T`zTh|?^tLwq${b`yLVN#hEG=v3f0YCZfsM?-ubAV2+jZTNT(OrvsI}Dp|^?Mzoo#m3`dhAOdomUd) zeX}R~hC=Q@=Hh+>yRkdGS=|k#p0LEP3nyT_o5W~3cReh0O+-v-66i-StO`6*yujFx zqos#EOcE@gdmz}=!eU^mX+xe~%oEC#I&T15ZKP7#LL(J}QK6{ZeIT>AAURd(Pw!#7 z#`Z!(!N^2p%A?2KO4DfQeMzRdmP4RZ&&!ekezPP?u%uX)GIGY=BilZj)MWAK*jFpW zV4DlmWzO)}*pNhW^{2LZRfEfq-oPVUFlD#r7_{A+S{M%2!n;QZV6Z}%8OJ=N(exo?%sX}Z6`fNNX+=op4whCd$@D@Md6%1#||RdVUyU@Fa=02 zQvI{-^h;*|psW}K6c|OJ5BRC~MmcMxjt9y8!|bcNsmaS?-dcgwP+Sw<$kEdjO#{jL zv#d=m8|wA`w^%td`5w*42wt#upO5?e`Tg4Vo;lsKp0j9v{k$dATl~dJ3`WaF*KR2aEM&QBM9WdSI8jx3cBJ5qP#w?PC!5_WaB^=so?;9d z>`#XjqRZh#E<-ZU8h)hKtAiqJ(EapurDKn3;XH*8d_=FdO;5dcbD8hnQM&Gw_;d1x zkD-P|Ht1L%iQJtYVQIZnq&As&oi8UFpF(691pH||f<&&~bwN(74tVTSR8qn>rtqH7 zy)aOQ>$@U`V!PfFo7wqYn0HjO{#!MB`*Ztu;M;$(xIe#??J`yQZBlgjrw#q*x%m0M z=f)u)$H>1QpOFq#+L9LwPfeSN5!dj*-ob@yS|^;U5%#BppmU9(;X=ojigAPlIByxX z*ZjUyZtbSytA-8TCW%IJEr;}*Puk7@$g zhzt1nDEng_;QNX+RbrK{^~tufcEc{B(}^*JRtECUeK(BoM-^k`eowYxg|LZ_{trY$T)3qwmw1g9?G) z6d!j?axr6ndLLZa>wZi$FY)X=AU3ywTKv0JBHrYymTvIuBFgiwEy4%+o}7yWj5c>r z+I7C{J@y4o3C!NP+yOBo5;&3Z1Z(2H7sm7eunSFi-op*EA^Fe3V#|H&e)*HM{1wxG zCsJ7XbEgU0sqP`j*cLGFQi7?)?3~S=b`SKO7?^_<%)Dxq^N`Nq zv4P=V9_P{AW%(J99ZorYu``yVLYS?u_x~W`LEt$P)?mv&(3dStyM)Z%%1ng@R%?a6 z@{h_O(Zr^UCQ%u81|2~LuV!gRr*4Fh(o6pk3lDjN7A;DQURiWL>v(z@FJ@(+gyEo@ zZwHqED5Usev_jMR1heXOiLa zrG0CWJsd8t$99XaT+*@J6cpdVPHDKJwg|diSrL7{>zou=^MWbijB&;5e~2?7+|xNB z`@9M|uh|YjrMaeD-z9jQ0`gb-Q)GanXz^(IV)5Hj6Fl;x%P-G1cK^i5L<8KRlzX8B16fd zVTP3H9IiYCTZ|`m&^UrM286n%=;hgm6G9D^sN`us=2l)Yexz+g4n5X1q)QIb+>7JB zmUv^J(v{_weeUg1M&I;Y#n@kVoS>ue;dYYs4A+WcoS-4BRK<#G{hymD2MTDPZVT;3Z>nLVm6&rkAYNZqC2qYa z7|LlZ>~aAK`E5Y&3?Q1ZK!NPQ&LY9TeE(xr*C$~3@#wj~CP?Vn0#|Xl{dM)sHc&>a zgNNjvc%O%gP|%G$Sq)#2+0P?FSAB)~>CW;~Fo@R%M!h3Ng_`?}eCDrt-|dz9%s)m$ ztaD|YAF;v_axaFu)+bb=3sPGKu&9c}8KsYbr4PvVib}x{-UjHrCC_S6=QU?{V%kIl zNm^^3QwTL^a`kiK@AJ4A{sWT4JbcgW&$bT#^}PV7S~e zX5io1QX$Qu#z3VOnH@FoJXkIp{&1hfVYRp@bId@{^I8xSn>C29mVEyTpmY|ya z4xN_Z&fWvv7;t@N_cd*9^P!O?rx!`<*69Yn?dK$Iu3^b_PaGJk#K|*{mx=hOX-SRY zf=<0Jb!NAZ1Ntm_$u+0utYyh{SwY(7ws zJQ%3wZ<~w|=bM>KA1ZG4;ne;%m(*!SB&Eiw7F-)E<+j0kXEKKvs98u$+NbeIOGU64Qxc%bY-QFbz?GJZwc5nzobN-Lf5N^zz-7W&fqE;RV**YFMn@!e4pwpm%VGG9j| z_&L1(meDoIcNUQVYa+wd%7z9`?xsL6*+8_0M!G77o>KoXV(f#Rh zc~24YMO#zXk&96Jf&&R?*l-WtEoDX?x_xc5kPXkFDtQr*tC!y+7$9Lu5n2+g-XiP0s1fbl-{C7Ix5T{29$-i6N{i7Svlb81>#U z@3!X+7=vaRBQH|nVCUuFvL(!CzW*-V@LB8I#^*nl0X)?QD&&mZ$3E&@UXr%D@v*)- zeNK^Y7Ulx6pqauFPLD!$ZX_Z~&;9Nz!sIv-Y@F$>KmH(=jkB=je;EM{7^P_m5Ry$W z_yp~sS?vu5`UwW8hFjsS&WvdLD|TVYmNb$IaX!XRoV{1j^h4cw9`4W3 zBjGXs1kFDro3XvxSdR_3hccoUic`sPp_#2k#<3-(ar`CN8wjw$@+*|TEg`2o(T2DF z@$wFk6xdweuONL#lztNIGyHrCBXx^;JU(wyJ%EJ^e>P^R}ccUT2S1&AC=un9f&VW6Q?=aVfPO?*y z27<`<#iSRMEsr2Wn=M)u)kDv? zhsdUY@k(--d$=v0+cfcmu@#GZ9#K{fZ3BvRY!?7roX6-CJf-Nf1170!f`G4tnCTrE z2HzRV_=jQ#L6{Gd@yAbVQ7D}g1_f9|$zzY3*;0i4g%h1mEeFOG*gnHiHjv`C1saW< zl?@GB2K+SODySx_Ue~kPl!fyU5;7GP`vXZyu24SlU052O<6PYy^&d^He0Kb%Iov;j zUrQ~^Z4U$owm&dk$DxpLR8ln%Vdk0Aus>5kvN4MIpGkR zJ?nN4^h!8eqI{kA)2MqYjq5=eI=I zmE$tZr?s%i7Yt(r7N+1fM$pYLld_1ILZ12Co{{>j1SI)C|6y19aQ>xxlHXzt+SLNq zs*mn2wPsxz*?4U+yV%5%GLsh`}RU@YVnmua>_1 zV|GR?N|3{OZ1FJ@)*n7SAHDOkAejzt^T^DXVZ~;A(A9~UnBKHRo5jNHR8Gjmy&iBH zXby7TiG0Y&jDF(BF!&)Z^Q+`sYHpbXxGN#}I4?J4T}o5!-F=)cHMS=&O367ZE-21M z5NS|mm2c%Yt&FnD_pz2T5lOvPe2)V6M7*c?gY=J2BpWRh>xUEV7>RsO2Dw4Gig-f4 zsu#H&wPZA-g|d)XI!2LHsRfuEwTad@vE12u28qSH`0#GAOi;OX>3FU~)Ki7>e;5|V zTGhKkwm1(jzxds&808k1@UtJX*Me;+Pon~!G;m#&@V7gjG$8I!3w7W5NtL7LkyATp zY^aP_r0;Qfwu@KPchqxR%iQ=?*x?WH0{RAnarECWXqXwd=iA9Q%@WNW% zw-Swf_fuYA)uK$kP@m_6gBLKDCHO?s4-1$iC->v8L#L1og4FQO>!t z!+!jY7wJRUJLo0b?X|b6b0$FFSvx*^c0D*J|E2_d6GJFFy|6X0(+Wmh(f0b`_W1e8 zlPs8zwMMvimEFdDZfG^re!4`z>2Ui>>f1?9OG=(ez zM`SmYuEd)NrDE|_$7D+D)@Mnu8l0`8w$L>AFPrzQzQAxL1B(R4rbBakZ4H1+05OS7 zMeZnOqP_)zEK*L?;!$AseM|lG{xI%aaDwdkZ@M>O1WkM78^upgO`XxgHfN0z{0DRz zUw8fCy(O(!UW$Ij!fl_7jj4C6ul+@bv9~Mw6Jn+_pP@OgzP7i8Xw)T*gKMX zJTVizapIzKN12*Idxg+$_sk^tc}H|}5H!T#j#>T$l3#PFKi_ihqTwCGy>n%|^<4g1 z`@0tx|8d7V5t;gdqrH?lyQC%J>@weShrV20xxXc%T;6bIEOe)f6*@PtuQD=UUnC&! zAHwbiR%*ND(<+WG!K^Wnqim(>n}4V#P-4LCrg>6&{6-k03ln-Gxy6^K0$zM8%X*cF z@KJ|oYwwRXgd8rU@R~5_qgZELr+H@p^WNoRU?8IWnFjA*0CxA>G7&AdVS>Q^a=hYw zNvHOIc^O%(cx0V?x3bJw%Om*NNOl94Ctf6Kj3H?;Eb=AAFhgqgiigEIndG630=@G& z27)7zacew$rbHQ~&R6vDcJv{f1%2es^8}!s$B_+8JlfQc@%l2_ZQgN>Vtsq6lT#TX z&F^Wzh*UI3KY-|d=h~IGm^A%X3HbUvGUr5!sg5UgJpPgRkhd5CVBY8wx7h=zfQwa1gmaan)!n z6Geg%c{o(EypQWI=)J1u-@TWK$IR8kCM_lHq=?+HSf@wz|_qX3b#NU0I{|^lx_WxfE9}X4{w*O1RXDphgqkgNin|K66 zpNPlg9t<4TRo}x-Kp*7EFVDUAez50Hk~DFF77}Sv*_rbd%bb>&=>TZ}jXLPqY3Z@K-?l;QT3Y7EW$W3WD0oD`mA2H^M7YJCu#{RTL`vh3ZBt(ohSbsqC?_aWQe zOI^gsln}z8V)ahc(28%lS`?M zm1efsmy?wAIzvx;|IO@p!c!|`#qUs#cmaB}Z=yfge{P?UM=#OW91*1%fMx}^M}h|_ zWIznE>SIr+pZ&!Uab!<{A_$e9mygWAx3zgr{>%h>NazqXDRYFmm}oy=DEmCh7Lx&<3+8F>*$G-0`*k{QTw%`uD(h?WVx~YmwFQ%IUrZqcpvJH}65u z_tM8m1WV@k^$#h@OGNKLR^aYteVfkdjUSv-w(P5mN0`++oyChha7g0q1^WAy*?HmI z)1tz}f^){zZT9fV+-JM&Rj&TTi#F<0EtLk)ELA zi)VJ4!NwuCOUKEJy##c<2SSVxFf0y16Yfp5K~EPx;s_wWOcMz|3spvXuM3;!bk|I# ze5|?L%gsdDq6hRz{E&vm!;s0f()s7YTnX|?^P)tl{Nuz#MYVb46NyugCBi9(Xs*Q) zp*7>A{-<#s4^_S}ML;Y<>SPdN5gj{{&nySDCh{&J6+ve=aVW)i>MeqCD6#kwN+YQ` z0H-3eDp6-~mBe&RucY07Mm(L{vQWGS70W;MhjS%Qhp;*1aJfB3(3e|V0{G7)9<`?4 z7o{XH-CVfkws1;(E=?Fn5Km1&yIKhSu3X4xtMWv*)V4X;p!`M?g=eYw^*uPm?@6~g zzh2B4!ivddqmUSIiA;0M`zY-n?tbVIX zajdWTY3%Z0705{QC1kslla8L2R?uWIjx?{sz4YEXfT-S3%S5ueRNJqTm|IP-kyCGhAcfyifc2xWKo-FvumIRQ+8+tutI_K zQ@K2I{=VHY1>H5`DjrII1cim)B&#LkUXXI}mGxXKlzy{G_*2ElPiVXURRP&nOT}4m zjny^R5LAMe#^l}$p=^fu^_P3LjHX_`oai^D7twlbol(jQP^B%>DT3#GDeC>r&y!JQw}MvGD1(OQ{6&9v5C)xaDE}x*o{6g~0;?^`O-YJQVtdzkwhn5&qp}bB~xJZ!0kEgzj;wr%>XO z;8nMJe|~z0?Dd{H1iwo%N5y~|9wAh!G&cG(+LdzT>;92&{#fiZ z>fu|V09^Qi2xI(6dwMMPW^5k0-G3yLwOVZ*Nc(atKBA_YG%6QgLBzurp492wFhg%( zstQpk2IZg&xe-t5l&Q97xn1spk$Gu542UP7Rg9IIT5-7SnCil3DCMh7F}DbZ8YK)P zCvGLdki-9*&~(Am#|r6JET1Gk$c?7I*$as3>s<#^|KsPTgX#E!vS5}g$J0Kn|L*AicH;io;^3RuB9eu<0t9@jpsD^z z4MC}5hf6nV?<-9>0YrTpMhj88>PGG0i*J|h9Sw5uLOvuvse(s{mP{FdUoL}37-afG zn}_64aQ1}}!Gb6qq*xyS((YLKw+Emr;lm{yS~4$|&)gntOjQ*0EcKlnpC60Y6^bjh zT2o?E&Nsll$U|r;ecQnCcJ*@MJwDaBiNkM)5y+0IWO_b>xIqH@R1`wb-2h!fj(S2g zhB@yCl%o+tk+Thz*$Wv~Q}!Qq-`r{)~S) zbZ`}nSE3&g%oL2;hmAOZ5N%dd&9Krw4`~^-l293(Ds>H|1pWxCd%UXVvVx=k& zhk}p2l&5rQSXXi|L~x$vIu~N!jZ`Nb=goW=pbCP7gdfJfLJvQlmUN&ml{!&`+5a%u zPqsO7M*J<|P)Toj*vqAkVPkX!m=YAQa++JDUrFCOjeQ`9eW*FFR5%|YzHZ`*s$<*1 zor9or{6Kt*B0+fg~ zbM@nsnf%VV`_aQ1DToSKo}$9Wt{ueg9sJvTf}C$2-^tGUj=+o58lGCp%N%<$eA!J* zbmnZ6?&joylpf;Rku{1Hsqrh+sdX!D`Rc0aFrVj**4+j}=-`StvwYM90u&2%M5;=+ z<#=c@OSj~io--65v)!rfIvA;aVzi5Yee5uR4yb*9QHz!LRfU9|KMhBWeP%eSycuTLDdz>lf`m>05ft}R^~ncIT|N! zxDve)+~uDY3A5i)x=iXbC9SY@r*%Pm}HK3O%nUPB)aFiV#1>BKI2DapKiVI3Z6WiHAlQyzU8sO!h1hM z*^?TSn`e;cV#lvHXM2_%4hYvA?e;5Xh)n+C&OeooEh`H}Sv$w2 zOM+u!>rkt;$0%#yPSe)NuA621pnQ4()`BXJNgIMq#84nV1&RZh^Dy5&xQEING`- z3wutZB(99M&!P)`hBju`w+63;AQxp5F{T>s62nnS)le6#)lf?3`Mv*^(I1#5N2rPH zJQc>wJpb;0(RkaN3C#2I~++6`pu zP+133xL@AH;KdX=z9ag4*nm`3XDBwt>f8oWADCXDK9ehp&b`8H5~|2bl^BM3<_0$ zjjr)M%4dg7gmw3L56#ou7yEbh;NiRSH$3Wx_!r*Kfbh31AzmDvNkH;FgbTE znx9Q}PtsD7ACJR>Y1a&6xJz(cB;cq{ACz3Ek;NBP<6$M{?7lF9*u@15J*SU48OIJc z)zh6L9@lO#?ZFgLlZk!$j4fnvgL&kl=Amr)J+YsAt5QoDwNxzxH7|d(HZeyyPwHd~ zZf5_o@Dd17K5#bdx4b`n%T|0u!RqvtTPKxa8xak2;#uj>i>Xe}!4RCp09OYq73z<< za`M3)p)Q2)uVZC@z~}-n87Dl+xw7?Fut}+73`UroJc{0y%=}j?=9KgrSVg~>@K;GT zyuj49gn~F-dbaYw!4DY8%>TvMIR)p^MPWL&ZTloAwr%6YwrzZ|ZQHi(oY=Ol6Jzqv z)KpDP&Ba{wzUbOr)z!OtW36{RuOr-#7a3g{%rZ{pSe8oETwu@zFyDf(70Qp8?R0zh zU)0YxIH0Zq?haTC#Q`RU+y~Z%{ZU1B2gmkRTe@fDw%;qx1ds5X&~gG5;4)4n{JGRu zU$NTkx`>q>wWWJty^CYgQbI;lT%Tv&C)P5=u}uqH29G(V4-bXQ)8nQ4a~Uiyom2X^u_PUTN`mKjPP^Bfzm@&y$g84%_rFpDfvav*d^1Qjw5znypHNqK)$W4>TD{j$sp^;lU#G7>krc!wf)!GyhIcK zooSS<@jkVjZjg)rvPG`&5X3W-;C@f}x<#{7?qT?QPtLcMWOqtl#|$FMJp7mK>m@%i z;+@DnQtZLY2BlY!>gb&`Fp+ob!Hd>-LCnERd132}!v~i@;llQZ2pGPhUx~1K7GyBq zz~vj|=qoIEWrC{{l*xVA8Ilx)i*LD!^g#K>PyO1g5r3#X$W!4WaZ=nK62@zo4AJTZ zhc6Q02tq#GWp1>&AMoObN8WEIsH?L59E3fKuF?)4v1MEq^Su>{?)a5r8I=HXiA3nL zOo_pSD#QALEcR^o6!EBt*Iz91GajJIKr|(k#^ZOmSq~|xuK%?&0ao_YT70lI>m+em zt)#Qh4{oQ~>rIN|Ey31;ZmmpV?XgXH2aXWTz)Z-jaZN}75!5F<2Z6}YL38gR`v+ET*CaZ%Rx!daAFG<++QkyCjRjm}dol>=i1U${ z{O?)FHdbCg@^hiT$zdm$)wx;y=tsYbapOzn*&~Qr`yDL~v2`A_J2Rg)cZ5x~BjG>K zobg$%R<+&wd$yg;U-Y(Hr+T(ueY`IB4$KcWY}bKGRygg}UoXZ$C(3(f#z8?UZrs25 z5D$UTD|^HVW)D0BhAZsAVp;NT6>w%(Dtg3m6i|JYagY>zDDNEiZX`h8boYhVEAKe> zg~LmTETSAWg!@4zkjp$(oXpC0Sx2ee@xVv8csGEO3%XsCLDCF} zDV{WSj307{aV8p=MgPd}*hW?<>6->jxGI~sti^xw&3VMe^7&L9`fBGQ3t54Hku3u@Oq@k{2I!|`47>LLmpFfNn zsDCtC_cVinohPY~*J>WpGP@>F=H2Pv+mL+MknIKC@xAJi#!ZK2O zN^hAPPD9DeoCscuZg$kCYv@Fm(97hn8iaw0dLEHfBLt;IuAFV>6YXmc?L=uuX|AK{vz>u22}#K(-=F#*U|dTA?r&@=EO-NDLL} z+?I!@am*^z!5vcjhd5~P<2b)5UBhj^oj91~E#hsy?oL6EUGtRsXLmd@%$+e@iZ;vIzd6sG)DkZe?1b%tiFYOX9mR<@q3UByAR`GFTLLJShci22x*}F15-b~p`l9t2hYK+y*rhC zMd3^%`Ol&XJ9Fsyl9C-2C%Ev)0F@v7642>4&@po_74BBx1tFF?6MofO3bx3F&RVeQ zL^4`aTb_Q8ZTe<%&mO-y^)#-gjcC4ZEYk=bsby_nL6Qa7bg+09{BL;4*48>0CwGA# zvVmAvZPwCEd--+<+k6lcM3kfh-LU!&sn=Hg>wJs&F>DCJzildaUG8bslz<6K;!zr$*FK8@i`O=!%h|qEuXz8b!I-LO${ux*3q7B7{696<=zoy5WeHYh*Ya+$G^^h>?3c=54+M^ygY--{h-*SfE#WUpxG3H?TbrPvpfP7eF!J_7Jdle0* zU~9zW>Lh1eqs9Kt+K{zM3XnTublsa`SVomj?oeg#3vH!(+PPUQy_nkS4&K(4!(Usz zdR*7VI_=V~d5hUuzsB#K5;(bVv2~h#cSg$v(d)fm_@~1&XiW;fyebBv{j=qk8hyws zab|=D+`Cv|Ggx$Mf@GPsKmeyWx26GcPd-V4t+un0_hrQ0NC1kVkI=Q2LMRLwPJ}?L zX^gp1cKLGHn_TA30uQCnSb-~()s%%NmkK1{W$86@&iD1*y_p5j>N6pXZOF#$oRKS#bank55a})(e$Et6-9Gp|Cc1DXR3*^$7 z8IJLZ#bFFaDvXYt!ax6r2b9$87gQCJ)4Gh+lh@|%HpuD>W2xpAp;fj#5>nzlezvaa z3Pfu&{uzh7^_W`(dJf7y`XUJVo{o^98w*0nsqvZgD#6kM&+-$yu4L*P>9-ihyQ z>pu9@&o7*glEJt8Q_B&Lmdf)h7%Gnq-{DIcHe#Z)2&c*Nqm(d(6`K$q_HD@VL+D$h zx(c~La^t1W#*$PREc`UceSFk2MTEiTV#-6m+?XCg^_L!n>2AEeqWFzZA$9TBi9>WH zSfBC<-ACph3*!>TeBV^w^7(Y=KCza)D6V72@07;1mAIaLKl5Dpd$~t1o@?HLIdy@^ zjqV^RJ%CRimOt?%b#rqL$yWf@a`zENH(C@P=(X>!Q|kTr1sSyErNGA&6Q+y4<<9dqbpvK@2#Fx5Xa6B9JE{TlE)80v7J9hP0sT z*9b0~PS4uqk?q9q9G!7Y7TiipZ=iezbuvx&j?~Ip&%wz>AC|NN_iWaip`p8jxjC1n zh}FB3aanv?|LemZaHChbJ;L~}uSV7}vgB5>lg(o?r@S@M+mvo8N))izsfPczn!=bB1`dfZqtnAlw*#Gi!tVsNZmgtZdhWy=w3bDZ*8-P zOoSw`lX4GT(}JEX1QrDKw6IIn_RDiF9Bw+c~@kAiDjbEl^=+l5Qv|20aOIlL{K+O#7EQ|h2 z+DVrS+5j=|ax$r!dzfmVYYj9m$wyJS(A}$Y96oxIcqGxzbTp;W&Cn?=#zgK_1O|3)gYuyG}$t3HAIWoGE{C=N!_&xa~0I zoLgPe#UwjmtV-Am2F;*hgG;(q*p@vVz^+Kd<&I9S*|RjCrB{JP+Zo>MCl2Oga})g- zM1BTjXv&Yv|7>(Vw5tyr?OUGqwy=NFd%75p1^OLb8Z)NvF&lrM@zNfZ#6DV1%HgT& za4s>o|6ormL0_ABY7`WrD@fu=5KN838(X;V4}OOHnF2fCn#IL5@SL3A-n+XP-(2X> zV8rUE43X|a_=E9gZ-`rsfDh7I65aDPxmm{j1?%#&qYYV+FHm_1Z7B)AHg6nBdL+hrgU?4_$ANRlBao)X(jC}5AZLd zF0veXeRCb?nA&#M+AQt9#Bu)Ab?h+Jpj0!~pnNJFXzEMm8fwGRT0}d5>pmTNRQZKF z{JT0h0;xUds)^*;H`iH+(PBZr2}nfi&cyZZ(WNZej920D{&Y${%U%C!_TxWl{7h2m z!m)d2Kimfwwu!#F|4h7VGW)b=%6Uram1NQluhmJ5`g3aKcVgUCzD4(k7ic9Sgu>`C zEZb8=F)oO#1yTl>C0rcAtHr~wFZ>N`}sWC|Wzu~qao!ITJtP-O-;fiCOI0|0kHDcut`OziK z=JAq(=s$BVy&D$9Yt!q2ft%UZ{c4w?hV5RftCtM=q3R?QvXh zKe7%OsyKj;dQAvU9PpNPPB}{%Zi|O z&=b#-%Jj$@DO>u@o3F4}L<+E@ceczbeL-Wd^UFSf9X$v8I62z+w){F!^3_OnRmc52 z@cT$j?Rl-Gw|Vf>4S6U1YDGk@di7h2tvvQDku1|A?4Q?IXkxG&bP&Z1*VR>qER&!3 z>e>m-p(|cKQ5q6K#FH2<`DbH zDOV4m!6#h$@)5vsjjd$vB=KEoD1un~*DF(A-ijEzZnZdAh37DwE@@v4S4$#sXaXVu z)l~-+7<$7d_rjj9y7uZFe)$3d&0<-A6W_{ zvDge75}+<)5s{fMnx{7%Z0z!#lMdvhx?l&}hWx_D+@0UX*vuW&+7cdX9;H%qKI9}# z={oV;>TEcht|G$&Wdl`=|Fg(M1&JR;;?5@&e1$YQw}9G8*>N@=$!ELr6G6e7=KXe1 z%t-bATr`DJw)y44O9mTI6yCCwi%{H6dZ`%5{k(Fsnq32tdR~U8K>JEz_CbPiY67vA zfTGN=d9?~~*2+H^(oOlGq4$ntODWhtzH-#>+%z}F$uag!2#~!$8Uy2B=%M~xT=YJ3 z9NPWYM{_%j8ra6%7~QzDb2{Zk0wop4_gqar4`~uDtoyDT$0A2h7rW|+WqdP2Uu*c{ zZl!N$L;&+|ahIAASd0Lw_6v z9>+5O@+!u3bHyZmipoM;t)R6f8_H-eDkjCVkAj6v*cR`Youg>Kmx44aBw}$9E1#;t z9#e~_sfg_1dAa_sNTrh@sLc2Ndzoe8TcgS0g58a!giC5sija2)PDDB9K1j%#ARGz! z@xtL2bP=5Bo|Gzs^OVFl?ExVQl$H82PEbo4B2qKu8LZ9Z7R#pJThYy=$VXBya~Gn)phmrIs* zDrudOBCxy}ND2NCfICY_xPr4E z8gOwrVLBF`4=$*!VZ@Y#&tVOvd`ENni`Bq{=E&`3@YJ#{rVb7Li@OF zUl**~3Kuf26R=cJ3#Ih{&DxF%^qEk{>KN X{}pn!LsuAS+Ho3S`cBOpBT_yDft zR5%O^yx>b_9pBm6p#@~yc*{--14Dz2!_BE5ca+){AmMi@H&Kmtg|CQoIZ+i9g&2sT z;NPr-B-8@Jp^g+#)Y6G-#X}P(=BIc_>c`*}+CHjL-I zM3VeubYWk(9;xV(N%z@PnexZA)B2T>hhTQ!*76Rc>Fg?Fcq{Atw1O}we zCtd_8M9j{xZ1CiD%gVHCm+VndXXxeE(P4}2Hgh7aPN1LmCfS}}q!m9Q$$cu4n1{*C z#$yL=eU(j7uxbQlv0}wQ&0_ht6C^x_ner?wTSE+yTvs<^hQ`dfUQ*AS-##E0=Eu4@ zfl8*;0Mu|Rnx(q5Q=*kp)XjKZUuv+peutDX*~kxZQ18ST=76{}HbY2DH?Ti=--AuZ z7W~1>R<;IpoW&6hB*GYkP$*>c6PCJSY_#khCl4McP0r=mfP$Z>)*JCvNcVIntP-t5 z^_0^X!5{Z;5+l!^@#dAY1=8S(9kJ?y$-Y>D$0Rt;_iDYMH`wqAqh96e(P>?Gi8&RUz5!lZ~@ zS*yd}IyfybenK_0tQnu2M=Q$4f?Z@Yt3dpE+U)2WsC*z?w`AiB)MMT3`1*x$2k6XY zqhgte&g1a9>2)(3c(Z$Yy{;PFbs0ok2?K#T&t|Urr)7OR7gm8 zb0n!{Eh8}nBz8SxyurSc(v_L_&qw#PM(*2&u&5QbheDoa-|WXa&ZzDpY8}tF(k4Vs zNBp6xhe?FPoD?7&gi@WZvlLRbLnlIYvP+0h!s7ypPV72e36i6?nx$6!lRj*sIUJ!b zp>O`mp06-$RVK(W$wI9MdH~B&=%K2%1W6L6)B@*UfC29T+`#6Sma1~rHz>rZ1!t)T z{!J-Sg@3sQwTJWp(M(bM_vt#*rG0meRx|h+G-oyxY9j&Hp;8Bga#^3uOIDje412D= zM1;n5)N0I_B!~gijAOBdDq37qDFg}?P8_9|bj^NfWCU9oTm9Qp2~}$7r4Q1J{S^z- zaUL0tkIma&p3{+3J0e--M$6~92OKdr5~1RZWF+&NbVeA%h2d*2WJS^iIf{<7s;BHX zQ-VPmgRT#l5rPq@=L;&_R7WNgGaQ9fmVob|s^w$CCe7y(2(D-AMgcHmF&hAx zt~RBmRrw|yuJ=I<;UpHzBcP3}9_H)sTeV}wuHP#oph?*t8h)gk&%Ik2M#&z-m?pNb zU&kv$!~A@ih&tb(rT017i8@#RrGEkt<8%3gfteTL(_Ce{=TGDYzs2)YXAVP$6){T1 zKqaDQJ(LGvTaMAZOE3ZUA3ND)l+5f><><02V9%H?C~a|LN0r)!Hy$0ik`Z342n zLrny40(l|9e06zsXwRdVQxi*jkACp{IvS73$d@_;NmNH`7mQF&$;~A5A}G+0RY>Zh z`4Z7>2r6}?bw(orCUvx`7v$L!0S=lcwxq(sVQ@%`RkaW%bU0!aZKsJ*T;SxQc^Gh8 zRqYE%Ycg3=P>PmJJaY@xU*KtRV0q~3@$(im`sD0wQf^}tzua3~O!YZ+NFuZdkZTp9 z8q#TE9C2WrRg3a543z$eqEwL%k8dkftk3POPhe07X4ps$qg9X3+E_kUWgZ~2S+!c^ z%TwGeg$&uJs@0SfTlOl96>D;xr8aalltC;T2&+CyD;#9R^qYY_)cOvuUm@-2^hGg|~B^qT(4zcJ*O&?QQ6YO?J!J}F(C=Vh?;raarkLn6y9p9`q zuqX+AuT1twHIRN=QHBo}o-2QlV?%5+RtFmRxi$>2ej;}{<7t8J7`=WiQd z%fFPA-5WXY2&h(GJI>cvM?TCQ@6)W%{L&vOaXu+4;qEeWZ)$>T!FU#J+Fo)y{2u*8 z*T3rd0Y{LWYvctHuxcFp5jMh@O+Pv(+f0Uwzxm#Uy5fI`7D2tlu8;w?vO#p*@Uc=< zzOovyji#J*QbG%O{n6L5C^JvY|7w&vo2*sbosF7;EP#EL(t?}%Zafr-^pmjA~BHd0h&kWo>Aev%o=3Hu4jF?ZVJwps)9gM zs1>+~r{D^n(akG2(p`$liz28kTD%|uDX3IIBH93@`qdDu;#mTg;10=NdI4${d5pzd z_^kq%eW8P}^ND_}-G*ZXKBrRZMJ^46M9!OO={-w=@GtpYA7Xi@lKuqj1&7|o8rSJF z@XN<5a3wV@VfZyLIMGxf5wp_W&O{i)LDXZhwXeD6nk!cD850x=mh~68N_+Dw^^)CL zt+=uci$*(PZ#i2n-56)oIPCIJBq2joB{P`-sCZq(=BzOt7UXGXJhwTgZz&M5{)D#) zW1+rNkR<4SDw(a*Tuh`ZAJRf-+dDg9YqEiW2V+6&22yZoBDM(0ew49_Op50h92i54 zzF%pzu&%3h`QBT;^*>3S-x9=J<29ZMvQuWl1=+A{c}Onknh@c98qK-EWgGMrdEN8s zNDKhp2IT4} zX~jBg@PlGQh=XD!O;0EuN?2-EllS6IK?X-&Y}`QxXYIdojnjef;c{MbT4h=`?&D1E zG4%72L-pksLTMAtsyy@f&1jW_98=2s)X_63)b9)y(E2rhF7pf$l4qlX1BJiUxH70V z5|){Voe-b8zli_j_M$uQD!j~PiUv0eoczISQS z6I|qf)G+A5);n@bCNOREicKhhnsD<{sNO!eo!U3%l7tO_o?(i=%+ZrF_= zRe0NS!cO3+PW-ndhH(dkPb~C9nH65O!@qB9Nqh!-%{*IJHtGfJ0+PA<*MDUkwk$Op z2p;)``%=kz-afBrpZZjKJ1qwbIKmzx%+DFPb}8jqyW7S^q$x{S0^nyJ)iqV^k@X-V zPUVEc1S3dKgA}zKE{-vbMFJ5%LQo#&&|yp#ncX&!i#HJA|%KdWR$`_C|&@-|Np z%6=PKCz&%^w*)B`fk-Uc{Ci)IbJtTvTDvFeibIbBVpaI5Wa~oVCl)qHAW0%KuEPuk zk2E39vk3g4f)4+$0AXFBI>41UKwJ}&@t8_)Q2rura8csIK7qs6UNbZx!!BhRxIx#? zK{GV-tbgGb+FSKJ7sPGP#yppG4jzHzg}vF%TT=|OJA%n8A-V;=ZHc&zrZ``sLv9g* zIH9MfTqp`+9tzj*vQKFgjvks)&=a)pC<3-L4e=Js--iARDv^<>2Sy>2KsduWJ_?0=!F_Bv&x;dmNTD5696)o~2FzD}mKiYmHPG%~(9Rww@O*`+4bu|P zynm_~2E}Pp4Wrdxi__Zt>-{5|1WM^4s}N1Q@W$$FdnE@gwl+9Re#x@6&IrX`!?v5J z&PTNG0nJI4tw&IWkscS!5C#$Hy?&bfn;^19G6=I+6rHPm#FJQ(uj8=F%26rm*=oPn z?`O+NX!eUh;$JFBu11jLB0v>jg2W(%7r%|>E!(>|{5yoG?M9L-8Gw~Q&<^$cN8%X{ z8lAjMePjs~KH~OC!EQTSs`Ka)GDk3Kh!9@lva+@M{#wZ-5$FGWf;?zQd{DxO$BJ-$ z?F=mQ(eMU$-2`IQUEo%_W&^DZ$v9i64%w5fmN|0B9yZQ+~JjVjPJgWD& zn+7+B1%tpjFvJI*;igKLZHlSsc?J!v9HEz zvQ_e=f3wk!_7MNhA08ln?Pm+i77g$^H*<<7eby83v$*~)mwh+3*$%jRVs=-;00eFC zuQ7q|G3fqo_(P1!$-GoJpuygM{v|_|DL)ycDvKDZ zw>L&>uKys}jRl61PaXdU$y_$cVDS==lyHe=#rRhaw@$P&q%NCHKXGq|B2g1|wc1=z zL1Dre$kLr63ndnC|0h@LS6~Iaoa6#jUZCx(yHy$4`oRc3OF@k{M`~0=hbtQx{;71O zCbj!LZ?JxeU;A_$$U6QH<|qlB!M7Zi)z2Dz6ImSIT6>q7+Ks4<#ytDULZY;I;@7!Y zzGhqMQfGM{6%p~UHMyP}tTas?RIL1~)h44)VW}3cQ{xwS)Nh8V`u6zG&_uYjh*{1Q zd(KmQ5-0LVe;2orooz}%p&Mi|G^L^M5&{ z2O>nXe|k5Ad7AMm?c3(kik1n8pfZ32ngc5@5cobDUs?PYr8=X?%l8-Nbp;uW&Rq`{ z<|je|yKrRlL}bvnB1DEbspHl#k$q97F(r* zY8SSFx=V%nK|FubOhD&=E!PWAAyO~XhGROx19QQG>;F{T z1y#b zr$TUg+-Ws6-0*Q(*ZVA#weELyJej}`HWxs@K@N{n1ijh*Tb_yZ`!nTySHkLdtBs4Z z@O0pHsVP4Rqgje!w+|H#&^O+zW$hRR_?f-MUdUYvqhYrxI1kvo4N$0FRB@3v6qGx5 zqo*Iwe1Lxz+Kz*=pUJn!wpTr_%nGwe;WMChf7tP?(dT{Gv6I$aI<7lLcG2fJpjFwe zqg38*E3%fB2z{~(H|ckvZ?wLUNFA{c8N#i?qcU}llAvS6aph=@I0++0npz+rTX33u z1C&PU$|zdBXns8OsXpUeKs4z}n}(y|Tq0Vj!y1tBn_?kHDG4@dmC0W8bRi^2rIw31 z*gj6Q04w3LW3SRcyOWNc?){Y1ah&z4MPKt?y$$;!t^gGva_b+!#T@!mA5wz)s42T^u+Bi*LRs<3NFe&bkx}D9q=$%p#*H=34*msxU{0{C)0@z=Akk{kLFxFNp~ zsj z3s?t8)5Py796%T3mSN^`WQXqc9vGaohVulBy1#^xl%>bCD8Q zf|Eos7XLLRs2aX3fNz9C0GyOo9`q{UWm-RBTEwjmOxE#dlp#+CtLi|j zJ4(^**!B`6f+VG*B)n1v@(RX}3+ZsxzZDk(8QIIuWVW|*U!%@J({3W_N{HG~Wv&+Ydj%LF^gOoRKocm zS2F*+Sr-$XHn4J;0Oag1h~82FqoapPhu&Wa0s-=xh`THTHecGOIyC&*)nFoz%?$b# zLal#_5)v>b+el2IkAap*!t>Rrh@jp-m~3d634rR@NS(GTi3b$(-x;9#Nn zd>e4Gt=*yMe+xN^`@`4|OdqVkckYAG9&#jk$%Y8Vf*XcfeEHedXm$A`$I*`HV=Wb) zPphSg9=(25FwntG@UAeb`A`eU6&-&*iSsK0PLr`KKxSLvRH;#I^-0e=jzHdz6_(sP zbgT7h5BEoy3CJ-S3x86P1cI!ayk)O}=ce@LcD^KC(QLX%ca3>}emgRpNjW4Jz}FkY z*NAvD_wP&G|2D2R@U(8grS?f}!*RUo?^IyWq&v@(W&mZZuUVjNcnd&9y79o7&eN^S z%2|X<;XGs08b7`&wL$>3-yla6oX>Bx3tS}nL-dD)+hj6|3dM+d_83u$y7*ExyqCnJ zeBqG`!6MTE780KfGvLy|Q7=2kna#0ZFi49@MY&i3CX@iZ02wG)Eiov5Fb$b`j_g5= zuM(qbN@0i(AeOkbtvCug#tX%9LyKm40$kb!KJV#rY$UnAcii5xz*7TMAxVhi0tutZ z3+F2{le{urLIQkjkq{~?%b$gqhl(q>w8v9Di}u_VMiN1a(eSF`^6rezy@nhNJmn;% z`Gp+(s;HQ@;Et$&)2pgC62qhg)o=^@h`umNkHDH#JSrN|pBAMF2Z5awgwu04tnnRb$bI; z|I{p_F`H9wPeE!Twvca3)PS+eXdzTdsy_^x2SH0>L7GFKW2a(MCQnqi7i0&l1f;p( zUlS2%b~dH6Q2V70({nu~l|v{4;SuzkZy%x6QdSrjs4c3>BcU(p&P;;P^M7`= zXgypz>SlI(iH1JJik`aIEOvLR!lw`{Mi07L&MhpZ`e&yu zo&aPDAkcqAaB6UHjwL%_Du`l%d1Q@h(r)V!-UUT_gUWOUxjy|>?h8{|w1{=WF0+EMZ!x6<>6qxtgo>YBy#SBzB$@cKLT0|90h)-s0BF)zjEPs&&Oe~T@qQPRe2FuQUEQa)YKxW~p+e0>0?BcFshVR*feri^n^T0}-bDgs&rTcDSqoVB(=-av zCSgpw0g$`}{S5-(jlT`&`i+zZD7C^ zEGsWxZQOq4@&?N0k2`xQ47%AruxaD=y;CT|xtUh-_g35Bn=dlf@8<5L zSf0Cy9l}ZFV=J-xKQGz-xR0F-bqEQ5{37(&PbAPU89}y)ymg5Kmmy8XessMdiq!QP7v`Cx6;v{5H;mXi2o(c;+FV?9OrK; z07E7zM9(@-8}?qAxkKuYYswO1V3{L=FgHajv2D78Vh3mSb97-AZ=-I4Gc0s}KG@l} zqAJ_#%wGk6a2ZuZZ~8xDFoQLoA^$4|)7`NUc24s{4)bZSByRnmF&KCa7t|#X+}+t5 zSeTed&|+WJllYudSCN}kALmqA5z2<%xRR{T;zyHmFP@?f4x!{&Nn*)=q=W}c2lTF* zp~1(o4$9lV!~#2&;WDd1wxjU+^!rzm2w`P0|Ag!i0S@i4dhp z&_Lx7a)}6#PkYvgL5QA*Mtp+NQi2olfa|Ym?1(FSxWDxz{;j_u+jdjB{+G5zF(1Om zwRrt5H$m=h)=-Y*m)h&NGcMOWWZKh?_b&JK3jHo8h1eo?9Y-Su%FOz`?n61}tWpJe zkW>B$6~wB_2>|Wko?rKo-ChZ`ni_TV8G1J2XPa&&e}xmw6qrj@?gx4O6Gco!1*#j# zO3f8Q!5iMMp;<|@;g5Dok6{S~9644XN(tzhB=Q-6#;3by;`6B5hSJQdL z87`X-$*6o<+_dUCz(S=}O0 zQq%$;0h;N=GfHcBAuoqA<+kpYyr*Hl*x0`2E7V{(pkf)8=^*lGh-F^g5>UBq^%yX5 z@ytg94LjhqThQ&1w5a#gkZ^}{ z$|3);L)L$HefS}i)BNFnV1zoZaOMrM}(ixe^ybJ;Py)s;JNfT%y{chrzeBmjU* zfV&2@CTfSOppUalSdn*eOBRWbL{oMBcinAw(=V94q?Sx4eYj6T{`nC6wqkHr`^|-; z8+v!J@I$>{f6mqa?(q3a7q+U+Gx>U1{G?f*uI#YKxyilm&E(U;J%JU#y~*U?2*3rM z4e{mR}>n@i>Kx-k}2ipAOyWzO*^6v_~VUV?>|b1 z-)k@ZV0WzNKjKe|v(%M;pBr*p7F)XV8!g$X*DLRFKal@#uFpOG@8`&`k=E1?hQW)E zwZv2qZO^+|g2y#@lxp9-t5D#_*I>s-JzYn)l->DCGlSjF($JL$rC>hDBoTW0wL{zmJA>d!0TS6V#0YvqS!AEYXQg|QsXf>`gpft}qezZaWQdb7M1 zCQJrP`shRxA6`APu@2YLD=z$Pv%hbv#^LFM0~HwE4Ad7xxHb)nBM}yW$y9?+ZmM-v+*jQKf0Jk9Q>her3oiC-NCbG?6OdFa(IM4uo- zG48Afn#MlI-&t9h9-!2+DMCNH&S8<* zqHk9y?F$!9eQ2fX5Dv0qawqKzDmQr)O-@Ff?y^1*sri zpZCMJ3(&N({Ev|HKuLKx_VyhZZhW=p$ffl#&>Q(7$-byvXSQyv+M$>K1{rj>mfXb& z@$J^L8^W1-a*}xK`&4_qq6|q@8MW!Qm`l&vigP@xynqUO^U5Lv%i+z8UeCa}qTlL~ zM>;?lHh#uRt&Gg$pyE0?|HE|QFO6+VVb+D@j4{J?3w!G(e-G}wP1}5(1tntS`rH79 z6q>xNH9F4&dxPviDYVXF4^g}S_Kb22mI)up(O#(3Itp*PSDk%_vw1mc>!sc- zP2EM@-6C2H-2lWBCd^&t-%U>ysbh&%VeH!gY+|HzA_`e|nRwi1^k;uK5a37w^$#ZJ zhHzwtZ^5k4UrWqilf*J?ZX_^Fg>cS-RQGj(Xsm}&h{6Z+26uJ)Ymf}uXb|Q-Sfh+< z7;&mF!^GYbt?ge|F5RyE?%Qw{Hm#>v1u=99Hd=Q;lFh-Jn`FAWj&{{&1ZWIRC zo+LRsQCjw-R$CSZofPo|D6G`uhE`-Bw`nuo!&kxNYa9+ z{sfY!I)Y1poEJ7}$IOrr-AyEo=Lx@7xGBpK7hrKR#d(v7|qU^GO5TGR?rcF;E{KPZ`5-HY=;|775T2lzPT+`Wfnoux2eG)jhfEsg>GB%`o zy+sWxY#SiYe{679c255Qf608?MoP%>F`g^AM6$tf3H4)1q7NZ{phdP_RC5R&BO6C7 zfth-{ds49jZ^daYT@?c-9tFkEp-;T{`$!tFv-n&>D8Ns7lK|Gj)br1!4X5PcF`p;5 zrk9g1^loi-+CDbGpMv#=G4P=sl*VZ+%SMRtFwa$Mb?%)%w1#;dn=pE{fECrrt2aCY zTy|=fE=(pLQrX#KJZMSt{GdZ6J{{|3WJ$obT82z`Dy*F1QKOc6|$w%k;7m>f_ zhPuX1D*SX%s*J}`&Qzzu$$t;M;tP_K?w?rk5L^*;#Tk7v4+y&hA6rcwX9c~eOBwTg zwTE*wgDR66468sgxqgJngZ604<9#@1N@J{Oh$1<;M>fes%zJS6kG#B_z9K_YF?JCJ zg&`EA=lecD%wJ-~9t~b-=AjT8B)F#Tsn}G7mmR^H8ep%OlPc1hUo%;GBFJ3>lVRpF zv+k9g&`C1~R#lQ?nzKTqf{G|evp|!$m~W!+Js-2?27q29d#lS@NJ=U{IDcB_RluY& z5Sd`hz*qSjdW;zj!TH+ImHx{$g%@o#D$8`L7H$F*jX>`YX`l)=fUDA!Q*gpbqY*a^ z7^oh)xH8YkHQ%Z%*_NHi!+H!4d|ErHoMU!SB!km1v^`ggvs+6Hh{rbhnkIcs zDMY0P74sXDjOkZvH`QAgdQ1(F6dDeeQ3Q$O7$y86WflT`hoU25iC|&2#7^ znz~TZio=zak*OC#1WXI5ZUTV^u6;lFGFIvN$o?BV>bI zl0T1x!}Rc&big>4?T08~Av@#v{JD2YglAxmh5U5UBc;uPs53E&lDATH(hln)*21~} zG5lgTp3Bzx@gOe2{5T_#scX5W*U8*ri5(9gZa%;&G#*Eka;76OnM)d=WeH4#0UgRl z0ITRUM#731om0K-5$zs3q1$P_8tYdaniDb*)w z+G8M=RmWD|tH8}KuNSPotCPefhrArK@s9@yCUVF zJAs)|IrG{jN;!PmBc8(~$~}R80IK`qn!Fis_=F|Oke1mZQ9itvQ3XOmA zl8kR>R=e?&-8_^YmxJu~>C%#ER|C`Fz`SQclnul*e4%tMWGO|P9;^x~T^g`WZboGW z_Y5g)CL$`)UiOx|k63}70TU#!HpRyZE<+`mfmJ!fXoFPIs4ib!uQ-R=o53*#tJ3}IQx)}I>ohDxbmEdv!8*y;d+Ug8%( zq8A>>1qUwV?-ymL05bu^1oLJ$k(`i;kyi;ugqE(dQb1OP(P~p znLfRvaAe^|B?XW16OYQ7eJNp4Ut|zxvAak#DQkSGGG_iKBk(jn8F`XuglaTzi~y)5 zz_p<+dZYk=y6U23K;(cMBu8o8pGBUNmw#W~ecP?-H!T-H@6!()jTj@O7!uBjRI_3# z(wEJZhEF^vps@1U`O4dj$yJVd@BCtNV70)M zz_uEM%eV>TQVfNpcoi8|`6vPq-!?lI(-u7<%CI0LHcvJfiM;Ic;x;u+ zQrEE2&z!bbD>wQ%_350CVxylD&l~-e-=jDBIc=Xipl#jhyuD7RYj}Qo-{>df?*+6s zb^7{!OFBBi!rAv+8aMhmUFXX6Th`~*?RYBJF#JHI;sXM&;*#<4$ z3%9}gGX03)H}$>g2hh*i9k3V7>6|#`ar-mcES)UL5onX1`iUe~&ytWHn+3@NTb4km zNLdf}H*}jg1vfz$<12{QOyK+E}F)IG`s!vD7UY%7O!uM*&Ziv@%lIe^n9N!*|1G`#((}zvZ%WWXUf=!T_nPiLASj@}%3juk?W5tg$jc-GOO`dL_eFqPD(FQb zE^_P1kA{nSci9dOi-P!XDl~TNFTY>x=>Z?e`V!pA1+Xs#eY6G3#UrcF`O6`&`rJG6 zs<>yiY+{x&JAg#nrB@d&z53nrqMw(YE9^qssGpaeDXgIEa+87QGk~<&cOmXENN*a- zA(ao|Qi3AFkr85FBO^D=CfV7xd6B@bs)--dHOqPT}-r9XlylJF{vTD2Ej2m z+U|wY+X-g@_Wc5@?9dubQ0yCnN^jhY$90ghp^Q5nq$CbHG&K=EB-mwjq~th*;w&1; z&*(5!jZpcMK%#LWz~umCc4N)kEY98`$qxXGLBidn3v*WdyjV~%i@ghZJvE4p+za`7 z+_N5I_`>uU3KDG-?@$}>0!Yw_c~%$NP`&NAT99Z9c2l%BSQO72SmZ3)<`*K@k+_f; z8%d9c1s_Ahc zr-k!sE`N{<{Dt)0yw8^xRy}r-unbGheZCUI@jz;*7PtA)b8EY&QC$dfAd)0>?e*E5 zrt8Wl2Laq5Qg#LD$d`}`&f@{$x9fcBK~AK3N9v|RJ~8-1zpfDYK`3t?)=%X?Ch z6oG(CHdj{B_=Ms)|N99@y|TH24Q#+2IxK-p9}23&0l6K0w+G}Dt&sdyhY+6LzvTLS z!@JzQ-Koaz@*BJ6kgQTdd+j&WmU7QhZI^Y$!Ai>j_Msu5ev)}Ohl(8tL@b13D&l$= zDkEP+KNH*@hRSnEb8~etDSaz)86^bleoa3MR^XvLPtCx>CxUa&}oq19xF`Rq*{tCv-Lqpq` z1$x4uiDk|~G+lEeG(!ywpkg?xo1a1VG}zn%n?3NBbZYSSYo$LyH}+PddW(R-x_>oX zsu&9Qs*RM>myF1}Wl%d)+F}sf7h?~l+6bScG>qOSw8b;w!2V<|i2~tsTQug4c@VvnaB365QOsx#JSKLckljR}?vZpZZ##|Z zLZD?Ls|Eb|WoJ%XkypTS0VI1Lk!iL4VuXuNfIKM7HsC&ns;mg44-Kr4>l932Vv{Ma zAOXXt4ZgTjQHBuljHc#!Tcxo;feR~PZbmzt4F_?94T-j%IBpOu1sk8xPa`g7Eg&@6 zXX(Zz*ckf^LympcV-8$32&eMPB#5sT1A+2Q@tu_~FDM+jyby?-Im$O!(W$}TAWFW7GPT7 zy5{y-kpU=s-8xZsME5M|-XwE(F=_w!FD>UZa~tVCgVl-p`$1jELq18In=8WT=uD#ow_b(f_hi%TP`VCCh3o0kM6a$re&0BK_PM_O= z6fX^74|mR-w*1&Rq>-K$70NPKOWy&?G5pF|Soj6b-l)_@0g0jS1ym-rIXBkzB;{Dx zoKVJkn}B${y#T@0El;zAIuJZoV!}uO$i1&2x`SCk#nz7Mp<74xITfTmBUz>5SKz%n zV;RAhC9Cp8I4oJED#Hk@8j{)WzcE<_f&@!8%INpaRDrkwK zUV%C3GISB-Z<-Zt+TXI@?NyypNrZvCP*W>_tRcrc!3E*uufqWBng=X>UxM|JIzRlI zb-baU4MXOD0KxaM&aB7vi)@ip)9{HA63`>9=40X_;vQey+dl^d#2X~Wa=y?Ge=M~S z$cjKMEP7v}W!QQ9<oWX1AeOyW!ZnrW!kup-D2X}@W{i$}}; zOpJD=Y?AzunHYA`^WU0@k)<$BCT5=1y`m`kiY5uKxLJ-)nqnH@gKuuj^2mCRUB1(C zDy~7m7kc&u=PBGA#{#I+?^>>>Q4XnrSJ@%2X}MnV4IaoLdq0B0fjzWb50Fm}D&E{Q zsy7Fy=b*zSSJ9TPyi`l&C`AaM2=4XirzO%EtMybE1ZGIR-UkpAtP6X2Ph1-Xim3YD zfvT(Z994^+zgiD{+Pzv&4O)8sYCUwR^H>Y;*2lzP(Kc8NG2Y2WNAo44rR!{HqX zBbyX<#*TyzRPHLMa#R4qSu21xlq3M<7E~!Hs56#FM4+y^EF-)_pM4>RDyt|QsN9iI zpiJu@0p|X=R3N*@YeJF#pT~PE$U|Y z&cg}?g~33f5*?U+H@^=XD!39nK5SIHO)UFXFo7{cc)$@DnpG^%6M_@ve(w$IrefPs zj$pw0Ns1X5Gk{iVh4{ie6~aJBDIZHBE`yF^H^{|ZallrX ztoS)n&DzE5s%r6rmw`}FXRg!n3r*$~HqV^7Esl9SpgG?u-(G6$+?4w;UGrWmW?R(x z4iGgN?uC)~>3wjeO{S@lwh(hTl+Ls*H7#uT8BH#u~Sc;j~%ak?YE$ zGr6j~AOXox!k)S;Eq$qw836h_mZiDNR>{@jx<6-G+G$K5f7U>%?xmkKkcSSo>ApT} z`B?)Ax@XC<;LjS!KWPo*iPcQ}tbtT%b(P%$Mh=_9vf4JaRvyHIx}PIq~*vpkntpvtX<&X_emlxEQz#pNc){brG-)@0anqbmKrap0K9AtL0HKN z!3SJ+OP8PTl;sINkbD^eyDSwG*Ikw@#I1OkB7R9|L=VM_Z$KDaKTP?CdS@sCsCeGW zv5E;g=rCmoqK5L@xuEJEtC$e~SVa>lb6N5&=ohF{mb{^63cjF)ry=XIpJNrrD+sKiV7-(S}bCY0@!in7%?*ZWvzY{!TCsTlyAzR@u!8reF?1 zN=TEm9fXx+tUxu8hV;?oUTG4TDD7c>e46X&R7>7X%2R?v&v z=@A(Ks0yh17U~qXnqkTwLCFLb7TA?e;#Em*84zb zhPD{85@j~pEZOTS>kE8-l|b#hOn27ov&PS#Jns(H^xcsb2{?qO1z@51&EU6c7mNTy zR#`oRAXX;Gc3??piW~}64q;5GLyF!6zE4Ic3@bJ}o<1nu>9bBC9k@XdbOC^xC)fNbd7Tc;sYZC9%?KMAyq#1;pOjycDNRHX z5Dy#pJOgXWt3=M>B9cO=YB|DddkSx$cZa~A)E7zm`754y0JPp&DrKU|Up2R(7N1A`>sMR4hFcCUKS;zxi;Dehg{ z=>t};%NqC2TCSRmq79i2*RI9HL)Y^Hk2nU?RdmrMo(VaGf{~{6Z#AA{LxTPTLS#dN zHRlTfwDzd2L@~5M*6h_4=ixno=Z)1fTl>FAl>E|a=I!8xV0%9aiQfem_Pqs(zUp;f zDM)&F6~06cJxSdA+twa;mk<0dh$rQ@g25jUc(;ub(L z6i=N{Ko4xjAnX|65jJBGcFbMou|YQ-kYh|AC(*JzB#$gx$q{@*hNl$>QCh$nVSYA8 zi3Ah50j;6ve6Wivhvr$|GegfhR^mrsDu~?-$|~~<0R(cUyj#!uEdi+Lz+q9HpCGV0 zbwI3bQyfk6L?9p_VeT=y7b_U66q~t)YDcTRy5cSd?Wb(smVGvhGbx(~A$b9W#oXFU zNVLrthVoNVgYZ&WcrhE*D#a%tW=vpWlbh0`K$@>Hrz|C1^aaTClyTl zQo$81=$KS+fG-&206O?RsbFtC`9p!mPbxU(vey2uQ7U|!@}pEdL#gm&iQlhO>@gr; zq*NsI0i^=uogoMmhkf<%PFomJx({srd*o)`Tr&p0PgyWoovI|Lx1y=J9bgB1t`U**YA( zQ)!qi+wqGft7cM#3evV_Gl}vJ`L7%DvCW3cc9O`~FXF-Lid|TBa~O1kat4@tMLy@_ zc+!LwhzM8+h$SW3s}9_NTuUy892AJK@Dc_rUFUI&W`FflRbxjTfRN}s6f(T zxR}=y8wufjUDIKKx99XhYFI}G zE(E+%LM8$Avbn{ZlPIR21B{s@dDRIzBW0&umxFMc>0F4BUxHR5gz9q^19ta|lvx5jAQqQO08;s_t~?ej*--!~)wrvkHF#busC&YBf%!)iR6X-A0(Iq?f8Ke4_pXN<%2v(` zyuaTkpBJb={)K5r-F!2Z^8x{+WU9_MFAzY(BA~83=+QnekV8G-Sx21~$R#BJ@j0SU z4uKN@`P@_}EQXk%Jpnn1NFk80C&|)h!=oS`9962TZKx}c>{GgjrxtWyaa16#d8jN4 z0cybn`WXsQHdGJ1ZK(V85-l?9d(^h?oeTX~iGXZ(3F(0c#4*cVwA_D8ph@w_6DT|5 zkaqy(4h3n%2ZBWc@3)E#STJe)B*ZZFWF8c53x~&!ai!I}H!~l71B>GT9gH<@8^7!4 zOFBQ}h``zuuBs(SUP1+>gv2kDpa%JEnGOcY4JwxmF1>@6OIyd)21^N|xj?>{h9O0c zfaE2Gu25E8%))7u52<6i1LEtU&*H-~P6%umY+6-4aInFuGBRq-4jXJ}F?zKc6G_5V zO;_c_zU5#W?iJh1{)D?Uhegf#pLjyxGR(Pp?kC~?2PNE>VaX2v%T5UN!T~h90nhg! zk&y-YKV{p6|CA`Pn9_ziSp9c_C4u|a6?%07wc@4#Bs$+MjFM2%_Q@v%E@PhyeSS^| zghnI%e!kP+d_v$d4tGQIlQz^b>S@gSsW0Ubd%--0`+C`7vOK|dqaqP z_6{Eqxb_C}v;zWlN>_g9ehvtf&)MxiAaEJk(WQUp0f7`OaiV~fkK_SIGU)IE@9HOH zk}0Tc^9g~w=IMHL+W_16am0HxG}7_9|ZugceN}Vzqai*Cf!)7#p5~G!?Q=g#oNfLY=jk z0YEqqkto4cEfVUg%U^7$7-(+!iC)7i+Nv}Ugph%UB{Rxn;G_|}5LE9VZv}EYTvHza zrwLt%?7Q@`18_eMCX>1-JM3U$Xy*G2KxW%LDt4=o8mrjh!>fr0PD2hf4qClT9)%^) z7mw0?Bblf~4+2U%VX3{iRIj}Wtblj8ot+1c?zB3i;jN4LY2Qw(c0sRr>ex=JvbI=Q zB4B3iZ6HLV#V!0xeqn>Az}+um0v2DRrMR4jko|>%ZzNQW3ov}1yVELw66IR>i<2ui ziPalq=v(cyDpefOf$mPL!-6_6p>pc!6iHe6dIPn-j#f+L$)@?=aa7OsFE~LM;Djbk z^u*~05~2Xw7Swjn-YkuqC57pl&EQPBW|xPB=^EkEo+@ASu?ft}!d-{3VvH1*BCM(i zHA;|G>Cclt>y*!CfugO=4e0>NH{CO@2jm%>BxTvr4kt7)<2Cy{5!J>c`0`?Wl^=5$ z>Q!j6kw|eMwa~|^I}G|*;nlJkR0M(mSCGv&Ni_?V?7=f(kj&-?Zn8sB2__OKl}sFo zDrWWTrjC1qFP3Bstn0-xWu7fM#-31!3s6-Fiq$P0`>%$_r0K#*bu8WJU4>OeXi zsRt<_%qWIzKy+lbJSanI(s_ss+2*yjtE*Z+cXoRJ@nPIus^Q#k`oJGlf_j=j#*F?d z^UgZ`-r<~l8v0VK<_$HdStryN^-4e&x%FGwFul9%F=P})q!NFu<0b=7s;%WOei zxqdud2zCz|fp4g+2L#!Q$~r`_w7a$je3Z`%p?TJQ#nug|#ReQYFX(sAi*+G)&D*G- zH=zLHtC0E9T7~j;!#32FONqgHY8&dx^{tUL;MV%_*xGZvZvFN`DiB`J8^{PysZ4;3 zfXdne%F~r=MM1IjD({)kBY*GX1o}$H=2+|dMqojdW zM@r%#`JjVz#WpUQH4efGlno__kO@7bNiH=)dGx;&SET*Uj87SH*#UU?JO;T2MH=N&+13)nw2iTh0X@u zs}n(bH3#AyHPtJ0##S2F z>hesfCVTTr(N1jjK%vWRB9tVZZsZUL?+QL*%4B52##!&Y-zhP_cU8b~kJp z8wY23*SyC4)(OSU!0cs$z!HiDbbck+l`N-wq|B{&=`sfnZVl-SZ96@%)jn&DSKFT*=|BG*~|CQ=R7{er8jFR;+?fP>DLdFH3D9e&Wc>tlIegLnkQGWls| z5EtNOw`Vy;NSt%7yd7~TvB(Z4yg-6*;iPgvBo@{9RiAbrbY=NmEUp^(bAy4Y^{~EI zKl@L(`_;1b12U`x>h7qabRN~Dg1Ci%!Y-R{U;v`O zB3+(KyAvSu zmbcwI{D||KXwqUcIEopw9qgmabsB&_`zBQuX+)oFw$KY=bU zunGUVqVUyEjF7U$%D5 zWQn?G9&wKE+^YkzRZL+!Y+Y2Vtla_m`qR&r>u&e_Y`M;EK&=4$##^qR*p}=2&NvSn zQW=DcsSTp_npyDV7+cZmthN7uP$a0JGMgYcm_kXY`vvzC^PzD?Z9$oZl4gXQlh719 z=`xi98<{z|J*N+nUvoF`H)mg1C!wI$4?y#Z-kd}+1)X5nBnd2`9AV#=NQbMio4=y~N+Uf(WQql9;O4guu8UJgCTx{0J8j7#C;^ z*8(8=FP339KAgNKRW;#bQaeQ9!C`U6yu#*wNaA2}G$>`1ur^RUd+1WKCPCkeyNf}c zUz0;M^}50PFa6Jv6}Mmd4o6nR-`ju>t)Q{LiJ9Zo%AD_kT=|FT8Zduuu6%hpzb>Em z0zvi_@3;7m|LFep^0%LhF%Qe@``+g3+FdXIn9sv-eF}!3&-3dzT|d9KJNKu1DYu2Q z?@8Sld(o$UzW?a^X^4B`&OM2FSLF*P<^eU<$|RMQ6Dp$v6;V}B`Zp%#fiC(-C+1K6 z`F@7L`^bLp_;K8ymYRrzo@F;8IV5y-+5E_5SMaYnl{^SP1!B9Q<=ei5t?vpx4*tXO2PU49kO3#Dvpu<}_Rk30mD7lJ& zut1=&@R0O88ha=`KY?FwGC28&)}=r1T5?5yYt;wTLs5V+t-dZle;Vd{ zE@`i`)fj~|v3h#m4iUs80=f9VAw7@tVIaH&^8fcr&%Y114;AR$U2U)LEbqMhq~~+@ zta&!BcR}eVJ^%gF^QU3UD#>~0@&)tfyg2+R$@xiB;Ba!@qa6j0ktl_e^UVH!gXFx9 z3>o&DlJg*e`Q^#^0R~O=OuR-qycx>Fxq0Us`aU-_Jt7^Hnx6nMji%lru+04`bo_1Ps~T(+Wb0S+1mR4)|S1;nEXLG^H}Gc?t$4m zm0hpjJD$JKv3|%JDdn+iS}>#}-_qtM_)@Psb9_R?lsjUOoxgH0OJo5T+N58!Ro(9G z2O!!ij|);|B5Ng+Ce)CtNkR*6B9_KojdlAku^dDKGaX!$_fH97%|6J8@6}>}c2LrWR zOIO`KXOq*-+F@>-)rBeHmZ1~4=kfI{!~5h$I5hUUucp^Y20ouesOabEUY}OP zGt-Ap;ct*;^-{0U08B`RFWf=Qz^j0tDeotv;Krv#LA)O_+RH$Ub*s`Mi#}v8DnsL} zpzy&G=S4vaxM#hyCRKOoQ-LC%a?+I85dd;kuG892X4cQIJ%2F0Jv%G!C{ z|M6d5#_qqq^xgk?8B(YHx6g6Z{lAY#V->2oE0!fE8(CNU&$#!<$DJl8Bv3fm_ z3kUoar?}~n+>8=nVX~nxa0yi#PH|hGpbgwJIGdaMjs%TBE#lV z&aGs1`ZA4x-_-Yp5b&V7Lv&y24)56ZeN35?uL{0W9SosVjr?GeIM$E1r+O>iz^LPW za4I{}3ZO<|CUMFXj}$-j^nrUuYCb+H-we4>0vmbllos+Y{fR9s+EJD7#`ub_i?F~; zJm0>A_G$ZuGT5ky$>xopMD8-*T>$E;8G5tZJ5(q43{7TQvM_$Q!@Io1Tpo~Y9`b@k zTQ7$SIeK-W@a4gSm26?1s-=CP1`rh36pRfNZ?rQuRe9x|wbcFEd$7_VeSW%w z;|^B3J=>QbtRz_jhXy#m+){9va}iDjRNbi5Sy<^ewf`f8xw*e*%MT(pxO|^ktb+i2N5@@iD*iH_0@y+A2)XCc_tv?1?ZGqOTpqeOMJ*Oygp_Kv2>a}+) zcP(q?oy&B8zm@Z#@*rYRE+ysXP>tyZQ?SRuo0H;Sm?HmtGh8!pbA3SQ=WS!@r>yDo zpjDwj(+7~qfNUx}!`K$JRv_*#KpjW~63;v6j!k@{zkJZ-m=W96sp3Tq)X}k%@SOnCh&Zw~mrWz&MyI*j{ ztyr(M_8DDz2j#Vu=?frO>M&~AE1~^FjEy+rJMAqXv?)4zMZez$CZT<)>?%!WvUR^vADi8kcqb*g6FFDiyv#>XH z&-TPZf}gxf|C3j_b;48fDyKd(_q|%J`E&XMLBTmjM(GI=6Fo@W8yk_BVX;V~Lfe}H zrY}o3pT_&gBh4asFgpp?S*u%SsR!!Znn?P%I*F96yK?|W+c-R1d?fZ)zF|{d^nkAYe?)t zKrW5-0)NFEOb@K0BM4 z@-eUl1?e1<$c5WmP*8PO3VRC*U?gx3zA`h*O%df_yVPnp!A2FeY64&vrS&vzDkyA_ zDRV)nlrrK$IFZiAeQ?2CBs0vJi3Ihuf~;MeR|g?Wwhjym#K{7QEne0LA&OB;1)&(&N{k=Q8=nj z-dx}vmZ5Hubkw|?u&0vCB5hWL+0DsYY}%Hhdf+ugg6Nbahl9FJBN zZKJemT=hM(5Gq6SY(b*!(yI#rbY4)~^P(=?^keX15ru-<69Dlk;8wFV6vsqrZMw3i zL@h_H76WDZd=oUMUWC;5;)PV8N>PYX_W>mCdC(6xXa==G_T_1vhy(!?Fet#Y>g)?Z zhQCCvwLw5@$s^ygz{=IX6(CTXZHRjqf|{=lb!E9ox-bG2vr~thR4L1;)bH5QQg>Wg zjxDL+#8>6QVX>gnC-;4Mor82moop}qi48PZV4M0?>OUwd&lg_!cC*WG2#i5pSu}fI)P-P2m9u_j?uAy{`;=uDMj)&0w$!1n zEKW`x6M^b&=h=cpTl+##CoS5Jt94<$?J%lNwIR{ZUR%HL(!0=V3#vO^2&^O}e=mL9 zHj@v#S{y+2w(cBk3rg2~s>{A|6vQWtPZRJ<2yT-ukn)ioxl`lOnZ-vTtTU=ff>_y{ zm%RW&D^Pyoj0%@7{EREEaN%RBoTIA>Z$6{j5$0f4^O|H=XYZ-T~IK|SmQcTI1C7SQ>XG6bB) z1oPR0ikA*bQh;ri5oQ-nxa-;59k8l*nO>(W%UeH-j&Bq9_zjc%PhDWW1EPRcju`sX znfa+b*|AH#?z|!Cg=mPa3JUp9IujQX$^plOREE%SA3$#8 z{_KMOWyxaPzNNT;IQ;47UrbXv|6)k>>A#1=MyaQwgKa{k!hVFxAEEN&lgFw=m>S6= zS~{gIN|FwQyXuM!03n*lf>k(d89K>y&bE?$9Ys<+4?$oK8vkxO$C4 z4q|sc(1WrE5>*#$CiWF_Sq6AwjO6>Gr?2w9v^jJ{HpQZ*m2{5Rdq1_RTWn2vM}Feo6D zhpZNfTtDQe)udPthZzH(>8{Q>$Qhn??!WJQA~8<8Qcew;(ShrFkX>|aWhwGvr-B6N zg7+`7&l$D(mElJEjX~fjV3Jl+CZH1MC%cYHA*ofk1U%53s#a) zdmS@}5T}6oNX0U&TxPy71qU`HlEI67aU4ov$_#^-4FxZo4qi4LylgOd*>vz?L!tx0 ziH+ey9PJYunXw&E45AB^wPVS%O-D3gZvY6!n?Xc8ZSw&lvdpOM9wH)93Q5B)BxV3J z->cd5AYtiLN(VwnPijnmincfOOSL4FVNwQ?%v2(})K4X%yayeZN(^LS4%ETy^Z>!I zqK)!xcb@lt-s(;Ne@@CO)(3l1R!Hae@>67`tiXleAZ6v6$U{$?g-nNu-}EZ6hCAP2)V= zw=6u;Gy;LiwdUk!HBbRVab5d2#Y`e`hBQw-B8_!%0B0%mMHOZ zC-p>$nE~k@+=t4pf+biO+cv$Xv^nU`>7|1oJiDaQX3j1U#bX5#%&r81eGvTFrQZga za0MU#8)lc(B&^v56b?MQ?5PCen9A&mq!;bUwMIaSDmAS;?;ezRB)^u2AkQU({pK%d zS#}|Lb_s5ax+w!p&9#1V?0%@%E`R^g;m~a>LC}<*3`N@@tgp)izRv7qE(`sbxN3_s zl16SaXCalFp=xzB*H4^N$??nEYvyOrHV!Nf!DbKGM<-{RfA*iS zBIK<^2OZQ(r$#VCOuGYfKf*UOPZb?du=Zc-y=o*AuF@<90jePhRhV?5!UYwcsDO*i z`Wk0l1$yVLBUsVyy6p=n(uB5I4JHs2b>)UfUi75o3eh%@B%-oawE{)-~11DNNpcv<|zyd7TZ~ zw9#rijp{=6gt$16qb!miVlkm>X9V>WXjk2^5{l z=4wT@fuV9{imq7@QUa=4RAz**!6{rca^+H0ceR_3sHQ+vdW*0(BSRbs3lD4Fa5>0C<{y=LL|UNC{V!YCfiUb#2%6j6^%VS*v_9uc>LhMH!A#dyw|;Zmg~zq zZ`;~`%*FR}HrDmwO=>`mI|xQEFJQQe0~fO}3j~H1Z4}Ir>#e4@!f%y8vQfW4K*=d2zN}`;30J_ zHD%L-5YhO8W!!1-?o9nOm<=!r%Y+VSkIdG?R;R^gq~FhXnl6Ryq0u_l8QQ4d*dYhkkiVRi;;I6{MF@4>W+V_{RhF zrOOC7rMd?Kaq#c(K3(YA`|!F&pkKBXi}9X(#Yh<}**wbto<@iljFG!!oq!0+GB6rf(uzc(iLl>wI+fDSHB9N#R4t&+L9;Gvr6A# zHU%X5Fq;C2QNV|a@sdy_^1?#%A}^QF97QGw6da=!o_sncXp|#2LB$y7mf-f}5IO;e z$}P*S$32J}I&IV#BEOy|HJE{vx66=`Wm3|E%Co&RQsxR1C=V>r%eHx{O%EkhBsy#!6Wb?IB#CGy_%1L)^0$ICdUE@?4MYYu<6 zKYc~iVbt5F2S$ow< zUNP3Bf%5zY44~oH7{Obxf8mTWgiVH3;4G)sPzA$eJrlyJo6fXKx0EDFiVX_k=N|62IozoST;$f19}O4v?s90IT4sp8E1|=%!nIqcp+d$3M%fI6_L5nJfpTtuP$7A^}FG7!|kKQJ9ut5fcSz7 zE(fT^YuWaD5SJ3%1IDqG3Q#UfSI!Mr`ZbrYE9Zu1G)*WM;&s~@jcw92zOt>FtEGaQ8Hneo;6nRdySLx*bP`>!pZ#osUL%53|eU^wJ0)5;~Z4kdou* zc+-qPyXe|6q;pk*!>7fIPd+j{U8r(&AeGmZ$3lBYhTrGwBS(gB&{b{PFGZkmTd-nS z&NSlVBE=nLK0FS`-qtOu?EEZJ8Wf)mjtsY|Erm zUh>0_WqOWfTJvgxv{d4GH6iGeOtYXm3g=U2E{a8;RJN!SSu;hPiK}o(NI>xA#i+au z?HADff~V6Gu$6?x90H{S#wYbfohUl>?*j!I#uKBws=~_AP}T@2eYNfu_;tS`;+ z8QRDS)k_e_0l>c&j|AZAeH5d?DcL3{M)y5yolw<Ts&@djR8V{XpT6#_KiUGb}FL`(VMiBDi_-W=VwF0ab}|u zfCRnF7Y3ltDxm_qHSrV?~A-n)yEM@(c0Uf$)kNv>+gDPvAA{`5A+nRkQWDB92Jy#<4{l zx@03*#38e%;UW&Hb)q7USx3;ZA`albe_IiULiZJMD6;d6A`Zo}zEu%NhQ6|h13;Zo z#1X0M=zfYg#D#MH({V){3WY@+3hMS2aexc^{tnr`wEGi^I3l$f-4lv9Tyo0Wf(wI1 z9I=Xxh9VBPHUoG?eBl#|ION_c4;OJn$~wATMI8FFXBTmpq2u3K#Gz_4x-wyIU)WH@ zkz>O4B93jTL*2e24p5#EgSy{W#1XsjyA^SO3lA>hz-|BXB93kPxRG)D2uDAx#Q6ye z32z@LkdSEnbVxoU+Gt*3a|K_lElC{VghY}AqSR$gR%!8&X6S6yS!+{seZOuek*U~YmaV=KcX25$TGQ^xXxVo=woXSo1-D& z43n;DogRwS2IicX)T^e27DQ)QZXKdjo!wmq5B#wGag@IFc0kEEp#+*EZ=Xr#)K~~$N?JLn}_$3-PX_DYfm3G`D1*~?|aE^TRJT>a^=LTIlXE{v;pAS&sa(XOm0S<*lmrZ?Ls-0Fu`UF(Rw($>s4lciVno}fk{By<5FtNZb=m2jG?fk2Lv$M|WQ9-- zORX){0;q;q3t>+^!K|W9%rkoM#8)EFLpfC57Vsn>AS!}|h4@Q2k(_U4gTjz~_!)p? z@1w17t7o4nm_X+c)=~+J1U`nU+X>|C3~U%-b5tO$F`+Rin1Z^4AyIJNnCzBxvie&?|vOXMdti*`#FwEbx$Jy z?;-uphRhG9X67#H!LDaSeW>4z3(P~WT@0x%M2#1UdgCUjMPYA$i1l?yet~2jVoT?*$4V3M7y=z&;#Iat<}72(NfU_JDvvFtB1^soVS6 zcyrX3hA=rALg`>JihJ236=)h!TU(q49JccdSji!~U0ab1J2Z4}4u;we@{?)5ryb-c zHH_<>reouZJLM=RRgB7a1|>v@Cyp zT2BY(xQUS}(N^oUy{^}Wf8ZG4-7!p<*KA}1=f)!(S7j(aZN-uy!h<-yOA6g0Y zINV3nb6lV24Qs9s#OK)cdFg})T%V`=9JV8uwBf+dnXb?CbF=K{pB=f1%YJs`8s(G8 z>GLgi4f737hKF~E(I?8lcz33~Alno_Qbn-}L$me|M#mzL+=v0Ngw}2ST znyBxQCc*bJ)q)j2L6Tqd0w^)zjFTGoRfANm&SKAA^D4?ImCo8P0~{6$5^eJ@CrG(7 z@zmbVf&gM3z+0x_E&uL*J;8hctAOpVL`!u(4NRjGa?(CSAC;-6WdNE z$;6u2wr$&)*!Ir%pZ!()V4rkXb@e*xUbP3x$LB67|KJxKG>^5B*kSe(E z;o!U5{yE&%R9A5~yL*Q z!ncqy?(rsK_eJq~FfiQBZS)tt<`%N^!9gub!A3`h53}j*KdvQh^gwex#cjd3HS6YT zMo;C|zDhKFDgGXk#1Ab>6#Cxz<0|Be2t4+~_hpLcA*Jm;5|} zz5IT?A58FLo&{+tMX=BrStzfFp$~b+zv-YAo;+ZfxUi#UojA#COn{Y{zSmjk&1Sb< ziy(FdIy5lo6RFLEBzbA{Qw90;ly;U)2PU$5>~-iV9|*z*|C$BU_V@&{K-6g*xHn$m z0@&BB?tI;A)ZDM@>&0SvBM)QB2+AM zegGo6%7|5Iq>EgIMqcH?;vH4;D9B@($l23_P2~UP0g{%4CdQ}?Rw_7o1JchB_K2jK?0ia1Y)Khw{FltV91bUrU z+88-L0mh(mgk~H!uIRhKRkRHTf1_Vlv9=yH7WM@|vKZ3w=d{+qwbZv9pWZbv*_Y3; zVq?FPMX5r?)fvgipKaD{n*H$SBovL0;8zfCeU6x&;9l(#Qo;PG}L1Mpv2wp2_WP`5$(>$&Kf(nWnank{ zV1pCFVBa2IiCM^T*uq0c7mkXHjZb%3xob8;HD{&bsDv;xKb+qE#t$^O(&(Ks>}+n^ z;loRJLR^9!9UHmPYA-Tq$)1HHHlq8vvuOz|Y}lP5-;N?}m<=jb1Vqu3@u5)@M%h`} z>PsX41J|GCcG7I4?*az)8_kqJW*1}LJ(C|np&=knaTpLL!_k5sZcwbIWH>Y;amt@G zPnaV7O7A@p#mOAbsNy0dkCvR^I3sM|&OZ!)xFaC(r;Fem zK$G!En&k(=SFIKyIH2;YGI<+pPc5y*+}*Y5s%3frNI&=*AA4u!%7kHg060uBA$n2q zaNN{E+G`CXu@c!tiBKTW;9#tC3RIj1IJ~Nal-n?^tq2rZ!N#+sdwQz^kZlQlWM|rF zmvA0`Lr;-%g;!HU0D~+|q$EAfNIr0xNK*!y#~-y{cqw*#@;wV$dcxyXKr=)~2MD)Q z;h@T)jmT+5dz?RgpEFy(N*Xx~F1v;o6t0}zJI@i?iDz_^5spLYDq;@FLH)o2e?Pg! zCxtSxa~<}xZqaLXm54SgT=h>*WmO@}{T^(u0)9yfb~5ICwFoq~Z&<(<98i4Y;*JC} z`~;~?87Ltv`H>%eLnd@vE&VN?c}4%3i4A|GPYd8S8aFzO6;yz52G=&6srvgze0mdD}BC$Fy%;a*|&y^o;uK zDbS^0)EVR|f%b@wnpktNF#&AQJLT8Qrb!emxclP4KQ=1_~p_P;$5<{03E=oHk4egYDa zLm9I$k6Mi}kygWygL7+%yT8Wt`*-nW(2~ce(XTJ`E+MidsoB9!nSi|Ls?q-1`HC~{UPrrY9-?=?*XRF6jp7v~i>ZkA2XgsZNg+Vh*IQ){uv1r} zb#!7k-*P*a{FI6Nf)19H$&!^G}HgGBA8bTy0jwa8jrJxXMF?|+< zNpFRK@GT|MTc{9)O_fiPd)k;X|0ToroabhGEz-yHa+WTqJfn1Xko0(iv}w#j36wc? zN#N+RiByHx=W}=Q$(cTK-;CLld*(yD`Z)CR`IFI#e?@ssm$_k4UcfcXfPZyX0DOKc z@OCklxR#W7nfv2wm~4L@T5S=tto?I(wV;)X&_xlj(mmaIiqPAy+%?ymp8v4y{!8bI;F|3vE=($2TVmi!q@rEw^w@+qVW00apJg6}+* zuObuLo>3V+sU=_3lskscgw{z?vttl*()CR{PbPV#?`cWfV#E0-ZklT}?VM_qJF7Y$ z-8XnDr<1U{jq~^KHQe40GR>UYPdgCxi*|}Uxig@#I>FMZnRdJC=xrdn(sL4UgPx9%6Vexqn$D;4&U+_ps;#|P3~8A0_^(+2d)zi(y{ z;DZZ#x}Dpp7=>2lutr%*Mc|!+voP!bk@sH2M{XliKysGTqcv6X+E*IkPn@NAK++g9N$R-tY z^VE@8H#CfY+QQ438wS4$3)AN+8iA737-&PnIc$)EXZo7<0nB^%M+UdR{~?Y{iLRkh z&6_BAcb9BdjvuveDrE3Y$2(#L{98_km)Vrl9YD$BXrU0mDxv?7hm+)gV}l`ykF zZ=Uz3uiU^+3Zt)RABBgLWnYH46)Lh+JRF7vKtJo9(whLqee zr$hN?pH;W#)Cfxv9>BGFlCrb7f>RQe1SsAio=C?mOO#}c)#cF)wbqJ1g_6M)<-)yE z9e_BbS!Wp6hrVtAyNtv-?^h$~SP1hKj z2&|4th0z7at0G+k3k`2sXxRuZwvGOZy6#x4w!;98#LT+lVlR8f!lz~zP5PNhx;UUS zbiSw*2Y;KkOZQ^d+{$w>Zo2h=`&0)vK*8iGr^1B{@TP=A#3Q*#_jnN1q7S0jJu$iq!xlpxA$lOpoWK5zi+xo zu}z+3uYI|+t=%+yBQ6Y3^85WsC$*IOr4S^RpPY-Yd6**$Zf8`tYw9h3X8jt&1EG85 z-AA~!Kr|u^k>Y5%oC|{wKZ~etN%7PrAZ@5D3{;$p17<9*fg8{)# zc^k{}fVEfT-I(VhKdZaHslhdYB_DFA7pf{Aw6^w$)*jg{e7LcK+7#V+_dk>~+2YFeoUHW1`-INeSD7EKhWX~04(uqRiUxuy=hI4a7#piD6DyWuf;3Am=rz|l800@Ai?d+ z3k)9hi#&^}NH#Z=&?N$>Z<(!RsJ%K6vO@6qR)u=nZe6Jcy4$rt1egIlc7N)lW1{$& zZI#3Ab`k7TCjXQcEw|4=a@`vZs^}u;6H)bjw$@TI{Oxdz35Viy5o!d-F(f^QQnH4P zzpu#8--{g+eidzg1v81tCF?skCla*Q~E|!j5CzXbLq2q z68{5`=rxagxS!sl!BDL~u_Kt`*YOPhxyKat#o^F|P{04HLZ!8(DEgEoRA&8^gG5T4 z6?cKVaI&j}ET7^ywk!X%mqmjuJ~SatmAeFQC7wQE{TB8hHC_*Pryt}!bI!kLNIdN+ z$h_`F!p?h3ys>xX^YPS|0@%8DWdQnXff+;DVO&`YPi&6`&e%@*j4I92t}x<_q-=*` zKVixn0`W{G-Hl{Xf%bWvm))W0yK)WlEXHFXUH2d%{h980T&fWIXGx&gHq>(gwk4L* zws8&4zcL|EcHX7JGH1w}4MeZ2+IJi!VBC-reW%Eq6h44%X+z z;8)=|c0)gQL&2))v=oItgSyKPa&<66saIv7An6I(7wJsEo*(Z$Yvk8OkVDC{VS^(A z+E>z+Uq5O_ayppmdg7?0a*7H_UVy-|X%T+Nc5Xkt?xs0@b%D!z{%^%w%MSbqgRb^> zS*mF_bxrxjRx+{fHz0!Rc6I`r&(w=E*q@aXy~c!++=>D{6mSfmi(A8xJYFdeR=)#T9O^$l2F6xVGfHVEi{XV#==}%~+WIN9t7B)@hmu0! zuZnZZ>su~Wi7&WnE_?a1DE>vL{>&jvt;g?Uq}Fe2|B!JBe~d}=LWWuH(URsL`?aL`ZK0KE23GISnTDe`kim|AGC>53=Iy){ zIkdiz= z-g9imhvu-V;8K1Yx&FeFO>gyVss^Au%A)*)h-Vs55e1+V4Ab!BEoKVD7WM521SiXf z(gAJ+$ULHmN|k8vt0gjRAMqIv<^0OGeFAa}PTcpq?5=Bqd;`Tq69zXIzEqZcx%CD({3@$J%jcKQ!^;`gQ@1r^%x zb)hBufHGWKyO8*LGh;3DLl?$zw&7-VRRrq>kr&3hkhV%AQ4~q#G$F{GS_eamnZXLO zwqs7}jgYolb`ytPm6>{r_c7$@rM^|xMEp;SvBa-UFfoP@xq5YF%{j^Q#IHm0XB6e; zC>X7iQe(cx%g3sTY#z*gW0Zg4vsjFR}dsrAPI`qMiQ9ModsZfS4zvRA9jUhHt_hmU1YmvyV@x^S~>Limt64m#k4wF=HIJMDvgYeP#vzNcg5X;U@ zNDrTk$@&@cnpu=^)*fDlK4VtW{oZ3%K5eIEjp{JTSGZw_MQtj)q&h4NYQOGp*H!gx z=UTXbdC!^Oi-?!~TxA|&l_YZ9UL%c9=eHDHd{=(0JWYB}I1^h3t$IYV5+Z#zYWhoN`E2q_OEl+V z)`)q%o<>)~u4cRUQR-muab)*bEx$m-9lZ_W<(tW`49xX_(0Ic4t~aUtW;mejJ6+1h9m^t`@f0@TX+NaklN3yuL8bk^p_l8y(>EB?vo`9k?-N_SaD$Y@LN zu1Cmx&|z92%K$ejas+Gm-W#9RSX03q4)CB<7u=kV2um0Ax5MGOd7!ldx0HEW&{?6u z7~qFHy%(Va!ZXS^K~4-S>06m+pb4=X_#avXxXFYtU6d?11~n9#amxnPSdWu!V9W`AnZYFIzojHsv;nuNHq%hZo4AYM*1$V&Dus+;Y_d~W zy(^+&xNd;r1L6slFBRE|rd-eNNipUHwkmpW#sVXLvTh?4E69SYS=1fO?+fyeuWnXZ zXp+g(+XlVzXGNIqFysEi5t`MCk{ay8bI485^>t zR%WCrCpaR7r66I|b{6pE`g0EhR+uoQ|Y`sr|?(pdOy-M}`*KPz1c>tHAw>_w_hjm^!YHYP`< zuSskM9N*iO~3~+3DZVqe1Aq3qK+KbEQ|M#U7$Reri1Q z_$r%||7w<2`7iBt%$+&h0Fa%YL#iPbR%09`Lm@@babb}cKrFDfYg?)M;c@ljn%ez! z+?BZ5qFlMiv*rL2V|Q(T*Qn#fv$me@Rh~YNx%92LSn2qB+Anef`viL?i9NqF4WCV& z7`l-HJV)QmJyS5O*|0hY^~-0i0s;l|x_n_!y5zRE#?^9$xV{cNK@k6EsN49T8Zii3TNtb3I*j-NWb|C-LLs1&xr?PJOEP3Q%P zzDanPIQK`<4onjKHU$Km$e*tRB^EXdsJu5s7GiJ0>}qF}A~r8_Yv!5vUYXBcTeB|= z=2Q#AN0$X0-G=_yXy1*lQup_G@mMQwK@R_W(MJfOVRDiC4x{zkTFP)fM&3HLCw#nQ zIvllo3$6@l7Jb9lvXpJ)obuHgTbXUBu>;Y;zr=f2K9i4)KT|EMV50 zL(J*kH=6N;6oWjtvewoFmyZpg_ym}ykgUXyT_a&}(Qx=5ojTv~$&|Bz2Y8ZHphgti z-%Z6u^pviZ_w@B}<9gBO@BgrZrb!tug2E^7KcI@z!Dn{A8TOn;0lW~AJ&c1e$Lv80 zFF#e>jNkQw;{|lw@4TGI8*ljg(>n1m@&iWOeJ3*nulF}pAB_aVZf_#4nloO&HH|umG#JzmSx!AeM& z81QQWVEbGx`YD3$-;N4bYZ#9{ZbsfG^QS&1b%eR&W9GKcZR_vhNMh*eI>ZKOXf@t2 zLMS1ih|AJq>{S$K#eAEXk6O~@gFtysS&rY_A*;iIh|o6Z zEuxHL9!8YNk0@CJuJE3ALWN*UKWGO$#nhLegOx~N;+ci`;Dia3$?N&UM~BAwVT#~Q zZ0KyEbA2Yn4I@k}G0pO;#m2uI86>abfoAc~@e4Ho6fiD&>q5#-1c{w`akffg=)8#n zHXU#oI0=z_d)gQ-qflsdEM;*KkND&A3K~QcAJ4;PXwb+dbK60nI&r%rBd zAlWd0HRfIl-K<^?dfbABZW0J4MF4J@DN%-#2c zcxk}Y{V(;${Q_>TS$ta6N)5R6=loCB3V%n$XR1im>bw^-a`x91XKPk2N-@x_%Od&o z#K)hkN-3GtlYmzWDj7Kl_SIWh4$}wq1_X*YR!1^i>oHkYs-IE_4LPvIRq#VT_2+f@ z6K(U4_iM$l37h>gtSh~<04+N18sELlwz@QNJ@t1bV<_58$QdXMH>xu0t+Z8N*)w1P z@`!L$TYQeUn{im9pIV^A5L|7+<)rEu70t&q23@`Vr|LLWU~Xq7S3itc`w{Orm4?S2 zQ5umbLLiYMkamoUZMNeDObG zjE(m#{mG_>S`0iLE+`u&J%@71CgzpSKkD^meGS5pG0rIo4SyUR01HK_-G+T^Oj@Zz zY%H_ViIem3=lZuVM?{H^v&~8GSxCaNc)`vRhBFDFq=ImL26MbB@x0yS%GT+H>(b#T ztUP&H-WEWZs1ai{cCzfVwso_mg;2;ZhEUkK_GR)9w+-Kdm(;D!D)-1gJGjH7a9uZV zNbd{?VGPBVhJt5z{O!6p+`UJhErgC+TmLu+e3~4ba@L(cU*i64hd4d)yx-iSN0haA ziRZ69K1t@=jXzO{ynZ%IeH6K|C%!1#Y3aN0ZdSZ^CIs9Po z@Z#jztv@+$c(ZR@U80%#7lfx*d;6poLXaSoR1Y!A3wt-boA|WIqiaW^uZ#UO1ilRi zpKoG*xdfZxCn7tG^7Rt4hHWKu#G`D2Xhc@+N->0}3^9O7 zVMKN*FsL6?NVgmGFeAn(eFQAJ-&i5}rbtjdoKF;oCxDT44t`- ztw5;cAS(R1C?=ZpR-0zX5x)paVU+d3BEs2ZLmc7>lamqyl zAV)#v)wg#)ko9^`bqJf=R1PDcWJJV^-)`lH-saIGpD@Qkm(gIklBdY1`;xKVPpcHi z+8^*+$Uv`$X33m-xs4;|(DCg7!fnJ}`aM~lU;1dEa=u;pmSDN;MFb)pWUr0EAZfQl z=8zaE#6&WvkI{2!U0WJr`Vj~;bF$txX<$)0#I+BaE6-M-zBybLO~>LAGzKH;M}?(PJa)k;4`|v$r{$rV9;_-Gq(-m zm4p@&ysgCMhzRke0a0Zr1)FvIy}@lrK)$s^Tv6GmSI`#(x<+*0>fd&M(focCu9pJP z{WH#|VOQht`Db=#Ba>T2vE8Wzbb|3OrttokTowRz%LlQWR@$mb1TxZ}4jg3lOpAaq#l3mwOu5b(_eZdE&Ws z&Hv@PQ*iqhGX2+}Hz=d~d}O(1$`G{BPl%>;ps)3S;mma2N{DI2;ZF2?<&7asO@$d?a z)bNi1;I`zp$(C54wJ;FUuE;o$5D!8-0el`>jfG&Su;6sLicBw{ zDotjrjAb^-+fWXZv_N{?4U-kb(sLWWEf;y_Ic0z)I<%^w5Jj&9Zl!ztFwXcbFpc~f z&c@h2FqQNB-{JD3N0H|R<_}30djm9iMS@cs4B zkPb$)>Y=`48Z~8FB}kJm0OgS32uRvkCInTvgN&w-h^-Yt8HvG;04h;i-Wmf9=x{NS zks>}eh0Q1LpieGo)eeBp{WC{T2*|DL8fe}n`+HlSBX0(qB$og~;qApVsXG`k#0>te zGV%6Z-gI6>HcBAJ29!{Dh)&xysV;FkLEhSznHV9i0`wSuwb1evwhjhW{hKwin}f5D z33#NQNRUqtofe2+0Vywp=3UFe){867pjpXJ41Mm!)}a;&C&)YAb|6sh&5N`WQPxS$ z^_Sx9H>d6+=wsu?VR?rvE={9%!UxCYnPj6*A_7w`{)Qdfq6+KKgsWV0Q-Xi|09j2MD<)(l6eF8$fR z9(WeNQZWIYybIDTVxsX+bIB!f`;rZ){yL@ko2g1wD~!dsj&}@CY-OhJQuHT>*$P+h zWx?7y!_Xjv9nTX5MLVy2%%yaicmuqb(e~lx0T`0dxoj!~LhyXD{Bq!O{QSbD@3wV= zRo{XzDtDB)JoeC1e4s4zDnI=rNkw7%7!$&tRLpjRzMPy}^#nw!Q+>lf3RLfJwUFHT zEAe6Q=Avk9Oq&9EMK*;PPMHp4K15T!>6^a_4; z+lX4&0+D>Z@4c}BH#Jq1q_5suQ&*U)4>azwC_E=v%K>WPEet8a7d&eoc1;rUM?=fR zXD?(4Sq@Y!GWZS6m0o@tw}Y2v1Rt%efV`s~GfW~|vsNj~c^J|duauX5wL{Ex?8~E` zo|FM`eY=n*4-*5p0NXKRk#jJpReZFHQjd)qRa_r-6`M*hmA;`qJ4yJ_(MS2>YB&+r zVJIHd*6;x@dQ6b_-#Juh38ShlHZJLkn#bUPhY*3Cb3Q>{NP9~i%k?n>X(~NY%Q5Ah56@?Ev>3c7lX$_{o z*?0~4aKE#s8;fg6Keci)uXYNs(q+oh(c0=H5MYe4c0_~MvJohbTstwfzxi0qF{@y0 z57?=Oe&_fC3g+{PmsXRQ#^jrCz28~k0vdX|4dzNG#GLzuyj-N>!o5k2%fW zqBMBA!s6o|SM@-xlL(zdgi*y?#YX|U;2!vhdMOsjedTv+aw!@8_ihs zbg|B5LGnqH6NlP!K1UBrS$u8#xFkB{iUAP6dl&yIAP0+Bq(sjy6*xGIDvKJ1z}WEejIX`KK9f!4lhv zF=h1V-_#FfZv3pc4!ri=T z{WrlsSI06{^)LAg7K7+s_fwrYVEkaotlRu33&q>#-c_mJq1GL zm=^mwrWEoIgK3rz8ucne(NCdkvPZ$#uWQab-emcHD%3YVvbGwUlu%>_g5N@TT3h%X z#CW_G1b4gLPJj6ZCZ&9A17e;1S(XoOcs+hI0d>yN$~YT zm369yjqV_NnFvS^XzP$JdojvM4KNW55sTwC5Gk)3MB-#p0POdy#XDx=W7OIrZ?|G| zfzj{jh1@@<$7@O5@oIJ0VB4u?Bu3pZNq#BG&OL0hBi!wZSRvVwy0yxbxF)cXvK$F+ZdbQuy^u!y;FpkOs47Isr*gT7*ci z$fXp>{PET#vqFiS$#DKY7ht6nC@x8gbFA!A29<>Hg}tQ|EW%+#iZbj8OIx&yVm>|2 zD)K|wGR@AXE8dxsw49Q@PW2l2zo`~PUt8*u7KY6r2aJ92a(SI~h=0>p>>3-$IO;*2 z&(m9AtZOt;!+k4l_@5dGc%H;cp&3c|W{)K9rzYZ6h}>5tW4V#?BXUnVLfzqmm~F~u z)ZPJ7bLnr*%By&J7-gU8aj7O*75?m0wx++ik(2Bsy+Ftw&2;dQRidHwZFGtj>fztS zD^akvf1iy%-o;ID-jjxeaxrw4g~N8;0#B$qZh?j`p)a%pks;eMyiii2O_eRpgVt-n zAhVLJ-3qvpd832?lu02dsS(YtUDQ|5e#N#$PlJOL`<3tYx)5TfsXVpJ$|<)W_fHJhEi=h!iW!$g!VI8QifJPGyZ8ZR9UtYz63}& z>)szhST~gHBBlu$S4BE~_q|nIik`LB<)1p=VOhkbL7G}iO)Yf;L`uMPQFGBw?_E@^ z%&UFj<-tyIE%Juwa6?ZzyYi%L%N$ey~R=4xXcMxp31za7F`nazGGkYqowg&O-3+8>JBg|6LV zFCQZ?oa6#?1C2EGx`e}Uqe(7$-Q7~uNh)B!XK=C)xF)?yq**tS`BZ~&dt{J4G3H3- z6R~7${$dOJx0u&SDCTldH*q$Q-A8T_)I=}4Y}uF>ts~O?Xtnj+Y|&=?0ageyl-4aG zY}IO$(%M3fu$=*0LjNRIS5C^&WO%iq{H@RTdivn-B@EP*pL^J1UhC?ZUVh1FUne8} z`2zN#1Fr1>4QHBiL9pk##qe`mKBnur@(7qy5SX=N2v~~qZnNK~ah7v?^2WgZZa@40 zCwg2ofNZ=Vi|V4mIQ-U?VXF0(Mj{1n#>0|)>sNY@G_<#=ycRq9)cmE(5ieMY!71R6 z-?=Z$RQkvQ$UyJXHE}@Y(X$MDXE`r%iEIp-T+Rz#*TLi z9+g1F2K@aw8Y;!lMNGEjhbfTzMfWf7wHmMI*0JsM_D$ z3+{wCYYv1~uotRiuWqkd`#f5OqU4c`QW?P_r<~f?_GLZwax%Y_JtJ4|KW=NlvAQ8| ztZNYam%;x1KoQC*UfY5;Yax@}~h-+pQkMWq|Lz2r!Y7qVu*pTF z5^lAh9eQ)0*riB^Dk0sv=`}bo*~+!rHdP;iw}GjH-0x%XgVT6S`XPLCHuG^nEdjUW zEz%3nKgF82xroi5IoCXCvwnKsjGPqmnsSKi)Xallgyy{p}h zaYr9)fHub)TOv^koj~AmIk7mAbNg%fU);c9`bdHx0;B-5nAZRrSaJcKd|_05;X7lS z9+pS_hE2`3nOAXkHKf&l=SX#8rQtPkKCq-uJ=Cp%;4zuIdF%zHw0~5sFhH1036X%$ z8%;P;Cq(jz{s?wUynh~*e2fge+^u~e@Jw`TUC#V-otRcT4PEAqnW~?gzh$ZEJFGa! zDVaL_TdSZjzI6EbQvMI-&X?EV6qklJ`$c>};GAuFiGdtMKN=&hb;W&6-vUdPMBsm! z9=Xh50kF0a5f@bQx0cBw0rT9??6c_36D8?GXqmiRV%-*eB}TcMQ&a>0s|3E-9NSW+ zTDJA)FHoxKKL2n&a|a<&v*;hXgdA$pye^)Lo)TxBiOc)^q|=(Pajwy5cx822pJKz| z`HbDih)+=)WF^)9$J>{fu4{t5zRCfpXa>Fs2$Szh-6bQMWp`0%k8Ir|H=%ug z`G$oU`jv)cV4!(@j5H1@zL|zW;wZ13zQ|lbenX6Pwyh2$jG!c6xE~~F#-HmS z`9;&b@vl|hhN*)r&5-+5Ph~0AZr?kq}Rx3yp!A(x7QX+j&4*5qo zC}7V!$E|DN7_z1+A{igdQu!XVtrebCzrkgly2^l0Cm$NzM)|VU(x;ENat3@{94k zlp}Wnrn(jc$|x$UpcIbF$_Qg=#XrsZ6UT%aGhZ z@k~rTz+~>ajKC!zt)`*Fx~OyU(h>pc1cd@N+8ZG1!#18S*KwVkIkUZ>XDoH?D)c0s z@}J7Rg@d$6h}q9y=>{NCxh9GJO5WpREHcpu9)1{~O5RDdDUttnMo#9CVooW&2%2kX ze5N1_WhRguSh}461LL+LdXihnji*}t;26LVB-e!{s-5s^wFkJ9zK#|CiD?bW;-Gkh z0VwseW~+#PMGHfD*Z9xd;Z;ye4YuA>P(WxQ%i_YW#G=3!cI$)Iv{IzZ(mhX+cdifyS!2R&f?7ziIfn zk?o>3Hg=S>db9amm!I4icP4JHR-74t|4C`SK{cX(2}eP^k-yiGwrb$m5#-X1Q=DYViyx)QCWuqjF8*ozs(SHMt;p4R?EhvP^rdVST#Uzg6%J_Mz#wfNC z*Z*nuDDp7fcpeTP2dOvc8HxoORsqcKiK8~cX2ON0W#MNuQoaY2Vr>UpYlqXKbWiI^ z0bONcK_t_bWe{Z)Zo1VQgXt1JXw=^8CkNB1c`L%O9D@iq5QCY4&PXSqtm8D9R`0)| zB;P=UU82Td+MBF%Uv*o=S~12O8ewlMT;gbBmFptR_lv5F2Z)^LkZqa;9{iO@1=|Qp zT;?MQW>3W_tRl{>>!HfgzQrwFceV4`FVE2(@pwYHBD5!xIeM?_+W7l1_s^$O&bOPt z(D!*&tR)z_@(YV>AdP*CGi8P5iczp??wcaR^pqkwMh9nLr{?9p!d8~eujZLc@ncc& zSM9+_nC#=t)#W>m$psPtwJO!;RfZ>GAX%Ng6r%h6WI(g z6TlqCT$8rdWDI}wuTJT2(73gtRgbu2SX{W0obS>tIp)T*d7E&;PLgYJMX@iIIM78Y z%qB49z^-Noi&j9yt;Xiz;JEe^i`qbBF6$=+2d83iCAu{u-`50znT8~q`xHwhlBmT9M%m%L*wDihk=iP9t5pxMbaPNA1*WBQyGpEDQWt{;+C zQuvEu#*!Q#ux5xK@u=$Hk-320)6*cSnfuWcPky{0W_3eo7esoy{)Bu~gqIJ`biTzs z#ns`75o$M*Yj(Lakqf3n-S6zzZ5i(H^U8@Sw{PE6GA2=t!mO$w0Z3V6W_0{J!E$W?~>7e`Cl`eo~osc{jN#TZ`K1D*6YxZ ztccILPLHO0M*?D>X!c#ri34zf+b-`%c$+R#BxT#TV`9~F;zP#CxwJdc#?vMK%hB!o zHg&n%=o$O{O(6>~{Be3Akt;MZLxGC3ew3Z42OIKz;w5md7kV;Lz4px*Q)xIG? zfIkt7A}YbQ;Omdj!$CsOgy0!p)OR(R8_bm&Zn90BB;R;eB;MDg;{gHEZi~#M5}08d zJA*xISa`x)GatffM48H>4%b3V9*P}vObybs&z|8gL$}8c*ZSyZy*sOSzdxM+70|5V zgmb!kBC2d=Sy*n3r(rxsRH^(F#&Ha@aAa?wZL3mPYd?)bgUzTwtTYGX>Jz9UPM{y- z&$y~1pmoC4=UPI0BdEWl9)DY5tF3erDj7y+2qRwjzHajPd5bl{nS=`c1YmXtDkEF~ zv>00};N&>9K_C%k6`toZM@l{pn0OV>mT;Lx0T-JkT08e36LE^)0m{~j3ZgCT6RPM) zO<6=lF~pV!(_s3Gt{9(qXr$s;06k8l*yFragscf`T)SV%CUGQ7G$uGs8?1Y7zueT7 znMIBpilxL%E%M&bNhdp3(wMAxO(})$jvQOJz;yLNRdvbjUt4zYksN+MM+MSn^ zc6 z<`_~c&aT)aZ@U0Nc;(T!Udu%5K*`esa6?0-$uNaTev?F32Q(9BeDY3uJ`w-q)r~C} zc^S=y+YKa?xl+u^QhE{I&s}p#!Vg0cpe*I$TbyjEU|M1~8gWn3l~U(GTZxx6qj3>Y zc42WCY|g0f$%Mlub)EA~IYv8Z< zxh1#9zcuvKX2NGO%kl|?QQVi`V2l(a?Q+nPIxl7Lm5eyb_rvgbqFr0G@P}8iB>-Jy zpN+5^z;UlY(jNufS0{u)xj^(F2%y6&4rjmo{#bK5yGfO-%AJ+r)4a)~zZ-zp1D#~p+3*77;}h@M{L$wV$po4 z1M*a&Bh%j)cZmn{^7jZo0Te%?J@i2EVq;O+>YIZ&JUCEBq9{fpoW4Sw@=7UL&vsUdTSSpr_Ov=>pe94(bCu zdHLR{GB8NYKHug(fh<8FPjgsj$$jRXhrL2H8FOm|z1Fj9-YZQ3c?S+KiXp3*!XbpiN~{-49BZ!MNx9O((8D zPxnI>Hp=kt$nFw^;b?-f=!&w>Xc@E2psb2GAiC=Oqr}9FSAE_XqD4UVMqrXr&UvSN zT_VOA+C^0$SP~<1q=zPjB^y;=3D-&oZJMfGpo4qP-|FleLa+S;_=y1roaLAoyY6bXLzf+hV*w`qyO6MvW?i+%Tz%aM|a_M z7y%8cp&A*(71)Gw43@LMh~=^BUtD1<9KX@2x3U1;)Xb6BJuGDmnAS&g5doQR_Us?P zuKEY^qyOToWzVuH(fB+}9ph=6E5kTRW;ZH^)xX58PWx*TnY9$ukjyM*o_6X~x11g? zIr@Fv2~*&>_}$38+o*_Jya+@9-}DvtyS!a5e@?Sc?M1&I!S$~`I(b}PKQYq5sM5S; zpq2OLU!XO)4OQKK&IO(PlULxcsOIBK;LvWOgXZ^((SP^WRN;u4i(em~zJW5z#{2&t zm@Dr8Ps|ky6Eg?r|BbowpK`e5Njly!EOrNFV=Iqfq$ar<2&xCgS02;LQZF8>)| zS&{zVm@5^)#d|@Y3|=gb6iozbsK|SNTjv0U+s(>XtjXca;2I$K@i~xlu8|XrweI4$ z@nv_*38vDP!VZU>gTd(qfz>W)z4z;!!vFrtcPoaJx@}iGOkm>r8Dk-;__Jfw{TVmb zim(0tkVhqSYs=8_!R5U^pm)euDiO_*Nca+>r`jxvuQ@BrjVK7iZ(rOX(fF{W`SY*K z3xXq_{;?dkZj$|N8|(^(qLz>7G6o)ipWI6YQL@gvz}DvoshyIT8jD89U`_@g;8+$obT~N^M1UZaKs>sC1rN367w2q7R0$RdJ~F zE)+W9v#V5hVOS{--ef5s*|WL+{HFNz=j-nH^%-~E!1M607mf@^dUS-(_qxtzV1o*< z>*3(gn4n@Jq$v zW4af?H$#`A!W3CyGbIX@V8skufn@M%Ng<+iM6{R^r4?lMGN_1=n4Jv?S$`3M<#4)x zoryBUAF69@7g+bvMmYD&6!v_SzP#+{k1g}*jg7N;-pruiSVAVAMw?Wq0eNulyQa^3 z7WdHBh3kjqG;FrlDR%kUAw^aKjX5ov)TW5YLi1Tt)NqQ#3Ul@#fmoE@6R*$7fUQ3!%%``AQ2S3I7`L{s z4WW8N-C9N(b)}ttX*43HJh6Ls3KGrS-Ss4p&eWifm^cU*?vLy1CG_CuKj!LvB_$AJ#qOji@E>hCTJItv>how%rIAV_ zcoJ9fawh@Vcm;ZHxoUMM;jO^5U9CVf$^FO_mzl1&9&?zJk-WA!0a;1Jw9h>evxYLx z;5(9T-*US9woyHPJH+vuO6~6`H&iSt;jmH3O3-q`L?j|@_A`>zrOcxDP@XpwH{|m( z*(R|4)Rh`;HspT1dL0DRVB$;}g%UZMpTJ{IGxvsI{d%6C5?#cYjwvh6%vuj&NpF(W zbb}{&pX+!S(W7;r3ZfvbALUXdmDV-?)nY0^Y2);t`X%pq4zOdqT#p0*uab@Q%?pXZfFMXfjZX!zyuf9?Ez(@``61arBq$p!DuIiRXBCD*g^4RLlV|PGni4P z>j-iUjrsna|Uo6Z8|Y>t9@7gYZ}r9I=7b4{Tm#?O(27o zALty&8guipaN#Z^eeCmA!$vQX<7aso>xJBJ?(oE<5kVS5Fw{N+jg&8`PP1qQLMbkA zGXfq(L*9cD_Q9}#4@Ll`fwN`uGFk>jK`~X=zzoZ}PO(}9LklWfQxEl*ds~?NO;AR% z4*@IFI$Lf~;$<`mE}ZJ=1SCW6V z>J+60DN_-n#@KX9H7fO}0R<})r-R8_{JKk^EFK^C0ck5KWY;QR~K@7W3F zs~b>?P*u%(8IfcuAqx309F+{|f$)_MRF91NtMV$nX{w5?>Bp=7^4?LZ&+;F8KA=Mf ztL4xA%udO+0O5nMl`4cbVrGpcX6)Fu>6RR6jKkUGhq)n0u1BRLgqILM0kc>URSc~@ zHevG5O)YjvFiCk}qt(eS>7tXlP>a8!Yo_Ys_TgOasV5S9L$Aa#K+F-)O{zdKIT_5l zDDXj4BXKzr%(#@?ys1;Un{;9BXBnz>+~s;jeRIuy9jUNH%)y6M7Ml@Z`PF$CQg9`E zd`>>ptMWc~>^dn}%Vs62&Yi<$O7<5X(>e*7c8BOQsvD|QW(7N^xtYCxS@$c_ZZU4- z_h(N19xwRA`ST+WnAO{2DZ2!&KcRcBJ@UgA?q8&IcXv*n?xa-PoLma%&HuJLNF3Ia zP*S|mdv;dk-eA|Nu3AHX`_*lguiw6DiOnw`awp6WsB6N@cXDH2pBBxI1-rxw_X^@x zssD*%LF;>dpa@eI?JLjUpn-SF5L2O)AGhAU^mvE$nnmY3sUc7$y=(6?T=mX8)RD^> zUa2U1_gHyNZv5aL<4;`O^A1?8@q0fY;Ff2ky6$Rg#(8|hnb$04-6dZuj}`Za-sS2S zP?6^dAP8AMcJ#a%QAeQ5eCK`wA=dtzI!quL<68p%?&qvnuf5=AJDFT}o_Pg}_6oTS z`;ad+0x9k=0#cxFyc~Q@b|rfHuQT(BsF9HCGpM!WK<+7cHOcY^K|X^Q#pi4)I_LVT zbmYI7vMZLOnf`QiHO|!#-1>Q0F)st-@zRPuWc&phLHaz zY8vd~LiE)O6P^?k+UiR&1x233&OslwHCV3TCYM+^n)1n^9xUve?V(*H_rf#{0_x)C ztiR{y4W(*;`D^rTs@8sBRK^!o@$^r^I=DgR>DPt0c1^<2c9wPxl+lcxxk1aO$nG7lB8e@F+DIPRuZ3e0ra+OP+{G z$WA9HP8Sv=@;$bD2P2RYIm_P)IcUOG{Yw}`{p&s@G;34@TCS#CI;l8yG_bI&je0pS z`FRKZlI^TIsO!A!(19X9d;po`s}u(1r;qh3PwWn+`R`($$CFI;{vBDJ5RBYTdTf3H z4N~|7rEa${tqOgyb!j{))+-;Rc+x7>eg&e8akBgKP|g1NmgD{=KmE8zma7=lyA_C- zB!zZfPGZ9qHEi@6RYifg(NpO-NTqvv)I!%kvr@reRCilzAz4;YmfVdln0P;MisrnM z6Sk_q>9ve-v;{%bq>orJPs>nY9JAn3j4^D!@TOY2a}mV;Dk$Z-jmX6WHjhW&HcV=( zerh?;UUjy}ikl*Jtjs59Uq17w2;K0<5l?K_L}Ae|SH*ruJKD=msM^a_fF+r&$JlZkSyic0Chzu0{H?ePej`=O2dA1l1^6-(S$HjjK6pfl_pW zR{ipm0{)cCNf;k{Ullgs|r31L$_Cbq&a zl+0;7uVYm#TqjVM`h)io-Y$&(8U$d+ONRtzfdZM2hb1y5`sFOOMMpz(n=1AP!BL}= z0R6967N2#CVv=WhKO{LJ^37YTSoiLf=tXWXP6rv5`5Z2pfH!`1YiY>-FpKuzHa6aUi9QK4>Ea zxMngmix#>J2FW4I><$60dtL6Hc0CwEh^|$C7C~(hz6T!N@ud}SX>on>lFFUiKbA)1Dkmw2V zY*LlI4o5ECp~C%>hB4(dyU<$y`#Jto@@?Zdd#XoEmem#%lnH*)-(J_-kJh2WTi`)3 zgkFc>O>-)|L$JKdG}K~VdAbq)bAozv!NnjH*{R6IKP)T8DtpM;;7m{iQsf(j#p;CQ zr0cc5I8a*O9tti87dDB3mX}G8!~O;;Uy_yas&wa)O@tclPHIRlq){$XFjyJna%taz zHTpLY|2YS%xQGrww@Y2$4qG;cU8ozw@y(J??wH)>bm8G)oEbJdq?3a~%0-N+2bhRV zhApPpS7&#zXTpSDU3_8W-Wh1{OqN(PmS>lM_b$hWXb^<}1+bc?B6|X}N!P!I@5tIH(H~gP zzcKKZISfx=h+iQIMc|Et&HKOOiawn1(9>o!;-(sS!XWm0tKhDHRq4+9(LuNF1Se)K+n znIsNdbL8RIHIlapGc!O4NZrddwinWDYij?UoHN#6&yd zg-TF^*Lc2WKu;2_hc>I1Y>pj!w;w488Rr?zs=IuS%KpuRS|UTAeJ5v=(iU#gT5sj( zB52d(0JO!WUSEm8cqgg=8?F!IU3Cb+GFV&0G1Tj-O7d!8&gKG4_Oj#dvY=^LW$qQ( zOCb8=S!3JnI+;13y~!i<-3ph<8feI14tKhQMdksNc@FRfA5t)+6rl_bKVJ?i7ioh8 z54OHacKs9)waqttBO;>@xevFS+@mJbuCMIB)`}%-v4a zD^2dJ7#D$7V}DQQy9tB_vz^aZId|^+e^@{NpD$<#mzs_v>eBrxsD$R;fI19Q4%> z9UZ(X?g#a(JSqTH2MN&{^Ktm8UjFau(;; zO!BnJzO~8e6aUUNKQ&q7IYuoBQ=>m51*^F*mDcym64NF(`z~{J4F2kPg{uQQAhW2Aw;SM`?FuAmBiWly0BjfbF3IMgkq=M>$8;=vg9yn%FVDa z$;4Wxq7SbAiYXwZt1!ozVysY)rW0OeuW4J@tL%bmMbt+vN2;nm?g_Ra1#zvZ809c( z)JET!o*?|Kf7qgvHh?8`R~p=GqI0Z?wGq=5+P;VmSc>>L9a+#rQ~g*H(JBuoq6!#1#Z>)xm+|@CBb@rmjuvQkZD_EF`$z`2WsBIY zKGAt#VT1jpd<_Jj4L2b9wjlJ@12+&M7cmg@z=<7@_+ZHZYxKf@#ul-=(A{R;m1KU7 zCVDAsVwcj-5>LAUH_#SigY|`s4PrR@FBi?9dZe+=K6k%S>W;?zMbZoigv%7?3TbO8 zZ$H!Mr9k`&68nprT&-a2I9v}SoTa18_&8S!B3E>~Y_cjyLA3rPUl-NXrLe%1 z#VgwUd(txu86`ZJqx?Tmt*3omZvgl_=N9ndib44#hADYYGHzB_iTElCTqULmW~F`+ThY+l#L3hk1E zV4?N5`L6ucvGOL9$Nk}{ZOaWFC4cRQDEGHWc==z@p=m_LO1eiUf&81xwT6mnQrpS0i7~ z_w$j0b!^2GsRe23FgTUz8so`n209GSG0|8A?pB<~KB(OKzFv|uPp(EtoVbxeOVJj%eBS@RJJwRR~uC|jfJeockbI0E9osl zv%92#oZgtZswwfn4yROc`ivLV;pGRAs)+FnQqagF3sHpEr>YG@0G9_ZV1YvC^qC0EX=#)~sr27^N+7Mf>agxz0MK}b&B$kVze zJup|~1EeT2Y(h4WO7>hkh~gnv1kiyNi+I8ucV**3=(t3noWY}zXEqqVg&yuMlNS7V z(m7Z@Tz+SdKi0M)2!#^8}l37ngub_)i%jUsB0|x**-JB(H;#cLdjU|7WY)A#NM5FPXP;LIV0&M>K`N z_pSmf_%5UDys4c!cQ(Z-S&!qr6CK zwbtX4A0Cn_Jc+>%zD}vF%Kxu)wd%#nIB>*gjA(>2N?JMt!D#F9Zw4e95HOk`AJUxA$MMK!JuKGtwe3G(@bMp*=a(ZZVmp4b+ARsvPX3#Qp8X(>3x^C zyl{#WC-L>afxAw$+JI|w>+(3s`b}{}Bcd`C+*}%!t!&W2e4a@(L^Ai81PPKrffr$b znLzXMhr)y#`COR&)HOlUf7DN8Ad@91RR_c%2ed*V;qs!ya_NfF5I0jz+4sV+Kpk;- z4KeT_CuqEW_xMeQ%d(}jRQ;0y)FQ&JXMe#+l;&ra&(<+5t*hAo?oF>* zSWES6%`YcmcSv;0y-`4+XBLeZ#FF%zhuO_Wm zHtyJbqHhWr%c(XJZHVh=1M>u{=#Usmo{y%<0T#i}Dg|NY7E&~I*)o+1*^vox0`8#O zb950yB#JH@H==-u`}rua+1uI6bHcv8;c0j3vSQsCD${t1tG7ZZ9N_(1;CU($r;WeO zGRvk64t0u&+HV~40Xo!QjAkV_j1Tn$m{Ttr5v1y99_{(G$5Oh-n(5Y#_-s(VhL(%U3a;2+^t63n!-N=p6RIl ztdF(Vmi?8gh%1NpV0`&Ght&2tg%iVv-sfRAZ!ZWV@-I6nz3aDaZ`N3@%18)}8N#n# z1U2j&S&VK~%QM2Gpvi8MSv2Pv$r<=NF`;om#kMVk->vOYShTt~5pwg&K%@Ao*kk0P zMV4|v^#`C1G>BcCd8@5IPU;h~%$va8tsvg1ZlE@8DANO4gAs^*0%*pQR8R~TKYkj7 zEWd;3H;P-X$bw?VDrLO$AT z{Pt2zY`iv0-U6ARD%%o9|A14$>==<95>%@?f+3*?l#38(`FouUH+ROOPb23It^MLi*}V*ud~bSnfLVdGLkEk5{I`Y@8m5+B&wT+*4jM8g zsX6%nU|h5RA?nlP0T zs_dr6CpJqj21iAjBt>1Ozj7EPlElEnmd;67Ze(O!jVfBb(0MJK&zRtS6*5|6Gg}O9 zkD#=naunEwleA!6Qg0(}R#%JZgJhSy%UE=`o@_}=$Vjq2Ll-hsFfXm+Hxl)|^cd+u z8jt=oLV*oCw3CvWR_;zhBJou!b!gQ%DfWst2tK7@OA%8J)!x=Nuu>jF1G!l&8P>DG zmNWt`1|quDMB^gjE(D`MOzU`%!>yRN%U9X0ZbcC^b^r?eHP4+A>U`74pM{&lPs!TO zS;0P(Ot+vQpj7`#m}?@)pLiTlfk5Rzr8PZ=!Gp|m5%zb<^l zqGwdGEnwlx0bRf%`p0|*#g~2K@`wM>&Ny^m?{B^St@U2dBPzD}lJ|FWmr=*~DwHqG z(cwx^vwV^9tY96b93^J@!M5)60H*xL>gq+D?aXte4FRHyGX^fgMx43NQxnsgz$#`IR^Y)_ z)TF}0Ei{JG)g}k?@H#~<-xu8*t14yQ3#(&g>7QR-w*YSZ0;dE=aU>Mxd%Hirw2)i^I~xwMn*a2tp>zr3J-x z%Ny}s5M6ygf`rwk7JnQ}6Vu>WFl-2&Fc7cE3A}D^5kF|B@qU`|)R9!j%3htH>TBZq zmx)?eGDO8mimekTe1^Q#`iQp+0yvloXpdXQkJRT4B2BH59g0XWD8aS(Lrb?!`%C(E zV}cG(?vEro!?XgNVkerCZ`3V0aBr>Mz@(O#z(GStP12}2i)0K_anD~oUF>)ao|T`B zkkVg*3;my7lEnD)qG^Nd%@vYErWaWY!5Ru7i~%YVIV&?F|Kg$m?<}wLKo=f`>+d_k<@y)~F45NOB0m7~I05Y-8kdsMbx`+PR6e0y~6O-(af=KZn<~Sd-Te zl@XVozkOlR|FeHQY|Fh93#JwWy^tNQr-FI;gQsG?Ti3MClq|Vi-WT6O2&H)}GCCxP z@Nzrl8e7chLFZYUt`rYWGfV#isoJ;JcM~spAu2=^U)8K!H6pN9`0}eltB~NTJux>_ z#mpNRo4M}W*pD+ATlVD7ls-2@?juP>Gb8E~NJRteN4-SeUZh?Is>_3wD~{2`8TH_;ce3oERd zFJHpmlGESs1HF%P1O4rDf&K2tADxPkjjuNs;E`y7dQ+G;)B)1s&)>=oDHbXbimw>U z+_V@!JC*;0wV_;C`4aiPQ=5y3GZ*mvFW}MF4?_*Qs&MwCJ;(( z&e{qOR91;aGtw>)(CR_5wM0U7O7hmU21U)eas`c|d@db}W~8ocraQW>+Z-iy>lfP# zGxC^ovUscrrY1?<9y-^|1=XeB8ykWr&HhJdjt_Ehj6I3v`lKst9*Bf@hxUM!CxxGc z5kMKF_4Xd=!x{6zdut*4ru)MEY)os={k!1|UV0<_3dO7}@#P=`$f4^aT z(5~Y~e0{gjI73gLfDl6|_X`o9tjxI*68~+DCsuOteQO-g?atpefi#|O#JBWt-u$3- zcBL>KeOKVzGw6~v`bKh;-q5{$Q&#pJ^VLYmq0Bq~kkaolYyQis^^uDQiq}g=nJd+; zICDNDxyHBwEkulC*hVs}Y7Q*CnV;O>rXY+%DSe;vzG??HfC^@f2TE&g1x~(_R|vN2 zRhacZe0X5*of>DBI701r=0o|y6+|4mz_9jvDD2NSl??PBv}h-smC#?&gX6%^5}CY~ z|KFAeG|eismgu=gOmCBZPYxhYK_J(SiJTBK74%<83)f{WC;l)uLQXtx#y(pFY$852 zbT>5{9i95%`>IsW>!Ei;Qb5fYK5}XBza@K&vwF!k<=Ml*Xs^~8+cu`bjA}}IY^t~U zc*@F?P~>MMdZdv2#fJR7qXc3sO|nQhIMMXEMMD*tFa6XJd;@ldx}vjoI4DxK91V0L zY(dZ=)_%%Uwj6;F0!<`5z;hiaqgYwr&VjM1M~NMS6VKBz4A6#)+JbCr3g7T!;n4jh zxIWBt@QiXv)H4ib@#?nFMblZgA_Cp~t;F_y z-hhQpZQVD4w`V+c%2ykT(el`ZGDQ`exORdOAvkgHCsbiIG6l*m9l_JEVc6)3 zs=d5~tUM3A@@dc-|BeX=x8@kQKT3K<;^wT*N$iZQO&K0e2xqX3L3Jsa`0DL=(l~DA zw9bKK90cg)yOlS~UrW}4Bh4#k3-Cq=)S8@Zx-D_hLiI z38(0J*n+HD@vi;8NEe-ypSI)#GCma~hkuBENB^YfSfs3=xk|}{oRYr{F^*x_YQ>** z1cm=0+8@kDNFt0ZF%&S-e9l@rL3bBj(7o}HDJT$hLgu*aqdwu|zXdbpe7X{@uQ;eo zI!95pQvaee28zaJm&TI70Dt*dlvoT=$TWDx05_iBT&9t-7|Z^n#M}Z#q$UWr+`#VX z?cp9Roq`?Ux>$A?Im8WOwSS_u0XU6rY>HU$+}+gJE`>i{(X(6L zQ_6u=PzUCwAFHO>6Ut0!Sdqy@6aKzEPoRB%XfL8n_ibN>ve>Jpx@F9w4x&Lr(F;u0 z-CvD=cvo)1>o)_Y5Dyo4sHo$xo~15CG?tS=Qu7X8jlCG!l2K|u4kDiiBYm*|k#0T5 zgnjcf`IjH*k3cL2=U7rh*m~VrW+CCLwlm#ZxyV-1%)(7_)`nD5;k(yXxFpI$Vp!CZ zDt~q1pd`>GVqWIPIT?uVu~2hW@Uu6VgH9KgEJ9uXajfT!hY`68>VIo-zz{m<-Y!D` zQ_|@MLiM~t({~s=USeAg0iN+D$Ak34fD^H&Y zw>T5T%gb7w^R#7ZxL>l?QBD@hw7&$f_k;{8BatG{h$9*#hEuRsTvtLJ#?k|TE%S=a zY6ny4QENzXMofpNW&b>gQ@h`w2wX?YwnqOhgw5M1P~2rD z&T-sgEgYg3Osxn~aGDrtF0Xf)HC9}}$vi93U0Ji-TW74;S7;YV1yLE3;(rB6VvXWO z?iq&}6-2SVyNiVl$tpm(R7`rXrjd95}$SowI?uqj(9!!=&(xmo%Z5 zDkvKSIv1>bnZDy6^^zvdsw`b_=X?j~HiTStw0-(n>Sb)9SLRBP>^94I$ycAb08lbl zlCQyw4FxqTNOhBjM((=W9miU?UA84M-?cy$DE}m6#(~JHgFPYRm|sGK4&gG!%0m#t z&nU7dD5gY zazq+9m?mLG#=I|=mreQ45P+d zn~q`4B;|biZ+#i1N~O(imJk+ygPyXcage2iO;-EE!2zueOTm=DE}e2H!kAMco!9E1 zgkpaf_BrCmFG_X$r7Yge({b24~BI^g3 zo@qc%B=7Z*ga4pk=8`w7g<$)E_kQL(s5f#dZOIS|R3Q^6bE!w#T9JVfka{kr>Jjw# zQ=1L!+$v;}5=3pO6|SgyZPFB97t+GXZ8uyrWWcOf86|aXU!2t?%Qz(9pt#S=LnEQc zA!$otZ=@CYVTDv0?=wP+sAs6T! zrl`1O(m}Y}MHxIV_D;+arIV;guMJCvXmX?Glp(@vf#0D6->_KT0pNqVvaBw;M?nMdNlc0JDE{66(G^zP zmiY0{(B2dG2hOMDC+cnkt6M9|shC;zet*Hs#|*N>XDWf zphWiZvWph4gYLV@T4QZ*p3#+o;ceE0&01xYSt$_!Tr9UuQ+P+AS7lxdoL-PEG)^5? zDDWDQTrQgqYz_Yk+6RggH{}tBlWCccEJ!L6898G&I>z0248YQDHCe=evI(ApU|bMlV>!J_Ll_fVJ3it zD2e*T1+O>yRE5- zVDb65)72gqL!m4Cj;P+}=ai#iiK3VKpP|uy?dCw6!?Ke4VXm||?$=RW4zpuC92hTN z!2@$RPZ5)18l#9`B9zGm))7isu8xS$*}-(pLiy0Y-=j52mi3UTH#+j9;jQexPp+(K zbnLsN7_kya8YV63HvssH4vTsn#T1$?$FkA6PF=901u&Vp8zl08iU)tf;2VNriUri$ z8=Xv6&)eD+MGMT*{N}#b_pw0gvbKj^LaWO(#03LhoI=+qTXSgHSQPN}~v!fTs!WVCpiDLCYFb&fZ08;G{*& z$}TeTf%D6`b*;zqIuk=B=HfG)envhdQRM+9Z1SZdR>=?qsBGgBtIN%#ML3%pA~Emf zj^m=(!CB_i0#d2UD>O>JhCn`&(%ad0aX}<42h;Ovqo@TId6x8Br>I=znQ~#!A>pXUO&xbt%|9Bw3Rd= z`XAf7KQlFdS*Y_DGiQ|dQNW$GV3>u8y_;C(sK!D3vukHMRY`$NDaU2f`b9a&45riv zdO9@h=cW7Ceo*DEaarrY=roRZpuxpVxV586yzzJf@sE7Up>!tR9AFv3FJY168cUky z9qG1&@JeAo_vlz%V{1;gT1GCILhK#tc_MbQAdOhpWVpkWWk^h@5d`t=SJ8V}SjQ6M zc(%hT&|CG?8^g4{YCblhQy?BBtLGuo z99H>ulp^%?@G1K`;(0=jbowxsi;3}(4e{U5hXrQqoF9ZEi^Z-w_o*|7kjT z)ap}mGY)-d0pV8S`5?$yTeGMQ1&k2f6(UR0br}$S=*BR7+3s2YFxuvG5*99J&D%Ks z3tEBI9=5EI1;BFg=5s6ssbxy`yG7O$*j z@*d|#EkZi3q?`}SvfQIT99Swe()MRji@B?05qdB;WyiScDq`KkQFn}4rPJBdCv~fA;2mz1@U`q&ih@q)&dtR3+%fW}nF1HAH)|Vw5 zVAkYvjQq5BQf+%ua*#5M7ckqh4r-S~jzh>p%7oIoPGVNc2&*94t>W~1H9n8`1b9D9 zhIiS%Y-%VnT?BaV`gAsocLaFImt)2gzD{U;+P3ckhK37WzHhR_cA7<5W(}DmrkSxy zE+NYNb*WR@oO)vh+`B2VXYw1XDf`iKfA{G)6rEnI2`M!g1x6&??pK+-`6$ON#MB>) zocYJK4&Tz|2dIFL0-Uq{M3gK_XA*$tYswD|w!0JKIB~RW*2QPX*YU7|mCE6HyJ)qy zx?a5lKugN845^e3&P->C5Q_dSO=Qs%cyXqwee$EAWj46GJd47qmCpE|`x$3L=U-Z; zu1}3DAFWIKq@3TyIF5%hC96hmjI7_kcf@`t&{t?IXF70QfpTmgHBvEw8lEuACrS#O zFkhXXN_wR7oMJPm{)wpvh*p299%BPTW-8O25*yDd)nZnIPx+`=zXEDqAe)x*{-hiI z8|lPX5@E_S73EqWwfZ758$lrA6$W2&I$(=}wivG3@6yY&R^x;!;?g8@5M7hP9$M8X z7~)U;qLJd!!(%ZCzL1j-y>{L<3qTcSjqR(x zxYjumE3so{joAL@fpx1OfVCm3Nw;o`!%_a^<+FxH8RPhyA5ug$c6{@bHsm)goF5sH zOuXia8k|e$J5o(ag~C47bFab939e_qmhN5r{ERBMI&c|p)aALjf^OAxs$nq9Z#VGy z;wc0|Os-zF8=5%ZXRZkXz$q)Oa$1CCmMXLzD=xIIFKQ}Z`L)%_+P7;Z?5ic3Dm{3X z9n8_;O-4N|=^m98;9+Bjo+IdWaww%0pFXHr{Wqq^dtTCV7n^v%XT zv?#FW**!H(>MGbjL6Gl<`nv_r0MPrg8+7#E1tDzk#lwZcmLv0}5H%NATi&w9ZGDBA z0{pg6i=qc{Fvof#fE7XLIoknUManX+qd3qaiNk)j#~)i?U~X|jN84R-_%Fz|8G|0; zO&GzemgC|C;^D|1e|5MY6LYx{jkXyEn|S@ql!L5$L_;}2EtIYUqo@j`CRw>O& zP`PYRqebs%lg28lq#uM(G6B`+_P@%u8HvaWb2lbxbl$6s&U)~DAnl;E!mv@T<3JIp z^kuWVQeg-8^sC?U%>ze@J$Bw_fU6c^y6A~q=P-OSuy%TE_~o$iiMKLY$*8|v!s=ux zEcFvx<`;+u&^*tT`X2T@mru?Rs+9uO!i6@O`~cO6%>PXEzu0>VsJNDNZMbm_PJ%;_ zV8NXPcL?t8?(S|08l2$n65Jt3@Zj$5?$-3*nLBdMxpU{9e?FNr-@34B?XKR{RrS`c zdaa(fcD6QVId=}9R(h8(RHgN2JzR3|ruZ9n^4=0Hp3fS>h3oS!^W!=m+AT*0LJ!ea zNpuOI*R&AP&U70Rnjcp=%|3gOJ=YGc=uFak9&ZeTKh7}J-k6RiUkrJAdMod27i!=5 zjB?rpU-7vWb@;X%DQl=NMLjIm59#<%Ln&_*^$lVrhwRSxo4p+Tn$=Q)J=8K?HzbPw z=1fYXsC}rEN(=WuKm-pvd(VlOcc*4#5ls0|sM%%?xTWW(81p1=#q@@QOrM?O>Pm-Q z@76E$$Kx*Z94Bvggnb2CtN?6ZSqPPm5HSpop`d00Ao`laHgpxN?y{@H)y%HhPbMdN(6(sxuOTIWbM_e!@#wS@rgv3i;tDkhO=^3i zWUzSS(=LCr@FNQeq^##Ww2W{hwnC-3R`t4`bJW!~zRiWa1vqLR9~tm+Y`8cP^TuwC zV@~ceKy;o$t~)%{8uWtyM-tnh%1QjO@#_!jscAML<^rGh`zMM05SPk=Vn{!Pxq^}^ z18a^H0K<=&t5lw`FArhkUe0qHkICVze}0@AxD|0^Fs)?ej}1{BS5?(~obfYLe{K|= zA6#9@>UgW8>46$H!4%YaN$|P~%11NzNG|#9t6}J7O1fT!8Xvs%Gll8aHB(g#)4*Z` z6C#fBFr~bnQzV_{Q93y85SCPasf>t$7?WW&D7PVaAg z9)EHgtRTd{CB<*~II!wqu8N3QFsUIaZxq@wa%iNqiYY@WQW}77P=-;4CJELlB+wa7 z@m&UQe3i#!M;HPD%#6lCcwuj_@a!XF6lvQ$%s zJY1xe$RHs2w;tS%hV;-DCk{=Pr~%tWLs58ez=rf-YMFV0b+SP_g{nUM1J&nqZ?sA>(SwX{po#vD^oWlkel8fWaaaQ~^T`hA0w_jzIrMm7Q;auWiK2;5d`k|4+OU^eMF{+$13BAG$?-0=K zy9jdEAiwc^i@`EV#e`Q}Ig3-6IL>3Z!9;mEwbq3AR$k5RZMnJ=)nFclN`x=f zR|H6QL`X&+uLwTR^{j6nzza zwRrUnUwA&4;KPa{H!IJZu80*S8GPEHf$ghzhQ%r$99Vu>AjyA7aP&b@r6TQ{cK)k9dlwiy*x=r>#h*M~yM3%*`E_UxH)*Oc3~-gBj_ zAbIYWU4hVWFFn!M_!q1CJxL_hHHbcX>-G0uX%FJ5T1sHe1q!evS_QX31=?`GZC#OQ zzai?mVM9~H((q(e!Kj`>sCs?FK6%CJAV~3Cv=@GbHF1GE2r-WRb$Wb)#td&;oLREPrZDqk=SCWUZCaN>oC@AVYa|)sH0u`+Wl&LVPYJW zul6Q~m^AH!C8)N}G8p+GyKZrYokmyEGTM7Em@j-rv`3%H!vFh{Y}jD5dT7aL^}Y+D z4H;KOzqxOdkAvAb+s~a$}&gk8iVD-w16R zx-p&|-)M;a8SpVes>C6|2s*Q!z%u76#)v5O0ZGY5UJqCH*7k#quY95id+MD8R8v1r zMU5T0VzB{eqW5jiS>C4uFP(`vm##+`!%!W8qjptkBw@4hS!1ialE}~M3xRkBtXTcz z*<Zv^+yoi|NDI~2;@i9bQxb608J~LKh%Z766M)h+P=DUtds^kIAR)c=fj04Q! z%pt>zU5~V_XkTr6%3;P?PwK>y@Wvle_?eLOhkqE{vDYH#-jC^24CuE~kf|1ydlbdB zl~}wcw#}}Ne{XpNIw43jXRSiCTn!nnav+2tchS3QJh*yHYe!~I18Ro~CXANbe6F(9 z!>n%JPkH@e{2-QBh}}PMpluVR!0NZulz;U_Kb0V7^r_2@5}8~&75Ign=sWmOv1{o2 z5hL9~M5GQ(wZ#K4Ouii6EePGweZs#sa+3eWpp%NPl9Ii6nW-*3?wJ!ej z!<;yoxD>$_v)FWSaw3r+F@J8ePp5bsM}X!Cp#zhcK;Ou&m8z>zFm{GpRlGLl!<8XG zyh4!zp8>eJ8!6nz(ETJ*9n)5V@mrFzrO9P@Z>ty!6{kolvB1_NL@{r2qRpDD$Y21l(!O2`{(VOiXQfum(bRuE}# z0ZTMrg@U6?CMxs>6Om^S0itrd!9@-C!WHnTPMUBxa*zS#RF3nJ>_3?WsP+ zZ|>5>`ty-#=M6$v!n*7gQW8Z^k{NGuoz&HJ_y}O01Ey`GF=(l}_J@Gz#{{kHC~sU* z5V0+XKa|h-TW~CEpvYEcf^L}SPrYuIk_cVUQ2VK<2ZBZ<;RfeqzPeopSf!q6NwTvi zpqncT8yQQK`boq=%!LcP>U+QRy8sq_!l8_~-==L8h-~AfbWmd8h*D*doabXj=nUg7 z$(eY2e^dl8hmn~HOMkmn#o4jdo~tikhi_q>J@n`#m5*~$KV~i8d_uA66h_=O7JH3O+Yd16i6FCVOUgAAK;qZ1KCmzNEzfeZ_S5 zBcz$ijq-;lr)kTEv$Zqh`u7U)@SD%xG8Cx&d2}4Rltyw%17^4Z+Kc9({64msfHz)*oBRRJ3sit#PDsa#_KI`Rg&8A**#?9XQ zrLgYCBv(;~wsPs}t*7pIS@Qy4J3d=pS_WWaES(lFq=^-@=x!(pv=KA!dgB9AQ!lZ* zrGDHKNgx=Fyh^#NWZf;qseDZ7p+*F5NmGBiisQJ>X)W#|C_a2$FCh}6RJj$RdEc|$`$hw~wbq0|A=?%NH++wrdK%pAMV z#}+EWQJ+;043Bmw*_?yHWp32ez31O@l<)b#$&GZ1<9i44#`7yjO|scpIWwX(D)YkF>PUlgswbMSX&orFab(6Qv@@hEHzqu>PR)X$hKjXY2R3hjAqd0 ztKj4kePmQIf&0om7m2Ba3(p^C7=S3J?nltQgoBpG-=&X`ybq4`I^2YKj`Q?Zx;{jk z8YDN#5R@c^_a_+#)a;Ry_tG%n3R+9`2Gqj6!z6_-#J}JDzTYy9RYW33dH)gmfk>NY zhu-`B5%JhG)cLchYV<44GKqVm7LPl^_srTnl7TEHs?j+pMA_A)eGBiXT)+C*f}+C6 zyGVr|rGBisi|^RpmdMU<^O0aC*5%3DO9tOZ9w$JHlW)Tcx8UtPEJ)FvCYr7nro2-z&P_wjG}AP{W*Nl(rz{Gqu3KUWeZL z4EMz_Jbd??|0sNt*~tRhWaSlqONPuGkOIB*tPg8t`>WM@x@v^$*E1P?EtnmXPO4TR zbV1Ym=$9+SUFCW&SF%Z4RyEy1eeyAlkxtXBn$OY^PfhM0ROMj%kWN|g!Ys}|^tCje z*^JHpNX7qw(7EaE-J#ulSc!OYF#O}NdD!$#Y8s0sY3Qr)I$b|N zI#j{HTAm%I#XW_SiMB00BfZ+e=zxFayNR(O)^@14j$Ow~&kt~MEEk;dG8usql5B)2 zGn;am#>Ad9P!f4))SThUSnp)ZKPBLN+cY!qS}&q53((r@cw2$z7M9CSmBF5qc>YZ9 znyK*&#$$Raomu*b#_{>V1zlk?zKN^I5{?rTaCkRHc3XuAgF<_w+G!9lZ2kH6M}<_G z=PNuhRu?RLMr7&o3|c-w*n2@70G;#(3X4LYG2BkyV1)jw!RW}t@IAk3DAb7Q zkU|oSZ~mLHp*`=^*j>!W=k|0G`3=e<5L!O7)d!8ea#ZH0g57Hj8C>hbl{sA~kX5)s zbv+#Nn9kJ`{f3Q2qeINNi}q9vA7?F`aN|QmW+;V5xaI3N)_*0q?)>@NbiGk+(tiHN z@lh{AiQp!QP|COkdASq?eV~;=3?2Ts^1=)WrFzdyUresQu(6UJk#8B)TzD3{LPX>j z9SdxKvXEuY^sm`0_Kh23_j(fn<0dlQ3-PEHdT%cB9V2-opvmtUU&r}jF`_O@SW>`~ zVsg!kj3eM8-Gv3(VAozK3N?(KfSYec8wh|NmOu7~Ue8ljhxH>L`;MSpz{A3B?YY>Qtzujr zjBZ)&lPb2??28*MhY)QLjn;#Zc@EDaw_pbF9wBo|?}-qDCpki2XsU6K9^*OdBO8wN z{-S!zaRu)$On(C}l_qS_0(=>5CyBh`n2o>Xa_*)+XaF@N!3IFXLJZjDV))F|EfC z+5rld(ATg4DtNsOhk9G1NTVzdOX&Op)dv-K%Pj&M{H?7BGCWJLV)IC22`$pE884{> zx!s##Bww`G;RbgM1yM}ZD>|7AjbSJd8~-!7SWA>iHG?gH?n|}Ne7%U_Vj{?s%w0%o zm5*7rSKlWu-3yG$AdU>M8KCY)i&Ojw%&>M=r(IUQo#@(K)N%qA2alp45J8*fueASQ zEP|9nOchC?sDR!g#Fz-D()}*37`Gmeq4#n>gDn)Z32WLIwLx!fMq}i=(H=a6RyYzQn?lfobHCs(c}s3y+Xm6%;|Uc7X^ZX17-SnCk0onF?yn*oJssECfzH z-C`ex+@_lH$~uknRe<((J+o)OPWW2cg3fv9(rv;Nd3t+}ay?aXm+^&#z%M>65V==ie*KBnP%=^qhan!ncaPgD*tqzI=cN-Fcn}mV#|zUO5JKSQaQN& zBKTA5`?!t!sB`U1A$gjD%#49pX6*6U?=PD_vt;u(lBn1y_ih_?WXhrvaW;bTQ8J>t})y=GkvO3 z8A?TCvuHJCg5&rlxb@xmHSFI$F>&tmBfj!aKU;5NNeMbj5V2?}@+ruEB+;6e4cYs_(G%+(Bddducoz zC%K`XWbggJaXKF~03A}!sa6H;5o%Uo=BsH?^qC&*7KMJ4N4nY9reM%jlaammVx^#ezC?)EbbnkOFjtMEo< zzpt3!<8Cg70T7?Ku$kOGkC+Q>G*1@Upv50YeACP0fS>5x(2AVe0}QyuK#Jd(W4-B_ ze{tY zqu?Y~eAe5AcTR|E2-0f={x%$?s*R zoIEHpBUS59N!9GdAvps`;g-b*s zvzf4uV;`0j^Ow`V_qZR@)S3mAWaMKeHp#|40iT)#DO^JMC@(90pSZmA+=BU3RT3hA zO*#(&9YdMnXwI}M>lQ#2-wNwn&1XqpdX-mlzBcCf$H9}prebBxv(N`ej2GC?X~Nz6 z&uLmK8gzWoRgVkATcgygbY6+oRNd$5_4< ztj7lpkB*3sHBU|M9;ft&+^D{3e1(JJzTtek!-@q)mS2*DQ%;hOZSz$R&)QdJ^t0}A z^-9g;lc-BhhdxZCXJ{&IiRU!itI@se4wje|rQiH}D&KxJo{Tj3RBt^^N}W<_e@;&<4}yQKn){%Zcqh?Y2C=PNwq zNi=U9-PAYj*I<}Q8OF44XNf-AlR{(RjM2?iWAgK zjcQSc4AK%;SLBta!=E6Gbyv%5e^f_&5>3stZX!1>P?M)&(dJE2oUJr#BG-j}KIvW8 zxXk!WUNwBKm@%7VHk!tF-g3%Zf>$=jD-H?pk*WQ_y(dANi7NQG%=7}K^@pD#Y#byU zYF(SVY#4DI1{MWe05yhTKJeud+81Q;d#!sKIvN`>2( zw_LUngaQUI*GY06d1L#2m-UdV4B9{r);CX;4IorZL3r~2d?FqT<1bFc6Et^nlrwe^ zvbDCewK2AFBH=`25VEzhbx^d^H#8<;5H@x(H#Ald6GUVXHMepyb^w1Rq$F%?XlrDQ z$RKWPZffR4!pg>u$ne3~#?;A-go%ZNg9VX6(b>Ss-40xVgtfjYxTMmbGHS907RH87 zhzzRcM&Pm>>}=mpgU#bo4^l$BWcv<d*j?5KvH%&`>Zi(9q!0-r)NHXml8i*GvMinDY8?r1n_M{xR9` zWP(+l*b3ukdHDr}Ma3o6HMMp14UJ9BUEMw3 zd;9ta1}7$`re|j7<`>pCHn+BScK7xV&Mz*nu5WJd?jL^A1p$Ei53>GB*>C7V2h#-! z4Gjei_meINNLO%zLWhQV%>;`fAP=W+k4ehx5051nlU>z`K*pkQhHc<5j`)(Cb)Dk; zCux78?Dr8C@J~_pSHk{A*8%_;3IhD_pwIz)fU5(l96v;GqB7IH08Dlq&M*L>l^?RR zefyzgK!8fMjw^K4JwQ$v)xTvbVyM{oTAg^}b#G6<*-(6g%_HJ${bIW|@fQ6P>1X}; z+q_e2#83w2oyB7CDb}-X6V`&dn$iS}r0>n4$g&rhV%47AIy);u8sVQ_bKHmoKgT#6 z+Ku%dMLfz#23~yKzv4@mD!i+apS1a&(Sn36AMnUTa>X0uo0ihI(AXlacIA_eH@@2~ zl{#<=0zjV>6}>&RuFO&|H<6Hw*p|H{Eb&-=mtmE&aWtJQFMo~RzLT`zz#x2cd>*}XEVGl}`9#$HAmM?lo zKeEr~QA721N#sU+?sM@`u$$YQ4BIa^l`2)UAsZQx*LK_!HG|Zkjkfkx%ji~^q06fd znCX&0FEClr32jaJwa(AYd;UEP-fba6_sA%5R3`dXqn#WaJ z)Nui8F1Pykx7QT~O{h3~6J@0pbFuU!ueWgEPOkK?`nZm-$|zsKjS_!3SU(iQL@k;1 zUH8tk6{^gsYGo>~s4GnLq1W#k1bo}gCf4!^skby6kkBS_)=l6v~}Fp#!KR@y<6~?1@UcP zdSPecmPH&sMx+J;g5Ac7N0HbQ?U#d6*R(EUuag-8r{6~S_eU+h&di)Lep&mJPe_nO zd0A`*l{sFU$s+vK_Za_b*%o)9Mh`XKj z1ea;);^?NS6)itG6|RoDyhU{_=#9e6_b|OYzbxc!PB`6i8YYmyx-2+IC_1Pq<@dn> znZTK7bEUBoX?Zl;GIsBFPJG)2$^O!XYz_nnb_4+sUG_$`L4XFij;Gdu$JzVJL&vt9 zFxspO$S|s`f0u-a_v*=y_4MI790U-+_NjjV&KOHWG?Tk^`$w%8TTeu5(KCkqgGw6! zJd6L7u!r1sB{^Qw7W3mDznmM;Ju$6ZbHBl@D2SQX#>FvK(~Fi@d)^5zt6M|@^sed4no@|f z7=2=o0X4}|GS9l?`JCs z1&ihy-cxwqWvVZ%ahdaIDjag(`)62M6#Yu?`<3=V3)Smk*D}$ zrj2_r0RotJNhU3Xluj0}%8Ot(ZU3^_KiX&XFYD@wm^27#Mz8f7qYKw8BsbnV9ct@- zyKPSGiuQJ^S$ccHFcO(KA2=Y#*ox|_ap2TakSbWyno5x|PvOHgASVq__e^!$R?Ev^ zjj5``^`qns$ggA{E6^6}#2EE&q1<%TG4=`W7K792YKm&Bt;P`koSF4GWd7K)%!p2#Z77PGCIJI6pJINt|lk9z9{{tSt`?rdsy$*L(;>y9IMgyl2P5IHcZP}|Q7?(O( z)hcNzsf_VnukZKX$quNyVIz6&Ipebdl}EIqw$_$>mj_2n}^!@+zz{82EB3*ZRU#mlVjj@QxpG3WkK8d<7`2b z&V)n@QbPJJ7w!)4zIr-+jvcC{$1m&uXbp99daC+UTMRlW1}M@)@ArRyE62 zS}O-fXPRx%tPUTX)ZIDlVuo%oNn-SZ%TsLhU^8 zy3f=7+Qy9SGnp4}Oa14ZiIXmhT2Xy$S(%VBS2Q`2u643N0H!+?^jjLv+o@|yu&B^~ zty#u1yFa$KmlL*h5%33RZOFPWR^6MmgFEKwa~G`whuzLX5xEIwrsc*uwjc_9XUlXS z;7hLnVEgnxB{X=Fh(ImaWXLX|fNQKjQUQ!*m_KUK&0-;dHn2^&;ox_=YYgyN`Sn_ssNPHN0PvfDHpI z(N!BYfBo86FeqyNRB>ELmB46YQZx6{8O2rottvO$HD`K=Z-n4Dpo^Q zbDhuoTfXvlsvr1C0+?Uexgdc6@TXB4BTV6zX`}%ju-o>dhJ9>7!1>~*XjNojJDwAF zrMpj|`_Ive|D%o2FZ-kKW_;~fphowjEp`D6o@{k&;kp-P&IbT3U494G`^o)iKi>uF z8C5q-k?Cf@&K<$Mll_os2m)lQ>MCC&33q%=nGh5l%$Fc+JD?Fup(Es!eD12XaCvG@ zxFX~~@Zf1%MBiavKL@UNmLqPw$8=cmDfZ0K`ij~b-?>(OW`B*t7wmFXES18+Kqw$z zu~F|)DGKhtnSJnYW#+#)PjK}7=F97rwm^xLO_@3qb^4deFac@rNHbeuQMm|F^PSN9 zt9xQ!FGWF7U&A)h5vd*X5@>&S8KPYfb9^xoKyZru=>M?${u-L-dd%$bEfGvO zi?nnXYpZF6Y7o1vEI%PU$#79}Rtg3$h|8}~eo8j#-Fm5O7$CMK4N&|gPreS#`CdYZ z@-2Tmr*J-Z0dM*fl-cPH^30Tej|I80>9-{%Jh&XU*x)mE~BBDgGRO!vKdqdzX0S4=HCGt=bPQdT(_&qI7`LGq{r z1||%V1knw~K?hW#YlAQ<$dF(VfaJxy=QaZnU`#}}Eqq|xTcAqQ@y<3Fb6?iT+GnwpXZO?tup0N|mRyZ_s$A%7yRJJm^>4=B- zs46@=xuX}ISc6xY7m43SJ^F@TZJt$xR50&IzvmicFA7!Q>hdD2P+ElUv%#`Dsc6C zE<GSPz)VMCwh;8Pym`tE9SBsX9AeQkZ=7&au=Ynlo z#WUwyz>~-zr?at9=r8N6SFw&coRqEwduS&IP8PgxkENQQ>GCc^(DVym%q=c+j=V} zc2*g#aDc6E&P4fQtoU)LFMG>}(DMP?nu@SJs4(ulu~Lr2C7uP1F&} zYx&|Kz7P$*%X>WdeR4~3D?%K|vOb_NsX0u zD=Zwr3E>at6zhT3iDUW^miN?@gj{mIa z3mM|@u&iQ_E#f*|S4}1^sOL&~mve6-$^js5Ss_LbnmyQd*^#Chk(!=&8q5A-AHgNxXn2^i`MPDwrcQ#5(6Ho!GqPj?~<4i=LVH~l2$Ee15PMkz3^E#JeY?^ioXEdV4rFl{)|5Qv& zU_xXvaE9mAo=4#6X`ijuYPi>XHk=pRdAj@Ko1g95#B3|`#nw*IyxY+WSHycS80|(u z06HwsTQV>#;ZUu!kypYiS{74=GsRaUukKN5w4?BP35;g=0}1Ef2;|>so&B`Xew%1N zpPK}XSIt~?Z;hg!QYde7?%LfRX6o+Fj>~gWm$Kxde#{{9I=`TqD z#8kAe?FCEFf>+$?CHFa}nNoOQSL9YpYYx(aPNbJw(W zrTol1uREQQ@Vb~N8QkSggT+53SAMCoH8Eh`sVzwWv-7EX%g z*9yvhoZW>byI*#K0G(W@sCTX6t41^MVcwkz+Kn$VhTjqUWPWg*ogx1Cp3Sl>kkRnP zoZL%+ei9e5hwEqMQFV)l%HTXHLWTMK8m%&`_AdwJOP&NoVv++gN>>@nqk?W8YTrjg zCbSKob!V4cYn7$>6l$i{FRkCG1A5oED?HIv4xLU*-WQ9?c~z_Ei(o1KOLw7u1^!Sy zB!|Tqd$QInJUAKZ6st34mt56^SSmuvPX^2HC=RLAlq6G+aCJ6L;<9bA2f`$3W zG^_MGWkLG#+2PIG62?t1zGUoN&6ASQyd!46%$oZ!?iD@=;BE_s>9j$QYYEl}kq+P^ zms0n$KCD%|XR9!)8F0*9s{LI2wj}a0=6T}Ec9u82$yy*aS$CTY}327fb`-O2OR-mcOR6M?B<8reVrKOKpN{8l~jG{|Z1c8eIb+Eqn z;q$*hulRimZY~*T|G@4qUB9H&je}qHW0_Ih3GjX)cF9pBpz3~6PU)>PrfZ3XiU~=F zK@1xE(dm+Zv&-S1VIweDirN!w%VZ@CAF94(!Tp7OC~E?_hvYwsxm(3i?Ws9*2u(Q= z(oDbErk7(}0+5@2MwQ+2rIFSZRWjPR&p8_5lRG28V1Go)MJ09+X!P+GJ5<`zeYuCo zM5YbK2Ja{nEk$R4WLhT9TJ5T9JX;KP6#_;|btoP1_$ z(BJq$bc<-iI|2eMXKn*MeCkS_jV;}>ZOU_!Q8El*`*ziCeNe}36cL~_>m8dZ`TDnf z;+rh`OdZlcywD9pK^<83c{9bqDEnOCwhaQ<`#&qw**o4LQoyWDePO?N-`@!oz$sas z_o1(i#GARVFrm+M(Z9gQwMFkMF4Dbj?C1;*_d_9hLaok4GS{`0O+}imx0Eup`pR zy#4V99MCD6?*YXk!HlFQBx`Ox12<@WJa`!nJyYD$+P`f)NUvm=CbhZxx7fJ% zRZvg;`37__bS!`%)(nsnqpl5=3#)<)O%Om0&i+YTH+NE1qR(CgzZOS^d&7_LuNoM( zPVd?>{{%MDC!=WG=fmpVt1P6yxDt$|T`S5a-g1lN#lXHMtPD%UU5nXH^JX^Bv^qxx zLRfX2>G|GGTgmei%tX3Y(uW&V?cLboG(^ziZy?}{qP%aXIbD1&1Oo7DGCbiBKeMSg z{c@`jUf2p2t z`euYhn+^*i`eqaj%t2ocfdH^@AV8%2Z}KYNe_xr=6~2!)*=is_)lr;P)j(!L+${k+ z-}LQbSk*sSHgOMak+d@~+Q_RvmZ!t^y*0gKCPO<2Fwu zJb-od=R;jG^)8}1k`-Vb;YZYbj@*FueH zHGlw^3Jk$sD!GU^YaU4TAi##@gjw#K;t?wAcb@H^r6*>)GU)0)_F;_`z5Q{q!g(O^ zeA*@r-jKSDNQ!azLJ*Sq$yr?o5P%FUiK<%dK>$8F5Fik|$Pkq$ zT3yjsY7%)v?lO0nbV5aldif@aZz6peo?v`qc2|wgL4YC<;9EYpY?wDkUtG}Y*CV^b z)P%L@t~R_dp4iLBp7Uv<#OP6##w;Nr=ROwURt4mGr1bq#9XVXUoLnF6-1h!yu| zqD^;*H8lU!az6<0%ci3V`!4Ha@cjq0Ff;p2S{A5oeDtsDp2AObx9s@N;@l>mgTZjJ z)2S)nF6m9#hgXImK!>8Lw+KOWqqj-s)1z+aJ&`l8VUzfn7(7Y3cvGJ$X>AkenbIDV zK!9KTetK12jO>J1y$}T8on3zx18cSj9Fcr`+R@KIX|X5r6;|+GoeSUNHJj^{eE(zU zj5!D}T6gCg171?UXjwsGgAaEA|Ml6G9wQl0scv=rSGA_?KdeSru^wttJ@G~)o|8-d zz-oHUkNe(JIr>hb6EV&Cbo zdmPQ=0OaOyUuZjrYM6TEcH{1R*rtbEZC~`fypSwq>(s}<99lEl+@m2BQklFOWjLO- z=QrXMF&y%S)3Bi9=`Ys7jEtuPdSLyUmrV!fnHieL7{(XThb;!AIY4|HorO%bbhdT3 zsaY5$80T1an`7krSZpyO_h)tIw;K50G5mk)2>6+&h3k7IZMyzKP)Wr=-mohT12-UZ zyeP+y`UiP^+}>f)-c8IrFq^ENQGBsnD}r8hymNm)&3U7_grw1+c>SIA5Iz)C@zJGl39fDruQ=^Sx#+l+?`u0V;#{#U3T6M zr3EREYGrg6gC9ih+A{s2Oif$L0b6io#mc^Q-&3_pFV@W{VQCKdHfa9ugq<<{?+!a- zV*Ojx86y|d|Eob~0F?g;I{R}l-Tym5XSC+^r{?(!n&L{WjCoe7*{}IIOTld5cL7%w zW}NP>wMh@UK0vS<3;8-Xm-@iLo&AIl^1Mkew_q_JDCWttQy;GBKYPa_b9n2ckVP^| z8K?c?KSCD3w&`DN)c^7d$6}jj$?cNrnLm$Dt(PK!N4*o1u&K&LlBIwXk>QGb{;j;6 zOg36#qP+GlJ)MN#Kef0t{=cm4w=Ke|q!!4US6aThU^Stg3F^g4?>4aJ+MGR9N64~N zNip6DH+Qy}d4<6hWsZO$fS*p$5WRh*6COF#r9#td9AAH>>+qge@B*D>zE` zelXg|D zYCM1W#hZW~?UYH46{3BtI4$-Gn-UJ^rlP*<6YA(nEkfxJ+{T(Jw9N=&%i+Qgj^X^<_GDW^7+BB>4p zoPB{vnS;?L856JG9Yj@xZNJi)p-c8I>2ru`ij2?f%hzf+*G?_ETu*#+(~Sz=3oVzJ zh{a2jexOOHFE3n1UDobP+eCKB?4KSJz=b23Vx8Hh1j7}mk^i0v@kjlx|7`n;#q7b0 zCJ7?A)~l^Gtd;7SG|Q*1^6#L)ur<7S2e;zb%4GUVv2mXsrc;{ z1{LhQ`l-d7Ccc`(2XVsxBkx|11dh*IrF*!qi7PI;%UTvGqqF&sT$d=8M{O`4IT6nCB1dUy9(oh)zcNGHTyhk+HIY zUnKlhoLp#0A)Y`yB90sk?Lqt_hd)yNDoF3Y348oY2qa|wbCO{()vLq-dRU0}=vQPZ zJC$B2rPPfRl{zc@uB5zng*?d)Om`_qR7DA#Lr%`}y{g%H6oodK_PZP!8Fl*bwX<&{ zd&r;48IVyQ={ZMtr3x$!dYwI~=Qr&WLj&2W_ku(ma!7Ws32Ci zd{v{#q7g<_;P8iAKiFTKHwcMFj*lxCHlu_|cpd8y_M57LpQO#lAViF{?~+8So7r!< zgXG1_s~Su#>RAHjzHuH&Ta3Xngj|)gFG^0HWKA9$G=hWO6J9GjCg5%%Uur7<-q47j zrpABZl;;+gyQ+KLJCD2tjw}PGoxo8LC|dOSg_0A3LFwNdaYiB9MBf2DRCDD16eeNH zZJ}}fj&W{a?AA4WndeLR`YKvyxj@L`iwV1N)5_+D=}!i9^ikWbj5u=#4BZ5O!S;EZWhb3hv!xO8E2t) zSmLzSq=vqg%b8hQL#&k5!+I%_{3{L==Zb{0>L?&qRw!boW4=(T#U$i#s5Xo_(snzr z^}P1vfGH~dlAnMsS66mDUEZnGsA=3L?@RkQb5uRW%_K z%PvBQ@Z*kY07fb(N|ClkZIn*YIF~g|Q7BrWz>6q%ubC+;9X1nDL4FENTwTM6=)vM& zF_!-XJNm7fASySg>_;OC&-23l_R|y3n=f_@N4PW0U?3|j%k{I^Q>I{nG_qsY*fZwP5Snbe}SJnX3x8$f6sEbuAKd_`ys2b zK4v`rG)iFg>5A+D@3@t#ysvEk@HJHfbx&2`h`0To@56E_XTz%j9uR<~5?c^6pl5xy z`Bppg9`8zC#KOJvcbN3QHNyW-=6{2)Q`5n%ZVi|Inj)>S;U-;e02jrWOT*MJ=k_pj z{EuPne?A;QaT@ILpnc=tXj8Ph%(indn?W%1G=-d@X&vLqyqoYq)VHrwtVZTJ%*;#{Sj^0lEe4C3nVFd_W@ct)_-=K-dQ(+hy}IVjgITk_ zA5yNH>)gz|aZX0WiHN;}Vj}u=;*?ltO}GV!MQoRmTY3Y`h|ArE#Fq;cLkB&!oX%`s ze{FgLFq^Bc3V0czE`ulRXmxXo6!2{2%4pkc;Hn;Q6jr8=E$rzwlKESXM0kR{0ghC% zrxnr}=NuYUhuLQKPMdoV(|@Vk{=W;>^G6@WSbg&J`X?->+x^Ez4MT{J*1uFV-j*)@ z%a#7?%3tR)$b3nXsp)`>CH$y}(Bu}8pTDEQ12fyUrfa?jBo?p+4DQTTK6BuA)t{Bh z-wtUQuZuQ}WgdHhX&X7mV?nf4XFP2DAWH)l7nO)yl^hm(-nhR3hHvO?RfDY{c~#qa z)|h6<3#iLB+p2>PA>QMJM2cJ%9!ZTcn6id@5eDJUDjh*d7;$U$?B@HjWT|eTjz5&$FibuKBa@!IM zLyC2W65+$bzwxy7U-vqC;?4wC=8D+zsqrsRh7a@hmv5dW^IQ(t@_g^BgK&)Lg~&}x$y$UShB zv{)1x6Fbqb98)MY6}JzRY&QL0$@u&ijRA{dTkM_n^D197`zX&Et)XE>0cZ6AFU(st z4#t)KkSf2rNurepwlhF1OU;EF1oKGKqjh7#oy;M_Bk7hHoNr_gf~Imh9I6xZ zV1P?S#87@{PG%x6?77zy?fEe>^vRM^Nr9NyoREUb4)~EiRxh>NgUhUqZR%=?&hLlM6V|Y4s{OD<$x<++K zNs92{d>@BFBtLGL6V}Jp-n<|K3&+kfBA*WeDbJmJTz44|`@bb*+o`dF-mluPV{Ab_ zb#tEIJk@1XbVTscqDIVZZLt=F3TJ`Js5J1VXXi@q^9Jr`fH9@N_*Y^;oH^EP*#a(8a&s5_vL8zxCHSvY3Nw zD^6QWEXISIh0o3NNYlBw?I2_a>ciLc*QP$6?FU!x2o>blnQ!5Q?sAhl*&LMQS#?}M zB*kBUy#J!He@wlW(7_#6Y97R)6WU7=?=oOkHk!f;O2Ih>25VCnEv-{BYRr z0}Zj<_g||h|A&qsf7qS;D^`?W71uvK;+kZ6b6uWjbZJwoS@hA6f)NIa#K{cvWQ4xz zL}XGy$PV#?8zQY%wy0#k0lu0_65}5r?uu6M+~JgOJzprgzb}5Nmu6-Bv8V2hlD;Xu z7B4eY5z)wo7hy14{yGyF=5Qe*=4x*Y6qoYe|2V~fp|b;>a8!OxJt8yjmk6i|RK3ek z_oaasD((LR*ubw|4At0;YR>ssNcJ>}{-hI)KeytR>(&xGZj&dTj~X8NWM6UiPpm?w z-lu`e=?Yw4y!2QjWv-zkdnaA0A|)5&^PeJDEON7=Gvhm|pa=!|Dj(OSv`#J3r5oG_ z0T5g_6bJV<4|5tS&=geJa6-_sMF)R}n*LWh*Z=C;5GvowPI4!h_qQ5?wx6iIC>zL5 z!)J=sJn?GkB7~-P!dFQmmqg+f0qHSLrQ(0tAN*CKzaFnf9HF^bHl1s+<(?7~2GHLC z0y=Xyw`GsBn^euJrv%m$1DP?wnVa0yhmV4BL!XD>?+5XFI6b*SpXRvNrBuTf1v>(@ zM*VN_iX(<+k?zQTPNbDu-Ig#G-)3fC?~l#~lb4Q>|9ZFo&SQVW19N&KaK(AvULrCr;D5+F5r;^nNj`1kgWj4-{IfK_UDq4_TylZq;JqJyw^$>&~jhAT&f9=C=xTsTl zAG!zGP>kB?Oe`1uQ!ZYti8?tUK;fB|BVw|7u|Oh?t4F`$3_)qii;m?NTA%EMKR(KT z_2)gy7CMp>2bd#tn}a)B<{#?sKErRt!SopMvvawotIxBV*E?SJT3>X+8S#u}@0f3a zzc45l07-ZH5|T<==m&{~iPG3RMIbW^~HyXz+NqVk94rUn8R zc~=v~^ z;BuCYLRjKNV2=cXl48VlC>_*SF!?EE3QdnJq?+(;I6IA--5=Cx$QQDgqxVLpf0SVbCl^@y@ zn>xu#w(nZxD(k~VF)k=A`u&pK|I6<4Kk-k&@OwFAZtEg1GVt7WT0*x{!n1+JxiEXr zuq9CQK%(2QVM(KAe3{AS;Pn>MJf8G|{t~sY;A7Yma0{<9n6C zx2f7rDCs`DtRicPF&a_SrSN#x-e({5-`-m|7o>`sU| zY~Ukds5Yxt!})bYapD*3w&DS)yP{Q>Y&inuIsGQ9+@-S0s`Fy_-VGbuOLgo$Z-7nz$1v7SiB{UlU6UT$ z5g5^ZUjJC|V8FNE6D|E8`|H2i0sXsAZ{x`_e!Hhujjbih1d`?o=ze_ltX-6643sYc z0oV0g&9YWd=AfSs(mSLmPdaVJ;6a{~F8?wyDzcdQw044^zE;kD0TIg^SSwl!3rS^p z>S(|&FkQ&=Eyd0F;-p4Pdrh?pxx>0UhSUtDo_t(j(`jp;qcNA-wKnwFNt%wN>Z z|3VM_35D5zk_rOpF1?tjfh~V8V(fH#t)^GE1VTa7Xc3Mb<&9xXRzTFG!5%LaB0Xss zt{kJG%R#EJEekbPo>9s{4mOGqMB`wgal$cDdR|=@nXDmHtB-N(bi?CUC*_J-a^Udw z{ji>|c<>>HuD7rYZkU7+KyN>ZC*~0??JQ5Nnx)3@2WYhP#EFJnmJn7y7A28)Q4u`= z7l8WD*n0n|Mfi)>1dJ?@>bo{(B$p-qP`5ADXkK0GxnnKv&}sC#2zv^mdfm*+V`BPS;A&%~o zpEA{`1uY8##9^DzBqsF^JE7~RgGLXi>*pt|Ygh?j)o}FYDnE%dBh(v!+oK>~AzdUJ zP8(_5OwP$~;SHcAR*)4uzWLwvzB0J8c2YQ*8bSUP%4OSeEKoz;SObfc|jqiO!|X5pFTaQ z%OoL`TPa8bw=B~Cr}p!&eE%O}I6Ci_R!QUaNa9}&Nf#KZSmI=z$4lW@x0kGdxJH)wu7LU7@?*p2EH z?)1W;d$-9V`-K>X;@=+6XHVgZpfOx(#8x;_0Bs z9P71nj7)0ui@ex#V;C$&kP>knjXCTO*sr)rPT$hhPCk?{?eGr0FbZ>SEwSWk(&n$b zp#C(Sw3N=&YO^|j{>u7ZqemUv+%b0Q=|`d7<0bFobz?q$kj@BNMT6@b;Pi(2NkZiA zcuX>@k%qTl*|tFA$c5lXGudeVV?;i$`u=e(7524qZBwx3?fWZF;)0?u(Vt&zmAh0j zpG9jQJa&r6vr2aVD^%U@t4;pFG5%ru4NBFLAd+bito#Z;l?Ir*lnNHz4HZK!&fEu* zp>6TOX9WZK1Nn7faR4$3b3nG-zmc<0pvLwo`N2g++6}Bv0=F*wZg#h-Xnf7}5;)GI zJXb|~=c8t>KyNXUu~HY~Lq0gz_|0pUH(D@7*#XvR)C_u_>bmUT_wv7B(g*f_+4>MO zW}!R66fuf@0>}d|iK=j7{G@ZN0kK9rvXbU`%fN@WpXK}6R}26z#te`X{a=JKD8MQu zDcaz}fN4&{q923(nhL*Y2@uFg{uAKZlt)vdgaxRsgSw`*kB@^+{Ngt#QPYmBE!z6H zCoa+=Xga-^tpI)jv2&q2Xhvp}VUlJ14fE_18v^Kv{X~HGt^5WBP$S1rU@MCIcLfAY zjVtsSB(X#xDCtE>FXs+HV0(jyUVA-bNFigHY*Xa+*pE4!36}Hiv?67YW)VhKfl{7iGIND8_tQVF)R|bP`W6NE%-b9) zZ|nzNm^5U~Ts=A-~lzvL8{Rg!u$oP9@7kGB(1`|RKvz-?Y8O;4OQpXi5298q1X z`!H;7P}oPT&@ZRaU}D|?-_&`zd6_2m%Q^gdAFlz_l|nXYXZXDL2dGBwZjRqR99(?h z@b2~M`%#K|p@r~7+0q6pF_GPp)iB`h1;%!EeSm0a8x8Sz16tO-m5L{MijEYa%;y!w zJOc#E%m1{ITSd5f4o?d1)j>0nntb+TXn2hg+YBR-GLKsA>QaNLqzUsgz_~gFJexIc zJ|=L{IG;h@F_{HtH0?$&^yPoOAIg46O5*<9r?i55(p+9Nl;g!wX0-fGJZqKilzKuk z*d$MWLNpp+Ene}7`SFV$a2aR(q?e0ilxF9GQ3t*PK$(E!SbO}kZp^Dh;J%1y$w4X` zc=KWb9DdPts9LnJW=!fQ01*^h%Q3CqKHiJ5*%ILE@GA};$fZTWMs6JtxCsr$70ChQ zCw}<1Rm?}|P2h__@Jj+FX;Qd~#QYHVs#a{Lat^GO0|?D8x@ChngorHAlpt{)yVHv2 z%>}6b+YT3u@@uQZmngkS8j|k}P$%w+6=UEL)LREXB%h4Gd+oy-0oO0s8=$XPKNzrE z^R?B*UIR5kq}sW+MNf4NQFM{sX6Hi1^LOaq>fd)60!w$gfHgy0@iJIIpe2j2S{maF z#@YLMQhig5{|D4PurBboXJjYzFW`UVeT=_VifPssS-ahATs~gms-AM>g*n*Ifb;q- zn!9+J_q%b@tjw|7$0x2lNspG)1z}CE;;l2|^D^IHK>zQ5PQmX#{_WQ>C$tFU_1mW} zD9bmkoZ3!;+5Q-F5r;0#DJGx zGl>z4sE?|LDvr2ue_4KI8JFYxgN&4>BfeW5lhnQrR7H65Sk)tkBD%VG&P@Enz(2|w z=aKijifq!+6W+i>6p5SXs`H}e9*>U48z5KpABD5$Ah3xmAl_2>%Y9A|TR2~rrB{Z8 zZFa6^b8C}(SZ^yjfzP|DPHB9yZ48EgHB@i%hxsYm>)~B&w*-Fw4WO`n{ABZbYnM*j zL^+nMJ)xVpk*rb~tjMW`w*f|RO^`+o+WtG91UqI#i8Sqa3 z6q8Ol_q(ra0DGBmTDuFdyyVW^3Pr!9d;PrKy0XML+PP3}``y}|{|794`IlG1+JNlW z{wj~jK~m3Eku_VObEmT8NR{yqV{<**2wRi-WR8PW~Fb z!fz}e5b>n%E?{~aaUY|`o5}>lmE-pqaJSDqDV6_riIu7zVOeG~M=of0b47&>7c6Xj z8o0sRESH63DJ=i)0Hqi4L^{MvyGe0%yJ=V1ZSbPwZouO7FS#U&l)r9bYn*)Edm10_QbGIoUG9d<3c3+Fo1t1yhcB$Unk7iTXy0<7I)m{KQgC zSXF?r5o`^@o8k{-9b$7mG^GMS7_uQyZLO?dzAn2g4=jwuFB!|Y9{h1}|L&##MLm2K z(Lp>&63YE{D;3jj9Ap60UCk8?DK5sSeee+iX3j%fO&D*OS5u ziy8!eH;0CY74MUhJ+neH*pGPerkI@;ntc2Ip9PE&10rgUt0?V(Yd?R8)_qw%X|%fN zX3%B-ehrS$)e0J{ajI!1%?k^pQ+RR~zk{@lg5s_&Lj4eGo^rbWh;e4?o|*1?mCWSYW^YNStY4Lv_;Lwg>(SI|uzhQySy8 z@&kCCgZA@)qqVCpAdDO|0@&$7I}tmlvLvdhi5~738pd%y>B3w3W3y^5^(U{WouG9q z#O#4CD&p39ul~+0Z{Fq;g$O9;1OT8G;59Ynb-{8FBY%tX1Uh^nrY3W)v+WYPif|!W z@!(eKd#c>On2dwy)qEmf9@wJ&jq;-KwiQTeP&Jn`Av51y(OzT2*3P!xK5*r?@dm(* zcred@T}ytZ{PfJbrD_y4DT&DtT|dm^b6qZxm0tDDYFK9x<6HCJ`53$^pY4EghczJQ z$@^E-_q$ER5zhuiW zxeG!qOu zjB35`=(H$!-;G_Dy#}*$_1@(Ejcvi@4RAXa{s!1bX}{|PM%BZCGVP}qp6Jgdg>6m= zwH;Qy!ONNRpjl~QL(~|gESY=fFDgUl^CKdop!U6VzoeksQjE9gl8Vy>jwXuTnl-l2c0qg2t!U%tiOZ=1c-_p{iJgCG_ zVaypw?`H4`D5aTmt7tAN-AGYQB2@E2`4Z^m2KIehUieR?O@G3LP;^*#rDe(%H+x#h zHO^&Ijq^@F2hk4zsXR=|3BB`&)7W zMn)jh!2g?g+y9?j;NLs-{=Y*mz+lf!rZAOVFH!nMA|dNLS=4qPiY`d^J2)E+#Xsj5 zz?rRIZ^f4LeKa{H!V2hO7fYN6A%ujp_V6ec=vHUuKnr;nW0NITt8VKbd3geoU_6I6 zQ~dYFeSgfk64P!|MKdx)O{-7?w@=37$pTF+b!imPVsr~jqb5Ov53E~`pPp8zin6?k zYU;vAN3m7;kp!^%ydOb)o{QA~L_1Y;3FWp`=5UuVQ8RrL(~t5Y)KaD2ItKz-?PVe0 zlD=dXeq}{Z3U#dD*H;$|hEDo?iR3Lt*#NLR{p$KBS{-OVfH`V)$;Z{;MRyvE4-%L^ zhV?=CI->eLsk9U+1LV9R0J;AJ65J6YHDf;_qL40)7LTO!DS@V^6f@|;?@p;6%-hY? zZT1BPBzfb6djC<-(TXjVbT?Y059G_oaL7C<(|?09{7zg8=^GXw&5R1r&T*&!=2fc5}bc9A5w zsMI>OGD_Cm((pAX(XLjkf2i@8LH$~e5C2c~E%R^m?XQi&h0XQsjeczn{%bq%PoEgr zf79gKIpxITXZSWp;{t+n8@zK+93G2Fp;O_!Q_ z_GTC65-rurMwXxZ%S30JI%}_UBTdUEAr?ftJGbo`2u{eg)K1AWt!rL|M-*-1&#$&k zr^v>0LHBbW&;3ix{W`5-$^C1*`jXl9pV$B_Cyl6@#FgqViGYi8>!jqkqkI_8eycfp6jW1;3gB=Hr zPcRxzO~^QH1(T2zgq7vZuET~Qn1rlh@cYJ}&QTDL%J5pXUx?6btgkbI{vfd&V>K34 zzi7%V3ziO79^}ekx-n7Mhjc`4`!s)F30>jP11X3Z*VojwUBW1BR6mwPH6Jn<;0|F$ z2QPM;21AbR4nf*)I(MYNS@D_HIY=PYO1FMDBA~~3h3;%FSuDM;dluKZi%PRp>AATs*ah&$~zcQ?tdxR3UR4NCc+!nEU+Xy$Fj zmtb#0)3wwxW3vaP#}A-oE#)^g0KH3t);qD=@wr1A7qp(P2O70r|QRebPri$7r6 z+d7c&(jl$NmPtT?_|)Jn_jTqYHg$GvKa)Wp`EI46bj3+eTcD84|W zY1h;{GD{VZBl`FH7ePxNYKYY&*Ma~GEt18)#Jttaca@c;7F3@d=~@qFT+tSvVK_pV zc*l#@{d&w|q?dcgPP3fGHZ)sz@f*`q?xHggy3ncl1_VJ2APS4a{o}4d>a}0_biFM} zZ$)Tylx@!RIoPFhvMoWf2RRtFpRLvlz?|^hlx#D#5lSzNYu~leImaLHAG(JecpO;5 z_wMX!EclFI5%TKMw8rNIdK8gjVc0Pdov0VT5$~8y&FJRsemQXhA=z)Vz=7ma$lC<#$|*?(*VBEEl$aWtO<6+} zvX3X{!>Z56PTy?746U?ZrCiv^6Q5DtXlcaZC{yqB#Os1m0ZCz_BTc3wKxCp{#i5R8 zt*dv5cwRk(W%*2J$Xj_R__`{mX{_%)t*5fmftAUBA+E~7Y!tbq_dxv~J;;L9Vkcfw zo3(2amtl^xbE-flRd@w|3aZ%-6nUt_aGi%jX0T^lHfb7=HSg`2+C@pPFERzy1h1p> z&J50A$|Oo4#~T{E;=0MsJai`>P4@^5al8nrBOMpWL%YQ-BO|mZBqY7#?wF6CJ_wl> zZBFsDye{|+JMCs}YX{JytRD18fTVL8$sx+l>l^$aW7JRcJ&e|s$h!}%Hr8akjnsQS z1(Z4WT~HmYjmJj}sQ9Ttc2YDKu{1~w!|Zju4`6o11WeFyD6wev%0zRzQpBHgWj`>t z?625=b@FImwal{e+E;eyQsBPTGB54Q=?|9{Dpvi{i49T;D>p>Zv*t_S07YnUL}J4d zOdxf`s>vQL9b<0wNf;nebmsuIUWMs`1wuVx%?MJGi3N)Bqn}O?z&W@YX=IIx^BMogpdylqEK?TDhW|7f$S={9(?hvxAZk+>a(?$z}r z94KTZTQssQCSx525=u$|HMWKE7m!?(4yL zJX-%4oOu;Q-5CNZ(*W)Rf7e-08Xtx!ju(oa>=Z(0xY9t7-h05{+4Mqh!^N|7cAXP4yGOMa z+_=mSu^#}t8vcAWciFnqVI(k+Ve0!PC5E5(W|7BB#^dZz;w?O=IL9Hnb;)zm5 znDk?B9~x_V2OZ5NJ5rw=lIBtsK!HB&QS?P=5k-S8rR1l-@@#4ln>{6?v>j~nQa%=` zI&Ij2B06dE7Nc+ObKcSSWXosEP|0!}_BJjijZc8#3g-L|!jgpEOw}rSRgE7J0kGWV#=2=kA&aq>{>b;X`oJTslJtKwap>Fh-;sdaKn7g_R-Fq z>ym9FY)pM0(ts~3Nz9!&2}bsBuSJmreMYt(eNEHB_a zwY_Lm5SB@uu2yNf8qgC7e_>jF$lu?mTy_!UKfdfwKOLPzW^Z103D{Y7S?cv7bV^%< z-flu)ap`tIK&4h(3Pv|@IZ$(IQKLkqvzLSQFw}ZFyf%ae2xY zwbJEQiDPnFnpx@KzaIlWM6D0Y?0Bq@nQJRPi_zYQsc-}^jDlKfhwiGeV-Oi*%hh)H zDWOj(1dN1y&_713_=5Nu!dfH>@ocx(X1%^^nUVwQ5Y}U$Bdcv(M6k*?cX!`ddo#8k z|Ah+m5zxy4VLb+}M1@zeO>~PZvRGE01ZMsdYUF~%FPXyJ^#Up^uCL>b9Jq}K!oCu3hkzX(&3o;Fba(o&8bi~ zl0ge`hj7*@_Uuy$k!0Mp(vTC})fRF8o>dF%?Pyfp$B019FLP1$X{p7d_G7_Q;DX$K{h9gN*J zt1NmtoyfzV9iKRHmJoBvVX~Pol^_dPBBvVEYkjH%p%dm86$Mnup!H}H9&$82yJCWJ z*?{5A!;vMAT~hcFM}XU?(nPo}0=lR2Dg3 zW*5CH_ys=qL?x9>f>W%F=Otdt5hCxD{nhK98;=W@f~_=1Q-$Z(50vPqQRRx0_*nR3 z!n{j0KAHusTKK*>4;Q1j22wvRE+cR8U;Dngei>r#5fRHn^o_s!S%8O?El8C0GR4$n zoSFN6^i2>$cBs@kN^{MZ29a@2pz(I0**4~8sGRwBbqDS$z}!6Qp$Ppe98H7E^UGYZ zCPCM26^jjPp?0_dhFH{9gudrZixCoft5BAvCzM=?|)0+Q$`g?#vyn1+~86 z3iqfm>iLOZR1jaQ#8Ju@E)0XZ&!0yiHJ69Xxy7EZbg4>Nn~1-QavYx#{|fLXXUN_T z<9mLO7N((r7=W6w9XsU&b?N$`m~Nt>G!(;4$Hm~fOS$@BUM#D_6V*zbYQ&rw=$^i` z630_cXBsqn*%c)3@pComOb~|`Y#MTB(O1?q@`&olc$3XF19{08kp>~C5nl#8NP(p0 zA{DBKt0X;$6CuM=&;n#-w$5ljl-#Bz&x*YUp>_H$)>#DF8?bq-8=P?u6NdY0n85g) zGPw=eGV-x>P4Z&^6w1p=ThZf(!2VIu*nQUtWMbxF7$P=l*_}ZjW+vh+s3O5;z6z?C zEIH0v(KD<8m&zpcfk6Hw^?RQvB3V4*aevqsN6oibfp;bhI0HVBG7=j1lM}&nnNt+t znYYxwGmI2ns}{zdF$2w|+`*#`Q4{Q!YmKc!Sn;ke2nWNZgTWo3 z{w42qztV`-DA`JP>`yw~ms6wGJM2S(`bjUyAv8eRVA9v2L@)O3qAPNlnHqMOiIEqB zZ~o+0{q)7F1xDt!WwKUPf~cH}gf=0+QXqW6@jFiEkp*S1(N@AO6K)txHN(1?9AVNM z;2nE)d;|&KYX#6ZNa0E*~E zlGEz-*$C&wR3YyAWbaaIwe6m2C;Fo1lgAs!4MRzmO{S?zd9ly=Ag1bzW~UUXKa=+EVV>JgYPGQU zYYO1$N#`Qr=(Fs%$7fdty!={L1Dr#ULY1i&UrQ4AgtZj<>g38Xy{@*-_wTbur*qep zyen%iV}SkFpqjm{>FyPb%ot39mw0q36e4fn%3wf9#wLF?Qs>opL*t*Sp_+wvh9=^u`7^O#V%2UD8kE^1~28+Oq{s~Kl*BARi2?lqsB z;y0w?mo2CTVuF-xS?Q6xvn@t{KVPj>#PmcV8!k34|yEBvd2qIo%EildqroBC`q1+sF zlbY-{`X7&ju_E&VrDs(i%*R zTRipU?2o$hhfAnRbzWV5yi5>a`crwskA^1bGM0nn?=D!U^HJLqfuQ{s*IP8z7wcoFL#06SMf*lDS?ev)EpuqBq~b#BD}bbwlnQ~eu}V51bEXe%pt!<8al{_?)%*-w_wCP)z}@r8hFXiLa&pT&lU>K z)u}e$>^60IE$?G)6|N&9VoTZF^F9oWxiq?OZcBXFraiwo+KfI$izcDHrjk8tD+XXB zKYzI4H)>--FzOFBxc}}3!4U=woJOxEFTqWsz+?#viVJ+IPUMy%BQp`kNF|;6N&ns= zMHrFe{YMi#*@+NvDSt`}l6`*Xy_zDsDkv}9Qde9xaMB@e$k@@f5$aH5k5p_Iup^B= z5$j6+=ue-UtKcLVJLS98ay+Mi`g z@@$o5Bo(B}%gEYpE~8Uk4Ln(!cxeb)4MMD!XW7hj4E7=02F1!mRV?Q9&P(ynD#ByN z9)%IWE0f1A_>M``gjPq$>6G?-$gQ@NxFf-r@V<9RU+|$E--v5>gW2Hja79i|oB>ZL zZ~3fq2czPN_W2ZE@Wqr@wxPC$`BSKDAzbk_eYB{1z+zdMYVY#zIm^sh7SQKn-P}{Y zh50~gsCjEuLp?knEjZbfHSC#uw1k{4%Pf$&-E1g?{G>P~Ev^Avm(ldg zSJEE`x+BP;lNm4uQwmn*8b}zL*y}y-Iw2akNERs*v8*KzIJwld4Z%slElB|5M5G9A zg&nE$O4>a|pSo@rRo#TdcZ5j3wGoX&2Ei5yP5BBgF}Lxb%CxPT;b*@c`guMqu(bN^ zG~8V+=gUaz&7oTHI?{Q~e7NhPYHS@MG;I^rzPbGd z`@*LtS>pLhIGaS8I5Q@(GKPhgratm4oJF6f&w@dq}CCYS`^G71KPRxF?ukO|N_p8QrjLQ)orZ?>lS(VPmYX2QxR&^93nw zH8elgt~wE=%!W^)AuXmH<>Wk&W3U7%DJV9BGaxzE9}zsyn!8aaq3dSbbBBK?m<@p; z8qX5Km??0qaM4t7k+DdbG6c{9iy4z$u>{o%HtSTWpp`(l1y<+?uMrVn#pE=*?;;Jw=A+}Q4>I}+NSNSX-|@D%nG8GI0%N1A<1Xn{j~R%*Mj{_ z1w#LZ2wYz)lbF17b~+qqmN$&gufB8p1F8t=!lG16ZZVM%!%W$Z-8`RNom;{}B+JIr z!x4#dh>Ip^nxPJ~X~X(qw5=lNbmTfJs2MKvKuN;kK#94HjsLyiJXv#TTaX%y_B-;pGTQ8AAp9ZNp|nDu{S@pID4@8ZY6MHSb7dblP$BICYxmY#1y^ zcbys%^1tF$(e8?^DL%Z=?%K5#R{iYd;=hu0WT5lFd;Fm_Y@#q`%g~ziZS6>Z5vO;p zuQ$f3eYUrzWi&bjGZP>Es#Z&~JR}O{nhEksR{UO6e{K%#Z1m>jSjh7I0DET+y_-OI zj&LzzL5Xg6j{Ls!+J zep6jLerCniFL20D2VYS8M6NHh{fJ~7-LEFyQ@2hJH06TKmm{sM<%&e zjD2|T9l!Pb@!ZNhw9>^#q7ntm1bU}(ZDFJ|@)sPDl^Sv)h3B7jwWB}*tzX1cb+XrtU%eoQ~Y z{vaI-w*?HA!98YMIg7#TCyk{W&LBa0YZIyu$RhSp z(4RCXgjm-TG#vDWfFsd+y$!4%nY^4kq86<0jlpp!s|sL0DWY6-f%HE+G`4vKd3WpR zUgcl=JAb_5a>q;(Bf;8JweTgwGL8<)4(eNSIHlXOvtpHE?mB8O`@x$}w80BQ?5=+= zhk=UyN*?+u50jl6qT~!u>jYwspHb;G#)F>MWrlNA!UZM0Hz^dU4KkxKgAJ;@U0A+M zmZ;%SU-of)=^|cr^DyF)Njp2TzCHO{%{-I7-C<`QRiFaQmE+K!ffmy~Lgm4mver`T znn$rIN^{}oIj@%;Y1TEaqA;CZV5Oe?dNFo>`I*vtwG_?$j*v{;O!t`c>aP;|WT%V4 z`|Qni+U4@48RqS!@+Zhn7Exkv)uzP?ImH>+2o{Tr3I(%N=o!jZIO9M1UqweJB`g-B z%Q>F8*(}&^Z7QRlt4)uTL`!mwwiQS!AD|6wrH_aDAxqZF}H$eON)6)sd%bx7R8`_o#5Bgt|(J z!dEE*gfH|Zz*<83gOr#~{!mC{Kx;Y?H`FF!>QBctBzlL-hIlBAnv+4k_lkCME4j!X zj0b)DMN(#8<1nVLp|DQ6kWAQ2yG`75^^Q`7BDMDlOthuSoqZ~@SpJaQ7|T{k+yhmb zswn2Ri~O7G3Okc<*<|*E$#?*ZEZ1qo#}j0JlVC44VA>N)cX<<*DY{y&UQ}z+at0sw zs(Sx5w|R4=M(?2Amr(4EEak(~ivRQoGO$=QzHE9w=Y6m{0CRK*Wh7@8f9tA$jtul zg=A!f7rt@xTW2jHgOhQ5U2)^)KNi9(bf8OZOCeLGf}(Zx#Z(zRf~Gv&r%21#rT{hk z9W=H&D8ZQUk1U-nC$CPKCw|^U=Fy>I4Pz; z%$5Qs7lC4aA9d*)pqBbehGRXWBm8vWLkZseNmp9De-FU*8r3R!yi$own7omj*jZ#Y zh#*_^K+)9??>l4BwIFhq+EvJ@A_6dptJDpKYnj|KC)9vPdc9mX!7smDl+gZw{L_Ml zk^kX(Gp#eo_5f!2+ZBzQ8EWpUj$WgM#&n&?E#-;3&nh4z7__y(SN{PrO6CIO|%XJUe6^PtfO{pe^ZuF{pEt>rlX0=+Yq=R}3}> zcgNQyM*HAa?P%JY$N54#%A-P8pG@a;!d1C}1+fYz*)!>N-61zqinZX+BH6nE>L~k; z?=C7R!PPfVDRovNi9)(1EL`-sYo>|tVKX|yUXbI}3FwMc%`O;EG|W&HE2lS&9tY$# zmTukR)loTv+(y$?&7N9vl>VINnF6MNBmx5$2ydjk%awk7YVE-0)R<_pFn zojn3)+T%*@Qp%*>f&!pzK^OqhA|-rJQv?T^(;cFS$IPF+`9cHMHFpq1zmFdzAEg1uE|hHp`4l0Zi5pY|K_f%GSuRMOF7mj0Jni zo>=(-J{g}U3O}44L=6kBJc%G^H4>bi$4y;&JK%Gpzqg7qj!Js6UbY5z;O_~@6E{ct zjj11Mr>W$jb?5kLQT(%^L<;bo&`~LVE(v3WNs~4`)HNP9l~=s^8w1VZw4jN9Qa(Od zlZlf5q)0_FS>x$Dft%H}2T!ubgCw;0GYOZ45ggk&tKkTS_jo!ThraYr z#p>m$t@vk_8rjTZSfG6VR@2HIU<*r<9$>FiDGtxrAb2;R6XHmNHSaZ|&e=->Pm#d+ zjOt*fm_!$dq2XvnVizLgs&Eg-%=VvJG^W=%Ql)bra@FxOFd3&6Ooj(XjoxGz92U&x zINuhvCe<0o_^k}q(4CH4j0_I`k`O)c@PU_^6G&zXR-Gt^2MG?(Y>8`urSLhl0V!Lu zncE4k8L+TJYlL9wxSod(Cvq2MGlMWmuI1eg_lKddMMcKXeEoEL@@>!XJ7V1k7mVew z08%kWs-wai#QAOLEF5#tTtI}>#?*PGZutAehU$qsRuA*Mhp)9E-*aDK6}oQZ06$Zx$|Z|zwgRAR_K#~=J(~^8h=9pNB_gPkt@Uwxet&4x^+z}^h+z^ zLW@F9@fCOL8bOtr{Q=6vw=nexYKi^I--M(Lrcmk=g0i|41m(<50+Zz2?w!*`O~x0L zJhTW?h-iI3O#hyPcn?m*8KdaLA<7W$y`J>B!nvk@AM22J{Z<9dw=Yeto~x552DoYi zXD}|8%-NkNO9$B9oL zAIKQZ47vl-FZ`y=vTy(;Sc+4q#`c8ZoV6j@eGr)*!@W0tT>1WPzkI#5<$ZgqeOP;| zKsnYs*bI*Wg#sK?@>6xE_8J-b_lk*`^N;eyws4ggmmleNV7QC4BX*ohkGXycq6<7+ zlU(L;fVt7q)tKj$=Kb1ipDl%en__GU;Uc1gCZ;(g+Q=9RIFfk=97*h73M$mdzM?n2 z@7(<(_6t*}zem((fy2bY2&IQ3z>raRP1Y0wNa99`?~|>N5riOkRj0E0UGLcK^pbe3 z5WzAAeoN&kQZ!cgJ)AxP{wzG4D&2Ed8-6k;^2q{s(~{KA7!paGPjym_Z=2~ZM-m3WVo`@}2k<{k9~-?T;@LPs1xwQbCoD|x)*%*?y5HyQL5 zjfm}TamvAQPR7aG1+fZGFXIm8b!gg&RcUumr(h+cm_lS=~TgE_#Mqy?&BY}M^xF(T@WrB5dijUYlLtzIqD1#T(E ze!*0X!1gs^A!yn@IwDC&uZwPom^5}GQ3qjxDl?Q9ll=B_6S$0QaeI^y4iGHP9r z^`}oaZ%nXSp_W|X?1u8LzK6&&d{%${F-$aQF7SN|q=hDcbSPmPR;?dx7!wUxO59Y? zP;ngC5@0rQntlRHr*~DrZzbo6u)_>y7Ng?b|iwVvuKv zcZ57a$9 zc7_xjT~z2uhB=N;ihd3=0$OgMm#vkNW#G7Xxonm9S9=wHUg502tjd$vmPChPAyh66 zYP8M@+3#@8NDAbHKVdl+M+IoX7DsKHXO@C}J2WNE0&vPOh?Q={X_5jn1`LUEd9Wjc z{dnBb=zrj$!s5r1cMb}LKBDE&V^p}_=nB)Y#NKzJ_ELtU1Bu^PYg8rGtR)XhQI9z_ zs!uH_^F`1wMmy!(6IxwQFXzPPV|eR@GY zl1eYq2sfPaqg0#HH~u;w8cFGG6QS;%>_(z&cp%%wrNlE=?z>{F&e!Kgtmc> zM=94uYlAMll~XIP7*R+r7d%KCVN}&gJ-7JYepfu#MLTy9)U2;^I^u3_$;^UL_1XKi z%B)X+q>6y(i2BdG7sEZfTL=9jOFR9k?FR^ZpI9K?b5!PnpJhXYPuhXI+t&p zy)!^9_b@%AINV)32i;EQhjI?7AU=Knskn5ZgS#pTaXF6_XgZn|b3BxhV%5mC<%E2J z6RB!aD3E^G zcy4jB`o#IF3h!;}Nn_EhfFLrV_$fq+h^RonLjFiLiG{$YZWFHVfcdv z0;B54X`{AgRa`YlqSzqkYn6xE_y+JVh1|vF&FXDiah)$ElbzBrAd62Wle{q2Ug2EU zCvW9#?LBr0J}f@kt7Tk1`rM4%aZ>MclBZDT;$}HGXJ$aWa~p2l;gqPeJf#5c2)k|h z6I9>$n~BT?Aw5EYh+)xwA2UjX4vD7x3E?oCDw?@Oi4oCOk?A$0x)j=R#VdV%A<+^8+>Ah_M0<9fwN3_snB#{hrF~9iim4 zZ4TC65{fMeV^E7226*&{5<%9ow_$bBncIa}USvz&)IHV&N%x3lm-`Ad`i4t! zKBS`HeR9PvOXs;49N*ORvN1$3#_Xvj_D%}jVW0K5LN{+Md(uB*D~ulM@G!83sGw~S zahj$*V#ZDub&m1$2tqe0@yFm~6Rmb7lXtC#d5<0vOz zN-PS|VvH={1;BT5lH1L2%Q)^Vs2~h+u<&O*fhs=PUp%PO5~Dr2Ze7p?jKTMF&g6Na z#rN~5ZCz0!l_C)wf>&5DO=QZiF(L=KrPKAhI1DfwPemhtg3o1lXrH$e#6=7m)A$!U z=y#V)_py8|$d`#f`~_^!&O2#IbJcJk=|~+{YV3BRtL*w%QY(tVk5#k$$bGLNeWt^4so5b%2Tg(A zS;QCdzUc~$*jV$`osC0-23vJM@9?saq$YH3laD_?8oPF;cJZ3tl$;~ouUsjP;S(B`JSQcqjzRoZuAh_$rJtR)* zdvX|}-f9Wc_zHu#BbRi3AsWdxL-zB?cwm_cRBS9}iuqSI2OM1fj=Nf7e9GM%Wd5Iyx4rXUD3Ha2YnqQq?v6j>S;S*>_8c+ zD7!N`?W~`LEJeE>c`g}F)w=?56PyC@E)G$>uL}c96QI~E)(V92Hj4<0s=%F#kTMKJ zkxM-E@g_P|ZYQ}Avx-zzi^H{yD3D*Zp|5x4W0qaxX(CztZ z2B0TL(N#)Cd&a}bsfVi82`8)>RvTVH`uxD<+w<3_jeg^l3r=3RHP)72{iNhGazh8l zD}SB(RsQR6-}n9MYnAou|^5MT6oKFV_)dzW(of(d^SR>wC!%G@D);ze9Qf- z%?Z)Jho@Ch+dF;B})7V+<7kypZS8CJ9qc`)#|%|;NkfLXI*0L{O#Oc2~yOGjBIX{f3g^4D!Hl* z(|`v_C{?vvr8;UR3dpkvo974wZn+@GD6xdptXA`TOE$^K0At)BBK$1AP3ZTSLbf*du@Dp<*vF{(IWP^b!DTL>h7RunG~I&od*mRR0~mp ziAaA$t$8GY-MgN{4c|&=An`w%P*mg@P4I}5!u~ensPOC8F3at0B*-kCy1)CD6k_Mp z+xKm7`*w52GAfFNPug?h7_aB%MWT)sDOeNZsV4QHK2Rbj2is(4-B3OKfde7;Q!oJT z;xD{8?C6vYX-x*(L-}EKuQox z1qrk!1?s7JZnL|lyC!-C?p$d$?Qb3Qx!?D~t3UahKy%o3 z6-O1Eq4PJ2j%J)b1)7bqU_rGe=0DX=xSX+!Or)EB1>VkcNCJBw6^H0h_@Y|j5Cvf4 z!q&?3sK8Bqp1QAl;fIE77C(rp6j7z;$}Wc8q9MoK%k?EABeEx|1BQT`@l9Qb{fgQo z6)YkV?Dos79y}|J=j2HKcoBF`B%u_1aiXUPHv8ABAbm=dEd+&RZ$pW$h}PI`xc23a z(J!f~+M7};W4ZE5Mb`AM&_Hk51w|y_z#tT7jN50@*A~4CSnwt~Glt#HbQPR2ttHej zp0zU$+W`}RP$lJM37!snR?S#P184%X6F500clS0iNJaj{}thu4mV^&V=g|)xpX+wN8jQ zo-<kfpdeLL>)vwh zu7lBpNglRKtHna8eXPBH*icyWcX#YDf(@5zyw8qi%*zR{pC6ZzBZBKKQoScRA@xA@ zCgp`AyvL|00$!YMF>90*B?^^fd0uj_zh}sp26dasC^eHeLpKqFJ-WYC>I-1DrGk&) zyizJgrHqUwRqp%h9C$*tnM6HD$0R#Y_4un6-W5khw*1R>G2Go;ZT-72uF{dD;DVtt zW>mN!_fQoQ)w1nOQj;0gQm!nJ0Zz}A@1qSPw8NpKa_glATz5(E0?)q!ozkzFS~(nN zE*bzDxubvNONyMOzb)=xp@@V|2#%xql64dsU<@(vNfFm?3}cu8!8v1>ODRJJY}ziA zAPo|wRDH@h&z-k27gz)OFrXIJuzeLulQL=rcAbrTB-{91(m8u(>*nhqBwfU z)KfYSMHzjQo*g$?wo+PRp*?ZjmSjFL52Nm4YB2{kSk?fXj<)PD(92`#xp7(<*c^!| z`)E#Bt*#BFh=#4Oyxf(g>vYF8xJK1=MD{X3^~q3-zx7uN4Dt}6W?tZ+t!wjW?YaVD zh%lr(U_;sI&f`l8eDv*OVdK5Ly&T&AXjy)8QmP%EO=btd$I>ijEHkQl}9CFpDP)ePX_N6xuLlknN>$etlq<+iyI`*V>fMG)$d$j z+u!h?nWtJ;En__U+I_!STt+K@`YOA?^ihIrI6;P-ldK}>{v6H1)@=17sNB1QC)gQQs5uQ2li zDsrVL%D=U$ylgK^kB+=)#A;G7%49gGwK;XQ6dxINLU+Z#eE>T+mW-+Hbmwz~q3boG zwPEjY{!yqM(B=|ASl0gHp1pn-rPFZ-ytKhW=~otxZ@d3^x9D?poUU9I4N6)dla2i$ z89i&Qb8pn}qyje_K?g-#895c^uwdL;wz94|GlthUhlh7i`SGEUgdpBiKZ7i3m4L)l|I$X-KAjGpI&r8kNtN6-mMUK z+^hiYFNh)pEKdH>)Ho0c>cncudfq|Jp~41O_9gc%=2`imu-%7|jV*%lydvTei5nrn zEJ}|R3k`|t!Zqb5iA$QETd&h&-s&UMC{R#o-TZ>9z(j)odmy;U`Zqxa$A1V+#=GwX zW<6J}qQA?Gy`Y84%0N)omOla165-0kQF#$+7{+ENPbbEgP&qLlPmo{DE>8$e@_eDF z!Ebxb3!DQ;24kYb=r%6Qlu&QDLp0&Z?Ce#Zj2;FDs)wnId={=-Zn_{Vq3}ii>v@U& z>!I4_^8y2zzwhf&w3qek>M?NBNPJ>ukUqiJK1(6`>-|CfH0R2fv>K{sgR?Vp*{AoT zU4Aoep!U@BB$>$L^3e1cj=j;9{|uGuk`CqKR0+2JGC z*)sU?BPuWCxg$sFrZ;X1vG80?qkysm3_tM5cF%fpB~WZ-uj`L6>o`OZ-_0u10)_GIS_=SU121eYCrU z{8X9eVTeFaWp|@qP_L(;@%8U)&<>%%ZoZC>v*v`4B%Zo(uZF5v7YFDbDX+K7!&mog zb5ih{T0QQPBjfs54auEa^eoUSs>B+Ykna!uiR!8X$kE(1H7p$+6&X$L>|n+t5n0J0 z87!8m#~0ap?H#D=l!N~2!UX2QqI+iCBS4^{*xAGnj0FVQI!c!Os1GK|%o8B|a~YR) z;{RM$pk|hjI9K?7@`PW*8yf0_q)@JJ_g&(s>qCd$MoDl6Cq&%~*g33oO}lv{J7KChKC zOO;18kH>J*FhnN*7NXzmN_3!bH^SK;(-hNbLc zNGSi%aoatPXTbEX1H)$z-|z+u2N2ty1z)Hu%?G>}0`~IPGhXlD@eD``|HkpPrB2WG zF-08%yWNillBCKbx4j~I%rRc(_s@biQTxSzB5m3(*-2kB$JbLO2Di33nCq}xImN{C zRnWY9Sb-X3FI=JXp?F4?yFx4jdlaA>I8smd?9q#~z&b}Vv<5Lx%aZTUn(_1i>7AW} z@DL`k-O{nJ`QqhuUQFS4JU}`U!9RY2H_6yb=}{sLiit&3uqSci%n13rWSzN##znFT zrJStI5oh8;JK-iyUi{!>s3;tuTwT49=GnxbbhMu|Nou5wrwTTtGX!Ev5)!>m+rZMA zQ!Nn0EGwP?@`5`9)>4pUGZ)l}U8B+{QyD|<40=&EWU0_W6hOyQSGcQOz*vYg)1js1 z30`1t5Wz#86?IL839wJWIB=tdszg1Bn-Ydsb1h-2a^P$9Ta>`Ql(o<;2zB9*%*EF1 z83Ad-n(J&4ea4PNd@i~;VvtROVC>cdyl?Y+NzzpdpG_2sjFR6%U<71lXlM zt02Lim_MS|*y#sM2jb`xMLz_u1Cn*1DkV~+V~(!TiLOL#eg|>wa$JmSv92%#fVCT! z$r1i=^(x-#S$B;zcyIq$;%~>i(9J~r9v@CVv5V+%R9qwaU(13>Xv6Xk@l(D-wl<1P zX`NbVw-GSep1DU?%anPf?jr=(`C<#W9Q%w+)L7F2A_l(!C>L*7i`F44uLB8FB32#TE< zeG(3lsst?nhY&gIY-8ZkAMivXD#i{oh=8%hQCz3IQJn!XBZiFG(E?Ia+H(gY0t0Z8 zFdCrW`;{QwcKA1gMX|Y9XC*P|{GcfI8W@F$5y3|kX-gk&J+DeXU#>ASj(yl2u@r!% zl~VTAGcF#op)lSle~~$%%wODhJPua=CL z(KB6mJZIXtxog@2E2w6OE~1CLD6e6^9`Z;=4JjEr^HsQhXlYi3nVDrp0>tweiZx_^94TX)<@ z!MI*EFU&FTc9@z5zv7kU5~^BAU3Vnh zYXM-}*=AotF-RMq1HF+{8dh8=`2%3dqp7j<3M0N%AxYRkfeJkTQM*jfkNGh#dqt1e;A8RDnQ1OQy`S zm0rpljdK;S`Uq>7rw;V-dLt2P+J4EMHL013{Z5xLAtx-Gdm`+G@Nnhbid}1*5KsTU zbCri2$iZHOng7kL9Kn7YE~WK>Sk3prn}T8Jo;BtZ5t%KbwobB;==*HCi9IT5705n-`i7z_@Y*A`}#YZwbv z4u8_dgD~l@f$%7iyKHbhz&Hi5?f_{Pc=4PowkCo47SC8}ds{S@)zNBGzNyaHyi-sr zh|`2D1cD;1ilr-S;r7Q+?Uq^HLVbK1OacPrsZSPyiznnP+0f_8mT}HGA0^$$og_}7 z0WhnC+tHs~YHv{y$tVtuCGDK+naq!TLM3|z5rp+pCfp<{iVatV?19%g6*!j8su2vN zK_KWu+o)nR`;iqIq}6n?3_+%GcI}rE|LBlc2z;IKU@riLrFA4oZ7W6sKL;8yNx${u zkIwp~dRauR4x=ld$W*vQ5)DuxHVvvArQG~hh?Il{#Y@QXq(AjprA+q90uey$Wo{Lsl|cJv zxF8MOy#%hxrdZXj*n*@!^?b1D-?D);cc?Y*dAakVOlS=M!cz+Y0x4n1e_R=~#Ly*_ zC790E88jgR=3DTqh)oD=l82tfS&!KeF#ujv;r!Rd^pIoy*0pmcg37&uw1PlW&`05lV);jf4#Ia@-{s8=6({$zDliCn)qUCyI>UF?^$64Up|dE9A^oCitL^qm4iF=-a~%4U`%sOM9L zEb54S*0~JcfEk#I8b*%g{~QDuzm3vL2JtB`{x%b~8DhZj<*Si%;GKth(7x9rb%2r- z;&mHgSQ?4iQhGlP<2VFiS`i#6hJ-I>WJcP0OXYiPa^`L-P|)h0jx=dr!a+`iMti+B zCi)`+7GxikG)-Q>LQT8SvUeHOS@4Najx7R=F`-s!h9l+s%W^J&CK@6>9q0`4n5-mx zVI`_-au}X``zrGJHGKR0=Y*b~b=npGQ+v2Y#tHi))^~KKO^Gs)rXKK|_xivkp=%M_`$UVPrzNY341h z{OUqLlK4#;oF-Uc8g+W2hmNh^U<%vWI-A%!I{~x+|Av|4^9z zLt*+4h3P*OrvFfw{zGB@Z=}xmNjTcs3)#7Sp92HkH}v<)!NN$#$;80G0$}B2rDOiy zVg!5-lr=H7F!=u(sbJvv?H0iQcBZ0# zLqUO4wzY88>e*)8w2LJ5BR{B=Y> zFvQZl=E^GjfZD_2vQ_rPQP^$={$ek9r5=U#7<}G#Fyxcv;c2v6&irj_EBBF#^>n!Y z_|2^oX0LQ+bLxZBs`bri*+`waDsUMXWZu_!gbF-Jxwi&1RF^PCV99CB-?>9D5l4wvM4YDd8NKG%*(*bbL3%7W965?}*MOPKrZXWgeKi+uU(3cQjF zvL7Ax_Z3JjkcMXZCpBu!o4LikIyT;t%W9|@ogE)d%taYLr1m^B{ilXO-k?;IHMUvQ z*5Q&rcDr0`@0#qzpguar8vXWlh$h}U5ascZ`U1~(A!0yMhb{+7*9bC({xnYOJECBz z5dp!g+5k&LM?a+n6cm6{gh;T~D3Oyz$y4}Am_*d$9KMpt)rAD5`L%*>Rd>{|shiA{ zw$xa0(n|(q3c{yg!Eh@0MurnE`){8mqnG!*c;oR+yEaRm4(*M$q0&rfOxIUjN9Z#)3K3*`ho zt$hsj{7$119P#lv&q^Vg>3(X-w}0N5M9$C;Ji_o{amnGjI5eA19x{*Qnj*#=uUH%$`RhtQ zeY%IJBzFpb%t(i(M*>+O%rq6aM#y1p;$!8vo8$kuc+f`TF-OeoAZrMcNE2=xnRH3w z+_9@T&P?;N^~V-pmbgKU&Jn%in{VZBMb;tZi9w<0h0G9%${9gsaXGlvb$VBE;)yeA z&FSSWgU{%^s!G0x!s5e;W_ZMd%bsx|^Tf|k_|4I>)0unV#j66CW0~FV+4{hGso$(E zP6Mp|b}52}LvGE)(x`(UT8|%K-u8b#dEJ7<#>TB36zre`2{dusS3)6y!vADM1xCmV znYLq=Nb3Hx+IF;YL&7lqDK(eT=VeaB>mv{aFvT--*`0)bNm!@X=( zJ$guOkcer+nudA)CK|rm-?>6n<5KtT2G0`WtqXcQyY6rf$O=CeWog6l3IOgsj?a6l zIL>>2La7^}T-6@dqH5`BKMl7@5F;o?MBzPSrIj9nopg;9wX_80NLqul76ol&M3iw*Kr9Vtf}tGjkk}n#(Qc1 zY=9AZpIXTjd?S!u0UDQa=mzkc&{}^AApZbzv>l7MZi#$0#bPL!T2qkomc>I$@2*p-3Z~u#oAK8yr@7Y zq~l97JzSt?mOEw~G91Q?iyTp_9~NYk#0VAR+N+10f`p!I{)(T46xbBsfxop*XFB&Z zh0uXog&!RuG#j9-)qq4(koc(}sdxOq93%0uXlE0Ob8eo0t{-sGFpjf4qCXnmQ~cjI&>IjILkH_K3Mn$WD97-r14a9|nwWaJu zytBgt`-AykBwkZ4Ok%jyI*=dQN`@h z#Q~X{lfn{ScwaZMtu3#utsSq^ts#BBz5H$u+jg?!^YOXI-RJ`BsQ9?MhZniiM<{Yn zl6aNlBp3>9M!89Dto9TnMlK5JJLUs)TWrzLIYT51(u@{uFZpCxB54E!HZ6Q{QiV@l_FRBHH1*Y2DZV>@4FH30PkuRzPE*Iq5&@Um%ryjFE%IC1{S+V=k z<4gQ>f_W-J9+7Hr6dg^|R?&i9P&6VSC6XS%frd}fn9yhw!meoiP0Cx)TvN$k-j%Og zkG;t|j&-aBT|eBJ7jxwvJ*36klak0sB3t*Ah2kJ}0WEqn9x1%VvYw`;p1GNCuj})h zFi6SIy1~#lcoR^`S1M@kI6Z1V4=he<*$7>?Y~Eg%o#)P5^X03{=caKGf; zQ^9CM4Kq_X68U}EQ$%LoQ9YVDG-Ho)qDR9d5RUAjB)CvXbY8ep2?bpp!4=DNkRBX+w9ud4dm zSVf-c8Yv0bfBrbvzX`{;3iU~^Rnf}1P*B*z@mot4VPTIC%g>BoJ@BtB*My0yuCijo zu}`c1C4v3NHY>l8VEn})K+}Gi=U7_{S3*T$U!NTAAdj;tCm3LGw2#I(pkviqn9OqU zn&xK(6xT-AnA=!l@iI;(&AB#{krPJ51-k{cH5+p29{8H~V$9x7@Z#SWH+BlCy^1Oz zaHdaDOK5*f>Tj_h=$HddW5p{}(-k_o?(qojk1cV66P+SxX{{^?=2Gpy$NirA43rVg zd$b)vL@0<~eoF-{TSGR(S36#dZ5|4l<9Oo97wl0D7V@pdO_|t}gc-}D_*G2A$`-*Z zNcP*w+2wq)SAF$!*W=?dej;yCE5(k5$aRnl6TFg_@egX9n0t|__%k>jxS$^)W>|f( zpa5D^Hfye6iS#j%Ltbr>TTP8jW_i8I+Qdn9L@km$HAiB3*#Xs+PI2W+z0YC>j+Vj} z#`BX}N5!TBgJsP-=!>gz8_HL_$~zoWRpP79=yyHTt&#Vh>ZVh~E~`{W!X}C$G9gTe zqJc@>f{lFw<9Vz}Zcof2Ak}?bgI|IPvd0T954bTn#5!pUD`piXjo)h~g-726`Ii}Y zpra-nO_v_32pBS}!%9u2WKD7WzVT0wIcCXv@!oHZ?G-BvwDCD+^HX}+g3QBo-~$FwQ=yd$qhcfhgBM5q_Wk^k7qW);4nh+T3yzOatQ~bv)Yz+XL*n+Ea zxMN09M7Y^Xn?GE`socdL?hQNS*oZef!+Cw?``U(7^p0}Z1FTT4Rqz?%7EHh8C1v)( z`AHck^MS~iF%&od-;@URE)fHvwGqE z%`Zf7T%idwgTyA?f|Ybj4$SckvXFOLz!2A;wGZEgz@T#gnfKWvBFD$Klu_zCs<@v? z*v)HI@Usa6Q4hcYf+j@Mi3JI{f3vJVU|G9B>(>QcjNWmELQ?*<)Hk(kRW~L{{eu_y zKHTe3D58JdbFtZjk+SSnr6-MFqi2jZXxoVbuZo#b{aZ{)g(FYINb1ZEC{lRKF0i-lBs(g!j@cz1NJ)+KgKX^pJOTMbR)THI>;k~E4#y&=}&E)TUSq_1>`s4 zFT}zd;#X#-)KXr^S=G-vJtNZ-s!1FKu`k56)`LF$N6FP?jXfiT$< z&&AZbz<+Xyfub+<3*g+zl`xc>Bjd3lg}3ZRXfdST=b|)t`c_i?_P66`e!)s&R6C}M z7S%&Ism{8Cl9J&i=akUJrB;G3S>d5_xg0~Sv21RwGtPgtu)J>qyPaDH9FZS}RN++F;)(h@M5;`Ivz|3rsPnIui-N>x zp~?^6C&gE?$;%fv@_Ya|Q~;8!*->VsPC9gb?Sq8@r*J||i3eWZORS?bX{Khn^sn~4 z@shlnC@ABQE8NUml4FSFKHV2C>I*9kK0ipJ;h(L|D|++7vCCed^i&`N5NPk#m>~n^ z^X-Y0%F8cuabV#{>pEu@uNoEib)@0wiND6f-W|x~_1(&Fo$8vE8j8P_OluwlSCFTG z%fVT7Pz_9Nb1I1*gXNy}&3yj`vI?K2UJvb=#rj|)a!^$JAu!~s1O3%HOiDsG)QrxQ zApc7|GB=eq|EtJ3+^pqPvL0i{b9WXR0JYqj%+`eTX)uP(qB7xDO-RA9wM#ez3adS2 z_=O}eH=P-+W~MWA<$xre#q$@CQm@Df8Q-nb=&Z6R90&^g&bKVMu%*8xI8iqS&Sw-n z9t3P`A|eCeSBOOT=1utOTl?ce;q`QxoiP8fth$28*}>NJPJTG9`?YUJ$eM2P7UuIJ zRvVTwbLmS7PShZDIs_J?xi}E{I+ec&oUF;BzXmP>-7I^28TfW#@@G*DY>*lijWoE> zq5KaFFuT?YXb3{H2Tz@x1nnOp+rg%SeYr0W!{$1P!VUA`WT^`hqI}W5fC^<-E)(v_ zNLiOsr55HfL_rVE5Rx8fXG*N`7K!3k zCcRFee;TYLFLM4LLMQNlB0Fkk4=o(~_?OTJBKoCtoGKdv-yUy-JlhB8EJBNZj3Zav;2rRT6X{JkrvR-0UGqhiDuX_4Ap za3()(;-_LUus?xNwS$RhoOkSr2lcWmhcMhUfm`?y+&=6Jvi-B_HqH*qgyI{sbhz=8 z0e?r5bSEb%;byDX`ur2g8;OuN*?`aS=nrKZ-0EZJ3(ghp{PJ5vF$_NKmF`jP2Nh29 zNe4Xj=TX#0uff`@LQ@^*Wnn{0rNw_T%Jn&mD656*Wy~B|XjZe!N$AV&o9gX}g@~5} zdOgyG%U&7$ZiU5sBS>%vPd;uOtG`G*UekFuGJKc8ZXU(c7pBxR1-fdFiY# zU*y=l0fFVAGXG`=zz$1=_ z*iNPQ7%Tx-JyWB4_S_z^Q7;M&=!t<`yl$X2tJJe=NflJ19r9zWZ}r|eS$fW5IUiXH z1V>X#9P@NH)G*WeFfy!4hE7cXEi=<;t51M-uf5;Nm5n`(3=6@T?U)zQ-D2N*RB8P6 z@2Nq|?3^Cg3oD{YZ^_z}6Wbh|Upq%(qkB-H-?T7riAHLE3u*VO{EQs7?ls4C45 zP1O)S8{tfsb9=K%lqpJ_KZiJ}2H$s2g{ttu9G1e*fFcR&%~pwql3Y*meyznaAtVZ? zhOlTohJOdbd#WJP0o?0lz4QW`7CRrE z5W!I8fX}hp7TojxKxV8d{gWq}~{h7rI-eCwKb%gmjE_~N4cB_H#;qLE(p@9D=H|yO^{I#V zv;`D;h=i12ph+B8etj(EcS6ljK5n-;c4@z58OgW$)DtA91eoTm@s34LH!Ix--G&(n zwXb2qMmXBsjq3%%w`AWF{0_dKavW~@Bg$HW`6uXCqtiq_h5I|HhUqOFP>}Xr?HCi} zNq>+rmq!JDQU8Yl%-zIeT|bZ0UfuBBgus(l-9adxxs|H+K|N2Si{Kr!G5K_sJb>H% z=smVOrTU^wBt-qTk=X18Hh9V$UK9vi68ISjm>UFGnS;y!!7nX_r5KjsVjZ)-m&uuL z?n4lczSyoYyU#G2IE>ch337_*Ck<@h)#>Msa7}JCzT@R+Wc>k8Pe)*RIF;=u5CYH4 zJJBX0$m~?P9OABYCjWK9?Dh&i96pYo5y-q|eLa0g3BRTPpAFtnILLguD(OE=arR3r zIM(&Jac7$$cS7J5u|KC`xDbrDJ;k7Qm8=1~w*fOPDo5kZ*z#OLG+l z>BEX7u{tuO3;S3EfSt-vn1jroc>XMEw1xMVIR20Y^rSeKkRg#>fO>(8a#>Mv3Cy*F zl5jVs{`7<5+5qcktw79}aa?m(*avkJ$o(Z}gwJ5sk1UdwU%PTU?m4Up2yxs-L1W?B(+UU(+3zVPJ)#apZw5t|#4$Ap~ zo;7`=idY;V9RsPCNg9IeXiK$1@JL=1&>5bA(1TIvJ?VqF%-!y*kQ;nvCAk{z1Sf=T z7hbI*)K!97Gi02{k36k#u~@sQ;h}M{*lK*|rlGd|o4D>=(ojRK>QU%eHz!W$1hVbq zCjMJ-19gh&rX!*GCuz!&Wp4x*EP)#`J3dwG;r!+4%dL2i=d5!8HwS=okYYoPqH(xnSj1= zjlUS42e=?|2}JKRJ*_JW1H1K4zLldO2YXJ_Q{48`TEFb-W z>qz%AYvbiD-;Y?2=SSzPP)U7790CG4!ce!loR^}KG6|VRjTmGwt-#dyl5Mp}Qpg8i zn?CkIs;;?g)0ZbBb8TL)lZ$-FF@DEvSMaa!1sTKL4soKTfBxf0n8W(yl_Ut4kVSPG z-R%hGcNI~iDF=~4E%`Ny_7^rXLdKB%!CumOxju77HeLEOALC@ImeumJ=;zicwSsYE z-Lzd0#+e@|w59HUgtwawMbL+2Ud&jmy%hu6NloG2@Gcwk^4XXYWGL8k|9azg0QWT5KF7;M!wbsiw>fneEDj=PJxo9Q( zb~WM9CloTk8Br>&+|d`#4Og;{fSSgE3^mugH&Z6}17eg;!0>-D z_D(^fG)>sx*tTukwr$(CZO<9owr$Uxv2Ejwjh*+~e{VMSVlTR)qPin9D=VWrqBHY( zC|ffI6$Lm4b>LPlMKvAx&M30Nu0AJvo?Z5J52Q?HyqkY%2XQK&s!mT34V8I33kWf<938^184 zQme(8Mxj!VF^xne8&?>WV7ySHQX^{f3pSjv+B{uGRuYbdwU!?(Cm73K?|G~rY77xg zG?<#kH((*Ecpjc`8ghZ=0c_imSt)?wiC568X)@j^TlQk96D8BvaAY*p;$c~=kL;;# zkKm}QIop_CGJaHbRQwh*+t^D%7Y=DH(i@#Dhu0O?TN&&jhiO{mxm6PgnIS~U zH>akHs$_5pzylV3ylg=XD{uF(4QZGjvnGz&enRuRcA_Y6vnWGJrA+@_A5fJAEFKk0 z5mD&f5n5!Zi)9Fz`?19~{ItuoI)PCxt}y#6KE3Mh__f{)Wyfz`(jk!v_3J62OsgBs zllK;jHmcy6I&;WzhD922^`?+TDmsgawDxW&t={VVk`U)06Vxx)vG^X7WuCs(Hg*>N zPD$bZ^A+Jp^#|TC6WeIF-i5wGMC2iNyGCr4omPtqHHtOzKyLq0X$2QV0n%AObX!2;ap5mY;;g;^Xj}`r4TOiyT6%_tzXWKb(Dfo!SrpE z0*4}y8d0n-paqQ->b29E)G(C-Q67XPJ(DOFm_#r_l{+P^Vnp0H-muE5tW~c`dh?gA z&XG&XO|OtkO3WG0&r(uWxOw!hAC&<^_1R5G{}(mgFp|wv5Uf{4a)wh3vz-2B<5%Du zfqws-e;}niy~x=DWSw=f4S)FdjIoVT+e2&NHTKZ>u7Jt1@{7NEZdGj+<_aiRvu=yv!kNigPd)1xJqiy){57n-Bck#=)--&AcTDUNdHl;eYURj-x=JN>< zm4;w>nYGr{msT506FDskiEF1&43RFpSh88Poevts!9VJ1ZVPJu5QURqw>(bk$a&a_y;N?(P+ewV4IdI=yO0j zucSsbI=^LnvP~IRhz-&6YnL?g<~9)BL?eXK59+H(kdXgT;5MR$>w*iliVxB`>=7HP z->s>fnS81}b$ zUm(*#pUma{6UUnt-Z4 z#W976IfJp+vcB^Hd?2>-8Vv#B2w+2ooR2f$S#7`&RU<){xcyZ64aAWHMXzSh|8@Qa zN(LF*R3a&5+!Ij+kP`&J6YYO%0q9N!_{_==x)8ZNGzcfEy1ErX;`328>ZO2ywsZCs z2E4Y)Q%?4TX}yl{aPlM2l)_iiUKZ5at|K9Sy=M|FXK{S1?^mHw&NNrjtrTt>7=$<;a=4``_QV{{aC5 zy)ootzf1xNcWUyM1Tx5hKQ?1 zVK*wi{nv+G4`*lQd!V=nA_FQM{U;90c5Qqe!D#j7=Qh1V((=i{;FX)(@{3G!fa3)p zb$MOb&0^%)X~oUS&#sff~>}2K<{5*2wM&cfe3_ z$8d>{1vHP@dc9$chW(jE3J?{QH*~tnI94z2FuN1H!W(Sml4QfuKI1)RmehjgM+9AU zsKDSqVs&|F9F}C{X_$HP+D2=azr|qgt_V~vO!yZ4ej*8GUO?)!_dQgq{8@B;te$8& z$2fn79INMd${~6%?LqRvl*|omHGux0gbN0y{}w*z&imp`F4@{mkfaG-w~=UBpsR#7 z5uC`>x|bdZ+>V3{A_3uU(q%|SQQUEha^0D;@O)->n}`K*h$ zTeaTal_R`_=|)Ql&@pM^PXN->#1zft25(Gj3B)y|Zv@Y8vvjv@`)X}mul{n&*#Rnu zpvNf%G~Y5axU5zY<~mq$)Fh7M%naZ6cN)MFAN3l+FNojrx9eF+6J~)Hq`EEfp`owYdoedZ?T5K8gAZ+ zwfZU3{^;CO|9e9&jjyYi(C)bIm|vKu>yA<*?5=%Vy4~*$>Db<6dJrAMwmm}W~>yL;DZ@(fo; ze+^Zq>=V9P5Z~X-rapAZUwixheslZ2U`IRJHbXgGqrQ{V<_V+Mbi{00_Pb73ck9&; zn=5h5I`7>(kSA5>kD!VNDWACpx23Hx8(LcgxecO|Wx~oPgjkZ*-d48U+&(XOT#kp)vBdj;oyToZ~ged#wdlBrjuiir)IYZQpvQN|!H>J`vgoLJ_U=8sbc`H7yR3MvxH$dECyABSyKYy2 zp>Ka3S9h>@yWMQ}s#UP`Nc&-MD9koL)VY7yda1tXuC3k7-OG0b8~@%0V!o-nbt}vF zk$b*D-8=2P`|y_6%B!FC%coNSVg7)8taiBReGbmYzqr!y99CD>z5mcUrnwmZ$$K-l zI?=PQDDQg5-Fa|1N4+y(Lm2#c+>StNh&Mo)P z(d+>y^d185m=ns;d0%e>b$90jRiA$Vdqn^$>ekgMHLwB!Y*>n00_CgD(JKQ0Hqnt`**dDWRW_-5+_ zGj||yB;|qMN-udsncqJk%pA$?74xIc93||}|MNv5_ugRcdtq{TL*YoG4vW{R#T(4P zfy$m(7UoD24rJyuc}01u9L(_H3t{%9b|5>2$?N#FJgF_*fh-Tm+$nu5JabAL5$^al zN|=);fVqe2c6v6=Bly_aqFqO{&;57g4f&PgF?D=Om_3ozKVh%(Kfzyb06UKVN&J;^ zKYE)x^?ww0Pz`2uqwdSVVfyVmy&}v!R`yTKs&J&v4kYG%aip^2kKHqK-8bQzd#Ucp z;G^yTjYHqp$R!ttBNvyO8Oreeg{mH(^~0IkygFN6pARSBH=e%k>Mz)eV@(}u7;th0 z2zTOO)7U}cNNxjxJ9e;Xz#(%$14rFg@QzQTFCyWL5o#t(nydZzHh z2zT2Wp^x*?!+BeeH}-tE9Z3Aokds3VIB;>e*`b17T=8oDvH8TdrrU|c*@^k^Bx3sy zN1E^^;_wg0YIXA~^El?z&5F_gTY6=~Cr*Dsw=C>4wsFQ&+P=cBoE#1dr{iQKNAl1_ zq;e_T)G{E>czD(J*}ya^KbH|NH{?a;Q-!$AOoZ{c7QKkOs_=I)pj3e>F@= zexSf-JdiU`kjoQL_w$?G1)rA7Zp5~4=$@9-VdlP@x*Dbjcc2J&j($3|>mKrQy{XUR zeS^>}26`a>9#0e|b?XB~jv>&!WUVT4}E;@NHs^QBvYeXhVrR zc?>1$;0`2qx41$-9l?sf-$KM)y~2unHP$%xmez1n@KgTh4C0>Em0t(_I^CWx?s#r2 z@mpqpT(9kEByl#HSRGxw_W2-~I6RnG{l8=R-z*$2?t%MP=O%XCv8U5xZoDz)3E$ z;IMJXN$xBB7h^+Ur|v#DW4~(NGT49VIer7vIsVs~p9kY_zjOZ4pSO-ewg#C`{_i`r zqLEtlV=DBn#zjAi>`7VtUYweJT5YzY=SQm{4Ce53j7yn=;QilsTOMYROnDbrHx1!C61xZq@3<%-eFLa%6qAQu^} z_9CvwfVM6I>UbB)#GUsREGV}9s;2InT0dyFcG~B*9Rg{FOLS1riuPdeTz!}VSz&^9HIgv}jf_5peae|Fu*7s7)THTs%~XIyLY3wcZ4Q8#Xi?T=1s7C$QvG_ z#dIY@G(biso5XC9F0>dHEj@nAx3Zh)w!&=f@`c;CBfTb`qOe59X>mqe$UB`8IO!0s zk6quKewPuIdVDN?nda;TCeOc-*0r@2sB<1ZI@`JR1Sk-7BYZG!pRf6`s;A zK?oufJ|uEj%rnnWaat5QW@cAzQ*|(pY6%S2n-+^#eZd?24$!TQl8iB~1p_+6cmtiU zb2HHp(87%VqeIl#d|JPOR^B*Wi}}M$q1V^C22?d}yO-3>fcc1U-)fUr6PTdmX~hDO zEhIw%imiWO8Vqs;xXRl3@L&k&I`7V%h(v>y9OI&So3YJ>TlrbY*vi4<$D4KkjvZm$teedfAU*1+k>RzM!{)6iFMVqa(~8M?oM zeY622zVK`{dr?gg95P{8gU=Bj$-ORLBY~Mt2-*3!PPV<)`a*EL-n!un09Qq|%ODPQ z%5u5s=7k1KumnoR#>xtKv-;W^>l>N_D_m$lwQKcgYko~$x~02s%ydd4 z?+t#_L7}2<97vo+GqPuF?H%0W8-vAXZ%ba~5RFV((2>54|G;QSn`0JO0i>7}5xC7T7j&aF!%1@g1IKfB(>B*Gi%) zZpw%LgqRp8WfrdBVEIBdj4(?%!*vwyNCy`Y=*E}{c}D+)NXqiUXS-vqL=m7RBI}|+ zX%==7fX}`5mt}2`k1tU-nrtC|&k&$kPpFRi$v~(h5Ur@;Z;*a~I%n1oFj9MITd)*S zW1j#Scz${Tg;_N;L3)~Yz+w7Hguh$@){8)5AlxqY@vuNyksZ{9Q#I&IMp_XQgDYn% z@^ECD_1J5pCkFc6kf9EDLv{kh;e}rh5&WUr6VV_?^vL|_+MdXan|;ur=z<|mmT*#| zf}#$82C$$3dvHVj^BDY>j<5~|ooVfzyw{|-}_zke8!5N0?HW@CmIb6s;qwG4z${e(+MTEUr?vq2>M z4QlH0Go#gOcS}zCh8#YUZ~)y$QF|)dTr>sUU~~}wzs4j*oN#wB$ExFwoS+)Vi=DD3 zT_>Uh1+jNVTk{6z$o^X`oC#6d{xMPW*T`IR=`IAR-D=Y=zNRwmL1Wd1&%(^>S|sJevOo`oyuD_R&ny>;Xt5i8@s$8U{dU3Dt~_hHhx;mRuFA+ z-RgK4wqSeiPfn{^2fH@ci_3(pm}>aCpY7gyM|7c5i+|nM;HBgC9J%nfueP)L@>8$Q z)ylq)S{`BUHG1mfR*QcY9KJx*L+O5ph~|PE=rVe0MPe^Hr?~7G%xuz# zG1r!hTn>~#5r=Md+o~Z;YY;N(_})38*^m#h6<2UZi*{%#8TjKyyLBVbRi3Bsm_F72WIYUqkj;4lMZuv1(Q`>% znXR?{<5aFxqq)MkyP63q20$u>lNxY=9*v-|WBb+vuGNH4NE%8_fJ3{u4jYQ3IsIZF5Ala1z}1i?NqYdK zKsUCZ#h7B9?=!!TMpL4=Z2ND{ETtQRS2TG{1zB6-?+n9w6}p&8)h`(7hcA6sRiqUr zrMdt`G{HI_C|Yz;8hOFdJ;`?TpCs^J3eJa8z2xi=yrLs60@+=`iT&~iONtH+B;QRa zo_F^nd9mN#up#f>hRzGY@l9h~MU@YPMCZ-!3TYFNAIfV)W|;?9qOtSRw=%aTk!gl{ zulzVVl>N{lW8@^;D-xV1eOYF}M&&fPqVhsyG=5@j|ep-+B! zLFk1+)FM*|@^V5uC@4EC=R=8GSt9TcR>ehl=ZbnD-r}GS-6t`4tbRml+v>?T+#pp8 zulXq#4bWZd?^GLbQ=5$w>5k;vhE0A`Xe1YjqP&>^o@xWpm0fAQq&)-A*PWH8>l5+8 z5@?~33+*TY_^DEoQ3VepqZ_8s97QkY1l?*lqmFkLZHDRa7+^R65|*<(UJ_7i3Y@8{ zb&7~Yx!x8`ZVFI>I&P{|NlFm)6Uu3U$M)})a)3U>(rG2$XHn|%B6K*7bChthrG}rF zMFgwt`!KGE8j#UwCAj%)+08ma?-`nT7vp4Ly;z-rCo`+#I0M%RpA&Vs1Z5c{WW?i| zCjejbcELmYwjd2-rvEgUEf`TqkBk7w2r<=yr51oF8GpeL$U&vzMtBy)h~5)2rpm$u zz=)SLetidWkEV9Bl{QBwi*2=e<%=GSW&3LP)#uX^yl|ZK`%OY87C}+bqnQ-{*ON5@ z;JgLz(LOBN4%6FtyHwm~{Nd{D!80wV%`V?O_RNZ)-Nwzo2I}{Pd6b;d=@sW>Ev^hF zxPlkW8#;3I?xD-mWPs?kMl+gXvZ|@`@yx>({VdKjIRMI1(pO2GQ~!ADf{=onOMxL} zyuR;a1i%P12SY*!BP9=&f6)MEFkHysV6GC*u^is+|=J-{Z&@agP8?R z3p14gkRW_$kZ*E122rrn%e?`hoFlL|F@uHxd@z?zYs*Sn5RT39UT!IaB=I@tNzqRd zhyowGWRMLXpz34Tz|oxJBV!WqR?sazvqh$G&e)m+4>r0Do}d?wAy-e#aT{UF!p)>EycX7$W`j&a>J14W=U_MZOm8wE=_pPo#a<`-2Kf>V$D#oT+5QxRM^gK6D zff}$KK1&jMhR!wbHL&RbH?}G5A8Uh1zv{_67wp(eJX$VWAETe_Oi*n-&=g!5(J#F6 z>dQ0>-4E!t3@VN2(6~!qwW@9xAl;qk2_JCgP;awgAih$dk^{2yWcc+2sCY+Br4cOI zGs`W3V(4@u2n?hQ*+u<)gIio}}@Odq85cw-~<=>~?F9`2(;40XjR`X?dd} z@DCizX4A@Exlgx+X?5W*NxaRgWblS5RNyh;L|I1lRN67^)L{`bV#8j};wWL~7za#i z!r~94$fd>+6FyNm(JMX&?D()hAUNNUuShl=`reWsGyxa0$FOTB$FRQXkV{uldQp~B zhW>%eUV_UpXq&PM)*lUHk0{!;LdNBJd|GF2RQ=7RIQ^SRF7_y>abg8g`olaZ27c99 zqZg2Hb%9>dc|8NqR_|eIZCgyF@mKX(hOvnB(Hgw~ul)d0ctEvj5cz9F|58X`V5Jf@ShV7po=fHW}rU;t}f!wm>TIVH@+*K{pA?r=-?xvJazW);bz=(X5aWu-X53- zbF=5O7^@_KN>+)vs0oj)wf_=yD-G#Kx>s+EH7`Igx&|Mhq8f_T>1l{oD4S8dJiLOk<#n)9 z+1;W}H&L#j|EG{F#5+G8SF2n5@nc1y5Zu2u{nuFL>$Oc+JzgE8S$%h&V^ES{x&VoP zj;Ts$A;nGbMQ)iUH^56KH0_1Nx(Gq+bO@C!=h`?_NXx1@`bFAWt#tY;*ImKz9x#UL zrc6*H$bBY3^*jpUVSTOAFu)S!7yF`#pS@>%u?>5qX$hhj2irgfXA2rnm(fjj6Z%}2 zDRRprnic`{h?7YNuzxxSgP?e~s;4POs8UjQCWtTgbz;j78zrREDH^E8o5lZ1E)`|_ z1#K@3%@>eyiLLeGlq+|HL}kzAE6O*JoC}Cn2S>tB^p`w&XC6i;F$2G`KY4Q%q#7Ux zXT=MXV%)i!N`JX6Kv5;!L4UN%M0aIsht9a203Pw$JMSYaJ=* ztcc_0IITMblMC(ujgDa>Yp!yfYqj$6oPpXXgwj?9+=Slvn>dYi_s0i%;Zhu;uMkYK z6-i>GlYN7Jk;uo1X1tdhy+T9Z3+-iL7jbk@yx9(nmeiPi_2nH?LQOz60yIMm0~~yx zzW+j|%K8`;Io#5gZc2hi_t|4ycK14sKGoZ1K-@O&N&Q&3Rkaw4#MynBpkg)66%Jlq)>RM)>O_?hQ^txJ~-Cm0n6w{+ocPsRKW}P6p1k3sY3+EcE1{CD+41UF%wC zD&FV`B9YfMHW@%9dK8G_%OlNf)Gzd)^gNZ{|Cek?{|Z z9pcjwNFg{(hwXl-S)Vt(qP6n9l=a251e*C(6pdUA;F4Sq#Ssg7BMASS(y~~uVFt;E6V$4W?g3X5fb%Aiqbk9xZJtzTlU(C$-y>q5 ze3|IU>me*GJ0pdG^$JlG3?bI!W7OwIfh#&$c0}CC<2@|4o9cPvNL7|3=WqMvH800C z)SsTYI{zYB88OK`;`|{^hzbV)?A8MqO?Wb+YQTomgv#=lC;My7wN7Wexfqrc4`q~$ zpmAMuegu$~0xTT033QbO3>x~kd}~#yjuUce z2RF5USSvPDu2mk0ewh6yp%)iy@!xd4Q=E~YsLp|c_P0+xrY2Alr&2yfVlkL%Nd(;W z2g(YdI<20sr!bTcBF}-8Iqje*Q2t-0pj2!F#D=hBaNOTA#Y%k&6o@`cK&Az7YNetP z3e(GY=&6=1{N=;Tcvl7WFCiLb%woOuz^5^+5e4po2GCgEpf)$nhlK>{p@bw-spPIQ z#+nr+x{9m=p>V8IDviY9^Ld!$DN5Llp85o=kCLiCAMNv765i0hlBH^o%DZGUfZQij zV=d+Yrc>S3WSoS`-j=P~B)$C&5FPc@n};Ui;`O`dnpb-L$PT@C<>racM7a}9b9;ER zh57Ll?w)8Mxc0X9WgTd1ycEu~P}*52o-no6fD0ufwV}_%epS|rXLc%fZ&SgwqJ!J7 zRXWkq?yF=&LsNt}Ns%#SO+at(mIz^~{|HOREfLHn$2bL7fEbCRM?9&54pJbs$faUq zS(m9npbA434bK#+#(=S@%a0&cF*0Uo^1(n?xq_!L;f}e;e7Q8b5!de1H?(A$RFK{K z!M3=yFhDRCLuy*WS|@GnthI@jSZ?)+rheOK2?dfQ0~B~n1D?V}t>vD^ES<0m@&OuI znz!u*oY?x&)@XsUE!dz4TnEKR#eBsQ3~M{0-qXfcSxHb}K&%nHzkc~QlNI*n#UN+` zp+qYl_e@teCveuRb-Z;xm1OTLsH+?Mqip3qi3b~8-nB)jl0{d=zs zjk96aRQVrp4LyL+K%-$Y}~&DubdtDf=1NC3Z7^+2~5k=R>2i@vJ#* z9jpLHt_wMCNCt<(+H}DAM1dP4=JCBS^0w~a>c3*+!qGi79t@4)*18-Q2;cfLbgrdW zScsu)RU>lTCZvy+BslcS-jx@v`lJ~czDA0Lvg_htwE2GvkHTFQFArFhx2{11hb;oE z`Ffx~JleM#9CyrZXE0}|58eQ%+Hp)CYuRv)i8Dih3DaTeF-OLL34sm($&rz{OaN5U zp;r(A4hYI<0Q&@BBHX7Sj2R81q?FOte%1ggt+(yKPN48SoB&J-P-LIK_#M6^08A}q zdjCCNAT_Z70Fk1UEXu8q0sy=C#pXY1_WAMo^Gibxu?Xk0(ZqF7FzdtDJW1bb!hTjGb!5gn<(mWU#2EJx7OU6AjaNEk@j ziKr280MXDH9iunzr3;6eat3e z0CX|wOh2JIB*iblHB5GJ!z`)z1t|mXmWpXvgOq9I;t-*8ute^lzSa%Gwv>G5B4MYO zAWg{EHcz18r%rAF^-7@wVRf#63yI`=JQeEv&?6AOVy|5_jvrIwhXJj%k!i*Pa^+4@I4x7MU4865PtfE zwvX@r%A03&-HUiGpZ%Tg_qdBEK7F3-k{xAC!H0`%Z~cJS3FGYpmMAB!Uzyo7Pko0R&Hsb?F@nAxME1G;84d#A)ZM*ev!cD*XgRW*68 z<(OAL(Evo0E^P|6@Y>Cxn>_Xn!&KJ?2~Vv-*o%D0LLUW{^IlczkLr~Esm@?oS$Tl= zOJTVmgD7ho%J2^^@9JC@{MtWeK8^k;ejG`QC=@QYYMHm7New`ipyrR_3c-mQk&r1| zXsslbzTSLz$u`~L_L2-f5}6(BLs^H=qHT~%LxvD zFjgvAA6F`~U5mYHL_Uy3{O~HPTrvOJMAsiYIP_WJ-}N{!jD4xqaYDWha1z)!3ap8) zZjb(UM{Y&sF5`O!R*wKtx1iPeRYj~<`c24jMXXAc4@lK8HW$N;Cgi}C$QF6Ppv|A@ zkXXS4cX2W4wpvu;QMa%$_h9!8P^seP(5-LjLG6qPQ>3KpG-K>^0=^}{g?Sl)Wblhk z-N=+;8ZNu1vU3l?_9#TD>MQNw0Nf!kU?NTu$9iDiA!2cm9O4MVn!w2_ZEUCtkw%}@ z0Y}IMJ$_vk>gZqYKKg07>f>8aC2p~NpYpn@KW(oxDEkegN6u;=j}grd-A=#r%-f;Z z^4jG5;Fkc0+zIqGh6ofwY%qFSa>*v=gaUe48a9kGs`Q08|AG-0G!)7#S{q=#lBzu7 zgzB3Sb42MWjCX66a{W_pisvq9^@t#@=weYX)EQnhmz;$K9f6Q%scsA??T;lszk>XN zu4g-{-`Z5G-}(U2^P|2#lg#ePCVnS)e-xGh-d+u@L8Bu0-_@SAekFEQ4?H&Hm z*uUq?pCR-->i+|n?mzgo|6ibHY^?16Z&0(TxJ$0Io$g$rLwo~4_NfJA5Qqdpcd#!2 zYzcgjO0YkYdi-vhM61V#M3xhDU9HbYuRfv|LW-C7HPJd>oUl*F`pZ6kKW(*ia~kvt zyLEGO&gJh9j)EVGuvZ(PR$~}0S)0|Twi~YbAs4fqdVVzOo*7d84XHz^QzYX~PJE7> zh=PUubjUw%4oBlt@$_JEEgBS1vF~I6Q3aL)&g4CAQ1^YG@s~QWTt7NAXKe0*L!j^E z_JVC4c)Do*X5cz%*uqxf_1uv4Mbzd7Hi+wUw{tKtynRP59i;Y6q?rM08KhDLwXuRm zcKnrr!uY|x`awTWclP){r$v!{RNwNp-ku!OEV5;lm@|3C?r)qb{=IxLFIPX`z7w_uYn)5F*J?g5g?QdK&ORvMK_y zwBkcZVI#NT&j`p0E_+TD-7#9ube4-e)qRf<-B9A>)^r zkMw{=oodutwIUyiaFnS!bD>F}-p6i|sQ4^23|9?nk3u_r$nKH?N`=U|NN$Z>m> zArGrno#_VxrvOKC?jimI%)8)86c-T`B8-6l>I|pQikx%}kg)?75!(|1yabE4c>@rd zwwo1Bkk9PTP{f(vkC6$9Iy_RxN!=b|Kg>KDecf1 z%VwW_kQu=xRex|KTc#;^Br1c8-xZ4-%>P(LE2bNh^92=GUa~ZY5A(6^#P(r?e!YDU z+Zv#7Ww*tm4eWQ@7GKXb2|FC6HQp9aD5R?<7;6@2@Xx<7PEj$~@fx09%nNi_lEyNe z5*JsH2&d;m{K4*NgkoB`)-yUPC>oZaIaM?oM*E>)tn4VQ&u6D*M*#Ok4blCd(o%YX6Ln%=rYJPjm|M?>j&a~006<(TR))2%{o%y!%?AYBi*jcE z7K3Ghf_&l7LL;v^(@HVKQpl*7!GtmmX)^$$Lbaw8^bsALkOC{}F=h+}A#$lt6^*Ad z5@FZs{X-Q8kZ1`<&{HGR#gq?CQi^1?L?I_DAHXAsz z3w_EUV0=7(2cGQ0F%HpF$ET3YX#Zvxq)k>&0n<80lvSgHN@=_!@TZiDajw_}PgVdy zeq8!`V5xm*H_DNj37B|=_p{Qhrl<65CjoAI#n$l!DT@_$GXg-Bd>ho?tD$hln4qC> zr_g3PkiOCef0&3*Wj(bq0^Wo`wp?f3NHnL+CgmiOa?_lZ598xsk?(0mOxqN-sIEqxGU@5Bs#0{25t9*9VF;OyQA6?vLwGJtFXfBS`zAs}G(`N|enrj}t9sb3a^8TVOP2z{8TF_z@|(3)U<# z=^zonm9T$WsOis!t(Xv9CgFo!rF3pHH*cDDgKpaau@lTWHiJ|Q%8{hEeLmj z4xI8T)0TuuqApc^!a>q47RNaT=)`~u;iEG(fck=sFQMi+ z$I@rE3xkzQoqfiT^Du1bXKC5(FEH0U3t* zx1a}%qjEe;&A2jLR8^%WwBDj+MdMPtkpYoI;pFnu5W5qU5i@CAAhj;_ZRW%n?AFC1 z1+E!3aN=~DO-1)qzbT_5=pq*6ORIImNjtg6$N%}rzq1pLY@_~Kn`2n=X%(nkxK|B; zr{SX7)C=TMX)O=g(4Btf+#8?u>BNV#jC#@|BSRnjE4@f^FO%o>9b&oiQ3T{Fau~}B znxu>fy}sK;zg(E4uEBcwm^en}8@%K1XX;=i&v@vq!kD02^VoB0>nm;aB!vf_rr1qVOB(7#; znPOTsz%K@pmro*H4aESHW|FGxRUFb$5X-SNmT1mc4Sd_X6MrVNGwLM#WZ0yk{_en7 za7%Ak5rS$cO@xbSD%GW47jLwgNFFoOn+SK7e%sWsiTaXEm$&$u;cmAUXJqqaUPxq0 z&hq{-y9)H4E^$LJFp)V6lw>x;gC*s|OJs3QSueYJ&`R*Dk;q%gP1FauF13?&%I5F% zyA#f$z>9O@o$~*zdasiinPVA}+GIO5L=J}joRLva);xhDFDlaKb%6TQm&_OET>}wZ z!J7d`SExaq=!ZbkHfbf6-aJKaFo>OAocVBOnnqWv&21xfa#mRE9q0-Ag4L#AUvXnct-Tvx&h|*bUM|1O6n3nj zwr$(C_Sm*<+qSK5%sn>t*z?byb9It)ac(-5bXPj*>U6Ds>#4OmG2oivs7ooCA;eDJ zR28IF0*AS%P2te0*K+e+Mzx|tgWVpU~L{Q}8Woign!C|2HvH(5(ts;KcE^s z;=(VL&qj>r1`=yXBpUJ7fwz=HTFrMru?9Yf zWz-y)#;viSj>g#1@@2WvgYA$3T~tEJ<`WXG;(}vYoYX95cZ}k5w_wC}2E#Kfp?rp& zJuom+8Fn9)1}~mswzy`q7ye-U$9S>lfA-3y=+YF#mcQ9YChdz_23gCtWj`e9t9GjZtReK3)4Wxzz z)0M>(+Da3h^QNx7YqAtgTq!1`B;g<=v0?Xq}x`yXySia^+iUX}lg(bo>^v zBsI)M=Q5(=L|3Vi5E>!GSB3B1!Y=l^*c8>7LAjdbWW$ z?qvFQO$QJ{s4qMkld+&V-ys6(@r|56as=E|8jwtqYJo>GJ;1;KI#_zBgVX8qdbY+! zRx+*&NcnALJjg*ec^o+dP970vROF~`jSAVJc^L1ScA)>L(x<5?nw;=iMNoA?u9Bi8 z?Wme^BFm?(8qmEbqYAE+4y%$PBCWEV>$nB>Fxx3rnICpqY2%YrR)z9*9MDNs+w0__ zn)USGvk67)4qAN*ggX~DgsK!+70!loCAKcWY0}|HLq>I0O8WgCb z2Ogf?jHq%9_5?+$)=i1P<&sQa^|DA)sMM6b{1>qhT#^2@r1P>W9>}bJ3@UM&v_bz5 zY&c->u*&ixHvD{jY;Gdu>vASpGtQX=oe4DZ?(nyQCtbN04EvyMrD;kZk(epYAcW;$ zIq`aUe&WQv4E!_somK$vs2Xy+;&& zw%ctRa!x@=!kRwt3Vy<327SR0bjn8U`}OLy-i)2;%#iEjAt}7Gmsv{~F~TIynO)wK z$+J{l*Z|i**fO4cOjaX(U}87T)Ki2s9jb*k!8z+3KEM2m7L9{&F&f6w&+E-jAxrC7{7eJE z&`f^s_GkjPrdGq<>f(czQWwV?y3P3*n7l zfoX8wV2VjEi#G;-AWKJ*OSwc~=mT1~Y5zjHvIqJc-@TB6s#HWFiSVHA^5lb4!5a=w z5i&Bzv4tQlJW_xN$?9uL-W$Vt77#^fd_yiK+N{}GjTkY9EZ8EEV|b5LvPTHCO`=%1 z$Br3#iC6bUOlV*;2Q>6P4jfpRFdsinU9`GRWQPYoUO)>0RbJ01SRSjwwhsz#Moz5F#V@yzET+{9<|wP>7%mm{UXm;( z`g`1VLCgG*bvOAUiRH|k&w@(UVu()aDaI*6_qCZ7QB`ITRHQ^U0y&ePBB0Up8Pnv6 zzUiYW#QKll!88*eiIglE&^m-;Ds0(F@C11CIukyj4xYhtK2(lYx8o+zF&b94ew z_=LC6%RRKs;=|zcZ_Ng1*n!}AGppu#$|voos@uVTijGem;HvK}YO`6J%@%fwqe>|j zHE;yii_|QLC^vsemQ%nZI(E({0v4SQ78`#$ZGm>-nW3Kus22a+<{WFL#`^1|L&hM_ zJ1nTCCktl{+L=nf--L)$G4tF4n*?z>V*mh8mgrTP0ak))7S))Wld~Ai3mw*}v%UT* z^%?_}1W?uW0gL)kfy>NK3vj`X+}Q~5u@~iRNLhF|JYOMFpEDAWUAMz9=^Ko&GoPfm z7$Xc~zA+Ds@aK08Dh~bYFM$?xqm! z;K$p_8B?hGP=1fOM96%TC&Yf;e<7yOVHjB6l93m&%GwUxK;H8Y*Q#XDG+i}<9IDC@&^zPB3OYi_h4$DLpT+*-Xhz6Ti8 zVHnEpZRfYf8!byN=&;Kx;}fZ^cDa^3Pc?VQHNh8Fq+FW{Wq6orAUmF>D`nWQ;Ya)4 z`0}NF)k7{|bq7Qw80YLZfTo&hmt)5Vthl%>txjBgu2GlMy74zNPIbOGa&W`73^0*RT5Pi=TA@(>uZZ|gy z4}S;KZJ>c?_*r$tKUEjH?rHWF53<8C{N$5n&}f%DB~5Cl|A_?_u$@m(I!k#VMh_Pp z?%aAJ)niQP@ZEd*d5|rR<2HgqPhLebkW>ylr>3FPzNAnd&Iy){+MtPoREF>kyl^~l zKn+45cjL*fM(c#r#1qUK!&|g7(prQxN%+5Y@%)D-2p)E>5Qwk=f@rPFHu7-YMZggy zL!NJwl1nO$D$1Ca6%`2E-iS!F13aJ$ssJfw?2rf3zOVo=BjB^51i3WbNhBMVmpB zW1AW}c^dLnWZMDGVX7R+N`{Jk`vZZ4y9Xp>8%i{60=8xJhV@k=?U{FF4&R}Qt$Btd zv;Mf@1or9Vty=ScjPUWib)Oe>jbwmeOw7@li>$e5|Dy0*fff>NfRn$v&m72sx?!I! z=ZP|D@W4zmDTsH79%6c|z_$jZ5GY@6ck9CH#7I=DW z_{mWR_x9mlT*wl*h8Pq?VrcEp6HO-alWTkl8^+mdFjk$-<*U_0KnlS9;x&>XC5f;o zvfzYzP^j3kIFnxlUHlP>a^?B&z9sZkN6H+*7WWm0Xlkrn-9#^Z`NBUK!z~P$7>P4m ztaP0OR|;Jo&;t+bUA$7a?c;sbLQ;c3{yHeWBLsw0gwO?lzL zLDnkdHo)RukOu$y-*ep%Z>ck)QAW@;LF%?3&G*%?6Z4jt8~yE-tV+Ah#gGF4p?ekK zXnes(yflc2vQ#O4VOr&6)ZV_ZdhK8{tJw20*4~~@{d>*c-ZSKnx0kYj4h$fz0(ggP zkVrI|?O?gt!4tH2j>W`45`8}(4{GY{Ytr5xLC8QsxdoCA7OB-gT4H@@y_KbTs76P6 zGyv`n#J0TU;eShqSmImcAL(Fb@{)XAR8##6D*x{vv^ThGi%mj^Or#$D5TWuQ>yo8~ zqz$+7Uy67txVEMjI+mKBIkwyzt*}1*_zzbzTN34Wnk} ziQQ}0-rlSbA#9o`fT=kwCE+iT3j_?QVZ~p8KWCUC+c~UNlSplhzfIwUHyJ?>ddZ5f zaLr#-3A{%CovBP`iiVTlCWg@VXb1nI_01^ee>H;=ZGUKs0?dt*5ILVPm3`@lb1QQ_Yl>%5|)pZ-JtE&hk0?oKlXL$h5N zUf{p$cc?$>cU}3EyJyt;EGCb4#}eXi0=z-7s-a_oW0L`pxL%OBS()z?&L)UbkNL($ zpr|f1ztUyLs2+Gv*LwAmwDRsX;W20IRNb?OHQJF)U)D7F4Oa=)0%{H;QG(~`Q&?0Y zNLWl4IHz@+>bbGB;&HS!ZVw74Fb4v?=EGP8a`R<$90}g#>F!2ZVrrKWSNh#DYGpEY zXgG6viwQo<>XD(zQZXjpgZrG1>c~pJ`qNjB}`!TLeIQ6B7=5vnvdr?`g8m(-vf8l zw^h^JLGk)9fELH6=-$8Xm5w=lUBGK_>@Pe7W=ssNymJHBd3uj6bj&P>KY;$hZ2od_ z$o{m~ZZR(yYH!VKz~kK;uGCq)Vn}o@o~Gzhbw3&=(RT6KA^-!w{DKtxz1bK(~VADY=idWLs7`@sTMiog!%iiQ`~4MnK|!py8zS{5 zRlXY#20M!0#S`68Ekx0^`JpqI*^!rfj-Rt(Sn1idYv5TS@!sEHJaEC_#5js53C)jJ zp);@V>uge0ETEPFDs}c~-@<@uE4MEW+NKLADFi0_^P*&HUeQ+Y*4+66q01F(O?gtpm;eg>oZgfZUGzPEmX_4FW3yjLmq%tSFJ4pr?jOm zz=HVqmjIU7(}8Cf(pF7Gu?jH4DUiu;QJW1;GYaY-y^f`IR!9(q$B9sWC0G7Chm(tn zxbD5WZ@2XF;{R5_OvIsIJCYMD)hO zxqP;6!ZEr>NlQh7$B15;^r^#B^lO5srt{d{c;Vriwz;Cx+IYIl0*w@lN(acbqGs|W zqT@}XC};F;SB<3}ZPen!)6QlKsMXDh4)@;%+}iD^4!6)Y_jb36fWGM#?&rL#Ws>T? zCgs%A&)RiLEA(HH7v7Gd^t>R|+p?xA^Wha~*GLb5e<0lXXuW*##9^O#zwrt_7G717 zceNY*ul`~dDhk%_vgu;y2iMLh_Nn?JUts7)4N3rgvUaLDiYz-vYBZfxD&YE8o}e|@ zEwlhrt+r^$e;XiQ{HmWphpm(&L`0cdZLz8WYBoI!!<%{B90?}#n29VTu2TbT=M%tC zkT}}pPT2RiK*@rWd(vEDAzfjkYtqdH{gfrqEoznmgS}x7)TJ5;b(D4ElhM!!nP@61 zm_Zt;CP!zj# zRBprAz|XrOr3@_OQ@5IN?E}PHKP`SG4_oPx5x3>mNd!jbZ*dP!*q^&_43|)hS1_p? zxM8{ol}E80pw_X4Yq9ibQC$0)*RHo>2d5C}3U7w-QJ#uLadhlWN@ci}Gu#yONSs{@ zCyyO9g5gl;P11;b4fsNjsLKD@0g$|)fPp478Ubo1Lzl|D{X$xHq6b;@0b682M{HzZ zf5`BO@8l~LYJnsy5DN73Yv{b3+Cad#dPqj%GNywZ3t=M;ftGW@s*Yn+XM^`AQ23N! z7=h4C^C#eW!yWx(#?h(4pXM-~TCWHOf~tUM$G#tLEJw$4hY7K1{f3#CAJrH1CpYB< z-l8OjQt)rPDk4;02>X7(UYn8@JtO7|8Ku_E4<&yJ)wiq=+UYfD&nct-IJDR1*j{p- z!{+CWVq(G>?|XDh#9>2KMZRA+$~~DU)R%uDFu_Rrg%j^0cZ;c6oD8~K)Ga5U@-M`R z|Kn;x&EpzPOJ0`1X%8&tPzMR#bSvL3JFu5mvax>Fzq#XLGimBf0C2 z`QLtm8Z4yj6EgIw1@p2AbF*d3&-0a+N7x^4ke45QmBF0ZRIWAwGwvptL|USB1FCwG zD4Uw}ab_r*IrBJ+7Dz)^k4Y@~t&mv^E{5jT^vQ+k?db%BQz=$a0GDq7&NW^@1$AGC zd1NHu5LN$g{6#qt_jFIK^ zZvZZU2sbcD7JynX_9t)3r_yxC3M*tuJ_0n3W$k?=s+Nj1gE=GBIyYNI5^*PdF1Ct8 zv1XH6eC5LhAghKGc^k=P0}oHhl7Wd~7VbfDch(cqC=y_nk|n?QD(hFSzFaR?J(gs4 z&KDTG;B>yc-wZT_g0x^P9yM{JJ6an+#td+oOrJA38K#i$!l|A_X z9f3>+x{e=24Y{B04VEp?1Np4Hlwy-DW>;&w%97(su`ef4&HIyOuSEw0t7@|Ut$CIezkm#zBOoi5`nmh@JiY7E>fM~8~FMb_-{{danNJ2 zMll5uPikW=(8j!_w!@`n2r+XV>#PaZR`nnpCs$j`&%E{3a>BQzwbs4p*VgR!);(^Z z)ZU|`Bd6n;@00~)&wP?4VP5b125~jI{F-+~Jn$tqpg?ozt079$i+Q&tJy7ib^n6%# z?89x}h2N@!Y;*2w!P1Y4qCE0Fnn`x-W5fTjxMq(+j7{&nra$r}o$1PWPbp;&B`N93 zd2b2VJBlgk*e!?^j($(^Uix{1veFLRPJAIN5DaG3G8DbOF6A((zezNJSJ`GZM(1^X zTigD9Aj;xq&Ui>;2Oc8bqkMNGtj+v15c&b zHu;?dq40y6PIZ1MB>QrxuOo@L70zA3epVLWWXqYUrF#%z1OPeFU5}?Fu>}1kPVRt_ zQJt<<7)on4TMAJNW)u>GvFuqJXK`# z&ek?Q>>|GIHnAm=TLOa(RQ@*6c-8&j3a&awxv8e`_&(XHPZ7AvvN!a7aCYy#kz59> zCc-t2Kye^dti3>?gT&h@HGO#dA_yFVIY8zjyYqLj!Ne>#&I$Q%nhYCzKab)&qeZ|6 zMEWG6+nTW(DLezVK&#BDRL4kN<%J^NSfi8IhQ2KGmYbaW`q%afBK1TMAM-2-4bjy! z>X{-(`TLM;csQdxDl$(yR}7Mt++ej$jM6E~Fu`anAmBF=apYM)90k)VcLByQ#cR)T zs}G7%@mp$#p2##5+^V_YrPy?bZ^pV#Oencbf$30qhff_u>!R?I!qU3!As<03)4mi% z)qakRsHMVHz3zj|g*mhv60ed(Z_H`JyxRgOgjp0G!>#W^5@`$`ktb8}0zE3P!0bo# zDIp3esb_cgPr?|K%r&8BcNyarMu(5k03E4SOH1+?f~m4#yQXNN7H<;FV#(R8QCOu( zhaFDkHRWo_k_5tyvH-YkfwR-E-1A(gZCV$E-1n_S?GPagKPn2mMTP?0lj8->beP1w z1(qC8k34pYRojhtY_?pyMcQZflj#$>#_xVB<|jl6(>Z?;8Y;MEm{biiFEP`kuCg^r z(YhaFLUexTXEYj7Td*%J(XbMflER_Ji&!Su)Z*&N*M!V;P50ukvw1US{|GTKv_qjo zbee$(sy{4uwwGsBsiUKWR-G=iTxUH0o?(okc`No`*Lt%oNiDT1MlY!Y`Y5L zjGVgYb6wp0fz^oyzgJcrJRLfPK&~yrjl9nUB0+`%k4<(fwD8H{aR_MYKgQQx`e|n- zE`D46$=mx4v@&QYH@bj@`NKa@1vB6o=L>^ktmQ%ICk3wW6IPdKug~f+F}!lzC+0Er zmfIR8Y*F6gl9>B0Xvv8S4_Q|;aO#rUiq&J-ns&v*52ycHJ@(Lz_$YrvP%~Vu#i!}g z3Xz@}M#SLgjQJDVfFizR(wT;nOiktJy#e_|6jO(NtMBz!<* zs*E`7bP{6?GpWhV(NUi*-|z6lF6u<2e$x?i%{%PGH&=0%SjjU};m(8V5njQr-`iK$ zw@SZCeZ)YBs2?}almDAJZ=M%d%^uL>wxYcoTs#-G=hVypIGnyWUFje<1{4I}!z7pP zB_+d2aDXF6<(3aMn{oM@->Z@q&S(ki@Jrz$&5l1alDP%qoc&gYiSSeoa{dmMJx6j$ zqVP>hBMaI)=7(tgFIT;iM3IOLNEk+`SOu_6+LTsu>8kvcS*^6AWbd@-$&daNSqX!L zs!OEuBxwr`3bIr?z&Fh3Yv2vJ`R0PhojC26rG$q1J^>lMr$*L5htnRib$FWzbeb*W zCo^P2Ms)mPg}JPx)uy$BH_GD$1}AQj5q=DC-z+W2M*lszph$%i`GEYU`WaC07;dI? z)7y-rKq{gnzTTbd1Y8oUg!XsZD+$~d?BzSdHL8?LimDa`mvn)rMYXVK6l*3WGpdrd zrBF!xk4gr}!@#SpREvr(eg3Kv-hvAv3o`4UR^k%sqE_~)lt1=Bmdy@vph#h3!@5vm~JroGbW;D+JoI()w20bh(4(VQ4yR zI5N<7Rmp6C*y)PRSB%!An&h>)cR@dMIi|*W1_RniTr#=B=Y)MJc&C}FA7A!52dtq@ z-YWy6DKih6+!f)E+)-6D$I6yt0cc@{SWF?Mr6Ixk2byWAAWMf^D&#lRd}+xf9Fh-EXe z3XprSJT#7%5r<5#Eq-InE>6xX;)miUW}gJh3Q?#`!(ebE zMQaFQZ9v`gyd2eZq_FBkykon*C`l7O&)Ket%rl?H8#*hri_C}NSoUx=jb-IOQ^2C1Dy(IpMs}3$aldb z)>^f&)4k`PGu?k%dX+Ee6{wIKFaA_5;VM%u&;DL0mf^N|rIO6xAo)roH`Q`XeU_h0 zM&M{^d6Jr>p-1p?Q#wAwIVa0{Jn3-~N(AQ#3bK>=(}z}!pK%Ky&bOc6n~Pwm=Xm;L z6-ISZ-JH7-8oPJ~qnk5HDN)~Ufy?M~#E-h4P`ZD1^u~~U|HI|;olQJO@9iRtxs_|X zoIVP70BM|49v@%e3lz~|VDKUO!;K4+=nrqEGBSvISh~|ks&pJB&j69Vv5P8wLMSz0 ziB3TMk_efi1c?8otH;CWG2>H2jH*S+v*6)7ttkr=^cvkrJ@&1=v*!4G9kQGn9+VJW zz_{N4R?VTQWw}bjQ7-FO5<*5#VLE0I9K94V;U?1GQ5@s=MZ`8L;R((yC3~?bhm5aK zUqqOJG^c2Ydi2x{3nadFmRY)cu?n*`WHNJw00 z9q5_|3{#;xn{%}ob3~#OuV%_LyVZjqmxw2+Qrtw30Bobx)?JGm{f7_nk>J@489v~lR8}`1z(`605wrMa5F5Bp z$IP9f5)vLc{~~R!I_>Cm{Nd#q*1xvM2sMIH4>Nsm}!4-Y(4IQh}MJeq1bLs3Ta%WiIP-H}^t zo}inYJeiF(+fqNTvu(7d2<@N1G^T;VZmNPg;P>-I+P(@t*UwNk!eKp zbJQ@w@v0VGk($aAm?pA5;%;ve6|<=uA|kdH-5F5|n$A+*A!w4kI>9pGWs!D*XA*rG zhG)XX@skXirblKSCrO9g`$4$KN{in>;@%h`GQ#l8<4xBs?5*PiC{P6M2^gOfAT+h} zgr-8q(jq&_M-;HnMl2+zeazrk$qn8x!xUmrZRs(1g~~eu4ZERpuPF#UHJ}wYSqi|d zy3B?z-%M4G4i%Dh*y`iVQqeY(5_TkRoYe+|l!h66a7^hDn9y|OB$6v#ZJ`RA98>%x4c@VE$ zm+vkep?fuj-JHJhfe z=deS}Bi{wAZeJ%ZPi5FeL@tMap*)7q2w;h%tzh5i5K_HNQif(E_#JoNB(Rk*cM%{F zL5YDl`E<52NNQ6N(VjXZdOjnCOu!dMPcDPa%Jp6jffQMGX%pCiqH=SIf^xUrFtG+y zPUwghgfu9KQ`CnLeTTh8GtA3)lrBjd?6i}AsAuy{qpy&KB}e{Ccz|4P!} z9+}5aUS6w{H_odb1?OtSimM*oO;}FXkH%{dLBI5MXYBNTTmHH97@-A=V|{|-o^SeW)KpxlvL*_REE46 zu4AC_DY+^3<(2>o#naz~f-QZ;=?DB@G{>-@T+atXp=!$_eG`GXBH<_PogvP|%yF)+U_W^O@e5VxJv$ zr?#nXGr%^4Hs4$u#EtA@w@$ZjH}uXu-tI32syr=e7BU&)c^0MW#CWsZ6pYcub{1X` zD-d}Qt*H?bS!VH!*N^6ezz}}cf`tR*H$R2b?_rN);)gt)y0d$i^^^mbhXVY^c|qJe z#e(l5#2)Uq`K0IjG2w4u|P5@trioJt20vR`Tace8|dPzI_O3PYF!g5CaWTo%aq&>}-VUF7s<}4&*PXaam zK#&|)9?}y?hb+;u%mhWL7njV+8r;Ut@$iPL@wtnOYA$%nR`omp^wTEx^YSb>P1V50 zXvsx9aZ{BiozBHs6*48YX~<XgP%KQ_Tnactb(x34TKc36?|BUOL0Yal`gI3xX-!SUG{i>? zqt@E6;5ZHC-1W1m@9X55jmy-5b{)+%mqkHS~{@M_ue?K1QT z=_-@-krsJ$@9t*$cqblia8CPN?!Ji`rHMIlQz(D_^)p<-^hIp<*blvXx@FGEXC7w4 zW0;P*SmrydX5Qs18;ky`l_s9;6=qfZ{GsuY@*nJX%W2RV+FQ7c^~ZHo|7y6d*XN&{ zwdIq!H&0GwH1aS?@06_0=arAc&8)39Wy4npNqWu%(Y#QOa4rm^YRdr=pndVCEbLt! z?L2+N6`z}9@a@hl0RL8~h5W=8LVcR#UH>tjf)3jsf{=*$>Q1AJ-o-r=XS;=<{a*5b zchx9v+{j`S$Vc%}-lX^Z1!=ZhPK$@w^%r;hzaKThlQ8k>e;uxk9ISPy5*!uS$|d}) z0wVmC^9Y?K&a%bufdW;2YYIY$>sqDvq`bXBYmJgbn0JT0u!>M#Lv?Ad$nm`%71mRj zdWKn&9t}_172~4jvnvC$qOGi98<>=xZ}7j}suC*=bic?#MBV|dk9(uvz=!6xO`*{% z;7FqK0v9H~S@qg4XQf(#7yf?>|w8!3RXuBkUkU5F)ML$?6#&!UdhWmZ+i*z{|Sy4XOx$OK|E zk6^scv3>9Wu35t0978sLC0Qkrd0H`#^V7Z%0TLXd!$f9uUHAYHV{3h_$;Q363S=A| z4&P^Y=m4gTKg#|;2rc2$B5{4@4a?y&au3HA>&!#p9H8~)JgksYB-j$3*I31nD&~lD&>k2pN0k+;1wG{fNI}Ch zRRIEB(4WMLWuR<8C_j67FO$tpnKhAet@-M{_y#-Sb?-#n#wxnLsvhDz+#p|;=z%T! zn;8Xi?;66*p%TxuX0MSXZQeJTPgUo;Tpa7^#F7E>!8ILH@OVFX5|K@e&FU^@t6kVF z*_+GsOjZprU(BBKaK*gu5-k1~7hzb-+IgH;c2Fnbws6=CL;>_)ouztbbO*;p(FTIW z-JfA|!;FL{c>=or1qH1`D|*vznG~-9b_4~K2D=e-I5TDs?)losM?^GmEjzs9OoF1Y zm!8<_h_F*`?YuBt%xxp(a8q(;+>QI%t(j#03U;cVc$_~rQJb7FnJaV&JnkN#jfIpQ zugF+3jhIIYB*2tIgFhIGClgA54og6hD40C3$_%+aq}Mv)yYz6E|K`i`Le~89)>$o9 zU=6Bum!Q3J8Vzt5-${3C%HrxPd16^iNM`$NYmuTz2v zBEeY%`3v7$mS~`sY05^JV8oP}@S2!JaBnFNxdS2cK`Vf${DfzKkWxVNp>*pfTT85h z&rQjIrGPAsY&mptucoVk(by6)zz7moE$G7&%99+l{S6_ie90?UmJls>2H*1F$e@Z4i{x#R&pZ2IPZEWbAp@2C%K5Bu=G zlXT;+jlrMU?vJ5!51*4(q4R3&pU>P3J_ewC_}D#2??%orKX)GR={3K1?DlB=P_-cg zxruq8py1Nrup#dO=J&`SWN(FGI8G2jIJA~LGL<(k`b`a;vz=M*g6>V{+^?PXw@2VTUD9?$ zKv;e$e!yVH@`nbiXWHA0Yk%VM?WW&+wH``NLt+NIP3>cONw6)jqVVZrgk8OH>-abO z5SRB{I}w)u>?+8D63y00Ls0Dk6---8y3Apk`ODp3NLU7rbX%l{z*{Z{LD% zrheGPz1a)tSlKF|BjKI3~?23!Q{)45%@)aym)3ga)>K|WI|k3tMHc1Uwe?=6IBQH;4?&xfvU%*KZW z*u8-*if<0~pen)x6m(UaRaF~8C1jI$s>RMXb-m}sHc^do8rk^EI_QvaA_zHlvg7~= zRt-Uj4swcrB8MGQ42}Z)8O@72i}-Q(Z!2!o>zM{keb%`AeVl*u3xYLVcKWO>{!Cvl zq#c$Jat^5()gA%=FqW}5j`ED`D@@Ye`LH7vMt&6ljW_P-Svk{#{ENo%@P(=3GYt)L zposM?oGyd!^3EAP9@7mL1YpAGF`*6&9=wpS7!QG9BoGAI|30THOhos7zNO>4No+U zDe$Mo+|kLh5dVtd{>0%hmc|!x84YWs;X(I<(=ZzX&DQ^6WL*Cs0ksCjRvb>J@sY}9 zNaaKXZ{nF6ahhP`nt&BqN9@q>mH$}0Vq{F^bOtw{{b0#Tj|MN5(~qn-44es@=w=z} z1ZP`C?SN!%9ZTZ&?KJSjBfa%+OoPFk{6^;F-}kzEw4Z1<#>>sG_Vc2{F#`<%1c{gx z+;PNrN3^2U1UYD@vSdi)y6^I_pvZsTuInCnNwM2CpEK@PTnj&q3UtW0&IPO|Oq(HG@#Trhp)%A>k4ftpOrDa>oanZ4;Splwsu#7B{2W@q(mq%0{$wKVz9HPLIT-h|kd{ z8&H!r510zPSO<2b_>V~6afZJVk{7OjS6r(f;du+Nxcix%AZUfm<0+;Sq{8PpnehI# z&T?wwEolA(Dj53_H4?zKm2+4rLZ2qa>~89(sRW_t<+8?ve|aJaH)bs(g5l`|U3S>( zj>gNybwi1fxbX|mZdA`%Hj9fOxQ!oLjj|^eA@40&xXvi^+q-TGyB`qFt!9?_zIHbR z9AHN5CSFE;$gdBI*tauEs2{LHQqO|u01DD7qc1iBS;4Lj8f>Z#fd z^i{o0vBE$_hPw-zfNJ#Z=3Ul)f>_!NLU&mY2i?kW5rQzSpikNb_fy`@@&)?L?v^I< zu#B<{^KI&NkFsP%twd(lv|_S@R9@6wk6q~gr|jCPESGW_ji$87YJcKU$r7DK?Grsz z<*{5kbYI?u9N+FQ`__R#Us!oqad}G;iJKc-iHqm&1iNznk0hKYSEP~`Pb0kqb}|p| z2Gf(Lb^P+W^vsDx0Mf)zbeaz20ZVqU(KXTovOC;@+Pa>e9$XrlKxB4EW+-%6q7__e zkxQQ9yoN0p{x7&jD|dD2uUX6O^R$>9;+@t(V1APawQ5Rdu{td^AVMBb!8HY5&w-HT zqPE)J126HLyY-lpp(1r-#O6kBi+IgoPcuBxlK#Lrb_4Vg=o173-_If7JKcWFR!nJtB83@T~;hBwKKP`^}Qkg?rrGiRe9%2CxgS zeW7^N9sU4Qiicg}n*=&&G1I`nC=rIEwTL*^EwD3qwT4HDyNGhTU`?kRlx}3xcE}7v zUu6au+p30!=7!Y^-GK-t-lLtE8%}~Rm6I!uuW+rQkRG3v9Qi+bk?BPL;Gqgb?2|W# zPa@{)NBu$Cw*Xdqzs?@OSB@XhpF-sD;by0a=H;EAe7c^Z1Iso(t*-=2P$23Vjc;8t)F7lnu z6MB_W-gv^#a&31REOZNpL5_c9r1RM{IR#38!^u zVFh}ZJ`{eim5;e0%vZ7puMputct*>t=Fky8#UM{uopw;VD&w;dYN7EOa(=8G8s>%z zo$%cnp@BbAK>O@E4v>|JQq48_4B<&I^OoH2e-CZ5Bnb9NU^vPmg#jjlg;!e@uqSe# z*S~q}ML3%gFi3LQ^~#@Mr0v-CBWvfAdps2kLiCEKzB!vS#I2#d$&ID!y>t2LyX*5r zpMfb3r=E--E`&TL`m&onx`6cJSSJ~w3!taL=af4Y7}%yN0wy1j{T&AJZLI?-_>Lhn)onB*J}0&R*1Jx#b@#?8Xw$7ypB*t1ijA=+j~jN~vKs0u*LxUd*1E5_(&%a0 ze&_=jG#d#Kw7)`s2%^FRt>_Ms;(F00@qa!{_kpknEb8$d;-C3D3GfjO3)1_8L6f$S zzXbl#+k!R>EArtBrf`vS&ExLroU*DJe zmB;H9WGV;6>j{QNA}8rN=EPrD9?Royhl^FZx;PkO>WgP}3geE*?(bMaN0$GwLlh1np?j#Hj*I$g3a$w&3X zgxN4H`Nl(g0888=2gl7tbMa7`mxtkMQ9XTDoX`JzC@EN_AvRk|4&GD19~f9$lu$)^ zYU{~IdD_Pb4o~N;G(Sdp3h*lZ(`nn(V`E;oYnfCcjZQ1eAP-Iv3iK%!vz3u=cRo!) z2azl|Thd!ECqxU@6+GRV2u&*Ct<*%}ztMP~vfd9^+X?Jdo^!{4d09AvjkOu-R@6n? zUVK8(!F)sObrl`7%e}IO>IB@Lb?~{nb;i_o(K;^x?}H86Alxp zd#&X}hDkS9Fokv;{sGKpoBJTL0=!FhBwQ%|e!I4}uw-|R;v9^}tvt(`xUIl0>9&|| zw4=#juM}9XQyD-cK4ojEvQ8J^IZk2IAIoq5b-CVeYi3M};LMx(Q%2#kJbSckHaNH} z9|Fdr1$4g^tlW6e#p$XPyY=7PTzbDdE2NoX7_wSAJ1gWJ z41ysHCWZ?nks@cO$X8bsPrHdQ#H(;Yv@EI@Qpevg|J)!GL>h#(vHJuF&c;gswJiH; z`oH&RbVyaTQXHpaRb8z`9kE+}3Um2f1Tg91@n3a&eT;z(7rJY6D{Rvl?X||%4x9Lf z9Mbm7m?&SC!kI9hQXbZNn>evKZC6;e^W!c%{tmwT^Hjf-w+I%227aevnO4LjcwQq{ z*Hj!*e0kcxP!&4~?QBS{GH0iq3K^Vfbq2XWeK%kaR`#U?7*Nl-G#OO62L|0tKWOG^ zvG#Oy9O%fp`$irdobqvx3Lmt}xlJ1tZZrPApDr}yiNXps)1xYy*!EOB_9H(R9(<5_ zyf11xnTk&IoC-RORw~s2jwFzc*U`EkYC{3c6TlCyq(?_p z1wk7i)hqO<$O;Oftn#-MapvcZr;>2P!$nw$X=(qubLIDc{iwR=Q|j<;3#~-x40sxk zRG8!M1spJG%M6eB^{o=)+RR?35TMnM9MslTf7DbO*q76Vw$_K_Oy~)BLsY^Q>s;RE>k$_?@m7-a#MoE9^)I ztVx?OEWp;KP}ue9*}+Q=Eb?kW`Jf4h4^Jf}(Bx(291sx9C7FX?BK^+5P!c~qIZX-_ zI<1koI-=EgGz{ic@WB)qJh3)RIBqqF-RYEDHw)@KYG#4H>tb`Ze5aDQAd{y$2GkHA zqP#XE^|EGxugbbmAh<@aydLR(qhB~dv=BlW{` z))AhoOYQ`d{9;!F!I|cKArB!6FV0pOCPq=l!b9qxkLugh{$E+wO-7!74*1D6Pn5K` zDBXHouTi^p^!ND342}J3uOE)3`cn7GjXAWJfxUQ3t9HuoDl#6p@@cKtm!9^k&hOuZ zlBX_suXj0vSu30a-y;lw4S@1`3tZlTPAD)jtJB$#f6#e*{`|J0%VOO)ost}VK>^se z^GhX0ZZPz9G=H=-4DmGCP)XvtiRd~-u`UXkR>?KLp$0;tHQVXC%|i|c?>r72?hFFR z%fSARYI-`+M_LzA_@#On5V0$ys#sNpZO-PhO*vV@+VeGb-v0W|Pmn+Hd@!1PHHX7F zAwT)LAf2{&HPZf-Hq@nSI^fTj(||PjnmMp(gVm_z0D|gor_6{1h8YJ9u$>w0Og+(@ zLM2Sa?AyKe?u+3U58<$gn#E9MP%=dqx=gWQ%<{-z;Q<@@3H|&cU~bq+2bjLdlQxh! z8l+J}<|*0=xe=Yao+>SfY39e(HDHm@xt4iSR2N}eN}e?`)?Nk{VCksSxn3ClB4s9J zWGU-tU$lPK-izfIn9TdU+iqm;_vVq_Qsjo2R|EY*iZVbNv|dQ^jvcEupTfgPCnTPD z#x_sSw-=|M}?RfVS0jeKI=gb+DA!y!*+r-@w1A4O?RfI z98>d-in|5@JiA*7uZgB2gnbQhj3Ide=GI=OJtdugftQp63P_`k$f61d<>6@DLbR_M zZPs=JR{1Lgn`1puCt8ao zW!UV#t7*G~k*uS#6U^3@$DG&4az?`m)dUX}SGP^3k2C1zK9j`GtlfH_BC%A`?n2s?AeP8eIzJa!du{ zgs_jlV*?)=#T{GudKg-Wf?~@joG(&og~gQ>^LW1Z^z?-1af|gOuTiKc5ueS zInyrsWEB)|i(~bLmxUI>avY`rud?uF!rIr3L>nfl0A@t-wSuk{@OsZ3n#8blvlV88 zXW$H;EVGRX&#qQ^$ZXrrhSFl=M^o$*a25PH8E%vcilaQ4IbITqSR3*u01nHsL3+uJ z9&FLJQZ5blvDpbwz)+v}PggRloYAuyMv{>_;Fbn@eA+r~K|2K|$O9>Rh>52#XsEDj zj+_61wyE`^uR%L-G?5cX( zo34UL0G+DBi`|$4E<*Lm0+G1J2c*R4u62;wHh%86|2E8ZW}U-*0WemrrgdP}hGJ&vayVldwFYb5;s3k1aK`pi3IR zfQNTw+a)|4cbSs)nu8ia1c?jGFEsWY)9S1;twgBIa$WG@q=O|Ij1MDQ!^ncSf{AvO^^%WWIr_=#=L)FqH7ghX0FXe0V)YpOI;+ zC|a$4q1SFF=GOARJ?YN-+`B61n|!I1JCYbun7wt%`sbA7%} z!c5nKIO?mI3me+h6{6&3Q9ak^tk@14>_Ms92x{u{bZ*`hv_DC^QJeo^1}v(8BHU0vrvLv$chbQN4;ls-tB0f5XP@?RXiM@#Y`WpyBM<#WH0ZVl;RtA7z{KOXVCl721n(12Gf(;h!`5r8ze(#mx|} z3odk3JMY6ow-3e_^(=R6)J$f(a6CY{8h7a=6vIH>F%FP|(llb%U2vCl8T}$k_8(r2 zv+g}ua$w+s+mM%iig!(ZS}Js>G&#CCxru5#n(#)g?UmltG!l6B{$&Hd76F_?FWA`un zX&k8a%R;KM4@AZ(9SDI2oL!X7xvFlK(uzo7AoL)xSNr-+5;Op_&bAKJ_`7x90h$%c z@p89ZJ9q{>NO02wq{AC!Qb z5dFZ0D6)T#RoJ8k-LSI|BJpx!p4eEUNsqI|8+ z{Riib27FI7~&QS(OlbCD-#P>Av9o|UL7NH| zfr&LhL-my}n-CJCPvz@Q7RQL8Up6LUvP=XWb!g-OnnEHNDXxnB4zpNLBNdm z;H(9**`LgY=9?Fvl^0f92<4`PzD+hlv%1KE*)L@G7p`hlGa!JtE?h$1_1om0;@XdEf@bI*kJ z))v;ic^>rYDRvXYc)gk?-8p1u%;vm<`v5V5g60CntV8-oT2b3d5G3K>Mx<=kwe>a3 zWk)DT65&$1?P9jo9>mcb>d4-XH92EG$T$?>uJx$>5Q{`EV(YmYHUFmXhZ;aHhG9xW(15zU}L3Z)}Z6x{m9|QPG z^X!<)LjngLC=ugC>D2wGz$Cm#eSprPr0Vmjai$oNB0{R6WEW*U34Fe$xE*oJrK0Ga zY_uOCeD^f3nvc@!6sK6+tum0}t49M2$`ur$_jeEmS&wmj6wD?m1`_pp0=6lzYE<|x(DROA3f;({WzR|Z%ThiE^{{5=*)rNYm*Ih0!SuLM?;ZLg4>98R^k31wea+pCM;nt1P z7tTr;A%jjJBitbvc(7->rfy)gJb?xJ$HRWo+rj$w%&dGo{ytmsryID1qg0kgmrqm& zJv5T_I$KhnHCJ-tcM+WhE&e%ON3(3qpkVlmU8AmM?-;r z9Z(sS;tSl(tP)a4=?Fr>;vCd}z?%1C9JOs%K~~2rYEew}r}N-PbJ!E=!b$~Fzm`p?Ur+L-3QItkN}Ora3zGc;j@krMZzu6if86)y2gaOMT$ngNj)Kq zN>2DVAY%(o=#r6I2f9$MnU5LMxk)jYGf11i~Ekyg!m80L8ox&cntgg_a%U!IKvyoRao zly8I7X0uz}6{`sKN{qqq#)QqWEh^kT*N>gggv2`o?ezYHo57?~J0JsRD_A2Cl?KgP zo#s+JqWDvF4F(|hsKFS5nf0!4-2^mofHd!K|C|HAtmT@b=GXfm=1X_hJf6I5S_uh! zBOIcx?KF-yzmKpy9J2A6M@Ev`y~~NBJ6yI(+K@V`a;Y8ot8jAFWv`vMP-liO&ld3M9zlf@A*5 zCyx!)G@e(j0zQrL`NF~^2M|ZPLr1>W7xRmiyu;ull5{x2K-lVqCe|@m#3Qd9RL4iv zTGy9qOYX12NwyM^2B#WUvF^|N1?h7BAmrS4+n3ajU#sAYS?hzNt|p~;yA-vwJe4_A zA&rt|=y&jO1qmM07&%W1vmzFnirOu4?z@I5#o>;*@6S2>Ng$a&+MYQz;xi^xHf;KPPc=4HE_Xq4|hVUVja7C4p;|J3J23CzU= zQ(B)ckR9Y`hLV*U>hu}*Rwim3DgOFli(;1z10Wp<VK|iV>+5TFzMj%8?sQjT zsMjt2J7mbk55LZL_W@LWcjwM^N)pR2@pY^xj?m+o4|!K_;fI}4d3f`-+j8#Q@nkAI z=DH<(J~hP&zbPJ$k=J|lj{E(luh4d2Ao@2@a>rQ3CR#n> z>znDh0_b6=RHW)jd8PVrxsuW!MiKBA*oAT0DQEhYtaOZ5&J3R^wU{g@W|}Qp^d|x} zuRWon8o3A1D$_~`pd^xz+t)MUvmN;O8_Xt3NsO#FMrmN3w$f;hh$@qxUw=Hq`|ZQd_1EYi%C8r5o9I1(TmQDR+! zk7&x}UE5t-w=7LtK3y+D5Y2Ej_AdkjXb2J(8EC2-*W1zO<~whW*FgY&HDYnkzFAHL zK|_P*g~0jPWEerJ4mS`GGG84*$$^GIf*jJWwFPWF}H|@UAOVRh&Yt;}4jN*{bfEN#YH*nq~#B)81+4_Wh zbXvL`*w9ZOWA6h{#VBQ~3$={@CK)PWf>>lJZg!|(f|LUc-X5{82kv=Q6czpYKaK~w zRSrGD_4WfYrB3HKUs>Om3t z57cYOg;lxYJP-!uA?sV1OBLDH#rDD<5p-PKU*Ltfr^wIXks%Ved{G?yc=LfFlTg3% z&det!VRIgb7_VZd2U25yZ4fI3dc+ZZ80nh{Wp8!cOkEqG|pg>g~# zF*Q*k+#>gG+Kz>JA+wbiJll8k@VUe0J~O1Jhn#2Q?5y>WmZ>(IK;h`kg*Eq4pjvEZ z=s*AP@feG?|0KU?!sT8!Vi_d@3^miA%DNhb_}Su>Q$C8=m*c%;(b2dH0h1^d7Ug%p+IBS2)BQE4XX`Odh&YJ3_2@lJ?BXX1Xh zRBJ}QQ)-=W`F*e70-U>kK6xC8!S^xYQ#YLU|3V0E?LBuy>%9IsG7xdT<()%+spKW5^u4lBFdJs=T$yqp2BT}m5SZg zG*jtFh&UybsS3)@;Web$`VVn1`qy)j|NOK3#?z^xck=~Q1(oLE({tz%&=P7#pvL45 z9#V(UE7xF(6hs}+LP^_x4<29kSSE@n4Mv1Kue-Fna-EVmIJvL}n-2G~%wfeU7^@|A z3b!&_;G=xlaIa5KfHq~@XeQ&6X}t;gTj%-yA>Z45%b?BE<^-*UdE9(~pN7;%>-&|= z#(L9B!9`{LOV?Vcmew;xwt$KCZ!#FuI|gQ{-bB%Xgc|~ABui!WOEzmko{N4T z%s~FP$;RE-poK*7V4oR~WL%;cuz_O`e+^Ifc0Tx|b}J74?6({7N8T#ffv?cht=Jsq zs6M#XBK`~WY#~at*2riil<}6NS}8^>=ko-W%^GD%!bENcfN@;y*%)yn$c?@ekKKtL zL=D2A;i8_g=4N-`k{e_3+sM1JK-@4oD3LP_nMwiLTIdRP%afH_g4y-5bHWZ+(mi)| z$Y_Rzce^k?hQ#b-GRUTg&ngKRYI^8QKYHV_pmDFs2jA}dM-Y2L@7i0w6Yk)E`jLoJ z7Uy|fywtbOkpXmigJPi;oD+_+vdJ$x=F1fd#3iAtU2Q#LW$iLnVEJ(>iaS_YBw2&! z#0k&WbdpK1P<++jXbN(LT7g7Bs*>!e_x~`Tt~ZRH{bV7RA5Rpz9NW~i(!C(Mkz9jd z1Nk*kQ274QS>yHuc%203pqL3pU1EyF#3$fjfvcg4WK6zre&eGEgQv8Jk>C%yQRDzT zHbk#4_W0BXaT=K8ZO&NbmKxX9DU?i()OMy?V8vx)A*sMoP?|_}u?mxfky$9TA&6`8 zBU-DWv?%znA(HF~T?!#;N}ETKEa=b`xw6$SuRvY1n3WeS{~~%0y|z#Y*OQ+yP{fZz zjq;b}`Vqsxj4+#p+oU5;(QADxjw{uP((X;1!5%mYh)Wzd0Ft*qC0AsgxTWrt1rEN2 zGee0K<{ybamroxSTR{Myo+l>~Y2#X~!onH}>cyWF0Oz2baCn1arkM7lA(Kma6e{zRZL%X-M)@dZ9ChLvDZqAm&C&5&npO*`vpVpV@< z@YkPE4dL7J;G?BRxVYCAFdF%&~!o%c+4q`U)OjdI_5Yj|ovG}9i zvZCb|)3?+_RU=uW(=;)#X6R$wjQXm#`isK*L3Yi2coA|BGm!AH=H(MIoEJDrLFAEh zmq&w|v_>6`;B>RkblIf=d4Dj$EQ#Dt{;ZlBUdh#q^d3BUs$vJ^@khtG&}d+dx-RoG_Z2EhQ9io(8U5KQFWJI^<=uI}?cE zj+)Emq*w3Lj_xHf)wX$St9~_?H~UPaL|fRB@Rh{ETUYiGY=L+EwzR-vK1ZW=gE+5W ztMb8;QFQ0`k%CJZ@{%9h7B3O$E1%B5d)=tlmCLrzeRqt-jd{9IpTB!vQ1GSQlYbTa z$MJqf(nt9(I}m`PwCK6y|9z59{5d6q`Snp6kN;ekZ%p-h^I^PQJtgHb#6?HFzkN&i zq;~+o7TB5m{DM!k@w-$yy^6X0!6)~+RcYY3bkPg~KrGrRF}38q>Wb$`StW4{R+UbX zt@vQ@1-A&g%nOIY?l>s#iYjM?3BgFubK+)j&qJQ%o5F&K*%LJ|+eCIWQ zJ0S6a>!+Tia1lOp&fa+iI41n;+M_t%R);qKY3Cw+GmDWdE@MPA@Ul~e1!I*Pkl{& zf>Tn5F%$S|d$GS?|9T|`n9hDUj{z=$<&3o0$k7&3;G|dwD%pzZwHd>FMCa zSjbMErxx1JfnWOlSL*7wvy>*}uzbYUh0mXB+)jEnR#Ts#djSq3gN<@dBv>LnB%%6i zt20%~#I{c4DhE{~x?HwEq4Mso6%#5_!2%x$UnTmXkxlQVoo=;zKZ{B*MSplXS12o& zHD8Na2SX$DUx7JJ+dR^83DDo_Lpu*0On zrLG~dEwG7CxYH97a)t17i?%FeW#j^Lzh>!^TL5q!Pn!}V&?|H=`*Kp>RAH~dD|B(f zA1>(KeYvNhp8*aIg+1mW7FGW!?SDmF<{gxQu*#MHN0zgdZ05W0hM40%Ju$Tu-cX+o zdxay)T~7SN8M;@YSP*j`6r)xqTB3rxz?yH7J@-&e54K@;ZXSS9U@2^S#BA7Y1<7y& zjN4S(1Rgqw(Y`}d>hwrS4zXyPc-bT4}CqT$UvQ1G9Y5Jg_TxI}?aMuk(C%720A)oAO*iplMviL)Q`xpok)ekI& zvl+L_*2{*Ee7R`J#aL1=bWK=hmqYZHP)GLn)NZS!rrHQHCbTJMqs$#E>5;EnRk(N@ zKY9w8&OmN?#i1fesSx!lS4e8OtDtPpRLg<;@s=S@UZI1L{|c4-NtXhoAFtw8aqy*Z{)z_Q_+F0uq!V z)`PirqG%(KKm9vz-Cpp7rNeeA6U#1vCR;sYsCMJ@f<8IarOU}AEz%Yo0k%rF6aACYd1WZa`Gq+(*YDF&!Y{oet zP>QZN%VB|2*3G;*Q0>lz@{aW+YmHDtXq10ln@lHDKOUi$iiPA>A$S}7tH{KMRu@wN zC*u{>71u~w1O{t=`x9V~qhDwJxay1*cINsO@fx=xl8C#b1n#N!F`6#lM7=GAn2T^q{-FthuvI#vYDWY4Mf`Q-^!9XZ!`_?J4%saG%(t7EK zB%AX`-BqxW1;IT$VYKolNS~!lKtrc zFBr3_Sg)?7igZuX>l_LMooQPt4PO8>#ZTD0J&iWI-rhMIpU&oMUE{TAfY{=Cy(GG* zYRE>bU~40urze(RQrDCU1mpj9gmD~hHq`DTzhP~H5!@_sX)W7Ps<@=ltE>JFQnRf$ zr=;)c3{~6INeyZ;^HYtZ-BHvQlgH!$^1rz^&W^UalYs6df=0n1F(?ZN8+Wx%Z-*qq zJ;_kp0&B@i@p%_o9g4%aK6*fl#~@&x=>PaziWpD^YN`ls@7m=*C?9oiS$LoP!y8;F z%w_&5wakk<*3S{o$-IV*;>2<-^B_?6#Fwc47OZz&*4{+>nS958R%1Q zEx`sSXW+2xLBck^$t3D&&PDp9JU(1S44vXU;jXGK?Nk>S;lfQs7re$w$=ugqA`+zA z%d9>Jp;6{_KZU2;k0EdGQNzeJ1J;@>emcq06tMDsfM^)0+8tR`AaZm+CIlIK1;>uv zM=gbDaA@#qmq7>HjD^-)>&>APg91e5%%TP{X@q@pSZI~}64`*5Bp7aM-ot7F$?&4z z)=0=e&$G(;scO%aMWJkGu3M03ht)$QlPYuy@+$c8yMo5Hv8P~2GQSvrxk8NS#c!dC z7W@t)hG)%gV8l5GmkJP$-?J(e#L*O18Bf3>QS5| zomNJJVa$Eo?OwE>Ee9U^w3bn)TyjNNqr^4~vhBb@BW};{T?v>qSDLQzG958|iq zR=u1XH+~W6Rzf*3s|dOT>T||U-Y*!l=F(OF;C;!-Fp4T(ilGw-d>Oh0lSnD^xNK@O zrQ*&EPGv!zO76ttzhJyt9|}`Ta#jx?5MiqQ&mH@mYHnT#f6Pa_+T|AJ>_;%;xvtZ* z3;bGzGOPt}2gU%;C;WEQOn5x79fBZh9lne*Tvd1~7BokyvZ+f&0|-*LusXftZZVS+ zs0fhddE}ikH82#gDJ?HnD55c^^zqo>8d)vinKoUbBD55(v)|~p#Oe0=m#_uZpgqaH z>pGXn+l@3Fe-fAOsCwxkXFP`*2fH>M^TJg#(b{(W^6oH*jPpa=h^lG>{)%>iFssNS zPR3M-ejl562by4GDdo_Df?k?Wp;RAx;&4RV}+p-eP~gjO#%^fiI?Q|TI&&0&Iw&Htp^0`C~{u<7aJ znaQ<*b4xKA{tlUFp8NyH78#kLfKM{gt|+@E&ymlBOtYwtQTPVA7T0~Ooyvnq6EJrv zslv_7xFYDA@<4L}JqLy%6_Fy)ZenPX+n;%&J=x?=hZX(wD=Rdm7UX#M1nm_K1DYX~ z%>>&$%$?4c{t8=_^uB;C{z>meL?A*{_lT8J!<+NA0)2F!(kyq8vye}u>U;l{cu09$ zkqg;C9{Mx&cjh1;h3!-h#tpvd=HL89!g3+LcF;|6p0`Hb>8jrG z!@(P=Hsr&C-U$1yTvh?T@gq-W;T45E|6d)vmgRmGQ(Z!)>6A*B_hhP9_dqF|_3HVQ zLWd7z%2y920~q$NkDlk`p9J}BZn)pyOA;#Dvn$jqz$*3%zRlj<{GAB6!B6G$)?-TW z&}Nd33?1NG~)Ff44+PG+HW@{ZXVB^!iS1iWoWL&LiX$+ zL?d3j`Z#I83}Mf1!+Im25(Dw@iG*F6Uo1#OM;GELg-gs{;b8h`sB#4SPd^QYz?7Zw z0)am2+TCc+LB4uzbd2u8bTxpZXh71P4~8dvAO|x9g#66Gb}1=Oj>NJ%g(D%e={z9r zzOvTPl87=G@CK_QuIqbHx~y|~LF8jxK`a+jgZl%4EKVA9E&w#j+HO~=;-|`l|E9=_ za4{t{qhL* z+mQzyv4Wr{?U=F9-$gnVcNsitXJ7URy9%lk@W4(Vp;9;I>;?FYPSZTRhP@#GLe@EP z*UX>63h@a%z`pxu$ahfTnE+`pl?#~D_fWbriRvJcsr=Hf#|Wu7e?}md=s)u^X9mYo zGdy@H{$ppzBD*6XOG8R0SH*^;YVA_TMG*dD3aL{QHt^V$A#y};5BQt|ip`)k`=QB? zr)#v%#+8HSa_ZSRuzPYQ;|w0jtV~1-kpC7uSXi1xiC)1UVx|Kti%B>SQy0_Rn`IHd zSN^F-vjXGPAcPXDIDIcR_aFO7>qVFe#y4-o6E9;Ey0yBxdZWOMbn@Z;JbILUe$D55 z1cA}JR+h_=MDN!rLi*UcwDlQfL%K<6kjF;W2mSb_St#mynuh%L zWzvtCwa98+q4+VjQUC8v??1RmeX;PXp`Ot60xCH{Rb_1Ymy^b_Dx zcG(YwRC9-RMqDQO1Dj}WJ-@1u_47pU#dC@M^J>~kolt2d zBr*xU1OnsVr1Q^D;LFh;v$lWn&q}Bfr{W8}EKA6Jfw-6`7H(})!ns0g#DB~3t4QE; z!!7iKwDU##J3Ncpc$DxiOsri5ukWEc9(UDY#wQ1~MQ4JEsps5xMz{GjA^gng<9G1} z8)_2_5HtZoX+!5BehV*4*gm=gFcE7r&px6x64IGyG^hy(j}u7L_Tf3U;uITmyM;E> z2`>q#j>XNkiHuzr!qP^s;Bd*97TOsyTf>46_SrZn`a zjuNa6C-CZxu1H2l#mWt;jC=*F+ED*i366rdI3O%Bnks118gXO2AgnM7?mr5zScCZh z(6oBB=NA}pSgk%ftJ*NQlaAf?&$(;Isqn^3?A7!A7YDmBJ^8-{~>6`3NJ$L7rJbYsHnuD z$>sueEE$K^7WYdqJWO((a6&YCMhVs6fQi8Z=RZ?}fALp8yw1VJ6HCEMuH5*Pm(60I zAwIE3^I+hKEAhZU5>xnULW2h_H6QSfK1WL?t2&rlXs|9Ps@K4pcN4|ib=h$h)2C}K zT|8|{-y1p(28QJwgu|@E#k~TZ!tgf_xjd>3afX5&E>%&9{=r-KGIR=rion1J@*82A z#(%CYY8fET4{mK&!5obQ@;^Zb>(Onn#-x7PWGkIiiD|K{endDoG#H`GWd7)COT1W} z#HCm+F{7=>!Ka%kJum)I33{uL5{twB-?-@^(nnrp3O$UQE6)-*e~sDgp${+9SNCf5cXregtb`=vJL)(P2Ooj<6Z&Zhe&Mnc?PIE*|L++H2urR z05uBR9;s}P#WN|$z+8e`ff4}Pt;0r7=t(5DLjKD#zdfL&YqgG7yoOI)0n_Wa5>llP zX?Ltpb8@#Q>e%V4)=CHvVyHDY-Tvn7dTkGTlo9_q@%FKG_vy=jGrOx>R!175r)|Uf zHjU^r!@~~JtIkK_Le7Vm(^*bPTu`nVti`@GE+HcJfI;NfCRZg8;f~D7(+5PC>!n#) zL#k!IJOox*(JftFO;;7+^s6CEY}fe{O!}kWh-=>MdMVV=G%`qZQ*C#zlF)d$IFZ3+ zoqII+6^#hLB|&~iOgog~;Z$gA;Nd529}Z8Qb`QlUU>S$`4KEl(CSd{N;S^;=mpDc) zn2QIAIyoZ0M~x3yM3KgPb0BDz+2YeIFfN&!p(M=*%Us5#*L5b|L3jNmQ!eBsSqyDF zJ2Uk&;8GY*-`d3d7t}JECD&y8NJkHb_seoNs*s>FMz0-?UA~09-+Qv-uLV`HUI>t> zOfdKBijX(K#V{@lYDIUUC-&KRw1I(m!gD?Gd}|Ql1O!U{*gV3?CW)wb%{dWJ%Cy*x za8(UWb$M{3=U@8j!0OfuoiO2ESBQ2-xBMVc?GNF45as6B+C~Tz+i)>m3la6rC0};3 z_um-(NNaYab=1lhz#u8$eFHePMcRS_I{5g+iR| zL8a{W?^)=y#o>JM`lzJh;rP1l9|a=ebOzrSN8g|(p>rGmuU-u+;(b}(T(N34{2dA%Ge0^*XHwG<##If01+ZKoYZgKZT;Gi@r>z*kb`1s}86|=Y<)OXXjG4Q(g?d%Zx z^KXA$JdS*S2r#^3?&{^F(|F11PS_FjH@npy;@z2x=S7J*_oTcE|6OYjNQb;dFB*+U zu-E~417iBR4#m<6L=pv&GIW}@S|4fHnh$_y;|qh;YJ?=e-^ajf%=z*m3tb*Wb~GqDn;;=_Kh&_+_zE z_7Vr;n@%4E{g)B|a4cZCQw){@PRsVVwp8UnXabM4WKg1jEhQc@=LJnROi3^?BL}m< zGC9h$IuMa^$aV2Q#RcIi`3q&k1spsO97POzKN<}40T#iAP|76agaReZ-vfEu1E+?v z5iGjd{lyzm@heunKp0K38RV(H&TCtPootk97mA1rFtSx|Pu8P2oYQPicFLLPR&SJG zaq+H5$#hs$!)!>Da-x=f#UTLK>)7s78SzH78QOp?t{mkcA}(6)xzCIO2`v#E!W zi&gzHqDvC^)V7e8INVVAsN-IEAx}#DO4%uY65rT}*>F*8uhwui!(Uu;eus8J`H2vP z(>H;mU#xW{q7q~BnO(=`1nk?Q;{->!{EiLLXm9*u~~@J(4U!l@F8AwRuj^n zeJpqCwRVJK&SA z31k`bhxPRXyxUvA1)Szguv;@q5aSD>U(vX=Lunf9LAYaHz#8TVUQaK4t#&Ee1O&#W zUcHPp(vE^h@$6SGyvt(K7Y_*G`Y>KSzH`n%XZwck#!z_j^=8}DW!w*(2}F|T7rnef z7U~$v&H!U}gxnb(U#XicUkCY}-w1UF4;Nz!KBJdooA&lG>qC*hGY99wz|ze0ywKB3 z)B9lKiR)PDH<^*k!0v>G^f$33mgZb~fQET2WC5Bh_ApO^soC|McbGpU{1Z{S{ zF%f!eqv?!vaEQ06u!)kt63xm_#)L?M28)KK+92allE&^I0q)$L|t+~PW zpiS7U_`U0gQ~GX+LJcL|qDL%^;H#r-hGN4eleYS`&8yEpopfeaF{{AjRS_{Iz`Y8@ z@V8;20XKk|P;!$WQqy)SAvgEQmFw!1fFA2u%9ph%fh&VfjeanVpm4EBz&m5R7Rc=5 zqw3Fpa*Vt-P}Oh$Ovh%?uxnWJMWZ$b!(kLXwW^ot7E@esP(@M|DB#;fafKxhvHAolPfLu+} zY*YfIV{)XyUkYkvUnfQ2h|aoQ=Xrl~5qFWGi|?9IjHMJ3`1XlkGZ+s?3=+_4vM0{P zn>qklBseWHC%yL~xE|O33L(ag7Hm%s(2!m8r|6ylX44u7C$(PMay{~iU>%sNi82t> zG`GtZ)?5yHsGDOYvH6AI40LhZTA>LdqA~5_aHZ!#%BY4;_NT9Vp2KeQ5s>o)c;Cox zrG!A)lMgKgk9b+|kn-cHU%~?5w*B^uAnBv#C^xh4$rZo-{QPsKZt=&lNQ)9dZ(gQF z%Q9U8;e;;3p~LZOlk4R->YNsf+`b6=DAZ!ipR{)b+F1LWbh z7ch)%&4V@=T8Oe|?mrge@_jg!n5&gTtVu<^%{HhHEXC4HuXrYwBLP&Jfk&En#lJdM zYwU;;nw4?PJa$QqwoM6LJercnR`-8H;2Q{-CJEXcUX8@Y30|Xe^4H3VuGKTy0aeM; z{Hbkpj@A)wL*2|kmW#{v9`uerDW7Ll0c5uh&wYH5EJOeqW{Izk4LexNMSu7V$cJH${ z@0YGTBpg&Cpq2>)+6f2l3D}~BNK>*)>PBTnl4pZ<4K)FzStzDcRs?BD+jOkS9LCr` z(!AN#*gxv=%Eb?+R|MG>{t|%8N4lN_H?1{=J(QAp+pSgc%tUP2Ji+GZ2EMx(X z%WC56XReKjp=;V`{1YSB-E->4yzc+f7&)X~ag1E0&I)vEj9luw1K8J7KYcu6ct(tz zys&_9qXQzu6hEGoVjC_(V1qQ#thOa2TrFj6*23g0*|}-|w`i-9F(6d0`t3}E~n0%*DKaemB(XBfJ z?V&3>(C)i9PYtwFIFwRhKWx{g+h3pbTWzTt&V35XpQcYnZ~O*9dC>lw2IWEfrw8SS z^N{?V)A%U_PCr5UN9Uv-8BeEO84DUCU@9ZAV@oJSQIN?NInv+PTrzw)utD%tpG$?w zcZ%u`BY+)|)Hs$0+X8zC=^D`M(4<6Jo0S?ODc*xNokaJ4Uifn*N_xj-hImONz5r7R zJ^tiXzctvId4Zjf-+GwUw)#B;-cG8KqEk?mh^eft2Ia;l0N_h>M&A>f7|sb61{)&gJVe zWMsa$l<^Ky?jey`O!ZVkl#0AC0|~6l?qBs*48f>1<{HzsP|N#~4t<;aE%;3R zZu$fCcb4;IoKlyxXrDD}pW*d%8^~dQDnKl#hn->1j#Cg$?VfO(R`jVtZ6vx?>eN+_oJ zw2tF+a=YSl)LcTqhaxp6jRV-bdK7*X-=C-W=F=nbZ5-FV8&Vp@Fpi0W;AuD}3W7Fv zn6w@ftx2_2%zFxjN$W9DJ4`Ctg5aqgCKYY((zJ+wA}noq00O!i6SYH~wU}r<0nm$y z<^hpVJthhkJ&uVgJ1HC!H6x&Kb-1C>^qauCiA6xMN!K0}<$=xCpy<-8UZU0=1D%;l zi!ep~${3!LbxRwAq7N((6a~al`^U+5@+okIMS`NvRo9f`sW6)%Zy^2AtxxcYaArW? zi?`e4%mtL{cE4o${H>eY+aGmoqa&L9gb&Af0$~VbJ?aaP|B39+b*>>@ak@w{*JSdx zj!<^2gt}(=5pwUht~iz?jU5ONsLgF%c|gc%R5#j@6wwykmCtl4O4lv4Oz^l%Zp z_ttIenM|E=xQGi)6KXs6>P7(J!$mIoodJXn7hyg_-s+*C@{o^*Q1=fP$!WGnA1<<` zR$oTJ0UMDD6A;fK{LEFxccZLv7N&|-4F?mE3 z2=W6zuoAP5qH7-hQPeQDrXy1ZmgV5lCy!l^F=L5Go23c)Y0vOH-i`~fQ6>qE1 z7$n+y`$QEa3@~uxG+B^nYu^Y~YO_;%NwL^*eI)2UF%}y!Mxr6n!W0V89Aq*lS-nR| zDfaZ*HeNM{%5TSoDneDxyI-i9DZ!)pCaonavuj!`NVLr>5mY1^h0{}fG878yY(bs1 zJt`Rmdv>y~TIXUinrE*`yM(lj18lOcnx3iVM8okMfIi6b0iXl}zsa+o`M}AT2KU(k zRK!CPn$PxS;Hn9PRnrV8*^1vN(}qaL`$Xqoa1`thzd%mD-#=H;lrZsI;$H!2ub&-AyJ5SuU-p)3fVkp zjz+p$01|E0jRdF-5&`0M4%|v0q9?U!*47A{C)gZC8XN;aHgDuY1#;IT%?{fNf0W@5>@jA zDs^NMHrD5&l31FgD6Bv$eCJiavw})qKayP0;F4y;5J32#ntTk3!!Hw)ev=Ez(5 z_29wZEGD3!qHXNJaqF=1QFf{ai8#h6wY>)wb0eX7UNLA~^gDBO`W&NcaZ>zQTIvkS zFT*qc6w1F?CJhoym*=JC@_5)#5h&1Q>WHV^4YTe+0>e&V8WEmw1g2&cE8GnQLr+yf zVzL9576gRC{7Zr`?-S#jl=CVg3Qb9CBBEe>x%Gf9xDf;ya5TaWJphMReD7&g-)nmn zT^YIY+z(~`bVkyY%Z68I^S-Y`-J!|<_p9s9U|fUscNuaDYBB^5v;K0&*bHFToN;6J zzCBD7pcz9hfo$H`XrpfdZ02xRL3{gt-E`6Y;tAhAdr)qtPpUSxMi^_{Hic6miCZ4k zo>G97xr7#SHQ`M~q6x>HDVVF+KpJ05bm=oX_YTT;*)uv0fLvmE85#sA3&O-m(Pg3R zN$KPxX28}An0PJD<<(faXq~ETpY?H570t`vJK4&@%yaLczhknwsmOoNWSd{-(`SX{ z)3C2pq85jnD@iU)L1f6nZSYJpPiTcRME}E z$tSS=Afu%kS_nn=wdzp9C(%pn4C92gGxux zSq7pLV!4UHz^dBS$h&&8GS!qCBb>HQwUj!gPUW;mX?%X-AIe*ypc_YplmR``Dn8Dc zxcY68cPVWUqQsA2>IXSfA;gVyg~oD+MB6~35S4pMVu?aZ;fe2+SwVF0cA_$RbRPx^ zCHs)bC`3$12$Rhbxq=q|h!&W8D>8&+bN>WEqqzzdR_{(R*xw#Rj89hrB27brogF}S#joD9d}92A4G!sSh05e%x?#i z26STy0!d&vd3xN&K?xK#4*1w$oxk4T0m_1%|8Q+Y^SPq;%%B zFizD&eJWAoCMXnswzd2g|;MxJy4Vi_iNC^rKO8Yr%mhlA;uim9B$ zbK&etl)R)R%q(zyry#~@J+;zSN@POVQ!8!RxmMo(@S-gsdMaa11^ZuyO8z~uV}*+2cfqC!Dk-|v|c`k zZ2svS&^h^B==aXKPom?kd|LG#=2px zE%nr^7#rB+l~(!n38s32a>qzWjGS%LlXl}w=MI?pc*aOGzXAab9*ZG)QAhWp?{mX? zObaZpu3AyaCjAbykQ_6v&9nLbnfSnJ?M+ko$OWfg8bLnd7wUrOJ&GU5S#6u?-s$kp{+Vq8LoYDI)HHutc( z6PzP6-uHmfzS7#ZRL=KLVpvEY$wBEvPWkAIHc$%&`|&;CB#~m1Z2_y3Ed1m^89}@# zL5{IvF#K3$H2@i+bhb)=M-oa=8IwDO{R}j+N9{rSQO8sqyJWuvnup|;o#tJh2eq7b zI4vINx&hdj^xObo#BMO$5xoP#=nIsp!+vyg#nk3a?QPO}&DO zlZMv0M6U&yrAvawNkKjAgjG8}0K#Xi&T^Ez`r*Z5jqUN?7i0)~AEsAvM3{R%|l=JsnI~gf80Y7 zv~yiyj=-i3zAzd%PoG16+Ha%77qy8*q4-lz0uccO$qBf1U>-Lp?-7^OHP6LadqkNsP=YO7gJ$>ldEg{wa;~R8#$>TSGT`eIBtPq1Ly7$|hxTo$(R zhA?r=u9lFntAPQo)M(L`6+BR*4yL>qDp^D33QNeaXVi>*;0*+L8&Crbo35TTjS>=FJGHOA=l7#gVR}C93c1>c6)%!Bt0-e(KJW359FIAI33YF%xBsk!d+V=C6B zik8b~mgBJBs0SXC?aUWTmRq>s7@O6Zv;S}`&y->^|coNf~ z6>KuGYL=@^C3}w8Tl#FFth?%eKqlN>j9Fs<-x4myJOoBzth@@;0NSfSFPNZTD1E>Y zto9YW8&j3FlB#wm2=`&orhQH9fgzCtXPCeQJp8wEB>c*()yyA1Xoe_Y3i2=nTnfoO zMi~+IbX+FVFLhkZ14IiT`als0auTcGrvQzD=3a={X?2N~As30<8yJpwZoxQ1-FxiH zdW!-7luAjRr1$FTnktjw0Z&X1C0Ch%DVzKCC9BP&6&`mMh@2+WZ{B(98N#-pw2fS-Gs;6MX@un#(C91_%x$-mwETdf zDkh#?9+E?aAu#~U8)3>ekwp5Y>X1<)U1=iO+*ex4x|PlS>X1e#GZgitKnNqrslKm6 zosp~zeh!gJqSXfh%Wm` zHdThh*skULI$rL_SFNw}Wk;n=y=4CUpFNRk-ux6IWxVXSEkxQsMCTJWAzW*@ zmci9sp`s?yFCuj1>hxqH6m2C+z8h4um675r0x9Iri4TbdxAz3qi?*?tqnikTRzsXqM{>VpQycdeYq~!4-VV?39XjDs@MUEHY>?+^>tWwmr z&sC89P?rr_r^vuj2eZJ*ry*CULzQn1On0ji14uVelm@OB141|;f+qrr_g_rtwRo9T zzx8FdprQjo#1~L&2^XgENwe=;T-@Y^@fQlXjA(Q~r zS($KYdf1SdsdkVbi*I*5n@HDOnsQ*GClXszE3W$L8$jI`?Y|xS zA?y8vj(Nl%hI+XW#wr*@INF*6YsPVWDBh+|MaFd;2qg99qKyT%s#~&GdPBQt(blP|<<+-{w7ihi0}Y69kH^%&NA=S>+C#nRnSH zey7atOuK@XHGtKU84HfFTBflC940#roJ*ZHTG*}_osvQ4L4jF)L-LO zM7>q5aRpyrs+uzU4=RG+9g!`k?6N2(t(83cLzuLc@~w|A1{J_4kTtFozfP?_-ag`NAT5{Ks$X4 zJMO?H2BTE81-na_xKx&W@x8UJ!+FZ5XJlEBUZybK(_7~o0i{_X)$)yAYyy*Nir~?f z{tiyO@^kAhK}BPUf~8E=!T>-FsE@`{+!X>E>dM3wTUwA6*EmuLlvzWuA4CyP7~WL* z%~r%yO*B}y9@iwD;GduNeU3rAFv@ELL*StfZO^DPP_rop3J2^M2YlV#K53^Doi0c46=%9P(Yn{64$L$6bZ}D>gi2Y zFjn>LV&g`JWfBcOM|nzL&QbexWezP1YMb)$ICuf?tqx(bk6WI4*^}-O%$*2u>tsZn zv}jcK%VUNj#3~}tiC{7+IlVKR&(W}5AX~zgK3LSaG%d7QnWw7l*t&vi7Cv*{(6~Fr zNR8J|iqZ49pOFilIhNc%&t;6A@JlOji#Q6ocZJfp)Uu0U#L^_%)CM zDa>(?D^YR?hp#IE6&#F-@jGtYC+~h|GxmpW{&VQ&(=z!%?}d&?hnSUzIe7*e&P^Nlk(xH}~-&F(xc+RIhJJcSuBPINibB;4Opy zg=F^5Tg{L#j_+-&8@y$X0sq`u+JVe5Ae~?!(hg)4`1xrEnk+S~(^jK2Gb~5$^s-qG z4rN~ggv2W`dtM{{LaVXV(w&yxI3BKGIuijeiyl{*)x;}+`)3| z973M9Q5tjv0tykc2BU!Fye;X9*5%%+1gcsLGxLlSbOsay*pCBt?eOhA>BZ7EAco9h zCM^X8b$^pZxrmFh2$v!>aKC1on;0f#Is5s9fVW^Tn~<|u8|8OPQ1=+?Rz8tsUnAuH zhQ?+nN!sY`Q8N?m2}FCQ>bt0J!p)aYw`vvl=FI4Qd$|?Mx!Y0)FgF7 z$gAzD>2SaaEyQI)S8dmX&pgUzNP=p|(o37D0-^n?m1F6pUy8leJVv!+>Gf?I0ngO$ zh7jwT~$bZ3KH?oUk_yP&*P)^ z>2s7`m_z_dFU;ElrI)1FcU5{)e77jQgt|&EK?f;435Jzk0v)B75MSw;$dA(d>y%zD zmO8En)5Y!ulKoK3E5#wiQh)>{J=4sAZnxv_7qll+)=!?@lPQb0f!#&vb2DXYRRfby zIi|+nw5S1*keD&~MnI6K*@iP^wZt+Jm^|PjgO=;){`4R~t$7OvLqLw<6copE*v zur>y%xrObUmRH|9(26a{#st$YkSXiLi@HFjEW!@VlvPu{Ys!>uNOe_`k~T)m4$G7s zaEA`FcdO&!bjKB&^z3p4b!`msp#b8=B7408 zNb{L4#Qj9lZXt(qY_r!(mb8E4LY)z%%@Io*>dNSFT2L;;qr+|(89)Pk=Rw;~_NMkO zel{iw#zOnag=XzZlFlw@QF-9T%_^_PzyYK5?ImWZVygoNbRsdHVu6HsG0|3`z<2~u zv8X+d3K!<8+$go3P!-J-0;xt27-r-b$< z9i+5zw8Lq-pq;xvQX>Q%P5KIdF;AoaEVRR2B)=gr1{Et&r;T!zF$2{MZ+t9H4=Pr% z-*$znYMq@M(`P71v`uzLHVJGEnYYa-DB@>B^|p2~Fwxel8iv+jn>)I`p3dvKe3HWsMo#qU~u^H`+6I8u5U6lP5PZ{1?^Vpy772ndKnaD1_vv^SYy#Pp>_&7Y09T7Gs`7~ zBn`y;``0yR<#apV2hap z#heF50)z_LF4@TnR0!ulyQA0I6F3p^HPxs4;o+$Z2M~AVTK12uj}*JxqeJ-_jzi0SNE%aB3`cWm$t>u4hWz-u) zi067Cj+wapbV?@>_H_u@s8qAT2P`U_(g|cnO8uZJa$3-WuSpt^oj@qYcW;4g1a3-5 z0djqbq(tnGeNOLvKiqe0Jm*OIM&Ua^$3TfCAc3&H0-DW(gk91UeZV%2btFB2_83?* z@CG4mFRe$a8kBBZS8G0dQ~osOYNG2SU;TI1xC)pgWW{@s;BhRZh`v@L&K7pjtK+OP zyHh;~w+#o$S|-;ypWe9aJrPL;5r0b6!Y;q$O(*-h+|joTnE`iKA&mf6l{qxXeq}NZ z@N1l#28WSj!$nziUH|hs~juT77;~; z^eayKVyV60qg!V-J6>(wS&dOSah32Q@9X?=DixzzARza_Ec=rJMb`49S4UzHrzufz zjX+H+a*z2U!EO5o)Yx2(AZ{Z0BUnkoajVjV>c!q(Jemn83NZmPYUidp(2h z5sk8TOqK%yNHF|dO*Q`D1UckB{U9nEMLG+y1hW828HYCXIiVzaeTlW^5c?KQJbe_) zN{kZ!mXz$cj^JB3D3$MZ19|Qe?^}KlMIZQUv#`&at;?v5vTeuLZj1ANi46~jPL;+8 zVz``57?R!B!VSx=8AJgIaC!s-*7q+n1J>c7^Pp{P5IB~GY)jyHnDujY;@A~MlL-dV zq?u~+G=cb5J(%SNq}WUx9@acw6exi7R@bVE?jpfJ_#Ca1__39(EuOxMzyLkcDn90q z*BOQnUAre&hvF$Z>dGc#fQ>f+16P}_706{;1-CIUFHn@p@T3_eOc4v~1QY9WM(qyd#E{hrxjABt$5nm16 zGxvE>F1z+~p=i}lh3My%Yn|Us;P=_Qe7Y_luR9-KuGL$x^_2|-1tOI;}=xaAR`$ zEW&m(a&8Dae@ky(Nv=%^1Og5TVUL7h#K`y%2b1sQ=W{5`ZjQVLg>}DRxGnlawx@C$ z16U+d+aBnRQMsGq(>S&r2+o%Db&KNvELb|6_QzU(s_TDQb^Vzg#WH`c&eKyOPucU27TP5y2NQ}DeAXC+6 zR_f4$YAf1AV3a0;l0@&*C} zQ)+;GgAfYcbM_##FNGSmssutBq7&>O30ZLyaAVkhOvJ%+x2jy`&nI1ej$?O(wk^n& zXAl+XO&-7O6k#w%y15K`+^@H3f#}q_Wb*WMOu-m*;oGSaq%H2>hLEY}>tz!QJ0LL^ z4uwov&Wg$#hR{<(rjoZgu4uW+78K5??K*A>nWn+4g-kutEJHFlT29o~h-oC=DKEN8 z&GJJdrhGX9B1IY4*ye^-NF<2bZ7Eq^jH+r(!60f|z*J!^0aJi=zhG!|W65%4-BB%I z+Ti(xyupa)SM|iBj{GKr!6hNu35>9vV;c?KzVfXN3V*r(`t)H-9#SoYq6VQcL})b8 zA~x2$QyHYdM)Y*IGDv};Py)G?K^Qioqc?GBkg2zzuB;X!k2S*Q-7fIC?6lkrUchTR z6-3IO0LK^l6+}ug0m^$(U|(Q{^N?lCsURYo4}ev2veVn>!YaGvyCpHl!nL-cNs)Ao zW-lTls9Ew1`8@r@IT+eUw|FcH;%LE?@B%@itqSqL$jt=Uk)w`oOVB7ipN6B`RL*ew z(QN?Yl4{4#@>4QO8OJXy?>lbC^wHT^2jLjn9VU z@1cT}&`t95$MXlgAhD}|4CBp_BUE0C0QIny)UGGhq zz1^qx{5iEJ$^iU(u;Oj>>e9cQXNsWhn zND#^ofT9GPkcx_efwF>Gy696*x?gNl9NV+P#sgtYqae+bFxFPC#Va5oi;eFZW6K3E zA>M`eZg?v|_mG-2b@4tTaJ1o|=fVnnYA->9eFzBVmZe}|(HKvKWJM#prIig@kIO`D zso|@GKG-Po%r0!7#d4==**l)@AAyky>UYAUj##u197B|#tN|FrbU$0!58cn8^K3!I zJF}GyKn`X5BAF{AFn~Zr2cDdCfua%2>F^RBG+zkHs1*jEM8Oi~5Mrm1Rp4vi1l})N zb>W`0Bq1P0doP1%uY33*@zIxIU9tVs{5Ez`it z?V{O{V14Vkix7Fy9h@Dh!d?L4b~(_gLFy$PjX?>h-^yP<008`4{BApjoM&a?R;1G#P z^FHLCBAfFZ3-zfQ|GkGuV3F=k>BlPzA*32V?GTA!njX&PZDwE2duDc1Jj7IEt85F; zxU6RF=7CoZ4Pgt9+!G^Efy+-9P;IXv;Bun(_-vlx)2KgV(2KP1S?fU?8z3x+gF?V6 zG0me=bQUjre+5x*Sf^iOBco7Y?de81y4LsNcQ_=?P~n>78)XR>GLKPJ)D_jv1)nF_ zJPTmusSv1}Dd(^ML$jR8oyd0fKjQ?R-X?1<=|s|L`Ru^y4?aZ#up;$SB!&@ybFaQd zg9HzjkkIFZYCc6GKjSx?A~7vCNTEXZSQg?R)M0M2BHuEY^@XQM4DZ_bPAu&=Iq#Q9 za1!ubZMVYr&hlT^Sr1E9P^s8~)Q?D|14H!wwMA=qWB$DfuvJXsI>xgmuuLu+80|8C zf!R6h7ztpNrk9zaByvn&>u8p7QN0yA*IYA{^-`AkHt_30(=++i3;h<`&SLV zJhEU;HIpLsUX%Pd_oey zNnS!)x1|~iCOd(JlLlBp-KO&+P{I_&tB5oN{E#Pz1OfqxU|<^qem+(RIJFd_SeuhD zPwT6;1B+cbr@18!96yFylxmtRn)ivkQ% zVLv>1SKDyuIs5UWO8fp#P^Fg>PkP#O=)cEv_*c@n^|ZeCU(&xAaYwQgfizxja{pnJLjyV=a|-j zr8wBM-V;8>rZup^4>zqni@9c61B)4()&V=3o)L-tD${y-1Y38T);`}sa5%{rAn3k)rZuj0|?Eav%P9s0P5^q`t&lZers@S^9(uxIO3IKn>nhyaBaiF^b2h( zBLoDz^;9}AWWA0_@BBCeyPW~2*Z%FFU&iiVUi$98UWU~2Uq7>gy8n3@@hZUYgTNIvDQgMYRL01KGg(pFz@FZd=JZUCqr|D>gC!?l63h!$a-q^D^ z!1Oww4#|&c(0pBV#~+6<2Vt|LU`Wk@p2f_i>c${@7d5dhn5fu=SMv`*UAei(-UUR} zLy}q9T**}w*rXY80|Xm`Y)E(`kurd|gdkv#JV?x#Jj4J>v#pph5)D%)a`NgKu92>} z4j?ydOiAUguCBT-2tfQp6$&j21$9rU1E@$~3J}BjR>jwn$>E|Kd@{I@Vk#A;XqQG4&2| z@5zsb*{ezSxe$L_g~sYgiMC!eWdZ^aI%fb<#trXb@(m*eeY6GpsKJhDRP_#2#pBR4 zDQNCd+qqXa+9j!q?`1b;XdNx6_}=8M0Vpep@@#H}W_92}+)E_wCUWQ@Ys2cTmiZKcx@tl_fUvp* zdNr&r16*IJ^MF0@_5$o02q}}MD+^#t9YS9IPgho2wQmG&C1*q^>Q?f$F-lE2RE0EQ z;@z$1&b5U?D-h7Bq*W;Ca5t4|RfW5CK|+o2mTWrdIQfdKl~vg?ay4m$&k5u=nn-Ep zq!+6r$9a9=M%xjzyuJu@U&m8Yb$1c`hQJDR(f!UPe+07HK9;8k73i7akSWvOH(}dbilXWA9xb>w_{uwqTzBf|eu-w9x2Sn~vav`g&N)*GnW0f22 z3WbGU@=F=k+D?Qj*yD5F3K(`Ow{K%EjMO3+o-_b5z8 zK8b{tIf4n7nne1X@MbU{V=;Q|62F( z)Oyv7!m8N_bnq%Xpv=w+6`gPAijpRbx-tb+(nvbvyVON@5E;Nv$^Zo>b?1v5Gk0U5v-4_c_Rj`t%Mpe=fG%>Uyb-DdSI zpDiz6lxzpSRf7nb7SK?~aWw*6`$fH>MgR*DVL9}=6l{xB7%n7u{cjXcu#+VOzaA*J zD!eq;jRe*r$ZG<|CN@d2r`7JIous=SgGAfQtZuX+i<^%?wYFR02>?>z2`i5A7`AE* zM8!|?RAW%KK6%_`O3zJ+TDHcOgF66bhY61$EWRJ9d1hGb;W76G}m1QG2GFPZu#|kgXIO5+Q+rLn;KX z8#@5d6T=C>9aWI{-a&Va)W!rUdeVyAg}O3aWK-)FV{Y4EF4P^ApTcrzBS|Lv(@uu| z^>TZSVRsJv=J#!kHcESZkh3g$Wj7C*_|NtRY^bw#2+N!vf@wan8_no$g6~W8tww&u zix;HEZBuxBY#e&RH8r19v6f_hOh7hKv9kXpnMxW zqu>C@w(BR=b>BX}zuZ<* zV}OUfBEKh8ZY!;_cvp~7_vSpKM=5?rp!sF%m2-edU~fx%OW%y+eO;cOv32vhw}1gK z%_Iv+kiR5vF9ygF#JoDt0)UhkZDF~sRXb_v2LV(FNIR#`gEobbiVxY$l5eqC?-#AJ zH|^=W83FgA8(Za$qGZKk2YD$%5w0oF5=7;;2EQk$T5c=9sUpCs<5thsY`aHt#3UA$c83JL zvzh8aMS_V$T?kiPE9{ySv(i{gRi#xcJ{uA}sGJ@TGTX}B1hUcOzKDQif~)F!&J zJ>7#dqx!abgtq(T1#;c>wTV#$c`dxBU1*+ATg4^&nB)b0=UQQ%xoPOyiE~p?+ZtR*NvpW9{iK#ZQuJINW%9@KY1g)SOlemsyiq%? zWKnn<*i4Wd;Z)35m1YE*U$(9I^`!V%@Lt!(k;~-kc|7X$^SU|fThink;WYzZhCu-& z9EX_0a+uq;y~GhiLB=0|3Xz)7EhUa*P9g*;l-*KTvhc=Qi6f8(lLj+f;>g`zlIB%b z3v8lF;z+Ybr3)oNgaArIgGh`^q-)$HORyzHsTls9Cp{d>zQ@iUq}uy59BFMSNZO2Q z2x+6E==gWCd9=~S0!N__AsmLFxYt!QkNTNaN727R(+I(|&(o_g7JD2$-nNPEB*@UX zN>g5Rt-A__bXLWA*n4=ke7$F!k8?=C4oINq2JBMnSilZ(PL+V2WVJU1?9ht)&H=kV zpKku{W$ek?X$kZb4E{Xld>rUxv_$!3EuY4K-4i^F+fJs(<=#>A19k+X=48au^AFU{ ztN=RM02lpI1~`D}F&wr~h9RZ5y?6Pp1MH$wc@bYBq+=$~z~)F}&%E;3(fUM5lx1^J zu>&R4kk|)3g5Ov5McCvE94VYX!``LQ!L1-%wHDOd<1wIOcS*;AN@xVO;}m^V9CDm* zK#g)2uOl3d6|lCNOSLK>fN}?*R9KpWHKiy+fi+sg<`)7EJwLZ zl7y44M#flrc^M$a!B~!p5-Xn$m^5QKs`s!Z2;%?2#!!&GLa@f1v=qgp1N4>8x)PY= zZ&p;q_j-*;D)OF`g-4cc-uL2nI3(4xu&?uts}_K8lRM5O_UpFH6KuZp`c}1}l`vCR z{h?XTWT^%G&p?r^Hd!;JbEnSJS8f--BONZUrly+3IjNXn1>#~_5gjmzL_wmhNBknz zr_s3+ZB-;H26dGxm`t845#N;?Hi6)`Az_u+HzKhr6^XxNU{iA>)KM`Q|JJR|vzk$u zp+teM@ z3xL03j~%BP?HW@ARJwfqe~2x1mxqIWvwy$K7P~vgDz?}G^x1^qI6M~MUz?v(*8{L!1Qo&*Eg?valv$~QnIMWM=$Q12JU}Ty{?>K@=VCI)if@*M}aW`9a9_W~Qxq646p3k@LAgWyI*5n%aUiOERG zXo^rT76jL$xoqJy)$`9q_`=Y^T<441G*$bU$@j84k8R;a?S6T|M*q((oo#nzr#OLdQ8+XC_u7Y?ICDHwQFs463(v znRRH;Wk{}9f-9Yzg}qc+F|&CBZyG|1(3 zk-BElOK>R((uArJU$mpXKu&TgNY3|n_otK>#~?w87ew4 zQ`^T1^YPJT35Hm9kxmbTv`l|WFf$oA_HfWd^SKxBwM2U+lJZaVlm6L^<;V9Edz6BU zx7S$B|E*$|5jMY!`qn&0GB)+F`KTs4I3!di=&ouU@a7A(W1|xpe$lI?ht2cy4lVw2 zf`hoGfgz)a;tu+{Kmkx8;55o1CC3XbpivCn`%Sc!XqGY_RLFmR zV*om^?OEHL35-Gb2Qid7p=g^rFyELu--g7XpQUejV$6|*iWSE-|2)}H56n1Vp8zvP zED(uSAY^L+Qwtbsm~G}vh6brUv<&P{2rWHot5g|;P~Z&&#-8gQ2XYLIP;dh87p<<> zoKJAO99((5;(~#M4Qh1XI#~FKYVI5A`f77^)#fsy*f_=F5@flnvAzQFe2N4EjqspO zQh;Z^msyZ^nNqMm8e@&yCUKg%H->x9Njyy%L%d(mGBvY0#N>}9jws8z`|3@^SyDFA zmSk-}K6DeYS0|z~HW35pK3KGK6Y+p#%u_ZII~$8-^Do~-%zNpM#-Q%6+C!{R{%yZ^ z4{;v9YAOJ_^$B~3!{xAl_a5RT=K5Yh-B<4+=AyZYnGkL5@DX{IaQBb0hxlfatmntx zl3_`)?KcLG^SgU=yS%kK_4iDT)x_D)+@A9v|J40=v<&tzyq<^8GT3wa^Ai)W$jo?D zGnT-VC2SH9;x7-}>YRR51n>ZQ;8thHDj*yprWz5eyiz-GLEj?Xu$ zY9wY^F=X-VEGwp%efr&H#gG@(CTq^0x^*}}*7SO~!X!(8$svo}X-rg?Dn<3Rksk-V ztSdD83$%>#=PAIq)h*z6f#eeC2!9u$rL6}HYGD4x*jI<@Ig)%GhRdf*cB_83?%J>% zG}XvV9zg~g%J~?P{SDUc6$`6i&{#Te=*s3xg_s3z1Qaj9pW7CQY=BZA@%)V%yflwr$&XzSy4FwmGqF zCton(-2AV1-G}?qy}GNq9=fWl&)MhfeWKUpv(6dL4cOBOC24{g?dz%HEcOd!Q@ht% zEwhzM;Yn2G!i57I0;e(NAcg;_%U(oxyj<11HJW0t%#9z{C`>)94FI2m1iRN`4d8tV z3DcNsM{XTINRawc=J=ku75&%MTqcZAEe*z}N@a~X7j7am{&XwTFSbT%&|712jOG+R zbQIiT-{Fq#KXJS`JXxI>S;Tc7g6sQ2d<{ot92E814BN=AZ;6uWgXSF({kCRA&=xNU z=nljRyz}#+Ru>WU-E=tFq!t+a3aA(si8-u@D}ih z|NU(yp+aCZ_*bncC3JDRZYBC#X2$DtjgLK6k((qagL|Ht1%ZMjgc`&UJV-0FhSe|! zbg}wwr)A%hp(q`Mp6ZOPQnEZsx4JsJ*MUH7HxR889R(DY;XMGd$%fzFeI{R#M;(o{ zQUlZM70MtLr;*q+a9v`Z?Yw->59Hmp_C&Jf0Nlq5#6Xr!R<}0+wZK=RoG6euW2l&R zNsaH5IkK4X>G}1oVmMD5CekNW0QCSTEuY+%v^_mYywn6_6${SZ0@T&`<@fM%qWT7a z_(2ClQ{dnfwt)x5xjJk{C>9~KmoV#ib?P6qBFW0(|Di6%{Qp)L<6vU@U+QAp@rOK3 z+kS#!wa7|{(&=XBuwW45;>j^U5O8w5pf?b1&hJ-gpZPmqO?<)q<#GBHlw+?)dkI;5 zd9F&lF~Hz$sxLnL<^HYd8)&;bgYyH_Dht3zwdt`3Z;ln{L=pF5I{` zWcnVik8EN*>~2qYzm$OPb)0lknf zUkx~CeURn1>k?eb36V1bazF3$|KTBwC&Y65#Y_C-8+fUIZ2iNt*>`eJhNNk+sXXd9 zQ4Lh2csaKv9QPL}V&|LhCUY}0)Lm>d&eP_9YzBZMw_Y<%(fPK@pZO(1 zfu$_76=R89(FH@133n)>voTHmc|qIa^O+bM^1q4@n@NMwWU>QMKTKdsAG?n2R+~uX zI)PpB}*`8a;gT?-*qguoP@3!8su%?*zprL6Ud>0KwqRfgrj3 zDM*S<(+@C){#7uPEsD|!%hb9DO@HI7Jxx|d$QmNvAs5%^aY|~BzsRvsYqa6`tbTg? zO?xK{D9(!5PlDr}Zs*u}-%`cF5P3CwsAZ+TO94@_D@IKzES0otSw<##>b|sn zn~YEuYTrOG#^#rTYzRSuA&W#-_BVuygSWQ1vW|_Ko8)%Q(v{;xM(SzvBC%t#BseO? zXPFgus2zmZD zgk;dK!1I$KO9z2|R|Hez9qbf-2S2v(_Aor#Kz;D2hAAY3LY$Hf4lvk4XB`51YDME< zIc!0$Ob(ezJeKQ;(JHR#rdqv!o-$0%-nTz1f&2UOoPuE`zuCq~QnIU%wTm}(3R_-B zm%lN_9k4G)lL@APAMnm+?wmi+*4YEn+u7TpeA4;NlG^xt70*BwIfN8XlR@927tYJ- zCH)w1drm{o-oG0G(9QWv&!Gus9iR9KQw)&-DtVe2Owmk`glDITRdzx&Dk=BXERpQ= zW{%F=Tc>%jlzggbVJR7a3_IrL*?-;Z9~YtkpMLF92LPgGXv3&oi09|W;~1TmH_zsm zS;yvq;6f#8%f4tl7K5=dein?qsMlP$N-!c+7MOgQmkDD;$%uBpmrLSVAsOFK5i?Iv zV=f`2b3>R#a@C<6J~B3Lq}#En^|DK$?LQG(eqv0xxIq|GwqEZl@*!>{ft>M!k%2i} zM)g#I!~y>hu6%r|!-ePD1Oox?konj}c1pzfykNG#bqD>>T*@7~z27UAQ3r2NyF`pO~d60JJb8J>YKtk-iWsF}@_*3$`Z_ z&sXydGp3JlAM9*Gq|VFNfU%rQfL$!=I-+o^6Rz;=MVu=#>0loOMo&LB)qA||-Yw$g z^-(MH6D(6xi)*FF)VKk!Fu*JmTg`g#tQ6hnd{|Y-`+V5@YWqwf7kluFG#4Ojz|-&% z+$%}NL9{!zc#2VtCHZ+!LGgI%xCA`^M3bs3j~My+!4DDz!Gyh5M3Dj?+^UoCElX$2 z(Ih*?XyDnG!!+B|NglL8Sb4C+_8KP?mx&R8k=OtcEHa{txN=t8w7U2g93o$Zsi+P- zvw!oInrE?;6NLy2M_d>5Z7Yc%5W|Rz@q=RS&Qic@7r}m2*>Wf=dz}*51p$Xs@#Ft%Ra& zlP4Szsgbe24q(l0@#n={>^MFp03Lc@_R9;#hHOkAjI|;<2nA zd$}@GQw_;;5j$}rM0ED;HfAgK_*C@Av)bC9APoc920rF#uXaw#Q8@&y;4y^<7X?<_ zUwu>Xz(x?E0RHKau>g?8TV{Lz_h3~ZLbetKv-;u(SJ$^-&&NDAdVXM#4f8hN3O=43 z=Pj0xWuVnm2d)OXaVNL70c*c?R`FgB_Nm1Jf{~>in9%`h>jB#$Q?X|{wGru@;ad{Q zDV8Oyo6>rFZ;pNMTjsx6y{@tS57Uk__0 z)ed$giTiCv@vy+7$HkFnEh#s1{d?7t_5M`@{6|B+^DRftoS}nn3h${9ipj7-&=L|6 z)+ihoN_#=+B=EF+j%|Q|Ol8$l^n*&edh!&8-2Pi<5uU!=VW|4ImwYs~ucaML(LghF zWy4k#i?VW7VK_djnEY}F4a}hHz3j-yR}lW-dZO2_z3oHg1upIi{3*POZh&;KoD~Qb zY7zK^ITx)5C^W83__e;Pq3mY!T?{g8$gAdNDuuUU=Mcf~kfp_A@I}0Pk|z#e&^uQ= z@%@N+b+$9it5Q38JnZ?sT*{#9HAGaMMDbGM2<1{JAL`Kq1IWU8>15tOP}|8 z_AYWp6QV|$O~-H#aP@bN%5>E4KE?@tt(PI#je6Y}R!LU%=4`Qj7Q?+~0VO%?J~9SO ziqDLaMu7}tWeyGoN(s)tAjd~Y=vrx+ zbv%k)k7z0m>(t|*ap(8Bl$PNrMdJOZV2z~H{vde}z8H}DUZM^qe-IenN04^gSm?h@ zh4D9WfBd2lJy^$m1ob3N_!&!i*z&D^^;X}fyT(E&D2IO{`iK_sWFRGLR;R}w@)mVa zPdfl8(@_GJM-3ru7@k?=`@ARx^$Z)8y>eD|W$KFMtE8%b9i+Ru5WO^dvTn8)a=f@`Sa*w5qkO}g30pZ zaK^&FB^DxeSPHc4Kxh$vt16MeCxjR9#5&={Xo`{R`+@~|`!UwWNtJ3#e zb9$^8&MaYtTgXTgOxP@eDf)M+o6wu2X=!Z3Uq-qx0c6Y4=@%%0X@y! z|9aT5tyXnz%a-(Slv|+wLpl{j1gEfSAcjw`*jZq1YgB9N;b|0 z(rJ9mdUdE=ip1y$o2iLnL>c09=F_2N4J+|LP}k7072{}hq?N++d<$J?@s_ppCkO`d7wBF8&)lU3M&H+DKf1d2U_IG8TQIS-Cy|!iLLfvf ztKuFH9T(N$iBDrlgJSAMe!&HUIn+-z2gyFFpRY8s0!6CjtuPwH=1ahzYIQCZ{ra*3 zUnGq?Tc-gp(Ftesx*Og#e_@!nKPWE!YW`}9qy52R6-1p9MTC%p%s)gE^qBIlYfwywN+3R{1BgFRGP;7eh4wpOkE;Ejng)b>nxAc;4{Irh(+C_8F zmd+X-;m?*PC>RT~D`}>4>86b~ld?`0jSSDLuQ^vDdb4=4&3$rN3_#uE;ZYlGDe&q4yeo zC&-`yPIKRIBR4+^v%!qQ`8?6JJA1_fPA=z&+GKtAg7^Q_>eyh~T5XJV{(?}SAaI-;bHR$hIJ=meL|aPpRSJsHdn9ohpSCz)FRVg zj{e+gN6(4;kz-O`jg!NxvM;aqmw?N!;s;*saIx|kpgfoVXKb0$+o43mRDg?stcaT{v_(B#4k?n%UQ{1W=K4z$lmoOg72c-<7h0%6;n~fLIt3e&= ztke4(CCm-cin0%d=!^QYsw_5l}&oVm( z#omcsGsIP-J!J>pJBXudduKke-sJN>>(E(liY2!RqPJ_7pjb1Y$(egOgD(QKC9spesCMkBXZHwTN5og~TA)-I+$(!=k;$&lRs550 zFz?*iO@u)iP+<2klGudZcIachX7DiW1mJx?EVO1-n}=lH3``bda@%vN(%i$f2RMAioc6E{i7X=2t?9$=Q(s^mey zNrVoyE+bJCye*l;zLBT&h%d1(tBLm-#oJ5qS$4j0LFv=x5UZQQM^XH(T{UGe)8H?} z%&{?omkkTd?R#8S#LwLLO)X|W&;E%GVaB?YL)ET|yKsSa#GGUw;M2II1#UBffPDV! z-vxUB@;7Y2oRV<5$cD7>^oTPUf9gUccKywKD@kK)aj29LssyM_B9NwMvsp?xcLvo@ zZ?MV5i36H;B8UV;c?f#R0X=o0$89q@E|24+=UX3K z8`VUTJ{izU6Cd#`9M3;4|Inqs%iv=4P~0E%&>{iPNY33w}V;vx+E<-(4ec zC9{W_Js;btgnIo&5{|QVameK}Z=vJ3$M%Y%b3uZr*83?5`MCbfmJLov+;+|Lqj0X3 zchasB639*}wKc70_foqLeZxOf_!zy$LU2|3bD|4760sVc$;Ou-5rhIQ6pN&ek^_EP}s{ATK(B z=fK&Y%>BgXAzg6<@P-`Rp2bWj4oE&?xE)QP!Y_0P$@2qP&Sjoi^W zphAMSoYl7Tv|qDuija%yY_a=}-TK*yWmdL)gt(^Y{0~EBcMIqQZfb&I;|vd1$1vKs z=xB}t&xgWV;eg7*8?Vkep2?;(MzfyolG;XMk#HQgC1Q~UvitBiZW|Ovq$V)7P)7;P zkbUG?7#k)rPv>&s(7+3Cf+qyL&I$8C*IhPDd+d|!mY&e6_tdGbE3m(hm8xCA3o#4B zIKSxrjFf*=%OFyKDbUUgvB*Wjv{fVrla&HvR*&(`!(g)~pCKlo<1c)UQJNGHdiafl z+Z`?)oX}0|uzAi;r#^>?2SjqsqfTm%^VCIY`)}DnrwTFL;dWTW^LqUE1LKBLX*~6m zU|3#$+lknOqU)BohP3ua;e&Hd!n(?u#=q_Hn4zt!kVKQxT#e6h`MOM4e_&&1@1^ zNYwHVOLz;Izc_cyb%TQ}BL|ZzcqFBFU77`T|W_@ZGP9?~$F-t&FZz@^HK zhmIC7rtYxQ1OZNa&_#R$M$k!KY8MvvL6~#F zYpsB9(SpvZa_0N^0oR3{ZI?euvVot6uhK4>>2(QAP7A*8;ePSVRt~S#qJSvh(w-Uv zcf8tcy{@a)E_)7b<1VA^tB*h5#Ym603Wlq*cUy*Av}RDhoPTxfPBg`RmUGzn0sh*V zt~Pf$U?uZRv`4)k82B>^T2_zV^7jeF zpN)dBWfj+z^OK@1aH{e0Us7v2d6h;u>x&+>_;1I8r zi2&{eH$7Q3vcl6#gHV~=2`03xtSA0Qm^+y%Yl*qM9_sWE<9Yf!K{CaKbbjtc#-5Zd65*N`FFrhm!Af8xh82fbdpxEn5>cv%*q7jxE|?< z2a;MRaa<}i(HcJ4iU@6P3XBEhI49)izM)coJcv|x@u+8Oifn=!L~oTH_TS*NX-|V? zd`){^&E(Mt8N1?+W4(7Y2mQ^XM{DBcRz^Ya3t?*vTGv@;&w?NPfm{fqw0;KRomA7P zc&nSyI9Tfh2J-WEAN5!E{jkWB(gy|DR(utzo*aFyon{XXU|#I|!&xHtPzT&>b!<(5 z@nJ?h@=9*nffOVb++bQ_9x$Z`l;BJ00eSPVWIUFmB)C{g0>6Ph2~n>0efw1j&aESI zB`TujY3sPoR>j;$WEos?3QTiw*2qZ)Z7kFZxk06T)DkeG`mpVaKIr8iCHOU3QWqEU zj^9RL1WHFqT;(ITW{whia$S3l;&NfAs1)rVQP7hVST(ixBy-9 zXj<(A$s#EN9n9RXX{qMbyl`PswCk2OPjB)nli4vcWfXVZaYll9w5SWfuh{urf+*{_ z&}D$Drt(7eA^JkOj~^S_a_r`dSkaF+bW-K%Gy$|IYn)y6pI8jzp9p4zG$3l5wtmQy z8ed^a)Sj(BW5i4py)?*i(VY$Oqtt~iLV>18k0i^_vSfeG9d+8S|4?iN{}@2tcNdcS zAzW1hyG<(9!frwytg2Ih(foui)!QDSMOa>~7h(qx7PULDPOSApY!@Cf4lUvmA zfMU#BFpP98EvGyXEs@M!e3>=ks5-aS@LL>E)abg%{`zB!s^E1QzTb)c$t2KOVKP() z4r7*U5bn0nOFce%0}M@Lceow}7Q##=1yLu=y-9HX3=svSfS7wiDo5tBR7NL2Q7R3Q z)1y=7G@a-mnR*N!n0uz2?I2rYA;uR8u(FcFPJ7QMI2hZ3fwJyLYO(Rmpi=Vmxl43r zUi@4zT!E*EjWb6I5WPvzgzi@qqE(u{U#1?YWH2h_SLs2my%WV5Sipm!!*wkarVk*p zC2Srvv}{rS)#}THy1T1E{8j%|_3^7?{$vHj=AwA1HSwZQ`JPbx|$PV#?-jFOmizq7&Tf6Zp zqRt)Tx06`(Xq*Oz$QlG3`PH+~HmFhOD@ak7i0!LgH9^gI-ezJG?9+Oo5^ec^WH@MERtotF2B2xb$ca?!E>lxG#0d<*N#S*E^WP@G&kcRAz4^lKU+fS0PXm@0WItLRe29x&S z1ybsxA4EcZ2ZMWI>NM^9UD!94Zr(#acUvBH-0(Z_tgORd-EEZ1i&&X`@0NZf{c|9w z65UtIZI3N8@0sN3Ahr_(+aU)+61YC`gGU?$vWjhBx~*2r8d9rVUCTK}S+EB=!+Pv~ zO2n(!&`I<)wy^Jq=qqjX5c08!T&!@4vmoIlnQ+L!(Xwn|chvf)(oX0#wZMz07kXOSCw-KeCeuhH6K${^SLG;KWAGV2*{?;Uvcm6`( z-cFcfR@(^9?lw8=fpQSXBkbibo$CHNDvl^kQULN;l@$LT zUKpp9g9@WCEB*CXlzq_3i8&$c(&tvl*cIeJOjruin2v7@5<+)QRekoI8n;gQbiciJ z>i)H>By_*LECCNQ9m%JF6phV;V~ntDrH+j1aQBc)DBc?fxp1vqhJdR0aWYO^|!n2jm?iE2M&Up%AR4I1ZaL|2x?NwHkV&W=R;H35``_? zABou{#0Yzm=9O|s^-dvf9%I-nVw8G7s@HteQ*S>#U32Qs$AAUi5_>ykHv3S?E4b0J z8Gg7fQ4^tv?6!ADxpx@nvpp=0?b}p0HuUZW+%Cmid3kNB6TtT7%6D(8+1xb3-BnyI z*%<+9F|Pjo4+c8)O#aUe9od@ zSDt@MX#3XDF1#bCX@yPTNHxigN-Dg~jfX<*kdQg}YXjOrdde)$y9 zVg-Yt6s;;2tpMv!1d)TzjkslDJ)_>Rm{ge)d(<8u%c4=vQ46(nhfjo|v1*IX5B#@x zKJPO*kj07Gid@cvZ8nuH}v)BG?1vf zgWg_)X!oHl5Mqn13qyV;pQ~l9`Q`NK4VphL;h$?ktndT;R1Mn8E-nB#pUD}QEll~HI zC_Lvee72(j!jQjA^|N`W2#AdIb1ZvzeJ9+=Kfi9G{XaD3t<%km2)Ro*LkqCEGB@Zt zIkAgK<&EQ+C4c&(w98f$+`sTVy)G^V*?clxHkXYYuJ}*TD^$aH^i%^#b9_aO1Zt|Q zcu|e`WkGuDVd#c+Gm^LVrr)h6Hy@fNbdL82}_S@Z{E{~ zs645K0Hb_>q?k!nWi%8w6ECsW>3E~K@M!*J{kLD(c|&K2#3F0<>AO)Gm9PhZ(6-fD z4w*w|*T~y(Q*i!~7 zV=LV(TFc5$?|uv^OQwTni5r=n>SMu{KssCS%?!`@uE+NZ)l!kI%ZyrZHNr1IyZUn9 z%sV_JngVY33@(EOA=qLYm6)4=Qi`u9$Jr&NvF7zF1tYN-2B`_( zNuvvdEfJeNjXgIUQP5QM6A8S;Mt`g$jdc-X-y}!t&1NX!oBP^7jFcSbjwje{5l^Fc z?wz50iK4FvhG{tblZ>3gW5>PQUS;%zP`Af903VFh9yO;yf6r;Ez(oA36V`s2YkOy| z8Qb#2$Vg;{je_Z3x&}H!sp&VEW(sJXDfG$!INe4RjWWG|x5>*W#*Zv)rVRRxF^yqnt3Z?{n^PmJtAwsIW`^Djl#+&$n7Zr29uPpFg#$RlZS#$oLCk zmSrQy<_LWnUQq;fB)=t%QoNa|>z^;tM|$G^j#_=P92ezA#*f*5vV_6rq6#t0XvOLu1N!x`|1IW0Z$OU@`ooVYzDrVq8&= zkP695A0^-So!7|zy4 zVTV|4Uaq-DRO_CM?1r~<2|38LwWPCVBwb8;)SriM7G}tj?+r@+hkn9Jw3z4Nb#axD zKlhug<|kl|?-U2>(oQWrVG7~6IeK7n#c|wGA%(*q4T-ZS{}-dn?>5+wy4UHg*Ad9n zqT3uQA4|+Klf^aQNC(`&JpIdlK36_YN~9ZvsgK#8VTx#zRcb9%+z6#4`h_FVif@TZ z)_>#=RujJ%o*~H;>TqUOi7Y&l(@CWL&&K2wnngGAvn%LeX1BzACJ`0o`4U9f*q!(r zXd?aehet*t-peWVTl5ZJ@y8-KP@%k%R5E~x)Kgb1S!ovMSaku3Ir65eUfH}{{)ccY zmswy%F8>6i?R)7`uHYX8cO%#%JDlggc3Ta^B)} zc>bmA=rFo)_$-z3Lp9)8 zoK^iCB+v;C-Qp`uS;0y@KIv`6w@v>N>+mvG^R?q{NdAIbJCM>*5J#Ffo5oh5;cSZs zHCM9VI0PU!9)ux-1|M$>2&ka{=FW3q|E029*6qSS4dx)X8EJjrj4}>fTw~IzP%USQWI%Pj!?EUyT3W@QYC! ztlH!Ui2PjAx}+Btd(to{yPQ1c!a;>7g{mv5DmRs;$y@>wv3_G;;fl*b0@ivl@dARI zb9!qX);ce)A9-WlU`bld>KXj1)fO4M)g$Y4Mi6sFyT4OD=@JYL5OIY@O_QFMbs=k3 zZA*+$s#4mfCvKvk`OxxX*$6TDa8f-7v({w>y(^lFOmbuINRqyM7cPv_w4nKwok>l4 zP!(kP5-H?+>pG!>Q(~V}Ct!N}LxOp!S}>Z%t0G#}nlAX;h%IqPQp$H{uNb1T&${{# z?;ti8Q3bL4YN8CUuNkjV1MgJj4OW-rq|9>v!{)>!zR!x}@w{o==yHN6Zurq1H-f zBKh%>?zeP7?rtAEpq>yoE^z!n*nyai1LcJcx!v48n4h!dLBd=zoMvSuGh}`t(5BY6m-u@}?qGbj)ZcZ4_OArC~5R*72M zz}OR*d*JP%yt8F-eoLHecY}fgVGwc`5h)cj!vbpXP#mec^Z&Mh3Llx^puwA?sW|4T zlYY8z5DP`%GA246$Af^%U_weBdDCu3sKxr7LqUL4sSmw_z258~!o+?pZw3-0n7Q>| zh7NG(yNjGr*$IId`v$-zIG<+%;yynJ&?cW-jpz|D0`2Zca^M{jO8Zqe;u0$BRct~_ zNB;$G9f8ZMcQ|nNF16c@g$u;Q5W!%TWQ zkna;|MDY=kg4%OHm~d@>Toh@H=8maLjBW7?GqpnU%8%wO|x#->6B{~P?Ah6EsIcn7oB!mn0LXkY|et0k=e4g84DHt?r z<-FdFGiZ=jdNt@~_6<)Qp>W~Qq|!AMl^N|v8W#F)ce6#Y@BWI7f`Ob7i*Ezb@v66w zQM|(vM5PTVR81JvYd*5vOX=p$$~XmAPSx}zm@DIKfZg8<6`~gLOyjwD z1OeFT9Beo312xBIKr0WgeM$aO_s6JIs{rdoacMsF1&_W?P zqXP@20KG?mvADzM^)#d=u!MhAXrqyu)2JXxQ6<=3Idc2X;-uaj%7t0LZ#+j?&zvMJ z0VDe%@*aYYAvW+6MA>9b7}e1%)CxFASq; zhjR113KFOl)u@8+4g(u8fwDP5Y)X4f?Bv}hVvWhA#$hqR=*TRt*vgv~a7EBm0lM&w z;ojJTl{)S#SlVJ>(@rL3+(O2L^f0yDbnJll^LMlZwA6&e?Bl(!AB)*S=R@%MRU;XN zvPE6d{PMq24@6NVe-*eW;oyEOn5qbXU=ARzRN{IIu#G~bg=yAdiz=HAMJa*E0+R5A z#-dN4%EJ3M6K-P2T1h+DZyADB#gLGuJ<8;htGNF{qcwYfM}&!JU2rg!WOb$sRTCLZ zwQw`Kyn;0e>k|P-5R<7ev~5q^utxdBQ%QoY%WqV^hHv)1QhtX1JkrA9>y5~Njim5A zWBmGYdZm3kF)2BnaG^G90E`x0k9Te|jkYbaRm17B0s>py6x_Gq{@6&Q+5WzuNZ5#c z$!KH&YS@xr^;b9RP`-^M+5ievsjiZY;i|eV-xbvEzi1WB#?=!!pAVxvn-cM}3`l0U zMPwMd%V;)%Re`E_54WhO67}D_m@?jZqgb1P>sh;gVLdd-{ny*KJXrO}%V2!#1&&PY zAR(@*?AwfwH@p6j=yLPl)AXXJz}a03h6y_^;EmU2;N^Y-Nuu*Zo8vCW9+u+6xOY0o zug?v;{vn>eS*wHJ2LmO;N8B%EVoW55tf9h%XI@=_8S?N<_Cf(7@)U!OGd&i_cSB4& z{es_TtruGIsruHnUFt};MJo>e8Kfq}0d@wP7eAlC-EBt^3_b6kXOJ7wv$t#DAIZdb z40HxQfwz}TxqUbML5Dtpte)tO&bI#nIk%hOAI<}^xUKYcY6cCvcBYu@*&0(;9HA}9 z$20;Z8(GytQhY5E=gjV9Dhp_r=5mnj&8Jb%e{GXjjbeQ@zB=R5LLuS6x}mDTmM^14(Dc|?3_`wx1KOlH06Ehj#bvNqFi_p#ii3SEh#rh2E8%#rC@ zb%rRr=tE#&D-#r2y;0P`?HZEeU+FwqCt&p~j4Xc}C(fW*ze_vZQ%na06fA!3(&qXOFkFk_s$wFx|el{eq%h34AH@V;W*f+Nd)#S6T zs_$aPZmJ2DJu-Y~j07Wsa#ag8&6^KNUty+UhhW^mWo|)QZ2y?g4GzORiTm4Optiw|1F#7^l(yIxKAAhHqVEfjUM-nEApPNQqh9 z4jK&0*xe5y#zaiKfZsk9OLXN1eb@cN?zDaKD()zN%^}$T@xojcKkNNcbYWtB>eQej zkj}Cf)0g}n0*To;cm&5-?)25%a|AG}dRU5wi?&V7yRw4F4woK7?2$aXwfThvgCUKp zwxTChY6vZqG(3{}@twb*ygEj3%*>2tk&7lo?N_;c(3s3LL%mj2&a+b661r+-t!o2o zA-*RxbYL`yq0LL48WuZkq!G(bm%FXCgr*OiAedIM^4f03M!h&^7(0?pf%7^-MP`o=T3drktVJOgVTGOC4G>1>_T ziNy{rl^4h~G;ZkAxMM9c|7~W?6ew-#`#wel~A_3j037uEtHB`SY(bk78G^9 z?nDmz-JV-wyG*xEM$l1(Og#*YgnaWEvC%nZEEw4RSJFjxzjYGQA_quOFcT_ZEO}^` zOdBB)(=$prfFh2X#MvhEiM-AVJeN*b9W=vL*jX#r;f+~h4f5R?iU7~A!}k*;5MHtz>i3%fK3E|E_{5-XTEU| z$2V~sF@k3V^AOGXb>>;j*y~6kK(r`_0sFHJ@eG0{ZgzXTYdSx{U(3wB*KH7ZP=Ep!23oZobdaH` zfgdB8U_v(?c$Hd&8bt^vN;Ld4XZe_~J-3K{y+4z=L_4{j8yC7Dp??F8co1ZSLFtY} z75l=$L*-K6xC~$zR@cc>LG=kLS?BTa&;yjUGwZ za1cU!P;jx9H~>1s#HqzW_((!KVridoe=&zle?_1M8qVPny>(xo2?e0SE_3vyT&OW7 zGYy>;3!j9+U=JQtJ9G^<1mKAULANJk?Dy}VC7cK$>*PuZI z1b24{!Gk*lf&_PW50b(mxVuAew?NR~?(PnS+g~}iPv4XD>3;q0c;oM!Hy(^NcI{oe zs`i>|uDPata|y{kExMh|8={d$iCayH#0>728}><-9_iz`;D`PAf~7OA9v39HHaw39 zTigJg4l*Xp30if|wc3Vy65{>dfKi??@y%PdcLOn}JW#>7ks5GRUWbD8IdUBWawY*! zZr1Z%N{b8+35#RdEFW@{vR>*OMiHn|O>amcpV>6n6*ju)DM0yQk}~?8@+x=ndX-Rj zG<`v8nO0E_KyL6*7CptouiA~j8GI=gqnml-riANoM9bjj;+{q%{v~A?=j(J>3+tdS zM0?#kO{Pd5cuJ|$@s-}%^)ebE9rjW97CIf<_IY+*DWqcWZluS>*L6q%GR>}>$Op|) z#JZuUJ_To7tg;skSOaO$s36^E$RT_hG456Lvy(~Y1%=tz2LmU~4OP@8dD?fBISMn| z+j2@@i#@FoUg?|6tNxUk(JqkpRVE?OZY6QpJ5d?;CfxF_asdW*fOR2z(8OHJWZNL_g& z5hIZEs(j{MP8s8HGT)dzmQN%ujCGzC6esZ$jBWf^J%hRb4*_ zS5NHaDhO%4_AY!jnCU8ms@9s+#=P_a8!FHoFZQT7C^_<6J_NaKw76~beVO$uD%*R# zGp7<*zb_E*F61yt#|QflO0@b;;1aEhyxj~ zeQj~dg}?YP*}whfGxnZ1*0>x=U4~m_#l%R#>LYx!=ts06{%jo6%5)7El;GC}N8z3Q znCNeOAyBD>GQ^uUV2T#wxs9OUvXEcV=CkR9f1|A7ZGd=}%xQ%|s1D!f*<#Bq`lMQ{ z*79*@-nk(f1uE(#L9faPcR?>BE^mCH4}}9@#to_(;u5+1yasMF{O#wG7p=v;FME@Ote&qW+qk{TE^FTsyW!6D z61i#S5`J|9N@gBiVwgqUf&AKz5)L9t3Sp$*PMvxl_ey!}Sd-*_*F{`_X>=)LlG2R8 zGKu)n(eiWbe8=Pz!#LaP9{zJ_$A?tlw>bL+4Dtkj`0>t!56?}o??mIds{7qYu$L1~ zx)O+AvXok|;~CD7G0L?<-R3UO;tnycZg30cahxq2U34(zVqTon>uV&Yuz#LrI>)vXeBP!;ymiEtVubQs!xc&6_AAeoJp7dL<*Jg* z5h^5^CSSkyP9y1xx4D?T%)#M;ivvX-xHNZFs<&P36kWHCM=yI&>E8P?%pgDg;2nwi zustzgZ&(t0A3|g$qlEeRDxe%El`VTxIX;cRtpP0ys*Mt216Da-Vs&#{GtZE}-Rfbv z%H7`h7>lQwx1;k*g5UWD+J}Z`;%+43Ir^f+P~*k^5%2A!glC^v$*`+NE?2+Csw;W8 z*h{xnS`~H@VI4~u5t`j!5z?h$yRkOU+I8oY5y&vRctLSp>{}%)k~;G?VH|<|vmb6& zUbH1^5y|iZTRht$jGz>)v5|2ht)p&c$$-g~$-oRj z@s=mFLmYO8una1%i1R|3xbD^w--RTSjkdpeCkaDH{Z1qhk#s+ASx%71!5VImJ3pG+ zN>ChW(g&~$SyzV&_CH7`#ic6MHlKezzhecjL)01+A>m?dUlXN}D*lVQ^uI4IJ7Y>FkqMEf~z%r`7Kl znK=>JI~nFwOavCEuSOKF=-e1c#gLfEVi3XA%H&p1v~=s($DQi9;^~>xKGbs%R!_H@ zb`7Hk@B(W_kY8beQb%*1=@kgYw{G*oya+^Nty+D8U4P-ptX;rpX%~RH<7Qn!fQWj| zl<*p|^gtJgvMUVr=JQ1oS-l$S!iQe+Fx+oTFWmfkONZS}`d5|s9NM2^85L*b3pLDA zNd@vVq$l7cg|pnL0|;H8TB%;$m`@#Cmg>!%z=xaX=)+bPIeM84X8Bgtx$&TA=6piKBt*~X4-#IJWOh$P*GVE{?nB)jGo-Y<9xVGUnmyzCf4 zM{G315i1&DRogSCc73UYcHI^-J*L(Cg(Aireko}m$kjZ&q_+H5ok$8YWn(@0i zQ~vd#PegP&)`uljn~lkO9N1fm$I!4@fj~Iju6vCqSvc}$b3`8|d3nT`e30)9tkc_{ ze~2bpjl?>RPvm$OZ#YO>{ep-E)?>6Wo~|APRfiJC7q@%y*k;x}aWd%{x7UJu%mL5S zBv1NO-te?{!O2lu-t(u21l#)%0sy-Z#t9D0uH)$?m1Hij57?S^Y&~N(b(m(%O>pse zkd9H1m&Zs)Tke|+VMC2#1Z6VVom@mDv;-A?d{;Q-IILU?8=u2E=4Xf|DhzHRUnXgg z+o@`s5_Vo21R3b;Y&K9S^+^X;>|aMuHO zT~{G`n|_>itxy>E2;bf};bktQE>{ipwh=z2-S@H0;~yS8zcgj~IKw&WJpCSp=5gDU z0;w$ksk79*D-nI2(J#Of#e3O*Sy2HgiB@1`p55gp-0&ko>=vJd9!yiH4|jc%v)ded zPNDmvTtQ)uNnwc)mr{u>GfT%e=^(-ISbca5^?r|J?+Nqg%hWXHNQkrW&d~|@1l%H8LW8?HGQW;Myf~| zW(uPiKclAI$fBG9YSR=$YV%4cm&EmC#{@IuKCI+Cr;kLs>4r{NCXd`2x59kpDWAUG zkzRw#XCV2P_jWCB9lM5GoPR4n;W@}!g-YH?KZ1Z9+r9B|>F&VcRG6j4_+1o}JdR%A zsq(zcjYDtImTGibG{cw+>ye;6fz@KAjhURyeN%ydJNJvb&A>zhv9DRdZp@#zo4y?4 zT@Byy19?cg0a5b~ba9cXW(Rpr2q$U#T*^#NEfPSh@MO z<|u$o@Zj8N^`$3nVX3^V=Jx5sRQYXJ+pXi$bGz=tvoP10`?!Ti_{LUpLUU(xQ#Q>) zmIZhi`OsFmOQY>Yo>T6()w#9z^WN-ckVY82`zWiHvI*(?L<^0zHPr7tcWxpQI>ZFo zWD92_J(^xbQYKfsnIJo&&f+A}M!#J__clk3z>KkY)z5Bfr>qTwww+eEq2%{`XrGS0 z*{=#)jM@zUFg)pl97E2Dk03B^z6V9*hB2B8LV$I#@Su$aJ?TK?whG7)lfk7LOuWu2gg6-e zq?yRqxIb%Lxn8P5lf|8%ae7Ag=v7O+y=^b;Y7OOA1olhrdd(6@(YP&IiEzL$fY?GM${ z9;Y9d0jQFq5~2VI2nc`<_#f~%2M`7z!NDWI!y+LdAfO;4p<=wi#6U;Kpd=u~dBI4{ z%)~%VPshq5CCJJt#zjZ}O8u3XjGU6P5{rPA{#yk-DMcmu?_UCejDmuJhCzXeNg>Zp z&o2MJ{r3n?Jcotod2$a4K>~P!1_6l%@z@C<0stVO!B6}Bf&cag@dOeI`Y8-7_@Ti! zRHFi(KtMu1fr5mFhJpg$?E!ut0EGsP{(?#9=`(p<7!n%{W}nCmSkhPJ?U)K9$7C#e zw!U!iSlBqY&tH;LP*PEY$;-jX#V!0=L{v;%LQ+vlSw&S%T|@u9fuWJHiK(5vgQJtP zi>u!U|A4@tkHDztPcgA^@d=5US=l+cdHDr}6_r)hHMMp14PQDszjk%^^!AO8jZaKY zP0!4(tgfwZY;JAu?4F#SfzB^3udZ*t_X`35`Cr}od(VFA7aF)~_i^4Icp6v)c78&cx%aiY2`>kjHUdMd@ zM?L#{$Nsxtvj9X$2=L%Rq5%W|pk2yLZ+LK{G=6sq7;D{|WVnY?zWH)IScEy4plez) zmA_}6#v5BfVx5(R=68LjSp|?6!T3uyWed>@KK?Iey+TyzTaX1Hq7?Pq2C~R1TS|K! zVH!kV6g?`wDr!0^3c3(4I8*l7z`z6E0Gs2zqVJ)MEMIMCPDmWxTgy6R?qSUi#HY?5*mOodJ9}|?0b)z0aO$TUoR`5Ag|EhT z7HGdP^v96bNQMx>kozk&7$mdYxjla5=E-mRx02gZc1Ya|QCJF&(B@I;76d5ZtU2k9 zg&iza1ta%ive3vdNnhtu7f=Zp%+@q)o?gvfiHo(k-ly6Z+RLME)2r3_1eqy}dvc#~ zewHoe6J@voKA~ohTA)HYblYV*3U5=x*l52dhsx>VuINTApY$`dj@VA40ixYD&K?36 z{LN-=2=4+D_j^VB~lOX;>E-yp=oaw9` zLMZ==9UlHlOn_rFXr0JPU#rFc5kQQ@^U$pK2pASoYpx2o8I{uffP@cJIvJaH0}f_$ zO(tbk!T>MOO(joaL!m?0IWBCp=4!UHadGz!1-Mh29s#0_NnaL;hyw zN(|M)JOWCzyVcGb1eB?@ zg3wfV1AZXhyL3cZ%Z`6Kh*`Ro zq7cS|*e0eBRvY1}EVSty+jKRghqlX(!mK;E?mR?vYQG)k z7dBXcG-A_`*12Y=x1j9#VDDf_N>qB6lw6{MgKc8B!NhzIo{56cf1!p;NbtELP<-r= zq|%owahCbLTAO|h?iOx|>yM<~2IMmoue4Ugj#|I5EgcKX0<&f+@Oj-D1y&jQl>xo3pM!X*mvHn zM>prej{qS|&vJK;Ty>$GX)O`tnZy}5i|&SylVp_%0EWB>K*Yg{V4=9?G^Cp(M)$mw z;!CA;rZdn3YbWV_Aj17ZN5tX`(b)0fUg*iWANAZW*d3%6PugHa?4a2FhVWsvys*Ti zG%zo2K)N4^FYk&!&_G0P_#C3pgi&ils$x};hj9;7bYAGBDwf8{De*-!JrhV3@%?xI zDot*yd1(E<8Hmzx9}0yQR?1L3(I z@Og`0NU}!M0zQXd>0nIJg0YiWY{b5fr&dSVCg859z7((P;?(4(Ik(cZQ9TH8LG*kl zEr0E}bZ~Hket)Gt#5XG4#&4GfUS`T~+tuZRvIwG*=jhagrL+i!%2w=Og>>Ja)9wLh zl(gn^d6VYcHG<}g)0}#z5Cbt03Vg>>-~1ocv%jwdStZk6CMMYIes~L>Z$R^0MERvw zE9Z}ZLrd0PoR4TtEMJ!!}{sIaL3m*Gt5qx8ETlf=k2(d-6ogACSE932NW?HYqIJGIbuEY*A~sLhfstpQ`1vo zxgTmr%~@x1#Y;mA(?ip?u9cn$4$4qMQX`qEO_j36;d(K0eZy+QN;lQ?=DAQbwaawSwG*M_%vnTri)~-wP zB)rLPviX^qS@+0(k{pyaj@&m`z){-}q|X3=<;Q6=#g=8_8ogaZoBE#FwdXFTCnWVgz0>DRQ2PWV!PhiGqu`hx8t&W|8M)h|msd8&7xbyG4$HNNUVJ z94GMyubP#R?0kNYr{veJ+n4rL7F2qe`KdmubbE<0vq06o6=A}a5v-&re)!cDlp^{h zUAEzd*sfVApSGAxg-1Xti((ZMYY~lTz-uU)7+g8m<+1H__)3!o_sb`%W_TtP1Z2*i zYBxpQlnW`-e_AU3$(;O7gq0>2eA+-m zrX^)2C%dk%FAkH^OpNc7kx{PCi-`hnJ|=dV!QsSuAH7Li;cJC_1Z1cn%okX06){|d zpvP%gE>VnhYZDA+B>yj-i4Cjg)5Y+K}AiDE+orx6Ssr<6Td+%o?al$4)1 z4y>Hq=iJBXZr#W2FBwWVa#-DF;SOO||ER>Oj?-b?%GOmG&XT`MDo@D{L*^^|ioxaq zgUea{vVk)kuu$DRu^G*Q6t(woyb^eN7wUN4?(FULg>QA5jmFx&{t@6paua2}?BRMZ z?G)6vU7APTL3{)J5?o>Jfg;NcOwI}l8+!+w*PzU-<^7xqqy+rp?a5E3$G>DeFavT8 z;m;tXKgx? zBwEcv29IGNz=ZHOZU(z;sYRh~7qAn_kB>vXyxy4{EtE^{O zvx2>_9=L(<9v?At-g?FsxE)U(YPQCd>ea_OT1u81^$NW4j2Si_i(Z*S2o9L_?8WO* z+ae;SAonJ39WMq=d@Q3-`!Gr?zmBdxBnT){-gF%-%iSYE(mKbpR=L2asWDMvWeU7r zHyDC0pTegkJl|m)z&Oqx?uqJLvu$9c?ifd#^rqVWquXz@%EEAy59{kwpMoB&MW*K0 zoK~M~Stum8Ga~vCZCS0*3=ri{>TS94(V6)|0sMbr0rb;Kf9`1(bGXsjIx9^QZ+;jVEjeO@h+%HChsn4XDyDL)u;zQ~ zbX1_&Sz0(W;gw(uq%0Yt{8bf;EqZr0+hgq+&D{ay6gN@{GIE0bq=%au#5I-4F6G#XTg3q1qUB7~-5U}+}x&Jpu21a!f!vO)w=CHnfkmFYF zO3%GusaYGgKh~a9a)mUW3orzhv=YS}-{$DNw66}y90{T8*cA60b0m$;Fn&?E=hjIv z^=*YB-&>TU0;LZAhBD;`BQFtvF9Zznh-RwXFFLh;_eeuTuFOs6jIv%~QXtc1ZIrAl zuZW$Xg-=%hgZt@E*Z=xf{GBE95&mI6=Gm0B`>_s`buaiGs*0}YS0~~bSq{{FZhqrR zgS;cgb13S=MbCq?nBA$o?laQc4lY*-rOuLLAk#W^Ccj#HqQ+{`bWUl!ZuIR@1Bjh4 z5Z}XZ?R|BM!N?gPkO}z$%+WgCKiB^5*Bf8?yVCQ!^79KFe+&$KJzmT+;*Zlc!=KC5 zd=KsTxeLQ6zohW*2IosVck>5GiGLHLDS`Ou(G|F$FY<{@Utoo^f}wsL3aGK=5T?vBEjY2OP(-R>4cHVKY7zq~R z3R6L$MTog-Y~5kzBP_s?m|w?s_nBW3b==rosS2s$+K~;Kf>NGG<=%h|2_-%7viVE; zne?u#l*cUXOZX>|UQKHH*M#6i85rTnr$T_$UUg5R>RM@R*#x>(b?K`2b%Hn>qAn$p z|CAZ2z(i32_%aF|Nr?cgpPNanl;Jc76V${Zfp=if<3aWa$Gw^IdK(vRpJnqtF+|X+ z_WJ!fr7TF`+hljZx$;C+P%fEE@2O<{Adb_Wm_Qhh3dVger$={D$UC(xM1>_2*OIiM zyU^d%VzBe>7gLMtQ8?sVj}JCmtqR_f6>UjbAi8Pr1r1b-LvGH)yxmIN*{AoM$(z%H z@L`oA=VOL=sDjV~Zdh4Vn`sfADU6@j)HX?_2masW0`DOm!G+6XHLd4;aL!{T9w&kOQy?|JWBieDS@hQxe!@~@CE zsc;7x7;-Srpw}Bx(;3d2@f79|9s!v%!7BD4;n&8pj`z@x*1cQ8_!$Ho`4**&9i$lq zq5MF=W|bA9F^h2xb8ohKQ@9l#3r>IpHM3b}0OfK3r>;mC$KC@x7u@Gtt z(&5Foss(~N+E-Z$V^;=QAi8!|CseW#M&kuxDuVXBDU{`VNiFspX%x8y+=bipEj-QJ zrVBo?*2zYo{nlWqC+`$3?TC)Ci^v-0G)Wom}2b3B9HGXzx-bwNh$QT;53rodp$|4R*A9 zr^&k87n3Ky9BeTv2}rh4YAKSRDf53w6WGgG7*U@kEPGn1L$8a6Lr@_qBT2M(Uh;f~ zbz)>w20f1gu88$l^FtxNLz;Hs*7EP3Jxp_`Afj9EL(Jc%G5r^w&Yu;&-_NNkM58)S zdNLy0RTPK)#uf9^*?AuU3Y87V0mX3_77cwyr2V}+Q@RuQ!P;@p}7FCnR^(CKdNOch9=_@}k)ZoJnb%&Oe zO63Q+mF)@ZfsK5b-^JyB^7!*u{DY&ADnPBXA5MqNfwpKD0+4p+>}h`k);BY%8hkGn zEa|e*Uw3+UjH9FM!luLJXU3m)<8_6#v4&Q|6tr{R`P}70fWGV5N-CF(^F>wY#XbaC z7I|4z?J)Cb3g7^#$~ZmY>;hTHlQ$z`Ls{a5Uaw3Cz)S2K3H`|R*E$;Pvunf4_@1vl z?ZJVb{6h-h>@(Iubha+Fi{9?@bhzK9UhYTKzLBR-MdZG^dE5Ej5cQ=9LSy2eiC9>X zopFk1Djara=Hrs57MJ>r_)?5yyQ>zs4s zwmY(@aG&NcZF6gS<_z?1oaI z&^cF*Z>N~EK;1%S<=T|}M{L_&m2@K_)(o!{nFjyhWV(Y!A`{g+)9dJ6y&a{n6E7P> z;Na*vX5+2)btb=ZM^_!`VOUIhaVc{#jvM~ii`-f)AaHdR&p;wl;# z>jRCUWHW?VA&qZK!%K@LLZB3Z19^q&^&Aidq>7fpM@x9=@EWI|sSTGi9cJWv-k$u& z6%IOcGDT+M$mlu+ahNm3Yo$*Bc{%OAVYT@;@r#j_h&Mionp7HYcrIyp*`aD{x#9x= zX%S4cx(`}(1rcyFh(0_qP*1#=1-JpRze%64MQ6*BwK`vsC@KtQZV)ku?Ii$1@wwWl z(#I6x7RLhK8t&CJux_KIGKIPzyd^{&#rLhAFg-$SSqKAy4ntY99=wq*&KORjKAzE7 zzvF``<&%l;iUuYI2kPKxvBFcv);MCKFViqYkuWC(#(>PMRA-BAuFKTs42l z6EgTHaMUQ5th^~ov@~a}>l`Mgr)L1{p`^y^&!@F`Utb>~f~Zfwm5u?y_S;vha4l48 z2J45@bLvI7ZX^nNfzVX)0hvjp#Wq!8uQGi*Q`;1ZXwvOA~rDT2ClXc=ie$Bp*YnseJNS$qd3#e;@dg@8s<-wDUvBf#X{6&%GQ z0KWuC2}$(hrNTt*m{lbDujb3+tdpVY^Vro9$(2}qWCY;Axd=f2=if%0)Fw^Tbb0;= zka`M-7#u9Y#iQEr$3Y#JPY8Q_sTd72!Z%^i^V z#bmwC;-UhdB{_nLLb7(lIqAWxs_YIb`VkPO@)ZNZ&(2_#Cq9;=b+iqgER8NZMcEJK z+GH16`iDD}g9l8z`atTEV{Ek?_OEl^AE7!*DIhH1BB>*3sE5$d(V3*Dh0mG_F8E_i2;#BS2tQ_2G%cBcPkQ z`66wVW>2gp_7U&~_NrG?f~9@v4s=oK`wzEL{`g56Js_Z6lL4({J&puSwIwnWT%z~U zI0~I!{jwL~JBltpjcz$OW#sb4E2s=~n?z*=`Wm)M{t-AU5rKnhb352H9--kJh2Xp* zbwFEeiu%li-1@1&R*t2-AkM=N45j)obb@^mIOn;P>yoM(6J8+^VkB@jR$`ACO7Rht zzo}zj_e3D(L~bv zrji_tfNtIuutT<{0thC9@xiLvr|Rs47lM!iO?zL}{;}U%n`3t(Yzxi(?{<8a7pf2> z7@ZLDA5M$^q|g7rY4Y|d)`GfGYhnoqjjNgzmRi9?*Cu1+4cwH^EqJmb>W)(u`Yjzs zlpX|yf5Mtv8;~E62 znBENz!g&(xA~Zg)uKi~B2p~Lo1bmfSLaFAxYskqUJZ5|Z%oKeN*8UuOh$lxsYErpT zT%#z~NZ|4w5;&GM-SK%+_v1T@RO?3o%6SM1gK`xVb1hl}h&b#aU1{k!z&Y;0kA3O- z*`3+2an{Uh{#NZvD@7kdoRh@Rg0e3d)-Xwot69Ncv>AcwIns`RGe#p4br)i2qIAq{ zCB+M4Sv>i}$aWNzt3~_vuD${NSj=CxJ9@N>}*)5RuogB+(E!yHo1`!%cwkX751+Y?~)+`Mo;% zve-O5{^Bf^EvUxp1G?beZddNZx0B0zs0^@(xjA1P5vx2yDP_CBUVAWtAdg<_B{g1> z|4{So_I4(RyW86P>1ZDyA{rzTlX!o53D@3mZ~|H26v+T>S| zXL1u-lV0HhJ+Z1&@s%3GxfifpfV=Gq;>*AAH0Q5fOnwJWOibvqxC(s)@aaARTERp; zQASXA7c>JkGhnAiR!KUFT&flDTAs^me-t4ccm%MZlypCMh#h)uTJw04dJU<09nA~e zDdYX&wbQu#{v)8NW6$irZgg1)jq5}}pfo>Nd>McN>zyqIa62rhxf2EFmwbK%EY*2k z6&~eh&9rXnp4UBsOWxlP-3{?ZjjbZqq7ELRMG?#)_tf>YKTyY6by{8Tq1@jFJ_3NH zH$c9m2SXyw@VlGv`A5LFWyc@BF<`KN6*{yv((;7XZQ)pfw4X`;PCI)lQ(mmn>s!Yj zILMkNf17rljJy=IbT&zJdx`Q0z?AQ|Izd){;S@zO+yc5LSw5h-KN4lzR*rKhQ=eOC zF3cJDRvtl)HO$(g;%YgI%x5zhZgju--_Nk|<1?`T@I;3tTfoglnjm~$g>-w}kxwCh z3O^I78cZm4dP0gIw$2vwG%_)|Du&Bu45hiBsJnE=cr)*{HSW3fV3e{59}(pVtOmh&HGBC=7@)63lj3GXm~pdY%sb6POd!y__Hnr z&NvBL(OS2P1uhSX9;l0Uu?Pjm%?&FWj1%GF%)BEJ!}Co+rj!>}*YO^f0%yAd;F-!No~f{>QqM*N4`p*ibc;3K$xQZc zcGwqe;<>Cb_11FEL+rB5zyBM(|33Kk!*{O}u|KW{WfiF4z1a3zRuVz!6xS8cib4&_ zP%;np7FbpWhs^(ro&Wx+A6Q1N*Wl!d)U*}uD$A>|AV-lli~2RETasqVuMMgVjl+5Z5U3RI z-X2S<{Y3W6a6|B<|0m;GwvE-o9KbcYyV}P_ujRhYv0ll-&d%9Q(Ym6Ac+(u(Qeu|V zv};B0gz-^E9Pli9n-NJWe`(GnmU&UDk2HXdR)RMfaoIJ^)D+99ktFwp3~y7UwkcRX z%Kfycsi08?F!7K|RasHODok$yqJ6GL5Q})3z9r0%1mJ>5S#K&o{q8LJDSP{G8Bjk3 z0l8SRc54YKCXR~Fi_GMy#n4@Bibut&T^WfXqNA7iCyG{@Mfc!c>+?M!ShD!378 z{cX-5=7__)S>*+v|7Ljp6yy_=bDB!2{4uHtgQ69{y?iAtg}Pyd*(uR;8} z2j{SVeI=YCPu`b%L*k9!>Do9#8n)5dW_V?cWb|j-DivX-g zi(o)}yHXLEEIr~CZ`)4^!73EI)_W!DVcSjiKo~Rj)ARfugtFs)1f(zkK|!GVU@r_s zi3Z*Hrc3~_PcK&&qbS$jXmp2y6n0Q`k%h4C_(GJCv)JJ*tuEjwa!_b!60Er9{h1TE z)NsHGl%lUnmD}%uxzQF&MI6OcwU4Wc*p`p8H*^Y>=}oWZ1=+9zouqi}d`{k{knR^x_t%j-x5~7^gGR90o?_Oaew${w#m7>$ zn%mrSauF+cYMzHObbR>Mvr1l&0O`9C@>9c)c}OzTU6XzyPTCoVjjhnPZ~N`d>vIr6 zppXV3Mm9ZVA&Y%v!yo(YqUQ1_8L; zD~ezN_qzc4<57=4*yU-Fn@8@h9!ib>nSLq}o3eM?`wn`(v*d{Zyf@P19s8?BsiJmd zV*-njb4AZv|NMKPzg?~{L$xcD%Q+zHguJ(2P;ZoP)D^yZ>$RnUKwR&7$ z5DCZ{Kn7&`AOfE?4DawKFhTht+}K6&i5hH$jPm674qqii07l!~8ruzYHOXOQsPqUQ z=IXY{*3vYF|4cH2ul0>reWZ8b(UKY5)?Cyq5{nD}7CO=pASbl!Ed=GsYU0XOHBNs{ zQxsmc^mavkf}JFNyRcp$fo!tm&yk-hybUVZahFb5&+7tsqC!RnAmaLob@s0VSmsg9 zz*cQR&d%|Ut2q|?8rqk-AzRldk6y9|Hp@SWkQYAROt~-1(lS|eioWjj{A9cC3xNy4;1$H~IXAh{!O)K7QwzV{@{Y z6IH5=oX$Cd+Z_#&5nj}*ynG&3+0IYbWSV0s%Pe@W2$7Z>xeR9k_{r<~1ZIWD2URtm z1Y;$+P*Rvxrpp&RqGBt8$UlJA28?I5vv25vDT1s>Rcb>%ptijV%?eXw8+jFu&y>|S z+K`V#3P8YjAhsE*{?i25--2)dEGYL2Tz^_YdO#1HliBDQM9ELjWGVWjuoqD*M#}d+ zL`c&dnzRsHTjf(K2v5%By9^n@;jky=W?SQEJI@`f)@98z4w@mAkjoA#4J`cJ!#Wj@ ze;HVP&sUX1<3eVvMJ&=EhK%9#2zb6t63Z25uRt5Tn@3V_fwk0;7#n9`MKDmbaG$_I z#^OiJBkC#V<_2`T(%6N26RVmbep}xcc?BFDcH_Zal=`-7Tq?sSt2uhzQtOg&_}2ar z;DfT4I8kvznC8$KX0bFXla_Y18lCsDaNN`+5u`x#RIX15=6kx^x4!}&;pY_zl1C88 zHVoQA%h$IcBDT8}G5$GY3Pz)EoD~6YtkEc%;xY?hw9Bnhf-#;rElpA1b04fW94rg@ zv1E)apDe^R=HSX69Bu22oeC+JX?gw4nx}}U%&Mzqk4ACW{HWdG9f`RPH!{k&6L`yD zhM+K2q7M_9_0SFDcRZZFHd`9er>WLrw-n_U;5?ftiM(C**$|#(_sGkLW7WHxaYs-t*E@VBJ7xf(Q$#=#=hw`75SdNNxur7W9MUU1(rWmPDh&x2PQQ7EK7*WGH39o7hMG$jbd5I|e}SlmL5kYuD~IL)jw zgzk%NyE8raR#@KMjmkZyd~|TbGgTEs>_CUuW|is&-HQ*mc{ua}onEQujc>Pts+=4( z_h5SxWZsH(JevvNnP^2ZL)&%C+tk0*IcA4Y z-q&Jh(KBsw!|^;d!fH#UMs{9uS07h?7#b#QeoE*ce51e1 zaU^?n()SLC#jwPen45{6&zzk)scaz8^>unQuL8J<@_X)(TrKPtna4cmauOmK5>Uue z`QL%Vl>!!5RBBoOBJY_F%A1@y4%;*!dBy11{rLowKkLi{*HE zEM;5MgDAQD`Af*j!M`ZtrNCX3AqM70FnB}+j6d7d_{IPZZ9OA9ruxEZzc3P*>zVB7 zu)`=>i*@oXIU9)Y0Xty#z%~ZnKjrp~n^YUJ5PpQs@U54kGC$ESp~0tF`_Qwtxe-~d zys~vLe5Zf8V1wb?ImN@6pW>|&co3`_^~=7O4(R{o2ug!~^p)EoyYeIY&Pt6Jy;;z* zQ5gFn9AV1UTAs!n6eAR>&^j78N$I1@YAFAt`c!{IDv#Ism}cAiFnVTNvGnyDr;_-E zm*5n-i4kuD11>1S56=NP|GFa5KNCpbuRm>|jjZ4fP{APvku*)tw+6avC!H#ZD|gw% zShC#sX(zn(>O|u0H$%FifAfy?W*PL*nq#D_{oJye=kx~1R{!#NXu%7-o7(5ha`%_{ z>{;nwM%j1t?#Gf(ZHCi2Fsqeu?P#*1N;o95^5}-a1qMWQf1v^(Fhp4vj{yI7j7=Wi zb8kOR>-(x-+8-rPK7<(XKmW}2t!tFuLsRGcvQY6#1J06OytPS+rvR~XrYM}Q_jaKc zAWH^0C~ca=NS~fSk;v)~4~tfg2O08SKffCTVygwScIxG^f+<$R>YNyC%w0gOI@Vhj zEc)(LS;98gL=Y0mA-pXht`Ehe&FLS$xitkmhtH9VT)Q8qHnu$ zMU>r<+GPa!j;&d)mFfQ1@Xp^wA+(U2d0ecbrZ|K;YMH=b9yr1G?C2>tPvHID<#UIT z({D?SxDQvnDB}-o+idO5yQ5Nk8cQl4mdo+CvdUzKQTiICxeu&Bw{F#1nMz2tTeQbrKr9eXY4KvoS0iO zMEg6N|0>5X$NjroZ$4`#xxK8uWwvnMabbh+D3It3EGPe*d?OGwBd)CPz&@#aCI>APdU`+v!+Y@ zfo39#BS&6UtVL!mr^IyU+g=*=nuKOD^xwd=g8CJFFE%9wW>YF0{AATFKtA^QrpW2| zPuC}6;|W~UGLu~}d8T_7^jL?3c%PuiMvDFTKN!{pYZ>+nA6J7n#EN^KlOMat;|P_2 z@N6S;j5t6+7T+kxzQ!)cKQ|?_GUzCA49&Y7AQTzeX}8Z`JwBDPJF8uty{!^^_EufCRX$8CN&h;WR3c?y5Jh*+N8870%LVQt zG}V#ci-E`PAQ4dTgNn14IMT$C+n=c>{^iI{v#Z+zwERAQpXf;grJneUFpPx?Hu%Q) z@;03HRN3)i$nAf_n5Pb_ea}WfxH}$FnL+h%yzZHZ0SZ1sVkE@MT^(X37LYb`I{&&qk$hed9kM$!_J5M!cPQ4Z^ zQTA%jiwF_M`R6i<&Fx;+pZ4-~%RhJ&S#H7}mKfB2GUQUqLeXP-3lm@%Epqa@!MwtN zP#6xRe@8(Sw`qobINoYEo_BkPUvTc%0CEGTW^I3x7cqDFmGsM>XsGl9WdBdI0{%=! zV758mjP1|nv}8PA8+^-jZg76bbgk;8zDPVan3wfdqc9+%bo=anrDv-)Z%utX_>=wo ze%q9iSsq<#IGEfVMfoNXT2zDQcrDGl8#aUx-rO@=yTP8 z^#1CK9z=JHU}^a6UzrU5f4+wpj@-O6%6cBV2pzaTvNCD=%~L)+PKT((?B`I%&uiho zIw!O$dF3v!x>5g8?e#ZuZ8xGOmh+(%?O?am-)mFxHV^a48`#Tj-P=mHxKBeILZ*Qy4Iy#gs?IZ=pVL@q=;b1YZA)+ zaZ&jXzW!OSn8XgS&$j^0A>`CG8=Af6A!~>n{$36e@() znVHkf%*@Qp%*;-+)6C46W_FsHnVFqtX6Etj?rPmzRWn_qnNO`xnjh9y>yp{{#&_Y zgA9*CpW+`(t8KuS`1Q;G?+Zi$wVj|zxHsB)0Ihdz1PudcGxZ*_7&d2cQQ2s9r@SPH zV6=8pV9RQUhwoR|ZMn(B?#r2kHwWL@^o&wT%)xmNC7iROepAIkVa3GpUI zYe%or*PkDT9e6EtxW}+gmaU0okIB1MG0IbV-Cq&MkRTVka~TqF02#Z`E%1^d@ar%6 z#5TIYc5}zWZK!fQgo?Wve}8$)X8zwj)q&HsK~{^A>6ob~{DtK`CXS{7?GgJkjk=A$ z&v6JOPRo96eKkYM%L#rtFJ#QVr)duW9lVJ1ki|6|VBh(js^2x`5i4k-NPBYmZ4*a-eY16D9=< zfY+iPCi|ELy{Q_eWLWsRmlnlnuN| zIeTJY%|vEl<-pwe=;RD<<+u0(pW@rpurhI2MK}zeeIHrFm(59XL3N0aZ{@I>PJ)Wg zd=wBtQNj4{7Bm>0*dMbWV>P!QV-I$}NH;Q?-e)2Y!&mF|qyb zh-=sn5-hf_=7-&yW5`$C;M#~DdxFNG)00E15SLxBJmYN!`u;O{2?CD|W6${!@4nZ3 z>6g2jPKsRny3J4h!dAeeU7p&dFGF_iPk`Q}7p5h>^LY;6{XO)}t_i%5|FFW+0sn9J zX8voh{4%~G&!1&}UO1$+DcG(eG1(WpN{E^L*LB}t^kD@bs(D2DGFq6jjxb|Xw7Rbw zON$6;f~v_}DW#)Q;4d-QZ8}6~M&}MiQT}4Y5i0vk@44*2XsVVfzCk=}iQNRndY!sx z6Ml9()t5PLhMj&$w2V@uIts)gHlt;*yECTemrTPAwlSJkrnzcK_F*qi=*?G!ceS{c zKMbAr{yY2WUt>$g?ye6M&QZLe5`7Wo&sH9&?h0?hM)#GT|5KZx|7yBT6>+WhBQUwM zR@%*d-VA&mUT**HcvV5-=R)>iV%cQm{Bawzy)N#xb+UD%<}YNRs`(TP>f)_=H8+&n z39J#62oh_?FV6Js%P<8$n0Oxbf<~F9XRq3nw_tjS!o;iW$?_@}&Omj%hQ8bGihYPr zwjrrdZjvvYhYXAT+`wGLG`)lX^J0HA%Hxm~@8BAtQA~KV|%qo+kiEjQ6#QERS zlb9VX)op2MOVG<3wPqvM8|_PAitYN50}K9VY|c8KL=sCB3L13eo(#Z;#9#JL<_h6d zsix`XMoF6D>eS)zDIm{v{6o5kOIFx>#Q)JZYQv2~f0RH{_-_*+E;fWr2p?{X9*(`)1YW`{g)-HL1LFugOPu!*zUs zisC`_js5xZ##A+HmxuNopvAO4<+Tc$;)Nc63bo750d!ta%cCHjX>d=!?-q6Vgcl0t zwGvmu8-L&6DH{G*-3kWoNl~R8`UmY7Jf?Q@oTbnJg=4} zQvDPmClh6VL-~*-lrw&-cJ}7w%G$7zso39bkpB&SDf95I)J55cWcq6lGo^%XVga3~ z+q@bBd~|)vP#W&I8O}Z+eqOo4Q1yx1Rs( z;($rax`a&P`t5UQG(-Ac8qlCqm_z~zPfGs?Q&(cqA>yL-4|o(od`#g@FV-P}%|zxf zRqFheSfZT#`}`cfRQ+4G?}fgH`xgk=$G2fgD+l5~maQwiSNTBA<@8cyRS5#>r2 zEv^m0hrvz3Ta6@S7<*_lV4g4eT>2M|Tj4LIKk)IGznuBU`hN{C|5rZgzxt+0&0}4H zhR%+586g=)UB-6*O5<+IJW)Q6Bg(D+lc#oB{|SJor^!>_^r9~|D7h+;4d;7U-0*+( z)yP+-gf8Al#rYOq#xqC$!H`oJ^6eMDirrP73?}ryXi7Sf6m1yaWSMuOcNl z>&*o_#>o2x(@>$SvXY{efd*4>N)P(YC&1W2cGtyf*CznFd=9`?c6wCmi`E|{op)3? zhUBB;V9Ivp$kpdxQyJSI`JR@^1s@x0p8yd>_#vysHi~l}Z){&o?H4#KR~KTWcMhZW z_GXsJ*SDb_+o$-8x&tuG@56cPiQi@G`D5-A;4-CJB0t6iuKO2^Mi4}}h9uxsByqlR)k0s5@w%_?H_vWA0iMLZ+kGV{`FfXKU)LQ4 zEO6Z~=6T9ciyK*oKb@(T`$heRdb<`Y$8a}Hw>wzCC&1-F6+L`6Yhy6lnoswbYxjYF z^A+{|+IcweZ;f>Z?g#7T^Oj%n=Gu{ zZCKakI7=*$Ho;;Ci}P#>mS1PiUKzX{I=0bod=DJG{sjE~8Lf7GU`t;8k*Jm&AEuw= zM(iglwyQMr2c0@}-|){c-KakyyKN`r55AiQ|GZ&A_|^`NqVzF|K#}+5jmXF<`s-#m z)%4%6)UPM-j|}j?{NewrhTIn~U!3-P;-VWovJfMRJrZH8_v8N(cm{6TVSBp|`FQX9 zdRYp8E~t5n{DmO?*IQc%?5Cyo$*W$q`j|ICaR{JHQ4Y@hR(>TTouZ*=}7_@66Fe%3z)()2U6^&5w{ z_SMlc())&Y!2KWL&wux@{`VejSFYyMD8`{wc?9`pGDEmwC55^8D#>=g73=xX-m^zw-EhfGA9^1 zG%K6@gF({xo$B65qGIA*(KdR9I0FBUYH$P*#Z zAIiCZ<74~Ikj=391;VyP1@=c5Ky@Qf%>N@^`)>mA@8f2Uba?Ilw*U)se*55r_QmdfqL#;eehL zXXFF1>htIwSv@M7a*Dnt7;Gi~saF4{TL1m{PZ>0p|Jw}OpJ`uuwlDPe|IxnxFSqIc zPjZ_w-1))}6?#y&{&+iJ@3l_eUgb^Qh9vOv{F3c|jjo|Z)1Uxo`K;jeZmJFnt&)zxx+QOnDnF*Dk#BL+>%wrkjWRF)A~TPXMzbu7wwJU?dx?XBOzSN;V}e z1$XcaoY*v=W}UXV18gk-vnqQYDj|uvyjkZqZ{GFVaFA7K7v7(LK*0agoBF2%8|$A2 zw!h_K7PU5THu+mN=D%fNW@GspvUqu+oSYp^3~Zp>Gta$8qW3vtH#$27t$?Mi@E*Xh zY;(~sblq)G&TN?zSjnBOZboc_@#dvqGJ{UNS${d%j0iU0cff%g zb_$wSSZ}@dn@rPK-Q9tnK98gQ5qfNtnECrmGSvy&AZ(>p)GU`WzLHJBN6#`Y!U>sy zsTO;CG^mRF8S@PTwYc>sf$Lk9E@4;T0B=0``w`%Y7PIPwGz<$1me%oB62gj@LCL1} zZC&AIM(cS|%*{uI(#-uSov)%h#*#Pp=Sj$#jICQ$Fb0mT<7d+6M^5->77a&wOi`Oe zbk$MYA!E6lRJ1||!wOj6?ZgvrxF4)WMR{z9Ii_v~H*#;k*l@^u?Dg`h&9ecKp3F2wQ~D%gu7Z=9UrH_NWNt4m_S-;6h; z!P*SIpPH8RZdIjfS#!hIa-37~51P{OzAGFAdtS-u18+$+^--$tzZ-kKpU|6^yBMDl zokZEt)s0c^2J}0~bd~Q7ml1z1)0?QX)FeAd=$)A7HY@0a#TmUYDzkM*9_X`a&tx;6 z;rr~XZhackGr7L(qJ;mLs~&1Y{k$&64N+NJuNZ72ZFyfmtgdRI$TLk3j_bay_Vr*J zV5wx9hs76i%bEHm%tY_Kq9<)gvFxuBL{FRHhidfs?LFNdu(t^Bqcvbfl##v#xv%iv z++Y~bx%;@Dfi|NVC)E;ozwznj72(bhF2Ez!{-*B-6cHd0V=@SO?+<{RZD`g;+=U+# zFKwfAR|s13tLRINNx|Qk#VbsXMVzdjD|ZA6+%=jA@e&c=0ONAZxygxz`&pHUl8vKj z()NG%NK#rL1WJHf@#_!b!Y=-n=hwv`e!UEM(|#<*H(!asmI0DD<7;;|+`l z?8q7<(ev#>|iM}L); z$SOt2Q}z_+d!W>JQa`TUZWJq3Om!%18XHrV+-+P)sS$_yfr$^{m_;D~V?gKB)wz&9 zZ*#@y?|5&iJW(>8h6k(nYc@cSayT^S7?GlcNF(jn+qeR^1fH|$uy5c+nka)j`?2DA%gSO5yqRU?ehZa@t4Q4KA()Hz z3XyU;ut?6NqzM^;i9ys2rS!JUK~fZth9w0UOE23zeQdeQ%7LW?eNuI{s3!pUAO<%{ zy@h~UU5GLnwPuR+eJ84N=26!Cx3f=IR~%L*HnaDo^c>oHl5PRLP(4=yDRAB>34Jq# zlqB0V-UC1V2K`R<@oB%?yr_ZxL?niiRkWYEf*bjwhSFLbeZOBcgskh;4SRKblZZ@h z5yljIp2oOa4^DGJ29Qh)W5tb`l2zkHms8Q5Sz_FFZl!wh6w!-YJE}T5MfG-3ySuLr z?R4GmHO9Wc`qjx)RJ7~!GY?-!^lm}b7b;;!?dM%=2$pGNX{x>xrA`1*($uz4H65*}5*AHKS_v{y& zv8c2RLBo#1`fudQ3!W9eGQYR|?0;dLx)i^J5=awdW=NVl)*+jy0JumySFnm@IBu*& z-_!+NkiZ|egrI8_P)B$`-ofl!4nW8Q@KJu4<5@pcB>#s?Yr^_l#gY9x)oY?_k26_ldM(uqfm3L%+qp=_AB z-UN^DOUD+2We-2_fa_VI-vAkVF*Bl3$_XAUX#_N>;z+8FsfB9TLyXu2L=mKfe#a=E z=00Lz)eSkVpyXy?EnubNTr9uGF&|RD2rKuK#dF?Su2n`KBy40I{y{1nMev(!V9w3Z zdYz96m+K+Q8eZNbX5QXOGd)fI`qllZo|3QCZ2C@LamGJ}!)d;#kvuZPkUvrMJA0Ae zOyPDi7-$iK$7qyuir^ka;Dq5JMI7|@CYKy0&ZLgV=sooLsFGqz(jG-0cETN~eT~6N zW65ikGd1-O&RAwg^=o1b!#MijMi)a4RPY;{oMO}MNGYSf<3tMVO~AEvgWYw3!IVHk zZ+}(&v;q)o_1F-k8ZuM)Cde00mNC6vJitwGp<`Z<3|G=PifeDdW^*8~=tnPp7_=8e zO(irOwW5h3ofNottrlL&R759lAS^d;dnm-ChXfsb0-PVONRLje&Adfo3HIKO+*sS4 z>N9E9OJqX@&r~}2KMn+HYxQSWWykCVM>0yBN?A<-f(kL?6OhbrwNMDb z4@TDbl%*GnnKyNCt4F8-c#Gw#@GW2)tXBeMU$tmS4PZ~3e?;8D54yROn)*9@|D3t} z&+&E?nl2)dROfb5*vluc%C=BaZGjxKEC7-;F}DLPED)Yp_OW8NySQctQ{Di7m=t6N^cB-aVp@ z1+(oMx}EYtNu33Ay$oNk(V=nA7} zVbfb&) zxjQXX3THCQ?%aAZVIdXkrLLG&5Jc=e;XF@if%iaka}&mIX(;Ut6Q1slshaa-&Lz!l zzpaW4Z;whHdS3X`gFFiqpcWm_l?1u4O>o8`AzZQM*mB-{wG>>8BI>&=Fibk^Q!Nye6+N7OVxQ$07r6O zq1@~Oz=59rB^?(LV-l610!tEr1N&H>vZ?SbXXLagC1Yi5bh--Ka0J!-6FZK@ee}j& zi<+=l3K*3NEg$p8Uv5Ls1lrN+E*^A)z@gquV&DbgPCrJ@!+QNG(=X#8wJH>eR>{QX z*m3j;lv*NF5mUjpu}KL?ic4r{`B?mdRQ3;#YxkI|$~daaqT(toSY zuw$>Kob>8;idM90m%Vs|6q#vWCe}*2XqGNdpow1M-d^C8MeZ`di}0X`ME0EaJ%A7q zF%OH2uVe@F8(5T8q?YYcjQg2ltVb7HqgqN>4b6=MihxFm#u*Ww5GMK5*9xLIl^xg* z*G?TLag>tfcTNW-g0WjH&RlR9%rQZe!RV1XPgZBIDYvl&*!`r()0Sir63h$?#jH>V zhe*g_a${FQgPI)JyNXgM%iI=SmxinMYiA&G76H?NdmotZtScjOsSk6%Y|HdmZn(#C zgePOVaM1#EV+@g{=!%#KiDa)7u!j|Pt0d?7>H1#78!o2`%jLmJP47u}DynPRlZzFhX#R*h{qdf}jx1FzyGOSlp0Tn?+5?>}s zJKbR$jGJMvO9#3T_R9zL2OTk5ve*J*v%bc*3MjgYRGki@y+&6hYs`_x=*Pb3Z{z8} z)RYzLyXSsbj@xC6Q#V=6NdlKK-V$`0@Pxpfb-#0&acwFmi-_K;dy1y)rzf2?pZZ6m z&awQ*Egzq5s}S-Vz_vy*7AYIQo{mE{8SKVBG2hRbgDP>n4f?XVXRSf}aY?XeQ3OfU z-hozmg&ukf7~PV)EcKzqADorIeTp+SFnea>KA|{c1m7hhT01W*lcCg}*qI}^z(poa1b#D?(!>>~hf6uYqh2HuWhas!}hZbPvsoBYfC2Laa_mCJ^h2a|5dbx9()LcqlM@Rhd@ z7!#v!GS6qd-sTQsiNjn?9jtcO2V)==5_TD--GkU~d*n+1>(5woC})}l+*`vrDi_Km z?@-wO)Dc`eCRulN-YqT;)v=I-7O^iv0CL08*f$b^+-+FGRimnj~;5$F8vE%?rB+tyUWthUb zI44kHwxlBO`@1X6=3;dYD-~jv_XH$nmvG+2$Cbr^ovfHfgh+=2{i2ET#9vlzPMQ<} z14WsDi1!3CNnvife}hQ$03rP-#0NI4a9#}9FYn=o*rEqyApEA22SPF&m`y1)5{Rda z#)Od53ju~sYp0(ygp$ggD#IN_-FLQ%A7O$a4F^w{<3EIKoJ|0a#Kz6YTHy&_n)_gT zqks8o-60TrP@GilgJ?4Jfw3X~%nvZZ{5aKK z7T(IsH+6Ofasz}r#XLp|E6aoqKr$ErEjP@}W!~SMnOHAMBylpX{i~CjY3a+wd^5`m zOdI8v@!7$>YNeUlk`-@^MNDZB3<(oM?|?SV>VYlnqgJH{Ht=v%IppM$x&`5xYKI5= zhvyL;-V`%O46SBEm41rhS;Kt6Sf!>K##CCNcxSOnCDY|zndTu~dX?s*?k%Lssqt2K z{=Iov7MjL@Rm9>%wrGJ5q?_Z6rz&pSRjiNfjAvm3IR8dboj`$k)~14>NW241Zl{P* zVOYFhDp737T=0*;Jr;0{8b=vm^YTd?DLF+RG>6HB*rRIq@fB4+?D@@?YQAdItien< z3JtRAjuzvrfy}OQa#evPb>6!&g(i?&+_IBSfk!7b8bQO?2Eb4b&e(W%LP zlQmoQku#Vdu53#Z%h zk|<%%y4-gp*IyA8EUJ>T`rJ{`k?%?s=K_{}T+_z0=-?W}{ zKLq?y`;H!iyzMz)e_IBYgWPSa1bCo+BK520$)4DrI^^+$*wip?o2i<@Cd{JDT*NxP zPwzxeLz?QwCi3!|TC^>@6!1)0NM&SFNQa@3uu+lg2^f+%Fy3Y?+1Z9ae;om$Bn-MK zdZGzJ_qwZWDkv(pxDFx601Tta+@2v(Z^K)x!c=8|NltB|;+L2IhH`oNoOo+lP5?{` zb_!7sQOMzFp^53<6#*(@(X8#YHBK+l2zT2NK8r^99iHxQ%&It#0z&5`*K>H!y(vam zc0N37LPlq{FmL#P`hZ~sdr6Jv=e4n(V2qAXm`gPO=6BNtnYn3g5)JQTk@)?tS5gv< zFivsXX7M^I_c&v^c6Xs>51^dv$Ij6gX}UDWfp-V_H+ZCOrY zuAb|A<6!2Fyk^SP-C;QbraKpLZ`ILN!Z_O;X-VJMtnEukr$-MPj9LTFa+c zXLy`SrcvuWo=_pqc_68JdDy8~C&`dbqcM@X5CKxo>`hetf-Y1mw-KHZHSFUJpZb1-1}@KX6WQoUU(?+Y_j80?(hl`xVPPcEAd3%^zs># zSK)d=c~I$~qE!ywgKnWY6m4Z3p|NNk6S0*5t#D1ys>e-|vDFZ5PKnoQ4aRYG-)jbQ za^p%kK$7bra+7=iMnk{S+GW(B-D7BB8O5-xq9H)^vKTL(l^;Jf zJe7{=!h=C1RGqtD4J#_`H_3-9kU!ro&(!+v3{sp`uyYY@d9CIYiv81pkq` zi)eWiK44{<_WPxC7x7A+zo~|xUkA{EnLx63y1^Y2PLZYYxa5Me;=8wf7dFw4q`6RN zDqz{ZCzW#%cH!#ZA8i~V-lv~$o5*dH2!U(*fcemH8h&Z09}dt63*PVM&J<3@VM})`bZ&=|hv9VEAJNW2d+D0UqAP zyxCYrb4&mf3wC1om^mJm;IeNnC!(`*6s6Q?{0->ouoPYPiY%%4g2CoLlj{)aC$`Fz zSqkrLth2?7Cc4WsKWXCvIASrNORgM3Cs4mgND=^H;0E^Rik9gGmyDA1O0Zd7z!s#|zck^_w* z0_l?9{VEg_(xKSJWB9kE18bWompeP~@3&vhM=SnCn^#w}HHzh-2LowJXnSFX*v-mf zBH$qKed9 z({qDE+uG_aA;}TJ6XPQuOq5hvs)c}qt(m>esy^5vy6fNX6!6)bi5f}6+i_98W>Ous2CKZKUW+>176`;dAu=PF^0(UlO- zOZ$ghjGZov8|sI8*aSAa_K8tH4s8Q3^#SHuayL2q$~F)Jw$+bDR(5R;UiI;9DEZ!P zMxI~ia7!GMt0Qn~MRU&aeMyerquFJu9h+kvLCt~kWsyUnfymdkNBs@q)S}_hoSGfK z*D(FOpRT;;ZtB8IejkaGWr2hlxDRYrjKubJ}uQIOiF>kHg$V zdRaR<9cGZcV7M$kZ&^Pfw75jc7X)A!fRTnP<^Vx)P&!!>af0YUgBU#Mq2~-mW5?0N z-#_1H$_u!M0+}MkA%_O*#N?F&`;LpX93;#vq85?lI*R2;=>Wi# zNUBC}FyZ=L(?bZFGJfB3H45O`m*8THLX8n_Q^=>l{Xm4E1%f0cr@`UubT=&}=Y9et zKI2J`X^m`v=@!cT2P`1%-3}WZYCEK$t~$mVtw+6fVl~K!A~Yp?gohX;jwE-%CUtnY zUZ`L&HC4I|BKYcedT9&fkmujSb?+7#m0 z^6z&GjKVqBJ3h_V4(B#T@eX;jn>*}xJG9vzVz!<*K|(TG95Y!!8zT(%I8~TbQds81 z;wD`cX3DaP@QB1_Sr3r}d9#<<*O%KDxt{Y5dR-NF4f!OCM$p-ABAg)%PAJp>A4CHy zQ3%0}t~#aqED+arq|H9#ME|V3S=*TD{Qe{?Tuz7Yw@jO~@p7YiUmF5;<8Rpm*-y=U zQk5@QS6Y&?BS7cO9Z!MbEWC3`LAgGU8NkCdL!8j)7a*~C+Ty11et~1{f2a>G{1xLs zL#U@-_yNdR>1v+`Y%G(~GoC25cy7TvGY@4c#*7vl5TF<e}!fQ zd>6}84td2f7|cvXGzeBps5lthL``e73(v&rncM6X1q<2HzZ|;ul|>6c`J9e{^(ST= zxJXn~C83~a9wRjzHg=fwO&b=rjz%@?!&X@;G|1CNktS^ri?|37d!CgDO-jJI036vn zZYZz_{lf)vDA@A7j6)i^`yN3(fHm%>X; zo~QQJut-h>$O3XZn>uP#2qacyj|ePxq5?b|!1u^3h6t+1xdf%?38GSxX$*lqOo{qj z?LfSl1MUeH1bM7mFvZxQdR{1DF2L`(An$BUu>sQp^_Thtpxf0)_N0Qnd**}5{?k(e zw72bIpO+BCQ4&jJR(|Fp1pXg9BXK-E$l2k5*l~gTrLtd`j!qJCR4=w6Lh=Q7+yF| znU^y??*O=c%jWnl1HqjCTK3c%80qp=hLB3}2jrfWH1fV0gxStRr zertsU$127fRjfpC(1BM>{QX-NGuKz1Z1!V=GKBEH9}ISVh?IruwSgvAE9vJZALhGWlNV*@|X_mvWT;?@`aV$O37OB_be!c6wT{k;Rwz2 zfh_&5_ZldKLaEhq_(gsAlIhmAXc{t;$|q9mz(SyO(P6-KTW+VuZQ|mWP+B>K8Fv zTzb-EWCA$uTgR+u{oB}pcL~3D1W2BgY%E~i&AyHZ@peL)l8jvg8@%Om+qm>n?K>Trl)=D~ zLmdFA5O5p2hU#ur&d^BRPP_H12g~DoCbdMjV@oD=K9H{Dh-HzOc_H3pvGFmVc4Qpr z6D}r6;%9fMW=x2KEyiHiX8} zEFG~iphYquF58?Osj*2y*$sq-$4|->sbQki_pvASSt_Pa^^0!s(KReD&q8eRhj}wf z+R0`$-kNZFzEoj1mcdfB*}Zhc1bx#;1b~ZuqlR-KvHAPw?-hy8YXsRJ2%M_@Wc2wF z25?&u(ITO$q_|Q@)!}{46)+b`a}#Odu+G#H?S{~IR>$hP`oj=YuAHjM*@Jt#Qpf6; zFqJzIN9y+_InQRZwT#Vb7pF(+D<4HB(dW5FBm2;~hQzq#xV-7M>4O)RWLFo~73Eoe z-%q;Av$_Lc=VYd==arq`TkZKMxFhAF6v?hMp?m79(+(~(WVg++G>fzYF5 zsqJ`&;#n!(Csl2rfwpLqNG#&)^Yj{lr-V6N1sG#)qImju| zgT2FEH<_LQ>V&U9g}T;09tVG*7)Ysg{ODNqgjV0Mw1z~!4tb>S<7^?`+Z3B6$M6h% zNyST8T>DK{8{a#w5H1&Mx)=2v*71!oe3ccB6HBfje@J*`6e>WXakte0T?yr1j`=#{q{F4Zrll#s)uOvs^~S*f)-x!jPL_m zr(3w0br|s=lBC8~XhHeI>k`)~l!lo0S~VLDRJ0k0K`xv?*imDq zL6#zsN*uswB!=YzvzqeD+QOm_l$LIOS@juUwJpP%A(4Ex`ub7Yg9LT2b-? zS64zWc6cX>GN*nTNDMQW`s0OV|6}oIP)ENydJb-?`U4OvJkV>H{I0&_454lG zTe?fZE;Zef>i5buvxX1%gO>Ic=Ic52EOt9Xu8p{M$klytCGgUcEdLQRLBtc-H1ICn zOo=i%t0I^T7R$jGF4l$@L{xjkZJs8?z>Et4n5E5!k6?umT*^|}wh| zos=IGZJbDhY;@trCr+Vq$U(6+x__=k@j1Mi3|N z(UZWa^-GPzO@eOfGfgxIhLMC|?-zl;6s)-P~Jqe(_qXF8;AGFRq5GKy>E{ zpVhaSzUnM{7JW{O7cR(=*~Q}6>i9I+^)uf>Kpu;eFdF;AGDMX1=>bD`wJmy-oBFCm zhEU8}XQs~xH-=5g+9CDCn`+hKl*|Ic$>1nNX}Xx)3WT!7q)=+kLuI2Amf43W<=7u7 zPceigEnceDQH`=ICk^Lk(EK2{;j)%fp&<0w^le7g0Z z?u^c<^GT_*n}mS@mb>nS9|}b{L)~Wo^G(AotsBH9?Lg^2jV%74WEL z1W~j*QDy``WMPy_sgu2YzYV3iym6}h2WAeN(_?bGO`}*oCPh(z<_uTQKeD2VGNzGQTz|;DBwxO$!*mEJvhf`$a zw`aw%rIHs4ZqT;u?W2!d(-;>GbQQj;BV8js&v+*L#CV^`$!iJRQI!lBp>zn9A|z(S zvQCqa+m9z=cNyhLj?$)#`G`RJ`sjj#X}#mQ15EfN*Lt}JYIIZ=y;?CwF}-8W(G?GW zD-WmRWO?$HV7C_aO2BUcQ#d)Q_}&MPgiowo`I>FC>%O->FRv4;t#4yLebe@x1`FEg zuIN;f_op7|I#RzE`a-UYp6QvgC#3j3>zb_DG^wA-omz)Y>(CxJ*`_bpwUnoP6K{92 z&F2gG@Ux<6B~b!yFu@cF7gnQ-n$}yt5{mPGNh_e!+G8~z$4ULztqlyMe@yNs1Ck+6 zPHaRGwLBv)nhXN@nq^TNg4)0Y4PuCpj+B($GijmQVr1N|gl}ONieA=c2s}6Iyz<6T zTt87)8avJrk2{pWkvHkie+DkTDZ6?>;6chE<9urW zm6zs`Y88H2SB8o>odl^EH&%g5;d7Yt3$SJ7W_a}Q-s$*3UNtJX3>a}4-W%L}x z+q1AN#@lm0q!5cNwZhGxvnV|ra*unR-1SbRLUiF3)vvL$BVzl9Eo;^&W?8AeArZBx z43Md|usUO}Wo4A>`u0MN5j1=cq4FDOuTr5}I-?4ubwnQLNHZNMAg7@G7Kr26?iVM{XRe^Vir>Y}MI0snt=!ChTP3#2UwL`&#IpB4y1jz=lgkZli*99XPQM zFiv)Pjk4Ji8$XFk5VT*g_bY_5ISdzf9y?RDH`3Sbs!r;kZ54q+sS`l2qXUEnq~wPq zmMmoBAp1={t_~$nP>b~QH&&3hKap4wRs@ys1)A%Y28HKs*-gIzC}rdzs@6@M@LVOA`q34X`2=@RWOyXsb6j%X|Av`D|qEFp3c@70}R7WSYONG^Y!gRZ1 z;#5eZxh{YA)=3KuK%Rd~W~Go~={D&(&l>DG?MT5uSFa7!74Ahy<4?rA7E`~I?12mA z4f*l2PaBqa;Ua&C98-+6CGvZWgE3O?-j%(vVrW@@!YWv-mT^ks?7Wa@-uPprBFJj0 z^fCq+EyrqgChVou^A%wQ?m=L-)yloSyTqamzYrYd8*lIMBY>(c2z2#iFjcBdw*Lr7 zIuG}EHrDUTmz_+nA?c^s>V)c2M>Ryi34Kx0DSbtGz}n;~5+Kw*yR=;x5!0V2cI5GL z+_X={{3-8ipj|Y3bUj@PS7sD}Qdhodztsdkklwznt%@X4zk)-3ge5XRieZ0_{k-aI zT%ZR<0Ca1-+njG~#Y&eC6~t0T{(j*8Im2eP!O;QVBk)P^z-73;o3seFB2}KtzIjID z4tZW){+cH{_1N;FmJ;_H?MU~i>SMuVTwEy?C%TM_-@{1b#H`rVjCF`RhHNt&eyUSl zSHRufkU9ZC;}k}j&k<+iEw?wH z?c*B@?6-XK4o8+6pErLjbv2{JtrY?Q4u-^BWV+;APjF7dxjPw>oL=laEy2|m+*814mcmR2N z!F>66TJ3kFU?7dB0(nvaXJ>WlGs+nE-L4_yrR*e;unD0m$B*CEM8d^`|jz ze^tGjnh@6dEW-FM`7FA~v0@y{$=EMWwO*9Fa812=1{b_edA(|EUDgIYSNkkNfw!_6b(|fP5z_+Y})!?)G`suD-#4BLxg70yA_|^G&FuQht!<67-ntX`~ z|IpbzrL2*{w>5QVc$4HqYL8!=leVp_>vOR7)%KKpRc!BuQHbxf&C_GOvFk-6MFH8e z4_*Z9#4Nhg+Ts4!Af#;}0-&Xh4ZaOe%*=CQtPvt z8qX~cn;Btv$m{sps|KAyP3z&|k|;Pn!U^0czV(1q+MywcpXeAeCY8NO&>{$JeX6W= z#oatIQUte?YL{|TX-AaKV)w8Mlxr!Pfe~bg)ff2A3?9icF34@Rusi9`+BKYHUKp>}k8wuIG3?8E`Nz}f>7xEi z#a8hFM-`rPX0T8}Sl`E!jnG0$*GyGNkAd>6vHOXxw*7b&>ZK@$Y)F_0om|55$Bo9^%iGL2Dlx2yO@&YNB^txO~#{t(TEOfZQ?Dy>|c=QujB{?&fd%iRk zo<1e0q!gGeE&(COjBk{UXhZ*I3Am&Ch@PJHdxya9^h(rp@5T1zKz2wc!s4|3yi>jBt{5-!{#yzt8quwDJvifL<>_jN`^HL?Sw#k$ce=19AjtIk{ z;n01zp%8G4dNk`mOyM5T04FAL@VusY2V#1(m~Ssd>;jlDao=u6PAlUILV^;J88L$q zz5oqYWiiDGuR4|T*u^9s&a_8nJkXHBZd`V)i?egKGq%{nl}Eydi4<9j5qEuTD2Tic zMoZJD49_NWiW=zRo204xo5n9r%$FO4a>;abURUp+BB|X&T7rar0U+guj+gcL7G@cT z)Z$>4=aj;f1hFWb&(>E-t*h3KnQn>Hg-DMysprXNvw2HpTf>Qnc)@N%>6C(fAy@uH zjG9ukXQT*dmY#xClF%Ufr%fjyL29H9a6^5;Y)wA|Bm;rpW8_jg8L*H$p$!G`yIy!D z3AG?2UE(IGw<3psA=;Kx51;Po*po$Sy-QokkeB1h*=c`4Gks!UF(n#Ajr5-P}os=aAm- zhzd*$376aem+}dhn~CjJz6qUU%Uj=;rV@@gVEAW-5)QT1Xf|}rMwAC*J&IboYd~$9 ziQrclM;SfmvyW@8#(7gcFT3y-^0Xs2@uL@IN4==)_;+)>72)W7mU7|$u_!aUVSh=d zq<&F%gdn1c4g{#HP*3qax#0_Za%xlPMn%>AtMQUD6NUnjnUWAMSl4$Cx>nMa)xGL>OlR+pA z-*0%S14jaqY-0~5(G>IJj-(_zS$h;F=?1;f z>KamGFU`bj8**bD>Bb~8Jo;F&jV?AoKrf`4l?YbApOuIvxL8%^cRB}d$c;dsmnuRS z4`CBRp&_*UB;MYqJVI*ftyk|b}W&du9cw+h!(!CG= zE`Pe1Xsl);lxGmfIrp=FQiF;Z;(c5vX2(pGcd@20#6E03ki|x1MM~M2LdBaS!A~3+ zp^+kJ*CwGAyj%vlEdF!VzVTjSf{D~Wo$pGXKN?6P3?sOps99j!8MJsf2tODTEWAKE ztQQfdDn4r=5d(jBQ`oE8HT>yTzOQ{NF5xh+< z|76Ol`L~~TSqB21v67!FD#I3noQ;b415ResY7(=tp}i(8R8kv0(+kSDivan#k@5W= z6)7E})s*v1dbayJow@DAeU9b}Wr%|w1JjkUF|G2*M5T<2I{&={v)>-v0)P0_skm!~ zk3{1dNvIaa!KxZ68mnr#6TBf678emVDrQBDHei@19F~Rf!S`tpR-AK9Hg+`2T1iNh zP^887X<-NPIX~*JuUPBV7}rFvuWNug1b>%W>Ixn?2a&@j$j_Pon=0miZ&kEE-|8m= z{$67DQUA5?xa-g)0`|h6k_T>B1pNQ&@Yj^{tL?d(PhtYo`zrd(*i!a)X|ulMytZey z=XrT&SD(_9=Fm5OxANv?+WO#Nq(W-qQ3{{JM)?DJM@@EMUam(eJNO?H%j03em@}ey z&@&Toif%!hF{m^IOF)J{XbwA63kd*+&mMwwv=S;0yrJVzU*vHzvuig_krt8)rEEJy?STgp2-L9U%*(qHq^x3 z5MmL0HL$`EkwTZ3iEdXB63F}fKotA7lih;SESQAOjKuyxfCa5frEe1p!Wo^qoYNAo zigJf~rhrt0S3wz{MpAsB<{lX zq{3i~73$%^%Jzn9r-69;s|t(ohw;|smYL*O?~9uHe^4@ed~34Yudo!wB)=uqgW^h_ zZI6p_1Bbhss){G2j|>+u46Q-jf_E8oPFVp$wGdpqDf^4@d6^K%MW-IBT)uq1I4n4 zFzR7d6mw;eXuzzq=t&X+p1C9}8|Y{yk1AJ+bSc7mCCt^Ro;0vAQ92OlhxCQ`QM+W# zP6AxKL_1^unS@we>JoH~DBOX=Byu4)O z>ihcWuo!X1y)L6(O&(whqh2XPa;DRz%^0i}n)SvFGbgy=jCW%hgchdW`Q!0TOUGoA zDL7B{WMML0ePgHNbxi-d38pjSPjkx^HlDar}l8W-dJ&r*)f20t+X~nKyQF zaq2JT4MAx)Aq9x>M#AKjbsfOq~6 zw}Tl&bPl=+?d02sD3;ET%iSVrP8mEyR$!Pr*E&q+;573+Z)CogWM}XX(Bp<$S`{!m z;v~{ZCDtF4>w?1ETyn4zSQM1a-)a&pic}WF1Nw>O>0?UKC9LR=kP9F@ljG7CZ=c)Y z2+qeACs~`8M*sF6M(T$Qb5yO(!J;SOW^D_9+IpVbKuBDLM+@ft8uUt=wN}3BTB<4) zxhb|9LLAL1&{0rUAGT7QwH4nOvlHtERpk|UT$)=X=ja_ZgZr7er4qQj8wA$qFHbj; zi>IkF9XL-Y2&|S9QwF4vE*`(`m?Hr-H?tYCkGB55o-EsP8Evf4CrXR71)XQd0gaNDCMi$!U2d@?5W;bot>C}oV5K}fT-CJBn9;9b)?SZ&}+OthgBSZR|z;*5Wz zmoJ?--_|7x$q0HuPNmn`CZi4su=k+2F5%;z$_3!Pj46uXveE=dCq2Jn41Eav!m=Vc z`GvK1aNe;OKi8Q%=!NDK%)arx#C8jfO5KOLS~hQKId~q^qdd@pXtPeRn;3IuP}H|{ zY!IvB^%!g^bPT~r>22EgmdxYYkp4RD3ALfCi)&o((Sz=f9ypmC{oC86UwGEujS>_AX+LO}pa&`aW0 zJ9!BzLv3seXa#Yyvsp8PPKb!k3p}>-T=$cV8WUQI9Uw`F{mbLXAMa{3M)X#pTdb#K z`gX-n)oP$mbSw*EDJW}Kxw@Hku1L9So+(x8MV+H9)v5FXL+ty#E1#;yjPFv>v{TzI zopfq~87SwRDQ%Plbm>s1P9!$>%8l}SbJdr6F`I~5(u&y z0S+y$JYiH1GprE}j7c#99ggUcYKr}C9Nfq8frkF{j}jNRtKu0$42}E;zx`kLd;MZK z(GnhA&0M?&F-BU?f7`PGWr2}&u{3Wf&)LPE7dOkotu64Ktt?G+i(jp(5=EFRAK3sr)d^zw&mU=ag(@JZRGq;6^Yp1ub8Rj5uJ#c^F*fb_wk0JV|yyc`!Zo49N)* zc4NlA^cX+dKVyBIY|)&QTtrANq!h()WQG+1uw%^7wnP}?1q`TA24vQ%e=Z6g|0B(Za^XIeDErM@hpEi*-kysXNrERt_}R%hMi@$_B4bl2gBUv` z{j0f*N=yY5LFW#e{M5Gr4Nn1!O+p*s{Lc&W*AyT-5Ey6@TNCu1XhzpGkxGd*Ao0^I z3zVTMlnTTB0;r-@E5uDcrBtznrnMojX_Rq@&2)h510F*EUp0{b5V?d@@&Bt?!o|YM{Qqc{Tz97J@bn28gUXZ}mcIvqzqBdtXqf4&%x_W!Q)|&HoJU$g6*!=nE%m20chY*;9 z8J)WUKy>Ba>f--N{760;@y{r+LGWc%OVe;~g? zBMvub^Un7Mw-ckrdJF|vw96o!<&M;5h8|-}~y8ChC`obc#HhahKi!<;t<5a)5 zyJiu9mQ^B&IKNXO&AQtG-tbch8K))D8{PaL3(kZ3;{q;mXG-fdn{@PNobksz^$( zz_Crm)c~rDX_ULU-_V=u`|7?Ca|2+TnE1Bf^()#j=#fV|9qpi4bZLUby5z*u`2(YA zi2*mf!W%jl%h%e8HT7X2)P0%(6NjJDW5oZbdxs`s8 zZ&&zIdNnyxJ~l5W2mB?(bL7TEj#KOTZIQv=pai9Y31wJ;lk)IdCsGy`G+2fuH1wY| zipH}o4ILjNvn(h73oL1&>%-_L$HDvpAkYB~HT7dn1f$0h>Nsb(8F^Bq2*7v?!|JZU#XX3#64a1=Tka0Mf8`l%Ck|-wQ!GMmeop7Huc`sa^aV#ec zIm$Lbv8o!G3W_&lpV|fg@(~TRiyAlg5{8i*rR~V1#g&i z1c^cg0W)qWY_EBRO=i%89{%UTGSg{6nH;fA_B@#&2x30+RI3zp!r^eJ@qM6*0QnLN zHPLe0k)22l(Qmv(=7^uEj5;}g%ksyKig*k(3)YBfuz6n_gb_EGvRVJuboLz)&g?o^ zp6zYDHIz4>;JW`ZM$IzpZ#Mlx)2p-zz~E+euP#RA{T&^gKS^ytK2iy12~2w7Ers*& zqK4=iGy2mXkSvG`QeblY6^xxFCNP#NO)nr1Yo#{qw=vG07ZpIkvCP%R;0s>K&a~o% zbyH)`r4mH&Xma@9i_`dTPv@2{%*gZ}jq5NI7ZJPOwAH6axpW=rzE_i>lFORE7&rXIvEf%<7N$#Ssl4o5MhYiFKT0q31E zI>`&e5p}uc*gF+Aki2Cc3|YQ+fAvlO_Ogt7V%6$Ebw|HXp6K58=w~gtM2p$GGr3Ql zT`c1HO7F9Tj;UJv$7)PSQg-hEcMM5?I(|}L#4-%AubjS?NN1oYehBj{ym0?_)W`bY z8Aj8m^!Ojz*dIsV<=XG-aOtZlmL2oD=A9Qs297?l1LR)*B|uaB&fiV$rDE)uSzXK~ zeR(E*f(sYkkq-wB4m;iy*+*nPd5ThV1M@jXlLaD#dgSpE94PoC(((#7iQZ&}B%Vb$ zd}U?=IF<-R1FYWm|it@H}$z z0Td{0HF)EK8(h@{NaP=X`*Ga{c5@;svKXk|T`p=XNbWNSjlI`Ac4GxOp+m2B^Ly(?7BKJ0m}`Z3WltGgf8(Lc1)zEZl}E9>g%U_R$_i z4&-4KBBwEM$H=wb-M%j0GhOr4X1;5rb+7#zOA)-C){)JdVd!H|=Bx836Y|*1$K&+bvOHF>#Rk{ z3xNLBrMIir_rXsHli0q6oE?(y8CJ5h9WFv@y;Pk~o4U-pY{r)W`&nipRXwe-pAj(-~yJ;+3GrBm5O7_KMuK``u?Gv zgO2;t70SGwJm6OYp0pOlXP+aERiN{sGzLllGfeozm5%Z zsh2@hFbL+J=Fw1vEUxkTOHS)JN#G%O1q!L6eb#uzGW^1_TgD@nj>A2;!TqNW- z2dVa3SWIh@c`Yb1 zBaJ2GD{61NU@0*$fBTtxB0^aY+kEJSvqC3Sj+>)~X66*I6&V)-4kh>uS+_Glue_O4 zqy%S1;2#N?89~6C>azI>LRArT#VwVTYk)(B{H|!GXSmK?-o=HuO>KWtDkG=oyb!>* z0!8|VUuE4V2g(-)N4*% zh@&Q_W@5CT+qdtosKH_x4gY-B_92#21tux;%zvLN!pfEnHGOBCa0_~~Pch8b&}=dj z@YoC`z@~@YgeIlSG|+)Sk?64#tgP^Q$i%;QB}%dqb5jurGO=ZJpx6-0^FM4h>u>6iO9;_2G6lJ-d@HY95I0cg z7CN;!9)bj}SvXvt#Aw$aN;06XZ6#jXP?7M;&YYpAc~pXwo-mAPBJ?@eQyz4IgIfed zyZ3}J5kGqcL4eg;cfjbaFMN-=;L844@a|8#|t=T`>hle$x)?77IAf$U_V;Ct3juT>h+Os8om@} zJ}xbnnpx5il}w-Z?SQiX9BKG?IAS)F!5c2kf4(~QXvN34^3#;wDLg_B28z$jfOAmn z6YGn;a4v_&=d&m3oSeKC?AU#ntdhObF?{J+bl>vYrGONPt~w7|jd)Ep zt@&yBkU?W#-xN7<1`ci=ko@9L>e+;n^O?e6S)!#5otjI$>l2Lo)F2% zTX>R8Ay*G*CDE5!8;L>z+SPzV3%j_!^?=DT{kIWcEPfLLvGQ0D$;cYnb<-JAqAqyd zT3q9=O5~kd*NPLO6nh%1vM(hTUO(j~s04)huknnrra>5z*(aiTBsmJg zFh)@@aVPizsuHCZ0d!=m6o|ODV(+&YJvutMtP*3-bo`Rlb(nNyfXyF2N)4{RMhAzS zohgUU_${dbPRLXz;LAc~NM*^(m5vuh5Ibv#;bH`&E8-Ztsh2W0?Ph0lv)Y=pS@?iy z2rDeHx`K81X5vx>Mo^HmB{c?anm~)U!4~jJkF^HLMoTihux@c%x}Mx14gFv9q7ROnxYmW;vVerfg? z4K`Mp`Akn7(x|hJz#ti8ib%Z=i_s_;`0n;J9i9Zq`wZl_1V}X1nTWm)t%*gbB4Ua} zk>|9$dFCOLjO@S(HhX?%)!Ag{Fb{JJensHxC4{Za`F85roRM?YXXZ8^I}8FTl0LyT zjMdBzSlFQxWRU~TkvyW2GtQAG`SBH=3O`hHa&bO9U&u>DcoBihu$Dm+hRtpopC_f4 z>x$z$3dWB2^gO6|N=_4k1$Q6@dR2)$Wes~F)ci@M>;g5-lXtzUow=_?sA`<>QtMwsB>lRFZ@FJ8Cf#t}#M$;N&*l^9n$a=;MSJ&3IJL~(2!zb( z1zk@6VN7Kr{pAGR?Z0KauF@}D0^=kGY(BAt)_{0mOA$~GP_K~q38=NAVCt$}wRSgWeiZ70f55O0}3&)lz2B z>9G_f4*5f4xw5$jKn~(q=!H$iKd88($R%qwrg&*ZykiWoUM4Bg6Z;mo1RK7|HyY%s zeg#OhHqD%{K_0bWF~y=N3eEG0tSS_a8kj~N%=|B zs8m+=!<bQu6)HUklgH{MGm^f{`u{qRutF27z2jynNv0Y?U%lr zE(<^>mh-$}ifr6eSqwo7u7lVq7)vrSFVfwikdXN8G14`1ajS%0)e6L^g_LGvE=*EE zbl#`qy3_cC6&JFjWVH>yfI~?~=dg-fX4N-`%1XrD)Q3=W_ve$*l8jPPgLe%sDrMEv z5;K`DbAr~HCuA^Nu~N&?TA75H#sJ)r)2Pp7P|~7uL>6j}4d_Oh1T{{jNV=e;(MD*l z8Hj1o$+NXXOp8$Rs$_eS47tK3U+P3Oe)xc~J$mecHIwRnV8`{w87a{p+Ami8TUcQY8WT>p`nqO2D9qiOy%TDsxVfuCbwKYIFvO zm6Poo`{wbB&nqV8^-`F7uwE?g)0}%KzEBjJ3tTL2%R8z$OIVjL6+ddOaeQ2L{&IfC zZKsonmty{VO7Vi*Qn7L;8Lx2vsN@xgmlg9IXwN%Fbg_WOp45kR``&5x{x)5TOC?fM z>%|Vlwe3r=*T(U!fWM;(B`Ouq%P zd*faE0@^^hKeDIto=v^C<%Xz=fZ(HiB404MrG}>gf@f5lUe9xJMR#R8K9mCmxl$!< zaH%dU(5if9T5e?`!gd)k{=jK@0iP0V$W#?u7Bv4s(=sT-gH$bt$_X><1^f=AFdEhB zrv`~|xRImR8U;^8m%6M-(x%ExI`0T7D1ahv6dGWX)<(Sd;F z61Kk2a8xU@#p-S=7xD!~lSA(e~_C76F)_;b$uS5mqE+rArl#Uly z-vfPU*%`Y~+haHWZ`cTU@&g6BC=src^gurauJerXwL@pIU+PgBH2J;MX!bfI=p-oa zZ<+k&GSG1bc*3~w;`@anRTU%&tP4Si7n0(y_fUEx1Y=1xaN>kO5W}L57rSZd%1U?} zQ2t19s^DR&Y6Yd0k{Zj+bV)Tn4})Nr!T7=O?6ZzMMU*2RW45TLjqa>g;v+z{(r495 zkW(81QxRXlqy~d2Ck0&BwqJ-f?+ucSWE?c_8#}8)Lz2Qiok+lDy(<%^7-!+aErWGf#ZZfsfY9H??gU z5)L+v_%A71SRg`C|Ecq8P)kG68^IMsTN#MfN{#bM5sViE5gMd9C>PNcOUJ<^X17W@ zN@JR+xZWXuqQ^XYYao%o-#I~G#dS7x2Jj*xutkR82NIpELH`JoRw-MQtqM_o@p5)u z@(XFlt^I!19lFiGpa!_8ziji8nD#Jl?!QHh#gq;mJoZ90>R2|7kU}hN_S~pjhrX9H zpjSQft<^F6uv^R9p3%n7obVe$U8{f2F>#lAN0g%)dxM|iIA7MZ4ZoTgdbInpo8;ZW z?^;_?O=l#p4h2pyY4ahxaD-X{3e?o}ffTUW-^va*kL!E;GZBI4^NLxdjMew$LBW%# zlZ?Q%M{8Hz^T|Ky(}Y+5dBhiTT#TU=q_w8To##k@1qO;xLGRxvsDP^sh4{2m%57oH zO1IsxGPbw_JbP`^`oLzBuTlOm*lM&sGn1yJ2KDBV&iZxmy7vuUZkr1Q^sSz@Nc-ck z`})6-S+DV>)f5?UM%F9fmvr>w7<#R9&kLeM{^o$rFKL4+ERG8|nP_?_mdsA6q>D(g zS?t{qi%5n!7<<@I_LOwN55+{v-1FE;Q1)2(r17KxsU9#Dg%sSswg7)T+iXr5ejN$md_zX+d-5kPEt*$4$+Ael+IeuZjx1=!B=8i80(NYlD``4qnBea zZhu^HEiC`j&90}M2?Gs^6=}Ys6n~Z93>hgO?g|q60~o4YPbAiB`Ny;>7jx!iKZr8# zt zD#;g^>rTn8-~c&owAZWuJ~?gVDPq-?&CyHKWv6acfVKJa(j~X6lUlEHe8tryt^d4g zQ_h~O^lu*_%DA{s%$2e$-y32~k~5f6(QZcplI)sJ?K&~a`V(Y}q@V||8ZCvnOLYe| zaXvqgq8*DOgXllno3D$qsVe*Yv>hV94v9~-^gJrs9UW7ri|bm-WSU5l>+9PM>hJt@ zqo)DRLrhb5HFEWYosG=x#Esm?aD9T(2@zR0^^Aue8#hQZ>h|0v#5}-(imAIUjvD># zEnDvG*6|iJau(5wTY&~G%`}s!NS}%p6@Tk`aVr$O<)4h9j1)2%8?K}+ZHY`rHS`8_ z^My?_5eqAKfOlsv| z41f}R)~bKFy>!)L0fg)tV3N(ka5Z*mkaV92c$t*U0v#3xed0G|rDm0c)?$T%lD1G^ zbYcto1&)Lx z*L9iz1fB)X`&WQQEwL2Q1s$dthzc2LrsuLKx;|;U&1r1%p|9VMGvd#!K+M;5&K>4$ zIO@?U#dSDK#lJ@m`nQ}ZTQ|osYDj9ySU)27m_^Xg6^AisMWHx}H;S3*R^8#n*uZ?! z!S2#OzOCv0GAyX4x(5eNJMY6Go@>cECks#0A)fc!b(2eO&gWajrk=B_TfE8{6s37` z(X|=MzG;keg1I@uUY+yak|hIKy+W3GeANnBWr$mJGgBnph9ii(3N+VA619dktoG;0 z6472QwkHq2Ll?Wh;y25?2!a~hKY4Uzr=N2&OV2SsTOkulNs8pZ4;@MJLZT@9kih{b zh5XX#3q>%Z8c!50C|)G|Y^BmUZJup7|JDy?8Xt$5DoU-hvN{z(ynW0a+vU(@}6y8-YlAiH3<_ zOU}`Tsx-_ItpkC-Pk@N%QS0+UrJ1q()Vfq|1xzzf`<>Q*vpY&%1e(F)Gs~s9@S5>? z;JZ8K6UJkK@z>-l%~>eg;CpDQ5~+uExdjcMBps1XTy~hLeoPa_DMKQy$9@a*NyG9I z)#i_&KNf-ztE*ZGL_K1`4wubNBm>N6eKb=2wlf|c%MXU7C9U}&f)k`Ix>tAU_<-69 zGXH|djo((JnX7cFz+TZ728mUKAwgiXxOC64^w=sCZC*5eeA?Dc0(~>}uMg=X=|`&7 zu=K7KHCvi^`;p%zua{O;6NRSH$JY&~D>5Vv-Kk&L>P6T+Y*i&ZG*uMwTgA}hD{8HT zW{^ID{f|r6D5c^vj!kQuVy z@H=&l+|REfks$to$c=cF$~?-?B&*sm>9)8;U(I=@TKs}q5ok4BGBobb?oWHEHK$K& zSN$;Swp`!c7K$9-H|vpjEpvaXNIag=jc}f;X@P!G8Dkiuy*S}ybfD6s`{O^yYl*dz z?D6%bT#&4|XCg9|y`aaq#UL6Q#j7cfE-=8>wVd3o<&3h$(SD9;5qahLY^yK#uB&z5 zt|c*gjtr$5lFnqg&K`$=Z%*8Vhx`sBem9S6Gd9y{=z%_BS*g8rT&@Q`4AH5DyKu@L zDGH5%IeB(*{YwNQiCH&Bd{jJ`m=spipzdf$j5#;D`M{1C))+GorFEbJ^5Sc!zbY|^ zRs!9d8c&cE_?)>80T!Q9k**}CCqS;mq^y7MIzUG{tvWCzJBo$jmx!~Ag^S@;GHmQ{ zF9mk!bmN3Gl5E)hC)cQe`;ObS4_I(X&L$PkQ_1tho_QZq2)x$Q`eBZA-S>x;dw>?a z4=YA@QROGH6N&D;4=ta%MPcRJp-wvs`yTwJ)}caGzd#q1W|r8UVS?;^S6~;5jN5V_ z==Rmae=vai_I5{^Kz`7@VBhvYe*D7%`W!B3)JyBLPLj*e)a-%zFKXA&?}Mp2Gz{4$ zy?>;^ze85kFRLk z3i(viT<&&+z|t_p zS#MG0z|ge$-}~CtIV@v~8k%mK7a`AuiwNd*0~{O<9}c@50cID3LxEJ>dnKBhXEYYH{LA zooUXoi5pPu0+Y_JW=xK3##9kXVG5%B`Zxn^16TKo53x+|*d@`!Yp%yDInl;0{Io_2 zt=MH#qexcW-E4W^6QV%J*-DNN>T4)yRB-#;uO`A(abc`~@X^PJHRJyZjR1pT%PNfo zKI8J&9cC~s+|rAk*?DxUI1ck84UAg8=iK!Xy{S2>bSEb0F*$}_ZQVn3> zHkSk*+LWn^t5gCM5#m#-ma1-S_T^@)_no#48b12YplP-@X@(;4RqMbc&q$Q)FKJt>Km3#f@tEuj_`zr^Ta2uu4m4sML z9Yx8_2cvQ!VDCut^x#7c%>}_`Sx840G}q%iOgxTE1s8dsQUWP}k+10D`?=5(lDBvk z3}ay!TD2gLr4W3DCT3e{kx*!wV3DmyCfU59ZRBkOn9;Wk0&U=S7j5uZ&6N-+&M5Ofvu5 z%}pM^SKkgM*aX!qBJ`=Ce~B{{1tpCrdcz@l8V43E`eQOkLzR!U3PSU=DKuDJ}Nx5}6jhU#MusNmLE72E+{25J@>7U$_P!XaO!?JP!e&$7K=`Iw@tLu}OMK zXaJBf;$EVoMI@qNIG|XaodNGW<1@NPWt59AZ}UaBoafuLBA4vO{cf2)Gp|Rv%iZdq z+|6*HZFYEE!`cyD06$(C+I)+W`HUViFAxH**UFQy{cAULEPe~Pz0YdApmbj9^4#wAO7a*YVtNxgx0+770b(&&GjCOvU+x@FI{48t4I2eE%gv}G`(vR7tR!Q&%C2AG zvp(8bEr_hPxV_J0;+!3J6Oit%v7q=&Bm0lA6-qR9mJ}8RtGE*_XJnmG#o;0nK-90I zSQ&dm%v|p_iB4U&KGK0<-_yeY#%%<8*drO?8tz&U+zMNO9nr875JMTDp?&YDsW9Z4 zZKf^h4ppY2`e>(=H3mXuoV-8>0wM~Akn2MvnqX0Noe0hZ3%;&TlZs(G^=KyItadsh zTeDb~Z#UB4>r1Dmun~(!W8vp|VPEo&FaSBbBp?P^0HanPLMhV_1VoMDlVTyDRBZtL ztlk(TZ~U4!4pT{44ToZjXb3L2uP_ahh7`&_3xhDX;|d6o*O+q%TM{3Mn(vJr8`acT z^cM)Nb$PKUL4f@HP)>0<2hR2BOx=@jD-~3KX1sL$KA4`+n#un{qdQ8UM!E(Q?s3}K z=1ZJJKb}b^hlTZWlNkn>I&O4ZETDv&i*ogEanhn0%@k|1g-jqY>cu9&%3nsx$}ILL zUxLRZW<#>9NclSwV@wAbuP+Xr8n~5DRV2g3H25Q2)xp>DicT5Zh^a%?)8s4@JKspP zim)?$ry5w$O3DQ7Pe?uz|1~oqw}LSre}SztESfJm9;RNl36CI$XY(G$*PsN+zygBj zwStYZFuOdLDrUr9j!Z!>nf#@uL=go)q1wM?l9DP+he0ttbx}+bdWp}4Mz@NfV@1n? zQ8ra^4Qxs@;cHCT1}+5nEFjie9-nyJ$vuHl3@t;$ur3SV=x_p3r;6ZZ zc9W4EQbdpqhuf|23DkjU?bBQw3h5GD(YOJdJ)J+70;%k(2fB*fYb-fPqgnDVT zygAtAVU6IC%)uWzQ8TL_#q8Lxz}xK7+t!p3(un^KSxH7eVFFMyF_E(<`U^%7*F-Wd zaaVau^3$dgvQDp1XK&gy4?KIC4jvOQhc4T|B}n{E+vC%V%N{<^$!Z6+cOZiL^p9P# zp_yqdbGB7dr!uxIwb2al$6s;NpXi=mra#1MRrasFJ`hwjnT(-qVu|^fSYRuR`$fb- zL65~%R6BP?b038DE&#@>Qr_Vl6y6=cjC}woJIz9 zt~8jidC6*~?=E4hqBuuSa3vSILz1&rdn(=@!8{VVls`y+0OWfaUYH{4X6K+p37Ux5 zr2y$5PhqiIiti@@gr2v9t2oYWvDdms8yELyF@ydHi??@TKoEt0W3CvnlmX$Di z&tbK!Sqp?#l!;-MT4OipmepVf?nJiqLfw$?$spSz!ryxHup*I&02Ht4d_=4f!-sU~ zr26euly%;y6OJjCOUd{{FevgBX9Y1W^ZsStj0@e56R(TgUpX{;;l{pG1Ko8$@s{&F+)e=)?{Z!D8TbUVYOJgRow;tF;Sj9wB>*CG`w>EH4eAl)I#N_xLa zS6woTyS?)G$B4pIhR(}gFXhT!S?9h_#x8!2_Wrvmw*R>j-}<_XH~cf>-xcki{U5DM z2Q42d1C$|m(>(dVFTu<1!c!DhZ&H^h?PR7jrBPYD_Tg4(PW`^j?J3bt+nW!&ZSJce z1Vd>Zr)1r7pHb0D`g5PDA^MvSt|H$Evv58>FMb|hlRPp@!H-U28Hcbh^Rj? zeVm^qoo6vKx@?PK3JXtM28G=nBDvt-c1bC??0y^v?E>K4e;KOzP##gNK1>%pChvs` zc#^2%26y7kL=J+5`liv+vNewbLKj~KkR7k^qJdn-WqYkS&Zx?T8=T4FviU!_JENeY z;*V$p$oN5aZoea5pI=WkE;q!!yH?-D6p!<#(X!jcUzq8;@d_Y>j<`cyO+<=Oze^M(f z|AECu1lHAhbcOWSiJV<}9Y(&1@GbbolcGiyQ5N!eM)+8#O^_{`5z%7zL`8V95s`Tl z>;A;oT3@3TF7S!CknVwt9%aX$qkWk{1Nz=^xs&TciypcPD6tTAw~EFX_vth!gO4bN z4Ccjkw+eyhTX?+ypmF;C&~UvuwRrR5PN4(m=UVXuW2k#?KyZ8owXqKt_37>&I0|t1 zL)i?0W%u`{_hwvR-LB}t#?=%1;QVqZyKrXM-PlOL_Is$IU06=c?ZNTMVI1Cy5cXHu{uNP*H1{pH~K4s|6%N$f;0J|b{|e`+qRQ8dSl!6 z#I|irY}>YNb7I??V3N$q|NHJvor`nR-LeXvK&ujqEir?a`<} z#g8Y7$g^WfJq7K5hIqFbly66lsTsqhS(2{OYFyTH7#FUe(ZAG4O_iSgI?Ar%TFX1drhPtKv@+d7`*VsfaZUws_jvB zp$l;n=z|%puI1>s&ari$CVq$N1FlQYY73a?Dof8RlnwDswB?7mywsIK&@hjC(=Zea zAo0k2LEwP`2v!&Qic>}dhKV%TVc)j^@D^96$Z^8gJpB*jt7_T(V@{j8-bw1?ckPb#tNs`wDmW7}p z^C%*Z4o$&>w4&F9v@FM0*?Vv%u277hugBDgVAGyfhh6-(iwa$mDX{3eOIg+v(@IBbHyQomYhtUP^oMc{jbbU_fnI!JXn79t&(+{XE zbi-clEaxR1aq(+QrtzjS2Hl}z*Cy{)xsae@Qztz%<~2Dtdq^#s>1iV%orTDl8wGLM z8C9k=avwR701l7AQQ&A1*B}4x|1oUNxxbR3jI|lw)>@H;hNq)f;(uBgp`B zT};nC!1qWX5XnzhW~vu%JcE^j>G45x)b%bL9f@I_BFtBo!>YbhQo@Z7;;q#Y|huiD07Nnhjo1NX^%lroHg z7XIrw@H_a%mQ2R+Go=5{#a>c*@&tXa!%I_k^j77M@u}E0lEs$?Cy4I{-#cVPH=<<7 zg?uXm&KtD^GMhB054%h7`;GI@j6x$KkmcE`I=BSOGojxur=)`1#T$&b1~lQ8TB#D2 zU^h}SYRdtt8$q?D0@7uG*0QbDN=v)`yStgXnK2+gDnD);{%hK!zM3?ZDX|3W{Hv5y ztAV?&R&w-Ks{rxx8G!9c_w=Du`UJXfKjg0ErOqQGRG6Jo>wPR^bY9a5l%%`q$XgjI zDWGg{qX|%*K!qE6h4s#v4P8{EMTR=h55i>}M&O(c`IcsV=Pq6&em3-`LOa<&s+}P= zMUE+T4z(wK*4IGFl2+I0h`N08&+$DNdq6wQe(*ueMGvV=nN~lS3k>9Wk#BE+Ef^@0 z$;qQ<2<`b^btk(;|GY`l*~J(@>d7YJQjalUJQ&kwl&!{0yNs(!NSs1g+GdD3*cR({ zIuYN6qVcx{h3%Gwm=fs!mtlGPM4;-c8Ah#-;C9 z(~5>i>F92LZ{cV4yfZPPjSSC=z;q}6&x>cDd1i?Z`un}h5l=9Eip;YiR_Zn9c$|QN zuP#@{kC|T($$T7A;T)JcMEeridJoF+&=oZU9Fm8-I`^gK3 zlKq^Oo~BNB^))B^?6?szb*N&dy4;m#qY`iMd4*XA6+<)>Lsh!;!f zGtzs`1kXp@A_;HSk6*$;6#)MDKowli5~J5qrR*Ghr9l=*Ha#E;`wKwJU4DonXU1{w z3Y9|(>nQZ-!*l9%;&6UU6VDdXtu*QS}6h(6(6Y@T9E=wK`ZvV znkpPE1Bh~v!H(}kPVblC$X(|3nN-x5FiGrQu7(jYpu@FvO7IMK zxmcgwm?3{Ap$d4R@6LJOQzHL1+Q{@bO>+)PP_{ek$v z4l%nz*~zINlau%8CFHc(OsPw{-r0EraHw|p@Q3K%`h0SoT&7O_GkXK1`##LBO+C71 z81s=BrPdh0`x3jKOF`?>fp4`Y6IfR6*z0(XA|)3VXQTF7hm5SAk|{q= z$HyymOJWpPOCllE9xlBV!VkGB?$&E%Or^gTn2U0l8dKb}J7K2f4v*kXjuVnFbdXA- z0X|7+Uo!0R3jNKZ@dQHAr#T?!zs}2Od?_@OdFA@qbvLMZvG9H&YE!SIAufr>;40P! zpSyNTj{-{jaEwxx1XKM+lRu0%lA zHi?@tqWk->(qusLENR8Fgi`S${ewbklI(Wv$Z^ZG57h4p=_wZnEHy;)V#b)3l8sO` z`g8LmjezE$b3L87EV}**xeUUHE>2SRkDvmm04A86|JQ!9Rg2J)cfVul-XMX;l^yl^ z+0Y89J4(^0edQ4~^q6;Pyfekq8tO6TDPm9OuK6o9LRKVO1d|t9)l#6Tdf%ExLqm8855K*0Y zqQFeXT8dz;=ngXp_^99AM(o^NaRz~mSY9d?gBStsk8w+%A`F}?T?w`KGsLB zA1ia%>BD*gupRTSi|QQlPvYqClSxTVtne!2tXN@K?d1=>>&Yz*RqlV}`k(TpNIMo% z@!KQs^|H=ZIF}o2zTmqH919T5-Z64AtkeHBIN>L}l6A3`<^;mPOhV$P|1?r|iG4@} zK{ZQzZ?!Z^IPVeFnVLa}A6EO%gi^Ib5fE|C*n~SJce%42yt#S)Fn28}sX5cG+%GVS+d|=0W7&$8z_bM9^U)#f&=H)1DV*WvrTd{ilEKnWo z?dW;!pp$vE@49Z;N3)J5RC>w6v;$% z^cK0VVWVwXjw)y}1CS^^`?rz-&}}SZ!mvWiwLVeeopd%hQ3jNp4kGkaT$2+E+Fdj@ zr}{QG!zs5GgDm_NkN|~ji@k4?MT*tz_8R6htsit2z(0f6``x-jBjRwW-L>G zSTRm$oQ}d$SNmbK%3VB)MA{3`{Y8MTtS zaRDYuL5kL@5cSFdo{M-W%A%=9I+rT;;^{H*R-V!rH&D!y{a#&0 zv7ndFU{Hgv5gpT)WPYFm+mJKWGrt8p&BNq`&mX3t4$u^jrGHRjwZ?3ONG@GapzvLc z;;IDiQrdR*aYa;yuw3nL5GCkG9#UD*Wt@W&qjfrE$RtrQNWkp@AOl%sD<6|Z74Fi@ zT#n6Vt5KKlq7nIeeAH63(x(d&3`EHrph^WV=}17+=sb^n%$Nizz$!W;?oxU_K447$ zP6h;ZLX>kr8+1rgnRF?jLkGvNJLS=b%vE2pdM&HZs*krTbi>Mfd07wY{9yK&3OMtG z3w7ODtfYHM1rESvf2(;0wVKGB3G2o=!1|~UDib-_LfY`f=6J3BJ@NU#J0a#tzt3EL zN+o>7AMY-k@Hl6{(7h0HPq-M=QMVFQEHsUrA9$^KPVJ3edHKuA>+Qa=njQ>8IiCjj z`;~PwfaPHz#k*sWv zU{XFo9eHZX$g8-gGyHUv;x0<(b5dzF3Jy|8@15twizO{+)CivP+4js@wA;rQh)FSV z9xG%ce4F@9n1RrVnrg~(8RKA`4CJAZk>(A14cmnEH-}ml-449>F4#!duxNHtqIjO| z;8NUm2!!cbSjU%6vgjBpIn;`qBdXvsTx}Pd=}yl1HkYupKcO(TDiz4#^u?cXT#cKW zNVkiWG#KJ7M8!JO2ExIurFjxu)k}frC)NP>Fbgmh8eC?BA=`*|;F*%uLcB0HNdS%& zJ>hIP&LD}bp8o|Q$+@atIIF+19E^nPqojJ0M8nLK$qaIUlK;_9+Ab@H#F8CPkfQ@R zu~=-_%u9eBIyCtx~YuhdB& zg;+Fg?S%fGG9P|37*tX9$nqVDVAGT2YTWxURCw?~AZ{Zo8jlT*v!uu>{0apPxD-45 zZceq%f@sP#5bneHm3L4QHu7XDKKk`Hr_b#o-`R2Z8`vOdG8_O8+81;q1{d1*c!Qj5 z__9Ix{b0ZO@6qAW{vqW=?8R61m+7{Ah1J3p$9GyUX#<%Orf%_sVe-tWNd-OCt~P== zjUwFX(QJ>Mmu~>ti2vekOP3rx$wkZZ@#?9Rlztaq&IPrph?2)*PLwY|X)?&#T|#J$ z#Y(4OJ^9zsI5!&oplPP1X)%SCm8G-W<5}dl?(k%kNtaKch+KO4fLf+T5z6WmI>}`L z?Wg;VF_%ruHeVt%h7rX~EDeCv8lLIgkqcm#{A{g0Y5@w7KUW)*6X9aFrS8YC3Vs`p~WClw*dy7wl(#;a9+b=gBbk@>`%xRTl@t0IZ%LQe7Nyi=^3FdF8AqmF)-7%?_NQW{1)~y$n0laF8D)Pz!2qr`p zI;>vIfdnqCHgeQ>e!Ys^-S9ILGY@?o54?e}_N0O!{VL~7j1V+N?%olc*xi!fk7#@y zMhjD~=KEIJRa?*fj?Gmj=Nu$yjz8hO1{7dx825iUBl=Xh`4`>_A^eo6f`!+UWO}4sybOp*(bQ8JO z+kLLZ&1X5CJX!<5;fqc*(i!Pm5wz>D=MguhXYX72A_Gly6hf+>Vu~iE1{;MDr_&YK zQvcB7l!FOX*#PyUBoFD5YrXr%m?8^t`zY1280C z%oNN-IC@3ns0peMvzoG+669H%3Zrr73kcTO^UX!4*z*@g&P+HkhSr_P@#O*WDLmW- z_P!B5ZZzvCxgz6Iem2CDAus)b+%1kTQDyQ)b&5>5pVzR<(PtRAecTLhwijZlC3L?r zCiltPOs4jiKU%~k{l!rM735)s4kWP955)Mg`*hhW8kqfpoZkAvq%zex{I|%#^LFma zyd;Wvs1v;G9`8O?v&iwBe5XZdU=+(ALO6NBjTkT-G!s)~OQ)dZD_o=oY-WI;Is#(Q z(+^5Z;OykrQ5c%)a<)u^#cUAo?X7Y`?b`dqj&vk{CWOMhr;ELKDyu$ECMo_aO@B7_()|<{UdQl5&yN+jE*oui6L6cC`sLs4vsw z=u#U%c*$$alb6$mF(zSFM=%UsRiXxAa*?;tG$hOUYWrCx;Hug4m0Mq=!QCA0eoKST zA<;X8iZUWN%*qkz8vse`nOoj=ku~#0`Y7tLDWr@<+Tq~}Bf!CFG;>3W*f?6yA?S3h* zNmH+rj3vzm=tbtsI#A^NtEC2Q;~+awl89(Q8EwV+vup>snu8M7sqlAFf)(Jk^9Y)J6kpAiPKzl{p}1RIidNM^ely` zH#5i_^Lg|sGG>S2_A1n}n^P|1*AGt1w&HzmduvnEZ}aKH7}1+5O`brM7SiM%FUq1C zN!KnJVjvCecx%sVyzVTKZV9x)A|BxyAiEmEfQ8&+LBbv*4xb>h9U+RIa*nFV$*)U9 z4Ys}Wf2MeAPn$$cBV{eivf(M7@rabl=eMfdoh8xKaTjniS_k>B(&LrBBR5s=RafLD z2$opmVP;s#U(bv5to{BSlm%5^#1^e^L9jO=cpsY0(`l{U+DHpiJ@isMqfj7~Xt!9e z>Rpp&v|#!e{`2vc#jn=Eis?a|B2K2mi|PbG)~CP!j8T>SoABixS#UDYASyAEkyvDc z`UX>xl{mq$d9sNb=dMs})5WYcD3PTAo&ua$b|Tq<3nMv3Ithe)<7SQPS5F)B7)h;e8-T)DVS5qlY&u zMo$Sr*Irn!{tt4Lx?w#y?H0ZA)DJIOFVg|@;pJ+Vn>)|asMI8(KGdp_rwjS=A{J&G zu=R?6!Jxm-jGT}4q#Jr>7NV#ao4{t?z(WHNW%=AY%p7&&))kk0zfJ3rYvpN4kW&T| zlFmv+7~z+)Y=wpz?b$Y@v#z0=BV58(MTiWmBp|$!1>a~NxMe%WqUth4FrahvMrHl) zj0bQH;;LUa3-ferZuudyssbN$9AgXusDtVB@H6wvn#xHr5k-2Lro;Di!TTXwg97Z@ zm}<=yiG|IivYbpM2^lH#;h0~Ehlp!_qcfSSBf@2KOUJ$Mf3l=xC@88)8PHOyCrQp> zC1vnTX4MC7j22NVu<}%7Xek(q*t|&=Sw|z19s(eXOJG@&iYW$B8>(sJ+l5J+!kT3r za*>i!#lj06PIaWFY&xo&H#l4C-^#t-fQyS{Xn$ghk6HcP%FHstb}Px~NEjO8uF52* zb}Pu}jHq`3jkt>sHDumFans4EpMC`Ei*9Y6laCG|ar7I(`Hhina%+2FF~p_T4&%wX zLAY?f<4+m$Qu0kG=IK*8*2Mr0g4^Jt5A#XD6%Da}UNxEVI{d_JW-I#X+}J-T_G@+1 z{|DHM`~Mg0#mU0V{C|PHX5tQ+>yCT#1~1{t_xia1m`q;?0KwUINnHaoUJPUtrOChW zl~k{amGy4K$hgfYT5XcT!;8^3es%PGSPTDSnKQ`S_+{o~II}BQ@b}Ei)8b`e4i|5X z*X?TJt^(r@hj-KfAnR@uDah99;PLlahAQq)(U&jy-}gnA_qN?hLjnOR$fgOl`l-9c zf|sPSm)LB+fM`wLq5bP@{$@VD?Rr$Vu63u^PaJ9^w9L*Y2t^zGChR`Pb32vk*UPm# z7uTV+GBlyhU#&fX_hbWKkEj0s-VFS|Zu8_n8T=yrwKwh$+v%tHxV9TUJ4?b(ZmC`m zUibff65Xv$Mc5^hh3S(XPA5Dbw-Tvj&%9zdSLK_bIy(_m&9isiuTis)bU`S>&eQ~@ zO8tt>gH;qPYWU3NjTb(j0GrbR%^c^ek{}RXiWsF`hSD30`%Xb-ukg@G#>^05-}Yeh zj!QiY9XIIZ1rPuB*yBzkaqPM1_s{_y9@U0A8I>;r%!iy{#^!8p1tP`fjN+5my5p{l zfLcJjq@|N1xe#p1T>wE^7;raRKju>YbXp4{hDQ(Bbz1foA#Gf`1f5@9D@@$|aG1cc z0cph=z_Cf@+qZ5H0{2LrrWCcie_O~Iz-Btd~ ze>jLmmWx?$;x|V|^6VBphS&PDNn13EO2c4C=Y_snUtsvbP!uo6EXIoU5mBn(#MwW7AY1xOM(==uWezH zxDlOa$20{M8ZIrF0}IcMz(o`As=pV~f}N-+>UZh0d_D3fvu*d{zmEd(<3B}t(8aB? zq3BPfcY)ElATW_x>J$nMV|~iG#&ZJ5HS`g&u`0g8#NWC~IRYhaP!>R6j2BbV;e2?6 zpeqQfF%x3(D={*VL}XxJ>L1OhS2NZ{%_ZLoDp|DUTj$89*ZqMT36;g50`qUI@@uYm zc`S$IT5RKfzT|<4^wKd5Bl@la!!U*mORSC*h?gP(bR!cuc>%K(>E9@FdeX}!8Dqa? z6~6oq38z^%a7Os2sHx`qGrxEH_2xJ&`?s6ug|hCTe;1I=GLAYR2;y=hGJ^K*SY)j{ zeq{gTL4j6Da?T+93!C=!5q-Lzj-MVJ+@-O3;6Q8OL98*X6C`-&fs<|JK}4x7s*t zBX-HKI7{R{tg#v9K|z4pKzxj04Qq9ryFqR!b=cIhJ~%r78>1#MwLa&0*W#z* zE$QZ+cg9r`zO`jPSort3j2-7?c2c>HO5b;MnfB<-p#&V%hO z3ImHM3#s4Z;WezOMkyMdK)O8VMPCzY)q)kHwp6Sgo-flZ){qJiYO^;A6&_Y-OH@)U zzkL4fk&%xNqZsNzI~ZJPMWFaMyb3}pY33Re)fz8BpI6veYpUQ~S|}^~=z3fM;)gGb zkU{LxPfO-ObjWG8p;~vt#MR2x>^np70xH!{zzerTTOAL{JX9o;Z0RUyWW&$3wC<%K z%@NNpQ^Ps~B9PdA3vd-U>6=MiO(7o3xv||blvsk26|xxukc$F!;M5+uW^!+Vp?WK^Uo-e9oy0jh`}Wjo{N*oYhO^n!e!sDt8r9N=f= z@S3%z)sP%`>j;u{)||MT^rH&B%QneDv*DSsH|~<`c;};}xP`cv=nvRg#jL2(DkOj~ zlV9dI+f> zVY_i2c~ry7OJvb`0q)9MR*u?Me>#B*=o6>ZU)9|oYUbx@go>N0 z_UqsmjeAD7pst3Ca=59m88pA1H@tx)lmu(uF9C#$lc9g5o9YrwX{)+~mA(VeAaZcx zHuA$%XW8qY_|A$=b?lo0YU%|hYW#|znL6xlcFs@&?3{VWc7Es5P2uMze7Q5OU7_Sf zg%bKF?#_3Gq|62VqDGT0q&UX+2(;B*guInf(u`Tb(g!>Zq&XgE?~!?eai`Gdzk9fa zm0jV~P?W_vA5)LiL?t=@5TGmuP(QoFY4k$Fgb1@{*K15D6(|l#t5}3Ims`(?OGNZSsmcY(FiMRG738xyMA9_*OB1879~+;6fRx1lZ<@YgpCC`Dn;CMP#@}R#Oku+x4%VWtOyO!msH)8eJ!wrkf(RFbE zW(R!{u#eE*jhrG@6(uIGQlSFGhMfej&3E&)`a0MlG0!J;&Xq=JXgIN#lW}6Y6?){t zQWmfzL)03RDQI0uTbFZ4>`AGvMphrtrx)DvQ|`IW;Z(<$-{n&b?b_+Z7hnu}bM*2b z`EV3?MZ^||Xpf8_9)uSx$WD$q`M@{QyU?GgBDU0Fx(NJ8A4nqV!Sq(FbPo~wCe zm3F*K*>o6BjoZ^l`oWn!T@zIL{SJ(TLL_$XWYw`Ddxr_B4mq|&$<-y>tjzkUPg zySNP6F15V(`}1~ve95f~J~N+459;;_mZE6{+sm-d`F}4(YgK!ic{vXJa`M9c^F;dZ zN#K0saR1QZYqeLe4<_90UDveOO>k5fq`1m$WFO~lK#sdR$ywGGX6%x$>f64qid6vl3Lvz#w zEK;T6=t&f!W`}Ep(!+u=XBm15P-9gIn`k!c6d={vqe(zB?f?tfL_FN@0rI}*P%`P= zAQ3LOY+FrQ)0t1N=Pfu?!8X_jGAvesPYv?XRWn z%43HaZeDG1;wUxe<@HatfK!AYum{n<8)%h;M)YgZGO(Rn8T8K+0#S{N?NFLQ$&1g? zsSh46DhBscRv?UuR>_j^X^<%ewso_+{IB6F zRz&t){;rs@oAqP z_;NiUj`SMKMa(B5!6zhxqj2@o+^kO>smj{s%*Ut+lKUQqw}KcH8$-`48nfh z9H=6Bx7c=RY_?h-l90Dt-76l#CG>I-fb~Rl|BwqvwdTa|$q0HupR0KaJ2t^rg00IxA-qCx1J$X`R5SeHM%m|8V{R9Z;$a zTs@E;pdEzv{^3Av7LNTXMpC~x22QP$)VC9e#!-L5G#T(p%z4es1BcCOe9a7=?e2e& zEhk9B&yvM>*7yh?uubETN75{7QSFs|298@mn9b%}YSL0i8-S%I%i0c8SF5D)s|GTX zU8x(vcB)R841o?Z;TNhfNZx`=So%za;wht$o?j7)fMO^3wNr=v0tc=53aqOI>N2!L z)O?Y*0K5NNX8%2&ptIRt?Q1(@a@f$PSLoo8gA4;`I^P>R+?k5_MMd4d(NNEVASo5- zJT?<$xQ5>(l6!@#(}nJ!zC#4|nUK0BnLBl_@2e{*`8aq-4Z`N}dPlDC5SxyDy>fwDNahuc7L7yOJ*-+xo}a!f|ZC0HS z;t2gQNS}yfvAi%J_|6<$yI##G;EW6E73*h%5Q0?w`lFKZ4VvOOA=4~1VH!BYOEGB9 zL6~Y*=#wu{{ZX((4POy!{PjL@&y$r_sDQyf_Db#~grJ*~lC;1- z2Zp;0xWH;V<_p1Z`?b>RgHT6d*;I?Npg+SG!)QY(?*~sLM0ax!z9gqcRuwa_W*xWX z>_ypO(Gb*Ht`ubE3pU%Hi1b(z^!Yu$GL;!RcK;Kn(abNelNq2?VNLKaWs^!k4AjL1P z^%Le~ba8QZ)l-7lx%wkO=esYL4V6 z!I(Zj1pk#N0*xvEj*uzXr7G}3r`IN0Vqu!)9*Mg3Zc2-BOx2g) zr%<91K_JUe9CZ~^YEPAK75rYg2Wr)FL*%(s;#R$Fl+QNxr%aSjEf7~NLe<{#PC$y= zAmn1DhOo?k0rvX+DU@(`Q@i-PsdL5y5tQpQ%ZlPk_RkbGwtWdbPJdyOLPg>I?^l%uMA47>8j z9JbYOe>KCk!^iuyq{Vz8x?H}$1^!kzDvWUIVuhK;DR=X9lFOb_`hO?-eZV4x$(T3# zmxZB6REdjeF+hf-jX);M>cwvClARGql0^<1F~*0rksrNKpM{KVym}vLh@|Q0Xht7c z^7@JddyA>1$Y%OrX`~Vr3L<|~NF5^~RM9W)#*5+VCaQ|R z_CHfdX@fhalBZ|^gJlwP}C@?_bwFe+@DhKqj^doq`@0Ty0GA!$mrw3sx2FjDIjRfsT){$zIBR%0So?RWgid z2tK$ppoiCKWv$xfD9BTu{bUo+0O5-llR3D9_vlg@{z-bZzm5}j>3f^D61yq%Li~8F zaUgnzm(zuc?BxF?g(Lkg0#O`EtOb><1$+_=(C{n#iRdMD^t|#u3gc7MU5ul*Sj`lf zWuztRDZH!oiH|Qh`Zz<>wW4k5pe_eRj}vY{k_uLtj3pEM5Z0&(*s)i9KZj;%U@t_9 zDCtQ?2+)+yHy}+#1mdq6(}dczum|Nhr33ClQ68;V7Nz{nLbWSb{bs957$Kh#mKTd! z?^iC-rtjdAY8-*aSKL+Ld6lWsxjIFu(!$wFGA-=yZdMiOM)J_~!0GE_w0=zT(b7|1 zVZ6!`^F&9M^uyO221rjMR&*U$^b0$h`V*FAjd^t3q>44>zfc$7gEW(B1JuiDOO{b; z%%0`@E7bQuwO(yIxYrg2$VmpU@(FsK7RToqYCZACpA3++iW6!B0ZupyM(`B&1GH(N z@fA6`vVR=qDZM)E%kHH1jc{(>pTGZ|<)?h*X0M1AvGn}T`~FqE5tZ4ekJVk{b;>v% z@0)bm^s)QAxXn;2GW@8ct;l#Q7S@qsR%^i;ikey`AF7n*0%v@fj;If-#ltUXV!&WR z!>>hhRR!xpoI$F?M|XI!{H=(u&^FcosuI2g`6G2g$h6)LOa;m?WMMr1JwIgUHO)4ZR2fT=qRQ^5Oy9-1z(m>z^^EnsR6QLq^ z4|Ozb3+U=cC|v*>yp+{<^TbBcznF1s?QZ|Thnpkch3n(=yDpCxc%c8x&x4bVO^A?w zfP;w>PR6;a!f;pSG2p@# zGPKE}^IEFr)ImlzwBa07y;1!|e%_JqH5!!oRRlnO3K&mCB|*(l;+p3MTkuZtZcfEP zj#PNN=}_Br;z!V+F}+S3DCpR_TytXd`4nI5I&8Q4XZ&!?0xDfEl@p}v7v`k^Hi^j` zv~?0n3Bitinp~_#E(|WBmsUHq_y&YYgb>9nXpCWW;6kn>OHh@?=|D`@!q9WfM-gDg zL>lQMixI6HMz)IKqdW3VI|=0D2Xa&9>z-;{UVo4z5jWszh3q)lCZe!jn1@b}Y;67G zo3)%9IKNC(58nzIRzbE|(^=TDJrz~aPjWq?7w& z%ef9rj7VW2V)vLMntOtJeisczv(&;R4bch0Fy`7NQaXRDP@$I@>6Ox(5nHs9hO z_u)@+WzrcR^P_qEvqWodN%#A#H8A|6FOj^(PDe+rY{b;M!)GF50T{_Az*Yo24T^N| zS@iP3wE&fo0Ub*)RU(?OP3=S%Y#Vka?`EfHprbMC9I5eSzV}ZM)zk<80e{hjhoVwn z?FjWY`~1C#KUXXy@(ur^l!{}mcz+MDK`_~BoCn-YEZjPux$bRhBL}NuLwVM<8!CnD zb9)nOAvD<7Xh%uF${43aicm7>N@<4-yB=?|&3vN+9;ZYRQ9}6dW`<8=w4`GoeBU_) zaVvZ}LkO}KWH-8S#Ftj6w2;K|U?;X1^%1B+K8s?7bX96tPckqp7+Kme@Ca!fciz)) zE#__iZXp+@-?2CBHf`I3XxFJG*11t_^rOJZ-u?!k0xT#)*W3<}2 zc-GJMSO!&OOaxc+j-9`r?_D?5j`Emy@;JYSXwpEQ2(HKyNzrZ8(!)j((sPM#% z#ELiVhvFDHm|>?twTc?af{AJxAC+E)f{{)~bOENz=T@qu8|j(3_2WM;>_uNh zW4P@b{J}_0d8~Vw_@QW9dB&`Fd*!;_eSVoeTE|i1y2wZ63n!BihSk5;O4FRS^PK{JW(4tXweg=NBBSapZ zfYO40oQoQo2q0aAbQ6S4*I_*`gb)fOz_>uvP7V*=kB?cpe4IAZ*x1^LI+7avQYwz~ zD8~jY8@hXvo(&d*E3J~5m=QV=H%@?7{V0n`-V11C4S{5lF-a*nh0D5Grq$oG%@st! zb_v0D5;FPfciImBg=j*{u&`%*5=5AxN0^h2QJtQ{%9;s2DeZt6V$8dzThN%wc;rj* zdhXVn=BpIG8l&%KyAV>IVAvDXDbL)f*1r@uB*7cC$+IOE>7q~8pkaA64(;4&uTeX%q~F(qMrOQ}D{4)E1x3I$zD>W4wYUoEO)OD&X6^^e+B{w*dI+BoebDFc zkWX&=(0(WLD$lEl|5+E$`dRPwt@WQ1hj+0BH~+G;^H_=ulc&){T8rvP3L+acWe6ri zH*D#G@zxDk3_i#R63I)N)nL_RoY>Q9=ZN+}iN zI-E(8M!o>k{O7A_y}Xg8dLn(rEX!3!#UkagsW|LJMP3*|O{$u8`=$Iwvtf-o%oGe* zj{mb1gpR!E4yIcg_~wF~cF5ffG;Tui=`^b>?jOa~+&T=NH0h#&ifqV_g#=Q2Lx%qI zVa(5@on3?2-_kcp)!B2tpF3m_xR`rsrV3%+cb=4S9s9~PAEthb!^q`9r%i%h3I1RT z99k1rC#8W>BF(XoG1H*z(a?VV?F)a3?JfXK+X^E>>nA)Ylt5~R+O;c{5OAO(kwClY zaO{9Z-~|^&K7bnqf%xHwPGiCIMYJ#3)CB^W9qJ-IOPhH~PsAABI4CAmOMf zykK`cAx>mV;F;SGro_G;jPfB7Bje;rs;3ron0?W`MC4i=@`UG7qo2Ij`WiO<@YAk% z07Y7mfW+y*0dg7-;yo{2=M|F9FsdQn&FSoM{!ycUndipEeyv?m@9!M~ouS*4qtFA+ zpej!8lc3u`(KRrrNl{w&y%&snv+UfKFlKkio^7aFTeNtv}C`A}B9&Tv{3Rv=K2`IJo{rDYH0o=ps^GN9hDfx+_W)EEY6Vwz*r^6b)k?F1M_4^HG)lS z6NYls^-)E96vbzi6)-Y!4;&!*ghK9WdNDMbQTaW~{H#RC_U#V_Zy0vboDvul&5OU; zmhBtT+)YXv0nr5L+8Gd)RyAObf(uFDkBpX7CH;}g)kZ_2O+ z((jJgdqp&>KY>$!&y@-+sPeu*o>0OXTwO5lgi9nkA;rxHPGCAK@Ye+u~P$q3rD zW1}*Ssb}P(C0{_i$E)0xX8-8-6rnjzo^EXHyR}NSRq+*7(O{jT#hJ-lGY!fq&6MGN zns;3Oy&RNOR)s`RG6vtw>o24tfn+=3oaG0{kgM8|y|k?kA`^TC-{yZ(FitM@Xrfsu z@t;KCXlYLe(njPkd@o?cyX_FH!M;Dxd2~&~!?%QFsYN7uwtMt0iT0u;F(x%}ic~I? zJc(E(@!qwwyN4V+w-r`Ooc~PjrvfU7k=6*+M82eX4tY^`1Co{BMJ_p>466bjZ_?kc z2J*v&-mK|da>A05i7P2E;*#bg@{Cpnkt|8p$7k)Xq0*|<(U!^TE4=`?jG&Qll9_J@ z$FPbLs_r#54!(6NX)D+SqNHPZr7JIrf@(}+f!lg&C;v13o;*{EyJFoE;6&B{|&8poTb7p#AX5$g5 z6f5^63#j)Vp%a^LNYSaVNkdc|Q-&;Md&msDK#D${WHH=mu)`x#Lgm9gT&5@FC^ zpnk>cK4fMfpq%p`qp`^Yfk@E5`b3)95y=N;Kysx#_GCn5Lf`Wn@4iueoz??n;%^Wjf(!&0!?vD^ci zH>xU?Ds1;MPRZU{;Q>RusjjA^#k;zz_l?j}83CQp=VQsPA5qZf8fmWdwlW%go_WwT z9RWSnCQb5q$RwUYr6;^ofd0ULk|7~a+ikR$9!2t59A*TtR=J9+_l5FVB{{WmO}zSP z44sVg%lytXcAbP6M)c zruD))08L{kql~M)b0ks~A1E)}FY#ZHz*+Ue&x>MNXx0sqE+4qg^&hJdPi_3V{8kSz zEQknIO{dR8=hIRaWRFfd0)Oz%^I3@mm6)L}UK!JGgWkeS+z0qR+y;Ek-_d*Rd!r}< zz%+AZlmWwEs9~jo0p4i?%T(vLbXC^45(8;UdSp^7#ZpRps{ex_c66-j0)s5rEZYiV zI|tTl$}Q8xKS54H1Np15d11ZMOJULRBPqQj6Hj|orUP;5CScediJ_s7ptT|-jXLNa zjCcK9o+~%@fItBGaISy9JbeWJM@k~5_k(XDCLvxKpv~CSwuhdL4_fA>wA~nM&}P++ z#YJ}GJ`j;>`A%CWuQ0Hhk+~CDI<9k8Dwd}FcTzMMqPG*vuWSCp2fml1Lfl>|thX{O za;(o%|IXf-HOApO*Wk3b&VoT!KYk8hw4aM_346|_XmhofW8!AG zDBMK(QYYzLP6heyAv;YHl1^4%Nec307_mb{qvOFvfb%v3OYrtxW2NB$1YMEM}GL!;XiXrn18YnKbBs!?k758HI<7~i%P*yBv|hWIP9^;7J9rIV79rn(-w0aZfHUFpu|w{fSj_F-($4uX!~vq{+>4uJtI|F~60gqLJqqPd_&`eS*%a2Q3#3tj77;$)wAd`(nM6U9~qN%5TB+nU98D%hfWfusU&lj%g?` zUZA3lBcNWqv(|-L8&yT?yE41mx#Yx@SK-Rb@Ukd<#mfMP)H(2dH$8lb$fpe?+;1f2 zatdPdf92FP+h*M>nij}r`5nk}0o5Vp{?DutYG2%@^!6wBT??KaW;JrzGNWA!ExyU- z2q&vYMWh@6!+DY+sIh)sBE?<RTyJc8-%F1EMKu54${+~Sj7L2pLs`uh12gc zmm&$PUu!Or5Pn$#QCPpEyw+^O>sg698^x56tg<7qXtrgRwX1W zREhxY((*56$Vo7vJH!CMBn-WkfL>Qkf|7B!qOxpA3Uq^-gk+rvb{LI9YfM7g_y7%u zl0Oju1i{cZgl$5~$1%i(tHkVyFtg=ZRFcc`OBZ=zRz}Nvppf5E7nRsHzh#FDu#vp- z4OMA7IfsF~@aS6GrrNP%F`E>C8^mMa0m{Ir;(7qALg$nfwHW|cGp?pkEKl=p@qK_{ zZB8R`!k3DJGNmGSSbB z@H`u`%3*agz5a*B?lRi>7K!S}M)aaOXrnpljYaH9G_s32OIf^*dYeRhIM0lp4kcVd z)RUhWt5;uLkW>o8tivwl8GCObp0HFUGmr{?mvEzxoZIo0tNh2Z;WrrQu;o>Gf-;vTXq1vb$ zP}F4Tw>ZbKdT40+-T6gN=M+zsVY5F5Qe5Zh2Uha@Xs~@Ur?v3xq|eK@nH zjv8r|tltSe=PDgsD~-SUk+zAC3-1em7EJ;dIve)unGljG;Bt@vv!9kf59uxafsY9rpzzUaWGpN*anl{tTkLE9N8IF%q4IS) zJF`3J6}I~eXeojc*OY}&A*(2yPnPM*HdM@dnh1rNono|Wkk0R$qu2M>ENdR;5ycMv zSNiwlW5GS0-c6uv--?ul=__yXFd9ARaTVH(60BZ^21rhgm@fIUX^{|iF92W3RKdoC zB2FU=5Cexy?`h}&@+gWdx}Z8; z&>jEk1P}RMJT{%Lxqw1=cjM44A@IrQi<$qjn9t2{krR0SQsXuELK48TbR`CK(5J5r z7C?6T2dZE_8i;O`iO^ymV;k52r!H!Zh0O>u;1RNEqBF1!FPIUMadZbx#;!sY`#4gk7yYeCg#a zs7=~#RdkRhY4JeCX0gy0s&bS1TRrB_{OVf)+zeRZjMF~@UE9H3ZiqJ<>EP~yjRV@; z2ZTsll^NHRknWQiA=kgrcQ*8@tL%Ux*P|hWM7x4$%=~~bx)c_$^4W$+fa`(C3%DGu z7Sat)l(KDN3uqHb7fq==Sfu?-M9XL#Y-7F+A_x z6iWxPda2ltgV$OHCrtYi*8gf5KitUYuyQf|ja+x>2mMc9O&AYFsuoJNAgYDW?H;|l zp8E;0oekB<5GmSUwnaV{0)oGF=e_G1`ZWfbxLC;LpmI+4<{&Ik+yUE|jSNhoo^3|9 z1jJka73kKn)!}mC!?w`+DZj<&?Nbo3+d@k3Z}EMfT5;IsbE1WKH3N<@;}vYlwN^l*`FG&l~5VvYlr3U@!Y6flh9o5b5}1T; z?}BH>zljg0Ah3QW2^#YgH+c+`YXv|!#M3Nh$(ovuJ4tFs$h*7fE&!L|Y}qZJ zCaudH8!JE&lfq3=GbM7(1G7)_k&Vn)Wi?9%Z|cT^knt!GnlW)uHYOvorr10>TNC*h z3_}Xc4N_C5E{QhB+>SF>l#9Ohd1$B=?Sm3h6tJrqcBoCdeyMtPsvX4cwzL8r2uHk^ zV8;E~g+a)mt>OcO;YS|_+ULtja_|&Ndvvl=h(~H+x!iq0vr~cFvQ@MR4Z&As2xS>3 zL$_y;AF%{u$}>%WlhC33(E-e|;nZA(W6{nl^ukit+RYUp(oAA{N{(Uv(0M}?NN6@1 z2?+u!lfx@;i)B|b~rUVzZZ+LoH_x87GzeYYoeDGj0m%mROh z^<_u3(;BwJ6HW@lSkPS#=u242U&g-3C#cB{d0SS=QUgEqr_~Cj;Vi_*xb_%u+=N1B zx^a`ePxxpH4dUb6NlH|`U)XZQH?bzut=OA!=8 zY0L@YRt2M>HUp}2uj4ZZ8qneX4lg}w@mxT9q#{=Fw_$Va``HmT*6iPu)SKSBBdTBB0CBO|tiHV=IDh(B;)u(FZ#htC5a%$A* z`;Vv^+4u(PFC5-1NJQRU>kzpPpbW2Lv~6cJqcw_5sogMp#RLDPPJ!lm<+ z3=;0TcU;Y&LL23F8n%7G1h_{l^XPMe#QZo zX$Pt)HEzfdc7MW4#Y?0&_cZm$U+G6@kL7(C_X)29G$_kxmmxnPenm6C?lL;Ve~lsk{XebJ-*xmVMM3VMIW2 zNR|B_=pnbYXw#ROs;m;nr0p3Ae4P}{L%@j`yOepcP*hTnAab$EKBxRp_kPv1?xwrt zTb4#dr<17>l8Tb#x*oPv(d{CX)bVXLCSR&HumpM@OluH{F;#8NFN+3&kWvpqYtgaX*98;PMaOF&Og>7D=W10nwn`$3*Uk2A5nnhuVP# zMWkv^W+xV_?{u%uhX~MjNyfS6<3P@RCuSb_ww8{U*V@Y!$aKP?@*t`%8TtXKJlbIH zIFX-Uucqd4>aWnstL(GzYdM>n#j!e2koJG%RVk(a$*Z1}l}+YpNneP2Mfnx(A$lmD z{=ajaKz6AZEydH>E`J@kX<%68&AI2%U~2u{FpPjzWOn3u41Z0(1Zi($-+R?(_*Jz# zlJgD6d_U3m=q*>B7V5kl9KK5j3i`(#7TcqHHp93b=cnMg%GZ%e@>T_;94M$7zbAi9lw2MK1&2v_R%HQYEx)@M1 ziVk(09JRt5dIBf3vN+A6MMmfCDpHm zjAnR=j9DQ`Z@?3gz_#ZADS|hm*fK8H25{O3PmU}kjT~*Erd39$G_1WbRGPFeG3BOq ztudV8il5Ivyj(b|R zNxNY1w?*CjWyN7VIzx|R?b)@kMgy_cy)Ip3s~rZDw?FOV_27}6c=)zC`jHnC5A$T8 zcK=8Vg}^RFkho1vYZ#U`+KV>k*_t*Q{;*A=5|-)s=)OZAs?;+qXWq3=(DDUnc>Ks znhRe6rWzfy)-__wcx4JVK}knO%9UK50B2Ba`UReS2AOLK8*AXp;{L{ElAG-h#jo0XIYq)a*es-g z!j34YW%oANec(}YGXK;znt~l_fZOszA12cy%s`=Fk76y&q@r=J##vIP4Zn!fa^&Twi5ro=)mMr=4f` znNCTWcO-j8$7m{lFMahVxqERxYdtso;c#~sbI|KR?h9B_RK`^JZ+Pr@+o(knOxy^y zsx`7hDfpW!5TtpVI4KS<1=9U}&C3F=1%yoeyQ1>vW;x!ldc9O-J@RdrsGS|7Vuihzc{lq{%0?q69{Mu(M>Z;L>~r7e*rVxUYBRG)ox` z%*=If`o%TraHU2WQj3x8bW59My5zvz``~D&2(|+@B`$Ets!0x~>yG=S!CB2RW=*gV z;uqu^wXK+c9w#)hdwo8x@mR1Xb%nFS@Vl`ui8otN{Byaqg>2}j^h~&SQ*Jyyg z#V!fff=nAN8|BR>@#G@oBT$0f=(O^-?H%Ye@`j~B@7F{sVkdf#E(G-RL0LX1fJR>{ zI?0j5wyhAPOBXT8+^PM19V*$hAtuC?C3(k*mXt$b%--0W8A z0Q{Ns9g)2PL67+${Un6f%)|px6HpA?6njj8d(4Cv1;HX8Tcl6Sm`aSmbW#$jAfpOl zN{`xkbiaNhA7AI9S%A<;8d>@RHMheXM!10sHL+k-+X#~zSv9(ajPK)fDT1O_2DG9# zAI+Tf$s|l1N9_I{ISJ)-oFP&NKBLXD^(e?D{b=X*9wCz++>n##@;Dz&m@MS^Lu2a4DaH(wo#Uw)+vhc8vtIOk z$S$Mq#mU@iyS(;leLu+0r!xOg-iuX1;!-aOaTo-^qzErw5CgRqrQsRYfKtxSvPp#< zNXWx)@T$s?=))sV0n(@kj3xwXhVdI7^-I9jO!4T7n^h{wpM~U% zC-Yx-221K)C;+#G5&N{_V3d-CD!aID`r$qk)W9!9Z%_2e$xO(L16b8V*2g=Xevq{y zECk6IRfzGRp|z?M{A^l%JNfQiWN^q6{rC+o=Nl!={g+l;S}vfkQDX#0Cls84e51)~a5iSS%;9f}1I67g*Qso^34FuLuk`)aX|C zYB%FwVD!|rnyIvd>Gp(jsbN7iDQ+JJ`i+?xzP=B9qm?|_3oS`ke8cenPVcl-{B&VI zgGPgb*1$bF{bp_D7jd1_$ngIYJkqF0GhcPY$pveBjiRW^&4P! zk+i2rjfI7)eS2wunE>YoR%lxA5w&GbV9Xkk0ix@`k*ZlKX7P5bQaFSex-iKGO#csz zm5SZMfq`f#A_~8{l2y2b2XH5 zB&(&m>SWs}-KOU-OtVc3%SxtcdgY0-glxm4%EM_Y!_Yp<^47|{$l@eV^^0B&yItXwOyWf<*xl)Tae@N z_Z*hV`;51NkAr^)d84M>-ZH&q?VMIseHgMz$+2pUv%Yf!qOzjXEr42(_r6(mRgMLi zdn@h}EiL|2XWl^1RV*V4sdU5wERs&#pvu~aRl<^tzp9!&o)Bs*VQb9!yeD!PQj^p1sPNB40lVHELi0qpI4rE8R}=otPR-yEE>F2?w@6t?u6$ z!lVL^!;gz}Lh`5TOvf(NZx}T=rK$)293iwCx5{t0RzE?Mi;Qs=Q-H*mX_Tq540FN& zdPzsFAI<=#IJCv=IHA<1v1DRm_?I?;hei=zF6~N$kh>;u$>}u2*#SwEQc`R6sX#YZ zALp;j-xV0*XJeDnz4Rzt0Z9z?#~FEILR+>lLPMQUc@axEe&6yiv~HW;UfV z0gK}-fjtN4<6O{?a~aAz#*iL)(k(*gbrzrv7wPek2>usKc3qjF+@HV%bK`^O-?dy# zWT17{a7nIP;1S$G(xFty1w5ncp`b%1}0`r|D;7>A%FYy0AQ3yps+x{6McrFW&PNFM<}An?4O*W*2!dsQK2%Ui@!7g z5K6*8KdkYUGW7bKFWwC4$1}OLWeBFJ0)0dx4z2Ec3tSbY?t3(91^Va%U0{kbaucP3 zvjlRsgQT^qVDSdxnn2jX41vPFYtisCo1nzHsn%_j-=M8Z>p_B(Oh6Kqov(>|H|C(u zg??PPwfsjJc`8lMI2tstm5UMjJ1IBI{lh#f>hmz2@rPsON2a-=F&o`D^*l~7tDIH5 zQtbTNyjGElF<5W!y+G`jns51&-3>4%wRJd-9#xBMVj{ThAxZGFM!&NAl1+D^*t#vp zM;Hb;rDeP5rc|1)(TLPYubNMVYtmujMulyTN&3orF;T=pyfT6jqr4FMu@GEhX$K4f zmu)7W8)D0mks*^!H`q6i%Cd@lEuUh8iFkqQj?5pW3k=zLFr0vm{EVD55_#jqWg%J8f?qoHZl6#wp_eq`kik}+v66p z*1j0F%6KH4-m_W{z}1u32xjnA9efqzJ7b|wS7X=F;)Vb^OwQtXV!m%A!L#r29m)s$ z$lg7Fzq}0QS9|v!5a$*~b?fL28vk@-exBA?B)MAf#dBR$?4cMiabJ4mfB{P0&Mmvz z*K`MGwaI;)t98kx#xmMV&v94x2zEYVbN^l)?e+iMjhCCQekJ|3#9y8Lt-We$(P`Q} zwbS@^2`e-4df5BT`AU19C~yN|J~d)~_mnQA{yT2V(hHk}?JG%A6iZnh#*Bp7l9!x< zaU1;#c9*Q()177(btN9>r!L=qof;d!N;e{c$-3Wu1>vqPJCm?;H78mXw`4 zE82*<%jZ+@Tf9S@Z!dBhh)8s`ne5P{Z1)n%#=u5M5cijy1P5^5>oKiA7)eb?8Cv?Gn*ZhY)mla$6RHC7`+fx&MR#qfc6V zC~5o+`B$!d;|XvI&Phug;7@MvQdZr*0GWzn1D*yp;0E1?t)V6Zw8H!4?)FbACvcYZ zY7g%0-kaYX2ra769Dr^fK(__y43UK2p3X`|0u^KiS;Yk^2Dan~QH<6*#kD(&O~qy~ zBV>qSt}sR_Ir@U>1ktnj*TC(Cgrx5P4#uB9nKh$s(fJ!WC(vv3R(hrYG_SvYACBjk zv^R-W@)l%iC!2K-m1`0k?H;r+idD$0dtfIA*y_ED3sm2&e({!j`m!^xd-u>e$FEM} z?T_3jBQKtRo4G1e-tD=^GO8aJ-oM72J4>!M!F^*D%1Kv)ch3#6KC zlT|qwE5l1EHc(~}`66r!9fe)TMjRyz97TQ86fdMwf|k%LqSLrLt7sf+RBm@XuXVb3 zEc{}_TIBaQ6w!!J$D6YjPUIbC0cV2!c$(fn!C3f*v1|)PiniLtnR;SAAQ{t-@y4Sx znM`fw_^a{m*;Qjfp!iKH!d&cYS2Sk<PJTV%DX>W>;emd|nwxBMk4(0;uGQX+d{Zd}GV+8N_}sGC??t3TozC*i~B=Cv#V zIzDPTjvYP~-$%c7P96Mvi&Wyofe=KI2!;wY@ZMn^$52UtKK1(`8Z(uK7Ry3MEcDP; zw1D3r4~aYa$`6(_TmlND8$py6z??{`z=)w@SqhQz6Rbj^$f=!uO_7UZ&SF3>bhCoMj0A@)-lnX2~`n;nee5$+5=5tstuvU;9v zP{=Lxj5mt2e{SiX7%5TZf>oNy!i_@6tfI!S$3E)`S;>#aRSH&WGc>U_vPBn*J6m$I z_|FP~Y@23M>!|;b2O+ub{*(1|zKC>n=d2Fg@{)C2YbqF4XogF&1q47GGvZ6+=RMrj z+TgITVki1$k8?`$7tFh>CAae(X*+=YOC?wojE36g1i0^ajM$X8ubGV5$e)5wUxN^t^v1xtOl5mGF-p}d#MU5<0ktZU zO|DNTT0lXT5zhq+o$wF zMhKrrti+BGxP-}`>S*XsxBk(b6oBtlAn$Sx9G@J9M<&I1wxn@Nw-f4Q@iOHX*4)$L}5L8a)!f2D_-k73|jqbuJN5v@<-=+E_t!_iru#ie1d;hDqFbAGd^2n&^C$H^| zyukmyU*rAR|9RT<*8JkFiT%D4{N9w<{d|dUeG?=cyzcnEMxnC#)>qrNhzI*vqRX{O zBRqV)E#@$tIU|`rw61bc9LPWxo-4UR*tjBeHPi6HOH8C#oUM3X5@?;tW&vznU*CP7 zdg4s~>KuCKre6)Dylp_B7AdkWe;Pr`_LszrYA$l=(W6jv&#a$xm^tLirkQm4v^UFT zl=QqA3ZwGq(GF?VS&C?slKhCD`}v#f>?rxC+E{d&F@Ilzoa9M>h)p~!&gU4SWH*~j zTJkkN0ld(aU)9Mm$D4klBb6g3-I-tGpHT+Nm zjS8^D`E<-@JxM_vlJJiP-8VkvVyji~1U#T9R=)-el9Vcdlm3LA$)Oag+%i%0?^e_~ zQGz@ptlOOTg&F{%_1Vbr9!Hk?NqG86dX;yrj^hBl1cg_Cz%R8O z`gvY{k&uisA59sdAu?@!FRTSGvKcac9D|F796N-CeApz@0ly_IIzf;;ai@-u)rF`` zmwY!R5;3^yN(DoLvBvRSn_Xg3=?F22(*?KAweZlukXp9^g@`&NQOF`K(S`S;|FMRIoa7Z{^p)7ks$M!$1bXB>SQ&HkHQ2(T@+7;;$8QsOv?PB{&z^aaZkVvrQ%3fPo~Cf zjBq#B2fCWPBVvY{Kn7yKY=In~7_A1O|7NT%A|2QhSD`~u+f$>pw06Gz$!<3=qquIM z?vGfSh@Y2U>Xz_ZOQU{IJ?1`hWm(n);;lVOdIfP}c2EWlqHUsC$@wBiRW@jvg_zO} zlO;Wa6Q;owQYi_b4!&##^9nLCD0t zJcKJhPE-7nq{Wx&aCfQ#^N&qL^vL?lbYIT#W1qUG7_^gu8qg3zje+&jm!A&On0{*2 z5D(Qk2fEL_4Y>&zEbNBD24DaEfw!LU`~jgsDKa;K@8Gmxo1^hZhTNgGwg@R2KizSF z+G)O{kPqp}gzkdo6T=__m{uH&D@9>>L{F*!U8VMRqJFz_#EXLTpQa=H^{_Tf-1QUV(OOh$r zD(mFACb>Qbheq=6I;s)~+thFk?^{n+<3zHCm1bW6X%j5>CQl;z$7z1==AJi z7PMCP)^((q75y&uup|Yu3!&fs{D{EBL)yLk43DEIsAUgTDk8Z?zb2#3Ry2e#&^%Hw2|1x|&MSXNcU14f9XsLibG8!h%x)e%CNrOpmq zEJB$PQlvtwEa7Xdhi-&Ub6=H!49iKGeyR%pdb69O&Yt`jwC^miC1R4*<_%Si$C6m4 zFkO}IQcpCSBd>e^R<6kD%A|erz81B+U7uUJl7Mfg#$m-&yd1G9l7Z6avwz%)n`kMz z{pOOVSm|r!stlRDZO$|SrF}P6|7ShLpoph62s;en?}fygug!mF5u+&Fm}lJlMPA5a zNVFjM8~!>iJ_CUvc_*6&g6^}K=3DnWL$T+2qaIE&s$c6HHg!3x;SET4mSfj2t#4aS zH28&Vt2#1(T4S#L(VZ%LyXjlLV_x@_cp`yU|X?&i}$z%l3%>)0bhv2{Sx`34rP&cJ~a?e_{KOzj$wX|QZpz2{rs$v=_B%^+&`V&@W(DfaB^%g}^ z%%%EFrSYf++fnVLUowOCX!Gb&yuGgYdynh--#OFEB(uNT>0dy)YR}6nE+*5#MP>2u z-mkqq)J}#W1PUo6cL*@vT4%(Deh0QxF{ogyZVD3sY|TNj5LGJ5Mkd%N8#^m=_Y{-@ zrg4OADchgNysZkb5)_BU)UdVd4|j z=QIZZivAXjVheQ~#nXbVz{cecgwZ%fftEKECh4jjLv`)v`qmeRndYtDcKBL$dLT>g z&V&t(wfi1I=JnHo@D>FeTaeeShkgT*y$5{)fQYZ*Q`*vhrV)m)FcXE?U>Gz33DcB> zh>B33>kr(Xa{arE=b?4CWz;XyCu|sB>CQF3;plxg5H|_H)RmNJtpXn7hREzuC5&?W zjD%#Zqo+;Sojv`$48KO1tsi*^knVyemdcx3uU3GfE_A)orr1u2Bz_0cCPU$bLGi`> za^fJ{!DItFX0v!g4)tP7Kg(|N?q{&TwfgCEblt)RIP41j4Qd5{7Ak&~#Wu6q75~V? zpE{G<9SzI6y3pmjz;z zcX%`}HQmbTDz|tSRbi7-PHoR*BK^BKyC5FTZ;(bsZ48;L#Sc^2IxPZU zkBNetCS-F1AlOBKh1$pZ*(tKeMwLg8oNk1it#7Mke4IR$_aH0pD+^kg{wjMERW_Y@ z`7HZ-$#p>nJ<&~!LJ;Z=*YEwe!#F!~LUxda$@Coc+(<1vO4^6epZv00Pai!Y*v%39 zYlb-RC48yOF-atN4f%vt)f(M31$86ypo{ zwH)77T(A}5CTRVc5I5$re>wM*6G!#TeGZMQQTLSYo9ts)FR^Z97L}C<9m(Dk`D0p? z{WShc3YTOF7P57pk(lWQyQ)R?bp8j!>`wdA*@#1^m{Zz_RvzM6PCPjo;!MKcNSuGEv=f^YyUVKNVN4S% z-La~C!wbpqZV*H~3oCPfD}NU-p;^2J4=7mHd~Y$Sw2|R{pElb%UG3OtKg4rw8((*6 zZ=ECZ5(raY+)f~=c*UXf;S%fYjFPq-MSkuj7NhH7g|d*W+^CfWOyhGPE{Pj(6#7Y{ zS^ZZ-zl!6+;SCOOdf_I9GjUZ;r6dz-`U*hHa9LGLjHfI;pz0(Sfo>%Tk+g{%Lj>qh zWCK99Y7r67B|~0_^U!v7M%~X4DM%5gX&1x2lyZ*aY1DgK@QhI3b?drMF@5AZ?p-bN z9dquKLGLs*6(&RqkvO}Ov#MKt>rWu7KRvq0DvrG_5cXn=r4ANgSb<7edGvsSR1i=b zY@dpE1W2gly*)oMG~y~8j$>R5X1GDdp+ymJtvfDl6Re4{XAsxKgn+MsYWf>k1AkK; zlj6pNsLZ*a)fdXoUyX)eN*CK*WSbP})1LjRK|gi|ZtSm65=@$F1xbnt@6CX-m+#+% zOcrBRe7QU-*wV=m$29?&0s!w26Bx|D^+M}#HuFN2O;a#;ZI?}n&dG|%n(h@{o1Fn?r@#`)vWLnFq<|o97?jwb2ow-5XSQMFc1NgdUD=m#6E{(28z=D%&1DSlC`lS z2)>=O68?HW6YLiv#8goHFa{YFH{}8_#2(+&ZFz-|s-P|A1Hoek$L(aa#m}?sW%CG6 zRK$;TL;FK3JXJ11Oi=cKRC0jIr*gZwU+V@8jQ-NVRTVZx`{=~)&6F2}3#gF$^Gqu3C0@+k}sv8!hjjfeVm&HfPI<`uWh))zGwM(yqE8Ync zNCyd*SE~L6^lkb^5uIo~*tAZ-Cb>tZ@cUl1O9l5%*3>!!I_o1CN;E-RLl1=q(#!nB zj=|^sc)!*=Qk1I=y6jsz6zzonfHy6+&!NKmwPtG*a-=vGTjk24rj7}fS zj?Y}Avmo8x5CksYE>V*c2>FsHx}j5QGJ1mY(3fI+o_mWa!$@5v&Dh4in1+vxY?dxs z9y-s1TCYZm#56)sZZ3e~R%)y-kyNDyHD_r<89&7CbW# z))(k)slnL@Rx!>=140~`z;cgd`v_o03KB~2Q^|X)RmR#YCS&({HZ~`P*2YV;c;p~b zvB2X{%YyaEy%B7cT>K+M6s@*bJ<)o8A>~~t2JA_-4;Dj_FU|aQq(%^dG5w-$)lv+T zUd#03k>A_@$9!Hsa+qG0PgCd-Qg zKFIs~*UkfHiQ9NcJkWNIyVdG*%MwG1&)dXO9m%O6mfFTwrEd6}+QM}gY%Jm*&baz! zdnC-K9qP4jAl0^R`BN#xV}Se=tn=cZG>kut7Oyj~uz$N7b~7>42u^e{u5&R*eyYth zFXPnP6Yc!~!sV$G-qLp)%c7xt>qOn`+e5{9kQC~TWXc==*5gts3G=@tXYZuySAjN( zM|KJpuZEWney4-NuWtN|FF3t^G*SPrxG2jp%gSU9<0`9ffw{Oo!2okFfRMPNM{k6A z7D7wbnJ-^*PcBA%--?h+$~Ygm9R>}X2)|;UR3UamC!}2;u#HBp_)=S*xzdptwlCQh zQ@lB#r?~p|<|qnJMvK3zfj5sFT%k8b-H zXK8usc^Qx-S+@PX6xoU{zek_&Dol@5CZ%Nhy~if#8wDcmUUn2yusw_^UJ6q(e-jL< z90O}AagKCGrH}p|#D;<~+9$9AP7s|)U<|^bQs6Rv2@Hay{3KyKQ4WRM$c<0?sCv4F z2OTg9%h0d(_y_3at>i1c6d*L1phYnaMJUYUb5u$i(( zzh(?QQHsWu@ij zGW6pMv9K!A`5qH_wzOna27GX2y0rVucS2T!iYYuH?&0tr4C(55Mh&Gk2B9Pg8^J9r zDFVAA*vYWBm#Y0@qu#Ix0s{b{^snB-$GzAQ7G}YxTy#*W^JctlR#evCl_Mim>_Q)> zgjz+DWE@2pD~1Gl*hLDX6x1OQ$`Yj;Qb&`IyT* z{F%`^aPiuvOAHx~PP@O`L`@*3r|!{1DL%Pl_)mtiPvyjyR&er+=mE3vd%MOw2tKmj^T}`# z<&LQJKxk?-cug8|oF3`IYpHFqC+&~5wj|bG|At)c8LW=3>Fu5axy>uc!R32#(ot6U zf70-4?66WsbVM>=ey0THml4dbG6U`Lf?^dpFUIX-a#Ln7n93TH{_1fT)uHP11C25c z>|xnHmcdI$5!h~uS~R+v`YjL@jx`4MKP_kA{7uTTra6%axHN}Y$s~QNg{V@1gUsb7 zAnO&9RNkWPBh1QFk(!c;H^sbbM^G&$q4=&H1~qulG8u@g#va)IlLMUHaz?51I0?#7 z^wP-4mp0s!_b_)k4eKl_X_^&BCF%G38^kGS+6mNToykF`fs~FQrnejA>TI5jtM3`; zV(Y)SNu2=ABK3#%nmT_a@r;4ji;s0|Lzw@`=5Uu1Yr4xF>0lw1<6ULpp2;)S+C%Xug0Ogb;k;*J~uNA)d?r>p~c)1uD&l~n1nXH6>1v^q$8PA zXh;%Iq@WES-q#T>c^KolGNtcpaY0y-$~>u0;o5gWBgqs221Qg9OQc2SKEv? zSuCK|JddtH+Hjm&q?`{~Vt!TQfCSO4VbYvph?4 zNAqB_`^8E0x3rvI7@eZe{fY7);YR2qQ7%b)4blSyEfgs?UbIXVcarD|{oSQ!SJ;r~YFlN5USnxAn8=5)fl58=hrre#u z%5$x6?@KYlz*6=Ky!&6Bj>^zTI!+)&8Qn&>gAjX1#W@P%q}bD1kvjv;nI5)5^7faG z%CPEjBsK1an9McNZzf`hm?n_1tIJHgvtNOcd&06}Nxwq;d>O2S2XBjXmJWIlXT?%E z_O?4Jk}T+g*QWec7%p7DJdm`{{~hTpZKrs9sM<{raOg0W8%vbsrq!9bb3lynkuBgF z9*ME_kNsth-4mc~rx+;HtrOlz`^KeF>ChANFee=^gZkKCmmClIrbe$q5}e$tT$aU` zaq~APWrui!Dv!v7~Ryk8t&#W?>6Uw?aU`F`o@ zj+FxBmBoKZ?cO z7o6@(@*aeSS!o0E8_<0)FRXqGo#GS%FWhJY-uRJZ1UNhsBK6RB%Ag2Xz%Rqtc3+u= zEBL+o7grHT(Jo^H+)_TKg-|B~hqQ$_U<7dT06$S-MY?p<{)e?N^cG{;^5CTABqlih)1XFm;ks_@~72UMN>Jq}trH2M^8f8!) zQEvd-$3NuLF2@_V4wLgxMgW+DS(YIqAubRBAim<_5RZre7b&610pyTA%-s-+WbfJM zVeQL_L5kApLV)$5FdCm|&;g*(Iosd&JuvjaYd9;FZVW10=^Id_8vl^#gGKcfBIm<~ zSSL5)RLtuXI?~vNylH^6AR;>y73P_C-F5C0GG+^i*WzKvVB3f_f{OlfX~8@0O53N{ zsQS)_F%g02ZvG#}&LKFIXj{XvZQHhO+qP{xIk9cqII(Tp&WUZ@+^RQvZ}J8`=t)=Y z>h7ww*ZTJN50}AZnw#3a_mT-jgJzQ?OhqBS>I0@1Vopuv_^gH17cOO%QpJcFP8&Bl z++z=*U|sJZsLg+s6+h>f&d{%K=ba-HumSBwNi(i@1K(U5z{1Zp*LZNjTRj(pZ6`Ga z0V|n)qrgd|aOk~CrPZ1E&0gpKeF#sG-&Rvvps0_6Ue)izO*o7Ik-0w+l(9ceRQ|+E>0(c zXCSbZN*e@7U6hT^#F?CREQH2NFc=58@>tl62vMjbPOQLMmU&mAq6d~*(Q#BjQgZg8 zGi9daAkc#vixGAngQydJ{1?6QH6~dI3a*1jmmu0n8e9%(3}XPTJ9f0y_FCMS{H5Fg zSzlCuw=E$*z?n_}|B`%tzXl*zbw_KRs^3&Lh`|(vW+pt`M6G)Jh2Ua&e(bf$Q`7LL%%3^=7?(o!n8^HbPN{FF;^7AvA2z zcOqqjpAWT-01kdB6>c@LpL%N$>#qm0tr4Cbz}fFLH>2|;;K;ZQ1qR}KL%fXImDig1my z6i$c~u3Kr(kQBl}g7)7{@JuAHMtk`55k?x9d(@fLJU4mc zb}LWE8%=p*;An0VAj!$ne3n+L$R-pnztKR>?GEnj)t7Z`Z24;qaXG>0*O9w3dfQJf zkh%|vK~GhetG8VBoBKL?3kHARfHT@G53Hht&vVkhPtIOi7LH)ra~DJt2p z_g4!A?qG~ktOnh?NId$b``Wb&7Qn#pN4p_~U$umt%T*JzcCR}a>@C#Dkq(0xiWmh3 zbR=T75^Go!v4IL+`i(lp;UW;lqO9JPviKG|OPbB;-NPNG5c-3e%gOSZkiV-Et$ zQIT|?y6}=ZS#RY>fy?uyuepm(e6O!$U@Vh&5y%Ven3gl-2W3;#$R4DRTk6KvGjTbZ zCmes*MCnr&W_~5f61OlRHeETfUZaEqJnZbyre%{+g9Ej9NkMS~rxRgs?0l+}C3#8+ zwk?r!y$W(?wo9!Rrj~xLKT>(6gK^nGrwUI@9{aem!zY+L_2&$lb0zc^9I)1=6sVYumz^ z&Ol8FK@c<$MltsC_E)LQP7$kM_u z41ZuW$pAl5o=6&3;lP`rfO`SZcUyFxeGo_MvUDra+a3aZl4+81!m7NxKu8Bqbx?Ce zwT#_}$%IVGNz~z^s(gF?`O7>*$cR}fBLP6^rxaeDv`)~*-IzZ5Lc6l(p-KJqs^p9f z5z4>3g(rUg(=As+Wctq4Qt5Q(m!x$SFy))0rRwl|`Po!d`i5)em;{?wsJ6W8SE`lG z5AIm0y1pz|4$!n@D!1^9*UaP%?o&L$n^*XYx=VgBS&;%v49SsGO~6=9Wow}p2ttYa z2{p&{_rFezHmHQaCQGTyw#G$PRJ)Z=m{)EQ5eeIk3H_3M))j@OrJoyN=3Ap{te|z) z{)e%QqF?DQ0}7ZK00%LFsrkyTcWs&h*!j?;(XidfaIpE=IfU|!LY~9U>-?=!88p!} zq!bqAwSR74l0hH{qI_jm3uvldh)1~5&Kx626E#RPPj_~n1%f!j7Xi(vLb+~xuw2L0 zrF_KdgVc_S^N|x$`DeED=C;n$5;jf+O=6MZ>Bb*`%J(axt;mrSHjUOuu_CGH8!W+0 zh(pK-6a&`4&qZmd>)#MBMHA_=&NlxR8am*TRs{L*OB?DyEtZO=FZ~mh>}d4P6wA4{ z-@1%Fp{GV18b3o~B(KjK33ix*1S!KqcK%Irc2zUq(s7$$E6AFhn&F0HfAV)Udk@q+ zvy9DWxd&X=7%CJ`MQ8UTka#dBgFn^-Gbm{OhR9@?oZW0}Pm9t7g17*VFv}mXV$Y34 zIM>G<-{Urd&SC>80cscrI!6R@78jaQ30e%^s0D~@6+Nk4ox9Xlv(XYV0vJ_{X@+Gy zj;DMhmgQtyXJXasl!WgQivVDz<+SsY6>=vI0jqY6=CJQuhI$nCmNvfGjIga`;a1O{ z%`aLZX23A$2|^kHu<|%Ipd?{PX2IWcWl~5a$c=X>08_&S#p9~Q7Myofffcuuda(Uf zADLAIVd;G}_4%RtN@D?0x9*#c2?{GPhQz8$4*KlMb@sC@ZE17q7MRALVW;Rp{@$?S zV5Cm~4T2EZK-ky}@d{~|*ghyc1aw^tx_o#xhFC7+H92$sU@=r>k{U$8>=87MAY5rZ zN_%Nn1Sb9kTqwpu^|m1nWj8h_oELfR#gu5z_mq(a#!Z-5yn-}3)qiCXM0@jEtscgdGX+`-=d^j_w96>dj*MXP%4{<(K5b+zhp^^P@0Rtw%-LkS^v&8Z zLU)ppu>&qo`%82@dN{a_$SN7U!n2XemDB}Jpp@@Gy1R`+EW|{iLvRGe-~0$rMJ{=x zrFcS*3z77_p^bnNPhy97f1NwaM1;h499GBR;Quf@ifCSS>ah@*@wg0|<9{a~9PaA1 zd$@!ZK3*LqgNI2zm>{qL^Uq)L(qkuz>6fu(}~cwH$pE*SpbLy)!HHL#=;wV)OUoDGrF*_+qc% zP|KR~Z7`xM<`bc2EIU@=DjAB-f$h0E4U7#IYC+@M2qdiP3Fp~;8z3sW(5>cGHPw`} zIKpqX-rC3F9);cgoh~F`!n^7zGv1#WK zH9}rA3;(Xa{T0!-jzGgG3zGGUCOyY2m|j)KMqW_;2AvFNrab!H*kp{A*ALokCZDTY)DFB}lS0;ZG0&*7(#JnC-Q8699;u0iDg2c$S_1xn3o~ z(L!b~u~msj;O#`Y>Rm3`dCB*AIclJr11RGAwqljw9BDdr{v16Sv}YN$WspJ1aiQe^>&v;AR35^nZb5qq2)HnNby=0I@j%wKxISSPFRfQGHD9 z>FVLr))xtF>1-NO)^!GmB{jdWU_=W#z(p&BTOIAthKCi0CI zbh$NRT0zT>ns1*z)xI_!w;eoB|M^&KdGVPQ*;Dp7`t;z!HQikxe3F@-l1eT=Id?>_ zp@;r)ZL^Kw$L(jSVQ01cCe*c%Cf{nlh7>AeX0Qi8cR4Is@N(xPwu;#@8lbOpm2$}_ zBj%egnwRvB9K5h!K6TlVD?EdXX4-V@GtBOE{7U3Tl0mw_-eRXNi5J|HFS1FE16>-$ zvWORoq9nqA_#3pUvutfevH}0dD(f^P=;R31eee&L+w^X0x)NXgWg3rnMgvRtb$rxv zV%~GaF;np}J9Yn!prEOoqvoP&HRU$uaFN!f^LH6t*TgZ5`_~?`&5}$3u>9O{i_vZ~ zU!#`i`2EM%8Sl`?M|{mT&b`U7<`_N&k(~WD;+ElTU1I|W%h4yum*ZrI?$_amo2IkdMm|@>$R$vzEX`b&{@Q#)brm@m z4d5i0lc&vbh{Du)PV|Ll_B#2NxZ)TzD$kJ=LbG;Niu&s3hv=xP>hqEynun@NKdbO4 z?ji}a6a*L1@O_j{wS6&y--2BkY>?khI3-{&EMs?^nBnwqKCv_B;P-D1!>)-p`E}`Z za&vgdPk&7idmM_6d?@uaLw6JeL1IIh+L!aKnndbv|Q( zIn@$ZWzZ|a)bO5DD}oHez^|wmnJUQc`ic0G{-Q_K^t_nL!KMh3MZtTh~nEBm65x$2vCffBY{TW?}XJRHUi z;FNlpttyAmqxle^>p)obI^<0p9^$Z2Fq<0?Yg7W70AO=Qk0|O`sXIBuogQpEYI*Wo zMPu?n@<~uy88BmUd3mu7BrhC2^3wJP)Vl(02QHXesbs_g=K13HSv~=_VFPlD1mX{u zDY*R{xl>lZMQH<$mkDY7$&>82xy6Yd6}DJ>m*o?Vmhky)x%Br^Ocscs0zD^v zZAGN#CVtmP@JIiPy_72Y-a3$5m474s$UzCX+Zz z-w#ZRAF7(;^;4(gaF7!ai%QX11t9=X@ML#Z&r8HVrW*MGE7%M;x3P29(?E$<&#JdKuQmw+GE~YkB7VcN#M3~v%s%3&y+!KJ$Ya>0Pl#-=ME{*i=OlZ{SYP+7P46br5$OmA_UB zRkC61<-A3LONvA)=kZ?*Sk!{A$`Tb(2vp9b8bJ;N@kbgL@a5B5$xc1}(KR1sj{cL$ zT%1tm-3&jU#paeayu|<7<08OEpLp?SBE0oaNlrHX{)E`$#LX;>)Cu2iOg%1Ep2>ah zF4OXr7n`T!DP=#(APIh_7oS3*dYy({DS@7S&;VvySi<-lFF1$fW<2V|gKyt{`JV@O zC*@iW{VQWsT>Xq%tUctr#_})Y)gLj7-As)&cHXvsHAcdC8v6Ty&fRbw{VD1@J}set zDW2WK(M%%iD6!c?!=r0n^~;++>Bzx1ZPC<#m(nX?W@QH_fU9w}qt z&BP5zd1-m@8a%)JF~ORa=jPiutjk)Uo$Q(-Wk>&XzxO;!M8_JHzal6$qiHw&5gjY#YnquKGyc}yl% zP3G?VP6oEZf+9~O2<7v{4}X^aljnAUSSJL`J4sEvB@bmAoc_T@n3T=nh32&6g2suv zy=_k%UR{)uZjN*r?|-U8Gs7l3QvB!rn<=eK6@S3fKeIb3v}sht{wOG)F7d4M(qiEY zA7cYkP#GJ1{myB*s^lEhoDk2_oC#B(?`i+;&H2)errn&TVQm^b{css~*7D3S==Qu3 zOdOJAr;TF9DLaxq8QHBCyu#DPG1H{cuSMN+K%O2uiZONl_Q?02TDOlK!;WjG_W(nq z#&G>bJaMcj)Qii6p*y>HWJH|!^-XFQ6j8?oV z@^5}Rn0QSoFLp8pq znvk*hqzU-$Hll=W(E(yE!FXG3kwDmRouMzak|4h#J~<|$e$>V}yKa{~dZFNRD#WXcn zgTIFq9(o!ca!T2B0kXkxr9DZ`-l_d5;5d9+FI;!oQV8?37%$%{PYw&Qq-IDh{#NW` zj!>zUh=QZ8eCE|gd#w0gf9pD9! zpfahGX@nJCPMjNjX461ir)K2fd)^il6iYq99uR8;NA9Kj-xeSfb-BF2^U2I#qbaJ} zu|~3pK0*FTn>oBPE`Q|?Z)#d4E2lC8Akvp1MR2hizL-a757D4O0@*G{>(SE)>D70; zE;z$>CFOXTI)Pm;HQlnnNxl2~ed!KXgJJCt}PCENF2!)o+h^Fi0 zNIih;Ro)$|wuy79TqUM#3@8xzEwd|#4+h_YG9w@EN&|7NKsrvPeGaz+?-G-?L2qOIgF`V zktp7*VH-9)?Dlc*zeIdA48%&sG&pYuB+MPTXPLk;-?EKwv`V6VNHtGMc}Gf~Xj=BJ zlO%y!-mr}?S^r2RP3-~4ORAkM{zxUs_@iG*^6ZfvW`>8 z6H`#HWfJ2(-E^#kuTid^VxhLjD=k1Oaw4HE0>l)&yi|=IV#Vmk`~o?*>$R7XYH7&G@OVT-XxPY=!o*D6D$2*>gzm<)_- z?j%RnjnuD*80ILWul>k<)i~FJcFA8qP{chM7`v!@T7)J=DT3jV$!^h)mwy7`b!vaB zXdj_FbCS>;o(kClT}BIyj|EDMNp?&m7Ps>u1n z0A}U+g?29s#8n>k7|SH==l6`|DZ`=|g5|{~;%0+DRM_aLz_QTmKn-D|S%rR2Zm058 zfO@gi&B$|q7HZ`u;iyTd8|!`KDL^;ZALgk*KXSy>@$a?>Xu{6kIczq~SO=12uL8;D zBGrLP-F3GJ#J%wJ?x-{lHi5eGBZ{%^=QRyBNl-c&BbcaQX@vTErwtkj7uIz^hpcJy z`~N8m!OCUhmfUq&g_8#m6&!k(N`^whMluU~uf_Dsr2(35%o=id$l>Pk$AT243XE-_ zI`ob^HMLP9ohy#rNfD@1W?^bU;fFC1Myq(W-2cb5`5mKm`2LcC|tsPO@6>Nv4=-Z!Ap2NX{Cq z$pJugb8#xQ882}Th{@AljCWNIj^R%gFa(;ULK`5WkGc+$fSS96%yKud_^rhm4sc*6 zLpMtA7|na%&v2}V!vYi>Kb%f~gq#kib|66Y&AeByd|SQ{Ak6Hi#0k6NIR`|a?(!tu z2&XEO6g#j3wfE;2?_dF*lV+L*c$}SPsd}B~AzPI30|&S4VO^}Y$p!yzUcE@Jp&yc7 zN(IDMce4p!Uv~?KhOPs{s3rtsj;k0lL1k``Yf!sq*bY1991=oy(b2V;!#%#lRzm3 zQ+0u`fHnU&XcMls3sb8*^LQIwOcIfbiRVc@$o7lfqdMLZ%&TiI4+Dm`_|jWh$Ya5v+3nOGo4L_yj1aN(z(6{CW_NwB>BQN{@sTRjShS ztBxJwp@@>z=PIRFd`B_zFyYenVC#hSScp+R%BPWM9f?;*R7`fkB(@})aQgw(+g#wJDBZv(w zKw)5lTz(Vz_~sn=x(ZwKR7HCBOp46X~@qr--h1R)*VHJT&-iT3d>yU)Ht~7KntPp{>Ih zw06cxMjCQe#WGX zsnwnAlxZD+9dyAC8C@5o0|5dC6mtLw;WyHBn9Ab~t5!g6M6?|7yGPA_@AC^ZC$cH$ zKsN`rL~7p(9nh3dxz$PVJOyhN=p)bXQ}FgqRI*<&j|7gsMHL4(?SKggF>{i2Ykq(b zBMYEF=Z>O`ykAyi>l`Q!c|v{xE6xVMaq72D4m5>O`8|X5rSD{<;vFKL+^~4n=pM!_ z!K)2Lg^ggw)ASClH_`;l%5%tx`B#s#9}xqs?=n=OH^1l0h_x8uem(#moPaQ?1lK|w zrby<>3xF!FFZjPrjjK=V->xPyy&w*GTHOL9crHBLNRR>@2R2?F5xiTOg2V|ii@)!u ze=8?s-T#%&urmCAr8At2jI94lIx`u2!4ZGV*E?_lm_9ez_y`KiG8gqvZwg$;pma_F zj-mVCE;<=undXl)+$o6`rL*~N<9F8ynDf4)B7!(sm~{M*&I z*0~<{B%fsJwVgc9?)fJxJYE~$$;G@)2AOGKJ@J2DtZ-P${@w2KFL^`AW#UD1?@+5V z74{!|FxG=0F)=}O#OK`Zg@!LX;f_*s=DQ(o!5GM4yn38QFY12LaJG^46@lBQifppZ z76NT_M#uteR+kXVv zugJbcX#HN*y1BnB7M8=wGT`K(!DM*B^Gx1x&R9pp3|_7;_J($3q6uxf%TaB&KaR;} zYYT0C^6U$3cPKXMk5rZ0`Xat`&aFt$cn~ZLIXL*61*QAS*(oscTn6`)6v21+c)|VW zJizCA-DYNPWcg>)F0ylWM?XGnbDGdBGVm;l6l--VJR?!mKd(NpT3w^cG_HM%>?HNo zLlOg`qRhc|(Gc4IA(PIn<@Yq9OsU+~>85WGoXv%&70q!`AsQ`Euto>V7dX!KR?RsZ0X`K`%* zA(2+8?#Ag6i~gn(hd=(R66mG>hf{STP-q7^2|%-~GOKU!#EN>-V*6_Id%)!}N5uUO_c=YH+m6#vFC;9G>6n-gsErzkENwvPJHYh&LO8Z3(ia z{YDlp&xMKT|I;V@4W;x!x2k+}9I#oBtuMyXa0jKgAGz7QM*g4xBv&dG7TKLF$C}Yn z6jTJ+f(V0^Fi{Sjry!MXC>GIp(fr~{JOD_7GLA+zETD~NV~%H&WY!4?oXDgiPZ{T5 z>ArDM4*3lOZPQ5#gay95-c-RvgG00ukOetW28e0wDzJmLm!5Z=;}4AP&^u>-`y4FJ zBB~y(yFsQ=I%uFLIb0{G3)je~^@vAUYuxiPhquk`^J8^* zD0G?c+Lb%4OQo(uWwcAcP%gjgR&Q+8$c|>+^sMGYC`^;b{dmuTq!`j*&vV2BZz-_l zoz`B8yJroNc^SRWI50jHj(~U!A`2!OlE~N~Bol+!oTV~osDR+ue!yHt7gdjIe`mcD#hbd(Q!^x7myI3 zz*-%JgMbqs

IpRS^J@m}|j0SMRL)qWe3G_G%dyo$P>D`-PcBFSf#us!VUEuxs9K8tDG|;?T26Z_%XtlX6_qN_$w?Q= zrfDuohM*u9luJoBOx&g)c`6J9Pf165`G-&z8sw79azk-fxzOcXxw;wnyHV`lpM({g z5QX>fG&zjw^0+j)bmX;wQA)J6To*MYDTqro{(SO!$FPD#V}a<1@+y(wZ#J2W{50#L zF@th-lm~Br*R)b*$%OT^5g}QtH%=gl=%q+Hg*y{F*$1O7RiNY_j{F`|G%=+GO!z@J zE;$~2bG(``3DaB=z8RRM=HP}KuG{>KDTR~VF7O4z+$WQ%+s)jk=wSQkSocMTcmk#h zNV!Hm7zjY>$!?3GL7wI~trUFwFwJ9q!twN$S*q*{qN(S&8XTk))PQ+_MhPK7vxr?> z-;07w#rjV5SYt_dbF|^e$S-~b$K=2{haeVwcqF(CDKwz<8q6#cMqm*oAo?(V^}U1T zbhNg*&*#bfE=?ohESXHhBG0)N_oBTn_DNP1Do2{)iDV8pfdad~go9r+LB(RCm6~5p z2+Y+6z{*PU9oywo1Cj$(zl;uyfDvO+Zb9|JT1-1wdpE$8z*2pqFBZCyZ(tM%CYV+b zkjI}nOHKe#+|)jL;a$kMbVT^$5ckF(4~g#vYOY`;;1V%&0N( ztz{+D#5S1|2}ClNv@B!lqIn_n4On5&;j4z7;ZjM*-EugptCa8ZF%FpT#QC^N$oOIT zNC;#sObLC8@;rR9>zO=v?6BSJSl>eqKd|u5z@=hal7k7I1iZ0vsW`<)RjqzwKMno- zj>&u(eeyyXZ?0(rah^>swU0Y7w0N3}RTMsUJW`2x4EA{R$C52*OtaTZiaZBK22Arg zhH;#@3c?y#ybu|S+yi-Wk;UM-(1cnzp?5f!B}y=|d(L-7ui@J^H*B3^ z%f4x~Il-aPVjtMH-9M26;qZv{{YuVYGowJjqfhJ&>-pbsm^d;X?FZ6QXvB|{MQjX0 zMWCXPPE_=U=cOeMRwd7LJWMA9YbvX@y#L|J3D-19mQVyUJ9Yh+8 z{#lDIa8=O#!(F~#TRNk%?8h)a*_8xM8r+tu{{LynZC%WbQ%_A3jbOx2(6veIdSA zH-Fyo%YH5--~4~lTCX4L?5F?n*RgvB{J6Ql%Ki9u-jR;rm%T{8cpk#X!dIMq^HZrT z#82E(+7CZZOR>5lUR|qQ=xWy`MbrztR(^8W)MP8*$n}NEjEMrO_UTp9{KG=W{IEjKR05;M(p;v!A(eh)s= zWye=}v~Ago_dyJh&T%u-wPdldLlYSIR4(v?=hDPHGlk+M<}c# z(VQfhXCDsWEw`LwuKQIQwUk5gF~fk0e-=ZSNmJB5sH6;=xTupkP*jbwY}>+9xsd_v zwh&&zy;Et0U=%&LhSM!huW-M>ueh{j)_q+$wM_*2g=@35#gP--tZ#`|bZ6WgwbKuJyI-tS z*R^N9qRH7IPoHDs@=Yl(&XW5&de49Rc5GX9@frW@Y@J;GO*=#7YrQBE_h|3W6GdS6 zXv06A+u2{s9DLuAM&)FKeK}tA-#K_DUc`ER(wl(KMzX6f=NxZ#+sZRzh`E!N!e3q) zCfkh?!(7RFh=GB*?CP0Y|riN&p%`DIRML@#?Rqwf57}`{Uk8v zNF3}5@FzePAb%vL4mOv{87xW{3R(0d_bKr!h1Y9QG_8coteYACmx`>FtpM2$NXr=( zV;5qy!cdB~8JKyYJ2@EThConI3V05En%ry&mdTLW)j`1&NK&Xjv0tSgKfmXZ?$ z`s-SX0IDx)Z}4fkl#7eI@2WDgTh_3>iSFdFig6D3mG(WpRK;2*flhp*UKdr+X8!c) zSz{T&0eC3+fXSon2j;8|H@19h#gfNE`iYr`#dJ;k!@`peLfmkpJ0co)5jNQaIF~Ki z2FZww$BLm&d&c&HD3m6FeEm1 z45qmb$7Ve86wg~_hRdSe+?ti^__Z+c?yrg=!{}21G>tdBvV;x738QJ-gMzbs;>7w@Ok( zgn9LdUtFm7lDD(x+p_(2aDq&r{sWC@{z1M``i7~)y^8i6WjMq()-U!XujaS7Gkt!_ z>6h1#eguQI{c$P*3j}p&pNqO1vw1cr9ghE2lIV@T-F#95wP0v^yb>T$AHIuV-p3?S@V zk)Z~V>M9iDX^4y?kzZ2?T2$7kkw_m(7Ry)3xp14%2Xk#Mo(=}bXea_i#DbZ?cqL4f zrj$mMEoq&->eH{HwYa%!;~F}v)PcqDi#7R0Y^ z*UnM=MC;Z%}l?Zb_7$RAE5|m%?bWp$n}h z_|JKi?bKaHXcoQuh>P)ZXeN+-mxF-OIM{eA61b#gOKWIPgiNK{3&qI5TIo8=w6rqz z(n|na;tk+xs65^Ca?!f##KzNJeJ779Xs@dN8B?K>Gm;ohR8~<7nwF|BXUx9~+OuIa zw#emEoOiBpUD2pXRRN`A%Nh$#QIz_EQw~53f%I0Zj|q$yRxc#!4n1dL=O!HslIQAX zVF6jBE9^EV(yb!E_93y><0-Rj^#2v;h?qSpoQsnlLKc2QqpPG)&%f&jD%UWhkZgnE zK%(H+yfw^1$|o3&@f~h1n5b!LoIaciUb@eor|*@8`HkD7enJm$y8h?Y;4^E}^jCU0 zbTCvkGb5*!liH9rWPdji@Y$rFkAzo*UD1hk;OTQmR}IX1_cmV~@ScIXOMz5$PgDhR zx#8lQaZg15`DI&^#CD4xEL%qC$Mdr)aQwRH{Ryz^1c3jEq4DS={WaM#GU*3{5ij9p^{rkBariKgoL&BOYGEG0y&%Zj?h&aXF{pLLRWk&~6F1pD{cUCZYH<<$H!TmdppI`a;HfA8Mga z(!eKjmX!!+q(#xGLQW+TLpMS3`xYk!5C1lYiZ2F0dUyxWwHyPxJnQ$}5O_%f$wcXKY8EHpdq6 zj%WbE=saq5VLFK-yMd4R1bDGgY|pkESts`dAa2%j;<7}zl!qo04ovl~J;yXNd5$*jg9ELN)81jzKVSnsVeM2SKY3EzuZ@)epCSRA8osbX zqBp%>Km$>*z@d@Yo3T$m$bz|qs7AA92;uW*9CiD`PbrQ-1J=gOm}W?Z$d;S3tfw4i zD`#z2xyD{d3#%TQ-<9x;*Nn*|BpzjdWf%+rm9o)O(^0UdSOeA1Dd`$amLSIxGFG&D z5_3TT-E&opu>$c0in!xvXgH(E#-{kA1v((q-gf^+5~EYT>(vQ=8eAN4V*5MU5U;;^5n)hlY4fU zlU&Ijd&v^r0tzNRPWr@|3)r4!7Zmo&uiQJ}hf8$*olMMa($GgKyjk zMRcMkc@WW$n^HD~ZX4*1p1Nqpvq>QjI^&f%kz8-inxdXOlxdxE@`QU9)zPzLp(x{L zQ}AR9v48#D1Hmzu-P`QYX&{=#O-Ki+3DK9`Yv{*K0HgAJly@0%&9EZD<=>b4zVb@< zeo#7voj%u}cl*mZsb#dU4NEOLKX^hMx~yk+@m82a_Hk-AzNI~aS@eQK!6Bc)^?5Yp zCr5*(K-BMxYWU=L5b}?9jW`d&O)_ws&pLv*dG2IjmZU%ya8OAAE`}|5KyC~e4rFd% zl%xXRN}{14jR_>DD*RU(I#Gfj&rah3GL##m1P-cDG%8DxUjjs-blfW^3bQdq2H6j% z=)B=5*wW#(iOlS_Zb`~+jhznHobzKuC81e>tdqr+RuFS?HF(dXZID>Gja6)0#iQ*( z+)#-?%p(JuZc>$kYPhyWtd%TM`|}jWV}Bk1VsHv(umIK-yM|8I-H;6oOd{8V0K3!) zq%Xw>^^hdEme37;geq{YkXk8F3x-4mNCFBrMP$}lwN6H}l3K3j&;OS*2b3M=PNc|N zg_^8h^fy_Dz%)7u_!N$6!HLeP1Gc;|^abGUukDtTO_*4wTOmEShItxc?|uc9r~tC3Y@g8;4L4<$_o838V{1rnY4)Rg(ub@kCMv8#%oec&R$_D~epp3#}>Lx4`|^l6A~ zj6tC<6io7q6B4JFNFqW(4?CzCqYV!Fq}war@tSSgeZrjJ;yobRrC}x>Tw#e?Pl3b| z^TrxlLV3YKBTX1Av{A!|GXz~4#WV2f2OBVv}((x2hPRHN?k-IN2p#9aoeAq}_3bHY&!E^ee)6MrFa`y!j zi(MS!UJ0l_<>5IvXv7nl@w-HiiK}=?={cZ*rU*Uzr9Cy@P5{Yz#eL;U%BO;?U=<-l zf4ce+z+eM)a~S(3qd8>|fsL+F$%GvBpByb73b*<&@FhWut)BlP@2C55+0~Bk8P=fv zz#Qbv-pKmPGxa%ij5qp{55&U?tGq_R0z%KW0C{c94C>%R{hCNu5WwTHPdSHGxD)?i zZjfDDVurCU)^OkPKl*-@OZM23wVQ$F$!2ezK{{hU9Q`}lcI^9iz3V{VsR&CVajUIS z0Jr9glMO5Zf2!>dlE-}UJ2K=fW$Z!cU8)CQ`WOK+!shz&6owra)M0bE&|Y#d-?jTy z32A{f^!RRcVFdg$OUpSWTqO$Ke z#8y8FcGCz~-_R9x z)r=81(7$ot+ke-)-oF}38~HCE`J{GX6b4Ny4|8RAMVx$qeTBvDG@eUs2I%h6s|q$% zE3q7)Ocfi8a+nL794jp67V02Lqq#eBLQ7mNpM&}UkR%_OkjDw~M<&8RB7n{zoe1aJ zBvg{|NP;ybV=Sql@{>{!AP;sjLIhIOK`=nkgux)WhqACqt7daCvnS=;%BA1Ag+v|@ zRIX-)VZ$&mg~T9O)s0vHML^=^Vbgi6-df^zWjiwGhL~n5)w$$X69nyhDLNhohEWss6qf_-Hq2-U^LE~xBXqXB4dL*5x{C8^`t~)f#(nx z)xMxtc%vDTZnL9i6!nD; zTw?r*Gkr?=1G%1Hl2rG+tnaB2yJ*j~aPFuPJ2r!>#R5w({eD=JbK1a z)M934W~s%@%*@Qp%*@Qp%q?y)Q;Qi|Qj78Q&s&(8eP;W1?d)zQ%e=BOGb}4T(!;~! za}N*8Rm%?o(^O{6F4>Z{GB1MhcX7VYRpBTsm#}b_8{Rx8^SQ{fq({FyRD2JkasH(rU1?r2$!n<1*NZ#}?|{V3b;8-r#sV ziW)Sjqwgu7>}C6ceoqA=W9##3qM8`f(VHITNb8JGkF!LWvM;>NClL6WpsNwL!cmd% zOpS0utbqAW06ZS18@)xwKzCewb(RNQfb!r%;9pC`U^p<#M_?BYmqP@DQBMvFk z@2EiJVYysm66lG9e`l7+WO@~pJrbodTO0H08i6)*uCDK7wlIBq(wtX+%UN@L*QT^o zloeE$MKxYu3}v)bHZGdqgT)Rl>>JRF_wGxKP9u0@i;29A|s6+t}>iLfE0{0Q96jd82k{9ZVqOq^T^02o^6kDbg_2kogUm@}*`61qC zzCxs=3IU7qkZ6x{i<(rrzl3ZcCJkui;4acAN=Pu$IiU_6TCq4KCA3~ikZL}Tr%l{I zYl$Ip&4jWPKmq(`vydpSaQc09%?C&S%Wck+RGsBmo=2Kgb6y7<8XU<4&Mu&cYm&Rb zSm4*^6eXmgeRAhzpMX&VEO-TTiSJ>bAhhBHMlamad8`;=8K{P@=N~e)rSp*O@Eg4(z6oVbp2#LfiHljrd2NT(uj7%2MIMc zBb&w{{7wS`1Y2-7wRB3^m@!EmO9$QM;qF4Zv`B`~8%`|%Jv_?{&bIGXSG{0Ny*R@M zp#gS~234tTg?NrCWVlR~uM4xTr2!C!6zS3q@SS2#25tIyvlcfOWM!2PDt#o)i$YD; z)D;qYmcO^q+JB&X-)j?`)f z1G}Bs+uuCBx?^&La})u@{RmB5&|de#(Hx*)Y3M8?S7kPiglOaBp*+^eOaM78>(xHk z_Uq4ZpdUg&`I-nr1hec<3Hl>3eBe19HL-)u*P+{jN6hvVC?K|*klN(8M6%Mx<-p0( z+>dUR`eGH*@k(cZ69?hsJZ!Y8vgJ79__GSoVS2M3{kUXGUx5&m`V&J-R2KO1-wYL@ zKBL<)LblJ0Pr>68_vdlMg>dp?+vZNpQbXckFIs-l*x*(O{esj)>VB|=a@!3b>a{&P z9%$(TfpCJW4I%JFg;|8b;Q@+H^cj(?EYd4KEj}yMY@6zOiz;m%VrI21tfwGVxh6;e z6`0>cDgr^?71?Z>KHE)}PRWIfvI-aE{yI!AklDBhYNV+>aN4+tJ6SnReX$T;*XZf$ znEDWj?e3WJ9cs;ed zdq+6!@IZzAaZ?BTdo^ww!-8;pPp|-Q)TlN4e6X7ARGa)+Gg#u7i}n6ID!uworlBBo zRn}&y%T|;v$x?7qXehYC83#EOya5l5g6%1mhELXfzp`~5YSNb4X@|gKf3gUj-nhkt zC};w)!Tv~|1sA(Dx8%yI2rXe`#l)`HqjC9@+L`F)QU2qjo3lt4BBRmbhFq#dKz0O2 zB{?$D&+P*!8LK$$uv;+W*(ln0SJ~W}0Rep_a}0SsdnQ=_5%BvIiWUo-a36)8ph6bG zOH63IDt?B z*aK^sK{Akzsw5m3%H&dtE(xeI%dz?R#8fqM(odKj`f7sv8N!ezh) z6%z#x%K|3b`@z|wO=iHqO*Su`cVsojGq^7t?+PY=OZfPCd-TE)qC3NYIn`|TgPRLo zW{6(aZ*@AU;c#?jx(pj)%Q>!tew-Enm84_AfzZfP%XR4+t3}`B9AP%6C$O8h1Ku9m ztHw+$6QnT5M@QDt1jQ4^1Q}RvAOZJAEds2bDpJs5;AF;^w@e(Bl?hA{m<0Dw{hOqn z+5fiKDPC1bm30ceau4ZX^fC%bO@I}pbsgQzN3VL zp=5)VVot(0=)EG^dXmODjZqAf)#&%i32cXR(zG8Hx-nM$oBotl@|AX8;6TnVNpaH2 zM-nk`9=U~gJpgq*3B)){@XeZgQr;SImY`SD>TI!yt{Fm&pLbXyW|5OuzAE!C=YiVc z<(V|`ME*G>JF)@y5&V2Ryq=6)%;_s`8sd;{7TbiN>uBd9HMZxyOe~P%H!yF7lfXel zjcv>f;eq~f^n}=JMF#D%KHXr$T1Le9sLBywn(`w=UT1I8n##zI8l6M=WyCw)`pN9o z47IC{b8MuxU+d7zg33~{iCN>X;SRq5(~Lo7%iRq3LN}}$>V??6aUM8k@r7|AQuz~c z^j=R$U5DfREYT@?vm|>l(|0CVa~KHKGuVNzqQUGQkY_LG1*2pG`g2{9I=`6T+n@hy z-1#}$9>H3qu(O^EM&RC8U2xBMnTw}^rCCWShL<1CQGS~(9$gS|+;@RQJ-V|Z$3(5X zBJzb$8h(pMRcG8qjJUv(bum-upt^k5Npbyw5<+VPQ}5RpdrbW*CV3PI%pvT^fRIs$ z$IBT~`&uDMmnEKw!aT9^X%zvBq;7w+jLu$J!HrFq86>TSRI@!oXH2FPl5Ko**w;bfdSUw@c_<+haNUj0u_e4`PL zJ(b?|R5hGwq}Fb`HZvQK8C$W4LKT+;Z0qOE6{(-X2hHfWfO#}~8xQXTGDLf@qn`Xc z#i8}=Or~XKyGimPH#t5TdnGpe#m@CqxwylP+X;a->*vbE(s^Xp6b!1Eo3i!Wza^H` z(g}cT^)B%Fl-A0QF-OxeVb2Q zNH+A`(^dVdihFD+a?ZD}HeQ%f?|{v(^8BMDbYt-oj+l{H8+ohdBR$fkNUPzA6z=#Sl6e7h zmj_zu+H~`2*)=V)3e%~^)6EaPc9o*WAqqUBid?`bne_~A8?xVL5mi#=>IZCP;7orj zJ@_XIEewViXLrYN_yUdDIFbq_gEX;5_4^U)&!@r>(^C>S@ms|z43lkRqtXd`02w$j zF66r85`;DU!zQT83vRiav<#3Tj50NhB5f)wl>+n+yi~soT0vtO;wJb9oAZQa!0K`l z#Bc1fqi`EuBBEhIhejuhGl#c1{H_|YwPhR-cheZfSJ6{$ny>lXhI}q`g#?%I0v2aN z3XQ_`xA^g9S0quP!1U_18W+%t&D9@3P`>#<1j$bcR3aX>SGToZ8pibguv38aJDY}{ zy0w1disTD$ypLL(3^*QWx5FKpv@Q*?^7XIt3=qsbq9cxi$**eMZD#^dmY>NrT+=o@ zCst-HIus_Qq(6FpWyAF}8BU+*N=B)nZl*Z+8$kG_D`2rTOY9y%U!A2ag$8yt8usi3 zcI_GVv~xV7o>#OyYB@b_SzS#FL+{|~IHe)Q(lXfill&oQxZ3J%x38@}sa5a&ZnPR2 z+*CX$;an{bETpkG(YULp?5u`plifcgcRLky%_y~?z7$jJqIfrEU^JIAC`&YP@f~I0 zE-$*W3*apRa-PueSlGzD6Czc#K0X5t#;N7IwgpC8l9sY%a+{m{s5XGx-F^Yju?d#q zF4SFx=)^eOqPuw3HtC~pxBR(O*7fs`GbhuUwq3G`8L4>VxZ`6XT^M8QYDgfDh*u9k zsDzuB{bZP%FUdRX(DO&&*1LWMW9}GE>1g53)9fZ?>hnvJ8o5n3KegxrZ>kQ2)Tv^+ zKtv3OZgMJgXg_N; z2@Ioe^)mO=o!pHpcJwl0yF&Y7lsBx=-ZC@iy5kmS^F;G)SQRNOz$O?gXk_Al#4>~X zlid(ySVvM3XGjYN3=5`x^H1~yrU;&A7ks4(gKzg;#s13JsIM%T=cB^L9~{s1uvwDX z%Ve|~@_qXRC|Mxvp7a};zcL{Nwpra5c&cP1SXj5ku#J9w#+Lk>TiWs|6e^}^3vo7- zywQ)ro_u3`LP2{x@*t2Pq=VM|Y;cCA{vU(BIAa^LoLt&2EQVZTE9}%L5fe?2l9-8b zUPwfV@r-l`9S;c0d^Be*!m%Ny4v>BJV+Bh!4B&KQ3d&u{v`ZP%#uO`fFu;=p-ont7 zWLT4w@yXB_kX+$@JwRO#AYfP(4KVpYkTyH*05Qt6_6lYm5ZRaDwE}`LWg%!u>2gQ$^vY)Vq2ZR5*|?*XzU_Wl@F5sxGK)l zyVXv+c9cc^)w>Gk*yUbNW74Q77IM@^W$DzwWbB|p^tIen6k1BR@3O2y+9WZ_3j%Z| zVFFIC(JbuqVV_{rc78@s4~se5ehE)S!RwqLGwS)vjbPK{ojB_YTxQRh@Wl7AGv4Am zpf~U--yqYeuUU!}4f%aav(-OtJTzx7$Qq8FXaMK*zinPU>h~c+%5D-iTf6TsU50h- z=3LowZJU%!=VW}SM9=Xbx$7}%)Iu2$U&yn6(z&i!M?_i|?0q-xGsjx<05s&P#cka{?Z`hGqm%`GI#2Rj8RH`-iF*gn%@J7F1q{k}%i6;krg?EM^ zP!pIpQtW{n{GhknI@R0GT=45{L3(TJ>T!Ab-DZ1*N09M5uC14o z9GP)%a>LJ?d&3k@F+$+AeS8_L>gRe$(F8Ue7^-RDdyhMsshe2(fIk(-fx1GFfDDZk zx96%8q%wI#gh4cu)U^f`YLI{ltT}H0*IbyIeK~=A98X=~`r?*yuxV{@La}~$0AxVD z;NHGb1{Q$-322UnZGM~H5IJaoZhlvym3Occ%2f^g61d|COmPeYjsS*U*(M>WzD%)8 zrF5Lfw>J5qTWfx0xP^?77ZN|qdNBtpcz%}wP*ksr-q5SA2 zIr5N5fwqVvDN_jN+|Z$>Apt=$NM)^E^(;5asscmR{0}w?zwz)$e=@!A5#z!Zf4Ec9 z-OJIizKG<6s&@G)EJ+Zw_^JbK@jdsmOgBd@>&*C8I=;(hmye==JETi~FvsR>Uq3k* z7ug3HeItY@=C-GiXE%zy{0-A%atcHm0xNI3L>$}TDWOHBL zsb3Bg_7vn9{#i2Gv9-5anRJHSCqdc82#T*Oj$clrURm|pMKWQ-8-l|`wDFK$*~JQ_ zmv+x0B{llH3^eZWdi4gK_E%C)9)t8>{GSYYPxvo%rKR+Cl$|F12W*oMIqhdG(T(wJ zrA^Fz1r#p4%9tNiEA}V41#B7o=J{F7(Auv9)=GQdblBac(_vpHe z;P$f>Vt%UH?jOysX;t4(%&)<){CrfBuj3B8il{{zlWt>;_FGakvIwnSy=m6l{>cJH zm~)HO+3LrEYv4@-6U)y=*in(dQHUt*rtW%q1L-kLSfl}%@EBHrGhlEZ7MC*h7)}Q? z1*nlMIMdWT#kl5Jzf$6jG1dNN#Och4nFxYuCnEBf<_K4q99q2+;w&4-YHVGP*SLoP z4l?}#B5S!Qm0in?jqIJAm4uOWVJ}-Ksa)y=gsdTKk<%Ca<9BS3rvREGVjs2wJ0oB0 z62Kc$Jp<@geVjSz`(g2A!Pg#Hv=JX{6eP*a$_D4O_8-lP;p9=5k5(IT>#-xuLujKZjkmLPfu#jCD(9C zGmJ-EyP3ri@x>k?ka#Mfm1pBD%Ncd)fHe72!_9>1<=A-`+W_?FdfUJ)+`~wQHQt(n z91@4RO)-CokAZDvI?lPZ{jP)!mbiScP>Mq~x}R^N5_-b z(YchRCqt2Puj)~}KfiGl!JE207KRHoQ}-%b4>(}n^Efmw3X9&?Ku#N$Q-u0Vi=Zgd zp4R<#{D954Ou0+mxZvjP#!<;ygtS{ygPyQx7Vtbw!eftc5PC3z7;^-P zl9i!^hcZ~aWB)ywwpCfsfRd~WA;|VjpL8qd(oIqbTO;NWOaWSYLXi}qNymT9wD|gh zlyzhGjjzou_Z-_%sviV;W;fN?=7PSB1Z#cP*S5miEtEqwS}W4&ZfR37m|_^|wDfmB zEi0T~LYlo)5rKy}-7l1m5{@7IxmtEbj#}WPH zY%9X;*5#i0^R%J6lm_7<-dZjaO%r=_brj9V7-eTn(-0qUT%lOs=PndQc#4yC6gyux z>ZM{=r!Q_6a=TFFZ1E*`_iJ$Je;>>4#qs(^I{(CI*!3o)+TfJ7K1_dK|=#0EQJ)6FnyJu|D!U!w%U_7^T;sk@kV2lSz5CK(DO$Svv~i1eEj9lWjOlZ+YY(S>$TK`UH^Y=qM$ntNJqH3Nj9 z1GYr#!2e|}B(FJDo4-=>2!1OdcOulXtwIRsB;l0jSW0rIo5!Q;BB8sL2==01^?BL2 z(K=iW#?>>HP`uMh#l1g1&V~jCw`}IM_3~qgMj$f|E`lTb+~j*$Sc3{O97BMFkaU^n zv|hi2R==S7FRJYvizn%kWVndle(J^AGE7Uc3;K1lAQizX)I>lsvI9eK86UM189J$; zFGLQ5hb~k-BB(_ElU+Z{(b97M>%?~^QweTRWDDUHaqCuH8aE}i@p=RdhcFBsd^G8v z{j^(-fvbyzyDYw=g?<=rBvN@pxY4-x*=WIy&eJTA<{DmEXcD^z+_S25lan2WHS!b< zdpF*MI&aMTlcxd}(@$=%M^N@K!A`~Ut|4EVA;#NQKA^N~=!^f0}7`qBuK(lKVV2MH!2?ya9 zDUGusMH^1L(4%)C4bILJtJ)3i&4qEDIEr73Ke5^{DO(on=qMe;lu z(x9W7i$20F#nLN;MO+9ln7}+dh?J@W+u5GDqIAhC9K(D-*+a6{NAoD*UQmnzT}y+k ziM)cK!YT4faBM(>w>Zr$TAR%-JzkF8;HV^t<{qh>#dwY^LYmws4h~6oh^U)Lg$6UdaeOQ+96$xsXektClt6?9`9`y zgTC4wdG%^@43Ys_Rb#1U^DI6JH_tlDWl-cy@pNTC5tU(I@Rf%iffJy+7qV`$jZgXNw?Z*rpUUD7yV41BAO> zT~LiG1XbRrLxUjJavZ74x){3Bq@y2pJ%nsTXc2&)2TUma7YnTgEVFB&t)KK9$Lo%1<1b|7QMjfjL&u zZhQ=tg3b!D2YXPsKoR5t?syd}*#cxu!2!ZK5ciy4cdDUhq%JYm z_J(_mIqgE~W%<=Jlc5ooQK0Mk?S;xmaYB3p<+2Lat|E;1dY~^}3=_I>J#cv%>17*Zeml5NkzG76$XoMUtxKGjYEWQFaWG?h#-Mr@|JT!KYj;>cHC8QKx5C>8J7?TMkX=!g9Bk1 zeoc}D{cCzZG920~@zhHOad9u>fUTG_S!f-XRcQQV&D&sbEch!c@G?R}OngN)7FZ0( z8MkyLp*Y7t2BoZPgy`D^vW1%!UPjVn%Ni-`gXd<)3Ht{zwsqr5iph}?=`Jxu61dy; zY3bSt%DNtgxoPBWP4LQgAi*Y{uduR25#)RWITDrxoXHdAMU=Qm+3SW#@vY&31rjA? z$j|^1CEU{YVtbZzY>{H=A%!vGLr&8_ zhr1ptYd$ZOWVlLPbfj-@!w2iap_6eViClM7>H{c0H5}DMYFn3Z?FLr+*ai57lNaU` zpTjQ_l}X?oWr6FDkjN+zN)m#+N~3Vm6l4_uy(p=i5Z7x?d6Dc7Yoh~))jlBUered0 z7RDgxS?%e*qTWaTzPL^<;iZfixMJp{jN+~D#4q2AP!$7Xde{X2yZ;L)1Uy_odV3(p zZNV&@{g#%YLPn~C#!X6SaFcsv;sMrfxow4>eCj4U#I_iQdh}?Lk;zN*Q!WD zuXuvy#OnuwvFPZD>$yQ3!o{0}{3!WM(!h2833q8vz2Pr2ue~l_d15~0F^~~W#8&JX z#^V8#rTXz(Wrh{+W($^YcU|Z^C%6eLMo2%Cai+Gz4P?^Y8ifWP{?`sP7bF8}+zC2g zn%pY|$_?F+&F9ES^ntZ-rg0Y!4MkTU@KbgnmI>28TQVM#VgQC_X*{%d!Rbe}99Wv+ z{LA+$P^>yg<7Lbn8Z)C2$6hoq&bRQ{&&n3=O ziQzzhB-XC(rBmT@T*Zt{>?y1x#!?y0&1?HXJ>u(21%Z;`c6-;gCo%0wMKE@<%3I#D z)1Q1@+ZmT*0p2m zPH%&!vbs$Wor8;Ek@cbyL-C9s?)f~c=h(zkD-_^>l(X{`wTYB+QosCN#k36MjSA~f zJUoM@7q}|F!m}7Uq^EN_d}w{$y>xX>?#S^AC}h%@&eTUl`#ORoN;z0XR-=7$kconb zm>Hp_6Zd&+H%SLb(KGSZXYu_Gx-zC zT|nmgtjCwMC<+7MK+dQmTwx2|vI?6o<@3gI*%WX1c0*3s3VZ5BVFX@%)u9r&CXw{D zC^d+S9OUtf>PxQbKDk{ z{T)`zcR>~!N(uahz4dV8BZ2gO3b_=3+H28^`U3x6we4L2`Eexm?(?Ul^WjZAk!yY- za>Qq(rcnyIeUW1OvsPFU)+DGMzB8_M^{dEA*uc4?=mmZy~y(J&#E zALWqLP#mmD5f0RYHdu{(bnr}^>COpCDt~id-HK>lz&PiDM!wPCtyCXt2lwQA4G(e4 zNOh{|He6++9(L^LBaEAbhw*Mc!8y;Ruz6O$3t7>7Wr z;SD5nnA+HQS+La7;VTwGupMP!d%FnaVF&5e>w7T+Z3W3%N5t>v#dltTTcg*ruU*YP zAXlSku~&l2e$fbFc87e1Q3FvS-W?*J#ibw|AMTsUIRl5_3~KRtVnYaUD+b zSGqlxGqKvxe`YqCiq1P9XXHHHMaOkcQ;aj*)~8d{T-{U*&|THGaD@dmD~YEBFhMdD zxI5O(*eg8m1vGw6lF-e)~uBlo9-z3vqKc zp+E`)D_&txPM$$iUW}NTvc-5v`6WV(S#l3Nge`O)&J+}m6)!TE?g{Y)40U9n zmAFwX>Npcy6j@XCI1v>hPNw_!aL6@rK{J zv!|IP52BTojsL($5B`#rQF1cK$*|jxYv)J3&bM6Eas%OKoUg@A#}=T`$kv*EJ8BvX z_C8vK(E5^r2}i>-X~8k8bBLsGZIO%n$x$nVk~SjW>xB$FRxUty_4f5WJXN62TrQRU z%EqX&K%8n2UwXFS0Ft7v008EqHB+`A9s3%>Amr(R$4bXy0E6m!^YZ#Hr}K@EtR}x< zf&!5wqw*e9_z;8RLBQm9e0Fo>^bZ<9UoNb|C>R%I%IkhMyAaN`T`CJ>b5+-|y?;gV z9bbNeXroPJ{wGKom5_zAle~$eu$_&)ovn$jGXV!Qy|A6NouiVyfsqLT{dW^r z3nLRnF(GJrQ44El6UVPp!ph%GjO>g}py|a;EX>TE30PR!py{PeY|Wg_2^d*8IKJ+o zB7)=xABEr36?w#5if` zgfxW2WaX7rl$rT;jI*UT>!H62v>*b2fj~fjK|#R4KtaDs z`+QvofFgk*6EX^dqbL|a5ILYS1tb(e5(_m9pefE>lQ0`P20}r9L&w0xA|)fIprrb$ zUUm*nF5&MYqGI9_l1j=ds%q*QnnuPZre@|AmQKztu5Rugok%>vkDXD4c z8JUGe#U-U>ZS5VMgF`=tM@GlSC*~IxmzGyn*VcFU_74t^j!#a{Zf^hF z-9J1&J-__L7Z3pCKiK*ooc$ADNMC#bgMxy9Lj1)S5U|@9fgpi`5i)`!3o1YuIG_+Q z1wf(-B@{FaKoK)5UZWX0&Ov`8Vc8|U`HQu`arR$hEb#w|v;V=^|Kw{O01E>2_3}WF z0Q`WvGs^0dEaA@D{T4@uq!Y?TfPzGaa4-!!qB!P3z{+#nbgDlS52p=_Ctn`1-lk;f zI{#MZXtQ_GoZ!2aZn?SMEnuPVe3}0JE2sfLQ5gAeM|<5OcHX`8v$b^eZW}GT>Na!s zGOD3C~|C}d+0$e`?Se_xv?yNvjxIiuR^ zQ*gPTs0#D;9d-x7Nj=^IYdWb&*Br~I*=c=D$EG${zE_i9{(LcId;r&dNA0_Fmfr=XQSKNk5ZIlHMU`SchBs&mEX`5h1Ex2 zU;h76awK1VXg>LorHL0e?nztcL4;Y;udVAf55t>8hL!kiE(N)*_bi(@>Q|x?~Lf4n`(~Mlu|^`yTb2!3xA`Ad`-deWL~QI zmGU2}-VaoKOHn~j{SQR?jEpb}h23T_h=K~*C7 zcT^aI*V8d2>!+>gtq?20B~zy(}$0%xW#mm+oc;?MNf{ zr_Zs!e%-HY=!kil!7Xy$9?I|Yih5xU#&x;#g_Wg~stBXu7Ps7MB`JuYbsUDEDhPo6 zn-NAYc6*Nx-5{s6ce_ZVp&kp)TM>@SQETNtiltsY>|*P*RGb+Ll`>2Z4~lHjxgYOIEBR-tKu2iG?bI$?L=eQw<5 z^g52wa66_j4vQ%VvNGSvODA6K{LU`v@r}E|ynx91Pm2J53cx^W4_BeOg;$aCB43IU z7c67~@uJc*bu0dY3l?di)=9^i392AgzPezM0hU2j%=3?xxN}qw^0~qdY}f}f#nvNu za`o7mcr+2nLMb?dT#YAu{G+4AH#=Y8t!4^Sj1hdCoBMpoJNjpU#rFL<`bQwuyVE*d zLZ5KG-6gG{lMUwJO#ic3i`|c0Z3(<1pGxo}PIBDw`+NvB-hCZbyJoQ*wa4YYZl#Zz z8-&Tc!A>kH6Euc=u^3 zbk}cx7^00h2s?zI%rIY8@|6`*_RTuEnxLt2blts~mb?ceDQaZ@T~s?z46F>*#9Tpw zyBZY}Uud2PDquO5ErG;X@ieDej5@cSw_;I20F~wMYumuxOeOMIy1qrrYSE=tE>}te zi9=y7eBkZ5X8mu5+<~`O8F+J)O4MN{IP`&=qC0=UhfBxqyVR?iSm}1osZ&RD(vDz4G6efXlsfX-dH$5^ayiE1wmHw)IH4W(=3XiL6?)(`g?=u#nt$Ei z7T+?rYN2k^O<6(2*5j);kO%rVA}~0Z4*@KBT`<^jnJ|$z8+3=Zz9geLX33>9oI&7G;V);ji2oCMy4a)0s18DJRaME$`W>Uw zhTPAC{x(d zIR|ZjgEeaooe0-|5FG0-^Bw0 zY9GdI-ep6_bPXOih)ry=+m&D8Eyi`Zsb;B~9V#cWu=98}dP&Dg4l6go!6Kk%g+k60 zCvLf;4{!$CXFhLcihxOv)o{Aze|Mbil{w&*LOYk++_zqD>1UZ6w@|j}>im~P68;-W zBRGBNy$;*4Gv-Ew&F5-*k@(bJ7Sc+qD z-n{5vQMMwd4>@_qbX-2do;1IrJwO&An5h4)xPrR_C$dg?*U^ZDGviJTsQvy{<%Tx7*|PNZ^|vTaQSm+km~+ zr639uf(lGfXV!5GN%Y;EK|NEH10CAY%GOi%56&sulTxMKF7Po6-*L>B)`53(;GCJr zyC>2dRqV;|%MI&4g0?d_-(j;8P9R8(p*LdY)tAM$bTGhGmEr|Y1nYRNBhP7fOnO_F z2tzr7rwvoLe9B1UwG(&m0QC|DCb`3A}M>?i35RxsNhv zG1eco7@g({y2sCB-PGI^akE1EN!!V(%#>%O;?l#!t0$efEDg@jV)MR&i|~A@y&Z5b zVVJ6e{1s9A?KU|YQII=ryW{N~?6ouX zr!CDvQ+v#~y-5sDyEr>{4U<=Zn6=!xzcbJ{*L)t8fUqtqHc~d=bE{O+s00W#>R)tp0xOiN_|u2%{?SXw2`#Lp$LHjZ8g12FeXEYkjp)mWO4A1^SKL3){ zj^CITFy*H*JQi75`a0rglW$V*eh8i?=I2Tj71Yd@XeC006}WRV?(FJ1Qqo!;P_H75 zA=aM&$ za7H@?+@F@2YTpScDIjTaeg$eTs=~#Bmd@tTWTD1xH$pNI>_^DRo+uX`1Mm1c^p+1ult{s9apxp`gY{0to+EtreTV zmZ$?m4nXwKq5>VKG0yDbqd*m^y@FPABSYg=ohD54L;t=!jy(It9gf4JNMT~IsiI>f z6Q#OP+?)nTNVfJFxv)yQ&Uqh+t7wg=p#Dx`w-q{qHq%$|=J95g<9nuhGGpjED*q7m z6tDSQd+Z{DswTMquZS4oIJair=ftdpRkQqf#hD=*@JtFp6d^`-EX%IFfOWx_{DrvL zznp2!_Ih_?J2%ev#)Jrv2X~s`S&#kZ$3;oTX<@d{d)F(g?&G$cTcz*-Mk9aH! zYVM=-1oBShVdJZQMs50nS92{@0u z!>Xz{y|#2^($uD;*e~ax@K+v5notBVQdKvAj+_f4Pt_bF=fYPGf6~Ao7i- zvivheEZ=)wTlJn*9(QMEkn4zw5_5j};klAuRGd(qQ17e{-IyJSU~gWgl;aVF8RG6? z{u{mN7FPsSH4H=H3t9OWBcQB&8I%)E$LjE@2lXdd=0_0=Rr=7o8nz9|g{%C9OT%_6 z^YIiy6{i%;1K2-W%Ky9P2g<5FxjyIe5+wVk@?4nI$^PW|33#bWxjw3K$Umbmw!9dJ z;t<*lpQ-ih^qcYgO^yGf6YJcSh*dug33-n5G-(mv=mRZAocqtH)7+q;(Zu!r2gDQK z$?AXLt-CzTdz{Ya0mYUFg@mhd4ytLvpEF&OU>Y z6jhx6YSIq43j?!N@fW8{)t-*IiVn-Fog zj}XV-5x_ULS|svQ!lmTVcksa0`!T503&q0Zpg(ceS?--Xgo_KDLO0h+E`a zX||61ojzi>Z-1h9e$T*tjkXpB_wsk|y+!N2_!{om%4=anZ{VhboZjQA%B~7+dd*a$ zUGRU?%X#DH*Iwe1#2Ci}6#-O|4-mbARG=fRgtO3sbFp+EDlT3a7ymN;|0Q}0wDFlL zt47VO^VHHsi`G)1*6A>xK~Ztjtv8aL{h(QgDd&f#k}m`Z>Daiuw&RYN1&9`HQpRUb zgVvVSSjvmq9W7mb^M_Pt`8ZAgwVbsvJl7u`_#D@^7n_AejMLsAnB2mb#%9Dt2bD%bp&GHv~K7<#JS zWWC;_jySon_@X9Nx~X-#oN1cmKp|Dv7*j5IK;*yq>a`rCrPV!X8c3Gx?C4+rW^svQ zy}O3m4hl{jkDv+ov+)T)Jo!b@fwXlFV^ktYKtz+0co5qaW_*V$r^`_%(3*;QS(v$% zQjh>5Iyw7==J=u^JlKT2J#F}HmwW=C8!O8Lkc29u0pI{spvhA_>`)u55v5AY)81cf z>uK{~mBwnbSD)IH56-VO?326U z@~K`faLb)$FH1U>72oSjABPo1Yd_hLF4NzA^zP4^S90mr8C88ZZcb;^>kbRmE3aDW zw5TeY$R>qy9M|~L57P1fnQ{C7;khp)Ic;{T==8c$8~oec?ZYkAbNw44x9PEl_A9ecXNm6rR&0gn^+_%*DW>vE!$hgVj4u+RHX zb;_D5! zT6RrjL|TT?drR^EcW5|D1_~AFRV9H6wiAy?Q$x4 z&$^m{x$NeciL`sweA_*Uc50EE30SQY{pd~M%iEWVvgn8xGGSK(j4m%Oa3 z`N%OT|3Tc{Dv|6=!>Lzr#s!}e*XXbeKU&;yUESdzfAmL_|B2X|RSQ>=;USHZ%rA_? z;0e$2(828k6wfTH^cTk1fO4`k|8Iora&+Yz*%v7KAwd%Y1os4o;7&mZ?hssq zySr8JpoJ5(f;)uZ?jcwR?(XhR6<_T>z0XO~-MjnVub*?e&vSpRT2gDxHRl*(&LQu+ zo)>xE?p%QnOKzlhq*s~E9f?|fUcL zm0!K7;ucJu8OhA8BXRquUm3G{>HWle`BZcMDRD0&JvU47W;CM;iMf_Y<|zN2Zsa2z zf5*k56p`}?N(JX6$3VmK^4*T(Eu9ja)Ph$!7}M&vqKw$34FZa-r6tP)WGs!?xk-pH-HC4E41wI%4bjPW4D)h46?&F9^T+D=0KAyX0^X+@6&SIWyQEJ8@g7cVb=~p|GQFe8ur>Gd zz2m$iZNy8J8F`W!NWyuq#QPPN$Foojmg^Cfr3qna`p)NWn$kV9yJp3Fw$IEG(Vp#z zy%5NL1=Ni%KtD_S!XH-qyr*@FjOVsUl)EXZTNzUo(v90J8cLIy-}!%|PyZ+X={tm$ z)SK0N_1I$dT4z0P2Xxc14OpoBoHd0nj+JZ_mQc|V{8o5XP^gnaET|PPw8nBA8@}obPqxhc zsTM|AB#V#CnW>iH<1yO^`|tOmp^5^m#{PM|^ULFN{v2tCKi+r6*@-_$Im#Sf5GkrO z${dk;{^WfJv~cAsHTTRhpXnWd82+HWKRrm{A-^A{#h()9bXDtV#$L$Ndj=nT-{}Zb zZhC}%>d$BG$2LNXjg-Ha5UVzu-_teE)W4B?s2fJkN0GpMK}CJFUcuCefbU?B|dUHEmKjw`_{{QV(ZB-Sz1kZftt&g>in;zKf99$Hv`rAQuoFS^dw7P^-SW;F!$nV~IVFzt zu(*exlB2l}C!#tlC}wUQ3!6ToI4ly=`woyJ=mF`w4BNiss+XQj*C?)T zceP%<3JYHJe%SSz?5I(MFIS*tTx?-HvC7izbAsL@FOIAe7rt$JKdnK+R}Mo`OK#I| zMIc{I($lGqq+a7!W>6TqCY`&s5j#fNi`VEVKkcLQPU^a5tIw?EJo=J{!4Ku+7?cUp z+mLE``~q(-kNm7N8zd!IE)P$bezw=41SRv;(}#kW@8NbP8`51DPXXcU4LE(U9Q{q7 zRu0c*hSqgxj&91fDMQ6G;-xE4(zv4bwA+H15mFL7GUS}K>LZq?_iR(fCGUW+uoyYAo!{Z{C7} zgn}d)LeGmoD`f70JX_yXnq*N*p+Z? z!pHw2CeQt6RikT)Xsh?lrhA6fL&64~Fdp0z!u{RQ^d=wZXk@E9g-KGNz2eiuVPI>c z?Bl*R8WEgYCcVBl1zK#q0~{4jX1?PoAvn<0!R;~}+MQ>y#Z%?##NrGma`#eMsCEm6 zy{p!{d) z#2ju7wam+W#{&E5sejRiU(V-bm%VqIA*}!zO-bHN8O@z93*Lrbb|=ob08zHgKB9qs zY#I2+oobqo7%rEWK?l3=x1;$i|H3#01`PSe2P(QK(z80kgd$kA9O{EE$E*~E@a_OV z9wGg42Y#9e+5jirD$Ry|TL(WUw(}81MIHb{8aLQ~l-*L^&y90&C-_d$k zbOKNBf4&2>`Q8Cm-u%3)Qh;X_-qLEIX%dTbS`pk>jvD^Xpi(LMZJ8sO~zM2l;(wjUN=?htzIY0Tf9L#fkV+FP7 zp5Yg{0|;p`-{O(NIJB@89sqwjBL34J{5&#WF68l~y0|4Y+W1BP?Sc&@57p^0bbI30 z3xB!Mo3e>ct_t-YXsi*$xc21eeA(429By>fx);8A7v)eRQu``s>1yfBKr^S^)`A(h zvWy)tFoB9f_zOSE!%xDYQ8j*A)R1Lqo3GW!y%|Q<=Pdw2Y57&2RLTX(D{sVar5GUJ zl5+0=;ANKdh3%cpzpo8EH{D0*qx7Wb0x{MJJZ$I3J}W_R!Mm|n{d{%oulonx{1m(W&lUXQiQ` zfX>j3PL|FPXoQhVK0fR_+)hA#(SpCK8Ps}@tE(`w;A6ty;OgIZW53}@X)35^ohGo8 zQJYSv<<3MMZ5YbIus;VNmVGRXGtlVRzO)=Kl7$hTZA1X*`&o8>6=fybrKB~9Y&A2z zz9`HkD@6axCs(6!f2p6I$Vceu5Nk`gyu)OqNe*hFQvqyX=IMGA8bs2)baMD|fiV$= zhIt1d$e*^hKWPvenGtaGk^>#%*eD8(RClvDS{KbqTXlC#>#G~F;@s%E-u@<9DzI@7 zilgQNPoJB-xZ!~VCTtk4fU2T&v09uC;2iCS1i`1nZNRxEGM`s;rSqiGljVn1k@C3( zWTa72yPE~8VVh>^WW}~KGMmO(G#t)K7OXa@q$ozvt|3LyM&{W+)X_?r_j#> zUB(_>Doy|0EPG4%lp_-OlsI>g&lcGN|H|nUaX}Goo6JU^2|gOj5mnzKm*Fj+^K2k{ zY!A!#P|F#Tp6n=>XX)ZF<#aDUG%1f{SR91<+yTz(O>fCPHg0b;?*NM$aBJke6{mEL zee(=j5C#Lafuh$L7n{5w38*gx_9gECQ*<1M!1pS1jYZ5Uq{oM#%jDC(q6SayfEqR` z8g(*L?)xFF*olb=^}3Q z+Q%XB&*0O}@-wBXMA*HSuO|ne-R=ORphYEk>4xZwq?I}*^0ey2V3(2eoE1vsDi029 z&*vK#!4ripVAwsd;D6ppdDQFmdn@%UeZHhjV1f38w$SeaIg!!mDN4GI*Lej%-K(~erd{-vLF9aBPnG+W01OKN#{+C%i*lBEmdKKHtrL0 z{^kdAf_@pJ9M(XYW7wQ4_5+asRsNdq&V>pUO;hnQ(gh@HcxA7n<$qSL5_L_nAkHLQ z9x1=gl3LnsG9omn9W7Zp;RhwN=aL5Y@lN`^9h0Fk{{^l2If?v3jn7|8=G8T9#Y!JJ zT0C<}#L|*Bi57Pxk|p!?uU12OMEJS!I@}wD25^|xmT(8q3D@kg#B0PVR)Q`yVaJHM z^<0(D*q6rqaY^XC+${a%h}xP24JC@HXhVl)gGImWNIOSum6~f{dz$Rqt9vN{02jTN z;XZE^g$Q}a;;U+cor>O*YdjxWue#w0*N-w1B_lFL!(8cdI{jlX0?|c;(^uP5)Sf(d z6wT>DicZ3ZgB5Eg#OEvE63Oi8rUO5Actv4um1%|l#iuA@Ar)$*)3129W|{AZmm0X) zud2edjHa-3!_i_K^aElfw1R^NC8M+EB zU&IyDS<)v<|4xJjF|uiRx#DO(*u^-;G9{@rOp^TD=yA^*#LwY(0N&005>>(w4n8dw z!Hl(sV#c&}T&DOuh;>_{*a%^Zk3({FI=?L+>^TSwG~_N+G=Km*@hfEh-#{q8`NP1w zslS3~W&LL(T3Ois3((5K#qqxt&k8{Qe|XkE<8=QQ;938ihGRLEC0LR5n=%=*+2_w! zWkZc)@dFUOMbvlcDfw$A_QzwNoe8Z~s;JV3N;WEA#(8Q5(>0vL+r26uv{J3YMo9c< zo(M;24tm?wa80l#nZ~ODQUTbW002(GADbb7nt<`r)U$S1560Q@{aQA!tpwDj5an-d z;gJGG8E`MQwzA2=QirK`U;1^;=LD_GBlyQhz*6pm+>qCtfq2 z#fhrIbA%L1a|p&{rZdUxmXZwYT7I1ZtJJVW#6P4ijw@$`;% z&t;qeq6Cfyaljnyzk}lKJz`1{EXnasn9EW-$%A zK1{odKQi6*LTyd?_(HJiJKPzmS37S{kQGCHn5lA)#gejS$uH|(W&R%nOo@lUt5$fFM8!_u9X_1l+v(_Yjdtj9txje7#$5GN*LXd^nL5ngcj%2tXP^1ZW z?GE>&1wSOl>dM9H>dKhJN4*tpMG*h=+u&pVRrAUA&o-Yw5dv_qva$YeHK6~G5a2(F z4*u;8=(Y{N2ca~WR=~qnvNQh0)6&pKN^X?NY;n;d1?Q9$ zb;O)z#m$8C9Ue>b!+a^8fs8TQY-pq|@Cb2ppc4VhV>1uuhMI%%Vc=XjLL|0nDBx>i zXU(ztyhSyy7u(jj124CGsMI#ZeIgvdyLc>g#$B3Bi)9w0{!MX|6{2AI&8j$a{Pua_ z4i`Z{HR}Mw=K)*PfFLg2dtU?eV*{!AQ$zPpr9+r1r3pha)St&7nMA0WDZQ~ne!C}x zIh+@>Az4uy=TG&CvK)~p9%-y_t2u+`{byz--PFVtTS8bW#5SH`Iwaf6-+kF78;y+g9o()>%9L1xl!_6M^!?{!)l`|V z6k}r5%E3!Ia9pP3$p)Q?B#Ph=*uMMw_<)`6Q&w|b#)jbqy3aNWd3CyP?f?rsw>wS6 zTavxJ`_AjwhEffym%2qm@C>?U>c0!*=sv!aH>+n?V?z5}DfUJ`OL*)gMB8Ohs&f2L zpk14trEvOM;tIFXU06BIZEW=y-srft{T*4SEgw)N$v{?J(fESTHADl|k2B^0=69IRPBk(m zWwe~4{R`Gwcn!;QBGT}sSotHI^kV-tgFNs7`PP-;S?M-hl$6vb*=;i7gY7&Bx{e}Z zbuV4)!V-g@BAo7AKUKISIN9U9*Ev|XH=BWUjI4O+2=18v1a43)y-qK&U0BReE+(Zv z-E@M-y#M_`ipYdWN;?F^0f-i(QfB*(Q z%q78<CL9Lv(U!cCk1*}KEFWao;itw!Sb2Hr`9#N_DpexIKh1|O zW6Z-NaYMz^=2Hpquka2TiHYH>;!%#OJz8p-eil~hRG=RB!CH9-oFsY6Dwx~QyX<96 zxOLqXQ~~I_hln^r=fHM`1a7a}F*iRKkf}SVTbduy3mqe_!a+~#cdfRY6NNCn!C)IT zEx#xz@*d>Kdu9SJM!1La=XKt{!}cd%|CsfqJI=4*Mr2ZNYp&ob(Z*`h&EiSa#$%RV z$ON&cnu@t2&RVhSfhXljY}McR>>z z79Lv}Q%ooY%27gR!<*Dn3vN%Yz?$2Y4P7lGjQgYh>txi#VEap=P@8fSXY?1_L-zF& zU$sx?Mty2a4VU&dA35jtL{roxe~g@c0JXoGAZ=3{JqOOe6m(ix{PqnF1|FpOJ(>3J zu>BdMwF5b9DlNfHd&~H(2>U#DinE>Z)ypd}LF;brYe${?f2t&5HH&f6rNw6DZhKHC zts2`gy)l(`V#$K&X!p{CRE}>#MC3@FK(ihe#updSSA zgQxE4{YD?VxqkURC*IZ6GuwKK5Q*o54C$?DWXV4W*t(!LI!wza^b^k$=swQpcQ;^i z5_Tv`Voc@q+~X(R1fgtn3g@hYr5OsF%BY(0H({Vdx#Z9<@G8$2IT@l1-*nA-A|@{= z^EO4T#=1`EvtmlPq-;|EM1R8eFK@f(!l%C^+Pa=go}rrM!B)N^oD*G~7r{#+-jq6f zvkq@+X>a3x?-z5Cq$}9SQ(mYk6O4EH1s?PBnEog34l#aWH)o`5M72_vE69G5tC^2< z-FwGn-i^bXF*G&%tKvlM*R}`6v#$~#OQL1bY`+Ozb1Eatn<9i#o`1C7qjt2^a zs?;1&+T@2FOKs*X;ggCV;mm`bCKuW_GTwge&V93ST)JN?Ppl97eetR9sWT7q zarc@|RZgd?OSE>UWaJx+x*b3I(8T&#K9XkrrsB6DdghkfA!eCyR*?1|V*>wzzcIMv zt3xlAzGd)lQY2sVg>0BE2KPD4@#_1i3~jOXG5H$XlbOcvDNa6(QO~D7D=zR7@IL2j zVp>oL6=2$%dw&d0!K&+{NL}=kb`U27YfgoZYq>MVJZjezd6w{&Hf9n)JD1LKy8ez^ z9$h|P9$sFxusdl>QFoGj+GE$p(aM8t+iM@VXml>Xci|zEFuaB9pi#k5@hXU7HDSg# zJaz#mf;5_bl?>Y`_$Ao60G4?!orMi4|l@D!!Jr^2qml-^ebwRMD9KO{xtR- zix6HtQ(1+`C%xS{p}p#G7F{_=?)~*a*`_PzrhTEpg#X%q zOMmc~BoOYku*i-X#J(EGIv#Qnrap`ezUhO4NO)BZ`|GL0R~ke7Cg;+Yf>9K&p)cLL zKNTN6S&b>IHqG<(nGcj(_8nz!B$jt&-gdt5BU2`7QdH%s*YN%w0w@47s3#G z16i{9(s=SFQu*!k@C~bkNF9U?=pyFMC8_3V@4A;(E;4xU=p&U^1*YP6Qg~hCc9EnU zQ_8juU1^~DI9UE`!;-9wg$I?)!cGQsG<_8Va~Y^TKH$FKXDb_2f6n^yi8dMNNlsd!cp-=YbQ!NJLB|Gi!R%3CjyP!DXT}Y;**lQpi+JIafX()}lb4a)_IIIMl# zQ?VA}h(*w$@Nx&B)ZBkz=YKcgjW=B`Y-ZD|yj7XjA*nCP4oPbTyGM3({ogn@+#fwn z2~(;wQBs}?raUX&7Ek8nd#M5qG^VZ?x@H~7>32X75H69-50_bvWIS8 zC5ICx@TBykwY0+%(7>{lJ)LH7K2u(vxC7@tKQ}S>YU8L7Mm7AUB&+XU?$*RcaH?0w ztvk{61o0BO#x4_Vkp6zi2L|8T?v`qFbHkOHI_6Glbe)5FtfPp}hba!TfGi3?&AERFMsxzk+uD$s5Z!jf>0y4y z5(Fc^-Z&}~FWv*m>ZnPiPnfY9I=w!(AGrk*e9P8S)5@wr)KM%txMhV)XH5_Xxwk%r z>jQNmQk7jxi^htM>wskE?bNr+R5$|N_PP+HBklIsS4%7QQSDXrsc$Cq`a7PyQup|r z!<6D)8V*kpXB+%Jy8lvJH8NX{ltGMzo%898_sl7bC7(qJzZkv}!`ow!zRw>-Eb5HQ zMRDFfzo%v~i1qb>V>mp&stHIBUA>hp)6?3-Xy|?F6)S%?D&HWEQ9&Q)p#Q0eIQ8-B**F!_(nMe*Q#i3ng47b zCGkeb>k1&tuRs4`YoCG#`cAB4k^DIO4!z;H-sbg?h0J3n2yZTIBsXbtn3}koFDPV&(xUyV zX~c3yoi}y+g~z?=S*8rqG+T=>RGc^#K794t+77hUBY&;)Vk@g+cH4BmSo3nKH@&o? zfRihG%~1v9)a`VViOK=ohY#}5`%SKSbOH6v~r_?QiPT%)1pgL5KsQ5+`Eas!xAo zR@x#GWs^w{(JoIKn z8_MyIQe^xE!7VmfWg{HHmR=_!7~kPMWLnJ&6(}k% z4e5^GDqrnd5dSTteE$5pxSdf+x-vtw)FP#{7f^j79*M>YG=SobsqA_Cq85p;Y# z{t>7z={9oLn|mzu%djRe#07LHFO>PQydm^@jEUT;2tzz$pUxw<*!^E|jr8DIkh3RW z8fW`A=1TWIt9J+0(a!?$uYSW7{u(R%8`H&qP95PHaYX=OJhF>2-Z2J92SJ}izMgFT zeU~B!H9s}#3}ie3sK-Q>3h}Sp9=uTwYFZ_cv$)R{Q^L;zDlM;f9W`|h&R={qjK1xo zZ8eS-Ci5Q(-WY^WdJQjy@sY_UK1|~?8Yha3CK)(cby0zjJMCkDb2dC@*Ap5`X)Sr+?H?{Ijn6 z)!_U?YpP%J1TXnDKBgHA7`>xu2p~>caoewh=|MeKc1x$1*?XK@s&}6f#)IBN4lr(= z@XyNROX<6=(aPnV(>PE*UFE(Z+PG;20SCuFTMs8zg8NSoM}l5J#_0J#^zdT+o;0S2 zLh*tb8zPx^?qQJ#g6Xpa-^;j$&)(WPCAv&1v8)R{B61}<--)bU;n-AlRn*mb-pLsE z7Gl5ay^|@)o`;^a-upC%OD?lAngd%=f$U$X`{D4~YDLj(^OK@)+B4!E+7f-e;3aC( z9Lur4z;yis7L$_3n6CA)*h2w05(1O|NHCBojBQ~Oi}5+1E(h|X5&!KvsJ)V#rS=U~ zU)>#GC>z+QZEAi7uY@gXOvfuFcQX+>s_mf1cv!}Mgb~f@pP%&hl~s<_7co2FB=x8x z*!D|BcvBc`XQ8kEEWQH80t?3A;yq!y0d*DNQ0EO&j;AEM9-bgy^7h=<)Rsb{GT<`o zP47D`ZLW^9a_7x6DgF+(|78EuYv8v7%bw~9>u*inpQjZE@sti>e+kfk8Zq+$?N~)# zM9ZRglNj$ef|S)K+L2MOZkZu_p$?3t0gC{Py}?EgQ=U?PA+%=F5fP$KRqvmMJAQ(5 z<+xRk&d9sl<}J)l2~Eaq(~N#>Ya_!&6WSNz-q9M8BpRYB=j|cPH+JSh!+eEluRWjT z3eDi?4rZqc)H2uVIfw1f$s?iJX>a7&oPF1r5j8fxpH24uV}zkhYFgn-IAyTvkL#_o zL9><_$fOG)u;Sc1S)ie2gHY7AYu#OPeeZ-bV#dR?Ss))_^dICNz=2oLbGaOA&5BWl z3RlHl;4osNbEXZg6Rbx#F5L`o5=cL@jlKh9oB{_=5DO2hn``WIvJaAYUtiv|Vg%0` z9>Kit&sB0IeAdzyBcXkOFY8`io;`bM0X2$9+Doe-@`tAa5H~v}T8?{w##xsj=1b&) z{q-k%DxlTATX+sfUM};K7uPc0nZ#@5ms-&~zAcBl-YulLXBO@bVPW<$6~b^A|9?_r z5pg%#r*--(5;ex@6HlmXB$Eu{Zz^a6sAm<^-w9K zK}@Yav<}Q<)zaJkM9Jb%K40(GU9fmoa!K)6tNWp=Jwf0cC9a`wc#H?cBj*2%s_^%4 z%ir2&HdOf?PwkZ&Vu`>D-Vfl5d3a)t#JY4-O^~EctB5*5S{E~E4#N!z+<_cfHR@*A zDOuP~mKJXlXGprRQZ`<*8u2_LD;j4g2w&ak$v(aB5pv-Aa9R~HV`>}ex1QK~K~E3g zEAV*vc*1n|v4GjPbO8qymx7^-W6-+CeVlJ@dYwH*G*xxv%t9-lqA*q#Mty*Ck(J?b z@k8t5S-fnk`Ni<~eNWB>kX7Mv7iSLQoIj7b`y{M}23oh=tqOsiBIF4bB@dk3%u1_RSv&cc>4F{XDO z^U)Qnd0D3r+fOx#8q!${nwbsCMY6I5mv_;3XKlCiPl>6C{#Ncz<{u@>=w6bLQRF6f zI5R6YXd5F#wWL*wl1k)wwcHRvsq<-U<-xqp=am=FTJ0}gZv`x}6uEj&P1M7&x0ub5 z2av~nnj+|EGAp@X{Vgf_Z#e!7*U$d}jnyCd<~aphF7??YD*gKD-vG1p{$pMOpv=MZ z1`T`_tw&VWer(;N_Lq*ju@ak~X~h+KJ^WbFX~kHFCFX-(loHRUTsisVFFWZGva-%> zZ;CzOKO@?J!YNBIdmHGrKG-s5)z(BwV*Ar|G&$5C1PsLu7zK`^eW*wv{f$3FYHiV4 zS+s%KoGLn=|BL4hYkCz?6>U+OyAQSXr`nd_3&&m9v(0OeCP|s7Lo!!{H4~*o74xZQ z_+qWz97Nv!wx}RdVom6Xx1J3N}GEN(IVf3raRn+l&%V9uEw^}v`y6b~a033EqnGdD#ugTs4}Z=9da z-fECi%qSf5Z0OoEatx9uU%188EuTVuX?B#haQJj#YrrEVdkm6ikSle!O+Ewqo9)9mZ>vKW>(>E>h4zJYyMYivTv8I zDK44%szPQiUtB#DOg#i4DieH4RHmEqp$Kh=m~bxS*vt$aUHY3{^~;+3pK;w!H8j^> z4|nF%DCIS*7uDhP#>A!!-D`MPE(mb8mwyVu1kwXIQyKg_XoL!fYweHF3bOXR4#RC9jbYUd;Zib2yjXS#f~d}x2&dy6xT`i8Vo$n!QY z`UG*!=k46)Kvq!oNTaB6h*OgoUpyk;TZk*( ze#F9I(Ra7$<8hTRl@TeBTRu$(?A{!RMQz`UwyI-F2Zu6>Y8!JD6sS@U(WnZa(VH%r ztKC`eZj!hL=eneAW6`rtwywuJmAYAx zLq((Ioq2FJ25pySs`*N6tdbf!Z$?Qo_D(Y~(X}bvr#b6T>va1Kygc-c&JUEv%)As^ zGAz>X)f{efHxKI-3SfmULNtzCK6KfX$Ygj_bkufJ83WyGn{KMT*5_ydyMsU-|ISt3k{XkC!jC9@P9uYbh?>*Ct z4_dk;Y57)9M>o1goWw-C?+}q=c}{b`WGWsRK~>IwbJj;icX@r6miHT&co_4_oJvb# z@J2{q%~X_2QCgC!ole2k-|S>+<#2D9Xi{5KLVP~(0uB18OGS{hf`MQ{JB%`Vy>lqa zr*R^)&(xCBYsL%$U42lIcla%dc~(5&tQUB>Ug2aW?QB?|ZWx|joCneYu_b7Mush`^ z&w$mweRwvnKU@c`=Yh44j1##uJ-_)Eu_IrV;S^B^81CS#l;y4tp5Y*T=lCG`QrC~q zIzBF1`OFQPRA~;)T`f@!*X!-~BPH#$-!T8yyhUcaeqXQpcj5_G8St%Ba_RUy`Kx9t zmN~j`10nG3Rq;;MtL*tp52S8YiFxuX{~h^B)f-kBJ&jiBvU&LdpQ%go^v8xP{$~)<1#i+0glMm&mMZ?+Jna&uZM|&66Og{Je{$_bAmPz z(a?+zJ4WBs8sHw?O0D(f9FAFz=^YCwg&t>_^2^+>E(+Y~apJi~8~r3((z*0@Y%(@F zD5)F{kF=xJ&74OADR=ZOm64_g=PT-Z)nA0{9qKIB_AH4fbl$wh0F}thvyAVxacOE> zAXBr{+g~OpYA}az9N$k+NjzM`_h4(ttbKjy`|=K;kw*z?pe6l2md_8eTG-irE(h}M zu)kamgfmKD^_JV;kcPt31?8D_fk)#}a|ZQ#h0J#V9A)MRc2)j9I;bIVxM;egF09o+ z?Y04A|9wc^av6#go-!;DE)T=806sQ5<{TR>X}bfMpM(2Hl*8aO6^w2N$QNu@r->#3s&t3vzhvG=QzYECw#&4mthu`*v2;#_~5_m!#sLlrY4muaaJki2>@xWY+T zS!wRUKa%x_;a?P*{H0``?~Sr`BCJot9kL6c!XF>~uGTp(%5u6W#b4x@MP?V#%YF3Y z^<$HT%?txKY2myLppjb(C^kZH<_>|j2eF@Ej#+8-P>^bxFtXW7iO!Fgnf>UOo+60c z*h;{m(K(6GJAnLA@yy_3trso1T^M~pP03kl5Zvp5)?|aeEA_$P z{3(}1KkkfO)7%R_pNG4h!qUt)Fv!Xqc3GccYd-JuJPYcRTvGo0JhNy&`|iWQ>$8&W zU#=DZ@sDboAJJsRb<4rKEhb}(7&`$PoV~%T8$72ZXO2I$wdhpgKIUE%CCo2D?*a<^ z0{-E5*^m(4dHsI+#IsBtr4fUEB#k8GzO{^%bRUC-RTaq3S7HOJPr=tH8lZ(!I5_;< z(Swp)+00pS+$^(wmnBtWs@slg%a57wXh7Cmq^H<$R)>}?82gVq96rBv%^0e;&rsFO zX7=cw&)2B-w=dqH)+R3aFJwZw|ADtJ8gP`Arky5M8XS01E+Z4L-%Vr^Cg3RRNkd=_ zKgLqv)&Fk4o8P3$>>~>4jE6Y%K10jFH7Mf8-+FLfg4GG9qe7vuLQU_~4sy`K3$6#U zjT_%HUFr(&~tAC?Bx&qFn+xTVBerk%b zrAKKB<9ztgHf||p^Zc5La+O!X19^V5C?LTW%^x=Vr*7tumzyXyx>1{UmKLsF8W$M; zc*XriK)lI%Na*KL`)LT_Z)CVlu%Di=X?-UB3g#rVmxS4Cq%d~}Xn^Es{Q7!7Ye3eo zGWLMqV?W(la;QpLzT&+h?ak_!<-vy3>-$gvi@`tY0_Ab%9lT1dEru#-5vPP>c5-7e zzV@_Q;&1j{@Ydsh+DX<3V!h5uKhEMwL*~97xdZ$%C??HC89f(g=mIVCNtkEFS|OGA z{3=%K*8FYfv?83RGYwvDJ!h@J66ZMO2AoI_iAGvVTrO2I2%KgCNH&?TIoMt-$3bX( zty6Z!F*2kw$h5qs6DeDHfR-9RZlGsd*&RAqIdYnGdZVGITODc|qABVs6GUcYNJ%u| zE()|1TwVnm2FA*aB+2oM=wA{&hzDVusZ2rihDF6oAdl8iO=N_LwJt*a3@ zH#*D|>Y3XRe>JGc09YFi=8^ft1&ddb9$)1_ZoKr4%H%S0YMYjuSIj0#NQ1Hy2h!EA zWor$?idY58D7&}E2)7bez?CzYIkTpB0FyGc%)A81F{Nlk7h|FH0lx>IwB2)aCS_D| zmCk}xZvla=5^F2@K9_f%QI?aN1x{N6D_6YJW?9zwqLFe}DF4 z@I{@Lw`d@q;|c(o3R zC+UGtjhJO{k^u+{|CpC|5#u+>N~5U@DI!w=k99b&NuY239bk~2^k%K)vhY;?KmH~D zJU+XmUQ1o4JiJnWXm{a+)u%xk=GA?~e+Pi!K7hA|zZi4?$J{R$>Rqa<3F@L(HSaoO zctGiEVFPf<-uN;DgEC(#LR0eKH;<@+Uh5s^!EeLDZ%lm$U^2X@@c(=n=*IBz=}a3{ zJIDO)j5H??6$UZ~*DV7N{O`jHFc`sJONG-N;OeLvZh)m>*dP;lHQmXI^&P+`@s?&4 z)Ze3CD5)`|=gB>K86Nsk(h%QfRa@Ujoddh&Nl5*>oJv z{BOQoR*c@jB{|d(^9~@W2D?ug3tr|((wo`y0P`z#)9d23o@?rK7{n=%OzTdg zD_uP1vmdlrfc5>>UA>q$=X7R_)_XPXkHvBK8?ezv6k|LZZo>;zGH7n%cA;8ycYq&e zBMuiXNka`vXD5Ap4LM=tj0b6=8oj><{+*PB<3zei#_~#Tk2gE+;Z*T5o-s>h zu}-4P+6Joc7jY_QI3PB*{UU;PbeH5@y2H@P;HhLpmmS6K>b^!KL|8H)y?G>FU{HBZYzsv>yl>-JA?^iwoVm<*ye9FX}T zovA+VTbqBpgyi9CNHh1c&gyog6Ef$rLZ**YeK*X^KBtC_-3x>!)z6Yml`m0D` z_J1}~m<7(Q@cWm;S=f30x8j5WnE#Jx;eQ>`!q0)ZKV~SnS7(crf>+hxUY5KgMdsR*Efr*Y1xh@KOyFtflPHh%J!^bQKP|K>!cib}(I{YHJljbZ`gYFDbRmTtC zbI#yvTwno^DT#q7yZL`?XV|=?ieY$T(byFnsjUE3$w{-r;m>Y{lHy9m)pmaHZ@B1} z(9s}rNvZ0HXgrrdcgx1&1yekMqQhC%|1d1+2;&xy?U;OR($$G($M%j&JJ~g~s=(>1 z_1<25f@dxrHA_V{o#06-hQuIZ9o&&beA*$K-Hkf4H7v>AvO}G$KBcQFpb>)jqWbR{ zN~i@7VOKL@v|=dbtc^amcBg&pbfV^138QU#w@!7SQ-PtX9J#1)BPC>wS&V>5=PA%0mt0CO!2@gam@`0HyUFe~V6m;|C)tW^UzV>_EmWX7$#| z__eX2t&#D689W{iI5UEvAc~`tgYjEy6t~npZ)xxE`7Im8g3>_ zRrYTOkwuI<=KB|11*up`f`yfoR822R8fw1^KBtSv#t-MV$14Wj)HOrZ>aHE}Ng>A{ zx68ntfndzXSk}-$Lr4&bHDbMYW=)vLvS(Z1Ox|^c<^5B$B87(>lomzbuPaJNzGqqM zoB+#6?=CMPq<3d4cRuXfwlM!YL*i`_Zqlt1!pw$rY{HxEf4nwHrRW+Ed`%l@#)-X z3}!ytA3*TxnAUa4?B+kUnme$iWItE9w7`r;rru-?MHNxIIyjp_f%PiN*~iST7fEnRQ(oHxSh)39yyO(D$aInm(_n|72yWnB(V`c8vMgtPbj=XrX zgv*(AJw&2}yELSlF`9b$oLndajDT{BiE{rL!AAs&4o%@=M*OW8qZii~G0wEe9+fIS zN+g~0PwHMG8WM*>KBe~oF-N3=?d=@JGxB-WjNtZq z=~wMU`D9dY6oe(-cSt_QT7Mm)77zeEitM&YYhQ4L-S#=Mrxiuwm;uvo0H&+ zmmLpyz=&TOYzPsH6KShk$iYYIIndM`;}>}7`=$h1H5JX3Y726Ci?0z&%tsTMwriBb zortYhMsNCtG{kmj^bc+b0!N?e3k}265%Z ze)*F7gcI|`E_xQB{n9p1RmiZlYK@tx(fYc;Jd4W|P31!)y)ZN9?TWxFO{Vuz?B%hM zNhlQAfTSl_fwwgU94k!}RJ@gdHzeeNZF(f+OEky+)ER;wqdMgTPQbp44jZi<(dPe%Slb|>Dq$WfVC5qZkW83_O4~?CCbEYi(K(z@e zmd}MwytEhzAuEmH(-2yu)Y_%oWcn(quN>Prw#7TJ{4)VmiUWSGyTu9Cgw7*+*{o;V zdt7{J&ke160xpsJHlJe=IF@`AZPCwD7NWmb?i^c|a6h({M(Dlqs6gQ?r#>3S)7y?q zujLdTBK`?b%*$mcwOYp+;;j*i3uG=oS-jO9ascCd;^J2F!S%%k)29zM-fV-c_s?w$=ld22-$a$g->LoJ0V@BHkDf8K(Q_dS79l9TBP+UwT1w?{p&B)PD?NRk}N z;A$H&81d>EQ>WJH#~RJy^BwG`T-(EfA3rjldJJ6>)^rodgMk)JuY}P2fM3?H<>?bI zKeiPXV>>GA*zfB)#Gr`b=}5H>M@$gWEChBe%`8m4kbc}es zk^5t0x#V+6y|G~$7Tz**VaM%IhS1VBypz*7YDx!`Hf6L)b}^P7DRL!x{kBK)4h9bi zJtwu>BpE&d9=g1HY4_o^gzof(q6{Y&lQUUi2sKVS<}3A)_JvXjYGiflIxo6O<4}yE z7X8#JA3&eIZy(D%QQDHpMsNy{Q!hdM7}NS{`n%YpSA3J{lGnJUH&!aa9=74~=F8d9 zf)|1$4ZJ^`EMeGgb4L<45 z*ARbEp<8U)OkjJb&W_&j*t4;z?EX3qzf_aIsC>Kz^FEt_lL^QBJnz@;MpRo#pWQip z#<`F!(wnVypX1(zhg5-GdCS|i>+B2y*FZu=V{IWhNDNOv<%yIKj*X|5h*zD*`ry*k zoLDC_gDZ_}pSHlKeR{QKrj1?(icUA=%t;!3rhL|qUXqrjqQ$fkIlkj?@v~8+>{(L3 zFBw7fb)-W7VaaPZ1N69y>0sd+OcqWpM9zqND?HAaWkl%35@>s46~oAzaUHuQ=&m2O z25VlDo3&oY-EWk{#(6;Li#=DB4#AbC<`z6-e7r5pk2Gf28;A`n$}6_8{^;wAY%7LV zyhrT8-e~c%_%PqkzmWO?*FBqsksZ-8YACZL@A%yk{-eMP8RYWZDOc|SCKjp#_eOn~T*q`pBqz%V=Xd@58mbqEaQgO2T~qTvlQzrTv^MC6 z_9!pjJbUm$nY8x%#`1y_H8D*Tu!5{QyA5?r>B-61;P)eoXy2@0^D{zgE{6AvQoP-( zp3I?#Pb}Dx^vq4FvU66^pTB<$#55P-(Q|w}|7j7?mS!QtH=Ce$mXx@b=E9VW!-KfW zgIE#iMX#e^94~0(m}j0*&NXmey>8skh102s$)D?0%4>8PET6h!m4MUFJZw~R_66BK ztxObgFdq z;)i%F1Z`1~7;Tbhq5_gwBM7-SMFCIcw_kU-jpLEQidu%R-n}cZx<~Ee9wQtQsa9H= zo3HwGq%HWR*loa)Ul+(-;EhJihSebbA8xGjgJ&*L6snx33@ z)#wOQ>VYl%nApEc!C-8NP!JYs%7KcTNWJ!}+&})sI;xH?w+cWa$Gg^GC96@Mu6iwY{ zb#g_j%wEh8iYF?P64{O5Gs=lO?(H{?@)DJm;OJqryq&V4cp6vvM+SLQ)9;Sc@)i90 z-n^=N7O>bF?y0^U#?5~^|%gVYs-pnKr-$l(F(C0V50HJeztz>D}+#>Ir zGMAhKsD_|5mn>o=Ag*mE@gVkGKY=+ch_>A@GRRRe#5K6cvO|YVTE|2!gzfOjKcjKXx%Q1w}1OHj>OwbZz*Q3R>XMA|jkuegV z&|a!noi8K#>Zp9^H>SyBFj|@7QEq7IvXbxoGFef=>`Pnf^TTDQnxAY~9JELVRM(~M z@I8w!w{~sl7tWK*(eJ}Ekfpodu+&f)CfR0lab%3~6|Pr_tf|>Fn`26!hys#UMP7Xh zM@_@H_gd@Yb-mC-F&~>lZH^EAZ|W?VXb}4p9fk2foJKfAq4c#5lhP?^=1E9=A-pDy z5u-q7GuGegqhS4%Pc-&{MWxh7#)rn~O-k;a)dB9?(rfd{l93{L3I+94l)h<<)(XM` z`QD?%A&1h}zFi;A=fx;bC`7#Z$g?`lV$5hpOUeN}UN^m4JntMhryP|5s~oS5-IAUq ziXp1wZ;AQo;c@$aBt+g#M^M&5@pyyOl8#`>t}?!PKMa>He+PYZCqUQXW2b;MGZJ#{ zz^U5n0^o%G!@Y(3J%p%O%#3->sWgcz$YBn|j1r%Sd&`mJitIRy>xe$6I(|wQ4tT)c z`{Jcx;dz{7hl%!fsF@I=A-_KETM6>>0W4=b%*S?^02Hxme?iHqZ5~08i>sEv&EQ)% zhHSNjBy;Sx$Ffuz+0khdC?u(#k`$5}ngMH6G4~8Jw@p69h4;x(jd7U6m*paBFoZiw zEJ+e{-^&L$R592S2#(U+(d<2+W_uaS$6(8jUahE4k&q;)&X&7}jN=#=B6OPtve_ij zHPN0`;fYO*p;%+n_fW}Fbgm_3?-?YjeGscRqlq`ND?WOor0OBbBR*zLG6>#ut^0u#He$vy0p)TMR$_xvRo2%leeVf?uvc~Y zYnOwhgN}Uq>eFC3UX)43$c>o%luIYpRM z8*|Tm!z|IWvgQ?|2VKVI@RQ|nyY>6CElu5MsH~X|?DXt3B;lOeBN0 zgl!RAYf7PdfdH*Bk?#=BoY3mCda|^BHQ49 zE!?n*ex;UcE2PelLw*=S5W<1@K%MrVu=Sz+z)aaG##ET{QM5`Rzn~=gs36UfDtgAs z#Lkgb{q|wk%z@JZ$$g1yMRCRRsL2VhcYm$(Y$v!8&x0MbNL`f=n~n1jI>_0>8qbd4 znZJ!x1qE(x(-~sQ%-eVBu9~W@v$@WyW-QsiquyDz!yBtuJK!6`k*8Kd4e zP^OBuZ9TsqDOG}Eh^ne|Z|NmxM-IB=AcKSr+yrXp4!IhQQfQyI2m!`5>&21YAF#^x z@KY;}7!cZ5Bx&7iQt$-5x$srCU+;sdG%rSY76I|}Mc-B%9E$g|V;mzC1T(Z|kD9|; zCRdir1J?Yb_9jD1tz3D5r&A=|PUbXG*H}tg+Y|C4xAn4xUSe5P1*t8KBN?cys&!I- zrV=%rL>Ai0l6Wo^M3IpUfco0gtZ<#|`BjK#rsPn{FiLpui|jAF%by~!IrKrWOhegA z3L0W@8C+?{PQW;HMb|8;8`v=L?gFZk2GnNBrf_#yFjYh3%gp6BskPIn79v1T%K526 z6hy#O1nSe|y9J8Vdfr|udzqju+!R^Vp`{V`_7yY-C(U$0$ru>5?I@|C5~ramiN<$p zB1qTMuv;d}JlDwq2L4ixgA_8

_y=J37769q=t=vY*%fIb2(-8?O_;$MqDiV1{$e zn}W$4qc7QRT^#oGcor6UmX5Y?>$U zkguC07Mlo*8$0oB8d^IN2SZ2@@n~CxCrB>}jYK49fAOl(cPti`FtFlydkljQ9u9+- z>w9`75S&YIk|!jNe6lO|hC;pEXYNHH5hT9cr$Zj1Nxs)f*%#aqW*eIT7-f+ zc7z2gj{{-^AbN}!EYm)A{uuGodw2xIjM6ap&3t2NQI%s#RsJAsBgU(f{qFjcvD?`J zA2LE>J)#TFOb9?J@hph(3Oi>Kga_D!D*X*}B-(Mzky#%PUXVm17~xi767|6^Y>~h? zqyEocifedSqtAK0NGMKw-zlU$*KqfSgS_0d z(@g_hl-;i(ZkEiOhWA^n$D{Ng4iG%*cdq77gQ>(`KvVS{cvRuN+#}l`srK%0PyANt z0@x7C4U^cFts~c~JH9O_Jlpex@nGAUFm-4en+KqFsG=*O#SI*h*MH|`D*seNKAL0|C zMJ7Z@Ob-T`zXx)2@IDe~w5i%AHj3{yt+2w>F`s^tJron|07<8WUhu_EIddHSI#K6< z-jnx;+E}4eha^s8MTf-~*Knz0c7to^U|k`g;i@GLlIMdYj57Iog=CLzkE?Q4P)(kj5cDtedhZDk93MW}oE) zIw}5F{J0mZHhkN=bDOq&+8R)vx!0wTk;eE;^%dgI>UH1DP@bXCM(;LcM@H>vwtUK% z$+olnGmd%|YG4lLxnEIJ{9swdn48vjO$=`p&_$?sW;)MaU=9mZNNb~Sng2|RJNLgr z$;M}@z~`6*SEUA(hLBFA2b76FByvd8pE$V?OFClv>bYG2&sz>C2EHcdaKXuvglA0S zb4>SU!^#TW;B#?ji-@&Xg*6j%59eF!xKR?UuwvwlxY~0flpNa}Mh&I5@0Uk#=pyGx z{wxWgF!N`l%5jyggOQ`J!!~S)?4L7g>(W28@xNpaEbex2DhT6$D&m~i@xPGlpC1FQ z-&VyKji&M~$J0W{>XODyvwS_$DxH;@*BUy_-C6ERlR+xq2{h)*bVkUK`Qp4Hpmmo} zLV%<4Q>Ul$=~+WPf)~)(%^5ZL!O+k{5Fm?spf3Xi&#e`aLdkpQqShF9S_i9Us&o9k_chp3mE>aN`nRH3(4E&n#ro@xLpF zUImMjeuKnG3xCC3d9N6UWPZxJ>d$`Aj62q7O63hB&&g`Bm6^*fbFT2NLE+}@?S=l8 zR==J-mp=$`f>S3L4dUw^>oc4-y%C_GxmiTyTm|GL2xmEy_+u|UEx}!%slaN5x8iyf zy6N%6mL8%_@*(Jh&TsrwH{iAwo^Ev9#!=s1ocmlHax`vy6)lj9EJYTYV_!arUy2~6 zABT{T)l&RRbC;zp?NMA%$R2skBL}cBo>nSkk8zaSEheDUk>`K6%?AVk}BrroE=g_zxEfaV(7_pJ7E&q z1sMUX(=0H8eho4hr#A0N3K$;83=%Y46rlc&YOyqaKQiMSc1rn(P_jXzS_Za?6SmYH zN6iRZ%{Xi9DFhz9e#hc_@5ixXs|i7Q@}vcV*~>E!uV+5eNP9FdLaJ^sSRolE5AtM` zfp`^Yenrdf=z}Cj{g}C$CDmEwMk7{-X{-R?g+HoJ!czmc;Wfzu5GDlCQ+-t9$`>wxhvKWLaU! zFr`okA>Mo`2IYtV7r_`qT??;-X-7T+f_SNWXL7JnAF4PO>I7+UV9$Zm@6^CJ3s=0Og2K6>Sdk3~%t9HCo8H zfx;9;UB=R9K)kDvMk1SCVXffa$q=^on_VEJX;8-XBpf)u)EMZ+KeU9v2nbnvKR$+x z@KoUr}KpFAp2ugMIUeB!#B2K>ju4u-mJEFwVFEPXK1Rg$H(OF$?)0X{B84)&u=O zgQjd-yg0R!FbTKz;vQ!cx3PMZZ*lkjI48mlS)xydyIqKwKuMcf{kFRNN!JR{)D623 zE`1+dT~6$Em>krIf|bRC#N{+-q|<=lsQn+ftg3b(Se9$p+HuZ4gk*N-#THmN1C;sB zu%7%=gQ)UsoCqFe*1ZVS1-&)^;0;k2YFRU?^Q73iNRvHMID3>Jzjwsd+eyzrGQ7-$SW&_69)qR;0d8>lxzUWL(zzcvsy<<$D`xy zyrKSGzSe*bwW-b1kw$j*a_#!r9!U0QJ1NLz7F}$G0w4(MC`=4enO$?|LlVr{4bFlB zoFdo0E%>ahNJev7m!_mo2^ck|i8g*5W=~RNycxvw2-<*1V8ung@oAkT1~wNS9VIXZ zH#U{??aG3$zGfNP0$n~qKtkvwZ0fS%?T=rZu$XG$Cmvl39I!Ehl#e!HgOk{7EY%fd zsF?3)YEac*K~0}}9mosbX5xGVznZkhwBtXcsf?wChV!UnOaN4z0j)yA%v$Su$1@~l%IGDjCm09MJ zROFmhVl8ygb#;U_Epa&ciAM7&39YB}Q_8JfQFp%xA^(AkaEtB5dV_JMUvL+5N|!Cy zVWZB!_U3lr$b`Zo&LPG$0bGb0=*0VHsJ#zBU=}Bpq!2SL*R&#K8Aw(OY{3!Ck7^N0 zx!-PCBgck3C8y2+n)^KTfd+?*h3jyBTtFLD$;0XEovz7WZC_7L@}(dSWrL_nFwsp{ z1f2OoK*2&-{<+pagZ~r-i482(n37c-G?xmM0wVSFWvKiQc~FFG7l7wOxU$&*!H`9F zCw|)owUr~JM)NPDLVCi4%B)Wv2k&02-cXNI11hHy6KY4Gf=!F@symRI!EtAsmBIyk zi^U4zV;m0n0=IQdNG7;;Dg8U!vl-x=0O^{8Ad}omWEkouSjIpZ(=2ZJ8Rk{1)`*;G z%^Dy!p=L%cQzlB4P7KE0AyGM^O-9}!ATg$)%ThyLP}F+mUbwhK%PhBOjQ*%1#B+WE z4$~RT;^oUQpzU9B#uO&YRRMEA+iS*A+Tzoc1;~FJ3iv@G*~3s{Y|?=X;u^r$f~TX$ zvEI7%kmR&0O<`+k58R2Q%dv|Pnm`cds{!?q*Bqdy9#KOitghqC49;OnI<2a&2HlMh zAJabu=gY1@+_bho^2cF9-bc@#O!yt zj-9?%lpB*bq|X*GyJbAc`dqk(#pBEvJ0**13h^rVu9e8}n`gznl_cW-i0jg~4n}wZ zI`v(j^)LJlB_;fVRwce^Hfkr#GLfL*J(feQF~81KgQn8tp>9spV1Vt!`F?pQ(bXuU z68OOK$$`F|FK+x24Sk*Fhy#kQ8m!_t0BPVICqSjGt0!*vLncB{FU;qQ(ThKC<~h5Z za2h_2p(XNB^V>Cnh9)}-Q%~iLvq}{@iu2p|T<>V@69=*<(v? z_Tn31)xj4}k~uPM!e>l(K7=^yyz*jm(eIV+O>N;_jW(JDAf)Rrj7TY~$QHi5$ii8a-i=a1GGA26!ri*|gBh zNVTcCMNWC-tjns9Hf=}{G(8K<#d@fXT3Rmt!dM`r9(a<(TQLtZWGb@$+_2mkyXZ(u zWn#|zbS1p%+1d=4%Z--8-Nt)TacrU{tit4h5y5*Jcve6795IflxO!0+NKO=+_OG# zXC2JuEBb)A;cqd-;Z{3!T3x~SyOJV^zyptQ%lz$@m%jnW>Y9>jS?C;SzZ3(qh;qEg zS&`8@$przvI&UHFL=v@W@|YdyMSeA$uj_N1>`&SS0b{VwkPt%|Ck^hzBDLW?{2X;` z!R0o`{T#-$LysG|)Towssax6BtS8+4TwM?$T`zUvF@Wwlzh{Y|SmkCe3B{{FH$0Sh>qC zxk+k}M0g8{Z{^@%4UObupKLiQ0+9C`j_xb0hFz&LP<&U7QWW!?%EgGWt{$<{WE$?~ zyveNR)yt;4h1Al;iA)1p)lw0#C%Po_Vm_rRtBhWu524}768rR&Q?hbtOW<^3%f>_q z!vt#CM+@p)iPH$`T13D-`Sg{oo1zcRiKaPH?`9Ka)v+cyt5lNhiU=c(^<)y+iKd?X zh9lRpCOhMC?DQ2XN~s^j^b}@HkoYMCw$l)bXI)}GrP>5@i6xY=rY|ZcBaKr@DU->j zowBB)_UA#IBy(el1}%AWi6G<2CTdk0lw^R1{VHk88@}76KJH&++&2nt{)~UUxWRI* zoH>n-^Rnxrj=*>1z+>BI@1@u(a}H_P{ywW^KE7Fw%j<_v#j;DHYErQ?HS0QUnEy8V z#_cV1LD2KU{x&Gbu=~1uI#dT)Pw}#TO#u@VE0vgL`w)90ZdI4LO<7%@=|++HLAu`u zZI>NA7&_Llt}D85w#Go`D05k`bq@V^XWXgqqK+nvMb=!rSBzK>l%2@{8bOtStmL`Y zwb5dGibQ}FUKx%Dnf`%8I(F!EUT_pa(nC{Y8MTriVB5EW=aGbwO``+*m|<$c_+~yd z$xQ6Vc@LF$8(5nF;H70W43V1~9Fvs-NOaoQ7&fS@tqR?Y;X-KUGC+YESKvv$BX^e% zzzDGqts9+K*J+Z&`WYe_JyE!AXWoQzvcwlc z7f%ipv`}z?zFaUy{l7!9dKn@;tJpHt_^@Q*a&alBP-|@JDz-i8HdVQ{Ctb}4arw5+ zI(!{id)Wv1YN+8fOrq_ki^MhMrVNog1t!{+Rn~}e_~RK3<|;{Sj_QTfUeO;HmrE?p zL_lH=t&?*=A|NZ67RkO6b$Bd&e30NO`iHCjygGbV2EUt$0Q$nN1}w^Yj5KhyGq4BT zzDq>j%-b&)67zvLMY4LH7bZA0|oI4#$c$s}T;NJgR?pc_&V{p>==38Y6wgW=k`(0XPnE5)S@t zgC+0Xm#w9rjetci&2tq_Cy#$p2{M!#`e`Q>kjp;I%etoiIQ}r^)tAJAc)YydUi=F? zNqj_4irra%Y5&ieE5HFIQGo}^_HppFEJtl|D@0xl1!NA)ctKDE^YOWnku*?#pj2vU zRybP%sKXXCc0G8cn%r(+e*2M_5Q^J$LXDK!{S^nF6{xe2&C&e{$ER6{F*tJ`#UlEM zQKBX*^uPK%0$5@RA(4_DEbgI;kP-2Tvq`P>5SJQ)uhoBGMEseuPLm3fVa&b&ZwaT; z;2=MBz7fmD6*%y+9`;L@Y}txrVq%TZaJC3FcKKc-_`!pT*9o;L1|@^7H$xe3dntIuJkkT`4Y2`7zk@$+h1d3H&V{=T0eJexTjxr*@J-;8|ljLpXZk!bHs?>Chm&YGi#n$k#}_Ek2K9H zS-C&IrCyYbpiAMDo6=^YW8+gZ;&;CpSGN_;;pWlR?>FHUh+hpGG9P^F&O;D|`YtM( zQK+k`X#V6&Qy8ex2-qZmX^bP28Vt$PV<1T81@r2S@d*nTH6mHWFKJj1h)G<9@x`>f zRamPpI8q+9P|CS(=g`}0N&v_oErj>#>xGfjj`4qr8m3Nn>e?D zGX))}BbX>K)!`#bo-qYBipD~VaRP(IatQpn(J1qC&GQ`E+t$j-HLz z_-Q|S|3Y+n-cLh|6s!svN^f4wmTx!znf}Gm*{ZqJipDHEdr-RJ{$n7KP2wbkHd==B zN+N5kZ?YMc{9|Xr#rH9ECF#&FlAkX%UXWmEYC}tr5HX?sex)`nuuA=;?>@kHa~|G8 znH3<%SJ)zoT`jc(;iE+2jHo%Kb+aO28*H+nidd`y!hhwNDbJ$^_Qa?xsZ^?v&8fQg zJyyEO(?Ry`^x3v0@-r>*5Ki|OOWe5H2&G`}#Uw#&jQkZh1obradQ+qBR==%UD5;xP zr^R_87fp%1Zs>wwx|htY9Hc0}J4=$PjYNA=9mv6au+BPj9gi0EF8N@Pog3)frTyO~ z0}VUa@|=v@r@_`dE8n4X$J_e)i1$0W>igUJ%b@go{#!P5{wdHQ)n-o@w!%jJCb7vgK$dE%Oa z#kFVjCYjF$&lcy-Ig~9luJ013rx4D~i#pEwGw6F6d*xL}DsXAk=^VEe-KMv(8m{w| zGjBL-nI+ zj3>?<^(UGxjAYcC6s8q}bzAglsmqs|g6kBt{-}v5*9dXPYN(5k#9tLG)>F8rArrps z?0afoY~;3|;(7Blv^sEzw&y^S+TdvI8$8_WWOtZURDg{A+!=zK|ciWv7BBc@;^QG&Cfep;AtF? zMTh?E<1Ss<6yD}J%d$8O-e(!#be2$&mK>pBkcg8Ig0wYWJR@_F znh^RuBHh+10`2t1r94S%upFqagJzg^hLAqW4tbm>(avKz4rm2Z@!R~3EeT*G)nF1l zvc3YwN`>9r66*s*icUuG_{rfTS}nZsuC1N|J~FKc5Ic!nGLM7Vq?(&E_(j!TwzC;{ zPDR**74OP}>w+kRp))or{URzo5-Ky&6mTE@NEN`wsARo7&-{6Jwe+YZ-m*aypZNf$ z-ZiEk9OlQ4e7}m}2l5>O;DZf;C6&Bto$pwO9D=yo1OS~nyL_>Dbz~i^8=@Ba)Aj(`|Zf#_YvK;Gi zcfYAe9zbC$i;?>rh|4bvm*e{!NR!C@`~l30un^#8B6c#}t^}!Fl1WoL^-<3oavCW_ z8!&m?3^GWP!|s0a0tl$yjUcUXZ*e;ICnm2>4QfhqDZbfeR%bCse^b`dQiI2uXah#p z*$v9Qy1_kIu+^6mEJGsL*NMM$Oa4RxMTVKiS!urDvXJJ*m&I`CzAee2QJs-8km0Fm zhP+Y-MeuO-@Z_gO@CT%M7|<^S8lj;OY=BlOa{hi{10<3s28F1fBDK!$2~ktjnoG82 zM-l{^sid-y>LcjH(y1HZrW{uCv$VhlP$~n3Q@j*I4&(7Wd5V08ckuV!lv6=+Zq7Az zKMVB`&Ei}&Sq9+FLdX83u&9UXF7!T;+6VfxNK!oVP4@XYW0^Q=cEH%#L``{BAYDzvfh#i%qF5{iBglfv;-8qpL>+*TUt;w95JM?-JjWnykcox) zG34c%Xv*A?Ll>+kgQZM2bf}j)O0KmETXM|lA5EKRAR4B+aQ+4!X+f;@Q>uqf3QdP? zux|7%Ib&ALq+Yb$`aE(e`g9!~ZnK9N-=g$@>Z}TQlkJC6`)#SFi-bDH!A?5Ck2nB} z%NrWTBUQ+ev;`z#a^_F4H%qdLktt!6s*Fcv*{7jA{4tiCW}ljv-@-75Eg(8F<Ra^CMc%c%;p^d1ePcPl+_{^rEf(upzS|W28NKVB zxube}W&1iCLNIzmiAG@i+Q<-t_AQBz#rm0h@D5D%~(}vVHm7!STW$J zgXtYO!0nB$cTFiyb>+YOVjQe(B84_o+-7|Ugr0VU{#~<_R)1_8t&QStxLc4UB*LRN z-cNrD#`qEWekt2m4OJ20`SBy+`O#6>YnSJrI_$OE7SBRWaW9XwAoQ)?pG`(4MF~&Y z2RBG<8;woz8*8b$W%}CIak{AKZtG1n`3OP6=Z1mkvt`FEJOT;RuNh>ObyxuISB?1; zVo`Cy0=gvhy3%y3j2emQXSwqr792Q*0IB31k503`ec36p;c`Q!i;H28+j)Z`*l zoM69j)W~dYVAJzQ76sN(*BK7k=%ulW>qGj=0uWGg_QQ2x7nKvLL+k|hk@4$e5?qrH zt^t?zYojAEjX=1N|8xWjaxTA@sA1tFQ*XFygQhxo9xS;(t z2MTI=x^^kmSckp(GDn*e^+tkoHpIg-uM(^Xe_^`BDhm+m^&YhG_l6A7CIAw`Pgjt{ z5#Ya54UzbV;Jh_Y%a00QBF=bJPT^lvG;ZnoUfU+sTpay^N?Wo(!lRO8)&hFDkjt-lOs zpFqMg1=e7h&NB7+9DXDFrP#OLR$f2#X&Kgbjd;Ao@2eeK@Z8UN=i`2gz{@M2P(^V_ zWY9!RBNA}R4nm{zk#@B!*3t*uG!R!sm?m=Uqou3B#3M_*&&+UwtIcfLT0lz=@pB0- zGUKyZk*z(`nWnxZgi+RuX2Q%Q_M|x!xyaIAwLF}J-L0i#3!X&8#C&s@1x>ltU66Iq zdprPfaRq?Yp(!ojH!#VmpiEHGc-p$~)3o$p55{4qfUa3|%k%*S;L1+H36jzq%7+yG%zdAL#x(ifMi?ifMn>#*PI3eihkN_?DK&>}XNm`pLUN zWG(jcc29$GS|gM0s54FNzmDD&+H4+pANQoYG>=D4D)o}OBFP47#1ZFmvy7f7@IMdq zNx4XO@W^7nfy;5DEGZN<9IPxcHy*gh;p;3>1;7)P6K8;D6MOX)v==N%JmfKVYl*~P zEV-k4a7aIj2GKT@Qe_`OG39~0uwI~g+h7;~mz=2Vc21q^j@U(}$6cZY$LM=Ka&k~0 zFAp)(my4~xnc%pUP z(cK`j0%~^S^|au~1>Iad?d$rb zRNcjjcqvv-lAk~#qH1**x5qAzom}58g%k!eidMC zw|`YG_JQjY^CHvNEBa$}wXX-P?JlV{{(yyneP561#V$V~~2xUPqrb#hFA^3KEGd(dP?R(QOXxF89+ZtF^U8iPzSSLup|WtL2(l&tK|4g35R%zV~A?)R{LE|YR0}- zl@#47gl>}@e-SjUEotUgMHFRAf+`_P$gfgW^L_$yu6fJo$G;9)wIP<3!%Tod&W}bSZmzChiS#m5ZkU(7K z2-Ep+66_j2(js5)o;aIC3=(K#L;3GTv`i6_lt7FT?URM&a8d;g zYkO0z(3B@hVU^P80xpklf>pQ8C6Hd2zO?0R6)N<6d- zsC?KKR0UJDkSK!ECTvmIxouyg6qfGAZ<&Z_bt|Ai(WJPFSc5DMEQEaCT9X8oH?CI> zB-ww73dH;Q*(ofFK0P-jJO=1JfP&x9tWKYi%z1v)IbPp zP*9fL!%WXH-{`W(iA~T3%pqZgD4<0|6Bt$skeU0p+DbN%fWuDB0kUM)O-D0eP41oS z%0Cwz8-l(|xad5(5)-qpc$C5-F0dsDY8ljdPJtI(eb&5f)E;q#rav_7kYFqDmF|h7 z<7HiJv3A!Wmn%Kl5#E#sh7U;gvP@pnDb9ho0u)vAW7Y+I?zOJnp)xyt1O6qSd~>vC zJp~I~wqTbl8{HuQOm#r0KY9(nB@Ce{dpY<*7zfoHAwGq(E!4rj$7B|S5XFPQZv?YB zxh${)a0<|a*Yh)(IqW1aDYS|LBOJ2%-kp6VIA*STY;o|!XgRU15kig;$QX^=QKB`xF~0}UV%1t=nxiDu*{FOVZLJ51cKiXITI9~1VrNW zr8*erp`fcgLn70avx@*C3iqP?FPuqcOU$<*ehBFuZ}|Ha2_QHDBUm_#iUUj^W5bmwf%|@5rjx^NVT)hH%*<*4)FIZ~-K#@8z?hP8RDOlr z_4>1?!2xG8nG*0F-YUAP!(8lz$f$}I<7#+)6C;yk?NS6+B<%F%C_|D8&wA`ebJQP^ zrWp^Bcln#zAhEKi80x{&NX$&GMZIl9+Zwz?l|PA`qzo{-J>{d$pb3`y5lrniz4jxWbn69od zjewH9t;bdt&fu|2Kc+b}Us2QM1i$g!>XSQm#q!`Rfiz*MED;L4YFcH50H&8PSoDH$ z@?5=IT56KBbEO=6xJGY4dhBSm$UM#uY}!-f$v|zN$OG@{@MgsU!EfDEv{Lb}F2`J3 zNOEeW)qVr&7Rc#GGc>btRX1@YSbC0|_g(2)Z*7NQu4dF5-w{IP?Fn~L*cuWS-+^B0 zcRZK(e(>~da{-B30ZKiePzB?%p@K(YsVOLbJI#Ws!A?jv5~!tNzl0W&CNn}uCkGrd zuyQHYoASwIqCpszfWZX{(H|Tm|8qiPI%481C{E@gy841WTOKR~)DJZ9f^lI@MXT6-s zYqP>SB$Ei6uQJ|tpn=a2^P{Z?v+Nd^i(L9L?LalP6*hIl7(nWH8VrPq+vK)o)AY-; zoz(}_>+Ob*n`lewK+!aA1SXp6)Q}Tx<{6NqDzG&mC%BW}?WOM-d&r-qI+p09{9HZd zdDHAh#w(y3ZGIAn@8y0O5@K{Stne`H@{JY4iM`b)KY-jGy8so%=~vd&%mer z5v`pM{577lCJAATTWezz>z!=`42{G^5H>P1&d3UN37^E`vxGhds|nhx*$my$&xvBk z_~iLCJ~utWgMMOMT<4&GVWEuR0dr#&oA0x1ULez&$$51GwjA1g&Ynubmsr}?!7w2* z74>xKr-YdCZ9qQL`cIhm-u`?dojPE%>dcUS2+&7T&@GyD z!A{TlFD~}lxP5*_;|!~Y&%VyadP}!{S|I`jUw)?6cn+T0-H!jra!@V-wtNBnH42;R zdVCzSvm!I$~q3C>nQ&bn^SRj1^?LkK`N9c~R(8cG?Z%@#N5 z3`fwliDjI2ee^tazR}s?R`p&5XLG0s?H;4(SB;Q;r2!dikbYI*I^u;^rGoH@@cF8; zojyH(vHqvczAVK1D(?f)#n@@xKR@#(@8JXeZhmgu%{cktIXW->Y3ydJYSr!Bf*Zdr zU~iwroSE;{pVV@dD(2(%xp7$p8U@=;lp*x+2@y&L{X7Z%eFJ7zNYNzJU#F=^xeUFJ~(ekWm`y)zfl& z8QQXW8G0gwZZb#U09dGmc>Z2S8L_CvcpW(gwO4;Re9JAg@j6K>+ZEeleTR!<{SZ1& zQt3T|-ZM`J1UnSC=@A#$;Hr{`)5u9S$O!vv<1)tFr8#mUuk4^h-oyB1g2+neW&E1& zHZRq&?b%4uTHl4W*W1G@2m2O@@GkW)*E@zI1;Zn4;p1m^M;D#42YG8jB1ImWQkZ4 zGBv*nDW=LJ9@QzV)vp7``m?YS(AJC^0kNEx{N%|RS2G9D>XrCx`;3>n_GOJS7Ci6Bf}t?dL9Sus_RFcW)9^MV(4OTFqF{F?!?V9<9lGCb+)kqysrr!I~yo zVR$(l!=S`T^RRio#aP7FFLPGe$5^`C?#=7=w}kGo8e#G*_J(A6o6=r{=!2uQUU%n+bA1!Y<%=?k$KLc z{mpKCHz#XsuGwOcoD(ODAj)3(x2U)4b;p zKo62&dc>RC(nQ_m@yEkg)ou0(fk<5==86S1B*Cfl`smFOnO{fQM zqwDsBLnH{!!rS!cSNL%H_jZ`KoOijKyz4F z>U=taLd2@sW8iTnQ2hzCqDbR~d}2p(qc?P z=YinHw{KWUJ@crRvoxpqeWcACy5v6YvNa!PX*}D;+U6e;mhW*yXL_mJ?3q@^udr*d zM|43eRH>!ohFW7$+q;XgxbL?=ez0xPT=tlV@~SCSoJsleM4{e-h$f+ItrUPwz?|l+ zlk3H1wI^zkWFD++Gkp4M0Y07=XBfc@OahW)p-@ba(~&LuQ_Tx=q!HkYd6LV7BO;O4 zi;@D@oAspD#t3xyLxoao=2FC}`yw;V0VBB0po|O@c>t3fQm}yT_7!@m;KvqzAfWW+ zNr_k$-*DgH8diywt`?v%bjx`FF>;zTh7W?^uB+^7>rywTg_&z>6MPXlt}lSyQ}|H@ zk4SRBy=-%B7@KSBTM(0=L69@cV;h*bvWlVkKx#e@M=gUuO_AhIbq<4TwcMD$xlWu_ z;*$XtYav(w&rB9n^5DkHl-kZ*fq%sxGwAmuT>tnzBVs&-fw^$6T}qMI1ofcZ+% zP(h0)MnjJAEy{i+^&niZ^BEI_$CYgX?@;OW`Mqri^O*JC6AJBS1W|gX zW#kNbkJPqvJgHFr%`ENbJw`5`p-fhBkKB4+>0b;>Aea5KSNmGM(NTctOZLC{W_s~u zBZgX(Z1K9ioAj~sfNGyQVB~m}z~}EWG0G2V$eG@jYmfU3LUf_J67~KWr#Lqlo9J@a z)X#mt7x|Aap4p9%?EmVz#21gc!Ee;BclxTL8#u8yHxGTio$w`z3=#- zlFPp)A_(T1Sg@=BWpE7yFyB7`yeO2vlg487;cBm6HlPLW?6D3k9)3H$Ley(-ev=tQ zd7mN@9sdi8@%(UfS(A*N^eoiVS2%)zJ3CGFv9{Xk)rz0!xI-_!xy3!%jD)=UzR%)W zKg;4dKlk!t!u>otN-O{V*njr^Hpn%eTpFHr@W_kYJs;{mnm%lWRI?qj%mBgmLpQsV z1f7$w8Xxsi=2NTsSA0{*coIs>=QA3yp)a`2{FOC|;}cCg!Wt-6XL)^d7*8!JW|>Ri z-ZS%ahrc9_%yh~~t9rXxNS#m42_AAXKEDUTeY)J;*D|cW*^A%!ooTc>hDhtxYEck8 zU6%|u5O>IsFJS^6FdD?v$M*v#A}~i!f?OMkLHtYpdXAr}w#p#RUb;7+wD5c|Wd0{K zz1QJIfRgoAX~er#4J)g#WIbCngzfQk$tqJlvv_@(10ik880K@NK-Mkp!VIAjPyiFv ze=O7V63#4e$KG^`JJ>ojwNnE2)K&IF!s0FUUESeJfSY z)!Su-*&Yy2D3oJTDt&KK73G}pT zc)>-yJiSram~yCcWwFB;5FW}_d-fg+>J16D{2noDPY!;3=9P|GD}?d@wFs5UzkkVB zR+fqub}Q%pB|(CAG_xn!R4!S2Wh%`CuQnY6ddIKK7^^0dn_Xt-V3TjN+L--QM(EY# z%IiKey0qk7&^0--!d1}5#Znh_9d{Lq845nL4#VyZELjDUv>-sIkBk-XXC|1Y61Xgw zP^YgJ=!FIoLmq-K!3a`U1rNlEyRBD}S%m8i0&2^EK*^s9>uQOcn$6=Zptfi^p$RHg zYZaz#FwX>9^`vUu-nhg+`Y3%H04oPaJ2FV5l}BeHSk*Z5C611&^!uwFUIuyxRvcR! zeu)6`ZH>Iug736P-^(Q?zW5iOS$^lRZ;Z{)g5eEl2#d^1pw@Z((|+>OP|^>t2^TaW zO7SVqdI`}{Kl@Em0|dYp8b=D+%=~$`muRdKk8V?kO*~|5v`V{>nraAe{M(Fu)2QL` zS8=)=$HRQr(yFR|5IC(X@NRREOHUizZ6dkQy0*9X`q{CC=S!lqy6-<2PiC%kB5~?C zni?H&;xvrVE9PP79z=;s+1dc;fIc{*nZv$?={H6D1(k;T@Uiwx=Ub1@nWsFX{vUBU z#)wYPBxp4zN}rH5tx70BCCPC=G@6Z(#5T~RsPP42atr`{Nz%|xiaaCfvRnC0zUYK= z(4Q=%QLVOe$NRo1l9Mpe@q1rT@WV8!goTq=aOlm_rUM)H& zv7Mc;Ljo~)+R*~5+mU&O#6kF$Wdgv-nn5|DiduoPapDeK@(i@L=7o6oiG9f&c`YwK zDumho!f;|<#57#utesA0%i1xgMoXZL!G6nf>KVdiRxXpEb+&O-2bHL7JOj7;Rb77a zeuT$nAvYrIpjA*0<`|kErjdW-?-g~<2ophyPN0G#(;Es7jGc{{<^REwjmI2wCvNlR3SNSx z&GG-0)$8*^YeD-4z|;GsPl9P;^YPX-mNbGU6SrtnPFHSKsYpCX76vnn$+O(qEcf}U zym+1>ee0D~Uj9sUHe;TTW z&ID)o%BAPT`y(x*opoD4CE<$I#gD0Oe(Kx({o4BLWr?gE9C=sTgS*@5lT+IB;IlFB z%L^bM68Zbt+pjww)^;+9RSYayzOX;jgyeIJKgcZuEYB+pQvmBQdV0_`? z%F?UE4}A@fU$<@Og`iob;Rxdo+XwI}`0U2}Q~RC{ThZG>~~#C>5bL#MX%1 z=%+mNITqZg1S*B-_bRju5@W-pmO%NjVSN=O#@aXDGnUdMQ02>@8^=zyy3vO6V+U_R zV(j46!~n>H^(9QA8S>EQSa4%q=b_KBb|!kifx6a{h& zt4t3xstf!Vl>Ga=*Q-g2BAbKCZliB|r=V;GDk!(hUtl3ATgbGKlr`jlA#Ynqis3oT zRt;;Y8B!S2%o?DDU9^zWSk^*HW2Y>nLE0@xEF^#(vyi+8FAoeSX7*$)q&PfhAt`If zwvdXfA%R)**84IZdvMi($qv;L{seQ=U?!l#3 zMSXbh`;}o|$JI714PTA82pAf<&%y$Gdz6{Ufds8tcm=4>g0)4<5L zgZwPv{*TI1bbLXS>s3+%i;gQAxR(%fXVM$DU!hP?=h)aF!<6rfLQ}2BhN%YA2WF2l zS%5}jql+0-0LpagdIJOB2#8daj2)=86RpA2;Yv;=~ zKeE2!zyDkHALs0#d5|CMw9UH^UI@YNy&KeU0~{tf+Xw?jqHl&UxAoU+G|l5H2tJN} z4;d_PW8J^cj|G@I6DPkDrm-~LcKBkUedT+9$r??Ja7pu2#uvI)UnR^_E~9`-{e+ULn$s-ZAHJdkZ zM`Zm3M%3E!(Qy^-L)<{k*pRXORMR+sv$kh!i0!I_ zSsR9FOdus6nNLEa7{aD;nOU7Njj4PNOAkzAJIuyD1O(qwkZGG1+qDIuD+i-luE+p( z+SJY4#I{dajI|A5cikqg=dV?6AM&#M)V-SSx=nnW^A-s|l!)PQ%)Q7XD}~OW%pDMc zlEX(JG3Pdgk#DEcNme%seqQn&LfNZ7YnO2fhq{77%1SMLY)LUYXKzmDdoAysn0|K z8YSVSLRBKvFvz*44igD61`?)YL0}n#e=q}0H5yxzoI(}DV?Oucz3Jz9d>Hk9CXSbD z`bE%3Dd#~9L3^i#JWwuTBCWgkHav0PS>5}Dw1xn)rVGKz ze);Rf*nrXx8OeHW^E8kU!$wvEjBoTxKze1|cqV&~?5rtxx-O^TZkKdtIgkLkz$A&~ z&6Rtpvgx#?vU&#ERaz?mkz1-^IT+%V>Wt(0ToDDTP?StJMbQE#V|dD{fP4b0vkoY} zC6SAH(6?%gIvHl<pB*&B)FTY*i3Nl_C_Ujq9CjM#|H#~);t~W3hMJZzW z{%d;Lx$=GeCFq)~sdj+*JCILkXbBFdq9bX*_`M3PGtq){B&Ive2j9Ip+XNYdm>Ca>o| zz9WIUK|!@gYe#dIfCD;ZZ?XjqPAA1>kVC3N!6R+<0Zy7`hQ0SO6JUCuSG9SKR`**B zzkN(~-+sNBfBfo-uXEatpZMn+jGuTPcyTmr7vuMj^7)4q^Z3EBc|5cET9)}vJ|7@Z ze%Am6HFYCcS#!Np5T+F+W>S!N=fSIYwjnWg(sMPbsgDvZ8O{ud{3-6HHE$yyN(V|1 zA;4>-!6ZUsu@Wq~-~;7~B@jMPJF`uMPfni2P){`qD(8{vpVZDwTpTs|AIxA_nM?P{ z7p674WjM_jR1(MnQJ1S`FcfiB<(bB$1%<+Ki4ff}8%8C+N_#q5OX)mW!Ix^EavC-;3kP|zpg)?-|WDimYl3#iFlbQoM0BV?34mY{7(4quIbj6Jf>KRC5 z$neQpg$}q5J}f6gk>5hPI3hi340uiW*XJB8%00s^W$v|!S;fBA>%`HbykK`S+4rg0 zy2m(u7jhvla(b%w`AJVNMS<5txO`uw3Y9xlsu1DZN)?J&wIugbr3ytH+`XEi6<|_K zCODNVs5K}pRj4sFyqcj|vi^5BL+ktKhPY<>BmGIId#u!Es?VB4r)2N%Fo~WZdk>gIWwI9t z*=L$WioKa8QPI^AlgJ34J;@|0!j70kMh)FBHHnn=amXY(rBr+$lW6!#Df(;^I`2KY zpPZ>~6lax&JhPeV@oENC3S9_TWT@sJt{_uAijj1tx<`BoWSb+7O?{nCC$Kxxirh~M zA}>x*kgDFa3Th|)T)MGT_WJQubqa02av)V*rO4m}8?XmK#*Ro0@{@Q$lBzxq7R1En z9jWT|{tHtr5gL&Q;Nc=Kot1t(Ro#hMl=ldNuM zrc($R9^5}D!3@O2o9si*V2?`Xxx^1T|p(e?R7=Y29H?SJzm!| z@9xJs_zzh+*f0falcj?_@b&xKR-}VHerNrL){As7`1=QaoMRJH(60G}lSwINq6=fm znOrcLZzIOqxqnWl^oX%hzbJsjSUd46XOd{k#YC#od@h&>R+7&J6TxJ8UlK_tf+a3! zK37TNSbAXikUYW%9!&&G+*Yeut+~CqATgZIAT4LbcopKZ7c+7RM+66eid} z@JyQ{Y`zxQxy~}1gMA%u9DEiM9x%J7kt4pY7Kn|KHb=Db0Lcg~Zh)jhX{u7TS{^WM z8-E-&m__*nxN#ES4ok1+lRt)a{CT8UaZ1l}0Jp6pL$< z_2Cs^Z24Tu-RH0eFnuHVIrdbY^qv?}BP2u8e4@t8c?tSMVn`}p z)ih5H1tr{6nzkZiSHh2rVOCuxu?vGN)?Cwk@3K{Au`BKRKDuqm}nO+aokgpghXqA@8*jI{%(4)TAe<%C0`Bg}H-FlE747(*=y zzQP#lq2OyehMGXA$6taa7uD07X-I;s{@i97bGu(YC)p41KZer69*_&R5an1Dd_?th zZX?=CMcYg`%p8V7EV;|p-5d`1S*^QI>D1nvQK<|XBS*;T$Ui^q#gjXOlI}}pBKEL?dySsIvNweDnTVArOw&4`zp->Wo`D~YetK)D{bl?Kk3l#$9)gh{P8 zT^gtq>0>%~acN+(qR)N5(!estKT#|AT0W1=o>;SQWS4{M`8;anmN#&c*pu>khNge7 zAJTE0ete2`6tbzSAJnGjm16x$v3{jktL=GPM$hkU(<4FmBQknq^3ETgVqM&(=TFY) zk;{8DFwqSA<*Oe8ywP2VRg%xWB~)3Gk^@7Phf;Frz(inDBk53O;^LQuDkW0A`XOu= zgd>pjh5EL$aOHa%HU~=7Gp-cxl_m=^R1`0Dz!PnFokh?nScxEV03)(EG|1Zm*0p*R z1&bmMPLs5dD9XkI^J;|!`vjG^OxJyiQhX)H{rL%e4(YOC_R_mv-}dV>_!2pNe{hOBREtlixPR*mzV5-6 z9_(bi<-ACx^-zV8CY^)yIGnqL!-pdAo&JJ~1ubt5MOA-aVmA5NS$<3I+1jE%pJZ>x-Kfm{jzqXu;Aq&^5>aykFL9A7J4%{{5p0(D*96=5+Razio+=)^OYY=xl~We#7t0 zW;pG({WG%}9?U0nEcz=>cToIasyzoim{Mm;doa}j0a9b6dXvh~WBpVh%KhEJ@KA-+ zpz_+1{7J0=X&f-OajF$Gcr@0F5202DfLg$%br~zNDAH#s1VpE*`3Vd>Y|{C#PQOgZgFoV1cS9rdH zZ8{ZUmB`1ktt`XvO5X^64m}vSr6A-}N`6KskJ`pDDdk^>WlG=S$%@!t6yxepP~=q+ z%U|?W5i4(fN=0m3_Sa#Vi5S;+tcdMN-@0E@5ldoWf#<^*7x2IT{)*V4`%@}nk;R6t zeqD?ES4C`X$GE;xi~Ffo(3KchFe?9oidegKlzV=R>taQ0WC__ASHjYACu3X^bU&gZ zRu&<=4jp2Y{OWO!R18vz@T!P)_Xd%)d*c6D}E8{5(jcP_;4TKOb0ix8)fxUolwOaol-ttwW=3-%f!V&) zB1{fHm0F`TCgV!|P$e>R(5)!#=ZdqYWVj-4hh0VgLJ{tdt0unWEoG1x8(+5o5@Tnr zC)-eNEZA^3-krM99Gmh**^ux>B~n^6#JB|&{V9m)mJ-cCOkHU-Adga#+g&8WQmn0EpRuUQP`3OJy8b zz|&!xbzSTecCRKjwbZO% zO>AVCEBp^44P`h7p|2_n85_iE-3h7X~eGU7?U*H%H3kQghY zW=SYNRz}wxjKU>vJTX?s@Ep&Z05_JnJ=q#v8yl>h5-2~`HrmA4l(C2cI53f=8S)Ud zvYlpUNr+qM+r@IoCh)_9=|33#>>ro@62EquJ-b{Cs>2$6sPu5TWEtgtbvWGaa_-lN z%}G^x;pn97jP6V5(pd-)TkP(=8{$vy?-@{{b#$LXnqxwxpQYZrl$SqI{RDaT;+6Q( zR7w(v;8Zw3%}*2nUK}%?pQQg!)uSNpTHP7q<0U*q6Tw&Cg8=p8NuGA+d0;EL&d1uD>;|=Mn0~rPv zqe942q5L3xL*+abhM!55TZw-A0OhSJf?pnh+z7F&`Q0IpRw7@;VGTS@LuZE` zmjT^+DitDual>W1J}u1W&vkFQPhr0GuX?`m<#;|-($vaWUrAF7Bs9d`S!QZovA%GY zZ6@d#EQ(_5OT|AASYIUu8C#>Y*p&5!+|&RqgKo5-Qe%}1 zUhH3RV=$_ad@hY~6LrsCK|4)`3j&1mOUiOn>Kcu$^~Bgv_0L<`jZP zL~K%(C?^hA^mRmQY2_?1SItb^gr`P1bd1&YN%nhC?W!Nd!HAd*IiW#BDn+GA#WC!Y zu?I99IbqNabGeAa1il?vQm#CsIos+&2?Pg}^h$*P6G44_sqaSGJHm&Ow1RM>7+E%oAYE_DoT}6#tw98lWC-Ns1^g`q2}fzN^NfVp z1i}_IHpCVVga@GCwE=_*_(tBzDp8jX?myehnyx+kmYMN>BAJ%INXP9UleN>s(ps-n zkfX8y%wt3PD4*>ylW~w(R|E*b7=#Swg!%9G4}MY!{T;yP$v|Ka;0x0a%o@=nDMy zN_TTO9`3Mfy$F-T4_--OLp5x*8^pGws#mCHe#PHf4mTG0M(26R}=pblVJ-zBpGFnvkn9e4O?NA{)__hpY`5S`;RC zX6U?B$4wh84(MnO>TTP+=1m@3=M!T=GLfBMB*vB{6P?H##yQ8S1_`rRqa7;|2-dcOgY=407U}1lNJ_g@GrettNE-92(_skRM%crv?1v@;kaNJm_P1 z%=ju8ANNjE`?%=8F8;@Vd26fx`c_x}=dIgc_P>24iaiZmWnuR?r3YM$dE>ZpHsaL zUGXV=*Hn|BTO@+Z_?|=Yz=MiI7GuRDUwypvPPbD-_(}XxlHXm3xBDl4;k%@hc$lA- z(EsB{_x=9BBRx+|pp&U3bTvg)?{OK|7Ur(N_Z~V`C8P{d%1HYPj z!rxBd`+l5y!r$Ue>m^y2DA%Te&U4JQnFczaV+aaQ6aB8^_`V+>_{P#!Jj$18iW&z44nIWU*L9wR;Ub+gZN z-w+d`uLE)P4Us#29VWeRANM~Bw}++h%{uqpu0SYU{9n zuj2cD_cfv0Hs~!YzTL9oP1x6-=v^zmukTfS-|wF2Z!5mjiLVL$w{6(hz9IDA24Qv? z-}gJmyFe$tA$+n8%F~L+eRl%i_ch1EvF|G$`Ecvw`U*U(V?*Tf1K;=WHM|e|-8Y0k zw0&G(froW$34dsZuz#=O`+k>rSYL*ZaUF>sPLzzx_`csI9@d@VQ(VWE@W~T+*w+Hz z<+#Md`Z9cu`;q8}XYgIWD#E*(t}nyGezfr@N4lt|mEjGg2Zob%BzPP5Fg zm*8F8k59q_{}(t}_b7iKN*h^6hLe4I2@m{V;DjEEa6%6Scu(ns;e<|#@Ldlq#R=aa z_(180;bgx*1rPFt;UlFVhLin%2`6%-0G|x{nT+*4iq8f;*m$6aj_9Snj_dd&Jn$2N z2Y$lvCa&X?@W4+59{7pC13g^C1D!CujdXGm4}3}BK@Smlpeu%VkqQxZ6)Hyg)v=nc9$iW_##1BZO_ zfkS?H0*7*ZFzlUSFz9(O=*Pw}U0JwcrwpS(KgV%QZ#ItU(84E!f7&>d*TZDcr(vhW zyu`~mrbEL{Ie}w3oG~4aHKxM^4*6;Vhx~Rl?4Z%GQxZ6&!vqfLa5U_c!?&X41m{xSYPKkHT! zWm*5@zr59`oaCV-@^TXLvmYEMX&aXxHv;SIgX1LY;OgT>r5sH+}_bTYMpo)uO zrzuwP3d&3a1WuP=U6lf=j^+Ywn(#r;{CwpA#?b*%9c*y7Z2Hy#ir*&t7Z`=5y22E- zNdYC=3+(r_;6lVyq2w0Z+zSwS|RYqQT)!wg^DNf zID+5#xKMB;9!K!AY;z{g>_B|~e9)!>p#b@V_0wo~ZWt~RMvq!J%{DdWiW>Rhc9!JV zWP3GuXov3Ir@IR9PFLanaGPvSt*ecz^_U-dG#Ei7Bc&gyTW{%3QgJms`k&MNi;ee5*~)M(>XkujUKdOg z!dYo8mMDSHdDlz~AzcdwN+lJsf3VVep>@j`KHd7SQvKI`ySRWdZ!-oq>KpS2A6W7W zaXEgDqTJV^q?;*Q48KpeTZ>EgVo3ftg5UYLP!KF0NANoz7fN}>;|PA^;~JEa^TF|x ziZUq)UK0j4hw(qO)3^(61Bw#20XcO;V~#i-Zd8;@wk(x3S`{WgC7H1ha6p6XS_M%p zQ1xX7y>qc92TnKu=Q4q_OoSFFkAkL9G=OTtI|nb&D5p~p6Ri3iIRptWOjImKslFMV zfYC7ltmkl1yEmak1|k6Jglbe*83!l&N&TGa#3od}a3jzH6=bQ4C&q&30*HQZM1jg@ zLt<<}U%0%wsM>(#ont8nrGkXIC`EtHIB`HvU95JBwk;wJk7&_t+yCPYbbg12M=4vR zGLAY`W?tU%D?7{@w0=PNisu0W*f*_&8cUP9I0{J0FLNNj_w;^nH(;VZe;xK*MA;)FDmpgX6Sk z3$2;8@GkabIMmLP6-0*|y}J(MTGFR%Q8q4B&MJExAy6BbFp+|J$wkcuuU>}rT$P46 zhJcOjNdL~@6%X@)FfxNj8gQ|p42UUleUyppa$}aN!6&;wgR?M3i?kAojqw(G+GzaRJsp8S0BzwD5vm4_F}m2aj0d$ z2gh%G9IRCT;P{=7Lj?mL97jr{X9XQmX{0z+4rzg~g`ZX$J*ld=tTalt{S2j1YKX^_ zM%%@cKOo=-D2=q{{W&H8h!>~A&ule8X!CXxK^U)1<*aK`9p-0M-?z19KVsD z_OZbydmP2@d>pD*{^0nXkDFk|F~e_s9IUqd;5ZUayy`UyCyG-cM5_cX{IqbQC8jTS zR)1G^R=S#`uy$ZaikO2h9SQ{?E3Q$Jv~9(_RDcVFluo2MS@~^^j%)_AX_hv*7#obK zSqBlKd5Ue|SyB^$I_MOsYk?XL24#>}1*a7cwZ>R3dLyT2vAh<**o?1Eje3Q`v0aPC zDinMSfW#trNpuiuCo~phK{lF0P{SM~@Bvm=%ay3igV)km4fYQuT?-NtoY}T70RM(* zVheC){sF2TET;e9_?_Cw1S^CXe&gd{Y3~Qe?|fVjt0EYF=i^Yp-v`H$YR3ylqiRQS zs=`gAp|*veR_$mt=1a9RpdX{!jnjRqT_Ukfej{hyVd6WXBI%G5l@~BHb)w+Gu5JJU zEb-iwLKqdZVujGw5l=1Wk&W~m+BBNvBXhE(a z{Sczk4?+JX%GE=8nn>4YdWr?b>8WD$cL<(O4YyAJ?6&?14Nl4D%9`j7@dFB+X}gKg z82ID!^v~df9^&Z_PwRStn}gl>xOlb>|2lf+&Yh171;XNS9QFO#Dy0OeEwkg_01T!hT_y$a53D$_humSE5&$X8MdoFO}7G zf1;PmWp!mUy*fFu?mK3B-JBQyjWWG(RS3xRQfXZWGQEncLTdejwf>A6es8TOrqT_fkEPT0)FUNebUtS@f(}kvdWRb{~uTN z*DO*rOwU?c7?M#n7DwM9N8BsC_VdGQS+4#HuZfpF6<%w!TdFv`COwz#TzD-Va{D8~ zYd_6qjrB_0?rDen`bg2og&yVNapWMc8z0xqF^ohX*N}5%?|fVcRB@{=;^(cpcna{# zs(V>=FRSi%T6Nn3zO1_XkF@IOJS+5!RTm{cx9S>l96iIwc>Fc{9fBXV>h>Jo_#0nV z-Lx%e_uhSdDn*I%Ogh|YERMd(s`L9JfFZV6;jcIxfFzs1Q7#ry5EvJzCzb?wEx=bS zRnbv_HSIHitRC^O_+sD}eyS20dmITht&RKRMm4PtMf3b|5x@6w!`?$%JTBn(KCazc zYH=kr;^&pnIvj2KcPOEzTKZB#>pxWqjnnl~LSIVgpQD7<;rKSLghqUk_|~C)k-ro0 zV@l}e`d{TpI6{1tBVJDqMTu@1rW9e+)qBH930WT|qAz2oN6LqcS&oGFgn?j7=&hrZ7GcJt zo@pe{r<#0bBl#oY7sdU2>>6%om30T*BN=Iu0VKApFukuhPh43afVA-@DD}W2*MEjD zOYSY!2(Wnoc}*D1%+wlWqi954e5U2miPf=>VvsDF{W62;IgzD%$}@2wjt#O7+&lL{b71=T-4({T6mOm&K2 z+7kRu({?>HWc#~#+z^%IJ0BMgJQR;>V_xiykDKQAc3t9`8}0-@ZMd%o(rl#hGTeWR z;hrpOxyNvSYS-zP;r@BC{6&U4P>8YNZd>W640qd>7lylBy6?rJA4B6;O6AS8ZdroYm#DZk{2PNFWYLn(zo+QWVWX zBx$5lu2uYsRf9^)P0JBpmHFcj>jIEs$kmy{x(1KNPPMvG>E!nv)}@3Dbmi1FdhU*b zxpdfx#2f_*cF@?4Pod^-L{s)R%GQIMtFA4G8_GZeKjE}4+f5?Is*q|1it~Taq!+Uf zBxtcv^;2S*00f*K4!UQ66Ni4U?E`Yqc|?s}Er@SEtxF@o-%3F31k^~^f`OXb%cX`Z zt+glZ{^QdvU5E&g;gE{ey2>R^AY8O{%2jG2d|={2uJw=gflNJB&!U$g;`e$9La$iy zxPagKxN+WF#PG*O{NBg)dvJ;SKq7w72Qq9V=d1NB^DP15>v(P@`ziX>H>O_6C}cw+ zERI-i)m;yChyi)*0Cm5!LyR5Ih2o37Ob8{N?hsRMYK;ToHpHZg_#*Lb=puh7;71en zww$2#H#TPXm8iFsO)-~UK!4Y1ZwUrp=(5YFfd4HnyYFyN+!I}PiS{%vm)*-{_XAvZ zB#qjS-L49KDJr{zEaD5rS%W&7j!p6FJyuvRlC1#vgDY4a4<-@0L{z2s?`Jsr{ew!v<2Uvb)OxBUq(9A2JUgW)c|SK@_~|TA%xnp zI*dtVKf$EUzNBq^GxBJ-CA2RY`ZKiKL(4BY`P}l}ZoA$((ffF2av$RCXQ@qo7(Mf1 z%TMPe4+hu|5!_~wgK~Bjpta`O&>}s4 zdq1$IX9Ye${rzBhhI5>Y&c+WbO0 z>`JLj4y#cPC|so&ODtkvoWLkM0cZwl1~e8t1i0zZTSMo4u@eHMJ?2s-L2hNSufo=c zQ&454h^8PAe?h$8lm>iYLPSUe8a*W!zr#yg#sJ%ppx%dS`%_XX?TaI!YATN?7?PxW zC1x0=Y^DWq$QvYh--RNuhj7^D`sCc0k3$!b+DxL%4Llu%C>aRM)n`IO@yNx;<@(`mds6S$ZOs={>vBX#2V#^zD5$F-Wn)3IdO^Rr&=$M>9BucG^zS72 z)J6sVVWWqm$1Obm&QXCkG`k~bJrHa=HRAGNMRe9wem+I1$P2R$LDpJ4e1^t&(Y?%k zS}+w|mW`w+tq-SRT$@IHk+gS&w-Z@Gi7ROtrLUCTRGH1TiZE#zHIih~Savv_7~m*z z&=Z`3*n{o-mK0=$R|}vcW4jiOEeM-BE0TK1fsbwPG99PTJTaA{n-s@FE0P<3jBD)FtYa_a<)GfaAG45+r!J0XWF*wI*S0^_bEdh0wCVBD1yZ;ejEI3ED3 zXoWJnwViB?E*ra*cHWuW1j@C>cCtZ7eEAMU;30-%@CbG^=9<9xD$`rjn1?>B@SWF{ zop_qrZ5x^}JMt|UwTQ0rSq#Z&1M6Dw?I3Z&QM)znPojC@BaOUN`CuV~ zOC{i^AWkubE_jFi=ngnL3@jTzI1qj)v*;VAP3gc`)E_ETs=bql$0O~ow z$&0uH;$Z`BxMe-u_~gMmfCd`RAoO*mikqP%s$3Awx(i=W0=zk)c`s$R;0f+?w^pp_~j z2yXe)TfLNc2&+WGV7wKH6opmUbj3p^MAS7R=G7YoD@>XY{h)6h)lLqWG$AIn6)6^l z`9xnn%KZuG`x8(l$Z%S?IR$f5=Z7wDKr}CJXk#W&)y$|AlafPUQMyL?zenUI-3%K& zeH;-z#geN~7|O4Y61trVFv%$guzK9x8%c$tk*MO1n1=$)Hg(fjjoF)OYn8?hbNVjy zP3wo<$hz!}2To(;mPJlJ2i$=UBtJNuIpILsMP4gO3Y-$X0I_^@`iJ7}wq=pv?M%N< zXS{c;Y>4*qZ9s$cy zQ0P36mc9x?IT)BC?+znpG6kDLD8&)vI%d-5j>$@vSa3yFy7G8uhs@wy{wETK1G0aT zk`al;V^*|cvW)p>r6u&kfo`2?t4B!7R_-qXsql!9maSv}1WHTGfPy##6rfC6N|Xvv zrRoZ48DywZno|OlDe? z(dmk1wmmaFJZ3Q^V$BlrQcFgmSv6Wn&4UFo6&M!$DUKlIWk8i@1VRmbZc<))Aan3p zdI(c8)E2izGW3*VUC7IVY!M1E=^;@EGtWVa`Z0Mq#W4Ix`et9SEi*=@gqW-Z)+kgq z*jPKCC#~k#8qp+Q!hy~NhLe-$9zc+uzA`0I?(e|9ktkf^FMxobKw~Ng@J}y%<8>`U zuSCcit=OxrDC}>QxO$*eBhx`2suQ=h3URQj1STs+UJN{%30&G2Sq-u)L&N&)AaDEl%Z#N*?qi-a-=hc8%Kx z2ROXQl0RnMr!iu@;DBs8MvnY$4tVI&SoP17qi)G78TCqs>f$UkK$mdkLGcDrU136n z9IonfO0i0Wr4J??$>EfZr|q)nmQYq=RS;>9m=UN)G5v&hOAbf3D(e_w$6}yH<`PPB zLW4#*#oS2;5@HREZ6pPkrte7~U!0s7(Ep6wqlH<0&Wy*Q6pXlB*-XEKZUte;6y)`} z1NHJi>Ptu%GG$dII7?4OY#~(ajIbdw*7jOB=*V!Tb^6#r7v_1=3!<1fmXE-^PeDh5 zQbVo37kcAT-MrY?kkGDn9*i85vD(YM7_sBv(N=s9r@>JsBuh)2uHqBk(PW$L;L%3n z6^KFrVd<7|U*{a!ru&*8uzsne451+6B2AifyeWZHq`#xynHr&!qd~IoOr#<` z?TOtR{*EwWKBBT2R7pl&PIkA{Z7g}?JP8txAX^)9BGb18z9D%ne`4Y`$<28hiFTJ= zHo4~}))7CsR_WmQ9 zPH=cpNs=?ml!|V3hpL2tAiNghb&bZ;Xj+d*KGLc#V!Wm+`K8!X&jZWeBr2D^F` zw5fBOja+w0g*lG}ecx?%J{YKis4>t@CV)*|Fj?b`-m8fZQ;f7vpgmH*cz}>X22?jt z;h9h0YlJt-S!woRCnQt!r3)(4^a+(s-~0vX5Xrz=ghL+w&JRbwX=qf zIcbo3S#^e}-G>BP9MXXT!7_;1lpwg2f&_6V$A*o83d74##|6CB#S}Fz0&`103ACK$PO< z0LN)C`W`bh7@tf@P(8$%-DMC7raS8}5=^Jdf^=q-^s61PISQ0~7gJ!OVxtZ}c8mh& z=ym=X-8&Q}*G>86490>|x!A2b3EF7>aXDWa-I{Jm#&Q+Wtx8xsP&37&SmEi*8)D!K z^CoUit%WH`0OYa8R_YS4lvqMShqe`Uccu*4HnN0oN=@JKGGxRLHl#)+DP>j2g-KiH zMRmOjS$g`ae~<}R28ks*QH3l~3`u9F=>i2EKRoze?VX0+G7K59qJxR>?ojz?HqeD` zRmzpqB#DEh87LQ78l-xmAu;xuwaI-$&Yhd~6GxvCuVqcu_lYyWj_C5S0u7*~*h_Pg z>+#yY@$`tmn-vR}GrO{#P7d@1`<jH+JXHd%|d!s z-0=n{f0}B6)q^tCqOie9k;Y)E7PiKaS1qI-@mp1kLUp4ulVC2Y772CZ?@}#7)LEYB zXbwK>pGguKh}E-s`ydCUMlwxqT$d^dwxrxs{CkV z)Ia5EV~LKU+)ZK++Be=ccB;|XpfV*Pszx2+$zp6-iwR^9WhxzHSXPX!YyRiu7{_kA znEUeAoT-D1eN%MrUes-E+qQjb8^8M0wrv}ywr$(CZQG}IPutu7y-#~hq(Kil1N)zWr?SkGGI zGfRr>>$R*dRElq!Jy!kc+^lQH@kMq#%8<#6golrxr!TE;Eh_%#K`~mq6Alb9m$Y(D z0obbTyvYb>U9%>WQon5)O^#JM#Gq7xh>|m}kxV=nNx11+8YYY-Cn}2(D(azzhJ=qjFEQxJ{Jq)ZIp?QO9$+ zIniKVY&ss?A>Uh9&b;;__F8`7e0H4(&!-MnYkHh%`x<{0Y}>ca#Cfl}qIv}PETT_pvRlLqwTR#h{{bv%HiQ@bZ+a^-Lq z7&*Tf`KAD8#aGVA(Ghj?ATYY5QdXc2gGf3#fUE!nLcB$WVJ@!k=+N1 zPqI3c(?i5Z9Sj4<*E~~fBaK~?joddc@6_zr>VJMx!q`fsy3i)a&?ZDVUPSp-L*s9h z^33#N9ixkBjm*{Mpv{9v|OP z#>V)PS!kQhSzS0Stx!r1$tiD$FWuqU?C|+~EaQT%jQA)}XhDcjs+oNx!}(-5CK4HP zgYGdZ4enc`A)5<{#39 z>yN>-@1{K|h+o_6whIL7jZKxFt&_)Lt8->*Mev%9ZV8H^%RObsbZ#w*uU9LV!lkb5 z1K}0N&4>BWH#%SA`~*+c3%W;KWnzRL-7*sGZ<=YRed=_eV|{bCVn-JPBkYq97(>$c z%0PQX2D>p;fYI2vN1@pvPJY)gUkIwOG=pJ$!tzKf-y>)6yiu~WIVhHsY zxoYTd2!1zIMgpT5L;96j)0gRxZwzQrUlR0}R8X@-Onn9kr~!42iL6bJ`hm35KjMZh zg7Oz2mDU)Q&n07lF%+3qi;fT$jo+%A_MXHQG7F zYwP=v?=$3eDAT`_yQPNJ`!%{dEcS09IAc%@I4pXIKl$??oa7=m3p>U$r=Qe%a!t2C z=ep%%^{hwbV|vA$1PC~}e3B* zUjgmZq|Mp($~ka^X5Cp4pP4%!jzMS+Xp~t+1XTF7pzasJhirlqf3qC2I)WLKy#Sz` z%l91TJ_k9AKqvSmrF^BzHX`8dbM|!D1nK*F3_M|-I4pDPV`f)F?D^O{ z)b+`-yH#HvAKy<$J!=1h2Gg(qtp*bZ3kTQ#uffzk8B-*Pgx_&ft8YWCB?t_zr$3(X zBf|9MA8$QbK>ucYebY&xV#*6Jh5%pI;Tx<YMoOQA?eA(YF zlb2h=Ds?&ob0w_VgXLJk$%J6)db8H_u=ET;yX5BdE<2tsT@|Y@M|UC%V`Mb`((iq8 zC&ZF@k=lXuUpF$X`v?Z?O?TFP+_Jr#t6)-ul{TLZ@D5(i4;|V2(0soZzm+GD5s|F#IN3O=&yG%em_S>QHm`7OTbPucupwW7jq&~bYPSm_&`o( z&Rq{p#-xG37D4fOZf4G-yOiW&p>kz?j4uKuc^ox|^Ls6*P84$}d2^&=$UyhW@)hFb1({%^W5p@jbJgq9Ce$)v<*V-2AFkpJ`laI%I0V_aErC zV}BXGr)UN9B}8BaI5C6K5rF44n&{52MMjk3$Y^nORC6#@Y2Y(3n#k4jnd`60 z)68q@_dga6o*PZ})Y3)d#rIQG(nXNRRsadqI-*PrxKbsi>_~~T zs-%A<_KzNkcN@U1lJX|@i&p<2DQ<$P<^Z|4lPtx&yOlSp%79Dcu_i++PtLQ2SsWaw zrfmwc-I5LKXNayofZ40}!J=MEFBK#{&Yy#D3jM`bHKo*}jc;?AHp`(Ml%f_< zuDuVSEH0Mo_FOHv+c`|vgVP4g2rEICoz6V)F7%18ArEBy++V^T89Vb}!WAd61iDOl z7ea&;sjjK1J_;6sq_+L!nz3?jNFl^dZ$nK<8^hS@!Wm-Oa;^p}78ub_ZXF>%To=B* z;=E%lAL;{HWpM@!cd!o>{PeD^^vt2cfo8oa6a{X2$EH4qDn4?M{POvzk;@=H@>&&C zBc|awBJK;~`~-sLy&_1pH3C?O%D2K7v`7i)-+zEuTT9;Y$FlMQ{pnOIBvKf{@n6%9 zM@@bMBYKV*iy%1TXu(~MASmN)xulbf`dj3HnEx091e1mW6tNqv+Xm@5tUgQ+Ea@He z9N`s>Z^g!uA*&Idq1d;1AFj!v#xNSo1>WZpsGw8$pLiB;ZQ`2prw8)#BHIqu=`%@v z>AOWM({w)?bjUKEQJ-nhep~ZBWl$YnTW ztZvyHBLV+RMlnX!v<8;J*qXQ^xRz)oxMPuot=SkR@?Z;DQ63Yz1uQ?dppzhJ?5IT3 zv+x?L5QCiwm?ki!tdE2F`X(ZsG`N~<$WJ0{S^n;Z*#|5)4pO>b*ysgHu_(_0Ru1hZ6>NQIY4!W3g@cv9rL_5T{B$Rp=A z#pnu)P*TfMCixNt14UiPS(sR$$pR80tvRKMG~!hpQy7g;$|-D0{Rqi3;$DFF_GH=0 zzx3}8(WI7pxTyUcl%y0L;G6kf6zoLoMc%*?UZiN!0WTl6ZbT+*|K;ocr5ZvLR8Wa5 z;5jF)aV%?Acg#!}^#ux028P2D6TCuIXd@sT+%i>j?e|$f)?9ajhSp>fymPeB_`)$% zl5uFy5i4t}i7d8;!-LIrZb_6T3X!X`2`r1JPYju^h)NVb|K?5PTJfKrr{o5MLCQm- zOVWoThSB3zt4Oz4VR&bFE5UB1c`7FIZ4)Z~c@RqZ=!V7yOBxMIaHHI`A3Blk(EeoY zjBk=}#@;7K|Ev%AxY@g7;hquSBw-Q_dp_Rg2%qCaJA5QR+#cc~s7vVysqUhN+e>ok>!MOCM>P0^rlqVT--}Wur>pL4C>%I*8}UppKql#g zb@`DecLHnuK@65FqJAgMrRa(5j|ZyJP@*k3wEjuEYwUzdspk)O zayf8AIo*sJ2;vk7f9Q?i+%-h|LUYhvH8Dqw*mfR|{w{?b>Xu>;H8`m_L5M-Iu@ouS zg#FzHuV||&MM@VZ%%YGR0Lw*?lw2v?`O_Zdcm;)jyk^KPW>_f7j7EM2W^I}~9{9lQ zL-7a8E6J$x1vAFcIplJD`-V0rE5{=4MYw-R5G4o7zb-Wu7@;r=DwvOl%O=|r?H#hWw_6JOzAvsogxi?56G_A zpV*|Bj*+Q}dN_i}$IeU&WmN25F=QJ`_3;TuacthxQD=^ER1G5%NxSx^8n=du`5Y_% zVjs@*LzO{x$D8LOb9OGk(H+!%QueHsMP%~L{SFAKvu_=NQt$0$%TghE8mnV4TWCT@bbo=ZUZ$5<)Ij7eHH zkg00j=&7Y_H~q)s?eBcrx)=pt3Mp-%a{@ERPlGnXo6qpik*ZEM`m_aAZ%owKfa(ut zOA0?>gzx!o!_Lu7g%&=hzZ&jX*XW&sOGy99yA8=z<{gFOP63}s$G`PD)vPHA7`lbx zEm0c*svV6pE}`HUWq1@YP2mdZXhPYfh8Uk}le+aRTCN|u^)NG?vr`PP#aW=mCr9?+ zVfcd|Zy+yv?P^ut-^&x-hKIkFV=#tHQ+i%3sD!VyW}cpakhJ6A`7mC4_YT z1x?0WEGWfu<;{5&>Ts4K2RTBVNSqy4Puu{ya)fFF5|Zr8$YsT}(s)R42(}69q)BYe zzh`U@{)mrwS(;1=J3vl{*9vLk!Z%0d(2y(%_F`C^7r~$qqr~1{}Sdt|Dvyet; z(bf<~W!rDh{b>Pc+!AJX68p5NI{viCxn-i7eM!1NV100j2cQURa7y_yzkgwuhNq}< zcYEqUxQ{4?U@cFKQDqCjDXU7m0@ce1v#y2?she($TS!vq zB6-KpO^c{@-u0M))hIsi4as63#PH6|QKD9Fb|A(-Dto|#CJ!miD%F|Y_+Z=mE5eNK zimo*#I@y||4=Eu%ZXKP`x#V;ZoC@`tIyLG|6MFj;A(4L)gDglYtR4&AD`))Ki%k+` zeFM{S`G6t~di$ZClep#jQUz*5xn;vQ7CDU+LQAv70 zt7eqS|52gdAjDTLZeYj~j`T!Vv7qfX8SqajQ(8Yk`=MT;nV|m8lP2BnD_f{hrj%w+ zn~GdjDyAHNMS)0KQ`OLAn@uu}d@V*E^cfRJ($B!GOJ5MuUN@8$3d0oxSM$>sfn)r% zU@gx0VoOt+ilm5->!*>RR*ImGerVCozCmlFiTM4KZmP>WYcLnHX!IFMLlQFr4Vhw$ zZQvO*6*Jr?DW3Kb7l4_=(jD;@YZ^*BjS#E4AwcQX0m08L$xrJ3%%^G-(HWnOixa9) z9u#v+s*;LA5h(sUbZE9n!+W9Sd1A2KS1lCt8kSBg!^NOU_^nX(X|Xnxf8H_9>A^k096Q z_Pw6pdavs~z;dFRQZ!(<|+EY#?OD&rx# zq2^i>*ErprztcWnD|+CL%wx;phdj`$Q9j}uXLbt9j`_>h2L>?Lx>`=FCHhq-bStOm z6EwC*^X~SS#ZQe6J|@5k)u|@JdVtfyP`pLfk-(T{G73t-=)eNJRV|Sg8s>h{tQ`W}ZCo z<&vI;$Ro%xDoBu=6oyfgk6KRw4$-~3C5~K&R`;C{hnHqfH4q<$7cYYr%Do2D{*Cq< zdA9q!SWwyQI-n())^l)j0$X$=hwr4^0q7twAf8e&H4fp_dwji6)_vU9vt+!%cHoL-VX z#`&Wru~R+!<8CyjL}#!2-KxBMTlbpjC8cb&JIsVU2d~C%G>jyHwB*tf&03$*03L3Q zKI6z|yY&;pz{Fs{Up!HNN1R7{%n^7+&F1JjjA>qf_^Qi2dvGsi(@QWM5LbiaeIgQk zQOS2Y%xcLdFsj*<_=}k2l?U;782S$HsrgCwz))QCw)FI$M|bzdKs&+C;X-L~_mtX5 z%jBvBMfnV5Z6R_6^tzl)pI-em=`G-@{71MrQ>G0lFG5KI` zG7in(f_Tj32X~6K!FK1I?LjZ&8zaD-CGhcQ&mwo$7;lcmS5_-kyQQd!crB5wsYsFN zT?J+jC&;t|`tZd0L5c%_2!mFJwyIwe*>-UgsId^nsU}J;<%IoN5q#S zSr2iP;A}2Z&oqv@gDDzaC`i>OoSQf4#1zcR>^-ECRf(Xko1_6uHjBN*x~JOI2!ZlI zlha=sDNr`-;@g&l|G9lE{3C@(t$uynVVE5p4q4^N6u@Vd-_O?pEdLE z!w@mP3*_Re#7zu@wHla%f018nMnrV-SR;#K5SawF8* zn$Lf!MS5t{$#R1(TkX!Z{!Luu(Qeg5L0u1sWK4d33*n^mU3p?pMaMv2dZ8z)c`od(h89ADO#0e(bcjFzQT6!vtO4q<$<~dm0Ry4rIj%6Cm|gZ zzx4=oju-Sg&uDIL{gl+6azB?@Gi^IAXht_I3YCiypH);sON1z^>?0}khs@!|G{$vK z9;DS&pb#7p3@mU2MS7~Dx7|b~K1p54qxO_>-rVElE&9EWVP*mWjz~K@j-XhP6OIAF zt*L;hcND=ZH~9lwko;XBQP|%X89`w20{95#Ru~unv%02ZI7Q2FB%5y)oj3o^HQYha>idRDB>ss61Rn<>aniv^cXe{^Bqw3t07WKl z9quEYf&c(Z718Z&MFfY@1Ws1S`&iY81a;AP zuQcp_f`Hk6`>o~bRsQ!7oT=;FEO3F@R&0g7%5@H3qv7=glmS0zJToVY*KPupsGa9v_;;Jfe z2~7a2&tC$mfyR~w9FB7&X^$wY!o(?mNC=%7OP8Kho~K+QQ6E z9}~uFV?IMuV*$xI7MMatkesa!qvfwfm@6gZbcyq4De~S*R&cp$39(oXL8`V zzjqjEVIX}jcmd6?A_z~K&H3Y$AJdW4=O&p3a!6te&;l_o$tYDkf$Wii99IY7-1Ws8 zP{Yih^t&#b*w92-0J=2860=^<{GrK^>ffY=kBZg)?GFQrpUS$X|-g z^!a+J>J#ey$Nmg0P45rCpZ|$tV7f`13@-v#M>EZ{MT^D~%(Df9U=!CAS%?EL&KNJP z479LF*a*!Mr0VRWMagWXLfAbo9)bx`q^_z!usVrZu?N;|R9bCfwRfXOy= zQ8{s!y8?VDl=3^qPOJP^0$d$=tm^1e48xKa*(dri7mfs}k6ciP4;?zlEqf2q#W1H4 zB+B>$mY=8o$SE^{w0~3gnj;&1axe(XP~Soz+eUM9HvjT=&Gc^X>(7D`J)x&tKy~wa zts&Nvg9wPtFYk%gb!SP4HcaW(^puDPLF$skG~9%&|5v1mC?ZRJ7G{6U6D$b}Tc`4e%!QDbh_fpL=!^g;M{4Z7$s z?wO+Y+7K)Q-H44FYh=)oD^n%Cc}R!WkaiNos@u>~r9aBS8RwvP1pWr5^h`@ZPm+!J z{kEJmHDmNrYW$4NvvMJd`}4}uQ!di08&{NBA}z{wn_W`WbaU;7N#r`M?EbEaUX%ItO)zLQY1RD+}8({oagp@vXug?x!gqW0Go*@k7Dvf-YN7mzd-8N=wcf>h< zo>ToHAmK}AZ^d`dEQq67dv`PKf@5`vMIECUOD@Ds0`yT4$qcv>rxkIL?Aw79OMkq@ z6mBW&!Q%pu>}fI_Dx}3>Nxp?jOEbL-U|PI2$hDy|{ZHVFse~XZzpgX~LJGjJWf9~_ zW<#oRcM1^k`yfL9W&g}PzI_*obpB?Dl?)M77roxtR#{pM0lA!3(f&1s1FGBudL7~t zyJPxZ#;hY4=JhV}0kl+V`ccJh;VBcA9TtrkGm9_}_er*{AuXE8S3-Rj?#;!@MJi77rFY;!tZG1(!Ggq(6 z1PdP~uK(J?k~H~yyz1owecenU1^pNrK?NmDM>9=audayk)A4&b8w)RO5mz2t5#T2G zX*qNg3$(&@p6r2TWq|fYY>&AMBZZb|%fyWI$EXoGOU}3x=7+Ni1Cs$ee$bVHiEm}G z7d@n5jK2i@h^#D4>aj|)U9G%FeX_tqGk^6poZuiBh`s*`Ns7d;&;@sVMzk16& zX3t~=yT&s*9L5*EzUxm}ZKm*IJ*cfa?@p&3)TDh(ynDgJk~`- zLObXsz2jJc!{g&@LO;aO7y{J`f2{3Gm&jQT#=~YoiKi3G1Ve%JXd9=adFsZ~G75AQ z^tS}B;XojW&mbVz%4$$@@dR^`@dt@TJz>+W*E>{HLu^i1%*8!cB`_&ni>+m`R@PPj z_SzS<=XxB}#b2412NY8C;sD%;I$#dE8yDQ%N;J`y6p0mY1zJ8hr6q&)n+ z!1451X;Is_9UbdtwErmmz>lj?j1Du_jolH`h)z1@)Q`H*2!K_p)Sy@54)w+1_NjnP6ld6&XAJTPrA!XH2k$C{kVS@^T5YRyf#?}H zy7exawP!@~3*k)(CNHG}iWxqWPgSP#2-tpEv~enYu2D+S?bajwoFijoJYXF)a<@2H zC4Tj?#dU5UG)Wvb+9dM1u-(52#vX3IOxNV#WkgDvBmkS|8KZt%u?fPgkI6ihd~)bxZ$psq29Fyfk!aRc><-qe*3jtgp}d zO4eV|W?1M2NUKjYcm2)Ptxn}DxsD3f75+XU68}CqDEgT19Zbi8>(zAg983zmR=Kru zJ{_SltFIka?oe*-%3FcH+-=d`vY5#5p~}XEhS|b)`{yg>TCx>y$5A)qtFc%7u7->8 z@1f8eVU0vAuJy$=11$hUmVwo7f+t}@{gFJ9Cyv|%OeoDLSn-~uNihQvsaMVX*}KHy zG)R{}>u7U+pKP%nvU{rEer|FH8QNTu;cL}RMvt}XC}dRQCbv#Jp);)Ar}b%ojs%W5#K0)Ou{Z-uN}eeU zx13$crXj|tRF|v%x==`<-612SK2D;&4zB=u@?YS$@}G@hDjedT^e@znm@rPLi5M5Ok)@j}GqDpo1RkKOFJf5bh!+qm89mf2K4N2#9n0|VKy>p@Sxk;F zd#Wji3ck+kFyE$vi}QYM_dvtDgcnRS=r+5F5vFf5=kE}a@gdwV|j@Dpoc;9 zc&y;@g1tC;Ug!Z!2X-$gQ_yfQfo3lnn63&_L<3dO@FPPET)`rLaf(|U!C+O0ZnLdNRFn1Cma|Zec~-Ah8kXD_x0C??fQf`&P9b9~c}lE}z|jri zrmtX?=OSKu*8$GlQg<8U?4+Y{SD>Ht^3`Yyp@7&p5G1&no(FY$)9b1-OWJSXe}BR( z%42KVH#iD7aXE)NAU>Z;MFY2#y!U3UF7QxA-|44PkI?i@*z#*PgQL z-eg1wD2sWhATJGYa92R(JjZG4CO$&OR3FkKo|lo-)fYzYVfPb$nEFc0;TXr@30;z! zPv<`gT`sJtc}RMJ<;3PSdl(X%!vmZltI^+S16M?R3iwKDW?wg=k%KfqigMb*>$B*R zAhPA70hJK_z;wm_m^ytLKNUWc-)bbv0??DPdlcbYqRtnQFa^oFa!jl$shNJ;E8%%* z1<2wcnFxh=hDHpR<;#p5L4R4a)7f;ZIJ10<<}x&6a#NV_ZK&++Prh-?u3Ih;X8!F> zAQ9z4(o&sBXRAXsv942Hmhz2LwGv6nRP`I*2?vUFo}Mp@;_Ve} zGz|;)l3X&2U`jP6|E2o*1|B_uB!2n=X;~Mrt;=-l=L7#dhZj9zSxyy;M4Ed{I#lNO z4aM9M`aOVD$O!%5BNEk$q487E*SoRou<`TyE96R0L*D@P15h~#`~Xzc*GIPd=iCn+ z7#bo@(mhDqA$R5f@-5_vpbSfpUUHhDQQx17Y%y2in#ydv?|!33qip3lJ8D@ZTWDC$NiYVlF9!RCnEuceNYz1nY(-s?APuMYSxYhnKu5NRt zGK4*ha&GMk8}&bOKkW8OP~JvW82tfoHQqFcQT7$FKl5ujdroKN2MwZM4Hs3qSkG&C zFmv%9&OtOTAia%Aicwn2Dnpj_P_~>oTO>dGvQ{t9OwVmy_5U%2ip|ct;mcVd%wSd> zdOkF2HH%94GnLt~=UGi@q@jNa-OVu6-kbW=l(*y=386afsX0>9k`taS8eM9xX!9!v zXP?42it>h}cWTpQI0qLwr58)mNAoCEfPMt!TShDQ2GP%khgZCF%>UelBOM^|PXH93 z-Kn@<;@@}p_aD^Q*Y8h%s?him)iVYlkt$z|PM{)zIoEF=A2r(Ofa?}W|0Uol?(sD7 zP(>cCl!k+xv|YnTZea?(dpw2FB{YmQE^Zpy8)q|#b2`!Rx4tYI?=4F5K!O4O7{sMc zq`?3}~Kn4Ub;kuU1JyTYOWDw!o zHv0=h>_6L>&x?PyFr=%$f>cdC+Z>?=D(^d!f1&uw_`Zk@(4mcc9lM$7^z8oKMbBy{ z?ftmDi8Mm|z9xLS0Ti*1w$$;p2^ru3C2esiNV0DJIM0|dREGF_O^Hrjzgp2I)+xS; zPZuY%=Oc%2SAJn@ea~#ECoXN(`$JB5w2t~yw#AcpPdY6-z5XC_KX6h$ zan*ZcNvlJc=-P|Rbq9=Z8j|C!JL5yB>*?Ksgu|^nWULw?ukI&a?5TsJZ^r25riyQ) z4dMYMNhiMQ?4?K}UBjP&x-+Pe-vL<&oC2ijmvk)|v&8ZP79duo>L_`1UKM{q&bO+p zeJuSY!nZhulBdBNzBEW$ZQ+so5QfOoCKp)yTnDf5!&7rXhoO#t_P?N|Dg52&?kxb- zZ9*W_yKpNpXAP*?o-@m#wyeZ|F>Q`i=ssSGATZt~;xe^onw|+;F6{!bKh>sD;jTn? z+Ylyr>MdjQx@ZFl^5}8c6nROR+MrAvgb4GaMos^czg1Kg*M`GEcoQ?pA&hwrLfZ;1 z2}5zIt<_H8%(oCCj~t z_+>`BZfNep%0-*j5s3!}OtC;^`yZ7ykU$c5hW5xnl8wCcYCe17*D$7=SPIJ^5#K9m zpZ-(^B?>^v%W}0zmkfU_g@nu2>4av138{9~A@)IC&|}Ig-;T}}FE#{UFUyuMnUK$v z-4T9IhG5?Oy>kmQ*r^>KK9-PA%{TIMB1=U(#y{@T-UnuQZ)R{tk`}&0c4{|dPuyUP zI5pN{s~*v`NK~z4SqC=2nv#94Un!;F5j4Y54y5ouLcuXBe8>vIu@_78v^-t@Q$LXu z<~;|bi(vf*4F98u><^1*z69Bky)as&0Qt8mU@L$2)=7&jePRxOyd+<$MgOBr(H$Uu zmUR6FYM-qPv{Y(YA8WPg3|8 z1|=CJCz1_1E^pzKD6mjQ7!fW$T{yKDc^@zSC|T%B#t;;?0kJM$Z7JboI?MsM!u@%?;bzK}B>>nil%4qrG$%eA^Hc(Kyi#8@1(-jKGXuFEO$rY} z*`QM8UkSaaOlTYly^cXWHza;qf+p6aew0#0zNl}wjee>%Kzl(B%*UShsRc?~KBOO7 zl@C@9tXAuKZ%mhKyS$`RYkDdsE%Bc&%md4;?5ci@A3RX=w;_FXfuG4GZfohE%e;(Q z^5D;E&(y!xck^5FcW1sPRy$LUxpGk^MKl8DICL)bmUuU=ZUxv*KmO@lCV!N%AxSbY z-^_!Q3-aa(BHornu0d0!^;PaA!btG#bhyjJwwhC1JxNa}(NW*!z+C5JFaZqE&~T)W z7U@rdeWz1a8s9|JmqM?iCGoNE*#4Q{QS375cxOLr}oIxL_a2#S6ns>ZOx# zWX-4_#X$ZB<}8dRufRa2$}EIxOyUn96tRbcERgL2c8CMkKvG$(7{*%?wEri9V#6G%r^e*u#r6S<9|5|! z!yDmmn$BhK-l>RPF;R)a%g(Ik5gLoNH0^?N*OH6;4PKbLkVk=nG|PHuP>zVzA7%uT ze`bXwqg#k}0SRje$ICYl%*=v=_IONWWbN$ighV>`g0tx=79RhlH6pITM#{9UhhT`9 zfR9_69=&YtIfxd?K!>~OaxrvV_g&38@^+rLW$%m%$BrC3^uru+pSCu2JU zmDR>-rb2W1lnmC%Mfz*^v7%uIRb34zWDcXJoXxdrIfA3$270~L9X>_*Y_r+%_v#{JsCmp3?lw?ODYFz#!e1-}^$k+Y4>vDmw0F83hAriJ$F_fE(=u%GB|Y5m_PFDky@)uRv1;=9*bq(F6{YsYRdq#`3fnnNIbK($j65KWWh^by{1pFr^8`?zMZcRQKo^(BDNxlm5-4s1@ zhA>An_M_gsf+A+Ow8(fUXdI8|k^$>jkoz4s|EU#QQtY0mu84(sbm+jwbZLIWMs-t8Zgy19cMK3&{vYI&|JNPKDo+pDz2-f}dUO_22z*1b*7(=p*j9 z(WDrP_TNP*3QZDY_qfZsr`)edpI27P1kRN?7l<+rfZ*{;oLA@U9*ekT!S(p&?alJc zHtjSM5N{(;LS_z2`MEv`lLK!N&|E1Ck%_+-8BVp&OME&jt#+8#;rH}sKBMbE@NlW}@W8RfAKDSkY8T&zSf1K!$}?Y!i&aKH zk!6gmc{GHY1mU9dtjnXud=F*iDS6X~I8~Hfd z2||At+!{JmiEcMtP%EMe)PzP5Zgd_*9$cYBPF*BNimi&M??C<7{dkD`86nc=DL^bn zH?6n!OGC?ZEr)OnpBt(t@4<{V$ER|vVbyfT^yk`+J4elI)3_G-R+F6L z$%Y(H(@{YhSK0f6BB!F_tT4$jpsBY5=A;2~x*^1npv%Y5UshM}u7T5wVxTw>p(!1T z644}zFG!&i^Ee|NioHb*9}9HyWl95>`VZ?C^|zRhW|sY!$l0Q7{tRT`lWFZk-wj4q zn>Ke++8#Pgkz8ksoiiRt9h|8-D2o-NvX;tE(~54QiE5SM55`C{kR&$&uO0`TGU{$k zr^P(QgysYFg9l{o$qw7+)mM~OgcCAem(v*TS>KQ0y$Cg{K?xI*pf&*eS^&dSePAkw z?kEQ#120z$ZH+;y4E|sqdpJL(;8ltB=lma4M7~z^^!15xBfD59c#Cr5dH>16#lS5U zf^H+9hab>mC#S+@x1b$Vn#zehUFydM)+x-JiIucsSB9?iDRQV`z`FhlWw}M&HNx_% zIVeWWPuU5QUKwa)m=Z$(JDx1ejBMF=;ZlvmjR{RH&}kYUZlZPw%d~CqXRTy)J(qhS z>ebYW*x7E!WN*v=VOn0UYkpnw6QRR1OK|NnQ2{|eDoInbt26m4v3KC8%fcr#G#E7g z7|c?DqTjgcEDw;MPzN%=cyIsyL{YCP^0Q%|r31|eag02fc2mY~wCb{{<6Wo0Xd)>)e8-U%)B&UMZU@@kh`z~ZU> zGGnP;E=rE}h_-awT{j-}{%#hE?ajGoQSf(8lKmUgz9e+2JV7ZHc5g2`xi&@1*D>|} zdRKxUIk|SvL-VuPD(}|(?h^i5IL(RjTqKwyKUmtz-7LzOSSw@wAI9*@YNEJp2fjUc z2tf=;%P}Sp?D%0?sH4U#k3>O$dc2^xcH_Nqpb!yH`$^qIw}ZhqQh>H|loJ>W5xh0X zda`#1Wxzi&EshXa0!b?nxKJ9X7eOpjAJ$i58yG z^sTfSOzm+I1F@bQ>vJHY663vy(v`p=b^8Jybhj|??memfO8bEv@hoVsW3(O^$}29` zPgmKsM2kM0eNesly41-|t=ziP@tH=H=akFf)t@A`NZ`I@MRXk(UgJc*!TSt~+3!k5 zRadTWNx$I{(zvy1hP?bseL4bZCC1);$7;+NUK(XMS(Yjc(NS8I7)_9ioWSE3kZ=Lt zsT^eG$;LeHxc!xzT`F3BGyG@Z$=^VV>xx#pbIcnl6XXM>B5P_^ThFG3ll18Al}AaA z%LgHAy4C`o{Af_?b4p?gjk5^LeXu!EsmSK3as#pHR8SNHalz<~IIN$QcZ76@5g$;n zK=6qB?B%0rs-u33*l3qD%O1{QmnEEh=qSZrZw*u|bp#Ga=%}DL$R8!}KK0~5qwPZz zDwscCj=}2gbOki+HFyM8#UrF~1;IHmu~OmZ9&u@Df6}_icvJqQnG71CO^l9O-f@qO z{-S1w>Sp{)fOcraTyO2;Z9SLDHm0XGH5C&}%#AZLsz5beu2f`R&n{PYVB|oPip&b) zgY?5v6*i3AIJj2@HMjAm!;t}^86L$mU>rnq&77~%SO2+Gq#A&CWTbw_Tz+v%$;PMb z*%_spv4~Fiu!&WUlX!>91pq z8T{(q9kmB9gqF+Ctq8#`mhN002gvSTA&W$ z?#+qDA;_BL_v6KXn!83&Dqn03uOH`TYScx4{G$>2bv1LHZKf5G#j_^ObyKL#^|J=S zrhJO_6>Ac+)pKO5AeZn;r5esZfRS9YhQJ^I1V&l9d*$jd@J*b`T=V^OMS!3UMI$*_ zT}pqE^17^Q2o*d26@;kXnFV_>MpndaPW1Xk9mud!juxV2J+=e@YRvt|@{eIIR&VC- zYP|UABK_xT*`NriXI>uxk0^(|H%1q5w^;tKC|-kEK**8@m9X^&EDNIA5I4(UAVoH9 z7F|iZIZ(ZPWDe&F1{$91)f^X-kO#d$(z#UrS|cOvSW+E;Uc+GRSS!MmX*|$t(QWGOKSu>K1NwtZN1h$FGb-HAF0SLnY5pg^a@= zs4`UUpkC^8)v}!RpA;J#}NLG=t-FXG10T%*=o}!Fjo9TZdq*iuN8d zL7)98@6-S!wy5$KnfR!MUvqB;F!0PU4-!#O!WKZu7$0~cUvJcMR4noc3JG%^Sy#lL zb38^Lg{ZKjTNO+)r~efa8tJKr4kXyuvNr~ZdOU^_3W>T!7DTiG-vAug5VQZUq<>U1 z_k1XbDbs+EKQF+=pf>`D84HdP*zo9AFF7#Funx)34~?N&)&}Hg>78z0PNo&DzjFm?_>nnlYNF59+k z+qTUv+qP}nw*Ts~ZQHiH+=<_Ofc!IKdHfwS))QlSQ5pTh4z2qSo0mOq^0NiBs`*$aC-40*)9HBhFz&SB&h2~~IgcTj0*ZKkOV`Cn+wj=?EMD<=qgk6OpxS_&=liAy4|7(DToF>Trw<7l1)r`^cMh|tHxAd;$6a)5w+ZJ-$e!Z}3mP}UL7IIJ{3u;*XskKptKb8oXN6ByD zoiCCedO1y-q2J30qzJZP*h0mYUhQwC5U2cAg}jEobqc)*BsGm?$Iq6HKuy1M#rzVnw&E_uPSEE)&MhO0__Fj8;5b?u ziNkkDLwc6=&SHPD4+G_~I`gw+(vvB}i7$-gYd#A6JnD(R3stgzbW`$Iydw4CSYEUT z&UI)ve1ce~4GFi#R@>JlT^|15Wq&5O-Os2s;1gzsf(jhgv{4`$BxH^)?_V@=giLTZ z9^xQO9FsH#4!wa{(@O%F6>U=ni^fqsN`9{VuogL-3({#6sEVyqdP-B7FybJ4u|_V% zV8^`Y<`P`X7s?vy2!)#-NwoasI#G1n4vH2~gE##?U>dAU^j(LRlh<=ZaB!M;{l6%jNd8TP zsR!hb1DoAuNHBxBk_d%pRG3ZSW!`H~`R3)z+{E{?FQyr+Ac}QHV~0s+p32e`(12+p zU&v@x+@4#I=)?G|Nofj{-20K}ccrN{uQW0*vR9wE8t>s;sA!#xQ~8oCs?${Y(kzxe z!uN46va?ecnc0+Hg{{PsEtVNTHn{sbmD=#^Is96`o(IRtske8@yC$@FHl~G{_yG>C`+*%_wmxsU^tgjChEm-yS(%U zEx4>&COBChp~cMYYyuQPzoCIwAaI-ahv*(;2BEI;mz<(toG-~FiAO=^l#?t6t5T@6Hh^@lmgSeuJmF>F91fPf zqWTcD#k7;}v@7bdo!1q)+~7Hma8HI)@p_6?*QhmZ(p1l!pG#pwCWl#iT&e{L$Jcbv zmdg&vD;NwZM!Q)wtBu#2d(`@M-=o2^BpgN%z54Fce#DI-TqF$Ft~RU%$bH% z&!=d>Ofd%d1ui#p2R+1OPdI{%MpruFTrH_xg#7y;6x_TN^jlu}_m_*`{y}grBy8oM zp&HlZKd9duU|#BlU(e1@_{`>1JTlLZnLJ4inj8x+8Bjc~R_QucfgTh20dye@Jpkxz zk1FY21#;56Zq-$eIQ*%OJi)(PpD%wd#>1^MUOLgBcIDEXet+?{40sGD2`(T#iK5)H zHXocO{Dahc89w+weEnSiUtd2LCp+8!_VxQs#b0$MpYZjG9Kni-B%5h}1cSg-3Twh& zf^y9JDLZ1!^H=TNxt5DVkZOR1H0LF_bVK5f$}FT)u@KmROJ5ph{C#Y=GW?uFJj?KK z%oh;o3*d>x&cg^rXc1Y;Xma>IoBH>6Z0eu)dmm%Shsj6cU$&WuwUfsBt8M&@r7K_W zf1c-myL$qjSo;3)qQ?m){d*1Qzw2${l_M0e|MYG-Y0)d_>TWKIs4wU%jR;>e^1Mqw zn&BUA^utf>*T+xI2LC);6kT%iyI~Y;>=pce=IIgqcJ@LGpIds{?Ca}1c;0mt=<(S8 z^yHzZnC(4#RQ>m!aN9T3aQN))8-PA_Vt%@I^zf}t#|wFN&%;p7ipteXpxxfk0*}zJ zMAn63G6aPKiqx0832TEjH+7bgC&2UYyjxIlaQdM4FR{Yn^$fg_xpJ2S(bo)q7nk&R zf39M|Oy1pVQ!)2%le>;+UWaSGT{C&YUEIGZoIT!U?T5_uMD5&1SIdS2%Q!~0PD?-n zFI&rk3{&B|9Dzro7v59Obf%=aey@vHeGL3Iy|a&trbt>Prm2%baQiM%41N-4yTTpV zGKN6HxACpu^!|QVEPtg&`1A(Uv@IHNV|wQ>D=ndCMET%1L`h`*TI%@Y2pgQZ{MR?9 zVDT$<7SdW#&klu0%Rm&iwkGp(52Lons3A;9*=bj(ZdA8yQcRT|?ALC1bs!l!gNpE*u5~>72c$$L0CKXF zROia@$O{PwaO`~aZ=QQ)Fc32kWq@sOF!1?T8yN_YM^JcPF8>ePrbK~@&8mex7A7FD z4j2J|F~UE;+HV=zSJSnT?Mq1eyM1uA5a^ad7u0ySp^1ILau5O8m-m4cE`H$KD5PZ3 z(G-d7=>i+?{=x%0w`}hEpm~JbFliuWUZ7lCYFrNXix1R%FLnaV)&<%iZW#O2A3Pf> z(*;|ij#T7{6DWmp9@(E!guCQ+Od#5-zcbw*83ClNXcWn}!+p?K(NE9cF~UX*4J^?T zmpw)xPgJ;`W>ATnqh~TUk2t2n1OOFIDm{q0Ho-eL-nZM$hh+X>3pDEPG)D}Nx`$||C$E^ z$zuslANbo*d3jKz38J{@Th5iM1wO}9ENLLQ!dat`y-sTL9DC)szOHqL!C5yJ2h?Ga z7+;%fvQC0?|2q06*v;{BhkVpfVGErRXSr(w9TW}DH_%#m_OeZvXk9NDV~3`u3eunr zUJS+p!!0=vejbw=s57gi33TZGYsFrvanir^QtG8S83-LH_K{hN3yy4x%R1T@w?3Kk zoUW2cSu+U`*bgVhEV8FGQHg+YCzICz%eZh1GDoj^53^_oqgcrDP<8LyFer+=aK>=t zI&JB@p9MyYT}w6 z&^k&#@VSO0xVRt8+Zn<{9JDxymr?HPa)j(gc|VK|k_$BcnjFll*1;oLC}USPh{_M+ zeWXQSr7|V(0aOj{SOM*qpHG1BX$SgW0RTljXCup;PeoAxQ1ZX%AI=!IMf<>tPq&O> zHc&OW6i2FF^+eL+Pp~9G4gu6tV~p@a4$B`Kc#U-ZqLdoq+l$lDX4Di}8O%`hK|sAw zziUORR{*hWxQgC+HJSLol&=b1CJuXKo_%X(i1XTdv5#RA<5AVN$+QXx^qOaPoqLsp zrwP!EqQ$C&n+cAeK9DGymRkdZNuyz90m8jWGYI;0Ne*%h9F{#?;Xw}i_kZFWxU*#5 zI)>L0jQHybxjqTP9sb-)+A+D}h0D46Ht=K?X7gmuXL5FnjCg)_To$?x_UYjBAwbTG zZg*5ykM`ZtRA-mL{lZkY+6hHGyG$O?7C>Z2QlV!cv~Y>S9>{tjA%`M|6T>$|BE}SSbF9$und!(QVsCc zXC&8vM77vkI)`NRiO_2q>>!Nsi@7D0+lcki(yNA5ZLXw+m`FNgvIaY6n`kDMz0xw= z;2T~^ERxmb$#`rSZZB5WdN1>h!6D4?UiZCxDU&==ik`{kss-3THYHDB8)9Myi(cPj z`%Gr#>{DS_3HwPZlWH2&Y!#7AM>0KU}#PsmYTR|FFXBjw+!68A-35TK0 zQT#P)bRB5_7bdZ111DlO(9eUS#fA06J#LO2WT&)A-E)Zu0bAYWQ$X# zK6QC=;yB%PHSOYyI!RtTBV42|hFb0nK$m|uMqT8fU42glhiJzqu58VwUL%3kgDFQ6RG`AWJvP;+YfV85iX=J;6P7M?qy>V#M}0!pn&XOcLtiJ4OoB{WS_Py+onX z25$M!sJv>qc<{=r41zwSO_l(7q-?Mq?l$xb_d1`|Jiw66Zr_8%1ocmnAz67>t1~_S z%13ym2HAz$ugTNNVx09rc=huXs5o5+i3{ZEz7P1V@YTnxYWzLW$@dmog#^!o2x9$DBFq|tiByB60SIbx zX8|##-Rc?NCMpReuc^8Pp!994c6yh`G>?@@OidY*GC|2~iYXSr^4 zo=8)-I^_N@LH|QbIWs7$*@`?Vr@9|wcpIapPz5qmF@b24uoVd0Beb7npf-<=UV?8IBw5&> zNn3a|;j6oFS@QB`K&I1p82GOo4@n5ZLdL{ha9`D(ykMZe!Y(;9ALp$fM;R&jE&7@@ zhZ?E*;Iiqqy_~Fv8K1<{sNz9tMLxrZHg#zksl(YHSF5ZRTEEaC*lz2k1FvWN>WaYK zn+l%p(CX%j&Y=`4cTW@;UOu2SjM|kWX(TVcs8D_at>QA+sRDvKOz-aQZQDHi?OkFc zWYuW-0J&MAw2s1XOqq~MDlD0hHQ`O;C6H*tB2Z7BU-~$$ZbC#L(EuxXa$GN{qZsa! z<9eA84z&~r{_#`@{x&4dr!!5s<-uq+Dw_!8!50v2Pf}wec^tN+W}{9*RO0pILMBU_ zuwpya#s%>?PO@4WlFUZWawck1`bQ2Z*nn|7q;ynd4J~GMwiZ=vF=E|T!f`bSTycSo zqPPNEWA4x!^nlxj+aTDR*z#hyk0Rx*bcJt2BK(JOfMIHU=zBY41u4WoiUGphAKm%= zw1mGQM{~T@z?=8BSTN(3XnP|g&3;k#YR8lZPQB(pD5j7`NtCoXs(=Ouqh>WCI$H(! zFWM&7?UN_HjnAdAPC>>6S!mn!l_(I)GnE=I7vNUg_+Xt1Yw0(|xrJ(@xG~Py>mS~3 zzH^Om{MAS|thB|!;8_h;cY6JhAHT$V*NVJ>28XRlSNr(yV)Cbv4V%jg-PPg>fy>Xw zAa<2bo*NuL%+!9#(H7NuiO#MyC>uugR~30}k=w9oU)odF!|?kr6#YU%ZG+^y*@lcd zTaJM<#!YvSBr)YP%A68P4TK=XaCB2=a{cmdvj^4{`OdT=n*5!CQbWm4ue;47-d1cA zBk_f$A_FR4d{K4GL4d9Kn@=bZ)MuP}-}^oc(i~x;xT8W$Cz8ei+3W{&ZHVh z4VC!{5vdfR$SlOB>eg^HKy$fmgv2;L{ECL5edt9AiZNwS!d(TWx`+=ztbKmMs`atW zq>G7?yNibM2xaYK$Go3Q>k+RzZ~|%~^gMw8B3f`P`)9)5Y~mP+w~-9rFRj3FkX`e^ zwu7kgt9u(7*c9v3fuNiToApE%IsGW3*vtLXg|UFE(W?`t`d%AFEv70OL7f@)-Knkv zLV{KAh``s^wbI4?Qk%>lfMl_YW9)gr;(f2c7vG6*h)Ou)h?|Dv7){2 z@ptRkshi9e%2qc_x|+BZ&rSB`@sR^kkBrgS&<|#C0#5xshJtwom^*Jr-}7t(%Adk$ z7|B!QT1IH}SA);Ed5}5S#D$=?;p?Zj?#I?f5{Wl8ypf+oCa(Om`CMpBa#!7x)NKm4 zX$D3Fd9e<}Bxh1ZeUGVdcu9oM(6ev~3I6W5`uit(ph85r8|tvPzLvXP)&XcaD~%J1 zH@1;mWk~5HZjh(t5yFU5bC(NIgk&B{Uxp$LR~-@lVWA?y<6+((A}BXFfSORY-%yp! z5L^dT7=3zHlQ&>y*5g34V%jJhyizc*tP(O+XfV;Kcw&9* zd_;;uOE#;Xa5m26rPJZ$Ir3xbsV-dsVgf7qpfocmWOfQDRD{BweYFF|DE=64O?+{V zgdU%TmxGLFfIQkXl7S~cuw!Ie*t-R4i{Cq83m}p~bQ&#?*a{@Tp4^X3o#%^s4(eIw zE!H?tn)DT;gDMKej{lm}^`m#sA%o9-^zMX&Un*DXLGL&4uFk;}Fr;eC1 zcC(Ly+U^NkKY@ekH&=@xR|SNZ?X&EDyAoEh5iGW~RD0`%PcOxHN5fA?+o6F}0P-aQ zWLMs1TQhG9%U?Ad%8_viV@JH=9#(qNPv84BZdIekDg62nzNxPMy6nvxcNnHoY}OojsH! zskhJne#)ASlr*Vc<;Kom^cB5JyRedEGU!iFU}wYD3`iL=+VUK<1t=H<$*`jmAr*w0 zc6GvpkI47_vpgl4m!Yad;<0D}k7}~!Bi3N2;0wqug!Jx28LsII+{AHqp^AtChCk$u z%eM{lVsd~#A1QrEUmqqZKQKobGejXJshz=_X=wlrDgU|L``w6?%lR47;^fA^Hs}jC z2|LnIw(;8hP}eh(05cJsihu;lQsrrTltqS5xI%XkoRmqy$V7uPp67P5(t)s!&rN76 zpdAsZBY+1*DJkBI1952tF(C-6fA_Xiw`Rxd`>yyzJu{jeaDq9mC^AkEEGV!%B<1!(VORsoT>=uGR}8FUiplq zNabW^I-)wZ3)P4C_y+8GCw&$;_#47lbO3Vlg=6o&r)!R%zOv6GJ*AKK7wU~`ClBfz zdFO01Ef*F)&n-*!5`*gz0DEGK*MB;u8`YoT!9+l^?u{Tk;C;cVscIUa&+RLrdgPbE z0!JbqNTkp}o~18G{F|l>V9oP@@JGaH5zIkT=KB4@H99~-H$Lwm>i)XIPN56Rg+}j# zsYEjUyaOo3dv-K@)P0Po!cJ<3AjEP^L$Xuipu-l+Q7pa3g|T&}!V;FD71UsX0|VP6 z`2iysrIx4}6MZL%v{zIY{G2VxE6qXDwa8_rF#p5h7(eo$cqvN$>NZzMc5C;ekk;E;&1NlgVb!>R+{1Y zh0`oZGF(<{?d0>rWj-r2Nj2l=S?myv<@kf!;$^c!&q8f+Y#ApP7pM~P+Gu|PvzYWb zMgUFeR|7^S6Lgw$LfLzqb3*mD%M!MNExwh5%L?!E=9ypg4w?UMO6z<(GFK1<}x+a#L^pWv1&xPjDX#**JJJCG#`&^=a zX7nCL<;P4)J(NW<;|x(fLy9psZqDhxRTYh==FTgP*$xo(K|CP+J1a>`^I^9YBu7o9 z>SVpaD8?Xe!tdpS$-^gDaM_d#+Nrb!O0*V~@v{=GW4G!k8PD>MjK>G|pyTPTMA2X6 zDfyRJ&L*cyrCT&TvDbm0Vi0#b6f}5tz%8mjLoGk=*SLYr;=5Mz<;7vJJ~V)ZhfHVa zWvqQQy9%#4!Sj96OTyJHmTtTesdoQeta2aGTHvqC3S&W>xSQMDlc$$Ffyb72mTtrZ zZr0g%v<2Uq=qKQN<|4(s4vAxo6o*^9gvLq}`(Ju2G!=-M=BDTfH84lf<2a;bUNizh zKH*#b(>>SpO%d57AdyRM2>%@kQx7U75k9=6Q<|3?U>r6NPcwhfybV?cRVfKeaK<`FPP9`W|7+B8zMgXWbQ>hK`$TVt4UA`08Hg z_eHWpnw=baLN@AiO6K706rGu|&b{0mt5S|odDS~`PGW*6z3T1lUJ%zO-FEcyi@vW= z5tRGXJ78-49N(6s!N(?~nBExM*|L;>R=?aVWv?Pnf48ce?Ntgb&T!LsS5QH47Pq0B zvck8)9u+f+2iXQqkYc&e@oLslsnI*pMb_9n;gh3tkyGtNyx#0Iv((75+@}& zK4Ph@K*HRN%us3G2^XUpTVX$b^|N~xSuvv$bep}O1ioDzU|~Xfo5l2f1-`lajjxnh zT7({RHjG+usx0|jo7I+(FZ-={ms|1sbpm94-97oc6I#szd?{S2SY0(OGKaC$h1GZ$ zz{!{)uo_^n`>*kDIZM{oj?5k=yx6l7*@7+sg*tGF)+v$Lheu9tVw;m%JkOt< zhU7AI?DF`%RnvNJWn%^(Gn_-r-VUR&y|k(*J36zlxPZ1PgB~tJI|PddYSH_v26XH{ zv&O2(>cY@f60Zl*D34l!PlJ3Zzo-4{oc(B1gHIzlEe)8yBYc<3azU#*2&*;+&N2JllBAF7V4X;0nQ?+m z5(So~oK}hE!XCZ+;9)@1T2Wq?T&SZgKMbYj*WLDerP>yw*xJgXZj>Ra8f7YwfSZ$0 z(UHEVXJx}W76&Vd;<8F1eNrmD81HDqlsB-zybXK%Su|k(3B}shi@Ov%U6v<>E}T{9 zx@8S|d~oO1dZtv3=3^Ik%gRGW$eM>Vs|F17`fHs z0_(JB(z+_=!Iwq{&3Fi3+7=pB-^O!u^v^4t@KS2RQ}W5fc}L*Jp6?>?{9)A9gNk-& zjEXCUkf#m~SsW#Uj>lw*J;s8o@?w0qV7oDBdXO6qj2-Ns{{_o0H-k! z1dCg}FZ7(f=S}XtLhj&?oQv1Za9FjRZ5t|6e}v2~(r7l#j_RubQ#JaGFYXAFf=oXN znz8$}92MPU$u4d*qPFT9PQ{Ks!2T!1mVm~Sv<0fZ={XKW-IlmkzJy(-g~S;`gA3;g ziluon9I;OBq|r78-635IcaVP3yc$hG*az+QCVo}NxbFG$U16!Lkst2QEpBz)mOphy zbm^R_si=4Tg69@=PS)wmdVZ+usd9E=dFeDaXlUEGM%2n7J;OV@Ce|v0 zr)0*x=B;L2n74w`q6fj7?6g_RhRC6~>_9E}UEX)vRMytR*+}}F+M9i;+|<1`*utT` z6lH(-^bl+iRJ8GT5Mv@ub-UiCM7B9sL@|c#2-KeV z${B-kj8y@c>k{8gy$E*~I~Vgk|N6p49PZwXWQnl+)8Bm5b`riJ4SW>`15Pm6`4D|iDaQDL zws!5*3F!G5-PjaY8H3e^+hMC6*UMiN&Xf;v8;iibqOJ8As;17Ej2_)hmiv@GwUbu$ z$*2wWZgrU(SUi$yRv2ky(Tx16F`rU|uJZ^o6RZ=v;d}U7p)Q+4UbPqQ9 z`ye%Gxu7cNhh|=3Vxz%XW8HxSXeCM*RYx#x&~9ev z?JWpwdeLsW$SN$2LZmoEicps)c9pJ*69e2(4Gl@hX)%rgq*f}=MVNv+X|flKirpho zoiGy>u~m>+$Hs*aN?;l9gFs|jDrVrs7dq1u{l*Y3exkqJkkv8qfPJh*i|zJmV10JL z`LAi+j1H<@6fvqIg5l*B26hN5DU_JzZbH>=WsJCbY$r$PCqTyW*(XRweL*LR>B0Dp zNqN?C;{PsS?bPOm2MfQ)D>G@W0MKmh;cwtHSe_L*;bP<@fEuN*yJ3i{&B~a*OBJE(htj4(OL zmIica@q<~wqARjcN!OdqS{va^ju;W~x>@ z>4cgX_{_v+s#rsK+L%WJ9LeK)Tv{!C+;B(I=b?^eCPj*`F|*nc-p#qJ zmvWl+JeZjf?(73EPbNC39g@cLlOhB2;?7t6D7*uUN*RmwXLN`J<`bGG2pCMHMn{*? znC6z-52S-lp@Ey{^-=^V&wQD~ZY#A&JtE|)vLJ&xk2_TjX)lg<%avX|#N|>5o(&0ps!x#H_Z27TV@kjx%33Q{6^q*E>FKrJh^XG^!SjZ9N~^ z?QLQ<8OSy{>~1Iz86AuC$4NH5(HX5jIL=CG8%nx-w+xV1NhlyyMgA(eyFDkyA`bu)GKvF$D#akoA zsYJS=LteDj&F9P492-J!APg7k->)#xH`NJj8tK7FppxRml~&CqL65_rG-o(v9?+~#Mxpem^JEHpQZpm z!JE$6#q;gMCnSDrj6jiA_MsIe%Ly7i2h$pr_|srV#7y5);ZBt%W+&v$BW&M8u70;D z4*%RnTFLsXk~o)%^kiF?A>MN`cI{}69~D3T`xZ#*)xr5wvpM@VwduZsiH z*PxEw%l13a6ob`<9SDhDtZ+Wfp@heY_U9GSi0l~1= zmprZAj|-TKvXv1HBV5XAc$y#@1rbhf)^b zNvM-hatz{MbH(IWm}B385kV!x;o2`8idWF-wiHre52-v?_c(i>_v#K04L&m%o%W4!DuUzh*z+W04{C@}%sp=fpq{7K8F%IiZw{&>ARk|J{1Il^R-sEp^`U|pfRvt& zv)fgb?Gd5cs^(9{vKs64&VYA;nDRC*JN{tXOLJOjWOOGR5`?`Ir}zQ2_*SD_x1XZl zatO}-5Z^UeFw)EU6y*#?x3SfUlHP_Rx8{@_*%e^zaW|$U9TEyYHT4y-*14N^K-lKt zyC22PV2Nmf6lqgHB;6@g|2+>qN`sFVSIR9QjyPO0G8(fuRuUb|P)iz-cQ*GfQ+$pe zA^;;En{K~b{L_vfy`qndhES6%oyN%uqwKA{LfsD>Jxg@u56+#$oMbl*#Vo}}N21D8 z(do3UPi6xt*M+$+vP}@0-;25g{>O~4zm{V=V>K?BSvth?%JRliPOTU=l|lmqogDK? z-O$$a%YaPR??c3HlFMzXKs*F*(p^R*O#WbQFg@pNwL<$lJe0w3{CV4VtJCxJNK<2= zHhr!+zK~Yv5|IlE>VG<=#BoWDn{aF_L=_#1se@ZQGNZ?NBQP_rWOy!``-uR3VRvr-q27Ysy$)^JRk!v-RlTLpVhD^v=q$KgOPw?JqXD?*2FW8qIWdM-AtH{y!s z9#7e`L(8MDdk1>^6|KusEimV)1t?Uz6-6pwp+@8ZJZoa{%N~wTr|sGP-jxmS#W2V$ z<}A!|ct?~Gnd!tE2FfJ3@7eGI^KE3#?|H(0wbdoD8@xrhsUd5CI`b>q%ILx3vS7}g!;9H>}#zT$8Negs@@>?L9TIZEinub!yP<(MbQsqaC zyA_Rh=G)!fL)m4YuVQt76clj6%R&8`uRu*1haOKCl#z!Dv_;3~OO%~$P%Ft3BEH$w z!lO%1$3t#uxQ8ycycYe1wGj^)^=|D~H{LQDxzX0YDhXw4?Fwz|eo&%TaA~ccMa#)jZweHp5x8iz%PUXGo-ZypC_bDhDo^P`j#I5aA-&{ z#D;G&L!3c(k6Ej&`&VQZK>BkU?}rr&z!)tcFt!e@?=H1T*bW!UxBgY})6Di|K91Dq z=BawTB9{O4kn)1sWh5A(;LVzx*fq2kxV75G0g3PpHb|L;A; zp?c@K8yxpAqwgD(KihM9=pA9cMSazw^oYn`{?I?JNg@8*V5NogP2EYq{Yfr2+NBXJ|LZb|IP`hP^yQijXb|Yj z{ctU<4{N#W_?iv)Tk?5#ZizM8Wrqh57iZCBZ^Vp11P0byNerZE@Mr4P2V5x|*05ub zHn7tWa9{(H0xIQj&~b1@RUp?KXqGYVvxHb!(9-2MwC2TS`^VDX{_T=e@&a=u^4YQo z=-?7Wsnyv}C+Udeh2I|ceIBO=K~+Hi!k!nWV-CmNmxw(bsr(L_MUi#>rg!c^I>#VL zA`w;tkMLfYnXy72uL2d1(c+DNY>FI=kLuBU->bTR!i`woV;tlM zzv)!jXVeGcaExkPgSPkjk1Ck9j>*;TY|+~VfNOrs3wj(Touw&hDXmY%7VQ?W@1L$b zZ5@Awf==<-(NwG498%OQflL*6PfPdi=?j3VbKC%7ljIJAYX@Ldn4neMbsL1`7n^~XiYLzD@%t$fy~iopw=Le^<=LaJOpNAz>> zwL~ym>%Kqi@(Ac_NrW+nK(Gi(T_c#~>FQ&(JnhR-@_6;=0Jk*qBJBM9eA)1vPbXS7VpFYLs4GgwIr1-6-8wTADuK8<4R#s_Em>9n?!=La|?svJBPeq*T4x+zYZHNhz z_=2GsT%BrEd|j<^hBR2ZhP6@*3C_D^=3}0)oLQ)z&tu6!?XLc;bA-0=7biMSP1D)y z6eE}gb>X97ybS1>2%(*Np7Kb6g$E2H*b5m9&282Q@@1y4uXC?vWJ1wWZ9xY5frTYL zeWj;?dr@%n${_?s;YNiQ(ix}}>H*&7w#|mS&N4i~D9`W>SRYdbs>)Vra`d=mwh{xI zd}Up3OJQ^;mgZM}kGdhvzpKe&)J8ryAuob~VpPm*b`zm&x1w+!V8?@7o**4pnB>3h zm%U`h362CABqF`6yXa%m%uZm`YUr$ zkB|%(F5aFvxFoW4Ai|wL$mq9Fme$ds~ z%V8X94mFwB`7Xd{bUdJNmYO>x1L4EGAj2u}+ICNlO~lOgAh4ZcTe03Y-DqkKu(bqJiwVIR@9hThMPEU?1*8`2m%5MpxGKf$TnS}2<8o{Ul5Ma5T>Lwe?{_{vWPd*r z16@|xzT~eR_1CkXT9D2HKW6~9tK7A1Bs?5xk9BeBcG1m-=ma-QBN8o6lSbH% zc893<2|6ty_?{6lyk3eAp6F1_ZSDv+3E~0Nou8hrq38K+Ve`)F@%yaS;)fp7y4({f z6o-f7o9H4HH`VPTLK?ewd<(_Mg3_PUo{x=+c==#g zjhL8ob9~$?!9Kk)0fa5@r=M@&T(6hf_DfCV-th(ePBrmgGAW~&)n`<< z>!SlVtX+%ohflZbkmGqMRGjFD#Ooo|F$|@Ucz8=OBD;zlugmoS7yM5yr}q=DKf{Wt zO-;^dDNSaj@n*IW<9#*JesYxLGlI|8Q6r*+b;g7lKI$<`sw00@(0y)M1s`8|eGaLO z|1lwNEtLnfN8U)S_D0_5F$P3NQ0!3}hm4;@M6JVoev<%jo&<%55uksn62FES`EX&s zPT+q`xT@gz?LKC<30Mj^dJ`Y+bu<{d@XMU35YyA)`pkDZB6xoqM$goZB(P4IGIM`n z>d?CldG@c6&ZWOiE#V6XJ<}_dHTq;}POUz{-chsB<2vbFuFzxPwb-SYAh+zj4f&4b zH@6X~ZlENF)%K)2R!KxvlS@tQg`B}u>#1}W0L&>BK_2`L3x-1*h>Q}EhP=R1Y6T}I zgJN5V0jkHhbP(B17D0YTnccqPglebKlY~X_UaYobaLBv8D=n~t$U|HH{TraRi4w@TRpx~ zUy1r+l7eBzD`Jl~b1P*|QC)BDl|jG>(TEbBaD~R$$t9U;tZ^NdMIdx&4T{sLQDcEx z$GBI<*3dNCz9tNR+ahQ=18))qrPQFk^!MMr)|!S$CDT<}(7H-0dWS#+}?fNZa02R6O74v9DzNPvFvp~Rebu{yi`Cy}6 zkXd{l-dP-E%`m**MB^?c{anP!8q6Rjep%Bu#7B6flMS3p9iI}NDK%YoPm<%#l93Ly zELWdAWc0lzI}_9I$Y)on(Mo~G5^>dJ9_5|Zp@5JHpGW=l9e!J?eY{jjHZQ zM0^5?{lY;C%+mboe0cO!Pf88catJFJ@zP!T3+Z+E*yfO+sbz?rN+CS@s(>IK{J_vL zO=^R#X8G}~SHCFNnTQ}fHr4s(BHPT~RWT?4+4#$3WXS%F@uz!CmD{tl?j&5QajQ#lB?==`DQDACKmi-N*d-Q$iMS-`kfD{$H$|n++rv z8kH2DOjP3w+Hw-kSi+~y9)I6i8|8xEGjR{BR5YhHi%L^iJJpQhhDFgexwZ^fvq;NdN>C6^nF zw49CS#Et#!Sp*59lH3$xkQA+$rPI0X%2MOXIlJ0*mN_ef?WC&gn{sz&(*y_}>^($M zDZ?n*)tE~4{gVXs0@PhoMe5}SZ-rETT?>p>x$F9N z0kgUEqQ=4?vv3lf=c7VMovtg*x%+)*`^{;uR9mb9b}NJC@D{8PSYtBGG(mbAdP5ik zChZ)u2uqWp?8^p7j{$oP9Gvj`GX+I2aOH?HgOeex;LfK5S>r;yRTlwTK4Sh4al6su z{_%)87S!5r%j>tsFAVLejdF?^}6wmD%)`e6VI?5hw*?Pce0-I%1h{ zZR}7SabJ9BvX3MOF$~v@QdF#2A=94Vwk!(g863Dnz=6M@q4Z+IkVdqfiJE-^? zdS`TVJI?+wq#GY+KN)KA#D_S790cW+l_6@my?kSvojk2Qk;-j=@ z5QF6UBe?-28F4efJmV^b1MiJ{>BY<6KKXn5_M(ta$Mv2b?bOmj)Ept~~GYmB0#-JgocMg7rmrM(!KMpICg9c%kBob2$=|}(P zy&~;u(vhnwD=&m_8M=7YV6GaZfJv1xRbX#`T0cq${_Kg~_^#F7qGzv3AB=+!K#Qm* ztqwyI8fYuBpNn=(d`r$R$HFmR#;7DVPhZTAj*Tt8zH38{?d4sPS$PAVVUpvKa~2#I znu6j!(TH+<66?vy-ECE#k|%^GuUr$mIEg2Of5DORDI!bjtNIa~5iaX%Sbuu`t$iCz z1*!ZGWA7B5N!Lb;#B@!x^*i#0B?PKR)ST(>RpV~2i+?da|20d z#1QW1nGbp8Wltf7-?%c>n?FN!j(zPvw8J1@N8)-(Q8**{g|mj@|ALOMij%stclJqtB`Rhy~cp$SIDUi>u59o#ue7YFLB|*nI8SryjWmJB({5sP+gWbis%P75ip_)T4>^Wl zU`bJw>x+heK{hueyZZTe^2FtmI~BuU!Z$OgX6d#j8lgVjcsZ@H4TwQYc(IjcjURE5 z87T*}l+X~FaFITKQD9S5by`}yq#m&tBq$tS{tr_sY@S}TgTm8U%t$>8p}}VdO+63E z82H}|w(bp4Hn%bDXWl{-J~loz+lVZXe^5B^lU;3!DgT|?j)ry~F7MR4-YRu{8;auJ zbm<>10lKwT&s%&oMsMFlmYkQ+UbtW!Lya6`;Vq&)WZW|;)7JhrnmM@OYA+)I$vTmk z3yDA6hV>2DkSy=$!Y2Hfsx?1$Ia%Nr8#^aU|=1qdn28 z?99rS)Ls&D7g+U`wGbzUCglJ`mkK3ao>7wSU_k4U6|(9BnDWGGr7EAA~9AJCXA9RmJ|O@4&cpn zP;DPgA-acS+=3WfLHPTFr{|P zvfKn-?johf-aWHP&Zn-R5`4>x`)2fq8lBid;x{A^QF3yTUJ=l4YH{Lx4)8{^$Y}Ir zF8$AWt*N$?Y+vjlZDj6b-ksim#oKDhl~pLoKF6M{8_+IGV6rQ>q)BGP^*{;hO5Az3jA8CZuA_KC`YAnKBV)gomrCm$Mp zT~nPNp_nmpx|BGJ$ko!I?d-n4ri=}`Lt5`;MOqca20d8K74od>;=0Yn?qTZNZ&Mu_ zg5}9kmR(JIJW=4~2$DC=qXb#UrBzMZjA&5Py~qSG zTx^(v-xN?b>81MW1Wj!mOkari6I2^fl-Nv}Dm_sIgkUHE%~@1hlCqb;&&-?65zV!5 zHkp>`)ZQE^5!>|Pp;=;$0`VxU7X6V`SHk5$_L}d};sYdh5hV1=L{Dwzs@O+o56s-h5p zKRj4UrH(W`!~-}XLGTbDM=1t)C?yE5(g|szJt-`UKb)Y`SZ%bw2%QHc#R;_WBZ+5x z!RUz#<4hBWm2(qX3GZVXqfYKFw~AuT_+zC_rR0e9*lP7U5%QYxu!Dk4kH#r5l_4fI zTyv=IfkL>r1PQI?2qQ5u7o+X`+_7e6ZLwm+UOXLLXmvCbE3VZ8X~0-%bd}DwAo5TW zmflXuLTeG}CfnqC$=13qy|K1TKT(ODpwKg4(xxh!G*Zyq6}4b)BV1+j-m~j}D0*G$ zLZVC@H3gc0u3bHG?AKq5z_<%MfH3K-X)S8=Eb8LKI)aP4P$!a6uY~G&tvey}>`fsr2Zto-G4Hx|SfW}R2 z!a9kKuV+CzeJcY2v9msxJVw|WltC?MA2e~gFOQ6eQ^dl>um3ov^i#UO+Mo^6eka9@;6062#{xwfI~HezCYrdo%FC)J_7J?!zs+)A!K2f1$YLVw{&TK)@?Bp^$km>3APZ7TW{Wpo2_@4pqE;gYNeNjE3 zCy1O64QOIA%p}NJ1@tEjZ@zq2o@rVj48wn@g1vpk@@kxLJ|%$Oh}LpIy_L!P3mn)I z4iyG+0xlV^0!sZs?hXlzOjumeYUmxANZW*CM3{-v%b8(Nvx|^U|DN5G(n-=S;O!br zp{r(utj%uZbC#z%*5mJ~1HM7rst){92jdH-g@Jx3S=)vh{DyivWY1AukdH@s%aYLb zFQ07a&{DqEshv}s=6YUTmm)}{_mAJk*5`uafkyU`K3Gg@TV^Cih~gqA>Zyz;tLAIo zAaWB4rliTz;KKfVpbHxh#C7A9xl_)0$pPzRN>V$6^j|AaZ zoeVglRsap~B8ad!z-zFm*=sSjeYG^vJCzoVNKtU@eQsA#edI0LW%@p0h-$Rmjeqqg z#eg`UTvxzt-xa}axoTT1ZIKI-yD`k_F(%@bF#W=Damu57WDZE3$p;slnGf_igp^IaZh}<{5sm1n&XWpr>J_ z(p;M9lVRr}CrUqXeLjZ?l$#U9=H=&NbxrOY44@eKYCg5t5+g{YIbM&^fBqlXei#ky z7$|OP>S36dv~;9Aw1WDUQn`*M7)oj?6mQadH`3ZTTEEKvcIj`bNwrjkqO6o(CxYf> zjm8qfiY8<6p@p7GDFjw&p@nIIz*p3MGzFP{%ZaCp>-0zh@TzDa*(B16>A2r1>(J%^>vw&TI09@uV|5D(b8q@l(jX~SEuM4C2$DGz2~3J9ZJ9~! zu6lnrFaF&soql-2>@Z%spoXfUxu6dBhYu&F-5>A$1l!vBh00Zy8w>^O30Bs6qrO); zXZrG%RbI!hmEKTe7R*LC0=ki-c4DSOYfQdlTIofy{uSaqo|mCM!ARJTZf&T>hGrui zQBG@IXJFJ~gR>M=G6HW(fj3xhBS$pll)l0Pt7+l3r}b5GYRS-$=RR zbuh~LErc%xM0_`xC87F++Q2dh|49LUl%ICR2F(qe19y-wgbZI~A#Ixuh!w2QhObWK zm+e9hC>L21HnB@=Lp0!YRUXOC6_WO~5H(dZI_CH)r86Hx#MQ2%yMMj4QLV-r{%bxf zG)<9Q_pdhw%Sn!SL7Nvh-#a53{`91{!>|}?zLbFpY%3L+-vh5aodSS8YojO#>=R{S zPAmY|?BqQ{s>ML5s1A;Qa2K=*gcN;qWMBYzi%!jL)k+;*YqL6)A}<3dDgsP6!v=U^ ztwBq{)*QLY66=Y6Bg$4DeWhDol*`5o-#DzjNBD35h8p}vM=UC_{0fmOnicI*&2RP8FpF_~2AwM2NLY;rKPJdV=F5SsN8qDU* zJ^m?O!ml+o6YMqHTL0p&q2h(->4z<*(4QA@tN@gfd-_&1L-hnO1=w-+Tj)NRHoqK* z`}1a}6!lerwDrU9fkeh%2FYeN>ddo~lJ>?5%ASE{i&75=F=lTrN{cm+{-^zy#&Lmi z9`0%la3nyRFsU43r)*cw2D$rq_o|nh^5g@{mbZ)XP#Hk2-E*(*bN=1=={JEo)AoM} zW8(aO4r5~EWc>e!G4V8Qb>;~jfY%pfnVi9bL5u>%cK!U3C6K^gKpiPOzE-!G{-mjj zDkXMod3nWkswcH880)BEMiuxFpFF?UwS8v}f6xabcJ*fZZR2Ef{X+OUFJ0~Ox-kRQ z+y4H#^6UC~Y5nhGxvMqrzf85Sa6hh`j+edW-wzcT?cY9axiMjI#-x?T<2}Pfbklem?0RO&+hS)z%aUW^@RluQ0^{{g$gf|MWZx~kvn`rC4k+sfNd;myOFi9}?M4T=_ip?C-OKXk z>jdkE0W_}LlD$?aE-Q?~>w)u8xd%J^gPTdz;+JRkRgV#aEKN+pN9$g@PS3toaOFTMnwaOe?DFd~)apb9LP4xAXM`c}yadUzSJY|-VyLcrb`5Lp zG2(z63?+-vK~u`6YKdpbyF6oA2kq?=sE+VX;xcX~uKcSVKGt<;{7<*QEPwTT#POOz_F#tuvH)Ly{e-7ZBiu6`)?b@hYj=;mXk zL?llSNGFItO@(J_gTQfYG^FDAd#=Nh9x&QrzSzDyKIuMt75L>a5{{_ArVR2JOb&?8ms;fr?C5~w5m0W1>@pB8acIye?N`Z|5piOmM!`Ashf6Nb z%LiNN_qS#NWRz4;lcO^D_HmI}33O!P!k{2w8pJ=|6SG>fPIworo!2`in%w)vFkfCb z$si+}(ECL8UMjcvLJWsaO1KKzf82x{PuS1jC0I{cTO5W9JTsAlonekH4+!@c)CoM> z!5Py#8A`+=8DHEXe(bLTCc|i<>6?8t2(<9T3OHhG=5B)=E>E{eF6m>9%%WG;Ia-=M z-3A+`o)^1cLpj*s0NKNFFv(J)-uBP+&M&F&-3p9GcA*?5$ zCdIfkBwu9LxG{y4`_gQv1T`uqIKv8xReuKU0xbPkVmhkk3F~PLOd0tO&44-f@%WDk zkND{4+!Ddw`azuBvqNS3e3AV>8D!Pm;Yr%tryojhn@?=O;O<5tx>TFMf1V+d8^w;} z(i?+$o0xs8U^+91?;MWnzZhBZznm}J-gXtI6%nJO#w^Oh|A1e3u6D67b?YZYWSSzr zkmB=$c&W>UC`oOW?X5}eZa2QW{*}7^c$$mv;JhA>Il8Eum=pGZqGfaic3JM1qj~8MU zCbFr*pS$}&4F1=HukCP##c5|=~=@P>FNv8mh!vHsps!Xv`Sd^}43z?&1@ zCOh?q+-vpcr&IT3;e)=(2Lu7KwWS-LO8&JEs|cqu2S&c`U{wlD$(&;SW_Q% zP>*`ZQxThKzeLCPRq9Diav}N6us}B&|1=m7Gf==soP&reMAhw&VSh<&>vG1P1WW5J zaoBW*J$o~DBHc3vF7t-jns-u_%;koB3vv`^IMgb*7YhESXaWa)>4(=N<&h`VB*;Og z|JXhjD6%7thgT*-$0KxsDTAqeA<6zb`FIF2J>ywhQ$F%0-=wqRsd&0q6B(G#R8#hZ z|MYpDlIzV@{CL=bFD1VYXYc%^?oQRESN^Dxx_-6d!KHl$2?!Y&Ueyh`7rbsny`O~u z4gUw>gpFO9><{y?DH?GQn>gzfadx34K`J`78NcPVhsFxZ5Cy6n)rY944@Fa8>}1(1 zn8Xr3UCQ|_)YfHdSp`ch=cZ2Bu0WP}zrZVw`5%bZfcqngc<$vZ)deC~&?#0oGY&t4 z_iIVtu19bWE^hpfchc>#qOTYPUSZR17I{?`Yp`hFWlq*z<>b>J82#m-32CLuFZa;B4qkG78D;3p)?zm?hUoS79_IM{0a9=AK5Jx zBmhH2&8{OnqsORbW5tT#SsG<$%#Og7O#T_WIO}Aju|qwt`AGQKiy<(T%0WkZ3CfNv z++m@sitFp+CGW)Tm{x9d974TNcdD)&Zx<-T&;L(3K8>{syLNQl9$nD*MV5*ZR_@y& zks67Dwqy~*K=P~UntQ@BD*9d_1L!QI z=1PPRXYpSj0u+C5c0LULq&}+>J#Q;$wvbp|s!>|Ld7XB1D_Y&wt9z_Q6TpmiSZl?y z)Vo_QfgTPzMT6lIB6KcQ^Y61+zojGK4bQ+RCh_DHGZT@7(ONn zbFjqo364e4^+p6k93-qvXY~$$7|=v?;?*F(T?mdC=!uDr zo`5dY{;Qggc$z**Gp?z&J7*1%SLw%K6-25q z1$ugS{fMDzTz4^;5-FSR^k3D>UJ))R_9)0#ceo{i(jgA?96$3O?))EqvM^5zH2FamLp#b@-D&`pJ-IIl3 z(y9bQe?B))i3W4V)&+6UX<0M(lc!Olr1uzBW*=dKOro(~Hwx>n{%eazN$-_zCKR7z zms;MJu*4K33+~+C03;jJ!);^RkfZwu&iB5nGA@D}RdupdHb|E?cPOU2oKWC5qq2`N zhm3V_%euMFP)4jG-sKbw9YS$8fQpf)fSvJP9^&4SM&(*a*FlHEnn6O_TLq7;`s<^Vfh7gZSU1nuf4yN~JzhAMgpfR@7lt+_^2kiZ1~w^N7<66_A< zZ<=o*;xlpYX|LDYb0}kvaVXI3oC=eF2ytKammlcI@*jbIS~mZQRZpi}l<)v^EjBl? zgJ$-=fnM1VYaAD?EnY{5{A=V8Lq_^&p;_b*%Htm+#9NLo#>YVl;cPC#sMrk@%=QCd5==p5i8|*FfxbTqI z4m5%^#D}W~wBy&6%S^Il-D##!;KqeYLKuehd_x-(Vyf{V>Zby;Ow*4<20I8KP{Ewn z_$;X5`5|$xO9N)BRk2jv55W_FxJu~%_-Yj~>; z713eV%mXfE%P@3(j~v?9O^y`YjluY1BE&cBg57Uv`Ju~ zov~-}H^JM=9vco^G_vcI$r?6xd1T|t4PYmcFri=r-4r}I{cpW`u~a~Y%Sq;wFB98Q zAyI6|9;?{v)dXG4EwCfclA~?g+{ny@)atvVT3#{S$iwl*4jk|`)-rW9#f)qc6+JNA zVSA6jTUY}%X|%wI&yM)F5nNQNRqrNcjOw6dUBwYmq*-@6J`T~|hknD=UscI@XQM+l z$*-iMhzLdrFs3OFfK5wPlju($U1}00AwW@rHnYI`|8D1oXd8fQEZR>BdWw=5Ll8#V zSIO+57L0|_&N~(%=mJ}@bT6$7@%b3)Q;NfEjEx7)bs{5l zwKNTJo8q-3tZYm-=FIfS|Zm+Ly#6L`yxIicfj=UoSf3V#WOk(1y{RGFAu`Z z2N6SiUy4uJ1S|zr>p7%6-{cTtQh*a$aNSi<%fGNrsn{PAgThi|DHO$SpcDoSI3~s3 zFS4+@MLK3AWr>d%zp!sm%pTv3osZz~mys}ii5zE#08NmRjFmKAeZ7z;&sOXHpYzSb zRpf%1N5Ru~T>PudFE9^##(^m1ivX3E37aJBLkVn!?5s9sv&HWbKaY#7|K69`{yV9O z;{9(Ujeha7r_}*>`(xvlK96|+8Mt-ERav(8$fxZxMQOi%ZW+UF|VP8bl!>xOk|{|Qcup+M#?vzfAr@ngifrp zLn=TgJTd3YDYn@YRB10*n3OkkxQj(47z%ToW-nVaZ)f0HBcpafzmgCU6gkBG=Z)PY z;~DsJRCXYV~SOI8e%*zc`vM#Z?7{<0hw7-_i4}Q#Of^bW%~kq=WVNLR=lGf zt0#7Iuu%nDoH2tF?Nef|Ja-^5I_3tCV2fz`O|H4$W=#@?{_=bUP-ATsG~}7i`ZZRS z2{6FXU-pg{3hD3{9Ed!nSf$J63l9!%h{y8;l}BlFD$M6n%4CjsLPjYPQ4ep0VneNe zVM0kUd~SER3Nf9)+HX@W!szS;hMZRoK%mG?HqAi}HY9=#*Ii;63gCqZY4UoT=`Xa! z%a&ASpxm-BWfuAihe0=!;~;C7Qgr+o4jsg(HGB}&qc1b>x>3_ROx9Sh;3q^E5Rxxz zVuPaslVyrtmvi)!ke;aLG%0Nn!*eAqMesLA3+gVK&LUH55L9YlP})L0=<_)s3I^Kb=D1!VRq zi+zaTJZr%jTa(YFPd$_n`#95H1tw4P+GjZmyY;=QwO2{BHXLUka5G5i3mOe#8*}ZY zep==Sgd4-bVKH@ zi7kR!0!KgJ;Lai4MBJj(L-iyXiRzncdj|W50{c6Nb5~Rjt`J_3ZK2phZo(`{w=#m4 zpj&6E2;vmp!@Z3aU0DLGeuE~AMQI*^2h3ql);hHOuoE>R3UTGwa>!mLK#bI}Ks+la z6&AQ|6Z{WnvIWuS! z8fuKWfB4aXQ4}axvdsAeH0dhffids|-u8_nf23$M5{Mba=50dgEF+$>qKwRQ>ulcQ zOld92-#X*8w;k!c*(DGW$UM<3TY|siz7q`u^oW1XPCC*q^>WXLXc@md80n-!))M%~;pJtYld5SO|jQiK`7 zDMM{wl&NA=aLlt{d217Hy`8>et`Bf&EV!W{g|$jdtnj~A>Pz5&j!pUlXzM&Pb=Xc1 zl_U|c!0@MEh&Oe6f|ov$rYdket0?$p^9&(u*5Okz;iVp;`M%3DGIMtq_&VF>H%ZNl zu*pQBrXN(v-B~gi2n^DE@q@jOyw>56a1sL$735d`P0ir4-6{*fU0Cd1>nX#@Ed_>0 z70kt3e-wKQL4opgzX+6LpYd0Uqt3|i{=yt#_IkM4#zmdJ%b-x#Wp%zneeS7!p8y&g zFHBjsBS{LX@a|rq1$9?;0nS zFY@^r*Bsl1{6>wVR2A(er)w*tH3@9#G&#{B6S67&6K879ipWAKbECVw==1q{pZf*c zMYy2Jg;S4-ASB&n69^eO&LHm6{+P4*WQ1HjWQJ^g`gVJ=om`)|*jVmfXbvzb{qg~m z_zwxvtgg62em7!~XuIw@$`}=FwQ)j%^8Oa2+n!}D&pC-sph7mkq6eOPfCLxLbEC8` z?k}_VCsuSollYV-ef)=Bl#E(Hk3LR1e`Wec!S}Z5qK0)~75OqQdDGESvrajcu@PU9dV?1acC>&hzPM!@> z!~A(fUARCNXYF@D=A~Q&3{}W#?-o)TyMDb8aH_388%)*}f|)0pbWCnEUD_l*;%oym zJ8J@W2M9{8k3BJ>0B5HLUsyuquK=^Eq@Hd}i*2vJWlxXn@U*k*p_N!A~%!X-WW$Nq;GC^ z<}6*LK(sNO*v*j%(tN3?^w6J#1cYLb;Kv+-s(j~#e-?+;(D>8qq=Hkg=DojlhnQ33cYI?vP55MFj&aM$?8sd#P^&MOVQ%cf`XgT^>a~yl1Z&jB) zgGiTreQNS}%Vdh6-;}LmessiA3)10+YiL_JgN37tBb^$|KnW)Jw(Wq3?^_gr2%uky zZh(ovN}61X+MPJV%&B2?3`a5v@b0L{ry4kQv^fH%2o5=@f-H?Vc?35IT_F3+zkis& z*&kX6=kqtduw_||>%s_DgkV2}tY* z%wsi5$Xx=6WE4;Dy>o>Yy6?mvz6R#GVXM(tRQAh zvn`$7ug(Kd$CJ;em|CQf*(*m5fBOI#Azbp`!oN}hs+=J6?M#Ie96#!JkNDH9^00Y4 z-aCU;?^N?!A3|f>0LcnG1!4zb07g8?R&Qw71&n%a%p4!)wFU(p%)5X}Qi3(Ig~>;H(J^ekS7d zq3fp@4A~B%&kpEm=4hi;^jSawdjr}QK=lwBUtK{Kqdbae@+;alT>kVN3T{jS>TvHL zk%klt6dOAE;$qr*2X-aSJNJ8$Go<52WAL(EpkmEVytE|1P27Z(;TfYOWvzx-Rnx5?{Jk=?@8}Lc0ry1lTi_V?u0;XICMn_XI712xq<5B(fuU>beFSg$T8<6q zXFStN@$_cawjFAPNoS_lKn|8W&J5HJrX=&5=B?=8j>;UpQ*!hIz*A2U%d5Y5hG}U+ z=#RK+iG7YroZvS7*!I|89Aplgmb(BH+ewZ4mSnFYpF#_Har)XW_rQO|K?U)r*%a^K zXH&__s&6k@T*UU#%>lCe;S1p-GdRqMgX$nVI4C~tWz~rl_RUa&U3rx>%y4Mg9lfTN z1UREg@tw3(V9kzVG3DP967pfVyrWba<8qN6i_h-FYnY_uzXsAbiYkFUi!=_2nctCb-2x96 z*1JVE>`HBeMW8(Rs(a{6ITCDxOwS83myUabnAWB}!VmHv6G#v#%rr-z6gG4(3xqan z@4xtQEVx3=IgX3coEF%1HG%#QozdUQL|h33|DG+mFXRO?=iT%?dBxDb@XX%+f`wy4 zqCmf&*AnAmMMr`M4OGRFE+ZHj9j%y8^mMtEh`G@4DP7@Zm#b|l6Hy$%_z#7f!{SVV z{M!8S&{|*?Bd6;?diLdqnAG;MEO^$hW8Yez4GGuIrt!jvT|zqwX4%0c1z%S+nc2m$CYKUIVv zua5Br2Nb83LH_*yE3LiIUCRZe`}%_diG1wKLff0$VShS(ol!5|Knt`fimxH$daNWF z1qwUDn>*`rKmMlNPJNJA=l~7JMI)^5L@l*OukGIaas^$;2!(lJOg_eATSj_9$K%d# z$9}v9?9u)6pqRH0cdWE|h}U;E6t?HIZb^lRrZ$xLWl$2j@*hNQ5F+c*U*Uyv9E8*v zf&wk*8Wq2P&gNO!dEdTx{Q+gw#d`{woG=sWM@3L5k?=gipDivHY0!6qt3l zaH*wC{aJbpH}nJeDRql~XK{(kVhI@D222@bkxaSS;uEZUU8QU}> zO!qt%xeT*|@1mz*T=wLieR7tl!@ITqu@W}`mwSahVyQ+eou^U>C1yc!sObW^ID+hS zK;8=HO}Zaxd^SrhtVJ#a=Pjp;c7pCL7shi8;8J-zW=KK4$#r?jlPur+m=Rb5cWEqw zA+J>@?}$0G!TMS>`?9?>SO$ea)l2t~Z?amBJ2eGJ1%I?A_Rk7MeY~PB%Cr)%RnT1E z5oQ8ok=IF;Odna-rdae<^N(O~Q8rA+@WonkQrJi5Eu-~vBmohjkv281!ggVz1MG@K zI_($?gt{$_IDLuDri_95<$@ZbLNR|C8Rd}i(U_NF?~UHB=*-bADy7q0MV^x(Ru&_z za*LcT6ld9Y>x^(Hkkkxu%3X-+MHqZds2EE6*;DC6zwL%5Of1?8^?p_721!a!+|*hx zni^G>&LsWRWVAt9XWe+K5KTl&sX zN}~5{QrQ!zyn~mGr@Yqq{V9-0D&FJ4M{3WRPzAqvNTS6H@GT zA9KN}F7zkTihv&ueAmj!g@-4v{=o<#)w+Ux8nA&RAPRpeGLtkunQ-49z*`SP9PMaS z+9F3AAHN)oJ0S?P6iShMxTn(|ly9Nhr4+kclFrAfb@`XjjqMw`rCDBCLC4ZPJaSlU zlPX{}8ZkAhc`Y>cfpjv<>QX1WqGI+yn!>bJ89VO9L~H@e=R+&7R7q&+KT5(Nl79zG zJxeKeInK=}PLq})AQadOK$8W@NY%dz{b|At#WWKL&=BCb9veDv=9Ja&p=-!`^%)u-$ zZYL;{wr#TfrpPIyjB#q)PIcB1i%&*SI(Ug^Ym_d14~!?hb*RpZWYwqL9&*|H2C1bI-7q|z=Cabi4U z$h^Pyr41Un*LU~z#h`E>?i^rSeOVZ}Rp|`M#s-aFoa(Yjt#b`tn&YnrIO2a3hd4+% z{wsq`FmPrh+L4w`8WL#mVi0rAJKUltu!#_nN;4PtSqm=NX!Wn6I8X_9I8H-q%9|c_ z+(z@xbY5s+WnAl0b%UPE2lO++5{YlAV4w6mh#stLW~LJg(e)d=0^lw9Zp%gvWuLjUyVK;sO3wE#Nrwu9DA0(=m6ADK0P~mZyz2gMKngvDhe(Ra zp2LlviTMFm99&dk2ScRNXLEvsRvk?LJ@@G8f!z(WlW%b3QOZBSdK|gtYW5D zT>G(Qg67C|L)|~W-nzgKw&{c6da2!yNVpS&*g3cOHq`C$EYz|8y{f!*d8Fn8T)*3~ zP^Yg8OKS~Z&%5Qt`=MbdZXM|l91b#&sYGPI%TeQl15(SIH46yge;+WFd&IWa`#Uuw zu2X1XV+l+YLvfy(^M$m-KB<0WqJ3dsxZ?ufyEIin^=G!Sovj%^MgK3TqigZhW#L56+AkCrfdn+5A>A_c#1m^O} zsk4%Bkd!UO9SHJ3Iw0a|sk!saJ%@7}D>8t5`f3%uPKeC6xPDJ>wCGo{k2e>eSo{{g zz3|JZVFduBgyn{p(HSRSc+%6krvc`i9VU4ydLuo)^bv|H*jsgo9F>7xu}{RH)lqfu z?U|4laUi`$x+w_a@XT(zz#(jN*or7nwSRUI605oy*DoD8Crzd3lmi`UDzO?h6)zdj zU=X1pnn8up4{D}jau{s`>PsjwHS;1jwak#RiBLmU27sFpC+_O)IzK)UCMxJ{n2kv; z$w3m3*w-<030?*4*g_j*UlmTB3%v6xjDVlV=8;%swVYm{>hYN@#VK<+ry5fe<_-y`{aV?nHXq@l5|^Hc_%2S z?br_6J$Xo4(%u`v0s=>5%7xY zDpDu}%V_kEl&kUnprHI0k=Q4kC?R2_5LI2B0){0{?~`srxmv!-><)Gm9H8GAx(H?M z8BXjDlQDoN`;@^sR(I&_e4c?Me%jX zSCnig2;}EIMSxN@n!5*DVmbyuI2mGLPU@$rif(W+MRWFXnCR1Lu`QH{`%;o;u2zx4 z#UP(otVTLgqe>}&OXIg!1-LG1u+VDYb!?DA>>qT7E38id#_I)%AaLj&iXd1hS2U)) z%{7icZfBjS@)eJgPqGe3(pMkI3JoJ;S}f7}dJhGoibN+d1QLIFAZG_7*!hBMa26n8 z2BS0#9qx(pl)5ht>?bXNz!4~c;a^)`xc^&ZWFhBNy>Rz4%)GoQGt}NLb#g0nr~OeE zD2=qlp4?d-NUX>VIGV)~CsZ8bSj``*ebDp^2O7&*^BI*U%1`H)i@Hm&{A6T52Um}q zJiF&!8?0KS-*7_2ar~F*OA8jr)g~qV$Hft|CZR3~UpRj3{Nm8ZnFS!PTc7}mV@#6QFNFKIZrTs!zxNvz-evJWe-REWz1S~8`*zh` z+rPvGLSt=b%!^~?cNbqH@-(OM;C})~KA?ABB(V@J60A|Fbwr>QbU_!1>oaDHv#*8* z7CE%3#=V>Fw-@n224<<<>rdCZ&5?p+JHwTpjc2V?l;{P^wDmnBx<^AH`2Osoz0M(W z)pF>yFn4{5=L(3NVB!#0`{l0yxt3T!OO3#OyZaas7Fwf+|k zjkA0lga!f8I`P|)VdcBqnfn)3fG)JcgTHgf6LT=JY-`nM+K0`VD@-XFG~nD5h@q(q zXPHa4L)Qf}+N#x??Jm6fiWveBJA|yvCuOZ^VPRP2|qtX5|E0|fmZ`0s=ySqym=Dx?` zP5aer4Yk_^!M~pm(7Juo2xDEOAYSujMy9^j0_sZpvgm1bkxM@rD5=wowzzQOoN2TB ze7qc`R;>HH=USmn54h4Sdq)S3tr|Brg73-&qI!6ls0AHGVsn$i%N(Kv9bzy~5G8K- zUmoU3ECjj=FjNPrXD%D{Z<0s-S2?@lJTy{lF}DOKNI#e}-1QHn4>)k($>sADGi*Tr z2i!c6F5hk(pJevOP~AAcbqA`9`uPg+*8aLsju*?^BZ+6~;2bLQW_r<-sRd*75VPG$ zS#bFp|B?Wp8iCcM_=>-SpHqwu0?+pq0pE}w4)>+B_-5y!rSy4&sX)Y!=9@G3Uy@oT zLD`HDsVJx$#Sz?)s7n$WBTkM#h3|xoClPh35aWGyX{0PsxN)U;ymIA0x5*0AogUP? zmdRe{tC+rNT!`kuuqi7jh98(6E2#ijDd$vraP2`1ZnHJ>K$l$!t1Pu&S^B#LI4 zWmSIDg|PPV_gyWQ%4DtC3K|lA^LBwMa=dO>lq+LfgWt+SEwwGpLhi33R(-)r8d?c< zCk|p6@UYbtGuUpT8_pn;g#b!u+Rso^!ay9{OF>zOd`_;~3zJBd!M?SkDm+O+A+v7? znHTE!5mH_+&$ui%Z!qU(-NJ8&dsjrzDHEFqR2KNEbPLc{fr z?24nY-fp_vj=hr-wBm;Y5RpvIO+^UK5QNIOv;tfQ`eQ1V+;kj0b5Th6a2OMT3!Hzy zfP)f3O~%De(_Yt3)hv9JC*~ZJ?5Y&a#6fY?sbNm@x(u1m`FenCB>y~u9R+A`pAd$L zqdI%wwL*HNZ)gxSHZCyy?JO=+X5VGb@wJCG%GD-%%yFeL&PtxQ?lp%l{LS}zwnDPd zm}LnJApuo>#76#Ww|mDPC$o7lbuWQgDUKdtD*w=Z`FleQU{hKV?$ek-#>#P!#w-h_ zsxrw!*ds2-6sj3aDx$kp+xko(azvR=4zjXJ8@ zyo-{ek(ngOYTJ^A?DOHa9jrvk5{70VXVADR>o=+H*5X4@?*knodvp7yDwl<37Ojq%ZNm>LyXtZ8wJ2qIdj+%WMwwC&@*I3_XHFF(qkyB~~bCZVaB&G&2mLdyhBV`Z*$tWKe}){w5z>CI)F3%ve9S1I~=# z2(&*sB=-a?aSkXCDs(-Sf;gXeh{miMi5I3;CK46P&ml47C@ft&-Tyc%tXWc~9rt%pc)&uhR33nFaukso#0}@iPWZYs3s~QA>$IO_?OM;(Oh6ya zUCyV>Dc$PyD>DwuZiDX6BhRbJifNttZ~#K3b8>W%;I?w*|3s2 zJfXx~lyONo350ju8B=}URhf(TW~XdMAW2hwbL%q}>C5QPTpod>8=^I(Ck9XU-THHY};q1w?C5=2&7h1>9L1;}%_*{WB)a1La53U!KLJO8;x=TSA&B9AX zc$LM}MctW7?4x=d0KlkR98g$dN!@T}Sbhe)Fxa@QbFL=~`k8dDw|P601Q*8hMSRs! z3|iEe&w*2mKOz0j3M&apaWFm*UmE!26#WgRN}_t8UN%WG0C(^_q(UQI6l_#N7Zqqd zt|xF7@||?{7lxni>!J>Cxuc$70*hgz2^89K#o?iS(wG0t1!JrBUQqzhO0s6Y4#uWu zOno_W|GS9KsBqfVV}61=$bgg+;P5t^w0wVJUdq!cE0B$r^eTJj<9pbmwUca#knFgB z1tKSPTD{VVzEZEvGJMCn{7Z-m?mSzxxH^-H`we|wMNJCcF3MFye3{|ZRj{Qd&}v*m z7jC04#L{DL{8PO~E%xD=Cx#8f!e>$d8iBwtG99f>@p%*!hqoEa-(q!r;RXyV_$(oK zm^JoMC_#=OY|;243iz861d~?c1L~J*7ak^3Ti-cPGkl@f3JB3DM_Mp)5xRW#?c6P} zgGW&Eq`N~EheBVRUw}1gJT;$H~A0)+^4a49JocEW(0M!NpLs{w}T}DUj|G z@HC#dhx~&U&(P{`UMgc2jKUt7p*lGg>y~!NqKU9H?mzxUKotZLL!WgqwR9pmn}}zQ zT;Lny?GxB6)PJAJzv#3AM=AKJ>9VX@f(`0SuA_EY9t01YZfWBOJP{ZTB2|3>@l8PD zDDs{zqG0vMo*^l{BIj}as(1;BwtT3~`5fQyEEeviij(d8Hh5E5@EZqlb%J9XlV3j4 zVks6bgq34}EDE=y=;)jR2Cj(bA{Ndx4dhzaEQ{*jP^-U!@)#&hLtnOjqt}U0($2q3 zTwDSO5>^EN;jh5ZOW*@~P}V%yh~6eVa{$_V?1~N8Rp?oKpvK7{kgvZ_+*|-CHJf(3 z3kerprs82NXu_5}Ai@vUw(ARsvNgvEz{x^>cd>9CZo=zU`G%&)9Uzu)5{kHA7ziC& z9akN?Ti*6Fw>t9)F=>$;U1S&^KBb7;_mda2*MF%VA@WaEj}cwu@2RWWCJgF`;%wi3@7U=7$2wcjU6_UACFaUc zQN=FApSKeA#iy=z$1$R8?prxt1Qr!WB9MnBFk*rc4kP-jdFeQ@xG&82^N1N6zx%$$ zirYMKWsX=>5jGSikC#a6UeY7}1I;yh=5PYrPL5{9_OZ>Q8zCMH>*%v_YafE7Dn!sN z#p9VnwGO+Nt}v-R3q~Fb0wgw*r+?tUv$wHe=_XX-!TpBI28+^I091OPEpIy)JLJy) zT$SvyE#i)bT*KM~C0jS08s^aZma(21b``9hB=^1wwyC#oeHQV@!+))g#ZBIld*mU* z6CLap5~_<15)Mjy2a2U$2~|TGfcHpH#$^E^6f7uDnj_|1bTZn}W_~NxuRc3~Nqq1H zoH)Z7Fv1s{!@4ZD*1t%!E$5a%#4TmLav`o(Z#L3hyf)PWHn?Hs;<%hw?zK~|Wv#*1 zs3gaLTNz}iSA)PpGM;ke52VNRU2C&?m^2-}P1W2tFBB}biJVoKX z6$+-VaSn{ED~-!-ydRRYRHFjS5UaVy;zF=gw{@(Pn&D}fIc=Was9iwVk{NU=x{_s} z{-d-MBlvG(Fs>7j<7Er!#{`F1BwUYkjQ$6x$O=t>?B-E<3M8 zjXc)pQdsDmxM^bkCTL6Eb`IETSNtiK$tBZX8mOh*!Psg}f(N@)AmL5YgS#c>uM#yf z11RME-T=u~GM8SVwXlbh0RXf+mSX+ay<#_W_y~RHf91cfSr4Gq3xslr{Gv+8rQK;$w zh#3wfQmsk&G<~r|px3bC^c!MZAkD8fXI}m3=G4qv)2a=0^BBj-gS$*hyOogA?2i+xc8axhOwN*DY9*A!9=+)_hM?I&Hf$gt6^MXM3Ma|k`TV-8*hF^YC zIHxn~ykqioE@~UBmHXznpgmG+pnWCEni#4UpF9h!n8x$m1Sh}G&gSh!uq&Xl=+Ea? zIrq-Ze2b@+U;fd~yH9x*ecBSJP9oLILvt}CS6N!oyJfdsct`inY>!rsBC`BiMNa#Y z>ffE`*PBCLXwmeXHdWZ>0wnMy2dbzjAHc5F-fVpg5??J7X zh>^bsAWOubi|7yRWu@?Qz1e}lC&hCQ>T5x_@ALegfGiJ<7m~h?Dh>_6x0l=(3?8Fs zAh@Rcq~=`BZx0np5=-$!`VY&YHB9oSnkI8R`{JBZci+f5&52PvZ8#YOglsd5r%sO9 z0kA$VpyGtl#%Q0Hzg6fz8UQ{oyz-TXfF`fHpES=aZlXm39Rv(JLqY39HkVy+uz%WP zSwdFje-i+4eB!c&1WYxv{UJ2GtAR3Xfv-w8^ICw6Pa#Y;;nMnkwy6M1US3BDvwPHl zMDJnd#Bmw~n_9XqesyeIcwJvP_^pN$sK*c^f>U%#)s5fnr0J>~vk79vf zPJ?KocB6>qKIoFx3D97x+9_Wi$?$%7dv?#GOulgFJ6Vd{I{iW@XR``uKeo?GEVAfU z&1Hr~kognorAkZrh-m1`1sc(RaQ2m(CF_7?sKIS94Cp0i*jhou%G3Wq5Qbta>>x~% zI(jP51vE#$6`xm+S*Z! zCc*9%q9hVUPlV?WauZ(<+{G>VP<#|IZ0wTSW3OMiZc^?*FuM;AYfzM15|9SW3CP=L zhi$e&xT-Y>m96=R@_^pZzc{S!@;rv_v*5on7h2~SM10_O;XRLq9{J!g5M5C+7tTKh z#Me5L)s+BiP+fEeAl&gk8nF35QH?!GiU1Em+5~K34hq#N$+r!xyIZV5vZ7L2w?C~H zVMa*Y7SI8%pyNw#mSj-D362v>gpC*uXb$hx6MQ7$C2Qy}1PLHoP%jkZPFyB6^ifZ? zWr^(x7zQ&0OZCUe!-61!dSSlYiU@-Y{+|3(7_Gm)>jakH%}S3h-~beCDSrBhF+Cls zMQwj;6sksr*E9zOv+^M$D~PsK?i{JH09Bi?PY~^OfRzH~*EJ!&rs?M){Fztau@F1r z9?^~F)SF_gNNDiK5-Z;;4Y6Jd+*lW`q+)Z&KT6(Hl`3c!(ZmVh8Ww0Y;hejrlF)w^ z`4StHydLxdhsHnHUv)JPJj17mq?M4(zuvP9wgFyU%NjZ54FI!XH`SPM9i3G92qsBF zS(mm+p*D-Z^5pZ~<>f)SwyuH~KH&)hYCZ@p3f;(d8|1*(3E+_I0*d1P+5^K0Yw?!@ z6{J3-nE_%1(f~6c1$YpO#{9{+K#&{d;f12SzaL;1(ccvvYkg(}dlVt@BvJ3>78OTz zIMULH`Big}hF-(2WkElJ8d$W5<8?ySrXSaQmB~+37x((HEwrHr#qLPWe{Hwagh{30 z@lu{6l~@ex{{Kpg6wEb7d}QDmswtW$YK4^d)wfhHyD6q>3)h`CRfmlnZz`Ep+`+e0 z7sH`Q7|$5GsIU}UTv0XMTFg|tH+`EXCouK=wr8j=Z2lgYse;q~V``!j3d>MM`Wc#` z;#{+up)wU(`JMKI8)qsD0W@+nLu^X!n5%HKFHF^H=GB_4V!K90PxNU0v{SVlI&t;> zksxyXv0KcjhM!!`O8Y{4+p6W%(kybtiQim&AY%YDG}G3S1t>f&#nuAm`J>g8k(5}d zrR>rnvL~tm00;tG@eIN^CIjNXiEUZ{WD4*1s!9>O{FmxAraRPmX0aD)M&Q{8oL7xh zq1SHhzh#2r#>`b;C5m}I04sM`-gySCWGJh~mp1^AN8+H_qTzXtqF%jr+jB*IgC~G; zU|Y=T!#`U*%Q*EQ@Ao%aIxTVzLHgAQ)N`;{N-wX z{l}Sx47F~Z_cC1x`IDAC1n3!OnE+0^t{B1UiCC^aXh^vz_8m53GQ%jzh_HmoE0V(| zUVVScSl$bJ%uqU5f|6xRSH&!42zQ@{Bw7F`@yjj%PUwev1;N8c$gfJaUkQESSqA1=zaAK4IoPASA-EZ+qcGbR8LTcyl^}o6v zq*&1w5k=N)ER4;!lAa&dwW5MPd|6|_)o%}Dd-k2U(Gq|!tlps;udPUC!r-yetmph6 zfoRz`{DP8}{Ht|8uP=SOe>XRKd!1i5Etdp;t#!`c=CE@!FBW_C>8?8IX7b|NR`I_7 z{bhfr$4nqY5V#KSA$ulT#vzQBRR?$)VQ_h7<(aYIGRz@a?QuI_1N0v8beY=uqF6gz zyI0&@7F%$Cj;QSkaIv@rxOsJgkw~q6`QDiv)INazwhm4#zjTpEdfb8FE1#Fm1gCa4f8oaEX*Krfm1Nn(?er`S6%AX*UP;tr2`IxUPB$3iv}!7P!HvX$Qhd2dNAPr;Q+!?;bsX& zSfgPGR-i0BL*QI#j@5vQi|-~(5R%xN65me1;ebUe5iLv4C?s5$&jRfds+x8lb~V|7 z=kmiiRO#0T;n33~ii%?HZ|IQu^=8UA_8as7Iid$Yi~!)a1AgmKm0L@^p1<|!=&k#k zkBil8-nH<8k8f3EhA)~#h!6+D&p1T=TqJZs8~+A8K+(|h^b-!LxA*1I^Vdi2-d=O< z#Bp(69DK9!+#eN$2Lyr;3)US8!KhKW5HsA8F#<@UiHh@aM5O(ql$Hni1BZgu7V?o( z;WL3wC{Hnv6g&@@xV+AQ$UC2f3nv(UIkh3;-rQN{Qt*i`oO`Ot(i)W28}Q#+sza~Qn)xe1xba7>9KQSNQ?j`KEg7+a2y(@U*Ckr|MC4} zMqD>(M2y7+k&U5*ssm7JCU6*w1EVc>slpP8lC5R`6i|kYk=HA8IGnMUFsJ?@sx|8G zPjJbXhzQ7+Pq52*?zu>bx_a=$+XB_zz(~6=KsiDy8tQ1+Qi)FR#KA?;1LH6`fzT|$ zt%5>7M~m{I2t(_=tA!u8eXzUUgC)np103A+q2Y;jqRF7Qyhf2||51 zd%1J3!sY(3g)7xyt{BIXO@Q4(&^lH=xtR25C__cSuXxs&_-iMrgj`VI5wjbgM==yl zm~1mWLPe^aY%+qVm;t7%87fnZ1uZxhki|buPUb?@E88KWg;u;>*nD)hW%?BO$?V&~ z%hy-Gt4f>yJ69n$q0x~k`7G=PsWdt|4|DP=1X+ddvL*1BO|QHH9rrL418XA^hW$48tTgEK?oFsuYp zWFVe@0_dR+nLS?vz=boeTtl7eP=JgQCBb3%As9K49W`S(_6$ddVWudqT}{Z*$50H& zDIKNn0)4L(sOaWX)El#fcWpT4=Kkq{pq^t@B{PJ?VNzA&`amkV8)8drV3h@>iDMLx z$_!laRJ&$2O-5%-?%|Gy5HA4aX=F=@x;`dL+DEI%2_tW({PXpoRw*J(CqAlN2pEdd zV0d<7agyFq4?(BjlT zTm4ssk%W19cwJ7r#Xoz%u=R-M*OnR_T5JAQD8Zva)$!~ZSgQpPfCB_238vN#Fu7F( zk3`toU)A6T=8(O+<)NF_kx_aj zy9Z}SWYsOB?>2BBb9BU8V12Yk_^vw`yYuWT4X&Gd$`z8AwB*vZC;843clV=OS=+Xk zu{D+RQE%^R-_6&~?#{kv_jFDAjt~FM^XsV$uk?M* zc*oZhx9l*@Bwe84Q~9bYNzl!ZUvAG2FjpC?Cy5^R?IJeoc7 z;qz$czQc&WtdhTb^EgQHW82S%QAZAIKSU!YfiyoqI|mk|r_CwxVR5&Q_YrfK#Q4p( zLoz?*5PK}_ZR$nwlRjG~Y+se0vSfbGmzgz9;P1>BHo;~qyNDYgF=OQ7l^6Ev?@@@4 zJ&B?pKZL)t*(81PnJeKFg;()%qv1`+V13v#&JPS#2&5y?j1nNpsB01zqQG?pDOR&T zNIV9#oQh2!K>!IBL4vXjkjH=!o9p>X1ZX_N>@qh<)gVM!TJeKI&1rTis+i&5IC)jy zrWQ4_@6WdvvWH%qrmY1Y+$9BxfYLNH=AI6^LWANmdZ`fxnT}xjN@HyLp`Gz=N^~tV zRetuHP2Cp_Cq2N%jEe zLftj;8Mc&oRplxG3z}o(o10Ns8>U<{7}8{50+CY2Z`U~*jIGBls*iK*(K*`?%9dREuZ1iR9{!;tn0gDAJT{S9z(bpjq5#rl3c+p#b3Ve;tQ?#`{2=dNZj zdOe}pa%+{V?i2CJbeWv&RUI1T;!pRND?dUqj-E3aq6HplEvGdC30h(DPvN13?yN9{ zo954HmTz*>iJ*+CMJS!?NTU?3)gnq4n99v;_zN45XoK)LTqCT-g6LSheO!!?h_t{O z(9`5d=zS6vq9Is$wA~XLg2%PzQNlaOjk!CxAe{AuNy^e`*a8D#pj6GpF>jV$k5|H@ z9d9rT#nlZ}B6B5q_u!Fvktz{+HEdGC@nC(@&IgSB3eE)&k4Qax6`!Xgj;`fOdW@h& z%kFIbjT)kr0&kU{6Qt$I0;70r;eE;BYBTFOOJn0PmM?e=v8GifbPAhh3Ps)h^Yrpr zplX^6B*Q8ad2^zs%mhdGU%{-h@dWCpe{xzoJEY7n(^%1{8u_?xOwa{bD}a%Zj0Ykj zPmoX?*f+>KlPv`t206UQ5{b2m!w5RI$(BIIV1yj4DDbO}fl14i84Q#{y)wNyv)P^G zo`^d?mJDX4G403_oVqo??M4J?1DNFX`*^8pL{o(Ufy%9tMq2Th(@C|43 z*pF0H@xvKTAy@Dj&BJs2>rrQTu5mB~VuBfCE)o=eqyRu^09EQiiiD%Krb+!_96PX{ zEAnr3d?6ugd8jaNlWiZ&-KaZ(C{8T@9#?f|)5!IvbI`)v{PU#*2r_FHW_#V8^mrmb z9J4*C1{$C!?sY3f+7vSLA}5Q0O{``j&yDz~atTU<(2)56iq?qFC!vd;`3|7u>9ho9HBK=15D4okSFz?gRH)L~M90+KObTN_Ldn)8WIR1)u*xodF^k zppPLYf+kccDu~omt89c5lA&-D z^0Y=$j?xNBUATraNKnv{>sHaLPel=cp&aBd8~?}RMhWdFm*5>acawv#z3xJRr+gW` zXLw|!xv_S4&Fd(ey{oPpI>14umeiKck*5UyAu-JFeoP$i3YciF5}qS@r>Mv0`c3(V zAz}i;Rv5FEL%s>Dd?1~v5$M(*yhmkCzlFEukc_S4Qb+VrB5PxFiL$8zX?hb?G1A5xm9D^lJxZtw;y|B zx1V~$9s=1LiEu0#+c)+zesG`?312wXX9Uq$r=JE?fwm{bJ6dWhG_Vq5_!9U7Y>$ap$ocgdB)PzL{f{VnQqz3Fyja~UXvhad$UcV0Tmnd^ZGm&=C zr`A0?WVy9MOZBua&29+GL^BDSCtyYyVzIa$WCH6as8te?wpG`^O=BqTt}7-z`n)N3 zaX)XvvSyuJg>{dd^mM(R?W+tvK4?~BS+`;KP<_?y-E(*2wE}ltGT&{g@6+&`yDQao z$Vm{6$KD2^to={5)X4;nU-(MtUQ1h308bk{42xwSd3<|;Ecg;3b@R_)&&X}dI;@j1P*%20^|^CzY{VQfwA!IIdfnel@!aZe)8L4rlYWmTWDLCpt1q z&t^qASNi@h~8qu?~IE zO|HPG1Jn})80g#9$kZvUJn*VXbRt3vySM8a5J6Lb^is9zk=6u4vHcYWamK5OnQQn& z7+rOiBVIt%BNX8^E0LTQq5D&CRJH=9)?~dm0^lV>VOLCEf+(#}OjT)YENYsu`a3~> z6QTiMiF*bSaR@g%#ePwRVFn*?Bgu3E=WKWgSbr!V@?vG-c2_`Z6c?I8gaPM7ud# zN=uV1AW3kiTo-S4c+~~iq>;p3AJwzMT7);|?E>g-1kXV?@&}R&;GKxv1O9e|cgHqy zUpKPHpa=P*sayhv>wku~wxOKyx;2g^59V{5Wc{rO9V@tTB)&dmPM>Mfo~iDdweNko z<0_fqBhF!XL$` zC#sNs1^$4LsKJpc@TGNt*@-|9U(cB33~$5BV887x8SaG=U|$>dM^m1Z^nhdwPs_e; z>9vmBE^=pLcHH<+6iPoI?p3nqXe)5F?76%J&Kd9Z(>7<~Hx)6bV(gE_!Un}r z>J*54vaJ{%=G7JHkdw&$VPf17>HO0>XX3uhhAsdP7h=0U@3(d5c=9e<7Ga-@BtyFc zUekQx2+vTA>F4n zP;%I<`oJVepTnRp!TTm|35a!|iJkdCmRyZHU3(Bop99o)RNSM?hbX^@KcYB5jgizaxAMwSK7Hmn5s6}_nvI10muppF{Ds~yuv-3E z+74JW_jm~D6`?v3l0W64v8<{f6kHYR@Lpi4#E8Z{ab)tZGe@N13`Xa=Xy)o)YpK-z z+`LN2=GE`ny}30NCYXn1WnNtcRB~Fy?_~{sMWv*&R7jb#!{Z-~tY~0Iwg?M&-l~e! zk3=5S2_dJHc<+gGG2gmDD~ggPGGH5MEqKF}xDcTC@)LtruY9XZ)FVzAn1Vv@@(O=@4 z<07JA5T>S|D;f&QOkg;fuk zO{0iX;hGo~u*7ek9A)5fwM5tQ$URVY9uK{sc*#OFi|HTP!jYhKO_;`5XaYty&AEra zzXyF6xWDl*gmVBGt{Iwh6Bf3ndY@woU9hT`;y)bNtt>2^fGj}TSg$MDTG*GoHN7V) zJ+K)LdrZuP#wgVEHw;yLHI!&>vzTxlH^~x(YB(|V9PfMnNsj@1bFi$vW)a4??>VGD zaf-!#E2NVt5TfB{hQ>&rYwlKKVwVN!P2%KC-T;ck||(2z*v20 z`BC%lJ+sZT#IlyXr6O25h<~s9{dA4Lyt=~5!u4og0b)ox@zlh=Io!0{qa+bdQyRgV z)?tE?pFDVF-YqB3OnV>JGco!;nqNpp6TNtfDx|e_fL-xCbHz8VA-r-ZO)XqvRxe{`$}BPOn-UGZ-54`>2RZvBA!-=qdWZd zSLFdO#5lWgrxmaF%~)FX_Bhe-W%#m)qjtGUD12-!_V3G=%HpIk!F9#w=0_GHL@@KF zV#4`Lr~8Y$O{ylBah&fT9i+b5a=46TbpFmq08H)g_uhzQu1+-eR!i&zZ8x4u6UcV)WR*#Ne*`}2f;&4gR_cF!$>J}MorvNLWtJS| z(NyoiT^0=|lJ-FQMJxzhf|*s7FBOj|ZN@}oa7l8IDT_mH0aR|4lq}PKF2e;=Xdrrl z!*KFfEUj%3t}T&e!KmdsKN;F;UqIni4))kdv9WI0v36BN91{bPZ2)~gE@F6`kR|aT zR3f1(1Vd%GjRQ#5OH$>drZJ%OL$nj35}~fMm+t#ZhQPTK_qPYfLoq-t5It#^7hfKO zZ<$>2r2dxZHO?Avch`<9#ENTis)t8;kJ>=y(hQ3(Y}VK#0LUx1MlUQ@2jjA6 zK#Vp4N(P5R;YeZTsalEZOCMdPz%*4w6sDL>Re zb5GXhNnb#sBfCypiG{b#K@lNIS2kmAY?|n+14B69n;Xabvt(8dl zvflS1gHGQ|$;?M;UmtLZU{c&Df!P7BG>|+xD}hG@MV8eN2LSI!0GX!%<5x7RIh12h z!6~aL$CI5J&#)3M*(xHaX;|y+(#5DbDe3`k257n83Yv^IMm2L3V@44CdSHS7lqV48Nt2`rhXP7i z(w;?M_=GTQ7-K+uN#oJvU?*6HZEi^Ppf=_x`4AfA%8hCkWU7>Dj~6WlR&JL|{@x(4 zC)qsm8~U{%>|6ryR8jLdgL=LOK!hZQI4dOEFdu&W%$4BbNJmIM<3+9e7m$}YFk%)n zcgFEHV~(?V=>coIqB9_=HFYg z=p7lhSpEX;MyewdCP5Dt-Of$IBp_6GKzOPvLVQ}&m_u~ds|TKVS|3-K3D$L-iI7nf zXa!O>5()U1NCFj^Rup7b+kHTATCry_lX@TKz!g#(p#tY|;+YGbUB5Z++G}e4J8W4$ z3GcW-eNky{B}J2iFBi6>PZzc8Ww{HisR~$4;K*@cd9R?qZ32pR=-}2Ox!HT7WF4qt z3v`Wc-+K%||8p14-7^agnGd8y zNzly`+48>Iw?|FTjXpy1{u+KW3d8OdpJwyGg^pXR&{ksX_f``b+>gc%EdT^sa|T5C zLuEm3<{xgoAJP4F11!I_@2f~W9B(aNOhr&EBVMr-?j%&>C}imqASizz75eOfy^NzI zaj}tuWXE_{mHVdJ*QAQgb{jEbY@SZ?W*})wa!$GL{VvDxC{Yjy%YcsE zm=QQVpwDdIr$A zX!vh^bPUqh5jh4n6@n24cBQ~SH*9PHt{*jH;OuuMHoZ|XZ9^M{^6Ay_2Rh{ZWPXxd zit{SU#xoMHci)_uc3;xFMYo8>?7N8HUPhv6egVBVb}I;?u_^ozy!VXaCwJ0!Gb7JWmGEOglQ#{2@FihcJN>^xtIG%0xtir z8#L0Y_`u$-#sm8PI%_=_#^&DY2BQnKf|zYM72m@B>~}HxOM=n)+rP?~p3VfgsxxI( zR7iM5nlVbX9U`J&aA#}zPSkXBrw3>9cQkZ>RD_qhArY=r%5g9<{;^tFD&Zl(Nd*Pe znIA{|<+0Fc&EG|htbDm5(-5O$lWyotVWw4Aif1?jKJ-6yCyl{Qw|x5sgMkU zO}~~mqxzxsh7L^!%LSZ`YbUYm4}3s83=#~dK0@cizyfp<5<;EUUN`|Yfcyx)!`Nn z`r#9)h)?%moje8d?YF~n)HrKvfyx&B-FbiX?*-ZL7K)aZj-nao=s+wu75vUuJDC`} zVktJyD z?$LriiH?|~DxA0vk1s4|9JqNT^Q45F1-)lwBhjGlM*t{KZvmRvnSM;&6Pm||(U?6M zepHp*KJC>9ZJ2%#A%NFq0=4n(n>EwvQ%ZmpRx&B;p+0Z_0?ah`QkNoC5>0ccP5$tj z?U15dD$1rt^{8>GMHwZQOXfB%0=sk4~O&=sZ{{1=n5?SG( z3Nfqh=;g!U0w^8gNQ<3{2B$wj|G~*St)Rxqs|`BoYo#VVb`5vHl4!6<-^DGE02lwL z_i2Lx@7~TbKv7eO0)0Ewv?9W)_-WdYC=-STxh@V7@(o2Sk*@%f z3;P;5sl>;8Jn74hkq8|&Qf2@W6V^%^PO92Hgs9=!9}F-hEs|N}tUA>%t!FR=7+lbE z40`aC!4fKHlbnGoQlcCecQo9jorGz4G;tL48*t_x&CTR8zr2Z&hsMQRHoZ8jz6Q?v zaF&7mHq0{mvl2UrIEOZFb4zie6W|a$lwx^9O-M*sDdc;d_LF^NA`|^4NnV(pKam-( z&`9DMUcngn8pWmfvS_r6Cb)8&oE)d^1qa#bk(zWVNTdu<47$CSKLRW!=jAsE`>=*B zh5gGCB$?bn8;ulUY;Lx&F)al2FcE4kS%FPI8V>`;mTXdxvrZ*j+Et?Z97{M(v^YNC z&hmkYk1u|z5Guwa*-hW#78in@b5+7j#3T6yj*bK{ko1!CqoewrQP~U4#4{Lm24sN$Oym~gDYDaT(jD`wEEJ+m_rb0>kG>_ zyqLm?$JFduPCe*PtnT?eH`mZhqseW4f}Zvn)}e2GiiYxrtn=1Mlnk?%19AF`&u)E= zq)6r({tL4C!L4j*qWk%|m%Jt*+J!x+%B5;QDGNOCv^P4Uz@*E$qJa4-Q6;ZkTtzQo zL3FWJV$fc;=Bi4+O&H|$1~(O6=%X0Zb_oe@e&GBU6EXW^%RkwX#QZJpGm@(BQnH|s z%uX@7xem9W5s9NF+dfg z>Nj1*Hlg7XY&KB_uS^ zoh>Ddjf8LaTvy3yI2bLmj^g zsdyxqB49)Bki-j$Ln{D$#iv7a^T+r3>ood)ULZ<50E7$S9}RQTfX)^GwkJXyVb${x zR$U$N0FI7_VigIJx8r;sG$J=Nz;)CiQSh&(S{vD9aNmBi^};|8%Bka91FVXam%B}@ z^dlHT82FiLs*rFf>dJ>3X7Fi~^#>m+h0-@4u4_b?O$TLL9xPCdct@RH-_MsrU&^GM z7#27LC51a-y&xIv=As~xH9NF&4i$#+lgjbjJhAj0-k6^~kdb++#k?-x#!oW-a>i}s zRS3M6jw}PkLw#daVT3S~F{^~(RjSjn&0vz3e7&|PI`bKWhegF`#UT?lgx9bkd?=8@ z$MJQ*6Q{%&)j|_EBg4PZS&Lf+YFtS0DbVA-N&`j?6@vgnGXn960TgPWhK*eg4qi)z zv*{LF_l>yE39f%@*Fy{_3xIQo$;`r18X3Mq02?-P{fpG^I{fzLj29lhaeu_Hw?1H6J{p1e6{ZKZT_1NvWH&e$Mig{qGlYOzBPwk#c&vXCU*)! z!fx-6z#<7r7HBnTej_u&B|eT4xw#2P?lcN$Y$QVM|H5a4r}$h~Deqbo?<@OO0E+51 z>~ixvlo>uG7C2c*0-9C&4bSHR`Sz?%eVb~KG2shq<6RCkXW-|_hCE%5&F#jmpBEZgIJSDjzu`q^}X^br( z*%~)-z?+U3?kMMA#T&2TP!l#Xph~vfO@@5=m5NwCHEfZOSrL|+5NDdEh`2hB@^DS{ ztvVG>OVU_aTUgyQd2*$dp2lH;Gb#e@eADdB^sX%auc5(j+SrS}e(O91qZW;&JFY}_ zhCb}X=dTL=+LwkcQtv-04$0p?>macit`~Or)|EfE@6`1XF|FvIz#T8yY=2*C!x1Sf*jfDO=bniUfqw`SLN_T9wjHBB($Gb!K zs1|$dJv{Gm#EV6^S7eK1)OMU6sahF~q_L|E~J=TPoPMog9pq070arT0g-E{8Aiwm5cY(sSa{yF$O9-$ zplI)7C`>p^!6<#Ngq;`{Kfk9et&PT&)~(3Hemaw@W{-KN?q<_d;;ujR{u@1Oc{(IC zR0F~Yb_&necStf{#Cm@~KAkJ=+45w7O?twI0Re4u#-Dp~o_ zFl$|8d{r!V8OP;&QFrS&|Hyuh>QTq4#-&jF9VRApJ1!FgYk4&zZPzoix%jr=B`<5l zkJ0NIv3tI07|FHxE#9eAGkF#E9N5`~?2v4c?QB*0TB2!-Ie2K`JYWJM2tO;LJyIcf zU+#KcHeBXhCRJVW3N{s2u)GXT+6hQv0;*Fs0OSJ&r=rIpN)=PSlzzDLk-p&TbMsPx zMZKO#YG`b2kjd+BI$BSwh5l=p3*>0{_7jINCLfrB3Y_&ME zMA!X$N+= z=iA=N12=SRZ_)=IDn*0KTc!!(3Gwez0F6&Y5TH&W_^o*L{I|2U+q4OGfL8RZNY)YTjauKWHAT z3F3>tQjsAc&S4_o?hc_O&H?X6xoO_g)OAh`*wloSyP|EGgR7-`r#y}Nm7E#8r1$}xXW7D25N{LtzM*$0#4)S>o7#x- zS~BA8MXF~I=!(@~z(9$pv=(-TXDRasHj-PJL2EGRrJLNqb%4Y%5{+GbvKqS&_T9M;7S)kkN^RXC` zP8o7zc$sLdLbI6$fRQ3eJx;?iAZK>*WYun)^oOS%VBiKscsmCw4^QTbSkwZDJ@1dd z+<=@87$}L97IdC{Qr{W_19qDUjg$fi$BOh+DsXfPA%$RZJ#8 zd03Y2L}k zf#6qS()^Q}Jnbsh?ZMqZY1_Q)fDhNzQr<~%r{zkrVp2t`uM9K);#z?oM%MxGb`%}T zQ?X||o-K}PMdz&gPcP;EzeSsTkTic&5k?Ei5J0QWtujFg;lHlisZcgowH@A_0C0Nx z;B(QV6a6R3KoVJ{ZuPY>L3Hr;7F;gAO%)$YM}Vmz&y|gmW1QqPahfwuAmK1 zwdB@iUzg^_V|I*q38n4{dfLun5!wE3XrWr8VL}$drBf*;$Pb%YF>OLX7KQQtB;=d4 zWwh-$QRq4>H^~qhH;t91Q(ad9hch;uQ}3jz);hK=X+$n zgYU~7Vcg9yS@W54MA@v@?i2bvzxIwp4UC+temEwBj0#4;r9Iv82G*NXHOpxC(3d%9 zSSC}(@^f7GOyUz5_c+bL`gI`r0c%%j%C{~j>$`bNd@zwv1&|a}GvZJ#ijM4%IL0O* zEc?b0Bb6#fAQ&`phe3ELh1DaJ@MDV)fmMZ^rOUR*&jsVY9rU8O9_6x?Z}0BygWMO? zRWRLdx-=1q0~GS6E5&#I#7;)M_Dm5@fj{F`abbQcpGG!I=SL09;v8?AU}1Vgd}mpZ z7dY3zj>eg>4u4biVG}HdU2EMNkW1@NlV1G*bZTUCOy^~|eJ%Hv3s1|hj37F*9DK6P zYyh*6Z?SahVUdc(N2CX4j`E>`YVOt_NzAKqB%=S!YHp)!eb8q-iZd7a3eLDtPAgUz z^;PZDv`UU>Hm2@CL2K;RAgmNqk6&6xs(ez|A2C?9n(aVeZ1A2_EfuYhVld4pFg~3* zlr&OPn21qr;9+9mu%q-$xcST~YmN2CtOARow5(8i0)OqycWsxJZu?fLnYd@JWgW8q zvK#4=@`DDD@7i{5s`Ra(E~QKun=nKuXhL>`y7}M`l+h6ZBT=YoS{TGcEt*6OoEr4fR(S|CA|SqjB!#a zC2c2R*g5xe77+UsE0SUwdhoKyAq-@@tJ*V?o|+$cso$IT^ytEUQYh+j{EA@MNl!xTM4WW;T5ikfV;TwLn_5U0W(*rxifgbwgM&6&3?Jb)JV_T5kb$9_9`cbn z#_#4j{$u5OFD%g`@Om^{Ju0FwVQx7Jl`*>Isdz!DPsGz(!}JM(I_6M@Dr-)9gbVJ4 zOxu*W&3B?{1C+yUb$vy?B19btD zTkFnj_CDSTf#c*Mw`*|y4x&BR2`J^A|DdNWfoz6V;2|6GA z=rm6aTr3(qmTQt}zC&)PNqtln(0kRx=OTy}Q}6;tfS3uNRON@wDfAoUU70F}YZeME zg|2LV^9P47Zp98YfL8oWF%6z2$tya#a9lf)4;L16&1cCBLL_f)0-;Y1JlN{vA%t%S zX`~}WPbNTktr#MdNss%YP6dGD=}YHVI5vc*^{En$t0eS|MaI$h820zM>*mr=-iGd+BrQZJw-o4-QN)J8^xwS_MZ#pXV zleQMMebQtFz09?g=&L`swddd>sj@_oP!2uz zf)9*uOTJ$PXVyOJUseM9S|UnZG)4)Jna?FY+FY~0hd#1BTJMh_+n~ZL1d<~P_I(e6 z6?s6jP@BJ!6$Rlkl;O8Gi2#?*iO?r7^cO<$CDD)yt*s&b^6U}9{dPO{<7=}8wI-=HKeA?524sxPXB9)6`)C%JCTnm>WR#06*QSUPUV5_PKEKYPSSwW zDF=#&I3Lf{nV(iRg;x=3-MKrfHH4gU3Ac_BPj46m=_Qj&(-X;jF(ks0DjV5yjrTEK zF_u&+xKUD4xPDvPWuP)!S47xN4m(cLnxIN*N;dbhY)5PLfZ6c?LTQbda6ug=^-n-C zqk9SsGEIUe9GlE)_K=AO3__pGjx~-z0#6n;Ihg?eSg(tpGKtvat@~`F=fOdiOvS_` zY=b1!YxepLhh(fDAIIQlP#s_Zh9ok7OA?s>vV9;~=}VFy8eDNX1{1KKaoWxj!sh=h9bLwT+q3%hI6owV?bh3o0g3MV&lo)qq3f=m`>o$&elvXv3?i zB?Vv87yUpt{mFEvSfe1$)7eUmO&cch;XHWdMNA0)QSpEsnMb#5(q>@OgIJ{q1DTMs0 z3l5~9z2<|@if3gO(78eQR^{$F5dp>F(f|v&@7-ip1am+buiqeNrvdwxSR4+E5FCYp zi=6o3A&)+5qLPYtk!gjb2zRK&6Xa{f@t9*bYMJ|;iMs>rJ&3`yS6(H+@WsT{NQr!B z(yE**u5)@w)!R9cz>rlSO~tz!0Waj$A1b%= zEUr8N#^+LibjYHuH(92D{9GfOvbzL1vR=o`Otn*rj5;z`0VZyTJ$tIQMiKvXoG3nI z)d*jXy&7XtDK?fH8ihZj;0d4$Tq2u7g(G^{fvjKNc%PwetRZIRsNN8_N;kNi4Rx!L zJy(;CNs35(w8=wZdopc50^vYua-4|BKK6OUn-*{h)Kx~L7JQek%DOOfss1UB{2f#Nm^_hP*aGTMX@+?ZiF<>yeP8P`q2oI6AryLv^tE#3F!J=5Q43dN|t>dP@gU*A%N6Z<5+Q`8A1h~By+tZ3%Y$nvRc`?i?{MDvvnJv0 ztJS5G!i;KQ*h;?l&{+}3L4I*lI4YybW*UGUb|Fs7Rm?@-qC$iYGt5et?j_$-LRE6m zDX#S3G)d-)M0wmC|B4g)kNXN|zp18tRi9K~9*8c)6zQx2jNpVs%~Twsd>=(3w~UqB zzL~@n9CG0K9bL#n(}^cn4JkR5h3Nw`Hbmw<$eve5Yri(A15VNz-T3}p4C}ieE^+bf z#qG*QfhE!wFU9sWEF7T{>h{yOVQ1ex({IB*-aZFDUcSLsTElb27F_d;^jkMniDc<) z^>KaY~y<@_0Cc zrXtUsYCnh=*}$z(b@d{m-WKMTiJK-7LVG@%bmO)x)qVrxT|XY!(TN(Vp-qD!o?F0j zc7jM#XR}c$@hkp)Va4+6hhFBf+PxY;{ZoF$6iE&lnwdIH`E(E3lNP6*@frlJT5#_f z!rq=eWaexdKf2{2(49DobHl$vN2who{d;y9i`UOgUYh0^F?0rBPR|Gmn4OUc3|?JT z7fn(*9-qfbY=eMDrKwt23xNmAv_61F@R~HI=_vMihLd-$8YW9;AX;V)@G@9cxG==`k8xBV^Z4F3X@R2iBSb0<*{V4Ov}ell59Ef+cNC| zt)4fXkdzee=1g5$nd$Z{Ld>mnq=E5Q=i!FAM|NjiarflQX9%*yJ?PD}FPD^)ntRJ% zLMxa)Q){rinq_w;co|}%am9YQJlK%+KBs-M$>!hZA;|gC-K>A&vfkOO^?{QyV`rdS zc{+y?Z-|OMw|;74s9X7^S<7%Wn*wi$eqqrr%shG+Sg#S}H0<7QvR_rjSHLikNGMUBs9fQfi9B4O+*UW20>|typk{j17 zuO6&j)QTCN2|g<;sLDtwWsaJFd~)6NFS!slDWjs?2wWNl4`?7DJ2Jvay9y26wC?PY z|I5q9Hx2Fmkh#oNgEtB-lYOjZ1MhQ&vcy!I z8iuQN{-r$^l6TP`nuhJiT@CZrUM_5FNRr%Iw<`wvFvOqI5I;9P=Up_7)^F#3^KGu2 zLsaTHoKi|%Q_h!a@N`#lj@W+lQ~RTz0QOoC?4^0*a3y86U6c9kP4cA0_qX$TTKOTR zPr?lKU^xt9ghVl5Mte4KI>d3a^NE?uQJ6`@er~09BK_D!_rjb z6iOLA&@@=qq^A=4Wxqc0oZ-yDRg3m_D;}G%bErIumm4}rJpMUA%Sur(8Pg9yYqI(O6L>v7MY*+PN9SvM zj|(pkV5lOprnRK!?wCn=!VsU&J0O8*8&gw*Xp@y<&{UQlQB%vla6(syd}c4F*+@WO zFF~E3D9xy^!*;n9Q#ZG+0p4j+*hP?E{s(?lo5!=JGQh2jK&8Rkg5aa<(|A2ABA1vc z8rpE1vb0Ad>8@1vY`vS~Lb96I*&+^~Vo*bMnr84WFk~I22et1D3?fmh8TtyySVTNs zR;8ti5OuYnCa)ozB>k2p-jR*qZ~m!kE3Yo=edM7X^0Lk2ymq4*N}lJJr_$^Ru?8sD zGzZ=dMu_aDnl{$kZ+05trwLVB0GB24a?gQChj%MTMWOiG+FL7 z?}Ik|xhDfT^UqZ|2E2yNGch_V;D{%3ED>zF5>CyN%g`qHOAGj4PQLepsUpdEu%LOe zH+GsNgB3^02%h$=QD$Q7?X5!!yOt%=wJm|_YpHz&Nen2I{jQ>-wtOb(zS#ga-eQF5 zU!*?8mS2ag?u7HO_NekrvMO2UI@<}n(A%V%9^)uSeHsHU zQ)?9?BAcqnrq)#})+Ja&mcIQ5OTmB)y|dBXs50z#FXWoq3lT|DFD??Qj$} zl%Mw;eBFA3%-t}>w4Bfy+Tlp(xMOVGgy)aRrZ&hehJ~Bkx8_E1i*zAByJ5=x@uO%{ zkRke%&~pYU%E{isglL7TC4wtMGdE#EQ3;K!(}i&iY#Dkey`2qGfqc+N?#ONGqZ<&vgkxqxqi7l3qnatZW2tR4vIX7wb6#3(L3J{gK zSk<<|qIJ6OlmRcF(TpD)$VxoRLdaiE2+QEK>+8w^qdAuedb@c#^GouRUk>j=jc408O@3~6IYiwUXfsX((A|- z<)Kb7M<6kBHc>d=`YerD0Dw7Wr%o65D+L8^ouBfPDI@C!sTizqEw=pa36KU}8#+L-Ra7 z@th4pwklMw2n(*y|J{4sai-;G%>W^^tqHxa9|yQIc_B{vfh~4x`&dd zW4a&%aZH9Pbprb57kBTZ^)`n7W2H|cA+X(4D0lK2UgAV$&A+bsqB|= z+eg4+OGFX}Q^?3fAdkhczr#*`m-p~5g&HUx8NRa?Q58yLcqZ-(6jc?UE;qzY7r`(# z#-e%MpGwq={RoBiMTnj*Vq-8RXF6iDDWm*zJfvJJraMih&$BR0xtVEDr8WdX z(}8Q`;Y>6zMl?h=ni5jte1YAF+T@^QgL5%)U1@Fiv-)t928#$}@)XHkLxlHK@n zHAiUdY_7zLqgz%PWvDff<2e8Cj-G1ObDJEo5s}+GaG1ZLLcJ1_o7gr%pt)AE+N%R{KG|bCD)tM3K}lH( zc%HZ>o8D|?=+uY8eGQ6tA&|$6w3vvq@LLf-RnZ`t>x>z^EOm*@h%w5=Se01P05VlZ z0AVXLmCrG|`+Kk1DB0vNDX4sKOy`0dBFY=ukNjm8vs!-p^gg&er}RfZlqz;ry$%z8 zLJAG5QdR7r@-aNC1u>)7@R5SC(qt=H;4Z_SNHGw6Krhhd&V-2QR1FCHRIx~+_7JWV z${ekV_c!u+7*gW^cr+szq4J#XQKu1qDQoPoJ=*5Q@q9DEm#dCV==a_}kSzi1ORwrE z-5z#eI$ElR$$e}|#A(e*NsXqAl2RLnuVHX^s1;LJ+PQc7)a603Xd@w39SlYHWl#rN z4F$-&Dyh{IIzy({4xXb@2dR~qp6&nYM(KJbzHYsnFnMNd!u3+=A`tGo8E6&4!p8GO zGu9)Q#?7uMd^0lLKmh!_oRc0VK38{sI#Zgu_f_Try@m?H#faJn6aJDPJ~=KhjR!X{ zHuISnIaApVBC7&@B8jJN%BAjCEZ$IL)3XKbtroA5MJ|f23t3cdzSWwa_p1^X5#ncb z>3uRMxSo5O-cw9ti1eIHhOnE$VvWt|xp>~2*;kZecO&ks1W%}zmTdD;YK*m>IbUp9 z%umwM@c@WR740~}a+UQN-qc>o${)pu4q&IqTA1MK(db%veX{C5HJKc(ai+D>#-sB< z-t9_!HFYq#ttJB|={W2|c;#)==H*q&)q<)9ccDkv8HeBF?Fv{yD{y5BT%sR5 z+xGGJ6h0QLN362gzm323l@<^G{xfHbgjH4EleNaPqP0a!<*5_59(5_JK!5^Zbz?*l zc#9QQNh}$$2gt2aUY!o_PbhE#cA63fh$;eewILJNYbxj{7Oy}FIMHMDcnyCl?*yIt zh|QC2ZxA-x7b^;%7B_@925W%|YNX{`uzE}VbHn&fO|y2={w%l-JzX&Kmanq`+2uCB zb-a8avfucQN$)qImTnnBl}siv$v2lD_)IjznYQXCFU%vIJO6ctp{FVJ1F4d=n z|I)NpP{i2Ozk}bPZh)qU#!O6>>R_`^{#}9 z#Edrsy_a+^1;d!-ArUW_gibK?nUpo%V~g51p6Trc zDVPG)Rd+;fLI3i20VPA9Ovsl`ot~UHBVGU)Fu6YIkG?nGz6CHvEW21F%2qh%^4+>Q zZVz-T=ZhV?`_07%eSB$M+);nSm35iQ}Mw9P^Gx&Kv?lb%{)k18D*@oC5@6n2m(aX zstHG9rZymd)y|6O$byrKAM>{PP<5+)LO?0Hy+~oknCFGmKO5;ft)IXT&`lfor79&2 zPW*|2`3bu;up17AQ0;Tk7L)K!U=|$m021v|PcEb0xIZkUOT0>?kb-ZFp#29S$;3VW zf09{^`5!W?iC8*+RWf%HwYPP!w==hMCgOr+6t%apcT#mQHZ><=6f<|VG&NU|6oF-w zu(WYDcLE*~RTDEewKp?|Wt1|v{9@ru#Kz76%P41V_r=+Qh?$**i4&Gl)y2fw!vS~# zXayh2qF>^8ZsIsIy$8?2Lp%l|Mu&n2Y?I>G6MPr20{V=MFs&w z2Kg8O5CQ-o5WwF4(cyo8fq;U6LqI}713L|D(DVra3IYZO3JwMV0S*pq?G5}M0FDfS zLd+}-iK=W2MdFCY;vbg>O)65?i>@+#MaF946aWK@fr*8ULry_SMNI=7UQRA<9#JuI z2}vnw8C5lP4NWa=9aA&&&tEJot-d)xAOwM? z{4ZCqaYDaW+PHYp)2IG)bA1sZhBCUhmszZq9Y{`o*dV@ojTMROSlr(;$6{FJN!Vx` zhF1>2W5y#C6~en;3}3)(O-JB3xKwPkZP*Y|E6>^Knb2Z%;xT&GXf7xdE;+9Gwp|z| zL^_7skew6S>C}aAv$!2mP^OBf2}fm@yWcQ8i{8E60{18?|D!GDQhO*ml6k0y$ro1P zVXBm?jFQ}$wT~wVCp47q7gYheOA8N4ZNFNM{nnGb6E@aUMp`0)oa$NF&o9S_4*?b}GmT3?N7_UF7%CvWR zm1r-HyTog$d`6b(Z>JQ^es5|4C;^#G4`?_QSZ0c(zIAV#cZ*R1eTO1ywtq7sQr!pO z^r4&pW&vC4D8;C9I{7Ay`*_|L>H4lZP$->ps&QW%IpeJE3hT>7_#vNV5r5%v^)j=h zh9Mgx7JtSQ*nK4pCFVKiuX`rdC<{Jv`JDc}55QJd6}qJOT)})}OZ6;Bs_`7&x$&H@ zVII0?v%<;I?H3pk1(tQ-@{xyMztDK%YYQ z!N2VLmMAYq=E&U9^jwF;y2w*?$mkqwGGgIf;13@^g$MTHv~0sh4bNW^wU#Nv$e<3a6BKF0Kp zAs2^_ax~AvywX(n9!QDrVx{3Tbj2M&Gv_gW!4T;&1VLk*87-9imUQOG|RGeIbh%gHYK^vQ&7ZOHnoP{q}Bh2BuR*>$|CaC zx{NIDvNP`Bis+AIAo4q%G@bLkKmAdn@a?*ltAn?H-r>0IR#+TOJu^=nO$p>*s6ZgV zy$j*Ey?G9P0CK~-wYqR;>2hbz81h4H#%+R{ch@D{CuptyCiJ)_@hm@M#^^PDmX3>+ zZgd`A|Mun}NORPPugvbvz*`I2y&fldReSn|w5wSX!uy>7TaC@GNQ+==5vq_c8|zy2 zc(#ROHa4$e2x;BE#`JNK_igQRI=e~m;TLQ1JC{|*qWTT*GgW>Y5*bx~IN)EQjOGk@ z@^{>bvY+Hd4LAub-0Yez=isWn$y+TF7L^;kvbQH+?pvo;n`dRjS8CrV&Jq?m^N`h0 z_?L_`_cvAA>}9_Q^G$(k3Xo2pGmwSs+$-lB)iY}>MS8KCTJYUbG|^5F*$TP4X+(%O z%66jcNc+y{ou|cxkeRCp*?e1?V2w`NJiZlmELokjWtE4It00S-@5MvSz5{^_{s0gm z@V4(s*wa6Ug#zP73gAkPETwS zd*Ee6>g)JQc|%xaznE=E>aI8#_7yhn3n#DYOXwvdfA5|T`VrMBnKcQMnGrN;3wstd zN2|fn>F{)BI6~51rC1LR1w$J1xx_MlqBkM`5ho36vY95;%@h%A|HTQ$gB^5L7ndr zNzK&X*$t%T_q(L|yD}nJzWb*g(;?gsK+R0uH<${x*q=put+&PpMC-1<4SPNSf>x)e z!PoMY=>)Cz)mp{qOHYBN8((u?j!>T$&@pM%fkN6rMg4dThM{fv=Levdx10tJx5d74 zr_H|suN=#Xg+H1%I;5m(p(KTD=d3TBDi_H6{w3HRBxA@KUlv2(?zx*{+cHw}jX9*6 zGkTL68{-qea`XNa^F4s(4S=RB{HJWGftDa%>-H=3tcJo?w5M80`;lBN3%xIfF zl8U~rOvsrnVm}H^=D#DID9X`w&Z)cWY4tojJ%NRoKL(s}S{%J~|6fII!219M-+#Yo zJcScB^+lzx_qoyiEH#1VY})&9UmZ|t@sH5vPi)=nYS=qu+og zLm{*7M_K?RC0I_|=IpgV(h>T&`>xE3YtlnY&ux{{zj2}kc9Zj8KO_tMDhR%al=SoS z6G}KYYG4L61y)$PCmtNYljWQvjz4|?n561u%vP#IT|H(Co$Xf=Ax5z8J$pC^>Rjrf@Q{G0Imdv;R7maU$wm2*Xi zu_FjM7}C~mOey#7EJ4yF;re7s!P0%j2cT(t-sO5&+SB=qt~i>e@ZLYOo`jsXt(}ZY z1EXa|Y}^u4vSlT+U3E96|Fut3=QS>6o>IG-sD(~_+njzsnEOd&%lUaxyI7y?8NX<+ zm7cs_X6aLvp8H)uJ5-SoObul*=`cF*8X@xVQgC8-%6fM0G zhD3L$vM@6M&CIzv879B=N3^>hpGv8-@pNKjpb*MmLAoZ)PCNEploh?*xa-hl%JL9l zm+uDln=ipd`H2S8i3ZAw0!uwS*t(*LKvI^}*P(TV4g%7XdykyHJDsdfkD#5Pk(nR-inG#ld{_W4nC5kN5xxqx<|Xc-`Mw&K}>_B0_rh2ytpY zGLPy|DEy2QB;TuD>wZt*V^&fRK0`V`kz);ypT>C3CbOkuhKnQMmT9Q25#+Z(8yG^n z=jA&|~^MIwfSECkPZLsWpc${3Icae{7w5 z0}2$-|I7tG2C?X9hV3DF2Qu_*dK&|@Qb0K-!-KHMdj8Ma$$xG{GkGkL&^MH~jmRh! zw)nnF`O+P8J7}w{N>xV7Dx+>LVO7W}Nxzl#<(wl_zRigtcU#oO?Cv>cKgRRKI`Eo5 zYACd7xN4b7OS{*$1ncV@@{#1zv3_=zH)N4H{(1u{USLZvRExlU7PVl2Zb3V~48u~o zA$&K~JcdPn_|mP&Kk?wgcO&VqO6MP6OFE*C&=-u-21t(bY8072`Yf!o=?j?s2s7uH zj^75DCSe~m{ZGv+pv?v57zM`cnY+|P!+$8uM4GtU5ove$p86=igOc7=kZ|jI2`}N1 zM%&x=UmXh~#s$x>886RM4u-EOea8}>fU^3X>mo)LOoQRkDhK`p05zQ@jvl!6rr)Gb zRXLs!;e`B?n~u4ku!i)i>STsRMN<;pN~J(~Hv0&;Y6^(*|2a)Rpdo+Ou_|K_JCA4B z?vpnl{&yY7Ial}1>GrL=9tP0fq+-38aX z`i9Qhpoca7FGK=rG?w&GwK{o4`Rq~ACUZT=_u~_!Eum`8KDP#omAN+dqnjBCF2*4| zXTIzpq~Y*G!?vt8)}@peSHg^U17Yvecc}Z;4IrqTa^L=^L+TD8^oknOjC{)Wm7BW2 z7!X_f+;9DLtc@(lx2Qkvk5}6H1@;V%7Z!~GlwoE7-$s!4Mi7(m-44wP1OD|6o^O-r zO-*OaYh$>kUJXd=W_VYKigU1M7Jr?d@;|fcznL`tu;u@!<=~rjLDPBq<|_4zdhO)c zd_v6uPs~u870=uRjm)oABm*@Xnz$pQM_FB*=4{fm(3LF^vk!oUtNn0y_ngMP0|9Ye zM!(LSPFH4m@(t%2*uKUvjbtA7a0%BCgzK~S8BbKCX6%=-L^C@q(#%i3$l9|BkK}DU z*Nr4q-wUo}ue_B_!l|laxc)9R{u#DAx!JoiQw$xP=)udKiX6ZPRY*sRJIQd|-uQvR z?>(?jt)hOhHZ4d>m9ce&*_F#jSK@gPNGcNtIHXU8vf~R%G&VQS9khhmo468w7U@a( z8C#1@Mj*}oyLw}tEE-(8=(bQfB*8*|coD2f8fd6KN*73c#>l=b)@}frP7^@m6{gR1 zmGi}MhH+>}{L0Ij0QdlO+5d?${EsW_ANRpIlWPrDe%d->xffy)#mspvLKLp)xvLH^ z8oMqvB-Ku625_(J&ergIJ!|GINQOC^FF4QQ_%WD1<(V%1CKP=qNJ^68yp(kI#G(^3 z_GI^gvEM(i4uA&73lw+kLRiG(o^FCPPiL*i-^Ch+Kx!E#jA?RJS4vNB=@XJ2dZk4V2e?mJ|7TaD|qn3k)FccDS7! zDenWoH-ECuHb1>TffAHyRyhR(%|HLsrTsr!^8bgAQ~gN|9=SSCRJO$Vc5<7-F@3d& z!g5paC_Q|vbN64e$g7%1Q3UVAiAtQPC;o;iEm0Ptv{gQwT{Up$)WM9SPEbq=zw#_Q zw49W{n(*2^q5U!21ZS%-&QN9O#HqZln0Lq4795F_l$e}C+s276sm}lXcQpoX`y}Kk zqa~4t4gL?Km=3O|lr`tyuXW?Em~V@Z1QTgdg3n%ruW7z%N6xAyaTLMiQGpUC*jjE- zc_o_CyX>}De^pcd8|xr{v5_qbZbzxeM!?}p%+zeb*#u4|eUfk}$b(npZ>bLW&n3Wr zb~%)l9XGdC73k_qwkk>xdLWhZm#?FxcSV+tD#a)2r*k22Ds^6E7rkYb?pJEXW5MqV z4s>l4oNm^5q1BD!{6vc&vthwj5Pr3aZY>ILn1W#Z%0b4ZVUIJGnY*j?l$AW4N|85{T>MtK_R@i!Gg3#w*0gOO<4?8#;q{| zdZqOYo?DUOfaLH4RE=x+74eD6X4i$f{?3J&18(r@h(-Fi##j~s)kl}=fT3eX8{3Or zO|fkDB=sRINNm8%tq}U%Kicg6WFq~qt)jnQpXvyvQjH7r9T|yFiG&QozhiS0M{A~~ z3+K}uGRuC-AdVCGT9z3;io7+x3|O8;m?L?&o^nJGcCZGYcD1PrS0~ zsw&pCT2QogD2Ti1g4`3xZ%HMa=R^0ZH`hKp)XqZ7+z6g#gU#>n>}Mp;)Xx>jJ#5%alEPKff5n8AKw6EWog9!P0$Sr*|b#G zVgsymwy-tgd;yNXF06&_$u@|(m)Kv0dFe${v8Yjl$1cazk!&t*ugQ9O4#vcFyjt{`^W8c2Y@^T_E zrSbv*h#v&N#G;uKA#aIkzIqDRVnkibK|pz!I(;QdMxuOTLI}`cN`K+#|D;a;CzscM zu2lX-qW#I{A?{|2uwR+Hh#VR&4D=693(Z=t6L@b#fBg+O*ekrhjbN+k%mQQ$_)xP70>>f~EqUY(=}?g&(@ zx7r6l^zyFS4O?{qr+T;wXRfXyzI{JO+U@?md+Q-llQP%654&&0s!(^0syC@clQi15 z%~zq5M^js;&&ulP_H_Hicz;Y;_a1oBRQCLLLdU+V31C2Jnz2>$V(F<(4qtLTi9sqRcN^hZyofsRkoX>x2%PK+}DT;OU{~vCUzq>>Jcedy`O?@vbGf9XlNU7 zJATmSczc&&zPu15oMNa<{+|O)976@^0Qe z*;@5yL2EhR`!mlyLgW@#rrok?c)W=xoBIh-SWxb+g2y*{IAh<+HCuy=5yM^J#N+<* zQB^&D#%e&8Au&aOK*oB^H=UP};!U zHt__L)1gz*R_AExiV|v+R00<5tYO_(atk*wcV0spg#Dzp#&^b#j?eRsRqh$0F7gtP z+2BL6)lPz&`0uUN&*6j9vRdr~kzc8$ofgB>Z#OTw+ZAywQK@bto5!O?^Ne#$TB}a2 z+pU|{Z5`42tCjnGX(rpQHlo}T$b+ngJA5g32fzLxfNTx$<&~QgN#a&yr5XDGfEr$* z8C1Gy;*|JTUH$BRI*Hy1-%9qyK8`ovP2LB2DH6-;X3Tg}Z#N_u0?59=ponirO7guS zGC$3#7d$jlXq#IbB&Zt5ot0MV+M`?ifJRyc7yAIf`;`&SH08Dg90;;(SRBM~t>Z!x zrdFXPHh)2vVW)m|w4MiA<1qMwK3RJ*gZ)R&=5@> zKZZv|AOTyHB>dY1K$wOG00w>d!BW>t#Zg&eQPE*i&Sio;#zXJ`fqA)3)?9M8+0FIK zYGPPDFW!M4!}K3vOUmPXN*+Ge!MAuMFLg(PGV#E+rTf`f24uY zAG>0fxXfp={P>*)c{y37o1Y+kp=M6SJGgXk$%k5~hu25mED+Zv{E91BOv|ANwyrCf zQEU}VcHV*}_HJkcUm;w6IqdtsnFP4E0`v1i zW}A29=BZ5;FyhXWTyUo0^Hp*vGv%2V%tdtn-2_#W`aCmFDr`od@}1l3nDXh0SdN=Y zGvTEa=F|M0a~xO!r0P`JNVUdpZyRxotV>Ha^`3;8{MH@=iwFJ>q=|C*E$UCnjdQhL zP;x%G9{`ze^BC7i#sN9~>NV=`lJ?>bf>#lb$zZ8X0L3@f7RNUT63Ja$*`mhi)+_Y$G_z+X2>A7x9sQsh@uomZ?$gRV)KN7Aw!=5qJGA?>Tu)z$Tl6h4E=X_%Jgr^XN6NaM7n z#Nf^mXp)k$L3{s!Z_zbo+|m!8IfsZ-C0g!orn@t6nt*6n&2bXGULMbhmX8iY9A7OK z3+(ZeFAgC7Z;pY*<$Z}qtD*qH#3FyzB9Y|RH3Abr!Y^D+vA6)}Z=MJ|ukr{NjDDM{9gb9>YHXimmlP zC!?I!1&Kv!Rbd*4KNMld>9{kR5+oi*Hd(+1m&%JQElv>ligYGO%+s-ohXKV0Am^O+ z0{}wy0oYBd69*WrFS|!yOjuho-qj{ZOxNj3vw&c6z3t2IyJx)nHrBj?Cwu^+H3rc@ zV*YeQjnmbDw7nsHMfQ!3Y`W1#V@A$T0#VRIcTNdXFlopB>3ydA3PtgqTk;<(y1=d> ztfzdxI6G*L{{YCsu-W3GHzp7v2gYouZD@vdAHK+Z0D7baANRH9Tr%VZ+^Y&vWxrC< z#r9*n8S!Ky&U0jyu2?znEjXp2lUZb zhnyYSQ_1E(MhN=xr>-<>@8s*!1IiFl~(xtshc*+LRjyAIwJbje1|tRnX`MQ2Zbz$zA#HY5b4SC1j7D*Xi4y= z-~DkWP7VXo)-Y4AH#!g!>6;blc`c?7Kyr5OU&iKt{8P=g*;jG5y{D9CqZ@N=P20lE zxYL)3q$v&kiEd+v+hxWaM@ItqGFvzq6R14f+}-2F6+hBHll|9GP?$M^Th*$rD%3Vk z5+$t>L68-~ds_gGX*cDs?pde=n$dP!vb`9?4d;sgk&r(RiF*6&|Ha-r1z8%c+kz`? z+cqj~+qP{~+O}<0+O{(*ZD&@p(zbnbpL2Hf+1+PH--mv>(NAl|jQHn@sj=q&ePeus zN7#d|C{h2!e{JfBd|i^$wyNv%t^{*MR1{$R@~_)6`G44^POV(#;dXXam-yeSiC{@0 z;jbkbD8+>Pc{dlM^{?aj$MXH(7ML2Vs!N=u<(Bm`6&4u_13l5vwc+k9#msVR^W<$;l~1CKG3OT`H^)kn_Fa$)TssD9^rT~4_?y&2;}{8^rH$M9?4{sLZFKz% z@z&uK^b$dxoD0*Dx-U0X3`;&0WzSTra}?pZqF!#r)}b4nmX<`TFw7*$E1&;BF<&K0 zEQ>6SHO>{PdUX54s`RHK#w=$Izq2xzhsNW~IVrxJx)M)#{NL`@*C#SAn zN|mP7?oL(l9r~6sOzvQu@P?E6sZTaHHmx0*-^9pM#)AzrWmmH!6MuJ&S(Fbhh76 zfAIwvQvanWz52WE3((}CKRv@u0AD*;P4U>=q5<%mTW|4OdnzReTTA6wvXy*lwg05< zhK}?d#|v(Rm0Gj8>wQ*#t^EK!{{mc1eD^$eeW#*khMiNQU3;nhebcBFD@dykGwN+} z_;G>n*#mV0Yiy!5)R2D+JjyTgeSaLl+SPxBUH99Uzo`|h@C+?CFXe5}8ArP`lQ32s zGcyhtDecA|C;ptR-PpzG=Oa;bWX-Z^|E3OVt^hpWlvf7yXo4?;bXwJpB`nqB`c_QK zty((llN&u6WEqJm4Wql_V%tFKW+bq|YJulZ}G2|n;!*c~~@fCHD`4rch z|EDa*f3L@;F0~;o$X&DqyK1gOs&_q*dks!h#fpd(w9gSTfWTNwK28{ z2p_oV$2z(CzD7cL^SlYn+VOnk-Mq0)1t-L8+-)Cj>dO8b4zX%2%NzG&_~v@iry_0S z9yJu^$?VOUC@RokkNkiShe-%I;F;q^rjWCG8)e^W3y zIrsg)wMIE}AK-VgSH3pr+&Ba8zov2VZTA*x51zhqB5axCQ1J#{gXZ z7_$!R@^n-u1KzF$tpzSWx_ZIb(c*<;QAiiKiHzOYg*M+C>uc>xAiZ zj$(Tsdr1lF-=l#W|2ON(N%O(B{ChYPG+sP{o}RuqW%VFEJ>u+`8$Pi0QmCmB2gLlN zq%1!JTtepvE-nkt;d>IJ{xZaCY_Cb;6yK}c*+UtO&$sZIkUUF(L_55$eCJ4jzW)3V zf?%fquLZ%3%>S1jn2GWKSUE5N?*Eqq|Ch}9{~S3mGfOr6giIs?HO~~TA#4VT8zu!- z-<0Ltf2s)niO~Q3(^%KS5zpOP4I|3ldG-alD#0V68Xnqr=EY(x_%+nsj z_3)mjH^;>swyUMB5&m2l2Dx6*p)p6BgP_r&0ww*j=v}=%m4A%mzG$^~iOF)c`@}Eh z*Q3$;H(*)-qvea92QT^`dOr;KG5c`ot{ zE#aryx4YRMW-!mT3fkuF!0TR1@;vKgX@#haGf8M|gW~(Zm2g^hj9WdI3;dZ`=&+pK z&B1pr?dZvvWtp#a!|%^|!TzyV{QgIvW&UqK`_FO;Vm5}(rvEIc@XsO&98Ani|E)BF zd-jEoble$N+UEN^bPSGx=#Pnc9sv>{CJClvhoABHVFF8no{7B#-{!w>^=<8zWArPW zJwY%zss*%)`@U7(5+RSq*y{^^vOJUmPF|cAzF)5+wO^nbjHc?mZH2_ZOyzc z`lj+CF#PH2jRBp9Ex56*-3LZ2+Kb{56v1-EbB5gez!lf~ev1jXX_b+eUA0714@#^5A;EI5vU5062*wxWe>B`ee*Ik99t z7LAd|LAQuRK7$zsxlvS;6=u98hJ+U(0xOqYP_vSy^>k3v zS;n!gpq5mMhq-$z&}Xzj#xD|xfvo@#3BEpIV(0|p=L61ek6Uj?qi2yw6c;UZZ|qNz zI@OJrYUHr2)4yD4Ca*V1G_3gL3f+K8PC${9nY+`~_iW`0nlyTB&lUi+Hdga%1xHXqC_4nZ5HVBWQl!+9h3mye3$xRC zcNT-laKjYW929$FOdo+-cm4fg)W;9%CG9uW;nk&+El@FOQyxrBR@YrfFb3gBlwJ1M ztg}~(H45}20W%at%}N-dWly(LZSPMGm&^Ny-8e5-dQ<4#LeeaV{vG4=MPXx>*d;WP zUtZ2LJ9|7^u?w-FO4+!y7p0UBq0Glp3*v`(+hwEhR%M86fiL#!5}}Org8e&k9hC$R z<&ZeqtMB>Ie8aJ2XT;h4iv~wP^1;j+1)XLxZd0ddN;bItQ>E%jb}ZdN_vgv|#Jb{H zt!v1MJ*B<&28qI*pK9P|*Su8eF1Z1cuZ%fdl@Q|%X*J5cQ`!vJu+i+LNyEdjC^mMp zew2{O(FI62p1VVO*i>(|`coKK_2#(OuD|(x?#->Y_1AEh`oN5()sjSV_;dt5N_{4(g=AeYBWZunQ5A5LGvVKa{6!1%uMUr*54} zlM-FGRGEPx%&Y=ZS{KgJUwd6`Z4tFyPyK42*Zc7y?iRTiXa4Eb=3Za3iC@-P!34DM zNvo&6NpRgM{L4>(1*>k9r>>whws1J{DYwi|?0gIuISTA1vRJ7pas{hUNa1Heg=`}Z zMHw~8g2jJ0TVPj-QPwL?OnKl@fuYTb4lkoda`IIQ>-)hc{}M#f770ioRJb7yF)B9% z`U4ADD&QEpz#$unREv_JhXY|$WvWm}MZTuc_%60|Tq#z>*)ap_KtVtbU`l09^?x)@ zmnuEDzn`D2!fgjI2Q#3NORX1B;{d5~E4c+qSbV7BFhUtCqcI+=1%^x3w>RN@_DlU- z@%Hm z3KZC4ZzCzmV8PK?3rAbyxABrKhE`^i9x4ejOS32oK_76RH!BHc{st=JBOA2T-EvM@ z;QCoWu}~=i1(6PX6eUM~UzDsMSYZ1(XlvVA6dY&6{e75uRP3^5?nSg|zMsjFXA5Z{ z(*JxaOa9qY*ZI-b?izGUuQw!>C{GwOBqTTaedyDW)D@ay>8orh@M3Q$2NVOSD1VR!guEk4NYm@10iU=I?pxtlXNP^mJ_=Vt*#HNXTZc z>9e{g%-(mlOdH+)R1u30m^M}vlkKREn^6S$$efiA$341_XI`#+sisZ@61FY{YcOZ1 z16)0)>d(Z&>Bi-&y=6hA46TFBW>beXkd!7ML)_vX3d+&gbBJLEmK$!BX^C`&nKDll z;}ynN9=)l?72kN595%4U>M(**C$BcoIOno-ulAXL8;h6asirXjd5Umj?FWS<7A$%u zn@x(Y)jxq#iy7R6Q3{U9Y4loQGa0;?6!&-o1;xU3c{h@ffTvShXTWFv?W0u40)Wfb zwb?4rcBbv||M~49Uf-?*H;^)s+>ZIm0~s=d^|OODt~a8tvs+Yrc_EG<%;{=Un~HUd z`{Y8-pXa-;vV27-(%IGJhEg|?1y-wcfQsWDy zhh0fI*oBoq`hVLEAPxssf;K)48k>sd)jTm4qp2JTw~up$ZHfP^Ebnbq67CKZ`rWCt z&{886vqH~bt5j&~(xPOnZn~9{xoqgSYVk7%dn*N-t@*1)N|v8=w{|mgTvH~X?p?}Z zIBC~8AUd*N?!dwmlamlT)g>@suY6;pVqILD^(VEG74nLH=JM)6j4Z*(<^6ESNU^D2 z`5-slTjP9#B-iq_+yv;O+{BiprgvXhsp(yaXKsg^)^|&T>q}1R*tVaq)?t&Ri{&5P z!!rcQiTFiI_XVaZ$8nBF=+>{rrgQJ58vEfBE7jqv#`l_4f(&=d4mg^;xKUlT&z^AH zTB#lyVs&iGKO1$o_!ImSPeXOl2X0_jhTs|2R-Pbndz6=gxdt@m4v3DUl9*cpTE14o*0jCbj|d+Jh9f^* zhCG%g9qT`ST@edobnLBEyTX0_X3%vN)=ynP@Oz10U?q~Ecjy`MdnrBKb~X7})Y2vT z>)*5)Tea*iYx%8x&?&Zlx#Ta%L-SHt~r7XJm( zuH@a>1H>V}H{y=&pKEvIemZ(LisiZ#NFAdN827eg2*8eQf2@I+ib%cmlonJL2fBn8 zSPv{KckHM3Lcd-_C&eVmhr~BQOh{TkXm$~VIn#Is-iiZ@*p{V$?|#+g^wZc-RPq_KQML`%Ie>_Orr2RV@!-g!*3Q;n4<8d*Q1nDOf@Wqb$RZguZMWMx z&v0`|EK{de;%M8`^iyJbz2!Z>-L8W%()ZN_;TPX4Z~+tU!W_zoqDxn>$Vh1#x^CE7 zt9W<~30L#!U>A7CCUY6I5(oywGjL46?v8-2Y~9aP4K-8q^gxg|iy%M*cpPi{6_0GI zh8d6DTd-h$ivw}2w*n9)Yb>PkN1RGjYU0iGAr`)BJJt{Kg&n1nJSrVI?zy3)DV2n^9-l-$)3iDNwk_GX01z0k8HzpH)!QF0MA2vSHFURt+ z1;}*)o7(=#;cDt6Y@(gi{ zBZ81M7Bl?W;9v#N#oO3Tgho!O8V>E%ccG;Q?pEwSFX`iyjQ(|@qigu1wUQb4vGM~~ zKT&I-f`dw^5Sw;JVameX3{wYK{`p6b2+-P7458_xFc<7e-R2&X;~ko6{RJPZj8&wqQpFT znu8sY)O~L`tj1(HJnHjA>56qMq{>9;fzA#0kq7XF>3=Evv9zlw!rvrHW91#V+-=Lz(>eUe zHuh2$y?D4NO$kV9@nWhmxrsHa;baZg8e@4E0#v9nmN@$AW&))}vYY!r2HgsCs9 zcfxobJ8(C0wp$_4MU`exq7u9mdK}Cyi=}Zi`SFe0T-9hKjz%Puf%R^!_I#`}x~Mq# zVe30bwH^`NpU7QiXXPGpowc%eC7UaKGT=bE`TIxyMigA>VOs+VErGzoZxUL1qB7t~ z81b;JqC|k&z9cv=$DlxnI6*0zuVlY?yP$E;v@L<1c}2*9Hb`1suqeYDEse9m#WUiv zwjQZ?c0tGx(EK-mYG4HVMI%e%FSDa{eX{l1lXbIoy}Zoqqf94OJVKSknJHT&sVwp4{ zjCO|=jg?`tyqqRW{k~K}_9rb-?jOVDUq4SAb}2&y>aBrlK9_p^#=Tob#&nX)>5djm zrWW>8vqpTs?mZhMZ@_2`A=9N;)ZWKWG&P+P;USmSVQo4gh(27qUn2#esRDIC*J4p7 zY|(JQmX#OWo)Hd{Q#t5IO%y$V{$?^Pf!b7q)u&kvO|crbp)EBQ|0?V<*VQO3sch|f z)pC6BC?l8Y8&3@{G5n#=;BO@y?GethzOlvhf!9h7m>E;(;6;6~bY3XCKj6uHr)y9k zY{4wh|0BFk;$Is?AU+A zC%C=C&bqD-l6qu}W2^*g(>q0-G4uTMIY)wbIrJ$RQk71KX zF*igVryUYcXcU$qCHVnCh?T(*1lJ&-;EXDVN}APTVM1tA8G7aJ51~|NVV)*7IZxe#6|dgq@frMJ}oF{f^;qK zW`Xcd{!#{z6-RwoGfSoBm|@b}s1ks2&YT`-=@tIxqDctxu@Lk`+WR@OY)CAu=o$)k zN^tSV$d6?I1s>AmWKt+&p1Yz;aGE|b%t>iF>c10!WLp{#+juj{!2WM53xsO->%XY? zqkPJ)WB?&X1GdB*t90teGb&im-5!i5m3FzSzd8p}H_PrkzAhWi)sCBXd^@VDHO2C8 zHs|*qCO-bZgIJab{%n$?n1(7|^tcMP3NGuP##Idk}9CE-9E$tXk8aSsCle-V! ztdvzV@6%}tMpm$UNEhT&Y9F@_K@KCMQBE`0g>?;w4wo0LeK8y*)+MrSrK|c0>|m;= z)vVjvf@_MO$8Szjn6KCaj5g=E9QaRGD!8Kz*J)lv+DFoyaEd6C6!oV|PvBaR>>`a;a&72zu;&GcwJ z?h3H-^YK)eTRhHTbi=M)Tj(H*5C?GeFi9XA zEqhqP=LaXK!;qE!qL7xZ^s7))4PkieOchsxuA+qU?0YN?LZ-x{@(5;Lv74CXKbU=&1tu9%&)=10Mu@r-t1OxPD z6d+E5vgk?mUOcZesIoco@l4@fP=d@FMLZU0QFmG#WXk_;1d6O%kJLcIs%>E4R;a7b zQpJqwPCXg+dz&y$xSC=B6Q!6+L(Tu+iIU_TK&HHtF7=nD*45@&5@#!1V! zKb-GYu=^coS1c5XZ1Mxmk>Vb>wLYM?(_LUVwxV3QAKbPsv0R!+@dxqUl*ZFmw}#e> zu(MYxq->+_wdPxprgkS*$x@Uad++gq9*q8jhfli+P1^lL6g~WOM|RS>%HdjAJ@W$} zowIssW=3<<=7^(S8ne!_i~bzNxp`^md}bvf7LgO8+7e`(uq8jY0SI(_Cm=`veGQep z5oGq;7O@`#EizA1fq~g{Sj)+d*mWawvAGj(f&*CBH|>6JDCb=1&Kjc@5pMe81Y1$= zE4KPLaZGG^b2V3vO@8KbfM@DzUT}3)Yzj!~NXSw%O3KvK=$E71+p#q*pEX72ca6cE z=GTc*?W32=Kq2Rw)tWRPfyv_&)D25CIZq!-eU^3*{swzyg1SQCN}ziIPXJ(&p;>Mww0R_>034x@k;xwy7W{287PA z{t5|#xlt)_ZN~%xOQimhVtr&W(Nppul#LHLE1YOgHJw`!%^m@3>~+0YkuAHLe=tNA zJM`+_)otRD;A*7eq_V90VmJ@g1QU|Fjq^GnFB;`_K@0D~B~sNlCkv#|E$;YS=I>qz zZ^om2P943bULMPn)@SM?lvhjbKxZn`77icFC+u}G(m%xDXEPk7NQ@*9gw$dc#sZDu zHz#@v^+Wj!&Z`Zw$*{Y?&bjzSm$PCBj@&J=o;F0l?f(L+t;0lwPlzv)u?{6$0miCg zY+u0(C9YHlM|PP}8+92a%kjy5P6fe$c0rV(;giDz_D`bQBe1R!8^>WaojM+7s`N01 zO3>N(ZnA#(;1d~AjzWJPs7t!A@>DV$S{Bf~#D%p^2tuleI z66R_~qvj6YLdfq_!eRWpY-V>jkfm7seBvEe4oqBsjtEBJ+{EoAA0(QH8%KDwo`jefadH|#=6SGnak zR-cj>7}dX1l9T?Zd!(jqHQ^Z1haEC6C4)A&Jk*H>2Af4@GBsCzf`+3}f{)fm{tM`u zQGeH9T0!ofgdC=GrtamA~(P@$RV}4@%oDmw-E*)1` z@1O_Fry=|=8=|LX2#5B4_iDQ!qdl%mwXZ!so2K&E`tw1i`$w``PT;-qQ){ySqGAtd zFoWpJnENK$IT$0iqQOxG^#P1R%|}>KV`0V#yDyKVP{Dk>oJu@BfBni^UqP}=huaUS z6RifBZJhU=Fg0BwV%zgVH^qt?O0;fnDcva1@-B47t|+BmEL|`ajB%Q9ca?%2BGK~P z(V9nUDWV9ay88kk$~8Bt`_)Lr=HIQPD`>bD>6QkGS*=eP+bUT3E)n=1#&;7F0cxU= z`o^wge;YWjOAOm0jxypxDNBor(X@6#uQB1$#}pEJNqM`9V+uBw&1}Td6^4&CrY#A| zWlrBgHg~cx`qxAr!v{nF5CZxTeac=OCr0sB3_krPmZZN5Vey-z9L^huZ`TP>mF|`3 zopK-IXy@}IHFhbJRJDVKRy)H>ppN2ABc8>l*a(eA?hs`7VUT|{%ol4T-f-0(6JjKUiOggz4g;gWiCgHP&`n&o;NAqHECd7Tq?gERh$>NV zY6k1efX9N*+k7bK{UDx~PX;lNFaw;+YOpxWIwy@b-%^;ZtBIW!x2RoT#@^lq^kRC{ zW9uI+rnQM(?k^I2E&T+rUK2Q6sQaZQ%c*b3k6)tC(DOL z{>T{E$l-)uK8^+7tX?#dlphgtI5TvPS-?i$K^7nG!Df+U9S;QiN%}Mn)oL!Ou$(_u z3~EhcAk%50YL3>M8N4KdjJKrptNGuk?}$tpa-SJbhjI-}5Kk?~9MxR0j(hTJ9*|xn zAqone4o(YVTK>b_VB_0yD!Y@k0ylYVJTkXrnJrP4p|I`irbSW40kK*Wk;$g7Msrrz z@CvVlEcB%eTR{Rz#!%`SgBU#C7`#fH8InxCENr|HEuh4K)ELu;D2#ko8+khXRpBUK zP9-3p7Igo&#Pw^|_CW`zlBBFH`W}*?r8w}=i~*;i ziVz`n@SW6K{X6s=jQ$+le+9TXEKC0yRO=K-OnPDxj40E;Bo&@su`QcG4^4j;i+bob zk{E_Abdh^hZyU9t@^P5xW2*XDhrz*3eX^ zfF2+0*PKn%g(ad?Z9Fcb$VrySdLdC7-6c%E=(_sCjq&U4Yt+!)WY8MWhku|J?ri6v z7b}pDn&lDnmg4>=Fi`h^Nm+R6HkP0-U;Z{_ZsjP19%H_`b@&tH@xsJiPc42NE=@kf z1evKwkFtRNT2;!R`Y3sF;5)oIi5u8`-yo-vcfU|E3Lc{`IhH#fUUw^`ub;pb^j46u zOH%dwBa=&cn3Xa0< zc`6Q#eeND~FJpYHrj;nC9smr6`YM@&aSY@V0=VQx2Bx3-hWKO( z$>vz?>U<%thPB%p#|VEm)?LaJhEC?%r-F#odGE}wabAK57P|RZCoRRgAd%?Av*Q;!X#BcMNe44a-Poy(ATbm&T!%kl<94mE>;)CjT>JsT z47^CH@c8b!lZrs0FhXTpw$%=>?WS?Dtg(Xj@BITon{F=(meFo$2)g3*7q>`AmIzG9 zWOUBcQb}3825AU&xDKFCG71Mb{!8e8u1L8Egq5@@d@(35*VrHokMR3OVPlKdCA@-2 z&|0t*;^Bdlh4SeZ5TsCH4FRkv>mInfY3{krIpUOz$NWF}Obi{R|P00{ppNe}KS9IXz&lkOTy!JOm@^MyN>LnE`mJ&Rb3@wTu-Pt0us)KJb9zYZ%be`oCK}JF z!-S(4D(%hz}!Gec)|IEBXrv_)a zvb3?0e}$1`LuRYc_w#G5OYyz@*c6f#F9|RNn!{ZM1Hp9E@_xh072- zjvcX^PknC^D~8&`f72PVaI@zDPE?WcZ@Xo+Pa#L)^tF*d2W&5_m)d98>%$2-v~gwkE}lpD+-s8aUKchoK) zFufXeGitYmZRb^}vE@@mwq2q&Be-8}VYF6`x5(m0Qc)4ruDq|%__;j82D25AjIH$3 zRy*`@6nUXlYDTGi0*{~-JyJ-LhLtc7uJRXbh{{h|S`ENb!p_kwuxk^znU$fFNIos$ z@l=&;BiNDv@KQ_BgS!_FbrVDaF9{`N=57fM=;=5uD{)!k9dJZVS-Timik92A))d)@ z6q!;csG%hsgyb9I#p?PLKm!zMih-#Gq9Py}tcvFWk@2W)Kkv4;w&IsnM1#I-9Lm*!5~jP@G?65TLQjsKJj(u%qrlLY8~dM*tPzsbSb08FAx`up)G2UeiEjwwilMWwX9Nu{vf?BGL$siM7$$U${p@|>z(7n_)1b9>+L$v!h1 zInm|t!kAuj+c|fR3Tr^oYoUWYMv%2V6vQi(J%lf4?yq!Lxikf#@QEaki! z_|u9u&4abl`7@RC27xAf>h9v_S!+U2uTIHe37ndFt->uG@dxG81n8c`0uArBI#yXq zqeAUO>8#B9V`4b*193Azk>g22Na{tm3Zq zshbyL+gMe~Woy5_O}E~-;&cMfBL&D^HfxB6iF2}EM$t5N*Y9Q}jf&B?!b3MRy!LZ( zt2|9GDc6Bl)%p1M3koeKRGpMa@R~SH<|s2-y)fBpK~F+pGT|t&VEK%zfrT4pr z!Zn>`PUd;jSw__0@grD{&4Rb*EXd9kby`Ku8^VMT$8;dC7XT_!;E7-$%-=X|Pg!gC zzy~BMBd8(`_!a`i7FCmy73&4q*H^-1_5^F-^qGAcu+Xdz{!zJ-UZh`YVJICxD`e5* z{uGt7FSIOPxPV;8n`Eqm6ULN;3TXg2^H|4Bo5yPsl`i{>8ne$!S_PnZ9jiF`X#K`0 z4B*WG0>$<7$H^?qCo=euV8GC>2iO78lP0%x$$h4=K1F6S;VKzbYGGA^JE`A@Riz1c z%AvNFDA!Ly&jFUtLME|$kQr4s9Q68uq9zfc{0)Ant?0}>FzsNDoR{YwmN6I@WH?hK zk0ayZkK;*HH5nF}&if%UVm%WvSr)y)nhpz@TtC~!=vHXAHnb(`XA#hFPOx8= z^Af9?t_r=mVIw7GN=VaZZ%l1^zT;%B{CkS0eD;WbvMAM9%+WlblU$-Uu)3&}@^PUo zO~wI4`n!rVPfI;sz8Z4A9F1a%Pnl+#giMf1w)*)ww%nzV{CTnC)5Oq9)S^f|8s%~= z3L#y4bIfqgN3+Hn#dV`yO6!lmwIL+@bO@B=Ac3G5OMHFsp_!u>NQ}t>Eze+?%9Oeh z$>5^e_4wS`70z+lWy+SozXFC*#%uZmakVURS}A|RcdV9vW*Gf+=lq~Bt@)ZI9;4vNQw%2kkzh4SAu0#$+_EIagQN7YPnge^!>ttFK(>IUG)73^}9~&6lXHuVw#tiXCg50dU)pVvvr||SW+oN zci&8H>28@3OvR%?ke|*`Z0izEITG$~T{hT5VzNkxLx{5vCv!`r(VF$AXRiG0Ms2N2y#^p{n!57o zh0G32#jQvjhAoN3{*}EbF0e=dD$B)*H3bMR%;OB)C?>PTZCFU=6?Wa$goMlw@6*)N zb5J1OPpPb?s#qG5!*U>D>3tmDgIbrp)3!WCNE7I`&+FP1B-2%;!H-OVYGQh+K|`p( zerCRCFs!_D^+;Yu{$s_tRgH!K*jw0S*#W8wwD7$ff)YOv!=u4hx|@#-b7*3?<;$+b z5i%PaFnin6y~($k?>;;mYK3mBhjPj3-UXVNkDA7>_IXZ4L!g-Old&0WIVTWR(AxDK zMo%!T=`C{zC&R2@J~sCdJ!S3-rKfomS?8`Y&x+-vqiJ9!YijN9)=Z!QfmW>mO-JJB^8a5rmu9i;RH|FtZGg*INTBwtSE&l5S6oDrE1tY?Y%4m^y6 zMNZf(K%Rx1i>k_&rT0T9_*YnGLqH1C)75y%lfLnezM*={nd&t}Zx!7tu%_|dsO}&C zU>>2#6Y&JsX!P~eCw##kALSOw>~)L zn$a)1)Y;MQtEAhEsl1Rz7B*jsJnJg;4UTXg4^j2VTu-0j$?J-Bfh%2|LT#jr-f?#9 z@KKLBT~LsFiuAl?Nz?Bg|IX~r>wI@DSvk9kzoQ?)33PJ0T+vFcB_ab!)HwS zCuY~IjAJRENj&1FK!4lgr3ep+rl|>ZAkwvtU=s$o@!S&TieVbkAZV6y`a43|=J-jq zd@Kl+0JR%ood7e7eHNh*6J%$a*@gi%k_FqYdDb$4JBgKjLD<+Cu^kTa_xr`Pw~LO2 zeX{2p%-%@97N!M9X1_oD@ia&%C-wYy&r2VhC&YKojh=Cz;6VeV>!tUl{U!hpuu|tD zCY&({8R}UE#!LU4j3ApD1A8{2a#ZzQB+wM5F?vl-5GaM|81Yv)fA2Gucq(q>E1S^E z$x9$+0S&N+=e9P84pck5IglSI@y>;TG(obPk{s!;-V!YnzlQFZ7&^B)>z^f#z)IC1 zSq8sK9Ks9Q$o$Y3LVUAAo%-dKLwH9w`U(;_nZuui1^0j_XjV;lRzujR7yrNV;?`~=Nx9r2~Rw@Q3#9ILKj&GyKq;3!Vgb?-cv__?Do;59H=+@bI9J5HAVH-srE$q(+ zo4oFZ{rTeNhvu}4TIiJW`0Ekp!Kpb<;t&0GGuJSft)W`ENe7rlR;P~#(?1~*$#sve z?{Z0~zHOhhSC7&?oy#Zu;(mwso6T~)-XVt&$1`i_JjULdKdSlfw1PQ{fxS3=8ctjK zWH9wVjTY$Bt#L3VN7~2+H;YvvyNwv|vVtrkxbhD;gq7CRO|1;?NS=#}TN!T8{TsD8 zD=he2S;pK3IY~UN_^qqXzVn4)Q`)vu)gXJdjf>ui_Mr!dKoX-iGHmkDoP-Qo9{f~0 zxW5;Xeh{Q>rBOGJCM1c~eP%-Uk-GHwXJj5G512Rw71felvVsqoe4a1fV{$u!>a_hx z??y^Y^oYR>>A-Jxp&ArQv7%*EK&xO>VPdKSA0LkHrdBCGN&4z}<^G+YnKn>}eLzkg zaqV1DeQ0`L+YJIYFzVb-#)v_l)#>UBE%dcI^QwYD9(KWWqW5U$i2MvJ&kDZW5r4e8 zr3TF#3gIz!P*Jh*8-&uylA0;{;M#ViI#NYaRm=}zvqHj<$=y5UprVGXs^Nv5R^7!O z^?0KsO#5Z(4c2aha(4Bd0yV9&K-q1BvJTTtzM9WP$$oG8paNl?a@PKpIi#L}{+l{| z1Eu4Y^0T5LGc@jHazhsDzPj5}()FI>>gu_&9TB=45v}0w-y-qTvUrE!sf48Z6C?<< z-2&bL~jBIpT4qGOT<{!nNtpQJQJBKkFw7C8EOHV?R=~L`{qj=CXL$w4Guh)ZUu` zmC<*X_PbJ_JgJZ(BrgQCf?>^EXhxNqe!-A7j@?ovBD`t6Zk6zXTb0o=$jBHK$Uc+Z zFMoS-)bjYn_aC2Tz}B(5z8H^5W$`k9&kKe8VaAk+*m!S~+%6k72YKSy(*}k#onD!K zpqNjIbc+mWmY(T+^$%%Yzt&3gPbw#Z_o)7PA8e)W^r&q3l2Uyf+iIZ@cG{4W0KR^4^O~xl98DSNy_c?#b#OFf+Z1zvBYrIZv zHUBv`tkn;x)Rs4nG_$y*RSXj6j}`st;+M0?idr|J&)Ga&_tUHs_jM4mup}5;cg7}? z#rb5wd^TYswhA4ld5moMOi4g6G?fA+CMe!#@&|ig)AUl!7J&$H_eU}UF|XSf9Mj46 zx_!KW4%oS)Cw6J*c!W2 zCMh1JGwBJ+dkK}ioAr?!s%GCFIa&aU6`sDIkE)fAWoeZ5)ktZT7kr$-GRdnaOdg2I zGB1nguwt6!J#76aG)*2W9sIe<62e8(?Tej}ZXo1~15I99%^RlN%TCvaG3N5%%)YOM zrCa^{U^!IZ+Y?R{bg3G)NQ^&KV^=GT->eU8jqUg8 zxL8c#1>d6=7zx}Q3A&WhbeWisy;f!bUC3mrfX>uk#k|^1S?&5B@Es@+eUemwJCq;3 zT`;YHv zj}=g-ZdYkdoeGZ`Z)AV44!wGd@Q@e7piDnPzjU7SW~7yk2AoQFR_d`Rtt!uh&_#k` z(SmBe!0}1x*UG6O&CvzePiTnhT53Fj?i52%OuPMK=op}hl0!Ym@c_`jEJbY5poxn6 z3J%Qg26eOv|6)7q6PaIfBb8l=tou&qXxQNt8Y7UtQs*8ANZCd#D+yLryAY3V550p? z3@1zcgE=lDz!vV+0?pZG+rxrtAR9r=FF=Tp|DXJQkLqI7Ft*cKx&GHBZ++)`+r@z} zVYfY~7lP3=l@2zkeMTwzhAnw&a5^lg^bnmI72{5lIlBtIHz#J0S7sU-3wihIfuI`i3E|E9*%AdY9`PWV=m;gqJgHDGFHl7ORN=haTxWl;|9IMnVXu?B(pKoCZ65 z`W6M-KX@deltv`uQhknurUph!B_Pxf02aYXDijRK?%x+bdscTL%@8~&v!z|>8XRMK zZSe)8Ewoo{55EeXZ-GjF+g+@rrec&R%uwsWfF2?YX^tstaF37o9KB*F(RVzSbHtD zpEjdNaZmQ47(-`@NfaXi2P?KF)Y^$8!X=1&(~!P6$q^Cr9RH7R^u} zWolkg4@?VR#g0R%)o1I3wnOev^Oo9Ad zq~{dYT`eJ3O{(51JO)<3QcYHX$Di~s=%4>=CVVcv0zsXG{-nyoiE62kgOogj>cZ2K zBFpzQ7O)FgLRU$}^+UF4fMmZF27Yo+Knp-sl0;pG(=e%MF_@Y`w#4md>Re`5QxHT5 z!bl~DcY%kRQde;Bha32!qit$_r2LsW&r{zMXf>=qCiOaAEN_%JH9%?m)~c%DX7`p1 zUEyK0H4@&E%DfgPNw1>7%a?-vd<}=T_?vO;G?rjNlY*NkjL;=4{@{Ayl+_K@xQ8x# zb7ZH;UB1u0!7FqTjF5v#i46?GX-p4MW|Fd!PSnQE(CI)4*zCab{>&W)`hG>mBsb7K zOM=!nmg9wSkEB0FL4@SN$-x*O45CgX5gu^bVMmGJc+ngWz8u~hZ&6DCVjVo_)mm#y z^1s;o3aGfcEZxEhPH^|&?!kjYaCi6Mg-a2VKyVB0?(QCfySrO(cYpQIntxvZ(zAN{ zO;7il^$w}k&jGcF5OdH}X! zD23O?-ydW8y-BOx#aMqyExBWJh_t!gOy!`=7+(@1mu91;)Ck%Ol2(fJqZBDLE4f~Y zt?=aH2Cwqsxi1-prP6yyIb6!+5@{$~+N8k4X0`z%kz;@`B9ciwts6OK@mCFwegx!7 zE#v~FkT}C*9QA;20^i9>xT#OpPKws%gL^KbxPN>b6Tuge#egUx!-M596o-A|ML$XT zlTYHPj&U~my<2Q~N}IN;!ThebIdy(>wbJ~n(@%&8%yM=t3|ta8ITEP|-m;dVt450L zyjux95oh1}M;ArI0hjL~;(?LhQ95Y83rjk6=>)?Cns$r;W6P~8Ovw_8^#?`Z;Crh@ z;BMObnqjrGTmU!j*a`QO)4l{KB5y z_~Byb{3D1vCy(TKg%T1b(F}s?W!?$Q*>ftq*)vEHayRmb@lQjhGhyt8hgAYiQ6Dgu z(^OJQWzGA(QOxDoiBJ@lWsCSrDW}e$kr&`e$gxa>y=>^roVABPS&fT+I?KhA68%j6 z)`lfAfJO(1or%7{i%;pw7NU!Pokib=eE?6?t3N6P6yCklgov7Elk zHm1{OymmkT72(E7VE1P-UPgbYu^rg&CDP7Z{W>UW#WwV6W}zd_1TGzv>U4cu94u4D z9noK2(J8kw^s%6P*PGym;rbEj!ph~tP%H2EP1hk7sgr$H;r4McWv;_kyx;bDI6pF0 zFN*O=U6IsBW|oQIH~^C+GoBX~KI0%x1#s@`EbjBcul( zk+CP6;xj)XlhuEqd+djnV1C7Rl=0KxHQZ7wgUsl9@6djt6!J#k)6KJT8*eMjw*Bn< zbkx>ktC{Bvp)@Qqp3(QHa-V&@;g6ZGv4@N3Aa=tG2WE<|pFwzO2y*R*Z)@|7so1h19-E|VY=rOY7Qvjs& zBHtXVUvkvef$@P9G{zd-hS8+NBi| z7e!p?iwXdpqPAq&S5+qvGTg7GlH%y}r>AS8H9S7Z6{{A|&D7|ADQYjy`!ciIW-T`; zRBS>k>mA*ejA9_P8e%^YBNRD0y6Q@5%X<4v`6O#+S{>S-*AAmI+)BAvNDx$UoeQI* zoVJbqLE2+x#lQ4`{{EGJX%+tgxS56TaS=vm@O(UtVcpSJpaWa@z*q;kFVPxDzfu}v z%br=OP#*g#?8%ey%XD`gZG~xN=|be@$I4QoUTkBXc70ix%CN|gmaqE7eBEr)VQuw> zvLv5vJxlMk8;s)(G|FK}%k_(M);;lB)vbs|NwQ{@Pck|@8TV_5X=jx+FCd*t<)c$F zWy;JBk+Jn9%cwdN%&T<~EvwsP%Q!DRcCmm&)F)hu8|DU$Gh8P>(HuDW3Tnp+s~@{h z)orE=Yln^u5v&<$e^^&&%gR>&xGAhfu#U_h-S6yO=ZJ}z4C${0U~(1LvJJOdmxj(A z@LDt0KTr9)hRl+b&-_>!&7V0Ru3S^IiGp|vGcG+B>2y^H(V!vW@V?<-nh7SP!m`m5 zc{9|6FY}qzNIl1s^QXmRBNM%~IKVw$^S~5;C!(4+WoK5^2AS>vQond!wDik4U%Y>D zp|VY*Tf$PojOP!Om{CQWb)q){)}@k%EO(67j8>fRU(Y)qOqt4x1VqX!*2Hn4%S$H`66gc>`rzQ^rpRzXi6+| z^b#fwf|)c=TIh2H$};V?i%W?db#e?+Be9~*rSZG&$q$QQChxrQcd)PNJ}#)K#c^et zF8MZ7Akd}ImqW_mLP{ZbrY`EtZ43RR=MHct`ug=XR~D7P5lOb;u`*+V%voG02N&+)4{#ieiR?)hNlm{A zIZMo&71(TuNGh#{OQ=oJh1_Gfd$q771R#h{X2`G`ClYGv%|x?sNlw$B8BZtLC;)XP zd)FQAb}x?&=)l`ODdkNsBGQ^iu3- zyz^H!fTCwHmogEr-f@ad>puj@n*pTX#dmvs4+fZg8h*`Ujol@IDC<2(u6#fDlUEm9L%vR2g_BZ{CFLc+ z>D=Kd?t;CJ)2u@oRoeJ-*H=ysWNv9GTN%xSM|TzM59@j;id)xj>ZZl8)Iq}lG9II) zWWt(Kej_kma?~x2kwzmdLkl3r$zJ!cag`0Rqi@@r2Nz>y*n1*i?nhs9hgO{<@g)bSI?-7QNRN9erPlvEbqEqccRo+^J_xIrqH{YA~Q5x=DJ4M{9=gT|_pC7XF|YkLB3*H3-9~BJbxx zdZwJ0bjtC11;fQQh3%S^(8sof0=J0xW#n!Qw9{i-&0r#-Xd`Axe3*!W2zJAkBUL}> z1WpF&7v}sy;+>0&VcUfnYdkx8Cc#mC#}*&*h({wVPy$m-IbXA^E0zE1F~yB+*0R&j z=H_yex4KKa6`CN@diCv!9j>FtYQj0lD#ygp*%`QbQ(e|QKV>-JeRoE}Aj)^^bj)A~ z3)^>75Rf-|io)_+Zfbbn%z@q3v>Pi*GfC*?8HVIWG-%@A@`=blzsD-aWXSOJ5ML{w z`P9Gr0de!ENn1|1%I#qA6`_{fD}M^XAYo|4ECbh1ZGKw%4ezOoKJPeMQ$h&?ooo0koMml~SJR|Pn z+$>hQ_By7Y&nJkm?tu9;YsTQa_672M%@p%mu0YQZ5-nJ+s@}Cenj;rc7)OJvC?FTb zTAR@bhI@tisDl{XhQBC%xxV~1eF@{ke5uvIQZ5buQIy-PU!DT%Zmgg7F!NnXtZZ9k|gubLDJxZvXNbaP2%hNm#im*ELntliJb&fM``w2Gw zu4$_pVdJzo2LTb=EpYq7XR({CTH1Fm@cK8=8_B!|6zKUh+RvtHIaF8Ok-Y`H5xg&Z z>JN6-mmNL^-rQnpLoKE)w6C?*XexsRr*v8eFxy**$K}bc6!5^li^RC1G0K28pf{>oNHCwgLDr86 z*+)@Y1~tJi2j1E-1veMcOTpB3Q7E0>{|H{KR_b^T{;)+X$RD>g!W4AurFhg?yWnSk z=n&XGEt>iwAFTCCO2vn_SKUE+f6imunK!SaIn>0drZ ze?EJGnT#!$JXxbRD|fV%jVn!oQU-QaN22%Nws>>2!3*bbR_ieh@B~o{3FXQ~&+O;k zEvFgn5T4Dru_v1Cz%}#)L%(=d9IVI(Ha4eLonO$Rl((zzRL*L5-{Eh1Se!p#021}f zNWJLZaGysMoJt9#=2*&ozE^KWkjKX0c!vme7-fE%fY|qfeFY5hbm;HqG{vx;xG>{o zYSmHLiu66ZDSttI?>i;?Cs=13e*wYs&I;(PXyznpZ|h)hXJ!W^q{0)nBoCq|B@=EPwhiU8ARXzM?3r9 zgLXzAGvnf;FNCqDUIPW9-3upblcCMdXYw7Fa1K?Z#!n&y*)sK;1Kt}6&$B@^TaMOi z@0aXUyGPS&ZMcNJ`yz?_FfBba zUr?sTFXv-7*IJ3Y_nii$I}<8MJxTd6%wTYme`_9-OEqTgXg-XE#H~I{vTqTtaHENz zR6SSmZ!{CZG?4Vg?qx@2b%}10bg@QrSr(@%DD_*^9EO_*siU*1O{} zhe&6S(V;g)VA_abo0&>$ncekbdDXmi#$PxFhkpDObWzBEfp#PVWP`f}`EiX*--Q>y#FZHcpDf zUk_4zIpH2vlT2O!L_;Re3s5hBY7pH4O(~Yftg;7=XlmV=S#@MR_6fE;H|-K!yNQnL zY}~B1T+7~@w@3UD1qH{Ki}Vw6-A#NX8@sCsKP#zEyXuast?EBi(XR1!?9BxW^m`z# z=v&B%J4GEd#U*k_6@E9}30RjG___uLueR~+RH>Q5;5zs3EaFBILY4QN8b}V$rG2BD z*F+gr<3s~A6s1SVFMQpNPRP8(j2z-`S5T{TNNx>JDBIgUon+`M@7fo)7Dusra| zOP-7L$(nbPcTDJ|^d$lbY1ghZ8tyMBUL+7Cuta;^b8kL&l+ZpzJ3K__;5<)C@WeJv z7-Ziie^U~-^C0^NQ@?;I6@H;r_`9~>(Z*=D5!AQHG5wHce(aO0GG?Zg5L616%(eZ) zxuK{6XeUj_bAo1V3dkFmMLYRWQ}d+8`-J@J&jpHevx?Xq=i)JMc)du_mb6D^7OGf! zA%2_-W;fiBlmg>!(3XBwi;(w)jRglk|5#M~Ea{Z&$E%D2&pE7MRIrQDIvj#$8^IWr zCV&f4I+>`cv8W48HEAn2&=RFp2l%syoaiDayZ}BM^hiv#F&wk7EqRyTD6F}UR+iPv z%#_wrA>Y}Ex2OaAKwAypN>l2 zv*%=0w2%}bONxsdzn{4cx>$w!bmyBfbEIpUQx+~Wl`D~*|BDj;<9U4kn*^!lOWa%+ zBR;tizCj(SBl%4OI^vsasSKEc=g;vre_nx5VTOMuA;^4Y3G$J2JW&|0&2%O1R7Ko* zt+JzQKMEt&!@juEgx@m@o@<$dSM zUa^+OMbhL1YI0&fv>CG*zUuL~ys-BsvS%2f;2GII&UtVU*=a9zNqarrUdsVo0Zov0 zIXQ;jlXUqumZ{;$*d<>{mIv8j1%}hwwa$B9nr~w&X{Tv|%_!hsYSY3YrkW_tOQcMb zt2?T)Qpd5}uoF~wU_liM^mhD(qg9KWm~z54O^LDd>qg8#oDoz)w)e-{6y%Jp8-BM^ zYrx>?Q)!cBlXt)U>jB$rsvlrZ4EAB`{|c2Zp65&$aX#@CACsaHLFF}P_pRNA9BS8( zg-xKNymy|m=WAbO$;wT^pRMGL_C$Li>&duhN)v(ll?C>1Cuxr^*E^>pwM#1d5u(f~ zYLXHlr0Mi>2^S6x#&r@jpQ?G=aw7SB?yQP7qq5HkT_o`5I^)bou+Me=I%n)PQWI}_=@6NmYwj&tmB-q*Ao4-8B?kBK#o%7{pQwe(n;CK@(+6N&j^6Y`D_pg zx?9^LYpY1;bmHB6RDsHlz1F)lfPeQR|Jo}=j95$uB^y#suv%aN1#AN<3e3c#s7ICo z)9$elP~m;lKzbL+lt!io(dM#1Ea`OVx15R!EuvS@NRRoa0#Ds0YMfT3<9pi|%1)gM zR(lt_Z+~cc3zTry_6wQE-!^-3-@X9ui_4)|pwUFO&~+cr@`GB0V5SIQdLW30$KxL# zl-7L|h64{V;x4jACYEO>_l06z>WU;&iB&>!x#cBA#4**y|A52)*YNrOhuSeY{*s>8 z_|{&fI$gG+Hr#fSu?n(T(*%Ki>TjT!#DclX(U?)umP=<+qjOC`Kc@4f@eF6|Ubb^+ zd({-LFvC=11?Cw~CcJbxxchjo9{;sOzh{rr>mAxL!FSwF&nHySbF1Rn^5?i4_51FM zxeotkX2s4}`$-bNvb+f|TN_Df2V&aEp9Z2!J|fR*X~cFZDI^Mgm({p*r{Q!$HlR1{ zLrFi5m`gSrMZz{?M_ki3N;If4hu_4MO6QHd04VCl_nIpoB}rmkYFjo3M(LP#!Gp2C z|G$9q|7!s9JI2U@-|&$CRoCG!U5etuInly7Su36ap0yj5xrkgRefTNUn%4Ap4T|s< zbk2Q7oy@xmYd-Er2Vc%&b9<6Y77yYwps7UBJXYAJJkeNh2_M!qmaT0v_YLuj@r*34 zYxRpChexrjR;_9tbglX4B!`dFpX}OGwNIb3pEC3Pw-U4Nbkm*#$`+PHeJqH&3^-Is z4RKus!kjKnz|rnk{%!(WbKdWJHCMRTob#x@{Oyigay+sIiL>LvWPYUnsHDO4+ zv~{+qU0e&(_2e2${VCqxorKU74)khEhcsL(b$={oM~Tv2bH={nY13#DKmilXUQxGdszANf`VqB2HK+~2P5G52( z(-h4KzN{%k-)!nU<6h8zTpTOP={!PyVBLIWtfh^e9El!*|B*0c zDWy30si6*)_n38}DTE-mX|nYARxOSyeh!jdH@7DKtz-Z*2W|;7Rde8Qz;yKTJe4}N ziG9zwUnj3X7!Vt@tA6hrem&WK&(ujreLQLX(ccSW!H?HQ&x4asn)A&W)ZPtyJhtn0 z%z*GKwbgF|QoN%)6u4`%jvvfzEW>_ejVR(_p{R240`AQlQn6R`Fn(}1A+IF6Fs`0N ziE$n8Ip8`heqVrqBVmO$$#qF0%Bg!x^d;pGsX`~mHbOB&5%M?6y>4fWKA#YtQ$RT@3(cyd(+f@Wn&ulh&2AAa;1{CMKMx>&-##*1vtDF*v2dh9MvzSj zG@9JoyL{6K=Cs>qcJRW*pth|kjjbsK*w&^qkO+2Njs$03BVcz{;SCbif%!b`}u zvjk$-RJ+kGXtOB(=)00~8huc7W$@EwVL5*Bvfr4*#}~NCA91#KJLC4b+JI%Qwlnb2?Aa`vP@+{JjzI4%wN* ze+fNQ=!p?`r1WwpFF9L+%liMeH)3|iDL(D<6hM;V~CV27NQM&Z=1$l9*;jG ze3HH_TbTJt-)wnI>To92{4IFobBfPw6W;~CW3uK~Z}vwLRpVRvhtVnZ3ag&a#)U!MgUfhSJJ>rwfXAqbkp+Qd&=A$QOK) zpzK)9JB;)BO^67JQ~qbQdALy=l7_RNDOBY{2bNjEeZQtr|Lk7=r`n+Y8VR}L-yReF zK9o=+vQfa#i*d9%KX$o81S0XmT@+6#Tkj7Q$o-H}S|-%+=Y*|pNEdBcih1=aOo0>) zWqZ^v@$x`t7$ zy}VVCqP_8DasO!Mq5N9~7tYjIJc1gN=K_R3l8SLRGHdG3qZB&1doJF?pEPO8_gwYb zPu{7wI&p373Q};b{ai7I6Zn<}j>Ae_rYDuOmOqTXLD?SyTi&66wqU?Q@hnSr&b7L( zu*R-hVyrRjilOKE5qgT^URpFVMji$f;O(-;U6kx2d>Ys0_^-x*5dZGm%cI8A#q#V6 z^tL+cqqoFJ%;b-k`-)JkyAc{am^`gVOf(N{d3)tmFLW1mb(_|c=@5G7oQfQD2$g~Z zs}pcwwMHkQ(W!cCaVr=Q7<`D_owO|B*N?iwvz7k>&?(>1sNq|!w{nykZ4xISnWdOL zn8_Y<;hg1gNgbn4>7|3}@!H&n7YZ}p9a>QMnp*)%q~v2y?^f7;JSaj|&CeGd1ZVrL zc?NwF!E9Jq3I8mw63OaOA#ZU-8amx_9@C%J4jRcQs9`;)2aeKWvh{;ME+jnZIeZzP zgp}#6iG!V@7^VMq{=!?Xoh7exA>!CED-8G+PBZ?Tbw&zT0R{M18F1E3-ElG3Mjm7; z&NKm}#nD67PaYDP8*=n&N<|95VxT=4`uBmwjCx7vodU|JhRw9J*nRbSmKE)8XM56U zJTS@lF{-FA7Vs~_Jm-7PpLtDG{&_L2;w^^U3z&8Ul04n^Vk6@eQptn`42>g`duf+| z{r~DPY&uSP+QLR->O%MZ2JVwW*2jEXrJXvq_RlRUR3$^cz1##5LS!Q|M}7PxJxwIo z3#Y;k5aTk zWzFphDJoIIXo!6|8-jOC8F9Q@;WUc*kqvY6J+JOfg2A(hO4BucwL0#ZU=TuQ$^jK3 z)h(zaje;z{|F$vlKgN+VxGwDITYG~*jT%5Fd$dXh-0io`N-*2zOxb;rbsf63Cve7T z?G;Wyk88cjt-1@@P|ea|hq1sH1+R5a&MoJr2e=2~`uvK8%|r}B;`y6>)Jd#KE#1=X z6pdG*QW;OEj(4+g>wCV#ZZ7M?stKEs>#~F&9Q%5_h_h!Sw3kk6Cv}!abBBBlyUHsG zS)PPaZRLGuV(+sV%<4`v@q^(Oxt#vYeTkp*sB`)J&flq{Q+(Kj%8<>54=s+~3XCd$sr)8b%p7Dx zaxUJBbTV~SH6qt-L9|xmqAF;OtN>|Ynu%|Njka-XQ+tEVY-w)aU zL;Db4)>HLIcH}CmLym}@7D@Sza>Umqe2p`FYn%UMa`Z2W+y2)7u{4w`1C=Y{MjTwF zSfi$hyL^zfvtl&HWAS)uX^tc4YrN7?4zg%xnK8n*AO%{(JioMzFD>Sr5oU*dpCJjk zR5;S(8~F;#S@a+LLfOzu-|GvW8atS=|LEdpV*6&hPMY|=PD9^uyY9u^y}DvN#kJEN zC~Du>uoC!OE9W)1VNf^^HbIqJU;c;EeZO|zUtj-_{(F#pVCozNCqLSTz&viNHxle= z^w$4x0ol5@ZC-2Yqjq=NmN|uo{>WRBKHu17Rh*e(FEhq!qAc+q#}wk8JVh0C3kec* ze*U}l8#les7XY%2bje=F2+WWn!+?MnNoKdr>^J)5UHtk5!#iziy1_J5{=(~W*@;>{ zTkRn|?P|=C30%X%OHP&;g=nwrY@9%UnO0;Y=8kK#0h+8D{?n{KFXQ+RoA=-PenY;k zhRW&H&DT;Fn*_6`t-46@Pq<;PAY>xluoqJvf)7fV;%*e`nnk{(QGG+&f$$Rm;RDiw zH_MM)3TgyIHQHyG7|JPDDIMPp7>Sd(NOg?3_X};NWy>{0pUBoUCb1G$zl(m0x=tlR z?nm~Q&i9q*yB9ztEZAJ=SAurQ%g6pB1pPZRIdHTa%iJiO&L-#! z<6xRn`G1U9|Ja3~f`a#L=|vk)yVNxd>^(f zp-1{ZK*aI%hkj6GQ84yGxyl8X1tEIhmlZKzwbE;$eSZP$UcWM<5bu>Hh)8U$>~?dI zp{@@%4EGmDt`n#0q~IaF6r85Qgb2*CyjR)P_G(KsADS7Devcr{Cs}JN5rk<&Xju>p zSyb>H00gKpB0dY_yFGb!gGrf#+y6Qr<=<*}jBfMganud0h56?osKd3qB09@=biTP1 zg*NJqB{fxk%Hzj>{(SA`*Gx0FwN_sZb#SszpAw*R0=*x=8<=k57|oSp2e={*h1de_ z?AnMbh3moT;<)a8rQ}6uf#fSZ6lh1-v$HL^O68Db3$opY_;yJ#79pylAA7_@l)zw7 zB_FHiE-<^_($BzLdPN}CRO@rb?QQsJ30<9jlxcJ75w8HJ)|o1F`21vxi;qO~Wc8A$ zEwOOHInseCFO?me| z#OfxamoR^u5`-h{yz3ZoZc|zkfo4UaSbIUPbe+&U0BR9xeg>6Vy<+}y*cZJYrbQub z?7pSgw^mHME3!}jX}ShkRJg%MK_c-ns-db}bG8h{xzV>RJr|V5n?wmB$ z3n1}T-FxwEn%)7{zRS|0ziC3}Z~1~d{Ng!M=g1O$zE^@4O5sb##8+;jGbU5U=zZ^& zY3{(}1CH9$0|(k1actl^9IJW7Krd3Lt&^yuqo=pF*m;d+=j>M9%S37x`%RqTw*CpxG2$n!!Y}DBT=cBpul@+ZWTrJWB>c8?+Q%FPM zm2~iLI-&1(-hxIsr!3p3E2itZoBJ9mo>bD>MZsk%Le`6AI@+gtx$A6m=r*jp^byPH zo%QQ?8bXwXkN9Q1g;zS`jysB$C79?L^ z00=P>XOIeY3pY0^;oNCZK0c^-*QNLU)0gx6;#G8bbQ`%dpS7v_4gXYHea1wZZz4@Kj_@vEDjJ%d$QaICyMmyf1!ON%MUIY z8ykHsOW-1j2iq8?(!o{Dnk*MvYEJl>^4sVIN%=%m6FuHL_GKbfR!&R4$=G)0hKsYJ z+w{)uFP93Au#Qc-4UdE%?bS(sliZa8jK-Sy(2{oG6TzdS9u$ok-FGwzc!2`~#nZYd z-^GR1K5r8s3H9Ej;BCnrHR_kusU!CkCW_m!ZJ*6&i7w?{4jW2khNy}@GhVo}d=2Pl ztl64IZY#GQF+#s^6Uv7|o+rz|?xdMymI(DKro;}0G#y{K%*TT3ncL})+bfg0{8KG; zAjg$)O)g*N@v>CK5iqd9MZD#sg2>&>5Dtqj(=K(m+LZ*7kj%6U+k6TZjau%bRE?}S zrW)=)!cYIL5B~cRK)O-%GXpo86yDay*}I65IIu6C*G=gxK^ZhXcKOQ_$beH4Co@yd zsDKFvP!}FNAp;oyZA=dy*re+Skm}>zaMiDm^IMR3OgrCNa0&o0 zm89@AE0A8P_(SY^z5tYj5ydfQfnjb^`yrDI4m1!`;G$DZrKl8BQ|Dh?pQuD7#AX;Z zJjxURE%=m4*q`}$% zn!I>%mv{R_Rcg{(n`N|9;5;PYQy=LySU+eH>0)907#tu36byDP!3-bZX|AF;9P^VS zUg5U)M>ue0e9yIZeh9Q>d&G!MWl~Bpp)q4B1(3XJ!9U>wOi>9!u{cNc-OV*AG4`CR znj)HXkkidy03;(#p27p&eugqBXsDvI_rVRry~esKOWPS|L{}+k>bcgM;kR?EYap4W zis{4hG2A?ayWV&*h<4`FViggrE??bo%Anm&^2&04RukG~#M(-JL!!a-%ohND@eiF{ zxtzMG<*Y`@NtYu&L<^@$vBm|gCe$09d-HDx_qEXltyRzt+-$MSx0m3)r*W&-nYNf+ zl-G|hOCU*3pN+&;(MPeQ4$~fDOZbuhwS@B{B@6LWd#pi({=^m@jg0<#MSPAcfv8tyb2XLyeX#mQ>b*c1K8L$9R@ zh6*V0c<}br8L1!SQrOo}S)tYlH_0nv;RVKbm4_-hE>)T?W-oXOnfT3e0A-~vuTwMq zUpb#dUHAfT`Q03G`hD`ko(5PI#&+&z9Tk@(ZJnPZ9HL~Sng=6c`-o1h1ybTWDeTL} z)6WX>f7b9m7!X>qvuMS6`SO~}4c?nR$5z8u=IOowz*Lqddp`jnx>D`{p!A4=LMW&~ z21HKJ1cJ0GlMdL}VEzz5GRWb3Z*KM9VRXr_Dv)9KD8eAPBl-z!%7gJA?7h6k4A#5I{K(UK76wV@$T` zWN0Cz4bnN=Oo~>(IjCz{v699;xDeax-LSkq+fO37*3&qZVY{?&5qBs&gH(F1mXmk^ zxGD=}7CYQN_gDU$m(M0VBx`)4ExKG)ri$IzycWWGwlENPuDG2QkFnc(6C&W&$loQNb&(mE_{2)JhTdo1`)RO#WkhB~3qwWAVS@GW%{B^J#gYiAMKqkjPocK} z?SD)B{(GSl*Z`<#OU;OdrHZz>7V_7nQI75Ac_|Sf82)dpApd?H<6XsUV6k=St zdu@+fA4*TK@rpnKg};sNWRYL=1t6@${D@2P%&GpH>@~po_?gW19YOh_7uj~#+0lc? zj-zPGoll)_t;tau893fyjDJQ#1#4+(Fbx#RZ<~tn8T82}fL&G3U~*`izK7=}4ZhUm z{5Vg$-gP|zOo)iAg z8EZ^Q821J6m$yXnmpi}QUr!9qSK!=n%mdwkf#AMQ=u<;j^P;QJ^!2EA`|qx#-i-+{ zx+3(|E>rUbPn|&`!lxm{@YCer zby@HqK3VYF1B;D=0XyT5@0vc(8q8fw4h2yxUSIS~?C_pHoIKI>{zkq!n2KnZ z_-fk`;0u8)zpSrbZ@3;Svqvze)iRc>kk!`)pn|{g`M8RZJp~W=v8Smuivvuas=I_P zVX9sL9Uor+n`#<@WY5zNZr9@R_vzFYixD@~DR(a8>YfKlvieU!E(9iy&32BtC;CPX@Mge5=J#J++{@+VR8B>T4yccZny8bw&4-#lH( z-|XpN_M3&nCu!wqZi>XY@c=wygmJN{ySUQ9DeNHen7c`i)w4$l_QfZI+TVTaqM7s( ztENQqo@=~$37KN=xvO4Xujzfj&sxqiluRVn7l7%!5Y^u#O~zsoP@&HK^9x|;^{=X|K8y*`pNytUZW#xbi! zDkUayavW>USH11F9PuM7S-dS0kc3>LzgJlK?1+D8S)?32AJi={f?|(i!xUP%cYP2Q zT6=x+ltYK>&AGv&gk@XOp$H&9jChJ}o^JeDmNq4m2NXUc_CSyZJjbeE=u8|kVXquN z!<&8Z4t)&09L@9DZ!LL<>BorH!|A3Et6U5Pb{~MwFnh)x^{#J^I|4l=#zPIb9J&?s z+7D+z;=~j0dC|M5;zKtL_bDh{xrZdTG_aUP30?rBe4xiyB#+{*s!B(=P86ReGtPR_ z^L6IMtzi2o(92IIGf0l7)46-oFZSS`p(S4cT^bhROdv`@mB6S+%URdSw!{yk_RVl3 zBwXv^4h_XZ3xb?r!zqye^bF2lYZ!_W7@t-aEA_vKGnw9Fr)1Y8?l@Z|EiKmH8YmDn9VV2YLt&-6WE?8~g}d|Y3(;N41TX9(Hq0OWlvdNrrjmCUaFEW<5M0U+mvG$67Uztso0=@$U_=zH3?s_FA|ym4%AX`c}v zBZ%TVpUI+`8LW=8o$56XMV?P;<(m|OCXeUew@XHX4r>p9N{59Y=8f*B+>qA07XZw& zWDLmMz4+P3PUvJS{ZWqGs*NFBi&B$GR5~<@((jZ-D4^9kSRht#H3VbGQNhC(d=)zE zHdd8JlNM-CIp!AthLXPKZO{3Lj#XBR<(6I!{{;9L-g51%2s4GON0H65*Xp)H4=$jn zZGRzrf0V(K2e3r}AEt7*@)m6W+=P-rXIOi&$jejM>Q%bSGL@pZgUvw52s2cn7SIA# z+BN8UpMMJU!>%5cC1BI5D3jODFIwo+Q?@c<1Q8h$Spy~ECglr&qg)NA*oWPaA!%TK9w$5G_zq}1i2a8_NC4#}j+6&-|Ck*Bt|D2B%i2NaH=LN7R$OqOH50?vSmh+*ZxjPgOp)W2@%Zr_kFfGwV!w#BapU-dccjq;YM_j+3YV##n1t)Py0~vN1Tt!i?)UsDumi;N7n&i|})^hnbEGn&`UtO=?hL1{rn)k(Bp=nMd;$>vWVO;^UN@qHzN7k!9Vq)B?EmO+} zN>3V9eTu?=9Fb(>b`{*Z5XXdY`jhM^Y~KN)Ek$HOMkRFx)=#dyGk%zB5ZOo!)yN$u z*M<^FVhnS9v~$!fsj$OXN2+bV7Co z{>lAHIui`qGAIpZ;7AG@*tLEIu}Y&-R2rGqa8E*@B-Q7T#Ezz6fuH~}8P)Awv2YAz?+ zs6}57a~$7mdAvy+npepiT%036ZW!^f=q=yyZEYEtB|Y7#HT>7=3b% zgQMU71P6V?4}QMD8t|WAJJPSOjb`tq$3s$a=G6eZc>xF34r4VR&Pjjj^c*ICB3II$;Nu%;A(E*@*RK<4?zC^5Dx!)ARPWJ{s!w1P=H!x zGP_>3)Lb?p>nnBCRu85jL?;ZAqmJsIm^!eD!b=KBW&By4yL_SqlPqcto2^^GPVy=reAqErmcE5 z$7C(BM9sh@8OZ%5SNFS(F0I_&!#Q7?I337n*TCARK|#6$?Ma+A zKdhVO#}Y5o)H;25!inf5MP37*;MN%!ZBqZfA}zklzF1hgK=Y^ha-?bS;vbB`!Z-!0 z!-*v(`J;~cpuJF|K+lo4>Xl|sxwg5<%vJhQ6FnDv^o!L`&ybOw{NWPp!MnQ|2u*sS zp62m3M(9+Go0^@(r5|U{4%ESB_YYO(V4{w@n%(l(<`V4sat_U}cr=WKd5LUff&pDV z#Nc`y;yPmHYQ~89;H{J8mO95!6S$eW-9J0e8F4yS@%qCeJRY{z=3H(+0%{vXDIEHEe zpxLi@Iq%KvEWk#Si=B=2FRZ3}%8{OQ`DRP(@`HvYkzY8hcBi0lHk4_U>G**JS$|-_ zl88l2`)UIWwqaBNjg@bSb$=a2jRjAyM!|WIq7+Y<$-6{0rlZ$^^*0|X1XgM_7cvn<4iV3 zJ12}pMb8p9hdneG#`qnaNc>L-C_!zyaZz|Dqq+;4^+&dmy3TgQKG=NeSrJt>20$x@ znKsVDc3+LBlk?R%IonB%dvez2^@+V8d@`V#4<9Q}9fHyRzS1(y+V_xweS~n8(H`RI zUTvIO*6U-8T|y|trvdB9m9#EMh{ythMNL3ZQ{@Gqrp?JuGjJRQX3P_diP(iohDrh7 zcoG^Z2c{BF22oql+n`D}=c}01p(%2b6rmRKjFpIJ{^XnZ0M?Ab0ENrkDr!k;ggin=hBnKp;4Cg6v75m7uFNf-dS^?=y+X2BjE@6ANZk% zVIFr?G(gu#IEh;qwb-ktI;gO6i?d!zKD@c(;fO-mNtQUoTe;-j(q}bbP;!*?cn+7S z+!{R3JKoI|>wfI^!IJDJnfs3QF)rXMnyqZ2YtXsw6tc2DtvFy@Ur2R!>b(_>Mm%u! zdI?a;r32$O#TgJbvrNsIcTsA5LE6CmG_8xm2AU|rN>Rut_0oK+nDZ#|v4Y8vUiB%o z<|_1<7vqy57}n5MFTf~!Un3v_BlFsa#L5FQ;%2`1RJ%Q_-`3sEb)H8sfLg0DCBdTH zRq>$V{Zwqu%$dwM2b^Vk&P*^J8^gJoaw@)*&Nw0Vwq%O-R^per>?Vz2`Y!jYxt4bf zdaXo^B}5&~J9M<6H~dE_w>=Wn=Z>RSZiMgD^*X|X?V&bf;;@gj5p8y(l_nZ7W2PT^ z2}aS(M!8wqLP_-D@2uDnGuI@@~(DKESrC*%DI@3cTrDmU``)ML!+3Kb%Wd?0-( z6)nh(sj$U{^4&+VvPcJ|F8_{;u}fO12AT;N+ODZmG4@CjCB0mAgYD=<=+f6uC74Ap zm1MBw$?sOOn_h=qjQP)X!M+YD3oe}Y$yI{>B0jMHnuEvK%9iS-;84c^y4WMbk+w$v zl^lD2;Aasy4(X|@4RIFAr;#7=*o7&d;p4+L)i-#&A|y*fYj1YWW=aN^vDi5gZBEk6 zj*R>)V6U?fQri%+h=eVY{l6+Av&TBWF7hIup<^XskteZK`fMAbq^iL(835Ze56AfS z3I=SQPSm$kTE?3R$mo*GV zm7$B!H1}>&#(qZ~aO1tOxggKMQV>Nr`R1lx#h7CF!q!)_xD!p2%0qG@l5QIn(4*r7jxfQ?`0+VGyDH$&o_JTnaNr+$rdRm7ki!0r$MT= zPjW#y^G$q#C{`M&J8h^vE!rFD$k-fyB^fn$2|pImD@i)hfFC9sysguxP4q778gUo1 zMYM77up?g6*~1v8Ss60&?W;eL%aTvF6-(6zW}%I4e9!icK27p-KO{JgEUVbp>YtW; zi+kim@g_jLzh+*>;f`^`=OO0%pn%s&1wmRWjyQ%oE>7{`^mjK%@P3ZapfzIl3oeSj zXJi$LCX;h^stse{i6|YJ*ICjV7omFRgAEz?Jks8Hr$YRG{xle@1D9%{TX$nbBOHAP zRN1wrU1bMZo@-z2_dM{}wyNg(z!r`blF+(wHTUC0cuy))^2?xezPM4=@+%W9m<*Vk62 zG@1=cU+=GOVfjAihWUM-mCGXAewN&Ha5+~&J!{SbGkQiIlciG{k9nE<45Vc0?UvXO zQk%W!VEUnvc;s>16&~f0)P@`TrLiI#tn3~G_7p}-Q>5?bTV=rCbvKofni>@M%PWUz z)E6HQOqm(Ad2HAD+r;%zw+VL8VCy-IyiMj{RDK|Q&xd=EUU+J4c4LG_cE4(+VkTFY z3%QY?hRzEnkuma!(Kj+xyLM&mZSZGqNo;Ga{qI^EDJ?e5V)U0DMTjm&TvIndGkqKv z6?`d}^eXkmMIy0IIo)PS+;s3YW?RXLJeH zO47>3@$QC*H32;f*$dQ6lKdw1I?2Oi{$ero#%g3wIv-x-(9oIkG6(~k= z^%!X4d5i4~k!|dkn^GP03d|FaQ(!2GCj2#qMg8sl-H_16e3NZa_Ft<^M~%<}%8q=S zqkO~dEt?}giG#uw8I~iR?q3ugze+fc5qyIOhkLEw#i2EMwfqN4C6%k!S&yiHlHs4- zp1*0)VJ);W&la$Iw1Qvs?EUq4yu0N}&#yqVnE*=U^ASv9U+w5jI58&c8FY@ibSDMvtyk(sD?2s?EyWZ;Fu%gZcMaXXzvNXjIw3St4( zBwFL76dSsd*;(UH#7rJmI*yw;j$AAPRX7aeuY{d-qQROK=yFtx{v2G@%6btR!Fts&tGs!DH<@SbtFZY>yvEBeJQ3&4EtXAX9OLsN%F36U zes_v0sn&uV*}E<|ZGG2`Br%gq=;xp?LykXE7EfLH&cC87{{SDKc}q1p%GpNXe zJ?h$KQNj}%wrjX&pSApS&h*^nEawo0@0fn@?R)Z^i!EL{?yA)-VHf)wa&L;9EU}ZF z8}cY4T?aLkY54>wou_er#Kpq&Wl5KZ^p*#eq|`***^DXGXI7gz!}>f!J-IW7lHBKU zdQ1gb&dijfKRp@h(+?RjWXYpJQz7nDBwLZwfoIBo5{;K)_g=D=CYpKo~6u~F#C78)imwb9Q!#PV$6 zRl8Mg5m`RQAR*3SpZ{Rt*5G5QxC+5bakr)U6kzfL4XdvP8iizA-YyK~ENF<>6}8i` z%!FKfNSVStVG%CxKgc=-3A!aZc%VLCV@^)IqGc9fDFOdbJL>Cb@z{+%m_bAEqhzd! zF$rjIuGErND*VB`sN?g^>pEc!B)x-lVP>I+5A(|3H(-Q3FT0pud}c5Z_H~e_d8H$*XE6b3F=kmoD_Lu!JV~1b`gZYy7kH2~a zb5Rdh*IBi5C2rhzxE=N@fAZJQmy7pGzdu*nZEk&B^v0B@C?0rY=G&0Q_0JmYbT-Bu zoNY673x0z5!HpB)}2$CY9*bRR5QNT2yDb=O4@r%xFolZL|%I00maQO3nt}c zX{?q9c&b*-(@Bn@G4g#iJbuPoh}V;KEq#n$OKYUQFG!ypJ!FbYmy!1qo~*rm2PqO| z$X!xYaM0#7E;h?wIU6C&QkdLmz8)XU*(y6PUhrO)Efh4$Hu;2Z^=}T`#ZKTK+mGz@ zne2v8O5IH_%Bjx7o(cyP?>kSYSOi44sW%<;-^`iWxLelpJ^uygRJ)R54*kTliscne z5&`D|biLTm?}61(yQ&XVymiI9FKk9Lhh@4*1zeq7738}4WuJC|DOOu+S4#W4krM@< z?wUx9;fPOZ=ck`4ldD$S!$c(y!u$Hq1Xa8DIwn4*Vf;yoP-plo_@FX+5TEz;N|)7= zpn&48Pv@9)J!5h3hP^iNIGbN?6Ud4_q`ATTys=K-HmJNC>4tvnB@i_7BcNfT@vnXM z*ycTf`=Ud*u%63w)oG%yyReD#=XaGhyfo=p)Us@KWiv$I=$m3&$qVld2T`6)+s|ul z<%O(f=V6{Er;S;}(3lLa1@@WsK)y=Ew?~Eupr$Sy+D=`KMh&)5s3Z(sPes*P-2n%T zxiTkW`UZov_ISg`M9^F$6z66$myH&l*tFM*Vmk)4-@FR!WWLkme`nJ*@T=v`UmIp# zm(JZtKX5NX%=6?I-DYlT`!ys!fyj0XwNNLqqaZO3PcqXwPi~pnOWF{A5Q}mBlC<2R zAZ~GabMJAa*(Yq;Tw(;SzM;|P>{BNv($HJxBn@)QpFfo(E;!xlgZMteRrq=qa+_F{FsCtoIveio(GceR^AG_YO<{08CWW~^vP(O zM_$IfRKq;6X7if8GpM)!sG3Ly9d+*&6rAKzDB^EN+`dcd`*NUd@zI9h#>fijD4J$qDnPb)*GJkspG3}e{Y(;>QQ&&LWF1FsOD-GJi=X;RTA|3= zrH$WZIbWvqwF~D?bS~ORzNlp*k(Ls2nYK+LG1@Em+}-?#zz>h^EhgWR*zLnV@N908 zSia!vr@Wj=rY)TP#?5HE-qMEnO@Y)S7h+}+P~RTuDqpynikrchVO*j*g?n`oJ3nR2 z$D{7yG03;Ban(HL!yd9?kA}`GKP00{OO?}?wVEW_yZ75H7^Zmc%yEDJAp2=4s6~Ro zICk9hP`Q|@3CumH?VdIr)mD|$b2aLlDT#RvWsJ$o2rjjjj!h|=sE^zBm`x*`&C=iO zBbuOuEgWxG*N*p$UU#=^r;TQfcBJ3bEK@eyMD57giN{zg)%)$MFR~Y9p1IzM#@W`Z zuj83%bsEORIaT_@pT=jDI*BoDY2VRYpX}5Q8~NBg=uI+1v_)k%=s#4^&oSn7SXpAN zOr#=}^p(TFERWoYr2j0C)uLEd`!h(~Fuc8yv=F2EHZ5c8tN}$=3=!T?-l%;4doymN%BbwCb(#X7JI_sAEg^saxr-^mJ_6Y+byCL1d^duuFw zCyI`Qh(*3y*%7snR8uTm@I7^g`Fq-rs80h;6JZBw7~UT*!{YQn@wNL|O#6!!Ju-e~ z*eyuS=GDXiE=yfu6OD}eYUabxp~gF`V`ru;H1=5O;qTlk2Wr~w8(FB&h?r%S}?={?@dG7(UjmGH~L)3i5fL^DH%jzBRhxu}Pyj=9?^IYew|@*2R2( z!(ywhYg3Q3m?~u7z@d5I!L5|e=b?MC3klyJa%)kh1t$PzKW7iiuXfABID%}*G!6t*+{1mUi`4%D}MM>Ex&&52`YVC#~?HVO$J$1PLiO5Y{_&|aop~e+M|P8aGn_QNvCr|Q;2Yh`GmKq$iHF0a zd1oleGOapCX*$jIX_eQ#Z*z7PR1ZXLke3C&L!TL09iLkcgny99=;0p?gzqo?*vBO# zea@kuceZZHWWfL#255OBGW<-+^=Gs(b`vDA(%=4erwF94l)U`0FQG4Re1YYoy~^z$ z-4gP$IG@e-^;%Dzcqh8PuZfrp%_2SbqX@0a0>MufUG=&?G(D1PH@&=WRQeHdB=0G& zPn<>J1p=DPzSR08UJzYoi7*J^&%k5Bqf~Ji<2V=_ZbXryyP2+Y}u}cqH$2NdA z-SYBxmD!kmW#z_JIJW$DnuYoTOaK0f63Kp@&?>;7M#^p|aK6>IUFG(Gia@-13&l1R z`bGUdvx!Khkv5~>_W>~?Dq(89{f7uy%9eG5J>CiOnzgrq(qfql;nDg1W8})k4{Yen z7yWNu*he*Fbb};DHUDSqlY+8YUlSN4wPYagKm=`G-|}PXeXZQhtj3cE0b@*^jqDlZ!bqV~1a)O9Hu{{gg_H{<5Fz@Pk$J=$yXZ5^FbWsY%C_ zTTTkrTI9jD;KE*VC~a%hW`X+RMMqmeg^Le{v{BltKrw&1!u^w66vkB-V+Gx$FICls1PTbFJnk} zMWQBoU8;EN+Rj7fAkW7)V?rqI1kXUla?;`jZq1dvgkcQ>#B{lATxWNhvdnJeGXy(SzJ)V@n-e>GAAnf4+En2oem&|2bq@txXN0BQ5D@F+ zD<+Y>u{XsK?;IxVzuc)y-smqdsbDjG}`L8_FGXEA=t;zUHi*0~LSyNc(qN|$? zaq2d&BLvw_Et6(s@?h4Is+mj<(dOCmp>o`^B)4>aQ!TQiUw;<)ns`pwh#Q4uxlB>t zGOSCo?&G^fwXLZBOhXQnNKdpt>TYx6AR>FXyJ?legJh_X?qV|KGH0CvU!}9H67fxA z&IgQIKKR+fGZ`#hS9yZlbfq>Ve3&bQC%b&kk`?r4A{%LZ@THX+ABnQP>#P(Ta-uN&}P{Q>#VNr0wsZb zWX@PoC;! zO%$+{g;>&`?O7fMsm4*>t>*5wCE@$owy<+$d6HhK`ao(YOi@TwH_ea1+YkjPi z^$~+LjbHnfuy%c{P!{>;&w^o4v(Xeg@9z>2tDNeTX!WDLvIDHswB2>ll^<34XDo)! z+V|V7Uw$Q=%G)C%(ZlNpe4=n1nGD8;9YvZ{Y}C>msXuA5!;MbrZ9c48vU~kA?g3G^ z7ThGqVUf2_pppHFP}0rwKa?6Sy!QTIwxdy}wm$x~MGR6MjC=fSf8KL5R~$p+Jb!s?Z?B zX;l~y@}w@XqYXSAJg}a2F4VBo+d68V9=<@D1Ru~95bU_mCLkF4p~m z5d63*AUr|BPmu5vB;o{#_)Q*!I6)##kcbl`;sl92K_Y)M2O&?8*MK|?I8QHC&p?0* zSO$OqFEkt?gMosT*ypaHs(VhC`4DBmyA`hKYi~q5w|c6Z?NbjBuV@7^#WxV=;7AP&01PcP_}>p8 z-Vrba$nivmL154*ATEy|AdmmZz(7||%MdWY*95ZP03d8mIM^f*}mkin3s<3aa_ z41s{6fN=anhJwTXt1bqHKm);e8V7;EkZ8dDf5>1E42+-+2pofk5!OYb!Gv5OXe1g# zz!?fgLQsSBrpKui+E z3j&2eqY3PX0Bl9*b0h=?1nQrhkuYGk17^n4eM7=gD8iUT!ZDEJDdP_u5(a@1_#BCZ z!;TlBKX7OW=6LxyEkl7J{}q2I2nun$CjEhfArORI02B&EU;`8q7#{?&hC)FgD8hEp zNWfeKZJ<$T41qp07zM`=_yY|L1_+@H4n-3B2#o|rE1^CV2Jq6K?V>S&e+f8afU1P! z4X`{6N}vyzAdrM{k3m4-$E)0F`(Y4JG={)OK&$~mLL3GNtpCV-akkEG4!GYdl8%R? zC+PQj0erJC@$~cs{a&SklWxwz4#13jJWKod+TwhF&(Rnp7y<@U3kz!)YEu6X3GHaS literal 0 HcmV?d00001 diff --git a/media/графики_фитирования образцы.pdf b/media/графики_фитирования образцы.pdf new file mode 100755 index 0000000..c1696be --- /dev/null +++ b/media/графики_фитирования образцы.pdf @@ -0,0 +1,407 @@ +%PDF-1.4 +% ReportLab Generated PDF document (opensource) +1 0 obj +<< +/F1 2 0 R /F2+0 17 0 R /F3+0 21 0 R +>> +endobj +2 0 obj +<< +/BaseFont /Helvetica /Encoding /WinAnsiEncoding /Name /F1 /Subtype /Type1 /Type /Font +>> +endobj +3 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 14863 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CBEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&-b!(f-OJ/4#of(R\k,;#b92\C\L]M9GZdit]_!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%Q;bX*BrN$dof/F:NmbZnc?tQ`*Y-HM!c/&Wg5qe-dcpDEt5;'-6(X0,//4fDp+^t"HC;%irc-"eik1-b2V8b[9ZP9aN895bb\_QN\I,t36MuS:,Je.O5$PARc6`]OHPk8%XRLL#@uoo>fj6Xpm0SZ+@5Ff=MTqQT%]"=Iclt5T%TFe'bX=,ggU*.&)T^_MTb7!fAD!!fADN!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#8!l\#o1a!7Nn=Fb<"a.5lLeZ^e/_gKYra:-'!O5T:D770"(>hqm2aF5dA9QPWRaPH'Zp/pjisc9=K>Y/6WX%5lH&suZ>]fo?IPc?k3(_SY<3#jL8*,37/^=4S;-`:9FjmMgFt"acm;RO:iD0S;pHMsnFEADOUFJ,A3UVKV.%nX0U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArQW*4Va::R\&?8";GDbd&b_eBd/T0q"B/n7?"o]N]C`'a"5V*Voca5T:JkZ*]&>F7$j0;eOY7k^3E'Q:7/D.&9e39Wl/<+Tpsacp[!7e'6AX^X8d0jOI)?5rD,r$uZhore^:]#c_5(bWCVio.64lhp&[C-Ed0R1$!fe?mSA/ed]Hp\t6ZrcNUNQbiD0biA46]cF,=S#Y.Vp;2/*ej]Q\3iV`r[9]lfCIW!.cT[OV&GV-gIEaQPiOok4rZqLDj2]T]"EH;'rrA"b+g:ZaHXn5_1&gn&]8%CepZ_J%Hkiga!,m+.)5TR^E;o.]:BWZM*rUR,Su88dp\9!a>K>Qdrn@A=5"On9U5ETT'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%Cr"TU+h^ffula7aD9id#Z9HTajh30'M;N(4jCalUNBK(%POKU-'W=C?-.Y8HPK3c2eG73gB.>V+cWd95Z?0kW!_:"3&LX8$L1YN3Y%Qn"mr\+&_TUe,aDNa$D?G^Ob:UQDUL:p;QKm%@"[=%M?)_F56mRY%\_kWc&LZEb>X5SgE"%q[7R0=\37n+G./"7Dq>*Si?UVDT?H*&Ra'D?3ur4k_flYC#K\IbaF0-AX]3fWTAF2>f!.'CMY#F!!/a/'+E+fel[0dBR"'rWq"M1!LJcSa)`l\fJaYFiE>?o\R)bp#!"[9$[/9IeEM`4MW]@'Y5\K?G^:7(5O!0:lJYMA3;3+4pt%r4B3LOue9'lb$7MX$+JO`A!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2/m2U4>4m:CCq-_-s'3ej%f1(Me")b9Inc7"+Sp@k4s1[bS)sOM(jCe(-A#;!Vc`p5\Us"]qIbpIEqsm`7f+/`f*JocNeD^T#/q9R5Qqj!5S;?-NTZK3&r#l-PhfkEkG%]r$qPAA#74)G[_[l?Ml;#@]c*T>u/`HA>@(ET<)^1tK!?B^q2AlQ4kF8+A#*q"NdZ*s;:t4@>c0dPs1i%kcg:?,OG;fCSX2,a7tG4W:fJ@H1SZ8)9O2gA^J'7nlDd<1EtX'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng5SfIb1O^CZZ!3[f#oDr--(L8BM%2*&):;-$*h2[5JlHSrguPEG1>ioer;_\ZhS+,oR20mP'DJp(>AGJR31kb'8`D1PX"-q>4pu\3P<)Tf3HdFRam<5Dsd)o[#V8KjFPD?F50iiBKG7h]r-dEIT[JD@OICYnFST6U718*a$"0XTiP-*])59+.&+$j.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.l5)8ngirHp#Q_`J1FC"r$uglc\;#;,&$*/m:)(K3,Pf1Ei0o`oUlYN.&)5!.&)5!.&)5!.&)5SpK%U9r]>a6?^FL;8;?HX,jaF?rq`\Lk*:"^?_7nnMoT&&@F<];a7K6-COa9K/6`%.F/R34jtFg.qlDd_o;l:!lS@A^123*9rr?`sc=!2MW<;R\aCF_>K\RZKhc_NFKiL=d1k(u;bAXoSFH'JY=jtgeeZuTk[-uRJ@W-ri'*q4IU29G[(;"cdQN/4SST(S=5WKZD:^6;$;*Y:!;*Y:!;*Y:!;*Y;1rr@pdIg^M$e&=61I`XScpZeNYkhkRMHInfi4]bC2;sq0'#5-H6M&_CegJTcTF!Ysf@'!C[]!!C[]!!C[]!!C[]!#7KRm$1uuQ:DRZdrfLZ0E23D97!e%\T@Z6,Yg]f6eF`MhD4c23+E]lfVOA@i+F%Hon[aus,D$ADIMJ:K/`LQL$=,C`/>UUi],hNV6/BZ```uDe6rrB6.*HGI9dOm->'>uq..sl3YWk\,P#@*;eI\06d%7tS)Ol]/;o-:B3Zh/*<%;S[uo%`.^%Yq&CE,.eHBr>QHG?7(!'N,cF72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`&B88_4=40>!argQ^e/_gKYra:-'!O5T:D770"$!70"$!70"$!70"$!70"(Fpu=W+=45Oba"+.A\".@$pPBlTr,MO`>u_,l6*2'RUJY!Fkeutf^DD^53,]T@0_m)Wqi3^ulh!'D??^ag"*i@7QfZW&B%o,CZT_rWd>"m3n]d`6]p,M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#.__k6KMko]T[&,q)0:9j^IEs9mDoZn^pjmqeJNV5>KXq>]P*=2;1%>lR.J-m^!J-m^!J-m^!J-m^!J-m^!J2=UX*oC8O/i;<][)Bls/6TAS#_Wsclb#hJY7`ItpWkCQCcKB]"XkDHgECDPXlP6LocAiWpUF-k"E7CcEga9Eu#DI<\XB;hg,A$hYffC/\,E:@U!'Jj2EP)/)uZ6c7eOieJ(k`Q5!1b!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:$:'PA4BWj>"\[tQD7Ib/.2pHQF?G\%?XrX/i:FM/k+t$je%&>QXZFlBbT$(KkV:2Q?K$H6C;S848[#"A1N0eJV'P3?S"-P(sE9h"?ZTL8J!$].>rr?A%rrD6aZTJ=Ih#7knC[8NKmR5Y4o?)MpgG?!\\/dYQX$.Yq'B>a%TN-Hg`#=&'s-3F>YX1*@$.BjE>,hZ[YqC3\0%Wqdb+2lJ$m\tX5f8[k.44IZhZDbFBK3fu"o'NC;2;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1J*G.nKtJm2GLeQ)674-Of*AhCI4)f]FiQ[TeeN^*p^$^,IMYBQXRqS['Ym[pBAD%jI9c"=$h8`0U1\\J3-N00V?Q)d=o/0/V;G[&'DIML9@T4j;ddn)(&:^FNG@R`WT">A.md]@\7r^D5[rk+s)!71m`ej"k+@(Gd@RH.'^^0Rg;^;g\j_CegJTcTF!Ysf@'!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!F27VHoWgWD\f=L'-=>dI)m1M/dE[5q>P!;as_S)d&ec4'hE5$0+)ra0+mFVE#6[-N;7Z/SuC\QiEN_QhB^S!CqU^9^-2JrrI)q6g2<[&X(h([g.3K@=/57Xn9n764/3>*\g4a^a/\C]-DP5FWEua&S9t89qT!p1nG]m,];;@P@:^N3Z%Mcir&lQ2\:%iC?O:M#>I$repFHsF(&ehmO6/V#mor<>>d&UKjE]2J?SX^#.Q`!5Y-$`U#7hN+)-Cu'eK8O,?R_PlLMf`(qYJ$!o0Q`oVWCV"$0bCu%*d7KD/hS2iib4):94H1\EWVi3EVotAjlP+R;5Kn1PbMQRJI_Y#b06Qj!Ni%[^XGm:=.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gXJ4?!+&M%!9aKklQ=!Q#sX.9c&3_8m:&Gs2GB3jdr60Giun3F#/q9R5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-$aLM>`W/mB:%b.,TulAaJP]lIF#f<9Q`WMbJu7eo1uY>HNJVFrEb0R"_;k9_q&-=diQg%3U7Z;mmc0.P?j4(/g:WTKl;P@l1\Pbl>)$7>gJ;7)/iP=:JJuHG/#dIi5c.AYG^L=Z1JP=hWPl8G]1OFM)ngHT=ZlP"T&,uPOI@\O];^t];$?H(0"kg/Q:?pCUu7u3NklSl2G9W]9p<8ipNr7oJNs[B8CZaSJ+m#!/-D)>iYfIi#NhbTCMjXCT#VR4)J>#Nq1`+N]A-0pBTQXEE;4^a"1fq?KKOf(dDjc?(@@NFl:/5hGpf@A3oGojG'')/u;.RAILkc>4L1L^A!cuqD)miI2!t$HNJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J24P4!"[`WMbSO[f^]P$j6n4=K3Y"3Y?uNDq(t;L3I=]DVP8P*%n8^Co)3@NC6kos=mIsY=l2QO_W-`(KB`tW9#kfk'Vca[=^DX-?>KDD/V9/+ObQ=I:do?tf(8YeNMS[H(;iA:pdU1Rd\gFhrK(dbWRqWX/A/SEH_5XJgrr>[\-DUK[kZ8;f0X:WX5EFC-GUJC2"I]Qu,&t.r:-fTW%UE,U,\;BFjHNM16"*1r:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:^8@`i;8lf[Bt?^?UV622cfW]gMDGM(0,'miK77'!2/hl-O2GPO2JQ3^M@\'rMsKL&^Jg#"L]s/="0c(*CQnu*"k&^+CkM<4Z*pqY][KL9SZJsfVYKfBlPP>Q*"n,"Ufm4[A87to:NmnnE9_,qFCL06iR.Z$Ic)+$I4k1?VK+X%kcEY46'kn#e`.tOmXt8XT30772,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,bBd)Bu475Sd*DD95N+HLMI%I]'p?O,E/WVBhBp25(MVQn4_WdF`[?Bs_R:it[d;knKJ?KphV!3Z3hmZ$3h+3!pdgPg&$[X1T#*IeUb.iL@Zn0Rgq0)LV8BDGo6KV.l2rGu.+,4J=(XZ4f]ASV`T%ck0UNQ;!khtbhc4tF1m:\HH$m"2['NW$;^BU;b_XH>_64*r&:`#R)5%^4)G9[UV8cJeVI8+dKIO$s$VXdp0-Cm&EdPT.KKl;'CfA"';7=-=mCE=SH2=#`>:p`eZqlS84kXQhs&olZDa)f2I`+b*ght&LZkL'9X@l-smf^%,cm@P#irT#R)Qi'@eCKHd9*tNLb%cC[gEr"i'Ej3X>?%%?I5H!OFg,Hs+j-XQ[-+9"4]O!_@64poWVq7aXjkU7$.Q,I>o<0bFCNI7bUOqJEQr[<88L&5?A7.\E`h]Rn6Ad1a!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!jb!Lrr=7WOoGDf;#^OZ!jq88_RBh9L%NWJ+S+o/6bYHPOGhS,)'7f\qToGc'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!:t9Yn4'K$MqLu"l-Z-bd5+qQ`IYnJkjTj$HApItf!.hQ8%EeEo(t^\3A>B?[D_P,MFQL3j[E8CMt;_**R6lDS9B-:p9YS1%`FhO5a`Q]86->-W&9!Te]#.rd5CTrr?A%rrD6aO6u6tq;\FR!8tPMl0fg?NY6h+lbTNC4GX:5Pa?;!.rsdrZ[EjlTb4*W;ckU[c@AfLnG2<.i-UP..FLQ[D,9qf`2DX>[q/^&H0Mg?)R5[d\m*$Zi:#s3fj7JDEmoR!7R[K5I[`o!9]B;rr@Z*O8^>r\+'e^f0Xggoo3Ma!]95%Z>MKF82AZL4ntQElB*3+%5,Z)!rnb!]!1l64rX3U.pkf(#U9d(nXT&:`NhcUSK%l@c,+q^CTtd!6f)/^-ON.;#g".)o9C<&GkQ"B6cX+C+<*!Z*oq20Pe:6slEW6$W;>n1@rr>0(+8co0J+43RVaY'mLf!!QNGEtp6qCg;m-BUs-2.N4F9!\+kHAV"!4T'0!9]B;rr@Z*O8^>R2!D$emH["4j/DtXi3q\G!/RQq`$d:t7CBlgVC+,`p3"ABJt#%$3Y5Z-@FM^jeJ4MN]k@?F4EVbD(>OE0'Rt%(rrC@c8,iPm[ibN:!,9h_YMp64n=nXoRo9ug+8\+Z+i-mGI%:NrgT]r!J*lPdq;\FR!8t$Mi8()HsentZ@4B-VCk5)6NGDp_^[gX^lGa&2j:_/76m!"h`poq20Pe:6slEW6$W:^3IXF(oK:&W5]Vk)BBQ7Cg`"HXtd/j%Y!?s0&u_Nku7T^Dd!)?cQ,OU!!ThRr'^qH?nsA4"f=j=SRX5E1CfBXOpBojr.qA6V"hPt"@7NUWPa[?G6=0-kPkO>Y)E1'ci/1S5PQh?rrD%.$bm7I6Di>brT*Q["?)fjNJ5/hpBMjc+2biceQ%rA85Qb"d,H^OZn-^8r",p$^GVr=rrA_l!:a']*J];l(U2H_I3&7g0cBmEIp2L5mH["4j/DtXi3q\G!/RYa2ju>]r-[b<;h*Cn-?fB.d_.$@D4JO8Th)lUNNbr[*MIq))oOUAe3kXBGQ'K\p+Dir9"ppS/a4#4k'@rj8`r7nSa"p;^%:5P3M:5Fkb7A^j!DS&@AQO7'`OFFU4\W90Gbf$HFce?5q]Tdl4>;ru:a+#HB,mV#Ss8IaZuZJLLGP5bMDS'ZORn?i*&94@I;SUXNl=qLJD_pa\lenhX=)3c5mf*cQ/go>hNVa5Q!r]M;ir8JG\CFb2!r##V6a/;\)b7o:PG@,STi#:(8I$=R1,M$;Qlu"Q=h8(Ff]-&tDHN*tiIWaX%Tdu.N)0Dc>@ufW"1284"5B.Yk#)BBN-IK?>js\M8j3'UM3cjlh`i7mm[8stNr_9!I\9a#f4[jUWe$Z^c!7XHsW;ckbUn?$<48p`)61V1doHU#lhFIQSN_+El^W\mD61%i?2)"N5[S^?^R]h_1!/p5=:-(;*S:4q=4A4_5^s1-ArrBg3j7t9&/@uV#;/8eNqqq2jbscm0nXkffS?-Xh\[6kUVuHb6IH)Uuro[5#PG&4ia7ODmq@h*TQ*DOAbDY?5PPqBbk7tdb#dSO\j$+FNUEmcnE=THih!54piAYkO8f1n84tV;e^_G(./s:8l?$*oO,CN!qq`6$rr?sBrr@kQ-cKlZ=NTOQ.Sn2&@Q'/T&'N)?H/khDZ9^SVA\GkJ./s:8l-re'O,C:a37]@:r,iC@/8\uprG6+?07"_lP2JK0dHF%_BiA7k*HK=p\a]$hBlSA,!MC>,!MC>,!MC>,!MC>,+h.KoD7(%nT@[_RTQ!f4#"U7PoDMktI%KRiq6+Ct9&5o-#&I4`[/DeFD:Z!I]hOk[.`DO!d8]#,7l#f(9;@j77k^=.G2CYH^nn_`)+Qm%4H#e[ZY0ro1H%F+HTZ(9.*%F-X-[CA$"U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XNc*!dsO$L8Z:p@.g-0oceaeh_PmG\3&guHlOUt]6RRSq8S!];Ot/!*DTW8P@pj8&A8t4:afnE8D`gYrX;Z.IB6SWBW%Rso95pJ4-rA.+].0`ZN0;)A!6HFfB_o-N[AP>4ZH.Q^7uC=#nN)i7N&r^9K@FnW,F[[3lJG+^Hn28_1WO@1Iq;8df/#*_ifSmH]9r)u&[2DuSiVrCa+CWTL7tOuo5/u,28uh/NR8@?YkDqGLSu?G25r%gNgbhRUejoW'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ES6e~>endstream +endobj +4 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 420 /Length 20006 /Subtype /Image + /Type /XObject /Width 644 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q^_&KED2u!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!12iq%*qg6egLl@>3_-[i\c-_`I5ro-%jV"D6UJtVTs;mm$G/_gM6!&lBsNN'(DgCoG3:TYO(fsY"cdlDoE(d^'Ls&iS<&fmP_K#"`11u.N:j;V.(]sgAIU-JT$5<&V/8cUW=I^BA"HI\k7o/hAt!DelKCjFX+f:L`]Jo83QFo\.n5CK_j))a8@U0_)r@QSe^]d_*,`e:oBGLs\<_J!)/fArq2q[oa%U-9r\\GJ0#9so;!Bb]G0n?ONslYHMA@D;:H6JOI=3VHMC>t\@%rN-$n.j-!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%>!s;iYX1In+Un\FQJeU[eKjNDr=/(]\31&'^VSN)_HUFrIdB>[1U:8S0$sCo))JrbSool-XHWjQl87b"IlK;-]s`hqYAik!OQ=Y6-r6p3cjAB%ja@_^NMr,Nei&JZ9sYp6PPB:%k'iaUksoGD?#2jI;('e.G+>r6f*"@J>gGLZMfHRYB0pR$U@WF:F9k?6,hfo,p$j1II.TVfP1^.&eaGU5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArEH)I.t]ftMu@lBLW]*d_E;3r0H++$0I;aQ^aJ`>%aZ@iT12g-K9kR=Y*WKeKKjJZYcL,stP0h&R+FMtMG)p:m$fi5:7e%i%X1DXFT3#O*$fV4CPZ8FKoVj]LdZ[V9D++ZkZkKF(7Pg3qaP_^"]fJfs'3VcM!IVFpk*:cCjVfg-mIQsuJ1a\f'ED!!'ED!!'ED!8B"tJ5?6&K@PkS5uoIJ8CZBS0.PHiChNr5MVC@$Mm"Air5KW2gEHV8;-HAb3+:gt,970"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70$kCP=^C0dH.dIP'+7MBd8@!Jml%aN(5sTaT.:[#E4::^jkoNHoq?.@,$20(:Cn$/"C*Wk1N6IW:CmSoB"+BO-+ji;+LE![.8`UL#E'gWm,>V>gORc[3@2F6Z+RT59DO[2J&7nK+:l>"s+Ydc>4tTHJ0.T:M3VnaB56_O<;b\+Z7o\@D-6E2Imh9.LDg"@]a(+IoZ@np0u4X/cQ=C3>ZLOsG41ULm=p2DV2Wi/sY*2!X,6mi:&([^!Ica<2Se["#quXBKVBG])RCe`%j8j@AN>HRX'dT4kg,N>9UjHpQ.,+A?FV5P3AdO8O2Z\S80[QhV?*f(-*F&E@uretKrXh$lq=R5#)oT=T'a""ugIlbI9#-g&:SM$&'A84/8Gqt+:ZAo[5qI;_Bmp1Wd*\W7D%=!cV`KmNOP!g,M^VknXhokRo:V#[shmS3BZKnTA`W#oAC$T9DU8*WTl^5G'$`29DhECnlt'b*gu$D)cX\nF"![Hl(?H8e_O;hG`0Kgg5VE/'ss9Q`h*&TJ\"JrEM%,n5,YN/VOr8@V5M.VD#9oo"0(uORu;p*4Y0qlBZChu[D.rlrr@NJ!-r16.&:ec'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!A)>/ppnLO9E?mUtDA_^IGC]11Vf4a?C`dY$'q%;aN>_-S@sd%K3=C71M-+8FkYP.lTjS9bj+p$1RbJ#(CBKGr^>`hB7oS:hEcT>WnkIm7+af(1u-1Q-:kc.XuO+%Q0R1N,\O-D.G0rf8DJ_"lo;)1TSOMV#!^Bf7"bd]Kq%/cN_:lb#k.a3H`#a)H&S3Vq7:=,LXt\f+A#U\d4$i@YWI-_Vocj4!6r3%6AqmPlPi8o>@YRaCBaTH&oNPZC-Y.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!/"#iG8UKG+(IS'oc+UO3T&S_2VJ'L_Lb96"ONIqj-Nk*l)8RH1_H.Cfeb%Ot-Fat2o34X7lrl`11m(-[jbOOdalMAm-ROPG4V!X[mpJ`b;5S8G#FB4Fj(++:+lM[nN/qJ1I4L&[eF#f2%,]bWJ^kiGOpP:SJ*cmQp-eORm[r[hHIl`.kn[IQTsq[mHM(;Y1*9>.(WT\fR`:3Ig14q6:$:7dp"VRCqW%/KYBWuPO2O'_^$=NKNKYLa(EH$=q@Q,"MpV)N9C!9m,HfJfkl,Af9Yn*c0>&0IRWb^U5*Y4A>lgLfa8A.Om@on,U01rJGhck5:-fU8jd!OXX4poJZGPW*>.Cr&n%bBBMGkh@LHBmeeA>#Wr-J%&"gJbm^mFk+Pfp?!.7Y+H1DM5lgcrdPP1!.L^a:3USLP>2oBkJ<)[o`Xi@M!5\c-h^[ZLF'CIt%o\UO_3[du^6\W&B0s&;>DTD8Xsa$PbZ&;#i2CIA!+GpI\s'Tfr/DI6p#U8p!2754FcUlgOEdNohQe4Yf&6hSg$hYNf4[,bk5]hUd_KZr72,`!72,`!72,`!72,`!72,_6O^<@%n7Rg)IEa-C3?R(;Dsc;Bu$9hGm"'HFiR;Ir+S!2@-^:Pga[[adJj3=am*c(77295"nes_f.j@ga=tb`f0/&?IJ(8b-.Z,rdCbC%4a.Alq#:=Vf2#+)W5?4c;5ia*FE!Pp>^.>j>:ZUcFBb%p<2Z?:qu6Y'cdo_)AT\EW16IYaa*>&b"lLNOi$6VMDOPP=,:'E!X7*jiMMN;in3E9_pf)F$4RIk@;6m;"@^d3.%_a0h6A+Shaq*2A"=X_L^4Rni2=>.V%#D[Pf/]?-d^T-g=Inq+p\@ZLHNq2Tl=WNKmQH5*iNa/S=V9hs=&6G6V6hd91&]jL9s\K8AZXhXsL?^>C*!4q(GHWH>&9:^IOMeVag?A^/4N<4tcTE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE;GIrrA1U_u@FJlE7#MH,n$#X(U'Y&n*Q\ePqR>uu1!&QiAUW7XC]CuO?@"06beZX/.?8`]BMM(X0)G3%CK9\OlRd&H*0f<=0EXa1-WgoOcb7\ujJ(TMo4rjD>)i\d)Ln>`$,:fF]MCJr?.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5G[I$lg$iN"VdZ(P>?Sm]f\W*DF.,t<6'NS,P,ub>kmq4aj^VdXjcD,<'%JmrNee]oTE+$aW+9kkC8K\aZ3$dN0AE,#OLb/!n=OM>m$R`W70/b7rUNB"NjU76JaBXHg3$`L8F2;dMD""Hko'Z(c8FA?Nk.$QgOW3Z1jf0s)]*.M\F0g)7gggiA>s\*<1p7eSlM?d@gK`sG%Fj8fPU-D(/boHg`_7G)p&t8jL*Uii:]CD>7>Lhe>lOffE*!n^L:%k?I3ZVuke:#"Fo52odp$G?8WT`=@!8;-L1\d9@rE%'T0_k16=d>"B*]2isWh0(\ZFJqk'2J"25!F###*%gP;.p\oH?lJd1Y"MPi,@dt2%PA_sf]T%:$^Z57-orVZk/k>IgQb*!TgJLi&cP>!CF2HnqO[CW/KGp#Z1^YY*J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-sMmr^MeVqXV2s!79Z+3leqBK'1)kB:fTQq0'4[-M.bT_nh'FkXV`TCf*V8!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!*'J@8[d4BX,@@^b]9jBh+qKC_<.rK5uEi(;N%kO&`A(@k14=/$gPrbh-n5sht#>N`-hhS%"$TE>\B)(>Cs)(LIrM.4ZMp+7SL)]?[i"TYH;a6]4kIpsPmu9F=14:H:4_Di9!CL6VP9LAS6q"gVU5!]]JY)tW$UgVA+u5ZO2nHU2;2+lip@KR.gu2@et^hRM!d_8bOS?!h-p6m>1S/nk?g#)qlc9RoMJ%fBG=<4!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#:QAE0,=>9]!&s1=kCgaP$&U_:N?[*p3NLf#;5srr=94L])L'rrD8%:^3I);*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y."(cCJ8.c(0qBA1]ET^$HPLM/",p)haIK"W)$lM=Mh[AD2XG+54kE.(%=8%:\0B^3HD'e)"'@4`Ds\ujA&)-m=n"\?]YQFK]plIS'sr14PP,l[j:[i)Q;oU7DbpB1?`?/7@*:+$P8<9/A-e*ae$Xrd?[#^E1g"9`FbK5I/L7"8S0q:BUc[9Y[2?VR!3EUq2`2E=^gO/6,BEkQWVAK.a1/h7-&b!?/@&`/ha0*gc@7+6C1:cQ+n3'pEu:>#D_p^peK.E@_+,:fgK'N%b);+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;-B@-[hb&WPO,apQWI(1G4rA\9TfrBEOh?"!"qjGIO#!n+'4(uZ8W?8/523`;aE0i,Vggd.f`,]p*:28"G.'_BN@:_Y8<'Qc'Iop]%5h8_P:Kl#L%B(_"PnDVd=V+:U0EoSYA[#f@T!81dR5'W`ZTR"+gcWqA_\Kq&1eKlcSDj!(2?g2!CZk!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!9QCTiO@D)A%Aj_-WRK:A[J4bOj;C'%8#LX!"u2cFMm7%0)jZ%G>OERX?5Ihj8"_cdFSQ]]diV?eVB&><6HE'osj6;IG=$OVL';\VPg2DP]7E:X#I68I@kFJpbTUXW9G5.Y-k.EI:j[IV&B"4\3AoU;`H'>(?6]QN_@A1Csb('+Oe=`/<3s9pX?j*SGiZC6`"NolIp&5YTK#sa^"D7\3EToar*gU"\?H7]l=g!]H-!TZ&k*EC(7`i4X5GPj?AqgWqYPseJQ&E=6RrhMC>Qc!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%TCra3t-664ZT[RMACa84M0r$,LcR!T[0Q=l#L(cl8-U8`-R)q=aZP:6C:6m7-HCH6-]iO?,!&"DrNoB=j7@1I?NbF1aYIWpisSckGL>BWm%+77Z.fRo""c#d,:[qK<B(#bA-ebIH[4$!"0:/iV:uuY[n6@+SQSX8[RoH/Z\*\CVh"6\$hH6f@aFraR#$nX!lmJk^WI%daoN!]*\,Qpq07t0CN>b\Vu$]7-Tp1E.7uD\pZX=%8ObZb@]QMMim98E.,]>;((h7R4rgY=_`gBXG[E6U48"]"V^#t%@3;bk@aBm-:/2*Kd*Ke$"VpcCE!.lsV2dF_rr'@2O@s]9XDH2HkDT!W#jE*P.qnfq%G^IAh9I0#3^HZkmZE`bGcb1ok8l/XB\rcn8h08HsIFl^ao:j8dZu@J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-s?1[Y!\])J>ZNEqsmf&gm5[[DTh8)"(I-9TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE;ImSJKCSe)[gKLcfP$pJ]^sf[b`j'cG.,;N%kOSa"kYpOY'YdC_ai9r9r*BrDX<8,$Bgnau)08Ku<7keWO=5mJNiXf6$#R^J*?GH`XFa=pW/R.N8P$+3Qa2bOk)>ON$5@:[AagHCV,q;CaCa.hT6EkF60eT@.Hm/*s!3unQa1eFSWCDq-5W7h*dDcmctpHQud>(.REi7E(h\W7+Hq.5UOEPKE>Y$#,cl;j&'>"k,I+Nh88K3X_O@m>]j@H%_O12U:Unce91hu*+2>1tX#EkV;j9]G!-=eQ1Be#e#-1)K,%',C`;`PjgC1R>EnhaHuf9O\]LBV`4g0.kKH@L^W)dp+C:%I,s?0&=.kfTXT1I;0.fRbWU%"qu6XGP/d'"#%+L/b`+fCEd(aC%Xbq\rrDB_a)P>>HdIoZU.C$sW`j/(VkeemmEX8RD,R"lZ5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5SQ(]*lhE83,bO7&\*u_MH>[+fRFOF&B\r_i/S*a%4.U&@Ahi6>?XNB0\a.#G*#s5>L8'otW[kX$JjL:aGO$Z:*_&b&Rch:Cqb48F[U1mL>K_@;[:b>^ej8L:G41nNXq#BjiAhd;tXL6Ql'BDlCbMX-C0&H^_#n$JOJ#b5VI-?_cQ[*XFU0:^=kq0U@8(+YEB&9`g.!-Iouh*.+Lko/02FDI(O(!*s@S/XQ][Jl'H^Tg!gCY5[@=Rc<^Y!]M_+5R$OPrNp_+6[IgMpbsXeI6S6a-'JfHV7_XWqdY5LW"U$VY`!PDa'A.3i0\6^Op$o\H9A.Hb4X7l]1Mj`(0)WXt)T-b:g#`i47HalhP;0B^Fr_[X*q!Tb*OaORV-;,"M5IXg72/Q@U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XNCJBjCkdt!3[oFr=01`XF&]DT>_^\p5jQC[gk;eac[\T]1C$:3=!u_2CP;W!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%SR]n=GoHDL#X\Va'b+09rm4f`!b=76&E.h$KnO32'jAcOYt;ga9(8]crg3Jb\j4'D//o'^2!Iq]CVNZY_,KV8PIFI[M:CG4f20`mXi>0(.FBPL;i('rO0*nLqCLkGI]C<]IGD0+;T3DKK[)/S,pjZFJ19mERb>;>l(+D(#UH/\L6t`UNPKH25KiF-b-FNZ&-R)oB5eHk=tK4Qq,ge3,de`i0[rBl_"/+Qa;>>?g)[7dh/=SPh2@"n_`jdT+uU_9,Q2A/CUQ`/Y&tcoYYi/+f(BtJSiiL$W;O4)C)UkWMH$g$^F_pg=6cFAGIaHX:\[DlARk`?*^2+g.-S,o"8S.E8a$"@ZTg=EQ[B&4(o]`f"8&F/qMj%a;D73Or@&u(U:=S*9KZ*b`UAG^%Q^s1DuBZ#cB*EJ[YKds'32I50*_UP'O:gaECjG*rf'.aZb)sAkWUBh?lOf&eEnO-pEii;C?eS/K..uuoaD9cSYh5lUti`A+.X8jU4E\@)&,mJ72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&FIN2g%'LAV[=Ur.eDE1d(b7B+p8,Z-A!.s.2@J4NPZjRh\@<)u&6C-&Gp$CS]0bJ4cD',H"/+rXq@%re"BurWO\Eet!KUMe1nM)X>2ria#'KrL-hu8`'EO,+iiO-Y(3qc!#Zs_D"`'pU$KXWtkWfUPpSn/mi?Q^akV]8fi)5&aC"4e*=0U+N#/@a0!HC/)_AfS>3Pq]sP"GS+8`1Kec-ndNV9*K>Ffa4%"iT[b>U#_j'KrL-hu1p[u*#%'&Z'*F!=3;q91(mP$]h(j*ZOpKO!^&C^pt<)V7J^&R?5/YfIsJ&O72aSgr-j+_R!;Y_@b9+BH'IOKMPA?A&=9O*[Gt&j6X%K3EKu"Xj)rSJ2*_#E#m&VRf:Ilm#VD#`NYb&e0`QLHRE3Hi;DlrrBo+TmtF):B(=0V#LE5e"V@I@.@9W1tP:pSV1beTb3:4@R78'E9F*#YCF,uJ+uS,0DZ,lhtRnXj'$P$"tFl$7Vhh%cDP%p8[G993::]CEJcWQ2)@*iEd]&#s'r^URp:I,b4aOC%r,G>7JN-!`tL+_Vs>&s!(4]M^SjKhMglRM3jW7RQAP0k';*![c3NB-rrBo=Y/W\Mil%&6m*L5Sp-TO2eJ.usdqo-O"D@]8./,jDZO373#QFdAYOXf'puB;T!(OAnbK(MSYW[KlVm"#l&h!n=kmVtI8c:0jc'>9oD$g4BJ-p#>m#P@A&,igK>!??aamVhdFh]0D8&W^b-f9tWJ+km_k%T>(C$UZA:7l"<1QWn-5HT7(p0OASI`$$K-hg9[kstGJSc8[R(;KV*J&77j^Z8#+;SCm'rUTsg1WsD*XfG#$U1o]Um"JJ+0Of_-C_;;[\F3a`#Dr(ED<$cOI6AI4&uOak)'(ce'g+Q1Y9oR$p()Qc6>7SSWFS>?-]TrN/Vf1iC[9rWg"\ud*[oJrXG>$-\3[DYHkPpkg("@u^`Kng70"$!70"$!70"$!70"$!70"(@C2%s7j./GLGBWh2bW9!E4I:'`M_&]8'e#`Xh5!!UP!3[s36cX>T;h$X7^_?-C?]nChH!="C:?cXB,S_IEL[Q^P?.g@Jg>qT"DFoS$c;tO7?&?_j8^ktC^o(;F+KkR'u*!6$kAM%2g-G\;+2X^'N%+!'N%+!Eull6O&41UmAIBspobPeTt2k]>Si77+a$i!Wi@N54sC)!(G>D=^[Rndk'r5[l^:1L_`>qj-:l0F<*Looa!iP'MpKXMC8J!MC8J+IhQNs3i7lj^:$[fJQca8:02[@!0ubfS;cV9#H.j8.B\RQ1-1.Z(b/!@*gE,)YTo=ZoW'!:iP(-hrN]Zu'nd4$EcSdF6NjS^`cHcpS0"=A^#2-N-f,mD!3g=Trejt8MV\VUP1hM!M&0ieu+;*0CQ;qY7bSNm:=f[XhCQp@sh*%/\4W*)\\d;Kbtf"f$23mV;9kOCNHB+cYYe9Cs^?,Z:On@bQu$I%Srar[,2@,H8Nr+Q_S9g1:ljs[C&P`%_*fMaJ!^cXeR`:U5B-h;+1I!;+1I!;+1J)H>]'ZV#3fs9.OP,A^a'<%[>[#CG)kSV&cIrp>X0cbuo:A8Xq2]:K&kVn=?,tWkqbarqA,APf/BbD\BR,9771=[+(r%XgG,GDs#B6FWJ%EYF\MP""-&K9aa@A]/1q1M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!\Li0IR\lY8]+#!;nFuXPQOk*m?gXm!P8J88Yf#VCiP7IKa:>Y9MWWn[93H.E4(=$S\]/RgafJ8EG_Z+6\o[-q)D%=oS>BQ6Upru7iYED5._fr_+"8Oe3XR:0J-m^!J-mfidQ_i>0p@"u/[8(74M$MHVVGr&B2*/'@2:G,MFO&rRDP4i$j%J8?^:21-j-ZIRZ(AaMNoH"#IQUC$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!._Vq0GdFONb!nGHWlMBYUoA:Rdk:!i/gV#DWHW*M@q7)%#N+]65HS4cS],'/c'7gU`-S!1[aB\9=H%6GNYp^8$uo&3hhOGT*4)*kqe'!\4P/KQC6r7RY8G-H$kI+-U4o6W4s09bLPIPUHcnFPjHEQRqb6!pGD0pZ?8rr!am%+d]gWV8=!o)?/?Q:m@`H_pea1S^I+QhP>21ZM7c].f0O>QS@-$7;CTO7\\]oA;_@PV;R:REcnHPkRW)FJ2G-e+lTjNlr4aJ(hq7t$D72,`$(RF4Ob'S9&CNCs>'1+s+aN!WT]u^g3'%]G+3>]p7$u4+uPG-\UF%jJW7n0amNoEBND=rBXQkGheJ2!m/gg7fZ^El0q@>qJ&8SVUTMDO(RD%KANd,kKQBW1Z!O(8K9+#-omCM^HL8p6U&^s!9H%e"?qsLrr?b__HGl6dW]T;]tHu[D#XL?YQ9d=EK@"4e^6ec'N%:!An`/([Z*2A/\I9'C):`20:5$4j]-90",nYoT<1Vapj*rqlI'CS%8u"6pLY?pfe(WgO5hWU*-E)Ch_hT+!,#uV:\HE4/H5^W0CP,e12i`J(iP%/P:ZeItf@HFMq#%kk2\EsAYkUTDc!%=S!!6NWq#]roo/bZ)f/?DLdI=!6q=HF7hg7W(#-l`8Xf!Q2g!Dm*,^"&XW7s-\i]&69ehd!]0KRVkSsF*7'C&*r[.kQ>to&&F*sRm4dgLCH;tm14Y#L,*T9HWef11R;l9FG8d=[l2*Q!'o_;nV5eCDJO/"^5TcMesr7]I4VY:b,O_Ia,aOt/2P-#@sX"4k<(]^-h,p_3:S?1W[+Wt(9)D^Wh.1)^qfX,E-'+bNfJuF!2>?!!u&V%*IeZ*`;nM4N@baO';eO/Z_#iZV6E)`".jSQ1>B]f>Bk#WAapPCjQ$^5AW?+X:J`%OO'Y@.1Vr!ZHAV^c4?)4HnD*UpnKu#N,ccP5WH>JHT#FI?_"Ho1F3*U+Nf#4bU5C?$TCF:_ho&tMrr@_1>ghYnSXNj$6+HO.D2"$WRE)aO7n1rL8CJcgI7Es-nqI;AY-08qKp>,VVk6k%r=gg`.&)S!.&)S!.iV4Pc'F^U/Rr":>DB]=I'5\=JOT.ZWpKcf3'?8jfqO!Or'R-lLb+kBFfe_<9]_m@Q"#le&3#k"FR2JDk*O!>'6nuBXW(En2+9+-ACRJZA7'2i5pP]fC=f211,Q`V_k^Vogd-Fi9TuK[O`u4"`,V'g.HV7/3TloO3`1=agJ(=IZ.3b=Smu49\$]fh8k=HnY2!Qt*!/k>:&mE-]bCHD72,`!72,`!72,c/p=\m#jaoS)m2a1Ln87$Rj)VC%_5n.Wpbht2GkV.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!s4I~>endstream +endobj +5 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 17936 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CBEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$AL(0B:a?XIF:BsA/HP*+;+;)MOM(=9#>A!ePP!mn]e"9&VWG)%kho*Fr35&Yua[?mbcURp2&U9YMW*\'1WDS,>0"KN;EfbJrH3>FnDXcFUMt4[Z9WQNa%nS;(j;&oNc@kFlnsRL+hdan[D3Su#R\lQN\Sfbo$0"9/X+h1XWpRrj\)ZS!&$Pm)Np=/jjc$MTtN@pVnmTNBd[Fe7_dT@,Z1EG;9EZI_U\N]TmJ[.A\>[oWVWM[gFG!\cVZS_\Oo5PTqB%K=%b-D05b'\dl7&!pq1kt4to1,+FD$igDM0d@eLB*,KD4=bKTr'p2*^*h?1:eQ3BMlC"lpAY,-cQMb^SlgMl\>@XJli)C![Hb?k2P'c\YN^6o*VGsU4Xb'KWEHBo<%tp?W.tN6*Vm]2a'+KDIn$rRNqNoc_HTSX&>\Q2N>kD`!X8l5Zc5&XMF6@9;VT!9)Ns^0Qe1pLB!ZJ7k)d%7b]oQ.,7';g!M&2D#Lb#s4rr-*FIs:`\ke'![#5f>/8d!qQF>I&]FG=RJU[$4^`@aL^Uqe`tT7K1tu;4>ig]#^=bhds,e&OC8t^a_qOHWOcmrr=?Pi(#n0m)LH5,hH'Q^q2f@J1t=F4)sOpZrZ(q2G!BcOnE%rl"DB'PIm%4t,qK`>`"H9o?^*32SFC<]pjoU)2iVn[D;e8'h8Q*q)<[UG:,5

9"AQ"#+/NI0U>(X7b&l(j2\Q>h0?d9!9"&biSe\f[$-6O(2Ki1i==9pZ>SV\lg?8RiL[N$V>N8V45UKlJd\+fhrfki'!61I0uP2r>`SbDMKO@!.m:W.fDZ9WIHGXJbo#@;%JI9gjgic`-cO\D/!!Y6m2u3TlV>&MZGH6s5KjfTo)K#Eg%s<#?<-LD=1fS%nI.?_)=\/nC>+?-Yg7N$@Ykb3q-Aj9N]IUICTar4HX6P8eGLaBR3X--eLmW.o0]UZE"5hXPEX!]:'opEDX=sLo"X7D[Z1"\!';2)m'dO.>YT!Np8`k+ROC+Jo2lJ=EStBtPL@"F"aIcU`=8k6W+`s!2k"hr*rK5WC7CE9;<:cEC7J8e.O+!n]*F2p9G(sR(g`7Okc!01p"[I4=pZ"tsD5N5a[(7)rtF2sn/()^Q+!#SSgSncT4p&.B\nIb9hf7j,s08?U^?Kq+L3MgNb(a:Ze!Fj>07S1TZlVeTI'lEF1[CZ$7h=n=?f0`2"9%$E[^O?&BIQG.Sg?[TBenjBQ4s'3qf!]I*oCr3\4*].9fsC9j5$W+acN^5m]N!`5n5ATKAt(%#4AJqs8HLW3#mNQUJb':f5?n\`b]rHm]$qW^Rq&.:F'h>bD:RgZ[aU[JCn`0B"9\`YC_?gHf1Y$H@_NJ_[aVU#:J%t&-5KIQV(Io!PP`d=dZ]i2pO@g(72/^i"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!&R8OEhE]Fn5nriJ=QMfjIfiRK'gei!!ItDi=t/:]_QpklTn:_Hg#[H1iecf7dPPVO]6]ui2)Q)&'N%:!1)X,;;H1rn!JY=]O)8lXre5+i_LUA9Kqs[:9FPmXes=ob]=f!Ma5eML&XGpt,sVlW@tY0Rnkjlp8oT;mP1dqlu4^O_>+>f5?^'Ri0n8sA]s'23c0!sVFuWX=Oo(oh+ERGUl_[8_,pcZmfV.!Mu0GH151Y/Pb8:^M)iRrr$qC"4_bpq>%hM0A[[jlWf8!<]57]2QNmNf&PnQ]q2*6Pni!GJ`ON\^d?`Ub[OW>,6:<@2"J.gW!$+,L[-^mU\0)Dq-^Ab*)_.'/Bd3lP-B_*(Tsg/iUI>kp(fiPGiB7RclYn[t3\+-Lraa:^1V*6l,ic$3E&)iWAr8Y)3a87S72,`!72,`$G7Z(F]T>Zp#pPXE*/tm;I2PQuqgo8K70$041g:t-c)l*_j@GkCRJb0uj3;DM4AOE(Uhqc3JAh29:H\j`Pt?_"'OiZX>+#!!t+k*U6mbYlFRX04-P4N6*j3Qg_X(_6KVRL99/9aWsYdKQtUt_/60NBk6fi?,I0M#);8c\0#f.=(HHYl[6g1soYNFHI('>;6kK7Yd]T&U$]]J\]2Y2%pegtF@G3HS@Ds)><^qXPGecp)f&N?*2gDV!E#:MDcs*M>!5*b:YIjB$rseHT<+I0?&)N4qlMK]NoGq4jpE`*CJ$V$V#(9_CCU_Ok4G]<`4NJ>:oeG2na8/sc_ZHa4s.7B&eNNSmIOoPI4t_:jg2/Ya17Ui&96mD72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cjYCFVS0DbXSrrCK'lV=a56mOfcLm_:2GAFUSG6!$cn4:XAp;j?TFe)o;F!Pd#cKC3CML"4^PE%fi!tWePi-XD5Uh2t,)-'^(UN3DQ!;?KOA:*62"/qrO!:t&Tcer^Za0"&Kr(=@dfm+3j"J3?Go`s)lCXDHdTtRjok2!qo,48JH='X0*p"^PL9t;@XSM2"o[nt!+E,3[F)m#\hZ_\^dgP0]O;Q+X5aX67n['%X)hilF=lqCB]44OU/9+A'&,bn/jG;eiLg[U?N1"eFC4_4\l:.!i&<,N-QHVUY,9M0CRtHAL!?LMA'Sc5n#"-CT(qV:(9!sb!%ZCp,A:nF*tm6n,aQqr]SdltT^SMNYAV$=Y<\tr/[gHP.Y.ckks#Xbo?:P77k];;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1Iqa5NR5*FJ\@/P*JE)Guom`j.;93lXq6EX;o""Q]0rUq#p>PB1RL&mNGO#Bu$a\<8is/opi"M*V4QBmXa2XoO+,]TdA5b:$jXIg(b9dO(TBc1gU84CO#q=3r05gRr;dC5D'JRjr#96N>>EYU.n'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EOW*J&jZ(qYdf$!7H\h:9o79+H&fo(bo"%[:0kD*!tZh#:00Re;cgG8Krlrl50_'V[(]m62!,8l6rBW$7MX!$B"!&/%\r$Va0aoKcNrUUgT(GM?*7O%`nV`nI5C-eB*nJ]\N@2P2N<KlrNQh+1;1FN(>XA,`S(6;RFt,IPpWUqF7JISR0P,S.Y?CNYXqZEUGk+c@hH3HRX=qDsPTEOm1n9ou]L)LW:D^]_Y:/V6eq5f;[P&>jmETC#q-aqO,@"B>YD_!%h-UO'^_24mSiEV["#MGu9`f\5>[0,m=u[5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-$br.CaD!3b-Qr@!]5lR0VK7h1]fb3G+ch5`?:^ecD>,bDl\,Eb']8Rcgeh*W]laC'<*H\qfG'N%+!'N%+!'N%+!E*bBM0!nn^*uSbU9\/tTd'$$8kXkU\Vm$0pY4e!C>tV=0UgSd0#cO^s:,Y/;Gc>+dWek"tf1)@rqYpQ33DDt"nICmui_9JPD]rEUO>(3OnZ_]Pa4,=XD$QM"R>"uSLeMm:g3:-%ueEa'16SruuUsQVrjA=":Ta.9hdV?fN;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;-[?i.b,f1b>NTO`fGDE[[eC)2tPN(Gh,diZ-/g9G46=gf!gQb6J`d2-(`g*\^VW>>2,7#m&F0OceVS)O0HF\JNt"Dn+d2Wrr?E7TDDD*C"GR4gmA!SddJIh,e0#SkSDNmA=_40t6nhbl-0p)3%q1JHAsR5F[k@of1H-]-nOJXD93"5b2S?+eTdk3QBkF`D&6jnWa=)fk87J3tgs%WHEZ:Gif!2T"1r.qrY(CIVon=I9j-J_cmUJ^/:V3n)]Hhq.c`^YskF/,oTRIWsDmYlOeo%+^)<++bGY32=$p3h;h4bV+)0_n:8eGkVWV#O.\WG"JZVrF>j-#/j:)Bs#/KX+#^?Ctc;bJrM)K;9lX+V8^582TDo;j9-'d!9A7JHD*DlH_];"h(ZCmW^ZVSQ]5#%,9hZn!![]d!+]L3X\\^\X:n3i::=jg@?shCL(us\jsOlcOB7r[Ne8?$Dfi&ED=*uhZZN6j'[J)K.P`J-Ca_ii3QHMqC?W1,-MG%L5HXqc6Rn4fK3I0hrI;#_9j"]:]/>)CH.kO^i(^>Pibj81T$G('Xf7C5"D`4O*q\+"pNq8giJJUuCJepJV>+h*WoqX.R9:[HP6UKLhaEGT556Op"=B(&X49'YW91RXFs9f'V3G*+SMQ&8d*A2>s(J+)F=q7;TZ%nm>cZdW`4rVlk,ZF74!NW)UDS$CF%*;)Oee['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+8B8jJZF#;8=Ma>9beX+P$8^k8C;if.5H=@_0,Oqpn%^VucK3YW?1%]$pk]>DJN:GDDf5k1-M=`=S#?Cd(KWi:5rq(]\rM#@=FQus=?XM.238RVIm:!J(qYpPfF4I$F@qdJ?I3cN5J*jG_ZhlDtSR.#O`N<5K<-`ZnG#&GAdD'WhC"EU`ph#@FA`;V1`kuZlY&HoP8KF1Jp&/sc=Phft2Gmc6a;u3'<;uqcmp.\GBhfU'a`3k3\oea`[k(BF'a"dkU4"H73$A_.hnqc)r95K,7K;2Gk)...oJ@eL*VX%''aA72,`!72,`!72,`!72,`!72,_u5U-Mr72,dc>1Sa]i2piW:X?h_-#p"AYCH9++.MWhm=J1A]^#k\nsi4LkL>A:fG\@WDfQUI;nQKo2sR,?8Lrr?A\NqTrHD.]?ffq([4\B.mU)LJ=q;+4"Z'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+54sGqYUo\B7/)ApY.`G-knan&fIDoqk(lBSu9,0l&$Sc.Bl;&]&Ra0O"j;f'8IbK;97!5Cm"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"U"l\Gna+@*b42Z$!_.Bc`-,ok2T+,k.T50^`VsakXTH2l,Y,NO+I49%G4B1H]]Gd(:1O)>]rRWQuqZ]cNO!Mk2%feId8hZa+knY_]@4ZK8#NfV"ASDbL"0LZ+=,Xo^1eU<-jS#1$L16QE&>*UqEW$.=M0@8YW_%"*iLAFoKV"Ejr=OWmYk2O5XpT!#P7CmQ'^8m[C_28"WhI8i(SSX%@3$p&>"&\dBj[K.s$W-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!Hj7,m,0!"r>[hs0#MAStG(9oJU45l(3gH4C1$?k1"+BL:.0_gPlC`mNrJul*t.kkhWSWZ,>YQ0&c@MsiFhK_4YhLne_AY.M**GhGb2ss]oNf'9J`U(M#/8iDY8p@U@1nGkl1Y)rr>abki4,BJt\-)8QeW4;=3Zk-auR)W[l=Fr(X9f,5lVe'Q1S4cha.+f.7.,B@IFi`d@5^M._0PW*2]6B0:7O+NheFA/_u&921l>rI/BC-O2[JQ2.*HP1fj8P?h,;Fsj#A.aC;RMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8SNCmE8BNT%7PS8)).oTp3n$NQ9iZ:\]`#2QA^TH*N0*HPFk-h1^_B$k_aR;[!@aG-B7N/k?/X)3#&0'56^j^&$$P&N1'8gje)K$qdP!a&Z@G8D?6qb=RnM'FN$0tC$(6a'D,Rur_W@_+W_=fo1/\+_h.Z&^nT)h+7gHMcm%e['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+0[9Y-&=g<!knHZtV8DIp#n$A:nj+:^'^'O]Rj4Dle]oo.^hA`C7$]'sJS7.Q"6)@Zk"n"HegMhO"B;MfA06m..fWKIhab3nK,I(lSQ,B^ULQnKf9Tna2Pe6*-M2M5ME*/4XGAh*p`K)59m0fH5O^%b5#]JP&('t-'m!OG(-?f;-@'UM"Ik^g\JEti^uJZ8";Vg=/c*uX&PO&kk!t4FQDC>e;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20"PN!`/dSrWWZ5^D]XNS*UkJr0D7RsmUC.9H\+I/4f$9'`CcqeZd:'\4%B5?Dq%ZC>$D*RZe3n'`'MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!\ZJZF%_$AUk];Y4oCp]U\sR[M4+Ek"f1SP3-K+R%WFd5JQ-\c!%*/`pt)XiDM+>'X.9?3:Slf2>!+42<#\K>9I@`&TedH*h-0[#5ik18A)oPoUL`l;2gXtZ(b9oeeWh)`OX\/3ZnDAr4;`EHQH^E2=2>N/7+"b>%.K)d"8hU$]iFXTaDS@9u*@6AUSO^11Ij=Wf>j"i8XF=s]\i*Y?(nGVg0)kp;<_qfU(\aigGP"riU\mCHriX*[[2V3/m4_h,/V3Q?:Y**r6NBCT*^Lh48BN\hMn-Z-Kj#,MWtuT*Ws_?1<>brS;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z!_+u0TR9M2E0]=$@ogHe#NGQcs_Hf3JNAj[1KX@iO.TA:e%K@AUVr`GioWJmM\Y9sLgjp:lehC0,.boI79/'ieI^ZJ=u2>-0*lgV+Ho64-,U2p%k_ko4\t%!=i8&/hLm]DIhBp>8kBebUO7Q_0L%51\t)p?RU33)]!bHpBqtK/+'ai@N^[M;S)S90SMsB+;1Jb)0*fcc!,hf:M#t#L)N@83(MEJk/+l!&k*W_6p20CgZV!mYH[Ld7j*qX(NO-R;)Onnfc..m#QlY_Jkn:]s@_"5s?QTl&MC0TPC)1FBtqqUfm!q%U*(,g?7tcoNI;lf>eZA+3;4`f[RONqrH]7Q#Nc1r%@.j,6<\>lWTd8mae"Z`k<'`=r`)^'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mo!0Ll?sX;\H-%0(!h_2UG6l*W\5[*r%UfDUYs"DI\\e\_N=g>t7"bO>Fqb;:iSD*>e['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+)F@f<)LouMbX>15mh=rp"\m1s_W@3-FR6i[b*4"g8.+8Ft%^?K8@lTMA%Y*r@P(,2Zrrh^0XSrOqDRQC8ZF'W3Ia1ZTr".o\Y*/*HZFp6D>!Y>5H*N+Ek?-=W#LK=oUUGM`%m/^7JKI-t#N\f4<%;+?IH`PbL,0X$9i@HRag>N,_R>oOPG3;o<3cH'A_VP15ck+.i]`im-WAJO.*"V7D.E7S+3q9Di>'ioNbggLIi'1AJ)6-1@j$5b/06UUcJ-T!m70r0$BtJiI"4Fbcg#KL!1.c7]\i%KfDW$Z9tKuW484X1j(J.TB>sj&e&F6u#0Snc]pu^Te,UH`e!&dgN>q\>KoW'=rP['&qAfL"Uq4m0/_$8n%P5+SH4-#$kW(JZimK"prrBsJWXa[f2m9,XN71mF7e)bqao5!@j)Xra7W]VWGfd/+8mdu4Vo0)QhIFa[?p]36)E`N,5ZZFDX/B9Ra0#koen:'9IK`Lo-7\FBqq(%2^U!#JTi,l:C,5]dQfNHm($;LRXUSJQ:Q2J/T-FD!jD98I#-K>-4B2[CVtfCWLJd6R^\&nQ'hR.^5K!E>//B,GeF=-"Wb_V7D/8Z'l77NGIhJl4k,"k[O7qVfImjJ4U\e9T490Z@*n,!3r@sfqo6M-npJ$%&kEXPX_,:p*nb%f;`NG2r>,`]%Q"pT9<$"#KgPoDX8$O8]!crrD)dIqi;>cj*GJ!5Fj"!;q#Ikb&?,eMTS!8\7:%q``!PM'1]j/\=6\`\FqEO0qXZWHnLD5TNAor`fC&n_2HdJ29Et00eY&W;ckTbCBLQ;-W=ST9arRT\f.oq"!Ku)`JeNAa?fCpW[MO5T-3JQ_3mNe:6rK^]+9SW318;:[GE9QU/=^7`P#3fc\t_*,`^*`d6XQ.%h!pm7Ye%!9ufCo&'HINm[g)H2dk0*Cp,.>Q4]ng=)dH0Jtq]qqG)-4UV*Bgd*CF-,)'rX.T3'f*Z9Up8-sN!-KC\q/?95a(gp>iZ#LX@SJLKd`(mt(9;Y!^>M>VN6J<%E-F;jp]gn]8B@oM2c.!6[(B%%eVdYf6Baf._(*54T>8eWDs^3Dq>feFp[[5A!05Q'WbR#uO)BSsp3hq81-r[(=)L6LN+7$\%slm&J29Et00eY&W;ckTbCBLQ8+reBr;^s^qtY11!68kMM?(\T<7Lifr9X^_B(=sKOpp^255&RR]6@$&WIMtL$^R"m"r-"f?;cEQmS$X-lZg:tbOq%Q4]ng-;tu5Ni3JrrCs"J,VN5FAN0(>,J4[:ZlCM]/PcuA<:G9dJ't#?/)r6`Cp0/H2dk0*Cp,.>Q4]ng=)dH1I&9#5Ni3JrrCs"J,VN,>ABV!fjXbYK7!no,/P26KmPjOJg0#n+Q!L(=!N9)(IS5\5`D>&ZtFZlKIKPj[ER'a\?JN"pr(`8V:`D:B9O5ZWYL'ND)2"t4Q^T>tdUNj'R>>3Q>#I1qML;N(D$uZM1c4s=Ab6)]2G70"KGMl]pk.!N@Umpmg/Z(-JJAX9(WK'H,m`.]co]I9mWE,t3dj@W[h8g--:g$JQi(6-sa8)Fs(r8!@7OCP>gfrFFsDIq3sM80RjgAqSk2[M<;MlnG`KGFH(V#mckfjHUs&1Lu1\tb)eS8!T`G5Y=#e6\XIZ$9d9;e:3.\A$!$$"fa7B1<]-M-B@ORTFZV_rn`O]-ZqE@R>SW?tkmoiU_'cBKc!Si*WO5k^m;D9EV,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,)\+Y;h[n+!pgGDgk)>fRIj71lb`iW*,!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!--jGdB@IGFLng,Uq/-kd!:`<%;Ksr+XP#8d!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!ES?2&DssfU=V?!Waf&O^F_8p>UrNlDDT$"Y3Hd7_gS%5O]o-8,CHT\c:[.+QN.#8LF3tTkieZ@MC>,!MC>,!MC>,!MC>,!MC>,!MC>,+57VCo3c(86>cOa7eE+6!%@j+k!2!&uC&T"!Y&qoLl5QQ,nnL+M$\lr)98Oomrr@GNXdUX\s@mNmj]7Dr%p1Ht^q"bMkj4jQ8A;o2R5C"c3a8YsU>i^3(^>cdL$4*&b2NiZ#]qdTU+2lNANMC>,!MC>,!MC>,!MC>,!MC>,.s4I~>endstream +endobj +6 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 20818 /Subtype /Image + /Type /XObject /Width 700 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__]E8-X!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7[R,Qu)/$\[['L`22:o:&sUqk+)q(4=M`b$KE@W'fbpj!^@S'I2#[l^UJVX9*!6i&Hme]C]Rm>`*iQKRSE,XgN(OQ;+LbGk57g2mgJn[G[T,\B^KE"9-dt*Ogb+JJ<2o#`c,qEe^NN;'L%\Sr>YW@5@GtA_JCjbJd)H$\=kGP?T52P2sl*Xh>/@&MC>,!MCT3DnV2\TMlRe6@f,N@?TCbjnm2!O5fQf!3FUM[BFA)#U:JNia.=4=hQLdmC>,$-n#hpZ(qb\IE+UR["=VG7/H?qYd5m&C(u5+i=C*9.6i9_"a122qfGEm%OmI53!7[h9>kN/l+$"aZ3(S<$ij1tm;N;b\\mT#U.4c?OEN^)6BVQP&GM[!+90Y5&XKnZZA*3!>:^duR[f9_ab/%;/s-/t]<$ggB,r798.'FkYnnDnqmk):[&9GJ5cXFRKjrG]rNPbLLL[1`$'`S`&Q>QnHe\:K,uV.-Y]b[L+FWJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-tErMj^[>/Rmkup.Zs1P$Xh;Y@/\Fhh:G'a44-uS(qMn>moUYi(r_3^"gXUac/ZR!>'ooV3F*dROg1Qub`emWRi'?!$*BN9Ye\-H-e*eNj[VH7B0CO^NAp@=H&.GmUN:=Bu\J;H!VV>J3gd*-$oAMC1L]DCLYW2BT_eC)[-[\WNEVX'h'mGr21'$Wk^qd&c=24F[oWnJs1Gp%Q.;Q]tgY^76A*]F=n]dk%Lr#k!L,9k%WinQ%3!\=YWMN(J`Jf^"7*VV@*<=7]o;K_To+eGS;9QGmN?;X8?-3Z.*=2D>D5>'%UG_-#o6IS9"pk?u_Ik-()*'mVe])@Xn#t`P.8tH%gYMcJb*n^I(?#G'C@$KO-J.UR8b_h%cdRd(9^H$I39PH@pu@63e.iq`97)ofHqNNYW_OPJLRAN[T'_;:sLq1_@.;^\4T3NO5rqX;GTIgn#,^5$]V4j(+b/e!4Y%+48+mJr>o`o)-]HN'\um0d-d-Ih[93rW7$`I"(bPc2nn=<)D9X\G_H>Yf2neopUWC.YmYM+^0+_'hkMGiO\,1&-%*48cXlp"s+\?X4*\\)lnIc1:G+o`"oBVPf9sYNrbAK)AJU*kS@B*L=@LJ+fG^q:"*Q2UKd^)9C,/[Woh,8UYquFlFtp_]CV`[I$(i1>]FgQeuJ>f&9EI(1bE?#Mg-^,=p9a/%CpAZk;/Xf1I2k:.W2R1%Q#;k;:@&%nP.9A[U"ZWuF]WZ=SpMh'5G2_;#"jn]*JTP>+!ahh,;*Dni1/9kjQLriCB5^CW8.HK.WHTg*.te1[p'!42*1j^BIRBY[l-+h7T)39(74m^5jd.K1@f!3gn?re1eu`LpnkI?2Lu/0k$-n$;;g62#`aHY*N+T(pb)a"'"Qi%LZ4D,*N/*ZmfkN$YJ))[C/%0jtlD+;r8_5Q)3D;KCJ#fN7IdW;mMcV?!+`qn#:V=57oHMWqplTL6M=O(QC?DK33&n>EGPur=o2P)KrkGZ&Z-;t^=Rc6\$ab)ie?m9)Za@2GP;MfoJj:$KI%2\k!u^8]XM9E,^6Lm?X]d?PAL,;q]=9POe@1TCI/@uUSFu,Pb[)(SoG/*B7A/mbfhTA\[nA^!EY6[(irkEh>7V,:InH!fe$L\^c:JSemr)n[AWZR_<"+cl't*L.;ghSOHVa:CccCrY(rlG7rXF=kJ`kl(f/u/Z0R/:&[7rIDe(NEjB!C&\Z9kQ\aRF.g^qf2.nK,7"bi]uHHWGcQU^K+[C+;`I3#CJ1Fs*L!l:FY+E.eq#EusrX_Qqp=5^VO>BOQ^hQJ2.$mf5.1-9UX!(_5m;IhngkR)m^*P0j)"pP<)Om74A`(b_NLW80[MHsQ),dPpfmZFYK(_k$,EM&J93od>Xpts+q5DSXnM?!V]DW!Se_$Gn@q\CoijRWhTW3Y>A$Mil[i6CO.6<<@FS\-`AbUL3\@dkiZ2r>eb!"?e0[,cS//RGcOHU&_T(>%$ucJ"pl9?cVmCj[G]HF_llSL@R`[QE7rE/'0r#ek(DmD6Lcd3HgKRmO>C?THL>(\h4>GO/W@/aG^^N+aktg0LQ`&[<0"QJJKR%G0rVllHl)odLi9b/MnSaJ+4B?SV3Wa,WStDp=R*Ef@)gb4-JkDPn(U22"U%'4[]Og,o+q$P08[?aN)m\uM\;iR&DFhX?.@g3AT=p1f3HVS)ht_s?;+T%^U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArqNpp5Pa5k>mc#G.3O)JVX\J4_eU1>*mD`#UG&E.gK*IHfKf/6_cZJSl:l5gn$R?W>e%doicQVFuIDmW!])-5`g'j-P8=CVKoKD6@)f73*qAD1eUf)Ga>$-')co']^+@j=Ici+30la#s"0l8)0RK/@9+@s%UsIKHI`mF?a/o]oK68!<"7QK6%Yc=E&:S1*'u6C`'d#t!FNrr?:'!13B*[+_loAkRf/iSeJJ`c.RR*r.%Q@@D>YVQ_Smp03l;!+qKq"TtrK$2as)rli"n>ZO[f^+Fs\qpd;V?2*C9-_QD&NSqYn3?kLB4\U]Sj#g-AdJPf!OZQM2D7c)o,o`m0-c=(FD+6,BK'SA/mIS+#`eHIKg.g5JU:GaSCU._^*(@JKDsZ-2gkJ$OjlfLiI\>:i;[KGB8Tcr0iTGrt.PomFl)uJG$7MXI^aPq7!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!9&&R&o/&e\Z=IX#h*mB['ja.LN?4`+dMeSnt4bMUSl4tf+kRN/S]\I9XU<.Qn;?caP`BD<8M(R#F/!EgE6n5od:Rkm#e?!d%rr?NA[^k(Nr_0?hF43*2F?c%3e*(F:n99[We\YVJ?7j.X`.BWo%#$AnTe3VOMi1Ra1oC]=A>1L+(.\%4Ij95Jlu#PXJZ&,uW:X_A%iBmiO:S9ejl'NJF':pnh*(@'1VQ6tW:W'5lX2/9I4g+pu;\3KJ=Hq]R\Pg]6Tf_j]+E-OA=Ok9Ktl!B'KrrA%#!TGa@>hUD%!2Q:ZXj:u2oH/n1r+WkOfDbj0+n3aib`/+%^N4E+?SQkjob]oQ@1RCRLI\BCJ'@S*$gTcCiYTQA7UD]qmFaJ2^5KPL;+251jTQ>q5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-.)C.4Uc^IfBE1B%)L>gUHu!-$f'4i;We6/AH7"f7lei:(R"Frr=,6Y.I-S/[_WgnHP"aq.>3WoPNA%cLJW#FoMFO9b]tn/e?joYj*6UIQ]3I]f@C:`4rLooWm3Cj&_D=rS6!ToQrh"FkQ\QP)@'EDS/)!iQHSG5NsWoX+`](Nk_2ihl;?oihX/Upkfa&eWhVB=M"_N;,h!=;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1IsG`VhmI:)udVZ-YC%:6NSK'if6g1]W&ZaNE[17T=(&ar\H8,iQ5^9@P:?;l@;#.3RoU5C?$S_!F)f'mHY2A8rKn&P>b$g<$;lU++lXnA_^/3q6**OA$2!.$!a5N>pIc"l$-e/(JWd6JMqO5E8/(CB:qF8GkYTbG5aW\n!_VmumUSQHEIR'3:Ji>/5D[/RCQ0]6USf`UYLS*"Z\WB5KSCs@'Q"_;mBZVU/+ZEEd8<=IZ/l-';*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z"j,Q@b+?W[7-Y:76Y"';Vm@(Uu&[[K4MD!dBE%&X=8"FJZ@&cVjPYH.['f9G1h!NeB_.&)S!.&)S!j`R+XI2;eZ6_u,VhV*tmX5/QGF8>[qS?^R\Zk".oIq\i^nK[Q?"ChKPJ9fJ7angDJYcgd)2=\_A7AY^f[^#!k\7"bBrrAC"HUs`YoHW67QusY@TT])9hL8h*eX+mB*j\jrLGd7.,l4VacHkQt<>E]%$cGQR*Ze[q2u7Zjnh'r',`[lZrr=`gWMkK7j33=tiTGus.TJE7e^p#@Gm+mZ<+$D;70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70%J)8YS,e:6%N>e:1P)pr@F&7:r*SG1csY>^L1ha%qWGq&VhsM;^d_ef&;'*,$5=)8_qqBX4qPE>T2E"S:k<_J;X-?5\=O=E6D4K20K?uG@lYN?O#;8bd.JDSin!X;XWtL-Y?Kr(Ql)^<&WENJ+]=qL=\]eeg'q.:t<"_q+<>k7anXAb,!2>?!!2>?!!2djV9bYJq/&pjSQ%hR0W&3cf"3Y>aPMt\aT[XOXd.J(59\baJm@SCQe-"KpoajIj5m/5p*U>dndGWXK>HKgDKpaWsN9kH,p`(4649OS'f7/NtN2E@Z9Ie88p`0V$d.\WbGA=2Xp:if+IfBCnl-1bS%9-[T4"'25ZMsplfC&JpSa@+g=rq'K72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cji]m5Romci/S,WIR20..=df(ICS^]S1L>#rO"+YeT47XknM#RJ9=4R&+oLt9;laq@D9(:f&e\4'-TkEg_#093:e^\l0(Xj8PRe;dr<.i+I8d:K._E6rtr`s1)5jUT2&(8-0]['NbMnsinGpS8*LGd!2gdXb6),Ga"kNSU)=nDM.o=p"Crr>N7PTf_d5Li![jDQGbYOb9I](JJEkE6%FMIc3K*kI@\#\"%_HjMkHG.&)TNJr1tL!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%*oOc!6D@ErrCZ8htdASQC#%HnJQ02Tt$%>ddYJb8.:[QBL1mg\S_KA(m4i=bS09P=q^`qFbu&>n6"SWMXDgqQ?G*jg/ib6.>l&![Tq3d%;J7@J@W@ZT@*6C>NjXeFbmg;$o]s]`=R=HR;.YjJ,F%T88`15TJ1'U!e^JZ@CEQ1S$rKgKT/mo_uJr3p@uK'b)^MJX@i:^grXZ5,?^Eeu`Go]7t?6Nmhp7EAO?0Q2lK!F.Re1QbT+$9#gSi9?A7'*F9blV9:>>J%EbC+CgR#m@95@h:(JC%9Hf&j8p#M0lkqJ6pTp"8gR3O.DERXTB\C19sraRgAMI24\imkhtASdCRpjMjN=[84Yq`28quq>[^FPZe>!69g,t[:Ak'QU'?^AqO'L4P-Ijd9B>)!0,lZ186PQI)&J)CI+)ZP'ek6"W!7cT"!;Bk%rr?>2ZCU$)p,%c*.'AQaqYQ;_*.WHOCD0Onmd;]n88\*uco6Gi>[.4.j+sO]*qcs&H7.r1%hdPY7=mVY^Lr91p%,Xhgs+bX?hN,Cdo:JpWOf.I\A9&`rVdW^$cYascb<^=3)5E"uj35PI>.*o9Nm^;M;f/fJh;+5OhNPU`#cIF$ui+JY3f2iu(iTK^N_bEKlP3,Do'%Z0tg.#MnZ,5[s`]3Y5mp.NBPGZu)A[BkQ/`\Fh]J->u4Yd7;"TVf%MC8J!MC8J!MC8J!MC8J!MC8J.35%iWGN*\B^kDK,;LD^nnh&rf`!<2FIO!:S*ieL/FgeEM:LSGaOpTL1!]k[hERYoPXZglM]%HDcimo/f9jSI\9=j]c>Gp9=-=Pk=>\Xf]g)cp&bHm<=SrPQ'-enPLYZ;1+P_,]A&^].#G]McMMqa9oG_Co^E.5VZn0O%c>kU9jG6a1$gsE4%d5<0-h*K43hQWOM!6[e0n'liYe\!AYG]S;0^\-^a(h3!<#@!p''N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!K.os'h=(kt0.`f`(@T7qL[995S:>2?C!s4?.TE:!!TFB-YrrC-DX8`1OPi)<LY:'ttlj(bBT:narreJ8HHWNA+?FPl8R<3jUr>W\$>B8e4L'Ib"Z/?\Z#jkrN>\B#.3HZXd?6mmb`N34&"I7k.KL=Q`is'Y@hM'fC7q/-DPJP\'*lJG,Joi6suWV*lm%3MVP?9/OXiD`\/%i8n6Cfa-V!`HE[L:,JUMPo`H5#PH%jQ)K]&Hc18C+F36F\II!`>c75VJB:2Y_>WkSDZF#tkrI*e].&*A#72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&B8HQfjB'n3!:.dGr;bE>ApBC97=APB]Vb]/cja6eZF$il`Firq]OePdL+n.M>RpZ=!1o&rTE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TFX9W/rt;:SRoH\4Ck>YnoD.tpKt,sl?][nEuK%l-Yh&W&,DR_^H^h.IM^B'BP*:a'Ufh@,B+N':-fTji;>a?>Np1FZ!DY3+20bBR?.8m^NeM^nbW+6H!M)C[9BK74J-mX)66>Bf4G^o76n_I.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%h!p&cVjPYH.['f9G1h!NeE,nK7[dqS2uS:&b3d)SL'+"f)M0Zn]H*kA5.2<>deV"5\PSU5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!Ui]`OOjl.j_,<#ooVJ:44L;tt*1+MtghIaM]3P,[kl1X\=K1ErrUfa&A)!^;VXK/M9,khSRr`VU`p[f627qKD8H"#rMTFnQp8ql_X5bJU>YKnF#7%/q5+\OZr+iL<>-[2315)00XOcY(Jr1tP85Vei!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!QSpr0#+g(eScY>[Q6=1Euh[34#!*i65^XF0ng5M3S[WF**3'HEN6nZ$)?3?4j;@XB=Mue^mHCZA!Zi>FM=]7)TRGW5hC!@PM3.hXGq,pifKmr=\7\#&:+mX33K^#?a=!?Hp?,_0._5B0.+tTMAmG)=Mf>r"LB;Cg!4j:aj"oCH>S\7^[,!%f%]`0ab`r>3bJPdVt6Ph<)H'a'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!H2!2D"QJ[R^C:^[hl.+ZaEFY\G@0dIkuupQnUu?6[qeXQp3g-%jdHDn=Q@+[R/U+9f.l97#$U?3Df+QN*F9>FD^$K&7mP_l4o1&ZQ;I?7mJ=!CPPe3O31>r`UWnmq-.Ui!W0Dk\EVb>SEGe%"EfhAd=WqXL'Ji^>,Y.iC&\/9ji$+-iMC7j*mJGlRX79JY+j<4'k]3t72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cji]m5Romci/S,WIR25aTK,Q@b+?W[7-Y:76Y"';VlTX98X[Y?bM>j[P.$DSsr!.3&qZr'6l'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@ec/)`dLh[ksm!FnS%bV])MafjnBctHu2J1jCq3qh8SaYf3#dFo=?DrJ&PSeM/E1853*RqA`/'(7/Ds?EQ)crPA;3W)L_O%WSC3^2KApBC97=APB]Vb]/cjacIZdEpcbDp6p_Vf>SU4#?fF5?dC:X+]8Mh0(,B^:d<#Mo.S>ZR]c3'u$#%eWW)Q6aQn)#\<9cS9)d=<`@!Z+n3s+4tP,c=9eq)Z5]&*Yj)/fT`$CpT39>SPql"^PFJUeRj8-I0*pkrn@APT>n3^BXc5Pg%PFGJc8\_UpF3!4IG@07FCKK^Y7SJdcO$EOl@B/?AHbRDk`k_PQq]5B&mI@F5glUeZ0GqNSd#O2MC0Is?6^9lB5'3X-YE=r10U^fUDr?>R36>d+/-W)ltfC9$1O=8`'h2c'6k0I#"o3T?NNL/5,1n,EBR(CE*Rljr\&NH=U,8m@L%UY]>A2]Rq1dZVA-kO?`G#Q.0$faM?j6$bJm5.KYB!je16NEpl+rrAKL0_q"j$Fslmo'<1=?gbP$0C6Fc1e%Q'm`ShD;8AP)j?Lh[`6s^&oBE"k,4OH_@GB%dGK+q$3;kX:^Y>>&Y\\&X"&+7:/W9&WrSC?5MOG%pBQKduC#l[cToS+VUj[6FqUBpoZuq"Equ6ZSr[150Q56WgkceXunr-*tX#uVOqhGEpsVZo0Nmt8as>bL/T^gW9RPsSO\f&_#4$,CHcL\hC8:coD\eGrK^ejqit_%51FJapq-P+jJR&fE*r*oq!1`%p4%tZ\mER,(N6Gnd[ab)-%Sp7TNGPDlIODN-hD9@8%)"dd;.kC8LI-+-%GA/ronI0]V;o#pfQ-KV])alom8ueQ:0TER1#IgDt-cCdi;##EGX=E'0t?$G34L7V#JdW9V3C3B1>\E?%)#%m3o%TD]8C_n,6:rA3]CUJj92A'ru8Of\PTSf9Z#@VjAmAIj8-oR^tI+:3>U@1t2%Id7"bj$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MjU/YK_,TXfe;TknV,6k#su,9Zm1"Wn?V!6D@ErrCZ8htdAU3p-,6"%J'`R\[3&2@1R29$6I9J>ifn6,s2:J)MBo^ZZ''J)Df+K`GFpLmI;i49#9];uA$FosM_>G-Kc;gYnP96u3I#,9YqA;(]^_aTQWBet($)N"`b1QH-HA:Z59&i>g4ZkR4;1_(al@#_:q2EghCIi>*^!!q_@rr>;i49#9];uA)JiU$\'B71jr<)Jrn[Yt2L:D,fi%^_:ppeEt<2#"?()VLC`>0"M^'hb$H7NUqQ#'F/S9LL3MCrL(Jau1^f:=6$:!Jhd(ecPVgmVSIt[l/[^_4_ef0tqHnutfNIip]A/l\+)WE'SNnCceOW$Yn*`YgaF7j,BlAtifRMYo'FRT,2:[k.Y&^:^_J@]t(!iPfi#+\2$E>?u886^+iGfdcD19jk"q@H(mrr@^n6N7%Y/tN"BJ>rM^a`JU85mtpqPGQ;4!mL+O(^`Dt,DlK3IsL`,FI-V:XUk4h`GD((nFm?":Q3$m(Nu/d/MA^1bZ<#DqVQdk%>ROhRt<>E[usCP'H#(bl`d_(aEg5%?GrT+3'5.Loi7@\Xg/r$8ddq-OL&L_"Ocmn;_0hoEE^Yn.e1)O8)4%0DYb7htRPNiBS<('3mr7;;2l)dN_;`K?C/i:4B:ZSPfCeKQBK[!2(s8rr@SKrY0k!3MCrL(Jau1^f:=6$38PRXf`k[[>*fJh[IT3,@HJ0)$^E#W;ck73MCrL(Jau1^f:=6$ARk:nC4>":Q3+$P*PL?I*2$Bqe=E#Q!X/N[B#N!8^O-58jOTMW-(\SiGJG5iOd.#hn$#A)E"GnY5%&.p0`R2UsFBK7\Pa@&c3Z,RU=H!!q_@rr>;i49#9];uA'D!/,D[rrA]ESc8\?WW!S4Vbo%a9m%bdCsbn=U4OMV@&?]3&rYD=Gc-+uT_LOcXO1WfR'&RMYo'FRT,2:[kC9\mL/ugN.@aA#!5C%QqklM&/@D,8:0T-0EHMhTKMYfO^CuH>I+/a1hQRd\OF\[_.[E]!mQ=laBb$5?aa&L\s@fCF"3qR-_?&F,R\\RSIa(Jr>l<,EK4/-k3>?gs(h?h=NN^[Mt&_N4I^1b\\,l/27CTA`t#C"ghhf2@$eDgN@=V>.@R+(s3mmJuI[(?'?-+;7U)U#PSfn],LCh6jkNj:R\U)ea&!L`ITfGfNUMXkD"eM2(p2NdZC+1PCO0P;,+6BV^#(.L%F?-D1n\U,.Beq*72Ia$`AL4.Y!.A1bT?,g&\$aAn=g+(q5QF;FgqLB*3Y2;[&$^(e>-QHmZC\S)pmU)9VG)gXCI#M@FDVg)+fjpPso4VeupK=2VnMBusIU4P.M$Gk*,^#Ad:Om#:mb[T%$jn!?gD"H0(]Gh^FA`Bh(f0"S[YWjBJ-^Pfa7BaY37<7$X4>O\C25Vt;k1+7P;(?h=NN^[Mt&_N4I]oIp%Bl/27CTA`]37e]fDq>UH1/S;#.!0dE_nn0'E!"2.lKU&%EcoZfA,LdADmDoOZnONL/``%_A3H@@>S3R"r>t('5i=/O@QGV*E\rBsi27Zcqh8.fi51L+nOl2.%['R?)8V6'o[M^AjG0^6m3B=$[lL^_,^Yg+E`o&H;@@,,W?_,D/ppY!'hk=d0rP07LbOK4;rrA@R7]rZ96APR@Aei^C_AV=Yq?5RP8,R'?_-S'hK;??Y&jNKrNCZ_1NT0#3R")p&chnpb)ZKf19OIPCIuPQ>KD96]JMDZ3:&ZtQYBBSh_&'JorrCBUrrCtmrrA=PC%5-=c9V8#j,ER3EDKr!4q^#$#oDoG-hp`'r#ktWrrA]c?h`$!NC(>dn>4#n,LbRl)f0JW2p0du%NC%P5<H,VJ7TuUP@J=Es:@>#NZiFi:%1t[+QZq@qaplFDt6FL-Z'C,(MYF$^7K5X'T($o"o+pf$['[brh@*#FMHD$#QlqjK[JGhuG8H:m)UB[InSOp>>cnYUi.\&si,tnpUN1d5AX%`[:$/EUO:Xc+i%h5!A.4FXFgT8aMWP.qG`l1);Qh%SPn>DcVW*`!N9e?>KL\5!_T;bIDe--[mh1\!if!U#.rMESMo'M.pIEcdMmG'b`3P!-)a4,P&^V+HfUrIhkf;3BYo>/M36]@;c]j'Vlusb\BBG0;-*$4XrNF1JcJIhltbf>5>;3:Eh)ZkLAF1BEH]u;*Y:!;*Y;1`Q"?gm=3.gl(;X)\[33M="_olo+Q8!PEVMe!$)%>$k-44e7&\aiU.I0`6P%p5biBKc2g(!)*aO^%MqX%8r(?6)`gVra(l`I1X=C%$6]i`Qam!Ab^[G,lBd;K:NPRi]kGWnVF59hQu7/-/[NV`:[^qd+2gZj?2PU1R;3h]G5??W.))c9BH:rG@5(VWT^(,$7MX!!\t&,4iM\Hrg+C]iVrn62Ki\UNI7%[jI)T2'qmuF1R!tm/`+0AUKA[0Q.@A6jWMX\5V>=;c`[o@ZcP*K"PB)jZ;YNEaVV0-kL#?.ekkC;SP5)J5u.*Ic=5e*_*^^4J;mVR6<\D_<;;K<`]sG:?CJ[si>\0PMG:[B,\&qK8T7dPg9C3#,;OW;p=p=Z!fUD*gBP>74NGLi&12Ti3-G5hO0CBEI!(;*Y:!;*YPY00T[dhW_^Gmu=QpOc4qFf-0)n,1Ue=&SY)[iO1eD`-IAe&cb8Zn':=UT:7k8Y0*.P0gi^uM%e*Bn$PF9a/M8#hLIUNL]7?ce%@%R>GHf,4];,)__qMp!)&GS7XkCg!Bd4-?j`n3Z@#nMJE+iqktFm#j6YIZqnCVEa%rupLeX_\PU,jPH"1ajgUCZ7HZqL9SnXrne(7Fqck\OVpMSlqLmQ?+VX.q0!G[K?TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TF_(U~>endstream +endobj +7 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 19516 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__BEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$ARhaZeo;nenF,)nT(^[?BB5_'Bk7VjpY/[Y%fLAt;]^hAE"AXR`Ksg*V$-?ltQ(H?o)MFdk='_[,XgarCMjZ!8BS#-?(H`AtI[ndi)q+`%b]W6\4%bp53Qa/Voq&c"'m+qVe8mEZWh48RM!/+*:Nrr<%W9>C.tr"PX2XaIX1loj=;98RmCTW3kd-\sQWn"JRHZYMJH"!?$55"g`#(J+b'WNXK/jR6b`_X>h;UVt'iP$`8Ioc(LK4bCVC\IO3]1Hotca=^A[R<0Rr/>]LamG[m$K,f>oH3j,?80hbI4nIFVm?sSbprEWJ$Za%3C:ZTXb4q;`c*`[Xn\7#&9sZ#"FWd=e#%]>7rtQ_QmD`k(![(-n]!Xk4C8LR3;bY6kg+=L:>3/*H`0_Z,eBIZb2p^b*=![i23d,M6?2IDSsHj`PJ4W/1KnisS/^\DU=WK4DQ@*)6Pi&YYDDiLAMh^HC&2X(c(h_DDRN=//4c0(,U_\ca7ji'O&JnC6*@_$A]r*dWl#)n&o5W!+W0,H;]!^i_L27*n0O7=CVl?[=_^Q(hHrD1jK1d5f*-g;3Z[-]3fmU"U_7ZIXods1bVr@FZXS>:PDZlUJf`(ri^;^q8BRJG-)-*n^]-jTC9i^[WP3QB^1qP]8GSY(#VFu1A3rI$n%[F/sB]m>q4:th'C>(ZqHcKuBOiu+'N`<KOJ,CT.2Q1,oK3+?ecnRU]!!(,$WrX"T:A74$BIgsY&3jsmf_2p7AUfri)*#?A65CD<94[=#FMIJ&$\H`]#e)l:a$eNTNLTB2c7ia!>NbMka@2)T[?]">Y;4%h(X6kSpE%gokha/LnC?.!M%nD'J>YAhtFZmc>"S'"'.!3f4fLcE_X.plHSHY]bKrrCbOle;87X7(`b]F'`?@/430g\;\R?go)>Lu>aoo3'Y-#[p8_;-a1-PrT?4W=8Ukm7NXYEKphjYBB0+d;Re1lL3jq`O@I%]iTZlIXRjDXk=^mrPA-&Y!ZLC[4O>QPN_jKV=06%\6"7#m[teg@tU(&*+TKZgV>-N\YP`%mef)W@!m?XEZ5;gJaPCXHqQh-7Ls21'@`8+HMbGkPB>!Gb;iLGcE1N]%$CG=;=tF.m&9<-oh+^Jf>QdWDDF[4.cm&&):q]eCK@_+d,KkdU3IhnlHb7!S`X/]4oPS_D.0Xl34,/uS&MtO\ne4+U:/Cl,g!h)&>4.j".o3M,A9+gX5(!dh0=tLM"Jbdl1ZHU*2;U'U[Jh?*ndY4IMpjD?I*b4i_L1Q-,dN6_COQ=7fNI($.%X1l@0=]2*VXJXoAB=CUTRn+H2d_Yo$FWq,c\!>`@]+BgSU0WW)YN>Pm%:md6b4\*Eh\Rr%0]DtdE#^\)K&b_O61*OOA2);W977J=?O$O=1E4N:acUb23-7X<;bO)!qO5PZ,fhtm#(rr>;!OlB"QfR+!LUZqK]qR+PuE`s]pdJ8I&AOFPe1'>fW7Sc/tDb>aWD'$h+QY`p2`f@UT#Z(fd]_OF2RqgO/IBC6p^m,\3"g3]aITr-%U5I1M.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!Wm_6WVD:[T-&!2%CaeDUVo*jsE(GTC)+ojLOp8`".mI$nj\+Zo);Nsn'h1djR\SC"B=PIA72%TF5bj8B47ZH:\=m[(-LGa;\+uJLHYG$L,^3(r8,(\I">A9uV0fgfp[>VKG%6!a")`Etdl!&^,Mn9Q[^DN'Cu-tZ,,L,@$3;.,#Gir!Wmt8R!G:r4S!*l7J6.I*Ih4_^e'b:`>CU#3p#\o4Q2Q1?J"QB*2?iKIJBfcU0S>!#ODP6g6f-P;$I&5uXAARqa8g.PXF"3m/``*]GfoTV8Qsmc+"fM10D*RQMJPLkKd-K>Yp2)bp47$d?erZ$RH'Kir/M:/]N-"QoD\f!(sEX"51dD^-d@]+*8h6Io\ua]o:sj6Pof?UgSdSr%kod@GX!YVP]H&UJ+C*jkhl'HNOgSiAsKKmC"+]Q!HfC`a#,GAB_^7FlE?#&4$K&VN&.kKFo3gNh[lkhljLcCTj^rj#)(Nf>CV+a[W;:6[-.MYT4:d8iYsD/$m-$'PZb-#>WS/Kie7N@O:U1N&4Uu'cdj5RZ118S\S%hdW5^CMZ^0GS&RA$b]"$V>\B5A.+*_qI:kM8e]o!a#2[B%J2Qt+&[nZbelNc3elNr*9=.cCE7$Zg*2t&#Y9WV_>0qc[*A@A?h>[K>7$Z#A5=1Q/f4DS$d&57_k-7IS\"7`-Vjo]g_e[!o]7rl[mch\VA#AR\Cm&PA(Gfe;-.U(P.;*U=-$:I5G-O"SVc1AXW\NZ$9V&a6?8:rTpkqpN/YC,7/Ur%]E4cb"SYYqpr=:b-K7$Snj:^,11&[_IZh\KH,6[%di-Kl(qhihLr(3gP,fLG(=%f+Xnr9fJFo'Z"N4_)kDBeU'Jpa\,ct1`tr-Tl7,ItkW3:s:&;jAeQV6g\'Y@QH,V$N9Jc5l75GDJr1tV1C>P)J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-sNIJ)hV'rI3T&!9ln:Vc`p>[n,nhVH/ec\$nGO8BdhBa9E?K0>7G4H2r,niThLsCWrmqb'hI#:>$HRmOKG<4_)At7BI`Hdt-5^nIM$XDQ#5VjI*5"tL10>,hok7h-Cq;4i-u>0)VSj]]8+AUMf\T)3;M%R:N(,8\kWp:m$js`@/'*%rB'u@YsrL_VPmJBZrNjs9eWjP-2)]PqB!aI1)ZgsJiVePA;WeaNi+%OkX@\:ns["G.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.l0Kk!0D<;p%rt5!2UR9Dr*hV@N.,;P3R+;e!q^A%dnkQ>:O.%gXJFe&`S?*l:l_AM3aOF?39U<58r@>imXXml-MI2meu5#iY3'R2iJFqR!9,1u.XaHNr'k^BdNG,3QkF'X=X%jNF?'J(/T4%_nHP=3L&?;WIZ-6sDTiW$?=0L7leVp!5I#*%S>EP#A0&-Pe)^.NDesH6S8$$,>`It@rr=_Cqi=pq/io3""oHsM8U[H5ld,BnrOq"[)Cmm?f'KfVD`Z[n,nhVH/ec\$nGO8BdhBa9E?K0>7G4H2uTlMC8J!MC8J+588?Sf>QBG\!Qi51&TVS$hpBEa6DkRX_q!7.&eh%ChlMJ8ei(EDUM`Fb4M"4]@<:dnoL^R[`j-)oLn6c1]?@S?K7tI]58M*@eSpUm6Vo"C6=T#AjLVIcRN7Dh`GYriSCmS1`p2+-_q3JJt_;%$X:SrL44Sp+h-MlW>p.qT$nXCU3fH6Kab32.glg:3QIU.pIW`c?%[cmScr=7%O$?bUGAeeIPN]e'E+7?oAQ0G]:p57t5Fk`H2nT:B72Akt&Hq"`WmX$"#rI%I?>0[U>Sn)B.YYdh("U,T;5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T'@;^\sRGDe!WmEN!6j)pGbAm#&Y:^h4tG!&D\[8O$HS%_\dbiQpo[1o?irg?%/?Jr$(caRpB1*n?OWV<4?.]010T3p-Fo=NtV:>*Uif(Iq@Y:]f3tm1mYVZlBcL<[oSR-7,s9E4HB@4*@`J@DnI/Q>&$b*>!oMrDYg^BZEX?/52Ll5(3jHV$fU)p%fYosKBAUF1:Jco5p!PrhR5O0iXJ,kqD63K]04mFT#>gXS0%\1:hZV0`VV-rrk<0o])<,/Ae(?iot2ZgeSa=B54O,7?RMh`*/QLf,]9cD19@ArO(1qf3T@dB>i'%taa'SlAk;`1[e1d>J,509-`aYeK(dkM/YuTZEKt)m]]!FEW]\AFqE;s!U5I1!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XN_"L6.5c5fBqJpPY#&$MrEtmdQ5JAeWr?#&%>17UE?!>3"m3LR&rb?e33uYS5[\os-kdPK2kV7Z.S#[joAHTN(a6EAF*N^Pf[FVDlma:U'L-t]t]a\m.=`[)5rGHncT"M7Ir=i+3Q5!1b!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#:oprrC,$?i'`5rrCK(.o*?s4_Yg)F*&==1%+IoWL_1Am17SNg(,2hp%:-B[7(d+!C[]!!C[]!!C[]!!C[]!!F-,HTjN%O;j5/6)NSuWc2ONQC>RUbQ0@bIhMh:C=dmWmG@c*ShLY6'k;O16_/ML+lhpVPl]'m7%q#*M;h#I*?9IC&HXOU36.E3$k!'G`?\a"tA)^cG05R978=9>&\"Wg%*qZD^P\&#irr<7_EL85)c!iBpo\\OBg&@%E8YU!Dg?"Zn##[lOAVIkjD,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!ZSWd"#>>'s?akO];'fr-08HYS8FCAJ:$+UpdZlW!9RWW2+Zi!MW#i[MJ2X@#M?#'!M?#'!M?#'!M?#'!M?#'!M?#/[nILAXFBq?5:#SMIF?-t<;>[tZmQus5h>3.XpN0A0$>RfL_d]O!T/:[dFS9LV?e9G"M;b'?f_D4:qaIYtR6Fd@h#,PYU%KI^^UGD\f/+A@\f/SKiZ2&CaQU)@rRU`;r;.(kidV8@/bni@L)aF_ao8Rsi@Yqnp(.4VFf1'=GaT#DV[""rEWR*h69m\'IhCP&)Ua;LB>9&@Y'XOFr0NVEWMRZfoiO4U*!o.0>PW`'Ng;LBGr9j')<3XOKH*d*g^nm(\+9HRl'rDlnD!Lr\B1Yl/^9_4U9ZDY3tn'r[!a'pRjjfZsN!U**%Z=;-<)2X+"YN;8W./j?@VqI6R2>Y-1m,cVSL+G&$AVOC3`X)[jb;-lWP_TYq)IUjpK%M&[E;cXp3\Jdo1Kl6K)Bis-c=o")'o00jg?J%6H:GBjs*;R3jIQMfPW)(KO=df,p],m;YDebS>GLr/gnjdP1WaB4FF->mi!8O?5aWM"\[AE.hg;]IrW7eFkH\fUr=CC(\,I&7>$X.8O^D>LXoH3l69E,!![t"6O-$*B#d5@I:`-TS_7;!WlL>"V9cP*=e`5()0M80u63@']-la*>=:@ZLgl??qagTF?*eRI3_E;X7?C`fj00gH]M;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I"a`s`"hqE,\?V$OM>3%fd3hHLYU6Lb-BAkPdqrlqE.`4#(2a/H,O_q2O`\tMd?8Uej^_9=h?^\]VJ5F9,-VMF.5HR!8$KR[R`@H'g[rVllkQdfN;rjOc8.)noK+*$>[[-])]MC>Qc!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!hjs&BkLT0[tWsLD39nq+%&t(5S.1'g>*K&(=:9,VjSBg'&0f8-6+S+8H.7rr?E8J,3"gC"=qmXlNUPB/algD0L(*\I#N:g)lDCm`uoql@#l;[7(d+!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!En.-LLK0O3UF-Z(.cb$Iu,,p:LdQb;JA"#<$s/9;hMD^:H*o(ec$R_[X,`Q:s]O'"laRl%a)][j75@6W7:IO*u%gCIpmGniTGb,:.2&";I5kQ+&>XYk-?/^mIc2T+7Ynpe$W0T!)YppmQC#(P[eq!aGtfUg-]?cTE7t!8+$'-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ibA%K?123?2/OFdn,&Jku1BkD#'2*QmNl5]Re-E#!K<;G>qO:&XMTT)])Qb-L&2blZC`jSrFdYT_Puqn;Z^IHL7NU6r!l*F<'j]DM3)[VnQrsm-cOpm?6V_AX4.rb>;rb5+et1RnZB&/g3?-h,O6'e/r[80_!\Mr"X2&4rg'h923]<_Ig^GrLUt)p%C4'P$]-BRc!8B$QHX&"q6U_k1]..E6@r]Nrf4oIA4WVcGE%FC@TP<>^E(;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z"F[_6OR:MXk;?!Q2kD_XOn(AB;GgrHWr\OK0U^iubZ>1;@prnJ;4Bu8Z])2LL.@S?2uu&cP;A>(=Kj.A$+!mF#BAiRa%;Pg#mV8\iSqL(>?Sqc7tD:N7E=\ia34@1)kSb-N6Z:m:X.K=DcbjP9Fo]7RrmgP!gV<\8P.AmC?H]A6f/eqiDlH7,b5bh3C%L*6gI)uE;Da7i2GQnfCifYd[WEHk[``[aqk#D+[t!VrA+KX"f>p#>h=(*Lqf+k?Zr'6l'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!EaC`GA5]MIJoZ);?Fn#4$h!>th6"4IZ7]RG?aHJMEJFF-/_eA6>MEVC_b*]*)Z[n;u^&pN%'?`NGfp1JLfI7Qe)WkG2EfmQ*%pQ*Kml'/Os([/RY61t\ooN6fPO^j\MWaUr)X(B(`3m6[mTYaY:%ClJ5Wer_Y(Ef3;HHQMX%K3+E`@rmZd:+pMIp9c'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng5RLf=KV>gP!gV<\8P-jNs_pLML>tEQ[3kaq+f[qh/nN<5Z!'Kp7-ef=9Ysf@'!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!Y?1[5ToP^Y$1//GC!94htUq`$SgHhPFp[SNl+"Ard5;`<>BJBNl9'i>FZ/ALPEHI0sfE;o;6:q8GR^+$2"ad5INlOoqq`hB)(9#a:=\b*k>[L/adkO=3qr`Hi=c3lImPE[/c*T/@,5r=,000J#>oWhlh9742dT-QoZr$!+-<3rp]pf%b2(!:8?sLm`YJ&5FL>#1rN=JZE7l'm4E2>eU3f/dlo&@pJWZHV]>P-mm@iD&-;e2HQUH=lm%fVUKJd`FCCGG34#-iX2Ss!1Q+5CsY?nj^jPGJ(KhN%U9ba$f*0@]H(YB8L^8\:IBajbM&7l::X:Y(K:8[thAnX)"\&ZCgr(1%O3cQp#p-duA$4gA:O.@p^k,d>tYS]RQ>b+2(s.k4EI\Q_:.b/u!,PM$'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ENuhGZr9eSDD!LAUZWU2Wnf#W?)!=T=nn;!,HB,+6-J2qgFY-!6aK&q3632rB>khf3(OWWp+4JU)Z&'FCd$_=0U5Ko5(R-:cbO7AbqF]ZZVlDpjZSm?>7dnM9h^uo%]jX3rV.;C-E<[De1j=/(n6A,(!h(kL>(!rdON1cLFAZOYeMgg('/[aY4dr^[(Qh.Q$Fk/UX2`@p0_Lph=e9:+s1parUlZ*f*,OkDA2cP74mUco$6neaOa')M(E)qF`_Lg.EFB3Wd%lZeYT=V8;-X\t&[ZS'e+KY0"/KsIfD%gb3XGtN(^dXC5IEj:[n.o"21G>lOP"\B2U4fqRsC[^fduUc_ntjDoX%p(jOkB)j&3_%;ct3/#RH?XW!G#a\j`EZW:S7U5EPk72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!=dfm!K;JSJYM6hj.$Ct'+2cJe>?seO&j!_ncIgc%f^V(l`W/-o3@EPq!O5'-:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:^%k,7anbFgO!QI`u#4S(k!6A.hHr8;:>9e[>A@OA;b5s^-BF,+,540WM6bZ=[cPg%M=#W^\f>qesZlpoJmos=mSoVqX*\FO]Spi!#B7ZQ3::1OrsL42op()cNO2&>?+#e7+4"9IbA3>XEqE^2uWA/rFtk%H`MIB?`:(aZakGp7R>+k+>CV3O$d0iGV2'o[ZRRsC$hGX=UV.e]P$ak)#RfNpEm/piuO\1@I*hV#GF:W(f2-ifTd'//K%5?aZ1`juW1dItrq2t5%FEV2IZ>/jYip#Q"bboVQik7n0CWj]@BeU>lWr!Y7F+!9a8q[\O#YN$_BGnp_aE6%XEGa$0OGPm+V-QUolp[%&'qqr5SV09<$KpCj!HX4HPrGmuYnuELlZ"r<^?]X>cZPmnjX[3Z0AE)MG!n-uV&Ul0CYV8dM9%>cm5P*G95F=[3CKbu_!5d?`#kaPrT$mn%+,^+LUh*V*X8rR),-l,L/YHI6f/c'YZ0L1o%CLs$,a0>Qf-AC1B"WZS`n=pg_5`NU^d6]=KX:>iFdkB,fOU`X*)WB\,OX@XoAA.k3gTG`37.k[BH6IhEN,`T05U8LYVn0cGKF\%T'egg%LY6rrCJmNqS@g^TbEpfoV()gI\#Mr+YDS98Um$iY]Qo;*NC[.oY7[!c9-qRsDZo*=o]@OX6OrVCtO/=RXso."U\mb2%E:!W0ajtpuupj6;]MT3s(?aWOtOh<5$J4\o@kRW"(lU];V=,XW.>7Xbf\SB+&q51n\U5CFZ6Ad1a!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!ja^*q$0Rm!+33bqGAO\fls(\*n5].h7rsi)Q`f7H3*%M"a-Gqjq+q:7'q,#eH2dk1m770Sg]%9DWf#h(T'A$Mg?,-P*@(_t"6NVmVhhqr%013A=eFAkTCa2SJ+)4.rrKA)CbqmZS*j&?&W7:Y(cF4sg8D$IPLUbJO_MmZL:$A4fJA\hn+C;2*`(%<]]GcXji[^>gu0i,0%m5%TQ.51$*_fIW[=;?0D.k[3,;?DuTgWVuoePa-T/bBcrR5F&?P#b`SHX%B["?J(8VX&bskjfls(\*n5].h7rsi)P@O#.j!k@T'k0FC%]_>iL(TC?'#Jo(aC4X8sfE-oDXBrO8\sbrrD(Y!N/@uIq@Jdd!JXi!5E^W!;pT+\'XWf^0'&3])\j&g&PXP@`nQpe&]cXqf%M&ar%L?p;?"bOrrA_cU]1=CmJd1]eO:7/4>K\XHKLs(4,G4E+?Q'+>lOf(j+RU)TFHc/1]&frre&pcrVO)(!97&mBQLT2G:-YF9[TV)Xg/EOMNT^UHE-sD!O5(*Iq@Jdd!JXi!5E^W!;pT+\BsEMN(5e:W3V1M!8.AJQ%LOF0#RiW)\c=cp0Hk[#IPZNpM^'3`i:P[%XYfjXf'c.(PZI6h0)%=UgT.;]dNtlMTl(C]`.u)p7qWfIdR.8psgJ>GG"LKe:6rC^]+9PTFEq4*oB>Veh\:,k+\k]j@P8,iJArrDSh!5,cQ2:Rr.ZSZ@$1>qZ'=9G1q\)gN=3p:Xee<_Cbe3q_/`m(e!@P8,iJArrDSh!7R[K5I0`BkWPmE!8kD>(+Zn2Ks=a:F*2-Waprg!/1I>hrc)`1]&frre&pcrVO)(!97&mBQLT2G:-YF9[TV)Xg/EOMNT^UHE-sDdqRVEV"Z%Bn6^t==dcYi7QodT>^c\5oW#gFM#u\W=k.ADEYW60O2D%,5I0`BkWPmE!8kDHTRU8gX2"fmfV@PTLf/UE`@@qJQW8$Io'u]`.u)p7qWfIdR.8pshfSU!Ipu2735BU@?Bd)m76dGG"LKe:6rC^]+9PThZBS5Dp26\k'tn*8&,!\C7iV1"=<_!$D"/8=hs5qi5RM4dm2dK!&>AF5"WDLKr>/9>#poJGdX1R.D,78ZiG^<,RP)o@4EW!dY:D2lSIGIrNJ%[7;k>]4T&\$XJ2>tE1RsXV5[VVM.Hc=#*FT/Yri4C0eDI;n?Zlf07X7nf-JA6Bj?\;2%DD`hO\%&Z.n\[J<;-%Qqni@a4W>Y=cX'F2iK'b..UV4.O]8GT%_-J7o>Q`T/(+W_J_WD`e8MtkLKc/*T,U$BPqdTlgK35LEpJ"oS.s!K='N%,IMC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!ZSWd"#>>'s?akO];'fr*@u`O5XD"Q/M\)Wc,ikSs,bN),*CUZ=!C[]!!C[]!!C[]!!FB39CDs!t-.K)lRo0&7Stg-0hFB3Q.ql\@-:q],0&JH*_,q/io.JKuT3Ud@K/EJ;gPMB]odt'Y>DoNrPR&Y!EJ@jjiV-Cs8-^,ePE5q;4I6^r)A\SQbkBE@h7DB5"GIhi6LV-4j`3]Y#WN&'^(?mtXS!M_Ru&bIZg["`MKrEI]O36Bk3bKO\aR#!C=W'6@+6DbD=-o<[moZ>FHd$=EeQ4h7KVs.0L5q`c?!$.I3RQ:e&A/qbq<:tP%ig$P.M^?1%%X0!RLfN-j'>];*Y:!;*Y:!;*Y:!;*Z14ir)qXO2Ms[=jP^4mTV=RU+"Rr!9u#!Qo[1;"6r8H8ijl5gnPe7"Xl/oMt5/5jCI8/LX;*]BD*0KO4a6-TC.n9)m\3e`NNW(22IEO+RSla(P"<&0\cnqBUZU!@[/V6'&37^peYEu^B>EH[4/8HFK5e]rdaflIot$`.;7X0=uQY9Mtp2_2;HlTc<]qW7D%_ego$NaljOW[3=8.KBlHi^f3aB;#@\*etJO_u=5&M05@#?/45i>JY)r&\4=,F>A-AbIraA1DXq*)ico9BO(=UcL09CdRe<[Up*>j5a#tT2B8bfN`CYHc@:Ln<16R?(6[9)rMJ`Fk2h4iEH8md[YuX15QCi;!S!9a*!<''rT9J-&:iF-5@13W[a%\u?]&h6iBF*ThjX)f00KfNWPq>`&O@oG`_`-Lc0Ug5Xq4g?]7"aXkZ`mV"`@;*O8^/$s-qK?d7MIp$!8?c:ZhL\@S#PT"_3'uXHkRA)leNA05D:WsM@^F@7bj;QCo4<(3_="qf,`T*f%D]P?'8d\`PrU2:IfE%N#$k*QmhKVNHoc`.jl>atT^LNRCk5n;4]87$S:FG9A,B:O;TF9Tqe7@,-/Ym-&!%#:`L>g".!7$.U5<@8j6O\.b7g(4Q.+BFboMktn$@Mmg;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1J7s4I~>endstream +endobj +8 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 13892 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__BEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXRsV2_T]Y*UV?k-\`o4A1l4,isC9J,TV;0jaBJh;#B-`$BF/q5?GR$*qiT6()f$sgl*-\Iaql6;YT9-(a4I>n$>!8Fpp/b;(>GG6-7Km"1E8.ZcJcY$Be/GJf3K;APXXidNe7r$=kB>/s9VqK0D9d4i;HW3Bg6?V@ZT/W.NPic`Q!r/R^`MLGb8G6j=D_SaM[QR9]B;L';HS4)`";a^@$-SYI<__BB:@N`Ak6J'htp-fn$5N)fmePY5E-YVc)K4?=h6cGpJFK1c/oaW"83ULZ1pj]5>bTa/Qeh:'N%:$$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!/&>e8Ct"b]g1QMh0-osp!7*jE2$,DiP)#3?Qb"("cH"_'lh*4i3()U`cCh-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ijfsEF*3gi;>b-]qW)d]P=cQVSglb5laeIYG$V3Zdd)QP[QJ!11)'kAa4\7$kTa@L8Hi\:HLZ7CDj`%H]6BZ`641Ckoa#nB^hn=@WGk[+IhT&1VVhcJk>!#hqOau]e##kO%Tmi9lqJGM43c2:cIs,MCA'jrlJ`<:h^DRb7_R+d?f@=R7!70e2U5CB>+[m)A!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!#8H#8Mc9CeQI-S=CPrI/;'aHF3hU'<(m(LUL+9+<]jpGU/@p4gqoa0P2pnE$LgD:/UYj?N#A1\cnN`jVqkIMZ`S=l8(L='mM9`,.Z.3$\"o!75N2WhmE+M\AV5es/GFnE:Q`77i#,72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cjiQq<7oT/k>L]7?>'rP0J'Xs5I%Va5_F&'#E6<,9:"CkiuG,RC`\NMHXJ38b/n4V`4Lc5+:$aqRu828K&nAFc5rrBcmHH!;1G?3*r7,+K%"0(qrB";i9g,J`/Kk?W.-K<8Fn`-epG^`fnKgG4[=W3?VrlWKR/WU#4PPte3nu>m6d-no%p4Or=?L.E(phB:\=t$,@i!Lm,J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-'[?J@!ibO6k[Q`:E2Pp3M_ZE?.$V(lgRePKSoc"lHt(#qX"7Ye]9>q;bTjC#No83%QmXR`G:8_X24bR:KeiLl]7ub[kt#f%ZK!EYG+l!o+j:rk:$[Uht%M7A\_5(VICtS)];R5:5kr*9/>r!,'##>J^03qS%d;'&7o<1q8i"0/fj/W\n6$9J-Q0`]sOa+94i+W3;!u4*gJeYp@]?hIWM2T.]+U5g4g8aMWbk8Bs^MRV.BIMlegN2`IT;]$r?lb`LSaBVIRg!*13X3)E7UA\H69r`J&&&&g"i4o(XD,tIr/ob[9r%e4YDW2n><9ET+B]3(>UGN/mn@.J&Gao275ePFuVD8.&)Sa'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@e`jh4-'kcdA"i'.nE[!O?*Gd&%YjC_iCKVX_h*OLHjj$dQd'?+8l1?SH'Bt=4?LrrCCLC!ZlL'MnuUMf^iH#DXq5E'2R\U*m:-8,.NjaF#Sjfogb)jHYj!A6.t4E5VJncFkjCK>k:)peSqLCA+^:hXUN[Ne0RkJbnR&2,S\QofM[#^8!5D[[1;?e"X=_L1qd;Kk3g9$tD@($jT/9lfhVQ!)Z0!!*;8B>m,D)_flm[T\ROLfFOa;hiB#PY)7kQT[K)s;OXR*eu,,;0A!qiVb*`1fTmM_"6lGFIXM,PkZ-\-,diuTSi_R)ZsC,,Drq$\#Q?%IF8Gc8XBODuH"e#;/\3B-3hKn]oiF1/[%eM=Pl;Qc^K'iN'2_15-Q#]L'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED,=ot;hl;GAbq:KSlp/5@3*H@e+6RBOl2But4nl=a?o-6gqfAof2V]28giG0\Gg:F@/W=7Cs8G@b3,F+"DM:T.R@G\pE3/be948Dprp@QQsj?L[.UMY]jAGshT3TF0/L%h)%/*=k_E/M.aim#baG\RP?d0Qq_LB;Z]YpT=8r'N%:!'N%:!@/.K%:D%htim._Q"+1N,Ku[!8VpO$QnAARHm3^5`a]j[D8h5&Mo+00>`;3Q/f9?!X_LDpfZJWTd,A\//%l==(am\T65Hh1GqD6L8rr/.dc[Fj>eU6!.][']SWp/.)l?[goYT1\5L*#3Hn2s^N:IEG8.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!`e2-s286-iV%p%hJKmjgB9:&p0Z,ri>@OkZb68%0o?#;&'R>7fW-DB9eJcu@`To[gZ:b=_l4_2-Zfc<:Xq*ia)8HB+J]1sEFN](^h4V6?mEqDC2ck%T2K/m1,;B:\RDiF*J29;Jrr=7WOoGDf;#^OZ!jq80_Nsa[iQXC>mV16F84o\/!/t_60%C1HpEueS:]X!!:]X!!:]X_qhNMl[knb7daSjo;N8p0dM"_.Cd%Z,e-Q+@%fqZc?*bq#[5-K1hD+O&[2a18oVn(Q@JuKKAK$mm!9<[6a2JAhB7fZCT'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EOW\chS=JO8AF&rr>;!Vc^YIZF%%/k++*;X>%aZUb++;(fMU13FY%@:L@;ZTE:!!TE:!!TE:!!TE`Jq,]&L7Q%fPh+H#a"I*[R32Y('rp*QG];L0]R5N!gd7_N!1HrK"f4@u8?AM+a*]aTR,@uc?@I16En%^]Xl:8bo[+.$X22H>AXAKZR[#k(Dk(W67Q&5S^A261Uh7`^ihkEeKhh]L#VhU#b=KW%jhQi&o4Jr1tL`$h@;!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6+H(gijeZe"]@!1ff^=)'F#(llU>R!J_[bIp1R-cOPHGYG?["PX#!EXZ?G1U5Aq!U5Aq!U5Aq!U5As0I!ahqM0uK=B_b@ta6,NFaFg,'O47]do#NSYd0=UB_0A2EV/ZLClFtag$h+&Oo)"JAU8mJSKsmsh%IKsc81%Wb_u02.<$$.Uip?CH.&)7r'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'H5tJ4B&<&"bsKAf`(q[hqbEI:onI\N?.^]+cs.`gtQkC7K[cmjRNg;[\C+9]h3]+9kj!:l1GFJo#5MW#3NbAjuajXb9!4[E"$%heL/rG/Z%a!.2l!+Cm.DpKE)X!0>!RG.nsFNPs2c)751A=Q(Z-C`G/\G939)5Jq6B4?!+&M%!9aKkkQ%?7-ig!!-ig!!-ig!!-ig3K/`O@NP2:H78>K.dN%tZ%78$&LSW>@S>G$Y!+DY]haa?0pq2P7H/cPh%n*2q,Y>0gcmNG/qFa2_0.k/O^oHL@$RU)eqVb:NH&<[n8&#_XIoJPeMArObU0hLLs'glorE.E[>"rQFkT)OU.g`G#s/'2dH0'dd+Cq9b2W?_O1Dj6B:e9Aai"3"mI5/QJUn90k$HP_rgDeU23VVp32-j4'k+2YJMTF;>>BokiYkr26]foXoUgKO#G9U$X7>AcIcN]U;?@e`jpdd+f>FB8-4bp4'dXJm1jN+ZPWJEV5@I4K&_$7MX!$7MX!$7MX!$7MX!$7MX!$I.0Z4$A'gHTT,$q*(cnG6RZHG;dmFYfJaRTu\FXlT-Vh];N?5jEm-ief@T`MXp+L^C<%c'6Vli,@njm,^QZg>MJuHVebRY9(_YS?ZrX30CjUF4bej;d.R?%`"jkG@5)ifb'7G\KQ]5P8Fr_c6;B::BIKU4#mr)TJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J29;Jrr=7WOoGDf;#^OZ!jq80_N/ls*7KV[0ZP$;LWX;m/m)p0YUVQ&S-"2\C4HX>U4.q>n9.V\UTeh_@upjrY,-V.eK'k4/7[m=K6V2HYkC9r7@/.1Vrr?A%rrD6a[-JOFQL[E%brOYKC">pJ8u."@VoonG^VB]lYA]2ur+PXbn_<4Ko!.Ifk)/\UD1BNR)40^Y43\]D!6`(PS_3XR^XB]a45uQtj^Zj.-a7[3r-=Eglpj::7&&`3+F"6V>gurGo&&lmn2pIrNhF&![e?rC,kd>,Y8gtELLB5"l?PO@CMJA,.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)58\[8iYLrFEcbT=gV9!5n2u1]W4KHs]KAMJ:9Od0'AYQQ#?ML2TA6"^1&-]gf!_aZ0;;e6c)3q=ok;@_q5u4PoAQR1E"A-pnRqW$%_n,DrFiQEcgUl6J3Rn)T>sO,nA!B.o/^Y=DbJSFq]5XBrmAjprcNR,4iM\PkJC@fc*c*6j/1b^T@5YnrXf)0)/3_AGB]`N5o%IPrrBc)+3KU6d_Y:SZ]Uik>/&*ckA8Tl3*AH)Xb36VtFVmK,ZX2MG;:miVCm2HAVhW'U^#LZiErl'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EJBn`0TouMUH:;/WGjV":nk1P[j7P<;us+00eY&W;ckTbCBLQ>'*RG2kXne8`@oG(IZ$#mnuI6ai0C0I@VFD&uSg,>04!.0*nCf!Frk?YpMI\Z*SnE9_,qFCL06iR.Z$IbXVcg=BOq>feFp[[5A!05J*WHnLD5TNAor`fC&n_2HdJ2(lJ/Q"&NddolAP3HFQ1TT9hT*''T]GtQIKhqZHH2dk0*Cp,.>Q4]ng=)dH0Jtq_6MAqRO$^Si[h)/U8T0P5Wos@botm0.rMb)B!'hPprr-.%!:ecu?.="&1+0W?ZdU2+L*Iu8?=1C[^c=M.09M:j+%hm;g6Lg(T\=,sg4.a&\4uu'BCefN'`HgMWcCQ=#R"cS!5I6STC`06J+)L6rr=(<+&^Vur%>Q,ppC\nOZ2%U\LFnHhK/`^IcIVKW[Is*qbm%bJ3&bir3u\+j0X;N?@U<,;?$X2QN$s_G-pJ+$s5A=;.dBqka1ZU8dk\_^/['>+TCu8i9.jPoFq6)C0lD:#>tL$^R"m"r-#I2TFB069@*G7l9G%6hu<\:e.u5RW0S4`H(nZfFKm6^ea;kPJ[gct%Ps]n[]#i-cg=BOq>feFp[[5A!05PF)O@>N>*q->oo3N0E*hEQRhu,iH.R%'gS+HaW[Is*qbm%bJ3&bir3u\+j0X;N?@U<,;?$X2QN$s_G-pJ+$jc9>doj5o3YhYpQS#j)-k]bI.+/d$hXpWalW6^U4"7c/7XN0l4kU1Zcp[pY1_!D&k5M7VDFkkPYC'+8bkPrrC)S$Va8n86B/2QgZ;k+U)30)[hg]rF"\=dJ.qO>?"E'BD/1br;^s^qtY11!68g^h+L^o$\Yk60B9WWQpU05pfG;c:[\f3a(&=Q:^1S+V<@dWFW^MVDuTgXB`?MorrA]%U]1=D/cPhGm:js5(q1ELW7+q;1e[M$AL;A&h^k66!'bb\EC8KSqAK;5[4ac."/u5"hogNK4'H`&#&!Y+kPYB<+8bK`rrA)0=RS*PQL!pa"lupFTYRD+Nmu^SKDWs+K:`$3cu.6"_T+SeXebm:i9?X*mBt:'k#EjP%5)S4i;;L4m*Ms,R_'K]fCbd&9fPn6m;m7uWFhugg[e$fDBgoYc>!Z7+)-f1FA6J!mB*Sl!#JqDPH8"phVDo"NLX%cO"10Hd=1*Phrg.->qPUPc5cL2D=a,J!SaN.^KNDQ"LpkBgFnDFX&Wou;"?ktrOWF.pf3C5RG*!WN/-le#mIFkGM^GfB[_0-B%qp\Z/*+H-1dR_noMrY>E1dXT+aj-YnqDRF;1[0m9#._!Db_DL$9ZgDr(p_.(6.utrf'O]O2T]#.FRT/^rGNkPOsgNLnH*uQV3aHVh/+U+2M9+"aj85\%Y%+C[rmZJh1DYcP"kulbA$rT53us!&MoUMYq4q1Ui*EOJi47Xb@mfSDu`mJ)[Rmu5kld=LOIrN.aKp\;(Grr@`D_um2pYCH#?5PWbtET=578Sp"tpdY)d=ULt>4)A@cC`)Y\H,Y(F"W/;F#IU?,!'^D_(2uM-TBi-A-=;8[;Le5J5N-!c?2PXirr@I3rr="@rrFE>WMBlBcD-Tn];##m,PcPrrj#qU<'X[T77Y1H56g`!T>][Aq4#DUgc%$F09$gecOJ0_D8!"s9:V`HD50XLF/Xmb[iSR[jS]sgq1aWnZ&Gji(-Ij%mnVNlT.Vki#'H%',S?qGNZcJ?VQ1Z,<=TrVjJ-ZsMF;+1Qo.&)5!.&)5!.&)5!.&)5!.&)5!.&)5IHol&@=_QBPp[UXS.sR1dNZt>U(BcO3@)o/i*Bi^lMC8J!MC8J!MC8RsnV+@HNM`8D7g,"0h;?/[>7cn#Te\Op76:R@rr@Bdl_5@+=ssBFMC8J!MC8J!MC8J!MC8J!MC8J!MC8SM7\=bqLt-H+>[=O!FU!7N]=iIG(f%U5B_D_:IR6'Mng!'Mng!'Mng!'Mng!'Mng44u'MC:PU7r!(4<.1!(E.>!CW7g>Mdhn96pAi4(kRNcU*7U4>5<$0h0sG`u(WjI9&9$#SY/MJYrt%+B$*AoB>3Cf.hnq%l"qHCEV$TTkak)CFPgX/Y3AD-I^@qrrDEQSmKmXGF+7uY&i=+W2XOrY2Rne0>hd$#DP(6VN%@5/L"7d(b.i\Jian#U5HDImO5+d"Vag)@7:l,!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!#QNH~>endstream +endobj +9 0 obj +<< +/Contents 25 0 R /MediaBox [ 0 0 595.2756 841.8898 ] /Parent 24 0 R /Resources << +/Font 1 0 R /ProcSet [ /PDF /Text /ImageB /ImageC /ImageI ] /XObject << +/FormXob.06da41808571d8ec86d5acf0c91cded6 4 0 R /FormXob.0a593fbc6ba598c33616e1fcb9c0bb46 6 0 R /FormXob.1bcea46b0aedde6fe3a1234c40841d02 3 0 R /FormXob.711cef74a3d023976423588117269d1e 5 0 R /FormXob.cc768689e08309357223b461060589da 7 0 R /FormXob.e3ff9d78364f2abb31bf43802f6a8104 8 0 R +>> +>> /Rotate 0 /Trans << + +>> + /Type /Page +>> +endobj +10 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 308 /Length 11520 /Subtype /Image + /Type /XObject /Width 448 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#QZa_^]OQ\!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7h/U`hdZcDcZ2Hq`Ud_m1MmbAS3B0Ck=pfirjfgXe\NL4mE)[MEAo\Br>F]]0QF03TmXi&(7GnXiXL8g7klpT+G4B'2';O[)OkNIghtG/_H-)'YYiJ<4MGSTb`J?_l:9W/Ym2j4uhlWlVd@V.;EVF?8J\JWo"?b8Y]NnCA&RZZki5f>&%-@Fq3a:%iiQXEh$Ot!"nrkc#2?^o3'NqFZgf..g`U#Y,lKBAWA]?K3[RY_.$LndW,]_oND7eROcZ1nc#G]pjud)(uEt8;[[_WdP"Y!$c@08qC?I]4CO(-n:IpAd;O:0tY`g?Z-o1/j\4/S(-Qb5Q"$"-5"*VG@QD^NU>fVKi78J[W/uP`,"Wq-08a`aYa!F2XSWE&1FK"LL#=]-'1'flC;ejUp:?/:U"%]Z&YkZDCXduO/b:\t]Z3XqG*R(g#N]NBZoqK;`fA]1Vg.&'?h:l+#0Dn`"a;6lUomS5fG@X]X\+s6GDE5"H4d@'b/MS^Xl-Ana^Aq]Z"]qJKt;Gri^kDYecXRX!]F6UldF'+Ee?2g/I!l?K(hJs%Cp[-9gF`=])$E?rS]KLb`mnu`._P`,5X(HCqeATPBk)bO:F4OnV8cKt(r=tQ?>@t.MD`T2g_aIj8-&k(h3"9a!W=EdlGT,FmsGXXh@l6n>&:P"@YSo-@QGO-!/Bf+kn*$"Z:d!>"LNgp5Qh(+0oetA;,6IY7Vc\B0Oa[ENNO(BgqPc)\ka3A9;G!?rr=s&g_DQ;+EDP<)FQ=Ai\E(RR9.e4#%Vqo]S$`Q;'4_\S4acKkFJ#`ndGn1#"jHHFlT^@:U'L73R@!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:oGf'%3:[ih8GAAXbGcdO&:bkt1^%`(e$JVGh/;VC4)&Qb\)$G7^#:Z?@EFup2Z\D\BLb(.[g-*C#47`Sm<3m4^L1A`)\F!P`PrNVAjPJbYQZf"Res`CpRZ-ImiV^s:=^3_:g-.bgq?ljf9d;OuO1W8'!cZ!R#!`:HVGXDORm+DaMpT/jA$ghG!#Amu39;.aep?=3f/,JX.Y`Ffi9$?>(*G/`aBNSAudNbKkU4O+%OMCPt8Zki1;ej-\]3f9.oS5B/;r!?'qS[O;-MM@%)C!#/F;*CeLU[or)G8Rm2'83Lp2Io2*25h]r*KbRBLJr1tL!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAG0lP_Rk"[s:[:&l?B!9u&9L8AC[g9&qsH#ItE`.aZ:D+F3*CH@U8GAbaqW(F0cArrh&mMWSCe5IAbPR-BD?P<,.q6'6C?nRC/bE82j_>]][q1,F5I@5=ad3,6#Br@^oZq:9kQ%D'+Gs>N"3bjJK?>8GegJ%-KSt_YOr*b*rjGC/QrUS5/=/b[;S++P>+R+e4]Zr`FD:!(p<)Bj'lAne"h3E[V-:Qa=*i\lfm+D6_Sh5=p#grCCU*:?AY/u,!l`!l2'=dnDI29q7&G7n,b]kg7W;TnroH>Wk4E[tUL$7MX!38]Q.IW(!>oOg('Ul7fLLZNI%^Im,IQ/C=Y0k05AaIZ=W'g$o,'mj#d>u*u&Z@BJK9V5"=[Dr+t^1Yp_XC]J92A0H0kO,hE^TCDa1j$KZ%\N=,_-hoep>>6Qrr?mtipmN4^Mtki5RBR2o_5KA^sk$+olN:-#[*Sa)e=/,-*dIM;(t(a-KX^HH/mL6^H_r:;*Y0C@_C/b+4qYLmVRF>2f)WBm3'_NpXK1bl#l0=&oH@Jqaf;s!'F0T:>bj;ri1H/W:"cd^#pk`m4ZFn^FO]X7&$EaSM%$R\;]Mq5jS%e2(_DD'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'p7LH2LSrLqNZc=6Tjin`ZOW7l2gTA.pe)5j`IO2q$sfRF^mS0CD6WMaRQOE-!!:;B1Ek];"+YeLMEe;S%Q;J]=bBDpik(GoH2XKmLg;+01f5+Q.#u-XFpW[oj3Mo6HJ$`>pYC27skbPXQR`hhWeE)'^@@m<_`oJlb!WNSAPJ3!pqFaXG-=Cj[4"5E8E56AalY=5IWpGBh)6E?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>@OWG4?f:761%?+F0dGg)<^12mGB*R+RfU9_/.Fra?3l:8=Tb$.FGG7\%rh\"QZA>:oAPhXA[`-S]XoAB@+?`"sT;F(03iDGnN4R&"kk/;_q&M=,;+TdU.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!c1):0qU^Mk[+OIP8T>+^84GqT@RkF.:3=EkndBZKhDU%V&c[^EJs9g.%NM#h2ui`O?TbeWS]").LiGB?Xd&It$'JY6Zl)U>5(Z!TMSi6EM#R&1u25aWOPcQ(PJDf1lF/2=MjX.1%QBcF4#AgF"een2HC_fMTp*P@^I03]%.<&9!_?CQ`lr0l92!fAD!!fAD!!/uk<"f%.R7t)]?l%Eo\eJ%=(H3YO:J*:7,Y4fB_LfSPnT4tI^YPM"\0UQ@]A8WL1r;idUX>PuJh?FF[FEE>]WPde`k(:4UCB!CI]\!%/F1b1qd)XqXRa#Z18J@OSG2US:;ML59alLMTtZ$W;80&n$OS''1m*M3^ujH2dfEiS5_Rl/LT&rU:KY5>J+YBQo.56[sD#cAMu['%"p2O3+1TZ.j12$8E6)o[b$Ztl9B8@EWI'W0H=au2lQK?140J-m^!J-m^!J-q=r#juQjJlE7#MH,o5+H-n1;*Z+&JS(*>\^\8DEl?(.-Mqh0]Ih2hL4?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!33VrSStQCQTBQK(:Uf4`ukTl"Cm):eZ(#"+&;>'FqDfuHZaHW`26ba"1UF.DhHe)f=e#goUD53+_L$NSI,UfSb''CMBN]jFPJ-m^!J-m^!J-m^!J1KL0_l-\^BlJX^R0l!Hi/C_fi-WSIg@N2uc^V$oYnJ1a6@S1s3dYjPQ#V71[%C%)Zgh=Q(7N;)\Vu$]85EU95M*:J?5]`?6NAe\*2!X^?MJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^+NtgkXkoLYjYO.2Ri.7=Prr@."5YnWM5T98r0;E8`YV*\+H$(_9l#QkG`5mb_.>9%bCfO_l`+/ng44Z$JWp9=u4;Y^VH[+W#D08E'I#(:SZ>\V='"^L.K*B.(1QkK=!:$u5Snjl<3:8'$@sZdn0Vt-1'(jrbp>f8nEGG4a)D6j&+bf?8^Q[cBcZG>hjiumC`2ge@g;F.34dR!+ID*L'5dNqc.^j:ANMCC$j]DRK&O6uV72,`!72,`!72,`#-&Et*ifQSQWE)sEK@Ei`TFM4EZTj,U9g=AMSGe3(N7rZ=ctAN0rr>06lWs1)hCnBXG`,*A);0?;o.?dD"^#ro^\CbL$h5`_J*0MlX8D[=AaqF3r;QcCcd_5.U5DGX;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!<&[j^?Wp0>EtZY!aAPR]A29:!%8B7kB38hJ)Is3jW_=*tARd%1Ou/+edTr8tIQ7.[`WeI4BE%tK&YP%O[7b;&i\DdSbJ'Mb8nVV6#7RQA4&?K`YSGO45TKIiRq[LC\'rmjAA)i3o(#9u0MS(YqqK^CI5nBaZ1Z),Y&nZ#,]V%H>AM=uFW\,[3<5$.mopJ+;+20!;+20!;+20!;+20!$>6:*$;d1B:u[AEB-_=iARl=j*a'TQRqMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MSenUg-=O)ec*bSq;5b2Gs?cqkAS'jdXX8iXrG7Kfu7g3-ANnABp2g;dT5%c7d]nk/gA==D[oN%aDZCFn:e9XeYVnACon/Akn_$OHWSl"!,WciRN7/-;Ds:m36:/#)?B.e88VA6PC%1Bm18139&l+pP*rMJo/`h8N=X:J>h2ZOrKhF'^p6%T61to:?PI`'7MCAr^U5Aq!U5Aq!U5Aq!U5Aq]Yt$oP'WA2SNNB3:#d6)91_!*oRZZ1.-SK./n"FVgha[>3DPOt]Vc#:*;QKms0L6ZsC"l!I8J.>K]Bg?h\t=q^78b625ti,1u5F/T(UA-cRBPkh5igf^\E)a/V(?@oqN\rr@TB?Cf^.hmqT@9h/8]b.rTa#W1h1O=6i\!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6<\,G.H#Og.:7khR;%!1?q)D/ogt1j5.3p$cIeM>=gc_+(r([C#:S8@GC[9EV"bfk6%oqDU8DQ'Mng!'Mng!'Mng!'Mng!'Mng!'Mng4HLHQpml[PNsq>$Q_]"3Vs"29B/DSK:>hjLAWEfT%_\S+dQfgd(Vpf#;]VPhO6ndPof\"rD-\$eHMn,$kfJ\/M?)A)ZTS21rdidIrWg4THP74^4qfDABOQSf'D4dp1DUDUYI_5U[5j^Z5!!D-Y!0#Dc\/)LS1l9VRqg=c?`<]uNY+o\O5D]:])cTjNT"ni?2A#XpqLaNT*?.IbuIdWH)*il`&YE:Z3CG#1XHVkNfnT%b&2^4oYNWbuM04>dh/UQg?bSIB$^.52>19,=KTKSpogO)?ATfZTS21rdidIrWg46u'Z6_^(G0c8QD[!q><<4?eYBEN"DT%XRNb]aW=.NdW36P%8g+$X'2!2+M+rr@W=rrC&R$\.qB+e%ZPf"skE;!=eU9L^oim2rq(PqCbZ)??[bi%GVuLI_((6A!>UWQ47/LS(aL!73f&rrBk/rrD(:"fM8D(@\V$CLK":A8oeC-9u2p(]@E##[bKW=#9,Y$q48K7S_dN*4OS7,3bj6hco!4oN)BL?^0$+`P+"1rrA,[!"541lHg;Dr/^HP]?f)YkT-RNi-YJ(nX>'YrXoT`=X:AYR>eF2B"sNP1R8FJX.TSKiS'3m`h-C0j+;b2ITAJIpn)C:"hi2>`=1O&Nl%&g&]]JWF)]h1r4IoSBKm(FVhj^>!"]\?d\KdY6+_J7r]fIi%2J&iG^JEb`*ta>6)V:!^ob5mHnEYrrA2<;PtYuFAA?H4,tdfVYik)o,?%QquH`snJ#58pWT8g5eW'SFnkt:OkA&dA(^SU7u<6)MEJB'!r8KJb!m>17leVg#IR.sIu#31r\iF_EFH>=G)lMFbCihH9=gWB?G`ke4ZZ%YiD+8`_/edaB!+nBfstLH_([Y8qo5"A)bMjiT!GJjP>CTE:!!TE:!!TE:!!TF?6h-^s3gN]W(Lf\X%^N%&?:`4\)24h2<472,`!72,`',Hg5k5-a,'1-,!-.5"R=\ZT8l)FC]o#b/oV"dgC+&^]-873+WAU5Aq!U5Aq!U5Aq!U5Aq$b^:N+7Idu]$H@!3(P_37g\:E^c;Fhn`a:kRaBbj.2ij>PFVHFq*@qn%70"$!70"$!70"$!70$fl\fX/R3i#7*m,>)$1)46ua#VoGD'O[nE(seh4CKFKmqW-"#+0:->0!M^k$"_rW.-8)W+!<$6@lafjFU0C73+WAU5Aq!U5Aq!U5Aq!U5As1[>T=*pkr]G'@-3mV-`t2?fXN^(^dq],a*JDno+RC4rfK1[RbMf+5'DWC%fuBceEqpk4tDE!1(.L^HXYNf:l,:4!8j''N%C&MC>,!MC>,!K@5W*",#!CrrA\2Q=f^[rrArLl+HWM\,%pLr7tF:rS1e"]5TL6i%q!\hAmuIp2.SDMd#=XTfkU.^`K1<'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mo&7f`~>endstream +endobj +11 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 14612 /Subtype /Image + /Type /XObject /Width 588 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`C9EP8=!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!3=S#rbsTH*Mt5b9]!*q9PanHpn-7u:DBkA)iN72(^-@P=?'.P;L[uge6b96cobSmDC_k_OnCof)ji,1J:g"2+Q9#oN`@$iLJZ1eFsbu[&Soffu]YFqVpI-n\lbK@jn8r)7M;/(m"`(5phNR[6&5Se&3#j4jD?BaP0tQ,d=At*S\s&S07n##7]Hu2+A$.+5D/ca"VjN%"Q1'?aJ9_.G:7ItnH5*r&W[oI/0unD>RX?p2A@I:r"Hb1@N2k`::kW]g#E4?OUB[31Vt^X(Hg'$2]=@:sjb[2\Lr^HcB=S*EOiB]++4p2V&_'ue>$+1%ZaGPE1>@[R(dLm"#CZhP<:)N52SrBEStB_8+^Lr'Ki!orO?.>F._.g]MC>,!MC>,!\F1&;*C%P)'Tu_.G4LfMG7^j%FRFTmltam1/:Q_5(A%NM>a(f$rr>Zi]/uKjkUQ788\89"O$t7@`VNK^R'<D(/hUf)cfG:WJ#J,7^Q=!dAd+#h"0XoAA`b!5kf#PFbR_98/W:0j[11S`DH(HQ-/^urpu>-(L*9BUOe8UTUtQ8!c]5lR%X5rb8&esq(Gq1TM[6&8B,'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED0HM#RJ9=4R.tgb^^P`]Z"Y\a.OUH@jQ4hBHk]L)DphYfpVpouU4sY8F8&!2>?!!2>?!!3AC&62$?ElB1*k\7YZLrft#noiQ[jUY`nIq2dZ:C.1"ij"=B)@gCu2hKON-i_M$EIj\Z1]!\n(Q59=<>U?c@*]B.QDXs]W<"&hSD`omZ(08!kpgH#j'8F3+dc\3I\$inG3^26M,9[==jk?C/jRR'$-&lb2C99Jj;PB@#ctd;4GA0VG/YDokd=Aq_g?7"C=cSF+*9`RiCKWc^SZaA$OKldh^XFX*JO?5cGHt(cYfo!i4n0JWOn;3>JDQ--<"BB:-+bAVL'D&^:eV5:Wo;/("<,`T@qG#i3u4int5p#?.3Tc1A+ZeS/N>r(iu6K`a@&HqrXNlOA>C:R/E?,q:(OsQMq2V_"/`,kQi%QWiRdMPhM'ED!!'ED#b%"o[T;UI`NGOVPuA(L!B=>%_nq#:?ICXFZXr")<#Nr2sjGhk'98%.R[!9/]Y,mSU'X^s-M0E2"u5t)JaE.o!'5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5QtbEO8_Rr?iI^8rrCCTC"?pQrrD+]ec,X8b&@4YciqTcgIq=#[WbR'7N6&dA.AY4aR@3Lkb;DE-E9$jHd-*R]]#']H]"\I$kS-l_#67Ui'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!,h-@p1Bf4E-[MVi^mHC3RRch&]'Am)%=@]=S$Y=7U`mS!\[m"RI%GN17THf]sYR:pXB7Z-SSr1G9oujsa;Vt*pX$dSZl;rF`qg4g).3K0dQRQV`><%!Y_OTdO%+On6j'(q!WH;N`H'[%D.H"^"'SmW0F51:G*odHT2m"X5/0ZfOg;@hHD8dZW+=GbC^B1=3/M/3QLrU0&b$0%$S`Mm.\L/A=WTX>VMC8J!MC8J!MC8SQ4FR3gir8uc?B.7uI'u5nQi'R(&EF2V4tNC%$Gu=^otB@HI52?.$L_G3nKTL(.L7jOoq+,TPO.AF-i/muMC:FcMC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,+m=.oK>Jn%,Pnj`hmMN7K,beT?3Lf1Sb2:"DuoUB.-Y,!-mQ+H2'!?1e*Jq:UW6q/Mlo'A^s%Z:.@L)l<0&j$bam41!2J+>,Tht?(ird\YsMXEhKd4["sX^Tpe^21bb<:4YU$Llcs6k"r'p'!#/:!!#/:!!-1::mDSu-^,X5nUQ<6HoHq"o1NE,l$u'cq-1,1fqs>8uGcork?51p5`_!V#JaO57qMNMlEH1]5!pSd9Z3NbaLEM&5T^P[G!nV.8C]4@bd7"`h!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!El!=rrA0g=8r9(.DPKW>'67m5PZ&eJ,8`*rr>;@!HQTUhBHk]L)DphYfpVpouU4sY8F8($VQ=/+tkODeuTf0-7DG,^EYGQj4^E(!fAD!!fAD!!fAD!##-#Z"Hfq2ZB.S]'uBeqOKO4aAEW-a]O`>7&3m*Nh]>43pOYWV]Q)r53OgXpR0U!+J!2GhIMq`clU/cY\_Hd?$Ap7)i!Lm,J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-meg?dp#dnF!-OU5"#!=XF.C.]!(E9'*-`\BqW:%7kUlqkquR_g8dN0.K)U91g4)N[)A,0RsQj:'Lm&#'X$J-`\KX4u%g^QKn#K-nJQdf$`[Ig.,f.\TB"!!+UuGOu&V/-2++n)io_4o%<5A%E3k2ML4"iFO%*IMPWSR%bh1l[j2CB$Mn!CVk_gUM#RJ9=4P(Ob&@4Yf.Z,2e8Agdc+I(\h;tu`,hIP!QR2nrN!0_FR2>pi-O%'8d+3eSf\QHfe=06L^FhTPR,0pHSlqeM6O-+oAgE,Pl:4M\0i$HT=468'Bm1Ta7S&hV:totH%h[.8^c:MZ:K6^=D)VAl'qV+5E?JQ++dlSdl[X;%5?_MTb7!fAD!!fAD!!ke%Z@I^?_H=,@dIKTTM[@6_Ko?S;,@IXH:qMM^DaUAT+[fQDsd!+UGFX9b1W6'K)r6a_M;;-m;!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!ZS1RYAE@/STdFV(u9U>N"K=gQf3;W>It2!%:Lntdj&Pm@p<:hJLe3WXh=+1S7DaBZ,\(04VRqC?g([XpQf!RSu6FBWl"pCbq%JSON`]9Is:#VUbDq!k8>E*2"13.dm^!-)nbI>]XeX;FZ%%[]3!9^J+eX>D]q%`RPqXU-U!'iAG<]'$=/M+"T+u*6S_f$E0`?C0_-eAI8!iM]"72/Q!72/Q!72/Q!>R/5m=`c/EpqcPRDUGp'^k;T/f7.&gO)5?pJos&n.j?Krlpb_nkI_=Np?r3"P*=&*,QhjcN6SbbSB2VRmfMP'O)$L^O5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5QtbEO8_Rr?iI^8rrCCTC"?pQrrD+]ec,X8b&@4YciqTc8F3'*`7$K-h3k0d:4B?;`uQXUK$r(/.#`.&bb_d\C#2d\X-.JC8tLP?.&)5!.&)5!.&)5!K(@_MXQI!RAL0f8*lMNcT^iNlE$#E>+8Z-.:Qt`gV9:;/RK!9QK3eG$c\2o'=2`Drl%J#55CU@GLAjqt.eIHcr6&>4WVjk2moKiEU4[tEU5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq;6@qeE*D*>\0?%*YZZl+Y)lIrg)'e#AOfZV6$V&@58>)*f&ih#-TAk[0-h*_2'qco8m&!m:p"WC(or`:I\%B6@+81)EYhJ[KLEo,:R7[)kRPFKS$W[]#okf%Od7app,i3(n]VqL4P'J-_b7Kf:2?t*Z^rZ0_Z>7$V3Z%MFQdDn&+qoC#\')#J5Q,K1ij%TR&&cOmFp]PD?!o4&$!BQU%t#'U6!V@^AX91^Ro[/3[uTH-^U3F19+7Pq4N/=2:V(SEYWPgu]5Ur[^!o/1VWjE?dp1'F(Io$,"h^$j-QBd!74`C<4E95YC7"Y*Vh-c6lRA-8BriXlFm_.HA&pfh4G1U`6puJ]nDh`3P%aI+#sA]dTje8;:f#J56)B\kJG`,(AQmf%[0M8II&r$oOm38.F5EmuCaAX74%jiNi[HJ7f1]C1jp256T-C5SiSLK4G*2&].6!T:P=N*9L=r=^ouW?+lc(F9+b^V-5Qqj!5Qqj!5Qqj!5TXq)>j21f'_FO]m`0Lb6_AbaPP?p4/*K+B3f0h2=@(GL#/#%EFf>:X*JQEj,X9EC6='u`t`IY/Yo^g3?X0\R67p3O;'.&D(F'PitXEc!D`M_drd`0Zd^i/9=n1HX>^]lL^<3fOcCog]*q`s&CfWi1l<^J,t*_,.]SdSjeLmuIoL/$GS1DpB[E`IDN`[Z:ddc*oUMp#flWs6ScM@rF_aNQC6p8R6UU5C?!U5C?!U5C?!U5C?$,K0Fue\!c<=TOkP(>(k**3\W2@=0`X^>7`bi+C0d\VuRDl9C^7X0X#nMXsUKTBmYU]$?,PCf?NC9E,!Q%"/hP69FC[o*\HgCIrtNo3ZM%PYjjS!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!*3`grrD+]ec,X8b&@4Yet$DtO8_Rr?iI^8rrCCT!*lnCNqO\C9/,!MC>,!MC>,!MC>,!]Z]:;D5)9]7e%0[K&0J:mt6]d&4l^LdqbHCerfp;iB,+XG>0"Od:9?@k6(!)58k$E%7O%'k1Sts*hS2M6PQL^.4f>H*CD7r_jL-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-j#^>W%O:.heFdUQIamT/*[j@a6?jST6[PQ\qYgjSugPCX9M7(BOaK?Qcj)5PYja"Kk8/f5BQ(kHC[OF/Pf'OYb+*RbY8K*qlC&fcFM1Y6e>k^dT]g7J!$M$Gn4g.#02)&HmglA.atsYWYpHa/1kjCZ0,77=@6oe!eGJ;+TkCf^:"u,+-V&R`qk5j`\C(6->D41bV)ZHO]B@I*@M0(MXRQU1s5aGF#]iFa4/P`gL9/M'WquVWEl^PA"E*O3>Qg2:K`g%H#(hq4Q7"e>$e.nT-acaN&(,19.!F&'@Ag7PK,4=0^/c6_[]:)[YkKk@^Ajqe;G6'XGm\@<@SUZL&p9"EG#4,*Zd3khZKodcO*WlK0V/X+Lu##p]qt/pY7X13kk*)5\eBFd,lf9d`Z>Pfm^;g0;X"Bm=&c,^Nu2S.EcF;A`8"'ED!!'ED!!'ED!!'ED#CO@:`8!Tc@(T*B[7\^MWN@sl)2kQ;kj,KJ7jlIE`K:=.kh8;gNW>hnT,H,isErU7o0rcPj2rI$doTYit_DBf0/*V7q_5L21\8"kiIesnHFY)h+_Rb.!ekb;AVcfT9rrA0g=8r9(.DPKW5Sl"(,I3-G'26PQG%R<,3Vp96*-A1F$VPasi[HJ7f1]C1jp256T-C5SiSLK*!fAD!!fAD!!fAD!!fAD!!fAD!#0;]RClY3SL'T"HMXjDQQf6PUg=c3@.e)RVfAt7RWh8n-HL5-cZbpa,Rmq`p+XUQf)0,Bir!u.h3us\\d#3"Gr"@o1Zh]&O2WKoGNF\$$,CmqPn3QM.lMgkWjZ!0hCJM2u8,iQ5^9@P:?;l@;#(S=0-/(aUjNu-umMZp9@ih!gh"Bhf4[EcUD\4pi_[N$E=Cs;sHK;*tf8N]$!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!Qt2T_3Y'HJS'al)N7&X;rb(Y/a>QcEo%o.V>#`55I!=F%#>RMPk%*4#PaY`qcBcJB!n:G])AP[oa>>r8)8'ALX[BpdlV8Q@46IB6G-@DDS8-8,42ef(Q^3Adj21W7RN;:=-cS=mhC"EGI[.uo3FV-_W1sBd/:$FGcQ!0'Y_gG[IF`p24VQEAPt^a.K4Uf6-B:+Y%fV]5$Rs9kk'`_(;n,&%\s?_[7auLpg*SPjDeBRlG+-B60LV1ECqi9bue-tU4EI^;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y[ugduDqGc`=(@bB??5X>#')eS>6%B3Lb,3,\+5V.q*;A_^Jq*/\ch[Y,5POa+rrA)1SJ2*_BrPj($Oa'LrT*Q\+KO8W@<,1oX;lrJ57[X*^!sG[Ydd=h')jtiM1dM-DhWQZV#KlRS9?ct70$qLC0lD:#>tL$^R"m"r-"aFe?qf#7BVJrP'OtL$^R"m"r-#'rgu$mmC!rl4IMUYqb5%4X,T*=P5C;!75?csI='5!0et7/cMbPWQXRqmC>PXlVbB6\j&K5L0a?dG(;9/a/Dum0@WHnLD5TNAoqmZS*j0\sR3j7<#G0t6QWJLal^>C*MIDl-VT`mOO4ZhuK.SgCE)9P!p;sFfUJ29Et00eY&W;ckTG5hR?G-g7FS'uR&V;]%URs1)6,Cd$XeC^FHR6'aEHhAIHdEt6WPDd(ZRHJeN#LT^]AFR%,C?PAb\:B$_;EmdoK>;fPZmaLglZSJV*b\&pQZbC*'.LqBN7Y406.iL`8lfuIXe4ctb!q`f*neTeY:jHarr>3R*<*+k4E>gKO7,@;SGrR,L\_ThT1'M#NkY/Grr@T(niYKKIO*`9,+D-/.^DPm`/6`hE9$`iAO^Flp:%t^+LZi/7rYaEr[t\Q*I@[,a3o'X1)nu(/_9(CVn2F2'oN2k69/X>)iObOf:(4;ob_h"0&$:.Fc(8N'uh,>62(U,r?sFDinh&oj8N["rZUh0DnWeJ%MTM[5p56I*i.k)N]?+_V+<^Oj#(>Y_Ouj2/cHLK1f,i@9<8rdcT5DLpr+On+2[TSZt]_O3!r,qg"W*=3'Z6n2*_!cSga'cl2L_gJ,UY(ljl]B-m,jlrr>7_!#Bk@*]*=cC.,cL\WlMk)"(W1`.>dK(`De$pSgZC4@h_%n:obKhbX7P`)hAZ?$1MgRslBt&7U_A@3MLgD:`\_FV+S8@AjH9MS1F..T:X`[DS>\LRSdkl#/dP]c.=P]8918[RdK902TOcF_&-WZ+3#NEs'peH3*O80GArrDMcrrD)%*1f(Y1W^"PKW`^"o'>n>0m8\grEgP+E^.0rorV`a$]D!#DPY]Y4Vpq^_/";)4/=6pN:H68MWb,.h_]q8\dZW8!ptSj>A$hT'C'/.Y?,4X^hT6hrq^E'Ni_pkKs^-=-'L`pKE-j(BA_V3f00UW)r@*eN*[V3JR9E"oBMZH'^li\8SB#6UV]p'!'r?"k+5/A+1V[+!8]\kP.^,(YD:5c(`?E\MZsJE5a@6$ld"anW1DD]Vqg_._B0E7jpeJIhrr>Ashu33I!;p`Hg^d"^%nZrX;>sA1SpMiE]M.l_al+bkeK8k9c@!I8NOeWTjF`Tngio`IiApE=r<\g?pXB-Bn[e1.4Xi'J-m,gkr1Am0q7LS(@rd_C$!mn&)-S\ck$hC$T._E+,9?N*<57pmpkSj%bJ3r=rrDiMGIS]YQl_J"g/7iF`L_K"NP%rJ9OGY,]33o[XA?$fPWT(L]L6K6G10_5-kC#^q*,X65Ob32jp4cn!q-EU\L3*O5Y32ZK[+\.Zt!b6?*q;:i_ks(QZfAF46C44-e%."3W(s=b+k`sEGJ`@VPO@"7roN/,NEh-W&Wf[jDjEcW%eW-U4?!!2>?!".Zd+Rch`FL&Jq&#]2.;[^:6F!A7O:.SjB5K9,HP7n"*l;+20!;+20!;+20!=.8oE_p?jjrrDF*%9?]VKLF9Q_/CR91'AOs?),SP,VP:"PlQb^9mTeRRKBph/k2CJ06VcEb$R5Ch;RX3=`?WZ1m3r'U/-/"qEd?MCF7e\5>[/$n.j-!%=S!!9^bZC$"l/L8KtK*[k@Xc&khf9Z;Rmp;u?`9m569]MILC@YRC1)k#D]<$WS?3!G@ZOp=1Yd8<01'N%:$$7MX!$7MX!$KjN[D*?.8R'uKU.8<^g7M2V:W[.eQa'^nS\iM5Q=&q:F'^CaXlL1D$gZnLd1hroYCMbih@sa?1,p#%u.V%qUEc\TtOumGH'3[`L7Uq+E.#f+'WoJZ;J61r"`D&c'$7MX!$7MX!$7MX!3WB(!gJ<%ONF(Jq)((eFEiC$n=d]$c3AhV/mikK;I\iq,P%g6pI+MPGT$FJLggu"]M?s26LQHr\=t!ceGWO^Tf>=sM?US=c2._dlWi[6aO-H^^JAOI"j1$tY724Ld"Vag)!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!&-(;~>endstream +endobj +12 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 15117 /Subtype /Image + /Type /XObject /Width 644 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CKED2u!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC;d=`/P7nFa"RYH+%_r\@8u07d6FNJt[b:+HCI1>L`#XRUJW!;A`8"'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EQ&*aKg&?`,-4'CP9?3Dn%uVq*F(hVf"6[J3C6-kVYLao&fG`%C_^o5i)CBEGtjWNZsQK[A0[7[b@Reg$[DI/EEhRa:Hm:)'6hU[oDFE;&Koq&h+Y?!(Pu*WT="loMJLg;+20!;,)<\NKIMs>"74rS/+(3"4Z6Bp_n8T'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!Eo&_Qr&R<:-;C?9UDt(#SfU%tjU\[3$:f&+mtu%=D4o<>=fuHS(@,h8,So!/_&D^$2j;He#c!(Yb>Wu38Nk=8lP`4+[:!iaH"%rJ8>_)kOsq+,>tG00+&G8e5m3(IVtbXRa`>M&?H[V:.SDqk^0-ar\,gO[+C#=`<-9RfbmUJGnhO5L?2*>!a7Na:i['a;4hS=QLu^+KhZ1E-t^kE:A9\6K`:*lOHM!+![*-9]1lC[VYd6Hsi^\"+4e"B5[U5Aq!U:L4u`VP%IY=#-lXKfFCH&F<1U#_/Pc?T!%]`gkf.Q.[Hh^j6k#t)8k),@Xbt0N(3[79`O(cJ0thG-,\>JSi`tOG1WR1F:]X!!:]Xm4nRC+nT1@BF@r.,4+0GnK7_Ljmrr@na?Yf.:b^a9lh'HFDi;SDWHYR_8o!TkOp!`BYof?A6kO#i\V9X*mKj=RI'lLRS!8`.1_A7ne1%%F)jF2b`9iWKOc<8-+:+r8;727)%'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'nPAH7deRU`mVk8"kKGlQAIfP`ZRW)0F*1rULQE!)$cjIK6_eZ\#O+cf?\iqM%.C)1*Ruu3HpIc&QMC3)fbr:NoMBgJ^I>"T"1of[_=B@m3.2i1lI9e%'m2DQJhQki%!dK:fifTid(Sb2>gD//>T>E'Q\l=f+4D[trq_Q)`)7jRWSes3*!V>Nee4/d$A%CEc'#6=U2GN;R'oMJ$W'h;E4)NK`$Aq/pL/t\LTY>QE@M?]PFkjtF"=,$:Ib;S=RE7dAM#Pe`!HLfAdB1_l^XD*HDOlY0/`:"e@Y>_=p*LVdl=d56#fC)cJ.&)jB'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@ec-Y\CE/_Up>62qT@nPXo.O=AmBqh7S!rhbE*2iS0!F!Q_s&p?YULmlo$4f]P(dF,+X[45oDe1K`Pf]h7i(mJ]HWMMM`1"@r#7AqNdtOgd:P2=C.JR6]qa_.R_/3Fj#fTj#)[7V"g6o'hPFMVs,#egU8rkk1$5`>HTYbTRhZUoCHMNE&#HtV%a$]bLEllr=a,MrNWX/chtE">*Y/O7.X[In],Vq],T>>ObG@$\R73dI6U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Arkf,AeBdET%X*WG2`mQgBM+7oGPP>L;TE:!!TE:!!TFP>g%>XY4K(%1t]LjMXD5ScR#*4Pkrr@!,Fdj&2M_V^!F8UisNoh%c[[%d8;:MWW:doZe_Ps!OomI`Wo@lrX5(op7PgSA!hI,Fej_=\i5KOt172/WZ!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!$ssW^f,@qk[!#"S?XDNaXhUEiMTq;eJAEC/=g/1W0p0sA6e(Sde?p;A*;noSk3T9T[t6>Sq?3B),7F.GQ1Y3FhXNf\/B,:DEIT'5K&q\#@q*O7ln;q^.&2fZeKB6cr9DKhO")!j.W`3!Qe'6)S!qC;(aXhC\9O?^[fRJCpGeX.E*LZAq(`"&dQ)W1`Z%MeAnEc+^Y34BJ7ZeiRk$"I%&-_9#pt)ae6\EQnmfr!*!<4oC3qhM!-nX51)al4(DVX]TnOPYBdOR;#&um&ji`UML<`EUtU^FS2b?91Z/D0uVNrQJIt,Gtrgk8]Mi"@TsMn72-.YU5Aq$bjGE1i^r[+B`@@%N-g?>5PV'4l':Dg'-h?Y=O;33L)LrB[QfRZr_5m]^G#>]8sf-VTp`NmZ/QJTT*r`H=T]^+N^_qRV[k`_Xqg"[7%a(bK;Y=5>cRcA*3=Gb"6I6BUp'N%E_$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7dc9ej$F@A!/p'[,"M5>MDHY@$3u=!4EBa3@*P@"2X5!kdo$XrQX_iTk'I8KpbjbEQi!ROhiO2j]%=\_j(?>5/_tf;-][dN%StEe8?DWQ@0uOPXTq@DKa+!!4bYo*Qiqa,dO!\!99#2#0"U4kJ>jRSnU"IC,_Ak$\Z-+bF"!hn=5h4I=@'mJlkII$@@9_==,`WU/@$D(`mopNnWK>a.+WV$PJ*B)GWB^V$;*Y:!;*Y:!;*Z1;5N5'#N/tRTW>FNV1&h6I0C)r0??u'5ejqCbc#NeP[Pn:6FpFQ:@"*7T=^7fjN#,?]UsZ9%oHQ15poiOOV-D-.qT!Nk`:Qnq#67Ui'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EQJR_V00c9[k2:>EA.*jLUL&<3rrY=W;+9=FfJjEcHYo`E1ILo=RAjG_)tMTsV@'CH)I*Z7M/T0:27PmoA0r1;J=dGT>=<712@nS8'b7>A8O6nC$RQdbO,ob&$1"g"I35^]g0'2Q">q+c&*TJ9!GE>gjuSl`j5oWlqJ9h_6fRO@Q&_WfF%Ti<)Yl5MTIrFh00Y:q$7kh/1ER]Gm+,+k`A.`-hiF"c4nLIbiO38!joAT$HnR-bG@K-<.T^TetpC1#eU?MtO#2b>.c.U%EO:`)U/Ae+,lRkR.l10)!0E4trr?E.rrAkd*U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?$5?QJ'oNME?3_LnSZ,I,$%$J]P$Ao,l,l3T-;EtB7H9SeRY&7],[l/GRXqH(cOM517APQ*j80a3^,H0l5).#6"`&^Aa-:ObcUE'"[NY4LXL!R&k$r:7;m@&Yre?!RN:T`rE?U4HeO]kmVFlj2a=]EM)NLVp_U?$e>7o;V(iapm%)-PX!gr+$4V6mUl,.kUH:r.&:K8.PR3"2UJ;AVHXK7q`:Bk:^oGbWLWimtr20A*?"3fmEG'#^mqtPY"Dj"HPS-8,L"LI*X'`gLT_gEF(=g1&_@+ANd4:>kob%#f.l61k/jo?fG*'(4pPM:t4SH?kBKNPEt8G\&"Y^t-J5lD!i=d.TRV?(80dGfuaEB9t^b"S_@g[Y]0i&U?2h8\9_3',Ui#"e2*rk*lu2U5C?9;+20!;+20!:jEnPM?*7=#lanA2=Wn/dS6LDqo=8Am4BVL@p4=Hq]!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6<\;G]%VK,I`ipL$N2-b(aii9@Ik_hih7ZRAtbX7n!@WYL`^RdWqlgJ-m^!J-m^!J-m^!J-m^!J1BhB0ksm/c'76C:E(O-,.PCB\+89BJ)RHGMk)n@#S2#)\)[JgTaL7hc2:lYL&>ebpmrTs[DDDdn^Gr7nE9)$*ek'sZ(;j3X]P:`hgVNrMCGL?d90!_N.O.?W''RDMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!U:IgdcItp\WM>%NPe<1%_,V1l,b>"7lno_&]=H>I\V<,8<4%7.]3tn],Vq],T>>ObG@$\MYM+l^%R37A_'<FY!A;oHWk.f"B2EW88!ReZXe&;CjJ^QZfAg"SG"$^7a)Sa!/\F\hI]'#U&1?6/.EYAC_qD:L?WBIJWdpe58X>!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!R#`3H&nUa+:W0?XU(=j63=bI5O^O&G*4tk*r(UPSa<+cB(Em"Mf6::M`'q8d*5HD+BtPXP_=o5I>0oIIZ`B\1t9p5R%l[-Ym%U3RM7=[(k.@=gKV(b>t1*eLTQl.2;n0uJ8QR$#W5l8K<17Ll>Kfml'H7!,o'LX=AuA=1W9a_MM\.D-s)B/,&9M0b_gN]jF5j4sVoaHpEuQ4[ER<;fnCq02m*k`N:aIc2#ujtgZ=j"T5+&MP]\CK\;=:2`d(M<+)l!^K8OW4,i^K';+203'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!Anmt/&^`i/otU-jC=B84Enr@NFEh>1'jC:9A!*O)ob*i680dU]Ys8I,;*Y:!;*Y:!;*Y:!;*Y:!;*Y:RF_qlTXL?TNGbn<>VmnT9'ER:k:"8&1r*(e?HH5n,nb4;^E2;tBqB)WCHFg=l$k>SeCCA+Q)M>u>6ef*Pi;mUsp-,*9>d&[j:HbPtG[jodQS=trcR2`qp^an%rrCX3gT!CdTC%lVUAcE=^2(K`lh@!572/W^d%ZCG!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2@#B)h.c,,>F@Kdf0;ENXM,u%j'>CLY7Og,If"C`A>E?ctOOPf//BnFgfb^$Yu^!NHW>]alY+,;8RtIWPIO>T&ta*4V"cTo)22'hY0G.Iu*9A>?KAB-T60:IeMDZTZ3pVWfdZ2E8/ZZR^_:i,>D]g":"22]!DXGRDVg($nC\Q=WnIEAS1YgCX)u[5Np4\#GW5:;Jn6[1jmQ]$4mAQnQMks_@8Dlm+\=l*8:Fcn2I?mLUu3EK*E)$eY&H4W@dX(hPT)KK)gC0.^t>tU:+HS:[rPAU@o":,eG(f_SJl>p/d:^9"-i7g?Jl^:K7oN%9;+1[472/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&5.M?OF/-br`0Tb.>7sC>ZMriiRt2X9MV,"YEMm$3*8GenA27^]KbEu#<@2VjmF]*5#D4;A,Y8ZnGMV'kc3dZk>`L->"b,Ba0XSGS=q,PQc".RfJr>G(2L.tjfQ92Nf,39)-j@V1Qi+.E6MUDG(KTAJ"!2.o6rr@UAr\SA^ne'86lh/$bSnc`I$sEL.UI-o=-Dt8rbpc.kFI8#'B&%[rPmc@8$D7;14U_7A>'KrL-hu8`'EO+VMR7&/[7&O2,[$rlln4J6NJuVQ4Yi^XIGn-)!5_7"J'_t+rrBj1rr'*RF/H.-HTpjLF;m;BrPbYIo9L^orDERR6L$eVg:]CD$*ejUo6*36K!!8A^CJK`e^qK8%QBtcq_5u:7DfAa)>Tk%KWSZ%(JD%_V:H<]Ldpek"V&(^=#>O?r(rTF?,D]d&j6X%K3EKu"Xj)rSJ2*_5Dlg]B!k%Vlm,`1.-rRM&WMb(O$,7lH[XjOrrBo+TmtF):B(=0V#LE5e"V@IDZ!M0>JdQbVdVA!@m[5O_#YrrBo+TmtF):B(=0V#LE5e"V@H2*Vc=EE],@lS\r7E<;]?#fgA=6h-b;968ji>lOeWO$`jHT[o\6!.d`@1u2*KH=i.!G5$%$DBqRn_f'BD`1$r3@^2sFTTD)EN1/,&\;'G*/":6NBI-LFaVtFc;DJM&W$6aIY5D:p>JdQbVdVA!@m[5O_#Y*t`03@-]jf*qr8*25s"EEdFkNKB.\VmA&IK9,qInd=q[m<45:V!1*OET0/WGqmhPDSk"U'l;nFob?EH/28["QCHC'83)[o@kQG4L4/8;Is`l1;);VZFl977'*6MOaFrb%>7rP,3WR;M!/3oCfSg29pCDBX)m"2N2XYU6"@[GrY\j2BXt_L^S+!"\WXl-S_h(E0F$QOVA+mA_Fq`4VJTkAGVJE)&IS#Ipd[Iu:UM;Z?a`KRP-p?Fd9]PZZo;N-1tgnPoc#7DpFgT;q"O5`]pn$CGIj/QBtci4"3C1[1TB?'<_m!@TB?BKg&.)>Hh=c(bI\,7oWR@\X&!"4!Gf\:M[mJ&b/$3<;qF27OdWCOqP)ubEbOT,eb.,(T'r2H)EiS4,Lhuo=*u8rcf$dJD9VS9:g8=h0C=FBgm%'laMPNgDs>%tb"Nj(@$2?Tn'-K)ZU/0i5Aa3\ATB.Ot:o"P,(^EGGIA,a"lpeVdEp4%Dg!$d_pig,2#8C4K_P(b1oU+.%c^s?nFe:Zb1LGSq8li-qcg:D4hI5Ls(bWaYXr3,lnIq%Yfch;LZrV9giTJ))erq67\0fR&^&$-C#/TE&08P%&VTpm#1j,BT&0DmBY%=c]NO8K64n?.QD'1tL\%C?'7^C1#TT@eHcr<"VN!:Rf)!/1Nh+1(kT?N1#b?A@0Ndb.o$[q6Ef'5lG5K=@f">]m(lia7F9r4L<>mFhL>_R,mF%&U9FOOh!mp4TZWlMuK/H"oSqGi3,mT"O*WWY+-52I/^QV5:WoR)$"u4bO7mc;76Ab:SfF"(ra:UD*t15G-k$5K)Fi-+p>gdn;0a.2dih4(Ei3EKf7Trr@bY4;qYpP,=b#?jrr@a#r$2%sr;s(8n/Xa1JH#U]oDB"'r[)l4/`h4)QHZ[!!/nq!9.d,rXnN3$k4Q(rr<)Kr$d-S*moK$'4_%BJEd%I#Q$IS^B5;O(.X)Y!9a2cr!&Ab!/[ZAr[%>Zm@nmoA;4\]?82SBZ*DBk?>t8Bn,+EA/p$uTA,cOZl2DBH_E4Ll!73(5rr<)Kr$W*LDsr,Z2uG4f$i^4QoY:/1-iX/[3!7[Zj7*V3@t)!O13lWX#]UTcq%:^'Ls1Et[<%K$OpTo'jCC'Gm&g/sr9S3&?J8c)A[At&i\9+[_]Wn/VFQ)(:IPs8"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!)*6<9]q7oUXPR.:QB@ka6DMYeB6')!aTJ_oGHGU.TE:!!TE:!!TE:!!TE:!!TFMc:Nq2MU>0lnRmC&WD3b1g&pM&ar:mhZr%#pa*@D)"G4JCNTmt0YQDZj`lD$.TTZ%pM[8)DC^!!@BKmQ9?>Xp&+\F=e_>BU_uLm&sS4R#TA%8lI^ph8&'Dl02@l-s@a>]7gqr5Qqj!5Qqj!5Qqj!5TG6Of+oDeCX"nW5$OFscmQ99RG\GeEY9Zi!]W.l6S8UD3?@L75$NTrI6"H7F3#Vl>@u.$dPE$SfG,Oh[;>+h2OCKrCT6R,GH2BpN*O0("?rT"3&PoV$Xe=8'N%+!'N%+!'N%+!'N%+8"h'P3VKfGc[X(BJ5gj?8\CpVJ3@=[,@6^4HoI%0F%STDl$S#T+g6CG0(EQBt"aLj-GhOd?7Xn-a!Z"$itkYY.s>MIAgFs1&[amQfdZSp?+MYf,<`c)e]]/h&'W\$AL8fdC^nNQ-W]G"-714QMLNU[2-a5>dP*MnZ*j+:_m&IA-:<`JW]:L-9h]Z=t>lKO2H9)>U,(@?ud))\^#KF*P?rmFAYI,'N%:!'N%:!'N%:!EOr$4@qkHD5e_j'(@LT`K07sqnHK!8li>rR3q:=lSh%C]T1#:69Y%S."br\)rlH9;brk;I[_V_7=LQ]Q$%.[C)`?DBD$72a4HRSR_k/C26"J'Q_*1<`]/?VE.)D(TbkPd#*t,p(f<^9!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!WUg~>endstream +endobj +13 0 obj +<< +/Contents 26 0 R /MediaBox [ 0 0 595.2756 841.8898 ] /Parent 24 0 R /Resources << +/Font 1 0 R /ProcSet [ /PDF /Text /ImageB /ImageC /ImageI ] /XObject << +/FormXob.1577948ad13523dd0662ce97901de603 11 0 R /FormXob.158972ddd808f79257e14092e8aa22e6 12 0 R /FormXob.7c0918e9d0391ed727001637de5c25af 10 0 R +>> +>> /Rotate 0 /Trans << + +>> + /Type /Page +>> +endobj +14 0 obj +<< +/Filter [ /FlateDecode ] /Length 726 +>> +stream +x}Ko@ +<] )^T3TXe+fr~lr?5t)vק7|JχB;4ۻ9]1n޾/O|^N /kn_W㺭e|w?vK:RNŢܥ>ɿ{Ke+.I}>b>.ʹoEjw}Vy7?6w:CWh":<sqA+ghc/9=Ǘ5z=s+T ujʾCWoߥ +Qm>٨Fj^aԛ|!71x.C?\?`*^.CFu Q?H?ҟ:G#y#H?ҟX?u?H'?HއDŽυDŽ~__~_~_~_~_~_/J¯+J¯+J¯+J¯+J¯+J¯+J¯+J¯+FoFoFoFoFoFoFoFoN;N;N;N;N;N;N;NNIޟpF1<8rms|vw7> +stream +x |E\s'G'a @ )GB2!\XE\Dd1"*jt=`t]qu5zĤ^U@t]~ߗ{_z]3 RfL]7\y)%usa.]ب_!!yW + DH̫Z\>~ֻޒ>!4Tlpޫ/;Ғ~[ V\]'#4. jo}ܽ9QWxM׳u޺%>@X\+F.mO6*B, +1'qAU("RP]t_  T?,F… O [+U(ˆ22!HCfcE6dGNQr`BQ +G(EhĢ8z!7P~( G(( ( Be( AC04]F B#(4e4Eh&t*DPhDl442Eh@h>ZP5A)8o6P9\e{pjsJ\$1!t*h0:>WUXi9`}-=2L4Mĕ>$+Q337M5q 0ylgxxGx4ãcY^^E' \=E)xO}1p!dscx=zL4pv?B_ t=>@oucQt/.e+ 9+ ߢV|ScܜM[.p $ĐpzH'F/~l[ + O@.iMsQ(NCo1Gm6yZї$ǐ[zL!4N@8u@ "c^Hzؠ"Gubpe~蘐IM|[Gk1,D(Iw4 ܲfOTwfTl]?~B41B,E6,?O_0M]<.NMvzh~,_nq^Z5~ȭL:\^b#6ȸAH"Ji9:9oM t:ݱr7:ۯDhBB)lqI Χ]P|\SL Mo8 +\$XȘ0ִ4CWzmzJ{gΞO; ]M;dWPpz`gX4t@Rc'i!R }e -ܗxqւÇw5kwͧM]Ȣ][ \\s1-7qT:2}! t+D *Ccd:33Φef=2P9{/FzDXcXܱG(Bόr}S4şNo0Q$ roBGs[䭎jʰAЏ(US% +pXJabg|(O28(!O&^r kK7^&бl |fC7o7y6HMj/ ^jr(\@X﷐-$fQXJyoEf52v8ihA azO4ynlϾ^Mc1n}Rן"4~>av,{sP?Cv̿Dxv6J[ł4q0)ngہX'%>锦 +^:=KKL0>7n!c'7a̡:t;ܧ~ա'}l~ر% K4/秞:u'ߔ'zwz䮥 ˖5/5zɅ@oy[lWͮJR_c'&kS,j9MQ^QA}{YBD,!}NpL-U/`(3k̋g+bM94;?wkMۧ$`4s.]sj0,Z S(sdh)fw4^o2>u!L6f'<3uZڜ2T)3*JsYiIYK3'5g3"SR3b<8snBnx0|ee_EgH A\ׂ&[; V`VB&[BP+YDS7 ;P&p${+.?wIz{p=B+# Op(]E܀Z#qWZeB{U%T'(TfȖ<%.}ߊ5X,>~y r3@_(͓DI Q$PdnID . ٔ`0ǻ㛭EӞ@‘˦C4eSgf̞Oo!opB-D + Cq!q(#$#t$'gYԆR Bj. + w}i[^-8Wp׎\1!׿k|x u>(G{d}]#{7Â#,#jtl K E|eXcz 7M0=&>ļ ؾq]wzg׿_3VNxv{8q^9k쾉8\ן9r<5вQZ!}%Fl U*h)%\ nkY"5<3Nscc5^HF<x?؂G86|ɱι6hiUx&qk1 O9m$Ms+cIT¤hp*}%ל*}'NЏ>X翢ᔜ[ܯ?r/^:Uh'& DZY:m\ﶨa\ G[L2l@Q59-X ^/^8gW#4}7y \9<`=Kz߂+q=~@g wx*lO&A #DpKNi8xϷƳu{~ޝOӋOSd?hC ٛhh^+]6p+}K{YA6p0$Cq qBUsяq&6^Co*rPX䝖хt=N]wo7]#8\3ba/%,(xx |W#\Ia;ѝ8k6t{,׈ȧ#(A!J[ /6. K?nxKS$|`" 5[! QҩaJ9FЃmVI "|ZA^Io'%Ajg~C|d #I|00҉O`fqrh1\VŀDX4֓. fGG;l \}.K*ClAB4,!ر<,O {Ĭ4fv ^(r/:Ql辆L +2pfrQ#}{g^>* &Sw Լ 05nlp]Z>0/\ G}8px>K &8xK-Ӝ;n拙uM2ҍnB^f]̈Bd1>Ww`d0x2r fLo??471d3o&km`= 7|xq͒!v,^3^j+s]+{8K_~t-lJ]l} +ReKo~h܏_5&hQEɒ)J%-J$DaWH(UEDWWɂ*&n L C_݄iᷕ}A]aъP-Ekr\Y6jjg`{ 3#@Tc,n[ri2VFSr˥yr-׈MQEQQE *Ճ9zNN()<"oD9.B"]ֱ o8KD[?-=XaIn5;=aZ~"|D h] M$8rHg/[fGEq8a2ȺabVWΞ}剿4656Ef.}c0!dMA+hKGҒXܪ?N~z)7f/CC=ıWDև _f$8^0N=1'B|l$̙Y3i.<|7-7 /(|ފol0}5w4鷣sʙ!(BGUH"kHHF*1f}KW vB ݷwEx¢ʫi3l}W}zOp|I~ocI=f O G*分%$EB_~k {hulv|¾1^1TC|?\g8]qOmϏƒ "Sa,(%/Ƃ>'j&}sbnpl>Y=eiN߬˾Y<=l^g´ڜ.J|?z);p{y!}}'P8<-U pnyV,X-.eɮXE+X%Ƣ?`ËIwzp>'Nz =+q`<^4Qt%L\6ݘP#H 8Vrnj(4p0aad Q([G|vrz +'q9 ?75MwD$8qh'4J"$ M ?f5-\X䴚Xmv&#s|St<WCl M \ c,0 &3=k+jZ0F5"r_=)( @{-ևIWI3 + t :m yGp^O+`±ē3ڎZCh]K2 &1\Ch'زdދVVVEd8E}ȅ,`簰G0;'ꮹL::ħ겲*Epk^kڄ"mEU ƜXPTRX&Y-EE&tti͕֫- +IdZ+|s~:xY+?~x=b,NIex̎D7y"…ȰШ`wX^˪-808"d8TSD + '3moKd95(8ە<5% G;0!9/ %3++o˅<W9q Z~pUɈʧѕ/upC]!]k %<}[ +ujх]χu{ݛDk8mm9^e*jO}3L%̨̘L}\q4mV1#kjkc*Z&hi.Y/]groƘM؝杖Qww"WOVC)(]K>M;=E߼ejl^zW޼װmK(-/+6*46o>(gM(ɋMӾ3_9`n!stM6e\&w|áC,exG +TLt9u+j}F<;iV`,WѪ%Xd/ӛg.?'.ps?:g" ,mՓ9p_+ؼ }%}M|$< Ռ(,H 2qtp3,Y:jiߴc$!!B !!8!R+c<qT$A#ђbA&ʩT%Mq3 a,N +BS2CleEV!bɫT sֲ,RVlApQK Un]5t  t4yq8!N~!P!_z(HQ 6)7#}h*{%dA [fHLϊLfl,~s3I9lݖ\'nS"4؉"58[a$]C +d iV CjBDh̛^[r3!ZՋ˵'GGCZ8` 2NZ --d&9nCƔ +Bp.9ZOvI)Ln`HhIkb򹢀gnPT#`LP! +7K2Mj5\ė; +;;3V!}KmB!{*AF@* {$G$i!.KyX=+xb$bV\$\qDeTFsXey +c5ۍ366!}Fb![`zoe'9Jb+(=E!0G%NV/M4}LY㰎5rm[>##]%[W揄qoU@0{02[Nj|X^.|۱яa>ٸ]G_z4"bD.14HXﴜJP&d@o +FcfǏbWlKo驧~s?_D//SHpy.sl:f7/q@NY =r9_mӾu>O_UFa1fͶםјW#7ǿ\oA!$ԪZc5hho +mHhW@=L_0\;"a>!v>+kkcnoO/cҟuEƌL.).!zE̚;cEo`=pAʨb{.]u[YEx쁕{Ob;{;^I#NVm޸NcYn{32 Γ=1Cz'Bjyݎ_z pO8!1M\ꁉѬo L jXaɒ%4Kdql냛7?(;˿ vmrϾ5v( h;j=mu[C@LᦑV4g9?9Y+5n71#wu<O7n?L{HNMK}N@OCfwGWV͹Uz]Yo{o'A" +桌_Lg9{llKXRL3p'[0n_q6ƿŋaawJgW jqX.l7[`~4\Q帴قe}dKP\V4ZڇFr [c;*Q#X%Wt$(iOZ7~˖C:}qX靋+~˯vhښ:g֔/kd1]tHآlf&ׄ@2՚m7aZZB4*/H+L+ ; ża8nܷ[rgG_@[H10-͑lbl4;NhQ`+[Ady\Hyh70\8&- }}_5_dnDN1z[5j=\R:;Zk^PtsgQm㬙;۝+CelA6nޱvZoZES^qla8V  +x3z8lE΁ d,Vklr +fWyeawǔZaMMx|7t:v͝u/p`xwy09 J-=jZ֩+Tk.-_f;[+Q.aa fw,"[Ղވcwlgιi$bG./y?yO hhEijXF rIi%O3%dP^b $fLJ{MO`!XH),edK^iP',*7 7K)U\=Kl&㴐OxQj u~7h#1]`hwHRB򉀳_հqJOb+@MHMS`A* F9z\(fX[F;lYz4/eE=Ԅ w&<`ֹ_NF?Y+t=9])W#׸쬨>aa52|т];Z}'s:K@66sی̽wm0LV WXo=t wpp1l}}Ee5-]j 3=C|QsٞU,+Rke36VUUSf٪ڥpK5jORd-ٜlI&Pu6<2:^35C!v|r6M6jl8'QenE:1u)ؿ 쩻~|Ӣ{6oƽFFKa޼Hzny웵^i`U)BBS"4#|0 A$XC $bo # 4gL1UA9X\-߄o&7I7:lJ] ~/@xCmD~B -7Ł8h}%달`kt-CȐR18GҖkl0QzC{]J_h!B{$0jl{ DOev[Rl(JC!e1QNL'S)ʕjye\(JrX)ӊMB u:Q3[ͷYVVi)x K&lYl `NT7:H5 SGF __(kߡ!F3g 5Z| ^ B<=:t<݅.}G!;XJllnn&8$mV!hn3 +I~uH!$$SXY+4 +7Ӻq +J$ 4$)%dKeb6v$2e2(#l)['x园7Tcum=h&j W^%|$dv66fK#pfi☧}I!`\ِ1ÿ|'fy Qs?"Q=Ӆ)JܴXXh޴Ƥ+ #0$QI18e~j ++V%/67: B~ǫbq[ M(G`tIlπ0,p+,-P ~fQ5Wp0f܎ÎBOc9˜UIe. $D}h +`QlA;/U1|U/s2{5'#4;Lc}wEܱiꩌXQc9} +QQ(G}˾JݝbOZ;"bW"̮0(E[ݑaˎDT,rڇ5DN`塜TGdIwpڰ~PgΘ|{Nwګ޹鎈;y~غ3M<})RxhEDXFhKA[mu.$fVf;$mtjm~i{.gv; )<_=D&D>aRgsIG}it<i2 *w"c} tL_=.3Or"{r07pJ^*C3- g M&>!0}~Th)h7xW@(mS+%h,HHZ>95 +H4E//hH6 ;x$zG|*Η*i쐇:F~}ʹtV4*TE^=~Ej#2fNK;hku-6Vc;j^cp;8:v X8#|дmA-A﹐+5U68'B\r6Oha_® {.\ 3/wD|ugtULcӮַ^EQ?t5;@B,|21üɯq! b}kq׆@kK"\k.:kc_/|mtL}m_[BB-h6_[Aq“ k[Cx_ۆ*}m +k;24 +բ:գJJHG}P)J4 +[:B47^U$j2Pl:hV?§Y2QuZ#-35ЛQk#|xn +jзC'J8E:@c p+%Шں*>zZjj>w>[R֔&YUUz!ՠz e-*YX=f>G_2I/(mKze^4T/.z8'H +HB#k~[_.`-oH$ =-9}pO~/&>R^[l $ !(2#zë + p hlR@6%76՗zkykp;~+McJk"QVi Y }*p q?LA]x'/zQv) (Vw-h|~ܥEs%x_aZXyՂ.C2JS5RzO 3=U˥_ß1B-@mXO J8 Ӛf#b}*>.{MKسeU +ϔӸVs(?ЪYRNF`>kh?'J2?ǦSum.mw1!gͥYbdׁ +}׺S䧡V6q&ukWsyֺyx:GH3{C6]jO4~ujt#ǫK(ZQF[C95> +F,G6Fd=J9<_~</R>vǸ҇nE>Xr%?'.}УV8tN4p5{ #MzZy񴬛̻k?X}F?:)*2ytƼqCKb4SXj> +4csq)ܒ|U7:Sl +]pW:5o/Gy9qqqt_66wQ|M>;B[y yaJ1wlF*Dw8h +u5.x$rίKqUƹ2u%~k[:sz=!q^y>iUǩ병F_<,XǙግ3ΊT# \CWw\.Yǭq*ĉh2e(#=0:?gg>bfi|l6 0m{\̓l_?(2Y{ bY1"n;9i\'V|D?fe? 1x~>< rG 29 +0gd,~8?8oВ10$a`4tރ4u3ˑ3?F{MI$xi?sI'wjXωߎ~0`)\|NC ʆV9~g5veΤn{&`x1oE%#fuunagF.zwsYoύ3+y`mgfuImyα Wlp nx~03eo72F_/~Ea2/)?-˻7fdn=˺x8`ݪ/z1hCUƃy0/֐Qccj_k\U_Tzԃ.μs \~V=g&_ Zϫ^¢ՕԕԭUaf]IaJ%fk u%u.;u%'պR[_eo=J?}dύLեKW7;%'wvI:l_eLEUʤ*_2iBIU4΃)uvՎKvvՎuՀ#_lY;KF(/bʸtzW뭪]Upu zeu]m}L/ֳ }cUwMƪhZS%Z=Oi?\\٠%ezmP4[_]U6z/5HOځ,x 8V?ϛ7%5:o}1GʟgO+(̞4IXN(͆k&'yrhDTn$lBvᨱp527/hz[0B=K/*,59/P/\X0qR6 `ss +a @5`zaEIP\LҊ +FgO*@rλ$CϞ46+/O[40;k˸3&l-gYE@Jȼl7 eT^V$}tք1 AN;4¬$}RA\>f*=< $ml>Fq8@.S4IL"9]&ω9\&?}2k?Ş8:;+NbhG_ЮKuL}mFF ߙĵpcjpk a ,Gûul h7D"-l`^edQetյFJ`0xY +kDAi`XW_ ,lg4k|a8zl.`_m(U[8ֳX1)W8ğ*48F~^i=s4{xҠ%G^[{ +zj\arAeJ%8*R|}]3.uFFN8± Bmp6:c4Hpίc(?c0?pT?cmy;؆};?cm؂nkV~͊ [Mk +f G\cWV +?{@,s$~y/)̏sap9$S}ioH-#ߎ!ߴ)%)$_QwJhr[5sJZ5?T>K#jom䓻O(|'Qr) %P>%g(y~7T:]F %DK;';m䤛 6[A rAiM3Sy&m^'1Hz7AX9 +FW+/?)B/͒^~B|snY%7yH˝#s쁏=CMd%Pid%۷٤lmq+0jkl&cs?Gɦ{6QrYҽO{WWF)'E{.Zm!kҚ[J>Ltnr%(([(&t3%7ɍ@iu7dEYk)YFRJkbJ-)-dN!5Fꗑ(MjHMn#Umd%)"Uyo&y))HG,I2W#%.d)NEhd6%( 3)rFt%%3lFNɴ62)p0ɔEIA0\7#ä621)M #N2!\d84>˵I$Fƶ19A "md(4NF,4d,7KJF\nF62|ULY22 r%ɠpid 2Iqf+4D=b H) $$)H' $[JBe$>.IoIx`@^$IUk#v h&EnaM\ %MBi!Ll{k uad69W _!6Gj#Y:O]#JhqdZIk4k.';F90|<+jV`{C)-I 3 cX1 +2T0Ȁ !W^T@ffOu_E2endstream +endobj +16 0 obj +<< +/Ascent 759.7656 /CapHeight 759.7656 /Descent -240.2344 /Flags 262148 /FontBBox [ -1069.336 -415.0391 1975.098 1175.293 ] /FontFile2 15 0 R + /FontName /AAAAAA+DejaVuSans-Bold /ItalicAngle 0 /MissingWidth 600.0977 /StemV 165 /Type /FontDescriptor +>> +endobj +17 0 obj +<< +/BaseFont /AAAAAA+DejaVuSans-Bold /FirstChar 0 /FontDescriptor 16 0 R /LastChar 127 /Name /F2+0 /Subtype /TrueType + /ToUnicode 14 0 R /Type /Font /Widths [ 600.0977 637.207 715.8203 674.8047 992.1875 700.6836 678.7109 579.5898 687.0117 632.8125 + 690.918 642.0898 690.918 732.4219 592.7734 678.2227 700.6836 600.0977 600.0977 600.0977 + 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 + 600.0977 600.0977 348.1445 456.0547 520.9961 837.8906 695.8008 1001.953 872.0703 306.1523 + 457.0312 457.0312 522.9492 837.8906 379.8828 415.0391 379.8828 365.2344 695.8008 695.8008 + 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 399.9023 399.9023 + 837.8906 837.8906 837.8906 580.0781 1000 773.9258 762.207 733.8867 830.0781 683.1055 + 683.1055 820.8008 836.9141 372.0703 372.0703 774.9023 637.207 995.1172 836.9141 850.0977 + 732.9102 850.0977 770.0195 720.2148 682.1289 812.0117 773.9258 1103.027 770.9961 724.1211 + 725.0977 457.0312 365.2344 457.0312 837.8906 500 500 674.8047 715.8203 592.7734 + 715.8203 678.2227 435.0586 715.8203 711.9141 342.7734 342.7734 665.0391 342.7734 1041.992 + 711.9141 687.0117 715.8203 715.8203 493.1641 595.2148 478.0273 711.9141 651.8555 923.8281 + 645.0195 651.8555 582.0312 711.9141 365.2344 711.9141 837.8906 600.0977 ] +>> +endobj +18 0 obj +<< +/Filter [ /FlateDecode ] /Length 760 +>> +stream +xmKo@=V]gHG"eчJսcd`_=("%: 3 wzZ?K52MT}xR=}?Swh|[y=_GY5z|^wx}XGö nӯr(j[v[|lOC,3T)Tvm9ڮ mRFd^J:gyu?>wr{oFz"Ybp|1nKdp<9xYp|d~D^17kfE~ȏ̘SOkdsBXK6dkj5Eߑ闸kLu?aSOL RfI2f3Óf7MigOKfKZ1ҚgQϕse,28Lo?<zGd2Q{L^?9&Gm QKBg*GQB/ BԪ/  ?;B/ Bԕү+QJ¯+J¯+J¯+J¯+J¯+J¯+J¯+FoFoFoFoFoFoFoFoN;N;N;N;N;N;N;N; m_F?S?<Eg#Ww[kFM jߗ^{: +gendstream +endobj +19 0 obj +<< +/Filter [ /FlateDecode ] /Length 21851 /Length1 40412 +>> +stream +x̽ |E8\U]}=}L29WBBc9Ap$!*PQ 8 ;zח?U=}y ! ZT0rtZFQ= SfT:lRpo8/APnB@fhGh݆4;(4AcQ!D/݉B$t7*F%h2JQ*GS44@h*P%AUh.>-B~z_ R-Cqj@G6ڍpU:(5jGjv8\)·G)Kx }`Α% =*z*)<+;z6Oڃ7BDS+T8&F_(?֢r +TQPsH<q ^N'Jm$u cbLR[PI!t:ƚ̿cIԪN$Qvwqա]½iz.:5( TSz' h1ލd=Q $;Vn :&JyA~FBW=h!lDk'GJ?Gɏ0䴜^Zh*K"F=v?IV1AQ|]zǏ +W (/F$O{t`6dp!Ńnx(+!=6_LÊ)<{^LAFZ.͕QL +Vń-DˉG#)_NQkQ)U7$O:%:^Σp]tv I6 d"(jR%5_V|L ܒI|NP4UpȊL*vh*b($^{{[<# I.\m)TkU pppNJi|MM̫z #5-RKzfVvlG1m&lЫO^ޫ0ڱ +?2ItLC&5fCz$և^zF6΄PK ?_҃|ѹs9xIڻzvځtKa<Jz`il+TU T6aϴdp:Rz dƶrz|Jm?Oj{ +z& dg>POJ.g2p9du[En~mcwv}z] |vZ/7I +z =6@tХЭh{?` AhW,(HV|w `cȗ&8TUQ +a.M@LvU[-n],,m\uc|/$Cb')&cVR/d\MOb|TkЈO5]3c(8p=*N2X 33?ސL}&Tyz'H' Zvd$CX̅{!=4x0!$Dp„I[oSŸq{MF>*(0Dsk.N779Vt!#hY 41wAuH|wvL~}~k3]'Z3Q8J + C!2 +Η쭭gBi=nBiLaxA!9Z5ѶR/'!^:7KJJHtۚysvWc zmkL\mɰeǑMÊ awffjpfa'ބ ZguՓ̙\| |9EYI.uJ.ə4g4|IwsdĤC)hֲPPqy-S\haSTPۚ0#`Ce8DJ!*J#sswv; l5T +ZK*/W*Uv@_7ܿ} AOvgF.y=8Jnž VXaɎEN, ~SB](f՞k|p')ثL, |>}O_ګ+Go(6dY>${m?p|5`kDRhLol%|(MvB.a$;g 5,^A+>)Ͽd%4oRwa~?;Ŀd47o/?1ȏyy \:$h{ մ~BϾpרeO1bAb?s+5!L3\KCc#|grWSp{T ĭn6ݩj(I_joc|kԥ"f NRY0pVJ&HrSXf*;? +'ܲ{7<5w# nyd_G +bDGT9a=Oy!@-V+:MU4Fb7I C$6$So?AOp(<@jZTg1xzB'Kvdo>ocf9]_~Gsq܃w3$&i\]{R}wwm[,3G:fO?ɦ|*^$ yQ +_}ىd[JbJzDGßH0?\%q]$Uofzzc +s'|ؗ}Y8z16@g!.?k AЩٝ27=L7vʔtZ7NѰ̟Z4ӵuʯմׂe0O6 jj4q$u~si* ҧVlRjMݵ {ĩ&լ8).$J0E#ѮhwhL\F +J5;-ۙ20Vu6w~ȌB7MápuwWyA8uKCMMzF??vܶӗw<3wڶyHԿ\_4|)}i*gN|ྡྷO9 z']xP'bX'JH贏&=6Y-2 +Ѭ3SS3,;a TX"n3̛Lz;eWmݰIr~8wNշ>-0'cdrxOtvf&;ڍu+/-z +w~qUxt1hwńY)Pa0oְuS1k-9,QHN #gF\ +ӱI,O̓wxj??GSp\@?}Gx3^~\ٺeп o?όO֟ /ϑ^n=Z#+h/1DB3 CיW'^dNP#bC$04 Hg9zC|#>F %a)<& BPcp=cQަ_8jSB>k<{,lHLп7QۯpC5?k^vLMHh/\t +vCK2L܌ ]گL0caɜdO"s<)Cũ%d8~VDZޖ),TdXGƏp{a6ȗNb{9ŮIy.=ܜ5ڝmS9G +NܠP<3;RԛWHy/[S}''C-_~{[VT-}K^ӟ^YϓSϟZ>.l\8=] 8sqEi::4ξ.tM-\lZgPjB#މ|+bމmw;8>\Ɲ!e>6~f~_/`_ ߊ$*dg]8;dSPNApޥ^sYt'wWd0qpB\<~zՍ<=*J@4!oN8:x'< 9ʼtFxj;INIiABV);,J"*y"%.H2$aE`B}J8 L˺H:} SX<-<!i+emedhh_>D ;a&mE Vm8H*JJzN=yr)\%ƪbB(rՄ׆DZTjI(92$y3![T6<6qÅKǠE#L!m0SaW9ޛ}'L\>s+%ޞ RIunKٲ¢Ifj Ӳ"ܹO*+> 6d8e>%δ^Rb}AgD]RKd.ÜݺvgZ@D3.dґ FRۯ>>q#F Aw7ilr`idRmiQ(e0c FcW?kI|SS_/NMO(~zoլ_Mx@?dްdIͪQT6RG?O">5Ї>>|mOT}ޮcƴY([XrO䯫_?Iv(zw3rAdk5"MА@̢JRun@#ײFdYC4TE "f#gxDsb|tGY φm&J2V$4GB<i>㻇p ]8ݓC_SIw:o lcOժ@AB#,(ZN>=4f_q'X%s*/?׏y0>Q%bڕ8qN}DP\8$]-Uj4lVU/3pmP[u -w}/_I9߁kFZks„JR:tw[%bPσ(\+D*g{ܵuʚXifxVxζ6T?MZ pu/}W?@gy< ,WT>_п!yϮxζţx7bHf]Ԅ\J-EK5 8HVA䞅BNN\HVڶ^ƨy '|ϴy,频Z+n%;^rޏ BLɵ-5>rq->KزֲK9}y0zK7N<_𽯋 EvH|;`9>*sa +.taƐ)3ODUBI҇d[H8HKd*S9)R!`pM*gl1[ʒ7 >:DI>g, b@4?"<">&ךOKO  oyO/Rl\݆i[ؖx,h%c[`F'F3W-C嬌t.K%B!n FRaFoza@TءboHԤh:@[Q'us ;WZ TKђI쑓5[ҦIP[B˴I(&!G ^]HQqPe uB-~JpTsq^{/>/nO*ϗq˟_gs@eM OրI_y(EN%D*qIx OJ+R-"k!k` N66f4B0fNu:QËe +n{8SLK1RmX8scߧc9Vqޠ78G;;mlwfA_D(biB7`eX-C,xgw_v/o +ݲQ/ +'V<ӟ|ѶB9@4a'6lb1b͜8@K%nD'QlB؛9r:PpL^'҅K$p .}=k2^0gy0"reF{}Y `A-Pwꪵ,5QQ#ZE-":h3nfv?ۙ9cCE!XD"! +a4 %$,Hrzbq6d8VOJOqy/,vUxNy#QOԧ'O~GmV._$W? MAr-fb5ظXE%Fb4Sluc~Ƶ!Akц$κj(%DEX{.3lbKMTu6qi#S#㉂$5p0{BVW\'/n󻦕[s^2JY\DSN}!}\x^|l2a0sg c'*g[r=HǷ5_Rx~IAJ08d'UZnWՉB`C߷]8v'Yv }`SRa<B0!ֺFEKJ<Η 2a"6d{܊1Cfhʾ#{}gSPOλxEֻ3G+Nd0Fz՗BD0:7XTNbX)UKRC5OX@ RϼؼZCV +jqiun}z'EK^{3%:vǜ; >_h>B%AgX#A3y~?`T*0؆mʈD$lE0x)\=ҋF܁G?B `3q_%c"@?L<HD>rk*4&."q,NҁsG|O!ޡzbőBS>`*'Tj5 "p6ԩG-2bػq<{O%B"(4ec%/HYGt,r.˩^!PELBb7eVeiP ӕ +>ei)4g t8ֶ$['\ؽk_/nhԣ0u uT-j |'DY>7ޏw]Cki]f-lD +@oւ!xb0[ ֳ t]D+D8z໯8 0L +H>%_+ѵ,_+OsTAP DC 08~DGz09ncK pՃݧvK`{uKk^$rh˧* ~&C##iG +#Ƞ8r~P*3`P/%"ZQ}huxj-5af&[T'(!@'d%},NIMKǧ' Lb}q>/ޗPS[W)/H(HLY2veJ ԥ\L >|(@qlq\822S$vIϒke7>Dj5eƧ/-0iKGڮ`¦cޘIfySS-]^\HϞSRZ?@ ?&W"FMm w5Dm@N-fI1i%[8V޿~8vIl]p_{|1/xv=ooQtIڑsAFMi*)#( EZk,Fm k`; u &,% lZeZxT];}^B 't+J#n~bD1=4YRn_;en!+v~^>Wb{'v^j5 m[NӐbj^,͓xf&³ *zmrvd/-JK`gp0b EJ_"jJtcь_ ot6DGVmiAll"b,^2RT)b8 @(ݵ +T+H"Jx/#q<;ң 2'L3{uơSt~I?S[ry~ՖF+4C{O7߳م4 @TجKx%d4"#Y4ƌ0V^[[sƶ Ζ䁮]s)ڛԋr;Ny]rm.6emk#^{Z/&"{o9Fuք6ڄdoCJh{=2&9)[$3$|$_y躤k](N:&7de +>_7>ߠK^m~?ghmrM93gտп}{߼sdjwSvߧ) "VGy!l W\+vGQ0rƀ>|5dwxk6MĦMlĦM*vS + DJY .#ǔdIy8Y6M"P&ӄbjaDЏJk-&yx@~OHI(D/Hl퉿_mrŶCu:RK W&°i^ʋd0 %~i JI@|ɒS !)FvWx6E + :܎BZ[[UܳxB /$= 2:iDXn,B64u[^~qμ;,xtgc@E/ +/>,So>׶:w8K}4XgufnrָLiHe/"5:Q ;{u{|ށըZZ,/VŦjbbbbbG.b8l +>!||ck;"9`]>5|QA`]_b/=dh~l=T?~KĤvBkBƎH HN6 n9|X&ޗA޿_-p9[ⴠ&U_CC{Ӷ/ˏ +9 wI&ڠ6ɚS|'s#6>q9!CT1NH !=NǑ7@OE>^X`t.HˍHA쵚jܫYБXeŕ0 5y9odڼ\0-RaE=!nnM5$͕%K\'5>1F1՘k,N!&`M B%D5%-u`ݩS>Zz15f^N} +##vMXz ,dٚ}/>Ӂ{t37,u7 ɖXlK}g}@~H**69pR3AN+Q6q1dY֞ }iH*P*&hY02L|ڝNqV&rm!pcX\I6' Zi@ cD +5bRdv!FQJ2lKRx$&H r&j&9GȦJ;B>_?(`Ǖ:ac 6 r&uTf'b;P5N& DFui2T#9( ]# Ժ\#EZFIZvZ6/ڣtn'ǵLhM")Rpn5Ҕ*$IjW}27[ VRĴ BH.T +"Sr^ly +o_;d取O-W-il%-O+S8O Pr+ k-3}F6oՁl٬Yf b'ͳT;2+׭&*6j3ك P8Mn26sf,]wa%$**XB0dYi# mҲIJflaM.i.iDS.jhJ4XZ<>`-H:Mj٦ls_K5ǖ40Obff9Ơ;dP@ ?c?qcE"[itt[Zzm5zX]aZa^mYm]m֚۬j[[l;L;/Z_t|(^VlLb@֏pd ;E[֌#Z73 <wXE*~pP<5 "`D6x׋kIsFoML&ahRlp!JxLBnb5H')wq1)i8YYlZbzuM^aFpj=~`a0KD |#lnF1&/ S[>doY!ą<4's5'7M* .pINYdr +be6t{0;gWL(|7|kj/~~G~Ƕxc)W1~b/m!{vK1?#NXˎK +5۔(;FE"P([coRtDۆ!t{EƹҤ$jP&H ic1j'HA +xSf섊 c兙 ~Fڟ>??6nO.VO6=xZbg(3 +[Bc-ζ/28Ӟ)Ӟ8 eP<=ODԤ/MfW5Q>5^oG9$?Jj|Ä,;oDx<7y٤WT3;iE(eْ='V,Y@&Wg['Xl&/];cנzn1N4٭w'}S_z?; +?^4[@]Ty = H7Ksz^D@hEMธ,"Bq*-rc:mng(88Ox_DQ7(r7 +h_qK-8q4ç$#ջ*/ m5$hϬ*R,d2*Pio\+QoWV۵)}SHr}o ߇&;` ܄BM՝78G~ma%oIXߢxG=fK5?w x~OS^w{ 47ca1~W~ɍ~"˾/2`ؤc}@u?f@ɒ-{%sAciƔˮ]@Os9Gd$fP.x-H()5 vvKj ֋Тfa7YXbЬeok~}\mXv A`\vEYYlW_Lw\#Ч"NV;{=lǧN}kr2_}}JptI{筽Ԓ1u8WWaN~ʹDЛ ,(c DΦ]IRT))F6톆X:`b# k7g5]2z +.d0~?D`u]1]Qʲ1ux1Z/dkBjn-RO` 9yUwXZCEW^хJ*:Hϡj1 bΙFi 6((C[Ǩ/^P>Gf [{TI}azOڏah+݄L6$OAmKT +dB~%ñpY .8c)6GzJq!FT% +mAL]츺Qᨊ7Zs o4Aj˫p`!>>xv^(E':Hr$iQ>3N +=#<0"0eg>WhoCy=6*P6`:>򑀺 =jtGdggn>I6YD6 +0J EiC1RO'$Iʕvcj>Vm'bZej5O0$[fZ>Uf׶cDG̩9'98!lsE*]\?r:9tK虰]{Ā"ވ,Q(jxԓ$zD 11cb#vxؿu[3S"~nBwhb I$)2$MK9%]]~Lŵg0<4dogmf3&pf)ؓ8#PȄ L~ aOe +~̤8PF +rePlq>eBlEOa@فh`DLUx,#2A +>P^) +% I~,!(+(<(P?([ MslG7 1AOEMAp@ɄdhAyf.-9 Y;C}O(݌fǃFUů\̇Rhf:Fc_G %lPB쁑AVƟ(y] m&CӡK= A L:m˔TOFzzgBOUs甕6{JO3gzFVUQeUes旕~h6{tLY3*fOL()2dԲ*Oɜ2ٞygN)U2}6@v-9UPm<׻np͐1C޻s*8g+kP > Jk>r()C`s_3`m Y. +o^B')Icϖsk +v)xz~\;c[tE%`cn@iԕupK8ʚA × ~Vp/ ~?w؏s'b$Qk(e4Y-Ҁ$r:ƀѴ;K]Ѓp8یJkǨC55^W6K!1Oտ)CJ8szz~M ksg%ܮtjȠ\=vciǪ?pЎOhp/m:I3ï/Wtu^@r2N}γ\ {pZDg0kj4n=\KoIvrO03nDU:Vq$9l=J. ȤJk7-oc59#sRC>H48#j q(~oy w +]/7;~qPf=Dcy_F]5ofWA{vFB};@;  ׬| bQ1Tc,cckG Bv;\5#VӠ(;9 ίXX8@ќ7s hGpᾁ A/noqT`# ̟g[ p;zaȣ9f?oPvn=05N9Fx;FEF7Wqz11n}CLu΍CkNhh?ƐaAZ}roNqdF9łi 7uYGg y 2f:c% vȮoPaZ4<vj-ѯa_9ssv;w# +κ]G1[2|V\svvpvl#0l1'܈ڣ +VG& ^ȝT\3c#p߽}/ˈ+KxF5CiVro"߼@[Vp0kxnȃ .7:we`.5Sœ=AyYM۬!}~NrZk15n9N9?僴kAG^A}+n:Nl GlR }$׶l+%# Nڵ-"k])}$-W)]P>iлPg^]ɲb8ㄙjvOؔ|_`>͈*G >ԩvx%>Wb&J%+JlOkĦJ- Ħ Wb+uO^ovKsIn(gf7]bdO21&ga2}Xg݅d+L|X&v,?h,srsuؔs~#6;⇌;bJpG=Qqe2a`|&491>?͎ax`h2TؑW瀖<&l}F^38ɑCi:!Z! ]=H7 c% Kkؚi_lXNLKӍ!}0cXC 94adkRbhe0dZƔaHȐu6BBDBPR:٠E~eŤ!ݰ)ǍWiP-NJl9菽%'aZrj1E?JȽTr'&9XFJre[&RK= 9r n>lXlF'e43BIRk@dwؖZ:M% 474)Zj6i4Re9UWngSzᒫq΍pYͤjg$i<)Wꕢ`Zo(0ÔdXQ\4ҩ.?b<mT#~HxC(]7z@+$QCM<&>jr=4 t/j Bƅ1 tb4vTQiK5 6yYG "\GmA5{z#=᨟tP !+n?A="ή覗"j[rR#񑗤7.5䭁X4RVf3po]!P֠Bi n/oWNNшs)?^xHP!t'}"TGnfi 8c3tO1 VA|8MAE>h{X\/b%vx`%AJm9a%6X%Vbe`X+c%6+Ml2D9-X.9%Vq!K|ΐ+dbgؾ2)!?bua5+tJ":sAGl":BGlJt炎d58a>rʀ&Soq@\~3v[Ýηz>4+p_6 '$XmMsVU\X1k-{+o) yu<`r<>&Q|fW긗D]#pwsr;U\;j~ ܞVnU6t[Rܺ +yܼsLY`1ܾdMefhYr7 +pOAz0Sq5ʵ WӍu\Eʃ++.S lx@KGGKFG.Ė)xp Wa+CV ;H ) "pQ]rQ Q E! xGof \(lW(A," EJDpz*u*!Zӓʺ8Z Ԣ9shh[Fiˣu zUsp9Ksq9-{jxYg6(gqʙ 8JZ^7ě|Z,pZ%NmTNFS%|kT|Xs$8drW+'{N(TJĥToh\(u>JW8qV82ur| 4%POuk]+jGTG@urZRH#H65:%T@w!ZT,ڳHE^ځi_endstream +endobj +20 0 obj +<< +/Ascent 759.7656 /CapHeight 759.7656 /Descent -240.2344 /Flags 4 /FontBBox [ -1020.508 -462.8906 1793.457 1232.422 ] /FontFile2 19 0 R + /FontName /AAAAAA+DejaVuSans /ItalicAngle 0 /MissingWidth 600.0977 /StemV 87 /Type /FontDescriptor +>> +endobj +21 0 obj +<< +/BaseFont /AAAAAA+DejaVuSans /FirstChar 0 /FontDescriptor 20 0 R /LastChar 132 /Name /F3+0 /Subtype /TrueType + /ToUnicode 18 0 R /Type /Font /Widths [ 600.0977 751.9531 611.8164 634.7656 754.3945 612.793 639.1602 589.3555 653.8086 789.5508 + 649.9023 653.8086 649.9023 615.2344 591.7969 915.0391 549.8047 589.3555 691.4062 525.3906 + 854.9805 604.0039 610.8398 900.8789 751.9531 615.2344 582.5195 531.7383 591.7969 601.5625 + 748.0469 616.6992 317.8711 400.8789 459.9609 837.8906 636.2305 950.1953 779.7852 274.9023 + 390.1367 390.1367 500 837.8906 317.8711 360.8398 317.8711 336.9141 636.2305 636.2305 + 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 336.9141 336.9141 + 837.8906 837.8906 837.8906 530.7617 1000 684.082 686.0352 698.2422 770.0195 631.8359 + 575.1953 774.9023 751.9531 294.9219 294.9219 655.7617 557.1289 862.793 748.0469 787.1094 + 603.0273 787.1094 694.8242 634.7656 610.8398 731.9336 684.082 988.7695 685.0586 610.8398 + 685.0586 390.1367 336.9141 390.1367 837.8906 500 500 612.793 634.7656 549.8047 + 634.7656 615.2344 352.0508 634.7656 633.7891 277.832 277.832 579.1016 277.832 974.1211 + 633.7891 611.8164 634.7656 634.7656 411.1328 520.9961 392.0898 633.7891 591.7969 817.8711 + 591.7969 591.7969 524.9023 636.2305 336.9141 636.2305 837.8906 600.0977 611.8164 611.8164 + 837.8906 590.8203 1040.039 ] +>> +endobj +22 0 obj +<< +/PageMode /UseNone /Pages 24 0 R /Type /Catalog +>> +endobj +23 0 obj +<< +/Author (\(anonymous\)) /CreationDate (D:20260703100300+00'00') /Creator (\(unspecified\)) /Keywords () /ModDate (D:20260703100300+00'00') /Producer (ReportLab PDF Library - \(opensource\)) + /Subject (\(unspecified\)) /Title (\(anonymous\)) /Trapped /False +>> +endobj +24 0 obj +<< +/Count 2 /Kids [ 9 0 R 13 0 R ] /Type /Pages +>> +endobj +25 0 obj +<< +/Filter [ /ASCII85Decode /FlateDecode ] /Length 1177 +>> +stream +Gatn%9on$e&;KZQ'g*iA@-3(]P!'Rt$5C1Loc])soGJdmG0sRkpH'QJ=gD+hD(KM+UsVh-47D2IU&k4#rnBRRoCLABH]JBQ*(PY,3ck5:r-CL'HbcY'd<\KL9F,Gp!9u\[%Jf_L:Bt/+QUQ&nPAt-Ta5HUdf^&,#^##"rDrI^i:quBBeI*XsqCbf48UsGT+k/l]7CL8kXSGZ@VA7RRK'k+O?c$`M2S(FZ&64LUffH4i;O5oFY.g=/FC\qd:[l"p^WJLA0$NYFrqC1c.'W[.)j"$()DC2Diq9NIYlqH[r4d]7h]J&m8NJVrqT5?'$Hh%1jBiq`r(,'S:jrWG`h*MipNIX#4VF2-iN.LYCI&"^/7=b_?:J%W^SJ0[R<&33HN6taTnk.-bKgF!`t=`Og2iBK'c8112IoWIPlaZl@4/f%6TZM&!=hje?gf;4$&BeUGNS!4hb\E24"r)Wr]r=oA95nhq@][af!:fIA:#U7!&II'"`-V7,N`-,FW$h7s"GIU9$]c~>endstream +endobj +26 0 obj +<< +/Filter [ /ASCII85Decode /FlateDecode ] /Length 552 +>> +stream +Gb!;`4)`k-&Dm45DX7I:m_RMW7@O?IQa@YlG]?Hg5Z$'GQN$iS7+mmm#"Xh,!D/-\qi88bpk],eNQ1-n#OoH[X(qcGkdEam#O&n;a3OX'1a)tu8=C6gTF\nUETY9gIJ;22G//)&^5VgAi^q[Y@X;QIJm\uFOF3e[oU6Mop;mg.V+X.H,RGrsnMWJDU[:@13(*^Q&e!'s,`]?%GpY,aFP0o6TkNRlCVd=$at`W):q87F205Br]GAB5[#eeXD16F/gV^D&7,Obn3N-Y#`i'UKO`MROdU:)`:ssUZ%1_eJ(,g)!~>endstream +endobj +xref +0 27 +0000000000 65535 f +0000000061 00000 n +0000000118 00000 n +0000000225 00000 n +0000015278 00000 n +0000035474 00000 n +0000053600 00000 n +0000074608 00000 n +0000094314 00000 n +0000108396 00000 n +0000108904 00000 n +0000120615 00000 n +0000135418 00000 n +0000150726 00000 n +0000151094 00000 n +0000151896 00000 n +0000171312 00000 n +0000171582 00000 n +0000172933 00000 n +0000173769 00000 n +0000195713 00000 n +0000195972 00000 n +0000197358 00000 n +0000197428 00000 n +0000197709 00000 n +0000197776 00000 n +0000199045 00000 n +trailer +<< +/ID +[<30002700dc996f1d3f86437d77811bdb><30002700dc996f1d3f86437d77811bdb>] +% ReportLab generated PDF document -- digest (opensource) + +/Info 23 0 R +/Root 22 0 R +/Size 27 +>> +startxref +199688 +%%EOF diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb new file mode 100755 index 0000000..c62371d --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb @@ -0,0 +1,15821 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 665596, 15813] +NotebookOptionsPosition[ 625029, 15165] +NotebookOutlinePosition[ 625453, 15182] +CellTagsIndexPosition[ 625410, 15179] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"51e1ee3b-1506-2142-ada4-49148beae057"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921230199512253`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ec2b1cc1-84f6-d844-9c4d-a0c1622e7d43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"9a1e6247-d6ef-d041-a217-04fe824aeedf"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921230200111485`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"e2e47008-48c2-1046-af97-35aee60d9198"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"b1981f79-e30c-0f46-bc08-bc23f24386b0"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.9921230200251236`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5a70f56e-dcfa-984c-b6e6-07f4ddb7cc4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"2cf4b208-12a6-2d43-9458-3ba8417cd31d"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921230200361385`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"5804ddab-2638-1c43-9156-f9674592d854"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"44509503-dcd5-9b43-ae6b-657d6ac1a4f3"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992123020052801*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"8a6eeb7c-6433-1d47-8e60-4ec266ab2f57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"5c080ea3-32bb-6249-a84c-4d97dd3d3662"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921230200658035`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7f18923b-040c-3545-b655-8601c2a7d2e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"5630ec94-a3e3-0543-8c94-ad813bf68fd8"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921230200795345`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"9d1479c1-8d44-a14e-879e-2c2b78a318a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"cab53dc3-45b4-d741-b47a-f58de81d260f"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992123020095957*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"5f22ef26-0302-ba44-abfc-e9ba76d754d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"eb13a85a-c251-344e-98f5-49628a713293"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.9921230201069565`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"9fa98580-3426-7648-8f2c-6bbdf66c3739"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"b7aa99cf-e8e0-2646-9000-f47826a5fa8c"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.9921230201175823`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ee5f1c98-d9f1-7f4b-8d88-dbf62acebd4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"9a43e466-eb20-c349-aad0-f7d9399eabc4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992123020130581*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"095ee166-2c94-074c-8c87-575f1f82cc4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8924849f-4efb-3441-8ea9-a8131ad1b117"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992123020140583*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"0a271413-9305-9a43-a968-96aebff6dc78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"c8a986cd-c226-6845-b1ed-f25d53b15276"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921230201510983`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"517d52f4-d5a3-674b-bc64-0037d9999e72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"61e96f72-be15-2348-902e-b95bef1b0970"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921230201600914`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1e5daa67-0d5f-1c44-b14f-fc7302bdda06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"6c8db003-b459-1046-8b0d-aacf7bcf5e64"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992123020169039*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"86e8e71e-2f9c-5948-8dd4-0c011671075b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"c0d9835e-ba01-d644-a425-af04f76c79f9"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992123020183052*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"3d033d3e-75d6-664e-b11b-86b5fbeccb3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"822bd092-10b9-364b-ac38-0c8ef3850844"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921230201971455`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"03197a32-9eec-b740-abd6-081bb36095de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"61086478-44f3-9142-816e-4d817646b2bb"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992123020206751*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"1cacd460-055d-8146-a728-16fff0275ec5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"36bbc0e0-8c8a-f14c-9773-382765630ba0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.992123020216406*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"aa6fd636-7066-c049-bf62-c94331f0c273"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"51619abf-47d4-9b4b-aa7f-ed8e6b2189e2"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921230202252903`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"562ae0ff-76e2-f342-9dde-226cca7fa091"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"e8ab3625-4c98-ff41-bd2a-4380cabf35bd"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.99212302023641*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"0bd0faad-c762-ee47-a10d-0a8207f9bd70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"3e9e91c8-ecd3-7547-9f08-c67c9d54935c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921230202473335`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"824dddfa-469d-a147-9f5f-69ca7c28146b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"13f6143e-a294-1a44-8481-e8ec0c34082c"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921230202562523`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"8c8f3fb4-9c88-e04c-95e3-fc1cb2a839ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"1e64de56-807e-5f48-9109-aae8f8179740"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.992123020267212*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"88789b77-20e9-e547-9ac1-8b4f6eee86ed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"12c1abcb-3110-5541-9b35-702e2880e2ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"82665774-5610-794b-9343-af19ebbf36d7"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921230202832127`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"0f0e6ea5-9498-134c-9df5-4e5c6c4adc5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"43d368ca-7cc5-cb47-a72e-72a16a3eeb08"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921230202967243`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"dc34ae61-8d75-2f4e-a4de-aec991074b77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"69631857-3e93-8f48-962b-d79e311ee489"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921230203121567`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c4f8c635-3fc0-4346-ac40-ae13389869a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"c2b5dd01-b270-3440-b344-4e3f7685886d"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992123020328188*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"fd2fa645-9d8a-3549-89aa-934d28b30b2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"42e9fe7c-3531-db43-b44b-753d7b09e6e8"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921230203428535`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"6c642156-09e3-a64d-ae2d-c4f4942435dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"15232d79-b562-2743-b703-c588fe35ef64"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921230203598423`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"dfda3edd-1093-4b4c-909f-188be4f12aba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"f397495f-3be4-2d45-8dc9-e47bce79df5e"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921230203758698`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"e758d57d-3b48-8c4a-b76b-e479470520db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"924aa44e-e680-714d-bc09-d33df054cfe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"fd53a751-2574-9543-8d06-c3063423da3a"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.992123020393673*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"eca98b90-302c-4449-a341-650cab59bd04"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"4dbd4d7e-b600-9d42-9e69-07e52d42665d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"3539c2af-4482-0546-9f46-a3fc5627e0fe"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921230204139957`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"671c551e-a9b7-2140-880f-7973ee2106a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"463df9d5-d39e-4648-8f37-4249afa5e486"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5f5a763c-a957-644f-8e0d-38698f3fd1f6"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992123020431738*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"4ace6427-95ef-d04f-a3a6-1ddd7c43acd6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"17a6622d-2b65-6644-b343-e379f6f7d132"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"fae08226-5d13-2f40-8b87-bce8d385afcc"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921230204426136`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"3f4809f7-5e31-bc46-be9a-e7fc9a8e7128"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"3731ab86-9ed6-0f4b-9170-2e63032d3966"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"ddbf80bb-8754-d74d-bcd8-15b09ab81fba"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921230204563065`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"e40e10c1-07df-824e-b5c2-da141b7c50ec"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a5684cf8-f643-4344-ab61-217cc4468b84"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"c6e6adfa-b3db-aa45-854a-05917a15c0ab"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.992123020469528*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"65a56fcc-c8e3-6b4c-88db-4a6447466691"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1e2435eb-4249-7e41-81f4-31171b52cb70"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"7b318c34-83e9-604a-a9b2-7f6629abfa5e"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.992123020482538*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"ef154d48-dae1-ca40-8c8c-811ec46ecb91"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"3a2429fb-bb8b-9d4f-b030-479fc57cb517"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"4ee1e263-49b4-bf40-a4a9-882d032c6916"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921230206001396`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"c5471fee-11ae-5148-bd4a-d2a262e9e91b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"d023b0f4-8dd6-4a49-9024-9a69501357ce"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921230207718487`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"364258f2-2fae-eb49-b67e-551fb2294f9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"b2731a76-acd3-8241-b9c8-3635cc882723"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.9921230209402695`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6acf89d2-eadb-fa4d-a479-e1743000b48e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"63750d53-5152-cf41-9a77-f56920963875"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992123021305847*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"abfd65cc-a96d-a442-883b-03d29641587f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"30b656fb-53e6-4a45-b82d-938a5e8b7bf5"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992123021483032*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"686e733b-5aef-214d-a950-9d27ce005fe2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"87579211-75ea-2d43-aff0-8fdd1be0f6b1"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992123021708004*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"6eebbbe6-2b6c-e941-b95d-61abacb0bfd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"57172bc7-7934-2d44-9f21-47e3571cc6dc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.9921230217422123`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"3849a70b-bacd-4245-8d61-eb0a1c1e5087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"c109df64-296c-584f-9343-3947e57e041c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.992123021770174*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"1d3b01c5-7ed8-9948-9945-16a918a385e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"45d48833-509e-944c-808a-1d89fec3f581"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.992123021794012*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"26ce41cb-a131-4e43-ae90-9f96e9d7f468"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"ea6a429f-2646-2c40-8688-b02a128db931"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921230218159904`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"a13b0229-5a9a-6647-bedd-7fc5c5670142"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"2bfc48a8-dedc-aa4f-a2b7-ca795070780e"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992123021833996*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"3bbc144e-f838-ba40-a511-016c6ebfd9bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"930aa359-1419-634d-979d-3cfbf13740c9"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992123021849264*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"98ad5379-f1b7-b348-a4a3-19f3a5e0b1be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"6cdbd642-1293-c94e-8040-d9a4b21f4986"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921230218615704`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"b6447702-69ac-1c42-befb-46a813553c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"90c1cd94-63bf-f14d-8aa6-fa016f974c6e"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921230218739033`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"db2baff8-021c-f347-b2ce-64538e683180"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"97b297c6-20ce-dd4e-b240-af5fb4a06ed9"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.992123021896143*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"cd64b7ff-4d01-b44b-a034-6bec5cfecd84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"8b178920-0a22-3248-a51a-25018db09dee"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992123021911125*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"28a6bcdd-7bcc-a749-8b93-037e3fe89d29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"a9f46b26-b963-0945-a122-8f47cdddee9f"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921230219242477`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"cd9b107a-7d16-0941-b645-a33c7452273e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"c4460c85-e9e9-5b47-b4b5-8a120c4f5d4d"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921230219378567`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"cb554bce-4e74-d941-baab-e8a373c1d4b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"6f52c35a-72c0-6a40-a4de-1fe66e6b12b6"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.9921230219495068`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"3c2dd5c3-b45e-3744-91a6-29d83c81c30a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"5f84d9a8-b5ba-ec45-a21d-742f1c6fd667"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992123021963009*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"14188b91-5685-c94d-a441-f8f0851bb3b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"dc0e6255-0d47-9f4a-a7a1-2f5cd2b1f9a8"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921230220171165`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"1d54019e-45a8-de4a-b463-f2c3d5e5e99e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"6d7e267b-31be-5647-9506-8d23d7f1a57b"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921230220376625`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"44b31ed4-1d5a-174b-b417-7df2e572f4b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"b088688f-c895-ba45-9000-5cd0b7365a87"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921230220541096`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1ccd1393-5194-8b48-b534-c651e848bbc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"709eaad5-e0c3-244a-b98d-7cf0c2e9d765"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921230220708675`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"e80bb094-ff67-5e41-a766-4026ef44ee45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.436538242446606"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, 3.99209193256851*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData["0.436538242446606`"], "Output", + CellChangeTimes->{3.9921230220811996`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"638a6b29-5864-914f-8009-d2d295617a6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, 3.9918455862781773`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.248236755663187"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, 3.992091937358841*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], + +Cell[BoxData["0.248236755663187`"], "Output", + CellChangeTimes->{3.9921230220993576`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"6102c73e-4b77-1549-9278-57347a920caf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, 3.991845587331728*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.9921230221147156`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8076c605-08bc-6c46-9008-0f94ad030692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9, {3.9915581188955975`*^9, 3.9915581216343517`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], + +Cell[BoxData["1.6512396330593036`*^-54"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.992123022139082*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"080b1d35-8854-a048-a706-0b6b144aab53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}, + 3.9915581158968887`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], + +Cell[BoxData["8.569634978288592`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9921230221510773`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"fa85162e-36ad-7140-a057-29cf420249c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["11.847189572801934`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.992123022162176*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"02f9f95c-cf7c-9d4e-a5e8-c8b44d34ce29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.773154636448737`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.992123022174637*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"af72a712-0f97-7449-8d3d-1e978d6219f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["2.7165045868413826`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9921230221863327`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"54d6e7d4-e392-d248-9770-173549363c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["7.147246918334579`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.992123022198406*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e197485c-ffd1-ea46-97de-368fe564603d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["227.09058156112627`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9921230222160854`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"90f969a5-c51d-f847-827f-9e8c9a8dcaea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["32.182944815695855`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.9921230222282753`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"88f8bc53-3e5f-fa43-8217-70583ca4d1e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.007656654912554381`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.992123022243908*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"ff9c23e8-354d-2a4d-9a32-a66716583f70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["10.128039904518797`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9921230225139256`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"cfb87130-3ad2-304c-b3d5-862495422509"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.01703802437006219`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.992123022548071*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"fb7c9eae-d8fc-c441-998e-c8f3ccc7f57a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["6.789461393121026`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.9921230227365017`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"e43fcc6b-9b8f-c34d-8ab9-4e9938574f85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.9921230227585335`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1a1983ff-a439-ab44-8789-c549ec9b262b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.992123022777771*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"e8e4862a-1e51-0f47-b167-66dc1c71b562"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.9921230228064327`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"10359d70-3999-e74f-acf1-2edd1fe8b009"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845612037445*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 878, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992123022873377*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2e4ca3f2-d33f-154c-bc26-821a4b280c57"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 879, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9921230229292374`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a39674e9-c4f8-9141-b86e-c079c1d58bc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 880, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992123022948229*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a515df5a-5c17-b646-b329-6a72d919e6d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 881, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9921230229793396`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"4f51a0a9-79ef-d844-a67f-287b6f8484a3"], + +Cell[BoxData["10.128039904518808`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.99212303155492*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"10366214-e92c-4a4f-ac64-c685c92ad67a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918456299851303`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 882, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9921230317027283`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"0fb69354-c371-1745-a1c8-c904afc829c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 883, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992123031731571*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"6dca8854-c61c-3949-98e1-2e4ef2bf2d4f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 884, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9921230317495575`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1c57ecff-3c5b-3242-9068-fd3214ccd556"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 885, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992123031769518*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4b13eeec-8db9-594b-a2ab-f537dbf1b163"], + +Cell[BoxData["6.789461393121033`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.9921230399229794`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"79c727d5-8d14-fd44-9708-b275327f8e53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991845637746252*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7008778613950495, + 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7008778613950495, + 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7008778613950495, 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.700877861395051}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7008778613950495, 1.3952922541456523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9, 3.9921236350754967`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"5a3382f4-9f8a-bb4a-a67c-4b0288429337"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, 3.991845656553877*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.247158344418867`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 886, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.992123635453945*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"872e7c16-901b-0647-8868-984caa4a1bf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3917792646533707`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 887, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9921236354799347`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"5f1fb2c6-4228-eb46-9dc5-ae28c376d872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5531704776602976`*^-299\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 888, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.992123635501934*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"bc5a06d9-dd5c-7a49-9294-36e8b1e41b80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 889, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.99212363552404*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"629c076e-1cb1-9a4d-b997-a61cff5cfb8d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07505632130852365}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9, 3.9921242359843464`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"5c16b638-e912-e347-bb80-e40d3e392a2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.992091832175211*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921242361528606`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c87c3822-f8ef-b841-a9f9-258e2c7f8223"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07505632130852365}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992124236212303*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"ca6a27f2-e363-894a-a030-c07dc233af3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991846110594208*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], + +Cell[BoxData["13.355018745137238`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9921242362892513`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"f9b9a3d6-345c-514f-bfc0-2318aebff7d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846112020672*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2746919409279075`*^-255\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 890, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236584585*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"80a5b597-3c03-754c-bcbe-34458286b68e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0033968198562457`*^-265\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 891, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236608486*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2de6819f-78ef-c349-9e7a-cf907965a0a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.148681409947907`*^-275\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 892, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.99212423662685*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f1c547dc-697e-694e-93f0-d100bcc31e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 893, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236642412*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3a58558b-4e57-1b43-b80e-3c97d1b35f87"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.056920431770918545`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9, 3.99212504074489*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"fb6d53fb-f8ae-7b41-9a94-72761a5670cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1156715906573954`*^-176\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 894, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9921250408805885`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"bbfb9d42-e45a-5d43-aec3-90cd6a1372b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.853020910920497`*^-180\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 895, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.992125040914463*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"40269fe9-13cb-1341-8017-8f3f0c723a4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7045437295323366`*^-183\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 896, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.99212504093557*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b77a3845-b1af-c14b-9912-81d30675142e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 897, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9921250409534664`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"e9e3ac3c-3418-774d-92cc-9ed202ad8ef2"], + +Cell[BoxData["13.355005590946895`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.992125115796116*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"141c5be7-8c8a-da45-bd6d-decbdafaa7fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845708089321*^9, 3.9918457122231236`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 898, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.99212511589307*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"6e4818f4-1248-9549-ba8e-addc0d0d2046"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 899, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159110165`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"44b07bad-27a9-614e-9e07-8a49093a044e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 900, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159311047`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"8781683c-bc28-0d41-b472-1b93da651374"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 901, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159501095`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c4896610-9cab-6b49-ad86-04c8a69c01e4"], + +Cell[BoxData["0.8031545973600654`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.992125127390209*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"f6d33b40-d7cc-894e-824e-fe26bbd52f1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918457167596684`*^9, 3.991845720288498*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 902, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251274892235`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"87d18dc9-16e8-6a41-b604-9492ac551854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 903, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.992125127527117*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9ef22a08-0315-9844-a0ee-7fbfd8fb3e15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 904, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251275511684`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"5b17d4bb-242b-4842-b1eb-b2195f668b1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 905, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251275711136`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ea74cff4-3654-cc41-b08b-547a4ce6b891"], + +Cell[BoxData["28.028145326319372`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9921251381514072`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"303c1110-0d55-9649-8d09-9e96681e479d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845728758301*^9, 3.9918461210058537`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 906, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138253519*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"ec2a1d33-796d-1a4f-a99f-18faa89af8f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 907, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9921251382845078`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"968ce380-63fe-da42-9d09-27cea9ed9413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 908, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138312416*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"13c17ddb-e755-4d45-bdda-2a03f506a9c6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 909, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138330509*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"72bbfb2c-fe18-2645-ad41-c5e450741d01"], + +Cell[BoxData["12.595464822766223`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.9921251467469063`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"17eb7b4a-ad36-ae42-9634-ad7eb9c1e565"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, 3.9918461306014214`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], + +Cell[BoxData["0.04274593978781623`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.992125146823387*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"44b7c31b-b17d-d64c-a84e-668fae7bb60b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["8.187496107757514`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.992125146848507*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"b8acaa68-3b44-6343-a4d0-1ad35bbeb4ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["3.267702860921432`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.992125146862484*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"442fd59b-d5bd-d342-9fe5-35a97d3ca38a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["26.754304455102318`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9921251468807735`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"2511195b-719e-6848-bc8e-639037dd2f43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.007988707337573198`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.992125146898691*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"d849c970-8009-8149-8f6c-454eff1ad3f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["9.915318862173317`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.992125147127451*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"8373c32c-b854-7044-959e-cf8efb4ecb02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.018774544030341494`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.99212514716045*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"41ccbe00-b303-754f-9668-fec3888800cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["6.4678545005067605`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9921251473862095`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"b5b0bb0e-acb6-9941-9c8d-78e97ea742b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.992125147408535*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"0b4c4b74-8a09-3f49-81fe-fff5b453bdb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9921251474321747`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"19b400a9-1e26-ed48-a0eb-2345b4395009"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.992125147462076*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"a31bdfde-ffac-cc42-bc87-09cfc15f713a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846151022602*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 910, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.99212514751614*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"d692952a-9232-1e4f-a1a6-b7c3265f4170"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 911, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.992125147557131*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"634fb45e-5387-c840-8d53-c5b959596934"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 912, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9921251475800343`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b4792b68-b0fe-e940-b63d-4b53a03c6206"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 913, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9921251476010303`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"e787a2f2-de6a-9b4f-93c3-6cbf33f50a9d"], + +Cell[BoxData["9.915318862173308`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9921251556800194`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"2f77f69d-1883-0d46-8e3f-bf55794e632a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918461538845863`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 914, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155787985*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3b328b74-1dee-1348-b744-1e41a8241f27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 915, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155820921*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9f813110-4a79-6d48-a1d0-ecb6900aefb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 916, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155846031*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fa325720-d896-d849-a31e-c78aaf9fe132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 917, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9921251558629227`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"508b4dab-c6bd-a24f-be6d-fce97436c892"], + +Cell[BoxData["6.467854500506761`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.992125163890587*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"575e33d7-ae0d-5945-8ef4-bc243ee162ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846157029255*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6041957413943362, + 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6041957413943362, + 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6041957413943362, 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6041957413943375}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6041957413943362, 1.5846080890559413`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9, 3.9921257431019096`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"dd68e5e3-be98-c546-86f3-57ddf0b63d3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, 3.9918461709620533`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.785829664360261`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 918, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.99212574348472*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"21516349-23e0-1743-bc77-fa2c2fea8b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8157830257707058`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 919, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992125743512724*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"dd24d7bb-71b8-7c4e-8f18-f73eba1fc3b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8587544335123704`*^-290\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 920, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992125743533819*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"818dcae9-27e4-7446-a529-d0d9eb2c5825"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 921, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921257435557194`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"5eb800ed-d170-8d45-9090-460657588ba0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07666656548321167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9, 3.992126362938036*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"a132378a-9f95-0943-97fd-8e3988a0194e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07666656548321167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921263630586586`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"56be564d-7855-cf40-994a-aa9176b0e36d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8294091308162`*^-171\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 922, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992126363149664*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7b8718c6-1580-d04a-8cda-09635dc07a50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7131808757003826`*^-174\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 923, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263631667576`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1d59fcdd-8fc2-dd4f-a705-fc4321f3acfb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0373150637351874`*^-177\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 924, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263631836624`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a213095b-84e2-aa47-9aef-1e51a0e9a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 925, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263632006702`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7b41f8ea-f093-4a4f-8d6f-f830304f4d53"], + +Cell[BoxData["13.354921881756548`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.992126436494192*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"9feefa86-5bb3-2f49-8ed0-0996e2db6981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846210534153*^9, 3.991846213941681*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 926, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992126436610508*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"b238244e-a1c6-6442-88d9-6a5c529a2ea6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 927, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.9921264366574535`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0eb0ab96-b391-024f-9c1f-a2d64a3dccb5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 928, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.9921264366773987`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d5ed2796-3209-9944-8565-d6332b08f6ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 929, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992126436698456*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"c5f4f7ca-b08c-c848-9381-10591edc148b"], + +Cell[BoxData["1.4309378172313763`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.992126448497612*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"ddef88b5-d1a2-194e-8764-47da954e6339"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846217504902*^9, 3.991846220659443*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 930, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264485864964`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c41958a9-1e38-cd42-9ce6-6a9dfc5c186f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 931, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264486165905`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"098c9199-d97e-5346-9b1a-8033ecb73865"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 932, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.992126448641594*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3850bc34-a5f2-6f4b-809c-ba3120e8a5d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 933, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264486595955`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"5999f431-a62d-0c49-87ed-911d90a16e13"], + +Cell[BoxData["26.863149134681333`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.992126459638359*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"a149ac3f-0655-1f43-82da-34362fb754e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462258948135`*^9, 3.9918462291469593`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 934, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264597763977`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c9329f86-045d-6a41-9332-2c0d5097aea0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 935, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.99212645980937*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"e5c10c2d-30ce-bc40-a1d8-cbb18e1963bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 936, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264598263626`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"159a6a81-ad3b-014a-b67f-29ea097d2797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 937, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264598443546`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"30dfb4d0-1c71-e242-a02c-5a49be503483"], + +Cell[BoxData["11.430468631128104`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.992126469324089*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"03eaf7af-0cb0-2c44-a02c-abb0e12d0243"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, 3.991846236994051*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], + +Cell[BoxData["0.08166017040335423`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.9921264693912354`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"5f31b3c7-23d0-6040-9d81-08d2e6fc8c43"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["21.867116672252532`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9921264694207687`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"c8856762-b05e-664e-81da-0a3f30ee6b4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.9995043373561299`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.992126469435663*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"63141c66-17fc-3a4c-ae91-9eebad52febc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["43.723394631641476`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.9921264694498367`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3ef2b44b-f892-ff48-9315-d92af2cc8d1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.0070350308506555445`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.9921264694701633`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"c238d73c-27f6-a449-8c2e-e6687feed257"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["10.566032386745235`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.992126469727127*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"e9f32580-1adf-4742-98a8-5cd7d92a474b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.014238381705134136`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.9921264697594566`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"03cc3e31-4429-9247-a562-34efd5f42ae0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.427020539819797`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9921264699680214`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"33246853-54d9-6d41-8d0e-719091b2ed3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.99212647000947*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"952ec08a-fdcd-9c47-aa54-49132d327b49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.992126470032646*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"b37ed3f6-488e-db45-b507-d91ea6ebbab1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.992126470057644*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"23650272-004e-8d45-a904-fa55e03a9dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846260820032*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 938, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921264701246433`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"384614e4-1585-de4e-bd42-13cb5dd957df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 939, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99212647014674*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6674553a-661d-6b44-b8d2-e65e638b7b41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 940, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992126470164751*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"1d4744bf-5173-9d48-bb15-852f40d3174d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 941, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992126470182741*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"935d7895-4d61-c248-a582-8648f8679c12"], + +Cell[BoxData["10.566032386745244`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.992126477619892*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"8848f211-1d94-7d4f-8355-477dc70c7fd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846268674473*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 942, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264777931614`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"ecc71c69-b26b-254d-9174-718e4de8e961"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 943, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.992126477830059*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"435ae24f-8020-b649-bd6a-b66d42eeff0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 944, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264778460636`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b1a08edc-bb1e-8c47-a82a-d7d186e410b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 945, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264778640537`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"3f2926e1-c22a-7b4b-ab18-5f34fd75c9d9"], + +Cell[BoxData["7.4270205398197895`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.992126485191698*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"26edd716-985d-7649-b267-e666e7d8808f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918462728234997`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8894799674455305, + 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8894799674455305, + 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8894799674455305, 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8894799674455325}, + 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]], + ImagePadding->All, + 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" -> A\ +bsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8894799674455305, 1.1213997817904926`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9, 3.9921270942178535`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"7f87d733-150e-1042-b860-78b7fb2b06e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846277689621*^9}, + CellLabel-> + "In[141]:=",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.006397650975132`*^-280\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 946, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270945865097`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"edab1838-e2c8-204e-adfc-834fce377da5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.641652245918893`*^-293\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 947, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270946085224`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"fc785ec1-71eb-164b-a00a-54afb54c6286"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3921812479278223`*^-306\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 948, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992127094628418*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"32b7ace4-e30e-644c-a5be-30a7d1062080"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 949, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270946455097`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"d87f9d91-35b8-1342-bcc4-42de9edde7aa"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.07194502322629517}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9, 3.992127609657795*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"7011dccc-e2d1-9b4f-9c60-bbdf8a6f7004"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.07194502322629517}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921276097938023`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"fa5f8941-1d61-0e4d-a082-5eef6b8bf7b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.934068699685951`*^-183\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 950, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992127609910677*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"d5211864-c5b7-704c-9ddf-8261fe243798"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3453014841305455`*^-186\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 951, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099286537`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a07dbd08-99bb-0a45-855a-d28958512a9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0499075335943276`*^-190\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 952, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099457474`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"209e2588-fe8e-4545-a28e-0171f2b30b4e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 953, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099617615`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"897546b7-2efc-cd48-a2c8-35bdf728242e"], + +Cell[BoxData["13.35501843668308`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9921276798170567`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"e31face5-1ec7-b846-b9e0-a1069a7d7dbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184628914184*^9, 3.9918462932986107`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 954, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921276799060745`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c8979d66-3db9-1f4b-89fd-f5b33635060c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 955, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921276799276905`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"0764be87-0c35-9441-bbb4-fcde4475a9fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 956, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992127679950327*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9ad1c381-407f-4343-9739-f9519bf0bdd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 957, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992127679966383*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b85d2551-8b93-ba4e-9904-798d371b3e38"], + +Cell[BoxData["0.1063725243347252`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9921276905428925`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"7572dae7-9073-3242-9916-5afbcefef2fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462963096733`*^9, 3.991846299126808*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 958, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690639988*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"16f35669-dc0f-ca46-a314-5b8246613e72"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 959, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690668991*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bb240544-02f2-ca42-9bb4-ce727b9d4b83"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 960, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921276906919384`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f7c521db-9fcd-8d43-8124-e93bb900e618"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 961, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690707983*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c2d9131a-0554-944c-8919-447498e86e5a"], + +Cell[BoxData["30.504747052040845`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9921277009377155`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"bbaa708d-88c2-4948-bcf9-4edb569086eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846303469427*^9, 3.991846306205721*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 962, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921277010416164`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"88ec87c7-bce5-3841-bd4d-eb3882d41f76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 963, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.992127701062725*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"5a4b712e-899c-b94b-9846-fcd9df68f58f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 964, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.992127701085615*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"cd37bfcb-b8f4-7f45-ae8f-c862c6a025c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 965, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921277011057205`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"301fbef2-ad3a-684d-9c2c-17be03fab629"], + +Cell[BoxData["15.072066548487765`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.992127708657654*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"33d64f78-2e92-0c49-8a9d-37a41d5a1b6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, 3.991846313322897*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], + +Cell[BoxData["0.004960887175393437`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.992127708730072*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"bf2cbee9-9b2b-9548-b69e-9b38f98a67d4"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"51e1ee3b-1506-2142-ada4-49148beae057"], +Cell[1031, 31, 356, 5, 32, "Output",ExpressionUUID->"ec2b1cc1-84f6-d844-9c4d-a0c1622e7d43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 28, "Input",ExpressionUUID->"9a1e6247-d6ef-d041-a217-04fe824aeedf"], +Cell[1773, 48, 431, 6, 32, "Output",ExpressionUUID->"e2e47008-48c2-1046-af97-35aee60d9198"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2241, 59, 253, 5, 28, "Input",ExpressionUUID->"b1981f79-e30c-0f46-bc08-bc23f24386b0"], +Cell[2497, 66, 430, 6, 32, "Output",ExpressionUUID->"5a70f56e-dcfa-984c-b6e6-07f4ddb7cc4b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2964, 77, 175, 3, 28, "Input",ExpressionUUID->"2cf4b208-12a6-2d43-9458-3ba8417cd31d"], +Cell[3142, 82, 401, 6, 32, "Output",ExpressionUUID->"5804ddab-2638-1c43-9156-f9674592d854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3580, 93, 257, 7, 43, "Input",ExpressionUUID->"44509503-dcd5-9b43-ae6b-657d6ac1a4f3"], +Cell[3840, 102, 412, 6, 32, "Output",ExpressionUUID->"8a6eeb7c-6433-1d47-8e60-4ec266ab2f57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4289, 113, 131, 2, 28, "Input",ExpressionUUID->"5c080ea3-32bb-6249-a84c-4d97dd3d3662"], +Cell[4423, 117, 405, 6, 32, "Output",ExpressionUUID->"7f18923b-040c-3545-b655-8601c2a7d2e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4865, 128, 276, 6, 28, "Input",ExpressionUUID->"5630ec94-a3e3-0543-8c94-ad813bf68fd8"], +Cell[5144, 136, 420, 6, 32, "Output",ExpressionUUID->"9d1479c1-8d44-a14e-879e-2c2b78a318a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5601, 147, 257, 7, 28, "Input",ExpressionUUID->"cab53dc3-45b4-d741-b47a-f58de81d260f"], +Cell[5861, 156, 418, 6, 32, "Output",ExpressionUUID->"5f22ef26-0302-ba44-abfc-e9ba76d754d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6316, 167, 236, 4, 28, "Input",ExpressionUUID->"eb13a85a-c251-344e-98f5-49628a713293"], +Cell[6555, 173, 440, 6, 32, "Output",ExpressionUUID->"9fa98580-3426-7648-8f2c-6bbdf66c3739"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7032, 184, 236, 4, 28, "Input",ExpressionUUID->"b7aa99cf-e8e0-2646-9000-f47826a5fa8c"], +Cell[7271, 190, 440, 6, 32, "Output",ExpressionUUID->"ee5f1c98-d9f1-7f4b-8d88-dbf62acebd4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7748, 201, 129, 2, 28, "Input",ExpressionUUID->"9a43e466-eb20-c349-aad0-f7d9399eabc4"], +Cell[7880, 205, 402, 6, 32, "Output",ExpressionUUID->"095ee166-2c94-074c-8c87-575f1f82cc4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8319, 216, 129, 2, 28, "Input",ExpressionUUID->"8924849f-4efb-3441-8ea9-a8131ad1b117"], +Cell[8451, 220, 397, 6, 32, "Output",ExpressionUUID->"0a271413-9305-9a43-a968-96aebff6dc78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8885, 231, 557, 19, 79, "Input",ExpressionUUID->"c8a986cd-c226-6845-b1ed-f25d53b15276"], +Cell[9445, 252, 398, 6, 32, "Output",ExpressionUUID->"517d52f4-d5a3-674b-bc64-0037d9999e72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9880, 263, 557, 19, 79, "Input",ExpressionUUID->"61e96f72-be15-2348-902e-b95bef1b0970"], +Cell[10440, 284, 402, 6, 32, "Output",ExpressionUUID->"1e5daa67-0d5f-1c44-b14f-fc7302bdda06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10879, 295, 1492, 48, 80, "Input",ExpressionUUID->"6c8db003-b459-1046-8b0d-aacf7bcf5e64"], +Cell[12374, 345, 396, 6, 32, "Output",ExpressionUUID->"86e8e71e-2f9c-5948-8dd4-0c011671075b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12807, 356, 1331, 44, 80, "Input",ExpressionUUID->"c0d9835e-ba01-d644-a425-af04f76c79f9"], +Cell[14141, 402, 414, 7, 32, "Output",ExpressionUUID->"3d033d3e-75d6-664e-b11b-86b5fbeccb3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14592, 414, 1331, 44, 80, "Input",ExpressionUUID->"822bd092-10b9-364b-ac38-0c8ef3850844"], +Cell[15926, 460, 421, 7, 32, "Output",ExpressionUUID->"03197a32-9eec-b740-abd6-081bb36095de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16384, 472, 1492, 48, 80, "Input",ExpressionUUID->"61086478-44f3-9142-816e-4d817646b2bb"], +Cell[17879, 522, 390, 6, 32, "Output",ExpressionUUID->"1cacd460-055d-8146-a728-16fff0275ec5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18306, 533, 131, 2, 28, "Input",ExpressionUUID->"36bbc0e0-8c8a-f14c-9773-382765630ba0"], +Cell[18440, 537, 380, 6, 32, "Output",ExpressionUUID->"aa6fd636-7066-c049-bf62-c94331f0c273"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18857, 548, 177, 3, 28, "Input",ExpressionUUID->"51619abf-47d4-9b4b-aa7f-ed8e6b2189e2"], +Cell[19037, 553, 380, 6, 32, "Output",ExpressionUUID->"562ae0ff-76e2-f342-9dde-226cca7fa091"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19454, 564, 134, 2, 28, "Input",ExpressionUUID->"e8ab3625-4c98-ff41-bd2a-4380cabf35bd"], +Cell[19591, 568, 385, 6, 32, "Output",ExpressionUUID->"0bd0faad-c762-ee47-a10d-0a8207f9bd70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20013, 579, 219, 4, 28, "Input",ExpressionUUID->"3e9e91c8-ecd3-7547-9f08-c67c9d54935c"], +Cell[20235, 585, 391, 7, 32, "Output",ExpressionUUID->"824dddfa-469d-a147-9f5f-69ca7c28146b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20663, 597, 134, 2, 28, "Input",ExpressionUUID->"13f6143e-a294-1a44-8481-e8ec0c34082c"], +Cell[20800, 601, 384, 6, 32, "Output",ExpressionUUID->"8c8f3fb4-9c88-e04c-95e3-fc1cb2a839ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21221, 612, 302, 5, 28, "Input",ExpressionUUID->"1e64de56-807e-5f48-9109-aae8f8179740"], +Cell[21526, 619, 328, 5, 32, "Output",ExpressionUUID->"88789b77-20e9-e547-9ac1-8b4f6eee86ed"] +}, Open ]], +Cell[21869, 627, 173, 2, 22, "Input",ExpressionUUID->"12c1abcb-3110-5541-9b35-702e2880e2ed"], +Cell[CellGroupData[{ +Cell[22067, 633, 296, 5, 28, "Input",ExpressionUUID->"82665774-5610-794b-9343-af19ebbf36d7"], +Cell[22366, 640, 377, 6, 32, "Output",ExpressionUUID->"0f0e6ea5-9498-134c-9df5-4e5c6c4adc5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22780, 651, 219, 4, 28, "Input",ExpressionUUID->"43d368ca-7cc5-cb47-a72e-72a16a3eeb08"], +Cell[23002, 657, 379, 6, 32, "Output",ExpressionUUID->"dc34ae61-8d75-2f4e-a4de-aec991074b77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23418, 668, 350, 10, 43, "Input",ExpressionUUID->"69631857-3e93-8f48-962b-d79e311ee489"], +Cell[23771, 680, 397, 6, 32, "Output",ExpressionUUID->"c4f8c635-3fc0-4346-ac40-ae13389869a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24205, 691, 350, 10, 43, "Input",ExpressionUUID->"c2b5dd01-b270-3440-b344-4e3f7685886d"], +Cell[24558, 703, 408, 7, 32, "Output",ExpressionUUID->"fd2fa645-9d8a-3549-89aa-934d28b30b2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25003, 715, 992, 26, 113, "Input",ExpressionUUID->"42e9fe7c-3531-db43-b44b-753d7b09e6e8"], +Cell[25998, 743, 400, 6, 32, "Output",ExpressionUUID->"6c642156-09e3-a64d-ae2d-c4f4942435dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26435, 754, 199, 3, 28, "Input",ExpressionUUID->"15232d79-b562-2743-b703-c588fe35ef64"], +Cell[26637, 759, 384, 6, 32, "Output",ExpressionUUID->"dfda3edd-1093-4b4c-909f-188be4f12aba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27058, 770, 275, 4, 28, "Input",ExpressionUUID->"f397495f-3be4-2d45-8dc9-e47bce79df5e"], +Cell[27336, 776, 339, 5, 32, "Output",ExpressionUUID->"e758d57d-3b48-8c4a-b76b-e479470520db"] +}, Open ]], +Cell[27690, 784, 175, 2, 22, "Input",ExpressionUUID->"924aa44e-e680-714d-bc09-d33df054cfe8"], +Cell[CellGroupData[{ +Cell[27890, 790, 323, 5, 28, "Input",ExpressionUUID->"fd53a751-2574-9543-8d06-c3063423da3a"], +Cell[28216, 797, 337, 5, 32, "Output",ExpressionUUID->"eca98b90-302c-4449-a341-650cab59bd04"] +}, Open ]], +Cell[28568, 805, 173, 2, 22, "Input",ExpressionUUID->"4dbd4d7e-b600-9d42-9e69-07e52d42665d"], +Cell[CellGroupData[{ +Cell[28766, 811, 343, 6, 47, "Input",ExpressionUUID->"3539c2af-4482-0546-9f46-a3fc5627e0fe"], +Cell[29112, 819, 331, 5, 32, "Output",ExpressionUUID->"671c551e-a9b7-2140-880f-7973ee2106a7"] +}, Open ]], +Cell[29458, 827, 175, 2, 22, "Input",ExpressionUUID->"463df9d5-d39e-4648-8f37-4249afa5e486"], +Cell[CellGroupData[{ +Cell[29658, 833, 347, 6, 47, "Input",ExpressionUUID->"5f5a763c-a957-644f-8e0d-38698f3fd1f6"], +Cell[30008, 841, 337, 5, 32, "Output",ExpressionUUID->"4ace6427-95ef-d04f-a3a6-1ddd7c43acd6"] +}, Open ]], +Cell[30360, 849, 175, 2, 22, "Input",ExpressionUUID->"17a6622d-2b65-6644-b343-e379f6f7d132"], +Cell[CellGroupData[{ +Cell[30560, 855, 273, 4, 28, "Input",ExpressionUUID->"fae08226-5d13-2f40-8b87-bce8d385afcc"], +Cell[30836, 861, 329, 5, 32, "Output",ExpressionUUID->"3f4809f7-5e31-bc46-be9a-e7fc9a8e7128"] +}, Open ]], +Cell[31180, 869, 173, 2, 22, "Input",ExpressionUUID->"3731ab86-9ed6-0f4b-9170-2e63032d3966"], +Cell[CellGroupData[{ +Cell[31378, 875, 277, 4, 28, "Input",ExpressionUUID->"ddbf80bb-8754-d74d-bcd8-15b09ab81fba"], +Cell[31658, 881, 334, 5, 32, "Output",ExpressionUUID->"e40e10c1-07df-824e-b5c2-da141b7c50ec"] +}, Open ]], +Cell[32007, 889, 171, 2, 22, "Input",ExpressionUUID->"a5684cf8-f643-4344-ab61-217cc4468b84"], +Cell[CellGroupData[{ +Cell[32203, 895, 325, 6, 47, "Input",ExpressionUUID->"c6e6adfa-b3db-aa45-854a-05917a15c0ab"], +Cell[32531, 903, 326, 5, 32, "Output",ExpressionUUID->"65a56fcc-c8e3-6b4c-88db-4a6447466691"] +}, Open ]], +Cell[32872, 911, 175, 2, 22, "Input",ExpressionUUID->"1e2435eb-4249-7e41-81f4-31171b52cb70"], +Cell[CellGroupData[{ +Cell[33072, 917, 270, 5, 47, "Input",ExpressionUUID->"7b318c34-83e9-604a-a9b2-7f6629abfa5e"], +Cell[33345, 924, 328, 5, 32, "Output",ExpressionUUID->"ef154d48-dae1-ca40-8c8c-811ec46ecb91"] +}, Open ]], +Cell[33688, 932, 171, 2, 22, "Input",ExpressionUUID->"3a2429fb-bb8b-9d4f-b030-479fc57cb517"], +Cell[CellGroupData[{ +Cell[33884, 938, 19809, 485, 2217, "Input",ExpressionUUID->"4ee1e263-49b4-bf40-a4a9-882d032c6916"], +Cell[53696, 1425, 390, 6, 32, "Output",ExpressionUUID->"c5471fee-11ae-5148-bd4a-d2a262e9e91b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54123, 1436, 19748, 489, 2216, "Input",ExpressionUUID->"d023b0f4-8dd6-4a49-9024-9a69501357ce"], +Cell[73874, 1927, 397, 6, 32, "Output",ExpressionUUID->"364258f2-2fae-eb49-b67e-551fb2294f9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74308, 1938, 19748, 483, 2216, "Input",ExpressionUUID->"b2731a76-acd3-8241-b9c8-3635cc882723"], +Cell[94059, 2423, 413, 7, 32, "Output",ExpressionUUID->"6acf89d2-eadb-fa4d-a479-e1743000b48e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94509, 2435, 22534, 553, 2523, "Input",ExpressionUUID->"63750d53-5152-cf41-9a77-f56920963875"], +Cell[117046, 2990, 413, 7, 32, "Output",ExpressionUUID->"abfd65cc-a96d-a442-883b-03d29641587f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117496, 3002, 22535, 553, 2523, "Input",ExpressionUUID->"30b656fb-53e6-4a45-b82d-938a5e8b7bf5"], +Cell[140034, 3557, 411, 7, 32, "Output",ExpressionUUID->"686e733b-5aef-214d-a950-9d27ce005fe2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140482, 3569, 25491, 626, 2830, "Input",ExpressionUUID->"87579211-75ea-2d43-aff0-8fdd1be0f6b1"], +Cell[165976, 4197, 408, 7, 32, "Output",ExpressionUUID->"6eebbbe6-2b6c-e941-b95d-61abacb0bfd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166421, 4209, 130, 2, 28, "Input",ExpressionUUID->"57172bc7-7934-2d44-9f21-47e3571cc6dc"], +Cell[166554, 4213, 380, 6, 32, "Output",ExpressionUUID->"3849a70b-bacd-4245-8d61-eb0a1c1e5087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166971, 4224, 130, 2, 28, "Input",ExpressionUUID->"c109df64-296c-584f-9343-3947e57e041c"], +Cell[167104, 4228, 376, 6, 32, "Output",ExpressionUUID->"1d3b01c5-7ed8-9948-9945-16a918a385e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167517, 4239, 1144, 39, 110, "Input",ExpressionUUID->"45d48833-509e-944c-808a-1d89fec3f581"], +Cell[168664, 4280, 397, 6, 32, "Output",ExpressionUUID->"26ce41cb-a131-4e43-ae90-9f96e9d7f468"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169098, 4291, 1041, 35, 110, "Input",ExpressionUUID->"ea6a429f-2646-2c40-8688-b02a128db931"], +Cell[170142, 4328, 409, 7, 32, "Output",ExpressionUUID->"a13b0229-5a9a-6647-bedd-7fc5c5670142"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170588, 4340, 1144, 39, 110, "Input",ExpressionUUID->"2bfc48a8-dedc-aa4f-a2b7-ca795070780e"], +Cell[171735, 4381, 400, 6, 32, "Output",ExpressionUUID->"3bbc144e-f838-ba40-a511-016c6ebfd9bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172172, 4392, 108, 1, 28, "Input",ExpressionUUID->"930aa359-1419-634d-979d-3cfbf13740c9"], +Cell[172283, 4395, 394, 6, 32, "Output",ExpressionUUID->"98ad5379-f1b7-b348-a4a3-19f3a5e0b1be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172714, 4406, 108, 1, 28, "Input",ExpressionUUID->"6cdbd642-1293-c94e-8040-d9a4b21f4986"], +Cell[172825, 4409, 413, 7, 32, "Output",ExpressionUUID->"b6447702-69ac-1c42-befb-46a813553c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173275, 4421, 108, 1, 28, "Input",ExpressionUUID->"90c1cd94-63bf-f14d-8aa6-fa016f974c6e"], +Cell[173386, 4424, 415, 7, 32, "Output",ExpressionUUID->"db2baff8-021c-f347-b2ce-64538e683180"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173838, 4436, 108, 1, 28, "Input",ExpressionUUID->"97b297c6-20ce-dd4e-b240-af5fb4a06ed9"], +Cell[173949, 4439, 398, 6, 32, "Output",ExpressionUUID->"cd64b7ff-4d01-b44b-a034-6bec5cfecd84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174384, 4450, 107, 1, 28, "Input",ExpressionUUID->"8b178920-0a22-3248-a51a-25018db09dee"], +Cell[174494, 4453, 391, 6, 32, "Output",ExpressionUUID->"28a6bcdd-7bcc-a749-8b93-037e3fe89d29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174922, 4464, 107, 1, 28, "Input",ExpressionUUID->"a9f46b26-b963-0945-a122-8f47cdddee9f"], +Cell[175032, 4467, 395, 6, 32, "Output",ExpressionUUID->"cd9b107a-7d16-0941-b645-a33c7452273e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175464, 4478, 497, 16, 56, "Input",ExpressionUUID->"c4460c85-e9e9-5b47-b4b5-8a120c4f5d4d"], +Cell[175964, 4496, 409, 7, 32, "Output",ExpressionUUID->"cb554bce-4e74-d941-baab-e8a373c1d4b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176410, 4508, 497, 16, 56, "Input",ExpressionUUID->"6f52c35a-72c0-6a40-a4de-1fe66e6b12b6"], +Cell[176910, 4526, 414, 7, 32, "Output",ExpressionUUID->"3c2dd5c3-b45e-3744-91a6-29d83c81c30a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177361, 4538, 1788, 60, 188, "Input",ExpressionUUID->"5f84d9a8-b5ba-ec45-a21d-742f1c6fd667"], +Cell[179152, 4600, 395, 6, 32, "Output",ExpressionUUID->"14188b91-5685-c94d-a441-f8f0851bb3b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179584, 4611, 1101, 36, 133, "Input",ExpressionUUID->"dc0e6255-0d47-9f4a-a7a1-2f5cd2b1f9a8"], +Cell[180688, 4649, 412, 7, 32, "Output",ExpressionUUID->"1d54019e-45a8-de4a-b463-f2c3d5e5e99e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181137, 4661, 1818, 61, 165, "Input",ExpressionUUID->"6d7e267b-31be-5647-9506-8d23d7f1a57b"], +Cell[182958, 4724, 395, 6, 32, "Output",ExpressionUUID->"44b31ed4-1d5a-174b-b417-7df2e572f4b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183390, 4735, 2499, 77, 133, "Input",ExpressionUUID->"b088688f-c895-ba45-9000-5cd0b7365a87"], +Cell[185892, 4814, 397, 6, 32, "Output",ExpressionUUID->"1ccd1393-5194-8b48-b534-c651e848bbc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186326, 4825, 2499, 77, 133, "Input",ExpressionUUID->"709eaad5-e0c3-244a-b98d-7cf0c2e9d765"], +Cell[188828, 4904, 389, 6, 32, "Output",ExpressionUUID->"e80bb094-ff67-5e41-a766-4026ef44ee45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189254, 4915, 210, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[189467, 4920, 168, 2, 32, "Output",ExpressionUUID->"638a6b29-5864-914f-8009-d2d295617a6b"] +}, Open ]], +Cell[189650, 4925, 173, 2, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[CellGroupData[{ +Cell[189848, 4931, 211, 3, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[190062, 4936, 168, 2, 32, "Output",ExpressionUUID->"6102c73e-4b77-1549-9278-57347a920caf"] +}, Open ]], +Cell[190245, 4941, 171, 2, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[190441, 4947, 1297, 42, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[191741, 4991, 197, 2, 32, "Output",ExpressionUUID->"8076c605-08bc-6c46-9008-0f94ad030692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191975, 4998, 931, 29, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[192909, 5029, 194, 2, 32, "Output",ExpressionUUID->"080b1d35-8854-a048-a706-0b6b144aab53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193140, 5036, 983, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[194126, 5070, 197, 2, 32, "Output",ExpressionUUID->"fa85162e-36ad-7140-a057-29cf420249c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194360, 5077, 554, 18, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[194917, 5097, 191, 2, 32, "Output",ExpressionUUID->"02f9f95c-cf7c-9d4e-a5e8-c8b44d34ce29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195145, 5104, 619, 20, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[195767, 5126, 189, 2, 32, "Output",ExpressionUUID->"af72a712-0f97-7449-8d3d-1e978d6219f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195993, 5133, 166, 4, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[196162, 5139, 193, 2, 32, "Output",ExpressionUUID->"54d6e7d4-e392-d248-9770-173549363c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196392, 5146, 166, 4, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[196561, 5152, 187, 2, 32, "Output",ExpressionUUID->"e197485c-ffd1-ea46-97de-368fe564603d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196785, 5159, 177, 4, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[196965, 5165, 191, 2, 32, "Output",ExpressionUUID->"90f969a5-c51d-f847-827f-9e8c9a8dcaea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197193, 5172, 177, 4, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[197373, 5178, 193, 2, 32, "Output",ExpressionUUID->"88f8bc53-3e5f-fa43-8217-70583ca4d1e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197603, 5185, 6051, 184, 491, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[203657, 5371, 193, 2, 32, "Output",ExpressionUUID->"ff9c23e8-354d-2a4d-9a32-a66716583f70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203887, 5378, 364, 8, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[204254, 5388, 191, 2, 32, "Output",ExpressionUUID->"cfb87130-3ad2-304c-b3d5-862495422509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204482, 5395, 6118, 186, 512, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[210603, 5583, 192, 2, 32, "Output",ExpressionUUID->"fb7c9eae-d8fc-c441-998e-c8f3ccc7f57a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210832, 5590, 364, 8, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[211199, 5600, 192, 2, 32, "Output",ExpressionUUID->"e43fcc6b-9b8f-c34d-8ab9-4e9938574f85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211428, 5607, 2659, 87, 165, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[214090, 5696, 194, 2, 32, "Output",ExpressionUUID->"1a1983ff-a439-ab44-8789-c549ec9b262b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214321, 5703, 2599, 84, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[216923, 5789, 189, 2, 32, "Output",ExpressionUUID->"e8e4862a-1e51-0f47-b167-66dc1c71b562"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217149, 5796, 3708, 117, 294, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[220860, 5915, 194, 2, 32, "Output",ExpressionUUID->"10359d70-3999-e74f-acf1-2edd1fe8b009"] +}, Open ]], +Cell[221069, 5920, 160, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[221254, 5927, 2071, 58, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[223328, 5987, 576, 12, 66, "Message",ExpressionUUID->"2e4ca3f2-d33f-154c-bc26-821a4b280c57"], +Cell[223907, 6001, 582, 12, 66, "Message",ExpressionUUID->"a39674e9-c4f8-9141-b86e-c079c1d58bc6"], +Cell[224492, 6015, 583, 12, 66, "Message",ExpressionUUID->"a515df5a-5c17-b646-b329-6a72d919e6d1"], +Cell[225078, 6029, 480, 10, 26, "Message",ExpressionUUID->"4f51a0a9-79ef-d844-a67f-287b6f8484a3"], +Cell[225561, 6041, 190, 2, 32, "Output",ExpressionUUID->"10366214-e92c-4a4f-ac64-c685c92ad67a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225788, 6048, 2073, 58, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[227864, 6108, 578, 12, 66, "Message",ExpressionUUID->"0fb69354-c371-1745-a1c8-c904afc829c8"], +Cell[228445, 6122, 580, 12, 66, "Message",ExpressionUUID->"6dca8854-c61c-3949-98e1-2e4ef2bf2d4f"], +Cell[229028, 6136, 585, 12, 66, "Message",ExpressionUUID->"1c57ecff-3c5b-3242-9068-fd3214ccd556"], +Cell[229616, 6150, 478, 10, 26, "Message",ExpressionUUID->"4b13eeec-8db9-594b-a2ab-f537dbf1b163"], +Cell[230097, 6162, 190, 2, 32, "Output",ExpressionUUID->"79c727d5-8d14-fd44-9708-b275327f8e53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230324, 6169, 1955, 52, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[232282, 6223, 20316, 380, 237, "Output",ExpressionUUID->"5a3382f4-9f8a-bb4a-a67c-4b0288429337"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252635, 6608, 2137, 59, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[254775, 6669, 517, 11, 60, "Message",ExpressionUUID->"872e7c16-901b-0647-8868-984caa4a1bf7"], +Cell[255295, 6682, 523, 11, 60, "Message",ExpressionUUID->"5f1fb2c6-4228-eb46-9dc5-ae28c376d872"], +Cell[255821, 6695, 524, 11, 60, "Message",ExpressionUUID->"bc5a06d9-dd5c-7a49-9294-36e8b1e41b80"], +Cell[256348, 6708, 475, 10, 26, "Message",ExpressionUUID->"629c076e-1cb1-9a4d-b997-a61cff5cfb8d"], +Cell[256826, 6720, 22553, 414, 233, "Output",ExpressionUUID->"5c16b638-e912-e347-bb80-e40d3e392a2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279416, 7139, 1859, 50, 120, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[281278, 7191, 8995, 209, 241, "Output",ExpressionUUID->"c87c3822-f8ef-b841-a9f9-258e2c7f8223"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290310, 7405, 276, 5, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[290589, 7412, 28512, 538, 233, "Output",ExpressionUUID->"ca6a27f2-e363-894a-a030-c07dc233af3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319138, 7955, 234, 6, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[319375, 7963, 191, 2, 32, "Output",ExpressionUUID->"f9b9a3d6-345c-514f-bfc0-2318aebff7d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319603, 7970, 1837, 53, 156, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[321443, 8025, 528, 11, 60, "Message",ExpressionUUID->"80a5b597-3c03-754c-bcbe-34458286b68e"], +Cell[321974, 8038, 531, 11, 60, "Message",ExpressionUUID->"2de6819f-78ef-c349-9e7a-cf907965a0a0"], +Cell[322508, 8051, 529, 11, 60, "Message",ExpressionUUID->"f1c547dc-697e-694e-93f0-d100bcc31e77"], +Cell[323040, 8064, 477, 10, 26, "Message",ExpressionUUID->"3a58558b-4e57-1b43-b80e-3c97d1b35f87"], +Cell[323520, 8076, 22112, 409, 238, "Output",ExpressionUUID->"fb6d53fb-f8ae-7b41-9a94-72761a5670cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345669, 8490, 1616, 48, 106, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[347288, 8540, 615, 12, 85, "Message",ExpressionUUID->"bbfb9d42-e45a-5d43-aec3-90cd6a1372b2"], +Cell[347906, 8554, 614, 12, 85, "Message",ExpressionUUID->"40269fe9-13cb-1341-8017-8f3f0c723a4c"], +Cell[348523, 8568, 617, 12, 85, "Message",ExpressionUUID->"b77a3845-b1af-c14b-9912-81d30675142e"], +Cell[349143, 8582, 480, 10, 26, "Message",ExpressionUUID->"e9e3ac3c-3418-774d-92cc-9ed202ad8ef2"], +Cell[349626, 8594, 193, 3, 32, "Output",ExpressionUUID->"141c5be7-8c8a-da45-bd6d-decbdafaa7fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349856, 8602, 2272, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[352131, 8668, 575, 12, 66, "Message",ExpressionUUID->"6e4818f4-1248-9549-ba8e-addc0d0d2046"], +Cell[352709, 8682, 582, 12, 66, "Message",ExpressionUUID->"44b07bad-27a9-614e-9e07-8a49093a044e"], +Cell[353294, 8696, 585, 12, 66, "Message",ExpressionUUID->"8781683c-bc28-0d41-b472-1b93da651374"], +Cell[353882, 8710, 480, 10, 26, "Message",ExpressionUUID->"c4896610-9cab-6b49-ad86-04c8a69c01e4"], +Cell[354365, 8722, 193, 3, 32, "Output",ExpressionUUID->"f6d33b40-d7cc-894e-824e-fe26bbd52f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354595, 8730, 2244, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[356842, 8796, 578, 12, 66, "Message",ExpressionUUID->"87d18dc9-16e8-6a41-b604-9492ac551854"], +Cell[357423, 8810, 580, 12, 66, "Message",ExpressionUUID->"9ef22a08-0315-9844-a0ee-7fbfd8fb3e15"], +Cell[358006, 8824, 585, 12, 66, "Message",ExpressionUUID->"5b17d4bb-242b-4842-b1eb-b2195f668b1d"], +Cell[358594, 8838, 480, 10, 26, "Message",ExpressionUUID->"ea74cff4-3654-cc41-b08b-547a4ce6b891"], +Cell[359077, 8850, 195, 3, 32, "Output",ExpressionUUID->"303c1110-0d55-9649-8d09-9e96681e479d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359309, 8858, 2242, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[361554, 8924, 578, 12, 66, "Message",ExpressionUUID->"ec2a1d33-796d-1a4f-a99f-18faa89af8f2"], +Cell[362135, 8938, 584, 12, 66, "Message",ExpressionUUID->"968ce380-63fe-da42-9d09-27cea9ed9413"], +Cell[362722, 8952, 585, 12, 66, "Message",ExpressionUUID->"13c17ddb-e755-4d45-bdda-2a03f506a9c6"], +Cell[363310, 8966, 480, 10, 26, "Message",ExpressionUUID->"72bbfb2c-fe18-2645-ad41-c5e450741d01"], +Cell[363793, 8978, 195, 3, 32, "Output",ExpressionUUID->"17eb7b4a-ad36-ae42-9634-ad7eb9c1e565"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364025, 8986, 236, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[364264, 8994, 194, 3, 32, "Output",ExpressionUUID->"44b7c31b-b17d-d64c-a84e-668fae7bb60b"] +}, Open ]], +Cell[364473, 9000, 273, 6, 70, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[364771, 9010, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[365332, 9031, 194, 3, 32, "Output",ExpressionUUID->"b8acaa68-3b44-6343-a4d0-1ad35bbeb4ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365563, 9039, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[365736, 9046, 194, 3, 32, "Output",ExpressionUUID->"442fd59b-d5bd-d342-9fe5-35a97d3ca38a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365967, 9054, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[366151, 9061, 197, 3, 32, "Output",ExpressionUUID->"2511195b-719e-6848-bc8e-639037dd2f43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366385, 9069, 6055, 185, 491, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[372443, 9256, 197, 3, 32, "Output",ExpressionUUID->"d849c970-8009-8149-8f6c-454eff1ad3f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372677, 9264, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[373048, 9275, 194, 3, 32, "Output",ExpressionUUID->"8373c32c-b854-7044-959e-cf8efb4ecb02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373279, 9283, 6122, 187, 512, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[379404, 9472, 196, 3, 32, "Output",ExpressionUUID->"41ccbe00-b303-754f-9668-fec3888800cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379637, 9480, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[380008, 9491, 195, 3, 32, "Output",ExpressionUUID->"b5b0bb0e-acb6-9941-9c8d-78e97ea742b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380240, 9499, 2663, 88, 165, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[382906, 9589, 196, 3, 32, "Output",ExpressionUUID->"0b4c4b74-8a09-3f49-81fe-fff5b453bdb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383139, 9597, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[385745, 9684, 195, 3, 32, "Output",ExpressionUUID->"19b400a9-1e26-ed48-a0eb-2345b4395009"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385977, 9692, 3712, 118, 294, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[389692, 9812, 196, 3, 32, "Output",ExpressionUUID->"a31bdfde-ffac-cc42-bc87-09cfc15f713a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389925, 9820, 2075, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[392003, 9881, 581, 12, 66, "Message",ExpressionUUID->"d692952a-9232-1e4f-a1a6-b7c3265f4170"], +Cell[392587, 9895, 586, 12, 66, "Message",ExpressionUUID->"634fb45e-5387-c840-8d53-c5b959596934"], +Cell[393176, 9909, 592, 12, 85, "Message",ExpressionUUID->"b4792b68-b0fe-e940-b63d-4b53a03c6206"], +Cell[393771, 9923, 480, 10, 26, "Message",ExpressionUUID->"e787a2f2-de6a-9b4f-93c3-6cbf33f50a9d"], +Cell[394254, 9935, 194, 3, 32, "Output",ExpressionUUID->"2f77f69d-1883-0d46-8e3f-bf55794e632a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394485, 9943, 2077, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[396565, 10004, 582, 12, 66, "Message",ExpressionUUID->"3b328b74-1dee-1348-b744-1e41a8241f27"], +Cell[397150, 10018, 586, 12, 66, "Message",ExpressionUUID->"9f813110-4a79-6d48-a1d0-ecb6900aefb4"], +Cell[397739, 10032, 590, 12, 85, "Message",ExpressionUUID->"fa325720-d896-d849-a31e-c78aaf9fe132"], +Cell[398332, 10046, 480, 10, 26, "Message",ExpressionUUID->"508b4dab-c6bd-a24f-be6d-fce97436c892"], +Cell[398815, 10058, 192, 3, 32, "Output",ExpressionUUID->"575e33d7-ae0d-5945-8ef4-bc243ee162ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399044, 10066, 2051, 55, 131, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[401098, 10123, 20008, 375, 237, "Output",ExpressionUUID->"dd68e5e3-be98-c546-86f3-57ddf0b63d3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421143, 10503, 2143, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[423289, 10565, 520, 11, 60, "Message",ExpressionUUID->"21516349-23e0-1743-bc77-fa2c2fea8b3b"], +Cell[423812, 10578, 525, 11, 60, "Message",ExpressionUUID->"dd24d7bb-71b8-7c4e-8f18-f73eba1fc3b6"], +Cell[424340, 10591, 528, 11, 60, "Message",ExpressionUUID->"818dcae9-27e4-7446-a529-d0d9eb2c5825"], +Cell[424871, 10604, 482, 10, 26, "Message",ExpressionUUID->"5eb800ed-d170-8d45-9090-460657588ba0"], +Cell[425356, 10616, 21934, 406, 236, "Output",ExpressionUUID->"a132378a-9f95-0943-97fd-8e3988a0194e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447327, 11027, 280, 6, 42, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[447610, 11035, 27949, 531, 236, "Output",ExpressionUUID->"56be564d-7855-cf40-994a-aa9176b0e36d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475596, 11571, 1616, 48, 106, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[477215, 11621, 612, 12, 85, "Message",ExpressionUUID->"7b8718c6-1580-d04a-8cda-09635dc07a50"], +Cell[477830, 11635, 620, 12, 85, "Message",ExpressionUUID->"1d59fcdd-8fc2-dd4f-a705-fc4321f3acfb"], +Cell[478453, 11649, 624, 12, 85, "Message",ExpressionUUID->"a213095b-84e2-aa47-9aef-1e51a0e9a713"], +Cell[479080, 11663, 480, 10, 26, "Message",ExpressionUUID->"7b41f8ea-f093-4a4f-8d6f-f830304f4d53"], +Cell[479563, 11675, 195, 3, 32, "Output",ExpressionUUID->"9feefa86-5bb3-2f49-8ed0-0996e2db6981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479795, 11683, 2270, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[482068, 11749, 584, 12, 66, "Message",ExpressionUUID->"b238244e-a1c6-6442-88d9-6a5c529a2ea6"], +Cell[482655, 11763, 590, 12, 66, "Message",ExpressionUUID->"0eb0ab96-b391-024f-9c1f-a2d64a3dccb5"], +Cell[483248, 11777, 594, 12, 85, "Message",ExpressionUUID->"d5ed2796-3209-9944-8565-d6332b08f6ce"], +Cell[483845, 11791, 480, 10, 26, "Message",ExpressionUUID->"c5f4f7ca-b08c-c848-9381-10591edc148b"], +Cell[484328, 11803, 193, 3, 32, "Output",ExpressionUUID->"ddef88b5-d1a2-194e-8764-47da954e6339"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484558, 11811, 2242, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[486803, 11877, 584, 12, 66, "Message",ExpressionUUID->"c41958a9-1e38-cd42-9ce6-6a9dfc5c186f"], +Cell[487390, 11891, 588, 12, 66, "Message",ExpressionUUID->"098c9199-d97e-5346-9b1a-8033ecb73865"], +Cell[487981, 11905, 590, 12, 85, "Message",ExpressionUUID->"3850bc34-a5f2-6f4b-809c-ba3120e8a5d4"], +Cell[488574, 11919, 480, 10, 26, "Message",ExpressionUUID->"5999f431-a62d-0c49-87ed-911d90a16e13"], +Cell[489057, 11931, 195, 3, 32, "Output",ExpressionUUID->"a149ac3f-0655-1f43-82da-34362fb754e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489289, 11939, 2246, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[491538, 12005, 584, 12, 66, "Message",ExpressionUUID->"c9329f86-045d-6a41-9332-2c0d5097aea0"], +Cell[492125, 12019, 585, 12, 66, "Message",ExpressionUUID->"e5c10c2d-30ce-bc40-a1d8-cbb18e1963bf"], +Cell[492713, 12033, 592, 12, 85, "Message",ExpressionUUID->"159a6a81-ad3b-014a-b67f-29ea097d2797"], +Cell[493308, 12047, 480, 10, 26, "Message",ExpressionUUID->"30dfb4d0-1c71-e242-a02c-5a49be503483"], +Cell[493791, 12059, 193, 3, 32, "Output",ExpressionUUID->"03eaf7af-0cb0-2c44-a02c-abb0e12d0243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494021, 12067, 236, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[494260, 12075, 198, 3, 32, "Output",ExpressionUUID->"5f31b3c7-23d0-6040-9d81-08d2e6fc8c43"] +}, Open ]], +Cell[494473, 12081, 273, 6, 70, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[494771, 12091, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[495332, 12112, 195, 3, 32, "Output",ExpressionUUID->"c8856762-b05e-664e-81da-0a3f30ee6b4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495564, 12120, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[495737, 12127, 195, 3, 32, "Output",ExpressionUUID->"63141c66-17fc-3a4c-ae91-9eebad52febc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495969, 12135, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[496153, 12142, 197, 3, 32, "Output",ExpressionUUID->"3ef2b44b-f892-ff48-9315-d92af2cc8d1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496387, 12150, 6055, 185, 491, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[502445, 12337, 200, 3, 32, "Output",ExpressionUUID->"c238d73c-27f6-a449-8c2e-e6687feed257"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502682, 12345, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[503053, 12356, 195, 3, 32, "Output",ExpressionUUID->"e9f32580-1adf-4742-98a8-5cd7d92a474b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503285, 12364, 6122, 187, 512, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[509410, 12553, 197, 3, 32, "Output",ExpressionUUID->"03cc3e31-4429-9247-a562-34efd5f42ae0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509644, 12561, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[510015, 12572, 194, 3, 32, "Output",ExpressionUUID->"33246853-54d9-6d41-8d0e-719091b2ed3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510246, 12580, 2663, 88, 165, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[512912, 12670, 195, 3, 32, "Output",ExpressionUUID->"952ec08a-fdcd-9c47-aa54-49132d327b49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513144, 12678, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[515750, 12765, 193, 3, 32, "Output",ExpressionUUID->"b37ed3f6-488e-db45-b507-d91ea6ebbab1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515980, 12773, 3712, 118, 294, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[519695, 12893, 194, 3, 32, "Output",ExpressionUUID->"23650272-004e-8d45-a904-fa55e03a9dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519926, 12901, 2075, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[522004, 12962, 560, 11, 60, "Message",ExpressionUUID->"384614e4-1585-de4e-bd42-13cb5dd957df"], +Cell[522567, 12975, 561, 11, 60, "Message",ExpressionUUID->"6674553a-661d-6b44-b8d2-e65e638b7b41"], +Cell[523131, 12988, 565, 11, 60, "Message",ExpressionUUID->"1d4744bf-5173-9d48-bb15-852f40d3174d"], +Cell[523699, 13001, 480, 10, 26, "Message",ExpressionUUID->"935d7895-4d61-c248-a582-8648f8679c12"], +Cell[524182, 13013, 193, 3, 32, "Output",ExpressionUUID->"8848f211-1d94-7d4f-8355-477dc70c7fd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524412, 13021, 2075, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[526490, 13082, 560, 11, 60, "Message",ExpressionUUID->"ecc71c69-b26b-254d-9174-718e4de8e961"], +Cell[527053, 13095, 562, 11, 60, "Message",ExpressionUUID->"435ae24f-8020-b649-bd6a-b66d42eeff0d"], +Cell[527618, 13108, 567, 11, 60, "Message",ExpressionUUID->"b1a08edc-bb1e-8c47-a82a-d7d186e410b7"], +Cell[528188, 13121, 482, 10, 26, "Message",ExpressionUUID->"3f2926e1-c22a-7b4b-ab18-5f34fd75c9d9"], +Cell[528673, 13133, 193, 3, 32, "Output",ExpressionUUID->"26edd716-985d-7649-b267-e666e7d8808f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528903, 13141, 2053, 55, 131, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[530959, 13198, 20369, 381, 233, "Output",ExpressionUUID->"7f87d733-150e-1042-b860-78b7fb2b06e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551365, 13584, 2115, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[553483, 13646, 516, 11, 60, "Message",ExpressionUUID->"edab1838-e2c8-204e-adfc-834fce377da5"], +Cell[554002, 13659, 519, 11, 60, "Message",ExpressionUUID->"fc785ec1-71eb-164b-a00a-54afb54c6286"], +Cell[554524, 13672, 520, 11, 60, "Message",ExpressionUUID->"32b7ace4-e30e-644c-a5be-30a7d1062080"], +Cell[555047, 13685, 480, 10, 26, "Message",ExpressionUUID->"d87f9d91-35b8-1342-bcc4-42de9edde7aa"], +Cell[555530, 13697, 22254, 412, 233, "Output",ExpressionUUID->"7011dccc-e2d1-9b4f-9c60-bbdf8a6f7004"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577821, 14114, 280, 6, 42, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[578104, 14122, 28267, 537, 233, "Output",ExpressionUUID->"fa5f8941-1d61-0e4d-a082-5eef6b8bf7b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606408, 14664, 1616, 48, 106, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[608027, 14714, 604, 12, 85, "Message",ExpressionUUID->"d5211864-c5b7-704c-9ddf-8261fe243798"], +Cell[608634, 14728, 611, 12, 85, "Message",ExpressionUUID->"a07dbd08-99bb-0a45-855a-d28958512a9b"], +Cell[609248, 14742, 614, 12, 85, "Message",ExpressionUUID->"209e2588-fe8e-4545-a28e-0171f2b30b4e"], +Cell[609865, 14756, 479, 10, 26, "Message",ExpressionUUID->"897546b7-2efc-cd48-a2c8-35bdf728242e"], +Cell[610347, 14768, 196, 3, 32, "Output",ExpressionUUID->"e31face5-1ec7-b846-b9e0-a1069a7d7dbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610580, 14776, 2271, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[612854, 14842, 560, 11, 60, "Message",ExpressionUUID->"c8979d66-3db9-1f4b-89fd-f5b33635060c"], +Cell[613417, 14855, 564, 11, 60, "Message",ExpressionUUID->"0764be87-0c35-9441-bbb4-fcde4475a9fb"], +Cell[613984, 14868, 565, 11, 60, "Message",ExpressionUUID->"9ad1c381-407f-4343-9739-f9519bf0bdd0"], +Cell[614552, 14881, 480, 10, 26, "Message",ExpressionUUID->"b85d2551-8b93-ba4e-9904-798d371b3e38"], +Cell[615035, 14893, 197, 3, 32, "Output",ExpressionUUID->"7572dae7-9073-3242-9916-5afbcefef2fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615269, 14901, 2244, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[617516, 14967, 558, 11, 60, "Message",ExpressionUUID->"16f35669-dc0f-ca46-a314-5b8246613e72"], +Cell[618077, 14980, 562, 11, 60, "Message",ExpressionUUID->"bb240544-02f2-ca42-9bb4-ce727b9d4b83"], +Cell[618642, 14993, 567, 11, 60, "Message",ExpressionUUID->"f7c521db-9fcd-8d43-8124-e93bb900e618"], +Cell[619212, 15006, 480, 10, 26, "Message",ExpressionUUID->"c2d9131a-0554-944c-8919-447498e86e5a"], +Cell[619695, 15018, 197, 3, 32, "Output",ExpressionUUID->"bbaa708d-88c2-4948-bcf9-4edb569086eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619929, 15026, 2242, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[622174, 15092, 558, 11, 60, "Message",ExpressionUUID->"88ec87c7-bce5-3841-bd4d-eb3882d41f76"], +Cell[622735, 15105, 560, 11, 60, "Message",ExpressionUUID->"5a4b712e-899c-b94b-9846-fcd9df68f58f"], +Cell[623298, 15118, 563, 11, 60, "Message",ExpressionUUID->"cd37bfcb-b8f4-7f45-ae8f-c862c6a025c1"], +Cell[623864, 15131, 480, 10, 26, "Message",ExpressionUUID->"301fbef2-ad3a-684d-9c2c-17be03fab629"], +Cell[624347, 15143, 195, 3, 32, "Output",ExpressionUUID->"33d64f78-2e92-0c49-8a9d-37a41d5a1b6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624579, 15151, 234, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[624816, 15159, 197, 3, 32, "Output",ExpressionUUID->"bf2cbee9-9b2b-9548-b69e-9b38f98a67d4"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb new file mode 100755 index 0000000..b51b28e --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb @@ -0,0 +1,14286 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 497469, 14278] +NotebookOptionsPosition[ 458064, 13646] +NotebookOutlinePosition[ 458518, 13664] +CellTagsIndexPosition[ 458475, 13661] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel-> + "In[594]:=",ExpressionUUID->"a5f529d8-308a-8844-abd0-99c83fafbe2a"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}}, + CellLabel-> + "Out[594]=",ExpressionUUID->"c19df2a5-9ae0-a14c-92cd-2b2d86933693"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel-> + "In[595]:=",ExpressionUUID->"c3b7e508-7723-b740-9754-e20d9a1945ff"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}}, + CellLabel-> + "Out[595]=",ExpressionUUID->"c34fd377-c3a2-ec40-ac2b-7ca7f9f2b178"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel-> + "In[596]:=",ExpressionUUID->"81f68db5-daee-3d4a-96b1-13fd1265c302"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}}, + CellLabel-> + "Out[596]=",ExpressionUUID->"34f8a128-d630-274d-a63a-0621c4adc9a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[597]:=",ExpressionUUID->"0743e86a-5b0a-d844-8639-13049a8b22fb"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}}, + CellLabel-> + "Out[597]=",ExpressionUUID->"3e9cc233-eb63-c841-8bd9-773473bd0aa0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[598]:=",ExpressionUUID->"8cdc3db3-c51c-074d-b115-c49145994657"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}}, + CellLabel-> + "Out[598]=",ExpressionUUID->"925906ed-a50d-3c40-93be-03b5be9bd1cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[599]:=",ExpressionUUID->"f53a9070-8fa4-1b4b-8519-94485ba1649a"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}}, + CellLabel-> + "Out[599]=",ExpressionUUID->"d13100ba-db90-3341-a7d3-a33a69f83f5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[600]:=",ExpressionUUID->"4fde1924-b4ef-444f-9273-8917c48e3279"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}}, + CellLabel-> + "Out[600]=",ExpressionUUID->"95f2cee7-e7b8-3a46-bf2a-7862d148424a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[601]:=",ExpressionUUID->"4f31084d-525f-9840-8b4d-fc6e260804c8"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}}, + CellLabel-> + "Out[601]=",ExpressionUUID->"2971c2d9-ce25-1342-bd56-cac85cbc1d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel-> + "In[602]:=",ExpressionUUID->"20374ff4-2bcf-5541-8bbb-2c5de601a94d"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}}, + CellLabel-> + "Out[602]=",ExpressionUUID->"1d6f0762-4404-2d4f-b2c6-b058b209d7e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel-> + "In[603]:=",ExpressionUUID->"ee4ada3d-3364-a349-93ea-e6f66d59827d"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}}, + CellLabel-> + "Out[603]=",ExpressionUUID->"8954d695-ca64-494b-9313-dffbc1ea860e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[604]:=",ExpressionUUID->"8a7c2b33-2c22-3747-9e4f-082df49160a5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}}, + CellLabel-> + "Out[604]=",ExpressionUUID->"23484763-51aa-9b41-918c-e9792d02d3ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[605]:=",ExpressionUUID->"2980c168-5679-7a47-9db6-1e93d9b0b0d4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}}, + CellLabel-> + "Out[605]=",ExpressionUUID->"f6141979-7d51-6e41-a11b-8dc09b55a9ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[606]:=",ExpressionUUID->"caa1154b-40b5-e346-8e6b-d0e27118f754"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}}, + CellLabel-> + "Out[606]=",ExpressionUUID->"373743b8-c19d-544f-97e2-5b5892acf546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[607]:=",ExpressionUUID->"95f3c12e-1072-8041-8d95-71b25e347812"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}}, + CellLabel-> + "Out[607]=",ExpressionUUID->"df0acbc0-8c21-ea4e-af4b-046064495779"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[608]:=",ExpressionUUID->"428b0fb6-d157-d340-bbf5-8bc1d0621a11"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}}, + CellLabel-> + "Out[608]=",ExpressionUUID->"10e756ee-2b6b-8747-b091-0ae318f41527"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[609]:=",ExpressionUUID->"37c038be-3a87-2049-a55e-c48c3db4a7ee"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}}, + CellLabel-> + "Out[609]=",ExpressionUUID->"454e05bb-3efd-104a-9066-66bf80b94526"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[610]:=",ExpressionUUID->"8be7c98b-7162-1b49-8c84-2e3ca7ff14b6"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}}, + CellLabel-> + "Out[610]=",ExpressionUUID->"5077385d-055d-2a45-9a50-ad50f26d79d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[611]:=",ExpressionUUID->"e375bcd8-164f-6445-b8e7-4835e290d5f6"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}}, + CellLabel-> + "Out[611]=",ExpressionUUID->"c2b43585-64dc-5f4e-ae8e-9bf8a29535b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[612]:=",ExpressionUUID->"51ced7fc-0cfd-ec4a-98f2-7f5b3792cb23"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}}, + CellLabel-> + "Out[612]=",ExpressionUUID->"a38acdb3-c11d-234c-a3b9-6ebd4b74e353"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel-> + "In[613]:=",ExpressionUUID->"a50da5c0-55c1-694a-acb7-6b3e67aa4fea"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}}, + CellLabel-> + "Out[613]=",ExpressionUUID->"379763e9-3319-074f-8ca4-bea2a3a86232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[614]:=",ExpressionUUID->"66f78ab8-80e8-4149-89c9-4a2ca4549417"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}}, + CellLabel-> + "Out[614]=",ExpressionUUID->"093f1308-365e-5a4c-898b-9b9d12ce395c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[615]:=",ExpressionUUID->"2628ead6-9386-cf48-bdf8-74b97df1e485"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}}, + CellLabel-> + "Out[615]=",ExpressionUUID->"e4b9c1de-c4e2-be47-8891-124a8f6116a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[616]:=",ExpressionUUID->"3edcc0bc-d1e7-9845-8b3a-1b8d371e8b02"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}}, + CellLabel-> + "Out[616]=",ExpressionUUID->"f88f0645-8761-684d-9e14-40d370b86b94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel-> + "In[617]:=",ExpressionUUID->"29adee66-4e94-3d4e-adb3-2a2fb3a740e3"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}}, + CellLabel-> + "Out[617]=",ExpressionUUID->"574eac92-a758-ea41-adb9-dcd0609f8f1f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel-> + "In[618]:=",ExpressionUUID->"115233fa-3431-3242-8da0-0984e04ecf60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel-> + "In[619]:=",ExpressionUUID->"6905c326-c5f8-b244-ab70-abe3ab6035c0"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}}, + CellLabel-> + "Out[619]=",ExpressionUUID->"c701ab36-3417-2646-bbec-8edac19f5bf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[620]:=",ExpressionUUID->"fe9c2db8-186a-ec4e-8753-26fcd9b35e1e"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}}, + CellLabel-> + "Out[620]=",ExpressionUUID->"561a7e5e-701f-c64f-a4d3-a4148a28490d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[621]:=",ExpressionUUID->"13830c4e-14d3-254b-ae35-8e7d06217275"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}}, + CellLabel-> + "Out[621]=",ExpressionUUID->"76f86e6b-37c5-0842-875e-d3012f42b987"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[622]:=",ExpressionUUID->"ef7eac52-f317-614e-8deb-8cf20eff77ea"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}}, + CellLabel-> + "Out[622]=",ExpressionUUID->"5c2ff160-416e-c144-a357-891a4a14a9b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel-> + "In[623]:=",ExpressionUUID->"8cc0876c-3ef8-f748-9363-4952a942b6b7"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}}, + CellLabel-> + "Out[623]=",ExpressionUUID->"672bcff7-ec25-de46-8bcb-0153a202a030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[624]:=",ExpressionUUID->"c26f4d6b-33a6-c74b-8e58-8c872bf2d377"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}}, + CellLabel-> + "Out[624]=",ExpressionUUID->"a352656a-5f43-bd49-bae2-efb450813e58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel-> + "In[625]:=",ExpressionUUID->"4c0d8459-e5b2-7c4c-9056-2a7e0d198597"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}}, + CellLabel-> + "Out[625]=",ExpressionUUID->"92a8c255-9df0-bf4c-bc19-d7c1c1a4cc1e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel-> + "In[626]:=",ExpressionUUID->"1e8b25bc-6dad-1342-b302-dda533b2ee00"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel-> + "In[627]:=",ExpressionUUID->"7add0d03-f6a6-8f42-af17-7cc7d0fe8b4d"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}}, + CellLabel-> + "Out[627]=",ExpressionUUID->"fa655a22-1978-3843-a1ca-62e98ddb5510"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel-> + "In[628]:=",ExpressionUUID->"c1ffd3ec-f920-5647-a85c-c943fcb4fe28"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel-> + "In[629]:=",ExpressionUUID->"e581c85e-5f1c-4641-8ed7-2390c9ffe77a"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}}, + CellLabel-> + "Out[629]=",ExpressionUUID->"f9e2793b-e40b-044b-b274-5b2f5a53ef10"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel-> + "In[630]:=",ExpressionUUID->"89aa1de8-8133-6e4d-8a2c-68e61766e0f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel-> + "In[631]:=",ExpressionUUID->"2bff1631-5bc3-3641-9d9e-483f6feaf8ee"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}}, + CellLabel-> + "Out[631]=",ExpressionUUID->"84c3fe99-4f38-a243-9651-721b7cce6f03"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel-> + "In[632]:=",ExpressionUUID->"6f0b7298-a6c1-194d-b5e7-a1eb74a869c9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel-> + "In[633]:=",ExpressionUUID->"cf0d3cb6-bad0-4a40-9515-190eada3ee67"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}}, + CellLabel-> + "Out[633]=",ExpressionUUID->"e74ca7b2-e187-e144-9258-4f3ee7852c4c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel-> + "In[634]:=",ExpressionUUID->"ce0fb70b-425b-d34a-9fc1-6d950153e2bb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel-> + "In[635]:=",ExpressionUUID->"fb2b1c25-8414-9f47-8633-194c7a1fb9dd"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}}, + CellLabel-> + "Out[635]=",ExpressionUUID->"a3feffd1-fda2-754a-ab88-68ced4111c84"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel-> + "In[636]:=",ExpressionUUID->"d0b85d76-4098-c744-8479-861aa7e0be1b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel-> + "In[637]:=",ExpressionUUID->"b66e9432-ee26-214b-8c2d-c00236dba601"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}}, + CellLabel-> + "Out[637]=",ExpressionUUID->"62a9892b-736f-5347-8d9d-3ac7d0841777"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel-> + "In[638]:=",ExpressionUUID->"629fd618-c0d5-3044-9d12-e76a4b791186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel-> + "In[639]:=",ExpressionUUID->"2612834b-3ea0-f045-8732-d622210f6481"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}}, + CellLabel-> + "Out[639]=",ExpressionUUID->"83e1d6a7-33b2-9c48-96af-91ba4d4eb6f0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel-> + "In[640]:=",ExpressionUUID->"bf581c25-0b9f-9e41-a3fb-674d26ac9698"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[641]:=",ExpressionUUID->"87c2def5-dc96-e149-a4a5-46987b5d952d"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}}, + CellLabel-> + "Out[641]=",ExpressionUUID->"1e7d327a-73b9-dd45-b3f9-bb14ef14cae8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[642]:=",ExpressionUUID->"07545136-5e1b-d840-b11e-4e0a5675c4ba"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}}, + CellLabel-> + "Out[642]=",ExpressionUUID->"c83cc283-04ef-a84e-9af7-fd205e2af9d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[643]:=",ExpressionUUID->"61628fce-333a-434b-8353-4629a3d5a494"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}}, + CellLabel-> + "Out[643]=",ExpressionUUID->"4d8850b2-a7e1-ad45-aa23-e3a188950012"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[644]:=",ExpressionUUID->"8c9b1b0e-96cf-b048-a7b2-c1561c32b332"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}}, + CellLabel-> + "Out[644]=",ExpressionUUID->"26297e6a-1f5c-2140-884f-738b07fc9e95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[645]:=",ExpressionUUID->"c3e5b585-085a-5145-bb1a-b3d59c2656db"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}}, + CellLabel-> + "Out[645]=",ExpressionUUID->"af3d0815-e741-6c44-a8a9-ef219b324d8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[646]:=",ExpressionUUID->"100184bc-6307-034a-bdc4-d82d46dec26f"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}}, + CellLabel-> + "Out[646]=",ExpressionUUID->"8560a457-458b-e146-bcf5-bb20dbe97a00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[647]:=",ExpressionUUID->"3eba58c9-518f-c24a-bf8f-092970b23695"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}}, + CellLabel-> + "Out[647]=",ExpressionUUID->"4a5f9cb1-4b77-5746-9cd1-6705a57c5707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[648]:=",ExpressionUUID->"3b99dd68-65ea-204d-928f-93a8fbe02f95"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}}, + CellLabel-> + "Out[648]=",ExpressionUUID->"3b7c22bd-d8f8-4940-ac9f-e5afd4ee658e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[649]:=",ExpressionUUID->"fa83543e-05d1-7f42-9c7c-6efbc13926c2"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}}, + CellLabel-> + "Out[649]=",ExpressionUUID->"5413702b-a4d4-7a4b-be6d-e780bc824ce5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[650]:=",ExpressionUUID->"8b73b587-5bc3-2b42-8807-abf7d5c3d6d5"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}}, + CellLabel-> + "Out[650]=",ExpressionUUID->"7315f5ec-72da-8246-94cf-8f6008fe5301"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[651]:=",ExpressionUUID->"7a571710-fc1f-844e-9091-0854a5e9f4ae"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}}, + CellLabel-> + "Out[651]=",ExpressionUUID->"8433489d-9c0e-ed43-a856-cd455a63c2c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[652]:=",ExpressionUUID->"453f64ba-d48f-9e42-aebc-5f2b6a2001b5"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}}, + CellLabel-> + "Out[652]=",ExpressionUUID->"15a3b0e4-b53e-b449-a04a-cbdb7412ed06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[653]:=",ExpressionUUID->"912b52c9-0396-f648-8718-011647317699"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}}, + CellLabel-> + "Out[653]=",ExpressionUUID->"4c9d7b26-0ba9-db4f-aabe-757a75058def"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[654]:=",ExpressionUUID->"44afcb94-b4b8-c044-ad08-a30ff78d6179"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}}, + CellLabel-> + "Out[654]=",ExpressionUUID->"8ed6f279-dd2a-3b4a-9a29-3976b9998319"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[655]:=",ExpressionUUID->"8817f247-18cf-884a-9f0f-366ab32d0b5a"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}}, + CellLabel-> + "Out[655]=",ExpressionUUID->"cd702f15-51f1-b144-8fa4-81c1dd8e0f65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[656]:=",ExpressionUUID->"cb905081-daca-294f-a379-eb52a42d05cb"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}}, + CellLabel-> + "Out[656]=",ExpressionUUID->"de0197f0-556f-7e4c-a4ef-f429b7726bff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[657]:=",ExpressionUUID->"f730cbe7-c985-0b4f-a634-4a9f872b5055"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}}, + CellLabel-> + "Out[657]=",ExpressionUUID->"24c7a942-1360-2948-8ee4-d813a34c26da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[658]:=",ExpressionUUID->"4251bb2d-fcf6-9345-8a15-6625ed02aad9"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}}, + CellLabel-> + "Out[658]=",ExpressionUUID->"f40a9922-53d9-c54c-bc76-c2121bddce74"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[659]:=",ExpressionUUID->"70a8bb5e-093b-e746-9123-396abd5cb2f9"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}}, + CellLabel-> + "Out[659]=",ExpressionUUID->"9847b04f-3fe3-4844-8048-53e0cf5961b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[660]:=",ExpressionUUID->"e438d836-5137-6443-94d2-6b4cb3907304"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}}, + CellLabel-> + "Out[660]=",ExpressionUUID->"1c01b3cd-6698-f243-92a2-41c80f70f702"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[661]:=",ExpressionUUID->"e960d34b-36c1-944f-86eb-59e8107f4b15"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}}, + CellLabel-> + "Out[661]=",ExpressionUUID->"e4b6ee48-d977-b247-9b13-ffb715b8a25c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[662]:=",ExpressionUUID->"95ecef4f-1365-0b49-bf71-7ca7ecff7d58"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}}, + CellLabel-> + "Out[662]=",ExpressionUUID->"9c303e44-3554-554e-b437-499a62a925ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[663]:=",ExpressionUUID->"7025431a-6673-534b-9709-76775da87e45"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}}, + CellLabel-> + "Out[663]=",ExpressionUUID->"e2be4920-6049-344d-b4ef-7ae85fe830f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[664]:=",ExpressionUUID->"de3fc435-4b50-b14e-887b-8da83a47a57b"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}}, + CellLabel-> + "Out[664]=",ExpressionUUID->"2508147f-5665-c946-9df2-8ea1a52b0b48"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.436538242446606"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, + 3.9920919719348717`*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.248236755663187"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, + 3.992091975710621*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917695105457`*^9, + 3.9920917707588196`*^9}},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\ +b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{94.07049642219837, + 205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\ +32b52052d827"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{29.72195338368416, + 78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\ +f1f489e06059"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\ +b13fedb5cf43"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 457, 8, 22, "Input",ExpressionUUID->"a5f529d8-308a-8844-abd0-99c83fafbe2a"], +Cell[1036, 32, 337, 6, 25, "Output",ExpressionUUID->"c19df2a5-9ae0-a14c-92cd-2b2d86933693"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1410, 43, 351, 6, 22, "Input",ExpressionUUID->"c3b7e508-7723-b740-9754-e20d9a1945ff"], +Cell[1764, 51, 412, 7, 25, "Output",ExpressionUUID->"c34fd377-c3a2-ec40-ac2b-7ca7f9f2b178"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2213, 63, 258, 6, 22, "Input",ExpressionUUID->"81f68db5-daee-3d4a-96b1-13fd1265c302"], +Cell[2474, 71, 411, 7, 25, "Output",ExpressionUUID->"34f8a128-d630-274d-a63a-0621c4adc9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2922, 83, 180, 4, 22, "Input",ExpressionUUID->"0743e86a-5b0a-d844-8639-13049a8b22fb"], +Cell[3105, 89, 382, 7, 25, "Output",ExpressionUUID->"3e9cc233-eb63-c841-8bd9-773473bd0aa0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3524, 101, 262, 8, 35, "Input",ExpressionUUID->"8cdc3db3-c51c-074d-b115-c49145994657"], +Cell[3789, 111, 395, 7, 25, "Output",ExpressionUUID->"925906ed-a50d-3c40-93be-03b5be9bd1cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4221, 123, 136, 3, 22, "Input",ExpressionUUID->"f53a9070-8fa4-1b4b-8519-94485ba1649a"], +Cell[4360, 128, 386, 7, 25, "Output",ExpressionUUID->"d13100ba-db90-3341-a7d3-a33a69f83f5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4783, 140, 281, 7, 22, "Input",ExpressionUUID->"4fde1924-b4ef-444f-9273-8917c48e3279"], +Cell[5067, 149, 401, 7, 25, "Output",ExpressionUUID->"95f2cee7-e7b8-3a46-bf2a-7862d148424a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5505, 161, 262, 8, 22, "Input",ExpressionUUID->"4f31084d-525f-9840-8b4d-fc6e260804c8"], +Cell[5770, 171, 401, 7, 25, "Output",ExpressionUUID->"2971c2d9-ce25-1342-bd56-cac85cbc1d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6208, 183, 241, 5, 22, "Input",ExpressionUUID->"20374ff4-2bcf-5541-8bbb-2c5de601a94d"], +Cell[6452, 190, 421, 7, 25, "Output",ExpressionUUID->"1d6f0762-4404-2d4f-b2c6-b058b209d7e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6910, 202, 240, 5, 22, "Input",ExpressionUUID->"ee4ada3d-3364-a349-93ea-e6f66d59827d"], +Cell[7153, 209, 420, 7, 25, "Output",ExpressionUUID->"8954d695-ca64-494b-9313-dffbc1ea860e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7610, 221, 133, 3, 22, "Input",ExpressionUUID->"8a7c2b33-2c22-3747-9e4f-082df49160a5"], +Cell[7746, 226, 384, 7, 25, "Output",ExpressionUUID->"23484763-51aa-9b41-918c-e9792d02d3ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8167, 238, 133, 3, 22, "Input",ExpressionUUID->"2980c168-5679-7a47-9db6-1e93d9b0b0d4"], +Cell[8303, 243, 379, 7, 25, "Output",ExpressionUUID->"f6141979-7d51-6e41-a11b-8dc09b55a9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8719, 255, 561, 20, 65, "Input",ExpressionUUID->"caa1154b-40b5-e346-8e6b-d0e27118f754"], +Cell[9283, 277, 374, 6, 25, "Output",ExpressionUUID->"373743b8-c19d-544f-97e2-5b5892acf546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9694, 288, 561, 20, 65, "Input",ExpressionUUID->"95f3c12e-1072-8041-8d95-71b25e347812"], +Cell[10258, 310, 378, 6, 25, "Output",ExpressionUUID->"df0acbc0-8c21-ea4e-af4b-046064495779"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10673, 321, 1496, 49, 65, "Input",ExpressionUUID->"428b0fb6-d157-d340-bbf5-8bc1d0621a11"], +Cell[12172, 372, 374, 6, 25, "Output",ExpressionUUID->"10e756ee-2b6b-8747-b091-0ae318f41527"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12583, 383, 1335, 45, 65, "Input",ExpressionUUID->"37c038be-3a87-2049-a55e-c48c3db4a7ee"], +Cell[13921, 430, 392, 7, 25, "Output",ExpressionUUID->"454e05bb-3efd-104a-9066-66bf80b94526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14350, 442, 1335, 45, 65, "Input",ExpressionUUID->"8be7c98b-7162-1b49-8c84-2e3ca7ff14b6"], +Cell[15688, 489, 397, 7, 25, "Output",ExpressionUUID->"5077385d-055d-2a45-9a50-ad50f26d79d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16122, 501, 1496, 49, 65, "Input",ExpressionUUID->"e375bcd8-164f-6445-b8e7-4835e290d5f6"], +Cell[17621, 552, 368, 6, 25, "Output",ExpressionUUID->"c2b43585-64dc-5f4e-ae8e-9bf8a29535b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18026, 563, 135, 3, 22, "Input",ExpressionUUID->"51ced7fc-0cfd-ec4a-98f2-7f5b3792cb23"], +Cell[18164, 568, 358, 6, 25, "Output",ExpressionUUID->"a38acdb3-c11d-234c-a3b9-6ebd4b74e353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18559, 579, 181, 4, 22, "Input",ExpressionUUID->"a50da5c0-55c1-694a-acb7-6b3e67aa4fea"], +Cell[18743, 585, 356, 6, 25, "Output",ExpressionUUID->"379763e9-3319-074f-8ca4-bea2a3a86232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 596, 138, 3, 22, "Input",ExpressionUUID->"66f78ab8-80e8-4149-89c9-4a2ca4549417"], +Cell[19277, 601, 364, 6, 25, "Output",ExpressionUUID->"093f1308-365e-5a4c-898b-9b9d12ce395c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19678, 612, 223, 5, 22, "Input",ExpressionUUID->"2628ead6-9386-cf48-bdf8-74b97df1e485"], +Cell[19904, 619, 367, 7, 25, "Output",ExpressionUUID->"e4b9c1de-c4e2-be47-8891-124a8f6116a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20308, 631, 138, 3, 22, "Input",ExpressionUUID->"3edcc0bc-d1e7-9845-8b3a-1b8d371e8b02"], +Cell[20449, 636, 360, 6, 25, "Output",ExpressionUUID->"f88f0645-8761-684d-9e14-40d370b86b94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20846, 647, 306, 6, 22, "Input",ExpressionUUID->"29adee66-4e94-3d4e-adb3-2a2fb3a740e3"], +Cell[21155, 655, 310, 6, 25, "Output",ExpressionUUID->"574eac92-a758-ea41-adb9-dcd0609f8f1f"] +}, Open ]], +Cell[21480, 664, 177, 3, 22, "Input",ExpressionUUID->"115233fa-3431-3242-8da0-0984e04ecf60"], +Cell[CellGroupData[{ +Cell[21682, 671, 300, 6, 22, "Input",ExpressionUUID->"6905c326-c5f8-b244-ab70-abe3ab6035c0"], +Cell[21985, 679, 353, 6, 25, "Output",ExpressionUUID->"c701ab36-3417-2646-bbec-8edac19f5bf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22375, 690, 223, 5, 22, "Input",ExpressionUUID->"fe9c2db8-186a-ec4e-8753-26fcd9b35e1e"], +Cell[22601, 697, 355, 6, 25, "Output",ExpressionUUID->"561a7e5e-701f-c64f-a4d3-a4148a28490d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22993, 708, 354, 11, 35, "Input",ExpressionUUID->"13830c4e-14d3-254b-ae35-8e7d06217275"], +Cell[23350, 721, 373, 6, 25, "Output",ExpressionUUID->"76f86e6b-37c5-0842-875e-d3012f42b987"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23760, 732, 354, 11, 35, "Input",ExpressionUUID->"ef7eac52-f317-614e-8deb-8cf20eff77ea"], +Cell[24117, 745, 386, 7, 25, "Output",ExpressionUUID->"5c2ff160-416e-c144-a357-891a4a14a9b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24540, 757, 996, 27, 92, "Input",ExpressionUUID->"8cc0876c-3ef8-f748-9363-4952a942b6b7"], +Cell[25539, 786, 376, 6, 25, "Output",ExpressionUUID->"672bcff7-ec25-de46-8bcb-0153a202a030"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25952, 797, 203, 4, 22, "Input",ExpressionUUID->"c26f4d6b-33a6-c74b-8e58-8c872bf2d377"], +Cell[26158, 803, 360, 6, 25, "Output",ExpressionUUID->"a352656a-5f43-bd49-bae2-efb450813e58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26555, 814, 279, 5, 22, "Input",ExpressionUUID->"4c0d8459-e5b2-7c4c-9056-2a7e0d198597"], +Cell[26837, 821, 319, 6, 25, "Output",ExpressionUUID->"92a8c255-9df0-bf4c-bc19-d7c1c1a4cc1e"] +}, Open ]], +Cell[27171, 830, 179, 3, 22, "Input",ExpressionUUID->"1e8b25bc-6dad-1342-b302-dda533b2ee00"], +Cell[CellGroupData[{ +Cell[27375, 837, 327, 6, 22, "Input",ExpressionUUID->"7add0d03-f6a6-8f42-af17-7cc7d0fe8b4d"], +Cell[27705, 845, 319, 6, 25, "Output",ExpressionUUID->"fa655a22-1978-3843-a1ca-62e98ddb5510"] +}, Open ]], +Cell[28039, 854, 177, 3, 22, "Input",ExpressionUUID->"c1ffd3ec-f920-5647-a85c-c943fcb4fe28"], +Cell[CellGroupData[{ +Cell[28241, 861, 347, 7, 37, "Input",ExpressionUUID->"e581c85e-5f1c-4641-8ed7-2390c9ffe77a"], +Cell[28591, 870, 311, 6, 25, "Output",ExpressionUUID->"f9e2793b-e40b-044b-b274-5b2f5a53ef10"] +}, Open ]], +Cell[28917, 879, 179, 3, 22, "Input",ExpressionUUID->"89aa1de8-8133-6e4d-8a2c-68e61766e0f5"], +Cell[CellGroupData[{ +Cell[29121, 886, 351, 7, 37, "Input",ExpressionUUID->"2bff1631-5bc3-3641-9d9e-483f6feaf8ee"], +Cell[29475, 895, 319, 6, 25, "Output",ExpressionUUID->"84c3fe99-4f38-a243-9651-721b7cce6f03"] +}, Open ]], +Cell[29809, 904, 179, 3, 22, "Input",ExpressionUUID->"6f0b7298-a6c1-194d-b5e7-a1eb74a869c9"], +Cell[CellGroupData[{ +Cell[30013, 911, 277, 5, 22, "Input",ExpressionUUID->"cf0d3cb6-bad0-4a40-9515-190eada3ee67"], +Cell[30293, 918, 309, 6, 25, "Output",ExpressionUUID->"e74ca7b2-e187-e144-9258-4f3ee7852c4c"] +}, Open ]], +Cell[30617, 927, 177, 3, 22, "Input",ExpressionUUID->"ce0fb70b-425b-d34a-9fc1-6d950153e2bb"], +Cell[CellGroupData[{ +Cell[30819, 934, 281, 5, 22, "Input",ExpressionUUID->"fb2b1c25-8414-9f47-8633-194c7a1fb9dd"], +Cell[31103, 941, 314, 6, 25, "Output",ExpressionUUID->"a3feffd1-fda2-754a-ab88-68ced4111c84"] +}, Open ]], +Cell[31432, 950, 175, 3, 22, "Input",ExpressionUUID->"d0b85d76-4098-c744-8479-861aa7e0be1b"], +Cell[CellGroupData[{ +Cell[31632, 957, 329, 7, 37, "Input",ExpressionUUID->"b66e9432-ee26-214b-8c2d-c00236dba601"], +Cell[31964, 966, 308, 6, 25, "Output",ExpressionUUID->"62a9892b-736f-5347-8d9d-3ac7d0841777"] +}, Open ]], +Cell[32287, 975, 179, 3, 22, "Input",ExpressionUUID->"629fd618-c0d5-3044-9d12-e76a4b791186"], +Cell[CellGroupData[{ +Cell[32491, 982, 274, 6, 37, "Input",ExpressionUUID->"2612834b-3ea0-f045-8732-d622210f6481"], +Cell[32768, 990, 310, 6, 25, "Output",ExpressionUUID->"83e1d6a7-33b2-9c48-96af-91ba4d4eb6f0"] +}, Open ]], +Cell[33093, 999, 175, 3, 22, "Input",ExpressionUUID->"bf581c25-0b9f-9e41-a3fb-674d26ac9698"], +Cell[CellGroupData[{ +Cell[33293, 1006, 19813, 486, 1553, "Input",ExpressionUUID->"87c2def5-dc96-e149-a4a5-46987b5d952d"], +Cell[53109, 1494, 366, 6, 25, "Output",ExpressionUUID->"1e7d327a-73b9-dd45-b3f9-bb14ef14cae8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53512, 1505, 19752, 490, 1579, "Input",ExpressionUUID->"07545136-5e1b-d840-b11e-4e0a5675c4ba"], +Cell[73267, 1997, 373, 6, 25, "Output",ExpressionUUID->"c83cc283-04ef-a84e-9af7-fd205e2af9d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73677, 2008, 19752, 484, 1572, "Input",ExpressionUUID->"61628fce-333a-434b-8353-4629a3d5a494"], +Cell[93432, 2494, 389, 7, 25, "Output",ExpressionUUID->"4d8850b2-a7e1-ad45-aa23-e3a188950012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93858, 2506, 22538, 554, 1766, "Input",ExpressionUUID->"8c9b1b0e-96cf-b048-a7b2-c1561c32b332"], +Cell[116399, 3062, 391, 7, 25, "Output",ExpressionUUID->"26297e6a-1f5c-2140-884f-738b07fc9e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[116827, 3074, 22539, 554, 1773, "Input",ExpressionUUID->"c3e5b585-085a-5145-bb1a-b3d59c2656db"], +Cell[139369, 3630, 389, 7, 25, "Output",ExpressionUUID->"af3d0815-e741-6c44-a8a9-ef219b324d8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[139795, 3642, 25495, 627, 1984, "Input",ExpressionUUID->"100184bc-6307-034a-bdc4-d82d46dec26f"], +Cell[165293, 4271, 386, 7, 25, "Output",ExpressionUUID->"8560a457-458b-e146-bcf5-bb20dbe97a00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165716, 4283, 134, 3, 22, "Input",ExpressionUUID->"3eba58c9-518f-c24a-bf8f-092970b23695"], +Cell[165853, 4288, 356, 6, 25, "Output",ExpressionUUID->"4a5f9cb1-4b77-5746-9cd1-6705a57c5707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166246, 4299, 134, 3, 22, "Input",ExpressionUUID->"3b99dd68-65ea-204d-928f-93a8fbe02f95"], +Cell[166383, 4304, 354, 6, 25, "Output",ExpressionUUID->"3b7c22bd-d8f8-4940-ac9f-e5afd4ee658e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166774, 4315, 1148, 40, 46, "Input",ExpressionUUID->"fa83543e-05d1-7f42-9c7c-6efbc13926c2"], +Cell[167925, 4357, 375, 6, 25, "Output",ExpressionUUID->"5413702b-a4d4-7a4b-be6d-e780bc824ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168337, 4368, 1045, 36, 46, "Input",ExpressionUUID->"8b73b587-5bc3-2b42-8807-abf7d5c3d6d5"], +Cell[169385, 4406, 385, 7, 25, "Output",ExpressionUUID->"7315f5ec-72da-8246-94cf-8f6008fe5301"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169807, 4418, 1148, 40, 46, "Input",ExpressionUUID->"7a571710-fc1f-844e-9091-0854a5e9f4ae"], +Cell[170958, 4460, 378, 6, 25, "Output",ExpressionUUID->"8433489d-9c0e-ed43-a856-cd455a63c2c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171373, 4471, 112, 2, 22, "Input",ExpressionUUID->"453f64ba-d48f-9e42-aebc-5f2b6a2001b5"], +Cell[171488, 4475, 372, 6, 25, "Output",ExpressionUUID->"15a3b0e4-b53e-b449-a04a-cbdb7412ed06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171897, 4486, 112, 2, 22, "Input",ExpressionUUID->"912b52c9-0396-f648-8718-011647317699"], +Cell[172012, 4490, 389, 7, 25, "Output",ExpressionUUID->"4c9d7b26-0ba9-db4f-aabe-757a75058def"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172438, 4502, 112, 2, 22, "Input",ExpressionUUID->"44afcb94-b4b8-c044-ad08-a30ff78d6179"], +Cell[172553, 4506, 391, 7, 25, "Output",ExpressionUUID->"8ed6f279-dd2a-3b4a-9a29-3976b9998319"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172981, 4518, 112, 2, 22, "Input",ExpressionUUID->"8817f247-18cf-884a-9f0f-366ab32d0b5a"], +Cell[173096, 4522, 376, 6, 25, "Output",ExpressionUUID->"cd702f15-51f1-b144-8fa4-81c1dd8e0f65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173509, 4533, 111, 2, 22, "Input",ExpressionUUID->"cb905081-daca-294f-a379-eb52a42d05cb"], +Cell[173623, 4537, 369, 6, 25, "Output",ExpressionUUID->"de0197f0-556f-7e4c-a4ef-f429b7726bff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174029, 4548, 111, 2, 22, "Input",ExpressionUUID->"f730cbe7-c985-0b4f-a634-4a9f872b5055"], +Cell[174143, 4552, 371, 6, 25, "Output",ExpressionUUID->"24c7a942-1360-2948-8ee4-d813a34c26da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174551, 4563, 501, 17, 46, "Input",ExpressionUUID->"4251bb2d-fcf6-9345-8a15-6625ed02aad9"], +Cell[175055, 4582, 385, 7, 25, "Output",ExpressionUUID->"f40a9922-53d9-c54c-bc76-c2121bddce74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175477, 4594, 501, 17, 46, "Input",ExpressionUUID->"70a8bb5e-093b-e746-9123-396abd5cb2f9"], +Cell[175981, 4613, 390, 7, 25, "Output",ExpressionUUID->"9847b04f-3fe3-4844-8048-53e0cf5961b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176408, 4625, 1792, 61, 109, "Input",ExpressionUUID->"e438d836-5137-6443-94d2-6b4cb3907304"], +Cell[178203, 4688, 373, 6, 25, "Output",ExpressionUUID->"1c01b3cd-6698-f243-92a2-41c80f70f702"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178613, 4699, 1105, 37, 64, "Input",ExpressionUUID->"e960d34b-36c1-944f-86eb-59e8107f4b15"], +Cell[179721, 4738, 388, 7, 25, "Output",ExpressionUUID->"e4b6ee48-d977-b247-9b13-ffb715b8a25c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180146, 4750, 1822, 62, 90, "Input",ExpressionUUID->"95ecef4f-1365-0b49-bf71-7ca7ecff7d58"], +Cell[181971, 4814, 371, 6, 25, "Output",ExpressionUUID->"9c303e44-3554-554e-b437-499a62a925ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182379, 4825, 2503, 78, 72, "Input",ExpressionUUID->"7025431a-6673-534b-9709-76775da87e45"], +Cell[184885, 4905, 373, 6, 25, "Output",ExpressionUUID->"e2be4920-6049-344d-b4ef-7ae85fe830f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185295, 4916, 2503, 78, 72, "Input",ExpressionUUID->"de3fc435-4b50-b14e-887b-8da83a47a57b"], +Cell[187801, 4996, 365, 6, 25, "Output",ExpressionUUID->"2508147f-5665-c946-9df2-8ea1a52b0b48"] +}, Open ]], +Cell[188181, 5005, 192, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[188376, 5011, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[188531, 5016, 192, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[188726, 5022, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[188907, 5029, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[190183, 5072, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190326, 5077, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[191242, 5109, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191385, 5114, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[192349, 5148, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192492, 5153, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[193027, 5173, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193165, 5178, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[193793, 5201, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193930, 5206, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[194077, 5212, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194215, 5217, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[194362, 5223, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194499, 5228, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[194657, 5234, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194795, 5239, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[194953, 5245, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195091, 5250, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[201123, 5436, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201262, 5441, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[201607, 5451, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[201952, 5459, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202089, 5464, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[208188, 5652, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208328, 5657, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[208673, 5667, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[209018, 5675, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209155, 5680, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[211795, 5769, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211933, 5774, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[214513, 5860, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214652, 5865, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[218341, 5984, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[218458, 5987, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[218621, 5994, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[220676, 6055, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[221021, 6063, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[221366, 6071, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221503, 6076, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[223558, 6137, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[223903, 6145, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[224248, 6153, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224385, 6158, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[226324, 6213, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[226669, 6221, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[227014, 6229, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[227359, 6237, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[227769, 6246, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[235814, 6612, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[236042, 6622, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[238187, 6685, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[238532, 6693, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[238877, 6701, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[239222, 6709, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[239632, 6718, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[247683, 7073, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247911, 7083, 1869, 51, 81, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[249783, 7136, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259512, 7363, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[259772, 7371, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], +Cell[262355, 7415, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272579, 7647, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[272799, 7656, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272936, 7661, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[274755, 7716, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[275100, 7724, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[275445, 7732, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[275790, 7740, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[276200, 7749, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[284414, 8116, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284642, 8126, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[286235, 8175, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[286580, 8183, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286718, 8188, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[288972, 8254, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[289317, 8262, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[289662, 8270, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289802, 8275, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[292026, 8341, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[292371, 8349, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[292716, 8357, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292853, 8362, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[295077, 8428, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[295422, 8436, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[295767, 8444, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295905, 8449, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[296121, 8457, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[296240, 8460, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[296510, 8469, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[297045, 8489, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297182, 8494, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[297329, 8500, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297466, 8505, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[297624, 8511, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297761, 8516, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[303793, 8702, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303932, 8707, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[304277, 8717, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[304622, 8725, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304758, 8730, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[310857, 8918, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310996, 8923, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[311341, 8933, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[311686, 8941, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311823, 8946, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[314463, 9035, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314601, 9040, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[317181, 9126, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317320, 9131, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[321009, 9250, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321148, 9255, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[323205, 9316, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[323550, 9324, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[323895, 9332, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324033, 9337, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[326090, 9398, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[326435, 9406, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[326780, 9414, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326917, 9419, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[328950, 9476, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[329295, 9484, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[329640, 9492, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[329985, 9500, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[330395, 9509, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[339854, 9949, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340082, 9959, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[342233, 10022, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[342578, 10030, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[342923, 10038, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[343268, 10046, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[343678, 10055, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[352251, 10425, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352479, 10435, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[352739, 10443, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], +Cell[355322, 10487, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], +Cell[CellGroupData[{ +Cell[365560, 10719, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[367153, 10768, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[367498, 10776, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367636, 10781, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[369886, 10847, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[370231, 10855, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[370576, 10863, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370714, 10868, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[372936, 10934, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[373281, 10942, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[373626, 10950, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373764, 10955, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[375990, 11021, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[376335, 11029, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[376680, 11037, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376818, 11042, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[377036, 11050, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[377153, 11053, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[377427, 11062, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[377962, 11082, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378100, 11087, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[378247, 11093, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378385, 11098, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[378543, 11104, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378680, 11109, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[384712, 11295, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384851, 11300, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[385196, 11310, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[385541, 11318, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385678, 11323, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[391777, 11511, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391916, 11516, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[392261, 11526, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[392606, 11534, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392742, 11539, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[395382, 11628, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395520, 11633, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[398100, 11719, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398239, 11724, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[401928, 11843, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402067, 11848, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[404124, 11909, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[404469, 11917, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[404814, 11925, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404951, 11930, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[407008, 11991, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[407353, 11999, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[407698, 12007, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407835, 12012, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[409866, 12069, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[410211, 12077, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[410556, 12085, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[410901, 12093, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[411311, 12102, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[420770, 12542, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420998, 12552, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[423147, 12615, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[423492, 12623, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[423837, 12631, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[424182, 12639, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[424592, 12648, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[433165, 13018, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433393, 13028, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[433653, 13036, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], +Cell[436236, 13080, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], +Cell[CellGroupData[{ +Cell[446474, 13312, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[448067, 13361, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[448412, 13369, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448550, 13374, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[450802, 13440, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[451147, 13448, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[451492, 13456, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451629, 13461, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[453853, 13527, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[454198, 13535, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[454543, 13543, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454679, 13548, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[456903, 13614, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[457248, 13622, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[457593, 13630, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457731, 13635, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[457946, 13643, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb new file mode 100755 index 0000000..84cfb36 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb @@ -0,0 +1,15528 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 641301, 15520] +NotebookOptionsPosition[ 599261, 14844] +NotebookOutlinePosition[ 599716, 14862] +CellTagsIndexPosition[ 599673, 14859] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.992114961553047*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"a7299129-bbf4-5c4c-9d26-8eca0c38b246"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.992114961635933*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9269ae25-8e84-5f4a-ae7b-5271046d2399"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992114961649296*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"37c37e51-de29-2c4c-a106-a9712e22f3bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921149616622944`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ed34d0f4-b2cb-4846-b577-5fab7b27974b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992114961679119*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"aa7f3430-612b-8b48-95d4-3c4d1b88c329"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921149616961193`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"22721aad-1be3-364e-a18c-701f91ea77f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.99211496170912*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b868e38d-b64a-dc43-a954-7c8e98e8a678"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992114961726118*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"47088bbd-8358-3343-badb-22bbe4a2a8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992114961738119*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"7b2868a6-0a88-e843-a499-e9f7fc635e75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992114961750044*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"5534dd71-3278-4046-ac2f-3c1afc8610d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992114961762701*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"befc3b7b-561e-5444-9b7c-d2fe90c13c4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.9921149617766857`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"9d5744b8-9530-584b-9e97-63f23041e347"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921149617898808`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"092186ce-5ed2-5145-8e33-3cbb5611da0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.992114961803507*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"e500737c-497e-3f45-92da-5a8b2f159efb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992114961818239*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"6094b55c-c9cc-ec46-be7c-13c57a67e950"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992114961827215*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"69bfbdb2-54df-b542-8b02-6309ae33c809"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921149618351135`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"a3d828d3-a0a4-7a4c-a93a-e57bb9a8e67d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.99211496184577*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5cd22d93-c8ea-0f41-a118-9acab3b2ac73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921149618545456`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e8996af0-ee91-6c4e-afb5-235b878a6abe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.992114961867546*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"d1a06ca9-f385-b841-8587-d5915182226e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921149618755703`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"a10bd39f-b904-2642-bcf2-3664c2271221"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.992114961883545*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"03af447f-ab2e-c24f-91dc-6e09874be799"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.992114961893547*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"58de734c-1e92-884e-9be4-944ff658977b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.992114961902502*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"eb44e01b-ef45-4246-aece-bb00cd4c806f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921149619155617`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"7ea0ef79-4a03-344e-965f-7f88119ca068"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921149619251347`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"0a87ec08-a4cb-a045-9f2c-abc494ad5759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921149619380913`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"3fc8b509-a69e-274e-839d-d5113dee41be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992114961949091*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"36a3c2cb-54af-1840-a768-081b59a68041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921149619650097`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a8a7631d-7922-e848-996e-504fdebb79d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921149619806023`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"2fefc9ae-0743-8d44-90d4-ada0cb184848"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921149619936104`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"d317f5e9-e51f-3b49-b75e-fd85d0fa1e27"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.9921149620107117`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"aed84488-ec8a-9044-9deb-e084090e93e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.992114962029068*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"d0456ac0-ca41-9546-a020-1117c1dbbadb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.9921149620421715`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"989f46a1-fdd4-f748-b6bc-db8b261ca169"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921149620531063`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"d7059119-5bbe-8a41-a391-ffa3cabf696b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921149620640697`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"1878c857-f241-364e-a54d-70012c656632"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921149620750637`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"84fca45a-258b-214b-aeb9-3b84e9e5ceb7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921149620860634`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"b0002b9a-206a-6f48-9692-7365276facb1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921149621386833`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"f5bec4c8-09de-4d4a-ba58-1c0532454743"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.992114962268324*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"b56001e8-6d06-4643-ab3f-522e44e6796e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.99211496239394*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"1f1d1e30-b864-8849-a0ea-c33281d27c3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992114962531828*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"53836eec-bf48-9d41-bd56-30b38e1666df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.9921149627173805`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"76ea087b-5888-d841-a2ec-fda57dccca77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992114962837641*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"4eb7aed1-2543-6048-822b-7d761058dc7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992114962849848*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e2f15be6-df3a-684b-979d-d9a00f7e3324"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921149628616543`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"a22559fa-1db7-4946-8110-42f5b22aa2e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921149628727016`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"25633aec-b044-8043-99e4-c87838e73c6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921149628825397`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"050c7604-8434-024c-86dc-1532d8971cb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992114962894562*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"874b9837-c1eb-5649-8b32-2dd1fb9c7053"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992114962904213*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"6dfece24-4f8a-064c-8a36-9a6722a1ac6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921149629193115`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a10c6a76-bac1-3744-b703-c3f77f19c318"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921149629333344`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"0bd1ebca-715c-ce40-84c3-ee0b2350597b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.992114962946615*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"6b794901-2dbb-ef4c-8f51-4925d762d279"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.9921149629581833`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"eff83fce-9861-0640-949e-3302abd83e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.992114962968355*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"1ee5bb66-fca1-9847-b774-7f7c10477e0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.992114962979376*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"cc159df2-a55d-6b4c-a8a6-83ce26668e2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992114962996706*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"de38b97c-b3ef-8a4b-b46d-a158a1f84bc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.9921149630141315`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c6a60c2a-4688-0845-a409-a6208a34959f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921149630366325`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"79874302-a496-ea43-aa8e-0e99fcffd480"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921149630576153`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"4f9faacb-4bf7-1c4e-98e5-3353a4723c3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921149630824547`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9269d1ee-afc2-b64a-8dff-bdc793a4d183"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.992114963115473*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"685851a8-93ab-ab43-a567-cad58342b74f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.837971312644379"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.9920910722151566`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.837971312644379`"], "Output", + CellChangeTimes->{ + 3.99209124734313*^9, {3.9920913925663643`*^9, 3.9920914467149734`*^9}, { + 3.9920915030564556`*^9, 3.99209152249325*^9}, {3.992091561833349*^9, + 3.9920915884773655`*^9}, 3.9921149631390553`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"8b6161e6-dfbf-5646-84a1-63b48af9d759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.720943705549018"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.9920910762805347`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.720943705549018`"], "Output", + CellChangeTimes->{ + 3.9920912473496227`*^9, {3.9920913925723667`*^9, 3.99209144673744*^9}, { + 3.992091503081442*^9, 3.992091522517254*^9}, {3.992091561840351*^9, + 3.992091588500368*^9}, 3.9921149631583366`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"0494f0f2-8968-a949-9255-e862eecd53df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.991708376806082*^9, 3.992091247379696*^9, { + 3.9920913926003895`*^9, 3.992091446744587*^9}, {3.992091503088442*^9, + 3.9920915225432396`*^9}, {3.992091561865589*^9, 3.99209158850737*^9}, + 3.99211496317482*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7d2ce0d6-9ea8-4844-a69c-e9a62ec33eb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["3.169691239535262`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9917083768301735`*^9, 3.9920912474028854`*^9, { + 3.9920913926258183`*^9, 3.992091446771284*^9}, {3.9920915031104393`*^9, + 3.992091522564749*^9}, {3.992091561887459*^9, 3.992091588533552*^9}, + 3.9921149631995945`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"f7d38545-b985-494c-ac35-0d80b059cb71"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["2.4888435155157298`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.99170837683708*^9, 3.9920912474331017`*^9, { + 3.9920913926342983`*^9, 3.992091446798294*^9}, {3.9920915031184406`*^9, + 3.9920915225742664`*^9}, {3.9920915619149227`*^9, 3.9920915885415783`*^9}, + 3.992114963229204*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"51df2d1c-b4dd-6448-86ec-f6668dbf47a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"6c7f131a-588c-d84f-805a-1b114b97ab2e"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, + 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { + 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.992114963241251*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"99c71b79-8f14-1540-8215-5b58e433357d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"8f6a5672-c9b6-a24d-b043-0295522643ff"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { + 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, + 3.992091588571615*^9}, 3.992114963252428*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"9cf7168f-b9e7-094e-aa3b-d8c3de3f9e55"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"2cd16002-2250-9c44-87bb-4d4306484886"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, + 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { + 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.9921149632648296`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"17340104-5339-4348-bc1d-5060c0fbe074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"56eef390-47c4-9d43-b3ba-9976fee79488"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { + 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, + 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, + 3.992114963283415*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"b93a7d42-939d-054a-af67-a774de2af813"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"b6011101-322c-1d46-bf96-e6c81db8eb4e"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { + 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, + 3.9920915886284447`*^9}, 3.9921149632990303`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f98847e2-4874-0a47-bcbc-f52a151671f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"32af0bf4-8b8c-3246-9fed-2c6465d35f47"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, + 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { + 3.992091562006651*^9, 3.992091588636162*^9}, 3.9921149633151894`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"ddb97a74-9eb8-e54a-8130-56745d6dcfe6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"6aa7b23d-87fe-a147-ac22-171857e1023a"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { + 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, + 3.992091588657053*^9}, 3.992114963352579*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"41596472-9f7b-894f-bb36-0f6f119cc229"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"e8f9eb4e-3dfc-e54e-92f2-5edd25517c2d"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { + 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, + 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, + 3.9921149635934334`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"f1c89d1a-829e-d04d-a6f5-ad2c57f1c770"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel->"In[85]:=",ExpressionUUID->"2e619d97-78a3-1c4c-a6c4-66adaa1daf07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["31.55887696424881`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.9921149636595955`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"16a50347-89b7-ba45-b3fb-d1f8c6e6bd49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.992114963696701*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"75d0f30a-953b-6e4c-9f11-c404ebe221d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.6643985987346277`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.992114963711876*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"db69398b-af0e-cc42-b365-9503d4f94707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.9921149637232647`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0ad9d1d3-ea94-7647-854d-73d9763bf78b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.9921149637358055`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"dae97f8e-f163-5e4a-9d9d-bd206c80d59b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["52.52655059693424`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.9921149637548046`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"be7d5b09-48e4-7f46-8e7c-608be448bb98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.006582683191332945`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.99211496378574*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"61ecf1ac-a087-0942-8477-6e25ab082012"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[93]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["10.923038481432918`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.992114964016569*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"699b6c15-ad22-7f4b-9f4b-bb93a7f1ea8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[94]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.008787135652237422`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.992114964049124*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"aa54252b-8e62-4c49-b39f-f9a7d897d5e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[95]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["9.454123587003904`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9921149642589684`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"fe642b82-14c3-8145-9c72-7bfa90a46fb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.9921149642945004`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"74ca47c7-7d6f-dd46-b2ab-4813288b30d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[97]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9921149643195877`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c5056b66-835c-a74f-b6c7-b8093f65121e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.9921149643537025`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"53458e37-bd9c-f842-bca8-7ee48efe443c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795120812044*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 702, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9921149644185143`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bc8ffb3a-8f1c-454d-bf6a-edb3ab23f2ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 703, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9921149644673977`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"59404741-e0d7-8645-a9a2-be1a9ba31c1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 704, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992114964489395*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"82f165cd-3bba-cc4e-9a13-d2393577cf8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 705, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992114964508398*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f41e6c2b-26cc-3843-949a-35e2586ba40d"], + +Cell[BoxData["10.923038481432927`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.992114972152315*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"f77cbfd2-72b8-9a4b-b63f-a079f858694d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795125308359*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 706, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992114972290001*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"87eb4fe7-d283-f544-94f0-f155eb63b459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 707, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9921149723231087`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"bf0e76f5-eced-b244-961c-15f6a2399486"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 708, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992114972346998*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ebe7231f-1de4-cd4a-bec5-660806bdfdbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 709, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9921149723661118`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7a273a32-9466-ce4d-9076-9c2991fa1c65"], + +Cell[BoxData["9.45412358700391`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9921149797436237`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f3591d1a-d1d1-4f49-a593-c37d65ae85a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917951318268585`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7279323612023787, + 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7279323612023787, + 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7279323612023787, 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7279323612023804}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7279323612023787, 1.3493138548674284`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9921155677681904`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"e71ee3e7-9e19-e74e-9d61-cf680a4008b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.161795896769515`*^-273\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 710, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681240807`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"71ef9892-163e-b943-9a8a-4368ab0bbe1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.560362611386894`*^-286\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 711, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681479855`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"33a053fe-29f6-264e-81b1-14b63d8a9a25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.790065467192926`*^-298\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 712, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992115568165083*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"dfcf296f-7abc-7b4f-8fa8-8328fce927ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 713, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681880474`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"421b7d08-c781-0e47-ad3e-8cb8b25739f9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0695935889832101}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.992116143007641*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"cef69751-8b66-d544-a398-e65e42baae93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917354887085`*^9, 3.992091736687666*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921161431730633`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"cdb77bc3-bb49-814f-892e-c6cb28989706"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0695935889832101}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992116143249792*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"3ff2b36c-292a-fa4c-b578-330f46ddc49f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["15.77237760339731`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.9921161433258743`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"61122fc0-29e6-ad4a-bf3e-4d56f90cc913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991795437556492*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.8165720655564655`*^-260\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 107, 714, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921161435943527`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"8ac3137f-9f13-664a-8477-3a4565990417"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.484584649924521`*^-270\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 107, 715, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921161436153297`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"5ef1aa89-df87-6d45-bde2-dd580e1a353d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0613056647566823`*^-280\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 107, 716, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992116143635332*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"d06032c5-0937-9742-b2a0-7d5e1e6c1331"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 107, 717, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992116143653328*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"daddf468-7583-bf44-91fd-bd930c4f908f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.04819650337669226}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.99211688291086*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"957ebdd5-6efe-574c-ab58-3a77402eb4ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.804770507106392`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 108, + 718, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9921168830411835`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"9c774682-5788-804b-8579-bdd03ecfe2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.46437919628907`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 108, + 719, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883067087*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"69ddd773-dbf4-2f4d-b9c0-fd747e7d1d09"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.214540310858515`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 108, 720, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883090191*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"0f967daa-d6ce-9b48-bed7-96051489b90b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 721, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883117201*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"af261e6f-3801-0644-aec0-488440ab726e"], + +Cell[BoxData["15.77237755632851`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.992116950640154*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"601c52aa-159a-7843-94b0-a82de69e3860"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 722, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507481194`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"c954441f-1ae2-e949-8a0b-96abea946cec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 723, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507682323`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f1ef4cc8-0365-f54e-b9df-4f88dae2b79a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 724, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507841187`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"1134f2df-f8fa-e343-b191-80e4cc21e976"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 725, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992116950800247*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"8f6b057c-e266-b145-ada4-59fddf19b8b2"], + +Cell[BoxData["0.974284297176629`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9921169618144894`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"83f6ae82-5313-8d40-8220-60be1721a92d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 726, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9921169619365234`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"c496535e-9262-0143-8dd7-9fc662e3121a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 727, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116961977518*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"3c91d766-7141-ff4e-bd5f-c02cc47fdaf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 728, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116962002531*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"17a235ab-80c1-3f42-90be-45a84f2dd5ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 729, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116962019512*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"c9b71057-d464-4441-b8ef-d57aab133873"], + +Cell[BoxData["32.60096686486539`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9921169724725094`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f1ec9105-d252-e647-b580-2a785267bf39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 730, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9921169725765095`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"5dab5525-8323-124e-b334-b1da729865b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 731, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9921169726085167`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"5b9d825c-d440-4a41-88eb-ae4641a286b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 732, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.992116972633415*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"2c51dc73-9615-6440-a875-a3a3589b1191"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 111, 733, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.992116972654415*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"0e600335-f46f-dd4b-bb32-66168281687d"], + +Cell[BoxData["24.42227423084205`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.992116980895174*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"d0dfcaf9-b4a6-9a49-a5c2-80eb66910cbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.03452847607245557`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.9921169809826984`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"fb7fbbe4-1127-7e41-9579-45d4b66bff88"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.992116981026932*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"e1ece8f9-6eb9-1f45-b23d-59a2aa5e3284"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.992116981059923*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"abdee6f3-9cc8-6749-90c7-00d677a0cd75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.9921169811009274`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"a9404d47-1f6e-f144-b017-d6bc01fdc1f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.992116981136923*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"c9345d33-d0e8-ef4d-bbbd-a32a53ec0027"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[118]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.992116981359251*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9fd93fa4-1a45-2d46-baf6-43673993c68c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[119]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.00967738149165865`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.992116981402214*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"271ed5f0-1bf6-b240-ad09-a7d7a6fd4925"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["9.008780591802244`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.9921169816247616`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"bbe1c22a-c3b4-094f-a0bd-8ce8b27946df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9921169816564484`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"37bf5cb3-ee2c-1a43-a40a-7d93e05dbe06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992116981685461*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"253f7a71-1d3d-2341-a5d8-affd53b97230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.99211698171146*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"8c2ae604-040c-b546-bded-822deceaedd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179485681155*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 734, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9921169817604485`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c6ef7fd9-6659-c845-a4a0-23cf645dfe56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 735, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981782463*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b8530b1b-9735-eb4c-ade3-fc61db7ba117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 736, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981799448*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"1096c8b6-8a12-6a4c-847a-ffca000b212d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 737, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981812462*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"0a7ccc1f-e145-5243-8f45-e174338794e1"], + +Cell[BoxData["10.539945190547904`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.992116990153946*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"e7d7935a-cacf-3745-8aec-827baa1e4ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179697882374*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 125, 738, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169902519474`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"96eef200-db2a-d947-b64d-e6061d33b314"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 739, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.99211699028985*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ba70f34a-96f6-0349-b7e1-61ee7d1f7569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 740, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169903159714`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ef8c1fdd-3747-e647-af3b-7c195cfc008b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 741, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169903349457`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ecf9da16-a140-2a4b-ba11-a3dd1e226561"], + +Cell[BoxData["9.00878059180224`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9921169986604404`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"a30f483c-d4a1-0045-ba4c-615ca77e7054"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.303372314419356`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 742, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999048628*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"6ab7f9be-c01e-824a-ab42-e7edd2fa2730"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1330092679924926`*^-286\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 743, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999079529*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"ed2dd856-02ec-af41-aef0-0d47358603b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3798329874074323`*^-298\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 126, 744, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.99211699909663*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"683d9bfd-9f8d-3d45-942b-a43690671a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 126, 745, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999117628*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"2c92984f-ce76-8642-85be-b2b7d0aed04f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07212309317953056}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.992117573901388*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"5c9eb9ae-aae8-d647-91dc-b75eef00c283"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, 3.99179702451466*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07212309317953056}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992117574029867*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"72e560cb-f709-ce4b-8fca-b8ff5e3d7545"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5774327686647045`*^-184\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 746, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9921175741407204`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"e424e5e5-64e8-594d-bab5-d717e9f327df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7982636502938937`*^-188\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 128, 747, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.992117574170719*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"1791624e-fe73-7e40-b091-db5b4e942818"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.963938629970536`*^-192\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 128, 748, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.992117574192713*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"c4f1578d-5b5c-c349-a546-c231fcb7ba61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 128, 749, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9921175742077084`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"b850d75f-3206-934d-afd2-e8853fb26283"], + +Cell[BoxData["15.772376513542959`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9, + 3.992117642481001*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ee83eab7-201d-604d-8398-b6a81a8d3e46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970149184284`*^9, 3.991797037687023*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 129, 750, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9921176425981045`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"93e6f8ef-cffc-be4f-ab0e-da05ccc5b220"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 129, 751, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642635103*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"a3924115-f4ef-7f47-98cd-e48d8582219e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 129, 752, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642658106*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"fd2afa9b-1f0b-5c46-9353-b3f9d715efc7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 129, 753, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642677101*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"e1a1b3ed-c523-9248-b96d-8aa720095129"], + +Cell[BoxData["2.1145701187292274`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9, + 3.99211765400473*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"afc0e34f-8f42-a34c-a43e-5522205dedc6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970412382812`*^9, 3.991797045066601*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 130, 754, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176541792793`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"e7af73df-b88a-3b47-a1c9-da4745825aab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 130, 755, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176542052727`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"08b155c9-5219-b346-9aed-6c5f739140ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 130, 756, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176542222767`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"dbe43aa5-0b08-8742-a860-3f9b0271f839"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 130, 757, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.992117654237276*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c9ed5e32-b8ec-b348-8e3a-5333ed7c3b00"], + +Cell[BoxData["30.354302512328353`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9, + 3.9921176648669834`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"8abaee75-0596-e045-b564-1e76e7bbef78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970522453213`*^9, 3.991797055966772*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 131, 758, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117664983076*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"d60707ce-4c54-5a46-b6d2-2f6d5d95c12e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 759, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117665005089*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"71d146c7-8654-a942-8c08-39b95319cde8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 760, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.9921176650219765`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"6aeb0f11-1d10-2d49-8201-875b850c5641"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 131, 761, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117665034971*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"298d0521-dccb-384e-ae7d-d906c95cdd8f"], + +Cell[BoxData["22.175609878305064`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9, + 3.9921176735927143`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"c21ef28d-efd7-8b4b-88a2-fbf4eb0c298e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, 3.9917970642464314`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], + +Cell[BoxData["0.08150310898359221`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9, + 3.9921176736607094`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"01cb00ea-dc7e-5440-a744-6c1e6771c16b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9}, + CellLabel-> + "In[133]:=",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["38.850251957567444`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9, + 3.9921176736923714`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"81e8fdb8-cffa-cf40-9c58-f0db7a1dbb41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["1.500103387489979`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9, + 3.9921176737128887`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"99b6efb3-7fde-9841-b098-03c5b91b6899"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["58.27939456638611`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9, + 3.9921176737382812`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"0f7f52cf-8035-3e4e-93aa-82f2459a0642"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.006342498180789202`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9, + 3.9921176737622147`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"bd7feb3a-a9b9-7f43-a73b-e42a7e655cc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[138]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["11.12793973540404`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9, + 3.9921176739782124`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"254b34a4-79c8-8749-be40-c2fc0496cb3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[139]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.008364311187233565`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9, + 3.992117674015915*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"2af762d4-bad9-814b-9203-21ace46d8db6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[140]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["9.690135493699923`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9, + 3.992117674234255*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"899c67f9-9662-3c41-bdc9-95fd31ba3638"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9, + 3.992117674271351*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"d81423e0-c9e8-774b-b474-6cb2c8eda2e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9, + 3.992117674303444*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"e6981bae-92ce-5842-9d61-78595840c82b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9, + 3.99211767433444*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"458b4024-904a-e348-bf64-65fa005a2568"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9917970976395664`*^9}, + CellLabel-> + "In[144]:=",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 762, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176743953304`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3f956691-abe9-4f4a-a867-53ce2edb33c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 763, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176744264355`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"58802660-344e-c647-aca6-d7a4a0fb14f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 764, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176744464264`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c39dc9a4-864a-5444-839c-810c17908706"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 765, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.992117674462425*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"2d714eeb-241c-c64f-83ac-641abc688a84"], + +Cell[BoxData["11.12793973540404`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9, + 3.9921176819322777`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"bccf39af-7e2b-2d4d-8d7b-568473b5028b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991797103207548*^9}, + CellLabel-> + "In[145]:=",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 766, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.992117682024523*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0e128053-7499-9848-8935-ff01354c3f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 767, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.992117682050621*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"71eebdb4-1429-3049-bcb2-79d7e6e438d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 768, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9921176820706215`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"21c4d7fc-1662-f04e-9948-73ddc0bb9d27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 769, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9921176820835285`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"9f8c3dcc-2210-cf41-acad-e76e5c853c8f"], + +Cell[BoxData["9.690135493699929`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9, + 3.9921176895764484`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"47e06c6e-5ae4-4841-810c-5437fcae542e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, 3.9917971122297535`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.571310198762452`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 770, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176898864384`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"ed73331f-101b-b74b-8546-9c4bbb0bcf48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.005454786209439`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 771, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992117689906502*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"69622c03-9ec2-bd46-9993-94022257e50a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.748552054879641`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 772, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176899233894`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"41d62387-06ec-f54c-9b1b-94dd026bb208"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 773, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176899404945`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"bff5daf2-81c7-1f4d-93c5-1ad23da243ed"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0683121434143604}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9, 3.992118227062689*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e250ce20-148b-d34b-8bc2-4492c9bb0167"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0683121434143604}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992118227177088*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"61202f13-9cec-c048-81dc-70c1c923455f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[148]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4154964045202317`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 774, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227285013*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"1ebaba7c-d54a-4146-8ed9-d1674c7d7437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2315276692186634`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 775, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227313917*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"7dee0740-8bf1-7a4d-98b8-9a472ed95101"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.061570337744944`*^-198\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 776, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227329914*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"2face5a9-3a55-7442-a8c1-3acffee7515d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 148, 777, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9921182273470116`*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"c96ed26e-307b-d148-bffa-2e58146d6379"], + +Cell[BoxData["15.77237759165342`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9, + 3.992118293239977*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"9e8f93ce-1159-814d-a789-703b16603d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971275265427`*^9, 3.991797131794855*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 149, 778, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.9921182933924065`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"627808ed-8833-bc44-8d55-62a147e553ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 149, 779, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992118293412508*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"9077d0f3-2989-5043-aa4a-56663a402c32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 149, 780, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.9921182934295063`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"65b5fadc-fdee-a34e-9727-82c84639da92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 149, 781, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992118293445505*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"be206705-fdbf-5a4a-aeb0-f1156e89d56f"], + +Cell[BoxData["0.5591021871758874`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9, + 3.9921183043067913`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"f46809f1-4a05-3743-8275-b7cf465ef77c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971357813015`*^9, 3.991797138809105*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 150, 782, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992118304421419*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"dd6e56cd-54b9-844e-acb7-200a41a83eaa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 150, 783, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992118304454422*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"7f06a280-2ebe-9643-902e-2e4a6361c8bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 150, 784, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.9921183044814205`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"8995d681-c289-7a4b-87df-132cc4783467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 150, 785, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.99211830449942*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"1f82d05b-4318-9246-b763-e6c519a3d481"], + +Cell[BoxData["33.83553774639779`"], "Output", + CellChangeTimes->{3.9921183146740036`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"bfdaccc8-c58d-9846-9fe6-a06af57d551e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, 3.991709478503729*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], + +Cell[BoxData["8.211884331115483`"], "Output", + CellChangeTimes->{3.992118314742918*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"c44a3258-a0dc-924d-9454-21797db6fd29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971437506504`*^9, 3.991797147210884*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 152, 786, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314793701*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"a78992d4-87ec-554d-89a4-93e92a625e51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 152, 787, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314836796*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d4d9979a-aff7-c549-97f1-8d4c94394a80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 152, 788, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.9921183148617954`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"829ef7d0-fe81-2946-b5e8-ebd865effad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 152, 789, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314889797*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d98abecf-e38b-7242-a73b-c7f0b91dccdf"], + +Cell[BoxData["25.656845112374317`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9, + 3.99211832289073*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"515d30c5-cf37-b240-b3fe-a0d604ba96a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, 3.9917971576817684`*^9}}, + CellLabel-> + "In[153]:=",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], + +Cell[BoxData["0.018975927982277267`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9, + 3.992118322961733*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"cee114d7-949d-a949-ad86-d92b2d8b95d6"] +}, Open ]] +}, +WindowSize->{1440, 741.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[1031, 31, 354, 5, 25, "Output",ExpressionUUID->"a7299129-bbf4-5c4c-9d26-8eca0c38b246"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1422, 41, 346, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1771, 48, 429, 6, 25, "Output",ExpressionUUID->"9269ae25-8e84-5f4a-ae7b-5271046d2399"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2237, 59, 253, 5, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[2493, 66, 428, 6, 25, "Output",ExpressionUUID->"37c37e51-de29-2c4c-a106-a9712e22f3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2958, 77, 175, 3, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[3136, 82, 401, 6, 25, "Output",ExpressionUUID->"ed34d0f4-b2cb-4846-b577-5fab7b27974b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3574, 93, 257, 7, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[3834, 102, 412, 6, 25, "Output",ExpressionUUID->"aa7f3430-612b-8b48-95d4-3c4d1b88c329"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4283, 113, 131, 2, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[4417, 117, 405, 6, 25, "Output",ExpressionUUID->"22721aad-1be3-364e-a18c-701f91ea77f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4859, 128, 276, 6, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[5138, 136, 417, 6, 25, "Output",ExpressionUUID->"b868e38d-b64a-dc43-a954-7c8e98e8a678"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5592, 147, 257, 7, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[5852, 156, 418, 6, 25, "Output",ExpressionUUID->"47088bbd-8358-3343-badb-22bbe4a2a8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6307, 167, 236, 4, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[6546, 173, 438, 6, 25, "Output",ExpressionUUID->"7b2868a6-0a88-e843-a499-e9f7fc635e75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7021, 184, 236, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[7260, 190, 438, 6, 25, "Output",ExpressionUUID->"5534dd71-3278-4046-ac2f-3c1afc8610d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7735, 201, 129, 2, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[7867, 205, 402, 6, 25, "Output",ExpressionUUID->"befc3b7b-561e-5444-9b7c-d2fe90c13c4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8306, 216, 129, 2, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[8438, 220, 399, 6, 25, "Output",ExpressionUUID->"9d5744b8-9530-584b-9e97-63f23041e347"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8874, 231, 557, 19, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[9434, 252, 398, 6, 25, "Output",ExpressionUUID->"092186ce-5ed2-5145-8e33-3cbb5611da0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9869, 263, 557, 19, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[10429, 284, 400, 6, 25, "Output",ExpressionUUID->"e500737c-497e-3f45-92da-5a8b2f159efb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10866, 295, 1492, 48, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[12361, 345, 396, 6, 25, "Output",ExpressionUUID->"6094b55c-c9cc-ec46-be7c-13c57a67e950"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12794, 356, 1331, 44, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[14128, 402, 414, 7, 25, "Output",ExpressionUUID->"69bfbdb2-54df-b542-8b02-6309ae33c809"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14579, 414, 1331, 44, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[15913, 460, 421, 7, 25, "Output",ExpressionUUID->"a3d828d3-a0a4-7a4c-a93a-e57bb9a8e67d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16371, 472, 1492, 48, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[17866, 522, 389, 6, 25, "Output",ExpressionUUID->"5cd22d93-c8ea-0f41-a118-9acab3b2ac73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18292, 533, 131, 2, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[18426, 537, 382, 6, 25, "Output",ExpressionUUID->"e8996af0-ee91-6c4e-afb5-235b878a6abe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18845, 548, 177, 3, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[19025, 553, 378, 6, 25, "Output",ExpressionUUID->"d1a06ca9-f385-b841-8587-d5915182226e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19440, 564, 134, 2, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[19577, 568, 388, 6, 25, "Output",ExpressionUUID->"a10bd39f-b904-2642-bcf2-3664c2271221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20002, 579, 219, 4, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[20224, 585, 389, 7, 25, "Output",ExpressionUUID->"03af447f-ab2e-c24f-91dc-6e09874be799"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20650, 597, 134, 2, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[20787, 601, 382, 6, 25, "Output",ExpressionUUID->"58de734c-1e92-884e-9be4-944ff658977b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21206, 612, 302, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[21511, 619, 328, 5, 25, "Output",ExpressionUUID->"eb44e01b-ef45-4246-aece-bb00cd4c806f"] +}, Open ]], +Cell[21854, 627, 173, 2, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[22052, 633, 296, 5, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[22351, 640, 377, 6, 25, "Output",ExpressionUUID->"7ea0ef79-4a03-344e-965f-7f88119ca068"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22765, 651, 219, 4, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[22987, 657, 379, 6, 25, "Output",ExpressionUUID->"0a87ec08-a4cb-a045-9f2c-abc494ad5759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23403, 668, 350, 10, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[23756, 680, 397, 6, 25, "Output",ExpressionUUID->"3fc8b509-a69e-274e-839d-d5113dee41be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24190, 691, 350, 10, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[24543, 703, 408, 7, 25, "Output",ExpressionUUID->"36a3c2cb-54af-1840-a768-081b59a68041"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24988, 715, 992, 26, 47, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[25983, 743, 400, 6, 25, "Output",ExpressionUUID->"a8a7631d-7922-e848-996e-504fdebb79d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26420, 754, 199, 3, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[26622, 759, 384, 6, 25, "Output",ExpressionUUID->"2fefc9ae-0743-8d44-90d4-ada0cb184848"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27043, 770, 275, 4, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[27321, 776, 339, 5, 25, "Output",ExpressionUUID->"d317f5e9-e51f-3b49-b75e-fd85d0fa1e27"] +}, Open ]], +Cell[27675, 784, 175, 2, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[27875, 790, 323, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[28201, 797, 339, 5, 25, "Output",ExpressionUUID->"aed84488-ec8a-9044-9deb-e084090e93e4"] +}, Open ]], +Cell[28555, 805, 173, 2, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[28753, 811, 343, 6, 37, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[29099, 819, 329, 5, 25, "Output",ExpressionUUID->"d0456ac0-ca41-9546-a020-1117c1dbbadb"] +}, Open ]], +Cell[29443, 827, 175, 2, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[29643, 833, 347, 6, 37, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[29993, 841, 339, 5, 25, "Output",ExpressionUUID->"989f46a1-fdd4-f748-b6bc-db8b261ca169"] +}, Open ]], +Cell[30347, 849, 175, 2, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[30547, 855, 273, 4, 22, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[30823, 861, 329, 5, 25, "Output",ExpressionUUID->"d7059119-5bbe-8a41-a391-ffa3cabf696b"] +}, Open ]], +Cell[31167, 869, 173, 2, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[31365, 875, 277, 4, 22, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[31645, 881, 334, 5, 25, "Output",ExpressionUUID->"1878c857-f241-364e-a54d-70012c656632"] +}, Open ]], +Cell[31994, 889, 171, 2, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[32190, 895, 325, 6, 37, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[32518, 903, 328, 5, 25, "Output",ExpressionUUID->"84fca45a-258b-214b-aeb9-3b84e9e5ceb7"] +}, Open ]], +Cell[32861, 911, 175, 2, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[33061, 917, 270, 5, 37, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[33334, 924, 330, 5, 25, "Output",ExpressionUUID->"b0002b9a-206a-6f48-9692-7365276facb1"] +}, Open ]], +Cell[33679, 932, 171, 2, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[33875, 938, 19809, 485, 783, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[53687, 1425, 390, 6, 25, "Output",ExpressionUUID->"f5bec4c8-09de-4d4a-ba58-1c0532454743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54114, 1436, 19748, 489, 832, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[73865, 1927, 395, 6, 25, "Output",ExpressionUUID->"b56001e8-6d06-4643-ab3f-522e44e6796e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74297, 1938, 19748, 483, 876, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[94048, 2423, 410, 7, 25, "Output",ExpressionUUID->"1f1d1e30-b864-8849-a0ea-c33281d27c3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94495, 2435, 22534, 553, 972, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[117032, 2990, 413, 7, 25, "Output",ExpressionUUID->"53836eec-bf48-9d41-bd56-30b38e1666df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117482, 3002, 22535, 553, 972, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[140020, 3557, 413, 7, 25, "Output",ExpressionUUID->"76ea087b-5888-d841-a2ec-fda57dccca77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140470, 3569, 25491, 626, 1068, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[165964, 4197, 408, 7, 25, "Output",ExpressionUUID->"4eb7aed1-2543-6048-822b-7d761058dc7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166409, 4209, 130, 2, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[166542, 4213, 378, 6, 25, "Output",ExpressionUUID->"e2f15be6-df3a-684b-979d-d9a00f7e3324"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166957, 4224, 130, 2, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[167090, 4228, 378, 6, 25, "Output",ExpressionUUID->"a22559fa-1db7-4946-8110-42f5b22aa2e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167505, 4239, 1144, 39, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[168652, 4280, 399, 6, 25, "Output",ExpressionUUID->"25633aec-b044-8043-99e4-c87838e73c6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169088, 4291, 1041, 35, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[170132, 4328, 409, 7, 25, "Output",ExpressionUUID->"050c7604-8434-024c-86dc-1532d8971cb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170578, 4340, 1144, 39, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[171725, 4381, 400, 6, 25, "Output",ExpressionUUID->"874b9837-c1eb-5649-8b32-2dd1fb9c7053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172162, 4392, 108, 1, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[172273, 4395, 394, 6, 25, "Output",ExpressionUUID->"6dfece24-4f8a-064c-8a36-9a6722a1ac6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172704, 4406, 108, 1, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[172815, 4409, 413, 7, 25, "Output",ExpressionUUID->"a10c6a76-bac1-3744-b703-c3f77f19c318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173265, 4421, 108, 1, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[173376, 4424, 415, 7, 25, "Output",ExpressionUUID->"0bd1ebca-715c-ce40-84c3-ee0b2350597b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173828, 4436, 108, 1, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[173939, 4439, 398, 6, 25, "Output",ExpressionUUID->"6b794901-2dbb-ef4c-8f51-4925d762d279"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174374, 4450, 107, 1, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[174484, 4453, 393, 6, 25, "Output",ExpressionUUID->"eff83fce-9861-0640-949e-3302abd83e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174914, 4464, 107, 1, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[175024, 4467, 393, 6, 25, "Output",ExpressionUUID->"1ee5bb66-fca1-9847-b774-7f7c10477e0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175454, 4478, 497, 16, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[175954, 4496, 407, 7, 25, "Output",ExpressionUUID->"cc159df2-a55d-6b4c-a8a6-83ce26668e2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176398, 4508, 497, 16, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[176898, 4526, 412, 7, 25, "Output",ExpressionUUID->"de38b97c-b3ef-8a4b-b46d-a158a1f84bc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177347, 4538, 1788, 60, 46, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[179138, 4600, 397, 6, 25, "Output",ExpressionUUID->"c6a60c2a-4688-0845-a409-a6208a34959f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179572, 4611, 1101, 36, 46, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[180676, 4649, 412, 7, 25, "Output",ExpressionUUID->"79874302-a496-ea43-aa8e-0e99fcffd480"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181125, 4661, 1818, 61, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[182946, 4724, 395, 6, 25, "Output",ExpressionUUID->"4f9faacb-4bf7-1c4e-98e5-3353a4723c3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183378, 4735, 2499, 77, 24, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[185880, 4814, 397, 6, 25, "Output",ExpressionUUID->"9269d1ee-afc2-b64a-8dff-bdc793a4d183"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186314, 4825, 2499, 77, 24, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[188816, 4904, 387, 6, 25, "Output",ExpressionUUID->"685851a8-93ab-ab43-a567-cad58342b74f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189240, 4915, 236, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[189479, 4921, 345, 5, 25, "Output",ExpressionUUID->"8b6161e6-dfbf-5646-84a1-63b48af9d759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189861, 4931, 265, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[190129, 4937, 342, 5, 25, "Output",ExpressionUUID->"0494f0f2-8968-a949-9255-e862eecd53df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190508, 4947, 1297, 42, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[191808, 4991, 391, 6, 25, "Output",ExpressionUUID->"7d2ce0d6-9ea8-4844-a69c-e9a62ec33eb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192236, 5002, 834, 27, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[193073, 5031, 399, 6, 25, "Output",ExpressionUUID->"f7d38545-b985-494c-ac35-0d80b059cb71"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193509, 5042, 889, 30, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[194401, 5074, 404, 6, 25, "Output",ExpressionUUID->"51df2d1c-b4dd-6448-86ec-f6668dbf47a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194842, 5085, 554, 18, 42, "Input",ExpressionUUID->"6c7f131a-588c-d84f-805a-1b114b97ab2e"], +Cell[195399, 5105, 585, 8, 25, "Output",ExpressionUUID->"99c71b79-8f14-1540-8215-5b58e433357d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196021, 5118, 661, 21, 42, "Input",ExpressionUUID->"8f6a5672-c9b6-a24d-b043-0295522643ff"], +Cell[196685, 5141, 572, 8, 25, "Output",ExpressionUUID->"9cf7168f-b9e7-094e-aa3b-d8c3de3f9e55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197294, 5154, 166, 4, 46, "Input",ExpressionUUID->"2cd16002-2250-9c44-87bb-4d4306484886"], +Cell[197463, 5160, 597, 8, 25, "Output",ExpressionUUID->"17340104-5339-4348-bc1d-5060c0fbe074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198097, 5173, 232, 5, 45, "Input",ExpressionUUID->"56eef390-47c4-9d43-b3ba-9976fee79488"], +Cell[198332, 5180, 536, 8, 25, "Output",ExpressionUUID->"b93a7d42-939d-054a-af67-a774de2af813"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198905, 5193, 219, 5, 35, "Input",ExpressionUUID->"b6011101-322c-1d46-bf96-e6c81db8eb4e"], +Cell[199127, 5200, 569, 8, 25, "Output",ExpressionUUID->"f98847e2-4874-0a47-bcbc-f52a151671f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199733, 5213, 177, 4, 35, "Input",ExpressionUUID->"32af0bf4-8b8c-3246-9fed-2c6465d35f47"], +Cell[199913, 5219, 587, 8, 25, "Output",ExpressionUUID->"ddb97a74-9eb8-e54a-8130-56745d6dcfe6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200537, 5232, 6051, 184, 153, "Input",ExpressionUUID->"6aa7b23d-87fe-a147-ac22-171857e1023a"], +Cell[206591, 5418, 566, 8, 25, "Output",ExpressionUUID->"41596472-9f7b-894f-bb36-0f6f119cc229"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207194, 5431, 364, 8, 33, "Input",ExpressionUUID->"e8f9eb4e-3dfc-e54e-92f2-5edd25517c2d"], +Cell[207561, 5441, 545, 8, 25, "Output",ExpressionUUID->"f1c89d1a-829e-d04d-a6f5-ad2c57f1c770"] +}, Open ]], +Cell[208121, 5452, 488, 9, 34, "Input",ExpressionUUID->"2e619d97-78a3-1c4c-a6c4-66adaa1daf07"], +Cell[CellGroupData[{ +Cell[208634, 5465, 554, 18, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[209191, 5485, 215, 3, 25, "Output",ExpressionUUID->"16a50347-89b7-ba45-b3fb-d1f8c6e6bd49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209443, 5493, 619, 20, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[210065, 5515, 218, 3, 25, "Output",ExpressionUUID->"75d0f30a-953b-6e4c-9f11-c404ebe221d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210320, 5523, 166, 4, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[210489, 5529, 216, 3, 25, "Output",ExpressionUUID->"db69398b-af0e-cc42-b365-9503d4f94707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210742, 5537, 166, 4, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[210911, 5543, 216, 3, 25, "Output",ExpressionUUID->"0ad9d1d3-ea94-7647-854d-73d9763bf78b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211164, 5551, 177, 4, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[211344, 5557, 219, 3, 25, "Output",ExpressionUUID->"dae97f8e-f163-5e4a-9d9d-bd206c80d59b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211600, 5565, 177, 4, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[211780, 5571, 219, 3, 25, "Output",ExpressionUUID->"be7d5b09-48e4-7f46-8e7c-608be448bb98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212036, 5579, 6051, 184, 153, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[218090, 5765, 217, 3, 25, "Output",ExpressionUUID->"61ecf1ac-a087-0942-8477-6e25ab082012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218344, 5773, 364, 8, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[218711, 5783, 216, 3, 25, "Output",ExpressionUUID->"699b6c15-ad22-7f4b-9f4b-bb93a7f1ea8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218964, 5791, 6118, 186, 153, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[225085, 5979, 220, 3, 25, "Output",ExpressionUUID->"aa54252b-8e62-4c49-b39f-f9a7d897d5e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225342, 5987, 364, 8, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[225709, 5997, 219, 3, 25, "Output",ExpressionUUID->"fe642b82-14c3-8145-9c72-7bfa90a46fb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225965, 6005, 2659, 87, 90, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[228627, 6094, 220, 3, 25, "Output",ExpressionUUID->"74ca47c7-7d6f-dd46-b2ab-4813288b30d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228884, 6102, 2599, 84, 46, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[231486, 6188, 220, 3, 25, "Output",ExpressionUUID->"c5056b66-835c-a74f-b6c7-b8093f65121e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231743, 6196, 3708, 117, 135, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[235454, 6315, 221, 3, 25, "Output",ExpressionUUID->"53458e37-bd9c-f842-bca8-7ee48efe443c"] +}, Open ]], +Cell[235690, 6321, 276, 5, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[235991, 6330, 2075, 59, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[238069, 6391, 596, 12, 33, "Message",ExpressionUUID->"bc8ffb3a-8f1c-454d-bf6a-edb3ab23f2ab"], +Cell[238668, 6405, 603, 13, 33, "Message",ExpressionUUID->"59404741-e0d7-8645-a9a2-be1a9ba31c1a"], +Cell[239274, 6420, 606, 13, 33, "Message",ExpressionUUID->"82f165cd-3bba-cc4e-9a13-d2393577cf8e"], +Cell[239883, 6435, 507, 11, 20, "Message",ExpressionUUID->"f41e6c2b-26cc-3843-949a-35e2586ba40d"], +Cell[240393, 6448, 222, 4, 25, "Output",ExpressionUUID->"f77cbfd2-72b8-9a4b-b63f-a079f858694d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240652, 6457, 2075, 59, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[242730, 6518, 592, 12, 33, "Message",ExpressionUUID->"87eb4fe7-d283-f544-94f0-f155eb63b459"], +Cell[243325, 6532, 601, 13, 33, "Message",ExpressionUUID->"bf0e76f5-eced-b244-961c-15f6a2399486"], +Cell[243929, 6547, 604, 13, 33, "Message",ExpressionUUID->"ebe7231f-1de4-cd4a-bec5-660806bdfdbd"], +Cell[244536, 6562, 507, 11, 20, "Message",ExpressionUUID->"7a273a32-9466-ce4d-9076-9c2991fa1c65"], +Cell[245046, 6575, 218, 4, 25, "Output",ExpressionUUID->"f3591d1a-d1d1-4f49-a593-c37d65ae85a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245301, 6584, 1961, 53, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[247265, 6639, 20290, 381, 190, "Output",ExpressionUUID->"e71ee3e7-9e19-e74e-9d61-cf680a4008b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267592, 7025, 2139, 60, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[269734, 7087, 544, 12, 33, "Message",ExpressionUUID->"71ef9892-163e-b943-9a8a-4368ab0bbe1e"], +Cell[270281, 7101, 546, 12, 33, "Message",ExpressionUUID->"33a053fe-29f6-264e-81b1-14b63d8a9a25"], +Cell[270830, 7115, 547, 12, 33, "Message",ExpressionUUID->"dfcf296f-7abc-7b4f-8fa8-8328fce927ca"], +Cell[271380, 7129, 505, 11, 20, "Message",ExpressionUUID->"421b7d08-c781-0e47-ad3e-8cb8b25739f9"], +Cell[271888, 7142, 22482, 416, 187, "Output",ExpressionUUID->"cef69751-8b66-d544-a398-e65e42baae93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294407, 7563, 1889, 51, 50, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[296299, 7616, 8999, 210, 193, "Output",ExpressionUUID->"cdb77bc3-bb49-814f-892e-c6cb28989706"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305335, 7831, 280, 6, 34, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[305618, 7839, 28468, 540, 187, "Output",ExpressionUUID->"3ff2b36c-292a-fa4c-b578-330f46ddc49f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334123, 8384, 324, 10, 35, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[334450, 8396, 223, 4, 25, "Output",ExpressionUUID->"61122fc0-29e6-ad4a-bf3e-4d56f90cc913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334710, 8405, 1837, 53, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[336550, 8460, 528, 11, 33, "Message",ExpressionUUID->"8ac3137f-9f13-664a-8477-3a4565990417"], +Cell[337081, 8473, 530, 11, 33, "Message",ExpressionUUID->"5ef1aa89-df87-6d45-bde2-dd580e1a353d"], +Cell[337614, 8486, 532, 11, 33, "Message",ExpressionUUID->"d06032c5-0937-9742-b2a0-7d5e1e6c1331"], +Cell[338149, 8499, 478, 10, 20, "Message",ExpressionUUID->"daddf468-7583-bf44-91fd-bd930c4f908f"], +Cell[338630, 8511, 22019, 406, 188, "Output",ExpressionUUID->"957ebdd5-6efe-574c-ab58-3a77402eb4ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360686, 8922, 1616, 48, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[362305, 8972, 625, 13, 33, "Message",ExpressionUUID->"9c774682-5788-804b-8579-bdd03ecfe2c7"], +Cell[362933, 8987, 625, 13, 33, "Message",ExpressionUUID->"69ddd773-dbf4-2f4d-b9c0-fd747e7d1d09"], +Cell[363561, 9002, 629, 13, 33, "Message",ExpressionUUID->"0f967daa-d6ce-9b48-bed7-96051489b90b"], +Cell[364193, 9017, 502, 11, 20, "Message",ExpressionUUID->"af261e6f-3801-0644-aec0-488440ab726e"], +Cell[364698, 9030, 219, 4, 25, "Output",ExpressionUUID->"601c52aa-159a-7843-94b0-a82de69e3860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364954, 9039, 2300, 65, 62, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[367257, 9106, 594, 12, 33, "Message",ExpressionUUID->"c954441f-1ae2-e949-8a0b-96abea946cec"], +Cell[367854, 9120, 601, 13, 33, "Message",ExpressionUUID->"f1ef4cc8-0365-f54e-b9df-4f88dae2b79a"], +Cell[368458, 9135, 606, 13, 33, "Message",ExpressionUUID->"1134f2df-f8fa-e343-b191-80e4cc21e976"], +Cell[369067, 9150, 505, 11, 20, "Message",ExpressionUUID->"8f6b057c-e266-b145-ada4-59fddf19b8b2"], +Cell[369575, 9163, 221, 4, 25, "Output",ExpressionUUID->"83f6ae82-5313-8d40-8220-60be1721a92d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369833, 9172, 2242, 64, 62, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[372078, 9238, 593, 12, 33, "Message",ExpressionUUID->"c496535e-9262-0143-8dd7-9fc662e3121a"], +Cell[372674, 9252, 598, 13, 33, "Message",ExpressionUUID->"3c91d766-7141-ff4e-bd5f-c02cc47fdaf5"], +Cell[373275, 9267, 603, 13, 33, "Message",ExpressionUUID->"17a235ab-80c1-3f42-90be-45a84f2dd5ff"], +Cell[373881, 9282, 504, 11, 20, "Message",ExpressionUUID->"c9b71057-d464-4441-b8ef-d57aab133873"], +Cell[374388, 9295, 223, 4, 25, "Output",ExpressionUUID->"f1ec9105-d252-e647-b580-2a785267bf39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374648, 9304, 2242, 64, 62, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[376893, 9370, 592, 12, 33, "Message",ExpressionUUID->"5dab5525-8323-124e-b334-b1da729865b7"], +Cell[377488, 9384, 599, 13, 33, "Message",ExpressionUUID->"5b9d825c-d440-4a41-88eb-ae4641a286b7"], +Cell[378090, 9399, 602, 13, 33, "Message",ExpressionUUID->"2c51dc73-9615-6440-a875-a3a3589b1191"], +Cell[378695, 9414, 503, 11, 20, "Message",ExpressionUUID->"0e600335-f46f-dd4b-bb32-66168281687d"], +Cell[379201, 9427, 217, 4, 25, "Output",ExpressionUUID->"d0dfcaf9-b4a6-9a49-a5c2-80eb66910cbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379455, 9436, 236, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[379694, 9444, 223, 4, 25, "Output",ExpressionUUID->"fb7fbbe4-1127-7e41-9579-45d4b66bff88"] +}, Open ]], +Cell[379932, 9451, 271, 6, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[380228, 9461, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[380789, 9482, 220, 4, 25, "Output",ExpressionUUID->"e1ece8f9-6eb9-1f45-b23d-59a2aa5e3284"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381046, 9491, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[381219, 9498, 221, 4, 25, "Output",ExpressionUUID->"abdee6f3-9cc8-6749-90c7-00d677a0cd75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381477, 9507, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[381661, 9514, 220, 4, 25, "Output",ExpressionUUID->"a9404d47-1f6e-f144-b017-d6bc01fdc1f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381918, 9523, 6055, 185, 153, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[387976, 9710, 220, 4, 25, "Output",ExpressionUUID->"c9345d33-d0e8-ef4d-bbbd-a32a53ec0027"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388233, 9719, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[388604, 9730, 218, 4, 25, "Output",ExpressionUUID->"9fd93fa4-1a45-2d46-baf6-43673993c68c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388859, 9739, 6122, 187, 153, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[394984, 9928, 223, 4, 25, "Output",ExpressionUUID->"271ed5f0-1bf6-b240-ad09-a7d7a6fd4925"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395244, 9937, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[395615, 9948, 219, 4, 25, "Output",ExpressionUUID->"bbe1c22a-c3b4-094f-a0bd-8ce8b27946df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395871, 9957, 2663, 88, 90, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[398537, 10047, 224, 4, 25, "Output",ExpressionUUID->"37bf5cb3-ee2c-1a43-a40a-7d93e05dbe06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398798, 10056, 2603, 85, 46, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[401404, 10143, 218, 4, 25, "Output",ExpressionUUID->"253f7a71-1d3d-2341-a5d8-affd53b97230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401659, 10152, 3712, 118, 135, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[405374, 10272, 220, 4, 25, "Output",ExpressionUUID->"8c2ae604-040c-b546-bded-822deceaedd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[405631, 10281, 2074, 59, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[407708, 10342, 605, 13, 33, "Message",ExpressionUUID->"c6ef7fd9-6659-c845-a4a0-23cf645dfe56"], +Cell[408316, 10357, 606, 13, 33, "Message",ExpressionUUID->"b8530b1b-9735-eb4c-ade3-fc61db7ba117"], +Cell[408925, 10372, 610, 13, 33, "Message",ExpressionUUID->"1096c8b6-8a12-6a4c-847a-ffca000b212d"], +Cell[409538, 10387, 505, 11, 20, "Message",ExpressionUUID->"0a7ccc1f-e145-5243-8f45-e174338794e1"], +Cell[410046, 10400, 220, 4, 25, "Output",ExpressionUUID->"e7d7935a-cacf-3745-8aec-827baa1e4ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410303, 10409, 2074, 59, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[412380, 10470, 605, 13, 33, "Message",ExpressionUUID->"96eef200-db2a-d947-b64d-e6061d33b314"], +Cell[412988, 10485, 605, 13, 33, "Message",ExpressionUUID->"ba70f34a-96f6-0349-b7e1-61ee7d1f7569"], +Cell[413596, 10500, 612, 13, 33, "Message",ExpressionUUID->"ef8c1fdd-3747-e647-af3b-7c195cfc008b"], +Cell[414211, 10515, 507, 11, 20, "Message",ExpressionUUID->"ecf9da16-a140-2a4b-ba11-a3dd1e226561"], +Cell[414721, 10528, 220, 4, 25, "Output",ExpressionUUID->"a30f483c-d4a1-0045-ba4c-615ca77e7054"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414978, 10537, 2138, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[417119, 10599, 519, 11, 33, "Message",ExpressionUUID->"6ab7f9be-c01e-824a-ab42-e7edd2fa2730"], +Cell[417641, 10612, 523, 11, 33, "Message",ExpressionUUID->"ed2dd856-02ec-af41-aef0-0d47358603b2"], +Cell[418167, 10625, 525, 11, 33, "Message",ExpressionUUID->"683d9bfd-9f8d-3d45-942b-a43690671a14"], +Cell[418695, 10638, 478, 10, 20, "Message",ExpressionUUID->"2c92984f-ce76-8642-85be-b2b7d0aed04f"], +Cell[419176, 10650, 22348, 412, 187, "Output",ExpressionUUID->"5c9eb9ae-aae8-d647-91dc-b75eef00c283"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441561, 11067, 229, 5, 34, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[441793, 11074, 28309, 536, 187, "Output",ExpressionUUID->"72e560cb-f709-ce4b-8fca-b8ff5e3d7545"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470139, 11615, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[471758, 11665, 634, 13, 33, "Message",ExpressionUUID->"e424e5e5-64e8-594d-bab5-d717e9f327df"], +Cell[472395, 11680, 635, 13, 33, "Message",ExpressionUUID->"1791624e-fe73-7e40-b091-db5b4e942818"], +Cell[473033, 11695, 638, 13, 33, "Message",ExpressionUUID->"c4f1578d-5b5c-c349-a546-c231fcb7ba61"], +Cell[473674, 11710, 509, 11, 20, "Message",ExpressionUUID->"b850d75f-3206-934d-afd2-e8853fb26283"], +Cell[474186, 11723, 218, 4, 25, "Output",ExpressionUUID->"ee83eab7-201d-604d-8398-b6a81a8d3e46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474441, 11732, 2272, 64, 62, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[476716, 11798, 605, 13, 33, "Message",ExpressionUUID->"93e6f8ef-cffc-be4f-ab0e-da05ccc5b220"], +Cell[477324, 11813, 606, 13, 33, "Message",ExpressionUUID->"a3924115-f4ef-7f47-98cd-e48d8582219e"], +Cell[477933, 11828, 610, 13, 33, "Message",ExpressionUUID->"fd2afa9b-1f0b-5c46-9353-b3f9d715efc7"], +Cell[478546, 11843, 505, 11, 20, "Message",ExpressionUUID->"e1a1b3ed-c523-9248-b96d-8aa720095129"], +Cell[479054, 11856, 221, 4, 25, "Output",ExpressionUUID->"afc0e34f-8f42-a34c-a43e-5522205dedc6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479312, 11865, 2244, 64, 62, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[481559, 11931, 603, 13, 33, "Message",ExpressionUUID->"e7af73df-b88a-3b47-a1c9-da4745825aab"], +Cell[482165, 11946, 606, 13, 33, "Message",ExpressionUUID->"08b155c9-5219-b346-9aed-6c5f739140ce"], +Cell[482774, 11961, 610, 13, 33, "Message",ExpressionUUID->"dbe43aa5-0b08-8742-a860-3f9b0271f839"], +Cell[483387, 11976, 503, 11, 20, "Message",ExpressionUUID->"c9ed5e32-b8ec-b348-8e3a-5333ed7c3b00"], +Cell[483893, 11989, 224, 4, 25, "Output",ExpressionUUID->"8abaee75-0596-e045-b564-1e76e7bbef78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484154, 11998, 2244, 64, 62, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[486401, 12064, 605, 13, 33, "Message",ExpressionUUID->"d60707ce-4c54-5a46-b6d2-2f6d5d95c12e"], +Cell[487009, 12079, 608, 13, 33, "Message",ExpressionUUID->"71d146c7-8654-a942-8c08-39b95319cde8"], +Cell[487620, 12094, 614, 13, 33, "Message",ExpressionUUID->"6aeb0f11-1d10-2d49-8201-875b850c5641"], +Cell[488237, 12109, 507, 11, 20, "Message",ExpressionUUID->"298d0521-dccb-384e-ae7d-d906c95cdd8f"], +Cell[488747, 12122, 224, 4, 25, "Output",ExpressionUUID->"c21ef28d-efd7-8b4b-88a2-fbf4eb0c298e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489008, 12131, 236, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[489247, 12139, 221, 4, 25, "Output",ExpressionUUID->"01cb00ea-dc7e-5440-a744-6c1e6771c16b"] +}, Open ]], +Cell[489483, 12146, 268, 6, 70, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[489776, 12156, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[490337, 12177, 224, 4, 25, "Output",ExpressionUUID->"81e8fdb8-cffa-cf40-9c58-f0db7a1dbb41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490598, 12186, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[490771, 12193, 219, 4, 25, "Output",ExpressionUUID->"99b6efb3-7fde-9841-b098-03c5b91b6899"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491027, 12202, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[491211, 12209, 223, 4, 25, "Output",ExpressionUUID->"0f7f52cf-8035-3e4e-93aa-82f2459a0642"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491471, 12218, 6055, 185, 153, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[497529, 12405, 224, 4, 25, "Output",ExpressionUUID->"bd7feb3a-a9b9-7f43-a73b-e42a7e655cc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497790, 12414, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[498161, 12425, 219, 4, 25, "Output",ExpressionUUID->"254b34a4-79c8-8749-be40-c2fc0496cb3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498417, 12434, 6122, 187, 153, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[504542, 12623, 222, 4, 25, "Output",ExpressionUUID->"2af762d4-bad9-814b-9203-21ace46d8db6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504801, 12632, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[505172, 12643, 221, 4, 25, "Output",ExpressionUUID->"899c67f9-9662-3c41-bdc9-95fd31ba3638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505430, 12652, 2663, 88, 90, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[508096, 12742, 222, 4, 25, "Output",ExpressionUUID->"d81423e0-c9e8-774b-b474-6cb2c8eda2e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508355, 12751, 2603, 85, 46, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[510961, 12838, 220, 4, 25, "Output",ExpressionUUID->"e6981bae-92ce-5842-9d61-78595840c82b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511218, 12847, 3712, 118, 135, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[514933, 12967, 220, 4, 25, "Output",ExpressionUUID->"458b4024-904a-e348-bf64-65fa005a2568"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515190, 12976, 2077, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[517270, 13037, 593, 12, 33, "Message",ExpressionUUID->"3f956691-abe9-4f4a-a867-53ce2edb33c0"], +Cell[517866, 13051, 596, 12, 33, "Message",ExpressionUUID->"58802660-344e-c647-aca6-d7a4a0fb14f0"], +Cell[518465, 13065, 604, 13, 33, "Message",ExpressionUUID->"c39dc9a4-864a-5444-839c-810c17908706"], +Cell[519072, 13080, 507, 11, 20, "Message",ExpressionUUID->"2d714eeb-241c-c64f-83ac-641abc688a84"], +Cell[519582, 13093, 221, 4, 25, "Output",ExpressionUUID->"bccf39af-7e2b-2d4d-8d7b-568473b5028b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519840, 13102, 2075, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[521918, 13163, 591, 12, 33, "Message",ExpressionUUID->"0e128053-7499-9848-8935-ff01354c3f03"], +Cell[522512, 13177, 594, 12, 33, "Message",ExpressionUUID->"71eebdb4-1429-3049-bcb2-79d7e6e438d9"], +Cell[523109, 13191, 604, 13, 33, "Message",ExpressionUUID->"21c4d7fc-1662-f04e-9948-73ddc0bb9d27"], +Cell[523716, 13206, 509, 11, 20, "Message",ExpressionUUID->"9f8c3dcc-2210-cf41-acad-e76e5c853c8f"], +Cell[524228, 13219, 221, 4, 25, "Output",ExpressionUUID->"47e06c6e-5ae4-4841-810c-5437fcae542e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524486, 13228, 2143, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[526632, 13290, 519, 11, 33, "Message",ExpressionUUID->"ed73331f-101b-b74b-8546-9c4bbb0bcf48"], +Cell[527154, 13303, 519, 11, 33, "Message",ExpressionUUID->"69622c03-9ec2-bd46-9993-94022257e50a"], +Cell[527676, 13316, 524, 11, 33, "Message",ExpressionUUID->"41d62387-06ec-f54c-9b1b-94dd026bb208"], +Cell[528203, 13329, 480, 10, 20, "Message",ExpressionUUID->"bff5daf2-81c7-1f4d-93c5-1ad23da243ed"], +Cell[528686, 13341, 22368, 412, 187, "Output",ExpressionUUID->"e250ce20-148b-d34b-8bc2-4492c9bb0167"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551091, 13758, 234, 5, 34, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[551328, 13765, 28329, 536, 187, "Output",ExpressionUUID->"61202f13-9cec-c048-81dc-70c1c923455f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579694, 14306, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[581313, 14356, 625, 13, 33, "Message",ExpressionUUID->"1ebaba7c-d54a-4146-8ed9-d1674c7d7437"], +Cell[581941, 14371, 629, 13, 33, "Message",ExpressionUUID->"7dee0740-8bf1-7a4d-98b8-9a472ed95101"], +Cell[582573, 14386, 631, 13, 33, "Message",ExpressionUUID->"2face5a9-3a55-7442-a8c1-3acffee7515d"], +Cell[583207, 14401, 509, 11, 20, "Message",ExpressionUUID->"c96ed26e-307b-d148-bffa-2e58146d6379"], +Cell[583719, 14414, 221, 4, 25, "Output",ExpressionUUID->"9e8f93ce-1159-814d-a789-703b16603d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583977, 14423, 2272, 64, 62, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[586252, 14489, 589, 12, 33, "Message",ExpressionUUID->"627808ed-8833-bc44-8d55-62a147e553ba"], +Cell[586844, 14503, 590, 12, 33, "Message",ExpressionUUID->"9077d0f3-2989-5043-aa4a-56663a402c32"], +Cell[587437, 14517, 600, 13, 33, "Message",ExpressionUUID->"65b5fadc-fdee-a34e-9727-82c84639da92"], +Cell[588040, 14532, 503, 11, 20, "Message",ExpressionUUID->"be206705-fdbf-5a4a-aeb0-f1156e89d56f"], +Cell[588546, 14545, 219, 4, 25, "Output",ExpressionUUID->"f46809f1-4a05-3743-8275-b7cf465ef77c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[588802, 14554, 2244, 64, 62, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[591049, 14620, 591, 12, 33, "Message",ExpressionUUID->"dd6e56cd-54b9-844e-acb7-200a41a83eaa"], +Cell[591643, 14634, 594, 12, 33, "Message",ExpressionUUID->"7f06a280-2ebe-9643-902e-2e4a6361c8bf"], +Cell[592240, 14648, 604, 13, 33, "Message",ExpressionUUID->"8995d681-c289-7a4b-87df-132cc4783467"], +Cell[592847, 14663, 506, 11, 20, "Message",ExpressionUUID->"1f82d05b-4318-9246-b763-e6c519a3d481"], +Cell[593356, 14676, 172, 3, 25, "Output",ExpressionUUID->"bfdaccc8-c58d-9846-9fe6-a06af57d551e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593565, 14684, 212, 4, 22, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[593780, 14690, 170, 3, 25, "Output",ExpressionUUID->"c44a3258-a0dc-924d-9454-21797db6fd29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593987, 14698, 2244, 64, 62, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[596234, 14764, 586, 12, 33, "Message",ExpressionUUID->"a78992d4-87ec-554d-89a4-93e92a625e51"], +Cell[596823, 14778, 589, 12, 33, "Message",ExpressionUUID->"d4d9979a-aff7-c549-97f1-8d4c94394a80"], +Cell[597415, 14792, 599, 13, 33, "Message",ExpressionUUID->"829ef7d0-fe81-2946-b5e8-ebd865effad4"], +Cell[598017, 14807, 502, 11, 20, "Message",ExpressionUUID->"d98abecf-e38b-7242-a73b-c7f0b91dccdf"], +Cell[598522, 14820, 221, 4, 25, "Output",ExpressionUUID->"515d30c5-cf37-b240-b3fe-a0d604ba96a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598780, 14829, 238, 6, 38, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[599021, 14837, 224, 4, 25, "Output",ExpressionUUID->"cee114d7-949d-a949-ad86-d92b2d8b95d6"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb new file mode 100755 index 0000000..5c07882 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb @@ -0,0 +1,15834 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 665597, 15826] +NotebookOptionsPosition[ 625223, 15180] +NotebookOutlinePosition[ 625647, 15197] +CellTagsIndexPosition[ 625604, 15194] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"7becc32d-eb8d-4e45-8813-f88647e5707f"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.992127708881771*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"31d7deb4-7fca-ef4b-a8c1-3f894136c50b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"501d8ee7-1230-4347-82f5-596f0d5ad95a"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921277089307404`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"80acbd6d-f1c2-cd49-8d18-05ea2a05eebf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"63bec01c-e664-4d4f-ab41-21d70c3c0e53"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992127708943756*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f63ce5d5-4038-1d48-8b93-b8d21bfbc055"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"cc4ee07a-894d-ae46-8e3b-7322fc5ebe6a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921277089617424`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4c7d5e7e-6952-fb46-a615-a13f74ddf695"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"f3f36a60-4daf-2043-81ba-a7480a0c9f59"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.99212770897674*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"8e5f4113-0111-ab47-9dc7-e9ca3074952c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ed61af50-b3ee-ec46-b982-53282e3d7921"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.992127708988739*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7f38e11a-dd8d-694c-b531-db106036504c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"2f049cf6-e93b-4b45-8491-75c1252573f6"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921277089987545`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"76bcb169-2047-e345-8fc2-af354f21057d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"566b9f9d-bdf4-ac4e-99c0-499ed1c6f439"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992127709011585*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fa20f2e5-e56c-4945-83db-cf646357d068"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"d021772c-daca-d449-b0d2-56e32add61b0"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.9921277090232563`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"81a195aa-a667-9545-a41b-2b3b070310f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"92a4d197-ed9e-234a-8fde-2abd89583a7d"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992127709033367*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2590f61d-d9c6-8646-a964-84de792d0317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"d615b668-43c2-6145-984e-5a8100e3cce8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.9921277090450535`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f852a541-b7fa-bd4d-9775-c86280ab382c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"a6496b93-6920-3f45-a9b8-0f0465d78418"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992127709057066*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4ab4ffeb-6b34-424a-a1ed-5d0d28362374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb96a8df-b43d-2546-8808-919c108697de"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.992127709070572*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b4b520d6-184b-d640-bcc5-9b803c5d5d83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"823ffbf1-a50f-e840-8cb2-e67c74b01da2"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.992127709083889*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1feac3a4-e91f-e645-ab8a-0c67bc9f5701"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"9dcd5006-9ec8-db49-bd89-7b9e52c1c35c"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992127709098446*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"d88c4b09-d791-894a-b406-fbe952a1f9df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"528b9bc2-408c-0d4f-9785-2b4842406a81"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.9921277091164513`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"b45a2f86-a3e8-1a4c-942d-cefa4dbfa3fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"93e1d94f-4a7d-b945-9096-fa632357caf7"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921277091274986`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"92862a6a-ba7c-7b48-a56e-19d08094c553"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d455cb89-3314-9b43-ac05-57b52f28daf4"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992127709137459*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9ba5a865-4a41-a549-a88e-d34758471ec1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"a05095db-b9de-9b48-ac56-2a32e3bf062f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921277091495667`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e39f8c15-4461-9b48-896f-400614304e30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"29bd74d9-1c61-0d45-b389-dbb48ee4f1ee"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921277091584644`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8c380c16-086d-8442-998f-5a3a4110b80b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"0158aa26-de03-4146-a4b6-ac2833160e7c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.992127709168461*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"4cb8ef03-7ed2-0e41-b6e6-3107216f09cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"430daa96-0934-c24c-b4b5-d444dbf3619c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921277091831703`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cda110ee-9674-2443-81a4-ae51532cf2f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"04fe76a6-5f0e-754e-acad-d1cf2fb0ab28"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921277091951656`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"c299c689-bff4-9a44-96aa-8d28cdbe61a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"8684be0e-3bbc-154d-ad18-38faf8863505"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921277092062435`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"85297e4d-ab56-0745-a20d-6faed80993a5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"85a33b89-71fa-684e-bb3e-64e2b87fcf6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"0c7088f6-2c66-f64b-8b61-3532da7b9eda"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921277092242756`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"aa948db7-077c-f342-977c-f5e84c7f9d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"c36247d5-b837-624b-bdaa-a13bf2c85851"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.992127709240267*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"77ff2a36-62cb-b748-822f-ceedfdb42a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"8fdf3705-eec8-1240-9ca7-3673af46fcaf"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921277092544117`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"f9b3a4a9-f631-a049-bf95-f2da3cf92555"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"0ea23348-bf1f-9d45-8263-bc34b0e56633"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992127709271469*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"42f602ba-579f-434c-9948-dd86acd5422d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"4db5e823-2230-df40-80cb-9001b40f09df"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921277092852554`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e78d72f6-43f9-8149-9284-7b3bbdf993c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"96863d52-30ab-a744-bf77-247b24cb12d8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921277092997665`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"684c8999-e8fe-0c49-a096-aa33f98e4c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"9db91ff1-563f-7f49-af13-821d82c7d432"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.992127709312895*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"d168b61c-c4b1-3445-a122-c9047e592e44"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"55e2fea8-d69b-c047-a527-3a9b7f98da48"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"575beacd-3e55-b245-ac1d-59fa721e0642"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.99212770933288*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"5bfe7738-02ed-b94f-ab13-b1a7abc50420"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b010352a-df1e-7640-a13b-6f618ced4f27"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"70b9c07d-1093-3445-a9fb-744d8dee5ac7"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921277093548145`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0066110b-1d3f-c04c-bc8e-d0772ff58212"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"cf4f9a38-9f3e-fc41-a9f9-da910343df1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"b03f7211-2152-144e-89eb-b61f7f3d7595"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992127709372719*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"3f7e2665-b5f4-7a4a-8fd7-5907643631df"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8e1e0caa-d0c7-a44a-966b-c3e5b9c19a60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"f744e2a7-13fa-0d41-9416-8c7b221abc31"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.992127709386017*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"f1b92c08-4eb0-014a-bda1-41f58696fa29"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e1602f9b-7ce5-a245-a432-ad8101885ef6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"c94eb86e-b158-d74c-b004-3b2e41ab51d0"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921277093970184`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"ff83928b-b366-bb48-b167-bece01cbe466"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"47239c8e-9d2d-9b49-b541-49ec180a0d99"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"db7a6b7e-f22d-9d4a-88fc-bf90c373beff"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921277094111366`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"130fc4d1-11c4-d04b-b41b-451c4a14264c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"ff3ad8d4-925e-4e42-aa21-0c88fc05cc4e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"c1e3bd1e-f011-8345-8c05-ba1d7b4609e9"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.99212770942416*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"727cadfc-e151-1b43-ae8b-309d8109f400"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"f9c0b231-31e6-8446-967b-30061347cbe0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"9c535151-a230-dc45-be8b-2a714e262ed7"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921277095495033`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"666f302b-ecfe-5748-8808-50ae129fa01b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"e82858b9-80fd-fc4d-8d98-2ad4376d27d4"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.992127709665119*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"fa3aceab-e611-324e-b59c-dd92d5a0ba5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"947e6e90-1271-124f-9324-d60c40ed1983"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.992127709852829*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c80af12b-639a-a847-b1e7-d7f02f355735"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"a0467151-56e3-6c4e-a0fd-8e1a4f12efe3"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992127710097948*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"c1b8e1c5-35c3-1b4c-9afa-7bf82ec724e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"1656ac95-3583-5f42-9121-a4850089934e"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992127710315752*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"eada387c-aa9d-1a40-a7ab-fc5b545b42da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"0680f619-e61f-aa4c-9479-ddac11c59e96"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992127710470701*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"dda9728c-f5d4-f046-9fc8-f649275047cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"bc412583-4ca2-4a45-bb35-cbc40c8839b4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992127710505129*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"3cee1b7b-c39a-b64d-ad3f-cb328cecaa91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"85101115-4f25-984e-8b29-a2f2e370104a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921277105254955`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"3eb5892e-9c23-7f44-96fe-965a53ca51ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"8885ee33-dbd5-534a-9a1a-018edb64d755"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921277105539303`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ff2a6a29-7b27-5a49-9d7f-f8fe5c17244f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"274add19-faab-b149-ae83-ef7b40a8874c"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921277105874043`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"25aac206-409e-c241-a700-572137acb3fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"61bdd119-1f6f-2840-bea6-aa71897d4d6d"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.9921277106079617`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bbc804a8-0402-3b4a-83a4-8642aebd9573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"923bd806-5f2b-c249-8018-c821d70607e0"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992127710623724*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"c71b40ed-62f1-3848-a680-0ba8db39f240"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"9962de12-67d8-554b-86f2-fdd5dbd640ea"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.992127710641714*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"01e4806a-3faf-1b46-94d4-0398ff1360dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"d0c3bf2f-1911-4c4b-bfdf-453a2bac99a8"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921277106581345`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"bfd6df36-52b4-3343-8db7-8cc973cc3cfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"fd21dfa7-f27f-5042-a0ad-9cc40d14292a"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921277106709366`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"7d7957b6-6a5b-7445-95df-865d8438aa33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"1c249ec6-e116-2b48-8f7f-a95f16ad81b4"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992127710696209*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"efe7bdf8-9952-6b4f-990a-851598bbbce4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b1919483-c42d-3b47-aa70-c129a7555111"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921277107264824`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"6bd0f1cd-4086-bf47-9b12-4647d9e03861"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"6b948f28-f10f-1f42-b9e1-eda3373f84fb"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.992127710747982*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c9c7b920-462c-774b-bd48-e9145e0d2401"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"ef81073d-a43f-bf4f-9b50-6cabf65a3276"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992127710769703*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"5f719846-76dc-104d-a933-8b0afc68a05f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"d69be0a9-a94c-864b-85ed-a253ee7669d1"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.99212771078537*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"33880613-d403-ec42-a5c7-86f1145fa6ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"174bbe27-8951-4643-a0e4-f57458aa32dc"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921277108001366`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"4e47fb06-a38e-5e4c-912b-0f4dc20e6cac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"953696a0-f8e2-204a-bedd-5d8bb514cc1c"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.99212771083086*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"55326f9b-14b2-d049-9c7a-679a192bef67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5b0cfc9a-ea77-5847-b51b-7aa78ce6a299"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.992127710861141*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"451a34c6-06a3-414b-800f-a39479a949f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"b81ac4f0-6219-ee44-a9fa-2e93fe5e6063"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921277108920517`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"2affed6c-4693-7041-b1d9-d58ef79a1177"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.837971312644379"}]], "Input", + CellChangeTimes->{3.991846457174755*^9, 3.9920919461174526`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], + +Cell[BoxData["0.837971312644379`"], "Output", + CellChangeTimes->{3.991339230490425*^9, 3.9921277109608326`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"d76f1bef-39bf-7d42-aa4a-594be2f0a763"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.720943705549018"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, 3.9920919502587757`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], + +Cell[BoxData["0.720943705549018`"], "Output", + CellChangeTimes->{3.991339230517523*^9, 3.992127710989113*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"e84b3ffe-1946-4a46-a9f7-5e21a9bf5343"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9921277110137806`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"dfd05dc1-f8be-7146-9a4b-dc171a72b9ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9, {3.9915581887684402`*^9, 3.991558193612196*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], + +Cell[BoxData["3.169691239535262`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.99212771103784*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"c37db9ca-ec17-bd4b-b63d-18a7826fccdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}, + 3.9915581864980736`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], + +Cell[BoxData["2.4888435155157298`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9921277110535336`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"1f7bbc8d-22e9-f248-a63d-b4730ff12a0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["31.55887696424881`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.9921277110843678`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4075083e-f32d-d14b-97d0-a858b5926c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["109.09874435046284`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.992127711101591*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"4325bebc-7bf8-4740-812f-9bc03175fcb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["1.6643985987346277`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.992127711114481*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"3aa70486-77dd-af46-b34e-30ac68d55957"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["3.857083832242288`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.9921277111278896`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"74af8473-8191-bb42-bcfc-7d3451c2c843"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["420.80300295210486`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.992127711147705*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6ec3d14b-240e-054e-8aa9-9a5cf3eed879"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["52.52655059693424`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9921277111742306`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"9eb01c7d-22b1-294b-9bb2-95d31e0eab2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.005418106468181686`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.992127711208914*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"83bb6c2a-dfbe-394f-a969-17c15d38b272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["12.039852689413962`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9921277114388046`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"683037a4-7704-da40-89be-0713f2290c11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.007466344280630207`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.992127711471903*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"09d7120e-3ee3-b14c-9160-ea210e12976d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["10.25630517590006`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.992127711703438*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"d2dc4e8c-b7a2-1842-907b-3ad67e3a4d45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9921277117350426`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3cab78ab-0668-1b48-9eb1-e5ab2a815707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.992127711756407*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"7d5905af-81f5-7047-ab75-546be7109198"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.992127711778572*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c0697708-110f-0343-871d-6c4c14bae5b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918464744109974`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 91, 966, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711846918*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"00827a0d-582b-784f-9831-6761fff6a36e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 967, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711895939*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"bd3819b3-4195-9344-ae74-4cc92ebeb956"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 968, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711911726*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"511fd1cf-9dce-1842-830b-d7e4788fdec7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 969, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921277119337673`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"46205a7c-19de-8a46-96ef-c5d6ec4440d0"], + +Cell[BoxData["12.039852689413951`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.9921277197323112`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"d63dcbed-8db1-a54a-ac7b-3d723375286e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918464780941105`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 970, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992127719870783*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"2e5b7ddb-3461-9741-a277-bc49d8bdcffd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 971, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277198917866`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"bd454c12-0108-6440-83f9-cc138ada191c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 972, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277199047966`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e4248cac-f88f-4c49-b567-aa30ef76372b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 973, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277199189377`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"11ad8df1-50f5-7448-a295-e303669c499c"], + +Cell[BoxData["10.256305175900057`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9921277276068745`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"de55fa8d-41ba-414e-ac49-8857c355bec4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918464867236023`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5735696752284444, + 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5735696752284444, + 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5735696752284444, 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5735696752284456}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5735696752284444, 1.6544472803846912`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9, 3.99212830852812*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"41feeb24-d3c0-e141-ac9f-a4c566b3e778"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, 3.9918465034759026`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596718292697447`*^-278\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 974, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308892147*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e25f5bef-107e-9348-b2f3-3ab3d298e4dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.791373067538101`*^-290\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 975, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308910145*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"715362a6-33c2-2a4a-8141-e82dfb26c7aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.071404304516414`*^-302\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 94, + 976, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921283089301567`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ffeeeb85-f572-5843-abf9-0160114ab8c2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 977, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308949154*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"c8b86732-15cd-6d40-8107-18f2c7ba0162"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.06313809899821361}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9, 3.992128893282318*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"5daa6c1b-b31f-4e4e-bb5e-b7f014bb2f93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.9920918211343956`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921288933882427`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f606cb62-1677-8740-a2ad-6ca6ff3b7303"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.06313809899821361}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921288934152584`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"187c8104-da0e-7b4f-9895-497dceac6466"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991923767707161*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], + +Cell[BoxData["18.179601361710716`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.9921288934472427`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"1ae54a4a-fed9-1141-ae2a-4eee4d814e9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9919237699816914`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.8165720655564655`*^-260\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 98, + 978, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936203995`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"635f5923-2fdd-6448-b088-76be639b1d23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.484584649924521`*^-270\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 98, 979, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936273994`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"5bab959d-ef63-7540-9727-13ffae2f061a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0613056647566823`*^-280\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 98, 980, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936334*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"f5b08ba8-2927-e148-886e-81e04091edc3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 981, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936394024`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"f5e1afb2-2420-ab43-a72d-e47e019320a1"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.04181463793126093}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.9921293135336704`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"968e1f9d-6602-8341-9666-5b465b9ebfff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.804770507106392`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 982, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313629654*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"2da03f16-9b21-ea44-a6c9-3e903115232c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.46437919628907`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 983, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313639656*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"17d3d08c-f273-774a-8ba3-bfd5cdee935c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.214540310858515`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 99, + 984, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313646658*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0cc84825-32a6-f94f-9633-b8ee9c7ed2b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 985, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921293136546555`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"1c4c4249-0fc3-2c4b-8699-421047f701da"], + +Cell[BoxData["18.17959697350915`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.9921293405622063`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"b434091a-573a-094e-a8cf-688f3dfc522b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918465455039177`*^9, 3.9918465541706066`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 986, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992129340618191*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"44474fac-4eb8-3841-9a12-46bc820a3b23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 987, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406411915`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d0ff8e77-495c-cb4b-a040-49b7f09d992d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 988, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406472073`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"627ac276-ccb5-2d46-9264-ccd0fa65bdea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 989, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406551933`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c10fd530-8e72-6543-bca4-47b60ac32b8a"], + +Cell[BoxData["3.289735526276407`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.992129345836975*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"0f80fac5-7af7-6449-93d0-82c847eef521"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846558454563*^9, 3.991846561166006*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 990, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921293458884487`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0eeebef4-b91d-1b41-88dc-157ad30f7ffd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 991, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921293458964996`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b5f1cf3e-2f7b-544a-9817-369c1cbb3895"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 992, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.992129345905527*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"295ae18b-0adc-9948-ac1d-967cfed55249"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 993, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.992129345912527*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2c6b2bf0-eeee-d849-be4f-5eb95c74ff4c"], + +Cell[BoxData["39.608272348064844`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9921293506045265`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"31638b1f-da77-ff48-92b1-7ccc03f8b763"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846565092888*^9, 3.991846568588709*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 994, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992129350649729*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aa961efa-e7b0-b343-85c5-f29538877549"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 995, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506567326`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"97d07294-97cd-f346-a26a-651452cc4d7a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 996, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506637287`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c5efd08c-19d9-6c47-8589-b3983e2e56b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 997, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506708355`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b28c84fc-ff7d-ed4d-8341-7ae3f1369f40"], + +Cell[BoxData["28.74255841098689`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9921293534527683`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"1b9b9023-647e-da4b-ae37-73a45c8ce4a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, 3.991846575865097*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], + +Cell[BoxData["0.09750015896245452`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.9921293534808407`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"bc0639e7-58f9-3b48-8d55-56837a3b28cc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9921293534938393`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"20a9f54e-0298-0b40-9b21-a5ffb8bae684"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.992129353504822*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"59194337-179f-054c-9201-33e646ebd087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.992129353514822*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"6ce5d236-dfcc-c74f-ab99-abec08bf7ca7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.005743913287357438`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.9921293535278225`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"aa9b114c-f4e9-0644-b281-e47a56db29ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["11.693405309646874`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.9921293536139355`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"2e713274-f00c-1346-89a2-846fc943cba0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.008099437449785273`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.992129353625923*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"42b93b31-4c87-8f46-9add-5985da990532"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["9.847307795234371`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9921293537089386`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"fae1cff5-335f-2749-8beb-38e1b36eb1fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9921293537321396`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"887ade38-ec60-fa44-b471-5a4ca8badf30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.992129353744137*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"0e72553d-78d9-174d-bddd-0abac366e792"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9921293537561398`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"fdf820a3-4c9d-b546-a74b-846ee1a25913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918465999055576`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 998, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537784824`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"46d06394-0cd8-414c-810e-808e8cc948a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 999, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537854843`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"e1f15179-8b70-7c4e-895b-592b1f953134"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 1000, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537924824`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"1003a7c1-9e8a-7e42-9b3b-3cff62fbc1a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 1001, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537994823`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"4f918e0c-cafa-6840-94f9-414382956899"], + +Cell[BoxData["11.69340530964686`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.992129356785078*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"4456e76c-fbc9-664f-917a-4f94601c5613"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846603740141*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1002, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356848076*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"bd8f7472-1a15-1648-8e3c-e07f6bbe2d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1003, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356858078*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"8275a2b4-f07a-7047-90b9-94f3f1b577f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1004, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.9921293568660793`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"759c0a29-c537-194b-9c8a-a49650245159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 1005, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356875078*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"0083fb5b-2bcd-d046-bf12-83eecc620585"], + +Cell[BoxData["9.847307795234356`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.992129359757921*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d6bfa008-702a-b049-9326-2de05f8b06e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466101881027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.47333833527595015`, + 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.47333833527595015`, + 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.47333833527595015`, 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4733383352759512}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.47333833527595015`, 1.9284997626978488`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9, 3.9921296072103367`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"00132067-8ee5-3944-aea1-3d317e9a69fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466141799603`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9676080989471168`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 1006, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921296074659424`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"882a7971-2405-e34c-aecd-b8211e35190c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2397358502445793`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 1007, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921296074754868`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"eabe2196-2c79-6846-b56b-ce37a1c5c958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5494999139082275`*^-299\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 118, 1008, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992129607481449*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9732ac1a-dc93-5843-bc19-480594076b2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 1009, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992129607488447*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ee675b01-3264-9549-8b58-4bb13fecaad6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.0650087298795988}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9, 3.992129971364645*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9dc7afde-c341-e84d-a5ba-edd8ee97fb28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.0650087298795988}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921299715241623`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"8597eeb0-a279-3e42-8a8c-fa9517bb4736"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5774327686647045`*^-184\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1010, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716151543`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bdf2b3f6-920c-9b45-8c60-d69a2046a75e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7982636502938937`*^-188\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 1011, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716361523`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"dc32e637-7b02-7f48-8e69-325eea64b144"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.963938629970536`*^-192\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 120, 1012, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716501637`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"cc77974a-857d-9d47-9fb1-4764e4b31b02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 1013, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.992129971665144*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"a9026083-2a5e-ec46-8fa9-83f3ccbb3510"], + +Cell[BoxData["18.17954530564311`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9921300415919304`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"d8194b6a-bd9d-e94b-99bf-c769197dcb01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466382952557`*^9, 3.9918466432862854`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1014, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041687914*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"2ac15d92-0808-d74e-af32-471335eac39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1015, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921300417100945`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a355fb44-28a8-e246-a2ff-1493745b35e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1016, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041726492*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"accce81c-fe58-4c42-82d7-29bc1aa7eb3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 1017, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041741499*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"4a538572-ccf4-cb46-b60f-73e345023511"], + +Cell[BoxData["5.143995053534221`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.9921300534736214`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"88f3f79f-2bd9-b34d-a93f-d3ea6b39656a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466470672035`*^9, 3.991846650208416*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1018, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992130053564699*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2fda0384-2fd8-a049-980a-721ba5b5bfa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1019, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921300536026115`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"74b6d9cb-2975-f244-a896-0e07cb6638e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1020, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921300536186104`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1c9412d7-3ca9-ca47-8a98-1e1e861a872c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 1021, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992130053632704*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a774d273-2e30-5d4b-a130-a51a2ca8d5f8"], + +Cell[BoxData["37.36160799552774`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.9921300643526745`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"bcc94893-2469-2343-8b4c-49888e60b717"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184665401457*^9, 3.991846657234188*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1022, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064444765*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"047772dd-b91b-3044-9358-e46708c94c96"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1023, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064473671*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"65bb3c1c-62f1-b849-ac92-f994aee61c7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1024, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921300644866905`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"c84a5632-dc29-044b-8dac-d68da2833025"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 1025, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064500696*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0263e6ee-7a46-6749-873d-ce424ba985d3"], + +Cell[BoxData["26.495894058449853`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.992130072221712*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"d548434a-1be7-7f46-af49-0572264f2578"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, 3.991846668968689*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], + +Cell[BoxData["0.16349274036585104`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.9921300722986183`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"b3eb6851-1046-454b-a219-231e322c206b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["38.850251957567444`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.9921300723306103`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"a83580fa-10e6-7c45-9ad1-aaeba01be80a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["1.500103387489979`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.992130072357733*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"661a93b0-5626-404d-aae8-221e8bbe8af6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["58.27939456638611`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.992130072380718*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"87135b3c-74f5-ec40-8026-c12840b6d19a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.005254331472375037`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.992130072409628*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"1f26cde7-8218-134d-93c6-bdf23cebf8d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["12.226051115168305`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.99213007257975*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"88e709b0-2703-e443-af6a-7ba05a410153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.007158852153868708`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9921300726047497`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"ba6131d2-1f22-5640-af07-db5c54cd2649"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["10.47425744141865`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.992130072779648*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"789f803a-0f2f-bf45-bf42-a99bbd332e51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.992130072799711*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"52f34c91-2b30-9344-9c63-5dab12d1454d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.99213007282378*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"1a726864-ebc7-5c41-a954-9b807c2f8f53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.9921300728479176`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"22518695-b27a-7241-807c-1ec217e1ca82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918466934711*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 136, 1026, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.992130072896927*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"0e78e33a-f9d5-b24a-ba6e-281486da003f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 136, 1027, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729160023`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"8dfb5f0e-4253-2145-b818-d2b1c34f6454"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 136, 1028, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729339924`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"dc806c02-fd49-7049-a57d-9853ce5c4577"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 1029, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729498825`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"25c15a50-9d08-424d-a869-48214973a2de"], + +Cell[BoxData["12.226051115168298`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9921300803576946`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"f3749c06-9880-c54d-b147-1e59d1f3cbcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918466985968094`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 1030, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992130080489689*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"4b7824c2-4f18-ab45-9575-f7c1a9b272cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 1031, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921300805087013`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"e704cbd4-5e20-7844-915e-5ddceeb50903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 1032, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921300805207005`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"54b9340a-99bb-5b4a-b925-97596f1713e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 1033, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.99213008053458*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"e01b9511-eda7-9d4f-8a71-3b3fe37eb39a"], + +Cell[BoxData["10.47425744141864`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9921300876861305`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"f580162c-b30b-5343-9714-2c6f4aa02989"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846701939392*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6264295008717541}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6264295008717526, 1.537165917364589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9, 3.9921305629872475`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"064922d2-2d20-bd49-a0ac-5e87c918fb09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918467058861084`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.465908414797582`*^-275\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1034, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305633648853`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"d4a768e9-ee56-9445-9a28-c009ced4a0dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7169052080063775`*^-288\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1035, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.99213056338002*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"e597b5b5-d63e-b54b-b06d-c35c4ffd9ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5177752250224955`*^-300\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1036, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305633910046`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"2cc96305-031a-b249-978a-a390055cbf95"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 1037, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305634020195`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"195b9afc-0d74-194e-982c-08110c62460e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.06217653102700188}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9, 3.9921309534842663`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"fe552624-3db1-5344-b25a-1a057bb0dfd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.06217653102700188}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921309536304436`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"9eec1b91-f793-0f40-a507-d129d6285c09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4154964045202317`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1038, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537235336`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"fa269488-cc09-e84e-b990-3139824b4e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2315276692186634`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1039, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537494297`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"eeb3ab69-bec9-0b4c-a14e-c3509c8d46d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.061570337744944`*^-198\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1040, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537624397`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"781edc7d-f37c-7d4d-9db6-b438c6d3ebd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 1041, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537764416`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5ff4b658-eb5b-1e44-807d-52e2d237793e"], + +Cell[BoxData["18.179600003742127`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.992130990449623*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"4e5cde0a-224b-594b-b41d-0f91b49ac1a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846744062315*^9, 3.9918467481290073`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 142, 1042, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992130990556341*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"490cb7de-bb22-d54f-8afe-52f1bb547c6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 142, 1043, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921309905743427`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"e1e3c708-3bbb-1945-95e1-109d4ae4d410"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 1044, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992130990582342*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"c62e3ff7-ac6a-754a-859e-a220ca776f13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 1045, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921309905923424`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5f4103b5-e696-5b44-8ab1-78364c63b432"], + +Cell[BoxData["2.4941978971879943`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.9921309983709984`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1ca40beb-00b3-0549-bfd5-5ebd49fb4ede"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467529108715`*^9, 3.9918467555119896`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 1046, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.99213099846607*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"52a7dcaa-a7c9-884e-9eeb-39c70c265811"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 1047, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.99213099849098*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"38b8234c-ce89-5848-9c6d-05b4b38e9707"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 1048, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.992130998511801*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"34963974-759a-9f40-8034-b4a832fbfdea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 1049, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921309985298157`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a5bd42d1-02f8-9040-bd2f-015eaf7e9e82"], + +Cell[BoxData["40.84284322959702`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.992131009126316*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"6e50106d-d1da-944e-8847-e8212a7e1b2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467593835926`*^9, 3.991846761720169*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1050, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009225992*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3f3af3d4-c63e-894e-b330-80851bf13e62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1051, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.9921310092470455`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"93eac98d-63de-7746-b969-51b856eec5ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 1052, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009264124*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"255184cf-10a1-5a42-9a7c-500e31f3ccfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 1053, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009287985*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d837402c-87f2-eb4e-99ff-dc74c31722bc"], + +Cell[BoxData["29.97712929251923`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.992131017350151*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2fce02a8-d9f0-fc4b-885d-927ab6de0e03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, 3.99184676823822*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], + +Cell[BoxData["0.07128167634220066`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.992131017426153*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"dc08d3e8-9c10-1d42-a671-9da55ba9d254"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"7becc32d-eb8d-4e45-8813-f88647e5707f"], +Cell[1031, 31, 354, 5, 32, "Output",ExpressionUUID->"31d7deb4-7fca-ef4b-a8c1-3f894136c50b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1422, 41, 346, 5, 28, "Input",ExpressionUUID->"501d8ee7-1230-4347-82f5-596f0d5ad95a"], +Cell[1771, 48, 431, 6, 32, "Output",ExpressionUUID->"80acbd6d-f1c2-cd49-8d18-05ea2a05eebf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2239, 59, 253, 5, 28, "Input",ExpressionUUID->"63bec01c-e664-4d4f-ab41-21d70c3c0e53"], +Cell[2495, 66, 428, 6, 32, "Output",ExpressionUUID->"f63ce5d5-4038-1d48-8b93-b8d21bfbc055"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2960, 77, 175, 3, 28, "Input",ExpressionUUID->"cc4ee07a-894d-ae46-8e3b-7322fc5ebe6a"], +Cell[3138, 82, 401, 6, 32, "Output",ExpressionUUID->"4c7d5e7e-6952-fb46-a615-a13f74ddf695"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3576, 93, 257, 7, 43, "Input",ExpressionUUID->"f3f36a60-4daf-2043-81ba-a7480a0c9f59"], +Cell[3836, 102, 411, 6, 32, "Output",ExpressionUUID->"8e5f4113-0111-ab47-9dc7-e9ca3074952c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4284, 113, 131, 2, 28, "Input",ExpressionUUID->"ed61af50-b3ee-ec46-b982-53282e3d7921"], +Cell[4418, 117, 403, 6, 32, "Output",ExpressionUUID->"7f38e11a-dd8d-694c-b531-db106036504c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4858, 128, 276, 6, 28, "Input",ExpressionUUID->"2f049cf6-e93b-4b45-8491-75c1252573f6"], +Cell[5137, 136, 420, 6, 32, "Output",ExpressionUUID->"76bcb169-2047-e345-8fc2-af354f21057d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5594, 147, 257, 7, 28, "Input",ExpressionUUID->"566b9f9d-bdf4-ac4e-99c0-499ed1c6f439"], +Cell[5854, 156, 418, 6, 32, "Output",ExpressionUUID->"fa20f2e5-e56c-4945-83db-cf646357d068"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6309, 167, 236, 4, 28, "Input",ExpressionUUID->"d021772c-daca-d449-b0d2-56e32add61b0"], +Cell[6548, 173, 440, 6, 32, "Output",ExpressionUUID->"81a195aa-a667-9545-a41b-2b3b070310f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7025, 184, 236, 4, 28, "Input",ExpressionUUID->"92a4d197-ed9e-234a-8fde-2abd89583a7d"], +Cell[7264, 190, 438, 6, 32, "Output",ExpressionUUID->"2590f61d-d9c6-8646-a964-84de792d0317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7739, 201, 129, 2, 28, "Input",ExpressionUUID->"d615b668-43c2-6145-984e-5a8100e3cce8"], +Cell[7871, 205, 404, 6, 32, "Output",ExpressionUUID->"f852a541-b7fa-bd4d-9775-c86280ab382c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8312, 216, 129, 2, 28, "Input",ExpressionUUID->"a6496b93-6920-3f45-a9b8-0f0465d78418"], +Cell[8444, 220, 397, 6, 32, "Output",ExpressionUUID->"4ab4ffeb-6b34-424a-a1ed-5d0d28362374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8878, 231, 557, 19, 79, "Input",ExpressionUUID->"eb96a8df-b43d-2546-8808-919c108697de"], +Cell[9438, 252, 396, 6, 32, "Output",ExpressionUUID->"b4b520d6-184b-d640-bcc5-9b803c5d5d83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9871, 263, 557, 19, 79, "Input",ExpressionUUID->"823ffbf1-a50f-e840-8cb2-e67c74b01da2"], +Cell[10431, 284, 400, 6, 32, "Output",ExpressionUUID->"1feac3a4-e91f-e645-ab8a-0c67bc9f5701"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10868, 295, 1492, 48, 80, "Input",ExpressionUUID->"9dcd5006-9ec8-db49-bd89-7b9e52c1c35c"], +Cell[12363, 345, 396, 6, 32, "Output",ExpressionUUID->"d88c4b09-d791-894a-b406-fbe952a1f9df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12796, 356, 1331, 44, 80, "Input",ExpressionUUID->"528b9bc2-408c-0d4f-9785-2b4842406a81"], +Cell[14130, 402, 416, 7, 32, "Output",ExpressionUUID->"b45a2f86-a3e8-1a4c-942d-cefa4dbfa3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14583, 414, 1331, 44, 80, "Input",ExpressionUUID->"93e1d94f-4a7d-b945-9096-fa632357caf7"], +Cell[15917, 460, 421, 7, 32, "Output",ExpressionUUID->"92862a6a-ba7c-7b48-a56e-19d08094c553"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16375, 472, 1492, 48, 80, "Input",ExpressionUUID->"d455cb89-3314-9b43-ac05-57b52f28daf4"], +Cell[17870, 522, 390, 6, 32, "Output",ExpressionUUID->"9ba5a865-4a41-a549-a88e-d34758471ec1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18297, 533, 131, 2, 28, "Input",ExpressionUUID->"a05095db-b9de-9b48-ac56-2a32e3bf062f"], +Cell[18431, 537, 382, 6, 32, "Output",ExpressionUUID->"e39f8c15-4461-9b48-896f-400614304e30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18850, 548, 177, 3, 28, "Input",ExpressionUUID->"29bd74d9-1c61-0d45-b389-dbb48ee4f1ee"], +Cell[19030, 553, 380, 6, 32, "Output",ExpressionUUID->"8c380c16-086d-8442-998f-5a3a4110b80b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19447, 564, 134, 2, 28, "Input",ExpressionUUID->"0158aa26-de03-4146-a4b6-ac2833160e7c"], +Cell[19584, 568, 386, 6, 32, "Output",ExpressionUUID->"4cb8ef03-7ed2-0e41-b6e6-3107216f09cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20007, 579, 219, 4, 28, "Input",ExpressionUUID->"430daa96-0934-c24c-b4b5-d444dbf3619c"], +Cell[20229, 585, 391, 7, 32, "Output",ExpressionUUID->"cda110ee-9674-2443-81a4-ae51532cf2f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20657, 597, 134, 2, 28, "Input",ExpressionUUID->"04fe76a6-5f0e-754e-acad-d1cf2fb0ab28"], +Cell[20794, 601, 384, 6, 32, "Output",ExpressionUUID->"c299c689-bff4-9a44-96aa-8d28cdbe61a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21215, 612, 302, 5, 28, "Input",ExpressionUUID->"8684be0e-3bbc-154d-ad18-38faf8863505"], +Cell[21520, 619, 330, 5, 32, "Output",ExpressionUUID->"85297e4d-ab56-0745-a20d-6faed80993a5"] +}, Open ]], +Cell[21865, 627, 173, 2, 28, "Input",ExpressionUUID->"85a33b89-71fa-684e-bb3e-64e2b87fcf6c"], +Cell[CellGroupData[{ +Cell[22063, 633, 296, 5, 28, "Input",ExpressionUUID->"0c7088f6-2c66-f64b-8b61-3532da7b9eda"], +Cell[22362, 640, 377, 6, 32, "Output",ExpressionUUID->"aa948db7-077c-f342-977c-f5e84c7f9d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22776, 651, 219, 4, 28, "Input",ExpressionUUID->"c36247d5-b837-624b-bdaa-a13bf2c85851"], +Cell[22998, 657, 377, 6, 32, "Output",ExpressionUUID->"77ff2a36-62cb-b748-822f-ceedfdb42a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23412, 668, 350, 10, 43, "Input",ExpressionUUID->"8fdf3705-eec8-1240-9ca7-3673af46fcaf"], +Cell[23765, 680, 397, 6, 32, "Output",ExpressionUUID->"f9b3a4a9-f631-a049-bf95-f2da3cf92555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24199, 691, 350, 10, 43, "Input",ExpressionUUID->"0ea23348-bf1f-9d45-8263-bc34b0e56633"], +Cell[24552, 703, 408, 7, 32, "Output",ExpressionUUID->"42f602ba-579f-434c-9948-dd86acd5422d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24997, 715, 992, 26, 113, "Input",ExpressionUUID->"4db5e823-2230-df40-80cb-9001b40f09df"], +Cell[25992, 743, 400, 6, 32, "Output",ExpressionUUID->"e78d72f6-43f9-8149-9284-7b3bbdf993c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26429, 754, 199, 3, 28, "Input",ExpressionUUID->"96863d52-30ab-a744-bf77-247b24cb12d8"], +Cell[26631, 759, 384, 6, 32, "Output",ExpressionUUID->"684c8999-e8fe-0c49-a096-aa33f98e4c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27052, 770, 275, 4, 28, "Input",ExpressionUUID->"9db91ff1-563f-7f49-af13-821d82c7d432"], +Cell[27330, 776, 337, 5, 32, "Output",ExpressionUUID->"d168b61c-c4b1-3445-a122-c9047e592e44"] +}, Open ]], +Cell[27682, 784, 175, 2, 28, "Input",ExpressionUUID->"55e2fea8-d69b-c047-a527-3a9b7f98da48"], +Cell[CellGroupData[{ +Cell[27882, 790, 323, 5, 28, "Input",ExpressionUUID->"575beacd-3e55-b245-ac1d-59fa721e0642"], +Cell[28208, 797, 336, 5, 32, "Output",ExpressionUUID->"5bfe7738-02ed-b94f-ab13-b1a7abc50420"] +}, Open ]], +Cell[28559, 805, 173, 2, 28, "Input",ExpressionUUID->"b010352a-df1e-7640-a13b-6f618ced4f27"], +Cell[CellGroupData[{ +Cell[28757, 811, 343, 6, 47, "Input",ExpressionUUID->"70b9c07d-1093-3445-a9fb-744d8dee5ac7"], +Cell[29103, 819, 331, 5, 32, "Output",ExpressionUUID->"0066110b-1d3f-c04c-bc8e-d0772ff58212"] +}, Open ]], +Cell[29449, 827, 175, 2, 28, "Input",ExpressionUUID->"cf4f9a38-9f3e-fc41-a9f9-da910343df1c"], +Cell[CellGroupData[{ +Cell[29649, 833, 347, 6, 47, "Input",ExpressionUUID->"b03f7211-2152-144e-89eb-b61f7f3d7595"], +Cell[29999, 841, 337, 5, 32, "Output",ExpressionUUID->"3f7e2665-b5f4-7a4a-8fd7-5907643631df"] +}, Open ]], +Cell[30351, 849, 175, 2, 28, "Input",ExpressionUUID->"8e1e0caa-d0c7-a44a-966b-c3e5b9c19a60"], +Cell[CellGroupData[{ +Cell[30551, 855, 273, 4, 28, "Input",ExpressionUUID->"f744e2a7-13fa-0d41-9416-8c7b221abc31"], +Cell[30827, 861, 327, 5, 32, "Output",ExpressionUUID->"f1b92c08-4eb0-014a-bda1-41f58696fa29"] +}, Open ]], +Cell[31169, 869, 173, 2, 28, "Input",ExpressionUUID->"e1602f9b-7ce5-a245-a432-ad8101885ef6"], +Cell[CellGroupData[{ +Cell[31367, 875, 277, 4, 28, "Input",ExpressionUUID->"c94eb86e-b158-d74c-b004-3b2e41ab51d0"], +Cell[31647, 881, 334, 5, 32, "Output",ExpressionUUID->"ff83928b-b366-bb48-b167-bece01cbe466"] +}, Open ]], +Cell[31996, 889, 171, 2, 28, "Input",ExpressionUUID->"47239c8e-9d2d-9b49-b541-49ec180a0d99"], +Cell[CellGroupData[{ +Cell[32192, 895, 325, 6, 47, "Input",ExpressionUUID->"db7a6b7e-f22d-9d4a-88fc-bf90c373beff"], +Cell[32520, 903, 328, 5, 32, "Output",ExpressionUUID->"130fc4d1-11c4-d04b-b41b-451c4a14264c"] +}, Open ]], +Cell[32863, 911, 175, 2, 28, "Input",ExpressionUUID->"ff3ad8d4-925e-4e42-aa21-0c88fc05cc4e"], +Cell[CellGroupData[{ +Cell[33063, 917, 270, 5, 47, "Input",ExpressionUUID->"c1e3bd1e-f011-8345-8c05-ba1d7b4609e9"], +Cell[33336, 924, 327, 5, 32, "Output",ExpressionUUID->"727cadfc-e151-1b43-ae8b-309d8109f400"] +}, Open ]], +Cell[33678, 932, 171, 2, 28, "Input",ExpressionUUID->"f9c0b231-31e6-8446-967b-30061347cbe0"], +Cell[CellGroupData[{ +Cell[33874, 938, 19809, 485, 2217, "Input",ExpressionUUID->"9c535151-a230-dc45-be8b-2a714e262ed7"], +Cell[53686, 1425, 390, 6, 32, "Output",ExpressionUUID->"666f302b-ecfe-5748-8808-50ae129fa01b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54113, 1436, 19748, 489, 2304, "Input",ExpressionUUID->"e82858b9-80fd-fc4d-8d98-2ad4376d27d4"], +Cell[73864, 1927, 395, 6, 32, "Output",ExpressionUUID->"fa3aceab-e611-324e-b59c-dd92d5a0ba5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74296, 1938, 19748, 483, 2276, "Input",ExpressionUUID->"947e6e90-1271-124f-9324-d60c40ed1983"], +Cell[94047, 2423, 411, 7, 32, "Output",ExpressionUUID->"c80af12b-639a-a847-b1e7-d7f02f355735"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94495, 2435, 22534, 553, 2583, "Input",ExpressionUUID->"a0467151-56e3-6c4e-a0fd-8e1a4f12efe3"], +Cell[117032, 2990, 413, 7, 32, "Output",ExpressionUUID->"c1b8e1c5-35c3-1b4c-9afa-7bf82ec724e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117482, 3002, 22535, 553, 2583, "Input",ExpressionUUID->"1656ac95-3583-5f42-9121-a4850089934e"], +Cell[140020, 3557, 411, 7, 32, "Output",ExpressionUUID->"eada387c-aa9d-1a40-a7ab-fc5b545b42da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140468, 3569, 25491, 626, 2890, "Input",ExpressionUUID->"0680f619-e61f-aa4c-9479-ddac11c59e96"], +Cell[165962, 4197, 408, 7, 32, "Output",ExpressionUUID->"dda9728c-f5d4-f046-9fc8-f649275047cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166407, 4209, 130, 2, 28, "Input",ExpressionUUID->"bc412583-4ca2-4a45-bb35-cbc40c8839b4"], +Cell[166540, 4213, 378, 6, 32, "Output",ExpressionUUID->"3cee1b7b-c39a-b64d-ad3f-cb328cecaa91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166955, 4224, 130, 2, 28, "Input",ExpressionUUID->"85101115-4f25-984e-8b29-a2f2e370104a"], +Cell[167088, 4228, 378, 6, 32, "Output",ExpressionUUID->"3eb5892e-9c23-7f44-96fe-965a53ca51ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167503, 4239, 1144, 39, 110, "Input",ExpressionUUID->"8885ee33-dbd5-534a-9a1a-018edb64d755"], +Cell[168650, 4280, 399, 6, 32, "Output",ExpressionUUID->"ff2a6a29-7b27-5a49-9d7f-f8fe5c17244f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169086, 4291, 1041, 35, 110, "Input",ExpressionUUID->"274add19-faab-b149-ae83-ef7b40a8874c"], +Cell[170130, 4328, 409, 7, 32, "Output",ExpressionUUID->"25aac206-409e-c241-a700-572137acb3fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170576, 4340, 1144, 39, 110, "Input",ExpressionUUID->"61bdd119-1f6f-2840-bea6-aa71897d4d6d"], +Cell[171723, 4381, 402, 6, 32, "Output",ExpressionUUID->"bbc804a8-0402-3b4a-83a4-8642aebd9573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172162, 4392, 108, 1, 28, "Input",ExpressionUUID->"923bd806-5f2b-c249-8018-c821d70607e0"], +Cell[172273, 4395, 394, 6, 32, "Output",ExpressionUUID->"c71b40ed-62f1-3848-a680-0ba8db39f240"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172704, 4406, 108, 1, 28, "Input",ExpressionUUID->"9962de12-67d8-554b-86f2-fdd5dbd640ea"], +Cell[172815, 4409, 411, 7, 32, "Output",ExpressionUUID->"01e4806a-3faf-1b46-94d4-0398ff1360dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173263, 4421, 108, 1, 28, "Input",ExpressionUUID->"d0c3bf2f-1911-4c4b-bfdf-453a2bac99a8"], +Cell[173374, 4424, 415, 7, 32, "Output",ExpressionUUID->"bfd6df36-52b4-3343-8db7-8cc973cc3cfa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173826, 4436, 108, 1, 28, "Input",ExpressionUUID->"fd21dfa7-f27f-5042-a0ad-9cc40d14292a"], +Cell[173937, 4439, 400, 6, 32, "Output",ExpressionUUID->"7d7957b6-6a5b-7445-95df-865d8438aa33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174374, 4450, 107, 1, 28, "Input",ExpressionUUID->"1c249ec6-e116-2b48-8f7f-a95f16ad81b4"], +Cell[174484, 4453, 391, 6, 32, "Output",ExpressionUUID->"efe7bdf8-9952-6b4f-990a-851598bbbce4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174912, 4464, 107, 1, 28, "Input",ExpressionUUID->"b1919483-c42d-3b47-aa70-c129a7555111"], +Cell[175022, 4467, 395, 6, 32, "Output",ExpressionUUID->"6bd0f1cd-4086-bf47-9b12-4647d9e03861"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175454, 4478, 497, 16, 56, "Input",ExpressionUUID->"6b948f28-f10f-1f42-b9e1-eda3373f84fb"], +Cell[175954, 4496, 407, 7, 32, "Output",ExpressionUUID->"c9c7b920-462c-774b-bd48-e9145e0d2401"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176398, 4508, 497, 16, 56, "Input",ExpressionUUID->"ef81073d-a43f-bf4f-9b50-6cabf65a3276"], +Cell[176898, 4526, 412, 7, 32, "Output",ExpressionUUID->"5f719846-76dc-104d-a933-8b0afc68a05f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177347, 4538, 1788, 60, 188, "Input",ExpressionUUID->"d69be0a9-a94c-864b-85ed-a253ee7669d1"], +Cell[179138, 4600, 394, 6, 32, "Output",ExpressionUUID->"33880613-d403-ec42-a5c7-86f1145fa6ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179569, 4611, 1101, 36, 133, "Input",ExpressionUUID->"174bbe27-8951-4643-a0e4-f57458aa32dc"], +Cell[180673, 4649, 412, 7, 32, "Output",ExpressionUUID->"4e47fb06-a38e-5e4c-912b-0f4dc20e6cac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181122, 4661, 1818, 61, 165, "Input",ExpressionUUID->"953696a0-f8e2-204a-bedd-5d8bb514cc1c"], +Cell[182943, 4724, 392, 6, 32, "Output",ExpressionUUID->"55326f9b-14b2-d049-9c7a-679a192bef67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183372, 4735, 2499, 77, 133, "Input",ExpressionUUID->"5b0cfc9a-ea77-5847-b51b-7aa78ce6a299"], +Cell[185874, 4814, 395, 6, 32, "Output",ExpressionUUID->"451a34c6-06a3-414b-800f-a39479a949f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186306, 4825, 2499, 77, 133, "Input",ExpressionUUID->"b81ac4f0-6219-ee44-a9fa-2e93fe5e6063"], +Cell[188808, 4904, 389, 6, 32, "Output",ExpressionUUID->"2affed6c-4693-7041-b1d9-d58ef79a1177"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189234, 4915, 211, 3, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[189448, 4920, 190, 2, 32, "Output",ExpressionUUID->"d76f1bef-39bf-7d42-aa4a-594be2f0a763"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189675, 4927, 213, 3, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[189891, 4932, 188, 2, 32, "Output",ExpressionUUID->"e84b3ffe-1946-4a46-a9f7-5e21a9bf5343"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190116, 4939, 1297, 42, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[191416, 4983, 195, 2, 32, "Output",ExpressionUUID->"dfd05dc1-f8be-7146-9a4b-dc171a72b9ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191648, 4990, 927, 29, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[192578, 5021, 192, 2, 32, "Output",ExpressionUUID->"c37db9ca-ec17-bd4b-b63d-18a7826fccdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192807, 5028, 985, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[193795, 5062, 198, 2, 32, "Output",ExpressionUUID->"1f7bbc8d-22e9-f248-a63d-b4730ff12a0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194030, 5069, 554, 18, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[194587, 5089, 192, 2, 32, "Output",ExpressionUUID->"4075083e-f32d-d14b-97d0-a858b5926c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194816, 5096, 647, 21, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[195466, 5119, 188, 2, 32, "Output",ExpressionUUID->"4325bebc-7bf8-4740-812f-9bc03175fcb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195691, 5126, 166, 4, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[195860, 5132, 191, 2, 32, "Output",ExpressionUUID->"3aa70486-77dd-af46-b34e-30ac68d55957"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196088, 5139, 166, 4, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[196257, 5145, 189, 2, 32, "Output",ExpressionUUID->"74af8473-8191-bb42-bcfc-7d3451c2c843"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196483, 5152, 177, 4, 43, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[196663, 5158, 191, 2, 32, "Output",ExpressionUUID->"6ec3d14b-240e-054e-8aa9-9a5cf3eed879"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196891, 5165, 177, 4, 43, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[197071, 5171, 190, 2, 32, "Output",ExpressionUUID->"9eb01c7d-22b1-294b-9bb2-95d31e0eab2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197298, 5178, 6051, 184, 498, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[203352, 5364, 193, 2, 32, "Output",ExpressionUUID->"83bb6c2a-dfbe-394f-a969-17c15d38b272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203582, 5371, 364, 8, 42, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[203949, 5381, 191, 2, 32, "Output",ExpressionUUID->"683037a4-7704-da40-89be-0713f2290c11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204177, 5388, 6118, 186, 500, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[210298, 5576, 193, 2, 32, "Output",ExpressionUUID->"09d7120e-3ee3-b14c-9160-ea210e12976d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210528, 5583, 364, 8, 42, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[210895, 5593, 188, 2, 32, "Output",ExpressionUUID->"d2dc4e8c-b7a2-1842-907b-3ad67e3a4d45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211120, 5600, 2659, 87, 187, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[213782, 5689, 191, 2, 32, "Output",ExpressionUUID->"3cab78ab-0668-1b48-9eb1-e5ab2a815707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214010, 5696, 2599, 84, 165, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[216612, 5782, 189, 2, 32, "Output",ExpressionUUID->"7d5905af-81f5-7047-ab75-546be7109198"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216838, 5789, 3708, 117, 348, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[220549, 5908, 190, 2, 32, "Output",ExpressionUUID->"c0697708-110f-0343-871d-6c4c14bae5b1"] +}, Open ]], +Cell[220754, 5913, 160, 3, 42, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[220939, 5920, 2073, 58, 228, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[223015, 5980, 576, 12, 66, "Message",ExpressionUUID->"00827a0d-582b-784f-9831-6761fff6a36e"], +Cell[223594, 5994, 579, 12, 66, "Message",ExpressionUUID->"bd3819b3-4195-9344-ae74-4cc92ebeb956"], +Cell[224176, 6008, 583, 12, 85, "Message",ExpressionUUID->"511fd1cf-9dce-1842-830b-d7e4788fdec7"], +Cell[224762, 6022, 480, 10, 26, "Message",ExpressionUUID->"46205a7c-19de-8a46-96ef-c5d6ec4440d0"], +Cell[225245, 6034, 193, 2, 32, "Output",ExpressionUUID->"d63dcbed-8db1-a54a-ac7b-3d723375286e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225475, 6041, 2073, 58, 228, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[227551, 6101, 574, 12, 66, "Message",ExpressionUUID->"2e5b7ddb-3461-9741-a277-bc49d8bdcffd"], +Cell[228128, 6115, 579, 12, 66, "Message",ExpressionUUID->"bd454c12-0108-6440-83f9-cc138ada191c"], +Cell[228710, 6129, 583, 12, 85, "Message",ExpressionUUID->"e4248cac-f88f-4c49-b567-aa30ef76372b"], +Cell[229296, 6143, 478, 10, 26, "Message",ExpressionUUID->"11ad8df1-50f5-7448-a295-e303669c499c"], +Cell[229777, 6155, 190, 2, 32, "Output",ExpressionUUID->"de55fa8d-41ba-414e-ac49-8857c355bec4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230004, 6162, 1957, 52, 115, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[231964, 6216, 20038, 377, 237, "Output",ExpressionUUID->"41feeb24-d3c0-e141-ac9f-a4c566b3e778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252039, 6598, 2139, 59, 211, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[254181, 6659, 517, 11, 60, "Message",ExpressionUUID->"e25f5bef-107e-9348-b2f3-3ab3d298e4dd"], +Cell[254701, 6672, 520, 11, 60, "Message",ExpressionUUID->"715362a6-33c2-2a4a-8141-e82dfb26c7aa"], +Cell[255224, 6685, 525, 11, 60, "Message",ExpressionUUID->"ffeeeb85-f572-5843-abf9-0160114ab8c2"], +Cell[255752, 6698, 476, 10, 26, "Message",ExpressionUUID->"c8b86732-15cd-6d40-8107-18f2c7ba0162"], +Cell[256231, 6710, 22503, 414, 233, "Output",ExpressionUUID->"5daa6c1b-b31f-4e4e-bb5e-b7f014bb2f93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278771, 7129, 1861, 50, 120, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[280635, 7181, 8995, 209, 241, "Output",ExpressionUUID->"f606cb62-1677-8740-a2ad-6ca6ff3b7303"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289667, 7395, 276, 5, 42, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[289946, 7402, 28518, 539, 233, "Output",ExpressionUUID->"187c8104-da0e-7b4f-9895-497dceac6466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318501, 7946, 234, 6, 48, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[318738, 7954, 191, 2, 32, "Output",ExpressionUUID->"1ae54a4a-fed9-1141-ae2a-4eee4d814e9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318966, 7961, 1835, 52, 183, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[320804, 8015, 526, 11, 60, "Message",ExpressionUUID->"635f5923-2fdd-6448-b088-76be639b1d23"], +Cell[321333, 8028, 528, 11, 60, "Message",ExpressionUUID->"5bab959d-ef63-7540-9727-13ffae2f061a"], +Cell[321864, 8041, 528, 11, 60, "Message",ExpressionUUID->"f5b08ba8-2927-e148-886e-81e04091edc3"], +Cell[322395, 8054, 478, 10, 26, "Message",ExpressionUUID->"f5e1afb2-2420-ab43-a72d-e47e019320a1"], +Cell[322876, 8066, 22399, 414, 233, "Output",ExpressionUUID->"968e1f9d-6602-8341-9666-5b465b9ebfff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345312, 8485, 1612, 47, 113, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[346927, 8534, 597, 12, 85, "Message",ExpressionUUID->"2da03f16-9b21-ea44-a6c9-3e903115232c"], +Cell[347527, 8548, 599, 12, 85, "Message",ExpressionUUID->"17d3d08c-f273-774a-8ba3-bfd5cdee935c"], +Cell[348129, 8562, 603, 12, 85, "Message",ExpressionUUID->"0cc84825-32a6-f94f-9633-b8ee9c7ed2b7"], +Cell[348735, 8576, 478, 10, 26, "Message",ExpressionUUID->"1c4c4249-0fc3-2c4b-8699-421047f701da"], +Cell[349216, 8588, 192, 2, 32, "Output",ExpressionUUID->"b434091a-573a-094e-a8cf-688f3dfc522b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349445, 8595, 2274, 64, 223, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[351722, 8661, 578, 12, 66, "Message",ExpressionUUID->"44474fac-4eb8-3841-9a12-46bc820a3b23"], +Cell[352303, 8675, 583, 12, 66, "Message",ExpressionUUID->"d0ff8e77-495c-cb4b-a040-49b7f09d992d"], +Cell[352889, 8689, 587, 12, 66, "Message",ExpressionUUID->"627ac276-ccb5-2d46-9264-ccd0fa65bdea"], +Cell[353479, 8703, 482, 10, 26, "Message",ExpressionUUID->"c10fd530-8e72-6543-bca4-47b60ac32b8a"], +Cell[353964, 8715, 192, 3, 32, "Output",ExpressionUUID->"0f80fac5-7af7-6449-93d0-82c847eef521"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354193, 8723, 2242, 64, 162, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[356438, 8789, 578, 12, 66, "Message",ExpressionUUID->"0eeebef4-b91d-1b41-88dc-157ad30f7ffd"], +Cell[357019, 8803, 581, 12, 66, "Message",ExpressionUUID->"b5f1cf3e-2f7b-544a-9817-369c1cbb3895"], +Cell[357603, 8817, 583, 12, 66, "Message",ExpressionUUID->"295ae18b-0adc-9948-ac1d-967cfed55249"], +Cell[358189, 8831, 478, 10, 26, "Message",ExpressionUUID->"2c6b2bf0-eeee-d849-be4f-5eb95c74ff4c"], +Cell[358670, 8843, 197, 3, 32, "Output",ExpressionUUID->"31638b1f-da77-ff48-92b1-7ccc03f8b763"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358904, 8851, 2242, 64, 162, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[361149, 8917, 578, 12, 66, "Message",ExpressionUUID->"aa961efa-e7b0-b343-85c5-f29538877549"], +Cell[361730, 8931, 583, 12, 66, "Message",ExpressionUUID->"97d07294-97cd-f346-a26a-651452cc4d7a"], +Cell[362316, 8945, 587, 12, 66, "Message",ExpressionUUID->"c5efd08c-19d9-6c47-8589-b3983e2e56b2"], +Cell[362906, 8959, 482, 10, 26, "Message",ExpressionUUID->"b28c84fc-ff7d-ed4d-8341-7ae3f1369f40"], +Cell[363391, 8971, 194, 3, 32, "Output",ExpressionUUID->"1b9b9023-647e-da4b-ae37-73a45c8ce4a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363622, 8979, 234, 6, 47, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[363859, 8987, 196, 3, 32, "Output",ExpressionUUID->"bc0639e7-58f9-3b48-8d55-56837a3b28cc"] +}, Open ]], +Cell[364070, 8993, 273, 6, 70, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[364368, 9003, 558, 19, 52, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[364929, 9024, 197, 3, 32, "Output",ExpressionUUID->"20a9f54e-0298-0b40-9b21-a5ffb8bae684"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365163, 9032, 170, 5, 56, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[365336, 9039, 192, 3, 32, "Output",ExpressionUUID->"59194337-179f-054c-9201-33e646ebd087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365565, 9047, 181, 5, 43, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[365749, 9054, 194, 3, 32, "Output",ExpressionUUID->"6ce5d236-dfcc-c74f-ab99-abec08bf7ca7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365980, 9062, 6055, 185, 491, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[372038, 9249, 199, 3, 32, "Output",ExpressionUUID->"aa9b114c-f4e9-0644-b281-e47a56db29ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372274, 9257, 368, 9, 42, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[372645, 9268, 197, 3, 32, "Output",ExpressionUUID->"2e713274-f00c-1346-89a2-846fc943cba0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372879, 9276, 6122, 187, 512, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[379004, 9465, 195, 3, 32, "Output",ExpressionUUID->"42b93b31-4c87-8f46-9add-5985da990532"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379236, 9473, 368, 9, 42, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[379607, 9484, 196, 3, 32, "Output",ExpressionUUID->"fae1cff5-335f-2749-8beb-38e1b36eb1fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379840, 9492, 2663, 88, 165, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[382506, 9582, 195, 3, 32, "Output",ExpressionUUID->"887ade38-ec60-fa44-b471-5a4ca8badf30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382738, 9590, 2603, 85, 165, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[385344, 9677, 193, 3, 32, "Output",ExpressionUUID->"0e72553d-78d9-174d-bddd-0abac366e792"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385574, 9685, 3712, 118, 294, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[389289, 9805, 195, 3, 32, "Output",ExpressionUUID->"fdf820a3-4c9d-b546-a74b-846ee1a25913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389521, 9813, 2077, 59, 228, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[391601, 9874, 582, 12, 66, "Message",ExpressionUUID->"46d06394-0cd8-414c-810e-808e8cc948a1"], +Cell[392186, 9888, 584, 12, 66, "Message",ExpressionUUID->"e1f15179-8b70-7c4e-895b-592b1f953134"], +Cell[392773, 9902, 588, 12, 66, "Message",ExpressionUUID->"1003a7c1-9e8a-7e42-9b3b-3cff62fbc1a7"], +Cell[393364, 9916, 481, 10, 26, "Message",ExpressionUUID->"4f918e0c-cafa-6840-94f9-414382956899"], +Cell[393848, 9928, 192, 3, 32, "Output",ExpressionUUID->"4456e76c-fbc9-664f-917a-4f94601c5613"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394077, 9936, 2075, 59, 228, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[396155, 9997, 581, 12, 66, "Message",ExpressionUUID->"bd8f7472-1a15-1648-8e3c-e07f6bbe2d7f"], +Cell[396739, 10011, 583, 12, 66, "Message",ExpressionUUID->"8275a2b4-f07a-7047-90b9-94f3f1b577f8"], +Cell[397325, 10025, 588, 12, 66, "Message",ExpressionUUID->"759c0a29-c537-194b-9c8a-a49650245159"], +Cell[397916, 10039, 479, 10, 26, "Message",ExpressionUUID->"0083fb5b-2bcd-d046-bf12-83eecc620585"], +Cell[398398, 10051, 192, 3, 32, "Output",ExpressionUUID->"d6bfa008-702a-b049-9326-2de05f8b06e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398627, 10059, 2053, 55, 131, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[400683, 10116, 20553, 384, 241, "Output",ExpressionUUID->"00132067-8ee5-3944-aea1-3d317e9a69fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421273, 10505, 2117, 60, 211, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[423393, 10567, 525, 11, 60, "Message",ExpressionUUID->"882a7971-2405-e34c-aecd-b8211e35190c"], +Cell[423921, 10580, 528, 11, 60, "Message",ExpressionUUID->"eabe2196-2c79-6846-b56b-ce37a1c5c958"], +Cell[424452, 10593, 529, 11, 60, "Message",ExpressionUUID->"9732ac1a-dc93-5843-bc19-480594076b2b"], +Cell[424984, 10606, 481, 10, 26, "Message",ExpressionUUID->"ee675b01-3264-9549-8b58-4bb13fecaad6"], +Cell[425468, 10618, 22103, 409, 233, "Output",ExpressionUUID->"9dc7afde-c341-e84d-a5ba-edd8ee97fb28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447608, 11032, 280, 6, 42, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[447891, 11040, 28116, 534, 233, "Output",ExpressionUUID->"8597eeb0-a279-3e42-8a8c-fa9517bb4736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476044, 11579, 1616, 48, 106, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[477663, 11629, 608, 12, 85, "Message",ExpressionUUID->"bdf2b3f6-920c-9b45-8c60-d69a2046a75e"], +Cell[478274, 11643, 611, 12, 85, "Message",ExpressionUUID->"dc32e637-7b02-7f48-8e69-325eea64b144"], +Cell[478888, 11657, 614, 12, 85, "Message",ExpressionUUID->"cc77974a-857d-9d47-9fb1-4764e4b31b02"], +Cell[479505, 11671, 481, 10, 26, "Message",ExpressionUUID->"a9026083-2a5e-ec46-8fa9-83f3ccbb3510"], +Cell[479989, 11683, 196, 3, 32, "Output",ExpressionUUID->"d8194b6a-bd9d-e94b-99bf-c769197dcb01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480222, 11691, 2274, 64, 223, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[482499, 11757, 583, 12, 66, "Message",ExpressionUUID->"2ac15d92-0808-d74e-af32-471335eac39e"], +Cell[483085, 11771, 587, 12, 66, "Message",ExpressionUUID->"a355fb44-28a8-e246-a2ff-1493745b35e2"], +Cell[483675, 11785, 588, 12, 66, "Message",ExpressionUUID->"accce81c-fe58-4c42-82d7-29bc1aa7eb3d"], +Cell[484266, 11799, 481, 10, 26, "Message",ExpressionUUID->"4a538572-ccf4-cb46-b60f-73e345023511"], +Cell[484750, 11811, 196, 3, 32, "Output",ExpressionUUID->"88f3f79f-2bd9-b34d-a93f-d3ea6b39656a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484983, 11819, 2244, 64, 162, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[487230, 11885, 583, 12, 66, "Message",ExpressionUUID->"2fda0384-2fd8-a049-980a-721ba5b5bfa1"], +Cell[487816, 11899, 587, 12, 66, "Message",ExpressionUUID->"74b6d9cb-2975-f244-a896-0e07cb6638e3"], +Cell[488406, 11913, 590, 12, 66, "Message",ExpressionUUID->"1c9412d7-3ca9-ca47-8a98-1e1e861a872c"], +Cell[488999, 11927, 481, 10, 26, "Message",ExpressionUUID->"a774d273-2e30-5d4b-a130-a51a2ca8d5f8"], +Cell[489483, 11939, 194, 3, 32, "Output",ExpressionUUID->"bcc94893-2469-2343-8b4c-49888e60b717"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489714, 11947, 2241, 64, 162, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[491958, 12013, 581, 12, 66, "Message",ExpressionUUID->"047772dd-b91b-3044-9358-e46708c94c96"], +Cell[492542, 12027, 583, 12, 66, "Message",ExpressionUUID->"65bb3c1c-62f1-b849-ac92-f994aee61c7e"], +Cell[493128, 12041, 588, 12, 66, "Message",ExpressionUUID->"c84a5632-dc29-044b-8dac-d68da2833025"], +Cell[493719, 12055, 479, 10, 26, "Message",ExpressionUUID->"0263e6ee-7a46-6749-873d-ce424ba985d3"], +Cell[494201, 12067, 195, 3, 32, "Output",ExpressionUUID->"d548434a-1be7-7f46-af49-0572264f2578"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494433, 12075, 234, 6, 47, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[494670, 12083, 198, 3, 32, "Output",ExpressionUUID->"b3eb6851-1046-454b-a219-231e322c206b"] +}, Open ]], +Cell[494883, 12089, 271, 6, 70, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[495179, 12099, 558, 19, 52, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[495740, 12120, 197, 3, 32, "Output",ExpressionUUID->"a83580fa-10e6-7c45-9ad1-aaeba01be80a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495974, 12128, 170, 5, 56, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[496147, 12135, 194, 3, 32, "Output",ExpressionUUID->"661a93b0-5626-404d-aae8-221e8bbe8af6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496378, 12143, 181, 5, 43, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[496562, 12150, 194, 3, 32, "Output",ExpressionUUID->"87135b3c-74f5-ec40-8026-c12840b6d19a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496793, 12158, 6055, 185, 491, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[502851, 12345, 195, 3, 32, "Output",ExpressionUUID->"1f26cde7-8218-134d-93c6-bdf23cebf8d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503083, 12353, 368, 9, 42, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[503454, 12364, 194, 3, 32, "Output",ExpressionUUID->"88e709b0-2703-e443-af6a-7ba05a410153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503685, 12372, 6122, 187, 512, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[509810, 12561, 197, 3, 32, "Output",ExpressionUUID->"ba6131d2-1f22-5640-af07-db5c54cd2649"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510044, 12569, 368, 9, 42, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[510415, 12580, 192, 3, 32, "Output",ExpressionUUID->"789f803a-0f2f-bf45-bf42-a99bbd332e51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510644, 12588, 2663, 88, 165, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[513310, 12678, 193, 3, 32, "Output",ExpressionUUID->"52f34c91-2b30-9344-9c63-5dab12d1454d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513540, 12686, 2603, 85, 165, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[516146, 12773, 194, 3, 32, "Output",ExpressionUUID->"1a726864-ebc7-5c41-a954-9b807c2f8f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516377, 12781, 3712, 118, 294, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[520092, 12901, 198, 3, 32, "Output",ExpressionUUID->"22518695-b27a-7241-807c-1ec217e1ca82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520327, 12909, 2073, 59, 228, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[522403, 12970, 574, 12, 84, "Message",ExpressionUUID->"0e78e33a-f9d5-b24a-ba6e-281486da003f"], +Cell[522980, 12984, 579, 12, 66, "Message",ExpressionUUID->"8dfb5f0e-4253-2145-b818-d2b1c34f6454"], +Cell[523562, 12998, 583, 12, 66, "Message",ExpressionUUID->"dc806c02-fd49-7049-a57d-9853ce5c4577"], +Cell[524148, 13012, 481, 10, 26, "Message",ExpressionUUID->"25c15a50-9d08-424d-a869-48214973a2de"], +Cell[524632, 13024, 197, 3, 32, "Output",ExpressionUUID->"f3749c06-9880-c54d-b147-1e59d1f3cbcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524866, 13032, 2077, 59, 228, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[526946, 13093, 574, 12, 84, "Message",ExpressionUUID->"4b7824c2-4f18-ab45-9575-f7c1a9b272cf"], +Cell[527523, 13107, 579, 12, 66, "Message",ExpressionUUID->"e704cbd4-5e20-7844-915e-5ddceeb50903"], +Cell[528105, 13121, 583, 12, 66, "Message",ExpressionUUID->"54b9340a-99bb-5b4a-b925-97596f1713e2"], +Cell[528691, 13135, 478, 10, 26, "Message",ExpressionUUID->"e01b9511-eda7-9d4f-8a71-3b3fe37eb39a"], +Cell[529172, 13147, 196, 3, 32, "Output",ExpressionUUID->"f580162c-b30b-5343-9714-2c6f4aa02989"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529405, 13155, 2051, 55, 131, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[531459, 13212, 20289, 379, 237, "Output",ExpressionUUID->"064922d2-2d20-bd49-a0ac-5e87c918fb09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551785, 13596, 2117, 60, 211, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[553905, 13658, 522, 11, 60, "Message",ExpressionUUID->"d4a768e9-ee56-9445-9a28-c009ced4a0dd"], +Cell[554430, 13671, 522, 11, 60, "Message",ExpressionUUID->"e597b5b5-d63e-b54b-b06d-c35c4ffd9ae3"], +Cell[554955, 13684, 528, 11, 60, "Message",ExpressionUUID->"2cc96305-031a-b249-978a-a390055cbf95"], +Cell[555486, 13697, 483, 10, 26, "Message",ExpressionUUID->"195b9afc-0d74-194e-982c-08110c62460e"], +Cell[555972, 13709, 22061, 409, 233, "Output",ExpressionUUID->"fe552624-3db1-5344-b25a-1a057bb0dfd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578070, 14123, 280, 6, 42, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[578353, 14131, 28072, 534, 233, "Output",ExpressionUUID->"9eec1b91-f793-0f40-a507-d129d6285c09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606462, 14670, 1616, 48, 113, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[608081, 14720, 601, 12, 85, "Message",ExpressionUUID->"fa269488-cc09-e84e-b990-3139824b4e9a"], +Cell[608685, 14734, 605, 12, 85, "Message",ExpressionUUID->"eeb3ab69-bec9-0b4c-a14e-c3509c8d46d4"], +Cell[609293, 14748, 607, 12, 85, "Message",ExpressionUUID->"781edc7d-f37c-7d4d-9db6-b438c6d3ebd2"], +Cell[609903, 14762, 483, 10, 26, "Message",ExpressionUUID->"5ff4b658-eb5b-1e44-807d-52e2d237793e"], +Cell[610389, 14774, 193, 3, 32, "Output",ExpressionUUID->"4e5cde0a-224b-594b-b41d-0f91b49ac1a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610619, 14782, 2272, 64, 223, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[612894, 14848, 574, 12, 84, "Message",ExpressionUUID->"490cb7de-bb22-d54f-8afe-52f1bb547c6c"], +Cell[613471, 14862, 579, 12, 66, "Message",ExpressionUUID->"e1e3c708-3bbb-1945-95e1-109d4ae4d410"], +Cell[614053, 14876, 581, 12, 66, "Message",ExpressionUUID->"c62e3ff7-ac6a-754a-859e-a220ca776f13"], +Cell[614637, 14890, 481, 10, 26, "Message",ExpressionUUID->"5f4103b5-e696-5b44-8ab1-78364c63b432"], +Cell[615121, 14902, 197, 3, 32, "Output",ExpressionUUID->"1ca40beb-00b3-0549-bfd5-5ebd49fb4ede"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615355, 14910, 2246, 64, 162, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[617604, 14976, 575, 12, 84, "Message",ExpressionUUID->"52a7dcaa-a7c9-884e-9eeb-39c70c265811"], +Cell[618182, 14990, 578, 12, 66, "Message",ExpressionUUID->"38b8234c-ce89-5848-9c6d-05b4b38e9707"], +Cell[618763, 15004, 583, 12, 66, "Message",ExpressionUUID->"34963974-759a-9f40-8034-b4a832fbfdea"], +Cell[619349, 15018, 483, 10, 26, "Message",ExpressionUUID->"a5bd42d1-02f8-9040-bd2f-015eaf7e9e82"], +Cell[619835, 15030, 192, 3, 32, "Output",ExpressionUUID->"6e50106d-d1da-944e-8847-e8212a7e1b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620064, 15038, 2244, 64, 162, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[622311, 15104, 576, 12, 84, "Message",ExpressionUUID->"3f3af3d4-c63e-894e-b330-80851bf13e62"], +Cell[622890, 15118, 581, 12, 66, "Message",ExpressionUUID->"93eac98d-63de-7746-b969-51b856eec5ab"], +Cell[623474, 15132, 583, 12, 66, "Message",ExpressionUUID->"255184cf-10a1-5a42-9a7c-500e31f3ccfc"], +Cell[624060, 15146, 481, 10, 26, "Message",ExpressionUUID->"d837402c-87f2-eb4e-99ff-dc74c31722bc"], +Cell[624544, 15158, 194, 3, 32, "Output",ExpressionUUID->"2fce02a8-d9f0-fc4b-885d-927ab6de0e03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624775, 15166, 235, 6, 47, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[625013, 15174, 194, 3, 32, "Output",ExpressionUUID->"dc08d3e8-9c10-1d42-a671-9da55ba9d254"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb new file mode 100755 index 0000000..8d852e6 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb @@ -0,0 +1,15837 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 666063, 15829] +NotebookOptionsPosition[ 625495, 15180] +NotebookOutlinePosition[ 625953, 15198] +CellTagsIndexPosition[ 625910, 15195] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"8458377e-b729-7842-b6bf-d029af88cf74"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921183230883846`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c4ed1b59-3cbb-e547-a87a-67eacbc1df9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"2eb78ff4-0669-4e48-8d06-e0d68faa9bd7"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921183231492805`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"72332af1-3b7d-3041-820c-6def5fae4fb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"065c4898-39bc-0442-947e-93882c40dc64"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992118323161375*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"7a880b49-ab2a-4b48-a255-69fdfd990c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"59ca93ce-52be-3b48-96a2-f0039c30dc94"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921183231783257`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8dacad3f-d64b-b347-a884-a97e058ecd97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b8d816c6-fa8f-f143-b783-52a729e7e285"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992118323193327*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2c67c526-8ae8-f34e-a308-46ebd772e587"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"e013fb3d-8374-0a4a-a562-a250c762d0e1"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.992118323205282*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"e7fee5d8-1c99-384b-923c-eaee96837128"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"cb804fd1-1d6c-f744-bd48-f62535244426"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.992118323219282*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"784a0a5f-6a76-fe40-a893-e2e8e23b3f73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"22597984-a5b3-ca42-a1b4-d3006f1f9aba"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992118323232296*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"dde03983-df11-8749-92e8-dd4005e76898"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"2673edad-bb17-614f-a593-a9cb7cad1ffd"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992118323244526*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"eb8ac53c-fffd-f247-ace4-9cafbba6f06b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"48b19dc1-7edb-f041-bae4-57a9e4bd2551"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992118323255516*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2dfb600d-e458-1a44-bba7-254cfa5abd3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b6556658-1091-fc4c-9ac8-1666d1e5378c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.9921183232675266`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3b808e86-5c99-2d49-b37d-b6c3e1b7bd14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"af41b3eb-fc07-ed4d-8a49-34b18c13123e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.9921183232795334`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"5e33cd10-9713-b149-97c2-64d7b6c99b82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"dba3f829-103b-9f4a-ac0b-c48c153dee45"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921183232895145`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"76718e6d-28ec-0b41-a48e-fec60521ae43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"f54316f6-bd9d-7b43-a7b7-d8c525372e74"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921183232985287`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"b454635b-1fde-6f4d-9e2a-877a6e36c1bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"e3db6600-5d2c-484c-b638-1fc1af7a0fcd"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.9921183233073025`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"94f9afe3-f0de-cd4c-b503-2fe34b9faa23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"60553265-d929-9a4a-ade8-9643cec06658"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.9921183233168125`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"de0c854c-a92a-c049-96bb-8d86a401767f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"35bb66b7-7141-c442-ab4a-7f44db800d79"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.992118323325815*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"a4e1d51d-2dc4-e649-a288-48b668d498ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"b84ad735-faee-584c-8acb-d12dfbf1dc32"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992118323335432*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9c9bedeb-bafb-1b4b-9960-9beb00d0f6f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d2a99daf-e650-654e-8ae6-b58051fb43d3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.992118323343857*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b9c3ab0e-6c20-2b45-8d41-b7d7cad4f3f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"8e5231c5-60ac-dc40-b8eb-5ff933be944d"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921183233549595`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"7736a038-3ed8-e14e-a929-7c6385c8e72f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"268e769e-bd52-a749-9bf3-dbf8464e56a9"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921183233689785`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"dfe93ffd-be18-2e47-8cde-3908bb9c7680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"fe2cdfec-040d-6548-a1f0-056505fdb252"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.992118323384863*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"c866fce5-51e8-a241-b3d4-7882900bebdf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"6e4bb0a7-ae57-1148-817c-1ac3be501584"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921183233968544`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e11492bd-fb1e-8541-aa53-5e04bca86b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"878d80cc-a24a-4a46-8d86-af1b4de5b7f0"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921183234078617`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"ad231e28-9f08-114b-9b72-87eb38190db0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"cef075a8-7701-b041-a178-03f3d50f1038"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"60e50c6d-17e9-3c4a-beaf-d2a1cd7eacb7"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921183234213734`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"37108ab4-1b2a-894e-ae61-5e9cc882b478"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"4c2498ed-9ef7-244c-816d-c30c35823738"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921183234333725`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"88742a86-5b6f-604f-ab42-2d3bc7fb6c3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"aeb81a59-93af-a84e-807d-17a754600be7"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921183234459248`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c30dda74-9dd0-c143-9a5b-2c2765ef5634"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"291b8ccc-69af-4843-a393-cfd27bc3a78c"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992118323459921*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"a98653f3-aa53-5440-8885-928a66b93ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"130ad36d-bea6-7242-aba2-dfa23b3f24b3"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.992118323469818*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"603a3080-7f33-7340-bb43-cbfd58a5d901"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"0fb87ce2-288a-b34e-bc6e-0e425904e12e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.992118323478924*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"532f1980-b156-3f49-8e5b-ba293f4051e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"4df8b2c8-baa3-7345-9ebf-2dbef092fc95"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921183234869213`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"a4714fd7-bddd-ca4d-9112-ef3b0b4f9255"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"9049f273-3205-c04e-9831-c95d3306ffff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"847fcd2f-d4c6-274b-b69c-99763f1cdc12"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.992118323504925*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"831ad37b-73df-c244-983b-65a5037eace8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"71094d83-ab7a-004d-90e5-bd603ce7e1cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"f5912f7e-9027-7d42-a0c1-5e76e947b58d"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921183235179234`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"96259a60-6d71-7c4e-8973-e50ced1fac75"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"ee521a53-a571-dd48-918f-9e53a3225d60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"6a9255f6-e423-5b4e-ad8a-b735145e3e44"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.9921183235324764`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"643ecf77-172e-9a47-b43a-0eaccbca720f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"e7eb29b7-994d-224a-997c-31f9b2d12c00"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"4a689f90-566d-9b4d-b07a-5ba5a4de722e"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921183235435867`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"0ff9ef27-018d-884c-a60d-bde2b947613c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"0bb456d4-0bff-084e-baad-4ce3a3ade3a1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"4a08306d-5825-5245-99e4-ad98c9ced916"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921183235544777`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"73faacba-7daa-cf44-b755-f7acd389bb7e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c2a70a7f-2283-3c43-bead-cfb6bc4f0fc1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"1cf75dbd-0ee2-b64b-91df-0f6d27a2c275"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.992118323568825*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"a74b927d-bf60-8049-a437-079076dfbc99"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"e52ef544-976c-0e42-9b93-9a455fef99a3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"589212bb-0d09-bd4d-9ef5-2829a0dd2671"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921183235849304`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"534ce497-2c7e-eb43-a02a-7eada08c1a65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"1ed7bdb6-c122-8648-a8fd-20060de48097"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"5655ff51-03c5-6e4b-a31c-447549cb42db"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.992118323720604*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"83be1b51-2b2a-c641-aae9-fae4884076e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"54727339-1998-d347-b373-e75d1edb0eb8"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921183238798313`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"82f1b2b0-51a7-8a49-adac-da2ee87ecee2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"66fa67b1-f382-df40-a332-dc300b0c584b"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.9921183240755806`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"76729142-2d26-b045-bf16-642957c832cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"2f0eaada-92ab-a446-b15b-c25b7bd772ef"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992118324331543*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"8693afbc-c2de-d141-a81d-a7a43ec2ab76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"941a1eea-87d7-8f42-ae3e-405dbe917eac"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.9921183245206375`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"2c92c3e8-dabb-9048-bb84-4e7e2c9ebaa4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"e33d937e-5049-334c-9bad-1b104d98f2bc"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.9921183246909943`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"4c8cdffe-d441-7644-968d-d44d46668238"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"6e0bef04-8d2e-1745-b209-ce9874237cee"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992118324721218*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b9e7d09e-4840-474c-9f85-38d160cf7ca0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"51a875f3-2bd1-8b45-9152-496f4e103d3f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921183247476654`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"bd470ddb-f15c-5140-9942-2a679731db1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"391cdea6-e77a-a24f-ab38-4a6a1d28cf24"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921183247611237`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"13d946ce-cbef-b34d-a6ea-632e681eeb42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"99153a49-9764-644e-94a8-492732e4283f"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.992118324777975*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"d23f15dc-c05c-614f-806b-8e8a21c3c4dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"e844b4c8-a66e-5141-bc71-bc70b39539db"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992118324792282*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"4b4a1aec-48f9-b34b-9233-02e91c431fcf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"f2db0337-401a-e741-8590-810217c4f3c3"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992118324805193*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"b494f128-0dd4-db4f-a9a0-1fffa9962893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"eb2f2172-089c-4643-9ded-376391cc54ba"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921183248195705`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"cce0e5e3-2ab6-a040-9d06-60e60e827a7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"91d93eed-7bdd-9542-ac21-1e219c8eb1f7"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.992118324832224*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"9ec6abf2-5838-2d45-b185-ca6fc346277c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"4a405139-98b1-da41-baa7-40f21a88faee"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921183248491726`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"265e095a-ad88-d64b-a04c-5cf247b12e66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2432f554-dfce-c345-aee4-ab1fada20c0f"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992118324880398*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"217590fd-19d2-5f49-8730-35f389da3528"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"d8300595-d956-114b-ac74-43bf03afaa14"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921183248960514`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"3448593c-b1da-e34d-84d8-b97039a3a2f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"843f4134-7522-1148-a355-758046332408"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921183249117527`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f8dd8ba1-c84f-ba4f-ba28-a7a91cd14862"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"133c5c9d-3e6b-fb4e-8771-e0290c8011e2"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992118324930973*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"1eee8ebd-27ee-6c48-8ccc-02fbbb3c422a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"a344793c-bf8e-2a4c-ac3f-5d45a812d604"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992118324944746*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"877eac59-cd25-7546-bb22-425885dc8bb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"0b343bab-19c0-8b44-83a5-d2b4e9621921"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921183249597454`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"02f9b44f-eedb-1e40-8e60-45ad8e92b48a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"25cd0352-0a5d-eb49-ac86-c2d9cc6a455e"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921183249897327`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"03a53b1c-384a-7b49-9f63-014ada7ecdf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2690c115-57dd-354e-a006-969bc2d2f822"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921183250175705`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9cc76c41-9121-f549-b595-bb254e4179a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"a25ceab2-3820-2e42-8510-d275cffeed66"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921183250412197`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"01dd996c-7ef5-e340-ab7c-54745c239829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.432722960630574"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, 3.992091878546377*^9, + 3.9920919170665607`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData["0.432722960630574`"], "Output", + CellChangeTimes->{3.992118325052046*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"5fd992e6-b5d5-9249-abd4-716fe8fe12c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, 3.991844505914568*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.31463698253977"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, 3.992091883345543*^9, + 3.9920919229547176`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], + +Cell[BoxData["0.31463698253977`"], "Output", + CellChangeTimes->{3.992118325062172*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"d1a6bc9f-42fe-2b40-bead-867e1959fb30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, 3.9918445068872185`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.99211832508276*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bc2a659f-c93f-5245-b96c-20b542cde9ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9, {3.9915580161429977`*^9, 3.991558019706772*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], + +Cell[BoxData["1.636808034786002`*^-54"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.992118325099703*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4d258fe3-09dd-8a40-bcff-b94e09e0b238"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}, + 3.991558013605444*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], + +Cell[BoxData["1.0861905135009178`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9921183251891575`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"161c1430-2d64-3741-a2f5-c22d5f0aa6c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["14.828168767133674`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.992118325203705*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"fec45309-5ff0-5841-9564-0e0b176e18f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["34.12266166225029`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.99211832523028*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"4c3eb498-108d-e246-b15f-71f857669eb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["2.4281435116294983`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.9921183252578735`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6eda747c-145d-b541-b206-d2c7a2183c32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["6.896797970632204`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.99211832527894*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"f376a02f-b6bb-7d49-b5be-f23875b070f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["235.3371037047771`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.9921183253018246`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"a368f12d-0adf-6541-9d89-7478ff423dc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["36.00492178126281`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.992118325322195*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"6560de0a-4715-5748-bd44-12440e7bb182"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.00826182567072342`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.9921183253490486`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"7d95522c-4ebc-dd42-8a8b-11f35d5e476d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["9.750051894856684`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9921183255712376`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"1c05557d-ecd1-b346-a4a0-b395085aac68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.013614498457962173`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.992118325596594*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"adaae8b7-5a8f-7a4e-b500-1e517528b654"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.595285743061616`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9921183258095436`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"78727c1b-3c29-3e49-9849-3e13f9eb09fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.9921183258365993`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"3738bebf-fdb7-744d-a7f3-b3d59491ff05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9921183258797607`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"90f0e5e5-1d63-9a4e-8c8d-c34f582e9dbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.992118325914776*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"7f6f2692-7876-1d4b-a096-997110255b4a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844522599167*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 790, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9921183259869823`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"f5884305-e9ab-b04c-9831-88937b36f5d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 791, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.992118326040781*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"618bfe3e-f617-fb43-a2ec-64c990c3061f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 792, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9921183260608253`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"fba1ee07-0355-3949-8bf8-e5b72b8a250d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 793, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.992118326079817*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"651f7e32-1fae-5440-9722-0454662f5a5f"], + +Cell[BoxData["9.750051894856693`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.99211833439336*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"1a7f079f-59d3-eb45-8065-c4d9e2cf7d79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844527271263*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 794, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334539339*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4eb4bce7-d74b-924c-aeae-69cbd3b4f7bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 795, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334562134*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"06f17012-b2ea-4f47-a3e9-87b2edcc7587"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 796, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.9921183345831203`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"21e9f956-b642-8844-ac83-9cf76af4f9cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 797, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334606125*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"d4c99b7e-a55b-3747-aa01-f9b0d8b5e36c"], + +Cell[BoxData["7.595285743061624`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.9921183427291145`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"79b40355-3da2-994d-87c5-8cc3d83ca3c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844532798546*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6999235362144377, + 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6999235362144377, + 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6999235362144377, 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6999235362144393}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6999235362144377, 1.3969638038605017`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9, 3.992118932153723*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"95dd8aff-1dcb-5e4d-8148-b9f1f81fb262"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, 3.991844648037607*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.944166731576193`*^-277\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 798, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932536972*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"6769bdfa-2bd4-ca4c-84e1-23b6458b56f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.795046337010174`*^-289\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 799, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932559969*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"df11cb5c-6b1d-3e46-995b-574ad82cbc89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6504235440184464`*^-301\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 800, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932578972*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"46649f1c-f59e-1d46-af36-c2baed590447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 801, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.9921189326019783`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"de98472d-afea-0948-90e5-0d964dee5824"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07796609111579834}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9, 3.992119515227665*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"2c5e5728-758e-2048-bda3-ffe0c53cebdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917576775723`*^9, 3.992091758838732*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921195154248104`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"2dc634c2-eb9d-f246-83bc-ee04fba1c5f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07796609111579834}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992119515467989*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"c12ddfad-4317-594d-9cf0-142377e33a72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991844724526314*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], + +Cell[BoxData["13.595342181387226`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.992119515538122*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"30213909-a541-7c4f-bec8-cd9c7165a90d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918447267207756`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2906476283740386`*^-260\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 802, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.99211951580698*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d1ed5e84-851d-8b47-aae3-6fd1d0c5a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4449015662488036`*^-270\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 803, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515828985*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"ae25ec0a-bc68-dc47-9b27-daa13d520d74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.606386383888603`*^-280\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 804, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515848995*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3fcb0167-e792-2749-bc0a-54e1abe1575e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 805, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515865988*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3390f48a-fe4d-c244-8987-ed8187566fcd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.05591425527252865}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.992120317847416*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"4810e267-cc17-7148-919a-9a69553b3a53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.05852149319637`*^-182\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 806, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180163136`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ea8a0039-534b-6044-8956-4386982e10cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4099396795418108`*^-185\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 807, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180364094`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"d3aa96d3-1d05-584d-b009-413b6b60d816"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.92986350383249`*^-189\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 808, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180534096`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c9d0bbde-e839-0542-aa09-939e17bb39c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 809, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992120318070442*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"e6120042-2c47-1b4c-917f-a509e7dec2f4"], + +Cell[BoxData["13.595341521085361`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.9921203868744087`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"1a2efb48-5d71-3f40-bade-563436895243"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844712341957*^9, 3.991844718198534*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 810, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870300236`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"2a92417b-cef4-4e49-9472-656d4307bfee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 811, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992120387048031*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b5522da2-fc24-de4e-bc13-73ea1b98f3a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 812, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870640335`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"e1ba7bd1-a8c6-7244-bd08-25d2e37043a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 813, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870850353`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aaa5ad63-b06e-0f41-a6fe-bc7324560f46"], + +Cell[BoxData["0.8712119753545899`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.9921203988290825`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"a4bc3726-ac87-5c41-8e99-318cd1927e06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918447603776054`*^9, 3.991844763418377*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 814, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120398948593*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"37f66dd1-170b-d14b-9592-9c923e692b37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 815, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120398990492*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"39c0f6e7-0628-d748-a72b-796d16e610b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 816, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.9921203990135937`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"425875d3-1e69-c14c-817e-9f4e58593aa0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 817, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120399033592*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"7b026711-920c-9b42-a1b9-3a61b6ff67ed"], + +Cell[BoxData["25.9751107267991`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9921204097829704`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1acc1147-2e41-8b4f-a7e3-6281016ac1e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844769790985*^9, 3.991844773139332*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 818, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992120409875469*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"61bcf82d-f6a1-a14e-b4b8-2e521e9201ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 819, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.9921204099054394`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"87d8843d-9c8a-7b47-98aa-22c6852cdb7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 820, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.9921204099294224`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"49f8b456-ce52-084b-8e92-aede72e0976b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 821, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.99212040994536*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"d208afba-06b7-054c-b049-81a6a1687484"], + +Cell[BoxData["15.762742730860257`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9921204185782986`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"17b24e56-798b-9c42-941b-16bec4899254"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, 3.9918447845314407`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], + +Cell[BoxData["0.043055559678842954`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9921204186543007`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"a9235d14-cc54-544e-a92a-b853366d8583"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["9.475403836278197`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.992120418692869*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"dafc8a45-31d9-ea43-af33-be093c3e2bb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["3.0375207082310656`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.992120418715967*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"1e456755-7bea-bb4c-b79e-f49d619687b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["28.781735371547104`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9921204187390766`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"ab6d94f5-6ff6-764d-9fa5-13952b705283"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.00878615443367709`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9921204187699833`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"87026635-c9e8-0741-a99f-d9472e6340f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["9.454651480214924`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.992120418989212*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"b692b5e8-09a7-794e-8a42-f399cbc601a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.015099371567439719`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.9921204190193653`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"3c28076f-2cb9-1047-a771-7aab32c3f71f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.212162517489941`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.9921204192354164`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"7db394fd-175d-3340-9ace-b435363b3e44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.9921204192604256`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"dd414c03-c9e8-7f4f-ba52-54448ddde44d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.992120419284445*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"c43c9f0d-4fa9-2b4c-b85b-597d92ad9e50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.992120419306429*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"983517a9-a9e9-7b4b-a436-ff23b5ffc2d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844883530533*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 822, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204193593273`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"913d64f4-069a-3c47-a17b-4d73d74f0272"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 823, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992120419381426*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"0b426b5c-778c-6849-9c1e-22079b524231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 824, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204194043865`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b36bab77-419c-e84d-85af-037e9892a761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 825, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204194284306`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"3c6558a5-6b6d-4449-8f38-ac90a3becb77"], + +Cell[BoxData["9.454651480214935`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.992120427601671*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"8db75942-782c-0240-9e7c-96cb1e9f6b84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844898486679*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 826, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9921204277010612`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"cc13e1e8-e38d-fd4b-832b-91c63392a6a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 827, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427746956*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"32a2ae4e-fbaa-7549-9429-8bb2eebf5dcb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 828, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427775959*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9d697c88-cfa9-4146-8643-7b90db1c8e33"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 829, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427792055*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ebe9b633-3247-2d45-adb7-816ed8af74e9"], + +Cell[BoxData["7.21216251748995`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.9921204358940887`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"f7cdd029-5251-4b41-9473-373b7e700a1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918449035840626`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5811972349413761}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5811972349413748, 1.636536743366553}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9, 3.992121007296318*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2c672264-c8ae-9d4d-9750-b86d3469ec4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, 3.9918455284898663`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6478013659855937`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 830, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007631632*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"58e6db52-d858-5742-b3af-14f4d923527b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.582665025988064`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 831, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9921210076526318`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"8673a462-97ab-d84a-b5f0-7378dab66454"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.274475138443221`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 832, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007672636*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"ef5e08fd-7e28-3945-9140-4163d07b2afc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 833, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007691639*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"102667df-5b40-2846-92e5-35434e23c4e6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08040204640404616}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9, 3.9921216422973022`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"42594ac5-80c7-5949-ac5f-97593bb5a779"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08040204640404616}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921216424254017`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"bcb47329-1c4e-ba46-9870-8427c86cfa1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309214465349764`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 834, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992121642515566*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5e0f186c-b493-344b-81a1-6a296c146a17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.986131132608925`*^-179\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 835, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425474606`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"94201451-829a-4e44-bc2e-b9225cb803b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.483398514334195`*^-182\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 836, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425664616`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"72ea9d09-653a-6149-ace4-ad0eabd50177"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 837, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425925655`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"d71e7063-1a8d-b14c-a292-de81589fc09d"], + +Cell[BoxData["13.595333652789991`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.992121715108494*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"c059b970-9bba-f945-aad7-705a8a127507"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844980123823*^9, 3.991844984423441*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 838, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992121715206499*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"86767bb9-09c5-2047-bced-59e348289011"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 839, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217152725983`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"8342b6e6-37cc-fe49-9e92-7819b0068cc5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 840, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217152886143`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"6184426d-4ba1-194d-ba6e-a17f28e5d6fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 841, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217153065987`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"6760e163-7ae2-b04e-a711-57c38117c5e7"], + +Cell[BoxData["1.739869693617705`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.9921217271018295`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"f9d6c685-690d-9342-b569-5afa8b25bf2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918449914836025`*^9, 3.991844997178608*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 842, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217271908684`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b17fddfb-d5f9-684e-a732-345f8961700a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 843, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272139645`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"4911c258-e8f1-104d-a027-fbc0461f2bc8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 844, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272478695`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"432a6f3d-6d2b-2541-89bc-c2360fb2499e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 845, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272639675`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"11e4ec9f-3d11-3749-8aa6-56144950bd70"], + +Cell[BoxData["24.425001657151522`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.992121738375187*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"616eb782-657e-1843-bf96-611a3731af7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845005870302*^9, 3.991845010049778*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 846, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.99212173848419*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fb056d72-5a81-c04b-811c-b569ea320291"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 847, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.9921217385070934`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"a385acc4-299b-434b-ad96-e590119e1a2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 848, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992121738536188*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"333b7a2c-9187-1f40-8be3-d3091cf76842"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 849, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992121738553192*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"403e2811-4e45-b247-b953-e21c84ec8f05"], + +Cell[BoxData["14.21263366121276`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.992121747818657*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"71b0aa93-d6a4-7b4b-ae0a-67d1228b94a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, 3.9918450213597164`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], + +Cell[BoxData["0.09338177857823826`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.992121747894663*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"ffeb94c8-79cf-1743-9aaa-df3c201d99a0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["21.692587481892488`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.992121747925659*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"f95b6f67-74e6-9643-a834-6bf8a9155369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["2.00753179751312`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9921217479484844`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"9b2c9f94-f587-f947-a8c6-e568cc665794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["43.54855914023424`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.99212174797847*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"1bd38184-a671-cd41-b983-b7a5a9f8f990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.007777122596096501`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.992121748019701*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1f8aefaf-3326-154e-a061-c4fcffd2daea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["10.049292058621395`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.9921217482366905`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f6c95ead-736f-7a49-b065-1b1c1490e028"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.012346479916519229`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.992121748277651*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fa33acac-8288-5b4e-aef5-f81fac85d648"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.975783625815553`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.9921217485051003`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"5d7ce7e0-0e54-b94d-a3e6-8fe727fd1c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.9921217485282*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"881e4cd2-8102-be46-8734-efc3e5f2c14b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9921217485567207`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"8f63da8c-9c66-6e49-b6bc-bae0d9e15c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.992121748587242*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"935a35b3-1ee4-424a-9aba-b27df7f601b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845055619808*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 850, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486329823`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"c4ab9db2-13ff-214c-be43-640a39ee1e63"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 851, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486658897`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"88a17936-4fd8-6d45-8260-3bf687a08bcb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 852, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486879787`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"7a7a4535-ba08-f745-a49e-9d91d078779c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 853, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217487068768`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"cdcbf254-25e5-3248-a891-2f9bea2b6677"], + +Cell[BoxData["10.04929205862139`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.992121756265686*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"f628c9d4-e3b2-124e-a3ce-3d840475b41f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845062111332*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 854, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217563805866`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"54d230f5-97a0-5942-bbcd-4f720508e8b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 855, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992121756409685*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"7f5cae4f-cb11-a04d-9102-bd7c13ad6c6d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 856, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217564306793`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"770f3cd8-5951-2e4e-917f-3634cd656cf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 857, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217564456825`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b0f9f71e-d353-a14f-94ae-be066a095c05"], + +Cell[BoxData["7.975783625815554`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.992121763942644*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"0c76efb2-91a0-2e42-aeba-a8b0f4a01014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991845068201048*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8162501376745934, + 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8162501376745934, + 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8162501376745934, 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8162501376745952}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8162501376745934, 1.2159511899051207`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9, 3.992122368910681*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"3d652a04-def7-4949-a71c-66f7b5b60304"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, 3.9918454954591675`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8320522023196037`*^-277\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 858, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9921223692595806`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5ec2bb68-906d-e444-bec9-77213b2dd55f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8303708355645706`*^-290\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 859, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9921223692786064`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bc2a0670-6330-024c-9230-85b6b8634ff7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.273570828360183`*^-302\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 860, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992122369294588*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8471d881-b34e-a24f-a819-31c375bab925"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 861, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992122369315588*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"04f8e177-3585-7943-8c56-e332ff88e270"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07564447682039577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9, 3.9921229218034687`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"993bbc21-181a-0d46-9d90-a02e74ca5ae3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07564447682039577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921229219234695`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1af05e33-4f00-5348-87d0-2df2d51799e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.220375088478079`*^-183\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 862, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992122922012169*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"9b90e153-d14e-5649-bf80-60087054a587"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.946145420058141`*^-187\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 863, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992122922041153*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c53c8ca5-f757-d144-977d-6cb961b28d1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8949942684249513`*^-190\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 864, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9921229220601463`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a44aca3f-87af-5846-abc4-3a8d7614c68a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 865, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9921229221169224`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"91f77e69-7500-ed40-883c-2bfc08d4d031"], + +Cell[BoxData["13.595342136040275`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.992122989789974*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"cc412f43-07a6-a840-b2f0-6c3eda32bb66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845086901308*^9, 3.991845092064165*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 866, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899019527`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e42dbb11-9636-1743-aaf1-237dd815f3d0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 867, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.992122989938854*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ac13af8f-0360-c640-b1b9-45d438c2298d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 868, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899608517`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6b33d9da-ea6b-7e4a-9885-792b8887e5fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 869, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899769516`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1e46f337-66f3-ea47-9c92-4ef9131773f4"], + +Cell[BoxData["0.31950662216393216`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9921230008956738`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"25c7027f-043b-4a4b-be19-7d1f07e126c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845095514675*^9, 3.991845099002287*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 870, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230010166893`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"722293d6-b351-8c4f-ba1e-76987de44c34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 871, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.992123001062584*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"7f944198-0bb5-144c-af36-a72f6138050e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 872, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230010816936`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e656adb9-c1dd-674f-b5d5-42663ff25b18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 873, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230011006775`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"86e905ab-c9ec-2a42-a406-1734714cf827"], + +Cell[BoxData["27.593989158697976`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.992123011499199*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"936ed1af-4179-aa49-83cc-29dad67bab3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845103890877*^9, 3.9918451079172287`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 874, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230115870953`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"1aabd088-0bc9-7340-9186-f2e3b9e9527a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 875, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116080933`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"edc3159a-2297-ae48-9b80-a58eba82f923"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 876, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116281967`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"1836d1c4-f249-c748-a369-b112753e002a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 877, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116452065`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"fe8f3dc2-d217-1347-9e89-363f1b4dc4e8"], + +Cell[BoxData["17.38162116275922`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9921230197067127`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"a3c9e2f2-a313-214a-be32-c556b147f4d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, 3.991845116011841*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], + +Cell[BoxData["0.014589065668487758`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.9921230197856083`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"b29f3335-6098-4e49-94f3-8e14183aa60a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, -6}, {Automatic, 6.75}}, +CellContext->Notebook, +Magnification:>0.6 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 16, "Input",ExpressionUUID->"8458377e-b729-7842-b6bf-d029af88cf74"], +Cell[1031, 31, 356, 5, 19, "Output",ExpressionUUID->"c4ed1b59-3cbb-e547-a87a-67eacbc1df9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 16, "Input",ExpressionUUID->"2eb78ff4-0669-4e48-8d06-e0d68faa9bd7"], +Cell[1773, 48, 431, 6, 19, "Output",ExpressionUUID->"72332af1-3b7d-3041-820c-6def5fae4fb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2241, 59, 253, 5, 16, "Input",ExpressionUUID->"065c4898-39bc-0442-947e-93882c40dc64"], +Cell[2497, 66, 428, 6, 19, "Output",ExpressionUUID->"7a880b49-ab2a-4b48-a255-69fdfd990c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2962, 77, 175, 3, 16, "Input",ExpressionUUID->"59ca93ce-52be-3b48-96a2-f0039c30dc94"], +Cell[3140, 82, 401, 6, 19, "Output",ExpressionUUID->"8dacad3f-d64b-b347-a884-a97e058ecd97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3578, 93, 257, 7, 25, "Input",ExpressionUUID->"b8d816c6-fa8f-f143-b783-52a729e7e285"], +Cell[3838, 102, 412, 6, 19, "Output",ExpressionUUID->"2c67c526-8ae8-f34e-a308-46ebd772e587"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4287, 113, 131, 2, 16, "Input",ExpressionUUID->"e013fb3d-8374-0a4a-a562-a250c762d0e1"], +Cell[4421, 117, 403, 6, 19, "Output",ExpressionUUID->"e7fee5d8-1c99-384b-923c-eaee96837128"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4861, 128, 276, 6, 16, "Input",ExpressionUUID->"cb804fd1-1d6c-f744-bd48-f62535244426"], +Cell[5140, 136, 418, 6, 19, "Output",ExpressionUUID->"784a0a5f-6a76-fe40-a893-e2e8e23b3f73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5595, 147, 257, 7, 16, "Input",ExpressionUUID->"22597984-a5b3-ca42-a1b4-d3006f1f9aba"], +Cell[5855, 156, 418, 6, 19, "Output",ExpressionUUID->"dde03983-df11-8749-92e8-dd4005e76898"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6310, 167, 236, 4, 16, "Input",ExpressionUUID->"2673edad-bb17-614f-a593-a9cb7cad1ffd"], +Cell[6549, 173, 438, 6, 19, "Output",ExpressionUUID->"eb8ac53c-fffd-f247-ace4-9cafbba6f06b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7024, 184, 236, 4, 16, "Input",ExpressionUUID->"48b19dc1-7edb-f041-bae4-57a9e4bd2551"], +Cell[7263, 190, 438, 6, 19, "Output",ExpressionUUID->"2dfb600d-e458-1a44-bba7-254cfa5abd3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7738, 201, 129, 2, 16, "Input",ExpressionUUID->"b6556658-1091-fc4c-9ac8-1666d1e5378c"], +Cell[7870, 205, 404, 6, 19, "Output",ExpressionUUID->"3b808e86-5c99-2d49-b37d-b6c3e1b7bd14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8311, 216, 129, 2, 16, "Input",ExpressionUUID->"af41b3eb-fc07-ed4d-8a49-34b18c13123e"], +Cell[8443, 220, 399, 6, 19, "Output",ExpressionUUID->"5e33cd10-9713-b149-97c2-64d7b6c99b82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8879, 231, 557, 19, 47, "Input",ExpressionUUID->"dba3f829-103b-9f4a-ac0b-c48c153dee45"], +Cell[9439, 252, 398, 6, 19, "Output",ExpressionUUID->"76718e6d-28ec-0b41-a48e-fec60521ae43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9874, 263, 557, 19, 47, "Input",ExpressionUUID->"f54316f6-bd9d-7b43-a7b7-d8c525372e74"], +Cell[10434, 284, 402, 6, 19, "Output",ExpressionUUID->"b454635b-1fde-6f4d-9e2a-877a6e36c1bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10873, 295, 1492, 48, 48, "Input",ExpressionUUID->"e3db6600-5d2c-484c-b638-1fc1af7a0fcd"], +Cell[12368, 345, 398, 6, 19, "Output",ExpressionUUID->"94f9afe3-f0de-cd4c-b503-2fe34b9faa23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12803, 356, 1331, 44, 48, "Input",ExpressionUUID->"60553265-d929-9a4a-ade8-9643cec06658"], +Cell[14137, 402, 416, 7, 19, "Output",ExpressionUUID->"de0c854c-a92a-c049-96bb-8d86a401767f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14590, 414, 1331, 44, 48, "Input",ExpressionUUID->"35bb66b7-7141-c442-ab4a-7f44db800d79"], +Cell[15924, 460, 419, 7, 19, "Output",ExpressionUUID->"a4e1d51d-2dc4-e649-a288-48b668d498ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16380, 472, 1492, 48, 48, "Input",ExpressionUUID->"b84ad735-faee-584c-8acb-d12dfbf1dc32"], +Cell[17875, 522, 390, 6, 19, "Output",ExpressionUUID->"9c9bedeb-bafb-1b4b-9960-9beb00d0f6f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18302, 533, 131, 2, 16, "Input",ExpressionUUID->"d2a99daf-e650-654e-8ae6-b58051fb43d3"], +Cell[18436, 537, 380, 6, 19, "Output",ExpressionUUID->"b9c3ab0e-6c20-2b45-8d41-b7d7cad4f3f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18853, 548, 177, 3, 16, "Input",ExpressionUUID->"8e5231c5-60ac-dc40-b8eb-5ff933be944d"], +Cell[19033, 553, 380, 6, 19, "Output",ExpressionUUID->"7736a038-3ed8-e14e-a929-7c6385c8e72f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19450, 564, 134, 2, 16, "Input",ExpressionUUID->"268e769e-bd52-a749-9bf3-dbf8464e56a9"], +Cell[19587, 568, 388, 6, 19, "Output",ExpressionUUID->"dfe93ffd-be18-2e47-8cde-3908bb9c7680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20012, 579, 219, 4, 16, "Input",ExpressionUUID->"fe2cdfec-040d-6548-a1f0-056505fdb252"], +Cell[20234, 585, 389, 7, 19, "Output",ExpressionUUID->"c866fce5-51e8-a241-b3d4-7882900bebdf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20660, 597, 134, 2, 16, "Input",ExpressionUUID->"6e4bb0a7-ae57-1148-817c-1ac3be501584"], +Cell[20797, 601, 384, 6, 19, "Output",ExpressionUUID->"e11492bd-fb1e-8541-aa53-5e04bca86b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21218, 612, 302, 5, 16, "Input",ExpressionUUID->"878d80cc-a24a-4a46-8d86-af1b4de5b7f0"], +Cell[21523, 619, 330, 5, 19, "Output",ExpressionUUID->"ad231e28-9f08-114b-9b72-87eb38190db0"] +}, Open ]], +Cell[21868, 627, 173, 2, 16, "Input",ExpressionUUID->"cef075a8-7701-b041-a178-03f3d50f1038"], +Cell[CellGroupData[{ +Cell[22066, 633, 296, 5, 16, "Input",ExpressionUUID->"60e50c6d-17e9-3c4a-beaf-d2a1cd7eacb7"], +Cell[22365, 640, 377, 6, 19, "Output",ExpressionUUID->"37108ab4-1b2a-894e-ae61-5e9cc882b478"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22779, 651, 219, 4, 16, "Input",ExpressionUUID->"4c2498ed-9ef7-244c-816d-c30c35823738"], +Cell[23001, 657, 379, 6, 19, "Output",ExpressionUUID->"88742a86-5b6f-604f-ab42-2d3bc7fb6c3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23417, 668, 350, 10, 25, "Input",ExpressionUUID->"aeb81a59-93af-a84e-807d-17a754600be7"], +Cell[23770, 680, 397, 6, 19, "Output",ExpressionUUID->"c30dda74-9dd0-c143-9a5b-2c2765ef5634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24204, 691, 350, 10, 25, "Input",ExpressionUUID->"291b8ccc-69af-4843-a393-cfd27bc3a78c"], +Cell[24557, 703, 408, 7, 19, "Output",ExpressionUUID->"a98653f3-aa53-5440-8885-928a66b93ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25002, 715, 992, 26, 67, "Input",ExpressionUUID->"130ad36d-bea6-7242-aba2-dfa23b3f24b3"], +Cell[25997, 743, 398, 6, 19, "Output",ExpressionUUID->"603a3080-7f33-7340-bb43-cbfd58a5d901"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26432, 754, 199, 3, 16, "Input",ExpressionUUID->"0fb87ce2-288a-b34e-bc6e-0e425904e12e"], +Cell[26634, 759, 382, 6, 19, "Output",ExpressionUUID->"532f1980-b156-3f49-8e5b-ba293f4051e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27053, 770, 275, 4, 16, "Input",ExpressionUUID->"4df8b2c8-baa3-7345-9ebf-2dbef092fc95"], +Cell[27331, 776, 339, 5, 19, "Output",ExpressionUUID->"a4714fd7-bddd-ca4d-9112-ef3b0b4f9255"] +}, Open ]], +Cell[27685, 784, 175, 2, 16, "Input",ExpressionUUID->"9049f273-3205-c04e-9831-c95d3306ffff"], +Cell[CellGroupData[{ +Cell[27885, 790, 323, 5, 16, "Input",ExpressionUUID->"847fcd2f-d4c6-274b-b69c-99763f1cdc12"], +Cell[28211, 797, 337, 5, 19, "Output",ExpressionUUID->"831ad37b-73df-c244-983b-65a5037eace8"] +}, Open ]], +Cell[28563, 805, 173, 2, 16, "Input",ExpressionUUID->"71094d83-ab7a-004d-90e5-bd603ce7e1cf"], +Cell[CellGroupData[{ +Cell[28761, 811, 343, 6, 28, "Input",ExpressionUUID->"f5912f7e-9027-7d42-a0c1-5e76e947b58d"], +Cell[29107, 819, 331, 5, 19, "Output",ExpressionUUID->"96259a60-6d71-7c4e-8973-e50ced1fac75"] +}, Open ]], +Cell[29453, 827, 175, 2, 16, "Input",ExpressionUUID->"ee521a53-a571-dd48-918f-9e53a3225d60"], +Cell[CellGroupData[{ +Cell[29653, 833, 347, 6, 28, "Input",ExpressionUUID->"6a9255f6-e423-5b4e-ad8a-b735145e3e44"], +Cell[30003, 841, 339, 5, 19, "Output",ExpressionUUID->"643ecf77-172e-9a47-b43a-0eaccbca720f"] +}, Open ]], +Cell[30357, 849, 175, 2, 16, "Input",ExpressionUUID->"e7eb29b7-994d-224a-997c-31f9b2d12c00"], +Cell[CellGroupData[{ +Cell[30557, 855, 273, 4, 16, "Input",ExpressionUUID->"4a689f90-566d-9b4d-b07a-5ba5a4de722e"], +Cell[30833, 861, 329, 5, 19, "Output",ExpressionUUID->"0ff9ef27-018d-884c-a60d-bde2b947613c"] +}, Open ]], +Cell[31177, 869, 173, 2, 16, "Input",ExpressionUUID->"0bb456d4-0bff-084e-baad-4ce3a3ade3a1"], +Cell[CellGroupData[{ +Cell[31375, 875, 277, 4, 16, "Input",ExpressionUUID->"4a08306d-5825-5245-99e4-ad98c9ced916"], +Cell[31655, 881, 334, 5, 19, "Output",ExpressionUUID->"73faacba-7daa-cf44-b755-f7acd389bb7e"] +}, Open ]], +Cell[32004, 889, 171, 2, 16, "Input",ExpressionUUID->"c2a70a7f-2283-3c43-bead-cfb6bc4f0fc1"], +Cell[CellGroupData[{ +Cell[32200, 895, 325, 6, 28, "Input",ExpressionUUID->"1cf75dbd-0ee2-b64b-91df-0f6d27a2c275"], +Cell[32528, 903, 326, 5, 19, "Output",ExpressionUUID->"a74b927d-bf60-8049-a437-079076dfbc99"] +}, Open ]], +Cell[32869, 911, 175, 2, 16, "Input",ExpressionUUID->"e52ef544-976c-0e42-9b93-9a455fef99a3"], +Cell[CellGroupData[{ +Cell[33069, 917, 270, 5, 28, "Input",ExpressionUUID->"589212bb-0d09-bd4d-9ef5-2829a0dd2671"], +Cell[33342, 924, 330, 5, 19, "Output",ExpressionUUID->"534ce497-2c7e-eb43-a02a-7eada08c1a65"] +}, Open ]], +Cell[33687, 932, 171, 2, 16, "Input",ExpressionUUID->"1ed7bdb6-c122-8648-a8fd-20060de48097"], +Cell[CellGroupData[{ +Cell[33883, 938, 19809, 485, 1067, "Input",ExpressionUUID->"5655ff51-03c5-6e4b-a31c-447549cb42db"], +Cell[53695, 1425, 388, 6, 22, "Output",ExpressionUUID->"83be1b51-2b2a-c641-aae9-fae4884076e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54120, 1436, 19748, 489, 1113, "Input",ExpressionUUID->"54727339-1998-d347-b373-e75d1edb0eb8"], +Cell[73871, 1927, 397, 6, 22, "Output",ExpressionUUID->"82f1b2b0-51a7-8a49-adac-da2ee87ecee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74305, 1938, 19748, 483, 1069, "Input",ExpressionUUID->"66fa67b1-f382-df40-a332-dc300b0c584b"], +Cell[94056, 2423, 413, 7, 22, "Output",ExpressionUUID->"76729142-2d26-b045-bf16-642957c832cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94506, 2435, 22534, 553, 1209, "Input",ExpressionUUID->"2f0eaada-92ab-a446-b15b-c25b7bd772ef"], +Cell[117043, 2990, 413, 7, 22, "Output",ExpressionUUID->"8693afbc-c2de-d141-a81d-a7a43ec2ab76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117493, 3002, 22535, 553, 1209, "Input",ExpressionUUID->"941a1eea-87d7-8f42-ae3e-405dbe917eac"], +Cell[140031, 3557, 413, 7, 22, "Output",ExpressionUUID->"2c92c3e8-dabb-9048-bb84-4e7e2c9ebaa4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140481, 3569, 25491, 626, 1336, "Input",ExpressionUUID->"e33d937e-5049-334c-9bad-1b104d98f2bc"], +Cell[165975, 4197, 410, 7, 22, "Output",ExpressionUUID->"4c8cdffe-d441-7644-968d-d44d46668238"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166422, 4209, 130, 2, 19, "Input",ExpressionUUID->"6e0bef04-8d2e-1745-b209-ce9874237cee"], +Cell[166555, 4213, 378, 6, 22, "Output",ExpressionUUID->"b9e7d09e-4840-474c-9f85-38d160cf7ca0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166970, 4224, 130, 2, 19, "Input",ExpressionUUID->"51a875f3-2bd1-8b45-9152-496f4e103d3f"], +Cell[167103, 4228, 378, 6, 22, "Output",ExpressionUUID->"bd470ddb-f15c-5140-9942-2a679731db1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167518, 4239, 1144, 39, 36, "Input",ExpressionUUID->"391cdea6-e77a-a24f-ab38-4a6a1d28cf24"], +Cell[168665, 4280, 399, 6, 22, "Output",ExpressionUUID->"13d946ce-cbef-b34d-a6ea-632e681eeb42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169101, 4291, 1041, 35, 36, "Input",ExpressionUUID->"99153a49-9764-644e-94a8-492732e4283f"], +Cell[170145, 4328, 407, 7, 22, "Output",ExpressionUUID->"d23f15dc-c05c-614f-806b-8e8a21c3c4dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170589, 4340, 1144, 39, 36, "Input",ExpressionUUID->"e844b4c8-a66e-5141-bc71-bc70b39539db"], +Cell[171736, 4381, 400, 6, 22, "Output",ExpressionUUID->"4b4a1aec-48f9-b34b-9233-02e91c431fcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172173, 4392, 108, 1, 19, "Input",ExpressionUUID->"f2db0337-401a-e741-8590-810217c4f3c3"], +Cell[172284, 4395, 394, 6, 22, "Output",ExpressionUUID->"b494f128-0dd4-db4f-a9a0-1fffa9962893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172715, 4406, 108, 1, 19, "Input",ExpressionUUID->"eb2f2172-089c-4643-9ded-376391cc54ba"], +Cell[172826, 4409, 413, 7, 22, "Output",ExpressionUUID->"cce0e5e3-2ab6-a040-9d06-60e60e827a7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173276, 4421, 108, 1, 19, "Input",ExpressionUUID->"91d93eed-7bdd-9542-ac21-1e219c8eb1f7"], +Cell[173387, 4424, 413, 7, 22, "Output",ExpressionUUID->"9ec6abf2-5838-2d45-b185-ca6fc346277c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173837, 4436, 108, 1, 19, "Input",ExpressionUUID->"4a405139-98b1-da41-baa7-40f21a88faee"], +Cell[173948, 4439, 400, 6, 22, "Output",ExpressionUUID->"265e095a-ad88-d64b-a04c-5cf247b12e66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174385, 4450, 107, 1, 19, "Input",ExpressionUUID->"2432f554-dfce-c345-aee4-ab1fada20c0f"], +Cell[174495, 4453, 391, 6, 22, "Output",ExpressionUUID->"217590fd-19d2-5f49-8730-35f389da3528"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174923, 4464, 107, 1, 19, "Input",ExpressionUUID->"d8300595-d956-114b-ac74-43bf03afaa14"], +Cell[175033, 4467, 395, 6, 22, "Output",ExpressionUUID->"3448593c-b1da-e34d-84d8-b97039a3a2f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175465, 4478, 497, 16, 36, "Input",ExpressionUUID->"843f4134-7522-1148-a355-758046332408"], +Cell[175965, 4496, 409, 7, 22, "Output",ExpressionUUID->"f8dd8ba1-c84f-ba4f-ba28-a7a91cd14862"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176411, 4508, 497, 16, 36, "Input",ExpressionUUID->"133c5c9d-3e6b-fb4e-8771-e0290c8011e2"], +Cell[176911, 4526, 412, 7, 22, "Output",ExpressionUUID->"1eee8ebd-27ee-6c48-8ccc-02fbbb3c422a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177360, 4538, 1788, 60, 72, "Input",ExpressionUUID->"a344793c-bf8e-2a4c-ac3f-5d45a812d604"], +Cell[179151, 4600, 395, 6, 22, "Output",ExpressionUUID->"877eac59-cd25-7546-bb22-425885dc8bb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179583, 4611, 1101, 36, 36, "Input",ExpressionUUID->"0b343bab-19c0-8b44-83a5-d2b4e9621921"], +Cell[180687, 4649, 412, 7, 22, "Output",ExpressionUUID->"02f9b44f-eedb-1e40-8e60-45ad8e92b48a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181136, 4661, 1818, 61, 72, "Input",ExpressionUUID->"25cd0352-0a5d-eb49-ac86-c2d9cc6a455e"], +Cell[182957, 4724, 395, 6, 22, "Output",ExpressionUUID->"03a53b1c-384a-7b49-9f63-014ada7ecdf5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183389, 4735, 2499, 77, 31, "Input",ExpressionUUID->"2690c115-57dd-354e-a006-969bc2d2f822"], +Cell[185891, 4814, 397, 6, 22, "Output",ExpressionUUID->"9cc76c41-9121-f549-b595-bb254e4179a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186325, 4825, 2499, 77, 31, "Input",ExpressionUUID->"a25ceab2-3820-2e42-8510-d275cffeed66"], +Cell[188827, 4904, 389, 6, 22, "Output",ExpressionUUID->"01dd996c-7ef5-e340-ab7c-54745c239829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189253, 4915, 236, 4, 19, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[189492, 4921, 166, 2, 22, "Output",ExpressionUUID->"5fd992e6-b5d5-9249-abd4-716fe8fe12c4"] +}, Open ]], +Cell[189673, 4926, 171, 2, 19, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[CellGroupData[{ +Cell[189869, 4932, 235, 4, 19, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[190107, 4938, 165, 2, 22, "Output",ExpressionUUID->"d1a6bc9f-42fe-2b40-bead-867e1959fb30"] +}, Open ]], +Cell[190287, 4943, 173, 2, 19, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[190485, 4949, 1297, 42, 31, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[191785, 4993, 194, 2, 22, "Output",ExpressionUUID->"bc2a659f-c93f-5245-b96c-20b542cde9ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192016, 5000, 929, 29, 36, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[192948, 5031, 193, 2, 22, "Output",ExpressionUUID->"4d258fe3-09dd-8a40-bcff-b94e09e0b238"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193178, 5038, 983, 32, 36, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[194164, 5072, 196, 2, 22, "Output",ExpressionUUID->"161c1430-2d64-3741-a2f5-c22d5f0aa6c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194397, 5079, 554, 18, 33, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[194954, 5099, 191, 2, 22, "Output",ExpressionUUID->"fec45309-5ff0-5841-9564-0e0b176e18f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195182, 5106, 619, 20, 33, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[195804, 5128, 189, 2, 22, "Output",ExpressionUUID->"4c3eb498-108d-e246-b15f-71f857669eb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196030, 5135, 166, 4, 36, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[196199, 5141, 193, 2, 22, "Output",ExpressionUUID->"6eda747c-145d-b541-b206-d2c7a2183c32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196429, 5148, 166, 4, 36, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[196598, 5154, 187, 2, 22, "Output",ExpressionUUID->"f376a02f-b6bb-7d49-b5be-f23875b070f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196822, 5161, 177, 4, 28, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[197002, 5167, 189, 2, 22, "Output",ExpressionUUID->"a368f12d-0adf-6541-9d89-7478ff423dc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197228, 5174, 177, 4, 28, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[197408, 5180, 190, 2, 22, "Output",ExpressionUUID->"6560de0a-4715-5748-bd44-12440e7bb182"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197635, 5187, 6051, 184, 214, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[203689, 5373, 194, 2, 22, "Output",ExpressionUUID->"7d95522c-4ebc-dd42-8a8b-11f35d5e476d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203920, 5380, 364, 8, 25, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[204287, 5390, 192, 2, 22, "Output",ExpressionUUID->"1c05557d-ecd1-b346-a4a0-b395085aac68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204516, 5397, 6118, 186, 214, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[210637, 5585, 191, 2, 22, "Output",ExpressionUUID->"adaae8b7-5a8f-7a4e-b500-1e517528b654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210865, 5592, 364, 8, 25, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[211232, 5602, 190, 2, 22, "Output",ExpressionUUID->"78727c1b-3c29-3e49-9849-3e13f9eb09fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211459, 5609, 2659, 87, 108, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[214121, 5698, 192, 2, 22, "Output",ExpressionUUID->"3738bebf-fdb7-744d-a7f3-b3d59491ff05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214350, 5705, 2599, 84, 108, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[216952, 5791, 193, 2, 22, "Output",ExpressionUUID->"90f0e5e5-1d63-9a4e-8c8d-c34f582e9dbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217182, 5798, 3708, 117, 158, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[220893, 5917, 191, 2, 22, "Output",ExpressionUUID->"7f6f2692-7876-1d4b-a096-997110255b4a"] +}, Open ]], +Cell[221099, 5922, 160, 3, 25, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[221284, 5929, 2071, 58, 74, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[223358, 5989, 579, 12, 27, "Message",ExpressionUUID->"f5884305-e9ab-b04c-9831-88937b36f5d5"], +Cell[223940, 6003, 580, 12, 27, "Message",ExpressionUUID->"618bfe3e-f617-fb43-a2ec-64c990c3061f"], +Cell[224523, 6017, 584, 12, 27, "Message",ExpressionUUID->"fba1ee07-0355-3949-8bf8-e5b72b8a250d"], +Cell[225110, 6031, 478, 10, 16, "Message",ExpressionUUID->"651f7e32-1fae-5440-9722-0454662f5a5f"], +Cell[225591, 6043, 189, 2, 22, "Output",ExpressionUUID->"1a7f079f-59d3-eb45-8065-c4d9e2cf7d79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225817, 6050, 2071, 58, 74, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[227891, 6110, 575, 12, 27, "Message",ExpressionUUID->"4eb4bce7-d74b-924c-aeae-69cbd3b4f7bc"], +Cell[228469, 6124, 578, 12, 27, "Message",ExpressionUUID->"06f17012-b2ea-4f47-a3e9-87b2edcc7587"], +Cell[229050, 6138, 582, 12, 27, "Message",ExpressionUUID->"21e9f956-b642-8844-ac83-9cf76af4f9cb"], +Cell[229635, 6152, 476, 10, 16, "Message",ExpressionUUID->"d4c99b7e-a55b-3747-aa01-f9b0d8b5e36c"], +Cell[230114, 6164, 192, 2, 22, "Output",ExpressionUUID->"79b40355-3da2-994d-87c5-8cc3d83ca3c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230343, 6171, 1955, 52, 55, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[232301, 6225, 20296, 380, 142, "Output",ExpressionUUID->"95dd8aff-1dcb-5e4d-8148-b9f1f81fb262"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252634, 6610, 2133, 59, 74, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[254770, 6671, 519, 11, 27, "Message",ExpressionUUID->"6769bdfa-2bd4-ca4c-84e1-23b6458b56f9"], +Cell[255292, 6684, 522, 11, 27, "Message",ExpressionUUID->"df11cb5c-6b1d-3e46-995b-574ad82cbc89"], +Cell[255817, 6697, 526, 11, 27, "Message",ExpressionUUID->"46649f1c-f59e-1d46-af36-c2baed590447"], +Cell[256346, 6710, 480, 10, 16, "Message",ExpressionUUID->"de98472d-afea-0948-90e5-0d964dee5824"], +Cell[256829, 6722, 21785, 402, 140, "Output",ExpressionUUID->"2c5e5728-758e-2048-bda3-ffe0c53cebdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278651, 7129, 1885, 50, 49, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[280539, 7181, 8995, 209, 145, "Output",ExpressionUUID->"2dc634c2-eb9d-f246-83bc-ee04fba1c5f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289571, 7395, 276, 5, 25, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[289850, 7402, 27744, 526, 140, "Output",ExpressionUUID->"c12ddfad-4317-594d-9cf0-142377e33a72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317631, 7933, 234, 6, 31, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[317868, 7941, 191, 2, 22, "Output",ExpressionUUID->"30213909-a541-7c4f-bec8-cd9c7165a90d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318096, 7948, 1839, 53, 74, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[319938, 8003, 530, 11, 27, "Message",ExpressionUUID->"d1ed5e84-851d-8b47-aae3-6fd1d0c5a9f6"], +Cell[320471, 8016, 534, 11, 27, "Message",ExpressionUUID->"ae25ec0a-bc68-dc47-9b27-daa13d520d74"], +Cell[321008, 8029, 533, 11, 27, "Message",ExpressionUUID->"3fcb0167-e792-2749-bc0a-54e1abe1575e"], +Cell[321544, 8042, 480, 10, 16, "Message",ExpressionUUID->"3390f48a-fe4d-c244-8987-ed8187566fcd"], +Cell[322027, 8054, 22425, 415, 148, "Output",ExpressionUUID->"4810e267-cc17-7148-919a-9a69553b3a53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344489, 8474, 1616, 48, 56, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[346108, 8524, 612, 12, 27, "Message",ExpressionUUID->"ea8a0039-534b-6044-8956-4386982e10cf"], +Cell[346723, 8538, 617, 12, 27, "Message",ExpressionUUID->"d3aa96d3-1d05-584d-b009-413b6b60d816"], +Cell[347343, 8552, 617, 12, 27, "Message",ExpressionUUID->"c9d0bbde-e839-0542-aa09-939e17bb39c9"], +Cell[347963, 8566, 480, 10, 16, "Message",ExpressionUUID->"e6120042-2c47-1b4c-917f-a509e7dec2f4"], +Cell[348446, 8578, 195, 3, 30, "Output",ExpressionUUID->"1a2efb48-5d71-3f40-bade-563436895243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348678, 8586, 2270, 64, 49, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[350951, 8652, 579, 12, 27, "Message",ExpressionUUID->"2a92417b-cef4-4e49-9472-656d4307bfee"], +Cell[351533, 8666, 580, 12, 27, "Message",ExpressionUUID->"b5522da2-fc24-de4e-bc13-73ea1b98f3a1"], +Cell[352116, 8680, 584, 12, 27, "Message",ExpressionUUID->"e1ba7bd1-a8c6-7244-bd08-25d2e37043a5"], +Cell[352703, 8694, 480, 10, 15, "Message",ExpressionUUID->"aaa5ad63-b06e-0f41-a6fe-bc7324560f46"], +Cell[353186, 8706, 197, 3, 19, "Output",ExpressionUUID->"a4bc3726-ac87-5c41-8e99-318cd1927e06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353420, 8714, 2244, 64, 97, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[355667, 8780, 577, 12, 40, "Message",ExpressionUUID->"37f66dd1-170b-d14b-9592-9c923e692b37"], +Cell[356247, 8794, 580, 12, 40, "Message",ExpressionUUID->"39c0f6e7-0628-d748-a72b-796d16e610b7"], +Cell[356830, 8808, 584, 12, 40, "Message",ExpressionUUID->"425875d3-1e69-c14c-817e-9f4e58593aa0"], +Cell[357417, 8822, 478, 10, 15, "Message",ExpressionUUID->"7b026711-920c-9b42-a1b9-3a61b6ff67ed"], +Cell[357898, 8834, 195, 3, 19, "Output",ExpressionUUID->"1acc1147-2e41-8b4f-a7e3-6281016ac1e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358130, 8842, 2242, 64, 97, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[360375, 8908, 579, 12, 40, "Message",ExpressionUUID->"61bcf82d-f6a1-a14e-b4b8-2e521e9201ab"], +Cell[360957, 8922, 584, 12, 40, "Message",ExpressionUUID->"87d8843d-9c8a-7b47-98aa-22c6852cdb7c"], +Cell[361544, 8936, 586, 12, 40, "Message",ExpressionUUID->"49f8b456-ce52-084b-8e92-aede72e0976b"], +Cell[362133, 8950, 479, 10, 15, "Message",ExpressionUUID->"d208afba-06b7-054c-b049-81a6a1687484"], +Cell[362615, 8962, 197, 3, 19, "Output",ExpressionUUID->"17b24e56-798b-9c42-941b-16bec4899254"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362849, 8970, 236, 6, 28, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[363088, 8978, 196, 3, 19, "Output",ExpressionUUID->"a9235d14-cc54-544e-a92a-b853366d8583"] +}, Open ]], +Cell[363299, 8984, 271, 6, 25, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[363595, 8994, 558, 19, 31, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[364156, 9015, 194, 3, 19, "Output",ExpressionUUID->"dafc8a45-31d9-ea43-af33-be093c3e2bb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364387, 9023, 170, 5, 33, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[364560, 9030, 195, 3, 19, "Output",ExpressionUUID->"1e456755-7bea-bb4c-b79e-f49d619687b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364792, 9038, 181, 5, 26, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[364976, 9045, 197, 3, 19, "Output",ExpressionUUID->"ab6d94f5-6ff6-764d-9fa5-13952b705283"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365210, 9053, 6055, 185, 295, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[371268, 9240, 196, 3, 19, "Output",ExpressionUUID->"87026635-c9e8-0741-a99f-d9472e6340f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371501, 9248, 368, 9, 25, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[371872, 9259, 192, 3, 19, "Output",ExpressionUUID->"b692b5e8-09a7-794e-8a42-f399cbc601a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372101, 9267, 6122, 187, 307, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[378226, 9456, 199, 3, 19, "Output",ExpressionUUID->"3c28076f-2cb9-1047-a771-7aab32c3f71f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378462, 9464, 368, 9, 25, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[378833, 9475, 196, 3, 19, "Output",ExpressionUUID->"7db394fd-175d-3340-9ace-b435363b3e44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379066, 9483, 2663, 88, 99, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[381732, 9573, 198, 3, 19, "Output",ExpressionUUID->"dd414c03-c9e8-7f4f-ba52-54448ddde44d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381967, 9581, 2603, 85, 99, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[384573, 9668, 193, 3, 19, "Output",ExpressionUUID->"c43c9f0d-4fa9-2b4c-b85b-597d92ad9e50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384803, 9676, 3712, 118, 176, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[388518, 9796, 195, 3, 19, "Output",ExpressionUUID->"983517a9-a9e9-7b4b-a436-ff23b5ffc2d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388750, 9804, 2075, 59, 137, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[390828, 9865, 584, 12, 40, "Message",ExpressionUUID->"913d64f4-069a-3c47-a17b-4d73d74f0272"], +Cell[391415, 9879, 586, 12, 40, "Message",ExpressionUUID->"0b426b5c-778c-6849-9c1e-22079b524231"], +Cell[392004, 9893, 591, 12, 51, "Message",ExpressionUUID->"b36bab77-419c-e84d-85af-037e9892a761"], +Cell[392598, 9907, 480, 10, 15, "Message",ExpressionUUID->"3c6558a5-6b6d-4449-8f38-ac90a3becb77"], +Cell[393081, 9919, 192, 3, 19, "Output",ExpressionUUID->"8db75942-782c-0240-9e7c-96cb1e9f6b84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393310, 9927, 2075, 59, 137, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[395388, 9988, 582, 12, 40, "Message",ExpressionUUID->"cc13e1e8-e38d-fd4b-832b-91c63392a6a2"], +Cell[395973, 10002, 584, 12, 40, "Message",ExpressionUUID->"32a2ae4e-fbaa-7549-9429-8bb2eebf5dcb"], +Cell[396560, 10016, 587, 12, 51, "Message",ExpressionUUID->"9d697c88-cfa9-4146-8643-7b90db1c8e33"], +Cell[397150, 10030, 476, 10, 15, "Message",ExpressionUUID->"ebe9b633-3247-2d45-adb7-816ed8af74e9"], +Cell[397629, 10042, 195, 3, 19, "Output",ExpressionUUID->"f7cdd029-5251-4b41-9473-373b7e700a1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397861, 10050, 2053, 55, 78, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[399917, 10107, 20010, 376, 142, "Output",ExpressionUUID->"2c672264-c8ae-9d4d-9750-b86d3469ec4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419964, 10488, 2168, 61, 126, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[422135, 10551, 522, 11, 36, "Message",ExpressionUUID->"58e6db52-d858-5742-b3af-14f4d923527b"], +Cell[422660, 10564, 526, 11, 36, "Message",ExpressionUUID->"8673a462-97ab-d84a-b5f0-7378dab66454"], +Cell[423189, 10577, 527, 11, 36, "Message",ExpressionUUID->"ef5e08fd-7e28-3945-9140-4163d07b2afc"], +Cell[423719, 10590, 480, 10, 15, "Message",ExpressionUUID->"102667df-5b40-2846-92e5-35434e23c4e6"], +Cell[424202, 10602, 22439, 415, 140, "Output",ExpressionUUID->"42594ac5-80c7-5949-ac5f-97593bb5a779"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446678, 11022, 234, 5, 25, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[446915, 11029, 28398, 539, 140, "Output",ExpressionUUID->"bcb47329-1c4e-ba46-9870-8427c86cfa1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475350, 11573, 1616, 48, 63, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[476969, 11623, 613, 12, 51, "Message",ExpressionUUID->"5e0f186c-b493-344b-81a1-6a296c146a17"], +Cell[477585, 11637, 616, 12, 51, "Message",ExpressionUUID->"94201451-829a-4e44-bc2e-b9225cb803b7"], +Cell[478204, 11651, 619, 12, 51, "Message",ExpressionUUID->"72ea9d09-653a-6149-ace4-ad0eabd50177"], +Cell[478826, 11665, 480, 10, 15, "Message",ExpressionUUID->"d71e7063-1a8d-b14c-a292-de81589fc09d"], +Cell[479309, 11677, 193, 3, 19, "Output",ExpressionUUID->"c059b970-9bba-f945-aad7-705a8a127507"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479539, 11685, 2270, 64, 133, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[481812, 11751, 584, 12, 40, "Message",ExpressionUUID->"86767bb9-09c5-2047-bced-59e348289011"], +Cell[482399, 11765, 590, 12, 40, "Message",ExpressionUUID->"8342b6e6-37cc-fe49-9e92-7819b0068cc5"], +Cell[482992, 11779, 593, 12, 51, "Message",ExpressionUUID->"6184426d-4ba1-194d-ba6e-a17f28e5d6fd"], +Cell[483588, 11793, 482, 10, 15, "Message",ExpressionUUID->"6760e163-7ae2-b04e-a711-57c38117c5e7"], +Cell[484073, 11805, 194, 3, 19, "Output",ExpressionUUID->"f9d6c685-690d-9342-b569-5afa8b25bf2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484304, 11813, 2244, 64, 97, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[486551, 11879, 586, 12, 40, "Message",ExpressionUUID->"b17fddfb-d5f9-684e-a732-345f8961700a"], +Cell[487140, 11893, 590, 12, 40, "Message",ExpressionUUID->"4911c258-e8f1-104d-a027-fbc0461f2bc8"], +Cell[487733, 11907, 593, 12, 51, "Message",ExpressionUUID->"432a6f3d-6d2b-2541-89bc-c2360fb2499e"], +Cell[488329, 11921, 482, 10, 15, "Message",ExpressionUUID->"11e4ec9f-3d11-3749-8aa6-56144950bd70"], +Cell[488814, 11933, 193, 3, 19, "Output",ExpressionUUID->"616eb782-657e-1843-bf96-611a3731af7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489044, 11941, 2242, 64, 97, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[491289, 12007, 583, 12, 40, "Message",ExpressionUUID->"fb056d72-5a81-c04b-811c-b569ea320291"], +Cell[491875, 12021, 590, 12, 40, "Message",ExpressionUUID->"a385acc4-299b-434b-ad96-e590119e1a2c"], +Cell[492468, 12035, 591, 12, 51, "Message",ExpressionUUID->"333b7a2c-9187-1f40-8be3-d3091cf76842"], +Cell[493062, 12049, 480, 10, 15, "Message",ExpressionUUID->"403e2811-4e45-b247-b953-e21c84ec8f05"], +Cell[493545, 12061, 192, 3, 19, "Output",ExpressionUUID->"71b0aa93-d6a4-7b4b-ae0a-67d1228b94a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493774, 12069, 238, 6, 28, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[494015, 12077, 196, 3, 19, "Output",ExpressionUUID->"ffeb94c8-79cf-1743-9aaa-df3c201d99a0"] +}, Open ]], +Cell[494226, 12083, 273, 6, 25, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[494524, 12093, 558, 19, 31, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[495085, 12114, 195, 3, 19, "Output",ExpressionUUID->"f95b6f67-74e6-9643-a834-6bf8a9155369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495317, 12122, 170, 5, 33, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[495490, 12129, 195, 3, 19, "Output",ExpressionUUID->"9b2c9f94-f587-f947-a8c6-e568cc665794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495722, 12137, 181, 5, 26, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[495906, 12144, 191, 3, 19, "Output",ExpressionUUID->"1bd38184-a671-cd41-b983-b7a5a9f8f990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496134, 12152, 6055, 185, 295, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[502192, 12339, 195, 3, 19, "Output",ExpressionUUID->"1f8aefaf-3326-154e-a061-c4fcffd2daea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502424, 12347, 368, 9, 25, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[502795, 12358, 197, 3, 19, "Output",ExpressionUUID->"f6c95ead-736f-7a49-b065-1b1c1490e028"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503029, 12366, 6122, 187, 307, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[509154, 12555, 197, 3, 19, "Output",ExpressionUUID->"fa33acac-8288-5b4e-aef5-f81fac85d648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509388, 12563, 368, 9, 25, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[509759, 12574, 194, 3, 19, "Output",ExpressionUUID->"5d7ce7e0-0e54-b94d-a3e6-8fe727fd1c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509990, 12582, 2663, 88, 99, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[512656, 12672, 194, 3, 19, "Output",ExpressionUUID->"881e4cd2-8102-be46-8734-efc3e5f2c14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512887, 12680, 2603, 85, 99, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[515493, 12767, 195, 3, 19, "Output",ExpressionUUID->"8f63da8c-9c66-6e49-b6bc-bae0d9e15c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515725, 12775, 3712, 118, 176, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[519440, 12895, 195, 3, 19, "Output",ExpressionUUID->"935a35b3-1ee4-424a-9aba-b27df7f601b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519672, 12903, 2075, 59, 137, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[521750, 12964, 566, 11, 36, "Message",ExpressionUUID->"c4ab9db2-13ff-214c-be43-640a39ee1e63"], +Cell[522319, 12977, 569, 11, 36, "Message",ExpressionUUID->"88a17936-4fd8-6d45-8260-3bf687a08bcb"], +Cell[522891, 12990, 576, 12, 50, "Message",ExpressionUUID->"7a7a4535-ba08-f745-a49e-9d91d078779c"], +Cell[523470, 13004, 482, 10, 15, "Message",ExpressionUUID->"cdcbf254-25e5-3248-a891-2f9bea2b6677"], +Cell[523955, 13016, 192, 3, 19, "Output",ExpressionUUID->"f628c9d4-e3b2-124e-a3ce-3d840475b41f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524184, 13024, 2075, 59, 137, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[526262, 13085, 564, 11, 36, "Message",ExpressionUUID->"54d230f5-97a0-5942-bbcd-4f720508e8b2"], +Cell[526829, 13098, 565, 11, 36, "Message",ExpressionUUID->"7f5cae4f-cb11-a04d-9102-bd7c13ad6c6d"], +Cell[527397, 13111, 574, 12, 50, "Message",ExpressionUUID->"770f3cd8-5951-2e4e-917f-3634cd656cf7"], +Cell[527974, 13125, 480, 10, 15, "Message",ExpressionUUID->"b0f9f71e-d353-a14f-94ae-be066a095c05"], +Cell[528457, 13137, 194, 3, 19, "Output",ExpressionUUID->"0c76efb2-91a0-2e42-aeba-a8b0f4a01014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528688, 13145, 2051, 55, 78, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[530742, 13202, 20507, 384, 142, "Output",ExpressionUUID->"3d652a04-def7-4949-a71c-66f7b5b60304"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551286, 13591, 2168, 61, 126, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[553457, 13654, 520, 11, 36, "Message",ExpressionUUID->"5ec2bb68-906d-e444-bec9-77213b2dd55f"], +Cell[553980, 13667, 522, 11, 36, "Message",ExpressionUUID->"bc2a0670-6330-024c-9230-85b6b8634ff7"], +Cell[554505, 13680, 522, 11, 36, "Message",ExpressionUUID->"8471d881-b34e-a24f-a819-31c375bab925"], +Cell[555030, 13693, 478, 10, 15, "Message",ExpressionUUID->"04f8e177-3585-7943-8c56-e332ff88e270"], +Cell[555511, 13705, 22511, 415, 140, "Output",ExpressionUUID->"993bbc21-181a-0d46-9d90-a02e74ca5ae3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578059, 14125, 234, 5, 25, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[578296, 14132, 28470, 539, 140, "Output",ExpressionUUID->"1af05e33-4f00-5348-87d0-2df2d51799e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606803, 14676, 1616, 48, 63, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[608422, 14726, 602, 12, 51, "Message",ExpressionUUID->"9b90e153-d14e-5649-bf80-60087054a587"], +Cell[609027, 14740, 605, 12, 51, "Message",ExpressionUUID->"c53c8ca5-f757-d144-977d-6cb961b28d1b"], +Cell[609635, 14754, 612, 12, 51, "Message",ExpressionUUID->"a44aca3f-87af-5846-abc4-3a8d7614c68a"], +Cell[610250, 14768, 480, 10, 15, "Message",ExpressionUUID->"91f77e69-7500-ed40-883c-2bfc08d4d031"], +Cell[610733, 14780, 195, 3, 19, "Output",ExpressionUUID->"cc412f43-07a6-a840-b2f0-6c3eda32bb66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610965, 14788, 2270, 64, 133, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[613238, 14854, 566, 11, 36, "Message",ExpressionUUID->"e42dbb11-9636-1743-aaf1-237dd815f3d0"], +Cell[613807, 14867, 567, 11, 36, "Message",ExpressionUUID->"ac13af8f-0360-c640-b1b9-45d438c2298d"], +Cell[614377, 14880, 576, 12, 50, "Message",ExpressionUUID->"6b33d9da-ea6b-7e4a-9885-792b8887e5fa"], +Cell[614956, 14894, 482, 10, 15, "Message",ExpressionUUID->"1e46f337-66f3-ea47-9c92-4ef9131773f4"], +Cell[615441, 14906, 198, 3, 19, "Output",ExpressionUUID->"25c7027f-043b-4a4b-be19-7d1f07e126c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615676, 14914, 2242, 64, 97, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[617921, 14980, 566, 11, 36, "Message",ExpressionUUID->"722293d6-b351-8c4f-ba1e-76987de44c34"], +Cell[618490, 14993, 567, 11, 36, "Message",ExpressionUUID->"7f944198-0bb5-144c-af36-a72f6138050e"], +Cell[619060, 15006, 576, 12, 50, "Message",ExpressionUUID->"e656adb9-c1dd-674f-b5d5-42663ff25b18"], +Cell[619639, 15020, 482, 10, 15, "Message",ExpressionUUID->"86e905ab-c9ec-2a42-a406-1734714cf827"], +Cell[620124, 15032, 195, 3, 19, "Output",ExpressionUUID->"936ed1af-4179-aa49-83cc-29dad67bab3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620356, 15040, 2244, 64, 97, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[622603, 15106, 566, 11, 36, "Message",ExpressionUUID->"1aabd088-0bc9-7340-9186-f2e3b9e9527a"], +Cell[623172, 15119, 569, 11, 36, "Message",ExpressionUUID->"edc3159a-2297-ae48-9b80-a58eba82f923"], +Cell[623744, 15132, 576, 12, 50, "Message",ExpressionUUID->"1836d1c4-f249-c748-a369-b112753e002a"], +Cell[624323, 15146, 482, 10, 15, "Message",ExpressionUUID->"fe8f3dc2-d217-1347-9e89-363f1b4dc4e8"], +Cell[624808, 15158, 196, 3, 19, "Output",ExpressionUUID->"a3c9e2f2-a313-214a-be32-c556b147f4d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625041, 15166, 236, 6, 28, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[625280, 15174, 199, 3, 19, "Output",ExpressionUUID->"b29f3335-6098-4e49-94f3-8e14183aa60a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb new file mode 100755 index 0000000..9acf01a --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb @@ -0,0 +1,15832 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 664738, 15824] +NotebookOptionsPosition[ 624173, 15176] +NotebookOutlinePosition[ 624597, 15193] +CellTagsIndexPosition[ 624554, 15190] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"e0117d68-9e40-e34d-a9fc-07994345b755"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921310176291523`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"d274b631-1b8a-0e42-9984-0d8ecab4433a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"29808aeb-8851-a347-9bf8-040c658c23f3"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.992131017689043*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"574844d0-cbef-0e44-8723-e6e539455447"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"6311e838-0851-074d-aa17-f2b2c57ddc36"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992131017707041*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"82fe0f1f-7cd1-c442-997e-17b65ba9d9e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"427c3aa1-1a65-4a43-996a-81d995cb25da"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921310177200584`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"0ab6b173-6af8-574a-ac8b-330d984be0d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3da0f6c5-ee38-844d-b8cb-577a5960a82b"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992131017735054*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"1a2153a9-4a08-e546-9ab0-ff30f9d9b908"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ffeef75c-35db-fc4b-af3d-710ad07741ea"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921310177470436`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"1eff1334-52cf-804c-b712-47ebf6f0da14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9c2a7803-27f2-ba45-9352-59c626d17d02"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921310177627735`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"8b98148e-8336-2344-b92f-aaba174bb17f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"226e092e-34c5-564e-9c42-b95bedf784fb"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.9921310177747746`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"873dd9ec-da8d-da41-8470-6c3fb5a7e12d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"94636118-57b6-e04a-9a07-58df6aae4df1"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992131017784775*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"4146ba5e-0a92-c143-a176-f248b83a7a1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"c8ed25b1-3f95-0f4d-b640-faf6adc1d39a"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992131017796774*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"7b435365-8402-ef46-93ab-afeeaa30c114"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"732dd049-b210-2642-86b1-deb36fa4228a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992131017808777*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"45fd89cb-1b9a-7e4e-a86c-a1d81d50550d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"9fe19890-5a24-f441-b86e-d2cac514f7cb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992131017819319*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"e3a6dc70-8942-d940-8f0e-f3411dd4697f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"3f002a02-7f52-1141-9cab-071710d6bf45"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.992131017831217*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"6adeae7f-4c03-124b-afc9-a4d4baab3d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"5a21ff13-c03c-6f48-a30a-94072a70921d"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921310178476734`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"f6736004-2b40-6c4e-a480-57f561e30111"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"83cc445b-a673-7547-ae88-91b57f7d9a3c"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992131017860161*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"bd045550-ad31-8b43-bd57-55c71cfac660"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"0cc6f616-8e1f-4a4f-82b0-4623aa5cf650"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992131017875269*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5d7d4b99-b950-8f4e-93bf-99be7a85141d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"16021a7e-51ba-5d4a-8d3f-ab7967748c45"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921310178916855`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"86ee0c68-6a12-4d40-b35c-dedaf0bf4b35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"9c732f81-66b5-8743-bfee-2d6e4277d2ef"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.9921310179133625`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"10aecef9-2872-aa49-848d-375a52a9dc23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d66cf3bf-f4db-fb4f-a059-58c5814efd87"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921310179273605`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"24a309e7-1e93-4544-bc83-fcb05ab60f4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"6f80b4b4-bce7-2f42-a389-034c1579e866"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921310179493656`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"fe0ae0e0-a8dd-0542-9e6d-cea2ae48eb42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"c322127b-03f4-7349-9796-8789eb94264f"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921310179658947`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"afaa50dc-547c-7a42-a00d-d4ea5fea40c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"89ebc508-e52f-8641-9b92-9f4e76506eee"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921310179789047`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"93b3a3a8-5fe5-254d-975f-4d0583454878"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"b64dc87b-3176-904a-aaf1-49f1d268eda5"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.992131017991892*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"846b6dba-13bb-724a-9000-fde72cf68dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"8936ee3d-230a-e84e-aa7b-f97d9e3a36bb"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921310180058994`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"c69d2e4a-f992-9348-8ff9-687539fdf1af"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1375461b-ee34-014c-b8e4-4fc77a1db3c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"f9d7bd79-6af4-8849-aebc-8323d4692b4c"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.99213101802293*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"83c9e376-7e1d-ed47-b797-cf3fc06d72f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"f9535550-7c0f-e34e-9057-9d572ea9cd06"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.992131018036932*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"18abbce3-e90a-c849-b7ff-289bce7a9429"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"c98bf9ea-c0e9-ca4f-9e4d-1a0ff5df113c"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.992131018049858*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"e0ec8fa6-49e5-4645-925a-d1fa81e17208"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"580ba41a-f0b9-064b-9c21-a51697d3c7d7"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992131018064081*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b7dd646a-cf9b-4e4d-9ece-eb5ab824b667"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"2d007e5b-77f4-ca48-922e-e3be22dbdab2"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.99213101809186*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a92b6b26-e4ae-6b48-845d-79df8fa42c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"aa623963-2fea-cd45-b784-95f26e13f474"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.992131018131302*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"a4671a62-4111-e547-b626-41d41f5995ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"e551e827-1a9b-b847-b282-7f6400377d43"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921310181758194`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"9ce41e3c-521f-8041-8d17-669669588794"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"23eb44be-fbd5-5b44-8714-8b4f14596664"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"b0a66a92-4b12-8f4b-a54a-a1016b9d7a8f"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.99213101819882*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"4ca69dca-f0a8-7c46-ae14-d1937c7c0e62"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"e6e59c51-bc91-464a-a55a-64587a4c1adb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"b5eb6081-5af2-f94c-b7a6-34f3a99f9bc2"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.99213101821982*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"2616cc6f-caf9-1c48-9ca7-a46ed0959e63"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"5bafd915-b02f-2544-bae1-3cd536bd1ace"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"79e5a3a7-7335-c24c-ae93-ed1526660137"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992131018245825*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"17bf5740-5801-8742-9840-9bd58cea7562"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"10e08523-5177-d645-9e84-6766c6e1bc05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"2dd91b71-0406-fa48-abaf-9d9a2dc23319"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921310182733364`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"324ab035-7075-f34e-a7c5-81a982c3909d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"f957de73-6148-0b4a-a349-4d8d6acd36ad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"73f29256-5310-ac46-b25d-2b64726c18ad"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.992131018303335*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"d3ab94f2-c7ea-fd47-99b0-2f62efc59a3a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c75e7d9f-a3ec-fa42-8de0-6e5e8151ec91"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"14f953d6-75f6-9d4e-89a9-0be460595173"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921310183303356`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"622d4dd3-d04f-d745-ba84-c64b0f17cf8d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"4293a1fa-8364-9f46-8e69-a8f69ac3cefb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"c61b8b42-cbcb-5441-af70-d697fef542fe"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921310183575974`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"dbd7d5c2-705c-a644-816b-d5191a7769f1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"eed9d147-d6ac-c447-b4b6-a63375b43c31"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"c26fcdb3-7392-3646-ae1f-1d768e5d5f23"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.992131018550949*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"1fcb7ac0-af25-bf4c-b3fb-1616b547cda6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"90e8eef3-0b11-5d4a-a363-29bd77df0a07"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921310188580856`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2a7e2125-c540-154a-8338-dbf7f2a55012"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"f2451927-7961-0043-b0f6-4d9540a813e0"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.992131019060892*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"4738c638-4ac9-5b4c-b58f-6b887adc1485"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"492915e9-41d9-d443-bf5f-bd43dad0a71a"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992131019279009*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"46b06e5b-f4cb-c84d-8ca4-47b842eb2c70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"6621268c-9e6d-0e40-a862-2deddd80e74d"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992131019478092*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"3f5983fa-0366-5342-b1ac-97b684977545"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"df288669-eeea-9e49-b711-617c8c72de4b"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992131019681471*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"f782331e-b660-c046-ac5b-7c89fdf08c42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"f09193df-a839-7d4f-95d6-ff56210c24d6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.99213101976618*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"0bb23435-57c2-6144-ac1e-822d2395292b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"a8343b67-33ad-524f-b606-f13f53b6dddd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.992131019783081*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b1263686-d411-8047-857e-63c049c0f272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"5781e2c4-dae7-2c40-b79d-dab45c41cbd4"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921310198017273`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"17707c8b-def1-3645-8cbe-91a08a134f66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"ef26351d-442e-b544-9b0d-d44136a16149"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.992131019830553*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"f00d89f3-11e6-864c-bb93-366ad5177828"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"2ae59e15-7ddf-414b-a23c-28e83768b182"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.9921310198489857`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"6db203bc-c37a-d44b-8e27-a016448077cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"26965624-51dd-ff47-a8bc-2045f1817f0b"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.9921310198702526`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"98206d26-9e74-1c4a-9419-9d2e5eb2d7ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"00d798cd-4375-8446-b183-f47a75b4115f"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.99213101988986*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"7342f707-caba-4241-9bda-3be85b21a4c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"49440c58-2411-a147-97d7-f3e8c88a2e51"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.992131019910448*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"1e459a32-cbc7-8a45-9cfd-2a563da34701"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"31583b70-8040-f144-9126-0c4d458431d4"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921310199287224`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1afb2787-61bd-3d40-b5b6-94bd1740aa8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"db78480c-ab52-9748-8eb5-e0e0fd01563e"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.9921310199476357`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"50e75c69-8724-7943-a727-a1892b0bd66a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"27645eba-bc2f-344f-b605-8cf9c667264e"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921310199650974`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c79203ac-4f81-8c41-bbcc-6aa1c23d7fef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"18dc34eb-429f-b244-ad57-28d77b39d7f5"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921310199881973`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"8ff22844-ddd6-fb4a-ab8e-00466f84677b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"2cd3ee86-df2d-ea48-a238-479eaa0abbaf"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.9921310200269585`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"18a5baa6-2b05-b84c-b24a-566ba5e52cbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"31bb3d73-654c-a14d-bf45-0941a52725d6"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992131020049122*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"948cfca2-ccc4-4b49-9ca1-8f8e1fc899dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"3afdf9cc-497d-4144-9649-7b4c5c0fd899"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.992131020073889*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"bfd0f391-de68-304f-8320-cd06552a5759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"c2e519c7-e252-1849-b4e0-d9cd50dfee65"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.992131020094763*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6039c451-5a8c-0546-84e5-5d4999b0750b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"569426dc-12c9-ac4c-83da-58d71518b340"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921310201148663`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"756ad839-6790-2b44-927f-3ec587052156"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"38b230ab-f9f6-ab40-9f0b-2b64e4b258cd"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921310201432495`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"96937ca7-6cd0-8d43-ba51-c2044e71d435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.432722960630574"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, 3.992091958554556*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], + +Cell[BoxData["0.432722960630574`"], "Output", + CellChangeTimes->{3.9921310201627655`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"68dacc0b-7c59-4d4f-8feb-62d62de81217"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, 3.991846933469059*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.31463698253977"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, 3.9920919630005417`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], + +Cell[BoxData["0.31463698253977`"], "Output", + CellChangeTimes->{3.992131020186842*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"a5015101-183e-5549-a817-1789d2260648"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, 3.991846936376911*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.992131020225868*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"657db435-6c34-8b41-95f8-084177bab525"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9, {3.991558360387518*^9, 3.991558363336605*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], + +Cell[BoxData["1.636808034786002`*^-54"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9921310202454357`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"5570389d-2bb6-434d-aac3-1fe619400419"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}, + 3.991558357640812*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], + +Cell[BoxData["1.0861905135009178`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.992131020274029*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"6987e925-f643-044d-b9d3-9fe9bfbdd313"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["14.828168767133674`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.992131020302023*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"86c7a4aa-7d1c-ef43-b923-2e3bd937a004"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["45.7651287668089`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.992131020321993*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a3e29e0e-1274-a542-9554-ee23029d5a8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["2.4281435116294983`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.992131020340353*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"30c0c54c-539e-7c41-ba48-043ea18c25a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["5.955272107052412`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.992131020359585*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"7c0b02f1-8fee-3a4b-a8d4-4f38542a16ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["272.543794820639`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.992131020379595*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"f93714d9-33e5-964d-a406-a666c3f75f60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["36.00492178126281`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9921310203994217`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"56c1f2ea-d99b-5b46-8d19-936cd6aea3b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.007435916553994882`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.9921310204365215`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9c2f5f64-e805-a34f-879b-2888bb3df9d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["10.277268122841688`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.9921310206209545`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"8a543b07-da81-6349-875e-711770f9e325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.012599007151751345`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9921310206494923`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f85cc613-4ec3-ce44-ab05-2e8e8c86fdd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["7.895448033923736`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.992131020806013*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5a34fbc1-d73f-d845-86cd-af99609e2886"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.992131020878996*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"d8863238-f34b-2b45-9471-8368557c42c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.9921310209096375`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"f94e0c2c-836a-6e43-8dd5-c0e003396380"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.9921310209397564`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"e0fae3e8-9413-454d-8030-79724e25a12d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846957646223*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1054, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992131021010483*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"3f5f8c79-661a-3347-941c-973a4d04ea04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1055, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921310210525513`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"00fcf238-46f5-604e-b79c-d3f8cc8f93e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1056, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992131021071913*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a638bdd9-8bf8-554f-9044-85643cd5f050"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 1057, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921310210950775`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2e8ae8b0-f1e5-cb44-b084-3f0253bb3825"], + +Cell[BoxData["10.277268122841706`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.992131028699629*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"ae024ce6-86d8-9941-8af9-890094d230ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918469611416626`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1058, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028787155*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"a47f9638-5e14-a54f-aeff-fa140df95b7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1059, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028803156*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1b8c32e8-d318-564b-95d7-71ef876178e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1060, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028822153*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"470ac894-e916-9441-bacb-1890f8f48cfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 1061, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.99213102883617*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"2c069130-e384-754e-b902-b1cebfd761d1"], + +Cell[BoxData["7.895448033923739`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.992131036408085*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"dee717c0-5753-354f-bd29-b397f8ac43a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846968477251*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6199912397818693, + 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6199912397818693, + 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6199912397818693, 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6199912397818707}, + 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]], + ImagePadding->All, + 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" -> A\ +bsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6199912397818693, 1.5506388340320876`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9, 3.9921315983235645`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9c561584-ac58-774e-a35e-c6e99124fdeb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, 3.9918469897830563`*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.00507283539869`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1062, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598777176*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"638b3757-4e15-3245-b9c9-8cfbd53f1085"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5003967810473765`*^-284\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1063, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921315987961693`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"1e44daac-f5a2-d341-a620-b490484c7226"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2398282206924143`*^-296\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1064, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598809164*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"cf96ff92-df44-e741-8227-926babe88051"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 1065, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598823181*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"53045524-f7c9-ec48-a860-eb7d97e4ca3a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07396648907096998}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9, 3.9921321966999607`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"560c8aaa-c400-3744-96ea-4dd5355b1392"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992091791250908*^9, 3.992091803526783*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921321968751736`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"446f710a-ba43-9844-a504-c03536d56d1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07396648907096998}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921321969265633`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"04a0c3bb-eefc-c445-9ee1-3335f5ce9469"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["14.630632108610374`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.9921321969857655`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c151dabc-8f36-cf4e-a7a2-5c1f36ca323a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2906476283740386`*^-260\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 1066, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321972367344`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2a8f8c49-b681-3c43-ad09-4456733d3f8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4449015662488036`*^-270\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 1067, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.992132197270733*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"7a0c604b-1819-1c41-a7d3-9aced0113b2f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.606386383888603`*^-280\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 1068, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321973024197`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"0c290fa7-3170-ee44-a477-d652c54cfbab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 1069, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321973233643`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"633c278f-0845-b040-a3c1-c1dcf6fe85b6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.05195765705036574}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9, 3.992132862850773*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"cb86e1ab-70ea-6c43-881e-8c53f62f4c65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.05852149319637`*^-182\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 1070, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992132862936081*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"9ead6d1c-335e-454e-aeee-dcf3978fc1c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4099396795418108`*^-185\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 1071, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992132862948082*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"5d6dcb50-60e0-7340-b54b-a39568045b64"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.92986350383249`*^-189\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 1072, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.99213286295508*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"4d7bc420-5827-3349-b005-4f4482eda6bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 1073, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.9921328629630775`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ac4a8133-e244-d542-803a-8ac1b553f090"], + +Cell[BoxData["14.630626268745216`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.992132890612156*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"57fb25bd-55dd-f840-bef0-20eabb613a7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847002744938*^9, 3.9918470078833466`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1074, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992132890652132*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c32fe16e-219b-fb43-9734-1fe013707da1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1075, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906601334`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"5148a9ad-7cc5-664a-84e8-592844450297"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1076, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906671314`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f22cbd20-bfc5-574b-8252-d3525d3ef92f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 1077, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906741333`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"7de69b8c-ab5b-1140-a4da-02371d510e1b"], + +Cell[BoxData["1.6449925215245895`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.992132896058264*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"b6889da1-f351-0d4c-a787-4ed59abc1d8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470141153297`*^9, 3.991847018285223*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1078, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961082783`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"6380235d-d187-b84f-8c3f-cad0d188ae3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1079, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961162643`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b4cd341e-c44b-a442-bcf9-ce30b25ca416"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1080, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992132896122265*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"0f5b78bd-3294-fb4e-8ccd-273f8b6216e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 1081, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961292763`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e02b549d-fbf5-c848-8421-3c88ec32f8e5"], + +Cell[BoxData["28.86017279030097`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.9921329009547043`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"d2e52c3b-e49f-4c47-9ff5-6c2de7e71f88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470289577656`*^9, 3.99184703187117*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1082, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992132900990795*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"492fc68d-4929-5641-b00a-01359285ae34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1083, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.9921329009986916`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"c10bebde-685d-ae47-b7bc-baa1cc4bb377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1084, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.9921329010056915`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"126c7962-f6a3-6146-ba37-cfb5eb4e7304"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 1085, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.99213290101169*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"abc7d5cb-e406-5d48-a37e-f962ff210587"], + +Cell[BoxData["17.03323396976728`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9921329038968296`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"6ca19365-e471-a84c-a932-b67988535089"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, 3.9918470411375484`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], + +Cell[BoxData["0.0741935084553227`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.992132903922842*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"181d9e35-e4c9-6244-b250-1170d6521644"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["9.475403836278197`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.992132903934372*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"24871a09-0837-2c4c-bea3-cf6f45112bce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["3.0375207082310656`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.9921329039428673`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"7f3fca5a-a421-f243-9a79-f3958475875b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["28.781735371547104`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.992132903953867*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"20693df6-d4fe-d946-8f4f-b1aed2f90c70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.007857976414762364`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9921329039658775`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"5dda040b-0459-be41-984c-b76b0b167e48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["9.997457813299842`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9921329040475426`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"dfa00e38-b7b4-b74a-b572-5a173cc68127"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.013860369788846232`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9921329040595417`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"b88e2843-1de8-944d-bae4-57f702400b3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.527617306712805`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9921329041395416`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"0c257df5-6912-f548-ab3d-e542a8ebf573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.992132904150543*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"54a3c398-c96b-5e4e-98db-8c8ccaec9552"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.992132904161764*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b3873d6a-d46d-e448-a2a6-ae97b0ce2748"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9921329041737633`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"21c026bd-c902-2c48-b902-1f0845978b14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847118583315*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 1086, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921329041977615`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"7f1e361f-c687-6a44-b166-11094a5ac237"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 1087, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904205761*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"3995c473-f58e-7546-8e9c-9d045b1f6fc2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 1088, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904212763*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"ff176601-b2ac-1d4e-84dd-b9118765b625"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 1089, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904220764*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"387fa5dc-05fc-8e40-a405-385c724fdcde"], + +Cell[BoxData["9.997457813299826`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.99213290726392*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"4b525ade-6d6a-3643-9a56-de3169c0c634"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918471223197117`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 1090, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073011227`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"87f28515-3bb9-444d-b389-1588cdd5211d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 1091, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073100166`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"e9eaaf52-b7bd-304f-b93c-cbe56932695a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 1092, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073170185`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fbb6398f-1b8a-8a48-a24f-702ad013bb7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 1093, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073240185`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"350f4a3f-42cd-ef4d-8cd2-aadaa2d4d65c"], + +Cell[BoxData["7.527617306712796`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.99213291031196*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"42c623d6-1380-7a4b-857e-702021aa5d8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918471264328136`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5131144857171297, + 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5131144857171297, + 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5131144857171297, 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5131144857171308}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5131144857171297, 1.8102248952641184`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9, 3.992133141123678*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"5071bc06-cbc3-1243-9468-9b53dbd68981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, 3.991847426207552*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.441280585348901`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1094, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992133141335411*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bf587f4c-b294-2f4c-a7c5-3f917878662b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.699507486874503`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1095, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921331413448296`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"e9f65977-db34-ad43-b6fb-c5022b815d29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.79312712121017`*^-287\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 1096, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921331413518295`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"1033fcfb-2941-4d45-9f2a-809e1ea840e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 1097, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.99213314135783*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"fde05446-9afb-3844-bb77-da9b6964721c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07603666944553686}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9, 3.9921333702789764`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"63920837-9763-ec40-a084-031ca4fb84fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.07603666944553686}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992133370357727*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"c6d2d566-a6cf-d449-9ca2-829cb8ede854"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309214465349764`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 1098, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992133370400728*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2f31f5fb-56dc-9043-becb-252ed3abac1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.986131132608925`*^-179\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 1099, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921333704112377`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"51a1d65f-ee46-b548-8ba0-340c7b91a261"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.483398514334195`*^-182\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 1100, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992133370417782*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5efd8001-25bf-694c-92ed-7a4ece778a79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 1101, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921333704247684`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6fc12fd7-53c1-7340-9a95-be77c5704a91"], + +Cell[BoxData["14.63057402610588`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.9921333979521847`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"edb186d5-9be3-c542-8e8f-05bf07836749"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472030801735`*^9, 3.9918472073134327`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1102, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333979899006`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"47299ee8-9036-2e42-8fcd-352a65d6ca49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 1103, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333979977894`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"29b5c5a7-0ec1-294c-8aff-08f4de5db46a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 123, 1104, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333980047874`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"f52d129d-de24-f747-b6a4-e4536e06a182"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 1105, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992133398010788*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"5828916e-fac0-7945-a9d4-0b92741a8c81"], + +Cell[BoxData["2.7660933665085667`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.992133403316862*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"a7d39d00-c729-1240-81c1-b1261e768f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472136550217`*^9, 3.9918472163537464`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 1106, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.9921334033668423`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"8664a5d7-7bc7-fa44-96c9-a51374515748"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 1107, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403373844*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"4fa7f6cb-4cf0-864e-ad39-9f6a03c4df9d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 124, 1108, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403380846*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"446ef805-4ac7-184e-b72f-4ec223821853"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 1109, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403387844*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"518afbdd-2d9f-2a4e-8b84-abc144c22258"], + +Cell[BoxData["27.31006372065342`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.992133408223818*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"96f1d3c8-0b2e-fd44-9a28-3fa438ca5280"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472906473484`*^9, 3.9918472935952396`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 1110, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408263315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"d271415b-be3b-4e49-a83e-2558698d8a5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 1111, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408270315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"d5e40d2a-3a3e-6c4f-8422-5668488c75e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 125, 1112, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408277315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c4c3f223-246c-884c-929c-22fdc83147ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 1113, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921334082833138`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fccd8000-8237-4d49-81ab-73a41b949c94"], + +Cell[BoxData["15.48312490011967`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.9921334112032185`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"fc84b9d7-1d83-874b-b942-bf7eab16c70f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, 3.991847300654911*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], + +Cell[BoxData["0.13451668925164809`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9921334112312183`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"cda5b510-bfa2-2445-99c5-f50bc762e4c5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["21.692587481892488`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.99213341124271*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"09af0345-82d3-b443-af9b-47796f52cf02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["2.00753179751312`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.992133411252697*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"b5af1740-ad49-c84f-8906-3c2c249194a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["43.54855914023424`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.992133411266697*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"64c3f5ff-bcb4-964c-855a-377f22221041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.007040961840906755`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9921334112787304`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"b406a427-634b-5749-ae94-a2112d7bca4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["10.561581273457614`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.9921334113611984`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"23d6e328-32b4-144b-ab17-f6b96e75f2d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.011505497714209664`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.9921334113751984`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"908f486e-d190-a54e-8f58-a22f3c0b1ce4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["8.262134021151113`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9921334114561977`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"6814996f-8973-4d40-8084-c618de5876c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.992133411468317*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"4cd3010a-1fc8-f94f-84db-31b2c02edb9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.9921334114791985`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"766b7570-88fc-cc43-b7eb-c3feec257f00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.99213341149131*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"01635445-5597-9a42-bb91-5597f95e91ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847320104244*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 1114, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115141983`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8b529b2d-de81-3847-a743-0241845d4ae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 1115, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992133411521452*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d51f9521-ba7a-2c4e-84d0-d7f35525063c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 1116, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115284595`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f8c90b6e-dd0f-4140-8331-6a6fc8a9bfbe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 1117, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115345497`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b40ac3ba-15ea-2c4b-941b-bd7f39f1bf16"], + +Cell[BoxData["10.56158127345762`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.992133414197077*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"3c3f8977-5b98-0f42-85fa-29fe5740fbd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847326557415*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 1118, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921334142651405`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"57be92ad-14aa-b243-86ea-85b509475de2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 1119, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921334142721386`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"a2161a8c-2e50-3049-86fa-c994860dd7a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 1120, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992133414278139*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"ae85df33-7282-7841-97d4-783d8b179790"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 1121, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992133414284157*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"01616bbe-b94e-9848-8cd2-4067e8431de2"], + +Cell[BoxData["8.262134021151118`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9921334168675156`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"2a180166-ada6-d14f-b999-f52873df9e63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918473312384872`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7251843418315443, + 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7251843418315443, + 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7251843418315443, 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.725184341831546}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7251843418315443, 1.3538633344523694`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9, 3.9921336436212673`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"d930f671-2311-034f-b3cc-881eb83dee7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, 3.9918474093563137`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.273776888582275`*^-270\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1122, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438333282`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"7e238414-c4c3-544a-aa69-5857b2b97f57"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8438820115428462`*^-282\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1123, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438413258`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"787dbd82-eb8a-6a4c-a96e-c261fff01ca2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.038525528220598`*^-294\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1124, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438475056`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"869f8801-27ee-414d-9d0c-33933f262f2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 1125, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438560143`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"03b17ce6-e4eb-d04c-ab85-ac922d1cbb87"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0719753401347979}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9, 3.9921338608122196`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"c98a24a4-262b-1546-9931-8b9c71b29512"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.0719753401347979}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921338608682156`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"77b8cd91-913e-854c-8f05-acf62a4e4d4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.220375088478079`*^-183\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 1126, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860906086*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"cb1b1612-c88a-e640-97c2-096c3a89de53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.946145420058141`*^-187\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 1127, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338609140873`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"578b9543-ef4d-9f43-9741-58424d384418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8949942684249513`*^-190\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 1128, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860922085*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a8944f24-ca10-2642-8ff6-95a2c643e7b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 1129, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860929125*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"70402fd9-6936-f142-b9fe-06f405102c01"], + +Cell[BoxData["14.630631587953157`"], "Output", + CellChangeTimes->{3.9921338873704414`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"77d2f405-7db9-784c-9d40-fa6b5d21f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918473569283657`*^9, 3.991847361118864*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1130, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874124393`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"5c429ad7-8ab3-2b4f-93e3-e71d92f026af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1131, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133887419441*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a807511f-cbff-9a49-a43a-8e871cebc400"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 1132, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874264393`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d3ec8978-b52a-7444-b5fa-9fc561b1eb00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 1133, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874340057`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"158fd922-dd8a-2d43-9b07-85e8113c9dc7"], + +Cell[BoxData["0.842017068259208`"], "Output", + CellChangeTimes->{3.9921338945646706`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"6026ee30-d2fc-3c48-b8ca-90a6590863e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847365260393*^9, 3.991847368101671*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 1134, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894655985*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"474cded1-dc21-c348-8b86-2b6721cd32a3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 1135, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338946719627`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"30e1c38c-298c-3843-a2c6-ed2b4ab79038"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 1136, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894687977*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"db96d1e6-293b-634b-8252-05d6e2262b50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 1137, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894702976*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"70fc1fd6-f450-ac4c-9dab-d8df76bbcf50"], + +Cell[BoxData["30.479051222199814`"], "Output", + CellChangeTimes->{3.9921339055458317`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"505de306-11f1-0e4c-9d2a-c3c04b783a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184737148876*^9, 3.9918473756828785`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 1138, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905635725*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a697a3ca-907a-5e4d-ba7b-436f44a0ba97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 1139, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905649727*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e999cfd7-f5e5-274e-95e0-64da0803e59d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 1140, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921339056707287`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"298fbb42-9db6-bd42-b53c-fa87d80dc597"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 1141, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905690727*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"3dd222b8-60ab-8646-942d-5c30e1a6e3e4"], + +Cell[BoxData["18.652112401666148`"], "Output", + CellChangeTimes->{3.9921339143419056`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"edba7152-e621-e549-b5a0-47798b7066c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, 3.991847383988016*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], + +Cell[BoxData["0.035314752034855686`"], "Output", + CellChangeTimes->{3.992133914413431*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"8cb2ae06-1afa-f148-ba81-fd23e66fbde1"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"e0117d68-9e40-e34d-a9fc-07994345b755"], +Cell[1031, 31, 356, 5, 32, "Output",ExpressionUUID->"d274b631-1b8a-0e42-9984-0d8ecab4433a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 28, "Input",ExpressionUUID->"29808aeb-8851-a347-9bf8-040c658c23f3"], +Cell[1773, 48, 429, 6, 32, "Output",ExpressionUUID->"574844d0-cbef-0e44-8723-e6e539455447"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2239, 59, 253, 5, 28, "Input",ExpressionUUID->"6311e838-0851-074d-aa17-f2b2c57ddc36"], +Cell[2495, 66, 428, 6, 32, "Output",ExpressionUUID->"82fe0f1f-7cd1-c442-997e-17b65ba9d9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2960, 77, 175, 3, 28, "Input",ExpressionUUID->"427c3aa1-1a65-4a43-996a-81d995cb25da"], +Cell[3138, 82, 401, 6, 32, "Output",ExpressionUUID->"0ab6b173-6af8-574a-ac8b-330d984be0d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3576, 93, 257, 7, 43, "Input",ExpressionUUID->"3da0f6c5-ee38-844d-b8cb-577a5960a82b"], +Cell[3836, 102, 412, 6, 32, "Output",ExpressionUUID->"1a2153a9-4a08-e546-9ab0-ff30f9d9b908"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4285, 113, 131, 2, 28, "Input",ExpressionUUID->"ffeef75c-35db-fc4b-af3d-710ad07741ea"], +Cell[4419, 117, 405, 6, 32, "Output",ExpressionUUID->"1eff1334-52cf-804c-b712-47ebf6f0da14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4861, 128, 276, 6, 28, "Input",ExpressionUUID->"9c2a7803-27f2-ba45-9352-59c626d17d02"], +Cell[5140, 136, 420, 6, 32, "Output",ExpressionUUID->"8b98148e-8336-2344-b92f-aaba174bb17f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5597, 147, 257, 7, 28, "Input",ExpressionUUID->"226e092e-34c5-564e-9c42-b95bedf784fb"], +Cell[5857, 156, 420, 6, 32, "Output",ExpressionUUID->"873dd9ec-da8d-da41-8470-6c3fb5a7e12d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6314, 167, 236, 4, 28, "Input",ExpressionUUID->"94636118-57b6-e04a-9a07-58df6aae4df1"], +Cell[6553, 173, 438, 6, 32, "Output",ExpressionUUID->"4146ba5e-0a92-c143-a176-f248b83a7a1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7028, 184, 236, 4, 28, "Input",ExpressionUUID->"c8ed25b1-3f95-0f4d-b640-faf6adc1d39a"], +Cell[7267, 190, 438, 6, 32, "Output",ExpressionUUID->"7b435365-8402-ef46-93ab-afeeaa30c114"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7742, 201, 129, 2, 28, "Input",ExpressionUUID->"732dd049-b210-2642-86b1-deb36fa4228a"], +Cell[7874, 205, 402, 6, 32, "Output",ExpressionUUID->"45fd89cb-1b9a-7e4e-a86c-a1d81d50550d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8313, 216, 129, 2, 28, "Input",ExpressionUUID->"9fe19890-5a24-f441-b86e-d2cac514f7cb"], +Cell[8445, 220, 397, 6, 32, "Output",ExpressionUUID->"e3a6dc70-8942-d940-8f0e-f3411dd4697f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8879, 231, 557, 19, 79, "Input",ExpressionUUID->"3f002a02-7f52-1141-9cab-071710d6bf45"], +Cell[9439, 252, 396, 6, 32, "Output",ExpressionUUID->"6adeae7f-4c03-124b-afc9-a4d4baab3d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9872, 263, 557, 19, 79, "Input",ExpressionUUID->"5a21ff13-c03c-6f48-a30a-94072a70921d"], +Cell[10432, 284, 402, 6, 32, "Output",ExpressionUUID->"f6736004-2b40-6c4e-a480-57f561e30111"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10871, 295, 1492, 48, 80, "Input",ExpressionUUID->"83cc445b-a673-7547-ae88-91b57f7d9a3c"], +Cell[12366, 345, 396, 6, 32, "Output",ExpressionUUID->"bd045550-ad31-8b43-bd57-55c71cfac660"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12799, 356, 1331, 44, 80, "Input",ExpressionUUID->"0cc6f616-8e1f-4a4f-82b0-4623aa5cf650"], +Cell[14133, 402, 414, 7, 32, "Output",ExpressionUUID->"5d7d4b99-b950-8f4e-93bf-99be7a85141d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14584, 414, 1331, 44, 80, "Input",ExpressionUUID->"16021a7e-51ba-5d4a-8d3f-ab7967748c45"], +Cell[15918, 460, 421, 7, 32, "Output",ExpressionUUID->"86ee0c68-6a12-4d40-b35c-dedaf0bf4b35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16376, 472, 1492, 48, 80, "Input",ExpressionUUID->"9c732f81-66b5-8743-bfee-2d6e4277d2ef"], +Cell[17871, 522, 392, 6, 32, "Output",ExpressionUUID->"10aecef9-2872-aa49-848d-375a52a9dc23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18300, 533, 131, 2, 28, "Input",ExpressionUUID->"d66cf3bf-f4db-fb4f-a059-58c5814efd87"], +Cell[18434, 537, 382, 6, 32, "Output",ExpressionUUID->"24a309e7-1e93-4544-bc83-fcb05ab60f4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18853, 548, 177, 3, 28, "Input",ExpressionUUID->"6f80b4b4-bce7-2f42-a389-034c1579e866"], +Cell[19033, 553, 380, 6, 51, "Output",ExpressionUUID->"fe0ae0e0-a8dd-0542-9e6d-cea2ae48eb42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19450, 564, 134, 2, 28, "Input",ExpressionUUID->"c322127b-03f4-7349-9796-8789eb94264f"], +Cell[19587, 568, 388, 6, 32, "Output",ExpressionUUID->"afaa50dc-547c-7a42-a00d-d4ea5fea40c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20012, 579, 219, 4, 28, "Input",ExpressionUUID->"89ebc508-e52f-8641-9b92-9f4e76506eee"], +Cell[20234, 585, 391, 7, 32, "Output",ExpressionUUID->"93b3a3a8-5fe5-254d-975f-4d0583454878"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20662, 597, 134, 2, 28, "Input",ExpressionUUID->"b64dc87b-3176-904a-aaf1-49f1d268eda5"], +Cell[20799, 601, 382, 6, 32, "Output",ExpressionUUID->"846b6dba-13bb-724a-9000-fde72cf68dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21218, 612, 302, 5, 28, "Input",ExpressionUUID->"8936ee3d-230a-e84e-aa7b-f97d9e3a36bb"], +Cell[21523, 619, 330, 5, 32, "Output",ExpressionUUID->"c69d2e4a-f992-9348-8ff9-687539fdf1af"] +}, Open ]], +Cell[21868, 627, 173, 2, 28, "Input",ExpressionUUID->"1375461b-ee34-014c-b8e4-4fc77a1db3c3"], +Cell[CellGroupData[{ +Cell[22066, 633, 296, 5, 28, "Input",ExpressionUUID->"f9d7bd79-6af4-8849-aebc-8323d4692b4c"], +Cell[22365, 640, 374, 6, 32, "Output",ExpressionUUID->"83c9e376-7e1d-ed47-b797-cf3fc06d72f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22776, 651, 219, 4, 28, "Input",ExpressionUUID->"f9535550-7c0f-e34e-9057-9d572ea9cd06"], +Cell[22998, 657, 377, 6, 32, "Output",ExpressionUUID->"18abbce3-e90a-c849-b7ff-289bce7a9429"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23412, 668, 350, 10, 43, "Input",ExpressionUUID->"c98bf9ea-c0e9-ca4f-9e4d-1a0ff5df113c"], +Cell[23765, 680, 395, 6, 32, "Output",ExpressionUUID->"e0ec8fa6-49e5-4645-925a-d1fa81e17208"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24197, 691, 350, 10, 43, "Input",ExpressionUUID->"580ba41a-f0b9-064b-9c21-a51697d3c7d7"], +Cell[24550, 703, 408, 7, 32, "Output",ExpressionUUID->"b7dd646a-cf9b-4e4d-9ece-eb5ab824b667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24995, 715, 992, 26, 113, "Input",ExpressionUUID->"2d007e5b-77f4-ca48-922e-e3be22dbdab2"], +Cell[25990, 743, 397, 6, 32, "Output",ExpressionUUID->"a92b6b26-e4ae-6b48-845d-79df8fa42c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26424, 754, 199, 3, 28, "Input",ExpressionUUID->"aa623963-2fea-cd45-b784-95f26e13f474"], +Cell[26626, 759, 382, 6, 32, "Output",ExpressionUUID->"a4671a62-4111-e547-b626-41d41f5995ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27045, 770, 275, 4, 28, "Input",ExpressionUUID->"e551e827-1a9b-b847-b282-7f6400377d43"], +Cell[27323, 776, 339, 5, 32, "Output",ExpressionUUID->"9ce41e3c-521f-8041-8d17-669669588794"] +}, Open ]], +Cell[27677, 784, 175, 2, 22, "Input",ExpressionUUID->"23eb44be-fbd5-5b44-8714-8b4f14596664"], +Cell[CellGroupData[{ +Cell[27877, 790, 323, 5, 28, "Input",ExpressionUUID->"b0a66a92-4b12-8f4b-a54a-a1016b9d7a8f"], +Cell[28203, 797, 336, 5, 32, "Output",ExpressionUUID->"4ca69dca-f0a8-7c46-ae14-d1937c7c0e62"] +}, Open ]], +Cell[28554, 805, 173, 2, 22, "Input",ExpressionUUID->"e6e59c51-bc91-464a-a55a-64587a4c1adb"], +Cell[CellGroupData[{ +Cell[28752, 811, 343, 6, 47, "Input",ExpressionUUID->"b5eb6081-5af2-f94c-b7a6-34f3a99f9bc2"], +Cell[29098, 819, 328, 5, 32, "Output",ExpressionUUID->"2616cc6f-caf9-1c48-9ca7-a46ed0959e63"] +}, Open ]], +Cell[29441, 827, 175, 2, 22, "Input",ExpressionUUID->"5bafd915-b02f-2544-bae1-3cd536bd1ace"], +Cell[CellGroupData[{ +Cell[29641, 833, 347, 6, 47, "Input",ExpressionUUID->"79e5a3a7-7335-c24c-ae93-ed1526660137"], +Cell[29991, 841, 337, 5, 32, "Output",ExpressionUUID->"17bf5740-5801-8742-9840-9bd58cea7562"] +}, Open ]], +Cell[30343, 849, 175, 2, 22, "Input",ExpressionUUID->"10e08523-5177-d645-9e84-6766c6e1bc05"], +Cell[CellGroupData[{ +Cell[30543, 855, 273, 4, 28, "Input",ExpressionUUID->"2dd91b71-0406-fa48-abaf-9d9a2dc23319"], +Cell[30819, 861, 329, 5, 32, "Output",ExpressionUUID->"324ab035-7075-f34e-a7c5-81a982c3909d"] +}, Open ]], +Cell[31163, 869, 173, 2, 22, "Input",ExpressionUUID->"f957de73-6148-0b4a-a349-4d8d6acd36ad"], +Cell[CellGroupData[{ +Cell[31361, 875, 277, 4, 28, "Input",ExpressionUUID->"73f29256-5310-ac46-b25d-2b64726c18ad"], +Cell[31641, 881, 332, 5, 32, "Output",ExpressionUUID->"d3ab94f2-c7ea-fd47-99b0-2f62efc59a3a"] +}, Open ]], +Cell[31988, 889, 171, 2, 22, "Input",ExpressionUUID->"c75e7d9f-a3ec-fa42-8de0-6e5e8151ec91"], +Cell[CellGroupData[{ +Cell[32184, 895, 325, 6, 47, "Input",ExpressionUUID->"14f953d6-75f6-9d4e-89a9-0be460595173"], +Cell[32512, 903, 328, 5, 32, "Output",ExpressionUUID->"622d4dd3-d04f-d745-ba84-c64b0f17cf8d"] +}, Open ]], +Cell[32855, 911, 175, 2, 22, "Input",ExpressionUUID->"4293a1fa-8364-9f46-8e69-a8f69ac3cefb"], +Cell[CellGroupData[{ +Cell[33055, 917, 270, 5, 47, "Input",ExpressionUUID->"c61b8b42-cbcb-5441-af70-d697fef542fe"], +Cell[33328, 924, 330, 5, 32, "Output",ExpressionUUID->"dbd7d5c2-705c-a644-816b-d5191a7769f1"] +}, Open ]], +Cell[33673, 932, 171, 2, 22, "Input",ExpressionUUID->"eed9d147-d6ac-c447-b4b6-a63375b43c31"], +Cell[CellGroupData[{ +Cell[33869, 938, 19809, 485, 2217, "Input",ExpressionUUID->"c26fcdb3-7392-3646-ae1f-1d768e5d5f23"], +Cell[53681, 1425, 388, 6, 32, "Output",ExpressionUUID->"1fcb7ac0-af25-bf4c-b3fb-1616b547cda6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54106, 1436, 19748, 489, 2216, "Input",ExpressionUUID->"90e8eef3-0b11-5d4a-a363-29bd77df0a07"], +Cell[73857, 1927, 397, 6, 32, "Output",ExpressionUUID->"2a7e2125-c540-154a-8338-dbf7f2a55012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74291, 1938, 19748, 483, 2216, "Input",ExpressionUUID->"f2451927-7961-0043-b0f6-4d9540a813e0"], +Cell[94042, 2423, 411, 7, 32, "Output",ExpressionUUID->"4738c638-4ac9-5b4c-b58f-6b887adc1485"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94490, 2435, 22534, 553, 2523, "Input",ExpressionUUID->"492915e9-41d9-d443-bf5f-bd43dad0a71a"], +Cell[117027, 2990, 413, 7, 32, "Output",ExpressionUUID->"46b06e5b-f4cb-c84d-8ca4-47b842eb2c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117477, 3002, 22535, 553, 2523, "Input",ExpressionUUID->"6621268c-9e6d-0e40-a862-2deddd80e74d"], +Cell[140015, 3557, 411, 7, 32, "Output",ExpressionUUID->"3f5983fa-0366-5342-b1ac-97b684977545"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140463, 3569, 25491, 626, 2830, "Input",ExpressionUUID->"df288669-eeea-9e49-b711-617c8c72de4b"], +Cell[165957, 4197, 408, 7, 32, "Output",ExpressionUUID->"f782331e-b660-c046-ac5b-7c89fdf08c42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166402, 4209, 130, 2, 28, "Input",ExpressionUUID->"f09193df-a839-7d4f-95d6-ff56210c24d6"], +Cell[166535, 4213, 377, 6, 32, "Output",ExpressionUUID->"0bb23435-57c2-6144-ac1e-822d2395292b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166949, 4224, 130, 2, 28, "Input",ExpressionUUID->"a8343b67-33ad-524f-b606-f13f53b6dddd"], +Cell[167082, 4228, 376, 6, 32, "Output",ExpressionUUID->"b1263686-d411-8047-857e-63c049c0f272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167495, 4239, 1144, 39, 110, "Input",ExpressionUUID->"5781e2c4-dae7-2c40-b79d-dab45c41cbd4"], +Cell[168642, 4280, 399, 6, 32, "Output",ExpressionUUID->"17707c8b-def1-3645-8cbe-91a08a134f66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169078, 4291, 1041, 35, 110, "Input",ExpressionUUID->"ef26351d-442e-b544-9b0d-d44136a16149"], +Cell[170122, 4328, 407, 7, 32, "Output",ExpressionUUID->"f00d89f3-11e6-864c-bb93-366ad5177828"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170566, 4340, 1144, 39, 110, "Input",ExpressionUUID->"2ae59e15-7ddf-414b-a23c-28e83768b182"], +Cell[171713, 4381, 402, 6, 32, "Output",ExpressionUUID->"6db203bc-c37a-d44b-8e27-a016448077cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172152, 4392, 108, 1, 28, "Input",ExpressionUUID->"26965624-51dd-ff47-a8bc-2045f1817f0b"], +Cell[172263, 4395, 396, 6, 32, "Output",ExpressionUUID->"98206d26-9e74-1c4a-9419-9d2e5eb2d7ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172696, 4406, 108, 1, 28, "Input",ExpressionUUID->"00d798cd-4375-8446-b183-f47a75b4115f"], +Cell[172807, 4409, 410, 7, 32, "Output",ExpressionUUID->"7342f707-caba-4241-9bda-3be85b21a4c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173254, 4421, 108, 1, 28, "Input",ExpressionUUID->"49440c58-2411-a147-97d7-f3e8c88a2e51"], +Cell[173365, 4424, 413, 7, 32, "Output",ExpressionUUID->"1e459a32-cbc7-8a45-9cfd-2a563da34701"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173815, 4436, 108, 1, 28, "Input",ExpressionUUID->"31583b70-8040-f144-9126-0c4d458431d4"], +Cell[173926, 4439, 400, 6, 32, "Output",ExpressionUUID->"1afb2787-61bd-3d40-b5b6-94bd1740aa8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174363, 4450, 107, 1, 28, "Input",ExpressionUUID->"db78480c-ab52-9748-8eb5-e0e0fd01563e"], +Cell[174473, 4453, 393, 6, 32, "Output",ExpressionUUID->"50e75c69-8724-7943-a727-a1892b0bd66a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174903, 4464, 107, 1, 28, "Input",ExpressionUUID->"27645eba-bc2f-344f-b605-8cf9c667264e"], +Cell[175013, 4467, 395, 6, 32, "Output",ExpressionUUID->"c79203ac-4f81-8c41-bbcc-6aa1c23d7fef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175445, 4478, 497, 16, 56, "Input",ExpressionUUID->"18dc34eb-429f-b244-ad57-28d77b39d7f5"], +Cell[175945, 4496, 409, 7, 32, "Output",ExpressionUUID->"8ff22844-ddd6-fb4a-ab8e-00466f84677b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176391, 4508, 497, 16, 56, "Input",ExpressionUUID->"2cd3ee86-df2d-ea48-a238-479eaa0abbaf"], +Cell[176891, 4526, 414, 7, 32, "Output",ExpressionUUID->"18a5baa6-2b05-b84c-b24a-566ba5e52cbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177342, 4538, 1788, 60, 188, "Input",ExpressionUUID->"31bb3d73-654c-a14d-bf45-0941a52725d6"], +Cell[179133, 4600, 395, 6, 32, "Output",ExpressionUUID->"948cfca2-ccc4-4b49-9ca1-8f8e1fc899dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179565, 4611, 1101, 36, 133, "Input",ExpressionUUID->"3afdf9cc-497d-4144-9649-7b4c5c0fd899"], +Cell[180669, 4649, 410, 7, 32, "Output",ExpressionUUID->"bfd0f391-de68-304f-8320-cd06552a5759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181116, 4661, 1818, 61, 165, "Input",ExpressionUUID->"c2e519c7-e252-1849-b4e0-d9cd50dfee65"], +Cell[182937, 4724, 393, 6, 32, "Output",ExpressionUUID->"6039c451-5a8c-0546-84e5-5d4999b0750b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183367, 4735, 2499, 77, 133, "Input",ExpressionUUID->"569426dc-12c9-ac4c-83da-58d71518b340"], +Cell[185869, 4814, 397, 6, 32, "Output",ExpressionUUID->"756ad839-6790-2b44-927f-3ec587052156"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186303, 4825, 2499, 77, 133, "Input",ExpressionUUID->"38b230ab-f9f6-ab40-9f0b-2b64e4b258cd"], +Cell[188805, 4904, 389, 6, 32, "Output",ExpressionUUID->"96937ca7-6cd0-8d43-ba51-c2044e71d435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189231, 4915, 211, 3, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[189445, 4920, 168, 2, 32, "Output",ExpressionUUID->"68dacc0b-7c59-4d4f-8feb-62d62de81217"] +}, Open ]], +Cell[189628, 4925, 171, 2, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[CellGroupData[{ +Cell[189824, 4931, 212, 3, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[190039, 4936, 165, 2, 32, "Output",ExpressionUUID->"a5015101-183e-5549-a817-1789d2260648"] +}, Open ]], +Cell[190219, 4941, 173, 2, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[190417, 4947, 1297, 42, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[191717, 4991, 195, 2, 32, "Output",ExpressionUUID->"657db435-6c34-8b41-95f8-084177bab525"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191949, 4998, 925, 29, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[192877, 5029, 197, 2, 32, "Output",ExpressionUUID->"5570389d-2bb6-434d-aac3-1fe619400419"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193111, 5036, 985, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[194099, 5070, 196, 2, 32, "Output",ExpressionUUID->"6987e925-f643-044d-b9d3-9fe9bfbdd313"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194332, 5077, 554, 18, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[194889, 5097, 191, 2, 32, "Output",ExpressionUUID->"86c7a4aa-7d1c-ef43-b923-2e3bd937a004"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195117, 5104, 647, 21, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[195767, 5127, 187, 2, 32, "Output",ExpressionUUID->"a3e29e0e-1274-a542-9554-ee23029d5a8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195991, 5134, 166, 4, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[196160, 5140, 191, 2, 32, "Output",ExpressionUUID->"30c0c54c-539e-7c41-ba48-043ea18c25a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196388, 5147, 166, 4, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[196557, 5153, 190, 2, 32, "Output",ExpressionUUID->"7c0b02f1-8fee-3a4b-a8d4-4f38542a16ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196784, 5160, 177, 4, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[196964, 5166, 187, 2, 32, "Output",ExpressionUUID->"f93714d9-33e5-964d-a406-a666c3f75f60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197188, 5173, 177, 4, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[197368, 5179, 192, 2, 32, "Output",ExpressionUUID->"56c1f2ea-d99b-5b46-8d19-936cd6aea3b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197597, 5186, 6051, 184, 491, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[203651, 5372, 195, 2, 32, "Output",ExpressionUUID->"9c2f5f64-e805-a34f-879b-2888bb3df9d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203883, 5379, 364, 8, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[204250, 5389, 193, 2, 32, "Output",ExpressionUUID->"8a543b07-da81-6349-875e-711770f9e325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204480, 5396, 6118, 186, 512, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[210601, 5584, 195, 2, 32, "Output",ExpressionUUID->"f85cc613-4ec3-ce44-ab05-2e8e8c86fdd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210833, 5591, 364, 8, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[211200, 5601, 190, 2, 32, "Output",ExpressionUUID->"5a34fbc1-d73f-d845-86cd-af99609e2886"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211427, 5608, 2659, 87, 165, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[214089, 5697, 190, 2, 32, "Output",ExpressionUUID->"d8863238-f34b-2b45-9471-8368557c42c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214316, 5704, 2599, 84, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[216918, 5790, 193, 2, 32, "Output",ExpressionUUID->"f94e0c2c-836a-6e43-8dd5-c0e003396380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217148, 5797, 3708, 117, 294, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[220859, 5916, 193, 2, 32, "Output",ExpressionUUID->"e0fae3e8-9413-454d-8030-79724e25a12d"] +}, Open ]], +Cell[221067, 5921, 160, 3, 42, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[221252, 5928, 2071, 58, 228, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[223326, 5988, 580, 12, 66, "Message",ExpressionUUID->"3f5f8c79-661a-3347-941c-973a4d04ea04"], +Cell[223909, 6002, 585, 12, 66, "Message",ExpressionUUID->"00fcf238-46f5-604e-b79c-d3f8cc8f93e3"], +Cell[224497, 6016, 586, 12, 66, "Message",ExpressionUUID->"a638bdd9-8bf8-554f-9044-85643cd5f050"], +Cell[225086, 6030, 481, 10, 26, "Message",ExpressionUUID->"2e8ae8b0-f1e5-cb44-b084-3f0253bb3825"], +Cell[225570, 6042, 189, 2, 32, "Output",ExpressionUUID->"ae024ce6-86d8-9941-8af9-890094d230ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225796, 6049, 2073, 58, 228, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[227872, 6109, 580, 12, 66, "Message",ExpressionUUID->"a47f9638-5e14-a54f-aeff-fa140df95b7c"], +Cell[228455, 6123, 583, 12, 66, "Message",ExpressionUUID->"1b8c32e8-d318-564b-95d7-71ef876178e5"], +Cell[229041, 6137, 586, 12, 66, "Message",ExpressionUUID->"470ac894-e916-9441-bacb-1890f8f48cfe"], +Cell[229630, 6151, 478, 10, 26, "Message",ExpressionUUID->"2c069130-e384-754e-b902-b1cebfd761d1"], +Cell[230111, 6163, 188, 2, 32, "Output",ExpressionUUID->"dee717c0-5753-354f-bd29-b397f8ac43a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230336, 6170, 1955, 52, 115, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[232294, 6224, 20367, 380, 241, "Output",ExpressionUUID->"9c561584-ac58-774e-a35e-c6e99124fdeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252698, 6609, 2137, 59, 211, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[254838, 6670, 519, 11, 60, "Message",ExpressionUUID->"638b3757-4e15-3245-b9c9-8cfbd53f1085"], +Cell[255360, 6683, 526, 11, 60, "Message",ExpressionUUID->"1e44daac-f5a2-d341-a620-b490484c7226"], +Cell[255889, 6696, 527, 11, 60, "Message",ExpressionUUID->"cf96ff92-df44-e741-8227-926babe88051"], +Cell[256419, 6709, 479, 10, 26, "Message",ExpressionUUID->"53045524-f7c9-ec48-a860-eb7d97e4ca3a"], +Cell[256901, 6721, 21700, 402, 233, "Output",ExpressionUUID->"560c8aaa-c400-3744-96ea-4dd5355b1392"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278638, 7128, 1883, 50, 120, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[280524, 7180, 8995, 209, 241, "Output",ExpressionUUID->"446f710a-ba43-9844-a504-c03536d56d1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289556, 7394, 276, 5, 42, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[289835, 7401, 27714, 527, 233, "Output",ExpressionUUID->"04a0c3bb-eefc-c445-9ee1-3335f5ce9469"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317586, 7933, 195, 5, 48, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[317784, 7940, 193, 2, 32, "Output",ExpressionUUID->"c151dabc-8f36-cf4e-a7a2-5c1f36ca323a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318014, 7947, 1798, 52, 183, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[319815, 8001, 532, 11, 60, "Message",ExpressionUUID->"2a8f8c49-b681-3c43-ad09-4456733d3f8c"], +Cell[320350, 8014, 533, 11, 60, "Message",ExpressionUUID->"7a0c604b-1819-1c41-a7d3-9aced0113b2f"], +Cell[320886, 8027, 534, 11, 60, "Message",ExpressionUUID->"0c290fa7-3170-ee44-a477-d652c54cfbab"], +Cell[321423, 8040, 481, 10, 26, "Message",ExpressionUUID->"633c278f-0845-b040-a3c1-c1dcf6fe85b6"], +Cell[321907, 8052, 21753, 403, 233, "Output",ExpressionUUID->"cb86e1ab-70ea-6c43-881e-8c53f62f4c65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343697, 8460, 1616, 48, 106, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[345316, 8510, 609, 12, 85, "Message",ExpressionUUID->"9ead6d1c-335e-454e-aeee-dcf3978fc1c0"], +Cell[345928, 8524, 614, 12, 85, "Message",ExpressionUUID->"5d6dcb50-60e0-7340-b54b-a39568045b64"], +Cell[346545, 8538, 613, 12, 85, "Message",ExpressionUUID->"4d7bc420-5827-3349-b005-4f4482eda6bd"], +Cell[347161, 8552, 481, 10, 26, "Message",ExpressionUUID->"ac4a8133-e244-d542-803a-8ac1b553f090"], +Cell[347645, 8564, 193, 3, 32, "Output",ExpressionUUID->"57fb25bd-55dd-f840-bef0-20eabb613a7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347875, 8572, 2272, 64, 223, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[350150, 8638, 580, 12, 66, "Message",ExpressionUUID->"c32fe16e-219b-fb43-9734-1fe013707da1"], +Cell[350733, 8652, 585, 12, 66, "Message",ExpressionUUID->"5148a9ad-7cc5-664a-84e8-592844450297"], +Cell[351321, 8666, 588, 12, 66, "Message",ExpressionUUID->"f22cbd20-bfc5-574b-8252-d3525d3ef92f"], +Cell[351912, 8680, 481, 10, 26, "Message",ExpressionUUID->"7de69b8c-ab5b-1140-a4da-02371d510e1b"], +Cell[352396, 8692, 193, 3, 32, "Output",ExpressionUUID->"b6889da1-f351-0d4c-a787-4ed59abc1d8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352626, 8700, 2244, 64, 162, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[354873, 8766, 584, 12, 66, "Message",ExpressionUUID->"6380235d-d187-b84f-8c3f-cad0d188ae3d"], +Cell[355460, 8780, 587, 12, 66, "Message",ExpressionUUID->"b4cd341e-c44b-a442-bcf9-ce30b25ca416"], +Cell[356050, 8794, 588, 12, 66, "Message",ExpressionUUID->"0f5b78bd-3294-fb4e-8ccd-273f8b6216e4"], +Cell[356641, 8808, 483, 10, 26, "Message",ExpressionUUID->"e02b549d-fbf5-c848-8421-3c88ec32f8e5"], +Cell[357127, 8820, 194, 3, 32, "Output",ExpressionUUID->"d2e52c3b-e49f-4c47-9ff5-6c2de7e71f88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357358, 8828, 2243, 64, 162, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[359604, 8894, 582, 12, 66, "Message",ExpressionUUID->"492fc68d-4929-5641-b00a-01359285ae34"], +Cell[360189, 8908, 587, 12, 66, "Message",ExpressionUUID->"c10bebde-685d-ae47-b7bc-baa1cc4bb377"], +Cell[360779, 8922, 590, 12, 66, "Message",ExpressionUUID->"126c7962-f6a3-6146-ba37-cfb5eb4e7304"], +Cell[361372, 8936, 480, 10, 26, "Message",ExpressionUUID->"abc7d5cb-e406-5d48-a37e-f962ff210587"], +Cell[361855, 8948, 194, 3, 32, "Output",ExpressionUUID->"6ca19365-e471-a84c-a932-b67988535089"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362086, 8956, 236, 6, 47, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[362325, 8964, 193, 3, 32, "Output",ExpressionUUID->"181d9e35-e4c9-6244-b250-1170d6521644"] +}, Open ]], +Cell[362533, 8970, 269, 6, 70, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[362827, 8980, 558, 19, 52, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[363388, 9001, 192, 3, 32, "Output",ExpressionUUID->"24871a09-0837-2c4c-bea3-cf6f45112bce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363617, 9009, 170, 5, 56, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[363790, 9016, 197, 3, 32, "Output",ExpressionUUID->"7f3fca5a-a421-f243-9a79-f3958475875b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364024, 9024, 181, 5, 43, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[364208, 9031, 193, 3, 32, "Output",ExpressionUUID->"20693df6-d4fe-d946-8f4f-b1aed2f90c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364438, 9039, 6055, 185, 491, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[370496, 9226, 197, 3, 32, "Output",ExpressionUUID->"5dda040b-0459-be41-984c-b76b0b167e48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370730, 9234, 368, 9, 42, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[371101, 9245, 196, 3, 32, "Output",ExpressionUUID->"dfa00e38-b7b4-b74a-b572-5a173cc68127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371334, 9253, 6122, 187, 512, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[377459, 9442, 197, 3, 32, "Output",ExpressionUUID->"b88e2843-1de8-944d-bae4-57f702400b3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377693, 9450, 368, 9, 42, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[378064, 9461, 194, 3, 32, "Output",ExpressionUUID->"0c257df5-6912-f548-ab3d-e542a8ebf573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378295, 9469, 2663, 88, 165, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[380961, 9559, 194, 3, 32, "Output",ExpressionUUID->"54a3c398-c96b-5e4e-98db-8c8ccaec9552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381192, 9567, 2603, 85, 165, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[383798, 9654, 195, 3, 32, "Output",ExpressionUUID->"b3873d6a-d46d-e448-a2a6-ae97b0ce2748"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384030, 9662, 3712, 118, 294, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[387745, 9782, 197, 3, 32, "Output",ExpressionUUID->"21c026bd-c902-2c48-b902-1f0845978b14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387979, 9790, 2075, 59, 228, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[390057, 9851, 590, 12, 66, "Message",ExpressionUUID->"7f1e361f-c687-6a44-b166-11094a5ac237"], +Cell[390650, 9865, 593, 12, 85, "Message",ExpressionUUID->"3995c473-f58e-7546-8e9c-9d045b1f6fc2"], +Cell[391246, 9879, 596, 12, 85, "Message",ExpressionUUID->"ff176601-b2ac-1d4e-84dd-b9118765b625"], +Cell[391845, 9893, 481, 10, 26, "Message",ExpressionUUID->"387fa5dc-05fc-8e40-a405-385c724fdcde"], +Cell[392329, 9905, 193, 3, 32, "Output",ExpressionUUID->"4b525ade-6d6a-3643-9a56-de3169c0c634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392559, 9913, 2077, 59, 228, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[394639, 9974, 588, 12, 66, "Message",ExpressionUUID->"87f28515-3bb9-444d-b389-1588cdd5211d"], +Cell[395230, 9988, 593, 12, 85, "Message",ExpressionUUID->"e9eaaf52-b7bd-304f-b93c-cbe56932695a"], +Cell[395826, 10002, 596, 12, 85, "Message",ExpressionUUID->"fbb6398f-1b8a-8a48-a24f-702ad013bb7d"], +Cell[396425, 10016, 481, 10, 26, "Message",ExpressionUUID->"350f4a3f-42cd-ef4d-8cd2-aadaa2d4d65c"], +Cell[396909, 10028, 191, 3, 32, "Output",ExpressionUUID->"42c623d6-1380-7a4b-857e-702021aa5d8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397137, 10036, 2053, 55, 131, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[399193, 10093, 20411, 384, 237, "Output",ExpressionUUID->"5071bc06-cbc3-1243-9468-9b53dbd68981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419641, 10482, 2164, 61, 211, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[421808, 10545, 520, 11, 60, "Message",ExpressionUUID->"bf587f4c-b294-2f4c-a7c5-3f917878662b"], +Cell[422331, 10558, 525, 11, 60, "Message",ExpressionUUID->"e9f65977-db34-ad43-b6fb-c5022b815d29"], +Cell[422859, 10571, 527, 11, 60, "Message",ExpressionUUID->"1033fcfb-2941-4d45-9f2a-809e1ea840e4"], +Cell[423389, 10584, 478, 10, 26, "Message",ExpressionUUID->"fde05446-9afb-3844-bb77-da9b6964721c"], +Cell[423870, 10596, 22451, 415, 238, "Output",ExpressionUUID->"63920837-9763-ec40-a084-031ca4fb84fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446358, 11016, 164, 4, 42, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[446525, 11022, 28408, 539, 238, "Output",ExpressionUUID->"c6d2d566-a6cf-d449-9ca2-829cb8ede854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474970, 11566, 1616, 48, 106, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[476589, 11616, 614, 12, 85, "Message",ExpressionUUID->"2f31f5fb-56dc-9043-becb-252ed3abac1f"], +Cell[477206, 11630, 617, 12, 85, "Message",ExpressionUUID->"51a1d65f-ee46-b548-8ba0-340c7b91a261"], +Cell[477826, 11644, 618, 12, 85, "Message",ExpressionUUID->"5efd8001-25bf-694c-92ed-7a4ece778a79"], +Cell[478447, 11658, 481, 10, 26, "Message",ExpressionUUID->"6fc12fd7-53c1-7340-9a95-be77c5704a91"], +Cell[478931, 11670, 194, 3, 32, "Output",ExpressionUUID->"edb186d5-9be3-c542-8e8f-05bf07836749"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479162, 11678, 2274, 64, 223, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[481439, 11744, 588, 12, 66, "Message",ExpressionUUID->"47299ee8-9036-2e42-8fcd-352a65d6ca49"], +Cell[482030, 11758, 593, 12, 85, "Message",ExpressionUUID->"29b5c5a7-0ec1-294c-8aff-08f4de5db46a"], +Cell[482626, 11772, 596, 12, 85, "Message",ExpressionUUID->"f52d129d-de24-f747-b6a4-e4536e06a182"], +Cell[483225, 11786, 479, 10, 26, "Message",ExpressionUUID->"5828916e-fac0-7945-a9d4-0b92741a8c81"], +Cell[483707, 11798, 195, 3, 32, "Output",ExpressionUUID->"a7d39d00-c729-1240-81c1-b1261e768f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483939, 11806, 2246, 64, 162, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[486188, 11872, 590, 12, 66, "Message",ExpressionUUID->"8664a5d7-7bc7-fa44-96c9-a51374515748"], +Cell[486781, 11886, 593, 12, 85, "Message",ExpressionUUID->"4fa7f6cb-4cf0-864e-ad39-9f6a03c4df9d"], +Cell[487377, 11900, 596, 12, 85, "Message",ExpressionUUID->"446ef805-4ac7-184e-b72f-4ec223821853"], +Cell[487976, 11914, 481, 10, 26, "Message",ExpressionUUID->"518afbdd-2d9f-2a4e-8b84-abc144c22258"], +Cell[488460, 11926, 194, 3, 32, "Output",ExpressionUUID->"96f1d3c8-0b2e-fd44-9a28-3fa438ca5280"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488691, 11934, 2246, 64, 162, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[490940, 12000, 585, 12, 66, "Message",ExpressionUUID->"d271415b-be3b-4e49-a83e-2558698d8a5d"], +Cell[491528, 12014, 590, 12, 85, "Message",ExpressionUUID->"d5e40d2a-3a3e-6c4f-8422-5668488c75e4"], +Cell[492121, 12028, 593, 12, 85, "Message",ExpressionUUID->"c4c3f223-246c-884c-929c-22fdc83147ca"], +Cell[492717, 12042, 480, 10, 26, "Message",ExpressionUUID->"fccd8000-8237-4d49-81ab-73a41b949c94"], +Cell[493200, 12054, 196, 3, 32, "Output",ExpressionUUID->"fc84b9d7-1d83-874b-b942-bf7eab16c70f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493433, 12062, 234, 6, 47, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[493670, 12070, 196, 3, 32, "Output",ExpressionUUID->"cda5b510-bfa2-2445-99c5-f50bc762e4c5"] +}, Open ]], +Cell[493881, 12076, 268, 6, 70, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[494174, 12086, 558, 19, 52, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[494735, 12107, 192, 3, 32, "Output",ExpressionUUID->"09af0345-82d3-b443-af9b-47796f52cf02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494964, 12115, 170, 5, 56, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[495137, 12122, 191, 3, 32, "Output",ExpressionUUID->"b5af1740-ad49-c84f-8906-3c2c249194a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495365, 12130, 181, 5, 43, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[495549, 12137, 194, 3, 32, "Output",ExpressionUUID->"64c3f5ff-bcb4-964c-855a-377f22221041"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495780, 12145, 6055, 185, 491, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[501838, 12332, 197, 3, 32, "Output",ExpressionUUID->"b406a427-634b-5749-ae94-a2112d7bca4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502072, 12340, 368, 9, 42, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[502443, 12351, 197, 3, 32, "Output",ExpressionUUID->"23d6e328-32b4-144b-ab17-f6b96e75f2d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502677, 12359, 6122, 187, 512, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[508802, 12548, 197, 3, 32, "Output",ExpressionUUID->"908f486e-d190-a54e-8f58-a22f3c0b1ce4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509036, 12556, 368, 9, 42, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[509407, 12567, 196, 3, 32, "Output",ExpressionUUID->"6814996f-8973-4d40-8084-c618de5876c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509640, 12575, 2663, 88, 165, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[512306, 12665, 196, 3, 32, "Output",ExpressionUUID->"4cd3010a-1fc8-f94f-84db-31b2c02edb9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512539, 12673, 2603, 85, 165, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[515145, 12760, 195, 3, 32, "Output",ExpressionUUID->"766b7570-88fc-cc43-b7eb-c3feec257f00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515377, 12768, 3712, 118, 294, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[519092, 12888, 194, 3, 32, "Output",ExpressionUUID->"01635445-5597-9a42-bb91-5597f95e91ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519323, 12896, 2075, 59, 228, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[521401, 12957, 575, 12, 84, "Message",ExpressionUUID->"8b529b2d-de81-3847-a743-0241845d4ae7"], +Cell[521979, 12971, 577, 12, 66, "Message",ExpressionUUID->"d51f9521-ba7a-2c4e-84d0-d7f35525063c"], +Cell[522559, 12985, 583, 12, 66, "Message",ExpressionUUID->"f8c90b6e-dd0f-4140-8331-6a6fc8a9bfbe"], +Cell[523145, 12999, 481, 10, 26, "Message",ExpressionUUID->"b40ac3ba-15ea-2c4b-941b-bd7f39f1bf16"], +Cell[523629, 13011, 194, 3, 32, "Output",ExpressionUUID->"3c3f8977-5b98-0f42-85fa-29fe5740fbd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523860, 13019, 2075, 59, 228, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[525938, 13080, 577, 12, 84, "Message",ExpressionUUID->"57be92ad-14aa-b243-86ea-85b509475de2"], +Cell[526518, 13094, 581, 12, 66, "Message",ExpressionUUID->"a2161a8c-2e50-3049-86fa-c994860dd7a4"], +Cell[527102, 13108, 583, 12, 66, "Message",ExpressionUUID->"ae85df33-7282-7841-97d4-783d8b179790"], +Cell[527688, 13122, 481, 10, 26, "Message",ExpressionUUID->"01616bbe-b94e-9848-8cd2-4067e8431de2"], +Cell[528172, 13134, 196, 3, 32, "Output",ExpressionUUID->"2a180166-ada6-d14f-b999-f52873df9e63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528405, 13142, 2053, 55, 131, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[530461, 13199, 20272, 381, 237, "Output",ExpressionUUID->"d930f671-2311-034f-b3cc-881eb83dee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550770, 13585, 2170, 61, 211, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[552943, 13648, 522, 11, 60, "Message",ExpressionUUID->"7e238414-c4c3-544a-aa69-5857b2b97f57"], +Cell[553468, 13661, 525, 11, 60, "Message",ExpressionUUID->"787dbd82-eb8a-6a4c-a96e-c261fff01ca2"], +Cell[553996, 13674, 527, 11, 60, "Message",ExpressionUUID->"869f8801-27ee-414d-9d0c-33933f262f2d"], +Cell[554526, 13687, 483, 10, 26, "Message",ExpressionUUID->"03b17ce6-e4eb-d04c-ab85-ac922d1cbb87"], +Cell[555012, 13699, 22252, 412, 233, "Output",ExpressionUUID->"c98a24a4-262b-1546-9931-8b9c71b29512"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577301, 14116, 280, 6, 42, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[577584, 14124, 28263, 537, 233, "Output",ExpressionUUID->"77b8cd91-913e-854c-8f05-acf62a4e4d4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605884, 14666, 1616, 48, 106, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[607503, 14716, 581, 12, 85, "Message",ExpressionUUID->"cb1b1612-c88a-e640-97c2-096c3a89de53"], +Cell[608087, 14730, 586, 12, 85, "Message",ExpressionUUID->"578b9543-ef4d-9f43-9741-58424d384418"], +Cell[608676, 14744, 589, 12, 85, "Message",ExpressionUUID->"a8944f24-ca10-2642-8ff6-95a2c643e7b3"], +Cell[609268, 14758, 457, 10, 26, "Message",ExpressionUUID->"70402fd9-6936-f142-b9fe-06f405102c01"], +Cell[609728, 14770, 173, 3, 32, "Output",ExpressionUUID->"77d2f405-7db9-784c-9d40-fa6b5d21f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609938, 14778, 2272, 64, 223, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[612213, 14844, 553, 12, 84, "Message",ExpressionUUID->"5c429ad7-8ab3-2b4f-93e3-e71d92f026af"], +Cell[612769, 14858, 555, 12, 66, "Message",ExpressionUUID->"a807511f-cbff-9a49-a43a-8e871cebc400"], +Cell[613327, 14872, 561, 12, 66, "Message",ExpressionUUID->"d3ec8978-b52a-7444-b5fa-9fc561b1eb00"], +Cell[613891, 14886, 459, 10, 26, "Message",ExpressionUUID->"158fd922-dd8a-2d43-9b07-85e8113c9dc7"], +Cell[614353, 14898, 172, 3, 32, "Output",ExpressionUUID->"6026ee30-d2fc-3c48-b8ca-90a6590863e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614562, 14906, 2242, 64, 162, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[616807, 14972, 551, 12, 84, "Message",ExpressionUUID->"474cded1-dc21-c348-8b86-2b6721cd32a3"], +Cell[617361, 14986, 557, 12, 66, "Message",ExpressionUUID->"30e1c38c-298c-3843-a2c6-ed2b4ab79038"], +Cell[617921, 15000, 559, 12, 66, "Message",ExpressionUUID->"db96d1e6-293b-634b-8252-05d6e2262b50"], +Cell[618483, 15014, 457, 10, 26, "Message",ExpressionUUID->"70fc1fd6-f450-ac4c-9dab-d8df76bbcf50"], +Cell[618943, 15026, 173, 3, 32, "Output",ExpressionUUID->"505de306-11f1-0e4c-9d2a-c3c04b783a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619153, 15034, 2243, 64, 162, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[621399, 15100, 551, 12, 84, "Message",ExpressionUUID->"a697a3ca-907a-5e4d-ba7b-436f44a0ba97"], +Cell[621953, 15114, 555, 12, 66, "Message",ExpressionUUID->"e999cfd7-f5e5-274e-95e0-64da0803e59d"], +Cell[622511, 15128, 561, 12, 66, "Message",ExpressionUUID->"298fbb42-9db6-bd42-b53c-fa87d80dc597"], +Cell[623075, 15142, 457, 10, 26, "Message",ExpressionUUID->"3dd222b8-60ab-8646-942d-5c30e1a6e3e4"], +Cell[623535, 15154, 173, 3, 32, "Output",ExpressionUUID->"edba7152-e621-e549-b5a0-47798b7066c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623745, 15162, 236, 6, 47, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[623984, 15170, 173, 3, 32, "Output",ExpressionUUID->"8cb2ae06-1afa-f148-ba81-fd23e66fbde1"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb new file mode 100755 index 0000000..52d7f43 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb @@ -0,0 +1,14650 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 603746, 14642] +NotebookOptionsPosition[ 564633, 14020] +NotebookOutlinePosition[ 565062, 14037] +CellTagsIndexPosition[ 565019, 14034] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"abd86cb7-8f5e-ab4f-81e8-\ +1ce058c5d564"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"1f5034f4-06ca-1743-9e93-482699fe5b37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"c4ce3e9e-ebde-c949-b0e7-981db643bfce"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"b2af310a-3fd7-604c-8e7e-55148bbf38fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"75575236-1994-1044-b248-d79b5cc3910b"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"6c4d2313-2dd8-9d4f-9189-c557d2a0dcbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"cefd9aef-602f-4e45-b3f3-5cf390b6524a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"9ba3e660-60bd-f442-b768-9dac89e3afff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"794fa728-53d0-cb46-ae8a-8ed9df229aa4"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"919b4f81-8a7b-e54a-99bc-7d88d091ce49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"71591d04-5aad-7f4a-ab53-857c504e6386"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"49d65543-a10b-3340-a5d2-ab16c865d6ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"acf22dc1-6ddb-1240-ab76-b6cd91d4a7e7"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"e8e35802-253e-0c44-a86f-6dfe9f2a7a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"c6474798-b5d8-7f4f-a4fd-52dfe623fe27"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"a9c46dcd-97a7-0a40-b7b7-a34b15e4a8d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"a3be1a61-6f7b-1b46-8cee-0f0fc636ece6"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"edc019ae-580c-9843-816a-b3c1898d5abc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"f957bc10-97c4-9540-8afc-52167bc6ad39"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"1f5d041a-07ec-4d48-aa6a-b31d3f87c20c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"7bc740b0-2227-4c44-ae04-7c66f299656a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"f0ae19b4-a03a-4344-96ac-3ce4ad39fbb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"3fa0525d-3a2f-7c4c-b26b-325cb1defc9c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"289cd65f-873d-d645-a14e-26626fd4d764"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"5ede2694-a846-c54a-a2fc-d9d66e8d90eb"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"19038b50-861a-8c4f-adf2-b42201802494"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"d294bbe8-e09a-104f-8c32-6ef3bc4c1e9b"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"8a093c2e-7385-3545-b36b-01e26b45c650"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"cd6017dc-60d0-1e48-a7e3-38f30b39b586"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"a0ab726b-5854-0f41-bfbc-ea5621bc1602"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"046dc305-2679-b04c-80ff-7cd29bb87c69"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"73fc7f10-0604-574e-ba89-556826711b62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"39b0875a-0116-9548-98fa-5b7e713c0b7b"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"ebc8c846-d840-b640-82d8-da5d86637c23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"874fe7be-0d65-7346-87d4-2e38f24dc13b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"6c412c26-336a-264d-ab3d-ae18cd238d7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"b39e5201-de3b-cc44-962a-f137c1976294"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"83a7e8ab-578a-5f4f-b0b3-9c3a942a7982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"85600bee-6d85-5a47-97a3-1c06fb6183cd"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c035bbda-af60-e04b-bd57-3f36d047eef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"07fd6f8c-06f9-4c43-b25c-ed501498311c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"9cfc9022-d46f-2846-9a2a-b2a17ba7dc93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"96fdbbce-6359-dc42-ac86-92630fd25566"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"1e79eff8-b740-0645-8d29-9ab4e1543d49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"8afc23d0-5788-ea4c-852f-4b5cd573c684"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"02ba2005-9529-6849-867a-05b65adcc5a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"7ba54fac-6d17-3a43-9d29-3851a40969b8"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"a72eb724-c6ed-ad44-8271-6ce13d2a8d8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"fc92494c-fcac-0548-80c0-cb8a368d1d97"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"590cd4af-e85d-a34b-bb70-eb4f42805786"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"6e9b5d23-d834-9247-b4e9-73fb513327f2"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"60fe4e95-33b9-a444-bb42-8c3fe6a071bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"806c9335-4c02-5547-916e-883e63b6fff2"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"cfa08889-410e-ef4c-9487-715c100a45c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"cea7d8cd-d5eb-9349-83f9-c96ad4a877b1"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"9a1df932-4549-1144-9c0e-8ce44caf5e4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"c53d36fa-5b71-714f-8c7f-1e295b30d067"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"fd85cd6b-9a6d-c042-9be2-50812d9af8e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"2a64dfd5-dfa4-c64e-9be1-bf92b0ec93cb"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"7fa941ce-fe3e-3248-8996-3d29d66e1e5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"5086dfd3-8239-7c4b-bb8b-e0ab9b202df0"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"9f868de0-46b3-a842-a9b8-346b4e041e12"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"9ae3cba7-76d3-f042-85ba-1169183fad1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"9c3830e1-cf5c-3548-abaf-72f47ffc7b0b"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"6f2fba4f-4b96-d746-9d08-a14a8099a971"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"77646442-22cc-ed49-86bc-4f554c84cfa2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"ad9d1b61-ec8c-f842-93bc-b30fee3f757b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"cd591d3d-8644-4446-a7ce-1d9525b3e74a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"b7ba7664-fffa-1e4c-889c-55437550adbe"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"90b3d005-268c-ec4b-9fca-322959c9fe7b"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"f46d2948-e91c-f946-9834-214d9fa80b93"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"5b643a7a-026d-f948-bc21-774fca72af7e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"1ec6d3d4-5b5c-7c46-a4ef-4bc9c7220053"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"ee4f9bca-18f4-6646-a267-b2ea2c8e035b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"bbda16eb-8996-224b-926e-54c4b4fec01b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"d00d46b1-52b5-3d42-85ad-3e37e9b2ed93"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"4015bbcc-647a-ca49-86c7-47096ead374e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"6b1f0b43-2635-4449-837d-a5b040083797"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"3bb51f6f-45b9-c344-9da1-ea022bc7d8f9"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"9664e140-7937-2847-9db8-5c547f0b3905"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"367c3fa5-a73f-344f-845d-961b336f4d46"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"8d8efd6c-638a-1a42-9a07-7f11cd3c4e83"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"088bfb6c-e28b-0c48-b707-632ceabf40c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"986c73f7-8560-cd4a-8414-8fa157076bcd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"fc81cb86-dc5d-234b-90dc-01befa0d2354"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"686eadf7-df7c-df49-97a5-6fbe59efb139"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"82ef2f5e-29c0-8a48-9e9c-429d0ce776f2"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"7cc9b760-db60-a64c-bf97-0197e67e5fd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"0a34c2da-ffdd-4d49-aadd-8fbf347080d1"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"0b90be3e-f1cd-2a4d-880e-45478f6832de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"0b47fdba-5857-5042-9813-489e9e01fcb8"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"0e298add-0ecb-f249-9a7e-613378004461"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"6b4e7e51-a4a4-5046-bcc6-b4985ab3133c"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"8bf37379-0d8b-114d-bc43-49dfbbd64b57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"104120e6-9442-3146-a14e-893a34d3e2ae"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"b1fc263d-299f-8f46-b4f9-8535227da29d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"5f4a1870-ca76-0148-9445-c139b77d17e6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"dc631fb6-6f2d-6b4a-bada-b47e4891e25b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"bf36608e-3a41-9d4e-9975-c9a29ed56893"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"05eb3f7c-41c9-8646-be48-cc4a1e296578"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"d6f6a0f4-8b00-474d-a186-5a3062af590c"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"fddf8bdf-f9bd-3c46-9715-74c862e0d07d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"b47804d5-7f1e-9549-b69a-a3f99dbcdbad"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"6747aa6d-4786-f64b-9c35-bcc5100296d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"698c36f8-6b4c-f44b-ad8e-83fd3aede31a"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"58fe0885-04de-e848-b666-1cb90cacbe1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"26e08360-187b-be4e-a6a2-1ed01e706cc9"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"45a2a7a1-f6e9-7f4f-8b72-c7af94332838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"a891781b-aa40-6f46-96f7-4bfb5fd329fc"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"4e939564-a724-1241-b382-2ed1562ccdef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"fed7420f-18a5-bc4c-b415-7a5cdb43f707"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"fdd78615-cc8a-b644-8af3-a4427464bd27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"02b016f6-7d34-1146-b008-bbc3852e43f0"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"ffdeedb1-9489-2b43-985d-5a8174881956"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"6a211183-0ca3-074d-9bf4-f64020aaf3d6"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"7f41f7c9-3f7c-644a-a034-9364f141c2a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"20bdd366-9d07-4542-a165-b84f0310a4c8"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"dd529d82-775a-e44e-9c3c-1567bbd3e7e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"4772cd46-2466-0d42-8c6a-35e036dcbdc9"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"ff984ea0-1294-364f-8bf8-d722928857f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"96e4e48b-8a6c-df43-bdef-e8984c319123"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"618bdeba-819f-4d4a-be4d-764355779140"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"01bca175-ab28-414f-aa32-3b0ab2383cac"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"afdfeb61-58d5-c048-bd64-49ffe1cccd32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"6fcfbee3-e475-8c4f-805b-cbe89d5088b2"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"17a5afe5-8190-8a4a-a090-d48decb730ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"e0f35dcd-b6c9-3a4f-8cfa-25c42e489de0"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"bf5bfcf8-0a9c-1842-ba52-f56bd5d01773"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"e26ae6b3-264b-8448-8f90-c304ef77d072"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"eb575188-4fe4-6148-bd64-4b30eef2ca07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"214d2709-cff2-0147-9b6b-c8addf97163e"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"6c2a8912-47b9-6d47-821d-bfdabd5cb5d9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.349801967763318"}]], "Input", + CellChangeTimes->{3.991849227197853*^9, + 3.992093481789543*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ +2dda1d801f63"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, + 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ +14a272e65d1f"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.22451670858291"}]], "Input", + CellChangeTimes->{3.9918492290557346`*^9, + 3.9920934854014072`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ +53babaa73a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ +7d040d3b48f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ +63ec36d318ad"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ +c117a27ff3e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933637716217`*^9},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ +598d0b6835be"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ +45830eedfe9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ +303d815946e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ +1a175f609f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918493065908413`*^9, + 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ +4de4791db2f4"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, + 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ +749729cd7104"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ +c889dba5c0d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ +23ddab00799c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ +31d165f1571c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ +e4dea0353ed0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ +547e3a6fa152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ +c3e0f6ab8836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918494889040737`*^9, + 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ +e20e260dbdcb"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, + 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ +c31719ef3a6b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ +8a461d652ab4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ +6a7de047241d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ +ae1cb915c656"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ +0895c02ffd8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ +bead95265db8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ +f19508c6d2f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849569404436*^9, + 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ +346c5f5ac532"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"abd86cb7-8f5e-ab4f-81e8-1ce058c5d564"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"1f5034f4-06ca-1743-9e93-482699fe5b37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"c4ce3e9e-ebde-c949-b0e7-981db643bfce"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"b2af310a-3fd7-604c-8e7e-55148bbf38fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"75575236-1994-1044-b248-d79b5cc3910b"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"6c4d2313-2dd8-9d4f-9189-c557d2a0dcbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"cefd9aef-602f-4e45-b3f3-5cf390b6524a"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"9ba3e660-60bd-f442-b768-9dac89e3afff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"794fa728-53d0-cb46-ae8a-8ed9df229aa4"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"919b4f81-8a7b-e54a-99bc-7d88d091ce49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"71591d04-5aad-7f4a-ab53-857c504e6386"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"49d65543-a10b-3340-a5d2-ab16c865d6ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"acf22dc1-6ddb-1240-ab76-b6cd91d4a7e7"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"e8e35802-253e-0c44-a86f-6dfe9f2a7a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"c6474798-b5d8-7f4f-a4fd-52dfe623fe27"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"a9c46dcd-97a7-0a40-b7b7-a34b15e4a8d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"a3be1a61-6f7b-1b46-8cee-0f0fc636ece6"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"edc019ae-580c-9843-816a-b3c1898d5abc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"f957bc10-97c4-9540-8afc-52167bc6ad39"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"1f5d041a-07ec-4d48-aa6a-b31d3f87c20c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"7bc740b0-2227-4c44-ae04-7c66f299656a"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"f0ae19b4-a03a-4344-96ac-3ce4ad39fbb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"3fa0525d-3a2f-7c4c-b26b-325cb1defc9c"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"289cd65f-873d-d645-a14e-26626fd4d764"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"5ede2694-a846-c54a-a2fc-d9d66e8d90eb"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"19038b50-861a-8c4f-adf2-b42201802494"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"d294bbe8-e09a-104f-8c32-6ef3bc4c1e9b"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"8a093c2e-7385-3545-b36b-01e26b45c650"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"cd6017dc-60d0-1e48-a7e3-38f30b39b586"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"a0ab726b-5854-0f41-bfbc-ea5621bc1602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"046dc305-2679-b04c-80ff-7cd29bb87c69"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"73fc7f10-0604-574e-ba89-556826711b62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"39b0875a-0116-9548-98fa-5b7e713c0b7b"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"ebc8c846-d840-b640-82d8-da5d86637c23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"874fe7be-0d65-7346-87d4-2e38f24dc13b"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"6c412c26-336a-264d-ab3d-ae18cd238d7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"b39e5201-de3b-cc44-962a-f137c1976294"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"83a7e8ab-578a-5f4f-b0b3-9c3a942a7982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"85600bee-6d85-5a47-97a3-1c06fb6183cd"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c035bbda-af60-e04b-bd57-3f36d047eef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"07fd6f8c-06f9-4c43-b25c-ed501498311c"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"9cfc9022-d46f-2846-9a2a-b2a17ba7dc93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"96fdbbce-6359-dc42-ac86-92630fd25566"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"1e79eff8-b740-0645-8d29-9ab4e1543d49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"8afc23d0-5788-ea4c-852f-4b5cd573c684"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"02ba2005-9529-6849-867a-05b65adcc5a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"7ba54fac-6d17-3a43-9d29-3851a40969b8"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"a72eb724-c6ed-ad44-8271-6ce13d2a8d8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"fc92494c-fcac-0548-80c0-cb8a368d1d97"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"590cd4af-e85d-a34b-bb70-eb4f42805786"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"6e9b5d23-d834-9247-b4e9-73fb513327f2"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"60fe4e95-33b9-a444-bb42-8c3fe6a071bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"806c9335-4c02-5547-916e-883e63b6fff2"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"cfa08889-410e-ef4c-9487-715c100a45c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"cea7d8cd-d5eb-9349-83f9-c96ad4a877b1"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"9a1df932-4549-1144-9c0e-8ce44caf5e4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"c53d36fa-5b71-714f-8c7f-1e295b30d067"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"fd85cd6b-9a6d-c042-9be2-50812d9af8e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"2a64dfd5-dfa4-c64e-9be1-bf92b0ec93cb"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"7fa941ce-fe3e-3248-8996-3d29d66e1e5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"5086dfd3-8239-7c4b-bb8b-e0ab9b202df0"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"9f868de0-46b3-a842-a9b8-346b4e041e12"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"9ae3cba7-76d3-f042-85ba-1169183fad1c"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"9c3830e1-cf5c-3548-abaf-72f47ffc7b0b"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"6f2fba4f-4b96-d746-9d08-a14a8099a971"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"77646442-22cc-ed49-86bc-4f554c84cfa2"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"ad9d1b61-ec8c-f842-93bc-b30fee3f757b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"cd591d3d-8644-4446-a7ce-1d9525b3e74a"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"b7ba7664-fffa-1e4c-889c-55437550adbe"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"90b3d005-268c-ec4b-9fca-322959c9fe7b"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"f46d2948-e91c-f946-9834-214d9fa80b93"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"5b643a7a-026d-f948-bc21-774fca72af7e"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"1ec6d3d4-5b5c-7c46-a4ef-4bc9c7220053"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"ee4f9bca-18f4-6646-a267-b2ea2c8e035b"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"bbda16eb-8996-224b-926e-54c4b4fec01b"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"d00d46b1-52b5-3d42-85ad-3e37e9b2ed93"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"4015bbcc-647a-ca49-86c7-47096ead374e"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"6b1f0b43-2635-4449-837d-a5b040083797"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"3bb51f6f-45b9-c344-9da1-ea022bc7d8f9"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"9664e140-7937-2847-9db8-5c547f0b3905"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"367c3fa5-a73f-344f-845d-961b336f4d46"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"8d8efd6c-638a-1a42-9a07-7f11cd3c4e83"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"088bfb6c-e28b-0c48-b707-632ceabf40c4"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"986c73f7-8560-cd4a-8414-8fa157076bcd"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"fc81cb86-dc5d-234b-90dc-01befa0d2354"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"686eadf7-df7c-df49-97a5-6fbe59efb139"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"82ef2f5e-29c0-8a48-9e9c-429d0ce776f2"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"7cc9b760-db60-a64c-bf97-0197e67e5fd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"0a34c2da-ffdd-4d49-aadd-8fbf347080d1"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"0b90be3e-f1cd-2a4d-880e-45478f6832de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"0b47fdba-5857-5042-9813-489e9e01fcb8"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"0e298add-0ecb-f249-9a7e-613378004461"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"6b4e7e51-a4a4-5046-bcc6-b4985ab3133c"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"8bf37379-0d8b-114d-bc43-49dfbbd64b57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"104120e6-9442-3146-a14e-893a34d3e2ae"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"b1fc263d-299f-8f46-b4f9-8535227da29d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"5f4a1870-ca76-0148-9445-c139b77d17e6"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"dc631fb6-6f2d-6b4a-bada-b47e4891e25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"bf36608e-3a41-9d4e-9975-c9a29ed56893"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"05eb3f7c-41c9-8646-be48-cc4a1e296578"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"d6f6a0f4-8b00-474d-a186-5a3062af590c"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"fddf8bdf-f9bd-3c46-9715-74c862e0d07d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"b47804d5-7f1e-9549-b69a-a3f99dbcdbad"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"6747aa6d-4786-f64b-9c35-bcc5100296d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"698c36f8-6b4c-f44b-ad8e-83fd3aede31a"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"58fe0885-04de-e848-b666-1cb90cacbe1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"26e08360-187b-be4e-a6a2-1ed01e706cc9"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"45a2a7a1-f6e9-7f4f-8b72-c7af94332838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"a891781b-aa40-6f46-96f7-4bfb5fd329fc"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"4e939564-a724-1241-b382-2ed1562ccdef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"fed7420f-18a5-bc4c-b415-7a5cdb43f707"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"fdd78615-cc8a-b644-8af3-a4427464bd27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"02b016f6-7d34-1146-b008-bbc3852e43f0"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"ffdeedb1-9489-2b43-985d-5a8174881956"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"6a211183-0ca3-074d-9bf4-f64020aaf3d6"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"7f41f7c9-3f7c-644a-a034-9364f141c2a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"20bdd366-9d07-4542-a165-b84f0310a4c8"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"dd529d82-775a-e44e-9c3c-1567bbd3e7e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"4772cd46-2466-0d42-8c6a-35e036dcbdc9"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"ff984ea0-1294-364f-8bf8-d722928857f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"96e4e48b-8a6c-df43-bdef-e8984c319123"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"618bdeba-819f-4d4a-be4d-764355779140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"01bca175-ab28-414f-aa32-3b0ab2383cac"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"afdfeb61-58d5-c048-bd64-49ffe1cccd32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"6fcfbee3-e475-8c4f-805b-cbe89d5088b2"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"17a5afe5-8190-8a4a-a090-d48decb730ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"e0f35dcd-b6c9-3a4f-8cfa-25c42e489de0"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"bf5bfcf8-0a9c-1842-ba52-f56bd5d01773"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"e26ae6b3-264b-8448-8f90-c304ef77d072"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"eb575188-4fe4-6148-bd64-4b30eef2ca07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"214d2709-cff2-0147-9b6b-c8addf97163e"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"6c2a8912-47b9-6d47-821d-bfdabd5cb5d9"] +}, Open ]], +Cell[187709, 4988, 190, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[187902, 4994, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[188059, 4999, 193, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[188255, 5005, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[188432, 5012, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[189736, 5057, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189951, 5065, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[190864, 5098, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191076, 5106, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[191964, 5138, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192178, 5146, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[192739, 5167, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192949, 5175, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[193575, 5198, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193782, 5206, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[193955, 5213, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194165, 5221, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[194338, 5228, 170, 3, 32, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194545, 5236, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[194729, 5243, 171, 3, 32, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194937, 5251, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[195121, 5258, 173, 3, 32, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195331, 5266, 6055, 185, 498, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[201389, 5453, 175, 3, 32, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201601, 5461, 368, 9, 42, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[201972, 5472, 170, 3, 32, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202179, 5480, 6122, 187, 500, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[208304, 5669, 175, 3, 32, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208516, 5677, 368, 9, 42, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[208887, 5688, 172, 3, 32, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209096, 5696, 2663, 88, 187, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[211762, 5786, 173, 3, 32, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211972, 5794, 2603, 85, 165, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[214578, 5881, 172, 3, 32, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214787, 5889, 3712, 118, 348, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[218502, 6009, 174, 3, 32, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[218691, 6015, 138, 3, 42, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[218854, 6022, 2052, 59, 228, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[220909, 6083, 524, 11, 60, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[221436, 6096, 526, 11, 60, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[221965, 6109, 530, 11, 60, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[222498, 6122, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[222956, 6134, 172, 3, 32, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223165, 6142, 2054, 59, 228, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[225222, 6203, 524, 11, 60, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[225749, 6216, 526, 11, 60, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[226278, 6229, 528, 11, 60, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[226809, 6242, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[227268, 6254, 170, 3, 32, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227475, 6262, 1938, 53, 115, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[229416, 6317, 19981, 375, 230, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249434, 6697, 2092, 60, 211, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[251529, 6759, 490, 11, 60, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[252022, 6772, 493, 11, 60, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[252518, 6785, 508, 11, 27, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[253029, 6798, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[253488, 6810, 61603, 1057, 233, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[315106, 7870, 2455, 69, 158, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[317564, 7941, 209, 5, 42, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[317798, 7950, 217, 7, 48, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[318018, 7959, 169, 3, 32, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318224, 7967, 1816, 53, 183, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[320043, 8022, 502, 11, 60, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[320548, 8035, 506, 11, 60, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[321057, 8048, 509, 11, 60, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[321569, 8061, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[322028, 8073, 28560, 514, 233, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350625, 8592, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[352244, 8642, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[352823, 8656, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[353408, 8670, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[353995, 8684, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[354456, 8696, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354663, 8704, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[356913, 8770, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[357438, 8783, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[357967, 8796, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[358498, 8809, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[358959, 8821, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359171, 8829, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[361395, 8895, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[361920, 8908, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[362447, 8921, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[362978, 8934, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[363439, 8946, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363646, 8954, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[365870, 9020, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[366397, 9033, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[366926, 9046, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[367459, 9059, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[367920, 9071, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368128, 9079, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[368346, 9087, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[368536, 9093, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[368806, 9102, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[369367, 9123, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369576, 9131, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[369749, 9138, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369958, 9146, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[370142, 9153, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370351, 9161, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[376409, 9348, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376620, 9356, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[376991, 9367, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377201, 9375, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[383326, 9564, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383538, 9572, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[383909, 9583, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384116, 9591, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[386782, 9681, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386992, 9689, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[389598, 9776, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389807, 9784, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[393522, 9904, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393733, 9912, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[395788, 9973, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[396365, 9987, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[396948, 10001, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[397533, 10015, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[397992, 10027, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398200, 10035, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[400257, 10096, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[400834, 10110, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[401415, 10124, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[402000, 10138, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[402461, 10150, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402667, 10158, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[404700, 10215, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[425041, 10599, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[427188, 10662, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[427351, 10669, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[428970, 10719, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[429565, 10733, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[430165, 10747, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[430767, 10761, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[431228, 10773, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431437, 10781, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[433689, 10847, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[434268, 10861, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[434851, 10875, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[435436, 10889, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[435895, 10901, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436103, 10909, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[438329, 10975, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[438906, 10989, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[439487, 11003, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[440070, 11017, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[440531, 11029, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440741, 11037, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[442965, 11103, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[443542, 11117, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[444123, 11131, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[444708, 11145, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[445166, 11157, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445373, 11165, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[445591, 11173, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[445780, 11179, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[446054, 11188, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[446615, 11209, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446821, 11217, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[446994, 11224, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447204, 11232, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[447388, 11239, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447598, 11247, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[453656, 11434, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453867, 11442, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[454238, 11453, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454447, 11461, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[460572, 11650, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460781, 11658, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[461152, 11669, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461359, 11677, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[464025, 11767, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464235, 11775, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[466841, 11862, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467050, 11870, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[470765, 11990, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470974, 11998, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[473029, 12059, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[473605, 12073, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[474181, 12087, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[474763, 12101, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[475224, 12113, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475431, 12121, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[477486, 12182, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[478062, 12196, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[478640, 12210, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[479222, 12224, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[479683, 12236, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479889, 12244, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[481920, 12301, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502253, 12687, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[504402, 12750, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[504905, 12763, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[505413, 12776, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[505925, 12789, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[506386, 12801, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[546010, 13501, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[546244, 13510, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[547863, 13560, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[548455, 13574, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[549053, 13588, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[549652, 13602, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[550113, 13614, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550321, 13622, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[552573, 13688, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[553149, 13702, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[553725, 13716, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[554307, 13730, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[554768, 13742, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554979, 13750, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[557203, 13816, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[557779, 13830, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[558357, 13844, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[558937, 13858, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[559396, 13870, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559605, 13878, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[561827, 13944, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[562401, 13958, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[562977, 13972, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[563559, 13986, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[564020, 13998, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564229, 14006, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[564443, 14014, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb new file mode 100755 index 0000000..3830183 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb @@ -0,0 +1,13206 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 447886, 13198] +NotebookOptionsPosition[ 409451, 12583] +NotebookOutlinePosition[ 409875, 12600] +CellTagsIndexPosition[ 409832, 12597] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"006ead85-8306-184c-9cf9-\ +ba2a0e3785f9"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"943f12aa-a463-6943-a141-2fd0416784be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"d9826539-0f54-2a4b-8c39-c0f51b690b35"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"dd3e9ba7-b753-da4c-b74b-87d4cacedcdb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"f4d46eb5-8e85-f54c-bcfa-5f01b55140ff"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"975fb571-1104-eb41-8c68-6baeee0c5acb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"00a8142b-863c-3c4d-b8c1-eddd70076387"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"39430a22-5429-774a-9068-19bf797353bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"d36b1234-cf68-0541-9c24-eeaecf17b193"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"57724f59-28e0-1046-9015-8acc6050c8d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"751b5019-f897-194c-95bd-9a2b26be338f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"d1273b42-1183-5641-8f64-9bf8adc82736"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"e87e4319-dc7b-f841-97ec-6ea56dbc43ac"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"92e9db64-b384-5c4a-8840-8a0f29768b37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"569f2821-80ae-9945-911b-2704afbe0d33"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"183acc35-1286-3249-b637-ba5a93f6ecaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"ca48b73a-40c5-6a44-a86e-529f3ceb521e"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"eebe8400-259a-a543-b1aa-72999b3cbf7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"9b1b8831-fc25-3b4a-9de5-ec4e9f8f556a"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"f10d2034-fe56-c34a-8e6d-5067109d9692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"6a66ad91-a8b0-1c46-9aab-62de4687b8c6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"6c1b58cc-3a51-6345-b3ed-364ae4c90833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"6555ad1a-a49a-f74e-95ac-b5fb1c44fadd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"8a1b4a7f-8124-a24b-b96f-c83d3501fc04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"b56440d6-6089-c043-80f0-341c2c5a28f5"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"e9ad3bfa-6ed1-bb4a-b8e5-f0fabc435c6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"08ff12e8-a3da-6646-9615-f5a0af2dddfd"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"c2b67a1f-33d6-9144-a766-f3b4316c79cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"49f89727-8379-964a-92cb-1fadf7684a84"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"3ebce010-494a-f049-afdd-c58561b3c591"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"7886337e-6308-d34f-8dde-222d6a38c841"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"3b2ddeb7-e38c-b646-bdbd-5cb55318865e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"036b4302-d6f3-2641-a002-9ac2e00a363d"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"ce769bfb-c8a0-154d-90b1-a372d6cb581f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"0991c9f0-d2f3-784e-b149-f010b7a1f664"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"0db5ab32-4133-9843-bab5-49e7ec77aeff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"8fd131ab-0e46-a64c-b230-4a781edc1c09"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"2f795872-8b42-8c43-bc77-d6582bc164cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"ed56b68b-4faf-4f45-9924-80bb8af504d7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"07b17bad-4f49-a640-810c-3669df09b42e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"00dd8a0f-4180-474b-83ef-74643d480dfa"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"f8825435-cf9d-d140-a03c-aab85ca1cf8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"5009ece6-02af-004b-9076-c684ccd61cee"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"968123b4-1f2c-bc40-970f-8d59a4609e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"987cf838-4b8e-0f45-bcd8-26628a9334e4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"f5ae9dc3-e10e-0442-8064-1edd74a63d4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"45d2fc15-48c6-314f-98ce-fbc253b0d6b8"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"280d39da-4c31-1842-bd6f-72fe0951d45b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"64bd52e9-9be2-284f-8aa1-a1548a04e97d"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"dd975983-a3e2-f347-845c-500cc7c62a7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"37fcb097-2b05-5a47-9dc8-9e3b4f595568"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"73fb6306-d88a-c74f-b2ae-fc1acc4cd4d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"2d6e3f60-0fe4-f846-971d-bfd9d442de9f"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"dedd573d-b5c2-1f44-ac6d-b22025936100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"8f6d95bd-8068-994b-9b57-cf0887bdd3be"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"156186d7-6c2b-9a4f-aca2-ba3f4e32d980"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"f55b82ac-d751-6a40-8e60-8925fae7deac"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"4fc730d1-6536-dd49-82e9-ca4603451ee2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"7a218fb1-2c01-8b44-b6cf-9afd0e06191b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"7d008a7a-9a14-1049-b1e7-dc531c0dde8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"a181831b-55c5-c243-97b5-33e0215a12c4"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"68b0f725-0c82-7f48-a1b1-b47c9ec19b8a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"4bb7434d-3229-4b4c-a14e-784954720692"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"eff246ab-8712-d844-af06-efa5c86c153f"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"a78aceab-bfcf-9d4b-94ab-fd9f5883e99c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"c9666c4e-d4af-fc41-90c2-92c4230760bd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"065254e4-0118-5544-b8a7-56fd9a71b054"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"689b23c7-dc74-cb4a-84f5-67819b8a408f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"ecd9ff0d-3d88-b048-92ca-96273c4ccb9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"e9792ddf-74cf-ca43-85ba-093f30cb5c6c"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"dcca3e55-c1a3-2d47-9a3e-6b0e100bd940"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"d3bd7621-3882-a74c-a6dd-b05ea07241a9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"8b549441-0f23-ac44-8ff0-8a09fc4c1740"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"de9e86fb-20fa-dd46-88f1-afbd7b386eac"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"024e58ed-fda2-be43-a74c-f31f00420180"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"f0642f76-a70c-a741-bf17-2e41793cc5a0"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"b89508cd-d21f-d743-8242-c7cb9c910aff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"21514991-7b58-194f-9151-967c8a6f3c95"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"311e5b95-fc4a-3b4c-bf5e-001e70ca0827"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"8819a0c5-d1ee-da4c-8e9c-dc82c645bfcd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"dbf6dbae-b008-3949-9d99-90254539edd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"66afd64e-15f8-eb42-9a10-1227f89481cc"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"c2daaf42-84dc-5e48-b2c4-c6d8f3b5d89d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"c3ecefcc-c7bf-4843-94fb-f2ebe853401a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"d373a13e-d407-ce4a-8bac-6a2710b77b03"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"b08e9e65-e7d4-8d43-b0f5-db4bdeeeb542"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"9aa6e3fd-b9e5-914b-8be7-af030cc6af1e"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"0a6ca722-c1c4-0941-8f3f-0dd81c9a7006"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"46abbb67-bf32-224f-9231-9004b2c3ce69"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"73eed33d-ef58-794f-9c28-85b21961fae4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"a4c6c7f7-653c-de41-8c5f-9ca0ace47d56"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"ab4f70d1-c84f-714f-9777-36f90644cc08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"8efc6f56-5d2e-0048-819b-525d19abb5bc"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"ee9e343a-ac2b-a846-b187-67826dc7bb4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"4875ad09-0c57-2d49-9f46-5d232f3de816"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"04999f80-a515-8b47-8cfb-6da51f1f9873"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"8f0b15b5-c496-ff4f-a78b-18bd6c3a09bc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"3f0a42da-da69-a74e-b518-718cc99a1d3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"d673825b-5752-cd49-afbe-385dae366110"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"e33ff5df-b418-ab40-aa58-87bde7e55737"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"2e12ddb3-1506-9643-b28f-77d9133bdba9"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"ee208b56-8130-e940-bbd5-9f13fb61cd9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"2ecf2175-7640-7a45-88a9-72bd01b2ae53"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"e3b2ab92-9819-9241-86c7-0dd8503efd99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"f4110923-f7d5-4445-ad8c-e530e8012e47"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"3f83f33e-459a-a140-b3df-4b7d45388f7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"cf5a903e-8dae-064f-b506-36c3f14a14ad"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"8ea16d52-d297-0b4f-ac97-68ca8fe79f14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"73f0b3f4-1c40-a941-ad3b-071d2ca0ec3a"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"acdb7942-56b1-6c4e-a62e-4033ef106f94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"955f0eeb-87d5-304e-bb8b-767bd07acb39"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"f2acbb73-faf1-b84e-ae9f-160df8210729"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"2bca9652-9e5f-2041-b8bf-7f6f3cb22c5d"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"d6903821-613c-2c4b-a053-ee9e05aa006e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"a1242381-72c5-a04d-859e-f718cd30a16b"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"198c1adc-9be1-ec4c-82c8-9fc6e23977ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"72dad72d-50cd-a445-be93-3d847d24e32a"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"dff5e5e7-9341-d049-8a57-75b0a91552fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"c302adb2-b183-ed42-a42f-dfe94337761e"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"427d2728-80a4-f140-906e-32235d346572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"abc82c0e-4020-e748-95e3-46b2e4a3ce46"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"e2cb02fe-5937-e64c-88b9-d5df76e93c28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"d132178e-d2f2-a642-b1c2-e26a4580d6e7"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"6e4ee75b-ac8d-8f46-b838-468c8997c081"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"913b133c-abce-814d-a35a-78f7e04adf6d"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"876960b5-9d28-3e43-aa24-8b677d7ead3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"32f5be9a-e69f-244c-975a-5d326949da1f"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"eba99c39-e3f7-2249-8c09-fb093c28bc1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"5e764eac-84e2-3f49-b9f6-f34b7bfbf1c1"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"3688cd19-04c8-b841-ab73-5af5478a14c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"c9347e35-d63a-fb44-a6e9-abe085383579"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"5f92f02b-16e6-bd42-a6f6-d07927efc84f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.349801967763318"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.992093422058323*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ +5e950c758893"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, + 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ +e7a6896afd10"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.22451670858291"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.992093426035509*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ +4493-2440-9c51-9fca28ce324b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ +bc75-4047-98f0-7a0dede3f8a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ +3d78ebb0f21b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"42c1a263-2456-664a-bb33-c5fe841cb412"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ +12d8b19f0936"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d3cb6fbc-3803-0541-80d1-8cab47341c44"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d8687e0f-2f42-0543-a749-78a1ff3c9572"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ +c578eb57eb6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ +562f8b3faecd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a2ecd22c-b766-5347-9e03-9d459620be75"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933945135155`*^9},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ +77ebd1a3e048"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ +8e83e9537fdc"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56921c73-2b67-0e4a-9808-5f61de992c7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ +3471356a3614"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1795c3b9-0182-224c-b986-6414d6712c04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c3b31753-a67f-9b45-b822-068e1df11f68"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ +286954db37c5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, + 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ +dd2997d3499c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ +22d7-2843-88e3-f607b95c8af9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"def6b331-c871-b04d-a16e-4fc00b03d009"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ +6af3-374f-9eea-9c2b6faaaf4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6c8676e-4601-144e-b83c-769e22949175"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ +05d6af1a6e52"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0b8c0718-41d2-4542-8afe-212a15805650"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ +f69c33a31448"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b6f0ccc2-ff83-124b-a341-e143319c7670"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ +194fae57c34e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7797a546-4085-124a-83da-5f3c472cdc4c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ca7472ca-7b27-a54a-84a1-e603fa592207"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ +49e8ffb5e8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ +494cdae35e56"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b9265795-17b8-4e47-bd29-fee31586537e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"072fb53f-7116-0f41-a298-6891351a3192"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"01995149-3665-fe4e-b326-b20429031afd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"52cff8eb-0c77-c944-a54f-e282b00ce766"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ +062a3c04ed96"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cb5a1193-7562-6446-a279-d9f6295d156e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ +3382e7679ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4cd45900-7eb0-6b4b-830a-a339e8117392"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ +2462b23d6249"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"61220452-df6a-154e-8b5c-fecd0ab287a1"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, + 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ +e661a25a7ba1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ +7798-8b45-a769-075ac4b3983f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ +00a8-f540-98a0-89164ac4bae9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ +af0307420662"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b82c1933-5313-1d4c-a858-68be8f118333"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ +34313c6ec04d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ +ad38cf07d634"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9c6ce535-b42f-3c43-a89e-eda48c04121e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ +8b4ad9ffca61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ +6a3bc399953c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"71d4e039-c2b8-d74d-819a-80d2051e4273"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"63625e13-15ef-1f45-89dc-998a1b63a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ +5dd8190b0268"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ad8c79e-9570-a44d-b593-07aa87056e21"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ +98d71f8a8458"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c516c31a-74b4-f24d-a16a-678221cde87e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5c50b555-9ebe-f94d-801f-34634555f622"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ +57c1fe1d0585"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbafd11a-4be0-b541-81e4-e62191ae7695"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"006ead85-8306-184c-9cf9-ba2a0e3785f9"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"943f12aa-a463-6943-a141-2fd0416784be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"d9826539-0f54-2a4b-8c39-c0f51b690b35"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"dd3e9ba7-b753-da4c-b74b-87d4cacedcdb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"f4d46eb5-8e85-f54c-bcfa-5f01b55140ff"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"975fb571-1104-eb41-8c68-6baeee0c5acb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"00a8142b-863c-3c4d-b8c1-eddd70076387"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"39430a22-5429-774a-9068-19bf797353bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"d36b1234-cf68-0541-9c24-eeaecf17b193"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"57724f59-28e0-1046-9015-8acc6050c8d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"751b5019-f897-194c-95bd-9a2b26be338f"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"d1273b42-1183-5641-8f64-9bf8adc82736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"e87e4319-dc7b-f841-97ec-6ea56dbc43ac"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"92e9db64-b384-5c4a-8840-8a0f29768b37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"569f2821-80ae-9945-911b-2704afbe0d33"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"183acc35-1286-3249-b637-ba5a93f6ecaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"ca48b73a-40c5-6a44-a86e-529f3ceb521e"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"eebe8400-259a-a543-b1aa-72999b3cbf7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"9b1b8831-fc25-3b4a-9de5-ec4e9f8f556a"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"f10d2034-fe56-c34a-8e6d-5067109d9692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"6a66ad91-a8b0-1c46-9aab-62de4687b8c6"], +Cell[7522, 221, 393, 7, 32, "Output",ExpressionUUID->"6c1b58cc-3a51-6345-b3ed-364ae4c90833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 28, "Input",ExpressionUUID->"6555ad1a-a49a-f74e-95ac-b5fb1c44fadd"], +Cell[8089, 238, 382, 7, 32, "Output",ExpressionUUID->"8a1b4a7f-8124-a24b-b96f-c83d3501fc04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 79, "Input",ExpressionUUID->"b56440d6-6089-c043-80f0-341c2c5a28f5"], +Cell[9073, 272, 400, 7, 32, "Output",ExpressionUUID->"e9ad3bfa-6ed1-bb4a-b8e5-f0fabc435c6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 79, "Input",ExpressionUUID->"08ff12e8-a3da-6646-9615-f5a0af2dddfd"], +Cell[10075, 306, 411, 7, 32, "Output",ExpressionUUID->"c2b67a1f-33d6-9144-a766-f3b4316c79cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 80, "Input",ExpressionUUID->"49f89727-8379-964a-92cb-1fadf7684a84"], +Cell[12023, 369, 398, 7, 32, "Output",ExpressionUUID->"3ebce010-494a-f049-afdd-c58561b3c591"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 80, "Input",ExpressionUUID->"7886337e-6308-d34f-8dde-222d6a38c841"], +Cell[13797, 428, 423, 8, 32, "Output",ExpressionUUID->"3b2ddeb7-e38c-b646-bdbd-5cb55318865e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 80, "Input",ExpressionUUID->"036b4302-d6f3-2641-a002-9ac2e00a363d"], +Cell[15596, 488, 420, 8, 32, "Output",ExpressionUUID->"ce769bfb-c8a0-154d-90b1-a372d6cb581f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 80, "Input",ExpressionUUID->"0991c9f0-d2f3-784e-b149-f010b7a1f664"], +Cell[17553, 552, 401, 7, 32, "Output",ExpressionUUID->"0db5ab32-4133-9843-bab5-49e7ec77aeff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 28, "Input",ExpressionUUID->"8fd131ab-0e46-a64c-b230-4a781edc1c09"], +Cell[18130, 569, 383, 7, 32, "Output",ExpressionUUID->"2f795872-8b42-8c43-bc77-d6582bc164cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 28, "Input",ExpressionUUID->"ed56b68b-4faf-4f45-9924-80bb8af504d7"], +Cell[18691, 586, 387, 7, 32, "Output",ExpressionUUID->"07b17bad-4f49-a640-810c-3669df09b42e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 28, "Input",ExpressionUUID->"00dd8a0f-4180-474b-83ef-74643d480dfa"], +Cell[19257, 603, 389, 7, 32, "Output",ExpressionUUID->"f8825435-cf9d-d140-a03c-aab85ca1cf8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 28, "Input",ExpressionUUID->"5009ece6-02af-004b-9076-c684ccd61cee"], +Cell[19910, 622, 398, 8, 32, "Output",ExpressionUUID->"968123b4-1f2c-bc40-970f-8d59a4609e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 28, "Input",ExpressionUUID->"987cf838-4b8e-0f45-bcd8-26628a9334e4"], +Cell[20487, 640, 384, 7, 32, "Output",ExpressionUUID->"f5ae9dc3-e10e-0442-8064-1edd74a63d4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 28, "Input",ExpressionUUID->"45d2fc15-48c6-314f-98ce-fbc253b0d6b8"], +Cell[21214, 660, 382, 7, 32, "Output",ExpressionUUID->"280d39da-4c31-1842-bd6f-72fe0951d45b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 28, "Input",ExpressionUUID->"64bd52e9-9be2-284f-8aa1-a1548a04e97d"], +Cell[21915, 680, 385, 7, 32, "Output",ExpressionUUID->"dd975983-a3e2-f347-845c-500cc7c62a7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 28, "Input",ExpressionUUID->"37fcb097-2b05-5a47-9dc8-9e3b4f595568"], +Cell[22564, 699, 380, 7, 32, "Output",ExpressionUUID->"73fb6306-d88a-c74f-b2ae-fc1acc4cd4d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 43, "Input",ExpressionUUID->"2d6e3f60-0fe4-f846-971d-bfd9d442de9f"], +Cell[23339, 724, 404, 7, 32, "Output",ExpressionUUID->"dedd573d-b5c2-1f44-ac6d-b22025936100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 43, "Input",ExpressionUUID->"8f6d95bd-8068-994b-9b57-cf0887bdd3be"], +Cell[24138, 749, 425, 8, 32, "Output",ExpressionUUID->"156186d7-6c2b-9a4f-aca2-ba3f4e32d980"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 113, "Input",ExpressionUUID->"f55b82ac-d751-6a40-8e60-8925fae7deac"], +Cell[25602, 791, 404, 7, 32, "Output",ExpressionUUID->"4fc730d1-6536-dd49-82e9-ca4603451ee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 28, "Input",ExpressionUUID->"7a218fb1-2c01-8b44-b6cf-9afd0e06191b"], +Cell[26250, 809, 385, 7, 32, "Output",ExpressionUUID->"7d008a7a-9a14-1049-b1e7-dc531c0dde8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 28, "Input",ExpressionUUID->"a181831b-55c5-c243-97b5-33e0215a12c4"], +Cell[26985, 829, 366, 6, 32, "Output",ExpressionUUID->"68b0f725-0c82-7f48-a1b1-b47c9ec19b8a"] +}, Open ]], +Cell[27366, 838, 178, 3, 28, "Input",ExpressionUUID->"4bb7434d-3229-4b4c-a14e-784954720692"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 28, "Input",ExpressionUUID->"eff246ab-8712-d844-af06-efa5c86c153f"], +Cell[27880, 853, 368, 6, 32, "Output",ExpressionUUID->"a78aceab-bfcf-9d4b-94ab-fd9f5883e99c"] +}, Open ]], +Cell[28263, 862, 178, 3, 28, "Input",ExpressionUUID->"c9666c4e-d4af-fc41-90c2-92c4230760bd"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 47, "Input",ExpressionUUID->"065254e4-0118-5544-b8a7-56fd9a71b054"], +Cell[28799, 878, 364, 6, 32, "Output",ExpressionUUID->"689b23c7-dc74-cb4a-84f5-67819b8a408f"] +}, Open ]], +Cell[29178, 887, 178, 3, 28, "Input",ExpressionUUID->"ecd9ff0d-3d88-b048-92ca-96273c4ccb9d"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 28, "Input",ExpressionUUID->"e9792ddf-74cf-ca43-85ba-093f30cb5c6c"], +Cell[29719, 902, 365, 6, 32, "Output",ExpressionUUID->"dcca3e55-c1a3-2d47-9a3e-6b0e100bd940"] +}, Open ]], +Cell[30099, 911, 176, 3, 28, "Input",ExpressionUUID->"d3bd7621-3882-a74c-a6dd-b05ea07241a9"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 47, "Input",ExpressionUUID->"8b549441-0f23-ac44-8ff0-8a09fc4c1740"], +Cell[30598, 926, 364, 6, 32, "Output",ExpressionUUID->"de9e86fb-20fa-dd46-88f1-afbd7b386eac"] +}, Open ]], +Cell[30977, 935, 176, 3, 28, "Input",ExpressionUUID->"024e58ed-fda2-be43-a74c-f31f00420180"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 28, "Input",ExpressionUUID->"f0642f76-a70c-a741-bf17-2e41793cc5a0"], +Cell[31463, 949, 362, 6, 32, "Output",ExpressionUUID->"b89508cd-d21f-d743-8242-c7cb9c910aff"] +}, Open ]], +Cell[31840, 958, 178, 3, 28, "Input",ExpressionUUID->"21514991-7b58-194f-9151-967c8a6f3c95"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 47, "Input",ExpressionUUID->"311e5b95-fc4a-3b4c-bf5e-001e70ca0827"], +Cell[32348, 973, 364, 6, 32, "Output",ExpressionUUID->"8819a0c5-d1ee-da4c-8e9c-dc82c645bfcd"] +}, Open ]], +Cell[32727, 982, 177, 3, 28, "Input",ExpressionUUID->"dbf6dbae-b008-3949-9d99-90254539edd9"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 47, "Input",ExpressionUUID->"66afd64e-15f8-eb42-9a10-1227f89481cc"], +Cell[33207, 997, 360, 6, 32, "Output",ExpressionUUID->"c2daaf42-84dc-5e48-b2c4-c6d8f3b5d89d"] +}, Open ]], +Cell[33582, 1006, 180, 3, 28, "Input",ExpressionUUID->"c3ecefcc-c7bf-4843-94fb-f2ebe853401a"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 2217, "Input",ExpressionUUID->"d373a13e-d407-ce4a-8bac-6a2710b77b03"], +Cell[53604, 1501, 406, 7, 32, "Output",ExpressionUUID->"b08e9e65-e7d4-8d43-b0f5-db4bdeeeb542"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 2304, "Input",ExpressionUUID->"9aa6e3fd-b9e5-914b-8be7-af030cc6af1e"], +Cell[73803, 2005, 396, 7, 32, "Output",ExpressionUUID->"0a6ca722-c1c4-0941-8f3f-0dd81c9a7006"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 2276, "Input",ExpressionUUID->"46abbb67-bf32-224f-9231-9004b2c3ce69"], +Cell[93992, 2503, 418, 8, 32, "Output",ExpressionUUID->"73eed33d-ef58-794f-9c28-85b21961fae4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 2583, "Input",ExpressionUUID->"a4c6c7f7-653c-de41-8c5f-9ca0ace47d56"], +Cell[116989, 3072, 422, 8, 32, "Output",ExpressionUUID->"ab4f70d1-c84f-714f-9777-36f90644cc08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 2583, "Input",ExpressionUUID->"8efc6f56-5d2e-0048-819b-525d19abb5bc"], +Cell[139991, 3641, 420, 8, 32, "Output",ExpressionUUID->"ee9e343a-ac2b-a846-b187-67826dc7bb4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 2890, "Input",ExpressionUUID->"4875ad09-0c57-2d49-9f46-5d232f3de816"], +Cell[165947, 4283, 416, 8, 32, "Output",ExpressionUUID->"04999f80-a515-8b47-8cfb-6da51f1f9873"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 28, "Input",ExpressionUUID->"8f0b15b5-c496-ff4f-a78b-18bd6c3a09bc"], +Cell[166538, 4301, 389, 7, 32, "Output",ExpressionUUID->"3f0a42da-da69-a74e-b518-718cc99a1d3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 28, "Input",ExpressionUUID->"d673825b-5752-cd49-afbe-385dae366110"], +Cell[167102, 4318, 391, 7, 32, "Output",ExpressionUUID->"e33ff5df-b418-ab40-aa58-87bde7e55737"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 110, "Input",ExpressionUUID->"2e12ddb3-1506-9643-b28f-77d9133bdba9"], +Cell[168682, 4372, 400, 7, 32, "Output",ExpressionUUID->"ee208b56-8130-e940-bbd5-9f13fb61cd9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 110, "Input",ExpressionUUID->"2ecf2175-7640-7a45-88a9-72bd01b2ae53"], +Cell[170168, 4422, 420, 8, 32, "Output",ExpressionUUID->"e3b2ab92-9819-9241-86c7-0dd8503efd99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 110, "Input",ExpressionUUID->"f4110923-f7d5-4445-ad8c-e530e8012e47"], +Cell[171777, 4477, 402, 7, 32, "Output",ExpressionUUID->"3f83f33e-459a-a140-b3df-4b7d45388f7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 28, "Input",ExpressionUUID->"cf5a903e-8dae-064f-b506-36c3f14a14ad"], +Cell[172332, 4493, 403, 7, 32, "Output",ExpressionUUID->"8ea16d52-d297-0b4f-ac97-68ca8fe79f14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 28, "Input",ExpressionUUID->"73f0b3f4-1c40-a941-ad3b-071d2ca0ec3a"], +Cell[172888, 4509, 423, 8, 32, "Output",ExpressionUUID->"acdb7942-56b1-6c4e-a62e-4033ef106f94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 28, "Input",ExpressionUUID->"955f0eeb-87d5-304e-bb8b-767bd07acb39"], +Cell[173464, 4526, 424, 8, 32, "Output",ExpressionUUID->"f2acbb73-faf1-b84e-ae9f-160df8210729"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 28, "Input",ExpressionUUID->"2bca9652-9e5f-2041-b8bf-7f6f3cb22c5d"], +Cell[174041, 4543, 402, 7, 32, "Output",ExpressionUUID->"d6903821-613c-2c4b-a053-ee9e05aa006e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 28, "Input",ExpressionUUID->"a1242381-72c5-a04d-859e-f718cd30a16b"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"198c1adc-9be1-ec4c-82c8-9fc6e23977ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"72dad72d-50cd-a445-be93-3d847d24e32a"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"dff5e5e7-9341-d049-8a57-75b0a91552fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 56, "Input",ExpressionUUID->"c302adb2-b183-ed42-a42f-dfe94337761e"], +Cell[176093, 4606, 422, 8, 32, "Output",ExpressionUUID->"427d2728-80a4-f140-906e-32235d346572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 56, "Input",ExpressionUUID->"abc82c0e-4020-e748-95e3-46b2e4a3ce46"], +Cell[177057, 4638, 413, 8, 32, "Output",ExpressionUUID->"e2cb02fe-5937-e64c-88b9-d5df76e93c28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 188, "Input",ExpressionUUID->"d132178e-d2f2-a642-b1c2-e26a4580d6e7"], +Cell[179303, 4714, 397, 7, 32, "Output",ExpressionUUID->"6e4ee75b-ac8d-8f46-b838-468c8997c081"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"913b133c-abce-814d-a35a-78f7e04adf6d"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"876960b5-9d28-3e43-aa24-8b677d7ead3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"32f5be9a-e69f-244c-975a-5d326949da1f"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"eba99c39-e3f7-2249-8c09-fb093c28bc1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"5e764eac-84e2-3f49-b9f6-f34b7bfbf1c1"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"3688cd19-04c8-b841-ab73-5af5478a14c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"c9347e35-d63a-fb44-a6e9-abe085383579"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"5f92f02b-16e6-bd42-a6f6-d07927efc84f"] +}, Open ]], +Cell[187709, 4988, 192, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[187904, 4994, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[188059, 4999, 189, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[188251, 5005, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[188430, 5012, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[189706, 5055, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189849, 5060, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[190762, 5093, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190905, 5098, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[191793, 5130, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191936, 5135, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[192471, 5155, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192609, 5160, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[193237, 5183, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193374, 5188, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[193521, 5194, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193659, 5199, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[193806, 5205, 100, 0, 32, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193943, 5210, 155, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[194101, 5216, 101, 0, 32, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194239, 5221, 155, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[194397, 5227, 101, 0, 32, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194535, 5232, 6029, 184, 498, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[200567, 5418, 102, 0, 32, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200706, 5423, 342, 8, 42, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[201051, 5433, 342, 6, 20, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[201396, 5441, 100, 0, 32, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201533, 5446, 6096, 186, 500, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[207632, 5634, 103, 0, 32, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207772, 5639, 342, 8, 42, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[208117, 5649, 342, 6, 20, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[208462, 5657, 100, 0, 32, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208599, 5662, 2637, 87, 187, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[211239, 5751, 101, 0, 32, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211377, 5756, 2577, 84, 165, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[213957, 5842, 102, 0, 32, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214096, 5847, 3686, 117, 348, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[217785, 5966, 102, 0, 32, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[217902, 5969, 138, 3, 42, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[218065, 5976, 2054, 59, 228, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[220122, 6037, 342, 6, 20, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[220467, 6045, 342, 6, 20, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[220812, 6053, 100, 0, 32, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220949, 6058, 2049, 58, 228, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[223001, 6118, 342, 6, 20, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[223346, 6126, 342, 6, 20, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[223691, 6134, 100, 0, 32, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223828, 6139, 1938, 53, 115, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[225769, 6194, 342, 6, 20, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[226114, 6202, 342, 6, 20, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[226459, 6210, 342, 6, 20, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[226804, 6218, 407, 7, 20, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[227214, 6227, 8018, 364, 185, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[235235, 6593, 191, 5, 32, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[235463, 6603, 2094, 60, 211, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[237560, 6665, 342, 6, 20, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[237905, 6673, 342, 6, 20, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[238250, 6681, 342, 6, 20, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[238595, 6689, 407, 7, 20, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[239005, 6698, 8024, 353, 185, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[247032, 7053, 191, 5, 32, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[247238, 7061, 2455, 69, 158, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[249696, 7132, 209, 5, 42, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[249930, 7141, 215, 7, 48, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[250148, 7150, 100, 0, 32, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250285, 7155, 1814, 53, 183, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[252102, 7210, 342, 6, 20, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[252447, 7218, 342, 6, 20, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[252792, 7226, 342, 6, 20, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[253137, 7234, 407, 7, 20, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[253547, 7243, 8187, 365, 185, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[261737, 7610, 191, 5, 32, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[261965, 7620, 1590, 47, 113, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[263558, 7669, 342, 6, 20, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[263903, 7677, 101, 0, 32, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264041, 7682, 2247, 64, 223, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[266291, 7748, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[266636, 7756, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[266981, 7764, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267121, 7769, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[269343, 7835, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[269688, 7843, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[270033, 7851, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270170, 7856, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[272394, 7922, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[272739, 7930, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[273084, 7938, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273222, 7943, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[273440, 7951, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[273559, 7954, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[273831, 7963, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[274366, 7983, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274503, 7988, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[274650, 7994, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274787, 7999, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[274945, 8005, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275082, 8010, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[281114, 8196, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281253, 8201, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[281598, 8211, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[281943, 8219, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282079, 8224, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[288178, 8412, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288317, 8417, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[288662, 8427, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[289007, 8435, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289144, 8440, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[291784, 8529, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291922, 8534, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[294502, 8620, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294641, 8625, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[298330, 8744, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298469, 8749, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[300524, 8810, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[300869, 8818, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[301214, 8826, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301352, 8831, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[303409, 8892, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[303754, 8900, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[304099, 8908, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304236, 8913, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[306269, 8970, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[306614, 8978, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[306959, 8986, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[307304, 8994, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[307714, 9003, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[317149, 9443, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317377, 9453, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[319498, 9515, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[319843, 9523, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[320188, 9531, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[320533, 9539, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[320943, 9548, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[329492, 9918, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[329698, 9926, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[329932, 9935, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[331525, 9984, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[331870, 9992, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332008, 9997, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[334262, 10063, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[334607, 10071, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[334952, 10079, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335090, 10084, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[337313, 10150, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[337658, 10158, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[338003, 10166, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338141, 10171, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[340367, 10237, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[340712, 10245, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[341057, 10253, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341195, 10258, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[341413, 10266, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[341530, 10269, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[341802, 10278, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[342337, 10298, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342475, 10303, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[342622, 10309, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342760, 10314, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[342918, 10320, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343055, 10325, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[349087, 10511, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349226, 10516, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[349571, 10526, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[349916, 10534, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350053, 10539, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[356152, 10727, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356291, 10732, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[356636, 10742, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[356981, 10750, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357117, 10755, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[359757, 10844, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359895, 10849, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[362475, 10935, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362614, 10940, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[366303, 11059, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366442, 11064, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[368499, 11125, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[368844, 11133, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[369189, 11141, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369326, 11146, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[371383, 11207, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[371728, 11215, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[372073, 11223, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372210, 11228, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[374243, 11285, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[374588, 11293, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[374933, 11301, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[375278, 11309, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[375688, 11318, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[385123, 11758, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385351, 11768, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[387497, 11831, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[387842, 11839, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[388187, 11847, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[388532, 11855, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[388942, 11864, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[397491, 12234, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[397697, 12242, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[397860, 12249, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[399453, 12298, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[399798, 12306, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399936, 12311, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[402188, 12377, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[402533, 12385, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[402878, 12393, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403015, 12398, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[405237, 12464, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[405582, 12472, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[405927, 12480, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406063, 12485, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[408287, 12551, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[408632, 12559, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[408977, 12567, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409115, 12572, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[409333, 12580, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb new file mode 100755 index 0000000..b9cdefc --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb @@ -0,0 +1,14902 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 605416, 14894] +NotebookOptionsPosition[ 563376, 14223] +NotebookOutlinePosition[ 563831, 14241] +CellTagsIndexPosition[ 563788, 14238] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"1ebbaaa3-9445-0a4e-a770-bd0f2e882a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"256f9ae8-095e-9441-8f3d-07b15c2c41c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"356e74ed-15a8-4942-ba7f-a32e4cf99b76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"9a0dd9ab-8ebe-e145-96c5-a2227e38b170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"afe36cf3-0c84-2d4d-82a8-34c72f037dcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"cff83131-4f3e-2a4e-aef3-44b9772e5e7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"fdaccc59-a84e-e24c-97f5-c5e6d7b4dae9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"f72ae6a0-8501-ae45-b791-53f333ac6a72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"17dfd568-3e2e-1640-b2fa-1a40a7b6aa30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"3c7f784f-3a9b-c443-aa8b-484c38e5263a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"20c299f4-43b6-484a-b689-140dc8659d47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"cea5527b-2dec-114a-93d1-4e0a6850f932"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"9bf001fa-d212-f740-ab7e-54355605796c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"9f9ae1a5-4c91-d349-a352-4feaf260b84e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"7ce415b4-5744-0348-b749-9ad469f9f635"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"7b04735c-e7e9-ed4e-9d56-dcdeffb8c44a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"7775ef00-1ffb-9041-99e1-72fb501f4050"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"fffc0803-839b-0048-8acc-65fc244477a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"2646e980-f3dd-ca42-8127-9c0c8739d6b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"fc3b8d24-1723-3d4d-8ea1-628aac4fc008"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"fdd286e8-31ae-5f4c-adfc-ed6cf7bcf1f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"54ca71ca-3327-2f42-ba07-aa98771ed12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"3ed6dab9-b557-4e49-b46c-3029017ee729"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"7fc519e8-1b90-a343-93aa-3d7727210154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"f65c67b8-a61b-5e41-8bb3-c9c1695eb0df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"d00e1bd8-9e8d-924d-a3b9-7cbb96787ae5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"13bdc432-de29-0c48-aa43-00a6c23c9175"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"979b81aa-76df-f241-90dd-f44416c9e227"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"2bce044e-cdbf-6b45-a6ab-1e98de409390"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"a9877b49-9a0f-074a-a675-f639e26d8c27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"b460e55c-f393-c440-ad77-00a848515def"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"cd4444f6-525d-4d42-81db-b4690c8b9676"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"3097763e-570b-5146-a994-24452286f60b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"1e31b0b2-7abb-8d40-a974-a66686c8d87f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"6fe6deb1-4452-f84e-9b3f-5280e2fcf4e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"16c7f714-3257-b34d-a77b-9fe33babd8ff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"5d1dcb58-9ff9-8740-bffd-1be75022accd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"68d321df-bd79-9141-a9e5-89395e208aad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"9891c226-d59f-c940-8069-e6236f3cd36a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"42fe5593-dd97-7344-8cea-c6ed000b1a91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"73287dff-cd9e-2142-90e3-5db79aca50d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"ac7b7877-6e38-2747-af04-6417bf204401"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"cc396566-3525-4748-9ae5-60fd26ae1dc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"d2ef6d49-1374-2b4d-899f-0c6e4dde6022"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"95494de8-4956-094e-a8e6-e6868fc6f423"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"5b26e611-5ec7-3042-8984-f7a74a1cbd33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"31c84d05-12c3-be47-9df8-ffc9cbb13c0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"ef0ea4fd-70b5-984d-853f-473fd2ac599b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"72da1b15-272c-0b4a-9070-4f4f363f2b7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"036cbf6f-fbe7-a440-8a29-aff08fbe2857"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"8969fdc8-c9a5-c64f-90ba-d96f332afaeb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"dd7651dc-cb42-1742-85ec-07465aa9fa99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"5e78289d-09f7-5b4e-93b4-7bcb7b152f66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"3f6278b7-a28a-594e-8a23-09f3d3483888"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"1ee3f225-4e97-984c-b225-455d7f3a4c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"c5d6c614-4b12-5d4f-bb0f-a2ce82221b0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"9a1e3298-13b0-4c4d-a540-953e925a83a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"ab5e33a4-9795-d642-8732-25202fb76681"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"77d3672c-ebf4-db44-851d-03385ef2f057"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"e8ad9317-5c6f-d847-ae99-21264e012189"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"2bde0c56-c23c-da47-9dd6-d0a17eb70781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"68197958-5a48-e24c-b564-81832e5b3242"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.991799412462593*^9, 3.99209240134511*^9}, + CellLabel-> + "In[1619]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.719616319964285`"], "Output", + CellChangeTimes->{ + 3.992092425303158*^9, {3.9920925185175705`*^9, 3.992092616964899*^9}, { + 3.99209279683844*^9, 3.992092966219612*^9}, {3.9920929977096825`*^9, + 3.992093021355736*^9}, {3.9920930577816296`*^9, 3.992093084023361*^9}}, + CellLabel-> + "Out[1619]=",ExpressionUUID->"3b395217-8188-404a-ae07-c14d603d86bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[1620]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.9920924055660133`*^9}, + CellLabel-> + "In[1621]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.751752569327218`"], "Output", + CellChangeTimes->{ + 3.9920924253301563`*^9, {3.992092518525587*^9, 3.9920926169951*^9}, { + 3.992092796864971*^9, 3.992092966229616*^9}, {3.9920929977415695`*^9, + 3.9920930213812504`*^9}, {3.992093057792652*^9, 3.9920930840503693`*^9}}, + CellLabel-> + "Out[1621]=",ExpressionUUID->"ad6a7ab8-8149-1543-9505-02f460a58ac9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[1622]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[1623]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + +Cell[BoxData["2.093424983735306`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.9920924253391666`*^9, {3.992092518550045*^9, + 3.9920926170223064`*^9}, {3.992092796892542*^9, 3.992092966258562*^9}, { + 3.9920929977685757`*^9, 3.9920930214062576`*^9}, {3.992093057817316*^9, + 3.9920930840773773`*^9}}, + CellLabel-> + "Out[1623]=",ExpressionUUID->"a52d7df7-0e64-d54e-a292-d12163ffdbee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.991557471461853*^9}, + CellLabel-> + "In[1624]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + +Cell[BoxData["1.738978896712514`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9920924253621864`*^9, {3.9920925185787926`*^9, + 3.992092617047863*^9}, {3.9920927968995266`*^9, 3.992092966281561*^9}, { + 3.9920929977775574`*^9, 3.9920930214160423`*^9}, {3.992093057839796*^9, + 3.9920930841053944`*^9}}, + CellLabel-> + "Out[1624]=",ExpressionUUID->"c2023aac-b814-7446-ab12-4137f6803a68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, + CellLabel-> + "In[1625]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + +Cell[BoxData["3.4378830555102365`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.992092425370014*^9, {3.9920925185863285`*^9, + 3.992092617056452*^9}, {3.992092796923731*^9, 3.992092966291559*^9}, { + 3.9920929978006935`*^9, 3.9920930214385567`*^9}, {3.992093057861374*^9, + 3.992093084129587*^9}}, + CellLabel-> + "Out[1625]=",ExpressionUUID->"0756e45a-f7eb-ed46-b249-38207984ed8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[1626]:=",ExpressionUUID->"2d28d1dd-a3ba-5e40-bc3b-15dd0b7d3678"], + +Cell[BoxData["16.75946734195761`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992092425395115*^9, {3.9920925186099377`*^9, + 3.9920926170813828`*^9}, {3.9920927969337063`*^9, 3.992092966314581*^9}, { + 3.992092997808676*^9, 3.992093021466345*^9}, {3.99209305786977*^9, + 3.992093084156843*^9}}, + CellLabel-> + "Out[1626]=",ExpressionUUID->"676b2d5b-4cd7-184f-a9f2-0374f5510da1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[1627]:=",ExpressionUUID->"dcbc6ccc-ef74-aa46-856c-b0a8579a9132"], + +Cell[BoxData["60.23376460775668`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992092425402178*^9, {3.992092518615944*^9, 3.992092617109873*^9}, { + 3.9920927969632607`*^9, 3.9920929663225803`*^9}, {3.99209299784173*^9, + 3.992093021489338*^9}, {3.9920930578926544`*^9, 3.992093084166601*^9}}, + CellLabel-> + "Out[1627]=",ExpressionUUID->"2162087e-839c-dc49-8a3a-fb80abc36155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[1628]:=",ExpressionUUID->"2f42ec5c-ce50-6f42-a8a2-c75b3ac43245"], + +Cell[BoxData["0.03244281304059227`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920924254301987`*^9, {3.992092518643223*^9, + 3.9920926171180058`*^9}, {3.9920927969928265`*^9, + 3.9920929663465614`*^9}, {3.9920929978507347`*^9, + 3.9920930215139065`*^9}, {3.9920930579006233`*^9, 3.9920930841946297`*^9}}, + CellLabel-> + "Out[1628]=",ExpressionUUID->"0620c74a-d91a-e64b-8100-ed051243b230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[1629]:=",ExpressionUUID->"96bf4b15-430f-4c40-a47b-2fcda1bc88fa"], + +Cell[BoxData["1.8152705961160864`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992092425453417*^9, { + 3.992092518650234*^9, 3.9920926171484947`*^9}, {3.9920927970158024`*^9, + 3.992092966354574*^9}, {3.9920929978717537`*^9, 3.9920930215394173`*^9}, { + 3.992093057927355*^9, 3.9920930842196407`*^9}}, + CellLabel-> + "Out[1629]=",ExpressionUUID->"3fc4579b-71c9-7b4a-957c-cd0fdc5e5d10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[1630]:=",ExpressionUUID->"6cf9ca16-c013-3344-9171-7ec9c2c511d5"], + +Cell[BoxData["109.34058178583851`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992092425460451*^9, {3.9920925186712685`*^9, 3.9920926171749897`*^9}, { + 3.9920927970238094`*^9, 3.9920929663785915`*^9}, {3.9920929978977833`*^9, + 3.992093021565424*^9}, {3.992093057957897*^9, 3.992093084229643*^9}}, + CellLabel-> + "Out[1630]=",ExpressionUUID->"eb3aefaf-3036-9146-864b-6082b4ee6437"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[1631]:=",ExpressionUUID->"4e09d0fd-8826-4c4d-b015-edd4a4d1eb7e"], + +Cell[BoxData["0.5437242656350425`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.992092425484108*^9, {3.9920925186792793`*^9, + 3.992092617182308*^9}, {3.992092797048418*^9, 3.9920929664025784`*^9}, { + 3.992092997923292*^9, 3.9920930215744534`*^9}, {3.992093057981407*^9, + 3.9920930842526855`*^9}}, + CellLabel-> + "Out[1631]=",ExpressionUUID->"45246d2c-9e57-e547-abbf-f9e32b3e3888"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[1632]:=",ExpressionUUID->"4d2ae061-ee93-6649-a604-ac80499bb910"], + +Cell[BoxData["0.01917558550788009`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992092425492161*^9, {3.992092518701372*^9, 3.992092617207405*^9}, { + 3.9920927970584164`*^9, 3.992092966429596*^9}, {3.9920929979477367`*^9, + 3.9920930216014366`*^9}, {3.992093058010456*^9, 3.9920930842836647`*^9}}, + CellLabel-> + "Out[1632]=",ExpressionUUID->"e6248b18-ee80-1b4b-9b41-5db49d1a14d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x", " "}]}]}]], "Input", + CellChangeTimes->{{3.992091191102171*^9, 3.9920912274433537`*^9}}, + CellLabel-> + "In[1633]:=",ExpressionUUID->"28a7789c-2886-1b46-919b-413e804766ca"], + +Cell[BoxData["6.399862213425972`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.9920924255812473`*^9, { + 3.9920925208211765`*^9, 3.9920926172777596`*^9}, {3.9920927991098137`*^9, + 3.992092966506571*^9}, {3.99209300007362*^9, 3.992093021677635*^9}, { + 3.9920930600735226`*^9, 3.9920930843632145`*^9}}, + CellLabel-> + "Out[1633]=",ExpressionUUID->"8fbfcf1f-38da-ad4b-9ce7-9eb0ab39f811"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[1634]:=",ExpressionUUID->"21747f41-e83a-1547-8a1f-a9f0c0cf4fc0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 1, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 2, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231788826`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 3, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423191887*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423200884*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ +ca6cc08b08a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 5, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 6, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132042625132*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 7, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426261322*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426270418*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ +8b70b5354bda"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7142433994369213}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.992093321760353*^9, + 3.9920933233255672`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ +0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 17, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042538757`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229043127804`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 90, + 21, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 22, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132366476486*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 23, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236647877655`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236648078594`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ +540622282b2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 25, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 26, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765679016`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 27, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323676587904*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236766039066`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ +4bb381db84df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 29, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 30, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884141064`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 31, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323688443001*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884570007`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ +1b0781de8eeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 33, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 34, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698943981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 35, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698971981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698986994*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, + 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ +bf0dbc996ac3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ +6ffa36275fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 109, 37, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 38, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323707545618*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 39, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075757256`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075926247`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ +1ab9142a9a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 110, 41, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 42, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162070637`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 43, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323716227171*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162481613`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ +ff25938e6592"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5082122808512888}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 112, 46, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461217346`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 112, 47, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461427383`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246159645*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506856045*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068640423`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ +122296a3d634"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 61, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 62, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513053705*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 63, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130617065`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513069849*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ +9c68738afe07"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 65, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 66, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520226103*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 67, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265202341022`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520242243*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ +766f96e6af5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 69, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 70, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264535427`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 71, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264615555`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326526468542*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917998836260815`*^9, + 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ +14ef82ef0962"], + +Cell[BoxData["0.13787921511838797`"], "Output", + CellChangeTimes->{3.991326529975149*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, + 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ +0f56a212e9c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ +a97b5c6c44f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 135, 73, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 135, 74, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304013824`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 75, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304095325`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304175396`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ +bed1f30b804b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 136, 77, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 136, 78, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340202503`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 79, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340282536`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340354958`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ +eac61b5b75d3"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6007907022525477}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 95, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097784023`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909786396*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ +22c641e38d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 97, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 98, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916018362*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 99, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279160263577`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916034359*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ +4f0fc7048689"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 101, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 102, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327922975607*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 103, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229836063`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229916077`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ +32244819d42b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 105, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 106, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928864023*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 107, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928871004*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928878006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991800029528055*^9, + 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ +f0a7464dc747"], + +Cell[BoxData["0.08333108480569339`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1014, 32, 391, 7, 36, "Output",ExpressionUUID->"1ebbaaa3-9445-0a4e-a770-bd0f2e882a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 33, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1699, 51, 395, 7, 36, "Output",ExpressionUUID->"256f9ae8-095e-9441-8f3d-07b15c2c41c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 33, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2365, 70, 391, 7, 36, "Output",ExpressionUUID->"356e74ed-15a8-4942-ba7f-a32e4cf99b76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 33, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2977, 88, 393, 7, 36, "Output",ExpressionUUID->"9a0dd9ab-8ebe-e145-96c5-a2227e38b170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 46, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3673, 110, 409, 7, 36, "Output",ExpressionUUID->"afe36cf3-0c84-2d4d-82a8-34c72f037dcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 33, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[4259, 127, 397, 7, 36, "Output",ExpressionUUID->"cff83131-4f3e-2a4e-aef3-44b9772e5e7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 33, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4978, 148, 401, 7, 36, "Output",ExpressionUUID->"fdaccc59-a84e-e24c-97f5-c5e6d7b4dae9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 33, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[5682, 170, 406, 7, 36, "Output",ExpressionUUID->"f72ae6a0-8501-ae45-b791-53f333ac6a72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 33, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[6344, 188, 372, 6, 36, "Output",ExpressionUUID->"17dfd568-3e2e-1640-b2fa-1a40a7b6aa30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 33, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6972, 205, 376, 6, 36, "Output",ExpressionUUID->"3c7f784f-3a9b-c443-aa8b-484c38e5263a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 33, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"20c299f4-43b6-484a-b689-140dc8659d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"cea5527b-2dec-114a-93d1-4e0a6850f932"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"9bf001fa-d212-f740-ab7e-54355605796c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"9f9ae1a5-4c91-d349-a352-4feaf260b84e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"7ce415b4-5744-0348-b749-9ad469f9f635"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"7b04735c-e7e9-ed4e-9d56-dcdeffb8c44a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"7775ef00-1ffb-9041-99e1-72fb501f4050"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"fffc0803-839b-0048-8acc-65fc244477a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"2646e980-f3dd-ca42-8127-9c0c8739d6b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"fc3b8d24-1723-3d4d-8ea1-628aac4fc008"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"fdd286e8-31ae-5f4c-adfc-ed6cf7bcf1f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"54ca71ca-3327-2f42-ba07-aa98771ed12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"3ed6dab9-b557-4e49-b46c-3029017ee729"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"7fc519e8-1b90-a343-93aa-3d7727210154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"f65c67b8-a61b-5e41-8bb3-c9c1695eb0df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"d00e1bd8-9e8d-924d-a3b9-7cbb96787ae5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"13bdc432-de29-0c48-aa43-00a6c23c9175"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"979b81aa-76df-f241-90dd-f44416c9e227"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"2bce044e-cdbf-6b45-a6ab-1e98de409390"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"a9877b49-9a0f-074a-a675-f639e26d8c27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"b460e55c-f393-c440-ad77-00a848515def"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"cd4444f6-525d-4d42-81db-b4690c8b9676"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"3097763e-570b-5146-a994-24452286f60b"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"1e31b0b2-7abb-8d40-a974-a66686c8d87f"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"6fe6deb1-4452-f84e-9b3f-5280e2fcf4e4"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"16c7f714-3257-b34d-a77b-9fe33babd8ff"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"5d1dcb58-9ff9-8740-bffd-1be75022accd"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"68d321df-bd79-9141-a9e5-89395e208aad"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"9891c226-d59f-c940-8069-e6236f3cd36a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"42fe5593-dd97-7344-8cea-c6ed000b1a91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"73287dff-cd9e-2142-90e3-5db79aca50d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"ac7b7877-6e38-2747-af04-6417bf204401"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"cc396566-3525-4748-9ae5-60fd26ae1dc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"d2ef6d49-1374-2b4d-899f-0c6e4dde6022"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"95494de8-4956-094e-a8e6-e6868fc6f423"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"5b26e611-5ec7-3042-8984-f7a74a1cbd33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"31c84d05-12c3-be47-9df8-ffc9cbb13c0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"ef0ea4fd-70b5-984d-853f-473fd2ac599b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"72da1b15-272c-0b4a-9070-4f4f363f2b7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"036cbf6f-fbe7-a440-8a29-aff08fbe2857"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"8969fdc8-c9a5-c64f-90ba-d96f332afaeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"dd7651dc-cb42-1742-85ec-07465aa9fa99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"5e78289d-09f7-5b4e-93b4-7bcb7b152f66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"3f6278b7-a28a-594e-8a23-09f3d3483888"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"1ee3f225-4e97-984c-b225-455d7f3a4c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"c5d6c614-4b12-5d4f-bb0f-a2ce82221b0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"9a1e3298-13b0-4c4d-a540-953e925a83a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"ab5e33a4-9795-d642-8732-25202fb76681"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 75, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[180846, 4765, 422, 8, 36, "Output",ExpressionUUID->"77d3672c-ebf4-db44-851d-03385ef2f057"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 102, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[183131, 4842, 404, 7, 36, "Output",ExpressionUUID->"e8ad9317-5c6f-d847-ae99-21264e012189"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 76, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[185211, 4910, 406, 7, 36, "Output",ExpressionUUID->"2bde0c56-c23c-da47-9dd6-d0a17eb70781"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 76, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[187293, 4978, 401, 7, 36, "Output",ExpressionUUID->"68197958-5a48-e24c-b564-81832e5b3242"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187731, 4990, 213, 4, 33, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[187947, 4996, 371, 6, 36, "Output",ExpressionUUID->"3b395217-8188-404a-ae07-c14d603d86bf"] +}, Open ]], +Cell[188333, 5005, 177, 3, 33, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[CellGroupData[{ +Cell[188535, 5012, 216, 4, 33, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[188754, 5018, 372, 6, 36, "Output",ExpressionUUID->"ad6a7ab8-8149-1543-9505-02f460a58ac9"] +}, Open ]], +Cell[189141, 5027, 178, 3, 33, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[CellGroupData[{ +Cell[189344, 5034, 1302, 43, 50, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[190649, 5079, 406, 7, 36, "Output",ExpressionUUID->"a52d7df7-0e64-d54e-a292-d12163ffdbee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191092, 5091, 932, 31, 57, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[192027, 5124, 408, 7, 36, "Output",ExpressionUUID->"c2023aac-b814-7446-ab12-4137f6803a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192472, 5136, 908, 30, 57, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[193383, 5168, 406, 7, 36, "Output",ExpressionUUID->"0756e45a-f7eb-ed46-b249-38207984ed8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193826, 5180, 559, 19, 53, "Input",ExpressionUUID->"2d28d1dd-a3ba-5e40-bc3b-15dd0b7d3678"], +Cell[194388, 5201, 616, 10, 36, "Output",ExpressionUUID->"676b2d5b-4cd7-184f-a9f2-0374f5510da1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195041, 5216, 666, 22, 53, "Input",ExpressionUUID->"dcbc6ccc-ef74-aa46-856c-b0a8579a9132"], +Cell[195710, 5240, 595, 9, 36, "Output",ExpressionUUID->"2162087e-839c-dc49-8a3a-fb80abc36155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196342, 5254, 171, 5, 57, "Input",ExpressionUUID->"2f42ec5c-ce50-6f42-a8a2-c75b3ac43245"], +Cell[196516, 5261, 638, 10, 36, "Output",ExpressionUUID->"0620c74a-d91a-e64b-8100-ed051243b230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197191, 5276, 237, 6, 56, "Input",ExpressionUUID->"96bf4b15-430f-4c40-a47b-2fcda1bc88fa"], +Cell[197431, 5284, 576, 9, 36, "Output",ExpressionUUID->"3fc4579b-71c9-7b4a-957c-cd0fdc5e5d10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198044, 5298, 224, 6, 46, "Input",ExpressionUUID->"6cf9ca16-c013-3344-9171-7ec9c2c511d5"], +Cell[198271, 5306, 603, 9, 36, "Output",ExpressionUUID->"eb3aefaf-3036-9146-864b-6082b4ee6437"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198911, 5320, 182, 5, 46, "Input",ExpressionUUID->"4e09d0fd-8826-4c4d-b015-edd4a4d1eb7e"], +Cell[199096, 5327, 621, 10, 36, "Output",ExpressionUUID->"45246d2c-9e57-e547-abbf-f9e32b3e3888"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199754, 5342, 6056, 185, 321, "Input",ExpressionUUID->"4d2ae061-ee93-6649-a604-ac80499bb910"], +Cell[205813, 5529, 596, 9, 36, "Output",ExpressionUUID->"e6248b18-ee80-1b4b-9b41-5db49d1a14d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206446, 5543, 450, 10, 45, "Input",ExpressionUUID->"28a7789c-2886-1b46-919b-413e804766ca"], +Cell[206899, 5555, 572, 9, 36, "Output",ExpressionUUID->"8fbfcf1f-38da-ad4b-9ce7-9eb0ab39f811"] +}, Open ]], +Cell[207486, 5567, 493, 10, 45, "Input",ExpressionUUID->"21747f41-e83a-1547-8a1f-a9f0c0cf4fc0"], +Cell[CellGroupData[{ +Cell[208004, 5581, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[208561, 5601, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208764, 5608, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[209386, 5630, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209591, 5637, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[209760, 5643, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209964, 5650, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[210133, 5656, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210336, 5663, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[210516, 5669, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210722, 5676, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[210902, 5682, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211107, 5689, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[217161, 5875, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217369, 5882, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[217736, 5892, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217939, 5899, 6118, 186, 386, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[224060, 6087, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224267, 6094, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[224634, 6104, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224839, 6111, 2659, 87, 132, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[227501, 6200, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227707, 6207, 2599, 84, 132, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[230309, 6293, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230515, 6300, 3708, 117, 194, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[234226, 6419, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], +Cell[234410, 6424, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[CellGroupData[{ +Cell[234573, 6431, 2052, 59, 129, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[236628, 6492, 556, 12, 48, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +Cell[237187, 6506, 559, 12, 68, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +Cell[237749, 6520, 559, 12, 68, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +Cell[238311, 6534, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +Cell[238766, 6546, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[238971, 6553, 2054, 59, 129, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[241028, 6614, 556, 12, 48, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[241587, 6628, 556, 12, 68, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[242146, 6642, 559, 12, 68, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[242708, 6656, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[243163, 6668, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243366, 6675, 1938, 53, 66, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[245307, 6730, 20239, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265583, 7113, 2094, 60, 126, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[267680, 7175, 497, 11, 48, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[268180, 7188, 501, 11, 48, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[268684, 7201, 503, 11, 48, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[269190, 7214, 455, 10, 20, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[269648, 7226, 43631, 762, 187, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], +Cell[313294, 7991, 2481, 70, 111, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[315778, 8063, 209, 5, 34, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[CellGroupData[{ +Cell[316012, 8072, 212, 6, 38, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[316227, 8080, 168, 2, 25, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316432, 8087, 1814, 53, 115, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[318249, 8142, 505, 11, 48, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[318757, 8155, 509, 11, 48, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[319269, 8168, 508, 11, 46, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[319780, 8181, 455, 10, 30, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[320238, 8193, 22399, 414, 189, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342674, 8612, 1612, 47, 87, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[344289, 8661, 581, 12, 30, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[344873, 8675, 584, 12, 30, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[345460, 8689, 590, 12, 30, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[346053, 8703, 455, 10, 30, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[346511, 8715, 169, 2, 37, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346717, 8722, 2249, 64, 77, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[348969, 8788, 557, 12, 50, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[349529, 8802, 560, 12, 50, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[350092, 8816, 560, 12, 50, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[350655, 8830, 455, 10, 20, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[351113, 8842, 169, 2, 25, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351319, 8849, 2221, 64, 131, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[353543, 8915, 554, 12, 50, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[354100, 8929, 560, 12, 50, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[354663, 8943, 560, 12, 50, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[355226, 8957, 455, 10, 20, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[355684, 8969, 169, 2, 25, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355890, 8976, 2223, 64, 131, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[358116, 9042, 555, 12, 69, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[358674, 9056, 558, 12, 69, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[359235, 9070, 560, 12, 69, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[359798, 9084, 453, 10, 69, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[360254, 9096, 167, 2, 69, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360458, 9103, 213, 6, 69, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[360674, 9111, 169, 2, 69, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], +Cell[360858, 9116, 247, 5, 69, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[361130, 9125, 554, 18, 69, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[361687, 9145, 167, 2, 69, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361891, 9152, 166, 4, 69, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[362060, 9158, 169, 2, 69, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362266, 9165, 181, 5, 69, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[362450, 9172, 173, 3, 69, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362660, 9180, 6055, 185, 69, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[368718, 9367, 172, 3, 69, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368927, 9375, 368, 9, 69, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[369298, 9386, 170, 3, 69, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369505, 9394, 6122, 187, 69, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[375630, 9583, 175, 3, 69, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375842, 9591, 368, 9, 69, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[376213, 9602, 169, 3, 69, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376419, 9610, 2663, 88, 69, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[379085, 9700, 173, 3, 69, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379295, 9708, 2603, 85, 69, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[381901, 9795, 171, 3, 69, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382109, 9803, 3712, 118, 69, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[385824, 9923, 171, 3, 69, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386032, 9931, 2052, 59, 69, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[388087, 9992, 572, 12, 69, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[388662, 10006, 573, 12, 69, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[389238, 10020, 578, 12, 69, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[389819, 10034, 457, 10, 69, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[390279, 10046, 172, 3, 69, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390488, 10054, 2054, 59, 69, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[392545, 10115, 572, 12, 69, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[393120, 10129, 575, 12, 69, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[393698, 10143, 576, 12, 69, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[394277, 10157, 457, 10, 69, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[394737, 10169, 170, 3, 69, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394944, 10177, 2030, 55, 69, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[396977, 10234, 20377, 384, 69, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417391, 10623, 2118, 60, 69, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[419512, 10685, 499, 11, 69, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[420014, 10698, 504, 11, 69, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[420521, 10711, 507, 11, 69, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[421031, 10724, 455, 10, 69, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[421489, 10736, 22381, 415, 69, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], +Cell[443885, 11154, 174, 3, 69, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[444062, 11159, 209, 5, 69, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[CellGroupData[{ +Cell[444296, 11168, 1616, 48, 69, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[445915, 11218, 594, 12, 69, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[446512, 11232, 594, 12, 69, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[447109, 11246, 598, 12, 69, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[447710, 11260, 457, 10, 69, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[448170, 11272, 171, 3, 69, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448378, 11280, 2247, 64, 69, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[450628, 11346, 572, 12, 69, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[451203, 11360, 573, 12, 69, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[451779, 11374, 578, 12, 69, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[452360, 11388, 455, 10, 69, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[452818, 11400, 172, 3, 69, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453027, 11408, 2221, 64, 69, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[455251, 11474, 570, 12, 69, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[455824, 11488, 573, 12, 69, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[456400, 11502, 578, 12, 69, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[456981, 11516, 455, 10, 69, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[457439, 11528, 172, 3, 69, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457648, 11536, 2221, 64, 69, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[459872, 11602, 572, 12, 69, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[460447, 11616, 575, 12, 69, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[461025, 11630, 578, 12, 69, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[461606, 11644, 455, 10, 69, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[462064, 11656, 173, 3, 69, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462274, 11664, 213, 6, 69, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[462490, 11672, 172, 3, 69, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], +Cell[462677, 11678, 245, 5, 69, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[462947, 11687, 558, 19, 69, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[463508, 11708, 173, 3, 69, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463718, 11716, 170, 5, 69, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[463891, 11723, 171, 3, 69, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464099, 11731, 181, 5, 69, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[464283, 11738, 173, 3, 69, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464493, 11746, 6055, 185, 69, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[470551, 11933, 175, 3, 69, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470763, 11941, 368, 9, 69, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[471134, 11952, 170, 3, 69, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471341, 11960, 6122, 187, 69, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[477466, 12149, 175, 3, 69, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477678, 12157, 368, 9, 69, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[478049, 12168, 172, 3, 69, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478258, 12176, 2663, 88, 69, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[480924, 12266, 173, 3, 69, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481134, 12274, 2603, 85, 69, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[483740, 12361, 171, 3, 69, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483948, 12369, 3712, 118, 69, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[487663, 12489, 171, 3, 69, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487871, 12497, 2052, 59, 69, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[489926, 12558, 568, 12, 69, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[490497, 12572, 572, 12, 69, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[491072, 12586, 574, 12, 69, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[491649, 12600, 457, 10, 69, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[492109, 12612, 172, 3, 69, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492318, 12620, 2054, 59, 69, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[494375, 12681, 568, 12, 69, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[494946, 12695, 572, 12, 69, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[495521, 12709, 574, 12, 69, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[496098, 12723, 457, 10, 69, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[496558, 12735, 171, 3, 69, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496766, 12743, 2030, 55, 69, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[498799, 12800, 19960, 375, 69, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518796, 13180, 2118, 60, 69, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[520917, 13242, 496, 11, 69, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[521416, 13255, 501, 11, 69, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[521920, 13268, 505, 11, 69, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[522428, 13281, 455, 10, 69, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[522886, 13293, 21721, 403, 69, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[544622, 13699, 181, 3, 69, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[544806, 13704, 207, 5, 69, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[545038, 13713, 1616, 48, 69, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[546657, 13763, 589, 12, 69, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[547249, 13777, 588, 12, 69, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[547840, 13791, 594, 12, 69, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[548437, 13805, 455, 10, 69, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[548895, 13817, 173, 3, 69, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549105, 13825, 2246, 64, 69, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[551354, 13891, 566, 12, 69, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[551923, 13905, 570, 12, 69, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[552496, 13919, 574, 12, 69, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[553073, 13933, 456, 10, 69, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[553532, 13945, 171, 3, 69, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553740, 13953, 2221, 64, 69, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[555964, 14019, 569, 12, 69, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[556536, 14033, 571, 12, 69, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[557110, 14047, 575, 12, 69, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[557688, 14061, 458, 10, 69, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[558149, 14073, 171, 3, 69, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558357, 14081, 2223, 64, 69, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[560583, 14147, 567, 12, 69, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[561153, 14161, 571, 12, 69, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[561727, 14175, 573, 12, 69, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[562303, 14189, 456, 10, 69, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[562762, 14201, 173, 3, 69, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562972, 14209, 211, 6, 69, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[563186, 14217, 174, 3, 69, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb new file mode 100755 index 0000000..0f1df04 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb @@ -0,0 +1,14425 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 585712, 14417] +NotebookOptionsPosition[ 546076, 13788] +NotebookOutlinePosition[ 546505, 13805] +CellTagsIndexPosition[ 546462, 13802] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"07f72ee3-926b-5344-b663-\ +1a5c88aface5"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"ea72bb20-a86a-ec4c-9e29-a628d422f24c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"c84484d9-6e14-7a40-9c02-fe16f2844b30"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"14edbd1f-cb11-0a45-af5a-d2b17de4cbb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"602726cb-1a0d-c74a-8526-001d9caf820e"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"cc77ad7a-55bb-6e41-a98e-0b2957bd9c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"1b3165ce-02e3-7743-9a69-968c90b6d6a2"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"7d20aeb8-a47c-254b-988c-09c4f1342b47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"f19a5e99-16b6-494d-bc7e-963677e548e2"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"668cb05b-ce2d-604f-8f3f-7553083a178d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"c4e4a357-f4fc-b44e-9a86-f5200e22a446"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"b78b6060-b559-f543-bb13-ea8fb9ddbd3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"a8c7cb46-db81-1748-946d-f11213c241f9"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"5f3acec4-1d83-8b46-aff5-65ef2c596463"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"02ba1693-08ff-0f42-8cd9-aaf1421239fe"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"761da3ce-9467-3644-86bc-9aab7100fdcf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"19079dd7-7133-3f41-b7fe-8cd5c0965a91"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"11ec42e7-2296-ae46-8fe5-fe630668a80e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"55305a95-10d7-174e-a056-94b035d14e24"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"ff07f7f3-f5a6-614c-872a-3cda37f841fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"55a2971e-7eec-b541-8c39-3101e7174a37"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"e9a07ed0-7d95-9247-b9bf-2a3a712f8c8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"648afa06-ac3a-8c42-8ebc-e814bfce97f5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"566f1c6c-9f41-724d-995d-373320b2605f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"d8048c62-3de5-e046-9bcd-1695ca38b974"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"ced71fe9-8574-8343-ae58-e197d1e8a8e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"f5d0c30b-ea4c-dc48-ae61-79eb305b1794"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"fe9df648-8f52-404e-934b-02dd3d185c37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"663770d1-66db-a44c-8bf7-256628e2cd64"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"e604c090-4ac5-dc4a-9f77-c9bb16e52907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"c2e9d53a-b88f-324a-9b00-2082996041c8"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"5d922415-9e83-984c-8bc3-ae5df0a09996"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"d6ec2c61-5304-fb4a-bd6f-1baaba82b97e"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"f5761769-db14-3147-a2ad-1d0e2dfe46d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"7e010941-892c-d440-8981-b89d763c5b1b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"0c97b8bf-0eed-e446-ac58-b0bfb9f70384"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"0eb61fa0-a40a-1341-95cb-d8cfad0c502a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"0f7383dd-5b31-5441-adeb-ec72a2a0978e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"4a6b9213-1474-0d40-9ec5-d881dab3558f"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c01a5841-f57f-274f-8cad-371bc9d768bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"3487ced0-b765-e44a-a1f6-8c6274547d0b"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"b0e16938-06d8-ff4b-b396-74bc9d6ad907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"b190132e-2ea0-6340-9097-e6b37463d0e5"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"31f564f8-48dc-e146-a87a-d3e11a2968f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"405669b2-a773-194e-a982-9012c67af4d5"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"f1e2fc13-b5cd-f54e-b79b-c43f08b73b57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"7bda0a3d-d57b-d74f-960f-301c614b0421"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"24687108-981b-3749-8942-67ca78140a18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"6399aa3b-2148-7d4c-88f1-e953dabb4e5c"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"d781d84c-6485-134c-88b7-026ce8df65a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"e3850e2b-4b41-5b47-82ac-cf6c7f603617"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"3805a3b0-50b1-5141-b659-21411eb1ff67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"a5ec021f-6418-0849-a117-c97688c1e682"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"31625da1-6c20-464f-9ac2-75fea79d07cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"151354d5-e400-d345-9901-faa6688aa40a"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"59ec8465-9883-384e-b9ad-4d27a471a753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"7dc10e63-4950-384d-9141-dd2ef4612ce1"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"a5d9b73f-ec95-8043-b876-9fedd8f0585f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"8171f2c9-2d75-ce4f-8a32-3dd3fc2daacd"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"b406afa6-2d3a-a74c-9144-81461b1dac60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"9fdf9325-d25f-3b41-b32f-97575c1df323"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"bec72722-f7f8-f54b-b70b-907128efce58"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"41673e15-e6de-fe47-950c-7b1f2c7dfd6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"7b93443b-b0b4-db45-a47c-46e8ee0ddc1b"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"79e76264-8f57-e24c-a47a-94f211da3a3a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"88b2d44d-0392-c64e-9077-6e2216c2a495"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"2c4884bb-f4a0-a347-a778-d5d80d3c207b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"55a490d4-f0cb-9a46-9bfc-479b121ab37c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"f0650ff3-22ed-a54c-8376-796552b196d7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"e22d0d9a-98af-ab43-afb7-e478421286df"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"d80670f0-1cc9-6b4f-a882-c9df2614dc30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"bef54975-9c89-724b-8785-d8c4b5ddd430"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"dd9979b5-9388-6348-94bd-1984bae4214c"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"6e8c2d06-3c7d-f641-bdcc-86754f3cabef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"cd8a400b-4ac0-dd49-9421-9742544f11ee"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"bac972ac-c0d3-bf46-97e9-14ff0c6ed48e"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"09d3253e-7692-3d42-9421-a389a53f9616"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"1bab47be-8748-a647-b7d6-2428614313ae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"daa55c72-e67b-074f-a520-8d5b5f8f6847"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"0e2c983f-8d9e-4b44-9bbd-90cc2b94e758"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"d39ac6c7-93c1-0f48-a65c-d715005e7adc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"293760ee-041c-1447-b6ff-ffeaa10077ad"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"867a094f-7be7-be48-88da-503b4509ef1c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"f6a5c810-0778-2743-a235-f08ec2aeecfd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"8c7d2da5-1545-ba4b-b1be-c0c3c826d7e1"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"e7affea2-53d3-224b-b4d1-4dcc1e3b42c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"a770069a-721e-5d48-a9de-c3e8734acda3"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"25f4500b-bc35-6c45-af59-4250c43e96d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"f1043aa1-a214-244a-b733-ef6b0ad0ee42"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"f0925d25-82bb-c04c-a38c-5119a9075a51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"d3f94f18-b7b8-a043-a700-bf3a21138b48"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"808969b7-b58f-9844-9719-56d1a8f4ee59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"3cdd6860-b4e2-4d49-a72e-6fe0b37a834d"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"d2ce8fd9-eb06-5249-ab75-5a5a3357ea3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"4df7d12b-5d48-9142-8f53-5b4b9d801f14"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"dd050d96-9bc3-cf41-a25e-334497952adc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"b6e92f0e-813f-9045-9686-e604554d4948"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"a9c23cfe-bd59-084a-b547-e246e45be82f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"cea3785d-93ef-4642-9b48-4e2f42773a80"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"fdbb836e-b7ab-084b-9daf-90b245432a48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"bb07f854-3c12-474c-87a4-0510349f1c8d"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"c898cda5-e9d4-3b4a-ac28-e616eaf88920"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"6445f16d-5c34-3449-a16b-d1a2b8b40a69"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"7a32bfde-5209-484e-9a5e-4b37f4f1799e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"e060dd29-a195-c344-812e-6d0704874fcc"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"fe499101-bd3d-e942-bec7-6d4c71860bd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"62af4000-a573-a54a-b730-37a978add5a2"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"b4077b0c-1348-6848-b894-34c030d50ba0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"7f841a54-0c14-b44d-9057-1205bade2c2f"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"60ddedb0-1636-534e-a5b0-c2c22d9f9e04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"57a55c76-8b07-f643-aa6f-8c01cc09b493"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"59405077-598c-e346-8211-2e5d03f3f22b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"91e0ca2b-558f-714f-8623-b4b515073763"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"991991df-a93e-9e46-8a5f-91523df13dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"e9c21126-979b-c248-bd9e-595575d42f84"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"d97ed9ad-d3b4-8249-abc4-d365e30fa354"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"9d54f8da-5e0e-824d-95ea-05915833942f"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"30a1155e-78a6-674b-b7ee-a857e7d6e7fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"cd09fed1-3e7a-2345-a162-7f8720d3d7ff"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"444294b5-51d0-0d4b-8050-dd784863cba5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"0fd5209c-7dce-0e4b-afff-cb4fa4c675dc"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"1ce0570b-dd8e-5746-b7ca-f59ab318f947"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"03601d7a-ce88-f24f-a049-36577e2ddd6c"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"d4fe7187-6218-a44a-8f58-1f4b79171512"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"31570adb-11c2-5f46-a7e0-bccad98db6ba"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"b74831e9-96dd-d34e-a565-0bc945ef1984"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"6b322f69-fda9-4640-b476-fdfa276954f6"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"3f98d884-5479-4042-a2b9-6a2550c3fc2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"4561ed8f-47c0-ea4d-a8c1-66abf8ce6d0b"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"5f478722-5626-2f48-9954-741e827ff755"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"a8c5dd76-483f-364b-94b5-37e85d19ae4c"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"89db7975-5b06-8346-811d-d985f9dd4000"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.9920934671563683`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ +6f058773310c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, + 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ +c82e80965ca9"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.9920934710674915`*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ +c44fbe83a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ +656c90598e75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ +62296271f174"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ +2171e7786920"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.992093372500942*^9},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ +09454f88e7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ +e19335f7a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ +fb8d284b16bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849803549658*^9, + 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ +f67bfdbd9bc7"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, + 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ +e87abbd4c41c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ +7e9487f745c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ +18c538c3321c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ +a45df2eabf0c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ +30286a178ca1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ +fc6fb6cd41f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849908545643*^9, + 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ +684ff23ed035"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, + 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ +85227a6e6b51"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ +65328572e509"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ +aa229443ac14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ +9a77a5dc787c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ +2e1269faf5ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ +93b70f20e7f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ +cdce838d9efe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ +533b19d33de6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918500011025047`*^9, + 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ +cedeeeb0247a"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"07f72ee3-926b-5344-b663-1a5c88aface5"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"ea72bb20-a86a-ec4c-9e29-a628d422f24c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"c84484d9-6e14-7a40-9c02-fe16f2844b30"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"14edbd1f-cb11-0a45-af5a-d2b17de4cbb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"602726cb-1a0d-c74a-8526-001d9caf820e"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"cc77ad7a-55bb-6e41-a98e-0b2957bd9c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"1b3165ce-02e3-7743-9a69-968c90b6d6a2"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"7d20aeb8-a47c-254b-988c-09c4f1342b47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"f19a5e99-16b6-494d-bc7e-963677e548e2"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"668cb05b-ce2d-604f-8f3f-7553083a178d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"c4e4a357-f4fc-b44e-9a86-f5200e22a446"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"b78b6060-b559-f543-bb13-ea8fb9ddbd3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"a8c7cb46-db81-1748-946d-f11213c241f9"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"5f3acec4-1d83-8b46-aff5-65ef2c596463"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"02ba1693-08ff-0f42-8cd9-aaf1421239fe"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"761da3ce-9467-3644-86bc-9aab7100fdcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"19079dd7-7133-3f41-b7fe-8cd5c0965a91"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"11ec42e7-2296-ae46-8fe5-fe630668a80e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"55305a95-10d7-174e-a056-94b035d14e24"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"ff07f7f3-f5a6-614c-872a-3cda37f841fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"55a2971e-7eec-b541-8c39-3101e7174a37"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"e9a07ed0-7d95-9247-b9bf-2a3a712f8c8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"648afa06-ac3a-8c42-8ebc-e814bfce97f5"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"566f1c6c-9f41-724d-995d-373320b2605f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"d8048c62-3de5-e046-9bcd-1695ca38b974"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"ced71fe9-8574-8343-ae58-e197d1e8a8e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"f5d0c30b-ea4c-dc48-ae61-79eb305b1794"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"fe9df648-8f52-404e-934b-02dd3d185c37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"663770d1-66db-a44c-8bf7-256628e2cd64"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"e604c090-4ac5-dc4a-9f77-c9bb16e52907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"c2e9d53a-b88f-324a-9b00-2082996041c8"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"5d922415-9e83-984c-8bc3-ae5df0a09996"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"d6ec2c61-5304-fb4a-bd6f-1baaba82b97e"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"f5761769-db14-3147-a2ad-1d0e2dfe46d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"7e010941-892c-d440-8981-b89d763c5b1b"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"0c97b8bf-0eed-e446-ac58-b0bfb9f70384"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"0eb61fa0-a40a-1341-95cb-d8cfad0c502a"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"0f7383dd-5b31-5441-adeb-ec72a2a0978e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"4a6b9213-1474-0d40-9ec5-d881dab3558f"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c01a5841-f57f-274f-8cad-371bc9d768bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"3487ced0-b765-e44a-a1f6-8c6274547d0b"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"b0e16938-06d8-ff4b-b396-74bc9d6ad907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"b190132e-2ea0-6340-9097-e6b37463d0e5"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"31f564f8-48dc-e146-a87a-d3e11a2968f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"405669b2-a773-194e-a982-9012c67af4d5"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"f1e2fc13-b5cd-f54e-b79b-c43f08b73b57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"7bda0a3d-d57b-d74f-960f-301c614b0421"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"24687108-981b-3749-8942-67ca78140a18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"6399aa3b-2148-7d4c-88f1-e953dabb4e5c"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"d781d84c-6485-134c-88b7-026ce8df65a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"e3850e2b-4b41-5b47-82ac-cf6c7f603617"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"3805a3b0-50b1-5141-b659-21411eb1ff67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"a5ec021f-6418-0849-a117-c97688c1e682"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"31625da1-6c20-464f-9ac2-75fea79d07cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"151354d5-e400-d345-9901-faa6688aa40a"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"59ec8465-9883-384e-b9ad-4d27a471a753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"7dc10e63-4950-384d-9141-dd2ef4612ce1"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"a5d9b73f-ec95-8043-b876-9fedd8f0585f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"8171f2c9-2d75-ce4f-8a32-3dd3fc2daacd"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"b406afa6-2d3a-a74c-9144-81461b1dac60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"9fdf9325-d25f-3b41-b32f-97575c1df323"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"bec72722-f7f8-f54b-b70b-907128efce58"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"41673e15-e6de-fe47-950c-7b1f2c7dfd6c"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"7b93443b-b0b4-db45-a47c-46e8ee0ddc1b"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"79e76264-8f57-e24c-a47a-94f211da3a3a"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"88b2d44d-0392-c64e-9077-6e2216c2a495"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"2c4884bb-f4a0-a347-a778-d5d80d3c207b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"55a490d4-f0cb-9a46-9bfc-479b121ab37c"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"f0650ff3-22ed-a54c-8376-796552b196d7"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"e22d0d9a-98af-ab43-afb7-e478421286df"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"d80670f0-1cc9-6b4f-a882-c9df2614dc30"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"bef54975-9c89-724b-8785-d8c4b5ddd430"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"dd9979b5-9388-6348-94bd-1984bae4214c"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"6e8c2d06-3c7d-f641-bdcc-86754f3cabef"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"cd8a400b-4ac0-dd49-9421-9742544f11ee"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"bac972ac-c0d3-bf46-97e9-14ff0c6ed48e"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"09d3253e-7692-3d42-9421-a389a53f9616"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"1bab47be-8748-a647-b7d6-2428614313ae"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"daa55c72-e67b-074f-a520-8d5b5f8f6847"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"0e2c983f-8d9e-4b44-9bbd-90cc2b94e758"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"d39ac6c7-93c1-0f48-a65c-d715005e7adc"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"293760ee-041c-1447-b6ff-ffeaa10077ad"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"867a094f-7be7-be48-88da-503b4509ef1c"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"f6a5c810-0778-2743-a235-f08ec2aeecfd"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"8c7d2da5-1545-ba4b-b1be-c0c3c826d7e1"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"e7affea2-53d3-224b-b4d1-4dcc1e3b42c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"a770069a-721e-5d48-a9de-c3e8734acda3"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"25f4500b-bc35-6c45-af59-4250c43e96d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"f1043aa1-a214-244a-b733-ef6b0ad0ee42"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"f0925d25-82bb-c04c-a38c-5119a9075a51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"d3f94f18-b7b8-a043-a700-bf3a21138b48"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"808969b7-b58f-9844-9719-56d1a8f4ee59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"3cdd6860-b4e2-4d49-a72e-6fe0b37a834d"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"d2ce8fd9-eb06-5249-ab75-5a5a3357ea3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"4df7d12b-5d48-9142-8f53-5b4b9d801f14"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"dd050d96-9bc3-cf41-a25e-334497952adc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"b6e92f0e-813f-9045-9686-e604554d4948"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"a9c23cfe-bd59-084a-b547-e246e45be82f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"cea3785d-93ef-4642-9b48-4e2f42773a80"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"fdbb836e-b7ab-084b-9daf-90b245432a48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"bb07f854-3c12-474c-87a4-0510349f1c8d"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"c898cda5-e9d4-3b4a-ac28-e616eaf88920"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"6445f16d-5c34-3449-a16b-d1a2b8b40a69"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"7a32bfde-5209-484e-9a5e-4b37f4f1799e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"e060dd29-a195-c344-812e-6d0704874fcc"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"fe499101-bd3d-e942-bec7-6d4c71860bd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"62af4000-a573-a54a-b730-37a978add5a2"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"b4077b0c-1348-6848-b894-34c030d50ba0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"7f841a54-0c14-b44d-9057-1205bade2c2f"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"60ddedb0-1636-534e-a5b0-c2c22d9f9e04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"57a55c76-8b07-f643-aa6f-8c01cc09b493"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"59405077-598c-e346-8211-2e5d03f3f22b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"91e0ca2b-558f-714f-8623-b4b515073763"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"991991df-a93e-9e46-8a5f-91523df13dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"e9c21126-979b-c248-bd9e-595575d42f84"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"d97ed9ad-d3b4-8249-abc4-d365e30fa354"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"9d54f8da-5e0e-824d-95ea-05915833942f"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"30a1155e-78a6-674b-b7ee-a857e7d6e7fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"cd09fed1-3e7a-2345-a162-7f8720d3d7ff"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"444294b5-51d0-0d4b-8050-dd784863cba5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"0fd5209c-7dce-0e4b-afff-cb4fa4c675dc"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"1ce0570b-dd8e-5746-b7ca-f59ab318f947"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"03601d7a-ce88-f24f-a049-36577e2ddd6c"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"d4fe7187-6218-a44a-8f58-1f4b79171512"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"31570adb-11c2-5f46-a7e0-bccad98db6ba"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"b74831e9-96dd-d34e-a565-0bc945ef1984"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"6b322f69-fda9-4640-b476-fdfa276954f6"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"3f98d884-5479-4042-a2b9-6a2550c3fc2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"4561ed8f-47c0-ea4d-a8c1-66abf8ce6d0b"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"5f478722-5626-2f48-9954-741e827ff755"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"a8c5dd76-483f-364b-94b5-37e85d19ae4c"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"89db7975-5b06-8346-811d-d985f9dd4000"] +}, Open ]], +Cell[187709, 4988, 194, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[187906, 4994, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[188065, 4999, 192, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[188260, 5005, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[188437, 5012, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[189741, 5057, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189954, 5065, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[190865, 5098, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191077, 5106, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[191967, 5138, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192181, 5146, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[192742, 5167, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192951, 5175, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[193605, 5199, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193812, 5207, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[193985, 5214, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194195, 5222, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[194368, 5229, 169, 3, 32, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194574, 5237, 181, 5, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[194758, 5244, 173, 3, 32, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194968, 5252, 181, 5, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[195152, 5259, 170, 3, 32, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195359, 5267, 6055, 185, 498, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[201417, 5454, 174, 3, 32, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201628, 5462, 368, 9, 42, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[201999, 5473, 170, 3, 32, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202206, 5481, 6122, 187, 500, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[208331, 5670, 174, 3, 32, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208542, 5678, 368, 9, 42, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[208913, 5689, 170, 3, 32, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209120, 5697, 2663, 88, 187, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[211786, 5787, 171, 3, 32, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211994, 5795, 2603, 85, 165, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[214600, 5882, 171, 3, 32, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214808, 5890, 3712, 118, 348, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[218523, 6010, 171, 3, 32, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[218709, 6016, 138, 3, 42, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[218872, 6023, 2054, 59, 228, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[220929, 6084, 566, 12, 85, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[221498, 6098, 569, 12, 85, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[222070, 6112, 570, 12, 85, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[222643, 6126, 458, 10, 26, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[223104, 6138, 172, 3, 32, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223313, 6146, 2052, 59, 228, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[225368, 6207, 564, 12, 85, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[225935, 6221, 567, 12, 85, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[226505, 6235, 570, 12, 85, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[227078, 6249, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[227536, 6261, 169, 3, 32, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227742, 6269, 1936, 53, 115, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[229681, 6324, 19983, 375, 237, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249701, 6704, 2092, 60, 211, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[251796, 6766, 501, 11, 60, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[252300, 6779, 503, 11, 60, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[252806, 6792, 506, 11, 60, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[253315, 6805, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[253774, 6817, 41581, 727, 235, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[295370, 7547, 2453, 69, 158, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[297826, 7618, 209, 5, 42, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[298060, 7627, 217, 7, 48, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[298280, 7636, 170, 3, 32, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298487, 7644, 1814, 53, 183, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[300304, 7699, 506, 11, 60, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[300813, 7712, 512, 11, 60, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[301328, 7725, 509, 11, 60, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[301840, 7738, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[302299, 7750, 22336, 412, 233, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324672, 8167, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[326291, 8217, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[326878, 8231, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[327469, 8245, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[328063, 8259, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[328522, 8271, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328732, 8279, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[331009, 8346, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[331578, 8360, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[332150, 8374, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[332725, 8388, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[333186, 8400, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333394, 8408, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[335618, 8474, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[336185, 8488, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[336755, 8502, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[337328, 8516, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[337787, 8528, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337997, 8536, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[340223, 8602, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[340792, 8616, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[341364, 8630, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[341937, 8644, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[342398, 8656, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342605, 8664, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[342821, 8672, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[343007, 8678, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[343276, 8687, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[343837, 8708, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344047, 8716, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[344220, 8723, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344428, 8731, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[344612, 8738, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344822, 8746, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[350880, 8933, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351092, 8941, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[351463, 8952, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351672, 8960, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[357797, 9149, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358007, 9157, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[358378, 9168, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358585, 9176, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[361251, 9266, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361459, 9274, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[364065, 9361, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364273, 9369, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[367988, 9489, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368195, 9497, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[370250, 9558, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[370826, 9572, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[371406, 9586, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[371989, 9600, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[372448, 9612, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372655, 9620, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[374712, 9681, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[375288, 9695, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[375868, 9709, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[376453, 9723, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[376912, 9735, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377119, 9743, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[379150, 9800, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399609, 10187, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[401732, 10249, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[402237, 10262, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[402746, 10275, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[403254, 10288, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[403715, 10300, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[426018, 10715, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[426252, 10724, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[427871, 10774, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[428469, 10788, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[429067, 10802, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[429669, 10816, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[430128, 10828, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430336, 10836, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[432587, 10902, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[433165, 10916, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[433745, 10930, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[434330, 10944, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[434791, 10956, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435000, 10964, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[437218, 11029, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[437796, 11043, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[438376, 11057, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[438961, 11071, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[439422, 11083, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439629, 11091, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[441855, 11157, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[442431, 11171, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[443011, 11185, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[443594, 11199, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[444053, 11211, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444263, 11219, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[444479, 11227, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[444667, 11233, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[444939, 11242, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[445500, 11263, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445710, 11271, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[445883, 11278, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446093, 11286, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[446277, 11293, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446487, 11301, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[452545, 11488, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452754, 11496, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[453125, 11507, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453334, 11515, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[459459, 11704, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459669, 11712, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[460040, 11723, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460247, 11731, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[462913, 11821, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463121, 11829, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[465727, 11916, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465937, 11924, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[469652, 12044, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469862, 12052, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[471917, 12113, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[472488, 12127, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[473064, 12141, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[473643, 12155, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[474104, 12167, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474313, 12175, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[476368, 12236, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[476939, 12250, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[477515, 12264, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[478092, 12278, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[478553, 12290, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478762, 12298, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[480793, 12355, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501205, 12744, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[503326, 12806, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[503830, 12819, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[504336, 12832, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[504845, 12845, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[505306, 12857, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[527482, 13269, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[527716, 13278, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[529335, 13328, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[529928, 13342, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[530520, 13356, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[531116, 13370, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[531575, 13382, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531782, 13390, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[534036, 13456, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[534607, 13470, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[535183, 13484, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[535760, 13498, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[536221, 13510, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536431, 13518, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[538655, 13584, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[539228, 13598, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[539804, 13612, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[540380, 13626, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[540841, 13638, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[541049, 13646, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[543273, 13712, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[543846, 13726, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[544422, 13740, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[544999, 13754, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[545460, 13766, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545670, 13774, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[545888, 13782, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb new file mode 100755 index 0000000..bfabd69 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb @@ -0,0 +1,15054 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 623898, 15046] +NotebookOptionsPosition[ 584236, 14416] +NotebookOutlinePosition[ 584690, 14434] +CellTagsIndexPosition[ 584647, 14431] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"5256c3dc-46bd-c04c-b57d-\ +07819ec9de26"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"5a1424b6-68bc-ff44-9606-f6d6d0a65c8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"6ef5c31e-2914-8b47-ab8b-a683ed9e9907"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"00da21f7-5cf4-7d4d-8b9a-cc608086760c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"ea9e9924-e753-714f-b93e-52df74513ad6"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"c7c8914e-af46-9f43-8fed-b05b19490ffa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"842bfd33-ca7c-8241-8698-14baa5e334b8"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"7f9470a6-edfb-2246-9505-2b53cf49db8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"2c50735f-08fa-ea41-aaf7-9215719d5cd9"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"aa4661a1-41cb-e145-ba8b-c063789a8f53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"0c06f379-4a36-ea42-9168-5b07ba82713e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"27362904-2d73-3d4e-85d6-fb0809cb2fb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"95cb2633-0a57-2d48-b2a2-7f2c0568680d"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"f2a91c26-843f-ce46-a1df-7ba6d151a405"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"37d9860f-ff27-b94a-a6d0-18ff866e73b3"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"7577f24b-b586-fa42-b93c-98cc66d5dff2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"1cb5aa11-2809-f146-aa3c-cde4b744a9ce"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"054a24d8-9fce-234d-a5bf-62361ac142a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"33ffab53-47c9-ea4e-9239-bb988697ac40"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"f359917e-5c82-914d-a8a3-286b46de5451"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"f0b21b56-52cb-d54d-9f21-77587afac62b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"947a15b1-8389-3f47-8303-81fea71b7d68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"9545c29a-d8e8-6f47-9b2e-e45baeb372fb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"1fa998ae-1d6a-fd40-8e02-18565d8d934d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"59312493-cd1f-ab45-9ead-b26096fb7c6c"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"3295361e-0707-8042-ab8a-6f91a81bc38b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"ba0ce5db-1cd8-954a-97f6-db7ff6252e51"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"ed223a56-fb9b-be4e-9652-13bb489b51d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"237b1892-dfd9-494d-82dc-b4c1dc4fabc0"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"8ec7c614-053a-9844-aacf-fb5a29342ac2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"f1142c40-4517-8e4f-9abb-3000f7c01c81"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"ab8479e0-9d2b-d046-acfa-2d5c38fdf9f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"b031de1c-3d67-3947-8a7c-4e459656d7f0"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"c71eb28e-80a7-8446-a1af-33a8ee021a21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"64b92a29-db48-7e4b-ae84-94a841cc543d"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"d71c54cb-3c6a-604e-89ff-97dccf816cf1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"e703af79-c3ef-0b45-a6ba-7aed9870b7be"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"1d96405e-fc53-4640-a49f-971d487fbfdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"6d35dcad-da6b-6d44-96b4-23193b77159e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"993425a2-2412-5841-9f43-96e917f923d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"d78e7799-db72-7b45-9fea-42eb15fabcda"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"33083af8-f100-1f40-bbf9-001c1c2781ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"0ea5901c-0a02-8d40-9d99-d34ba37deae0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"d44a62d1-5d5d-754f-befd-8adf03234b63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"1834d945-796c-5f4e-8cd4-7f50cd0fcd45"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"7f02729a-b0e2-f24c-8cc3-4a3829acd7f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"75fe92ad-cb8f-e14d-a68d-90efdd6e7ddb"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"a6798b6c-3b4a-e64a-8e43-0718043d0ab7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"22d999ad-3cfa-8848-81c0-51a24c9f1965"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"6b63cb2a-1ab8-e848-9ac7-ef6b0303b1d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"9246503a-6d77-cf4a-9b3d-5598cf9e564f"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"b3e2d2b1-9e97-e648-850e-6955c1fa39eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"11e5a2ac-5658-8f46-8fab-f1b936b21832"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"ba1e9911-781d-7346-9c59-3f35a827e860"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"f542ca86-1bce-094b-8e45-86b1bded8fd5"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"66f4e7de-9bd2-514d-b94d-a333638680f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"44f2e5ef-d3c6-654e-8b54-63ba3704d013"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"c79b9052-bd83-9a42-b34c-dda9039c3f1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"22cbcbcc-5d2f-f24b-adb9-e9ed2a82e4a7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"987c3b95-be0a-0d44-8de1-a549f82b1904"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"7891d3a5-426c-e74e-8c55-4736ff8e4ec7"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"1a30e6ef-e961-5b42-917e-eede0b234ee7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"61d29687-8c56-2a4b-9614-d10ed5aaf54a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"4e78657f-ed48-494d-a60d-8e987a136464"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"ff729ef9-d0c0-a14e-bc89-3310f5642fd0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"735e6dff-209c-0b43-a03a-2e5108126fbb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"0ead2356-53ad-ab43-bb49-150de875cbfe"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"e7481a02-635c-e748-8aa4-2a6d38598dbf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"53595566-428d-5749-93a8-7ab842057ce0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"07eb17d4-e435-c84e-99a9-2e0d3712802b"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"6d55a2af-8c03-f04b-a70e-7fae72a1d696"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"39883787-faf5-844a-8e17-ec4f2678b8bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"ee1e98cb-cd0e-3845-8e2f-3f0a95da65fd"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"99c06ee8-5413-d148-92d3-6c005dc56018"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"2b5574f3-7e0b-da43-a362-1d766784b127"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"e38a9edd-98c9-f44c-be99-5306614a8943"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"aecb149f-8fdb-bf46-b486-1ae0a46c4609"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"46081969-98a3-934e-af61-f0985290f9fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"791dee79-3432-e640-9061-34198725b26b"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"1673a03e-3533-6745-92f5-7b0fcba83a3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"da3ea10d-67f6-a546-85fb-400e95f31074"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"5939ecba-e430-0644-8b32-1bab2e587a3d"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"c53ec103-eac5-7f45-b143-9359c1a25a60"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"984b6947-7ff8-a64f-8815-c742469825de"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"37cae3fd-2e80-8944-a3cb-365117dabd96"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"09955eb7-3fea-9a4d-8574-0faed17a7462"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"7a384ef9-4737-b544-8efc-b75be7ab83b6"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"3c4c7626-329e-9344-9ff5-b98e3c8cea96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"77d4556f-b89c-af4a-afbd-80ec60af808b"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"1fa4502f-ef6b-6643-ace8-76d8ed71afcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"42a847c6-a605-2d4c-af85-4a9ee2240b11"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"eacf1398-bdfe-574f-8e90-9e9498074a08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"570fd72a-9833-2447-8fa8-da3c75f36b13"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"7e303240-9659-f649-96be-7f3f0466cf84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"6c79978d-34f1-ba49-8d0e-3bb55927a3b3"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"10b7d991-3796-3d49-9117-5a4af6b5c544"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"d37f8e73-99b3-584e-bb20-d8f61db89d74"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"83a13434-9207-5040-8415-704bd8a8d47c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"55438a76-6d5a-4b41-ab44-4d681d057718"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"f73c4867-c2aa-3240-933e-d007e91649df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"9da7fa25-315a-8e41-a2c9-a04aa0c13c11"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"0e53f3ad-dbe6-0d48-9f66-335b36864a07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"e85fc4ad-8ec1-464f-89e3-49e0d346a262"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"3ae69439-711d-1e44-b6de-d7ec0124cc39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"284a170f-6ad7-944d-9566-d9aeb25ce38a"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"21f472a0-5798-e945-ac88-06cef5d2720c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"3579c5dc-e108-644c-a1df-b4f9e6394520"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"57de0e21-823c-824b-99ab-0fc536845a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"e803a065-2d64-7e43-b65d-ca9a239afb22"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"9acb830b-483d-064d-ae62-bda220f61061"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"eac6de65-d0aa-2d49-ab37-02acdaf372b8"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"4f1461e1-bc52-ad4b-bf59-0878c9352e0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"0802e376-73b3-474d-9a52-d24afc4f5b3b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"27baef84-41cc-b340-abfd-c23d238e1afe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"6d4d8c6f-aafe-6b46-8b3a-e4df7abeefc3"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"2fa87c1e-da8f-5743-a65b-fb8ec2f58ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"0ef9bb4e-2149-1741-a630-cc7d1715c59c"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"94b19d43-3ce5-094e-878f-fde6d10e4b1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"343bb669-b65f-ae4b-a918-6617de2b2357"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"15e520e0-2345-7b46-8d5d-06f00cf7401a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"93e7b389-b35e-a14c-a383-1acedc0bc14f"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"cff94058-5348-7244-9cd4-d7521f36a3f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"d71623f3-dfc6-c343-b8df-4f0964dfb1f2"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"d56a1179-4a10-174e-a091-4827bc69344f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"867b2951-1628-5e4b-a109-b613cd2a3308"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"56b4773e-e7ed-674a-8652-0ccc4155fd26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"72acf5a7-b149-a94b-b539-b44d573bd23a"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"6505a06c-f7ed-4e48-b2b7-7fda8abda893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"089f3a19-af46-084e-90de-3ed7bb97fe71"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"65ce86c1-6326-2644-be3e-7c065e1f00bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"a600ed0f-d635-9d4c-aead-7fe5ea2b58a7"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"f926e429-91b0-244a-9de4-290a1ff124fc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.992093496395481*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ +406cf54e52d1"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, + 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ +7bcc4af89c62"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.992093501426468*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ +1a154ab4a709"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933460244923`*^9},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991848926103155*^9, + 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ +b231aa8028b9"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, + 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ +0ec5d19a7879"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ +3e066daf15d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ +dd23af9a4471"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ +3cf1fdaf28d9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ +4070462057d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ +7a397847208f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ +f1f0210d6caf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ +d3e8d1574bcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918490375675926`*^9, + 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ +76bfd8e40ccb"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, + 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ +6604b8708636"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ +804123b5ccd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ +b799ae260294"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ +7fa9a2a651b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ +0d2700971836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ +5a08f479e656"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ +ed18c097f8c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918491594691143`*^9, + 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ +6d96abe14e67"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 22, "Input",ExpressionUUID->"5256c3dc-46bd-c04c-b57d-07819ec9de26"], +Cell[1014, 32, 391, 7, 25, "Output",ExpressionUUID->"5a1424b6-68bc-ff44-9606-f6d6d0a65c8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 22, "Input",ExpressionUUID->"6ef5c31e-2914-8b47-ab8b-a683ed9e9907"], +Cell[1699, 51, 395, 7, 25, "Output",ExpressionUUID->"00da21f7-5cf4-7d4d-8b9a-cc608086760c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 22, "Input",ExpressionUUID->"ea9e9924-e753-714f-b93e-52df74513ad6"], +Cell[2365, 70, 391, 7, 25, "Output",ExpressionUUID->"c7c8914e-af46-9f43-8fed-b05b19490ffa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 22, "Input",ExpressionUUID->"842bfd33-ca7c-8241-8698-14baa5e334b8"], +Cell[2977, 88, 393, 7, 25, "Output",ExpressionUUID->"7f9470a6-edfb-2246-9505-2b53cf49db8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 35, "Input",ExpressionUUID->"2c50735f-08fa-ea41-aaf7-9215719d5cd9"], +Cell[3673, 110, 409, 7, 25, "Output",ExpressionUUID->"aa4661a1-41cb-e145-ba8b-c063789a8f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 22, "Input",ExpressionUUID->"0c06f379-4a36-ea42-9168-5b07ba82713e"], +Cell[4259, 127, 397, 7, 25, "Output",ExpressionUUID->"27362904-2d73-3d4e-85d6-fb0809cb2fb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 22, "Input",ExpressionUUID->"95cb2633-0a57-2d48-b2a2-7f2c0568680d"], +Cell[4978, 148, 401, 7, 25, "Output",ExpressionUUID->"f2a91c26-843f-ce46-a1df-7ba6d151a405"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 22, "Input",ExpressionUUID->"37d9860f-ff27-b94a-a6d0-18ff866e73b3"], +Cell[5682, 170, 406, 7, 25, "Output",ExpressionUUID->"7577f24b-b586-fa42-b93c-98cc66d5dff2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 22, "Input",ExpressionUUID->"1cb5aa11-2809-f146-aa3c-cde4b744a9ce"], +Cell[6344, 188, 372, 6, 25, "Output",ExpressionUUID->"054a24d8-9fce-234d-a5bf-62361ac142a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 22, "Input",ExpressionUUID->"33ffab53-47c9-ea4e-9239-bb988697ac40"], +Cell[6972, 205, 376, 6, 25, "Output",ExpressionUUID->"f359917e-5c82-914d-a8a3-286b46de5451"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 22, "Input",ExpressionUUID->"f0b21b56-52cb-d54d-9f21-77587afac62b"], +Cell[7522, 221, 393, 7, 25, "Output",ExpressionUUID->"947a15b1-8389-3f47-8303-81fea71b7d68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 22, "Input",ExpressionUUID->"9545c29a-d8e8-6f47-9b2e-e45baeb372fb"], +Cell[8089, 238, 382, 7, 25, "Output",ExpressionUUID->"1fa998ae-1d6a-fd40-8e02-18565d8d934d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 65, "Input",ExpressionUUID->"59312493-cd1f-ab45-9ead-b26096fb7c6c"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"3295361e-0707-8042-ab8a-6f91a81bc38b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"ba0ce5db-1cd8-954a-97f6-db7ff6252e51"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"ed223a56-fb9b-be4e-9652-13bb489b51d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"237b1892-dfd9-494d-82dc-b4c1dc4fabc0"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"8ec7c614-053a-9844-aacf-fb5a29342ac2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"f1142c40-4517-8e4f-9abb-3000f7c01c81"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"ab8479e0-9d2b-d046-acfa-2d5c38fdf9f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"b031de1c-3d67-3947-8a7c-4e459656d7f0"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"c71eb28e-80a7-8446-a1af-33a8ee021a21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"64b92a29-db48-7e4b-ae84-94a841cc543d"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"d71c54cb-3c6a-604e-89ff-97dccf816cf1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"e703af79-c3ef-0b45-a6ba-7aed9870b7be"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"1d96405e-fc53-4640-a49f-971d487fbfdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"6d35dcad-da6b-6d44-96b4-23193b77159e"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"993425a2-2412-5841-9f43-96e917f923d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"d78e7799-db72-7b45-9fea-42eb15fabcda"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"33083af8-f100-1f40-bbf9-001c1c2781ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"0ea5901c-0a02-8d40-9d99-d34ba37deae0"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"d44a62d1-5d5d-754f-befd-8adf03234b63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"1834d945-796c-5f4e-8cd4-7f50cd0fcd45"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"7f02729a-b0e2-f24c-8cc3-4a3829acd7f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"75fe92ad-cb8f-e14d-a68d-90efdd6e7ddb"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"a6798b6c-3b4a-e64a-8e43-0718043d0ab7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"22d999ad-3cfa-8848-81c0-51a24c9f1965"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"6b63cb2a-1ab8-e848-9ac7-ef6b0303b1d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"9246503a-6d77-cf4a-9b3d-5598cf9e564f"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"b3e2d2b1-9e97-e648-850e-6955c1fa39eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"11e5a2ac-5658-8f46-8fab-f1b936b21832"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"ba1e9911-781d-7346-9c59-3f35a827e860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"f542ca86-1bce-094b-8e45-86b1bded8fd5"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"66f4e7de-9bd2-514d-b94d-a333638680f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"44f2e5ef-d3c6-654e-8b54-63ba3704d013"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"c79b9052-bd83-9a42-b34c-dda9039c3f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"22cbcbcc-5d2f-f24b-adb9-e9ed2a82e4a7"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"987c3b95-be0a-0d44-8de1-a549f82b1904"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"7891d3a5-426c-e74e-8c55-4736ff8e4ec7"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"1a30e6ef-e961-5b42-917e-eede0b234ee7"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"61d29687-8c56-2a4b-9614-d10ed5aaf54a"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"4e78657f-ed48-494d-a60d-8e987a136464"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"ff729ef9-d0c0-a14e-bc89-3310f5642fd0"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"735e6dff-209c-0b43-a03a-2e5108126fbb"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"0ead2356-53ad-ab43-bb49-150de875cbfe"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"e7481a02-635c-e748-8aa4-2a6d38598dbf"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"53595566-428d-5749-93a8-7ab842057ce0"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"07eb17d4-e435-c84e-99a9-2e0d3712802b"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"6d55a2af-8c03-f04b-a70e-7fae72a1d696"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"39883787-faf5-844a-8e17-ec4f2678b8bc"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"ee1e98cb-cd0e-3845-8e2f-3f0a95da65fd"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"99c06ee8-5413-d148-92d3-6c005dc56018"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"2b5574f3-7e0b-da43-a362-1d766784b127"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"e38a9edd-98c9-f44c-be99-5306614a8943"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"aecb149f-8fdb-bf46-b486-1ae0a46c4609"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"46081969-98a3-934e-af61-f0985290f9fc"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"791dee79-3432-e640-9061-34198725b26b"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"1673a03e-3533-6745-92f5-7b0fcba83a3b"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"da3ea10d-67f6-a546-85fb-400e95f31074"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"5939ecba-e430-0644-8b32-1bab2e587a3d"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"c53ec103-eac5-7f45-b143-9359c1a25a60"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"984b6947-7ff8-a64f-8815-c742469825de"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"37cae3fd-2e80-8944-a3cb-365117dabd96"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"09955eb7-3fea-9a4d-8574-0faed17a7462"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"7a384ef9-4737-b544-8efc-b75be7ab83b6"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"3c4c7626-329e-9344-9ff5-b98e3c8cea96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"77d4556f-b89c-af4a-afbd-80ec60af808b"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"1fa4502f-ef6b-6643-ace8-76d8ed71afcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"42a847c6-a605-2d4c-af85-4a9ee2240b11"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"eacf1398-bdfe-574f-8e90-9e9498074a08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"570fd72a-9833-2447-8fa8-da3c75f36b13"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"7e303240-9659-f649-96be-7f3f0466cf84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"6c79978d-34f1-ba49-8d0e-3bb55927a3b3"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"10b7d991-3796-3d49-9117-5a4af6b5c544"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"d37f8e73-99b3-584e-bb20-d8f61db89d74"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"83a13434-9207-5040-8415-704bd8a8d47c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"55438a76-6d5a-4b41-ab44-4d681d057718"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"f73c4867-c2aa-3240-933e-d007e91649df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"9da7fa25-315a-8e41-a2c9-a04aa0c13c11"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"0e53f3ad-dbe6-0d48-9f66-335b36864a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"e85fc4ad-8ec1-464f-89e3-49e0d346a262"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"3ae69439-711d-1e44-b6de-d7ec0124cc39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"284a170f-6ad7-944d-9566-d9aeb25ce38a"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"21f472a0-5798-e945-ac88-06cef5d2720c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"3579c5dc-e108-644c-a1df-b4f9e6394520"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"57de0e21-823c-824b-99ab-0fc536845a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"e803a065-2d64-7e43-b65d-ca9a239afb22"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"9acb830b-483d-064d-ae62-bda220f61061"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"eac6de65-d0aa-2d49-ab37-02acdaf372b8"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"4f1461e1-bc52-ad4b-bf59-0878c9352e0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"0802e376-73b3-474d-9a52-d24afc4f5b3b"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"27baef84-41cc-b340-abfd-c23d238e1afe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"6d4d8c6f-aafe-6b46-8b3a-e4df7abeefc3"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"2fa87c1e-da8f-5743-a65b-fb8ec2f58ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"0ef9bb4e-2149-1741-a630-cc7d1715c59c"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"94b19d43-3ce5-094e-878f-fde6d10e4b1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 46, "Input",ExpressionUUID->"343bb669-b65f-ae4b-a918-6617de2b2357"], +Cell[176093, 4606, 422, 8, 25, "Output",ExpressionUUID->"15e520e0-2345-7b46-8d5d-06f00cf7401a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 46, "Input",ExpressionUUID->"93e7b389-b35e-a14c-a383-1acedc0bc14f"], +Cell[177057, 4638, 413, 8, 25, "Output",ExpressionUUID->"cff94058-5348-7244-9cd4-d7521f36a3f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 109, "Input",ExpressionUUID->"d71623f3-dfc6-c343-b8df-4f0964dfb1f2"], +Cell[179303, 4714, 397, 7, 25, "Output",ExpressionUUID->"d56a1179-4a10-174e-a091-4827bc69344f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 64, "Input",ExpressionUUID->"867b2951-1628-5e4b-a109-b613cd2a3308"], +Cell[180846, 4765, 422, 8, 25, "Output",ExpressionUUID->"56b4773e-e7ed-674a-8652-0ccc4155fd26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 90, "Input",ExpressionUUID->"72acf5a7-b149-a94b-b539-b44d573bd23a"], +Cell[183131, 4842, 404, 7, 25, "Output",ExpressionUUID->"6505a06c-f7ed-4e48-b2b7-7fda8abda893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 65, "Input",ExpressionUUID->"089f3a19-af46-084e-90de-3ed7bb97fe71"], +Cell[185211, 4910, 406, 7, 25, "Output",ExpressionUUID->"65ce86c1-6326-2644-be3e-7c065e1f00bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 65, "Input",ExpressionUUID->"a600ed0f-d635-9d4c-aead-7fe5ea2b58a7"], +Cell[187293, 4978, 401, 7, 25, "Output",ExpressionUUID->"f926e429-91b0-244a-9de4-290a1ff124fc"] +}, Open ]], +Cell[187709, 4988, 192, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[187904, 4994, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[188061, 4999, 192, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[188256, 5005, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[188435, 5012, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[189739, 5057, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189954, 5065, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[190867, 5098, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191079, 5106, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[191969, 5138, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192182, 5146, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[192743, 5167, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192952, 5175, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[193578, 5198, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193787, 5206, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[193960, 5213, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194169, 5221, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[194342, 5228, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194550, 5236, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[194734, 5243, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194941, 5251, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[195125, 5258, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195334, 5266, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[201392, 5453, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201601, 5461, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[201972, 5472, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202180, 5480, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[208305, 5669, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208515, 5677, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[208886, 5688, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209093, 5696, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[211759, 5786, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211967, 5794, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[214573, 5881, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214783, 5889, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[218498, 6009, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[218687, 6015, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[218850, 6022, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[220907, 6083, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[221467, 6097, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[222029, 6111, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[222593, 6125, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[223054, 6137, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223263, 6145, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[225318, 6206, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[225876, 6220, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[226438, 6234, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[227002, 6248, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[227463, 6260, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227672, 6268, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[229611, 6323, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250088, 6710, 2094, 60, 92, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[252185, 6772, 500, 11, 33, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[252688, 6785, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[253194, 6798, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[253703, 6811, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[254161, 6823, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[311497, 7811, 2455, 69, 111, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[313955, 7882, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[314189, 7891, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[314409, 7900, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314618, 7908, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[316437, 7963, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[316948, 7976, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[317459, 7989, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[317973, 8002, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[318432, 8014, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344469, 8491, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[346088, 8541, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[346675, 8555, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[347266, 8569, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[347861, 8583, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[348320, 8595, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348526, 8603, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[350778, 8669, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[351336, 8683, 557, 12, 50, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[351896, 8697, 563, 12, 50, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[352462, 8711, 458, 10, 20, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[352923, 8723, 173, 3, 25, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353133, 8731, 2223, 64, 131, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[355359, 8797, 555, 12, 50, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[355917, 8811, 557, 12, 50, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[356477, 8825, 561, 12, 50, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[357041, 8839, 458, 10, 20, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[357502, 8851, 173, 3, 25, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357712, 8859, 2221, 64, 131, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[359936, 8925, 557, 12, 50, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[360496, 8939, 557, 12, 50, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[361056, 8953, 563, 12, 50, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[361622, 8967, 456, 10, 20, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[362081, 8979, 173, 3, 25, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362291, 8987, 213, 6, 38, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[362507, 8995, 171, 3, 25, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[362693, 9001, 245, 5, 34, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[362963, 9010, 558, 19, 42, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[363524, 9031, 172, 3, 25, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363733, 9039, 170, 5, 46, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[363906, 9046, 173, 3, 25, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364116, 9054, 181, 5, 35, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[364300, 9061, 173, 3, 25, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364510, 9069, 6055, 185, 310, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[370568, 9256, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370777, 9264, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[371148, 9275, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371355, 9283, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[377480, 9472, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377692, 9480, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[378063, 9491, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378272, 9499, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[380938, 9589, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381148, 9597, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[383754, 9684, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383962, 9692, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[387677, 9812, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387888, 9820, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[389943, 9881, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[390524, 9895, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[391110, 9909, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[391699, 9923, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[392158, 9935, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392365, 9943, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[394422, 10004, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[395001, 10018, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[395585, 10032, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[396174, 10046, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[396635, 10058, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396844, 10066, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[398875, 10123, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418923, 10506, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[421041, 10568, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[421545, 10581, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[422051, 10594, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[422559, 10607, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[423018, 10619, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[455581, 11202, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[455815, 11211, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[457434, 11261, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[458033, 11275, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[458635, 11289, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[459243, 11303, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[459702, 11315, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459909, 11323, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[462159, 11389, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[462742, 11403, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[463328, 11417, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[463915, 11431, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[464376, 11443, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464583, 11451, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[466805, 11517, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[467388, 11531, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[467974, 11545, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[468563, 11559, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[469024, 11571, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469232, 11579, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[471456, 11645, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[472039, 11659, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[472625, 11673, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[473212, 11687, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[473671, 11699, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473878, 11707, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[474094, 11715, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[474283, 11721, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[474555, 11730, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[475116, 11751, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475326, 11759, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[475499, 11766, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475709, 11774, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[475893, 11781, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476101, 11789, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[482159, 11976, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482369, 11984, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[482740, 11995, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482949, 12003, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[489074, 12192, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489286, 12200, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[489657, 12211, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489865, 12219, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[492531, 12309, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492741, 12317, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[495347, 12404, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495555, 12412, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[499270, 12532, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499481, 12540, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[501538, 12601, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[502113, 12615, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[502689, 12629, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[503271, 12643, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[503730, 12655, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503936, 12663, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[505988, 12723, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[506561, 12737, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[507139, 12751, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[507721, 12765, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[508182, 12777, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508390, 12785, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[510423, 12842, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530471, 13225, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[532594, 13287, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[533098, 13300, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[533606, 13313, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[534115, 13326, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[534574, 13338, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[565597, 13897, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[565831, 13906, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[567450, 13956, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[568046, 13970, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[568644, 13984, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[569249, 13998, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[569708, 14010, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569917, 14018, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[572169, 14084, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[572744, 14098, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[573322, 14112, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[573904, 14126, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[574365, 14138, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[574575, 14146, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[576799, 14212, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[577374, 14226, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[577952, 14240, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[578532, 14254, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[578991, 14266, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579200, 14274, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[581426, 14340, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[582001, 14354, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[582577, 14368, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[583159, 14382, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[583618, 14394, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583828, 14402, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[584046, 14410, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb new file mode 100755 index 0000000..9b79ed0 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb @@ -0,0 +1,14795 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 611711, 14787] +NotebookOptionsPosition[ 572981, 14167] +NotebookOutlinePosition[ 573407, 14184] +CellTagsIndexPosition[ 573364, 14181] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"742a3a56-2cde-af46-ab2c-\ +a1a35a8158a9"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"6b75ed5e-afb5-f34c-a6ee-7a81e84d1bfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"e5bbee1c-06ce-814e-ab76-58e8f1fd5db8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"fdb1ec2e-9d37-1646-a587-01d33e20fd90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"43f451fe-e5b7-1541-9c11-586434a67271"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"46202611-4321-f54f-8d85-a717a03f34f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"475ac420-b3eb-3b4b-819c-65afcf17ccca"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"216c706a-32e0-fd49-994d-3ae640f2421f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"31697d1f-9262-7a43-8835-84fea6a5bde1"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"2d6e082f-2782-2f49-aeb7-e0e2b230bcfd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"ac12c312-21aa-fe4a-885c-aa1d0fa92460"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"5ca721b2-f292-6e4f-afc6-89b6e645e047"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[1555]:=",ExpressionUUID->"278915ea-94e6-7749-a23e-931213e43d8e"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"39c57ce3-e594-304a-818f-d3260864f834"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"e2dc64a0-7a88-5749-a1ed-f62740f21486"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"19d3ba96-259a-d94e-9c8d-7fee56ec46a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"04fd393f-0e5f-8142-9b20-9673f101fbb3"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"207b133b-fa4c-4242-a80a-1fe42d8020ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"2102324b-f5dd-f648-9404-9b3033a47f3c"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"15d641cb-a1d3-584d-bab9-5b98020cb873"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"2eac6ca1-45d7-ad47-9b45-97a27add738d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"2bfd7cbc-2ebb-d340-86ca-cbae7e447b2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"acf085ca-bf4b-dd47-99bc-7af124257a7a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"db4a42d8-0d8c-8b42-b74b-0fff03920b9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1561]:=",ExpressionUUID->"d08d065e-ca14-fd4a-8938-387bf193d734"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"c7a1ce0a-0c67-8e45-8b3f-1581502eeb48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[1562]:=",ExpressionUUID->"f787f109-4222-0d45-947c-ebe062300742"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"b326dee0-d023-8a4a-9293-e3a295825f92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1563]:=",ExpressionUUID->"e5575eaa-6da5-f649-8b21-7709a2b41a35"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"8d9ac8ad-9185-9b4f-910b-081395203cb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1564]:=",ExpressionUUID->"c9e5a272-d098-fa45-87ea-a461af348913"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"a3bc407a-837d-ac44-b4d0-9581d890719f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[1565]:=",ExpressionUUID->"d1d14813-2c1e-ff4c-b555-39acedba3bd2"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"56a18cc4-3239-2947-8f29-dee8d7b78687"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[1566]:=",ExpressionUUID->"d6689c30-7e9c-af48-b442-8b9bb7e319e4"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"7e80a9ef-939a-8149-9d23-bfb4b1bef0fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"fc1ce63e-0857-d144-a98e-7ac2277639be"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"e6d7ae19-0859-a147-871f-90bbccf4e7e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"934a681d-dd2e-eb47-b5d8-3ee404c5ff80"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c86da45b-4576-cb44-bd4f-72b8f9c31c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"7173d4d7-a56a-bb40-a10a-8270aaa57f43"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"cd400eb6-566d-f94b-808d-a117ca277dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"2c1e7dad-eccc-7b48-a2b7-c4fc557d8a96"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"811057cd-7241-3b4d-921b-6148d068fc85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"24c57a68-f570-fb43-9c34-0736c5664fc9"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"98c068b0-2635-3947-b859-89c6354bda51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, + 3.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"17571f1a-e910-6f44-9d7a-f04cb7735699"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"d5b66d04-3c79-c743-a660-0f8dd75e7e92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"aa3438f7-876d-2442-8f83-5b3bc9eb73cb"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"626f13c8-f0b7-e747-9e54-2bf565fb2177"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"8ef65ad5-ac30-c34e-8c32-948500ac557e"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"4e5d4f80-57cf-404d-89b3-2a5dfc5210df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1575]:=",ExpressionUUID->"84a7b0fc-6991-0540-b54b-07d25dd0d5ca"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"4b563e2b-4743-e147-acda-62f51c61cc15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[1576]:=",ExpressionUUID->"c49c9c7a-a2d3-ea4e-95a5-7bc7bc816177"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"6a961abe-f389-be49-bd89-696f42ca5bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[1577]:=",ExpressionUUID->"3c7fc5a9-381c-1a46-a5d8-cd20d5790d09"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"fe630458-39fb-1c44-a162-f3d75e95c10d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"b386c402-a05c-f440-a679-2ae85b839950"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"84a27068-b5b6-614f-9308-0f59df61d380"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"d4c58116-53cb-c649-959d-61e1241dd134"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"b47382f9-2663-8c49-b12b-cc25d11b62db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"a0a604ec-216d-7a44-90eb-105b817bba49"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"4312c330-2673-0140-98bc-0908750d86a7"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"b2ad1ef1-85bd-1c40-bc1d-37e187230d44"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"465437ad-9c89-a74c-acdd-391d57d52463"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"e4dde26e-6cd1-1945-a46f-0f1499eb132b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"8ba71dd1-0b73-6241-8bd5-e4d40b426335"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"52be8323-86a8-414a-89e1-e2f6fe236b3c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"54ebbbb2-fe94-a14a-9bc1-76bb81203049"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"e7b523cd-6cec-964c-9b51-20336c9933f2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"dc4101d5-bdbf-9f45-bb53-50ff319e8dc1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"5f1c1532-799e-724a-91ea-edd90246379d"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"7486e044-83da-734b-a3f3-1e037d0fe886"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"454ddad1-afc7-b947-a9b4-fe96a28d89ad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"4a19f10a-8124-4942-b4ad-1945e22c6f48"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"75417556-8fea-f04b-9007-dbb83efaea86"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"827f57dc-8457-9e42-a456-16bbd18ed19f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"1669d333-27d8-4d4f-9d99-2f3609cd1efd"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"51e85603-9095-5b4e-bbb2-a4bbe46a2a4e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"5ec2ebf8-50da-bb43-8a45-a66e6034406f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"ca268b66-3651-5f41-9bfb-1edb5fab84cf"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"43d7150c-c303-cb46-bbd2-64247aa837ee"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"db1703e9-7aa8-fc4a-b358-f60e69500e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[1595]:=",ExpressionUUID->"38f92d65-b185-5a47-ba8f-fc68f1062590"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"cb6c4a96-4128-d949-96c9-87cb62169ae6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1596]:=",ExpressionUUID->"d544da33-cb1a-4f44-8266-8c0ef48c07e7"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"e190edb5-9299-804d-8704-f4631328ce95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[1597]:=",ExpressionUUID->"ba588667-7a59-e249-b547-cd25c2250f2f"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"5d07db23-1a33-ff47-9130-eaf7fe920e13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1598]:=",ExpressionUUID->"e8aae839-0896-fd4d-a916-90fb1cf15914"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"3618f2b8-1e68-774f-957c-38b61866b54a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1599]:=",ExpressionUUID->"9927dafa-b66b-6343-9ac5-4bb4908773a9"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"de15d07f-1a2b-1542-b97b-f532e95da23a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1600]:=",ExpressionUUID->"497aa974-fa28-8940-82a6-a1bf7ec0bb01"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"48a86c80-df7a-9942-b48a-f05a6398ee57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"92b0a3ab-aacb-c34a-951e-1253702509e4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"bfc8e57f-37f1-fd4f-be86-d2e490d6b7c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"fbb71a59-954d-4849-be88-18e21b3ef877"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"91c3d388-f36d-e54d-8ec0-c1a3be50d30f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1603]:=",ExpressionUUID->"3fe374f1-2c9f-4e4b-8c35-cc86e1377955"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"b24be3a0-1742-654f-94d4-6af9272ac6dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1604]:=",ExpressionUUID->"229a361a-f1c7-854c-99d2-c2c0e7119461"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"65b135fb-0240-9445-a525-27e86ccbe017"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[1605]:=",ExpressionUUID->"3a19a933-18b0-1d4d-a27f-6dee4d9fb01b"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"fad2066c-cec5-3d41-9cc8-1e687fc18bf0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"f5dbb0b6-0bb9-2d41-932c-e2bd59c457bd"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"63586fc1-ff2d-d54e-bfb2-dc0286194e7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"202ba0b2-ed44-8943-819b-fd8d799e9ff4"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"32e2d2a6-694f-e047-a723-1001fe8af4c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"0c7930f6-7a14-0140-8c72-b4d70e7ef439"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"22595b3c-f75e-4a46-b771-0f4991774cf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"31992bd7-2e5c-f44e-9e3d-3b0c7fa0cce8"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"d0cb70ce-97ce-9343-a9a2-ba6265aac5de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"5cc88883-08e9-6442-878b-8739832bdd7f"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"4ac8e3f7-9ca5-ee48-b36c-c1e1cbb198d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"01a7198e-cf39-e944-8d89-ea6dc2ae3378"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"bed60351-5aee-c94f-a386-22d2e961fb6e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1612]:=",ExpressionUUID->"1fdecdbf-ce3b-f34a-a810-309424452804"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"e7ffd43b-f16b-4a4e-b9fc-de38bc69e074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[1613]:=",ExpressionUUID->"98431912-2d3e-f341-8078-94d2ab80cd4a"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"eb02b3cc-9468-e343-9c80-889e0893c599"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1614]:=",ExpressionUUID->"ab5082ed-9355-f947-826c-b10468227f63"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"40c2d35d-d682-4b4f-8925-ada040d853ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[1615]:=",ExpressionUUID->"63f90936-bc73-064a-b1a7-461c74db6955"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"b98ed7f1-1335-3040-b8d7-8769ace6a1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[1616]:=",ExpressionUUID->"920dc319-0fc4-844d-ae23-2e9deb8a4d12"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"5d79c4b0-4f3a-0a4c-ae34-f0f32cdb1b5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1617]:=",ExpressionUUID->"6d508492-df09-7148-803d-bcf469445232"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"ec14daec-8c58-0c45-a912-ae4addd411fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[1618]:=",ExpressionUUID->"66014b3e-1ae3-d244-a075-07ef14184504"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"80aaf6de-0342-6f43-aae8-3c615ecc6028"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.31253560157329"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.992093444914774*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ +299085c765cc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, + 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ +8fab318cd4b7"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.356762932165258"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, + 3.9920934493002834`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ +4265c9fafb97"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.992093385602083*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991850221900238*^9, + 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ +781173809e57"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, + 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ +092e912c15e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ +9afb90e551d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ +e3924f732df2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ +56c89a9b7467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918503106317043`*^9, + 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ +2a98ba29b602"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850318596199*^9, + 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ +68452b971319"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850325611994*^9, + 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ +b41cb2f3fa92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.99185033265069*^9, + 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ +aca0f3e8a35b"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, + 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ +a3711ba632a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ +cf1adc0753dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ +97489285cc9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ +5ac1cacd7190"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ +0aac70483e3c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ +53cfa72184b4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ +07bad9ba3e82"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566a849f-fc85-4d42-a545-a46d44cf7346"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ +f29bb610eb30"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"742a3a56-2cde-af46-ab2c-a1a35a8158a9"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"6b75ed5e-afb5-f34c-a6ee-7a81e84d1bfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"e5bbee1c-06ce-814e-ab76-58e8f1fd5db8"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"fdb1ec2e-9d37-1646-a587-01d33e20fd90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"43f451fe-e5b7-1541-9c11-586434a67271"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"46202611-4321-f54f-8d85-a717a03f34f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"475ac420-b3eb-3b4b-819c-65afcf17ccca"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"216c706a-32e0-fd49-994d-3ae640f2421f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"31697d1f-9262-7a43-8835-84fea6a5bde1"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"2d6e082f-2782-2f49-aeb7-e0e2b230bcfd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"ac12c312-21aa-fe4a-885c-aa1d0fa92460"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"5ca721b2-f292-6e4f-afc6-89b6e645e047"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"278915ea-94e6-7749-a23e-931213e43d8e"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"39c57ce3-e594-304a-818f-d3260864f834"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"e2dc64a0-7a88-5749-a1ed-f62740f21486"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"19d3ba96-259a-d94e-9c8d-7fee56ec46a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"04fd393f-0e5f-8142-9b20-9673f101fbb3"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"207b133b-fa4c-4242-a80a-1fe42d8020ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"2102324b-f5dd-f648-9404-9b3033a47f3c"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"15d641cb-a1d3-584d-bab9-5b98020cb873"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"2eac6ca1-45d7-ad47-9b45-97a27add738d"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"2bfd7cbc-2ebb-d340-86ca-cbae7e447b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"acf085ca-bf4b-dd47-99bc-7af124257a7a"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"db4a42d8-0d8c-8b42-b74b-0fff03920b9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"d08d065e-ca14-fd4a-8938-387bf193d734"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"c7a1ce0a-0c67-8e45-8b3f-1581502eeb48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"f787f109-4222-0d45-947c-ebe062300742"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"b326dee0-d023-8a4a-9293-e3a295825f92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"e5575eaa-6da5-f649-8b21-7709a2b41a35"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"8d9ac8ad-9185-9b4f-910b-081395203cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"c9e5a272-d098-fa45-87ea-a461af348913"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"a3bc407a-837d-ac44-b4d0-9581d890719f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"d1d14813-2c1e-ff4c-b555-39acedba3bd2"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"56a18cc4-3239-2947-8f29-dee8d7b78687"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"d6689c30-7e9c-af48-b442-8b9bb7e319e4"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"7e80a9ef-939a-8149-9d23-bfb4b1bef0fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"fc1ce63e-0857-d144-a98e-7ac2277639be"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"e6d7ae19-0859-a147-871f-90bbccf4e7e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"934a681d-dd2e-eb47-b5d8-3ee404c5ff80"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c86da45b-4576-cb44-bd4f-72b8f9c31c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"7173d4d7-a56a-bb40-a10a-8270aaa57f43"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"cd400eb6-566d-f94b-808d-a117ca277dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"2c1e7dad-eccc-7b48-a2b7-c4fc557d8a96"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"811057cd-7241-3b4d-921b-6148d068fc85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"24c57a68-f570-fb43-9c34-0736c5664fc9"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"98c068b0-2635-3947-b859-89c6354bda51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"17571f1a-e910-6f44-9d7a-f04cb7735699"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"d5b66d04-3c79-c743-a660-0f8dd75e7e92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"aa3438f7-876d-2442-8f83-5b3bc9eb73cb"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"626f13c8-f0b7-e747-9e54-2bf565fb2177"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"8ef65ad5-ac30-c34e-8c32-948500ac557e"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"4e5d4f80-57cf-404d-89b3-2a5dfc5210df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"84a7b0fc-6991-0540-b54b-07d25dd0d5ca"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"4b563e2b-4743-e147-acda-62f51c61cc15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"c49c9c7a-a2d3-ea4e-95a5-7bc7bc816177"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"6a961abe-f389-be49-bd89-696f42ca5bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"3c7fc5a9-381c-1a46-a5d8-cd20d5790d09"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"fe630458-39fb-1c44-a162-f3d75e95c10d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"b386c402-a05c-f440-a679-2ae85b839950"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"84a27068-b5b6-614f-9308-0f59df61d380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"d4c58116-53cb-c649-959d-61e1241dd134"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"b47382f9-2663-8c49-b12b-cc25d11b62db"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"a0a604ec-216d-7a44-90eb-105b817bba49"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"4312c330-2673-0140-98bc-0908750d86a7"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"b2ad1ef1-85bd-1c40-bc1d-37e187230d44"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"465437ad-9c89-a74c-acdd-391d57d52463"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"e4dde26e-6cd1-1945-a46f-0f1499eb132b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"8ba71dd1-0b73-6241-8bd5-e4d40b426335"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"52be8323-86a8-414a-89e1-e2f6fe236b3c"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"54ebbbb2-fe94-a14a-9bc1-76bb81203049"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"e7b523cd-6cec-964c-9b51-20336c9933f2"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"dc4101d5-bdbf-9f45-bb53-50ff319e8dc1"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"5f1c1532-799e-724a-91ea-edd90246379d"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"7486e044-83da-734b-a3f3-1e037d0fe886"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"454ddad1-afc7-b947-a9b4-fe96a28d89ad"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"4a19f10a-8124-4942-b4ad-1945e22c6f48"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"75417556-8fea-f04b-9007-dbb83efaea86"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"827f57dc-8457-9e42-a456-16bbd18ed19f"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"1669d333-27d8-4d4f-9d99-2f3609cd1efd"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"51e85603-9095-5b4e-bbb2-a4bbe46a2a4e"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"5ec2ebf8-50da-bb43-8a45-a66e6034406f"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"ca268b66-3651-5f41-9bfb-1edb5fab84cf"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"43d7150c-c303-cb46-bbd2-64247aa837ee"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"db1703e9-7aa8-fc4a-b358-f60e69500e07"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"38f92d65-b185-5a47-ba8f-fc68f1062590"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"cb6c4a96-4128-d949-96c9-87cb62169ae6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"d544da33-cb1a-4f44-8266-8c0ef48c07e7"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"e190edb5-9299-804d-8704-f4631328ce95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"ba588667-7a59-e249-b547-cd25c2250f2f"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"5d07db23-1a33-ff47-9130-eaf7fe920e13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"e8aae839-0896-fd4d-a916-90fb1cf15914"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"3618f2b8-1e68-774f-957c-38b61866b54a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"9927dafa-b66b-6343-9ac5-4bb4908773a9"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"de15d07f-1a2b-1542-b97b-f532e95da23a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"497aa974-fa28-8940-82a6-a1bf7ec0bb01"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"48a86c80-df7a-9942-b48a-f05a6398ee57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"92b0a3ab-aacb-c34a-951e-1253702509e4"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"bfc8e57f-37f1-fd4f-be86-d2e490d6b7c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"fbb71a59-954d-4849-be88-18e21b3ef877"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"91c3d388-f36d-e54d-8ec0-c1a3be50d30f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"3fe374f1-2c9f-4e4b-8c35-cc86e1377955"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"b24be3a0-1742-654f-94d4-6af9272ac6dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"229a361a-f1c7-854c-99d2-c2c0e7119461"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"65b135fb-0240-9445-a525-27e86ccbe017"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"3a19a933-18b0-1d4d-a27f-6dee4d9fb01b"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"fad2066c-cec5-3d41-9cc8-1e687fc18bf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"f5dbb0b6-0bb9-2d41-932c-e2bd59c457bd"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"63586fc1-ff2d-d54e-bfb2-dc0286194e7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"202ba0b2-ed44-8943-819b-fd8d799e9ff4"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"32e2d2a6-694f-e047-a723-1001fe8af4c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"0c7930f6-7a14-0140-8c72-b4d70e7ef439"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"22595b3c-f75e-4a46-b771-0f4991774cf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"31992bd7-2e5c-f44e-9e3d-3b0c7fa0cce8"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"d0cb70ce-97ce-9343-a9a2-ba6265aac5de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"5cc88883-08e9-6442-878b-8739832bdd7f"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"4ac8e3f7-9ca5-ee48-b36c-c1e1cbb198d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"01a7198e-cf39-e944-8d89-ea6dc2ae3378"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"bed60351-5aee-c94f-a386-22d2e961fb6e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"1fdecdbf-ce3b-f34a-a810-309424452804"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"e7ffd43b-f16b-4a4e-b9fc-de38bc69e074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"98431912-2d3e-f341-8078-94d2ab80cd4a"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"eb02b3cc-9468-e343-9c80-889e0893c599"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"ab5082ed-9355-f947-826c-b10468227f63"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"40c2d35d-d682-4b4f-8925-ada040d853ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"63f90936-bc73-064a-b1a7-461c74db6955"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"b98ed7f1-1335-3040-b8d7-8769ace6a1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"920dc319-0fc4-844d-ae23-2e9deb8a4d12"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"5d79c4b0-4f3a-0a4c-ae34-f0f32cdb1b5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"6d508492-df09-7148-803d-bcf469445232"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"ec14daec-8c58-0c45-a912-ae4addd411fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"66014b3e-1ae3-d244-a075-07ef14184504"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"80aaf6de-0342-6f43-aae8-3c615ecc6028"] +}, Open ]], +Cell[187709, 4988, 191, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[187903, 4994, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[188060, 4999, 194, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[188257, 5005, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[188436, 5012, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[189740, 5057, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189955, 5065, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[190866, 5098, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191080, 5106, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[191972, 5138, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192187, 5146, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[192748, 5167, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192957, 5175, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[193611, 5199, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193815, 5207, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[193988, 5214, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194197, 5222, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[194370, 5229, 173, 3, 32, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194580, 5237, 181, 5, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[194764, 5244, 171, 3, 32, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194972, 5252, 181, 5, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[195156, 5259, 172, 3, 32, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195365, 5267, 6055, 185, 498, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[201423, 5454, 174, 3, 32, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201634, 5462, 368, 9, 42, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[202005, 5473, 172, 3, 32, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202214, 5481, 6122, 187, 500, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[208339, 5670, 175, 3, 32, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208551, 5678, 368, 9, 42, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[208922, 5689, 172, 3, 32, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209131, 5697, 2663, 88, 187, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[211797, 5787, 171, 3, 32, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212005, 5795, 2603, 85, 165, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[214611, 5882, 173, 3, 32, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214821, 5890, 3712, 118, 348, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[218536, 6010, 174, 3, 32, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[218725, 6016, 138, 3, 42, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[218888, 6023, 2054, 59, 228, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[220945, 6084, 559, 12, 66, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[221507, 6098, 560, 12, 85, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[222070, 6112, 565, 12, 85, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[222638, 6126, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[223097, 6138, 170, 3, 32, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223304, 6146, 2054, 59, 228, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[225361, 6207, 559, 12, 66, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[225923, 6221, 559, 12, 85, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[226485, 6235, 565, 12, 85, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[227053, 6249, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[227514, 6261, 170, 3, 32, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227721, 6269, 1938, 53, 115, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[229662, 6324, 20196, 379, 237, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249895, 6708, 2094, 60, 211, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[251992, 6770, 503, 11, 60, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[252498, 6783, 505, 11, 60, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[253006, 6796, 506, 11, 60, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[253515, 6809, 455, 10, 26, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[253973, 6821, 55770, 961, 233, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[309758, 7785, 2453, 69, 158, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[312214, 7856, 209, 5, 42, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[312448, 7865, 217, 7, 48, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[312668, 7874, 173, 3, 32, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312878, 7882, 1814, 53, 183, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[314695, 7937, 506, 11, 60, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[315204, 7950, 508, 11, 60, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[315715, 7963, 509, 11, 60, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[316227, 7976, 458, 10, 26, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[316688, 7988, 24818, 454, 233, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341543, 8447, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[343162, 8497, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[343747, 8511, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[344338, 8525, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[344931, 8539, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[345392, 8551, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345600, 8559, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[347854, 8625, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[348414, 8639, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[348977, 8653, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[349545, 8667, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[350006, 8679, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350215, 8687, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[352436, 8753, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[352998, 8767, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[353563, 8781, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[354129, 8795, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[354590, 8807, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354797, 8815, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[357021, 8881, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[357583, 8895, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[358148, 8909, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[358714, 8923, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[359175, 8935, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359383, 8943, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[359599, 8951, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[359787, 8957, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[360057, 8966, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[360618, 8987, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360825, 8995, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[360998, 9002, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361208, 9010, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[361392, 9017, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361600, 9025, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[367658, 9212, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367867, 9220, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[368238, 9231, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368447, 9239, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[374572, 9428, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374782, 9436, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[375153, 9447, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375360, 9455, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[378026, 9545, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378234, 9553, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[380840, 9640, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381050, 9648, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[384765, 9768, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384976, 9776, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[387028, 9836, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[387610, 9850, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[388195, 9864, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[388782, 9878, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[389243, 9890, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389452, 9898, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[391509, 9959, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[392089, 9973, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[392672, 9987, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[393258, 10001, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[393717, 10013, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393925, 10021, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[395958, 10078, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416488, 10467, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[418611, 10529, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[419115, 10542, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[419622, 10555, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[420133, 10568, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[420592, 10580, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[452069, 11145, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[452303, 11154, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[453922, 11204, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[454521, 11218, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[455126, 11232, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[455734, 11246, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[456195, 11258, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456403, 11266, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[458657, 11332, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[459237, 11346, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[459820, 11360, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[460409, 11374, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[460870, 11386, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461080, 11394, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[463302, 11460, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[463884, 11474, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[464467, 11488, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[465056, 11502, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[465517, 11514, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465725, 11522, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[467947, 11588, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[468526, 11602, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[469109, 11616, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[469696, 11630, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[470157, 11642, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470367, 11650, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[470582, 11658, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[470769, 11664, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[471038, 11673, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[471599, 11694, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471807, 11702, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[471980, 11709, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472188, 11717, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[472372, 11724, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472582, 11732, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[478640, 11919, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478850, 11927, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[479221, 11938, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479430, 11946, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[485555, 12135, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485765, 12143, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[486136, 12154, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486345, 12162, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[489011, 12252, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489221, 12260, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[491827, 12347, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492035, 12355, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[495750, 12475, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495961, 12483, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[498018, 12544, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[498595, 12558, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[499178, 12572, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[499761, 12586, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[500220, 12598, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500429, 12606, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[502486, 12667, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[503065, 12681, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[503645, 12695, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[504230, 12709, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[504691, 12721, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504900, 12729, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[506931, 12786, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526989, 13169, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[529138, 13232, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[529643, 13245, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[530152, 13258, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[530663, 13271, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[531122, 13283, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[561152, 13824, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[561386, 13833, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[562979, 13882, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[563324, 13890, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563462, 13895, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[565714, 13961, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[566059, 13969, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[566404, 13977, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566542, 13982, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[568766, 14048, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[569111, 14056, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[569456, 14064, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569593, 14069, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[571819, 14135, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[572164, 14143, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[572509, 14151, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[572647, 14156, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[572863, 14164, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb new file mode 100755 index 0000000..f702788 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb @@ -0,0 +1,15088 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 634868, 15080] +NotebookOptionsPosition[ 595504, 14454] +NotebookOutlinePosition[ 595928, 14471] +CellTagsIndexPosition[ 595885, 14468] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"8034629a-ad46-2543-96e9-665c098d7b0c"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"93ea5906-eb04-9047-8cef-68b0763f7c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"dc9c77e4-3cfb-294e-9f86-cf656d8d2ea6"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"bbe52b99-2002-fa42-a3f0-8b4162c54871"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"15e15a9f-0334-9043-b8b9-f1ca4106ea61"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"d52f838e-d8ec-7549-9799-f23cd1eb08b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"1c82ac22-6dea-194e-9a1e-637d86c495ee"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"b236eb16-cf83-a040-a9e8-768e0651f5a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"24afb29b-54f8-f243-a2b3-6bc9c92d11eb"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2387a484-b0c6-3842-ae91-ab9b13cbd403"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"32c2cbe4-2613-8549-9aa5-86191ea073e5"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"69d1775f-2723-e140-9abd-2054c39a2ef6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"1f532123-e84b-7441-a626-c25decc207f4"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0db46d28-c19c-2941-8630-d4a702f7be5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"874dd9e7-be71-ae47-8889-e17639f31e85"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"be7cdcda-4de2-6445-82d0-fa882c11b50f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"f9e0a7ba-220a-b743-91b5-50aaf94ec86c"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"498e650e-c98c-cd46-9ff3-761bbae2b483"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"6eb0c41d-16ce-6640-82f0-819e094da28e"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"549ca9be-3aa2-3641-a9c4-0eaf9ba1bb1b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b10c8e9b-99a2-8c49-9d72-8abe7850a9eb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"be1ef1be-68ff-a141-b961-d07b1e984966"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"da6b028d-b021-d74d-9078-f23263665f7b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"04a74b39-f858-314c-8b5f-da822872b6fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"c48a305a-085f-f64d-a1c6-f00f13fed297"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"43ed07a3-e4e7-a343-9f32-4f866691321e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"b8c4900a-fd7d-3c49-86cf-3b8f9f4b5cc7"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"098d4055-d513-b548-8565-ec34640c73a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"3edc5467-1f4d-234d-a3e1-29d4af4be714"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"062abb2e-431a-8f44-9288-5e46a26df896"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"b5e17374-048c-bd4b-95f9-d6ef7d043243"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"dd4e9f3d-82b4-6345-b1cc-f0fe8ef38e79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"132371ce-6301-f847-884e-fc83bc9a17d2"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"c397bb4e-9f03-5b40-81eb-a0aa0e210d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"6d7fa188-d880-ee40-a891-c54434bcc9aa"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"c1434463-136c-d74b-a5bb-e5ea005032af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"eb280405-24fc-8347-bd42-4f8f1c10efb0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"ae9e705c-f3b5-8144-8d6e-701f9ae4d4ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"6ca61853-ea7e-464c-a881-3ea6ed4e391f"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"0ae8f939-f3ad-4f4f-a556-725baab4b569"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"c10b3dfb-d1f8-4a4e-802e-0df5aa6355ab"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"835bfe55-ebc8-a746-b2a5-3c372252e8df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"54b30067-e0dc-7548-9fe4-a174df9b2fc3"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"089a98d1-73e3-204f-8936-fea410905307"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"8f29137f-c321-9d49-98fd-20510e3a770e"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"383deac8-5ee8-df40-8917-204b1892a7a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"181519d5-4333-6949-a2b4-f1c9df7627ca"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"e9d97066-7078-5941-aa4c-279b5a59b11e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"bdda7ea0-e8bb-a14d-8478-10da82392727"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"ef039354-4e03-a841-95d0-3c0922239d9d"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"9c545887-40b7-504f-b012-5f57d60e46ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"f4be1cb9-fc67-9b49-86bc-d5a88be04bd9"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"f0e35011-e7b6-374e-8774-54a548742f40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"db4cdb7a-2c4f-1a4c-ba04-7cd4f8a471ad"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1e6d1025-35e0-344d-a6fd-a284d76a9184"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"db84c94f-436b-ea4f-b544-f23fc32faf29"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"0bf3879a-1903-2e40-b62c-9ee5e4e68ab7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8d2f667d-3f93-5f4f-981b-dace6f85227c"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"928b8c7b-0eb6-6942-b2a0-5a3bbe3f0fc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1bde936d-542d-3d4e-9775-6b0e2d7d37b9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"69ef140a-b263-794a-b63a-32c89567e3da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"16006ac2-b361-9642-8268-5d4cbd31277a"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"60bcc33b-0a6a-6e4d-8594-c6d756e865e7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"27310e89-4fab-d948-9e7c-8013539e6df1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"66cec6b5-bae5-f542-98cd-3f94fce4d90e"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"20025596-e85c-6d46-8c38-3ccbad1c40b0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"86434779-9bad-c14c-9f65-9237c19a0562"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"3aa302f7-27e2-694e-8db4-93428a6baec8"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"7ce5feda-2b2d-6d46-a527-cb691bab8f01"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"debff809-8d9f-234c-ab2c-d10db054a178"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"a3734cb6-5ca9-2d49-a888-9c8b7eebe9a3"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"addb2271-743d-5d4f-bcaa-f71ad77b7ead"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8f4bf596-3cb9-aa42-adb3-832e0d840c3e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"6613accf-75ad-4b46-b964-360b143e2a4d"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"4ba7dcbc-686c-1244-a49a-b10894375e30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"acd0e98a-f51d-aa4f-9a21-9a7b570a2eb6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"74172ae0-8cb0-d047-86a4-09866aebc8f4"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"96272fdb-c918-2f40-b99f-5da4bc7effba"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a5613600-e216-5f46-bbf6-07bed35f3cc8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"5a5de99e-c377-d04d-a2f6-e06075066408"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"30926e42-e6d4-364b-aa58-d9e4eb50b1de"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"513adba7-ac11-154c-84cc-c22e469180f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"8bf09d0d-c1ee-e045-91ae-4feca5c9f2a0"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"66bc46c9-9249-2947-9b2c-5413927ebd9a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"5cd4a594-c3a9-674d-99bd-f3e5d51952ea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"86117941-6091-384c-a4a4-d1519c22e558"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"982af05a-28a1-aa4e-b6c2-fd6bed22985b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"282a5804-542f-c043-84ac-4070c6cfe8eb"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"896232fa-87cf-8847-bdb9-43b3a3c4c2a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"1533aaea-8f15-a240-9701-992f949ed850"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a338d52f-4792-3147-ba70-6d631ee77ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"e9f51a28-b509-fa4c-9728-01bce58994fd"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"92039e7c-b5ab-0048-b32b-9a55f51aea3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"b7b96416-de19-4248-9b30-5860216b0544"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d44fa9d8-277d-8e45-8754-ad4814ebcce8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c571738b-c302-a643-8a08-a2a234e9553f"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"19d70101-2af5-604d-bc72-70dd2a5b4c6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"423a979a-bd7c-704e-835f-85f83d418bef"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"524d68ac-4c69-274d-8e50-0259f37b8074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"c92cdbf8-cf08-a442-adc0-90a6ac5fc433"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"fa9331e2-a2a5-6d43-9f1e-ee262896b3ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"cbd27e54-9e02-254d-93f1-6819805497c8"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"cd6e0f22-866a-cc4f-9a67-4dd98368e18e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"df02d053-a79b-814f-b9c0-db67d2e4f3be"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"6925622c-d9c8-e745-9bd2-4238d7912bf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"3048813b-1d54-1541-977b-65898c1003a8"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"18ff9f45-1565-374e-8c56-abe2be66a4b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"6f6cb038-51dd-ee4b-9bdf-2bf05256a435"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"54716ac9-9206-2842-a0a9-1fe049a9df7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"ba89a9a0-0726-9d41-bc94-cee3566ff966"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"89444dae-c60b-dc4f-ba96-d774c8b95ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"91d07e1b-a6d9-664f-93e6-9e1c0df476bc"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"adc1ea7e-a1a8-6142-93c6-ecdc608a1d89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"984b583a-0b2c-3248-811b-fefac388e307"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"48214336-53b5-3740-b3a3-f7912ccc4998"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"62d15abc-5e0b-5d45-9b90-61836ae46bc9"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"c9493975-0d20-5141-8aec-e53983216f32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b991a253-a043-6945-b917-59c53d095ef8"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0979f1f6-8811-6048-8875-077856627626"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"95c01338-09d3-f746-8c8d-07fac969a90c"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"066a5d4b-8e54-1b4b-b3f2-ccb08ad8fbab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"0648e5cc-dbde-d246-93fc-dd38f052ea85"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"96064bb9-3b23-454b-961b-f432e3d1d3f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"6e6ddedf-fc1b-6f4b-ac38-b69e062ed7cb"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"368a6cf7-0e99-154e-a6a0-483f43e8de78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"f71eb64e-299f-934d-b769-e8cb99106e5e"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"19cfb937-ddd4-004d-af17-0cf7f5758979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"747c7be1-9634-e64b-a475-3c0c88b3d601"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"7413c38d-cb39-b74c-b504-cf09acd96bf6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5e43eac2-2bf4-7d43-9f7d-9c24c5dadc3d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"d4aa9bd5-0509-7a45-ba50-2cf7548877fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"f32be67e-c897-814d-a7c9-655b24dd8615"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"7d7d8e8f-df61-da42-a283-65d99f702b2b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.130544612621423"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, + 3.99208978200362*^9},ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, + 3.9918455862781773`*^9}},ExpressionUUID->"abfd70d0-05dc-ae40-8117-\ +a301872389cf"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.3286783889013"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, + 3.9920897864405346`*^9},ExpressionUUID->"ab6f3c19-7b16-eb44-924b-\ +0479fa42666f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, + 3.991845587331728*^9}},ExpressionUUID->"6e63ff1c-fb16-304a-8e59-\ +6a9d82a9fa7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9, {3.9915581188955975`*^9, + 3.9915581216343517`*^9}},ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-\ +5d23057d1dfa"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}, + 3.9915581158968887`*^9},ExpressionUUID->"da02f8be-1800-4945-83f1-\ +7acaa76423f4"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"c5ebf9ff-e333-\ +7b4d-b8d5-46482917dc06"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845612037445*^9},ExpressionUUID->"e7569d02-bed5-3743-8058-\ +837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918456299851303`*^9},ExpressionUUID->"71739d4a-f3fc-9d4f-b803-\ +99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991845637746252*^9},ExpressionUUID->"762274ee-d7cb-9644-9b5c-\ +516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, + 3.991845656553877*^9}},ExpressionUUID->"c4af1473-2d54-b047-b3e2-\ +18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991846110594208*^9},ExpressionUUID->"4e5b3330-e10a-4342-8f3d-\ +b24f9b16b9de"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846112020672*^9},ExpressionUUID->"bb5f3a72-8528-7a48-a67a-\ +a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845708089321*^9, + 3.9918457122231236`*^9}},ExpressionUUID->"d3b2932a-2d3f-fa41-a705-\ +f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918457167596684`*^9, + 3.991845720288498*^9}},ExpressionUUID->"3a5379d3-3adc-3844-bbe2-\ +4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845728758301*^9, + 3.9918461210058537`*^9},ExpressionUUID->"208e04c0-4af7-a344-9e86-\ +ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, + 3.9918461306014214`*^9}},ExpressionUUID->"53a3c067-888b-bc49-a5e6-\ +f228162e6070"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9},ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-\ +bb84e7548fdc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846151022602*^9},ExpressionUUID->"a41abb59-b808-8547-b1d9-\ +a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918461538845863`*^9},ExpressionUUID->"779c8db8-6bae-9046-915d-\ +05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846157029255*^9},ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-\ +9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, + 3.9918461709620533`*^9}},ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-\ +db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.219251816068453`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 278, + 261, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8936448232315485`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 278, 262, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542864294*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6158106487006413`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 278, 263, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542873293*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 278, 264, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428812923`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22963416248739862`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846210534153*^9, + 3.991846213941681*^9}},ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-\ +947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846217504902*^9, + 3.991846220659443*^9}},ExpressionUUID->"38ca1203-b2e6-3044-aa85-\ +97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462258948135`*^9, + 3.9918462291469593`*^9}},ExpressionUUID->"087e4064-7024-cb41-8231-\ +fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, + 3.991846236994051*^9}},ExpressionUUID->"cd9a77e7-d597-394b-a710-\ +f971fc40d827"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9},ExpressionUUID->"13a90bf7-f7dc-7e48-845e-\ +80048a92ff15"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846260820032*^9},ExpressionUUID->"efacefcd-90be-574d-92a2-\ +eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846268674473*^9},ExpressionUUID->"113e0d2a-28bc-cb46-97f5-\ +cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918462728234997`*^9},ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-\ +28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846277689621*^9},ExpressionUUID->"0a8036ea-ac95-654b-96a9-\ +78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184628914184*^9, + 3.9918462932986107`*^9}},ExpressionUUID->"8304a1af-5a77-304f-9cc7-\ +82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462963096733`*^9, + 3.991846299126808*^9}},ExpressionUUID->"3ed977a3-b24a-0644-a438-\ +d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846303469427*^9, + 3.991846306205721*^9}},ExpressionUUID->"0a258b12-85fc-2a47-9b1a-\ +8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, + 3.991846313322897*^9}},ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-\ +8435ee411a7c"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"8034629a-ad46-2543-96e9-665c098d7b0c"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"93ea5906-eb04-9047-8cef-68b0763f7c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"dc9c77e4-3cfb-294e-9f86-cf656d8d2ea6"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"bbe52b99-2002-fa42-a3f0-8b4162c54871"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"15e15a9f-0334-9043-b8b9-f1ca4106ea61"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"d52f838e-d8ec-7549-9799-f23cd1eb08b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"1c82ac22-6dea-194e-9a1e-637d86c495ee"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"b236eb16-cf83-a040-a9e8-768e0651f5a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"24afb29b-54f8-f243-a2b3-6bc9c92d11eb"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"2387a484-b0c6-3842-ae91-ab9b13cbd403"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"32c2cbe4-2613-8549-9aa5-86191ea073e5"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"69d1775f-2723-e140-9abd-2054c39a2ef6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"1f532123-e84b-7441-a626-c25decc207f4"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"0db46d28-c19c-2941-8630-d4a702f7be5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"874dd9e7-be71-ae47-8889-e17639f31e85"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"be7cdcda-4de2-6445-82d0-fa882c11b50f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"f9e0a7ba-220a-b743-91b5-50aaf94ec86c"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"498e650e-c98c-cd46-9ff3-761bbae2b483"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"6eb0c41d-16ce-6640-82f0-819e094da28e"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"549ca9be-3aa2-3641-a9c4-0eaf9ba1bb1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"b10c8e9b-99a2-8c49-9d72-8abe7850a9eb"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"be1ef1be-68ff-a141-b961-d07b1e984966"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"da6b028d-b021-d74d-9078-f23263665f7b"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"04a74b39-f858-314c-8b5f-da822872b6fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 79, "Input",ExpressionUUID->"c48a305a-085f-f64d-a1c6-f00f13fed297"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"43ed07a3-e4e7-a343-9f32-4f866691321e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 79, "Input",ExpressionUUID->"b8c4900a-fd7d-3c49-86cf-3b8f9f4b5cc7"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"098d4055-d513-b548-8565-ec34640c73a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 80, "Input",ExpressionUUID->"3edc5467-1f4d-234d-a3e1-29d4af4be714"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"062abb2e-431a-8f44-9288-5e46a26df896"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 80, "Input",ExpressionUUID->"b5e17374-048c-bd4b-95f9-d6ef7d043243"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"dd4e9f3d-82b4-6345-b1cc-f0fe8ef38e79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 80, "Input",ExpressionUUID->"132371ce-6301-f847-884e-fc83bc9a17d2"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"c397bb4e-9f03-5b40-81eb-a0aa0e210d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 80, "Input",ExpressionUUID->"6d7fa188-d880-ee40-a891-c54434bcc9aa"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"c1434463-136c-d74b-a5bb-e5ea005032af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"eb280405-24fc-8347-bd42-4f8f1c10efb0"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"ae9e705c-f3b5-8144-8d6e-701f9ae4d4ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"6ca61853-ea7e-464c-a881-3ea6ed4e391f"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"0ae8f939-f3ad-4f4f-a556-725baab4b569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"c10b3dfb-d1f8-4a4e-802e-0df5aa6355ab"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"835bfe55-ebc8-a746-b2a5-3c372252e8df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"54b30067-e0dc-7548-9fe4-a174df9b2fc3"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"089a98d1-73e3-204f-8936-fea410905307"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"8f29137f-c321-9d49-98fd-20510e3a770e"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"383deac8-5ee8-df40-8917-204b1892a7a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"181519d5-4333-6949-a2b4-f1c9df7627ca"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"e9d97066-7078-5941-aa4c-279b5a59b11e"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"bdda7ea0-e8bb-a14d-8478-10da82392727"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"ef039354-4e03-a841-95d0-3c0922239d9d"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"9c545887-40b7-504f-b012-5f57d60e46ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"f4be1cb9-fc67-9b49-86bc-d5a88be04bd9"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"f0e35011-e7b6-374e-8774-54a548742f40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 43, "Input",ExpressionUUID->"db4cdb7a-2c4f-1a4c-ba04-7cd4f8a471ad"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"1e6d1025-35e0-344d-a6fd-a284d76a9184"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 43, "Input",ExpressionUUID->"db84c94f-436b-ea4f-b544-f23fc32faf29"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"0bf3879a-1903-2e40-b62c-9ee5e4e68ab7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 113, "Input",ExpressionUUID->"8d2f667d-3f93-5f4f-981b-dace6f85227c"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"928b8c7b-0eb6-6942-b2a0-5a3bbe3f0fc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"1bde936d-542d-3d4e-9775-6b0e2d7d37b9"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"69ef140a-b263-794a-b63a-32c89567e3da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"16006ac2-b361-9642-8268-5d4cbd31277a"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"60bcc33b-0a6a-6e4d-8594-c6d756e865e7"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"27310e89-4fab-d948-9e7c-8013539e6df1"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"66cec6b5-bae5-f542-98cd-3f94fce4d90e"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"20025596-e85c-6d46-8c38-3ccbad1c40b0"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"86434779-9bad-c14c-9f65-9237c19a0562"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"3aa302f7-27e2-694e-8db4-93428a6baec8"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"7ce5feda-2b2d-6d46-a527-cb691bab8f01"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"debff809-8d9f-234c-ab2c-d10db054a178"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"a3734cb6-5ca9-2d49-a888-9c8b7eebe9a3"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"addb2271-743d-5d4f-bcaa-f71ad77b7ead"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"8f4bf596-3cb9-aa42-adb3-832e0d840c3e"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"6613accf-75ad-4b46-b964-360b143e2a4d"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"4ba7dcbc-686c-1244-a49a-b10894375e30"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"acd0e98a-f51d-aa4f-9a21-9a7b570a2eb6"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"74172ae0-8cb0-d047-86a4-09866aebc8f4"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"96272fdb-c918-2f40-b99f-5da4bc7effba"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"a5613600-e216-5f46-bbf6-07bed35f3cc8"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"5a5de99e-c377-d04d-a2f6-e06075066408"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"30926e42-e6d4-364b-aa58-d9e4eb50b1de"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"513adba7-ac11-154c-84cc-c22e469180f5"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"8bf09d0d-c1ee-e045-91ae-4feca5c9f2a0"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"66bc46c9-9249-2947-9b2c-5413927ebd9a"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"5cd4a594-c3a9-674d-99bd-f3e5d51952ea"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 2217, "Input",ExpressionUUID->"86117941-6091-384c-a4a4-d1519c22e558"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"982af05a-28a1-aa4e-b6c2-fd6bed22985b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 2304, "Input",ExpressionUUID->"282a5804-542f-c043-84ac-4070c6cfe8eb"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"896232fa-87cf-8847-bdb9-43b3a3c4c2a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 2276, "Input",ExpressionUUID->"1533aaea-8f15-a240-9701-992f949ed850"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"a338d52f-4792-3147-ba70-6d631ee77ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2583, "Input",ExpressionUUID->"e9f51a28-b509-fa4c-9728-01bce58994fd"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"92039e7c-b5ab-0048-b32b-9a55f51aea3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2583, "Input",ExpressionUUID->"b7b96416-de19-4248-9b30-5860216b0544"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"d44fa9d8-277d-8e45-8754-ad4814ebcce8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2890, "Input",ExpressionUUID->"c571738b-c302-a643-8a08-a2a234e9553f"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"19d70101-2af5-604d-bc72-70dd2a5b4c6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"423a979a-bd7c-704e-835f-85f83d418bef"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"524d68ac-4c69-274d-8e50-0259f37b8074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"c92cdbf8-cf08-a442-adc0-90a6ac5fc433"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"fa9331e2-a2a5-6d43-9f1e-ee262896b3ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 110, "Input",ExpressionUUID->"cbd27e54-9e02-254d-93f1-6819805497c8"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"cd6e0f22-866a-cc4f-9a67-4dd98368e18e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 110, "Input",ExpressionUUID->"df02d053-a79b-814f-b9c0-db67d2e4f3be"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"6925622c-d9c8-e745-9bd2-4238d7912bf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 110, "Input",ExpressionUUID->"3048813b-1d54-1541-977b-65898c1003a8"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"18ff9f45-1565-374e-8c56-abe2be66a4b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"6f6cb038-51dd-ee4b-9bdf-2bf05256a435"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"54716ac9-9206-2842-a0a9-1fe049a9df7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"ba89a9a0-0726-9d41-bc94-cee3566ff966"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"89444dae-c60b-dc4f-ba96-d774c8b95ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"91d07e1b-a6d9-664f-93e6-9e1c0df476bc"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"adc1ea7e-a1a8-6142-93c6-ecdc608a1d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"984b583a-0b2c-3248-811b-fefac388e307"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"48214336-53b5-3740-b3a3-f7912ccc4998"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"62d15abc-5e0b-5d45-9b90-61836ae46bc9"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"c9493975-0d20-5141-8aec-e53983216f32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"b991a253-a043-6945-b917-59c53d095ef8"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"0979f1f6-8811-6048-8875-077856627626"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 56, "Input",ExpressionUUID->"95c01338-09d3-f746-8c8d-07fac969a90c"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"066a5d4b-8e54-1b4b-b3f2-ccb08ad8fbab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 56, "Input",ExpressionUUID->"0648e5cc-dbde-d246-93fc-dd38f052ea85"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"96064bb9-3b23-454b-961b-f432e3d1d3f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 188, "Input",ExpressionUUID->"6e6ddedf-fc1b-6f4b-ac38-b69e062ed7cb"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"368a6cf7-0e99-154e-a6a0-483f43e8de78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"f71eb64e-299f-934d-b769-e8cb99106e5e"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"19cfb937-ddd4-004d-af17-0cf7f5758979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"747c7be1-9634-e64b-a475-3c0c88b3d601"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"7413c38d-cb39-b74c-b504-cf09acd96bf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"5e43eac2-2bf4-7d43-9f7d-9c24c5dadc3d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"d4aa9bd5-0509-7a45-ba50-2cf7548877fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"f32be67e-c897-814d-a7c9-655b24dd8615"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"7d7d8e8f-df61-da42-a283-65d99f702b2b"] +}, Open ]], +Cell[177941, 4728, 189, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[178133, 4733, 154, 3, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[178290, 4738, 192, 4, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[178485, 4744, 152, 3, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[178662, 4751, 1301, 43, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[179966, 4796, 178, 3, 32, "Output",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180181, 4804, 913, 30, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[181097, 4836, 175, 3, 32, "Output",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181309, 4844, 961, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[182273, 4878, 177, 3, 32, "Output",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182487, 4886, 558, 19, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[183048, 4907, 173, 3, 32, "Output",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183258, 4915, 623, 21, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[183884, 4938, 170, 3, 32, "Output",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184091, 4946, 170, 5, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[184264, 4953, 173, 3, 32, "Output",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184474, 4961, 170, 5, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[184647, 4968, 170, 3, 32, "Output",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184854, 4976, 181, 5, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[185038, 4983, 171, 3, 32, "Output",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185246, 4991, 181, 5, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[185430, 4998, 173, 3, 32, "Output",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185640, 5006, 6055, 185, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[191698, 5193, 175, 3, 32, "Output",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191910, 5201, 368, 9, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[192281, 5212, 170, 3, 32, "Output",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192488, 5220, 6122, 187, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[198613, 5409, 175, 3, 32, "Output",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198825, 5417, 368, 9, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[199196, 5428, 172, 3, 32, "Output",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199405, 5436, 2663, 88, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[202071, 5526, 173, 3, 32, "Output",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202281, 5534, 2603, 85, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[204887, 5621, 172, 3, 32, "Output",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205096, 5629, 3712, 118, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[208811, 5749, 174, 3, 32, "Output",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], +Cell[209000, 5755, 138, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[209163, 5762, 2052, 59, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[211218, 5823, 524, 11, 60, "Message",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], +Cell[211745, 5836, 526, 11, 60, "Message",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], +Cell[212274, 5849, 530, 11, 60, "Message",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], +Cell[212807, 5862, 455, 10, 26, "Message",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], +Cell[213265, 5874, 172, 3, 32, "Output",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213474, 5882, 2054, 59, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[215531, 5943, 524, 11, 60, "Message",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], +Cell[216058, 5956, 526, 11, 60, "Message",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], +Cell[216587, 5969, 528, 11, 60, "Message",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], +Cell[217118, 5982, 456, 10, 26, "Message",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], +Cell[217577, 5994, 170, 3, 32, "Output",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217784, 6002, 1936, 53, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[219723, 6057, 19981, 375, 230, "Output",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239741, 6437, 2118, 60, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[241862, 6499, 490, 11, 60, "Message",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], +Cell[242355, 6512, 493, 11, 60, "Message",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], +Cell[242851, 6525, 508, 11, 27, "Message",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], +Cell[243362, 6538, 456, 10, 26, "Message",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], +Cell[243821, 6550, 61603, 1057, 233, "Output",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305461, 7612, 215, 7, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[305679, 7621, 169, 3, 32, "Output",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305885, 7629, 1814, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[307702, 7684, 502, 11, 60, "Message",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], +Cell[308207, 7697, 506, 11, 60, "Message",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], +Cell[308716, 7710, 509, 11, 60, "Message",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], +Cell[309228, 7723, 456, 10, 26, "Message",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], +Cell[309687, 7735, 28560, 514, 233, "Output",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338284, 8254, 1616, 48, 113, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[339903, 8304, 576, 12, 85, "Message",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], +Cell[340482, 8318, 582, 12, 85, "Message",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], +Cell[341067, 8332, 584, 12, 85, "Message",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], +Cell[341654, 8346, 458, 10, 26, "Message",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], +Cell[342115, 8358, 170, 3, 32, "Output",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342322, 8366, 2249, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[344574, 8432, 522, 11, 60, "Message",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], +Cell[345099, 8445, 526, 11, 60, "Message",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], +Cell[345628, 8458, 528, 11, 60, "Message",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], +Cell[346159, 8471, 458, 10, 26, "Message",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], +Cell[346620, 8483, 175, 3, 32, "Output",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346832, 8491, 2221, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[349056, 8557, 522, 11, 60, "Message",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], +Cell[349581, 8570, 524, 11, 60, "Message",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], +Cell[350108, 8583, 528, 11, 60, "Message",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], +Cell[350639, 8596, 458, 10, 26, "Message",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], +Cell[351100, 8608, 170, 3, 32, "Output",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351307, 8616, 2219, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[353529, 8682, 524, 11, 60, "Message",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], +Cell[354056, 8695, 526, 11, 60, "Message",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], +Cell[354585, 8708, 530, 11, 60, "Message",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], +Cell[355118, 8721, 458, 10, 26, "Message",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], +Cell[355579, 8733, 171, 3, 32, "Output",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355787, 8741, 213, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[356003, 8749, 175, 3, 32, "Output",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], +Cell[356193, 8755, 247, 5, 42, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[356465, 8764, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[357026, 8785, 172, 3, 32, "Output",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357235, 8793, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[357408, 8800, 172, 3, 32, "Output",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357617, 8808, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[357801, 8815, 172, 3, 32, "Output",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358010, 8823, 6055, 185, 498, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[364068, 9010, 174, 3, 32, "Output",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364279, 9018, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[364650, 9029, 173, 3, 32, "Output",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364860, 9037, 6122, 187, 500, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[370985, 9226, 175, 3, 32, "Output",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371197, 9234, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[371568, 9245, 170, 3, 32, "Output",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371775, 9253, 2663, 88, 187, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[374441, 9343, 173, 3, 32, "Output",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374651, 9351, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[377257, 9438, 172, 3, 32, "Output",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377466, 9446, 3712, 118, 348, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[381181, 9566, 174, 3, 32, "Output",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381392, 9574, 2052, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[383447, 9635, 574, 12, 85, "Message",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], +Cell[384024, 9649, 580, 12, 85, "Message",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], +Cell[384607, 9663, 582, 12, 85, "Message",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], +Cell[385192, 9677, 456, 10, 26, "Message",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], +Cell[385651, 9689, 171, 3, 32, "Output",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385859, 9697, 2054, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[387916, 9758, 574, 12, 85, "Message",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], +Cell[388493, 9772, 578, 12, 85, "Message",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], +Cell[389074, 9786, 582, 12, 85, "Message",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], +Cell[389659, 9800, 458, 10, 26, "Message",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], +Cell[390120, 9812, 169, 3, 32, "Output",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390326, 9820, 2028, 55, 160, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[392357, 9877, 20326, 381, 239, "Output",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412720, 10263, 2120, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[414843, 10325, 502, 11, 60, "Message",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], +Cell[415348, 10338, 504, 11, 60, "Message",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], +Cell[415855, 10351, 507, 11, 60, "Message",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], +Cell[416365, 10364, 458, 10, 26, "Message",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], +Cell[416826, 10376, 41632, 730, 233, "Output",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458495, 11111, 1616, 48, 113, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[460114, 11161, 592, 12, 85, "Message",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], +Cell[460709, 11175, 597, 12, 85, "Message",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], +Cell[461309, 11189, 599, 12, 85, "Message",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], +Cell[461911, 11203, 458, 10, 26, "Message",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], +Cell[462372, 11215, 172, 3, 32, "Output",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462581, 11223, 2247, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[464831, 11289, 576, 12, 85, "Message",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], +Cell[465410, 11303, 580, 12, 85, "Message",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], +Cell[465993, 11317, 582, 12, 85, "Message",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], +Cell[466578, 11331, 456, 10, 26, "Message",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], +Cell[467037, 11343, 171, 3, 32, "Output",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467245, 11351, 2219, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[469467, 11417, 574, 12, 85, "Message",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], +Cell[470044, 11431, 578, 12, 85, "Message",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], +Cell[470625, 11445, 580, 12, 85, "Message",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], +Cell[471208, 11459, 458, 10, 26, "Message",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], +Cell[471669, 11471, 173, 3, 32, "Output",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471879, 11479, 2223, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[474105, 11545, 574, 12, 85, "Message",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], +Cell[474682, 11559, 578, 12, 85, "Message",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], +Cell[475263, 11573, 582, 12, 85, "Message",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], +Cell[475848, 11587, 455, 10, 26, "Message",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], +Cell[476306, 11599, 170, 3, 32, "Output",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476513, 11607, 213, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[476729, 11615, 174, 3, 32, "Output",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], +Cell[476918, 11621, 247, 5, 42, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[477190, 11630, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[477751, 11651, 169, 3, 32, "Output",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477957, 11659, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[478130, 11666, 173, 3, 32, "Output",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478340, 11674, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[478524, 11681, 173, 3, 32, "Output",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478734, 11689, 6055, 185, 498, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[484792, 11876, 174, 3, 32, "Output",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485003, 11884, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[485374, 11895, 172, 3, 32, "Output",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485583, 11903, 6122, 187, 500, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[491708, 12092, 172, 3, 32, "Output",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491917, 12100, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[492288, 12111, 170, 3, 32, "Output",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492495, 12119, 2663, 88, 187, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[495161, 12209, 173, 3, 32, "Output",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495371, 12217, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[497977, 12304, 172, 3, 32, "Output",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498186, 12312, 3712, 118, 348, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[501901, 12432, 172, 3, 32, "Output",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502110, 12440, 2052, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[504165, 12501, 573, 12, 85, "Message",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], +Cell[504741, 12515, 573, 12, 85, "Message",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], +Cell[505317, 12529, 579, 12, 85, "Message",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], +Cell[505899, 12543, 458, 10, 26, "Message",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], +Cell[506360, 12555, 170, 3, 32, "Output",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506567, 12563, 2052, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[508622, 12624, 573, 12, 85, "Message",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], +Cell[509198, 12638, 575, 12, 85, "Message",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], +Cell[509776, 12652, 579, 12, 85, "Message",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], +Cell[510358, 12666, 458, 10, 26, "Message",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], +Cell[510819, 12678, 169, 3, 32, "Output",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511025, 12686, 2030, 55, 160, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[513058, 12743, 20296, 381, 237, "Output",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533391, 13129, 2092, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[535486, 13191, 500, 11, 60, "Message",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], +Cell[535989, 13204, 505, 11, 60, "Message",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], +Cell[536497, 13217, 509, 11, 60, "Message",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], +Cell[537009, 13230, 458, 10, 26, "Message",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], +Cell[537470, 13242, 39609, 697, 233, "Output",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577116, 13944, 1616, 48, 113, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[578735, 13994, 589, 12, 85, "Message",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], +Cell[579327, 14008, 595, 12, 85, "Message",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], +Cell[579925, 14022, 596, 12, 85, "Message",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], +Cell[580524, 14036, 458, 10, 26, "Message",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], +Cell[580985, 14048, 171, 3, 32, "Output",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[581193, 14056, 2248, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[583444, 14122, 573, 12, 85, "Message",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], +Cell[584020, 14136, 573, 12, 85, "Message",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], +Cell[584596, 14150, 579, 12, 85, "Message",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], +Cell[585178, 14164, 458, 10, 26, "Message",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], +Cell[585639, 14176, 174, 3, 32, "Output",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[585850, 14184, 2221, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[588074, 14250, 573, 12, 85, "Message",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], +Cell[588650, 14264, 575, 12, 85, "Message",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], +Cell[589228, 14278, 577, 12, 85, "Message",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], +Cell[589808, 14292, 456, 10, 26, "Message",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], +Cell[590267, 14304, 172, 3, 32, "Output",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[590476, 14312, 2219, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[592698, 14378, 571, 12, 85, "Message",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], +Cell[593272, 14392, 573, 12, 85, "Message",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], +Cell[593848, 14406, 579, 12, 85, "Message",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], +Cell[594430, 14420, 458, 10, 26, "Message",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], +Cell[594891, 14432, 172, 3, 32, "Output",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[595100, 14440, 211, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[595314, 14448, 174, 3, 32, "Output",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb new file mode 100755 index 0000000..fff9172 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb @@ -0,0 +1,12858 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 435137, 12850] +NotebookOptionsPosition[ 396990, 12237] +NotebookOutlinePosition[ 397444, 12255] +CellTagsIndexPosition[ 397401, 12252] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"2e233cab-7c92-e44c-81c0-7ee7662f9cd8"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b2aa98c1-7077-bd4c-9445-ce2b8d70402c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"b81100e3-9095-ab44-9fc7-cae681eb3d73"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"7f33e3fc-5c64-9e46-82cb-cba6f86593f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"2be6bbae-49ec-2b40-a260-6eb4e93a493c"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5a317cab-89c5-e542-9b5a-2e699a1a9491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"b9982e21-01be-0847-b044-cb6251695749"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"756b04ba-8642-134e-8e51-03d0e095c382"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3fa0b8bf-29d2-f643-a792-7fdc98b461b1"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"5603c4bc-2674-f74b-9299-94549bb2e338"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"f2feeca8-4136-7d45-9f42-87dad2946937"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"31dce953-2618-a84e-b50f-afc224d8d3cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"93d2140c-6643-4541-b82e-6567b747e101"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d60af98b-eef1-b249-93d0-f13a334c4808"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"ad680cc3-abdc-3144-85fa-97ea31098be3"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f7b3edd6-5121-b54b-b239-15201453e430"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"e5212a89-4ace-7d42-a85c-c3e4af2991b2"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"25e57655-8843-a74d-a36f-4e32677a0b70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"4304c266-68e6-8940-a451-4ec16d3970ee"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"3bae4704-3558-4343-ad4c-92651665dae0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"5270f4f5-3360-8d40-ac2c-a5dcec4af190"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1f9d5c91-f320-f148-935e-2d6fc7b022c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"a037e497-5e25-5947-a8bd-d6ea70ec7327"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"04fd6089-8b6f-884d-bf28-b8aa9e93d7e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"3c0fc2de-2124-644a-8919-461946e69fd2"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5f402a90-2156-694f-81b8-8df76695d409"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"84066648-d2a8-f84c-97a1-cef9a62bc58a"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"ff245d8f-6764-aa42-9a66-b3b7ad9ec965"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"19f11d2d-a626-6d4c-abfa-55ca6e3c68d0"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"6fb4dc22-1810-4947-b435-a4ed07070f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"06cbb011-152d-f341-938d-dd8a1793eb5f"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"724de13b-258d-e542-a6ee-a0acae0ebf1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"e48f27f8-11ca-ee4f-8f8b-698c7bd76269"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3789986e-d5ba-aa44-9d8a-81acc4e722ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"64154b96-da0f-2842-9920-bf8c60faba68"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8aad5c07-2cab-984f-b200-118bbfe0906a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"45ff8136-d025-d644-8fd4-bb41af67b244"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"5ab12aaa-4429-e146-8bd5-79691da290cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"78f1639b-cd9e-784b-824d-0f4d40d3bc66"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8b3521ff-697c-8941-b3a2-9a874e72d10d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"d3efcbe2-0b02-1648-9d1a-7802fb0723ad"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"a9529b1d-71e4-3140-b6f3-6694d1767ee8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"9af9800a-4228-194d-8335-4b85257be65c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"ee3a658d-2736-4642-aea3-b0b7a9b7a1d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"03b5b6f1-58f4-2e40-a4f9-9f2242d160ef"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"39d8ebdf-d5ca-a745-adad-fffb9ff89e22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"2d7a927e-7604-5d4c-b46e-47a203c617e2"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"4ff1fa45-8456-ff4f-a550-8913f39e860d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"4423d29e-d6c7-b744-85d9-ec0149530e88"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"b665b22e-cdc1-a64d-945b-0d803d84ffe6"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5f55174d-234e-5d45-a701-516ab639f89d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"d70abab4-4de0-ce45-9b3a-88ff1f3b5e59"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"670db1e9-cc66-9547-b74a-ded5e2dcb743"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"1d48399a-b3ab-9a4c-8a11-c71c443f0804"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1e63a451-83fc-8f49-baab-8c98e8eea328"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"26f5f902-f854-0141-a5e6-091ad7c827ae"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"002c8d56-b7f4-af44-af9d-136ca2606420"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"9d82176a-d1cf-f545-9c35-2424f8b302f6"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"728af6d3-fc85-b842-bbaa-f3e35c0d3628"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"f7bb2e7e-2eba-0d4b-a61b-f418b0dc52a0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"53c56959-cb4d-1949-9b88-ccadabdbc10a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"94ba8fd2-3e9c-824d-a0d2-3abd37820861"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"0f8dfd11-c598-8742-8f99-606527f029d7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e2049f37-b459-4e45-a801-f359ae288279"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"a902d75d-03e5-4d4f-86bf-cc8f8bc9ce8f"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"5be60388-3279-2f48-9b5f-493b65a2cb81"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"49b14caf-e8af-3342-8931-39bb3376b21b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"82b88a76-865a-f841-b280-c0d14d409b3f"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"a3b3ebd1-4be0-c547-991e-2cae6974e9be"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"267e29a0-7be6-bb40-a776-926078b08362"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5d643833-7672-4048-a801-2cb285d49920"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"6cd6803b-b5be-cb4f-bf48-3885a5d33280"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"ae6194df-e005-2546-b3e7-da42adf615d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"d8d47b41-20da-f649-a915-5cbbd470d14a"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"faddb870-109c-244e-8477-8e0f1c38959d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"d7404ca1-091c-3046-88aa-60cb6068d4af"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"bcd66dfb-ba33-6644-a5e0-7e66b53b86be"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"370231eb-1d92-5f47-b417-b9bdc66b51dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"40c48a8f-ab2e-e848-ada6-29526113f357"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"4e2d1ccf-055b-964e-8fee-5d09fdc94814"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"4aa6786c-120b-7648-b3ef-752ad9ef3408"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1d7c176b-c05f-1640-b0a6-866c02a4e52b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"37bfaedb-6f14-b346-8dec-ff54c6520bbf"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"11526560-87f2-4649-a355-8ae7666795e1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"93cab046-2b82-7846-a5c9-17df3a3e9549"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"23214ba4-0e71-0444-9dc6-139a9963bb77"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"ed0ce889-62ae-8142-b5cf-beb77c3b4d0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"e5ebb787-e2fa-8448-8064-735514f6a6ae"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"db442ddb-b10f-8c42-911f-e98df7929349"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"d85afcbd-e9fa-c142-a5a2-4bbce6babf89"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6686e9c6-1280-974b-88b4-a42bc46ff109"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"3b00e46b-33a6-3344-9ca9-7e31b81197a9"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"24e64620-d914-7e41-ac8a-0cfbd30c125b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"8385e181-045c-b048-9865-73abf89b5e6d"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"94217516-48a9-224d-82c6-c6ca72f2c995"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"611dd28d-4e74-104d-a072-6bf25280f99c"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"8754bf07-49c0-a149-a212-ba7b552996d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"d369da66-0560-5748-9455-98d51a2efec3"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d1be3d28-f0f8-0343-9727-e9bbdd16b730"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"ce227f9d-b6e2-694e-a6d9-bdaaf26ba3d7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"0919b3ff-4047-2a44-b2bf-787dde1e0be2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"ab0d8ce3-f705-654e-aa1c-85489d0940d8"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"bb49631f-4f7f-a94a-8d44-e4a5a1ea4ba7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"2cf30241-22e9-a542-8c45-89e15fb9f274"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"b325b615-c319-d041-a6e1-3ed0fae0a5a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"3ac109f5-6432-3849-8937-c2bc6ba1d08e"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bb65cdfc-a829-aa4a-aadd-ab4b6ca2c340"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"5590eec8-fd89-f546-b25b-74bf3e583038"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"db5e41ff-e680-c44b-9f9b-a6b04314243c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"a3b4fe3f-c364-0c47-9fbf-1616457135f5"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c045117c-bdc6-374f-867a-701143844b77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"22e38d96-9f7a-0440-9855-61247f8616fa"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"d46d8666-c8c1-8e46-bbdc-97fbf882909a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"9ceaa985-6735-8145-af48-3e3f29b40898"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"4ea4b577-0b43-4948-8527-0b2d12fd658d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"fb6516e4-1906-f040-9e1b-607d662a4cff"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"6ca0f26f-146f-bd47-b6eb-f324cf5507fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"1144fbcd-a3f8-e045-a809-dd2d2b07dd97"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"bba42ca7-1a5b-5241-9646-c21b12db2ff1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"4bcccc44-92dc-324d-aa75-c7b53dcddc41"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"292676a9-477a-8441-8193-567a66ef8cc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"87100da6-257e-e74e-856b-c11e1c2b514d"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d082669c-a9d6-1040-b98d-a227791d395e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"1b2b5acd-975b-fa41-9226-744c16052df0"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"80667faa-cd32-0142-8dfb-5168d381a0f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"95326f0b-39dc-a944-b2fb-d61a516180c1"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ecda9ae4-5546-9c4a-9131-04727be6d827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"c4c019be-3be9-2a4f-83f7-5aa3b72181fd"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f1d90dd0-cdad-6646-9d04-287c15732af4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"e465a147-25ec-704c-b502-d88dc38b82d8"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"74308236-a036-0d49-9848-7d802f49ca19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"b59842e9-6775-5e41-a4f4-b35221863504"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"9c4ec448-599c-0148-9229-82f6702511aa"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.130544612621423"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, + 3.992090070963188*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.3286783889013"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, + 3.992090074508087*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 22, "Input",ExpressionUUID->"2e233cab-7c92-e44c-81c0-7ee7662f9cd8"], +Cell[829, 29, 170, 2, 25, "Output",ExpressionUUID->"b2aa98c1-7077-bd4c-9445-ce2b8d70402c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 22, "Input",ExpressionUUID->"b81100e3-9095-ab44-9fc7-cae681eb3d73"], +Cell[1365, 43, 255, 4, 25, "Output",ExpressionUUID->"7f33e3fc-5c64-9e46-82cb-cba6f86593f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 22, "Input",ExpressionUUID->"2be6bbae-49ec-2b40-a260-6eb4e93a493c"], +Cell[1912, 59, 252, 4, 25, "Output",ExpressionUUID->"5a317cab-89c5-e542-9b5a-2e699a1a9491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 22, "Input",ExpressionUUID->"b9982e21-01be-0847-b044-cb6251695749"], +Cell[2379, 73, 225, 3, 25, "Output",ExpressionUUID->"756b04ba-8642-134e-8e51-03d0e095c382"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 35, "Input",ExpressionUUID->"3fa0b8bf-29d2-f643-a792-7fdc98b461b1"], +Cell[2901, 90, 243, 3, 25, "Output",ExpressionUUID->"5603c4bc-2674-f74b-9299-94549bb2e338"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 22, "Input",ExpressionUUID->"f2feeca8-4136-7d45-9f42-87dad2946937"], +Cell[3315, 102, 229, 3, 25, "Output",ExpressionUUID->"31dce953-2618-a84e-b50f-afc224d8d3cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 22, "Input",ExpressionUUID->"93d2140c-6643-4541-b82e-6567b747e101"], +Cell[3860, 118, 241, 3, 25, "Output",ExpressionUUID->"d60af98b-eef1-b249-93d0-f13a334c4808"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 22, "Input",ExpressionUUID->"ad680cc3-abdc-3144-85fa-97ea31098be3"], +Cell[4398, 135, 240, 3, 25, "Output",ExpressionUUID->"f7b3edd6-5121-b54b-b239-15201453e430"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 22, "Input",ExpressionUUID->"e5212a89-4ace-7d42-a85c-c3e4af2991b2"], +Cell[4914, 149, 260, 3, 25, "Output",ExpressionUUID->"25e57655-8843-a74d-a36f-4e32677a0b70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 22, "Input",ExpressionUUID->"4304c266-68e6-8940-a451-4ec16d3970ee"], +Cell[5452, 163, 262, 3, 25, "Output",ExpressionUUID->"3bae4704-3558-4343-ad4c-92651665dae0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 22, "Input",ExpressionUUID->"5270f4f5-3360-8d40-ac2c-a5dcec4af190"], +Cell[5883, 175, 224, 3, 25, "Output",ExpressionUUID->"1f9d5c91-f320-f148-935e-2d6fc7b022c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 22, "Input",ExpressionUUID->"a037e497-5e25-5947-a8bd-d6ea70ec7327"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"04fd6089-8b6f-884d-bf28-b8aa9e93d7e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"3c0fc2de-2124-644a-8919-461946e69fd2"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"5f402a90-2156-694f-81b8-8df76695d409"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"84066648-d2a8-f84c-97a1-cef9a62bc58a"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"ff245d8f-6764-aa42-9a66-b3b7ad9ec965"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"19f11d2d-a626-6d4c-abfa-55ca6e3c68d0"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"6fb4dc22-1810-4947-b435-a4ed07070f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"06cbb011-152d-f341-938d-dd8a1793eb5f"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"724de13b-258d-e542-a6ee-a0acae0ebf1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"e48f27f8-11ca-ee4f-8f8b-698c7bd76269"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"3789986e-d5ba-aa44-9d8a-81acc4e722ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"64154b96-da0f-2842-9920-bf8c60faba68"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"8aad5c07-2cab-984f-b200-118bbfe0906a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"45ff8136-d025-d644-8fd4-bb41af67b244"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"5ab12aaa-4429-e146-8bd5-79691da290cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"78f1639b-cd9e-784b-824d-0f4d40d3bc66"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"8b3521ff-697c-8941-b3a2-9a874e72d10d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"d3efcbe2-0b02-1648-9d1a-7802fb0723ad"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"a9529b1d-71e4-3140-b6f3-6694d1767ee8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"9af9800a-4228-194d-8335-4b85257be65c"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"ee3a658d-2736-4642-aea3-b0b7a9b7a1d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"03b5b6f1-58f4-2e40-a4f9-9f2242d160ef"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"39d8ebdf-d5ca-a745-adad-fffb9ff89e22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"2d7a927e-7604-5d4c-b46e-47a203c617e2"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"4ff1fa45-8456-ff4f-a550-8913f39e860d"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"4423d29e-d6c7-b744-85d9-ec0149530e88"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"b665b22e-cdc1-a64d-945b-0d803d84ffe6"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"5f55174d-234e-5d45-a701-516ab639f89d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"d70abab4-4de0-ce45-9b3a-88ff1f3b5e59"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"670db1e9-cc66-9547-b74a-ded5e2dcb743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"1d48399a-b3ab-9a4c-8a11-c71c443f0804"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"1e63a451-83fc-8f49-baab-8c98e8eea328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"26f5f902-f854-0141-a5e6-091ad7c827ae"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"002c8d56-b7f4-af44-af9d-136ca2606420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"9d82176a-d1cf-f545-9c35-2424f8b302f6"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"728af6d3-fc85-b842-bbaa-f3e35c0d3628"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"f7bb2e7e-2eba-0d4b-a61b-f418b0dc52a0"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"53c56959-cb4d-1949-9b88-ccadabdbc10a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"94ba8fd2-3e9c-824d-a0d2-3abd37820861"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"0f8dfd11-c598-8742-8f99-606527f029d7"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"e2049f37-b459-4e45-a801-f359ae288279"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"a902d75d-03e5-4d4f-86bf-cc8f8bc9ce8f"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"5be60388-3279-2f48-9b5f-493b65a2cb81"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"49b14caf-e8af-3342-8931-39bb3376b21b"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"82b88a76-865a-f841-b280-c0d14d409b3f"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"a3b3ebd1-4be0-c547-991e-2cae6974e9be"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"267e29a0-7be6-bb40-a776-926078b08362"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"5d643833-7672-4048-a801-2cb285d49920"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"6cd6803b-b5be-cb4f-bf48-3885a5d33280"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"ae6194df-e005-2546-b3e7-da42adf615d4"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"d8d47b41-20da-f649-a915-5cbbd470d14a"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"faddb870-109c-244e-8477-8e0f1c38959d"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"d7404ca1-091c-3046-88aa-60cb6068d4af"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"bcd66dfb-ba33-6644-a5e0-7e66b53b86be"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"370231eb-1d92-5f47-b417-b9bdc66b51dd"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"40c48a8f-ab2e-e848-ada6-29526113f357"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"4e2d1ccf-055b-964e-8fee-5d09fdc94814"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"4aa6786c-120b-7648-b3ef-752ad9ef3408"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"1d7c176b-c05f-1640-b0a6-866c02a4e52b"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"37bfaedb-6f14-b346-8dec-ff54c6520bbf"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"11526560-87f2-4649-a355-8ae7666795e1"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"93cab046-2b82-7846-a5c9-17df3a3e9549"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"23214ba4-0e71-0444-9dc6-139a9963bb77"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"ed0ce889-62ae-8142-b5cf-beb77c3b4d0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"e5ebb787-e2fa-8448-8064-735514f6a6ae"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"db442ddb-b10f-8c42-911f-e98df7929349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"d85afcbd-e9fa-c142-a5a2-4bbce6babf89"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"6686e9c6-1280-974b-88b4-a42bc46ff109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"3b00e46b-33a6-3344-9ca9-7e31b81197a9"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"24e64620-d914-7e41-ac8a-0cfbd30c125b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"8385e181-045c-b048-9865-73abf89b5e6d"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"94217516-48a9-224d-82c6-c6ca72f2c995"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"611dd28d-4e74-104d-a072-6bf25280f99c"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"8754bf07-49c0-a149-a212-ba7b552996d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"d369da66-0560-5748-9455-98d51a2efec3"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"d1be3d28-f0f8-0343-9727-e9bbdd16b730"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"ce227f9d-b6e2-694e-a6d9-bdaaf26ba3d7"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"0919b3ff-4047-2a44-b2bf-787dde1e0be2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"ab0d8ce3-f705-654e-aa1c-85489d0940d8"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"bb49631f-4f7f-a94a-8d44-e4a5a1ea4ba7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"2cf30241-22e9-a542-8c45-89e15fb9f274"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"b325b615-c319-d041-a6e1-3ed0fae0a5a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"3ac109f5-6432-3849-8937-c2bc6ba1d08e"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"bb65cdfc-a829-aa4a-aadd-ab4b6ca2c340"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"5590eec8-fd89-f546-b25b-74bf3e583038"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"db5e41ff-e680-c44b-9f9b-a6b04314243c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"a3b4fe3f-c364-0c47-9fbf-1616457135f5"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"c045117c-bdc6-374f-867a-701143844b77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"22e38d96-9f7a-0440-9855-61247f8616fa"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"d46d8666-c8c1-8e46-bbdc-97fbf882909a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"9ceaa985-6735-8145-af48-3e3f29b40898"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"4ea4b577-0b43-4948-8527-0b2d12fd658d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"fb6516e4-1906-f040-9e1b-607d662a4cff"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"6ca0f26f-146f-bd47-b6eb-f324cf5507fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"1144fbcd-a3f8-e045-a809-dd2d2b07dd97"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"bba42ca7-1a5b-5241-9646-c21b12db2ff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"4bcccc44-92dc-324d-aa75-c7b53dcddc41"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"292676a9-477a-8441-8193-567a66ef8cc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"87100da6-257e-e74e-856b-c11e1c2b514d"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"d082669c-a9d6-1040-b98d-a227791d395e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"1b2b5acd-975b-fa41-9226-744c16052df0"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"80667faa-cd32-0142-8dfb-5168d381a0f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 64, "Input",ExpressionUUID->"95326f0b-39dc-a944-b2fb-d61a516180c1"], +Cell[170111, 4476, 232, 4, 25, "Output",ExpressionUUID->"ecda9ae4-5546-9c4a-9131-04727be6d827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 90, "Input",ExpressionUUID->"c4c019be-3be9-2a4f-83f7-5aa3b72181fd"], +Cell[172201, 4548, 214, 3, 25, "Output",ExpressionUUID->"f1d90dd0-cdad-6646-9d04-287c15732af4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 72, "Input",ExpressionUUID->"e465a147-25ec-704c-b502-d88dc38b82d8"], +Cell[174954, 4635, 218, 3, 25, "Output",ExpressionUUID->"74308236-a036-0d49-9848-7d802f49ca19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 72, "Input",ExpressionUUID->"b59842e9-6775-5e41-a4f4-b35221863504"], +Cell[177711, 4722, 215, 3, 25, "Output",ExpressionUUID->"9c4ec448-599c-0148-9229-82f6702511aa"] +}, Open ]], +Cell[177941, 4728, 190, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[178134, 4734, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[178289, 4739, 190, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[178482, 4745, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[178663, 4752, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[179939, 4795, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180082, 4800, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[180998, 4832, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181141, 4837, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[182105, 4871, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182248, 4876, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[182783, 4896, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182921, 4901, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[183549, 4924, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183686, 4929, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[183833, 4935, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183971, 4940, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[184118, 4946, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184255, 4951, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[184413, 4957, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184551, 4962, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[184709, 4968, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184847, 4973, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[190879, 5159, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191018, 5164, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[191363, 5174, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[191708, 5182, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191845, 5187, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[197944, 5375, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198084, 5380, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[198429, 5390, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[198774, 5398, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198911, 5403, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[201551, 5492, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201689, 5497, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[204269, 5583, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204408, 5588, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[208097, 5707, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[208214, 5710, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[208377, 5717, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[210432, 5778, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[210777, 5786, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[211122, 5794, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211259, 5799, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[213314, 5860, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[213659, 5868, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[214004, 5876, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214141, 5881, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[216080, 5936, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[216425, 5944, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[216770, 5952, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[217115, 5960, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[217525, 5969, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[225570, 6335, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225798, 6345, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[227943, 6408, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[228288, 6416, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[228633, 6424, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[228978, 6432, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[229388, 6441, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[237439, 6796, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[237667, 6806, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[237887, 6815, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[238024, 6820, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[239843, 6875, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[240188, 6883, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[240533, 6891, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[240878, 6899, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[241288, 6908, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[249502, 7275, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249730, 7285, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[251323, 7334, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[251668, 7342, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251806, 7347, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[254060, 7413, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[254405, 7421, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[254750, 7429, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254890, 7434, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[257114, 7500, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[257459, 7508, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[257804, 7516, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257941, 7521, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[260165, 7587, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[260510, 7595, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[260855, 7603, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[260993, 7608, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[261209, 7616, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[261328, 7619, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[261598, 7628, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[262133, 7648, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262270, 7653, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[262417, 7659, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262554, 7664, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[262712, 7670, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262849, 7675, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[268881, 7861, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269020, 7866, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[269365, 7876, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[269710, 7884, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269846, 7889, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[275945, 8077, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276084, 8082, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[276429, 8092, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[276774, 8100, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276911, 8105, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[279551, 8194, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279689, 8199, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[282269, 8285, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282408, 8290, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[286097, 8409, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286236, 8414, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[288293, 8475, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[288638, 8483, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[288983, 8491, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289121, 8496, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[291178, 8557, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[291523, 8565, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[291868, 8573, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292005, 8578, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[294038, 8635, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[294383, 8643, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[294728, 8651, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[295073, 8659, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[295483, 8668, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[304942, 9108, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305170, 9118, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[307321, 9181, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[307666, 9189, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[308011, 9197, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[308356, 9205, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[308766, 9214, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[317339, 9584, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317567, 9594, 1590, 47, 69, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[319160, 9643, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[319505, 9651, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319643, 9656, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[321893, 9722, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[322238, 9730, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[322583, 9738, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322721, 9743, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[324943, 9809, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[325288, 9817, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[325633, 9825, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325771, 9830, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[327997, 9896, 342, 6, 18, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[328342, 9904, 342, 6, 18, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[328687, 9912, 101, 0, 25, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328825, 9917, 215, 6, 38, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[329043, 9925, 102, 0, 25, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[329160, 9928, 249, 5, 34, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[329434, 9937, 532, 18, 42, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[329969, 9957, 101, 0, 25, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330107, 9962, 144, 4, 46, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[330254, 9968, 101, 0, 25, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330392, 9973, 155, 4, 35, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[330550, 9979, 100, 0, 25, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330687, 9984, 6029, 184, 310, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[336719, 10170, 102, 0, 25, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336858, 10175, 342, 8, 33, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[337203, 10185, 342, 6, 18, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[337548, 10193, 100, 0, 25, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337685, 10198, 6096, 186, 353, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[343784, 10386, 102, 0, 25, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343923, 10391, 342, 8, 33, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[344268, 10401, 342, 6, 18, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[344613, 10409, 99, 0, 25, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344749, 10414, 2637, 87, 135, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[347389, 10503, 101, 0, 25, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347527, 10508, 2577, 84, 135, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[350107, 10594, 102, 0, 25, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350246, 10599, 3686, 117, 197, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[353935, 10718, 102, 0, 25, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354074, 10723, 2054, 59, 92, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[356131, 10784, 342, 6, 18, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[356476, 10792, 342, 6, 18, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[356821, 10800, 100, 0, 25, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356958, 10805, 2054, 59, 92, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[359015, 10866, 342, 6, 18, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[359360, 10874, 342, 6, 18, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[359705, 10882, 100, 0, 25, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359842, 10887, 2028, 55, 54, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[361873, 10944, 342, 6, 18, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[362218, 10952, 342, 6, 18, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[362563, 10960, 342, 6, 18, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[362908, 10968, 407, 7, 18, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[363318, 10977, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[372777, 11417, 191, 5, 25, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373005, 11427, 2146, 61, 92, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[375154, 11490, 342, 6, 18, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[375499, 11498, 342, 6, 18, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[375844, 11506, 342, 6, 18, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[376189, 11514, 407, 7, 18, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[376599, 11523, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[385172, 11893, 191, 5, 25, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385400, 11903, 1590, 47, 69, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[386993, 11952, 342, 6, 18, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[387338, 11960, 101, 0, 25, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387476, 11965, 2249, 64, 131, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[389728, 12031, 342, 6, 18, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[390073, 12039, 342, 6, 18, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[390418, 12047, 100, 0, 25, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390555, 12052, 2221, 64, 131, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[392779, 12118, 342, 6, 18, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[393124, 12126, 342, 6, 18, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[393469, 12134, 99, 0, 25, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393605, 12139, 2221, 64, 131, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[395829, 12205, 342, 6, 18, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[396174, 12213, 342, 6, 18, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[396519, 12221, 101, 0, 25, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396657, 12226, 212, 6, 38, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[396872, 12234, 102, 0, 25, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb new file mode 100755 index 0000000..3c4d704 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb @@ -0,0 +1,12472 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 490289, 12464] +NotebookOptionsPosition[ 451367, 11841] +NotebookOutlinePosition[ 451822, 11859] +CellTagsIndexPosition[ 451779, 11856] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b7c24ea0-5123-4e40-8ff1-016a0f3d9f06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"3ca6af5d-8845-914d-8fb8-db7201d01e44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"9d53aa44-00e6-f740-8e90-e0c70ba80028"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d8de34e0-1db9-a242-a0de-2c58dc251a21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"c661afd3-27f0-f54e-803a-d5eb1e2003b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f1b516aa-487c-9c4d-85d3-cbd5ec786a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"20bb77b0-af5e-4e43-af78-fa02d8d545fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"971b8149-f7bc-164c-9daa-db9821ee36d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e6614ab3-dc30-2e4b-a376-e676cdd518fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"c3ad4983-44fd-c54b-b7d6-f5e9f86ac853"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1de3102b-5caa-2d45-92bc-7025d976f7fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"ad699281-df31-fe47-8377-50846b125072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5fc9fcd7-acef-5f4c-9a4c-7e9527635594"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8352eb2b-34a9-604b-bf1d-801e53025e5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1bc0ac32-dc75-ea44-92b1-11a347a9b137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"22e7f275-ddd8-ca4c-9a99-e178535fae7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f6c020ab-16cb-494d-8290-e8f06b194244"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"63290e1d-9ee1-9047-bf87-2f76d7fc852e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"605e5b4b-62a7-c44f-9592-50bdf74a0203"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"b45bdc19-2ad2-4347-8c1b-115fd5b67132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"91262c89-c41b-db48-b4ba-121fc48ac6a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f81afc19-3d80-f443-8449-6de12236dee6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e6c2995f-35b9-b943-bb8c-234e312f1dd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"5be75014-41d7-fb46-bcb1-c029cbc1bf36"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"68f1598b-0ea6-2644-8643-6b2c3d3af245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"950acf8c-9b1f-c846-8f1a-9d1339e5b417"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"8299aaa1-e8cd-c140-98d6-0bdf70206c0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"ae113a32-15bf-914f-a716-97742bfb8678"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"3181800d-348e-a746-801d-a0689d771f39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"78694d31-812f-e943-8bb5-d58c94143099"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"5c8adf0c-d1fc-b648-be6c-e6ab446c0188"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"21f7a68d-15a4-aa4a-9f2f-ac0c53d958dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"d8b64c74-2c65-9b44-b3cb-0db5863abc3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"a73ed249-f335-624b-9f35-094bbfc621a1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"9f2bcbd2-99a2-9d4b-9c70-7f9d0efccae7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"b459c7f8-ac9d-4d4f-9aa5-aba72af043a2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"20f7c7b1-c41b-5641-86d9-3d9ba4989b3c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"3ae75741-70ab-3c4f-b4d4-bc563b8b2677"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"70212435-2665-e444-b864-ee00e0999634"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"f3c88506-920f-5649-8cef-536c89929669"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5b2dbcf4-5bbd-e94c-857e-286b041e0d5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"1a91e2eb-8f18-4c46-be3d-5f0163def9a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c9a32e59-2654-6d46-9a98-780d495ab2bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"009c1f24-f9f4-dc48-9db4-2fdf2420d110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"be414436-ea10-2549-84c0-01cd6a4fb643"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"2c75be98-2c4b-c74f-a840-157aa124b0ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"956f21a1-a5f0-dd48-a0db-0649818cf589"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"5f60a138-1228-0647-828b-f69b6b82a394"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"72535c13-e904-2d4a-8d06-4f913f48d9aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ba37d33c-7bfb-514d-8059-e7258cbe73a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"de2db7cc-157c-0241-a2d0-3877f60f2f74"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"e05fb998-0c3c-914f-aab3-9061a5be8812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"71a8ca09-ea43-3942-b848-248927804279"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"2671b6f3-ef81-624a-9348-b2e5142c2434"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"b6c62e5d-ea1a-8443-8ada-79b01a88938a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"e4a29d4f-42ef-c44c-9e1b-e27ba179aa39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"0afdc4eb-983d-fa48-b9fd-53251acb64c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"5192d80c-7cf4-6c48-8ca9-65876353ddc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"a8c04634-6d98-fa48-b315-976fe5dc0f4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"e689f0c7-d47c-4d46-8bfc-d8d217140e2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9827733d-e648-f943-b863-43b20946d9d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"572140c9-bdb2-e94b-9fc1-98462344681b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.530118936205183"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.9920894486447525`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.530118936205183`"], "Output", + CellChangeTimes->{3.992089567253582*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"7c2572e2-e1ab-8342-8714-8e8cbecd10bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.828442902473811"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.992089454931593*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.828442902473811`"], "Output", + CellChangeTimes->{3.9920895672594795`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d384dee7-78c2-9041-84e8-ed683d4d769b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["1.9087295848298752`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9, 3.991708376806082*^9, + 3.99208956728549*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"8c38b579-256b-684a-b609-f88da9235dae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["8.608269004718265`*^-55"], "Output", + CellChangeTimes->{3.99132042159643*^9, 3.9917083768301735`*^9, + 3.9920895672916775`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e8b9b65d-c28b-9b41-bf5a-9f5cd93c2a9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["4.3874491680240515`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9, 3.99170837683708*^9, + 3.992089567315666*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"5b0f2f2e-cf6b-a244-a81a-d10dc7619a05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["51.77224572169264`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.9920895673236694`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"ee99b645-0738-6849-b2b8-b9908b150c95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["59.739406544235905`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.992089567348669*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e712cb91-7ce8-f94e-b8c4-545554484ba4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.3986085566664672`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.9920895673546696`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"2c4fe25e-8710-4440-88e3-a33f2913a8ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["3.1616018942215516`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.9920895673776703`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"fc769fc2-5bd0-b646-91a6-ad48d846ec16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["188.8722208899276`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.992089567384695*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"cf9420f1-557a-3b44-94ad-f81c81868148"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["72.40910586419822`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.9920895674097176`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"1879be68-bf53-ad4a-b1f9-811fee749ecc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.012904839793245939`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.9920895674387226`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"8dd792a0-7a05-3d46-b7ea-a2bcf9e9b8f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["7.801329691745262`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.9920895675225163`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e4acfce8-b438-9149-9532-73d25efa4f9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.004892259018107654`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.9920895675444946`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3013b5cd-fd3e-9a44-87f0-84a67a2007ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["12.67039690245196`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9920895676255684`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"0f417f0c-11ad-a048-b712-718ae1c258a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.8359791121432882`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.992089567633568*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"cd42716a-3013-cc4c-80a6-6fa8b8c06a09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.1640208878567118`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9920895676545677`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"30f51c14-1480-7740-84c4-0743b8a7826c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.13711803620340776`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.9920895676615868`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"85839bdd-4f3d-db48-9f81-add261b1845b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[90]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795120812044*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 130, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992089567690111*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"305b6ac1-5c1d-3648-8409-f9cc38d14401"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 131, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9920895677006226`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"def5c5bd-38e4-c546-9798-9196fa77b04f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 132, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992089567706621*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"7ef56334-b108-274e-84c3-3a464cefd9c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 133, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9920895677146225`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"d333f203-d5dc-7c49-a054-7b6a6d6bbe71"], + +Cell[BoxData["7.801329691745269`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.9920895705365143`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"4cac7206-4795-5a4b-91c8-845dd7a198ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795125308359*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 134, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895705864983`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"868aef7c-68dd-7741-ae70-8bf632cacf54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 135, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895705935383`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e293db8c-0c36-434b-b398-dc16e16c229e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 136, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992089570600569*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b4a62f4a-8307-d84b-a7a2-b9f17cc7921e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 137, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895706065693`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"915cff75-3c97-194a-834e-c3f0f89d48c2"], + +Cell[BoxData["12.67039690245196`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9920895736154156`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"10661102-53b9-f344-aa3f-5bb36e856388"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917951318268585`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5258150920880986, + 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5258150920880986, + 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5258150920880986, 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5258150920880998}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5258150920880986, 1.7752909859879944`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9920897800644836`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"81ffec5a-1537-f446-9898-c54ad2225982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7308419182517245`*^-270\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 138, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.99208978027742*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"249d3ae3-1411-1046-8a83-48822955b4df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.20340080703296`*^-282\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 139, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9920897802874184`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"145098b6-b9ef-cc4c-a280-de62a525b747"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3908116270731262`*^-293\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 94, + 140, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9920897802934227`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ec5836bf-205c-0d45-98bc-b15bc1ff74d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 141, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992089780301422*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"cdfc7787-79a7-0641-b0ef-c3d9842527c1"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.09744150796508005}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.9920900040345573`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"09c57225-2a82-0642-a8b3-b20d5a3131a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["12.179486664213163`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.992090004100504*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"935b5253-5e68-0a45-8519-47bda33b7070"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991795437556492*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5760237350181803`*^-270\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 142, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992090004289339*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"121035ac-88eb-6047-9d1c-5b9b46d74812"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.891771099211767`*^-282\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 143, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920900042983494`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"90859807-c965-c644-8d4b-91e03e95dca9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.328193334368043`*^-293\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 144, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992090004305441*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"bddb06de-4c67-9049-875f-3d819f665270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 145, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920900043124447`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"ddfca9c2-4456-0f4b-84ba-8053e71fcf0e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06241424071408959}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.9920902206556416`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"47e58eaa-14ec-fe46-8896-8bdab7804ed4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[97]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.314285898095842`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 97, 146, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992090220724167*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"297b3917-f89a-0246-aa10-39e7fe008f44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.74375517948971`*^-223\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 97, 147, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207331676`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"a15e307a-c029-db4d-9ccf-908ec1e02c3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.460299923082479`*^-228\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 97, 148, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207391644`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"07817f25-3005-da49-b6f2-115349f6c932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 97, 149, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207471657`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"a5b76321-d487-494f-a8f0-28c1a9327ad5"], + +Cell[BoxData["12.179486664213174`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.9920902427772408`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b299da9e-abca-3e4b-8017-f973fc3fcb0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 150, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428342724`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"0253666c-215a-d743-b5e6-d25ed4d9abd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 151, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428482304`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"b077382c-7b28-1347-bd4f-028175da9e2e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 152, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428552685`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"07423249-97eb-cf49-8cdb-27573bb00791"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 153, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428632374`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"4192f7d4-03b1-2a46-9d32-e7ab7a877684"], + +Cell[BoxData["3.404884044232224`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9920902483550053`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"e1fe7bde-cdc4-6f4e-9f38-7a93d0c645c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 154, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920902483931904`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"1798346d-f9bf-4d47-9ed9-c5409b70307e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 155, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920902484001884`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7fb09d21-401e-5247-8d64-d7ceed03fd8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 156, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992090248411209*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"20a7c27e-c0a4-0f45-b664-3c15b52f3892"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 157, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992090248418209*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0f69f23f-9ebd-e648-bdb9-6fd79332c624"], + +Cell[BoxData["16.62956224492374`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9920902529411163`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"5039ca40-577a-9845-9005-952d6fd4ba80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 158, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530044804`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"1e42db4b-3b6e-c242-b9d7-d1a4a590205c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 159, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530120106`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"5711e838-c643-2748-8d96-0fab3b2f1e7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 160, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530190296`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"dd8620f4-80cf-c643-a446-5bcc1b5bdb0e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 161, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530260105`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"cf9dccda-eee8-994b-ad9a-25e60dad1234"], + +Cell[BoxData["43.86559170482372`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.9920902558013306`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"10ac8af1-fb09-ed44-ade0-041f4f437b34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.12606656565099386`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.992090255834341*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"9a8cd210-28fb-3a49-9264-6c45d78c3519"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["10.443657984079762`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.99209025584334*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"d71ca9d4-3a99-114e-8429-d0bb97d6c51f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["3.1139982372491035`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.99209025585034*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"40be2a73-a34f-fb46-80e9-9b4b48bcce4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["32.521532552856904`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.99209025585734*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"4dfbfd6c-3163-3243-b4bd-2ebdd9be75d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.026593811047050407`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.992090255882452*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"da550190-2da4-fa43-8d86-a2b03847dc98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.434438162146826`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.992090255969261*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"ec1fb74f-463c-9b4d-a2f4-699641dae361"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.006078400077329918`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.992090255981371*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"7cc13680-4e83-0846-87e9-af1bbaa68702"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["11.367116206169243`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.992090256068159*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"766ea627-714a-b042-b5e0-d28e31761bf4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.8359791121432882`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9920902560822105`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"656f80a5-d397-e44b-8a1d-19559d79ce10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.1640208878567118`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992090256095188*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"d1907b1c-4d75-3c44-bdf7-887c25017421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.13711803620340776`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.9920902561110744`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"2b293f6d-4cad-384c-8140-d4f49d425c15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179485681155*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0910124741522357`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 113, 162, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561431065`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"68702f7c-93b9-8f49-9333-85446d9da20e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5944274731386185`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 113, 163, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561512146`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"6e578805-a7c7-4a41-b8bc-6dde237f5bb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.179830708446814`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 113, 164, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561585407`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"dd8b0a48-a91b-b641-b25f-476fa8891f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 113, 165, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561660824`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"7e02e9ea-40a9-0f4a-8e7b-f28d97a52c31"], + +Cell[BoxData["5.4344381621468205`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.9920902588292313`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"cf0c119b-2a0c-eb4c-b64f-fd333af7acd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179697882374*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0910124741522357`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 114, 166, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902588837337`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"44fe1e60-99c2-6c4a-b132-f376efa351ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5944274731386185`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 114, 167, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902588921223`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"fe77862c-526a-bc4c-9aa4-07d6c1add029"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.179830708446814`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 114, 168, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902589001102`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"11e2f001-632d-2249-a07e-54f51308c266"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 114, 169, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902589071693`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"c1688544-c5ab-a841-b801-9e36c53c9ae0"], + +Cell[BoxData["11.367116206169245`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9920902620788326`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"d95798d7-3189-bd47-b181-2ace7657c85b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[115]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1748483420177226`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 170, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902622923927`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"e436725b-b1eb-1e47-af0a-457135dd821e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.221763797131176`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 171, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623012714`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"5f2d212e-c110-ae4d-ac63-a731495de57c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.195187321536095`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 172, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623102856`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"9e0c44a2-2856-1a4e-82e4-79ffb8fe99dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 173, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623172817`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"c0990c17-72fb-be43-a0ee-7f925c4d7e89"], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.9920904848708534`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"5860a3fc-cc7e-1b4b-8ec4-a45686f94234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.938169890743013`*^-175\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 328, 123, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.17889047361004`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 328, 124, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.991709170478571*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6987772228196017`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 328, 125, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704865704`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 328, 126, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704955845`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], + +Cell[BoxData["10.62729206338334`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970149184284`*^9, + 3.991797037687023*^9}},ExpressionUUID->"2e239e43-8455-8947-be70-\ +b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 329, 127, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 128, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175973011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 129, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175983019*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 329, 130, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.9917091759920235`*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], + +Cell[BoxData["1.1698825507998156`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970412382812`*^9, + 3.991797045066601*^9}},ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-\ +39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 330, 131, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 132, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805532475`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 133, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805632515`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 330, 134, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805722485`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], + +Cell[BoxData["7.488766577772476`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970522453213`*^9, + 3.991797055966772*^9}},ExpressionUUID->"867b2dc8-7ef3-234b-80bd-\ +e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 331, 135, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 136, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849253387`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 137, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849343395`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 331, 138, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.99170918494335*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], + +Cell[BoxData["15.925014616300276`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, + 3.9917970642464314`*^9}},ExpressionUUID->"b1cee125-11a3-8a43-b076-\ +a72829d187d3"], + +Cell[BoxData["0.10712656920120021`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9},ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-\ +f61f4036bef1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[334]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["20.157626483814337`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[336]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["0.9567032806265168`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9}, + CellLabel-> + "Out[336]=",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["19.284867386709134`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[340]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.02613308078261745`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[341]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[342]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.012890445116466177`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[343]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["7.805684323619363`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[344]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9}, + CellLabel-> + "Out[344]=",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[346]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9}, + CellLabel-> + "Out[346]=",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917970976395664`*^9},ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-\ +9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 347, 139, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 347, 140, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.991709239377041*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 347, 141, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393860435`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 347, 142, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393950424`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991797103207548*^9},ExpressionUUID->"11801718-69ec-bf4e-86d8-\ +e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 348, 143, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 348, 144, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427604694`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 348, 145, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427704697`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 348, 146, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427794952`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], + +Cell[BoxData["7.805684323619356`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, + 3.9917971122297535`*^9}},ExpressionUUID->"4d882d59-3e42-1040-97a9-\ +33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1387495820703128`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 147, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.041608798521609`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 148, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711906605`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4344331657703033`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 350, 149, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.99170937119866*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 350, 150, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.991709371206663*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], + +Cell[BoxData["10.627292063383521`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971275265427`*^9, + 3.991797131794855*^9}},ExpressionUUID->"9b45c184-4df7-db4d-adb2-\ +01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 351, 151, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 351, 152, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377927576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 351, 153, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779375763`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 351, 154, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779455757`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], + +Cell[BoxData["0.7070855058258385`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971357813015`*^9, + 3.991797138809105*^9}},ExpressionUUID->"00ca455f-f3f6-2c4f-8927-\ +9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 352, 155, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 352, 156, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824649506`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 352, 157, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824741554`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 352, 158, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.991709382483162*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, + 3.991709478503729*^9}},ExpressionUUID->"8cac9b30-e121-024d-91d3-\ +cf92fd4a988a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971437506504`*^9, + 3.991797147210884*^9}},ExpressionUUID->"b454660a-890c-f24b-923b-\ +563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 353, 159, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 353, 160, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.991709386619932*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 353, 161, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866289444`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 353, 162, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866369305`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], + +Cell[BoxData["16.648132369643353`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, + 3.9917971576817684`*^9}},ExpressionUUID->"673f44c9-71c5-b64a-9ddb-\ +ff434e6a2570"], + +Cell[BoxData["0.06047387015151299`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +}, +WindowSize->{718.5, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[829, 29, 170, 2, 25, "Output",ExpressionUUID->"b7c24ea0-5123-4e40-8ff1-016a0f3d9f06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1365, 43, 255, 4, 25, "Output",ExpressionUUID->"3ca6af5d-8845-914d-8fb8-db7201d01e44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[1912, 59, 252, 4, 25, "Output",ExpressionUUID->"9d53aa44-00e6-f740-8e90-e0c70ba80028"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2379, 73, 225, 3, 25, "Output",ExpressionUUID->"d8de34e0-1db9-a242-a0de-2c58dc251a21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[2901, 90, 243, 3, 25, "Output",ExpressionUUID->"c661afd3-27f0-f54e-803a-d5eb1e2003b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[3315, 102, 229, 3, 25, "Output",ExpressionUUID->"f1b516aa-487c-9c4d-85d3-cbd5ec786a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[3860, 118, 241, 3, 25, "Output",ExpressionUUID->"20bb77b0-af5e-4e43-af78-fa02d8d545fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[4398, 135, 240, 3, 25, "Output",ExpressionUUID->"971b8149-f7bc-164c-9daa-db9821ee36d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[4914, 149, 260, 3, 25, "Output",ExpressionUUID->"e6614ab3-dc30-2e4b-a376-e676cdd518fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[5452, 163, 262, 3, 25, "Output",ExpressionUUID->"c3ad4983-44fd-c54b-b7d6-f5e9f86ac853"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[5883, 175, 224, 3, 25, "Output",ExpressionUUID->"1de3102b-5caa-2d45-92bc-7025d976f7fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"ad699281-df31-fe47-8377-50846b125072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"5fc9fcd7-acef-5f4c-9a4c-7e9527635594"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"8352eb2b-34a9-604b-bf1d-801e53025e5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"1bc0ac32-dc75-ea44-92b1-11a347a9b137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"22e7f275-ddd8-ca4c-9a99-e178535fae7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"f6c020ab-16cb-494d-8290-e8f06b194244"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"63290e1d-9ee1-9047-bf87-2f76d7fc852e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"605e5b4b-62a7-c44f-9592-50bdf74a0203"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"b45bdc19-2ad2-4347-8c1b-115fd5b67132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"91262c89-c41b-db48-b4ba-121fc48ac6a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"f81afc19-3d80-f443-8449-6de12236dee6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"e6c2995f-35b9-b943-bb8c-234e312f1dd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"5be75014-41d7-fb46-bcb1-c029cbc1bf36"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"68f1598b-0ea6-2644-8643-6b2c3d3af245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"950acf8c-9b1f-c846-8f1a-9d1339e5b417"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"8299aaa1-e8cd-c140-98d6-0bdf70206c0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"ae113a32-15bf-914f-a716-97742bfb8678"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"3181800d-348e-a746-801d-a0689d771f39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"78694d31-812f-e943-8bb5-d58c94143099"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"5c8adf0c-d1fc-b648-be6c-e6ab446c0188"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"21f7a68d-15a4-aa4a-9f2f-ac0c53d958dd"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"d8b64c74-2c65-9b44-b3cb-0db5863abc3b"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"a73ed249-f335-624b-9f35-094bbfc621a1"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"9f2bcbd2-99a2-9d4b-9c70-7f9d0efccae7"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"b459c7f8-ac9d-4d4f-9aa5-aba72af043a2"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"20f7c7b1-c41b-5641-86d9-3d9ba4989b3c"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"3ae75741-70ab-3c4f-b4d4-bc563b8b2677"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"70212435-2665-e444-b864-ee00e0999634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"f3c88506-920f-5649-8cef-536c89929669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"5b2dbcf4-5bbd-e94c-857e-286b041e0d5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"1a91e2eb-8f18-4c46-be3d-5f0163def9a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"c9a32e59-2654-6d46-9a98-780d495ab2bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"009c1f24-f9f4-dc48-9db4-2fdf2420d110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"be414436-ea10-2549-84c0-01cd6a4fb643"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"2c75be98-2c4b-c74f-a840-157aa124b0ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"956f21a1-a5f0-dd48-a0db-0649818cf589"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"5f60a138-1228-0647-828b-f69b6b82a394"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"72535c13-e904-2d4a-8d06-4f913f48d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"ba37d33c-7bfb-514d-8059-e7258cbe73a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"de2db7cc-157c-0241-a2d0-3877f60f2f74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"e05fb998-0c3c-914f-aab3-9061a5be8812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"71a8ca09-ea43-3942-b848-248927804279"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"2671b6f3-ef81-624a-9348-b2e5142c2434"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"b6c62e5d-ea1a-8443-8ada-79b01a88938a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"e4a29d4f-42ef-c44c-9e1b-e27ba179aa39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"0afdc4eb-983d-fa48-b9fd-53251acb64c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"5192d80c-7cf4-6c48-8ca9-65876353ddc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 64, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[170111, 4476, 232, 4, 25, "Output",ExpressionUUID->"a8c04634-6d98-fa48-b315-976fe5dc0f4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[172201, 4548, 214, 3, 25, "Output",ExpressionUUID->"e689f0c7-d47c-4d46-8bfc-d8d217140e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 72, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[174954, 4635, 218, 3, 25, "Output",ExpressionUUID->"9827733d-e648-f943-b863-43b20946d9d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 72, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[177711, 4722, 215, 3, 25, "Output",ExpressionUUID->"572140c9-bdb2-e94b-9fc1-98462344681b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177963, 4730, 236, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[178202, 4736, 166, 2, 25, "Output",ExpressionUUID->"7c2572e2-e1ab-8342-8714-8e8cbecd10bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178405, 4743, 263, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[178671, 4749, 168, 2, 25, "Output",ExpressionUUID->"d384dee7-78c2-9041-84e8-ed683d4d769b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178876, 4756, 1297, 42, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[180176, 4800, 217, 3, 25, "Output",ExpressionUUID->"8c38b579-256b-684a-b609-f88da9235dae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180430, 4808, 834, 27, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[181267, 4837, 221, 3, 25, "Output",ExpressionUUID->"e8b9b65d-c28b-9b41-bf5a-9f5cd93c2a9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181525, 4845, 889, 30, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[182417, 4877, 220, 3, 25, "Output",ExpressionUUID->"5b0f2f2e-cf6b-a244-a81a-d10dc7619a05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182674, 4885, 554, 18, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[183231, 4905, 215, 3, 25, "Output",ExpressionUUID->"ee99b645-0738-6849-b2b8-b9908b150c95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183483, 4913, 619, 20, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[184105, 4935, 218, 3, 25, "Output",ExpressionUUID->"e712cb91-7ce8-f94e-b8c4-545554484ba4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184360, 4943, 166, 4, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[184529, 4949, 218, 3, 25, "Output",ExpressionUUID->"2c4fe25e-8710-4440-88e3-a33f2913a8ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184784, 4957, 166, 4, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[184953, 4963, 218, 3, 25, "Output",ExpressionUUID->"fc769fc2-5bd0-b646-91a6-ad48d846ec16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185208, 4971, 177, 4, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[185388, 4977, 217, 3, 25, "Output",ExpressionUUID->"cf9420f1-557a-3b44-94ad-f81c81868148"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185642, 4985, 177, 4, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[185822, 4991, 219, 3, 25, "Output",ExpressionUUID->"1879be68-bf53-ad4a-b1f9-811fee749ecc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186078, 4999, 6051, 184, 310, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[192132, 5185, 220, 3, 25, "Output",ExpressionUUID->"8dd792a0-7a05-3d46-b7ea-a2bcf9e9b8f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192389, 5193, 364, 8, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[192756, 5203, 217, 3, 25, "Output",ExpressionUUID->"e4acfce8-b438-9149-9532-73d25efa4f9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193010, 5211, 6118, 186, 353, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[199131, 5399, 222, 3, 25, "Output",ExpressionUUID->"3013b5cd-fd3e-9a44-87f0-84a67a2007ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199390, 5407, 364, 8, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[199757, 5417, 219, 3, 25, "Output",ExpressionUUID->"0f417f0c-11ad-a048-b712-718ae1c258a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200013, 5425, 2659, 87, 135, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[202675, 5514, 218, 3, 25, "Output",ExpressionUUID->"cd42716a-3013-cc4c-80a6-6fa8b8c06a09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202930, 5522, 2599, 84, 135, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[205532, 5608, 220, 3, 25, "Output",ExpressionUUID->"30f51c14-1480-7740-84c4-0743b8a7826c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205789, 5616, 3708, 117, 197, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[209500, 5735, 221, 3, 25, "Output",ExpressionUUID->"85839bdd-4f3d-db48-9f81-add261b1845b"] +}, Open ]], +Cell[209736, 5741, 276, 5, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[210037, 5750, 2071, 58, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[212111, 5810, 607, 13, 50, "Message",ExpressionUUID->"305b6ac1-5c1d-3648-8409-f9cc38d14401"], +Cell[212721, 5825, 611, 13, 50, "Message",ExpressionUUID->"def5c5bd-38e4-c546-9798-9196fa77b04f"], +Cell[213335, 5840, 612, 13, 50, "Message",ExpressionUUID->"7ef56334-b108-274e-84c3-3a464cefd9c4"], +Cell[213950, 5855, 507, 11, 20, "Message",ExpressionUUID->"d333f203-d5dc-7c49-a054-7b6a6d6bbe71"], +Cell[214460, 5868, 219, 3, 25, "Output",ExpressionUUID->"4cac7206-4795-5a4b-91c8-845dd7a198ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214716, 5876, 2071, 58, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[216790, 5936, 607, 13, 50, "Message",ExpressionUUID->"868aef7c-68dd-7741-ae70-8bf632cacf54"], +Cell[217400, 5951, 609, 13, 50, "Message",ExpressionUUID->"e293db8c-0c36-434b-b398-dc16e16c229e"], +Cell[218012, 5966, 610, 13, 50, "Message",ExpressionUUID->"b4a62f4a-8307-d84b-a7a2-b9f17cc7921e"], +Cell[218625, 5981, 505, 11, 20, "Message",ExpressionUUID->"915cff75-3c97-194a-834e-c3f0f89d48c2"], +Cell[219133, 5994, 215, 3, 25, "Output",ExpressionUUID->"10661102-53b9-f344-aa3f-5bb36e856388"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219385, 6002, 1957, 52, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[221345, 6056, 20433, 383, 189, "Output",ExpressionUUID->"81ffec5a-1537-f446-9898-c54ad2225982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241815, 6444, 2135, 59, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[243953, 6505, 542, 12, 33, "Message",ExpressionUUID->"249d3ae3-1411-1046-8a83-48822955b4df"], +Cell[244498, 6519, 546, 12, 33, "Message",ExpressionUUID->"145098b6-b9ef-cc4c-a280-de62a525b747"], +Cell[245047, 6533, 551, 12, 33, "Message",ExpressionUUID->"ec5836bf-205c-0d45-98bc-b15bc1ff74d7"], +Cell[245601, 6547, 501, 11, 20, "Message",ExpressionUUID->"cdfc7787-79a7-0641-b0ef-c3d9842527c1"], +Cell[246105, 6560, 21848, 403, 187, "Output",ExpressionUUID->"09c57225-2a82-0642-a8b3-b20d5a3131a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267990, 6968, 320, 9, 35, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[268313, 6979, 218, 3, 25, "Output",ExpressionUUID->"935b5253-5e68-0a45-8519-47bda33b7070"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268568, 6987, 1833, 52, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[270404, 7041, 518, 11, 33, "Message",ExpressionUUID->"121035ac-88eb-6047-9d1c-5b9b46d74812"], +Cell[270925, 7054, 522, 11, 33, "Message",ExpressionUUID->"90859807-c965-c644-8d4b-91e03e95dca9"], +Cell[271450, 7067, 523, 11, 33, "Message",ExpressionUUID->"bddb06de-4c67-9049-875f-3d819f665270"], +Cell[271976, 7080, 478, 10, 20, "Message",ExpressionUUID->"ddfca9c2-4456-0f4b-84ba-8053e71fcf0e"], +Cell[272457, 7092, 22141, 408, 187, "Output",ExpressionUUID->"47e58eaa-14ec-fe46-8896-8bdab7804ed4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294635, 7505, 1612, 47, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[296250, 7554, 598, 13, 50, "Message",ExpressionUUID->"297b3917-f89a-0246-aa10-39e7fe008f44"], +Cell[296851, 7569, 602, 13, 50, "Message",ExpressionUUID->"a15e307a-c029-db4d-9ccf-908ec1e02c3a"], +Cell[297456, 7584, 606, 13, 50, "Message",ExpressionUUID->"07817f25-3005-da49-b6f2-115349f6c932"], +Cell[298065, 7599, 502, 11, 20, "Message",ExpressionUUID->"a5b76321-d487-494f-a8f0-28c1a9327ad5"], +Cell[298570, 7612, 218, 3, 25, "Output",ExpressionUUID->"b299da9e-abca-3e4b-8017-f973fc3fcb0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298825, 7620, 2296, 64, 131, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[301124, 7686, 607, 13, 50, "Message",ExpressionUUID->"0253666c-215a-d743-b5e6-d25ed4d9abd5"], +Cell[301734, 7701, 609, 13, 50, "Message",ExpressionUUID->"b077382c-7b28-1347-bd4f-028175da9e2e"], +Cell[302346, 7716, 612, 13, 50, "Message",ExpressionUUID->"07423249-97eb-cf49-8cdb-27573bb00791"], +Cell[302961, 7731, 505, 11, 20, "Message",ExpressionUUID->"4192f7d4-03b1-2a46-9d32-e7ab7a877684"], +Cell[303469, 7744, 217, 3, 25, "Output",ExpressionUUID->"e1fe7bde-cdc4-6f4e-9f38-7a93d0c645c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303723, 7752, 2238, 63, 131, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[305964, 7817, 606, 13, 50, "Message",ExpressionUUID->"1798346d-f9bf-4d47-9ed9-c5409b70307e"], +Cell[306573, 7832, 608, 13, 50, "Message",ExpressionUUID->"7fb09d21-401e-5247-8d64-d7ceed03fd8b"], +Cell[307184, 7847, 609, 13, 50, "Message",ExpressionUUID->"20a7c27e-c0a4-0f45-b664-3c15b52f3892"], +Cell[307796, 7862, 502, 11, 20, "Message",ExpressionUUID->"0f69f23f-9ebd-e648-bdb9-6fd79332c624"], +Cell[308301, 7875, 219, 3, 25, "Output",ExpressionUUID->"5039ca40-577a-9845-9005-952d6fd4ba80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308557, 7883, 2242, 64, 131, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[310802, 7949, 607, 13, 50, "Message",ExpressionUUID->"1e42db4b-3b6e-c242-b9d7-d1a4a590205c"], +Cell[311412, 7964, 609, 13, 50, "Message",ExpressionUUID->"5711e838-c643-2748-8d96-0fab3b2f1e7d"], +Cell[312024, 7979, 612, 13, 50, "Message",ExpressionUUID->"dd8620f4-80cf-c643-a446-5bcc1b5bdb0e"], +Cell[312639, 7994, 505, 11, 20, "Message",ExpressionUUID->"cf9dccda-eee8-994b-ad9a-25e60dad1234"], +Cell[313147, 8007, 219, 4, 25, "Output",ExpressionUUID->"10ac8af1-fb09-ed44-ade0-041f4f437b34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313403, 8016, 236, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[313642, 8024, 221, 4, 25, "Output",ExpressionUUID->"9a8cd210-28fb-3a49-9264-6c45d78c3519"] +}, Open ]], +Cell[313878, 8031, 271, 6, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[314174, 8041, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[314735, 8062, 219, 4, 25, "Output",ExpressionUUID->"d71ca9d4-3a99-114e-8429-d0bb97d6c51f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314991, 8071, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[315164, 8078, 221, 4, 25, "Output",ExpressionUUID->"40be2a73-a34f-fb46-80e9-9b4b48bcce4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315422, 8087, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[315606, 8094, 218, 4, 25, "Output",ExpressionUUID->"4dfbfd6c-3163-3243-b4bd-2ebdd9be75d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315861, 8103, 6055, 185, 310, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[321919, 8290, 220, 4, 25, "Output",ExpressionUUID->"da550190-2da4-fa43-8d86-a2b03847dc98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322176, 8299, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[322547, 8310, 217, 4, 25, "Output",ExpressionUUID->"ec1fb74f-463c-9b4d-a2f4-699641dae361"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322801, 8319, 6122, 187, 353, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[328926, 8508, 224, 4, 25, "Output",ExpressionUUID->"7cc13680-4e83-0846-87e9-af1bbaa68702"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329187, 8517, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[329558, 8528, 218, 4, 25, "Output",ExpressionUUID->"766ea627-714a-b042-b5e0-d28e31761bf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329813, 8537, 2663, 88, 135, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[332479, 8627, 224, 4, 25, "Output",ExpressionUUID->"656f80a5-d397-e44b-8a1d-19559d79ce10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332740, 8636, 2603, 85, 135, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[335346, 8723, 218, 4, 25, "Output",ExpressionUUID->"d1907b1c-4d75-3c44-bdf7-887c25017421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335601, 8732, 3712, 118, 197, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[339316, 8852, 223, 4, 25, "Output",ExpressionUUID->"2b293f6d-4cad-384c-8140-d4f49d425c15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339576, 8861, 2074, 59, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[341653, 8922, 592, 12, 50, "Message",ExpressionUUID->"68702f7c-93b9-8f49-9333-85446d9da20e"], +Cell[342248, 8936, 595, 12, 50, "Message",ExpressionUUID->"6e578805-a7c7-4a41-b8bc-6dde237f5bb9"], +Cell[342846, 8950, 601, 13, 50, "Message",ExpressionUUID->"dd8b0a48-a91b-b641-b25f-476fa8891f1d"], +Cell[343450, 8965, 507, 11, 20, "Message",ExpressionUUID->"7e02e9ea-40a9-0f4a-8e7b-f28d97a52c31"], +Cell[343960, 8978, 222, 4, 25, "Output",ExpressionUUID->"cf0c119b-2a0c-eb4c-b64f-fd333af7acd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344219, 8987, 2074, 59, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[346296, 9048, 592, 12, 50, "Message",ExpressionUUID->"44fe1e60-99c2-6c4a-b132-f376efa351ff"], +Cell[346891, 9062, 595, 12, 50, "Message",ExpressionUUID->"fe77862c-526a-bc4c-9aa4-07d6c1add029"], +Cell[347489, 9076, 601, 13, 50, "Message",ExpressionUUID->"11e2f001-632d-2249-a07e-54f51308c266"], +Cell[348093, 9091, 507, 11, 20, "Message",ExpressionUUID->"c1688544-c5ab-a841-b801-9e36c53c9ae0"], +Cell[348603, 9104, 222, 4, 25, "Output",ExpressionUUID->"d95798d7-3189-bd47-b181-2ace7657c85b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348862, 9113, 2138, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[351003, 9175, 520, 11, 33, "Message",ExpressionUUID->"e436725b-b1eb-1e47-af0a-457135dd821e"], +Cell[351526, 9188, 521, 11, 33, "Message",ExpressionUUID->"5f2d212e-c110-ae4d-ac63-a731495de57c"], +Cell[352050, 9201, 524, 11, 33, "Message",ExpressionUUID->"9e0c44a2-2856-1a4e-82e4-79ffb8fe99dd"], +Cell[352577, 9214, 480, 10, 20, "Message",ExpressionUUID->"c0990c17-72fb-be43-a0ee-7f925c4d7e89"], +Cell[353060, 9226, 184, 3, 25, "Output",ExpressionUUID->"5860a3fc-cc7e-1b4b-8ec4-a45686f94234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353281, 9234, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[354900, 9284, 618, 12, 53, "Message",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], +Cell[355521, 9298, 618, 12, 53, "Message",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], +Cell[356142, 9312, 626, 12, 53, "Message",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], +Cell[356771, 9326, 482, 10, 20, "Message",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], +Cell[357256, 9338, 192, 3, 25, "Output",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357485, 9346, 2249, 64, 131, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[359737, 9412, 594, 12, 50, "Message",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], +Cell[360334, 9426, 597, 12, 50, "Message",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], +Cell[360934, 9440, 602, 12, 69, "Message",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], +Cell[361539, 9454, 482, 10, 20, "Message",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], +Cell[362024, 9466, 197, 3, 25, "Output",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362258, 9474, 2221, 64, 131, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[364482, 9540, 592, 12, 50, "Message",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], +Cell[365077, 9554, 597, 12, 50, "Message",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], +Cell[365677, 9568, 602, 12, 69, "Message",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], +Cell[366282, 9582, 480, 10, 20, "Message",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], +Cell[366765, 9594, 196, 3, 25, "Output",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366998, 9602, 2221, 64, 131, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[369222, 9668, 596, 12, 50, "Message",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], +Cell[369821, 9682, 599, 12, 50, "Message",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], +Cell[370423, 9696, 604, 12, 69, "Message",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], +Cell[371030, 9710, 479, 10, 20, "Message",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], +Cell[371512, 9722, 197, 3, 25, "Output",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371746, 9730, 213, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[371962, 9738, 194, 3, 25, "Output",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], +Cell[372171, 9744, 242, 5, 34, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[372438, 9753, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[372999, 9774, 197, 3, 25, "Output",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373233, 9782, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[373406, 9789, 193, 3, 25, "Output",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373636, 9797, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[373820, 9804, 197, 3, 25, "Output",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374054, 9812, 6055, 185, 310, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[380112, 9999, 196, 3, 25, "Output",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380345, 10007, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[380716, 10018, 192, 3, 25, "Output",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380945, 10026, 6122, 187, 353, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[387070, 10215, 197, 3, 25, "Output",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387304, 10223, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[387675, 10234, 196, 3, 25, "Output",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387908, 10242, 2663, 88, 135, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[390574, 10332, 197, 3, 25, "Output",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390808, 10340, 2603, 85, 135, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[393414, 10427, 196, 3, 25, "Output",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393647, 10435, 3712, 118, 197, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[397362, 10555, 196, 3, 25, "Output",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397595, 10563, 2054, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[399652, 10624, 589, 12, 50, "Message",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], +Cell[400244, 10638, 591, 12, 50, "Message",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], +Cell[400838, 10652, 597, 12, 50, "Message",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], +Cell[401438, 10666, 482, 10, 20, "Message",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], +Cell[401923, 10678, 194, 3, 25, "Output",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402154, 10686, 2052, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[404209, 10747, 589, 12, 50, "Message",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], +Cell[404801, 10761, 593, 12, 50, "Message",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], +Cell[405397, 10775, 597, 12, 50, "Message",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], +Cell[405997, 10789, 482, 10, 20, "Message",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], +Cell[406482, 10801, 194, 3, 25, "Output",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406713, 10809, 2120, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[408836, 10871, 496, 11, 33, "Message",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], +Cell[409335, 10884, 501, 11, 33, "Message",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], +Cell[409839, 10897, 505, 11, 33, "Message",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], +Cell[410347, 10910, 455, 10, 20, "Message",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], +Cell[410805, 10922, 21721, 403, 187, "Output",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[432563, 11330, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[434182, 11380, 614, 12, 53, "Message",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], +Cell[434799, 11394, 616, 12, 53, "Message",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], +Cell[435418, 11408, 616, 12, 53, "Message",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], +Cell[436037, 11422, 480, 10, 20, "Message",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], +Cell[436520, 11434, 197, 3, 25, "Output",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436754, 11442, 2249, 64, 131, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[439006, 11508, 585, 12, 50, "Message",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], +Cell[439594, 11522, 589, 12, 50, "Message",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], +Cell[440186, 11536, 595, 12, 50, "Message",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], +Cell[440784, 11550, 480, 10, 20, "Message",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], +Cell[441267, 11562, 192, 3, 25, "Output",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441496, 11570, 2221, 64, 131, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[443720, 11636, 589, 12, 50, "Message",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], +Cell[444312, 11650, 593, 12, 50, "Message",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], +Cell[444908, 11664, 597, 12, 50, "Message",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], +Cell[445508, 11678, 480, 10, 20, "Message",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], +Cell[446003, 11691, 189, 4, 22, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[CellGroupData[{ +Cell[446217, 11699, 2221, 64, 131, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[448441, 11765, 584, 12, 50, "Message",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], +Cell[449028, 11779, 589, 12, 50, "Message",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], +Cell[449620, 11793, 595, 12, 50, "Message",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], +Cell[450218, 11807, 480, 10, 20, "Message",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], +Cell[450701, 11819, 197, 3, 25, "Output",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450935, 11827, 215, 6, 38, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[451153, 11835, 198, 3, 25, "Output",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb new file mode 100755 index 0000000..91a3186 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb @@ -0,0 +1,14081 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 572771, 14073] +NotebookOptionsPosition[ 533346, 13443] +NotebookOutlinePosition[ 533770, 13460] +CellTagsIndexPosition[ 533727, 13457] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"7af76b20-47eb-4947-b82c-88607e2425d8"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7b5e8ee2-cbf6-f54c-abb7-f9b6bbf35f1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"28f12cd5-18c7-0c4e-9660-86136dac566b"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"d8397540-2d10-ef4b-814b-617895f20c1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"cc9d1e65-5d3b-274a-990c-6ce025f33ccb"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f3d5b555-ce2f-3a46-9727-10269c33a1f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"90c48fc9-b53c-af45-bfb9-f00d4b1dadaa"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7e7ddeee-4bf6-564c-b0ae-96cf6695dd3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"7842dec9-157c-fb49-bcc6-94fe025c4730"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"983fb5a6-0a5c-e543-af1c-a02785962c36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"b17bb579-64fa-af4c-b78a-a8bac80b827e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"e4c03cd2-07c6-9848-a139-c78143a1d792"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"836e4938-4de0-3349-894c-1dccfcd0a498"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"6ef7db62-d4be-ec4d-b45f-f2a5cd6f85b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"45d811e2-fc77-2049-be14-dbafce0a7f22"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3aebb824-5d8a-174b-94e9-df728faba014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"57b7d81f-468b-a746-b33a-96f21092b3cb"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"25541067-6729-b64e-b7f4-82a7f88ec5b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"8f4bc0a4-1edf-c745-a78c-584ebe594ec6"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"e198b284-33df-f249-a11d-0fe25a663cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"52a31f76-37b8-634c-ab0e-53f4cc917a3f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"69a5625a-b477-c842-91e9-5fbbbd5e1231"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"bad3cf6a-5d22-6a45-a93b-2b20e329924b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"bca99840-dd70-ee43-ac21-1703f4092419"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb2941b4-8018-4b44-aac0-1ce0febe8137"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a573c934-e218-d04a-baaa-38b6d8d5e3c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"5c8af646-1783-384a-aa48-dc8c9aa0db65"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"2b2fe62d-8726-a043-b4dc-bb7b160c758d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"50dd0ec9-5355-3644-b35d-c1868a8b58da"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"96657e9f-3032-6949-acdb-ea951ed007b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"051a5338-e267-1045-aa79-03c3371c46ea"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e347f702-bcdf-d643-91fd-2a8931e06eaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"372c2e63-c46b-6e46-8677-c1b719a36a3e"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3552d586-299c-cb47-bc79-7fc8922e5746"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"696e9667-8c50-6f40-8c42-86e5fa98991c"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"3f63847e-fcfd-7749-afdb-18ad1a27ac23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"2d496a9e-aca2-bf46-bcd1-5594cc8e5188"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"395808c6-3fdd-544b-9fcd-f7f2b7a8f7f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"8b3c8ed5-4340-4445-9d94-c6e114cb215d"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bc4619db-21e8-a142-98fd-5569c3c57e7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"87dd5848-9b5a-0f45-9ddd-5a0ebacfca29"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"0ae7f4e9-f4c3-d944-a37f-557a458f7c70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"2b6475b8-e8a9-0542-b622-db179e1b89bd"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"ca7c6157-9441-164d-ab04-17c6bf27a075"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"93bdd082-a5e8-7b4c-a02d-ea527d155069"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"5ff78eac-d617-3a45-879e-5805c6184528"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"b021ae84-5bca-fc4a-a567-e8e28f2ff395"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8de75c2f-09ee-994b-96eb-699f6f33d848"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"635b133c-c0bf-eb47-8623-007b4879fac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"0979aad1-64a1-4947-841b-41e0e9a6a815"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"b1985621-0f6a-454f-acd0-bc6a5dfe39e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"468488f6-1d00-1f49-a607-f5b114b588f3"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e8768842-e538-d741-b4e4-d7333cbd45ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"5f4b947c-a70a-4449-bef8-4291773c641a"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"7fe4c271-1c64-3f46-8817-83af8d06923e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"ed9995f5-3d5a-9643-903f-4b8994a5dac3"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"4f2b99a9-eb7f-5542-a2d6-acb17f970a88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"d889c950-8e54-674e-a44b-e8e13778a129"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"83cc7ff1-bdf6-8f4e-8582-ded03cb108b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"dc70fa8d-74cc-cb41-99ef-278e2e2c47b4"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"11b5d657-717f-724f-b697-54ca5b5800be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"3a689cb6-519b-4340-a734-5274eea318ac"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"f2812a09-4bb1-f149-830f-7cef615590cb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"b1f8ace4-417d-2147-a34d-2da54bc7b22c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"f3a033c1-6cde-e74f-bfee-47f629c69328"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"860e0808-1b87-6241-a269-77395ec0a6bb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"cd91ab8f-4493-7040-8a78-45eef3353576"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"d9a80083-e913-ad4e-817b-0e4386e197ad"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"3e701883-9a95-1d4e-8e4b-de6ee331431c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"3e08b346-fbb5-0141-bc87-0df6c31feaad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"6e4d61ad-2038-5e41-832d-cfe641117e57"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"31290a54-93f5-5646-8c64-059ad7c7355f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"e198ec7e-9dfd-4248-860a-01920bb9f100"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"99f31a34-85c7-a14e-86a8-b5f3b8ade546"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"bb6a7196-251b-b34b-9380-4f375348932b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"72dd5383-7133-e644-b34b-6af98dbdf9cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"d1be27e4-b444-3d4c-9afb-0d20975d05af"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"abe4c909-c524-1840-a641-8ebb1cb052a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"dba12a62-bf76-bc47-affb-5f299d399fa5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"c8073757-b303-654f-afab-9b71bb1081f7"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"a39c1eb7-8dd2-5441-b48e-7a94b4153fb8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"4705d92e-9da0-4740-a58d-48e59f620e52"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"fa54d50d-7dee-1042-8ffa-ac7e7d2884d4"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"35fc82ef-bc54-314e-b308-809b9014ed6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"8e8e3c70-2322-2142-b529-8c612888d3aa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"f353ab41-7188-4248-a546-b91d3e6d82fd"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"262c2d7d-75fa-dd4e-9009-d9b8de2e5c4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"bdba6fcd-656a-e34f-8dcb-124eefee8d20"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"b019b0ad-b8e2-484a-9130-53e5a5ee2585"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"4cd8376d-826a-dd4a-a897-70b63a952589"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"d8ad5b6d-888d-574f-826c-1132fd6a8a28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"4e99f3e2-0411-4b40-bfb4-0a670571c5c2"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"e4a467fd-541a-5842-b56e-b2697b6de1d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"99bf7039-5bf3-4440-8c18-72148170868a"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d61a1dbe-0991-6c49-a578-e2d6536b65bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"5be20d36-6fb8-3640-bb58-bac5a614c6b0"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9f7cd5f2-08b1-3243-bdbb-c66b32daa6f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"1b22b00e-2ad2-6942-89c5-c02daebf5c00"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"5f1a51d3-151a-5540-917b-fcf3404a41de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"840ea210-71e5-9a4b-9983-ed3f112150ad"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"f70ee1be-76c1-9549-8d65-c0282a6c1361"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"822ba515-819e-b34f-a941-8e9b357504a1"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"8fc5ee99-4313-964e-8a1b-630cf7bfcf3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f5d79eca-dc83-4944-be0e-f5ad610c4581"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"799e5c4a-4fd3-ea40-bd6c-3039489aada0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"ac5ad298-eab8-8f4b-aec3-08651e26e098"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"926833a1-e71a-b243-a9f2-0db0c8b7e69a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"ec2d7e1c-1773-074e-804e-515848d42983"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"fd7d12b0-8187-6744-a466-5021a9a29d12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"85094bf1-e1c8-e449-96b6-fb72a8490917"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"edab82d9-f33b-0340-b01c-805cd5b46a00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"43939263-4c3b-e647-a248-378144df6bda"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"840fe420-69aa-ea45-892f-88808f370e7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"01840429-959c-5945-a282-94923602233b"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"d974dbed-2b29-3a47-8d0b-8b02abc2245f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"ff1fb106-cea2-ca42-87c0-1d29621dc295"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"476de8b6-c7cf-314f-b2ee-1bf7cb6718cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"92c7cfd3-7080-5447-97a0-cb2fd0b74060"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"8a6aa12b-974d-b946-88e8-33763cff5427"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"26dfbda1-f2c2-7e48-8ee0-f39fbc8f170c"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"3d045e6f-6e7c-d64a-887e-d96c6a032039"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"d781cd22-0a2f-8b4c-86ee-4701b754040e"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"b5bb204c-3b8f-4148-a8dd-5632c4894db3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"10365d10-5cf1-864f-8f0a-a17234afd1ab"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"f7e9ddd7-8ab4-2548-a421-fc357e17bc8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"286c465f-b047-eb4a-9eeb-60479c772e2f"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"f7b1ec93-8d40-c344-aa00-43c6884c2e0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"15777df3-905e-324f-8c63-ba85817a3779"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"5f1a8ba6-8806-ef41-a0cf-fed8350a37e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"372b1d2c-085f-6e45-81b1-705b3f52847d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"8cadb557-4f54-6d44-9228-545532c99842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"445d2e4d-3e45-9a42-adbb-9f9580a74182"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"5f3397c8-36c2-bf4e-b674-9b4cd55a07ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{ + 3.991846457174755*^9, {3.9920898974003143`*^9, + 3.9920899047944126`*^9}},ExpressionUUID->"58382c59-dd64-b449-aa77-\ +b500c631729a"], + +Cell[BoxData["0.62`"], "Output", + CellChangeTimes->{3.991339230490425*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, + 3.992089910124529*^9},ExpressionUUID->"1e2a9573-08d6-094d-b2f8-\ +1c2ad58521b5"], + +Cell[BoxData["0.84`"], "Output", + CellChangeTimes->{3.991339230517523*^9}, + CellLabel-> + "Out[315]=",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9, {3.9915581887684402`*^9, + 3.991558193612196*^9}},ExpressionUUID->"edc47846-771c-164b-bedc-\ +99ac8c0783df"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}, + 3.9915581864980736`*^9},ExpressionUUID->"a1f930ec-56b4-2f43-abd0-\ +dd8b8a4708b1"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ea9dfb1b-57ad-\ +0148-b647-106c07557f97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918464744109974`*^9},ExpressionUUID->"b8b3f009-678c-e54b-8a0c-\ +4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918464780941105`*^9},ExpressionUUID->"d9fdb976-d745-4c44-9c66-\ +2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918464867236023`*^9},ExpressionUUID->"a3abef6a-80f9-8c44-ac94-\ +1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, + 3.9918465034759026`*^9}},ExpressionUUID->"5b0c09f8-5e46-a545-8946-\ +a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991923767707161*^9},ExpressionUUID->"15c72253-d078-7f43-9f29-\ +7ac094706013"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9919237699816914`*^9},ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-\ +eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918465455039177`*^9, + 3.9918465541706066`*^9}},ExpressionUUID->"55574de4-5bf4-6a47-8b7c-\ +0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846558454563*^9, + 3.991846561166006*^9}},ExpressionUUID->"a62e28a7-2963-b449-b2d2-\ +4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846565092888*^9, + 3.991846568588709*^9}},ExpressionUUID->"9dbddde0-a221-414e-bf4d-\ +6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, + 3.991846575865097*^9}},ExpressionUUID->"a4f97f96-646f-ae45-96cc-\ +9c4165440b9d"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9},ExpressionUUID->"35c63783-19fc-b040-b8f7-\ +ef972ba7b6ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918465999055576`*^9},ExpressionUUID->"d3f05697-a372-2a42-8c9c-\ +ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846603740141*^9},ExpressionUUID->"7ddfee1b-0897-3d44-810e-\ +ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466101881027`*^9},ExpressionUUID->"edc0f744-d665-ee48-9e1d-\ +32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466141799603`*^9},ExpressionUUID->"556a1eda-5f63-f94a-8981-\ +af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466382952557`*^9, + 3.9918466432862854`*^9}},ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-\ +d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466470672035`*^9, + 3.991846650208416*^9}},ExpressionUUID->"43c7013a-a6e2-1a44-9690-\ +1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184665401457*^9, + 3.991846657234188*^9}},ExpressionUUID->"41fb449c-01a0-ed48-856e-\ +cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, + 3.991846668968689*^9}},ExpressionUUID->"63e2fa1e-7c56-c749-a270-\ +c9c703386fca"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9},ExpressionUUID->"8b2e971d-5760-5e43-92fb-\ +a0baf224e1e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918466934711*^9},ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918466985968094`*^9},ExpressionUUID->"61250ade-2a8a-1a4d-bb58-\ +5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846701939392*^9},ExpressionUUID->"020bdd6e-add3-0a46-9b39-\ +04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918467058861084`*^9},ExpressionUUID->"5cbca01a-701c-5744-b740-\ +3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846744062315*^9, + 3.9918467481290073`*^9}},ExpressionUUID->"aa4ca102-401f-6c45-84ea-\ +b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467529108715`*^9, + 3.9918467555119896`*^9}},ExpressionUUID->"6ecebc3a-297f-ad45-be0e-\ +687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467593835926`*^9, + 3.991846761720169*^9}},ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-\ +f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, + 3.99184676823822*^9}},ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-\ +fd76363577db"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"7af76b20-47eb-4947-b82c-88607e2425d8"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"7b5e8ee2-cbf6-f54c-abb7-f9b6bbf35f1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"28f12cd5-18c7-0c4e-9660-86136dac566b"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"d8397540-2d10-ef4b-814b-617895f20c1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"cc9d1e65-5d3b-274a-990c-6ce025f33ccb"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"f3d5b555-ce2f-3a46-9727-10269c33a1f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"90c48fc9-b53c-af45-bfb9-f00d4b1dadaa"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"7e7ddeee-4bf6-564c-b0ae-96cf6695dd3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"7842dec9-157c-fb49-bcc6-94fe025c4730"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"983fb5a6-0a5c-e543-af1c-a02785962c36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"b17bb579-64fa-af4c-b78a-a8bac80b827e"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"e4c03cd2-07c6-9848-a139-c78143a1d792"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"836e4938-4de0-3349-894c-1dccfcd0a498"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"6ef7db62-d4be-ec4d-b45f-f2a5cd6f85b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"45d811e2-fc77-2049-be14-dbafce0a7f22"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"3aebb824-5d8a-174b-94e9-df728faba014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"57b7d81f-468b-a746-b33a-96f21092b3cb"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"25541067-6729-b64e-b7f4-82a7f88ec5b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"8f4bc0a4-1edf-c745-a78c-584ebe594ec6"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"e198b284-33df-f249-a11d-0fe25a663cca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"52a31f76-37b8-634c-ab0e-53f4cc917a3f"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"69a5625a-b477-c842-91e9-5fbbbd5e1231"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"bad3cf6a-5d22-6a45-a93b-2b20e329924b"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"bca99840-dd70-ee43-ac21-1703f4092419"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 79, "Input",ExpressionUUID->"eb2941b4-8018-4b44-aac0-1ce0febe8137"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"a573c934-e218-d04a-baaa-38b6d8d5e3c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 79, "Input",ExpressionUUID->"5c8af646-1783-384a-aa48-dc8c9aa0db65"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"2b2fe62d-8726-a043-b4dc-bb7b160c758d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 80, "Input",ExpressionUUID->"50dd0ec9-5355-3644-b35d-c1868a8b58da"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"96657e9f-3032-6949-acdb-ea951ed007b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 80, "Input",ExpressionUUID->"051a5338-e267-1045-aa79-03c3371c46ea"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"e347f702-bcdf-d643-91fd-2a8931e06eaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 80, "Input",ExpressionUUID->"372c2e63-c46b-6e46-8677-c1b719a36a3e"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"3552d586-299c-cb47-bc79-7fc8922e5746"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 80, "Input",ExpressionUUID->"696e9667-8c50-6f40-8c42-86e5fa98991c"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"3f63847e-fcfd-7749-afdb-18ad1a27ac23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"2d496a9e-aca2-bf46-bcd1-5594cc8e5188"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"395808c6-3fdd-544b-9fcd-f7f2b7a8f7f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"8b3c8ed5-4340-4445-9d94-c6e114cb215d"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"bc4619db-21e8-a142-98fd-5569c3c57e7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"87dd5848-9b5a-0f45-9ddd-5a0ebacfca29"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"0ae7f4e9-f4c3-d944-a37f-557a458f7c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"2b6475b8-e8a9-0542-b622-db179e1b89bd"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"ca7c6157-9441-164d-ab04-17c6bf27a075"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"93bdd082-a5e8-7b4c-a02d-ea527d155069"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"5ff78eac-d617-3a45-879e-5805c6184528"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"b021ae84-5bca-fc4a-a567-e8e28f2ff395"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"8de75c2f-09ee-994b-96eb-699f6f33d848"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"635b133c-c0bf-eb47-8623-007b4879fac1"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"0979aad1-64a1-4947-841b-41e0e9a6a815"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"b1985621-0f6a-454f-acd0-bc6a5dfe39e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"468488f6-1d00-1f49-a607-f5b114b588f3"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"e8768842-e538-d741-b4e4-d7333cbd45ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 43, "Input",ExpressionUUID->"5f4b947c-a70a-4449-bef8-4291773c641a"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"7fe4c271-1c64-3f46-8817-83af8d06923e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 43, "Input",ExpressionUUID->"ed9995f5-3d5a-9643-903f-4b8994a5dac3"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"4f2b99a9-eb7f-5542-a2d6-acb17f970a88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 113, "Input",ExpressionUUID->"d889c950-8e54-674e-a44b-e8e13778a129"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"83cc7ff1-bdf6-8f4e-8582-ded03cb108b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"dc70fa8d-74cc-cb41-99ef-278e2e2c47b4"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"11b5d657-717f-724f-b697-54ca5b5800be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"3a689cb6-519b-4340-a734-5274eea318ac"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"f2812a09-4bb1-f149-830f-7cef615590cb"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"b1f8ace4-417d-2147-a34d-2da54bc7b22c"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"f3a033c1-6cde-e74f-bfee-47f629c69328"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"860e0808-1b87-6241-a269-77395ec0a6bb"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"cd91ab8f-4493-7040-8a78-45eef3353576"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"d9a80083-e913-ad4e-817b-0e4386e197ad"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"3e701883-9a95-1d4e-8e4b-de6ee331431c"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"3e08b346-fbb5-0141-bc87-0df6c31feaad"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"6e4d61ad-2038-5e41-832d-cfe641117e57"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"31290a54-93f5-5646-8c64-059ad7c7355f"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"e198ec7e-9dfd-4248-860a-01920bb9f100"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"99f31a34-85c7-a14e-86a8-b5f3b8ade546"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"bb6a7196-251b-b34b-9380-4f375348932b"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"72dd5383-7133-e644-b34b-6af98dbdf9cd"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"d1be27e4-b444-3d4c-9afb-0d20975d05af"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"abe4c909-c524-1840-a641-8ebb1cb052a7"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"dba12a62-bf76-bc47-affb-5f299d399fa5"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"c8073757-b303-654f-afab-9b71bb1081f7"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"a39c1eb7-8dd2-5441-b48e-7a94b4153fb8"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"4705d92e-9da0-4740-a58d-48e59f620e52"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"fa54d50d-7dee-1042-8ffa-ac7e7d2884d4"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"35fc82ef-bc54-314e-b308-809b9014ed6b"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"8e8e3c70-2322-2142-b529-8c612888d3aa"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 2217, "Input",ExpressionUUID->"f353ab41-7188-4248-a546-b91d3e6d82fd"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"262c2d7d-75fa-dd4e-9009-d9b8de2e5c4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 2304, "Input",ExpressionUUID->"bdba6fcd-656a-e34f-8dcb-124eefee8d20"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"b019b0ad-b8e2-484a-9130-53e5a5ee2585"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 2276, "Input",ExpressionUUID->"4cd8376d-826a-dd4a-a897-70b63a952589"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"d8ad5b6d-888d-574f-826c-1132fd6a8a28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2583, "Input",ExpressionUUID->"4e99f3e2-0411-4b40-bfb4-0a670571c5c2"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"e4a467fd-541a-5842-b56e-b2697b6de1d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2583, "Input",ExpressionUUID->"99bf7039-5bf3-4440-8c18-72148170868a"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"d61a1dbe-0991-6c49-a578-e2d6536b65bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2890, "Input",ExpressionUUID->"5be20d36-6fb8-3640-bb58-bac5a614c6b0"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"9f7cd5f2-08b1-3243-bdbb-c66b32daa6f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"1b22b00e-2ad2-6942-89c5-c02daebf5c00"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"5f1a51d3-151a-5540-917b-fcf3404a41de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"840ea210-71e5-9a4b-9983-ed3f112150ad"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"f70ee1be-76c1-9549-8d65-c0282a6c1361"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 110, "Input",ExpressionUUID->"822ba515-819e-b34f-a941-8e9b357504a1"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"8fc5ee99-4313-964e-8a1b-630cf7bfcf3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 110, "Input",ExpressionUUID->"f5d79eca-dc83-4944-be0e-f5ad610c4581"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"799e5c4a-4fd3-ea40-bd6c-3039489aada0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 110, "Input",ExpressionUUID->"ac5ad298-eab8-8f4b-aec3-08651e26e098"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"926833a1-e71a-b243-a9f2-0db0c8b7e69a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"ec2d7e1c-1773-074e-804e-515848d42983"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"fd7d12b0-8187-6744-a466-5021a9a29d12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"85094bf1-e1c8-e449-96b6-fb72a8490917"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"edab82d9-f33b-0340-b01c-805cd5b46a00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"43939263-4c3b-e647-a248-378144df6bda"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"840fe420-69aa-ea45-892f-88808f370e7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"01840429-959c-5945-a282-94923602233b"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"d974dbed-2b29-3a47-8d0b-8b02abc2245f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"ff1fb106-cea2-ca42-87c0-1d29621dc295"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"476de8b6-c7cf-314f-b2ee-1bf7cb6718cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"92c7cfd3-7080-5447-97a0-cb2fd0b74060"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"8a6aa12b-974d-b946-88e8-33763cff5427"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 56, "Input",ExpressionUUID->"26dfbda1-f2c2-7e48-8ee0-f39fbc8f170c"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"3d045e6f-6e7c-d64a-887e-d96c6a032039"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 56, "Input",ExpressionUUID->"d781cd22-0a2f-8b4c-86ee-4701b754040e"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"b5bb204c-3b8f-4148-a8dd-5632c4894db3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 188, "Input",ExpressionUUID->"10365d10-5cf1-864f-8f0a-a17234afd1ab"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"f7e9ddd7-8ab4-2548-a421-fc357e17bc8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"286c465f-b047-eb4a-9eeb-60479c772e2f"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"f7b1ec93-8d40-c344-aa00-43c6884c2e0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"15777df3-905e-324f-8c63-ba85817a3779"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"5f1a8ba6-8806-ef41-a0cf-fed8350a37e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"372b1d2c-085f-6e45-81b1-705b3f52847d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"8cadb557-4f54-6d44-9228-545532c99842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"445d2e4d-3e45-9a42-adbb-9f9580a74182"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"5f3397c8-36c2-bf4e-b674-9b4cd55a07ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177963, 4730, 222, 5, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[178188, 4737, 157, 3, 32, "Output",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178382, 4745, 192, 4, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[178577, 4751, 157, 3, 32, "Output",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178771, 4759, 1301, 43, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[180075, 4804, 176, 3, 32, "Output",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180288, 4812, 909, 30, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[181200, 4844, 175, 3, 32, "Output",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181412, 4852, 963, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[182378, 4886, 177, 3, 32, "Output",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182592, 4894, 558, 19, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[183153, 4915, 172, 3, 32, "Output",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183362, 4923, 651, 22, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[184016, 4947, 170, 3, 32, "Output",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184223, 4955, 170, 5, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[184396, 4962, 173, 3, 32, "Output",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184606, 4970, 170, 5, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[184779, 4977, 169, 3, 32, "Output",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184985, 4985, 181, 5, 43, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[185169, 4992, 173, 3, 32, "Output",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185379, 5000, 181, 5, 43, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[185563, 5007, 170, 3, 32, "Output",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185770, 5015, 6055, 185, 498, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[191828, 5202, 174, 3, 32, "Output",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192039, 5210, 368, 9, 42, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[192410, 5221, 170, 3, 32, "Output",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192617, 5229, 6122, 187, 500, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[198742, 5418, 174, 3, 32, "Output",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198953, 5426, 368, 9, 42, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[199324, 5437, 170, 3, 32, "Output",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199531, 5445, 2663, 88, 187, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[202197, 5535, 171, 3, 32, "Output",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202405, 5543, 2603, 85, 165, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[205011, 5630, 171, 3, 32, "Output",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205219, 5638, 3712, 118, 348, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[208934, 5758, 171, 3, 32, "Output",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], +Cell[209120, 5764, 138, 3, 42, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[209283, 5771, 2054, 59, 228, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[211340, 5832, 566, 12, 85, "Message",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], +Cell[211909, 5846, 569, 12, 85, "Message",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], +Cell[212481, 5860, 570, 12, 85, "Message",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], +Cell[213054, 5874, 458, 10, 26, "Message",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], +Cell[213515, 5886, 172, 3, 32, "Output",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213724, 5894, 2054, 59, 228, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[215781, 5955, 564, 12, 85, "Message",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], +Cell[216348, 5969, 567, 12, 85, "Message",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], +Cell[216918, 5983, 570, 12, 85, "Message",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], +Cell[217491, 5997, 455, 10, 26, "Message",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], +Cell[217949, 6009, 169, 3, 32, "Output",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218155, 6017, 1938, 53, 115, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[220096, 6072, 19983, 375, 237, "Output",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240116, 6452, 2120, 60, 211, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[242239, 6514, 501, 11, 60, "Message",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], +Cell[242743, 6527, 503, 11, 60, "Message",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], +Cell[243249, 6540, 506, 11, 60, "Message",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], +Cell[243758, 6553, 456, 10, 26, "Message",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], +Cell[244217, 6565, 41581, 727, 235, "Output",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285835, 7297, 215, 7, 48, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[286053, 7306, 170, 3, 32, "Output",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286260, 7314, 1816, 53, 183, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[288079, 7369, 506, 11, 60, "Message",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], +Cell[288588, 7382, 512, 11, 60, "Message",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], +Cell[289103, 7395, 509, 11, 60, "Message",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], +Cell[289615, 7408, 456, 10, 26, "Message",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], +Cell[290074, 7420, 22336, 412, 233, "Output",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312447, 7837, 1616, 48, 113, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[314066, 7887, 584, 12, 85, "Message",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], +Cell[314653, 7901, 588, 12, 85, "Message",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], +Cell[315244, 7915, 591, 12, 85, "Message",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], +Cell[315838, 7929, 456, 10, 26, "Message",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], +Cell[316297, 7941, 173, 3, 32, "Output",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316507, 7949, 2251, 64, 223, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[318761, 8015, 566, 12, 85, "Message",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], +Cell[319330, 8029, 569, 12, 85, "Message",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], +Cell[319902, 8043, 572, 12, 85, "Message",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], +Cell[320477, 8057, 458, 10, 26, "Message",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], +Cell[320938, 8069, 171, 3, 32, "Output",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321146, 8077, 2219, 64, 162, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[323368, 8143, 564, 12, 85, "Message",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], +Cell[323935, 8157, 567, 12, 85, "Message",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], +Cell[324505, 8171, 570, 12, 85, "Message",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], +Cell[325078, 8185, 456, 10, 26, "Message",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], +Cell[325537, 8197, 173, 3, 32, "Output",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325747, 8205, 2219, 64, 162, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[327969, 8271, 566, 12, 85, "Message",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], +Cell[328538, 8285, 569, 12, 85, "Message",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], +Cell[329110, 8299, 570, 12, 85, "Message",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], +Cell[329683, 8313, 458, 10, 26, "Message",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], +Cell[330144, 8325, 170, 3, 32, "Output",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330351, 8333, 211, 6, 47, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[330565, 8341, 171, 3, 32, "Output",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], +Cell[330751, 8347, 247, 5, 42, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[331023, 8356, 558, 19, 52, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[331584, 8377, 173, 3, 32, "Output",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331794, 8385, 170, 5, 56, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[331967, 8392, 171, 3, 32, "Output",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332175, 8400, 181, 5, 43, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[332359, 8407, 173, 3, 32, "Output",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332569, 8415, 6055, 185, 498, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[338627, 8602, 175, 3, 32, "Output",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338839, 8610, 368, 9, 42, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[339210, 8621, 172, 3, 32, "Output",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339419, 8629, 6122, 187, 500, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[345544, 8818, 173, 3, 32, "Output",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345754, 8826, 368, 9, 42, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[346125, 8837, 170, 3, 32, "Output",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346332, 8845, 2663, 88, 187, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[348998, 8935, 171, 3, 32, "Output",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349206, 8943, 2603, 85, 165, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[351812, 9030, 171, 3, 32, "Output",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352020, 9038, 3712, 118, 348, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[355735, 9158, 170, 3, 32, "Output",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355942, 9166, 2054, 59, 228, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[357999, 9227, 573, 12, 85, "Message",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], +Cell[358575, 9241, 577, 12, 85, "Message",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], +Cell[359155, 9255, 580, 12, 85, "Message",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], +Cell[359738, 9269, 456, 10, 26, "Message",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], +Cell[360197, 9281, 170, 3, 32, "Output",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360404, 9289, 2052, 59, 228, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[362459, 9350, 573, 12, 85, "Message",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], +Cell[363035, 9364, 577, 12, 85, "Message",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], +Cell[363615, 9378, 582, 12, 85, "Message",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], +Cell[364200, 9392, 456, 10, 26, "Message",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], +Cell[364659, 9404, 170, 3, 32, "Output",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364866, 9412, 2030, 55, 160, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[366899, 9469, 20422, 382, 237, "Output",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387358, 9856, 2094, 60, 211, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[389455, 9918, 502, 11, 60, "Message",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], +Cell[389960, 9931, 506, 11, 60, "Message",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], +Cell[390469, 9944, 505, 11, 60, "Message",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], +Cell[390977, 9957, 458, 10, 26, "Message",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], +Cell[391438, 9969, 22288, 412, 233, "Output",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413763, 10386, 1616, 48, 113, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[415382, 10436, 595, 12, 85, "Message",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], +Cell[415980, 10450, 595, 12, 85, "Message",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], +Cell[416578, 10464, 599, 12, 85, "Message",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], +Cell[417180, 10478, 456, 10, 26, "Message",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], +Cell[417639, 10490, 171, 3, 32, "Output",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417847, 10498, 2251, 64, 223, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[420101, 10564, 575, 12, 85, "Message",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], +Cell[420679, 10578, 577, 12, 85, "Message",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], +Cell[421259, 10592, 582, 12, 85, "Message",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], +Cell[421844, 10606, 458, 10, 26, "Message",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], +Cell[422305, 10618, 172, 3, 32, "Output",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422514, 10626, 2221, 64, 162, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[424738, 10692, 575, 12, 85, "Message",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], +Cell[425316, 10706, 577, 12, 85, "Message",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], +Cell[425896, 10720, 582, 12, 85, "Message",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], +Cell[426481, 10734, 458, 10, 26, "Message",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], +Cell[426942, 10746, 170, 3, 32, "Output",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427149, 10754, 2218, 64, 162, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[429370, 10820, 573, 12, 85, "Message",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], +Cell[429946, 10834, 577, 12, 85, "Message",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], +Cell[430526, 10848, 580, 12, 85, "Message",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], +Cell[431109, 10862, 456, 10, 26, "Message",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], +Cell[431568, 10874, 173, 3, 32, "Output",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431778, 10882, 211, 6, 47, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[431992, 10890, 173, 3, 32, "Output",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], +Cell[432180, 10896, 245, 5, 42, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[432450, 10905, 558, 19, 52, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[433011, 10926, 173, 3, 32, "Output",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433221, 10934, 170, 5, 56, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[433394, 10941, 173, 3, 32, "Output",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433604, 10949, 181, 5, 43, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[433788, 10956, 173, 3, 32, "Output",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433998, 10964, 6055, 185, 498, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[440056, 11151, 172, 3, 32, "Output",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440265, 11159, 368, 9, 42, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[440636, 11170, 172, 3, 32, "Output",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440845, 11178, 6122, 187, 500, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[446970, 11367, 173, 3, 32, "Output",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447180, 11375, 368, 9, 42, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[447551, 11386, 170, 3, 32, "Output",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447758, 11394, 2663, 88, 187, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[450424, 11484, 171, 3, 32, "Output",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450632, 11492, 2603, 85, 165, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[453238, 11579, 173, 3, 32, "Output",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453448, 11587, 3712, 118, 348, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[457163, 11707, 173, 3, 32, "Output",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457373, 11715, 2048, 58, 228, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[459424, 11775, 568, 12, 85, "Message",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], +Cell[459995, 11789, 573, 12, 85, "Message",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], +Cell[460571, 11803, 576, 12, 85, "Message",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], +Cell[461150, 11817, 458, 10, 26, "Message",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], +Cell[461611, 11829, 172, 3, 32, "Output",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461820, 11837, 2054, 59, 228, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[463877, 11898, 568, 12, 85, "Message",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], +Cell[464448, 11912, 573, 12, 85, "Message",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], +Cell[465024, 11926, 574, 12, 85, "Message",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], +Cell[465601, 11940, 458, 10, 26, "Message",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], +Cell[466062, 11952, 172, 3, 32, "Output",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466271, 11960, 2028, 55, 160, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[468302, 12017, 20375, 384, 237, "Output",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488714, 12406, 2094, 60, 211, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[490811, 12468, 501, 11, 60, "Message",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], +Cell[491315, 12481, 503, 11, 60, "Message",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], +Cell[491821, 12494, 506, 11, 60, "Message",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], +Cell[492330, 12507, 458, 10, 26, "Message",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], +Cell[492791, 12519, 22161, 409, 233, "Output",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514989, 12933, 1616, 48, 113, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[516608, 12983, 590, 12, 85, "Message",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], +Cell[517201, 12997, 589, 12, 85, "Message",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], +Cell[517793, 13011, 593, 12, 85, "Message",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], +Cell[518389, 13025, 456, 10, 26, "Message",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], +Cell[518848, 13037, 170, 3, 32, "Output",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519055, 13045, 2249, 64, 223, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[521307, 13111, 568, 12, 85, "Message",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], +Cell[521878, 13125, 573, 12, 85, "Message",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], +Cell[522454, 13139, 574, 12, 85, "Message",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], +Cell[523031, 13153, 458, 10, 26, "Message",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], +Cell[523492, 13165, 173, 3, 32, "Output",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523702, 13173, 2223, 64, 162, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[525928, 13239, 570, 12, 85, "Message",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], +Cell[526501, 13253, 573, 12, 85, "Message",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], +Cell[527077, 13267, 573, 12, 85, "Message",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], +Cell[527653, 13281, 458, 10, 26, "Message",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], +Cell[528114, 13293, 171, 3, 32, "Output",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528322, 13301, 2221, 64, 162, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[530546, 13367, 570, 12, 85, "Message",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], +Cell[531119, 13381, 573, 12, 85, "Message",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], +Cell[531695, 13395, 574, 12, 85, "Message",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], +Cell[532272, 13409, 458, 10, 26, "Message",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], +Cell[532733, 13421, 173, 3, 32, "Output",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532943, 13429, 212, 6, 47, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[533158, 13437, 172, 3, 32, "Output",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb new file mode 100755 index 0000000..0da5693 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb @@ -0,0 +1,14702 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 610885, 14694] +NotebookOptionsPosition[ 571500, 14067] +NotebookOutlinePosition[ 571953, 14085] +CellTagsIndexPosition[ 571910, 14082] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"5c53cc3f-a847-ea43-919e-ec3fddab5018"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"a22a8bf1-3cda-c445-9b1e-c959986cb881"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"b007e25b-46cd-e741-b8ee-6dec373d2814"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"243492c9-bad7-534e-8c7d-2698a36e9928"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"509c4d57-ba2a-4344-b148-c08c7290301f"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"0b34954d-a044-3a4d-98a8-fa583c1df7b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"784ef5b9-be2d-7e42-975e-274b5b3f4edb"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d498484c-e641-b847-b98c-b972ecaebafe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"68853928-aac9-a142-9042-54ccdc1d1625"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"af0a8034-6a55-134b-a088-cb12eafc619c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"1065e8fc-9793-2d47-998d-680ae47defc7"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f25b7cfb-c492-9844-be97-cfb9a987e1ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"459bcdad-4d48-8145-b2b7-57e30673f7c0"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b9368322-f18b-674c-8d8d-38b90a8e226f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"6b6f70ae-7ecd-4d4a-a343-f7557ce4590c"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"05b5e0c2-9763-574b-8358-4b5484139955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"c2902661-ab59-3b46-a9ed-c36f08b8fc0a"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"58c8e257-10d7-384b-ae7c-31172731c153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"82048c87-87e2-f444-a83a-2e57b3de4982"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b70ca051-da87-3b47-8946-d6b4c6534cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"762dff8f-cdb4-714d-ad5b-d20ed3032585"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"56d2b6c2-cab3-0b4e-a719-fdba0d6c8a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"4aed484f-9e5f-604e-8992-e993e93175a7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"da41569c-082b-d543-9c04-75e21834951f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"860b316b-ede1-8647-87c5-5e0698c00fb4"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"474c4a3a-2d86-5145-9f31-363ced03473c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"18dfe53d-9a6a-d645-9fb4-4e3cc9901a6d"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"321cd7dd-8689-0c45-9690-b9da8802e3b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"1c694041-1aea-c447-a95e-17a1533d6e51"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"45ef1d4d-b6e1-2345-92e5-7728828c31a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"5475d114-6261-d541-aafa-fdb9659d4864"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"3bbd7dc8-2e78-cb45-91e3-93dea055aa1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"2944f218-5705-f14c-a576-85530fdd99aa"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"add091b2-5ef6-5540-ab74-c5f80e3d1b26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"0c144073-694f-ae47-a3f3-72d089237d4a"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"f344ec62-3349-0d45-91f2-ff976ed17793"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"b7f5b3af-06ff-b84e-a700-f92ff0ab4d8e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"882e2fb2-e0d3-b545-9a44-38911a84dbd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"ad317da0-0cdb-034e-a907-b1e8898396b7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"61aaf5b5-aeae-c941-913b-21d20bb582ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"fb4f857d-577f-2f40-b995-2cc678cd4ae8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"f6b464e3-1924-4c47-a269-5546ba3d48c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"7f4a7a4b-1a46-6d40-a942-00c5572afffd"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"bd97475e-f7bd-1840-aaba-05594b6030ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"6d1c657f-0e6a-7d43-9908-84d4b4d63437"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"3dda69d7-e339-bd45-a083-da45605fd97a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"94e086b8-8e9f-1b4b-b1c2-f611d5276e63"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"bbbb9326-94f5-254d-aa6e-ef72d42647c9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b2a3cffd-4228-0043-ae98-29fae1123c03"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"66c624dc-f115-1547-a427-6a7c919ee29d"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c0f890ca-f394-0d43-9d63-84093b55fbc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"25b5c07a-8750-ae4b-8df7-0d6fef46eca8"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"64fb51c0-75ed-ea4b-9b29-410a3424a7ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"e17fd0de-a1d1-4c40-bead-6671f0ba0de7"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"3e68d367-8cd3-6f42-9e7d-8305efca0cde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"40a6ddb6-55b9-7d4d-8068-0878eb7adc95"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"0c2b3665-7040-4f4f-b2ed-ce6945409112"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"7e5517f2-ecf2-1547-941b-cf99ab1cfc0b"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"878ab69e-4349-714f-ae25-bcf53f497d95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d697b8dc-157a-e441-b9ac-7bbd39bee453"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"7206fe0c-a2c5-144e-be6b-faa7864024f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"69c107a3-b273-d44e-9677-044cdd4d6d11"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"a94e6c48-b696-6942-bbc1-00618b232152"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"34a59133-6f43-ba40-9f73-33ca3249914e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"e62b4b0b-68d5-e046-8822-d18d6800a28d"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"ff067781-76a8-df46-b528-6df6d1efdb9d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"41a9f77f-5b19-754f-81f2-3b152d6657be"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"87eebcf6-52d6-6344-83c2-708fbac47c12"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"a8390bb4-be1d-a240-80b1-5ae672bc7e13"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"f21b366b-5999-ed40-b319-000f72623e25"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"ce5a0695-496f-b947-9c6f-6d21f680dee2"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"1957fcaa-b50d-8c4a-bfa6-2e1800df928a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"37607808-f051-fd4f-a3b6-cef0d84be1a5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"3d3d0219-b32c-8149-9ca5-9b6e81fb6eb1"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"26bdae68-fadb-544d-88ef-ce9b7d8b5a6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"1f544a7a-cb21-e041-b58d-3c9a5ab9e6f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"80d3bfb3-e9fd-294d-890b-8a9f88a0780d"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"ed273f02-b4bc-054f-8f57-4da6deadc00a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c77970e5-fc9e-2041-963b-719ba9c2edf6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"f9abd0ca-5558-5b47-9d3b-cf23b9e6e838"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"0122cb3a-26ae-374e-9b00-3ec4a79b8521"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"b87740a0-1917-3f49-bb29-7852d7858c55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"52d1f7d9-beee-cc45-99f5-641da626d30a"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"38bb4dc8-9669-614c-ab97-9b5cdde1aa49"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"358c583d-74ba-ad4d-a8d4-e3982b3aead3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"5cbc0f1b-0140-ac46-a39b-743d4e8e4464"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"b1b061e4-c503-b74a-9b67-ab2ddc7d8ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"36718181-4bb0-af43-ad07-d7fb6f5b28ac"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"e0ae2fab-351f-1a4a-a0d3-a70acce34e2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"8b052be9-f277-6f41-822a-d12cf3b4ae0b"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"3e84c61f-9371-1c49-89d2-c793c44fc990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"76d57e29-78be-fa43-8dc9-7e99a65e25e8"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"7de14c2d-842c-7447-abdf-85840b657816"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"f3ba3405-7fff-8644-b0ed-6091958d0625"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"70a7767b-2a75-a648-8125-ca8c5607879c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"7d3c635a-29fa-ef4f-a3cb-a6d31a6c1afc"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9842d45a-c67c-7744-876c-51aae670a6e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"f0dc6b05-95b4-3c4e-8218-6f24e1e9074f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bc13d31c-f4e8-0842-b5d8-816ee7caf70f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"de5aa1cd-73a2-a74d-a88a-8bd9b6d56a2d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"8faea0c4-d667-394f-9443-06971bbb2bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"771525b1-a3b0-9c42-a2ce-f358dbc46ecd"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"d1a1d5e2-73e4-4345-8ea0-82236a4bb0f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"6f87b1b6-ba0f-ec48-a3ee-b41b8cb0c982"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"f931bd6c-d3d2-a244-ace8-9df245ee414e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"5db04c62-bc8e-2344-b319-eb24f68c5d2f"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"5f8225aa-3a5c-8245-853b-f9fabc044e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"e331a59e-8aa4-a54a-b717-a70abe3da5db"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"33ce5ac0-f8bc-7249-ac4b-7487487d1234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"f2472c70-bdea-4c4d-b3ee-b106a5633869"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a9800f4f-93be-c84e-9bd7-20bd7f321f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"d6b8982b-3b83-b34d-95b6-0ae72e2558c1"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b2a1c0b7-f419-9f4e-8ed2-bb066a345034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"9171cbc5-844d-aa41-bc6f-585cbd0fc983"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"06a130ef-2bb7-fd47-ad35-f7c625dc59af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"e1cc69dd-a728-0040-b179-8741ffc6e337"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"8ce6de8f-0621-2445-ac1b-90e1ce984a4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"020afb9f-18cc-7547-b2c4-fca2b231124a"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c442dcd5-de84-1c48-89ad-9feeb6a4447b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"25c058e7-229a-854d-95de-648f136126f0"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"ef0a464a-9d5a-c741-8e33-2ef9f825e4f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"0406f2f8-cf77-404d-a18b-b4c925e94fcb"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"762dc66a-a81b-3b44-b43f-0adfa74e17fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"06a776a6-047d-694d-818c-670507d1b937"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"5df1b96c-a6f7-9443-a782-7613aa8c14d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"12de86d7-0916-a646-a5a3-8d8fd6963183"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b433989d-bd5f-4b48-8655-3e25fc9e410c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"fe7f0c13-fd68-f644-a05d-3f27f137b7f4"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"594d7da0-b3ab-e844-a4d0-9731cb9eb29e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"ec8a2220-5a33-df40-8181-5d2b73d984d2"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"3254af7b-f0a1-7a4b-af5c-901855138812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"2dc5f240-3f4c-4d49-99ac-2f098fd9bca9"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"763a317e-a8e8-2642-b522-0e492052cc6c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.195350778744494"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, + 3.99208968770142*^9},ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, + 3.991844505914568*^9}},ExpressionUUID->"d7190627-18d6-a94b-880e-\ +e3f073ed75cd"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.422139750624708"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, + 3.992089691636652*^9},ExpressionUUID->"ff3a0633-5725-474e-a1df-\ +0fae08da0391"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, + 3.9918445068872185`*^9}},ExpressionUUID->"c4cb48f6-8bef-5140-97cb-\ +74fc477176c0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9, {3.9915580161429977`*^9, + 3.991558019706772*^9}},ExpressionUUID->"ee451e0a-03c5-5d4b-809d-\ +1baa2036c180"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}, + 3.991558013605444*^9},ExpressionUUID->"1b7f9814-f540-ee4f-a97a-\ +82e0c001ccbc"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"b80089e4-e129-\ +a84d-a279-8559e98c6042"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844522599167*^9},ExpressionUUID->"d15c8f9d-5cd8-0448-9115-\ +8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844527271263*^9},ExpressionUUID->"a596efda-1871-9b45-afb4-\ +f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844532798546*^9},ExpressionUUID->"98a8fe78-0965-1043-b897-\ +797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, + 3.991844648037607*^9},ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-\ +23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991844724526314*^9},ExpressionUUID->"f431849e-0899-864c-b9d1-\ +1df0491628db"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918447267207756`*^9},ExpressionUUID->"650ee12b-eb50-044b-94e9-\ +ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844712341957*^9, + 3.991844718198534*^9}},ExpressionUUID->"b04a104f-3249-a34a-8102-\ +7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918447603776054`*^9, + 3.991844763418377*^9}},ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-\ +528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844769790985*^9, + 3.991844773139332*^9}},ExpressionUUID->"984387ef-9fd9-3c47-bc3d-\ +b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, + 3.9918447845314407`*^9}},ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-\ +0ec0037a6c16"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9},ExpressionUUID->"ab8417e8-4709-e943-87cd-\ +c5b8a0910541"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844883530533*^9},ExpressionUUID->"003a047b-90eb-3149-b4f8-\ +a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844898486679*^9},ExpressionUUID->"17f0d32c-a57d-2a45-81f1-\ +ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918449035840626`*^9},ExpressionUUID->"fcd15b99-cf8b-0648-a673-\ +70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, + 3.9918455284898663`*^9}},ExpressionUUID->"76321b6a-1af8-9c49-b2f7-\ +d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844980123823*^9, + 3.991844984423441*^9}},ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-\ +152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918449914836025`*^9, + 3.991844997178608*^9}},ExpressionUUID->"3975f6bc-b8e0-0049-badb-\ +74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845005870302*^9, + 3.991845010049778*^9}},ExpressionUUID->"f4f95d15-5683-9549-85ce-\ +3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, + 3.9918450213597164`*^9}},ExpressionUUID->"16838e8f-dc9a-d74c-8675-\ +3a4476217af6"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9},ExpressionUUID->"5671b6c5-96eb-9840-bb09-\ +6698022336a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845055619808*^9},ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-\ +9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845062111332*^9},ExpressionUUID->"7833995d-3f7b-3a4e-944a-\ +db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991845068201048*^9},ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-\ +c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, + 3.9918454954591675`*^9}},ExpressionUUID->"485e4bed-973b-f94f-bcff-\ +d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845086901308*^9, + 3.991845092064165*^9}},ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-\ +98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845095514675*^9, + 3.991845099002287*^9}},ExpressionUUID->"ca9a5900-6241-e942-8e6f-\ +ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845103890877*^9, + 3.9918451079172287`*^9}},ExpressionUUID->"4b76f315-df8b-2e44-9766-\ +11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, + 3.991845116011841*^9}},ExpressionUUID->"c61261a4-9291-8d4e-84ee-\ +07cf74de18fa"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"5c53cc3f-a847-ea43-919e-ec3fddab5018"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"a22a8bf1-3cda-c445-9b1e-c959986cb881"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"b007e25b-46cd-e741-b8ee-6dec373d2814"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"243492c9-bad7-534e-8c7d-2698a36e9928"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"509c4d57-ba2a-4344-b148-c08c7290301f"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"0b34954d-a044-3a4d-98a8-fa583c1df7b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"784ef5b9-be2d-7e42-975e-274b5b3f4edb"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"d498484c-e641-b847-b98c-b972ecaebafe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 44, "Input",ExpressionUUID->"68853928-aac9-a142-9042-54ccdc1d1625"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"af0a8034-6a55-134b-a088-cb12eafc619c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"1065e8fc-9793-2d47-998d-680ae47defc7"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"f25b7cfb-c492-9844-be97-cfb9a987e1ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"459bcdad-4d48-8145-b2b7-57e30673f7c0"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"b9368322-f18b-674c-8d8d-38b90a8e226f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"6b6f70ae-7ecd-4d4a-a343-f7557ce4590c"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"05b5e0c2-9763-574b-8358-4b5484139955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"c2902661-ab59-3b46-a9ed-c36f08b8fc0a"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"58c8e257-10d7-384b-ae7c-31172731c153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"82048c87-87e2-f444-a83a-2e57b3de4982"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"b70ca051-da87-3b47-8946-d6b4c6534cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"762dff8f-cdb4-714d-ad5b-d20ed3032585"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"56d2b6c2-cab3-0b4e-a719-fdba0d6c8a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"4aed484f-9e5f-604e-8992-e993e93175a7"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"da41569c-082b-d543-9c04-75e21834951f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 81, "Input",ExpressionUUID->"860b316b-ede1-8647-87c5-5e0698c00fb4"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"474c4a3a-2d86-5145-9f31-363ced03473c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 81, "Input",ExpressionUUID->"18dfe53d-9a6a-d645-9fb4-4e3cc9901a6d"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"321cd7dd-8689-0c45-9690-b9da8802e3b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 81, "Input",ExpressionUUID->"1c694041-1aea-c447-a95e-17a1533d6e51"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"45ef1d4d-b6e1-2345-92e5-7728828c31a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 81, "Input",ExpressionUUID->"5475d114-6261-d541-aafa-fdb9659d4864"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"3bbd7dc8-2e78-cb45-91e3-93dea055aa1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 81, "Input",ExpressionUUID->"2944f218-5705-f14c-a576-85530fdd99aa"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"add091b2-5ef6-5540-ab74-c5f80e3d1b26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 81, "Input",ExpressionUUID->"0c144073-694f-ae47-a3f3-72d089237d4a"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"f344ec62-3349-0d45-91f2-ff976ed17793"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"b7f5b3af-06ff-b84e-a700-f92ff0ab4d8e"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"882e2fb2-e0d3-b545-9a44-38911a84dbd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"ad317da0-0cdb-034e-a907-b1e8898396b7"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"61aaf5b5-aeae-c941-913b-21d20bb582ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"fb4f857d-577f-2f40-b995-2cc678cd4ae8"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"f6b464e3-1924-4c47-a269-5546ba3d48c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"7f4a7a4b-1a46-6d40-a942-00c5572afffd"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"bd97475e-f7bd-1840-aaba-05594b6030ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"6d1c657f-0e6a-7d43-9908-84d4b4d63437"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"3dda69d7-e339-bd45-a083-da45605fd97a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"94e086b8-8e9f-1b4b-b1c2-f611d5276e63"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"bbbb9326-94f5-254d-aa6e-ef72d42647c9"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"b2a3cffd-4228-0043-ae98-29fae1123c03"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"66c624dc-f115-1547-a427-6a7c919ee29d"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"c0f890ca-f394-0d43-9d63-84093b55fbc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"25b5c07a-8750-ae4b-8df7-0d6fef46eca8"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"64fb51c0-75ed-ea4b-9b29-410a3424a7ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 44, "Input",ExpressionUUID->"e17fd0de-a1d1-4c40-bead-6671f0ba0de7"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"3e68d367-8cd3-6f42-9e7d-8305efca0cde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 44, "Input",ExpressionUUID->"40a6ddb6-55b9-7d4d-8068-0878eb7adc95"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"0c2b3665-7040-4f4f-b2ed-ce6945409112"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 115, "Input",ExpressionUUID->"7e5517f2-ecf2-1547-941b-cf99ab1cfc0b"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"878ab69e-4349-714f-ae25-bcf53f497d95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"d697b8dc-157a-e441-b9ac-7bbd39bee453"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"7206fe0c-a2c5-144e-be6b-faa7864024f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"69c107a3-b273-d44e-9677-044cdd4d6d11"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"a94e6c48-b696-6942-bbc1-00618b232152"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"34a59133-6f43-ba40-9f73-33ca3249914e"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"e62b4b0b-68d5-e046-8822-d18d6800a28d"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"ff067781-76a8-df46-b528-6df6d1efdb9d"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"41a9f77f-5b19-754f-81f2-3b152d6657be"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"87eebcf6-52d6-6344-83c2-708fbac47c12"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"a8390bb4-be1d-a240-80b1-5ae672bc7e13"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"f21b366b-5999-ed40-b319-000f72623e25"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"ce5a0695-496f-b947-9c6f-6d21f680dee2"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"1957fcaa-b50d-8c4a-bfa6-2e1800df928a"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"37607808-f051-fd4f-a3b6-cef0d84be1a5"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"3d3d0219-b32c-8149-9ca5-9b6e81fb6eb1"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"26bdae68-fadb-544d-88ef-ce9b7d8b5a6b"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"1f544a7a-cb21-e041-b58d-3c9a5ab9e6f7"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"80d3bfb3-e9fd-294d-890b-8a9f88a0780d"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"ed273f02-b4bc-054f-8f57-4da6deadc00a"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"c77970e5-fc9e-2041-963b-719ba9c2edf6"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"f9abd0ca-5558-5b47-9d3b-cf23b9e6e838"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"0122cb3a-26ae-374e-9b00-3ec4a79b8521"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"b87740a0-1917-3f49-bb29-7852d7858c55"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"52d1f7d9-beee-cc45-99f5-641da626d30a"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"38bb4dc8-9669-614c-ab97-9b5cdde1aa49"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"358c583d-74ba-ad4d-a8d4-e3982b3aead3"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1941, "Input",ExpressionUUID->"5cbc0f1b-0140-ac46-a39b-743d4e8e4464"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"b1b061e4-c503-b74a-9b67-ab2ddc7d8ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1974, "Input",ExpressionUUID->"36718181-4bb0-af43-ad07-d7fb6f5b28ac"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"e0ae2fab-351f-1a4a-a0d3-a70acce34e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1965, "Input",ExpressionUUID->"8b052be9-f277-6f41-822a-d12cf3b4ae0b"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"3e84c61f-9371-1c49-89d2-c793c44fc990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2208, "Input",ExpressionUUID->"76d57e29-78be-fa43-8dc9-7e99a65e25e8"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"7de14c2d-842c-7447-abdf-85840b657816"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2216, "Input",ExpressionUUID->"f3ba3405-7fff-8644-b0ed-6091958d0625"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"70a7767b-2a75-a648-8125-ca8c5607879c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2480, "Input",ExpressionUUID->"7d3c635a-29fa-ef4f-a3cb-a6d31a6c1afc"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"9842d45a-c67c-7744-876c-51aae670a6e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"f0dc6b05-95b4-3c4e-8218-6f24e1e9074f"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"bc13d31c-f4e8-0842-b5d8-816ee7caf70f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"de5aa1cd-73a2-a74d-a88a-8bd9b6d56a2d"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"8faea0c4-d667-394f-9443-06971bbb2bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 57, "Input",ExpressionUUID->"771525b1-a3b0-9c42-a2ce-f358dbc46ecd"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"d1a1d5e2-73e4-4345-8ea0-82236a4bb0f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 57, "Input",ExpressionUUID->"6f87b1b6-ba0f-ec48-a3ee-b41b8cb0c982"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"f931bd6c-d3d2-a244-ace8-9df245ee414e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 57, "Input",ExpressionUUID->"5db04c62-bc8e-2344-b319-eb24f68c5d2f"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"5f8225aa-3a5c-8245-853b-f9fabc044e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"e331a59e-8aa4-a54a-b717-a70abe3da5db"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"33ce5ac0-f8bc-7249-ac4b-7487487d1234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"f2472c70-bdea-4c4d-b3ee-b106a5633869"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"a9800f4f-93be-c84e-9bd7-20bd7f321f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"d6b8982b-3b83-b34d-95b6-0ae72e2558c1"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"b2a1c0b7-f419-9f4e-8ed2-bb066a345034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"9171cbc5-844d-aa41-bc6f-585cbd0fc983"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"06a130ef-2bb7-fd47-ad35-f7c625dc59af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"e1cc69dd-a728-0040-b179-8741ffc6e337"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"8ce6de8f-0621-2445-ac1b-90e1ce984a4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"020afb9f-18cc-7547-b2c4-fca2b231124a"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"c442dcd5-de84-1c48-89ad-9feeb6a4447b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 57, "Input",ExpressionUUID->"25c058e7-229a-854d-95de-648f136126f0"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"ef0a464a-9d5a-c741-8e33-2ef9f825e4f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 57, "Input",ExpressionUUID->"0406f2f8-cf77-404d-a18b-b4c925e94fcb"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"762dc66a-a81b-3b44-b43f-0adfa74e17fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 136, "Input",ExpressionUUID->"06a776a6-047d-694d-818c-670507d1b937"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"5df1b96c-a6f7-9443-a782-7613aa8c14d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"12de86d7-0916-a646-a5a3-8d8fd6963183"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"b433989d-bd5f-4b48-8655-3e25fc9e410c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"fe7f0c13-fd68-f644-a05d-3f27f137b7f4"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"594d7da0-b3ab-e844-a4d0-9731cb9eb29e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"ec8a2220-5a33-df40-8181-5d2b73d984d2"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"3254af7b-f0a1-7a4b-af5c-901855138812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"2dc5f240-3f4c-4d49-99ac-2f098fd9bca9"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"763a317e-a8e8-2642-b522-0e492052cc6c"] +}, Open ]], +Cell[177941, 4728, 187, 3, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[178131, 4733, 152, 3, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[178286, 4738, 190, 4, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[178479, 4744, 154, 3, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[178658, 4751, 1301, 43, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[179962, 4796, 178, 3, 32, "Output",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180177, 4804, 911, 30, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[181091, 4836, 175, 3, 32, "Output",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181303, 4844, 961, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[182267, 4878, 176, 3, 32, "Output",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182480, 4886, 558, 19, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[183041, 4907, 172, 3, 32, "Output",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183250, 4915, 623, 21, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[183876, 4938, 172, 3, 32, "Output",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184085, 4946, 170, 5, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[184258, 4953, 172, 3, 32, "Output",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184467, 4961, 170, 5, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[184640, 4968, 171, 3, 32, "Output",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184848, 4976, 181, 5, 44, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[185032, 4983, 170, 3, 32, "Output",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185239, 4991, 181, 5, 44, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[185423, 4998, 172, 3, 32, "Output",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185632, 5006, 6055, 185, 387, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[191690, 5193, 172, 3, 32, "Output",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191899, 5201, 368, 9, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[192270, 5212, 171, 3, 32, "Output",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192478, 5220, 6122, 187, 441, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[198603, 5409, 173, 3, 32, "Output",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198813, 5417, 368, 9, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[199184, 5428, 170, 3, 32, "Output",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199391, 5436, 2663, 88, 168, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[202057, 5526, 171, 3, 32, "Output",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202265, 5534, 2603, 85, 168, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[204871, 5621, 173, 3, 32, "Output",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205081, 5629, 3712, 118, 247, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[208796, 5749, 174, 3, 32, "Output",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], +Cell[208985, 5755, 138, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[209148, 5762, 2052, 59, 115, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[211203, 5823, 557, 12, 46, "Message",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], +Cell[211763, 5837, 559, 12, 46, "Message",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], +Cell[212325, 5851, 561, 12, 46, "Message",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], +Cell[212889, 5865, 458, 10, 26, "Message",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], +Cell[213350, 5877, 172, 3, 32, "Output",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213559, 5885, 2052, 59, 115, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[215614, 5946, 555, 12, 62, "Message",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], +Cell[216172, 5960, 559, 12, 62, "Message",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], +Cell[216734, 5974, 561, 12, 62, "Message",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], +Cell[217298, 5988, 458, 10, 26, "Message",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], +Cell[217759, 6000, 172, 3, 32, "Output",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217968, 6008, 1936, 53, 87, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[219907, 6063, 20440, 382, 238, "Output",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240384, 6450, 2114, 60, 115, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[242501, 6512, 500, 11, 41, "Message",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], +Cell[243004, 6525, 503, 11, 41, "Message",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], +Cell[243510, 6538, 506, 11, 41, "Message",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], +Cell[244019, 6551, 455, 10, 26, "Message",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], +Cell[244477, 6563, 57321, 985, 234, "Output",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301835, 7553, 215, 7, 49, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[302053, 7562, 172, 3, 32, "Output",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302262, 7570, 1816, 53, 115, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[304081, 7625, 508, 11, 62, "Message",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], +Cell[304592, 7638, 508, 11, 62, "Message",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], +Cell[305103, 7651, 511, 11, 62, "Message",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], +Cell[305617, 7664, 456, 10, 26, "Message",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], +Cell[306076, 7676, 26000, 472, 234, "Output",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332113, 8153, 1616, 48, 87, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[333732, 8203, 584, 12, 66, "Message",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], +Cell[334319, 8217, 588, 12, 66, "Message",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], +Cell[334910, 8231, 592, 12, 66, "Message",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], +Cell[335505, 8245, 456, 10, 26, "Message",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], +Cell[335964, 8257, 169, 3, 32, "Output",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336170, 8265, 2247, 64, 164, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[338420, 8331, 555, 12, 62, "Message",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], +Cell[338978, 8345, 557, 12, 62, "Message",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], +Cell[339538, 8359, 563, 12, 62, "Message",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], +Cell[340104, 8373, 458, 10, 26, "Message",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], +Cell[340565, 8385, 173, 3, 32, "Output",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340775, 8393, 2221, 64, 164, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[342999, 8459, 555, 12, 62, "Message",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], +Cell[343557, 8473, 557, 12, 62, "Message",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], +Cell[344117, 8487, 561, 12, 62, "Message",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], +Cell[344681, 8501, 458, 10, 26, "Message",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], +Cell[345142, 8513, 173, 3, 32, "Output",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345352, 8521, 2219, 64, 164, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[347574, 8587, 557, 12, 62, "Message",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], +Cell[348134, 8601, 557, 12, 62, "Message",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], +Cell[348694, 8615, 563, 12, 62, "Message",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], +Cell[349260, 8629, 456, 10, 26, "Message",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], +Cell[349719, 8641, 173, 3, 32, "Output",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349929, 8649, 213, 6, 48, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[350145, 8657, 171, 3, 32, "Output",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], +Cell[350331, 8663, 245, 5, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[350601, 8672, 558, 19, 53, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[351162, 8693, 172, 3, 32, "Output",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351371, 8701, 170, 5, 57, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[351544, 8708, 173, 3, 32, "Output",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351754, 8716, 181, 5, 44, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[351938, 8723, 173, 3, 32, "Output",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352148, 8731, 6055, 185, 387, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[358206, 8918, 172, 3, 32, "Output",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358415, 8926, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[358786, 8937, 170, 3, 32, "Output",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358993, 8945, 6122, 187, 441, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[365118, 9134, 175, 3, 32, "Output",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365330, 9142, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[365701, 9153, 172, 3, 32, "Output",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365910, 9161, 2663, 88, 168, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[368576, 9251, 173, 3, 32, "Output",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368786, 9259, 2603, 85, 168, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[371392, 9346, 171, 3, 32, "Output",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371600, 9354, 3712, 118, 247, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[375315, 9474, 174, 3, 32, "Output",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375526, 9482, 2052, 59, 115, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[377581, 9543, 578, 12, 87, "Message",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], +Cell[378162, 9557, 583, 12, 66, "Message",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], +Cell[378748, 9571, 586, 12, 66, "Message",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], +Cell[379337, 9585, 456, 10, 26, "Message",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], +Cell[379796, 9597, 170, 3, 32, "Output",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380003, 9605, 2052, 59, 115, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[382058, 9666, 576, 12, 87, "Message",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], +Cell[382637, 9680, 581, 12, 66, "Message",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], +Cell[383221, 9694, 586, 12, 66, "Message",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], +Cell[383810, 9708, 458, 10, 26, "Message",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], +Cell[384271, 9720, 172, 3, 32, "Output",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384480, 9728, 2030, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[386513, 9785, 20011, 378, 237, "Output",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406561, 10168, 2146, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[408710, 10231, 501, 11, 60, "Message",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], +Cell[409214, 10244, 503, 11, 60, "Message",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], +Cell[409720, 10257, 505, 11, 60, "Message",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], +Cell[410228, 10270, 456, 10, 26, "Message",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], +Cell[410687, 10282, 32548, 580, 233, "Output",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443272, 10867, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[444891, 10917, 596, 12, 85, "Message",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], +Cell[445490, 10931, 599, 12, 85, "Message",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], +Cell[446092, 10945, 605, 12, 85, "Message",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], +Cell[446700, 10959, 456, 10, 26, "Message",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], +Cell[447159, 10971, 170, 3, 32, "Output",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447366, 10979, 2247, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[449616, 11045, 580, 12, 85, "Message",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], +Cell[450199, 11059, 583, 12, 85, "Message",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], +Cell[450785, 11073, 584, 12, 85, "Message",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], +Cell[451372, 11087, 458, 10, 26, "Message",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], +Cell[451833, 11099, 170, 3, 32, "Output",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452040, 11107, 2221, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[454264, 11173, 580, 12, 85, "Message",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], +Cell[454847, 11187, 583, 12, 85, "Message",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], +Cell[455433, 11201, 586, 12, 85, "Message",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], +Cell[456022, 11215, 458, 10, 26, "Message",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], +Cell[456483, 11227, 171, 3, 32, "Output",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456691, 11235, 2219, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[458913, 11301, 580, 12, 85, "Message",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], +Cell[459496, 11315, 583, 12, 85, "Message",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], +Cell[460082, 11329, 584, 12, 85, "Message",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], +Cell[460669, 11343, 456, 10, 26, "Message",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], +Cell[461128, 11355, 170, 3, 32, "Output",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461335, 11363, 215, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[461553, 11371, 174, 3, 32, "Output",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], +Cell[461742, 11377, 247, 5, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[462014, 11386, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[462575, 11407, 173, 3, 32, "Output",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462785, 11415, 170, 5, 57, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[462958, 11422, 173, 3, 32, "Output",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463168, 11430, 181, 5, 44, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[463352, 11437, 171, 3, 32, "Output",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463560, 11445, 6055, 185, 387, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[469618, 11632, 173, 3, 32, "Output",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469828, 11640, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[470199, 11651, 172, 3, 32, "Output",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470408, 11659, 6122, 187, 441, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[476533, 11848, 175, 3, 32, "Output",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476745, 11856, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[477116, 11867, 171, 3, 32, "Output",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477324, 11875, 2663, 88, 168, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[479990, 11965, 173, 3, 32, "Output",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480200, 11973, 2603, 85, 168, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[482806, 12060, 171, 3, 32, "Output",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483014, 12068, 3712, 118, 247, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[486729, 12188, 174, 3, 32, "Output",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486940, 12196, 2052, 59, 115, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[488995, 12257, 572, 12, 62, "Message",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], +Cell[489570, 12271, 573, 12, 62, "Message",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], +Cell[490146, 12285, 579, 12, 86, "Message",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], +Cell[490728, 12299, 456, 10, 26, "Message",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], +Cell[491187, 12311, 169, 3, 32, "Output",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491393, 12319, 2052, 59, 115, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[493448, 12380, 570, 12, 62, "Message",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], +Cell[494021, 12394, 575, 12, 62, "Message",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], +Cell[494599, 12408, 579, 12, 86, "Message",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], +Cell[495181, 12422, 458, 10, 26, "Message",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], +Cell[495642, 12434, 171, 3, 32, "Output",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495850, 12442, 2028, 55, 68, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[497881, 12499, 20011, 378, 237, "Output",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517929, 12882, 2146, 61, 115, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[520078, 12945, 501, 11, 41, "Message",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], +Cell[520582, 12958, 505, 11, 41, "Message",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], +Cell[521090, 12971, 506, 11, 62, "Message",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], +Cell[521599, 12984, 456, 10, 26, "Message",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], +Cell[522058, 12996, 31008, 556, 234, "Output",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553103, 13557, 1616, 48, 87, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[554722, 13607, 593, 12, 66, "Message",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], +Cell[555318, 13621, 595, 12, 66, "Message",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], +Cell[555916, 13635, 602, 12, 66, "Message",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], +Cell[556521, 13649, 456, 10, 26, "Message",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], +Cell[556980, 13661, 172, 3, 32, "Output",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557189, 13669, 2247, 64, 164, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[559439, 13735, 572, 12, 62, "Message",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], +Cell[560014, 13749, 575, 12, 62, "Message",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], +Cell[560592, 13763, 579, 12, 86, "Message",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], +Cell[561174, 13777, 458, 10, 26, "Message",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], +Cell[561635, 13789, 173, 3, 32, "Output",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[561845, 13797, 2219, 64, 164, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[564067, 13863, 572, 12, 62, "Message",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], +Cell[564642, 13877, 575, 12, 62, "Message",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], +Cell[565220, 13891, 577, 12, 86, "Message",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], +Cell[565800, 13905, 456, 10, 26, "Message",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], +Cell[566259, 13917, 172, 3, 32, "Output",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566468, 13925, 2221, 64, 164, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[568692, 13991, 572, 12, 62, "Message",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], +Cell[569267, 14005, 573, 12, 62, "Message",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], +Cell[569843, 14019, 579, 12, 86, "Message",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], +Cell[570425, 14033, 456, 10, 26, "Message",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], +Cell[570884, 14045, 173, 3, 32, "Output",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571094, 14053, 213, 6, 48, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[571310, 14061, 174, 3, 32, "Output",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb new file mode 100755 index 0000000..0afd79f --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb @@ -0,0 +1,14441 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 598656, 14433] +NotebookOptionsPosition[ 560204, 13816] +NotebookOutlinePosition[ 560628, 13833] +CellTagsIndexPosition[ 560585, 13830] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"cac2cd5b-7a8e-d241-b51a-681e82b94538"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"f589f12b-fab2-7f43-8b3b-41ce25921bb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"765f73ce-0f72-d34b-9dc1-d08e1ddd8b41"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"5c80a062-b127-4342-b438-e22c3bffdc6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"57023e31-4eb4-7c40-a2ca-eed12cc07e7d"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"35cc06b6-d5bd-dd48-9222-db9439a92c31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7c76b263-a094-c848-9119-e7b7c5c8b33e"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"45722560-3322-5448-9044-7b75c34a8cde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"681924aa-3c83-5147-9887-0e7540c03c76"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"cbe79e46-1a9e-2445-8952-99b6cb4640c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"976b5913-cd4f-ea4e-8108-aa217a5c8375"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2b5ccbe7-51fa-a84b-9c94-52a27177c050"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"7352414e-522c-5b40-a190-c5b61b5c98ba"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"622263ba-dd4b-a44f-8662-d84a3c5256f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"57c655f2-5b8b-ba49-9da4-7ae771d8ea11"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f449025f-df46-294f-a897-7619d70d7831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"6f01a783-a6f6-d246-8f99-9fae22626f15"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"cd0cd067-672c-a548-b7a7-8b30b98d090b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"de63cadb-71f8-5448-af8e-cb62d3aaab1f"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8af1ee3f-4c4e-0d4e-ac43-18b17c4979c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"71affa2f-4276-a949-beeb-b74ca87ca086"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"2666bd97-b3c1-464a-88d1-ecdd537aaeba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"60c28f4b-b367-9e4d-bbb5-a9d160b51f5b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7190c8ae-94dc-c548-9f4c-d3807bb40616"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"90cef9fa-c611-7348-ba2d-982329185ff6"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b1d37b20-420a-904e-bad0-d0b9d8762e05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"75df842a-02ff-c344-9b23-2784968675a0"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"2f5c4ebe-b889-3d4e-b601-6b51b8035770"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"10f97c5d-46b2-3144-80cd-ed5d21a3548d"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"9ddb72bf-e169-ed46-8b61-a841e3aee47d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"fa6143e8-b659-ec4b-8b04-5fcddd2374e3"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f08f1eba-855a-bf40-9706-18e1d83e2fcd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"f4cf167f-8841-9d4e-8eb5-91cf0f35398c"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"abb2a3c3-ae11-bc4a-9b7b-ebcebafde6a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"2acf2fb0-4aba-e940-9a1a-8f3161370251"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"a1ae7e51-ba32-8043-ae74-cd8985326dab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"c0c43d57-8940-c749-9cda-64a6404b66e9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"0ae6f4f8-f9bd-5849-894f-b5b1ca7386ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"b0e7a16f-2516-3b4f-8d6b-f4e0f4617f2e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"55a5fd0d-1120-da49-8193-a9b70dc7526e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"cd5604ee-6f1e-b24a-91bb-c7eddb427fa0"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"e8605886-02f7-2743-be69-4cdec43166a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"749fce91-885f-4846-8491-cca652099dda"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"df7aaf7a-cf64-b249-9978-28906fb080b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"3b8a40e0-b91f-fa4d-b6c8-2d493f5c3558"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"abbd8a50-b512-e94a-9b97-2213291b626f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"aa498698-c92e-ad4c-b001-93e29e3ec952"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"aa931738-2ec9-3443-9ba4-b89592e855e3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"19555bbd-72f4-5f40-b1ec-d9a91fefb12c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"abfde232-beb2-0a45-8272-cf72f0cf14be"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"beee0e36-fd05-034b-b140-4e7520459554"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"3bbcda1d-22f2-ab48-9f1c-ed45b5d64081"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"2a2979d9-7f48-1749-8456-d5b765d10a24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"16ce4d3c-be88-234b-aae7-f614687a50a4"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"e673fafb-bfeb-3c48-bb22-ae764c304638"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"a3dcfbf8-2af7-194d-86cf-1123de47b437"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"c8e25790-773d-ff44-be2b-0904c360b111"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"2e2251e8-37c9-a048-af78-35206d5bb258"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"318ccb2a-f7e6-8e42-82b0-00adbd9ae759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"ebaec148-8f86-b044-8075-8835ab2788aa"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"00bb7a1f-0a67-ce4f-a954-9c3e029c3ae9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"7583ced7-bdc7-6e41-8eca-bc56ffb514c3"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"1aa7176f-1384-b04b-bc10-490f71072d6f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"bfe7fd5f-36f4-9043-8f24-3d33a5f1cd5d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"68249122-ae58-1a46-a7cf-44f3aaaec1a0"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"a0315835-4aa3-264e-b645-4b61ea14caea"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0ecbb601-4db9-fd40-9642-bb595261ffbe"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"e056798a-b0a6-244a-98dd-2c0623a197dc"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"15bc1d5d-9cc9-5b45-8642-d52eded2f2e7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"6b9f2578-3f8a-2a4a-880c-5b333a76a337"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"2d3bb20e-8f7b-b84a-a54c-6b05eb6c5c2d"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"b2dea668-1e96-224b-976c-2e7312644515"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"363e18ca-1763-6446-9e64-8e05b0be105b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"a688984f-c361-3a45-b79c-d0342428eda6"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"bd5ae05e-4ff6-2740-bd99-95945875b9da"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"3f9e23f5-fc89-6841-b922-c86c03fa6c3c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"4195867e-6da8-9849-8401-d4651cc40346"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"4a02a628-2173-a046-9331-38dd16bd50c8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"f70ca6e7-0115-8841-91ec-fa06f4b3bbb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"65955152-a7c0-a34c-9538-72598dd4e217"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"27d7032b-7a4a-434b-b1f4-e5c9e775de1e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"c15894e2-517c-2746-92be-c75409f84bc2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"9311b3d3-5cdc-a848-9d00-7476b81057a9"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"58b09c99-ec14-b145-9488-061afc84f9e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"2ca52c32-2723-2448-acce-d48ce3360943"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"90697ce2-0e5d-5e45-a1a0-d1ec7b4c09f3"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"04f9c83b-9c0e-0c41-9465-e5f1803421f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"2a8a85b5-2cd5-a84c-bad6-ef150e5bb0d2"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"6024bd6b-6e50-8441-862d-a1c27017409b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"f98bc7c8-85fb-084a-b458-13626583145a"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"de2d2458-8f68-504e-b597-423e1ea0ecdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"6c786e9f-9c96-a74d-b862-7a9d36c80ff3"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"203c028a-5239-a449-8ae3-644fe08a56d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"1360f25b-f201-d342-9386-d08effbd8b7c"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c540ce2e-be13-3746-a764-ff9eb366d2ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"b004de58-bcbb-394f-b2fd-06688ed38aa2"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b97ef6ac-4863-024c-a071-c3d25f43a9dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"97e8f194-8981-1c43-9b12-b3f386711df8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b82df2d3-c4cb-3547-8977-978bcc2936d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"61db12b5-f6ed-8845-8b64-d191c22017b1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"419df752-ff67-c442-b67d-2d755d621556"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"4b8cdab9-4dd1-7342-bd88-d41412b74b13"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7cbcb330-460e-7942-a24c-ca7756105e9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"b3420833-1a1b-2143-b231-31b748c2d93e"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"cb9accb0-c7b3-bc49-aa2f-941118b2dee7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"8dd097e4-f073-474d-a8de-4689a097c666"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"d8da789a-84ef-8b47-939b-ea60b13a66c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"799b926d-330c-ef4d-a57e-1b6f8705cde1"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"da4d514a-bc59-c94e-92e7-8dfdfb4b2be4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"8a860e98-6228-994d-b57f-70d883630277"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"bf76ab08-c8ed-9c48-b36b-4e0a3207a5c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"823f3189-8819-5b4b-b312-887c63768c62"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"437874f5-3414-cd45-9f55-fadedee5a628"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"edc53cc8-9ce5-024b-b94f-8f3921fb0e18"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"03e084a1-0ff1-6a45-9faf-3818970a843f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"9f190aeb-c07f-854c-8cb7-9811ae89e314"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"0d06c2eb-0ed1-ee44-88ae-3b5e939d1267"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"d7300424-6d62-ea42-9be0-892ffd46b8ff"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"548c39bf-db7c-3b4d-a8d5-814334bce92e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"f5f351e8-0d6a-554a-9c43-3b8ea05148c1"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1d6cb626-1d0d-db4b-9799-79da9b68ad64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"003ccd93-6d5b-5e40-9f0c-75ab624dd3ea"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"fa8d6863-7f67-a941-9309-03fbf78d2459"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"017fe4d2-c148-3549-b189-3472f6f3af3f"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9244feea-830d-2e4a-874e-9c262f951931"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"23a6d0ee-badc-2c44-96f7-21505f93ecd6"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"4e54e74d-0ca1-4143-8d17-b4338bbf1fcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"769d08d1-7626-304c-83c4-d7a104bed497"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"95d220c1-e479-d24d-ae82-338877bbea17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"387b4c6e-e5d4-4f4c-a4e3-be280f7e732d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"3f757a08-0acc-e648-beb1-61f5dad06dd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"f8d54720-f6da-fb40-9968-41db4c718c1a"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"225495ea-d252-974a-9aee-9b5f77938260"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.195350778744494"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, + 3.9920899768101177`*^9},ExpressionUUID->"7c3e9316-835f-9e4b-9a49-\ +3b4d17d5ac6f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, + 3.991846933469059*^9}},ExpressionUUID->"583d3f2a-de58-8142-9cfe-\ +a0e52258d17f"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.422139750624708"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, + 3.9920899813374596`*^9},ExpressionUUID->"20139eb5-401a-4b4a-9fa1-\ +5ac66a5ce03b"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, + 3.991846936376911*^9}},ExpressionUUID->"8f81c5bb-6006-6b49-93bb-\ +3460180e6492"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9, {3.991558360387518*^9, + 3.991558363336605*^9}},ExpressionUUID->"c6441294-7eb2-2949-9da6-\ +67254244512f"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}, + 3.991558357640812*^9},ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-\ +68faf6ac59e1"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0a12571c-0d3c-\ +324d-9fb1-59d5c707bb07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846957646223*^9},ExpressionUUID->"61186e9c-fdd7-7943-9937-\ +691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918469611416626`*^9},ExpressionUUID->"9256a2f6-45c2-e140-bcdd-\ +85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846968477251*^9},ExpressionUUID->"2543960d-965e-7a4e-aecb-\ +694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, + 3.9918469897830563`*^9}},ExpressionUUID->"e19ad739-7d82-2c45-9f2a-\ +a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel-> + "In[420]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellLabel-> + "In[421]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847002744938*^9, + 3.9918470078833466`*^9}},ExpressionUUID->"94c81ca6-5acf-1648-b9d8-\ +a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470141153297`*^9, + 3.991847018285223*^9}},ExpressionUUID->"d789fb78-c161-1741-b7b8-\ +90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470289577656`*^9, + 3.99184703187117*^9}},ExpressionUUID->"98f8448c-bc27-4646-9fd2-\ +f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, + 3.9918470411375484`*^9}},ExpressionUUID->"c0718b2f-c4a4-934b-afa0-\ +c67e8ff1bd9c"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9},ExpressionUUID->"73fa861d-79d1-6043-8b49-\ +ac6d11636734"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847118583315*^9},ExpressionUUID->"33a64b79-213d-c445-8c32-\ +436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918471223197117`*^9},ExpressionUUID->"a558e928-6d30-db4d-81da-\ +8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471264328136`*^9},ExpressionUUID->"c2f625be-331c-a24f-ad5b-\ +6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, + 3.991847426207552*^9}},ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-\ +88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472030801735`*^9, + 3.9918472073134327`*^9}},ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-\ +9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472136550217`*^9, + 3.9918472163537464`*^9}},ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-\ +46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472906473484`*^9, + 3.9918472935952396`*^9}},ExpressionUUID->"36639f46-66ce-b34a-8a89-\ +e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, + 3.991847300654911*^9}},ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-\ +20d331e64105"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9},ExpressionUUID->"bb206cb0-d23b-e24e-876b-\ +f9f1b2cbe57a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847320104244*^9},ExpressionUUID->"61630af4-ce16-4645-bd89-\ +fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847326557415*^9},ExpressionUUID->"b8324bb7-c44f-6342-bd59-\ +920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473312384872`*^9},ExpressionUUID->"a8eb6c66-2550-3146-b69f-\ +2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, + 3.9918474093563137`*^9}},ExpressionUUID->"29fc72a2-353e-bf42-8947-\ +0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a616c950-333c-c34e-b37c-e912edc150ff"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918473569283657`*^9, + 3.991847361118864*^9}},ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-\ +733ef0de97b0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e36a792d-6d34-e344-80e0-65db5822f94f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847365260393*^9, + 3.991847368101671*^9}},ExpressionUUID->"b5bf5915-d0df-a045-96bd-\ +1dffa35c1421"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"69e9eac8-2173-184e-8807-5fd844762da7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"baaf252e-485c-b643-a22f-956a9ee4c418"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184737148876*^9, + 3.9918473756828785`*^9}},ExpressionUUID->"0f4fb648-c81c-bf44-8487-\ +747d613813fd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"51550cf4-6c37-c443-851d-569d8808cf04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, + 3.991847383988016*^9}},ExpressionUUID->"2d256a7e-c4c8-f746-8004-\ +9b6b43692a68"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"cac2cd5b-7a8e-d241-b51a-681e82b94538"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"f589f12b-fab2-7f43-8b3b-41ce25921bb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"765f73ce-0f72-d34b-9dc1-d08e1ddd8b41"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"5c80a062-b127-4342-b438-e22c3bffdc6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"57023e31-4eb4-7c40-a2ca-eed12cc07e7d"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"35cc06b6-d5bd-dd48-9222-db9439a92c31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"7c76b263-a094-c848-9119-e7b7c5c8b33e"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"45722560-3322-5448-9044-7b75c34a8cde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"681924aa-3c83-5147-9887-0e7540c03c76"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"cbe79e46-1a9e-2445-8952-99b6cb4640c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"976b5913-cd4f-ea4e-8108-aa217a5c8375"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"2b5ccbe7-51fa-a84b-9c94-52a27177c050"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"7352414e-522c-5b40-a190-c5b61b5c98ba"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"622263ba-dd4b-a44f-8662-d84a3c5256f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"57c655f2-5b8b-ba49-9da4-7ae771d8ea11"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"f449025f-df46-294f-a897-7619d70d7831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"6f01a783-a6f6-d246-8f99-9fae22626f15"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"cd0cd067-672c-a548-b7a7-8b30b98d090b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"de63cadb-71f8-5448-af8e-cb62d3aaab1f"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"8af1ee3f-4c4e-0d4e-ac43-18b17c4979c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"71affa2f-4276-a949-beeb-b74ca87ca086"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"2666bd97-b3c1-464a-88d1-ecdd537aaeba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"60c28f4b-b367-9e4d-bbb5-a9d160b51f5b"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"7190c8ae-94dc-c548-9f4c-d3807bb40616"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"90cef9fa-c611-7348-ba2d-982329185ff6"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"b1d37b20-420a-904e-bad0-d0b9d8762e05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"75df842a-02ff-c344-9b23-2784968675a0"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"2f5c4ebe-b889-3d4e-b601-6b51b8035770"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"10f97c5d-46b2-3144-80cd-ed5d21a3548d"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"9ddb72bf-e169-ed46-8b61-a841e3aee47d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"fa6143e8-b659-ec4b-8b04-5fcddd2374e3"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"f08f1eba-855a-bf40-9706-18e1d83e2fcd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"f4cf167f-8841-9d4e-8eb5-91cf0f35398c"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"abb2a3c3-ae11-bc4a-9b7b-ebcebafde6a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"2acf2fb0-4aba-e940-9a1a-8f3161370251"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"a1ae7e51-ba32-8043-ae74-cd8985326dab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"c0c43d57-8940-c749-9cda-64a6404b66e9"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"0ae6f4f8-f9bd-5849-894f-b5b1ca7386ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"b0e7a16f-2516-3b4f-8d6b-f4e0f4617f2e"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"55a5fd0d-1120-da49-8193-a9b70dc7526e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"cd5604ee-6f1e-b24a-91bb-c7eddb427fa0"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"e8605886-02f7-2743-be69-4cdec43166a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"749fce91-885f-4846-8491-cca652099dda"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"df7aaf7a-cf64-b249-9978-28906fb080b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"3b8a40e0-b91f-fa4d-b6c8-2d493f5c3558"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"abbd8a50-b512-e94a-9b97-2213291b626f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"aa498698-c92e-ad4c-b001-93e29e3ec952"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"aa931738-2ec9-3443-9ba4-b89592e855e3"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"19555bbd-72f4-5f40-b1ec-d9a91fefb12c"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"abfde232-beb2-0a45-8272-cf72f0cf14be"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"beee0e36-fd05-034b-b140-4e7520459554"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"3bbcda1d-22f2-ab48-9f1c-ed45b5d64081"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"2a2979d9-7f48-1749-8456-d5b765d10a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"16ce4d3c-be88-234b-aae7-f614687a50a4"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"e673fafb-bfeb-3c48-bb22-ae764c304638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"a3dcfbf8-2af7-194d-86cf-1123de47b437"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"c8e25790-773d-ff44-be2b-0904c360b111"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"2e2251e8-37c9-a048-af78-35206d5bb258"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"318ccb2a-f7e6-8e42-82b0-00adbd9ae759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"ebaec148-8f86-b044-8075-8835ab2788aa"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"00bb7a1f-0a67-ce4f-a954-9c3e029c3ae9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"7583ced7-bdc7-6e41-8eca-bc56ffb514c3"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"1aa7176f-1384-b04b-bc10-490f71072d6f"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"bfe7fd5f-36f4-9043-8f24-3d33a5f1cd5d"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"68249122-ae58-1a46-a7cf-44f3aaaec1a0"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"a0315835-4aa3-264e-b645-4b61ea14caea"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"0ecbb601-4db9-fd40-9642-bb595261ffbe"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"e056798a-b0a6-244a-98dd-2c0623a197dc"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"15bc1d5d-9cc9-5b45-8642-d52eded2f2e7"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"6b9f2578-3f8a-2a4a-880c-5b333a76a337"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"2d3bb20e-8f7b-b84a-a54c-6b05eb6c5c2d"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"b2dea668-1e96-224b-976c-2e7312644515"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"363e18ca-1763-6446-9e64-8e05b0be105b"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"a688984f-c361-3a45-b79c-d0342428eda6"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"bd5ae05e-4ff6-2740-bd99-95945875b9da"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"3f9e23f5-fc89-6841-b922-c86c03fa6c3c"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"4195867e-6da8-9849-8401-d4651cc40346"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"4a02a628-2173-a046-9331-38dd16bd50c8"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"f70ca6e7-0115-8841-91ec-fa06f4b3bbb9"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"65955152-a7c0-a34c-9538-72598dd4e217"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"27d7032b-7a4a-434b-b1f4-e5c9e775de1e"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"c15894e2-517c-2746-92be-c75409f84bc2"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"9311b3d3-5cdc-a848-9d00-7476b81057a9"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"58b09c99-ec14-b145-9488-061afc84f9e4"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"2ca52c32-2723-2448-acce-d48ce3360943"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"90697ce2-0e5d-5e45-a1a0-d1ec7b4c09f3"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"04f9c83b-9c0e-0c41-9465-e5f1803421f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"2a8a85b5-2cd5-a84c-bad6-ef150e5bb0d2"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"6024bd6b-6e50-8441-862d-a1c27017409b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"f98bc7c8-85fb-084a-b458-13626583145a"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"de2d2458-8f68-504e-b597-423e1ea0ecdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"6c786e9f-9c96-a74d-b862-7a9d36c80ff3"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"203c028a-5239-a449-8ae3-644fe08a56d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"1360f25b-f201-d342-9386-d08effbd8b7c"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"c540ce2e-be13-3746-a764-ff9eb366d2ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"b004de58-bcbb-394f-b2fd-06688ed38aa2"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"b97ef6ac-4863-024c-a071-c3d25f43a9dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"97e8f194-8981-1c43-9b12-b3f386711df8"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"b82df2d3-c4cb-3547-8977-978bcc2936d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"61db12b5-f6ed-8845-8b64-d191c22017b1"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"419df752-ff67-c442-b67d-2d755d621556"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"4b8cdab9-4dd1-7342-bd88-d41412b74b13"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"7cbcb330-460e-7942-a24c-ca7756105e9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"b3420833-1a1b-2143-b231-31b748c2d93e"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"cb9accb0-c7b3-bc49-aa2f-941118b2dee7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"8dd097e4-f073-474d-a8de-4689a097c666"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"d8da789a-84ef-8b47-939b-ea60b13a66c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"799b926d-330c-ef4d-a57e-1b6f8705cde1"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"da4d514a-bc59-c94e-92e7-8dfdfb4b2be4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"8a860e98-6228-994d-b57f-70d883630277"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"bf76ab08-c8ed-9c48-b36b-4e0a3207a5c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"823f3189-8819-5b4b-b312-887c63768c62"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"437874f5-3414-cd45-9f55-fadedee5a628"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"edc53cc8-9ce5-024b-b94f-8f3921fb0e18"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"03e084a1-0ff1-6a45-9faf-3818970a843f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"9f190aeb-c07f-854c-8cb7-9811ae89e314"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"0d06c2eb-0ed1-ee44-88ae-3b5e939d1267"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"d7300424-6d62-ea42-9be0-892ffd46b8ff"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"548c39bf-db7c-3b4d-a8d5-814334bce92e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"f5f351e8-0d6a-554a-9c43-3b8ea05148c1"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"1d6cb626-1d0d-db4b-9799-79da9b68ad64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"003ccd93-6d5b-5e40-9f0c-75ab624dd3ea"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"fa8d6863-7f67-a941-9309-03fbf78d2459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"017fe4d2-c148-3549-b189-3472f6f3af3f"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"9244feea-830d-2e4a-874e-9c262f951931"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"23a6d0ee-badc-2c44-96f7-21505f93ecd6"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"4e54e74d-0ca1-4143-8d17-b4338bbf1fcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"769d08d1-7626-304c-83c4-d7a104bed497"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"95d220c1-e479-d24d-ae82-338877bbea17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"387b4c6e-e5d4-4f4c-a4e3-be280f7e732d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"3f757a08-0acc-e648-beb1-61f5dad06dd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"f8d54720-f6da-fb40-9968-41db4c718c1a"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"225495ea-d252-974a-9aee-9b5f77938260"] +}, Open ]], +Cell[177941, 4728, 194, 4, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[178138, 4734, 152, 3, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[178293, 4739, 194, 4, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[178490, 4745, 154, 3, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[178669, 4752, 1301, 43, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[179973, 4797, 178, 3, 32, "Output",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180188, 4805, 907, 30, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[181098, 4837, 177, 3, 32, "Output",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181312, 4845, 963, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[182278, 4879, 178, 3, 32, "Output",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182493, 4887, 558, 19, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[183054, 4908, 172, 3, 32, "Output",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183263, 4916, 651, 22, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[183917, 4940, 167, 3, 32, "Output",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184121, 4948, 170, 5, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[184294, 4955, 172, 3, 32, "Output",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184503, 4963, 170, 5, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[184676, 4970, 173, 3, 32, "Output",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184886, 4978, 181, 5, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[185070, 4985, 171, 3, 32, "Output",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185278, 4993, 181, 5, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[185462, 5000, 172, 3, 32, "Output",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185671, 5008, 6055, 185, 498, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[191729, 5195, 174, 3, 32, "Output",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191940, 5203, 368, 9, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[192311, 5214, 172, 3, 32, "Output",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192520, 5222, 6122, 187, 500, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[198645, 5411, 175, 3, 32, "Output",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198857, 5419, 368, 9, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[199228, 5430, 172, 3, 32, "Output",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199437, 5438, 2663, 88, 187, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[202103, 5528, 171, 3, 32, "Output",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202311, 5536, 2603, 85, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[204917, 5623, 173, 3, 32, "Output",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205127, 5631, 3712, 118, 348, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[208842, 5751, 174, 3, 32, "Output",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], +Cell[209031, 5757, 138, 3, 42, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[209194, 5764, 2052, 59, 228, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[211249, 5825, 559, 12, 66, "Message",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], +Cell[211811, 5839, 560, 12, 85, "Message",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], +Cell[212374, 5853, 565, 12, 85, "Message",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], +Cell[212942, 5867, 456, 10, 26, "Message",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], +Cell[213401, 5879, 170, 3, 32, "Output",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213608, 5887, 2054, 59, 228, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[215665, 5948, 559, 12, 66, "Message",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], +Cell[216227, 5962, 559, 12, 85, "Message",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], +Cell[216789, 5976, 565, 12, 85, "Message",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], +Cell[217357, 5990, 458, 10, 26, "Message",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], +Cell[217818, 6002, 170, 3, 32, "Output",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218025, 6010, 1936, 53, 115, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[219964, 6065, 20196, 379, 237, "Output",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240197, 6449, 2118, 60, 211, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[242318, 6511, 503, 11, 60, "Message",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], +Cell[242824, 6524, 505, 11, 60, "Message",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], +Cell[243332, 6537, 506, 11, 60, "Message",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], +Cell[243841, 6550, 455, 10, 26, "Message",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], +Cell[244299, 6562, 55770, 961, 233, "Output",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300106, 7528, 199, 6, 48, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[300308, 7536, 173, 3, 32, "Output",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300518, 7544, 1798, 52, 183, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[302319, 7598, 506, 11, 60, "Message",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], +Cell[302828, 7611, 508, 11, 60, "Message",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], +Cell[303339, 7624, 509, 11, 60, "Message",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], +Cell[303851, 7637, 458, 10, 26, "Message",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], +Cell[304312, 7649, 24818, 454, 233, "Output",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329167, 8108, 1616, 48, 113, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[330786, 8158, 582, 12, 85, "Message",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], +Cell[331371, 8172, 588, 12, 85, "Message",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], +Cell[331962, 8186, 590, 12, 85, "Message",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], +Cell[332555, 8200, 458, 10, 26, "Message",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], +Cell[333016, 8212, 171, 3, 32, "Output",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333224, 8220, 2249, 64, 223, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[335476, 8286, 557, 12, 66, "Message",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], +Cell[336036, 8300, 560, 12, 85, "Message",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], +Cell[336599, 8314, 565, 12, 85, "Message",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], +Cell[337167, 8328, 458, 10, 26, "Message",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], +Cell[337628, 8340, 172, 3, 32, "Output",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337837, 8348, 2221, 64, 162, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[340061, 8414, 559, 12, 66, "Message",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], +Cell[340623, 8428, 562, 12, 85, "Message",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], +Cell[341188, 8442, 563, 12, 85, "Message",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], +Cell[341754, 8456, 458, 10, 26, "Message",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], +Cell[342215, 8468, 170, 3, 32, "Output",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342422, 8476, 2220, 64, 162, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[344645, 8542, 559, 12, 66, "Message",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], +Cell[345207, 8556, 562, 12, 85, "Message",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], +Cell[345772, 8570, 563, 12, 85, "Message",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], +Cell[346338, 8584, 458, 10, 26, "Message",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], +Cell[346799, 8596, 171, 3, 32, "Output",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347007, 8604, 213, 6, 47, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[347223, 8612, 173, 3, 32, "Output",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], +Cell[347411, 8618, 243, 5, 42, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[347679, 8627, 558, 19, 52, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[348240, 8648, 170, 3, 32, "Output",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348447, 8656, 170, 5, 56, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[348620, 8663, 173, 3, 32, "Output",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348830, 8671, 181, 5, 43, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[349014, 8678, 171, 3, 32, "Output",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349222, 8686, 6055, 185, 498, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[355280, 8873, 172, 3, 32, "Output",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355489, 8881, 368, 9, 42, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[355860, 8892, 172, 3, 32, "Output",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356069, 8900, 6122, 187, 500, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[362194, 9089, 173, 3, 32, "Output",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362404, 9097, 368, 9, 42, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[362775, 9108, 170, 3, 32, "Output",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362982, 9116, 2663, 88, 187, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[365648, 9206, 171, 3, 32, "Output",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365856, 9214, 2603, 85, 165, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[368462, 9301, 173, 3, 32, "Output",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368672, 9309, 3712, 118, 348, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[372387, 9429, 174, 3, 32, "Output",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372598, 9437, 2052, 59, 228, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[374653, 9498, 579, 12, 85, "Message",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], +Cell[375235, 9512, 582, 12, 85, "Message",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], +Cell[375820, 9526, 584, 12, 85, "Message",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], +Cell[376407, 9540, 458, 10, 26, "Message",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], +Cell[376868, 9552, 172, 3, 32, "Output",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377077, 9560, 2054, 59, 228, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[379134, 9621, 577, 12, 85, "Message",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], +Cell[379714, 9635, 580, 12, 85, "Message",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], +Cell[380297, 9649, 583, 12, 85, "Message",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], +Cell[380883, 9663, 456, 10, 26, "Message",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], +Cell[381342, 9675, 171, 3, 32, "Output",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381550, 9683, 2030, 55, 160, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[383583, 9740, 20493, 384, 237, "Output",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404113, 10129, 2142, 61, 211, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[406258, 10192, 501, 11, 60, "Message",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], +Cell[406762, 10205, 504, 11, 60, "Message",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], +Cell[407269, 10218, 508, 11, 60, "Message",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], +Cell[407780, 10231, 456, 10, 26, "Message",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], +Cell[408239, 10243, 31462, 562, 233, "Output",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439738, 10810, 1616, 48, 113, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[441357, 10860, 596, 12, 85, "Message",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], +Cell[441956, 10874, 602, 12, 85, "Message",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], +Cell[442561, 10888, 605, 12, 85, "Message",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], +Cell[443169, 10902, 458, 10, 26, "Message",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], +Cell[443630, 10914, 171, 3, 32, "Output",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443838, 10922, 2251, 64, 223, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[446092, 10988, 577, 12, 85, "Message",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], +Cell[446672, 11002, 580, 12, 85, "Message",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], +Cell[447255, 11016, 586, 12, 85, "Message",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], +Cell[447844, 11030, 458, 10, 26, "Message",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], +Cell[448305, 11042, 173, 3, 32, "Output",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448515, 11050, 2223, 64, 162, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[450741, 11116, 579, 12, 85, "Message",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], +Cell[451323, 11130, 580, 12, 85, "Message",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], +Cell[451906, 11144, 586, 12, 85, "Message",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], +Cell[452495, 11158, 458, 10, 26, "Message",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], +Cell[452956, 11170, 171, 3, 32, "Output",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453164, 11178, 2223, 64, 162, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[455390, 11244, 576, 12, 85, "Message",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], +Cell[455969, 11258, 580, 12, 85, "Message",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], +Cell[456552, 11272, 584, 12, 85, "Message",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], +Cell[457139, 11286, 458, 10, 26, "Message",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], +Cell[457600, 11298, 173, 3, 32, "Output",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457810, 11306, 211, 6, 47, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[458024, 11314, 172, 3, 32, "Output",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], +Cell[458211, 11320, 242, 5, 42, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[458478, 11329, 558, 19, 52, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[459039, 11350, 171, 3, 32, "Output",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459247, 11358, 170, 5, 56, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[459420, 11365, 171, 3, 32, "Output",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459628, 11373, 181, 5, 43, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[459812, 11380, 173, 3, 32, "Output",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460022, 11388, 6055, 185, 498, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[466080, 11575, 173, 3, 32, "Output",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466290, 11583, 368, 9, 42, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[466661, 11594, 172, 3, 32, "Output",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466870, 11602, 6122, 187, 500, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[472995, 11791, 173, 3, 32, "Output",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473205, 11799, 368, 9, 42, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[473576, 11810, 172, 3, 32, "Output",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473785, 11818, 2663, 88, 187, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[476451, 11908, 173, 3, 32, "Output",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476661, 11916, 2603, 85, 165, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[479267, 12003, 171, 3, 32, "Output",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479475, 12011, 3712, 118, 348, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[483190, 12131, 174, 3, 32, "Output",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483401, 12139, 2052, 59, 228, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[485456, 12200, 574, 12, 85, "Message",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], +Cell[486033, 12214, 580, 12, 85, "Message",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], +Cell[486616, 12228, 580, 12, 85, "Message",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], +Cell[487199, 12242, 456, 10, 26, "Message",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], +Cell[487658, 12254, 172, 3, 32, "Output",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487867, 12262, 2052, 59, 228, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[489922, 12323, 576, 12, 85, "Message",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], +Cell[490501, 12337, 577, 12, 85, "Message",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], +Cell[491081, 12351, 582, 12, 85, "Message",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], +Cell[491666, 12365, 458, 10, 26, "Message",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], +Cell[492127, 12377, 172, 3, 32, "Output",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492336, 12385, 2030, 55, 160, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[494369, 12442, 20021, 378, 237, "Output",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514427, 12825, 2148, 61, 211, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[516578, 12888, 502, 11, 60, "Message",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], +Cell[517083, 12901, 506, 11, 60, "Message",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], +Cell[517592, 12914, 508, 11, 60, "Message",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], +Cell[518103, 12927, 456, 10, 26, "Message",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], +Cell[518562, 12939, 30015, 538, 233, "Output",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548614, 13482, 1590, 47, 113, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[550207, 13531, 342, 6, 20, "Message",ExpressionUUID->"a616c950-333c-c34e-b37c-e912edc150ff"], +Cell[550552, 13539, 101, 0, 32, "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550690, 13544, 2249, 64, 223, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[552942, 13610, 342, 6, 20, "Message",ExpressionUUID->"e36a792d-6d34-e344-80e0-65db5822f94f"], +Cell[553287, 13618, 342, 6, 20, "Message",ExpressionUUID->"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], +Cell[553632, 13626, 101, 0, 32, "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553770, 13631, 2219, 64, 162, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[555992, 13697, 342, 6, 20, "Message",ExpressionUUID->"69e9eac8-2173-184e-8807-5fd844762da7"], +Cell[556337, 13705, 342, 6, 20, "Message",ExpressionUUID->"baaf252e-485c-b643-a22f-956a9ee4c418"], +Cell[556682, 13713, 100, 0, 32, "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556819, 13718, 2220, 64, 162, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[559042, 13784, 342, 6, 20, "Message",ExpressionUUID->"51550cf4-6c37-c443-851d-569d8808cf04"], +Cell[559387, 13792, 342, 6, 20, "Message",ExpressionUUID->"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], +Cell[559732, 13800, 101, 0, 32, "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559870, 13805, 213, 6, 47, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[560086, 13813, 102, 0, 32, "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb new file mode 100755 index 0000000..c94b1c0 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb @@ -0,0 +1,17254 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 752912, 17246] +NotebookOptionsPosition[ 712348, 16598] +NotebookOutlinePosition[ 712772, 16615] +CellTagsIndexPosition[ 712729, 16612] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"4e704073-7441-fe45-b4d4-47be51ab4fd0"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9920993338472137`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"45b43216-30a4-a14d-a36c-3eb6372f6c0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"b975ff8d-9493-c843-bb7c-b2c81eb69198"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920993338662586`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"860be294-109a-3447-8de9-ec6af6944955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"d020bb06-0d86-234c-ab84-d9e8628823e8"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9920993338732834`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c758e50b-c06c-5c4b-9625-4b9fd1d5f5ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7ca9cba1-0117-5343-9039-c58fda56d08f"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9920993338804684`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"813b2cd1-7f26-4f43-8410-e0d649aca38e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"960dd727-bd2f-3449-be0c-abe5b2917833"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9920993338875065`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"176c029f-44e5-054f-a6e4-4fafb135cd25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"2a693e04-7ecf-e545-8c00-ace038dd3501"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920993338944855`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"697146ce-e84a-ad40-a0fa-454fc2e1c46b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"4f708b9c-8e17-1748-b34c-93e278c3bdb4"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920993339025784`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"fff35079-4826-6749-aef4-ce44b675933a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"e6fa4d80-8a71-714a-a484-44c67fbd4b19"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9920993339111977`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3dde2fe6-a8f5-e348-a4e1-6d04d41cbc22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"456c9727-0dcf-c048-b38f-573ce3086221"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.9920993339191856`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"a6471119-efd6-bb42-842b-92b836822afb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b7a4101b-9ac6-e64e-911c-26ec0523cd05"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992099333926077*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b9b0d817-49f4-0548-b101-75cac757ae50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"57bb031a-21fe-0040-a62d-5fa4ceba0c1b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.99209933393524*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"4a6e75b0-6970-9a43-bc34-a04640346ddf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"43ef55bf-3691-f640-8741-fee90e0d4301"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9920993339422398`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"cd6c029a-49e6-f244-bc97-8f3c1e0aacb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"f3b4c213-46e3-5748-9641-6fae551196cd"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9920993339512405`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"688360c2-3e19-df44-b9b6-9ac2eb7cfc27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"600ed8c5-c6fd-474b-b8ec-38e456f3172e"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992099333960369*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"916ef501-6f47-6347-8b44-fa6c95b9b543"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"aaeb44c7-62f1-f143-bf33-5b1a49d1d3ab"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.992099334002695*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"ed3976f2-94ab-cb45-90eb-b1ec79be7485"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"53b345d4-8713-8641-8856-894783bbb961"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9920993340147*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"2310de4e-7f51-5048-899a-aecb9238430a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"f30bf89f-ed57-e841-be4f-b108ee3d508d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9920993340245934`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"65e72791-e15d-694e-9f02-8397870eb9e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"6c3711dc-7082-f642-9d2c-5bccf2a27b03"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920993340344143`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"53c9b236-23e8-0d47-ac75-3d372a762d6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"3dc88b7b-ebfb-554f-a688-79f6122afb69"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9920993340425377`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"55b95038-5087-1842-9242-9ca44238f304"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"d292ae01-cfc6-8b47-84f9-4e8e1489da16"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992099334050535*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"d727faf3-2b8c-5a4c-9eec-2254efc99da0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"21a46007-fcf5-0c4e-9a23-1df0eb4a012f"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992099334059412*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"2a60bafa-b2c8-6b4f-983c-0be1dfa082d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6be546ad-856f-3741-b9c6-8be425ff18c0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.992099334067415*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a48773f7-aac1-ca41-9c65-acc9de69755b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"9069c921-1699-7948-bebf-176d8fb2d295"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920993340767784`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"3384b286-aed4-ca47-adfd-9bf7acba2612"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"f38bb0ff-c7de-3544-8d07-d665f8252324"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.9920993340867844`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"b1a97c35-fe3d-fa49-af15-4806a35b8fa4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"baffc875-ac19-aa4b-b317-b67201343b2c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"d2a9f66a-30e9-8340-af69-318ebd0417a8"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.992099334098713*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e7dc1160-35c0-4348-b067-d80572dd13bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"8500d0e7-89a9-6a4a-bc1c-2125d91928c9"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.992099334107609*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"16ed93ea-f76a-f440-9a47-fc261084821e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"cd502e68-f916-3d41-9777-007b3d275509"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.992099334116617*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"a3737848-1627-e943-b71c-a82043ef84f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"dc9e7d45-a86e-8549-a9ed-54c3075ee4f5"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920993341257267`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"2b8c39e7-6eb4-5440-8b8c-11830a04b121"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"fcf31744-7c06-c346-a02f-b02c3acdfe9c"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9920993341347294`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e963342b-7b9e-5145-a838-733ff1523184"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"bd371f8b-faa5-5848-ae21-63e721a13b5c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920993341426125`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"491c38aa-bdab-d446-935f-46c9eea56215"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"a156c351-7671-e64c-b7a4-d297071c83f6"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.992099334151676*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"8c34d036-f1a4-ea43-b16b-7fd52e5c29f9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"020ee4c3-20e1-184f-8a55-8da42eb685c9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"bc4903cd-c82a-264f-9571-65c53696313a"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9920993341627407`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"4859c935-0919-eb43-b61a-438860898525"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"d0cc9243-6f1a-3c4d-8fa8-ae971bdcba8e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2e2a32d1-8f00-4440-9024-23561cb3fe8c"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920993341757317`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"e5b08433-4643-134e-b8e6-c46c50f16948"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"48948dee-4483-e44f-b4d8-3d3f46844b64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"130058f9-3d8b-7142-97ba-a17d0fa00eb8"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992099334186741*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f3aa1239-4142-3e49-9474-725405b6b0bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cabca342-96dc-454c-b758-b3f5f02c034c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"05b3f544-3db4-bf4e-abbb-4481269e5183"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992099334197733*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"66548d8b-f2ba-5447-85a1-cc23666e0b6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"601ca6a9-cdd2-9145-91d0-9859b2c8afcd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"272046df-8390-c14d-94ca-7dc3a031d1a2"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992099334211437*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"014ea838-df2a-6045-a3ad-f6a8a57a0021"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"06cc8922-145e-454b-810e-450ce13ef149"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"49845d1d-18ac-b545-93c6-d60cf1bdcf6b"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9920993342236576`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"7242f334-c11a-be4e-bd98-862b93a14951"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"017d83be-5804-7340-9aff-1680f8faef71"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"6b00b62e-7b8c-4549-b17f-e7c4f833c97c"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992099334235777*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"11be106e-1fda-4049-bc50-3c6a01c8a00f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"b8d4ac41-704e-6240-b2bf-8f652914eb87"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"4d921be0-6220-a84f-83ba-2165f404e8f7"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992099334299282*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"78092468-c42f-034c-9b5e-ca07dd7a1ea2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"1a7a1476-5e17-c94c-af5b-04ba6c2e03b5"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9920993343571663`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"34fff01b-b122-5848-8ebb-d1da6ad2c39f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"0d7e1e77-445a-034d-b76e-a1ac677e2a91"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9920993344122887`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"0f844d14-aa04-d148-9d0f-942aa1d0be70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"76cb1734-b84f-9444-acdb-3d227a29c871"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992099334475006*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"cb9b145a-47fd-1142-b0b2-1293dbb62ef7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"99ccbfaa-5c29-854a-a530-52fd7b341fce"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9920993345383244`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"a76c8bbe-4990-9247-a90e-b65c0a95c045"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"086c7e51-1263-494b-87cb-6f98f257b41e"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.99209933460742*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"a7f27564-9a2c-9c41-8c7b-15f25bd0d138"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"2f99bf7a-52e7-2e46-bb76-ee974db553d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992099334621311*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"97e1308e-5bfd-3842-9817-3531e3e9d98f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"eebb948a-63cd-a442-b833-842277921a53"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992099334630352*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"ec8d0c68-228c-1744-bcfb-eb6e11434021"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"6e867428-93ae-e240-89ff-31631071a68c"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9920993346393127`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"24540007-0089-5049-8b4a-5f5a0b001f1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"bd8b9002-5460-1d49-aacf-583105fa4755"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920993346490498`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"9c5b57bd-a16f-8e44-a2f1-f4573cf8f9b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"68d472d8-2648-2748-83b2-d844d8ecb8bb"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920993346590633`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"253045e7-77a9-824b-84c8-ce08de3b45e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"5b5a8c8e-b242-714d-a8b7-82448475c921"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992099334668062*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"005d2618-561b-434a-91df-01351cd5f8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"b83dfc16-72d3-7e44-9293-ee02d41e2804"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9920993346770496`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"abffdf28-6519-d846-a57b-a8f423b14698"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f95654b6-7a61-0c44-936d-46eaeffdcfb7"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.99209933468556*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"341eab09-e0e0-fb46-a582-1df174a1f9a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"dc8a1e5a-c41c-e048-a141-5f4b09f3f733"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992099334694832*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"b7e960fc-634a-ba45-95da-a190a332e893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"4b99d4f2-04ad-5546-8a36-6e453a4d42bb"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9920993347038326`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"7d811afa-a76f-cf49-a3a1-316e37f9e8df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"2c611c37-9024-2948-ad05-81f23ed86fa4"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.992099334711832*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c36de680-e33a-fe4b-8e5e-24beb18cbbc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"8d8264fd-a79c-3644-91fa-755c8f060dc6"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992099334721819*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1d240484-12ab-0543-8fc5-1be4bde2778d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"32a72538-4b4c-fa49-877c-c1bb0f793329"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9920993347308197`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d88d52d3-bc30-5541-baf4-afea8b11d61d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"9bcd69f6-e764-484d-98a4-b95600ed9b7f"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.99209933474082*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c2ce73b6-2ae0-2a45-bd7a-e9d580c7297d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"035c7338-5a26-334d-814f-aaf357f424c7"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.992099334749264*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"755148ba-bc13-0241-9b76-f9b1dfbba011"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"88364e9a-a5c0-614b-adca-40cfe4299d0d"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992099334759384*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6a9e13a2-2f15-e44d-a5c1-f2027d4f99dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2143c15f-8edb-5645-bc38-8baf15164190"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992099334769598*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"73aa72f3-3b5c-ce46-b40f-f1e5fda0a110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"87beafd8-d9de-784e-a815-cd383a8626f9"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992099334784172*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"62e429d5-0fd6-6442-8960-28c7919f406a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.10045722207791"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, 3.992088489688469*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData["0.10045722207791`"], "Output", + CellChangeTimes->{3.992099334789171*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"4b3862c6-6770-8641-8b61-432964f394ae"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, 3.9918455862781773`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.572083902248993"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, 3.992088494358206*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], + +Cell[BoxData["0.572083902248993`"], "Output", + CellChangeTimes->{3.9920993348036823`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7245dba8-2e21-f949-be74-c99b12adba77"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, 3.991845587331728*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.9920993348458633`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8aaffa01-b744-8f4e-847f-a659c171db3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9, {3.9915581188955975`*^9, 3.9915581216343517`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], + +Cell[BoxData["8.929535587268165`*^-56"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.992099334861862*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"6911d534-8759-cf4c-9ee0-51d1e5aba384"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}, + 3.9915581158968887`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], + +Cell[BoxData["5.016159784621923`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9920993348726807`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"95326814-e08a-af4e-8405-cb906353ec93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["46.9359074551804`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.992099334881815*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"91650ea3-b84c-5341-b20a-1f956c1d80a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["47.47123228262528`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.992099334890789*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0d4643d1-a7df-024f-9d73-7241cf95b369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["2.0612973725615147`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.992099334899681*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"99c1ea81-c779-fb42-a87b-fdb2f7334f39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["11.902428924644067`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.9920993349076805`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a755335e-ccde-1f4c-80f8-6ab6355ee34d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["565.0229682092163`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9920993349158096`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"f4670e9f-2904-584b-bd94-4b71f426b858"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["96.74886271615377`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.992099334927183*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"a9c196b5-bbcb-ae4b-a3c8-ee17aa5a0c33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.01031760615220318`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.992099334941126*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9e27dff5-7f24-d845-baad-d1a13fe822c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["8.724799747775068`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9920993350169735`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"5bd2ae7f-bf11-0344-b389-7387fb30e3fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.0015571958928053342`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.9920993350289593`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"7e786ca6-864e-8147-9826-78357c2ba301"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["22.458115751204417`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.992099335103136*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"ba98d4db-f522-8c47-98c4-9415dfdbddc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.992099335117258*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1ee5ff45-8eba-0743-a870-fbf9a955b6d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9920993351292553`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"222a62a0-873f-7147-a793-486323406eb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.99209933513982*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"21b07ddb-893f-7941-a6a8-fa18b2ae8368"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845612037445*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 350, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9920993351618004`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a0ac8ef7-bf7f-0846-b83d-2fa237c9dcde"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 351, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992099335177801*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"ec7fab97-6781-5a4c-86a3-9cb38fbcb4ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 352, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9920993351858006`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"5646e58a-f51b-254c-b734-63186a00bfb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 353, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992099335193798*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"bad7d70a-cd0c-2747-a4f3-b606fd96b0b4"], + +Cell[BoxData["8.724799747775059`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.992099337575142*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"e98e2e5d-85ef-1a4d-89b4-674f10fd0c53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918456299851303`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 354, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992099337628107*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"fd80b465-6584-7b4c-b84f-6e613b2c2016"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 355, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376361065`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"acdb17dd-9508-4d46-b500-77b677716c76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 356, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376431084`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"344b088a-b8a1-164c-94fb-753cf9cebe03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 357, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376514797`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1c012323-3975-1944-a480-16ddcc4e63a6"], + +Cell[BoxData["22.4581157512044`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.992099339938238*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"ba0abfa9-2c30-bb4e-a296-ce5afa3a4b9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991845637746252*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5479061795174489, + 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5479061795174489, + 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5479061795174489, 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5479061795174501}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5479061795174489, 1.7174312323094874`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9, 3.992099539839651*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"ea986581-a74b-cc43-8fe3-b942302d708d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, 3.991845656553877*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.080695191081614`*^-273\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 358, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.99209954004158*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c0c0d280-b436-8b4a-9e76-84a9ca7c67e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.573336397565439`*^-285\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 359, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400495815`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"9112370c-6d2c-be4d-a7b1-9f95facb17c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0890301202315586`*^-297\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 360, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400565834`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c88edc5a-6e3d-8f4a-996c-fa068259a3b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 361, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400645847`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"8f0be32d-19f3-2849-8c9e-4a34e95e1c85"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08712788953232396}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9, 3.992099716502489*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"41b358f4-4f05-8e41-8f39-85e35832fea0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.9920885342053337`*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992099716568165*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d3679f5f-2e34-d843-950f-da2c3b9ef8a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08712788953232396}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992099716587059*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"18e41340-96d3-0a4c-8ab5-d223a57e2988"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991846110594208*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], + +Cell[BoxData["21.06580170581916`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.99209971661405*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"90a5f243-fae2-e240-a475-7ad874444592"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846112020672*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.029921483242923`*^-279\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 100, 362, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.9920997167853966`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bae69c80-fb06-324e-9624-e0f513084e2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.40162776130444`*^-293\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 363, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.9920997167934113`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8817ff80-ddde-ec44-bb16-f9c76a098ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.085374273803878`*^-307\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 364, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992099716800396*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"dc7306a2-3ad5-ad43-8572-1b37b2c06cee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 365, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992099716807396*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"b984473a-1584-6742-87fc-4e67003eaf2a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.036085664122660274`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9, 3.992099874078636*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"0d5bd983-bae7-1443-afca-d35f6b4ead2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8675203755591973`*^-240\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 366, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741594944`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ac00dfbc-65a3-9341-81c6-f70c8b052fb5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.371380919251974`*^-248\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 367, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741668377`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"5f7496bf-2bc5-c946-9888-a0061bd0b2d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0626732797528457`*^-255\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 368, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741752033`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1f21e233-10ad-1e40-86bc-fafbc3cfdde3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 369, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741831036`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2af1ef0d-e214-e940-be6d-ca8ae522ef99"], + +Cell[BoxData["21.065801705819148`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.99209988998151*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"e8e9bbd6-6894-204a-a801-dc35ce93c1ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845708089321*^9, 3.9918457122231236`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 370, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9920998900205097`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b6da5d53-31dd-2442-b9cf-3bcc98ab39b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 371, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.992099890028509*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c155a76b-bab7-1143-b331-47066eecf766"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 372, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.992099890035513*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f11e72d4-c905-f04e-8c49-247205add74e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 373, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9920998900435085`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"14da3214-dfa7-1a4c-a66a-401fcbcf9f08"], + +Cell[BoxData["6.009224223964007`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9920998945799847`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"0767bfa0-499a-bd4a-96a1-e3cdd47fff34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918457167596684`*^9, 3.991845720288498*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 374, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946194344`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ff75c101-5b3b-a842-b9cd-74a367536b78"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 375, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946274376`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"df5f18a8-adb8-dd44-a6af-f8743dab4365"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 376, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946344376`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"a4c8c2fc-9463-d546-ba32-2d14462acc76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 377, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.992099894642439*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b7fe6d01-c5e2-bd44-9956-274503e6ba95"], + +Cell[BoxData["20.799576320009724`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9920998984416924`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"76a55485-202b-bf4f-bea3-d9d5d296bfeb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845728758301*^9, 3.9918461210058537`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 378, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998984796886`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"b8152a15-e77e-2c4c-aded-5e20bea87cd7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 379, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992099898487789*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"ac4ef626-598c-bb46-9638-a31ce6c2446e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 380, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998984957905`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"29f257b4-c2d7-1046-8c3a-825affac8524"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 381, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998985027905`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"0a33e60f-21ee-2146-bf8f-735887d4c722"], + +Cell[BoxData["137.81299937539674`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.9920999007215633`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"81ac552f-ee63-1d43-bdc8-c2e01c7cbcf0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, 3.9918461306014214`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], + +Cell[BoxData["0.11223959024475469`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9920999007475243`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"a5986757-7c96-9a47-b399-6791f039df58"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["1.2732308544160063`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.99209990075955*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"4c1a8bc1-9f2e-774c-aa2f-f521cb954bec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["12.515254397406263`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.992099900768524*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"20a44e97-7be6-1447-b17d-55286b77dffc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["15.934808049643255`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9920999007775536`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"6bb82b2c-e284-da41-a1db-c917562cb1e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.06208229367352196`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.992099900789524*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"55cee0f0-b426-1a4b-a71b-f310c14638a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.556813254445267`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.992099900868019*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"9e814285-6bdd-2e4e-8fc5-f98c2245428a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.0017813693102828212`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.992099900880007*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a28eab01-59f3-9848-b4ae-f84f6c2647b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["20.997517781459713`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.992099900955019*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"96e7323a-9860-6448-a46e-90e5694fc0f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.992099900965006*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"bb94e5bd-bfea-0143-9bbe-af74b50277a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9920999009763565`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"77e97800-97c2-3b45-b6d9-6fdfbfcfa833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.9920999009884663`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"5a90f194-5180-7d44-83a4-2e1102eeb8fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846151022602*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 382, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.992099901008354*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"8278e40d-0761-1a4d-9649-63b630f05f17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 383, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010163555`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"917b8bc0-97b3-7843-be21-9880d876e622"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 384, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010233517`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"1fe98454-f6db-c040-81f7-7c29c6eea48d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 385, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010303535`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4bdd67d8-9c31-2f44-8f8a-7df19fc7b88d"], + +Cell[BoxData["3.5568132544452697`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9920999033410397`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"6e436fe4-adee-5e4f-bf91-6d86ea4e7fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918461538845863`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 386, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992099903380039*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3b8cb8a7-7dde-4b4b-98d2-7614657d98ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 387, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9920999033880405`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"dddc9a38-05f6-d241-8ef2-b689c52020fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 388, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9920999033950405`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"4ac1e345-d47c-0e4c-aaf3-acdd54b53ac9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 389, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992099903403042*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"7d6cdfc5-91c3-6146-9973-84856ce1e528"], + +Cell[BoxData["20.997517781459724`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.992099905634714*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"53674424-12ba-5240-a3df-e5eade232dd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846157029255*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9012421546495454, + 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9012421546495454, + 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9012421546495454, 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9012421546495474}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9012421546495454, 1.1073542154065859`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9, 3.9921001139080296`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"af2a5c83-e1fd-f34b-825d-282145d5d3c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, 3.9918461709620533`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.762587702206803`*^-276\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 390, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921001141079655`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"2c3d22c9-8b32-2746-a746-8b96d33920f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.992983297585178`*^-289\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 391, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992100114115967*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"72699420-47d2-4c42-950c-cb8c790fd3e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.5807504657545`*^-302\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 392, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992100114123968*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"e15bf587-7a7c-7940-9249-c9e5aeb3d5ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 393, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921001141319656`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"808e76b2-1085-824b-bba3-51c59e6e406f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21372310935545752`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9, 3.9921005661835575`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c5bac7b1-5ca8-e24f-a9c3-0dbe9b6617e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21372310935545752`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921005662355976`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"454cae5c-566e-8e47-ad18-353204b0c1c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1858108896994459`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 394, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921005662764053`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4fa12d9d-5c43-784d-820b-1508ed373cc4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4285997747323577`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 395, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992100566284439*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"41f95730-57bd-004f-9ca1-c0f4374bab10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7210984770789436`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 396, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992100566292448*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6f2d3a64-8642-bb46-a8f1-4a73924a770c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 397, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921005663004475`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4946135e-8316-384d-a1af-68e41a484fc8"], + +Cell[BoxData["21.065801705819155`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.9921005946656284`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"f0ec20b2-919c-ae48-b119-ed6009744f55"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846210534153*^9, 3.991846213941681*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 398, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594710747*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d844bebc-fbf5-4a49-b768-3393c7fd1952"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 399, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594718748*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"abf09cc9-631d-e24a-a658-b0f745d59c24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 400, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.99210059472575*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9a2ce6bd-ea75-b149-a1d7-3c85110a6187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 401, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594733755*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"33ad31e3-745d-fb41-aed3-aa2a6a76438e"], + +Cell[BoxData["0.08004370767715091`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.992100598865803*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0919b2a1-63dc-1441-80c6-f8729c57325d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846217504902*^9, 3.991846220659443*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 402, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989057655`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"fcb82379-def7-6e41-b15b-2ebe9c8f25f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 403, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989143314`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"009e26d8-b867-c946-bf3d-eeea69dcb4f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 404, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.992100598922333*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cf5771d7-c4b2-bd49-90ef-d609991a5156"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 405, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989293346`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"972660ec-b5e7-6040-bb6e-992cc0858721"], + +Cell[BoxData["3.45673176527753`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.9921006021959915`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"47280940-ca99-8f42-a2f3-3b59fa91f6ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462258948135`*^9, 3.9918462291469593`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 406, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921006022390003`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fce3de28-3f51-6942-b998-0a597a592954"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 407, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602247011*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fbc08b22-0201-fd45-afb7-042780aea2ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 408, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602254999*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"608140af-eac7-1548-9149-bd01c179781b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 409, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602262001*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c6d02368-ae5d-b643-ae77-9f450d71a128"], + +Cell[BoxData["120.47015482066497`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.9921006042880497`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"1fde16d2-bcff-1b4e-b348-19d27b5ab52f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, 3.991846236994051*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], + +Cell[BoxData["0.003922424769246018`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.992100604316124*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"dba91fa9-740d-5642-9273-9e26c2617a2c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["1.283309142944473`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9921006043586273`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"16ab744a-03f0-ca4a-8b31-f3e982f88cbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["12.466014133126249`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.9921006043677387`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"c7590f88-b95c-7e4e-aea7-c01e2c415551"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["15.997749913115934`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.992100604378023*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"5e8c5ea6-f441-4e4c-ad10-703836fb344f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06184064669290803`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.992100604392023*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1b7841a5-ae6f-3145-a57b-8ec945033738"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.563755736715102`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.9921006044702435`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"9faf895b-2e68-7747-b556-46b28af3bf42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.0017811696007310426`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.9921006044822426`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"71c471c9-ebdd-f240-98ff-51b5b8840299"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["20.998694897699956`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9921006045630913`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"b6925efd-7a13-b04f-89e0-df5eebfecbef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.99210060457646*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"ac029762-77fb-0641-a5d6-ecc7bfd1c597"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.992100604588436*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"8627da2f-7efa-8443-8277-bc0e0a8b131a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.992100604601492*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"85c32e82-9ca4-f643-b24f-341c16bbfc63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846260820032*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 410, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992100604624365*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"686cdc6a-ce2f-8b41-bac9-72ea582e5bd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 411, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921006046303673`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a1e5ae7a-c281-2642-9832-e9d6a7d4d982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 412, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992100604636364*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f76c36f5-b583-5c49-a8d9-e06aa100523c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 413, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921006046423664`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"5066f900-f536-3e4f-a249-c72a3df9e94f"], + +Cell[BoxData["3.5637557367151014`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.992100606951847*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"bde747b4-1200-cd4e-ab5d-293546118a3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846268674473*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 414, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006069938297`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"5d71f84d-9e2c-f748-a058-3d313cf5dd3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 415, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006070008297`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"a2500435-6615-a641-a81d-709b60ffe3eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 416, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006070068283`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"558e3aff-2533-504c-b4e6-06ddaeced6eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 417, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.992100607012018*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"6b24d717-5471-5a4a-a2f3-c0b14497f731"], + +Cell[BoxData["20.998694897699952`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.9921006092633743`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"5f0d8c3f-e8b2-3f45-947a-f64869ee0416"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918462728234997`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9004751723702902, + 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9004751723702902, + 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9004751723702902, 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9004751723702922}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9004751723702902, 1.1082611936648008`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9, 3.9921008183623753`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"70f5d02e-9682-0847-a186-3662438eef1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846277689621*^9}, + CellLabel-> + "In[141]:=",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.40906604234004`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 418, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921008185666313`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"dd8d7f63-073b-6d48-9a22-9aa02003f3a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.912468006416197`*^-294\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 419, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992100818573635*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"63a6cac0-1bbe-be4e-9873-ce21a67d4842"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3235110751489251`*^-307\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 420, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921008185786324`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"984c3336-6bfb-a546-8fa2-f60fb793ca7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 421, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992100818584633*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8642d6c8-1953-2949-bd81-e06a231aa494"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.21330677109713933`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9, 3.992101123468666*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"fce21958-3569-714e-a583-3104e56bb757"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.21330677109713933`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921011235190754`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"0deb2fb8-eb79-c04f-a1b6-004fc4211c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.788167829704626`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 422, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123558071*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c662d462-5a71-2342-9fda-b2274b2e0d97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0504354047601841`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 423, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921011235640755`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c0ec3c0c-015d-0345-90ab-82f4e61762c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2555683516239552`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 424, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123570114*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"213387ff-cedc-9d4a-9d2b-74bcf7747f2f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 425, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123576086*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8d40b6f2-b1db-d84b-a2b6-c2961775ad5c"], + +Cell[BoxData["21.065801705819165`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.992101147355158*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"91f0a9b5-40b2-9c49-916b-05f3bf015800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184628914184*^9, 3.9918462932986107`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 426, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992101147394518*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"07458b43-72a1-474f-87e6-0eef9f35a5b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 427, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921011474005203`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"2ad89f73-179d-2f49-8bed-e430fe0e442b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 428, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921011474075184`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d2bfc863-61b6-d742-bed2-087d66683cf6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 429, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992101147413521*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fc399718-1033-ff41-8d26-cd034dd4276a"], + +Cell[BoxData["0.08150716523638897`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.992101151562914*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"afb27a41-54d3-2b44-859f-e1ff05509ecf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462963096733`*^9, 3.991846299126808*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 430, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516019115`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0e5faf36-e4fd-9f42-a49b-4ce7075c0703"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 431, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516089115`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0ad1a1bc-c1f1-9342-9444-04e661f1fa75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 432, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992101151614912*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f7118513-8b41-9b43-98e5-7d9cd3d3e216"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 433, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516209126`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"cb0367c1-f722-be4c-8a36-8b1792721884"], + +Cell[BoxData["3.470239204777967`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9921011550497074`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"d597ce14-0a75-3f42-825b-9129545b6929"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846303469427*^9, 3.991846306205721*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 434, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550870285`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"731d1689-4aa1-714c-9131-a00b1ee90432"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 435, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550940323`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"9e839266-cb04-f541-8cb3-ebac0e4f7c36"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 436, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550990295`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"0730db4c-6287-9c4c-b453-b9864a6676e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 437, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.99210115510503*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"c8e1290a-03b8-1c4c-9d12-a283a5810f3a"], + +Cell[BoxData["120.48366226016557`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.992101157185957*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"0cd7523b-1147-164d-8acb-6d38b29af9c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, 3.991846313322897*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], + +Cell[BoxData["0.0039861349995214115`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.9921011572109985`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"e92f3798-de54-d64b-b87f-bfa1cf85c2da"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"4e704073-7441-fe45-b4d4-47be51ab4fd0"], +Cell[981, 31, 202, 3, 32, "Output",ExpressionUUID->"45b43216-30a4-a14d-a36c-3eb6372f6c0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1220, 39, 348, 5, 28, "Input",ExpressionUUID->"b975ff8d-9493-c843-bb7c-b2c81eb69198"], +Cell[1571, 46, 429, 6, 32, "Output",ExpressionUUID->"860be294-109a-3447-8de9-ec6af6944955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2037, 57, 224, 4, 28, "Input",ExpressionUUID->"d020bb06-0d86-234c-ab84-d9e8628823e8"], +Cell[2264, 63, 421, 6, 32, "Output",ExpressionUUID->"c758e50b-c06c-5c4b-9625-4b9fd1d5f5ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2722, 74, 175, 3, 28, "Input",ExpressionUUID->"7ca9cba1-0117-5343-9039-c58fda56d08f"], +Cell[2900, 79, 401, 6, 32, "Output",ExpressionUUID->"813b2cd1-7f26-4f43-8410-e0d649aca38e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3338, 90, 257, 7, 43, "Input",ExpressionUUID->"960dd727-bd2f-3449-be0c-abe5b2917833"], +Cell[3598, 99, 421, 6, 32, "Output",ExpressionUUID->"176c029f-44e5-054f-a6e4-4fafb135cd25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4056, 110, 131, 2, 28, "Input",ExpressionUUID->"2a693e04-7ecf-e545-8c00-ace038dd3501"], +Cell[4190, 114, 405, 6, 32, "Output",ExpressionUUID->"697146ce-e84a-ad40-a0fa-454fc2e1c46b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4632, 125, 276, 6, 28, "Input",ExpressionUUID->"4f708b9c-8e17-1748-b34c-93e278c3bdb4"], +Cell[4911, 133, 417, 6, 32, "Output",ExpressionUUID->"fff35079-4826-6749-aef4-ce44b675933a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5365, 144, 257, 7, 28, "Input",ExpressionUUID->"e6fa4d80-8a71-714a-a484-44c67fbd4b19"], +Cell[5625, 153, 417, 6, 32, "Output",ExpressionUUID->"3dde2fe6-a8f5-e348-a4e1-6d04d41cbc22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6079, 164, 266, 5, 28, "Input",ExpressionUUID->"456c9727-0dcf-c048-b38f-573ce3086221"], +Cell[6348, 171, 436, 6, 32, "Output",ExpressionUUID->"a6471119-efd6-bb42-842b-92b836822afb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6821, 182, 265, 5, 28, "Input",ExpressionUUID->"b7a4101b-9ac6-e64e-911c-26ec0523cd05"], +Cell[7089, 189, 435, 6, 32, "Output",ExpressionUUID->"b9b0d817-49f4-0548-b101-75cac757ae50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7561, 200, 129, 2, 28, "Input",ExpressionUUID->"57bb031a-21fe-0040-a62d-5fa4ceba0c1b"], +Cell[7693, 204, 393, 6, 32, "Output",ExpressionUUID->"4a6e75b0-6970-9a43-bc34-a04640346ddf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8123, 215, 129, 2, 28, "Input",ExpressionUUID->"43ef55bf-3691-f640-8741-fee90e0d4301"], +Cell[8255, 219, 396, 6, 32, "Output",ExpressionUUID->"cd6c029a-49e6-f244-bc97-8f3c1e0aacb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8688, 230, 557, 19, 79, "Input",ExpressionUUID->"f3b4c213-46e3-5748-9641-6fae551196cd"], +Cell[9248, 251, 396, 6, 32, "Output",ExpressionUUID->"688360c2-3e19-df44-b9b6-9ac2eb7cfc27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9681, 262, 557, 19, 79, "Input",ExpressionUUID->"600ed8c5-c6fd-474b-b8ec-38e456f3172e"], +Cell[10241, 283, 390, 6, 32, "Output",ExpressionUUID->"916ef501-6f47-6347-8b44-fa6c95b9b543"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10668, 294, 1492, 48, 80, "Input",ExpressionUUID->"aaeb44c7-62f1-f143-bf33-5b1a49d1d3ab"], +Cell[12163, 344, 396, 6, 32, "Output",ExpressionUUID->"ed3976f2-94ab-cb45-90eb-b1ec79be7485"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12596, 355, 1331, 44, 80, "Input",ExpressionUUID->"53b345d4-8713-8641-8856-894783bbb961"], +Cell[13930, 401, 405, 7, 32, "Output",ExpressionUUID->"2310de4e-7f51-5048-899a-aecb9238430a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14372, 413, 1331, 44, 80, "Input",ExpressionUUID->"f30bf89f-ed57-e841-be4f-b108ee3d508d"], +Cell[15706, 459, 412, 7, 32, "Output",ExpressionUUID->"65e72791-e15d-694e-9f02-8397870eb9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16155, 471, 1492, 48, 80, "Input",ExpressionUUID->"6c3711dc-7082-f642-9d2c-5bccf2a27b03"], +Cell[17650, 521, 391, 6, 32, "Output",ExpressionUUID->"53c9b236-23e8-0d47-ac75-3d372a762d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18078, 532, 131, 2, 28, "Input",ExpressionUUID->"3dc88b7b-ebfb-554f-a688-79f6122afb69"], +Cell[18212, 536, 373, 6, 32, "Output",ExpressionUUID->"55b95038-5087-1842-9242-9ca44238f304"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18622, 547, 177, 3, 28, "Input",ExpressionUUID->"d292ae01-cfc6-8b47-84f9-4e8e1489da16"], +Cell[18802, 552, 372, 6, 32, "Output",ExpressionUUID->"d727faf3-2b8c-5a4c-9eec-2254efc99da0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19211, 563, 134, 2, 28, "Input",ExpressionUUID->"21a46007-fcf5-0c4e-9a23-1df0eb4a012f"], +Cell[19348, 567, 376, 6, 32, "Output",ExpressionUUID->"2a60bafa-b2c8-6b4f-983c-0be1dfa082d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19761, 578, 219, 4, 28, "Input",ExpressionUUID->"6be546ad-856f-3741-b9c6-8be425ff18c0"], +Cell[19983, 584, 391, 7, 32, "Output",ExpressionUUID->"a48773f7-aac1-ca41-9c65-acc9de69755b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20411, 596, 134, 2, 28, "Input",ExpressionUUID->"9069c921-1699-7948-bebf-176d8fb2d295"], +Cell[20548, 600, 382, 6, 32, "Output",ExpressionUUID->"3384b286-aed4-ca47-adfd-9bf7acba2612"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20967, 611, 302, 5, 28, "Input",ExpressionUUID->"f38bb0ff-c7de-3544-8d07-d665f8252324"], +Cell[21272, 618, 323, 5, 32, "Output",ExpressionUUID->"b1a97c35-fe3d-fa49-af15-4806a35b8fa4"] +}, Open ]], +Cell[21610, 626, 173, 2, 28, "Input",ExpressionUUID->"baffc875-ac19-aa4b-b317-b67201343b2c"], +Cell[CellGroupData[{ +Cell[21808, 632, 322, 6, 28, "Input",ExpressionUUID->"d2a9f66a-30e9-8340-af69-318ebd0417a8"], +Cell[22133, 640, 374, 6, 32, "Output",ExpressionUUID->"e7dc1160-35c0-4348-b067-d80572dd13bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22544, 651, 219, 4, 28, "Input",ExpressionUUID->"8500d0e7-89a9-6a4a-bc1c-2125d91928c9"], +Cell[22766, 657, 378, 6, 32, "Output",ExpressionUUID->"16ed93ea-f76a-f440-9a47-fc261084821e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23181, 668, 350, 10, 43, "Input",ExpressionUUID->"cd502e68-f916-3d41-9777-007b3d275509"], +Cell[23534, 680, 394, 6, 32, "Output",ExpressionUUID->"a3737848-1627-e943-b71c-a82043ef84f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23965, 691, 350, 10, 43, "Input",ExpressionUUID->"dc9e7d45-a86e-8549-a9ed-54c3075ee4f5"], +Cell[24318, 703, 414, 7, 32, "Output",ExpressionUUID->"2b8c39e7-6eb4-5440-8b8c-11830a04b121"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24769, 715, 992, 26, 113, "Input",ExpressionUUID->"fcf31744-7c06-c346-a02f-b02c3acdfe9c"], +Cell[25764, 743, 389, 6, 32, "Output",ExpressionUUID->"e963342b-7b9e-5145-a838-733ff1523184"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26190, 754, 199, 3, 28, "Input",ExpressionUUID->"bd371f8b-faa5-5848-ae21-63e721a13b5c"], +Cell[26392, 759, 378, 6, 32, "Output",ExpressionUUID->"491c38aa-bdab-d446-935f-46c9eea56215"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26807, 770, 273, 4, 28, "Input",ExpressionUUID->"a156c351-7671-e64c-b7a4-d297071c83f6"], +Cell[27083, 776, 335, 5, 32, "Output",ExpressionUUID->"8c34d036-f1a4-ea43-b16b-7fd52e5c29f9"] +}, Open ]], +Cell[27433, 784, 175, 2, 28, "Input",ExpressionUUID->"020ee4c3-20e1-184f-8a55-8da42eb685c9"], +Cell[CellGroupData[{ +Cell[27633, 790, 344, 6, 47, "Input",ExpressionUUID->"bc4903cd-c82a-264f-9571-65c53696313a"], +Cell[27980, 798, 326, 5, 32, "Output",ExpressionUUID->"4859c935-0919-eb43-b61a-438860898525"] +}, Open ]], +Cell[28321, 806, 173, 2, 28, "Input",ExpressionUUID->"d0cc9243-6f1a-3c4d-8fa8-ae971bdcba8e"], +Cell[CellGroupData[{ +Cell[28519, 812, 343, 6, 47, "Input",ExpressionUUID->"2e2a32d1-8f00-4440-9024-23561cb3fe8c"], +Cell[28865, 820, 331, 5, 32, "Output",ExpressionUUID->"e5b08433-4643-134e-b8e6-c46c50f16948"] +}, Open ]], +Cell[29211, 828, 175, 2, 28, "Input",ExpressionUUID->"48948dee-4483-e44f-b4d8-3d3f46844b64"], +Cell[CellGroupData[{ +Cell[29411, 834, 349, 6, 47, "Input",ExpressionUUID->"130058f9-3d8b-7142-97ba-a17d0fa00eb8"], +Cell[29763, 842, 328, 5, 32, "Output",ExpressionUUID->"f3aa1239-4142-3e49-9474-725405b6b0bf"] +}, Open ]], +Cell[30106, 850, 175, 2, 28, "Input",ExpressionUUID->"cabca342-96dc-454c-b758-b3f5f02c034c"], +Cell[CellGroupData[{ +Cell[30306, 856, 275, 4, 28, "Input",ExpressionUUID->"05b3f544-3db4-bf4e-abbb-4481269e5183"], +Cell[30584, 862, 328, 5, 32, "Output",ExpressionUUID->"66548d8b-f2ba-5447-85a1-cc23666e0b6b"] +}, Open ]], +Cell[30927, 870, 173, 2, 28, "Input",ExpressionUUID->"601ca6a9-cdd2-9145-91d0-9859b2c8afcd"], +Cell[CellGroupData[{ +Cell[31125, 876, 277, 4, 28, "Input",ExpressionUUID->"272046df-8390-c14d-94ca-7dc3a031d1a2"], +Cell[31405, 882, 331, 5, 32, "Output",ExpressionUUID->"014ea838-df2a-6045-a3ad-f6a8a57a0021"] +}, Open ]], +Cell[31751, 890, 171, 2, 28, "Input",ExpressionUUID->"06cc8922-145e-454b-810e-450ce13ef149"], +Cell[CellGroupData[{ +Cell[31947, 896, 306, 5, 28, "Input",ExpressionUUID->"49845d1d-18ac-b545-93c6-d60cf1bdcf6b"], +Cell[32256, 903, 328, 5, 32, "Output",ExpressionUUID->"7242f334-c11a-be4e-bd98-862b93a14951"] +}, Open ]], +Cell[32599, 911, 175, 2, 28, "Input",ExpressionUUID->"017d83be-5804-7340-9aff-1680f8faef71"], +Cell[CellGroupData[{ +Cell[32799, 917, 251, 4, 28, "Input",ExpressionUUID->"6b00b62e-7b8c-4549-b17f-e7c4f833c97c"], +Cell[33053, 923, 324, 5, 32, "Output",ExpressionUUID->"11be106e-1fda-4049-bc50-3c6a01c8a00f"] +}, Open ]], +Cell[33392, 931, 171, 2, 28, "Input",ExpressionUUID->"b8d4ac41-704e-6240-b2bf-8f652914eb87"], +Cell[CellGroupData[{ +Cell[33588, 937, 19809, 485, 2217, "Input",ExpressionUUID->"4d921be0-6220-a84f-83ba-2165f404e8f7"], +Cell[53400, 1424, 391, 6, 32, "Output",ExpressionUUID->"78092468-c42f-034c-9b5e-ca07dd7a1ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53828, 1435, 19748, 489, 2304, "Input",ExpressionUUID->"1a7a1476-5e17-c94c-af5b-04ba6c2e03b5"], +Cell[73579, 1926, 394, 6, 32, "Output",ExpressionUUID->"34fff01b-b122-5848-8ebb-d1da6ad2c39f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74010, 1937, 19748, 483, 2276, "Input",ExpressionUUID->"0d7e1e77-445a-034d-b76e-a1ac677e2a91"], +Cell[93761, 2422, 409, 7, 32, "Output",ExpressionUUID->"0f844d14-aa04-d148-9d0f-942aa1d0be70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94207, 2434, 22534, 553, 2583, "Input",ExpressionUUID->"76cb1734-b84f-9444-acdb-3d227a29c871"], +Cell[116744, 2989, 407, 7, 32, "Output",ExpressionUUID->"cb9b145a-47fd-1142-b0b2-1293dbb62ef7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117188, 3001, 22535, 553, 2583, "Input",ExpressionUUID->"99ccbfaa-5c29-854a-a530-52fd7b341fce"], +Cell[139726, 3556, 406, 7, 32, "Output",ExpressionUUID->"a76c8bbe-4990-9247-a90e-b65c0a95c045"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140169, 3568, 25491, 626, 2890, "Input",ExpressionUUID->"086c7e51-1263-494b-87cb-6f98f257b41e"], +Cell[165663, 4196, 402, 7, 32, "Output",ExpressionUUID->"a7f27564-9a2c-9c41-8c7b-15f25bd0d138"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166102, 4208, 130, 2, 28, "Input",ExpressionUUID->"2f99bf7a-52e7-2e46-bb76-ee974db553d0"], +Cell[166235, 4212, 370, 6, 32, "Output",ExpressionUUID->"97e1308e-5bfd-3842-9817-3531e3e9d98f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166642, 4223, 130, 2, 28, "Input",ExpressionUUID->"eebb948a-63cd-a442-b833-842277921a53"], +Cell[166775, 4227, 372, 6, 32, "Output",ExpressionUUID->"ec8d0c68-228c-1744-bcfb-eb6e11434021"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167184, 4238, 1144, 39, 110, "Input",ExpressionUUID->"6e867428-93ae-e240-89ff-31631071a68c"], +Cell[168331, 4279, 394, 6, 32, "Output",ExpressionUUID->"24540007-0089-5049-8b4a-5f5a0b001f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168762, 4290, 1041, 35, 110, "Input",ExpressionUUID->"bd8b9002-5460-1d49-aacf-583105fa4755"], +Cell[169806, 4327, 409, 7, 32, "Output",ExpressionUUID->"9c5b57bd-a16f-8e44-a2f1-f4573cf8f9b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170252, 4339, 1144, 39, 110, "Input",ExpressionUUID->"68d472d8-2648-2748-83b2-d844d8ecb8bb"], +Cell[171399, 4380, 395, 6, 32, "Output",ExpressionUUID->"253045e7-77a9-824b-84c8-ce08de3b45e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171831, 4391, 108, 1, 28, "Input",ExpressionUUID->"5b5a8c8e-b242-714d-a8b7-82448475c921"], +Cell[171942, 4394, 388, 6, 32, "Output",ExpressionUUID->"005d2618-561b-434a-91df-01351cd5f8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172367, 4405, 108, 1, 28, "Input",ExpressionUUID->"b83dfc16-72d3-7e44-9293-ee02d41e2804"], +Cell[172478, 4408, 417, 7, 32, "Output",ExpressionUUID->"abffdf28-6519-d846-a57b-a8f423b14698"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172932, 4420, 108, 1, 28, "Input",ExpressionUUID->"f95654b6-7a61-0c44-936d-46eaeffdcfb7"], +Cell[173043, 4423, 404, 7, 32, "Output",ExpressionUUID->"341eab09-e0e0-fb46-a582-1df174a1f9a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173484, 4435, 108, 1, 28, "Input",ExpressionUUID->"dc8a1e5a-c41c-e048-a141-5f4b09f3f733"], +Cell[173595, 4438, 393, 6, 32, "Output",ExpressionUUID->"b7e960fc-634a-ba45-95da-a190a332e893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174025, 4449, 107, 1, 28, "Input",ExpressionUUID->"4b99d4f2-04ad-5546-8a36-6e453a4d42bb"], +Cell[174135, 4452, 393, 6, 32, "Output",ExpressionUUID->"7d811afa-a76f-cf49-a3a1-316e37f9e8df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174565, 4463, 107, 1, 28, "Input",ExpressionUUID->"2c611c37-9024-2948-ad05-81f23ed86fa4"], +Cell[174675, 4466, 391, 6, 32, "Output",ExpressionUUID->"c36de680-e33a-fe4b-8e5e-24beb18cbbc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175103, 4477, 497, 16, 56, "Input",ExpressionUUID->"8d8264fd-a79c-3644-91fa-755c8f060dc6"], +Cell[175603, 4495, 407, 7, 32, "Output",ExpressionUUID->"1d240484-12ab-0543-8fc5-1be4bde2778d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176047, 4507, 497, 16, 56, "Input",ExpressionUUID->"32a72538-4b4c-fa49-877c-c1bb0f793329"], +Cell[176547, 4525, 406, 7, 32, "Output",ExpressionUUID->"d88d52d3-bc30-5541-baf4-afea8b11d61d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176990, 4537, 1788, 60, 188, "Input",ExpressionUUID->"9bcd69f6-e764-484d-98a4-b95600ed9b7f"], +Cell[178781, 4599, 388, 6, 32, "Output",ExpressionUUID->"c2ce73b6-2ae0-2a45-bd7a-e9d580c7297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179206, 4610, 1101, 36, 133, "Input",ExpressionUUID->"035c7338-5a26-334d-814f-aaf357f424c7"], +Cell[180310, 4648, 409, 7, 32, "Output",ExpressionUUID->"755148ba-bc13-0241-9b76-f9b1dfbba011"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180756, 4660, 1818, 61, 165, "Input",ExpressionUUID->"88364e9a-a5c0-614b-adca-40cfe4299d0d"], +Cell[182577, 4723, 390, 6, 32, "Output",ExpressionUUID->"6a9e13a2-2f15-e44d-a5c1-f2027d4f99dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183004, 4734, 2499, 77, 133, "Input",ExpressionUUID->"2143c15f-8edb-5645-bc38-8baf15164190"], +Cell[185506, 4813, 390, 6, 32, "Output",ExpressionUUID->"73aa72f3-3b5c-ce46-b40f-f1e5fda0a110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185933, 4824, 2499, 77, 133, "Input",ExpressionUUID->"87beafd8-d9de-784e-a815-cd383a8626f9"], +Cell[188435, 4903, 389, 6, 32, "Output",ExpressionUUID->"62e429d5-0fd6-6442-8960-28c7919f406a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188861, 4914, 210, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[189074, 4919, 165, 2, 32, "Output",ExpressionUUID->"4b3862c6-6770-8641-8b61-432964f394ae"] +}, Open ]], +Cell[189254, 4924, 173, 2, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[CellGroupData[{ +Cell[189452, 4930, 211, 3, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[189666, 4935, 168, 2, 32, "Output",ExpressionUUID->"7245dba8-2e21-f949-be74-c99b12adba77"] +}, Open ]], +Cell[189849, 4940, 171, 2, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[190045, 4946, 1297, 42, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[191345, 4990, 197, 2, 32, "Output",ExpressionUUID->"8aaffa01-b744-8f4e-847f-a659c171db3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191579, 4997, 931, 29, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[192513, 5028, 193, 2, 32, "Output",ExpressionUUID->"6911d534-8759-cf4c-9ee0-51d1e5aba384"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192743, 5035, 983, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[193729, 5069, 197, 2, 32, "Output",ExpressionUUID->"95326814-e08a-af4e-8405-cb906353ec93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193963, 5076, 554, 18, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[194520, 5096, 189, 2, 32, "Output",ExpressionUUID->"91650ea3-b84c-5341-b20a-1f956c1d80a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194746, 5103, 619, 20, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[195368, 5125, 188, 2, 32, "Output",ExpressionUUID->"0d4643d1-a7df-024f-9d73-7241cf95b369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195593, 5132, 166, 4, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[195762, 5138, 191, 2, 32, "Output",ExpressionUUID->"99c1ea81-c779-fb42-a87b-fdb2f7334f39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195990, 5145, 166, 4, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[196159, 5151, 190, 2, 32, "Output",ExpressionUUID->"a755335e-ccde-1f4c-80f8-6ab6355ee34d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196386, 5158, 177, 4, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[196566, 5164, 190, 2, 32, "Output",ExpressionUUID->"f4670e9f-2904-584b-bd94-4b71f426b858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196793, 5171, 177, 4, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[196973, 5177, 190, 2, 32, "Output",ExpressionUUID->"a9c196b5-bbcb-ae4b-a3c8-ee17aa5a0c33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197200, 5184, 6051, 184, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[203254, 5370, 192, 2, 32, "Output",ExpressionUUID->"9e27dff5-7f24-d845-baad-d1a13fe822c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203483, 5377, 364, 8, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[203850, 5387, 190, 2, 32, "Output",ExpressionUUID->"5bd2ae7f-bf11-0344-b389-7387fb30e3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204077, 5394, 6118, 186, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[210198, 5582, 196, 2, 32, "Output",ExpressionUUID->"7e786ca6-864e-8147-9826-78357c2ba301"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210431, 5589, 364, 8, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[210798, 5599, 191, 2, 32, "Output",ExpressionUUID->"ba98d4db-f522-8c47-98c4-9415dfdbddc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211026, 5606, 2659, 87, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[213688, 5695, 191, 2, 32, "Output",ExpressionUUID->"1ee5ff45-8eba-0743-a870-fbf9a955b6d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213916, 5702, 2599, 84, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[216518, 5788, 193, 2, 32, "Output",ExpressionUUID->"222a62a0-873f-7147-a793-486323406eb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216748, 5795, 3708, 117, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[220459, 5914, 192, 2, 32, "Output",ExpressionUUID->"21b07ddb-893f-7941-a6a8-fa18b2ae8368"] +}, Open ]], +Cell[220666, 5919, 160, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[220851, 5926, 2071, 58, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[222925, 5986, 567, 11, 84, "Message",ExpressionUUID->"a0ac8ef7-bf7f-0846-b83d-2fa237c9dcde"], +Cell[223495, 5999, 573, 12, 84, "Message",ExpressionUUID->"ec7fab97-6781-5a4c-86a3-9cb38fbcb4ae"], +Cell[224071, 6013, 579, 12, 66, "Message",ExpressionUUID->"5646e58a-f51b-254c-b734-63186a00bfb6"], +Cell[224653, 6027, 478, 10, 26, "Message",ExpressionUUID->"bad7d70a-cd0c-2747-a4f3-b606fd96b0b4"], +Cell[225134, 6039, 190, 2, 32, "Output",ExpressionUUID->"e98e2e5d-85ef-1a4d-89b4-674f10fd0c53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225361, 6046, 2073, 58, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[227437, 6106, 565, 11, 84, "Message",ExpressionUUID->"fd80b465-6584-7b4c-b84f-6e613b2c2016"], +Cell[228005, 6119, 575, 12, 84, "Message",ExpressionUUID->"acdb17dd-9508-4d46-b500-77b677716c76"], +Cell[228583, 6133, 579, 12, 66, "Message",ExpressionUUID->"344b088a-b8a1-164c-94fb-753cf9cebe03"], +Cell[229165, 6147, 480, 10, 26, "Message",ExpressionUUID->"1c012323-3975-1944-a480-16ddcc4e63a6"], +Cell[229648, 6159, 187, 2, 32, "Output",ExpressionUUID->"ba0abfa9-2c30-bb4e-a296-ce5afa3a4b9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229872, 6166, 1955, 52, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[231830, 6220, 20465, 383, 237, "Output",ExpressionUUID->"ea986581-a74b-cc43-8fe3-b942302d708d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252332, 6608, 2137, 59, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[254472, 6669, 514, 11, 60, "Message",ExpressionUUID->"c0c0d280-b436-8b4a-9e76-84a9ca7c67e5"], +Cell[254989, 6682, 519, 11, 60, "Message",ExpressionUUID->"9112370c-6d2c-be4d-a7b1-9f95facb17c1"], +Cell[255511, 6695, 523, 11, 60, "Message",ExpressionUUID->"c88edc5a-6e3d-8f4a-996c-fa068259a3b6"], +Cell[256037, 6708, 478, 10, 26, "Message",ExpressionUUID->"8f0be32d-19f3-2849-8c9e-4a34e95e1c85"], +Cell[256518, 6720, 21882, 405, 233, "Output",ExpressionUUID->"41b358f4-4f05-8e41-8f39-85e35832fea0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278437, 7130, 1862, 50, 120, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[280302, 7182, 8993, 209, 240, "Output",ExpressionUUID->"d3679f5f-2e34-d843-950f-da2c3b9ef8a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289332, 7396, 276, 5, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[289611, 7403, 27843, 529, 233, "Output",ExpressionUUID->"18e41340-96d3-0a4c-8ab5-d223a57e2988"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317491, 7937, 234, 6, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[317728, 7945, 187, 2, 32, "Output",ExpressionUUID->"90a5f243-fae2-e240-a475-7ad874444592"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317952, 7952, 1837, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[319792, 8007, 512, 11, 60, "Message",ExpressionUUID->"bae69c80-fb06-324e-9624-e0f513084e2b"], +Cell[320307, 8020, 514, 11, 60, "Message",ExpressionUUID->"8817ff80-ddde-ec44-bb16-f9c76a098ef6"], +Cell[320824, 8033, 516, 11, 60, "Message",ExpressionUUID->"dc7306a2-3ad5-ad43-8572-1b37b2c06cee"], +Cell[321343, 8046, 477, 10, 26, "Message",ExpressionUUID->"b984473a-1584-6742-87fc-4e67003eaf2a"], +Cell[321823, 8058, 22197, 409, 233, "Output",ExpressionUUID->"0d5bd983-bae7-1443-afca-d35f6b4ead2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344057, 8472, 1616, 48, 113, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[345676, 8522, 546, 11, 60, "Message",ExpressionUUID->"ac00dfbc-65a3-9341-81c6-f70c8b052fb5"], +Cell[346225, 8535, 548, 11, 60, "Message",ExpressionUUID->"5f7496bf-2bc5-c946-9888-a0061bd0b2d9"], +Cell[346776, 8548, 552, 11, 60, "Message",ExpressionUUID->"1f21e233-10ad-1e40-86bc-fafbc3cfdde3"], +Cell[347331, 8561, 480, 10, 26, "Message",ExpressionUUID->"2af1ef0d-e214-e940-be6d-ca8ae522ef99"], +Cell[347814, 8573, 192, 3, 32, "Output",ExpressionUUID->"e8e9bbd6-6894-204a-a801-dc35ce93c1ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348043, 8581, 2272, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[350318, 8647, 567, 11, 84, "Message",ExpressionUUID->"b6da5d53-31dd-2442-b9cf-3bcc98ab39b9"], +Cell[350888, 8660, 573, 12, 84, "Message",ExpressionUUID->"c155a76b-bab7-1143-b331-47066eecf766"], +Cell[351464, 8674, 577, 12, 66, "Message",ExpressionUUID->"f11e72d4-c905-f04e-8c49-247205add74e"], +Cell[352044, 8688, 480, 10, 26, "Message",ExpressionUUID->"14da3214-dfa7-1a4c-a66a-401fcbcf9f08"], +Cell[352527, 8700, 194, 3, 32, "Output",ExpressionUUID->"0767bfa0-499a-bd4a-96a1-e3cdd47fff34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352758, 8708, 2244, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[355005, 8774, 567, 11, 84, "Message",ExpressionUUID->"ff75c101-5b3b-a842-b9cd-74a367536b78"], +Cell[355575, 8787, 575, 12, 84, "Message",ExpressionUUID->"df5f18a8-adb8-dd44-a6af-f8743dab4365"], +Cell[356153, 8801, 579, 12, 66, "Message",ExpressionUUID->"a4c8c2fc-9463-d546-ba32-2d14462acc76"], +Cell[356735, 8815, 478, 10, 26, "Message",ExpressionUUID->"b7fe6d01-c5e2-bd44-9956-274503e6ba95"], +Cell[357216, 8827, 195, 3, 32, "Output",ExpressionUUID->"76a55485-202b-bf4f-bea3-d9d5d296bfeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357448, 8835, 2242, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[359693, 8901, 569, 11, 84, "Message",ExpressionUUID->"b8152a15-e77e-2c4c-aded-5e20bea87cd7"], +Cell[360265, 8914, 575, 12, 84, "Message",ExpressionUUID->"ac4ef626-598c-bb46-9638-a31ce6c2446e"], +Cell[360843, 8928, 581, 12, 66, "Message",ExpressionUUID->"29f257b4-c2d7-1046-8c3a-825affac8524"], +Cell[361427, 8942, 482, 10, 26, "Message",ExpressionUUID->"0a33e60f-21ee-2146-bf8f-735887d4c722"], +Cell[361912, 8954, 195, 3, 32, "Output",ExpressionUUID->"81ac552f-ee63-1d43-bdc8-c2e01c7cbcf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362144, 8962, 236, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[362383, 8970, 196, 3, 32, "Output",ExpressionUUID->"a5986757-7c96-9a47-b399-6791f039df58"] +}, Open ]], +Cell[362594, 8976, 273, 6, 42, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[362892, 8986, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[363453, 9007, 194, 3, 32, "Output",ExpressionUUID->"4c1a8bc1-9f2e-774c-aa2f-f521cb954bec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363684, 9015, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[363857, 9022, 195, 3, 32, "Output",ExpressionUUID->"20a44e97-7be6-1447-b17d-55286b77dffc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364089, 9030, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[364273, 9037, 197, 3, 32, "Output",ExpressionUUID->"6bb82b2c-e284-da41-a1db-c917562cb1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364507, 9045, 6055, 185, 498, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[370565, 9232, 196, 3, 32, "Output",ExpressionUUID->"55cee0f0-b426-1a4b-a71b-f310c14638a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370798, 9240, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[371169, 9251, 194, 3, 32, "Output",ExpressionUUID->"9e814285-6bdd-2e4e-8fc5-f98c2245428a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371400, 9259, 6122, 187, 500, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[377525, 9448, 198, 3, 32, "Output",ExpressionUUID->"a28eab01-59f3-9848-b4ae-f84f6c2647b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377760, 9456, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[378131, 9467, 193, 3, 32, "Output",ExpressionUUID->"96e7323a-9860-6448-a46e-90e5694fc0f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378361, 9475, 2663, 88, 187, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[381027, 9565, 195, 3, 32, "Output",ExpressionUUID->"bb94e5bd-bfea-0143-9bbe-af74b50277a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381259, 9573, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[383865, 9660, 197, 3, 32, "Output",ExpressionUUID->"77e97800-97c2-3b45-b6d9-6fdfbfcfa833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384099, 9668, 3712, 118, 348, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[387814, 9788, 199, 3, 32, "Output",ExpressionUUID->"5a90f194-5180-7d44-83a4-2e1102eeb8fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388050, 9796, 2075, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[390128, 9857, 556, 11, 60, "Message",ExpressionUUID->"8278e40d-0761-1a4d-9649-63b630f05f17"], +Cell[390687, 9870, 562, 11, 60, "Message",ExpressionUUID->"917b8bc0-97b3-7843-be21-9880d876e622"], +Cell[391252, 9883, 564, 11, 60, "Message",ExpressionUUID->"1fe98454-f6db-c040-81f7-7c29c6eea48d"], +Cell[391819, 9896, 480, 10, 26, "Message",ExpressionUUID->"4bdd67d8-9c31-2f44-8f8a-7df19fc7b88d"], +Cell[392302, 9908, 195, 3, 32, "Output",ExpressionUUID->"6e436fe4-adee-5e4f-bf91-6d86ea4e7fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392534, 9916, 2077, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[394614, 9977, 556, 11, 60, "Message",ExpressionUUID->"3b8cb8a7-7dde-4b4b-98d2-7614657d98ae"], +Cell[395173, 9990, 562, 11, 60, "Message",ExpressionUUID->"dddc9a38-05f6-d241-8ef2-b689c52020fc"], +Cell[395738, 10003, 564, 11, 60, "Message",ExpressionUUID->"4ac1e345-d47c-0e4c-aaf3-acdd54b53ac9"], +Cell[396305, 10016, 478, 10, 26, "Message",ExpressionUUID->"7d6cdfc5-91c3-6146-9973-84856ce1e528"], +Cell[396786, 10028, 193, 3, 32, "Output",ExpressionUUID->"53674424-12ba-5240-a3df-e5eade232dd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397016, 10036, 2051, 55, 160, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[399070, 10093, 20401, 384, 233, "Output",ExpressionUUID->"af2a5c83-e1fd-f34b-825d-282145d5d3c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419508, 10482, 2143, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[421654, 10544, 518, 11, 60, "Message",ExpressionUUID->"2c3d22c9-8b32-2746-a746-8b96d33920f2"], +Cell[422175, 10557, 519, 11, 60, "Message",ExpressionUUID->"72699420-47d2-4c42-950c-cb8c790fd3e6"], +Cell[422697, 10570, 519, 11, 60, "Message",ExpressionUUID->"e15bf587-7a7c-7940-9249-c9e5aeb3d5ef"], +Cell[423219, 10583, 482, 10, 26, "Message",ExpressionUUID->"808e76b2-1085-824b-bba3-51c59e6e406f"], +Cell[423704, 10595, 51658, 892, 233, "Output",ExpressionUUID->"c5bac7b1-5ca8-e24f-a9c3-0dbe9b6617e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475399, 11492, 280, 6, 42, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[475682, 11500, 57671, 1017, 233, "Output",ExpressionUUID->"454cae5c-566e-8e47-ad18-353204b0c1c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533390, 12522, 1616, 48, 113, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[535009, 12572, 565, 11, 60, "Message",ExpressionUUID->"4fa12d9d-5c43-784d-820b-1508ed373cc4"], +Cell[535577, 12585, 566, 11, 84, "Message",ExpressionUUID->"41f95730-57bd-004f-9ca1-c0f4374bab10"], +Cell[536146, 12598, 573, 12, 84, "Message",ExpressionUUID->"6f2d3a64-8642-bb46-a8f1-4a73924a770c"], +Cell[536722, 12612, 480, 10, 26, "Message",ExpressionUUID->"4946135e-8316-384d-a1af-68e41a484fc8"], +Cell[537205, 12624, 197, 3, 32, "Output",ExpressionUUID->"f0ec20b2-919c-ae48-b119-ed6009744f55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537439, 12632, 2270, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[539712, 12698, 558, 11, 60, "Message",ExpressionUUID->"d844bebc-fbf5-4a49-b768-3393c7fd1952"], +Cell[540273, 12711, 562, 11, 60, "Message",ExpressionUUID->"abf09cc9-631d-e24a-a658-b0f745d59c24"], +Cell[540838, 12724, 563, 11, 60, "Message",ExpressionUUID->"9a2ce6bd-ea75-b149-a1d7-3c85110a6187"], +Cell[541404, 12737, 480, 10, 26, "Message",ExpressionUUID->"33ad31e3-745d-fb41-aed3-aa2a6a76438e"], +Cell[541887, 12749, 194, 3, 32, "Output",ExpressionUUID->"0919b2a1-63dc-1441-80c6-f8729c57325d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542118, 12757, 2242, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[544363, 12823, 558, 11, 60, "Message",ExpressionUUID->"fcb82379-def7-6e41-b15b-2ebe9c8f25f3"], +Cell[544924, 12836, 562, 11, 60, "Message",ExpressionUUID->"009e26d8-b867-c946-bf3d-eeea69dcb4f3"], +Cell[545489, 12849, 562, 11, 60, "Message",ExpressionUUID->"cf5771d7-c4b2-bd49-90ef-d609991a5156"], +Cell[546054, 12862, 480, 10, 26, "Message",ExpressionUUID->"972660ec-b5e7-6040-bb6e-992cc0858721"], +Cell[546537, 12874, 195, 3, 32, "Output",ExpressionUUID->"47280940-ca99-8f42-a2f3-3b59fa91f6ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[546769, 12882, 2246, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[549018, 12948, 558, 11, 60, "Message",ExpressionUUID->"fce3de28-3f51-6942-b998-0a597a592954"], +Cell[549579, 12961, 560, 11, 60, "Message",ExpressionUUID->"fbc08b22-0201-fd45-afb7-042780aea2ec"], +Cell[550142, 12974, 562, 11, 60, "Message",ExpressionUUID->"608140af-eac7-1548-9149-bd01c179781b"], +Cell[550707, 12987, 478, 10, 26, "Message",ExpressionUUID->"c6d02368-ae5d-b643-ae77-9f450d71a128"], +Cell[551188, 12999, 195, 3, 32, "Output",ExpressionUUID->"1fde16d2-bcff-1b4e-b348-19d27b5ab52f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551420, 13007, 236, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[551659, 13015, 197, 3, 32, "Output",ExpressionUUID->"dba91fa9-740d-5642-9273-9e26c2617a2c"] +}, Open ]], +Cell[551871, 13021, 273, 6, 42, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[552169, 13031, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[552730, 13052, 194, 3, 32, "Output",ExpressionUUID->"16ab744a-03f0-ca4a-8b31-f3e982f88cbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552961, 13060, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[553134, 13067, 197, 3, 32, "Output",ExpressionUUID->"c7590f88-b95c-7e4e-aea7-c01e2c415551"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553368, 13075, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[553552, 13082, 195, 3, 32, "Output",ExpressionUUID->"5e8c5ea6-f441-4e4c-ad10-703836fb344f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553784, 13090, 6055, 185, 498, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[559842, 13277, 196, 3, 32, "Output",ExpressionUUID->"1b7841a5-ae6f-3145-a57b-8ec945033738"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560075, 13285, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[560446, 13296, 196, 3, 32, "Output",ExpressionUUID->"9faf895b-2e68-7747-b556-46b28af3bf42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560679, 13304, 6122, 187, 500, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[566804, 13493, 198, 3, 32, "Output",ExpressionUUID->"71c471c9-ebdd-f240-98ff-51b5b8840299"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567039, 13501, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[567410, 13512, 195, 3, 32, "Output",ExpressionUUID->"b6925efd-7a13-b04f-89e0-df5eebfecbef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567642, 13520, 2663, 88, 187, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[570308, 13610, 194, 3, 32, "Output",ExpressionUUID->"ac029762-77fb-0641-a5d6-ecc7bfd1c597"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570539, 13618, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[573145, 13705, 195, 3, 32, "Output",ExpressionUUID->"8627da2f-7efa-8443-8277-bc0e0a8b131a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573377, 13713, 3712, 118, 348, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[577092, 13833, 195, 3, 32, "Output",ExpressionUUID->"85c32e82-9ca4-f643-b24f-341c16bbfc63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577324, 13841, 2075, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[579402, 13902, 559, 11, 60, "Message",ExpressionUUID->"686cdc6a-ce2f-8b41-bac9-72ea582e5bd2"], +Cell[579964, 13915, 563, 11, 60, "Message",ExpressionUUID->"a1e5ae7a-c281-2642-9832-e9d6a7d4d982"], +Cell[580530, 13928, 564, 11, 60, "Message",ExpressionUUID->"f76c36f5-b583-5c49-a8d9-e06aa100523c"], +Cell[581097, 13941, 482, 10, 26, "Message",ExpressionUUID->"5066f900-f536-3e4f-a249-c72a3df9e94f"], +Cell[581582, 13953, 193, 3, 32, "Output",ExpressionUUID->"bde747b4-1200-cd4e-ab5d-293546118a3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[581812, 13961, 2075, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[583890, 14022, 561, 11, 60, "Message",ExpressionUUID->"5d71f84d-9e2c-f748-a058-3d313cf5dd3a"], +Cell[584454, 14035, 563, 11, 60, "Message",ExpressionUUID->"a2500435-6615-a641-a81d-709b60ffe3eb"], +Cell[585020, 14048, 566, 11, 60, "Message",ExpressionUUID->"558e3aff-2533-504c-b4e6-06ddaeced6eb"], +Cell[585589, 14061, 480, 10, 26, "Message",ExpressionUUID->"6b24d717-5471-5a4a-a2f3-c0b14497f731"], +Cell[586072, 14073, 195, 3, 32, "Output",ExpressionUUID->"5f0d8c3f-e8b2-3f45-947a-f64869ee0416"] +}, Open ]], +Cell[CellGroupData[{ +Cell[586304, 14081, 2053, 55, 160, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[588360, 14138, 20399, 384, 233, "Output",ExpressionUUID->"70f5d02e-9682-0847-a186-3662438eef1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608796, 14527, 2115, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[610914, 14589, 515, 11, 60, "Message",ExpressionUUID->"dd8d7f63-073b-6d48-9a22-9aa02003f3a2"], +Cell[611432, 14602, 517, 11, 60, "Message",ExpressionUUID->"63a6cac0-1bbe-be4e-9873-ce21a67d4842"], +Cell[611952, 14615, 522, 11, 60, "Message",ExpressionUUID->"984c3336-6bfb-a546-8fa2-f60fb793ca7d"], +Cell[612477, 14628, 478, 10, 26, "Message",ExpressionUUID->"8642d6c8-1953-2949-bd81-e06a231aa494"], +Cell[612958, 14640, 37264, 658, 233, "Output",ExpressionUUID->"fce21958-3569-714e-a583-3104e56bb757"] +}, Open ]], +Cell[CellGroupData[{ +Cell[650259, 15303, 280, 6, 42, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[650542, 15311, 43277, 783, 233, "Output",ExpressionUUID->"0deb2fb8-eb79-c04f-a1b6-004fc4211c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693856, 16099, 1616, 48, 113, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[695475, 16149, 561, 11, 60, "Message",ExpressionUUID->"c662d462-5a71-2342-9fda-b2274b2e0d97"], +Cell[696039, 16162, 567, 11, 84, "Message",ExpressionUUID->"c0ec3c0c-015d-0345-90ab-82f4e61762c8"], +Cell[696609, 16175, 572, 12, 84, "Message",ExpressionUUID->"213387ff-cedc-9d4a-9d2b-74bcf7747f2f"], +Cell[697184, 16189, 477, 10, 26, "Message",ExpressionUUID->"8d40b6f2-b1db-d84b-a2b6-c2961775ad5c"], +Cell[697664, 16201, 195, 3, 32, "Output",ExpressionUUID->"91f0a9b5-40b2-9c49-916b-05f3bf015800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697896, 16209, 2271, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[700170, 16275, 559, 11, 60, "Message",ExpressionUUID->"07458b43-72a1-474f-87e6-0eef9f35a5b8"], +Cell[700732, 16288, 563, 11, 60, "Message",ExpressionUUID->"2ad89f73-179d-2f49-8bed-e430fe0e442b"], +Cell[701298, 16301, 566, 11, 60, "Message",ExpressionUUID->"d2bfc863-61b6-d742-bed2-087d66683cf6"], +Cell[701867, 16314, 480, 10, 26, "Message",ExpressionUUID->"fc399718-1033-ff41-8d26-cd034dd4276a"], +Cell[702350, 16326, 196, 3, 32, "Output",ExpressionUUID->"afb27a41-54d3-2b44-859f-e1ff05509ecf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702583, 16334, 2244, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[704830, 16400, 561, 11, 60, "Message",ExpressionUUID->"0e5faf36-e4fd-9f42-a49b-4ce7075c0703"], +Cell[705394, 16413, 563, 11, 60, "Message",ExpressionUUID->"0ad1a1bc-c1f1-9342-9444-04e661f1fa75"], +Cell[705960, 16426, 564, 11, 60, "Message",ExpressionUUID->"f7118513-8b41-9b43-98e5-7d9cd3d3e216"], +Cell[706527, 16439, 482, 10, 26, "Message",ExpressionUUID->"cb0367c1-f722-be4c-8a36-8b1792721884"], +Cell[707012, 16451, 196, 3, 32, "Output",ExpressionUUID->"d597ce14-0a75-3f42-825b-9129545b6929"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707245, 16459, 2242, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[709490, 16525, 559, 11, 60, "Message",ExpressionUUID->"731d1689-4aa1-714c-9131-a00b1ee90432"], +Cell[710052, 16538, 561, 11, 60, "Message",ExpressionUUID->"9e839266-cb04-f541-8cb3-ebac0e4f7c36"], +Cell[710616, 16551, 564, 11, 60, "Message",ExpressionUUID->"0730db4c-6287-9c4c-b453-b9864a6676e6"], +Cell[711183, 16564, 477, 10, 26, "Message",ExpressionUUID->"c8e1290a-03b8-1c4c-9d12-a283a5810f3a"], +Cell[711663, 16576, 195, 3, 32, "Output",ExpressionUUID->"0cd7523b-1147-164d-8acb-6d38b29af9c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[711895, 16584, 234, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[712132, 16592, 200, 3, 32, "Output",ExpressionUUID->"e92f3798-de54-d64b-b87f-bfa1cf85c2da"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb new file mode 100755 index 0000000..68b7a0b --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb @@ -0,0 +1,17688 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 776182, 17680] +NotebookOptionsPosition[ 735614, 17031] +NotebookOutlinePosition[ 736068, 17049] +CellTagsIndexPosition[ 736025, 17046] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"decf87f5-69e6-d145-96ee-b1c4602a22f7"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9921096046773777`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"037f92dd-f7d4-dd42-8d89-71be0ece8f89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"8e5ddefa-2b5c-6247-af17-e3667ab45a14"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.992109604748682*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"7789abd9-a823-f641-8cff-f98715a0b74c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"8a146821-63d3-254d-a6aa-0fea2d176440"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992109604770052*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"71ea40e9-b179-bd47-829a-c620683ff078"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7295cc77-b1eb-c148-a8f8-0524ae53fa9e"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9921096047900524`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8b78feac-6cbf-3649-8c34-d9a2e0343aa5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"427bcb6b-7203-4f4c-8b5f-92422f3332dd"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9921096048040676`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"bda5a226-706a-4948-bfcb-3a10753e2b6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"e6a2dce0-48a1-a54b-87dd-64a39dc278b4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9921096048189125`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"c08867b0-eaaa-d443-bee6-aa10d5507e37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"b34f20c3-bc0e-7a48-88ab-231ba26f94ee"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.992109604835928*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"8309cc1e-4e7a-c245-9b75-ad6b7eee8803"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"17226ba2-7113-be41-8022-c382d0d83c53"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.992109604851145*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"e9200f28-724e-4a4a-af0e-d800b26343bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"baab3e06-2bee-bf4a-8618-822c95e824b3"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992109604864212*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d460e0c9-c573-0343-b6c2-db2829ea09a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"7c3df1a3-2591-9d46-b7f7-9a56a5f63bc3"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9921096048773155`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0424535a-cb05-1e46-a721-1451ca3ad51a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"de60ffba-7cbc-5847-8549-d4fbe4875db8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992109604891365*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f4e5fb0e-749f-1a4a-ae0a-019dc46fb26f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"69dc8ea6-676a-dc49-9351-23993cceae89"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992109604905491*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"61afd43e-bef6-8b44-928b-7b9781b3acb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"ec44c837-c052-fc4b-b261-10c7daf03ac1"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921096049206276`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"0c8eb7b6-c1c9-a24b-9ea7-2bbd4352dac1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"903d3654-408b-a548-a092-284ecafd818f"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.9921096049323063`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"42ed48f2-7ef5-1846-904f-9ebc55fb6977"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"c11e02a6-b1fe-f849-935d-f92cea21acd7"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.992109604941307*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"b1cd425e-0025-304a-a71f-e374a32632e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"7780fc5c-1700-dc4d-a078-34ee438027dd"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9921096049498177`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"58290a99-eddd-2a4a-9e68-9ec70d9a630f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"0f58db59-f855-dd43-8594-5f641286c017"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921096049604263`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"14d13c4a-1bab-1c40-a445-e8a7a9b887f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"41eb03c2-c064-b149-b5d2-584b0fd9db0a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9921096049694347`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b189f191-1a9a-114c-b824-de338a8889b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"98b38ee5-898b-4346-917d-7a87820c915c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.992109604979332*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"04fd09cf-8783-524f-b249-0904c7c74e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"7d9f16ed-a447-3941-8b54-dce1ce689754"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992109604988329*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"28745d6d-37b1-c441-b0c8-5e12f448417d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"b09734e4-465e-a14c-9263-94c6edb02ca1"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992109604998331*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"eafa1984-4a8c-5340-91cf-59e74f192a05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"f29a2307-3447-1943-ad48-50f33841cc64"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921096050073547`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"0fa286b7-e602-7a4a-a92b-e3af361cba0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"718c455f-8eef-1340-9f83-7e9fc093ef89"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.992109605019367*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b42251b2-cc66-b943-8221-5a127e24c64c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"abe15f34-4031-994f-9573-919cbff5ae28"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992109605037531*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"f50f8890-1337-5c46-b3cc-60cc1b458829"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"f54cbe34-7d26-ac45-b04d-4a0dfc786756"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"e1ee6a2a-ad12-8c4a-ae1e-ef92600b7ef6"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921096050535297`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"289b7694-e5cb-ad44-b982-62789f1432bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"72c6f3b5-aacd-764e-a14b-934f0a2d9058"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921096050675716`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"cb1050b7-2889-ca49-933d-fae85067be83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"8d56e723-95f7-6a47-9bf1-95688d14840e"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9921096050815735`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"4b038fb7-920c-d147-9d67-db9591bb424e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"fc1da402-09a7-0b43-a5f1-0e0072c9924b"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.992109605096775*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"e45030cb-0044-3649-aba8-852d9a444399"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"fa3765b6-425c-014a-8bca-452a47a684d1"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9921096051188164`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c82d18c4-ed50-7c47-81c7-3a425d3051e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"9c05f553-4d62-174a-afaa-6c2d98d8398c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.99210960513237*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"7a12913a-da48-694f-a357-4dfd7f41225b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"0092b9dd-a828-174c-9f21-7ca0983820ad"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9921096051473675`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"25b0ec7f-f5fc-e946-84fb-bc072d1a78f4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"4bcb9c4c-d2b7-9c48-913d-55402ef0fcfa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"0f0e26aa-0a4b-e248-95f9-dce212751b21"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9921096051743526`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0dd3578a-5406-2345-97c6-197f49623abf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"fd088c34-4c8f-be4a-90b1-8e9cebf9d8af"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"7a1ce979-d02f-c14c-b529-a5816c5f6ff2"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.992109605208372*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"386d65ee-8569-1d40-a192-0c5b598d715a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"d5070180-8e6f-c14a-969e-b70ae8ba5b81"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"33ef9ecf-fe4f-5a4e-b834-98d5e1d4b9a3"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992109605232235*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"0c5704be-782c-984d-90bd-7014d381ba78"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"4d99777a-a73d-3c4c-a873-cf9287520628"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"c4da4ab8-da50-d140-91ed-bb4066d15de8"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992109605245224*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"2dfe1558-cb56-b048-8672-0dc5f266beaf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e4a8db4e-c5ef-f345-89f9-2f0eb815fbe1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"47599e08-b2e7-a24b-961e-ebca74dfa067"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.99210960526725*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"351c888e-d7c6-5443-8419-831a2773e27a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"5abac94d-6a40-7b4e-a070-b0cdf9d611ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"4bd0080e-efc5-924d-a473-45f092280dce"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9921096052942505`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"af8dbf57-4bc3-814f-948e-e7716d6fd140"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"625a868e-ee7b-4d49-9d19-38755610271f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"739c797d-3b78-0042-9a14-ddf85766de83"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992109605315632*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"3d6724c6-71f4-5b42-a14c-d169029f383d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"ecd0b3c7-07cc-5848-98fb-ada047a431f8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"11051a1e-7803-124a-bbf6-5e5b0c006c65"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.9921096054570465`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"f6f9cf1f-fe29-ec47-80c1-a386c35ce893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"96edc5b8-4ef1-c94a-818f-f5a96a641439"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921096056573544`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c51367ae-cef6-5c41-a88e-8e5ea6e1a20a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"708941cb-a3a5-e54e-bb40-daefd233b708"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992109605892563*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6d6898a7-ba09-684f-ab39-5b1a1efc924e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"5555416b-be67-5042-b0b0-59b97ae6edb3"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921096060529785`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b10444ee-3769-6a4a-9ed5-9dd0663d61c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"2911c1dc-149c-7440-a9aa-771caffdd5dc"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.992109606231552*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"bbb44830-1b15-8247-834a-1f8aa275e0a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"593e0efd-8e77-db47-859f-ecfe43b09741"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992109606406515*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"addeb39f-2ecd-b34f-82d3-c6cbd9b9648b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"ea2f6c5c-5c2c-c24e-9f30-84f28bc50c35"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992109606432686*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"9f519549-95c6-de4b-89fe-08472985ce8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"1ababc70-6150-5846-91a9-d660a9f9a67e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992109606446636*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b34172a8-4eef-ac4d-8069-43693fcc9c60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"1474f49b-9092-f140-95bb-72e241815f2e"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.99210960646043*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"89858ab3-46fa-d844-9aac-851252906c3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"e8c2feb4-92bd-7841-b6ef-3e4f56980121"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.992109606474596*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"a29cf6f6-8b46-b04b-9931-62cd5ae6cc83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"d0712258-5cdf-d84f-a90c-0bd8f16ed7ac"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921096064874783`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"5a3743ff-1ad2-5e47-adc2-8ca726c04c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"e80ec461-f58c-3a41-8a51-5ce0215747a4"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.99210960650745*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"b28d78b0-721c-5e4f-995f-1e85eea6a51e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"e7a54f02-e8fe-3449-be87-07e7449f49e2"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9921096065326614`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"78195888-f0e7-1c47-8bc4-8de64ce4ecc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"392bf6dd-56e8-8d45-a404-04d36f52457c"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9921096065452805`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"efa538f7-ddae-8d4c-bac0-bde89faa3904"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"a4bf94b1-872b-c44e-b0b5-ea82980c6498"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.9921096065713673`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"8adc0b83-b7c4-1244-b2b4-28ed204e79cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"63b2c61d-a6cb-9846-abc0-bea8cbedddc9"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921096065906296`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"208760b5-3431-9949-bc3d-78a5959c3339"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"5a33f683-67f9-2e4c-9d75-6668f054f7ec"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.992109606615362*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0a9ad17e-761c-6648-8e28-9de7a1bef1e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"852c4cc3-cc32-d341-b2e7-aaf1877a0b85"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992109606644783*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"a7883e95-d9c2-3648-a494-5b05664e3dd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"e6141e71-fa56-8440-92dc-fe9eaad0db2d"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9921096066654873`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"f30e0ee4-1790-2a48-95f5-ceab01e3f9a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"b0483f30-dff3-5b4c-b999-b882cea897cb"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.9921096066826935`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9026ed35-6d5c-9d4e-951c-07e836ddc9ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"fa9a97d0-df53-7447-92fc-35c155dcd720"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921096067348385`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"f5596963-44fb-b040-b137-5d34e9d72ea1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"91a92f00-9760-3d4f-904d-80df035e0096"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992109606772257*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"387fa299-4016-d948-9704-a0eec89cd849"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"3cc1e27a-ca24-114e-9c66-41e2a911610c"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.9921096067994347`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1e26b1f5-2e60-1d4f-b380-5cefce0e963a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"73776e57-9b30-1441-aab4-a1f5f42f120d"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992109606822544*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"65dadbf9-b8c6-cc40-8b7a-dee91bad4f89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.10045722207791"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, 3.992088732190998*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], + +Cell[BoxData["0.10045722207791`"], "Output", + CellChangeTimes->{3.992109606834923*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"a239eb39-d6a3-134c-a853-4230facf61d6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, 3.991847457122698*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.572083902248993"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, 3.992088738183317*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], + +Cell[BoxData["0.572083902248993`"], "Output", + CellChangeTimes->{3.9921096068502674`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"17186124-ae42-4d48-b08a-fc650d492e90"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, 3.9918474591064377`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.992109606870119*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"a5ee31fb-b85e-5248-bcc0-65fe47a2ebb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9, {3.9915584375659084`*^9, 3.9915584522049637`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], + +Cell[BoxData["8.929535587268165`*^-56"], "Output", + CellChangeTimes->{3.992109606899397*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"eabfe586-d950-284e-a5ee-55568e11b869"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, + 3.9915584476498585`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], + +Cell[BoxData["5.016159784621923`*^-54"], "Output", + CellChangeTimes->{3.9921096069417305`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5ee5dca0-1b43-8840-b3b4-78102887df34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], + +Cell[BoxData["46.9359074551804`"], "Output", + CellChangeTimes->{3.992109606956732*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"440b8370-393a-404b-852e-d85899ee7f75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["115.6434907823223`"], "Output", + CellChangeTimes->{3.9921096069699078`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f14e4444-991b-dd43-b839-32d4d5bd2b14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], + +Cell[BoxData["2.0612973725615147`"], "Output", + CellChangeTimes->{3.992109606984297*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"c3f12543-581c-0748-a57d-f828a470dbee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], + +Cell[BoxData["7.62588502528582`"], "Output", + CellChangeTimes->{3.9921096069975395`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e50d804a-d3c2-c34a-8850-554dc242d84d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], + +Cell[BoxData["881.8839646286904`"], "Output", + CellChangeTimes->{3.9921096070217667`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b4ade9a2-e436-f343-a919-1be5560d22b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["96.74886271615377`"], "Output", + CellChangeTimes->{3.9921096070449924`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"4917653c-d50d-ad42-af81-17902e00ff15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], + +Cell[BoxData["0.010307297986840226`"], "Output", + CellChangeTimes->{3.99210960706851*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3a9123bf-30df-4941-9217-c58b18be88ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData["8.729161424513658`"], "Output", + CellChangeTimes->{3.9921096073064327`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"cd8bbe3c-ed93-564b-95cf-593b6e8b9b34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], + +Cell[BoxData["0.0010547922667890118`"], "Output", + CellChangeTimes->{3.992109607330862*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"ab40c33a-b4e2-c34d-9eec-968c77921501"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], + +Cell[BoxData["27.28735695844119`"], "Output", + CellChangeTimes->{3.9921096075297527`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d67bf10a-7386-4844-b52c-a79317562e14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9921096075541153`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c3eb79fa-4fb4-bf4a-87a4-81220dabba4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921096075742702`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"83821887-dd58-7549-9156-ff4faa070c10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.992109607609543*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"ad354ce7-0796-1949-997d-7c1f1c4621bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847477953953*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 614, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096076710567`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"e5320d3e-ae0b-ec43-bab3-dad0443eba59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 615, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096077268944`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"4d38e58b-6838-c34f-9b57-2e75d2dc33d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 616, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096077439976`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a77914a7-b069-b14e-969f-570c20acae6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 617, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109607765007*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"d369d2bb-6d5e-534c-816e-56bff4f53fa6"], + +Cell[BoxData["8.72916142451366`"], "Output", + CellChangeTimes->{3.992109615417532*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"daa17776-4f93-7f49-a2fe-24e89dd70e2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847481589756*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 618, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096155823*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"be9878bf-4f97-e849-918c-720994ed09da"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 619, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096156162376`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"d7f5033b-9e87-314f-bbf7-5b2c741ad333"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 620, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109615635517*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ead88118-f56d-5f49-9c12-a33c8e9ba159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 621, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096156526165`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4b836978-fc40-1b41-a377-a0ab870081f1"], + +Cell[BoxData["27.287356958441137`"], "Output", + CellChangeTimes->{3.9921096230474377`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"d4fe0879-7657-3b4c-8dad-c81781067c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991847486086582*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6373062467407682, + 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6373062467407682, + 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6373062467407682, 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6373062467407696}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6373062467407682, 1.5148750147969003`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99211022356826*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e2f9067f-850c-9a4c-ab02-bd8a1df03859"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, 3.991847891020767*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.22048080986939`*^-270\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 622, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110223941353*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"0d5c0c65-b068-6440-9579-5a91dd4f118b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.102319174261917`*^-282\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 623, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921102239704475`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"de473ecb-83e5-534f-a565-dccce1defba1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.682862393712884`*^-295\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 624, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110223987459*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"b1da91c4-9bfa-7f45-9297-c4eb628dc75b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 625, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921102240063515`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"1f75219c-ad3d-7b4f-963e-f3de99d75029"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08708435930191807}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992110732607151*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"dc0827f7-ad93-1949-8c5f-cdc9e1376071"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920887801019936`*^9, 3.9920887811481247`*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992110732830179*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"55649c41-94da-fa4b-8c7a-517228ae0c44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08708435930191807}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921107329051437`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"b9dd4563-826d-fa45-b026-126726676ae8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.9918480149621506`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], + +Cell[BoxData["26.31786553178342`"], "Output", + CellChangeTimes->{3.9921107329665413`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"58dfbc60-6789-7b4b-9126-5dd69677b1e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918480132941303`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.029921483242923`*^-279\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 100, 626, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733259762*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"32649659-0367-0346-b721-a8ee92d84cc0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.40162776130444`*^-293\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 627, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733280798*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c8d3b9a3-af71-6544-9336-c2d39095ceb2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.085374273803878`*^-307\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 628, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921107333018055`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"cf525010-2df1-e445-895e-b3a6c553bebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 629, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733325714*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"55d17c00-ef34-f946-bcb8-f91ee8eb358d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.028884311758261866`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992111233158764*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"c8fa6e85-ca7e-d749-b59b-f81445ad3d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8675203755591973`*^-240\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 630, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111233300091*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c67f0021-f8ab-fe4b-bef4-f76286a20ca2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.371380919251974`*^-248\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 631, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333116055`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fc18f967-acb6-c840-a1c3-ef62dcde1cbe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0626732797528457`*^-255\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 632, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333374977`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7a0f5cbe-798b-3a43-8c0b-358fce5c421f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 633, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333633556`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0b54c598-4392-fb4e-a878-50de6763d592"], + +Cell[BoxData["26.317865531783397`"], "Output", + CellChangeTimes->{3.9921112771309433`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"6eb57d53-db36-bc4b-880f-c492f8a667b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475382015915`*^9, 3.9918475423636837`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 634, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112772805977`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"90a290c9-5087-4341-b751-747e3cd474ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 635, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773005943`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"08d40d32-85d6-294c-a6b2-56b21d28ab3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 636, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773166065`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aa7c009e-42c1-ac4d-9537-b8a3a9e64ca9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 637, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773346004`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"38de7700-d4d8-e142-9db4-4decfa8c7cb0"], + +Cell[BoxData["4.3301441814460935`"], "Output", + CellChangeTimes->{3.992111288056841*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"b0ee4c32-6317-3f44-8578-6eb265b3dcfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847547003359*^9, 3.9918475498243904`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 638, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288149748*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"1e8ca755-062d-d540-aef3-d434745279a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 639, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288186754*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"0bbb1f97-d204-3c47-9ff2-3e6dcf0d8e8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 640, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288218754*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"071dce6f-a76f-3d4e-8f34-7fe9d62ef95c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 641, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288237852*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"8888c9b0-8a07-fb47-a4fd-e02ec566caa0"], + +Cell[BoxData["20.820377646648332`"], "Output", + CellChangeTimes->{3.992111298514166*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"a7cb163e-7caf-1542-944e-319f2392364e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475561652145`*^9, 3.991847558757557*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 642, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99211129860021*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"2173b90f-23f5-2846-8375-66884c3def53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 643, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112986301117`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"01b90bb6-058a-1845-ab19-38491003c87e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 644, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99211129865711*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"fec4f3df-5edb-b042-ac11-875a7b95806e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 645, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111298676111*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"7ea16f80-fc4f-b641-8f55-6aaf6ed5b450"], + +Cell[BoxData["203.4541239630444`"], "Output", + CellChangeTimes->{3.992111305820421*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"bd1faab8-0e72-e24e-83e8-fefb98126575"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, 3.9918475715285187`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], + +Cell[BoxData["0.06653111584453447`"], "Output", + CellChangeTimes->{3.9921113059307976`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"185c0c3f-5ee4-d74d-80ba-6a79d831658e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], + +Cell[BoxData["1.2732308544160063`"], "Output", + CellChangeTimes->{3.992111305959635*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"70f4eacb-832e-4c41-91aa-147d0b6ae14b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], + +Cell[BoxData["12.515254397406263`"], "Output", + CellChangeTimes->{3.9921113059917564`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"77d6ed3c-64b6-8a4b-befd-1fe7b5770e20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["15.934808049643255`"], "Output", + CellChangeTimes->{3.9921113060166454`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"6f500449-dd0e-8649-b0fb-adbb87edd044"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], + +Cell[BoxData["0.06171094017808546`"], "Output", + CellChangeTimes->{3.9921113060462723`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"6b40fb94-b2c4-9046-86ab-0247e3d65634"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData["3.5674989927733827`"], "Output", + CellChangeTimes->{3.992111306271616*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"ec23a64f-874a-8a4b-be21-8e1397391c25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], + +Cell[BoxData["0.001153083452463589`"], "Output", + CellChangeTimes->{3.992111306300228*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"c9c5645c-04b5-fc46-ba21-079cf2546710"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData["26.098441326362945`"], "Output", + CellChangeTimes->{3.9921113065426483`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"4696d7eb-28ea-6f4b-9bfc-c415b99c38c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9921113065716476`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"a80721cc-91cf-aa4a-b26c-55571761b275"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921113066033363`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"27204d98-0d4b-714d-9977-012310a37a7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.992111306643053*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d5984f89-eb52-6d42-804d-3685337df3e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918476180917797`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 117, 646, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113066802692`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"19ad97d1-e4b2-1243-a73a-941a6829a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 647, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306724146*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4962cf58-aa6e-e941-b81c-1864640eca20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 648, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306756151*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2be79ac0-e9f0-0d4e-8008-9c32d29ae57e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 649, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306776249*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"0ffc045a-0a2d-6b47-99dd-078f68922aa6"], + +Cell[BoxData["3.5674989927733836`"], "Output", + CellChangeTimes->{3.992111312884596*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"39d86737-c549-9442-8946-a306217cd3de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918476209740715`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 118, 650, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113129795876`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"93eb5cb5-8c41-ef49-a079-9d805e210f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 118, 651, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113130075912`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"0c93c049-729e-9744-9ce3-e0826fe78acd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 118, 652, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111313029688*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"df804e3f-a9be-cc4f-bb66-6337a91642ad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 653, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113130526867`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"df34a7e1-5a90-704d-b485-9ff27d8d4a4f"], + +Cell[BoxData["26.098441326362963`"], "Output", + CellChangeTimes->{3.9921113190258465`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"b400d4cd-d162-d74b-888a-c18df43261a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918476243275547`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9897041767414709, + 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9897041767414709, + 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9897041767414709, 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9897041767414732}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9897041767414709, 1.0103824702261712`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921119400309277`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"b1777edd-dc55-8049-91b8-b862ba2160b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, 3.9918479465064144`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.300955133069278`*^-291\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 120, 654, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404476223`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"39b7f16f-228a-c541-8cbe-392f836a4360"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.698818453494929`*^-306\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 655, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404686203`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"2fc896c2-6dc6-3243-bb3f-a069e1b4320f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.2685777813421294`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 656, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404887257`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"a22bb038-0e09-c342-b4a6-b4e7358db9f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 657, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119405067177`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"9211017a-6c3d-6c4f-a73e-338cb9316964"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21308275435714077`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921130121545124`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1b40c314-5709-9a4d-928a-39e6438f8355"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|> + , "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21308275435714077`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921130123273087`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"40638c45-c86d-7548-8e86-ee6f812d15c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1858108896994459`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 658, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113012427273*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"fccf9ad5-768f-aa46-b2be-4514d63a854a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4285997747323577`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 659, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113012449276*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"610843a2-592c-2c4d-b17e-e3c31fe8e872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7210984770789436`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 660, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130124732666`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6c936a58-f49b-c344-98d5-a44b5064c7ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 661, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130124992733`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"71a2acba-fa3a-1549-bade-61c67b202e1a"], + +Cell[BoxData["26.317865531783436`"], "Output", + CellChangeTimes->{3.992113095225609*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"97cfae6c-c065-a844-be76-0428d1006809"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847653697838*^9, 3.991847658442892*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 123, 662, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953283463`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"028be4b4-912b-324e-939d-a0d250e0021e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 663, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953463554`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"dca5b815-9844-1244-983e-451ffcf2a9e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 664, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113095364254*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"98e39870-633d-ec4e-9b56-e246fc40b688"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 665, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953863525`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"328c80df-10f2-f244-9bda-e4f5555f39b7"], + +Cell[BoxData["0.0010083944436825147`"], "Output", + CellChangeTimes->{3.992113104559675*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0631cb22-b670-3846-ad15-69639b34022b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847661764683*^9, 3.991847664668476*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 124, 666, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046406937`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a82d887b-cf97-6b46-a81b-193dcc5db986"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 667, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046585827`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a9905666-f15b-4c40-8781-b88430d867e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 668, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046776867`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"0845c60d-d0dd-2e49-909d-096abc25c63c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 669, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113104697687*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"af33df1d-0871-2e4d-bf1f-afb5e3a9b3ee"], + +Cell[BoxData["3.4775330919161767`"], "Output", + CellChangeTimes->{3.9921131132556973`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"78a3b590-1bdd-8b4d-b726-29e6c53ab39e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918476677400265`*^9, 3.9918476736757298`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 125, 670, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113113381714*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"45fdeccf-459c-4240-bc03-bfca0b0bbd02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 671, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131134136047`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4e1e727b-aa53-ec46-a783-e278e6529280"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 125, 672, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113113432705*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4d3c3bfb-fecf-6c4b-887a-0eaa241bd20d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 673, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131134526997`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4e59ee48-9d44-184b-9c04-eafa5d094697"], + +Cell[BoxData["186.11127940831187`"], "Output", + CellChangeTimes->{3.992113119055355*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2b9e0d78-970e-8649-92dd-a3e019636172"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, 3.9918476808687553`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], + +Cell[BoxData["0.00003963770133558771`"], "Output", + CellChangeTimes->{3.9921131191686783`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"d13ae2fe-024d-084b-a317-157213c4ff24"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], + +Cell[BoxData["1.283309142944473`"], "Output", + CellChangeTimes->{3.992113119203911*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"b9201ddd-7c20-7e4a-8265-51dcc39e73a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], + +Cell[BoxData["12.466014133126249`"], "Output", + CellChangeTimes->{3.992113119220913*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"2944e89a-4f02-5847-8353-94d2e5ac1dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["15.997749913115934`"], "Output", + CellChangeTimes->{3.9921131192369156`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"d3b4e679-eaee-9d44-9a2a-89e4272596ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], + +Cell[BoxData["0.061472169879239466`"], "Output", + CellChangeTimes->{3.9921131192596874`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"8d329473-571e-0142-b3e0-33fc6339b70d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData["3.5744207205379914`"], "Output", + CellChangeTimes->{3.992113119498785*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"15d28748-874b-4144-9954-8631e6cdd1db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], + +Cell[BoxData["0.001152999770944126`"], "Output", + CellChangeTimes->{3.9921131195240364`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"6283aa2c-c7ea-f94e-aa33-c6dc4e7368d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData["26.09938838535457`"], "Output", + CellChangeTimes->{3.9921131197421627`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"9fdbde2e-6fae-9843-b3b0-de88109ff1c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.992113119762062*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"5d9fdd3f-b9c9-5845-84dc-8ee718f98c42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921131197821026`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"10aee8b1-4533-594c-9e18-abc1e63104d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9921131198091545`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"45e92fd4-f829-a043-9bc7-4c8a64477bd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918477038948536`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 674, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198503876`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"c6de5648-07bc-ce4c-b124-1ac24d3aea7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 675, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198774776`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9db0dd19-137d-1741-ba20-1b734cb493f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 138, 676, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198993664`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b4a473fa-0025-0e47-a404-994a4f92ba5a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 677, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131199153767`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6996ccf4-f04f-ca4f-a061-e46f26aea6f9"], + +Cell[BoxData["3.5744207205379914`"], "Output", + CellChangeTimes->{3.9921131260295944`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"fa45c27f-0111-b148-a46f-76badc1f0358"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918477072468624`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 139, 678, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131261355286`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b262bfc8-b51f-f049-949d-0ae5325b0332"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 139, 679, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113126151636*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fc021f2b-f23e-f043-aa94-157b8059cf74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 139, 680, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131261705894`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"612049b8-ee24-6746-863b-ebc5ceb54f21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 681, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113126192623*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"e43f47bf-22e5-7d40-9ec4-0c62ad635cec"], + +Cell[BoxData["26.099388385354565`"], "Output", + CellChangeTimes->{3.992113132528944*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"01d612ef-be18-bb43-8dbe-be9c8d4bcf5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991847711887806*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9888992232343078, + 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9888992232343078, + 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9888992232343078, 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.98889922323431}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9888992232343078, 1.0112015682907392`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992113749938076*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"1cfbf3b0-25d6-9742-bb99-44d92673cb9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, 3.9918479312310715`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.418413100873567`*^-290\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 141, 682, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503121834`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ebcf9d8d-97a7-3847-a420-1110b6ac001d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.231015682346092`*^-305\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 683, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503361855`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"6db21928-6d80-d248-959a-e4223847d20e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.4419314972389574`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 141, 684, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113750356188*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8ec0d6e3-ddb3-224b-ae69-b8981713a6a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 685, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503731937`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"6c6793ff-2734-6248-a27b-1d436984beab"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21267024503217932`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921148559214935`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"7f9f164f-d33e-9141-aa0d-52309adab880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|> + , "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.21267024503217932`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921148560525*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f99b5e51-f810-424c-83fc-639cdac82da5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.788167829704626`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 686, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148561574516`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c3c59255-09e0-bd48-b05c-b559a04c6289"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0504354047601841`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 687, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148561824455`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"71800716-54d7-f547-9eb9-a3a460a70ff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2555683516239552`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 688, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148562003555`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"66c2900a-3555-2d46-9a88-cef06c7bda00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 689, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114856219454*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ab6e7881-9886-f74f-b670-4935abc610db"], + +Cell[BoxData["26.317865531783415`"], "Output", + CellChangeTimes->{3.992114937198139*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"5ed9662d-6924-7943-8732-574edf964492"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847745338249*^9, 3.9918477508965435`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 690, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373523827`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d9c484ff-2231-9f46-9926-337a0b7dfc7a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 691, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373774796`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"74f74dcd-4eb4-3f41-9d7a-e19c328f436c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 692, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373954315`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ff3479fd-cd23-1148-9960-aef5cc33e18c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 693, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149374124775`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1134b4c1-359a-f848-adbe-a1e88101fe03"], + +Cell[BoxData["0.0011753218379237402`"], "Output", + CellChangeTimes->{3.9921149466149445`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2dfe7fd2-1c2a-d243-b913-c454686fd572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918477556924458`*^9, 3.991847758600897*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 694, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149466988487`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"977b1147-216c-2a44-b914-bd3cbad86183"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 695, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149467169437`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"dfd15a78-bd0d-5949-b1ba-f2ea54c0d390"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 696, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114946739847*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"443b0185-235a-d140-8953-5402b20e55b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 697, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114946770952*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"fc70e0ba-cad2-e844-be3f-5ea448bb637e"], + +Cell[BoxData["3.4910405314166053`"], "Output", + CellChangeTimes->{3.992114955336405*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"2812e1af-de55-8e4f-9209-f6d332ea1a90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847762058655*^9, 3.9918477649417477`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 146, 698, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955482542*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"d59783f2-d080-a043-a5eb-9fc4d05c5ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 146, 699, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149555295353`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"faed6dfb-29ec-b74f-b8fc-fa58eba8a71b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 700, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955547634*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"0c80e423-2469-6a4d-8ffc-ceeac846c33f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 701, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955561653*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"94628aa9-24b3-4546-8bf6-3ffd53ee1e4b"], + +Cell[BoxData["186.12478684781294`"], "Output", + CellChangeTimes->{3.9921149613447685`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e14e0b70-c491-9f44-b1ce-1f4eeb269f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, 3.99184777089764*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], + +Cell[BoxData["0.000046108102862267437`"], "Output", + CellChangeTimes->{3.9921149614174194`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"33005208-1af3-b04b-a5be-0a4cb0e9bab5"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 22, "Input",ExpressionUUID->"decf87f5-69e6-d145-96ee-b1c4602a22f7"], +Cell[981, 31, 202, 3, 25, "Output",ExpressionUUID->"037f92dd-f7d4-dd42-8d89-71be0ece8f89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1220, 39, 348, 5, 22, "Input",ExpressionUUID->"8e5ddefa-2b5c-6247-af17-e3667ab45a14"], +Cell[1571, 46, 427, 6, 25, "Output",ExpressionUUID->"7789abd9-a823-f641-8cff-f98715a0b74c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 22, "Input",ExpressionUUID->"8a146821-63d3-254d-a6aa-0fea2d176440"], +Cell[2262, 63, 419, 6, 25, "Output",ExpressionUUID->"71ea40e9-b179-bd47-829a-c620683ff078"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2718, 74, 175, 3, 22, "Input",ExpressionUUID->"7295cc77-b1eb-c148-a8f8-0524ae53fa9e"], +Cell[2896, 79, 401, 6, 25, "Output",ExpressionUUID->"8b78feac-6cbf-3649-8c34-d9a2e0343aa5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3334, 90, 257, 7, 35, "Input",ExpressionUUID->"427bcb6b-7203-4f4c-8b5f-92422f3332dd"], +Cell[3594, 99, 421, 6, 25, "Output",ExpressionUUID->"bda5a226-706a-4948-bfcb-3a10753e2b6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4052, 110, 131, 2, 22, "Input",ExpressionUUID->"e6a2dce0-48a1-a54b-87dd-64a39dc278b4"], +Cell[4186, 114, 405, 6, 25, "Output",ExpressionUUID->"c08867b0-eaaa-d443-bee6-aa10d5507e37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4628, 125, 276, 6, 22, "Input",ExpressionUUID->"b34f20c3-bc0e-7a48-88ab-231ba26f94ee"], +Cell[4907, 133, 415, 6, 25, "Output",ExpressionUUID->"8309cc1e-4e7a-c245-9b75-ad6b7eee8803"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5359, 144, 257, 7, 22, "Input",ExpressionUUID->"17226ba2-7113-be41-8022-c382d0d83c53"], +Cell[5619, 153, 415, 6, 25, "Output",ExpressionUUID->"e9200f28-724e-4a4a-af0e-d800b26343bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6071, 164, 266, 5, 22, "Input",ExpressionUUID->"baab3e06-2bee-bf4a-8618-822c95e824b3"], +Cell[6340, 171, 434, 6, 25, "Output",ExpressionUUID->"d460e0c9-c573-0343-b6c2-db2829ea09a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6811, 182, 265, 5, 22, "Input",ExpressionUUID->"7c3df1a3-2591-9d46-b7f7-9a56a5f63bc3"], +Cell[7079, 189, 437, 6, 25, "Output",ExpressionUUID->"0424535a-cb05-1e46-a721-1451ca3ad51a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7553, 200, 129, 2, 22, "Input",ExpressionUUID->"de60ffba-7cbc-5847-8549-d4fbe4875db8"], +Cell[7685, 204, 394, 6, 25, "Output",ExpressionUUID->"f4e5fb0e-749f-1a4a-ae0a-019dc46fb26f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8116, 215, 129, 2, 22, "Input",ExpressionUUID->"69dc8ea6-676a-dc49-9351-23993cceae89"], +Cell[8248, 219, 394, 6, 25, "Output",ExpressionUUID->"61afd43e-bef6-8b44-928b-7b9781b3acb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8679, 230, 557, 19, 65, "Input",ExpressionUUID->"ec44c837-c052-fc4b-b261-10c7daf03ac1"], +Cell[9239, 251, 396, 6, 25, "Output",ExpressionUUID->"0c8eb7b6-c1c9-a24b-9ea7-2bbd4352dac1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9672, 262, 557, 19, 65, "Input",ExpressionUUID->"903d3654-408b-a548-a092-284ecafd818f"], +Cell[10232, 283, 392, 6, 25, "Output",ExpressionUUID->"42ed48f2-7ef5-1846-904f-9ebc55fb6977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10661, 294, 1492, 48, 65, "Input",ExpressionUUID->"c11e02a6-b1fe-f849-935d-f92cea21acd7"], +Cell[12156, 344, 396, 6, 25, "Output",ExpressionUUID->"b1cd425e-0025-304a-a71f-e374a32632e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12589, 355, 1331, 44, 65, "Input",ExpressionUUID->"7780fc5c-1700-dc4d-a078-34ee438027dd"], +Cell[13923, 401, 409, 7, 25, "Output",ExpressionUUID->"58290a99-eddd-2a4a-9e68-9ec70d9a630f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14369, 413, 1331, 44, 65, "Input",ExpressionUUID->"0f58db59-f855-dd43-8594-5f641286c017"], +Cell[15703, 459, 412, 7, 25, "Output",ExpressionUUID->"14d13c4a-1bab-1c40-a445-e8a7a9b887f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16152, 471, 1492, 48, 65, "Input",ExpressionUUID->"41eb03c2-c064-b149-b5d2-584b0fd9db0a"], +Cell[17647, 521, 391, 6, 25, "Output",ExpressionUUID->"b189f191-1a9a-114c-b824-de338a8889b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18075, 532, 131, 2, 22, "Input",ExpressionUUID->"98b38ee5-898b-4346-917d-7a87820c915c"], +Cell[18209, 536, 371, 6, 25, "Output",ExpressionUUID->"04fd09cf-8783-524f-b249-0904c7c74e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18617, 547, 177, 3, 22, "Input",ExpressionUUID->"7d9f16ed-a447-3941-8b54-dce1ce689754"], +Cell[18797, 552, 372, 6, 25, "Output",ExpressionUUID->"28745d6d-37b1-c441-b0c8-5e12f448417d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19206, 563, 134, 2, 22, "Input",ExpressionUUID->"b09734e4-465e-a14c-9263-94c6edb02ca1"], +Cell[19343, 567, 376, 6, 25, "Output",ExpressionUUID->"eafa1984-4a8c-5340-91cf-59e74f192a05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19756, 578, 219, 4, 22, "Input",ExpressionUUID->"f29a2307-3447-1943-ad48-50f33841cc64"], +Cell[19978, 584, 393, 7, 25, "Output",ExpressionUUID->"0fa286b7-e602-7a4a-a92b-e3af361cba0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20408, 596, 134, 2, 22, "Input",ExpressionUUID->"718c455f-8eef-1340-9f83-7e9fc093ef89"], +Cell[20545, 600, 380, 6, 25, "Output",ExpressionUUID->"b42251b2-cc66-b943-8221-5a127e24c64c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20962, 611, 302, 5, 22, "Input",ExpressionUUID->"abe15f34-4031-994f-9573-919cbff5ae28"], +Cell[21267, 618, 321, 5, 25, "Output",ExpressionUUID->"f50f8890-1337-5c46-b3cc-60cc1b458829"] +}, Open ]], +Cell[21603, 626, 173, 2, 22, "Input",ExpressionUUID->"f54cbe34-7d26-ac45-b04d-4a0dfc786756"], +Cell[CellGroupData[{ +Cell[21801, 632, 322, 6, 22, "Input",ExpressionUUID->"e1ee6a2a-ad12-8c4a-ae1e-ef92600b7ef6"], +Cell[22126, 640, 376, 6, 25, "Output",ExpressionUUID->"289b7694-e5cb-ad44-b982-62789f1432bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22539, 651, 219, 4, 22, "Input",ExpressionUUID->"72c6f3b5-aacd-764e-a14b-934f0a2d9058"], +Cell[22761, 657, 380, 6, 25, "Output",ExpressionUUID->"cb1050b7-2889-ca49-933d-fae85067be83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23178, 668, 350, 10, 35, "Input",ExpressionUUID->"8d56e723-95f7-6a47-9bf1-95688d14840e"], +Cell[23531, 680, 396, 6, 25, "Output",ExpressionUUID->"4b038fb7-920c-d147-9d67-db9591bb424e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23964, 691, 350, 10, 35, "Input",ExpressionUUID->"fc1da402-09a7-0b43-a5f1-0e0072c9924b"], +Cell[24317, 703, 412, 7, 25, "Output",ExpressionUUID->"e45030cb-0044-3649-aba8-852d9a444399"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24766, 715, 992, 26, 92, "Input",ExpressionUUID->"fa3765b6-425c-014a-8bca-452a47a684d1"], +Cell[25761, 743, 389, 6, 25, "Output",ExpressionUUID->"c82d18c4-ed50-7c47-81c7-3a425d3051e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26187, 754, 199, 3, 22, "Input",ExpressionUUID->"9c05f553-4d62-174a-afaa-6c2d98d8398c"], +Cell[26389, 759, 375, 6, 25, "Output",ExpressionUUID->"7a12913a-da48-694f-a357-4dfd7f41225b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26801, 770, 273, 4, 22, "Input",ExpressionUUID->"0092b9dd-a828-174c-9f21-7ca0983820ad"], +Cell[27077, 776, 337, 5, 25, "Output",ExpressionUUID->"25b0ec7f-f5fc-e946-84fb-bc072d1a78f4"] +}, Open ]], +Cell[27429, 784, 175, 2, 22, "Input",ExpressionUUID->"4bcb9c4c-d2b7-9c48-913d-55402ef0fcfa"], +Cell[CellGroupData[{ +Cell[27629, 790, 344, 6, 37, "Input",ExpressionUUID->"0f0e26aa-0a4b-e248-95f9-dce212751b21"], +Cell[27976, 798, 326, 5, 25, "Output",ExpressionUUID->"0dd3578a-5406-2345-97c6-197f49623abf"] +}, Open ]], +Cell[28317, 806, 173, 2, 22, "Input",ExpressionUUID->"fd088c34-4c8f-be4a-90b1-8e9cebf9d8af"], +Cell[CellGroupData[{ +Cell[28515, 812, 343, 6, 37, "Input",ExpressionUUID->"7a1ce979-d02f-c14c-b529-a5816c5f6ff2"], +Cell[28861, 820, 329, 5, 25, "Output",ExpressionUUID->"386d65ee-8569-1d40-a192-0c5b598d715a"] +}, Open ]], +Cell[29205, 828, 175, 2, 22, "Input",ExpressionUUID->"d5070180-8e6f-c14a-969e-b70ae8ba5b81"], +Cell[CellGroupData[{ +Cell[29405, 834, 349, 6, 37, "Input",ExpressionUUID->"33ef9ecf-fe4f-5a4e-b834-98d5e1d4b9a3"], +Cell[29757, 842, 328, 5, 25, "Output",ExpressionUUID->"0c5704be-782c-984d-90bd-7014d381ba78"] +}, Open ]], +Cell[30100, 850, 175, 2, 22, "Input",ExpressionUUID->"4d99777a-a73d-3c4c-a873-cf9287520628"], +Cell[CellGroupData[{ +Cell[30300, 856, 275, 4, 22, "Input",ExpressionUUID->"c4da4ab8-da50-d140-91ed-bb4066d15de8"], +Cell[30578, 862, 328, 5, 25, "Output",ExpressionUUID->"2dfe1558-cb56-b048-8672-0dc5f266beaf"] +}, Open ]], +Cell[30921, 870, 173, 2, 22, "Input",ExpressionUUID->"e4a8db4e-c5ef-f345-89f9-2f0eb815fbe1"], +Cell[CellGroupData[{ +Cell[31119, 876, 277, 4, 22, "Input",ExpressionUUID->"47599e08-b2e7-a24b-961e-ebca74dfa067"], +Cell[31399, 882, 330, 5, 25, "Output",ExpressionUUID->"351c888e-d7c6-5443-8419-831a2773e27a"] +}, Open ]], +Cell[31744, 890, 171, 2, 22, "Input",ExpressionUUID->"5abac94d-6a40-7b4e-a070-b0cdf9d611ef"], +Cell[CellGroupData[{ +Cell[31940, 896, 306, 5, 22, "Input",ExpressionUUID->"4bd0080e-efc5-924d-a473-45f092280dce"], +Cell[32249, 903, 328, 5, 25, "Output",ExpressionUUID->"af8dbf57-4bc3-814f-948e-e7716d6fd140"] +}, Open ]], +Cell[32592, 911, 175, 2, 22, "Input",ExpressionUUID->"625a868e-ee7b-4d49-9d19-38755610271f"], +Cell[CellGroupData[{ +Cell[32792, 917, 251, 4, 22, "Input",ExpressionUUID->"739c797d-3b78-0042-9a14-ddf85766de83"], +Cell[33046, 923, 324, 5, 25, "Output",ExpressionUUID->"3d6724c6-71f4-5b42-a14c-d169029f383d"] +}, Open ]], +Cell[33385, 931, 171, 2, 22, "Input",ExpressionUUID->"ecd0b3c7-07cc-5848-98fb-ada047a431f8"], +Cell[CellGroupData[{ +Cell[33581, 937, 19809, 485, 1553, "Input",ExpressionUUID->"11051a1e-7803-124a-bbf6-5e5b0c006c65"], +Cell[53393, 1424, 393, 6, 25, "Output",ExpressionUUID->"f6f9cf1f-fe29-ec47-80c1-a386c35ce893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53823, 1435, 19748, 489, 1579, "Input",ExpressionUUID->"96edc5b8-4ef1-c94a-818f-f5a96a641439"], +Cell[73574, 1926, 394, 6, 25, "Output",ExpressionUUID->"c51367ae-cef6-5c41-a88e-8e5ea6e1a20a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74005, 1937, 19748, 483, 1572, "Input",ExpressionUUID->"708941cb-a3a5-e54e-bb40-daefd233b708"], +Cell[93756, 2422, 407, 7, 25, "Output",ExpressionUUID->"6d6898a7-ba09-684f-ab39-5b1a1efc924e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94200, 2434, 22534, 553, 1766, "Input",ExpressionUUID->"5555416b-be67-5042-b0b0-59b97ae6edb3"], +Cell[116737, 2989, 409, 7, 25, "Output",ExpressionUUID->"b10444ee-3769-6a4a-9ed5-9dd0663d61c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117183, 3001, 22535, 553, 1773, "Input",ExpressionUUID->"2911c1dc-149c-7440-a9aa-771caffdd5dc"], +Cell[139721, 3556, 404, 7, 25, "Output",ExpressionUUID->"bbb44830-1b15-8247-834a-1f8aa275e0a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140162, 3568, 25491, 626, 1984, "Input",ExpressionUUID->"593e0efd-8e77-db47-859f-ecfe43b09741"], +Cell[165656, 4196, 403, 7, 25, "Output",ExpressionUUID->"addeb39f-2ecd-b34f-82d3-c6cbd9b9648b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166096, 4208, 130, 2, 22, "Input",ExpressionUUID->"ea2f6c5c-5c2c-c24e-9f30-84f28bc50c35"], +Cell[166229, 4212, 370, 6, 25, "Output",ExpressionUUID->"9f519549-95c6-de4b-89fe-08472985ce8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166636, 4223, 130, 2, 22, "Input",ExpressionUUID->"1ababc70-6150-5846-91a9-d660a9f9a67e"], +Cell[166769, 4227, 372, 6, 25, "Output",ExpressionUUID->"b34172a8-4eef-ac4d-8069-43693fcc9c60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167178, 4238, 1144, 39, 46, "Input",ExpressionUUID->"1474f49b-9092-f140-95bb-72e241815f2e"], +Cell[168325, 4279, 391, 6, 25, "Output",ExpressionUUID->"89858ab3-46fa-d844-9aac-851252906c3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168753, 4290, 1041, 35, 46, "Input",ExpressionUUID->"e8c2feb4-92bd-7841-b6ef-3e4f56980121"], +Cell[169797, 4327, 407, 7, 25, "Output",ExpressionUUID->"a29cf6f6-8b46-b04b-9931-62cd5ae6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170241, 4339, 1144, 39, 46, "Input",ExpressionUUID->"d0712258-5cdf-d84f-a90c-0bd8f16ed7ac"], +Cell[171388, 4380, 395, 6, 25, "Output",ExpressionUUID->"5a3743ff-1ad2-5e47-adc2-8ca726c04c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171820, 4391, 108, 1, 22, "Input",ExpressionUUID->"e80ec461-f58c-3a41-8a51-5ce0215747a4"], +Cell[171931, 4394, 387, 6, 25, "Output",ExpressionUUID->"b28d78b0-721c-5e4f-995f-1e85eea6a51e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172355, 4405, 108, 1, 22, "Input",ExpressionUUID->"e7a54f02-e8fe-3449-be87-07e7449f49e2"], +Cell[172466, 4408, 417, 7, 25, "Output",ExpressionUUID->"78195888-f0e7-1c47-8bc4-8de64ce4ecc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172920, 4420, 108, 1, 22, "Input",ExpressionUUID->"392bf6dd-56e8-8d45-a404-04d36f52457c"], +Cell[173031, 4423, 407, 7, 25, "Output",ExpressionUUID->"efa538f7-ddae-8d4c-bac0-bde89faa3904"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173475, 4435, 108, 1, 22, "Input",ExpressionUUID->"a4bf94b1-872b-c44e-b0b5-ea82980c6498"], +Cell[173586, 4438, 395, 6, 25, "Output",ExpressionUUID->"8adc0b83-b7c4-1244-b2b4-28ed204e79cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174018, 4449, 107, 1, 22, "Input",ExpressionUUID->"63b2c61d-a6cb-9846-abc0-bea8cbedddc9"], +Cell[174128, 4452, 393, 6, 25, "Output",ExpressionUUID->"208760b5-3431-9949-bc3d-78a5959c3339"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174558, 4463, 107, 1, 22, "Input",ExpressionUUID->"5a33f683-67f9-2e4c-9d75-6668f054f7ec"], +Cell[174668, 4466, 391, 6, 25, "Output",ExpressionUUID->"0a9ad17e-761c-6648-8e28-9de7a1bef1e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175096, 4477, 497, 16, 46, "Input",ExpressionUUID->"852c4cc3-cc32-d341-b2e7-aaf1877a0b85"], +Cell[175596, 4495, 407, 7, 25, "Output",ExpressionUUID->"a7883e95-d9c2-3648-a494-5b05664e3dd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176040, 4507, 497, 16, 46, "Input",ExpressionUUID->"e6141e71-fa56-8440-92dc-fe9eaad0db2d"], +Cell[176540, 4525, 406, 7, 25, "Output",ExpressionUUID->"f30e0ee4-1790-2a48-95f5-ceab01e3f9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176983, 4537, 1788, 60, 109, "Input",ExpressionUUID->"b0483f30-dff3-5b4c-b999-b882cea897cb"], +Cell[178774, 4599, 391, 6, 25, "Output",ExpressionUUID->"9026ed35-6d5c-9d4e-951c-07e836ddc9ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179202, 4610, 1101, 36, 64, "Input",ExpressionUUID->"fa9a97d0-df53-7447-92fc-35c155dcd720"], +Cell[180306, 4648, 411, 7, 25, "Output",ExpressionUUID->"f5596963-44fb-b040-b137-5d34e9d72ea1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180754, 4660, 1818, 61, 90, "Input",ExpressionUUID->"91a92f00-9760-3d4f-904d-80df035e0096"], +Cell[182575, 4723, 390, 6, 25, "Output",ExpressionUUID->"387fa299-4016-d948-9704-a0eec89cd849"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183002, 4734, 2499, 77, 72, "Input",ExpressionUUID->"3cc1e27a-ca24-114e-9c66-41e2a911610c"], +Cell[185504, 4813, 392, 6, 25, "Output",ExpressionUUID->"1e26b1f5-2e60-1d4f-b380-5cefce0e963a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185933, 4824, 2499, 77, 72, "Input",ExpressionUUID->"73776e57-9b30-1441-aab4-a1f5f42f120d"], +Cell[188435, 4903, 389, 6, 25, "Output",ExpressionUUID->"65dadbf9-b8c6-cc40-8b7a-dee91bad4f89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188861, 4914, 208, 3, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[189072, 4919, 165, 2, 25, "Output",ExpressionUUID->"a239eb39-d6a3-134c-a853-4230facf61d6"] +}, Open ]], +Cell[189252, 4924, 171, 2, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[CellGroupData[{ +Cell[189448, 4930, 211, 3, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[189662, 4935, 168, 2, 25, "Output",ExpressionUUID->"17186124-ae42-4d48-b08a-fc650d492e90"] +}, Open ]], +Cell[189845, 4940, 175, 2, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[190045, 4946, 1297, 42, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[191345, 4990, 171, 2, 25, "Output",ExpressionUUID->"a5ee31fb-b85e-5248-bcc0-65fe47a2ebb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191553, 4997, 931, 29, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[192487, 5028, 171, 2, 25, "Output",ExpressionUUID->"eabfe586-d950-284e-a5ee-55568e11b869"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192695, 5035, 983, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[193681, 5069, 173, 2, 25, "Output",ExpressionUUID->"5ee5dca0-1b43-8840-b3b4-78102887df34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193891, 5076, 554, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[194448, 5096, 165, 2, 25, "Output",ExpressionUUID->"440b8370-393a-404b-852e-d85899ee7f75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194650, 5103, 647, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[195300, 5126, 168, 2, 25, "Output",ExpressionUUID->"f14e4444-991b-dd43-b839-32d4d5bd2b14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195505, 5133, 166, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[195674, 5139, 167, 2, 25, "Output",ExpressionUUID->"c3f12543-581c-0748-a57d-f828a470dbee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195878, 5146, 166, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[196047, 5152, 167, 2, 25, "Output",ExpressionUUID->"e50d804a-d3c2-c34a-8850-554dc242d84d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196251, 5159, 177, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[196431, 5165, 168, 2, 25, "Output",ExpressionUUID->"b4ade9a2-e436-f343-a919-1be5560d22b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196636, 5172, 177, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[196816, 5178, 168, 2, 25, "Output",ExpressionUUID->"4917653c-d50d-ad42-af81-17902e00ff15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197021, 5185, 6051, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[203075, 5371, 168, 2, 25, "Output",ExpressionUUID->"3a9123bf-30df-4941-9217-c58b18be88ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203280, 5378, 364, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[203647, 5388, 168, 2, 25, "Output",ExpressionUUID->"cd8bbe3c-ed93-564b-95cf-593b6e8b9b34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203852, 5395, 6118, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[209973, 5583, 170, 2, 25, "Output",ExpressionUUID->"ab40c33a-b4e2-c34d-9eec-968c77921501"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210180, 5590, 364, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[210547, 5600, 168, 2, 25, "Output",ExpressionUUID->"d67bf10a-7386-4844-b52c-a79317562e14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210752, 5607, 2659, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[213414, 5696, 169, 2, 25, "Output",ExpressionUUID->"c3eb79fa-4fb4-bf4a-87a4-81220dabba4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213620, 5703, 2599, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[216222, 5789, 171, 2, 25, "Output",ExpressionUUID->"83821887-dd58-7549-9156-ff4faa070c10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216430, 5796, 3708, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[220141, 5915, 169, 2, 25, "Output",ExpressionUUID->"ad354ce7-0796-1949-997d-7c1f1c4621bf"] +}, Open ]], +Cell[220325, 5920, 160, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[220510, 5927, 2071, 58, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[222584, 5987, 538, 11, 50, "Message",ExpressionUUID->"e5320d3e-ae0b-ec43-bab3-dad0443eba59"], +Cell[223125, 6000, 541, 11, 50, "Message",ExpressionUUID->"4d38e58b-6838-c34f-9b57-2e75d2dc33d6"], +Cell[223669, 6013, 543, 11, 50, "Message",ExpressionUUID->"a77914a7-b069-b14e-969f-570c20acae6b"], +Cell[224215, 6026, 454, 10, 20, "Message",ExpressionUUID->"d369d2bb-6d5e-534c-816e-56bff4f53fa6"], +Cell[224672, 6038, 165, 2, 25, "Output",ExpressionUUID->"daa17776-4f93-7f49-a2fe-24e89dd70e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224874, 6045, 2071, 58, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[226948, 6105, 534, 11, 50, "Message",ExpressionUUID->"be9878bf-4f97-e849-918c-720994ed09da"], +Cell[227485, 6118, 541, 11, 50, "Message",ExpressionUUID->"d7f5033b-9e87-314f-bbf7-5b2c741ad333"], +Cell[228029, 6131, 541, 11, 50, "Message",ExpressionUUID->"ead88118-f56d-5f49-9c12-a33c8e9ba159"], +Cell[228573, 6144, 456, 10, 20, "Message",ExpressionUUID->"4b836978-fc40-1b41-a377-a0ab870081f1"], +Cell[229032, 6156, 169, 2, 25, "Output",ExpressionUUID->"d4fe0879-7657-3b4c-8dad-c81781067c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229238, 6163, 1955, 52, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[231196, 6217, 20319, 380, 189, "Output",ExpressionUUID->"e2f9067f-850c-9a4c-ab02-bd8a1df03859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251552, 6602, 2160, 60, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[253715, 6664, 489, 11, 33, "Message",ExpressionUUID->"0d5c0c65-b068-6440-9579-5a91dd4f118b"], +Cell[254207, 6677, 495, 11, 33, "Message",ExpressionUUID->"de473ecb-83e5-534f-a565-dccce1defba1"], +Cell[254705, 6690, 495, 11, 33, "Message",ExpressionUUID->"b1da91c4-9bfa-7f45-9297-c4eb628dc75b"], +Cell[255203, 6703, 456, 10, 20, "Message",ExpressionUUID->"1f75219c-ad3d-7b4f-963e-f3de99d75029"], +Cell[255662, 6715, 21749, 402, 187, "Output",ExpressionUUID->"dc0827f7-ad93-1949-8c5f-cdc9e1376071"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277448, 7122, 1888, 50, 81, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[279339, 7174, 8993, 209, 192, "Output",ExpressionUUID->"55649c41-94da-fa4b-8c7a-517228ae0c44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288369, 7388, 276, 5, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[288648, 7395, 27786, 527, 187, "Output",ExpressionUUID->"b9dd4563-826d-fa45-b026-126726676ae8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316471, 7927, 236, 6, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[316710, 7935, 168, 2, 25, "Output",ExpressionUUID->"58dfbc60-6789-7b4b-9126-5dd69677b1e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316915, 7942, 1839, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[318757, 7997, 489, 11, 33, "Message",ExpressionUUID->"32649659-0367-0346-b721-a8ee92d84cc0"], +Cell[319249, 8010, 491, 11, 33, "Message",ExpressionUUID->"c8d3b9a3-af71-6544-9336-c2d39095ceb2"], +Cell[319743, 8023, 497, 11, 33, "Message",ExpressionUUID->"cf525010-2df1-e445-895e-b3a6c553bebb"], +Cell[320243, 8036, 456, 10, 20, "Message",ExpressionUUID->"55d17c00-ef34-f946-bcb8-f91ee8eb358d"], +Cell[320702, 8048, 22580, 418, 186, "Output",ExpressionUUID->"c8fa6e85-ca7e-d749-b59b-f81445ad3d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343319, 8471, 1616, 48, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[344938, 8521, 522, 11, 50, "Message",ExpressionUUID->"c67f0021-f8ab-fe4b-bef4-f76286a20ca2"], +Cell[345463, 8534, 526, 11, 50, "Message",ExpressionUUID->"fc18f967-acb6-c840-a1c3-ef62dcde1cbe"], +Cell[345992, 8547, 530, 11, 50, "Message",ExpressionUUID->"7a0f5cbe-798b-3a43-8c0b-358fce5c421f"], +Cell[346525, 8560, 458, 10, 20, "Message",ExpressionUUID->"0b54c598-4392-fb4e-a878-50de6763d592"], +Cell[346986, 8572, 173, 3, 25, "Output",ExpressionUUID->"6eb57d53-db36-bc4b-880f-c492f8a667b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347196, 8580, 2274, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[349473, 8646, 540, 11, 50, "Message",ExpressionUUID->"90a290c9-5087-4341-b751-747e3cd474ec"], +Cell[350016, 8659, 543, 11, 50, "Message",ExpressionUUID->"08d40d32-85d6-294c-a6b2-56b21d28ab3a"], +Cell[350562, 8672, 545, 11, 50, "Message",ExpressionUUID->"aa7c009e-42c1-ac4d-9537-b8a3a9e64ca9"], +Cell[351110, 8685, 458, 10, 20, "Message",ExpressionUUID->"38de7700-d4d8-e142-9db4-4decfa8c7cb0"], +Cell[351571, 8697, 171, 3, 25, "Output",ExpressionUUID->"b0ee4c32-6317-3f44-8578-6eb265b3dcfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351779, 8705, 2244, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[354026, 8771, 538, 11, 50, "Message",ExpressionUUID->"1e8ca755-062d-d540-aef3-d434745279a7"], +Cell[354567, 8784, 541, 11, 50, "Message",ExpressionUUID->"0bbb1f97-d204-3c47-9ff2-3e6dcf0d8e8b"], +Cell[355111, 8797, 543, 11, 50, "Message",ExpressionUUID->"071dce6f-a76f-3d4e-8f34-7fe9d62ef95c"], +Cell[355657, 8810, 456, 10, 20, "Message",ExpressionUUID->"8888c9b0-8a07-fb47-a4fd-e02ec566caa0"], +Cell[356116, 8822, 171, 3, 25, "Output",ExpressionUUID->"a7cb163e-7caf-1542-944e-319f2392364e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356324, 8830, 2244, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[358571, 8896, 537, 11, 50, "Message",ExpressionUUID->"2173b90f-23f5-2846-8375-66884c3def53"], +Cell[359111, 8909, 543, 11, 50, "Message",ExpressionUUID->"01b90bb6-058a-1845-ab19-38491003c87e"], +Cell[359657, 8922, 542, 11, 50, "Message",ExpressionUUID->"fec4f3df-5edb-b042-ac11-875a7b95806e"], +Cell[360202, 8935, 456, 10, 20, "Message",ExpressionUUID->"7ea16f80-fc4f-b641-8f55-6aaf6ed5b450"], +Cell[360661, 8947, 170, 3, 25, "Output",ExpressionUUID->"bd1faab8-0e72-e24e-83e8-fefb98126575"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360868, 8955, 236, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[361107, 8963, 174, 3, 25, "Output",ExpressionUUID->"185c0c3f-5ee4-d74d-80ba-6a79d831658e"] +}, Open ]], +Cell[361296, 8969, 271, 6, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[361592, 8979, 558, 19, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[362153, 9000, 171, 3, 25, "Output",ExpressionUUID->"70f4eacb-832e-4c41-91aa-147d0b6ae14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362361, 9008, 170, 5, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[362534, 9015, 173, 3, 25, "Output",ExpressionUUID->"77d6ed3c-64b6-8a4b-befd-1fe7b5770e20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362744, 9023, 181, 5, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[362928, 9030, 173, 3, 25, "Output",ExpressionUUID->"6f500449-dd0e-8649-b0fb-adbb87edd044"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363138, 9038, 6055, 185, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[369196, 9225, 174, 3, 25, "Output",ExpressionUUID->"6b40fb94-b2c4-9046-86ab-0247e3d65634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369407, 9233, 368, 9, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[369778, 9244, 171, 3, 25, "Output",ExpressionUUID->"ec23a64f-874a-8a4b-be21-8e1397391c25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369986, 9252, 6122, 187, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[376111, 9441, 173, 3, 25, "Output",ExpressionUUID->"c9c5645c-04b5-fc46-ba21-079cf2546710"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376321, 9449, 368, 9, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[376692, 9460, 173, 3, 25, "Output",ExpressionUUID->"4696d7eb-28ea-6f4b-9bfc-c415b99c38c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376902, 9468, 2663, 88, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[379568, 9558, 173, 3, 25, "Output",ExpressionUUID->"a80721cc-91cf-aa4a-b26c-55571761b275"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379778, 9566, 2603, 85, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[382384, 9653, 175, 3, 25, "Output",ExpressionUUID->"27204d98-0d4b-714d-9977-012310a37a7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382596, 9661, 3712, 118, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[386311, 9781, 173, 3, 25, "Output",ExpressionUUID->"d5984f89-eb52-6d42-804d-3685337df3e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386521, 9789, 2077, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[388601, 9850, 515, 11, 50, "Message",ExpressionUUID->"19ad97d1-e4b2-1243-a73a-941a6829a713"], +Cell[389119, 9863, 515, 11, 50, "Message",ExpressionUUID->"4962cf58-aa6e-e941-b81c-1864640eca20"], +Cell[389637, 9876, 519, 11, 50, "Message",ExpressionUUID->"2be79ac0-e9f0-0d4e-8008-9c32d29ae57e"], +Cell[390159, 9889, 456, 10, 20, "Message",ExpressionUUID->"0ffc045a-0a2d-6b47-99dd-078f68922aa6"], +Cell[390618, 9901, 171, 3, 25, "Output",ExpressionUUID->"39d86737-c549-9442-8946-a306217cd3de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390826, 9909, 2077, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[392906, 9970, 515, 11, 50, "Message",ExpressionUUID->"93eb5cb5-8c41-ef49-a079-9d805e210f15"], +Cell[393424, 9983, 517, 11, 50, "Message",ExpressionUUID->"0c93c049-729e-9744-9ce3-e0826fe78acd"], +Cell[393944, 9996, 519, 11, 50, "Message",ExpressionUUID->"df804e3f-a9be-cc4f-bb66-6337a91642ad"], +Cell[394466, 10009, 458, 10, 20, "Message",ExpressionUUID->"df34a7e1-5a90-704d-b485-9ff27d8d4a4f"], +Cell[394927, 10021, 173, 3, 25, "Output",ExpressionUUID->"b400d4cd-d162-d74b-888a-c18df43261a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395137, 10029, 2053, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[397193, 10086, 19972, 375, 184, "Output",ExpressionUUID->"b1777edd-dc55-8049-91b8-b862ba2160b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417202, 10466, 2170, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[419375, 10529, 489, 11, 33, "Message",ExpressionUUID->"39b7f16f-228a-c541-8cbe-392f836a4360"], +Cell[419867, 10542, 491, 11, 33, "Message",ExpressionUUID->"2fc896c2-6dc6-3243-bb3f-a069e1b4320f"], +Cell[420361, 10555, 511, 11, 21, "Message",ExpressionUUID->"a22bb038-0e09-c342-b4a6-b4e7358db9f0"], +Cell[420875, 10568, 458, 10, 20, "Message",ExpressionUUID->"9211017a-6c3d-6c4f-a73e-338cb9316964"], +Cell[421336, 10580, 51441, 889, 187, "Output",ExpressionUUID->"1b40c314-5709-9a4d-928a-39e6438f8355"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472814, 11474, 280, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[473097, 11482, 57473, 1014, 187, "Output",ExpressionUUID->"40638c45-c86d-7548-8e86-ee6f812d15c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530607, 12501, 1616, 48, 69, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[532226, 12551, 541, 11, 50, "Message",ExpressionUUID->"fccf9ad5-768f-aa46-b2be-4514d63a854a"], +Cell[532770, 12564, 544, 11, 50, "Message",ExpressionUUID->"610843a2-592c-2c4d-b17e-e3c31fe8e872"], +Cell[533317, 12577, 553, 12, 50, "Message",ExpressionUUID->"6c936a58-f49b-c344-98d5-a44b5064c7ba"], +Cell[533873, 12591, 458, 10, 20, "Message",ExpressionUUID->"71a2acba-fa3a-1549-bade-61c67b202e1a"], +Cell[534334, 12603, 171, 3, 25, "Output",ExpressionUUID->"97cfae6c-c065-a844-be76-0428d1006809"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534542, 12611, 2270, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[536815, 12677, 515, 11, 50, "Message",ExpressionUUID->"028be4b4-912b-324e-939d-a0d250e0021e"], +Cell[537333, 12690, 517, 11, 50, "Message",ExpressionUUID->"dca5b815-9844-1244-983e-451ffcf2a9e5"], +Cell[537853, 12703, 519, 11, 50, "Message",ExpressionUUID->"98e39870-633d-ec4e-9b56-e246fc40b688"], +Cell[538375, 12716, 458, 10, 20, "Message",ExpressionUUID->"328c80df-10f2-f244-9bda-e4f5555f39b7"], +Cell[538836, 12728, 174, 3, 25, "Output",ExpressionUUID->"0631cb22-b670-3846-ad15-69639b34022b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[539047, 12736, 2242, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[541292, 12802, 515, 11, 50, "Message",ExpressionUUID->"a82d887b-cf97-6b46-a81b-193dcc5db986"], +Cell[541810, 12815, 517, 11, 50, "Message",ExpressionUUID->"a9905666-f15b-4c40-8781-b88430d867e9"], +Cell[542330, 12828, 521, 11, 50, "Message",ExpressionUUID->"0845c60d-d0dd-2e49-909d-096abc25c63c"], +Cell[542854, 12841, 456, 10, 20, "Message",ExpressionUUID->"af33df1d-0871-2e4d-bf1f-afb5e3a9b3ee"], +Cell[543313, 12853, 173, 3, 25, "Output",ExpressionUUID->"78a3b590-1bdd-8b4d-b726-29e6c53ab39e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543523, 12861, 2246, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[545772, 12927, 513, 11, 50, "Message",ExpressionUUID->"45fdeccf-459c-4240-bc03-bfca0b0bbd02"], +Cell[546288, 12940, 517, 11, 50, "Message",ExpressionUUID->"4e1e727b-aa53-ec46-a783-e278e6529280"], +Cell[546808, 12953, 519, 11, 50, "Message",ExpressionUUID->"4d3c3bfb-fecf-6c4b-887a-0eaa241bd20d"], +Cell[547330, 12966, 458, 10, 20, "Message",ExpressionUUID->"4e59ee48-9d44-184b-9c04-eafa5d094697"], +Cell[547791, 12978, 171, 3, 25, "Output",ExpressionUUID->"2b9e0d78-970e-8649-92dd-a3e019636172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547999, 12986, 238, 6, 38, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[548240, 12994, 177, 3, 25, "Output",ExpressionUUID->"d13ae2fe-024d-084b-a317-157213c4ff24"] +}, Open ]], +Cell[548432, 13000, 275, 6, 34, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[548732, 13010, 558, 19, 42, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[549293, 13031, 170, 3, 25, "Output",ExpressionUUID->"b9201ddd-7c20-7e4a-8265-51dcc39e73a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549500, 13039, 170, 5, 46, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[549673, 13046, 171, 3, 25, "Output",ExpressionUUID->"2944e89a-4f02-5847-8353-94d2e5ac1dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549881, 13054, 181, 5, 35, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[550065, 13061, 173, 3, 25, "Output",ExpressionUUID->"d3b4e679-eaee-9d44-9a2a-89e4272596ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550275, 13069, 6055, 185, 312, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[556333, 13256, 175, 3, 25, "Output",ExpressionUUID->"8d329473-571e-0142-b3e0-33fc6339b70d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556545, 13264, 368, 9, 33, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[556916, 13275, 171, 3, 25, "Output",ExpressionUUID->"15d28748-874b-4144-9954-8631e6cdd1db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557124, 13283, 6122, 187, 310, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[563249, 13472, 175, 3, 25, "Output",ExpressionUUID->"6283aa2c-c7ea-f94e-aa33-c6dc4e7368d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563461, 13480, 368, 9, 33, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[563832, 13491, 172, 3, 25, "Output",ExpressionUUID->"9fdbde2e-6fae-9843-b3b0-de88109ff1c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564041, 13499, 2663, 88, 135, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[566707, 13589, 171, 3, 25, "Output",ExpressionUUID->"5d9fdd3f-b9c9-5845-84dc-8ee718f98c42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566915, 13597, 2603, 85, 135, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[569521, 13684, 175, 3, 25, "Output",ExpressionUUID->"10aee8b1-4533-594c-9e18-abc1e63104d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569733, 13692, 3712, 118, 197, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[573448, 13812, 175, 3, 25, "Output",ExpressionUUID->"45e92fd4-f829-a043-9bc7-4c8a64477bd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573660, 13820, 2077, 59, 92, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[575740, 13881, 518, 11, 50, "Message",ExpressionUUID->"c6de5648-07bc-ce4c-b124-1ac24d3aea7d"], +Cell[576261, 13894, 521, 11, 50, "Message",ExpressionUUID->"9db0dd19-137d-1741-ba20-1b734cb493f1"], +Cell[576785, 13907, 523, 11, 50, "Message",ExpressionUUID->"b4a473fa-0025-0e47-a404-994a4f92ba5a"], +Cell[577311, 13920, 458, 10, 20, "Message",ExpressionUUID->"6996ccf4-f04f-ca4f-a061-e46f26aea6f9"], +Cell[577772, 13932, 173, 3, 25, "Output",ExpressionUUID->"fa45c27f-0111-b148-a46f-76badc1f0358"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577982, 13940, 2077, 59, 92, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[580062, 14001, 518, 11, 50, "Message",ExpressionUUID->"b262bfc8-b51f-f049-949d-0ae5325b0332"], +Cell[580583, 14014, 519, 11, 50, "Message",ExpressionUUID->"fc021f2b-f23e-f043-aa94-157b8059cf74"], +Cell[581105, 14027, 523, 11, 50, "Message",ExpressionUUID->"612049b8-ee24-6746-863b-ebc5ceb54f21"], +Cell[581631, 14040, 456, 10, 20, "Message",ExpressionUUID->"e43f47bf-22e5-7d40-9ec4-0c62ad635cec"], +Cell[582090, 14052, 171, 3, 25, "Output",ExpressionUUID->"01d612ef-be18-bb43-8dbe-be9c8d4bcf5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[582298, 14060, 2051, 55, 54, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[584352, 14117, 19974, 375, 184, "Output",ExpressionUUID->"1cfbf3b0-25d6-9742-bb99-44d92673cb9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604363, 14497, 2168, 61, 92, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[606534, 14560, 489, 11, 33, "Message",ExpressionUUID->"ebcf9d8d-97a7-3847-a420-1110b6ac001d"], +Cell[607026, 14573, 491, 11, 33, "Message",ExpressionUUID->"6db21928-6d80-d248-959a-e4223847d20e"], +Cell[607520, 14586, 509, 11, 21, "Message",ExpressionUUID->"8ec0d6e3-ddb3-224b-ae69-b8981713a6a4"], +Cell[608032, 14599, 458, 10, 20, "Message",ExpressionUUID->"6c6793ff-2734-6248-a27b-1d436984beab"], +Cell[608493, 14611, 51441, 889, 187, "Output",ExpressionUUID->"7f9f164f-d33e-9141-aa0d-52309adab880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[659971, 15505, 280, 6, 34, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[660254, 15513, 57469, 1014, 187, "Output",ExpressionUUID->"f99b5e51-f810-424c-83fc-639cdac82da5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[717760, 16532, 1616, 48, 69, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[719379, 16582, 542, 11, 50, "Message",ExpressionUUID->"c3c59255-09e0-bd48-b05c-b559a04c6289"], +Cell[719924, 16595, 546, 11, 50, "Message",ExpressionUUID->"71800716-54d7-f547-9eb9-a3a460a70ff4"], +Cell[720473, 16608, 553, 12, 50, "Message",ExpressionUUID->"66c2900a-3555-2d46-9a88-cef06c7bda00"], +Cell[721029, 16622, 456, 10, 20, "Message",ExpressionUUID->"ab6e7881-9886-f74f-b670-4935abc610db"], +Cell[721488, 16634, 171, 3, 25, "Output",ExpressionUUID->"5ed9662d-6924-7943-8732-574edf964492"] +}, Open ]], +Cell[CellGroupData[{ +Cell[721696, 16642, 2272, 64, 131, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[723971, 16708, 518, 11, 50, "Message",ExpressionUUID->"d9c484ff-2231-9f46-9926-337a0b7dfc7a"], +Cell[724492, 16721, 521, 11, 50, "Message",ExpressionUUID->"74f74dcd-4eb4-3f41-9d7a-e19c328f436c"], +Cell[725016, 16734, 523, 11, 50, "Message",ExpressionUUID->"ff3479fd-cd23-1148-9960-aef5cc33e18c"], +Cell[725542, 16747, 458, 10, 20, "Message",ExpressionUUID->"1134b4c1-359a-f848-adbe-a1e88101fe03"], +Cell[726003, 16759, 176, 3, 25, "Output",ExpressionUUID->"2dfe7fd2-1c2a-d243-b913-c454686fd572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[726216, 16767, 2244, 64, 131, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[728463, 16833, 518, 11, 50, "Message",ExpressionUUID->"977b1147-216c-2a44-b914-bd3cbad86183"], +Cell[728984, 16846, 521, 11, 50, "Message",ExpressionUUID->"dfd15a78-bd0d-5949-b1ba-f2ea54c0d390"], +Cell[729508, 16859, 521, 11, 50, "Message",ExpressionUUID->"443b0185-235a-d140-8953-5402b20e55b7"], +Cell[730032, 16872, 456, 10, 20, "Message",ExpressionUUID->"fc70e0ba-cad2-e844-be3f-5ea448bb637e"], +Cell[730491, 16884, 171, 3, 25, "Output",ExpressionUUID->"2812e1af-de55-8e4f-9209-f6d332ea1a90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[730699, 16892, 2244, 64, 131, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[732946, 16958, 516, 11, 50, "Message",ExpressionUUID->"d59783f2-d080-a043-a5eb-9fc4d05c5ae3"], +Cell[733465, 16971, 521, 11, 50, "Message",ExpressionUUID->"faed6dfb-29ec-b74f-b8fc-fa58eba8a71b"], +Cell[733989, 16984, 521, 11, 50, "Message",ExpressionUUID->"0c80e423-2469-6a4d-8ffc-ceeac846c33f"], +Cell[734513, 16997, 456, 10, 20, "Message",ExpressionUUID->"94628aa9-24b3-4546-8bf6-3ffd53ee1e4b"], +Cell[734972, 17009, 173, 3, 25, "Output",ExpressionUUID->"e14e0b70-c491-9f44-b1ce-1f4eeb269f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[735182, 17017, 235, 6, 38, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[735420, 17025, 178, 3, 25, "Output",ExpressionUUID->"33005208-1af3-b04b-a5be-0a4cb0e9bab5"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb new file mode 100755 index 0000000..072d500 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb @@ -0,0 +1,16192 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 683854, 16184] +NotebookOptionsPosition[ 641772, 15508] +NotebookOutlinePosition[ 642226, 15526] +CellTagsIndexPosition[ 642183, 15523] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992093689446821*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"1f2f37e1-51c2-aa49-ab29-c0b6caf9a546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920936895308037`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"0d226516-7f6f-0d42-8224-96106a402797"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9920936895420704`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"074cb25d-ca6d-da48-a3fb-273dd265f29f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.99209368956221*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8d48d129-5a72-0143-a341-cc4bf8b26681"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.992093689569212*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b0db3da0-a949-ab4c-be0b-7052ee9c4be1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920936895882225`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f7c34acf-b2b8-7247-b530-1a9cd747565a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920936896107674`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f6e39c89-ab95-bb4d-88d3-e96aa6fee407"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9920936896178417`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"82ed812d-f01a-b746-afb8-7d9ff80a17a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992093689638378*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"573e6b29-47b4-d04d-bf7c-a3f2ab63a3e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9920936896491985`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"1f5248fe-f5ee-f94a-9cb2-30a73060f695"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992093689673212*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"7c1e72ed-9d9b-5143-a8a7-5a624b06b6ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992093689681217*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"102d3e37-23fa-3a4e-b821-07729749ff5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.992093689702215*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"90fdc215-b4fd-ac45-a6cc-34220152dc28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992093689735426*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"07d50c48-a449-a348-b422-86d4648310e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9920936897469025`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"5f4faa23-6cfc-b54b-ab03-6a64a24b2bbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.992093689772423*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"dbc78de8-1e08-6849-bc49-7f041bb6452b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.992093689800432*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4063585e-143e-2b43-a75f-1b776b8fce82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920936898090153`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"0d442392-bd3d-ff4e-8f68-3ebbc162b4c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9920936898360558`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"04d06914-3184-d14d-908b-593b185fe88a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.9920936898700943`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"688cb4fe-767a-4342-8955-062fa63b67db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992093689897066*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"03852b79-94dd-e64e-8ac2-57f88633e47d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9920936899223213`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"697312b3-4fa6-1a4c-9b6a-c1f0c713fd0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920936899302807`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"64b09692-4bfd-eb41-80fb-6ba22074c6d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992093689957302*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d3e71f0b-2a72-2748-9419-6a731779dad4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9920936900013313`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c77d4c5d-5d04-5a40-8aca-b57a05dc186b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9920936900104046`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"3983ac4f-577f-2a44-bbd6-03ed5fa13dda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9920936900479927`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0426af90-7075-7d44-a5ac-4aaae47b9883"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920936900569973`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"50389186-e923-c84f-946b-b3b46aa53d98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.99209369008601*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c7d50fa0-7655-3949-9754-84c4bf6981a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920936901175175`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"8d07dc3f-1bef-9345-bbf5-a82b89663086"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9920936901461945`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"94e6e8fd-09ef-5b49-a93a-aa3f77d4d0de"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9920936901861935`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"b13c1c89-2d69-5b47-9206-7ba98b7bcfd6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920936902242184`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"2350ab51-f952-f54c-9d58-4dd3680622a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992093690257223*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"56eea41f-21fa-4540-b2c4-3417d606fc85"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.9920936902952385`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"cec57294-4cf1-7d4f-97d1-524ea696524d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.9920936903381577`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"d72a26d7-325b-f84f-b1d3-d09b92650c97"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992093690374052*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"33479ab1-1831-d84f-b5a3-18e49010da28"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.9920936904114246`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"d095e0e9-867b-0545-8112-e3ecb007e777"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992093690498558*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"bc32f52b-90bb-1748-9186-3f822f3369ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9920936906632156`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d51decb7-b850-e94b-a633-eccd08eb4f21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9920936907187996`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5b064c3d-5a75-da42-820e-2d64aa12966c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992093690782261*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"f97a5b10-7037-e348-b9c2-17043c2def2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9920936908443317`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"4dd43dad-a0f7-0b42-95b8-e0219acd1335"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992093690911442*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"e3523e85-ff1a-c64b-9621-8b0068e58521"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.9920936909440136`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"1e6689cb-fde0-a14c-a86b-0589cf6d7588"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9920936909700184`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"91e27dbf-41c9-6945-8df6-00e08f25c9e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9920936910010414`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7673e0c6-02ca-0a45-8f3c-98de3d2dd0a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920936910090523`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"fe14dedb-d5f5-c440-957b-4366a156d6ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920936910360928`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"f5b936d8-78bf-f441-b6a3-7f6897cde95c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992093691064106*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e617dd14-34ec-b141-9877-14ead2feb413"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9920936910721054`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"db643f4e-6585-f34a-834d-f4884e38f627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.992093691095112*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"7afa0c29-f1d4-4848-96d5-afa83fd7e517"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992093691103117*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3a64b02c-f608-7f4f-8c13-0477ab6534f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.992093691128193*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"1082e557-f74c-7943-b608-194fcfb39dc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9920936911371803`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"5b163a5c-0abd-874f-9fcd-d6e6189f2fee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992093691163191*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"514d73e5-dfac-614b-bc7f-1fb2465b1b8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.99209369118721*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9fe787f2-9fa5-c149-b9cd-67edb07274a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.9920936911962776`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"21fa67d5-9135-be44-9236-479701c3eb82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.99209369122736*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"3bbd01b2-c00d-e74c-ae88-fc6e61a80a2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992093691254925*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"150268e6-aef4-de48-90ec-24cd40bccdfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992093691297888*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ac97ed9a-a816-db4d-a59a-9dbb5fc182c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.99209369130591*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"8174809b-c48f-7843-9e4e-0df6caf60a77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.992085999252714*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.524334841228278`"], "Output", + CellChangeTimes->{ + 3.9920860581609154`*^9, 3.9920862683704853`*^9, 3.992086571237465*^9, + 3.9920866020509415`*^9, 3.992086668182081*^9, {3.9920867766902733`*^9, + 3.992086804033209*^9}, 3.9920936913309917`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"575bccc9-5040-2240-88c9-e6b124d5f0e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.9920860033668804`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.902604856378696`"], "Output", + CellChangeTimes->{ + 3.9920860581871033`*^9, 3.9920862683883247`*^9, 3.9920865712434673`*^9, + 3.9920866020744514`*^9, 3.9920866682030888`*^9, {3.992086776697239*^9, + 3.9920868040392265`*^9}, 3.9920936913399887`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"0fa3666a-cfa7-3047-86b7-82a3bd007080"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.991708376806082*^9, 3.9920860581936607`*^9, + 3.992086268394327*^9, 3.992086571266678*^9, 3.9920866020974503`*^9, + 3.9920866682090855`*^9, {3.9920867767192497`*^9, 3.992086804065281*^9}, + 3.9920936913660793`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"60caf887-115a-ee4d-8104-7740331b3a98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["4.6607566161458405`*^-55"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9917083768301735`*^9, 3.9920860582176247`*^9, + 3.9920862684183464`*^9, 3.992086571271679*^9, 3.992086602104452*^9, + 3.992086668236105*^9, {3.9920867767252483`*^9, 3.9920868040722847`*^9}, + 3.9920936913971157`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"c0a33838-a30d-2849-947e-04e7918c1035"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["7.914241537250374`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.99170837683708*^9, 3.9920860582236614`*^9, + 3.9920862684417877`*^9, 3.992086571293192*^9, 3.9920866021284943`*^9, + 3.9920866682604446`*^9, {3.992086776746256*^9, 3.9920868040953465`*^9}, + 3.9920936914328957`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bb64f621-728f-fb46-9a5d-15177462bdbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"5ab6ac7c-83ae-6940-b5e3-8f463231aa41"], + +Cell[BoxData["6.387731496076312`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.9920936914599*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"61a5d6a8-42ea-0044-8638-fd9ef4da45f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"ad27a0b7-bc3a-1b4e-aa65-7473f98c4a9a"], + +Cell[BoxData["63.32645699437282`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992093691490885*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"f2c71c2c-b3a9-7048-a6ad-cc13c98c9926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"ed86276b-f471-6f4e-8c1f-259c300ae2e3"], + +Cell[BoxData["5.587530835375371`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.992093691516409*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"349a9538-20d5-9343-bf63-4b00833da39a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"b778afd8-0c57-064d-a11e-d7318164b910"], + +Cell[BoxData["10.305243407554503`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.9920936915519524`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"14ac3d20-89fe-e749-945d-6e1b76de23f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"6e57b6df-ce1a-784f-8068-542326a39aac"], + +Cell[BoxData["652.5945534650442`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992093691583002*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"b2994db0-f60e-1e4b-90b8-da26ca3956ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb50975c-b4ec-eb46-b7be-45bdd474b7dd"], + +Cell[BoxData["35.69164670242484`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920936916115227`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"bceecd21-34c7-e240-b93f-e3fd1376a2ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"18e7b19c-7ef6-ac40-b366-c555cd77dfe4"], + +Cell[BoxData["0.02651804012336609`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.9920936916430473`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"fd2104fc-9239-9c43-a8fb-1a68b0221900"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"362c980c-4dd4-a246-98d7-f0637b84f583"], + +Cell[BoxData["5.442196629098006`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.9920936917300854`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"d25f9328-a161-e649-ab59-e0352fbf631b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel->"In[85]:=",ExpressionUUID->"4b46d0c0-ae96-6346-8059-3d7eedda7d5a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["61.44238060379939`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.992087085599785*^9, 3.992093691768099*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"1f56ad2a-ebe2-ed43-aed8-707b53ebdbab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["63.32645699437282`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.9920870857871895`*^9, 3.992093691804102*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3fbd8164-f6b3-a245-8a5a-68a826eee5fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.8016036043009018`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.9920870857935734`*^9, 3.9920936918291264`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"99325b7e-8d08-524c-96ba-11147cf7b380"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["10.305243407554503`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.992087085800623*^9, 3.9920936918401337`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c6bf2375-16bc-2144-af0c-73a6055b684c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["652.5945534650442`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.992087085812317*^9, 3.9920936918663006`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"087bd074-167b-ce41-b0e3-e0884fa5caaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["110.6948143526328`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.992087085819336*^9, 3.992093691905016*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"26f14ab4-2ecc-b34c-a504-fde1491ef3a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.00887206389508509`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.9920870858313293`*^9, 3.992093691933058*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"d00c7d73-f327-f24e-a529-7601ff4ddf5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[93]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["9.408764757991872`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.9920870859015446`*^9, 3.99209369201775*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"df5e744b-4c6e-314b-952f-51a04746b3ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[94]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.001443586515236076`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.992087085922167*^9, 3.9920936920442657`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"727f20d0-cbcf-b64b-88ad-713d668bd8e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[95]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["23.325100969113365`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9920870859902134`*^9, 3.992093692134289*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"5def92cd-3187-424d-a872-4204ea48a66d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.992087086010071*^9, 3.9920936921772957`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"9d56b156-3341-2b47-9af0-b3a81d37da45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[97]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9920870860331287`*^9, 3.9920936922093105`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c36d45c7-4dbd-3d4d-9c97-8f343d81e6b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.992087086044157*^9, 3.992093692238348*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"f5483177-7bc5-1e46-ab07-910bca3edd92"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795120812044*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 174, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936922852116`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d6cdbe65-8d25-6548-b0fd-25c330196b30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 175, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936923549347`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"973a7dc9-2a55-974e-a8ef-ad96123bc066"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 176, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936923639355`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"4692edbb-9e20-544a-82a3-c807336945df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 177, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.992093692371935*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8790a6fd-6ed5-884e-8a56-d5e095abda7c"], + +Cell[BoxData["9.408764757991879`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.992087088375992*^9, 3.9920936949029503`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"2a87223c-bd46-8e46-8e15-1778bf52e6fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991795125308359*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 178, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949509335`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"a1db36eb-e945-424c-88aa-e17dee223e87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 179, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949589787`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"971475ec-bf28-134c-94b3-2bc79bca6a5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 180, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.992093694973984*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"96728789-d869-1f42-8203-cf326fe65248"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 181, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949809895`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"33526f03-2ae8-b646-9bfc-6e2c19be22ce"], + +Cell[BoxData["23.325100969113375`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9920870907111187`*^9, 3.992093697455309*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"fc902aac-b437-9346-9d50-5ec1334da407"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917951318268585`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6321450621619601, + 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6321450621619601, + 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6321450621619601, 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6321450621619615}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6321450621619601, 1.5253798936389882`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9920872836559963`*^9, + 3.992093906456703*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"adb49142-9e13-5c44-86ed-a0f8a1f5fddf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.348243828587806`*^-281\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 182, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066555214`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9613d1d6-ec2d-8b4e-84ce-d80d2f4bf81c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7463321566811068`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 183, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066654987`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"18226e25-871e-8344-b233-03d870d34080"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.262298306910113`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 184, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066715794`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d8671db1-887f-a448-8553-bb2f17f70e0c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 185, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066795807`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d36497ab-6403-6d4b-b7c8-db9111eff71a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08079417204601799}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.992087470181017*^9, 3.9920940959108505`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"9cce9ccc-63ba-7f49-85cd-6b18572cfa7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992087051653343*^9, 3.9920870536785927`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992087470563801*^9, + 3.9920940959861126`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"5b9ba159-9875-924d-a362-62402dccc85c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08079417204601799}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9920874705918217`*^9, 3.992094096016508*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"bcdf045b-0488-b741-b71d-bf8650035540"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["22.63949124283988`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.992087470625908*^9, 3.992094096051859*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547eade0-de49-9f40-ba2f-67866f7de0f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991795437556492*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.265679998435527`*^-274\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 186, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.99209409624082*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"b98a9dbc-c8b3-b746-8477-e4134f91c4ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.096203614206159`*^-287\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 187, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962508183`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"630f9697-d264-064a-a1ec-a13f7ad7c6c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.935522410406355`*^-300\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 188, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962588215`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"b60774b2-bbba-4045-a22f-27d1acee818a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 107, 189, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962678204`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"16a4b044-59e5-aa4e-b8c8-7aeab06c5c31"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.03357732026803432}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.992087665892849*^9, + 3.9920944895099907`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"7380f4fc-b088-7344-943b-94a7f40c1b2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1879779830544592`*^-231\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 108, 190, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.992094489673418*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"5d58617b-00b9-8847-bb2b-79a5097c6a03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9987880705219257`*^-238\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 108, 191, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944896938305`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"d5e0363e-d496-d342-a1d6-e5721e7b6007"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.569778245202013`*^-245\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 108, 192, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944897208557`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"5e792f81-b248-d94e-9d4f-2cf0626a8786"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 193, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944897449284`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"82b2f5ac-bbd6-774a-812c-4c28011fb573"], + +Cell[BoxData["22.639491242839895`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.992087684342634*^9, 3.9920945376579075`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"8f3a429f-4c4a-4247-854c-f1967364c2cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 194, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.9920945377649136`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"adf45258-d8bd-0d45-9727-1df8d0b6a4d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 195, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.992094537798807*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"bb1dbbb7-5342-564b-85f8-113738804c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 196, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.9920945378238087`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"5ee0de5c-f255-e448-a774-f7d03336c3ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 197, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.992094537842901*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f7a1703a-6d55-4649-afaf-3723f64cacac"], + +Cell[BoxData["4.123160883771822`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9920876888555984`*^9, 3.992094548407585*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"4a0f67fc-5162-e64a-a019-edbd508b4c69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 198, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.9920945485576687`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"4f1c8a7a-a965-4147-882d-b4aae11b76c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 199, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.99209454860376*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"b837c9e8-7303-7d42-a2b3-7b69f22d984c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 200, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.992094548625763*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"8cd3b322-26a1-fc4f-8a54-32b1cb17b6fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 201, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.9920945486457615`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"f479e1f6-a89f-fa42-8da1-817e21a9c8d7"], + +Cell[BoxData["24.188490878817557`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9920876922227306`*^9, 3.9920945584381256`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"18969214-7402-ba47-9c5a-dd4f823a3b51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 202, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558543009*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"05117271-b40b-0441-9da0-429a3ebf17a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 203, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558580103*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"2facaa62-1f78-5545-86e7-f46d95ac1c40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 204, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558598007*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"bdadfef4-6c2c-314c-a2d4-88803e50751c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 111, 205, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.9920945586241055`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"a56933a2-3a6d-7743-ab0e-75c86c8c88fc"], + +Cell[BoxData["148.65879830379055`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.992087694375929*^9, 3.9920945660959377`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"189552eb-1c9c-224b-90b9-7ef245383a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.06875916363226768`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.992087694412674*^9, 3.9920945662035885`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"0a8e0955-ce9c-e940-8e56-7347aa883526"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["6.387731496076312`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.99208769443791*^9, 3.992094566242483*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"1df77361-bbd7-3747-bd4e-d686b1c97935"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["5.587530835375371`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.9920876944438095`*^9, 3.992094566256483*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"ac36d08b-3fd3-c748-8d7b-6d3db712f6e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["35.69164670242484`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.992087694464855*^9, 3.9920945662711525`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"512d5f42-2b52-aa42-a41a-79581b371ea8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.02651804012336609`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.9920876944888535`*^9, 3.9920945663042545`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"bc9a3d95-1222-0149-a4cb-647439e71140"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[118]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.442196629098006`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.9920876945677853`*^9, 3.9920945665216713`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"ff99978a-b4f6-834c-bdd1-38045c81f38e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[119]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.0016188670121013722`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.9920876945897923`*^9, 3.9920945665517826`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"0516d552-c612-dc45-8980-bd5254f713d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["22.02618861941095`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.992087694666874*^9, 3.9920945667691307`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"32843051-db5d-5449-9596-10a1089cea6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9920876946878643`*^9, 3.9920945667890434`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"ac6d6644-f912-a84f-86bc-884d933d5061"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992087694696867*^9, 3.992094566833168*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"9d9980d8-df46-5644-8bb2-4a0ba6c6e66d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.9920876947178783`*^9, 3.9920945668571815`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"97e73886-59ac-a242-bcf4-fe47d27b4a97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179485681155*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 206, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669008827`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cf88e398-8f44-484c-af5c-147dcc94da0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 207, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.992094566944784*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"027405c7-9743-f049-bcb2-e32b622b1e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 124, 208, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669637833`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"be4a183a-d0a8-4647-b98d-ac649536105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 209, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669868984`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b45ac5df-e8e6-c14f-990f-547ff0f00cad"], + +Cell[BoxData["5.442196629098009`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.9920876967368793`*^9, 3.9920945728251324`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"93a233ef-ddcc-374c-8bda-ebd5bddf6181"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.99179697882374*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 210, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.992094572929592*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"1be6857f-792f-a043-975f-2ba4a70175d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 125, 211, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.992094572961687*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"a19c660d-f826-be45-82af-ca7529c80f53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 125, 212, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.9920945729806995`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"5e640cf2-50de-104d-af8b-643b79d82f83"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 213, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.9920945730006905`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"0a93686d-69d8-474d-a0fd-409f62953eee"], + +Cell[BoxData["22.026188619410956`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9920876987374287`*^9, 3.992094578852234*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2e46ddf3-0062-224b-9796-1306bdd2aa7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0285283599530657`*^-289\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 126, 214, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791497154`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"93c85051-1f5f-454b-8284-ec6b1503035c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.343558028594324`*^-305\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 126, 215, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791748104`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"78504fd0-5163-4c43-b557-f5bf3753c331"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.483466596316541`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 216, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791958103`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"f8eab59e-ff29-9043-98e0-0d255dae1661"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 126, 217, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945792168217`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"2bcce08d-1c3f-364f-a211-f2a3f5fa9381"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.13968130021382197`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.9920879372314587`*^9, + 3.9920952143913555`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"0d2e6a4e-7884-ac4a-b403-2f7c3e1c38cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, 3.99179702451466*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.13968130021382197`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992087937276457*^9, 3.9920952145399895`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"86a52464-7f53-8d46-a5d1-a814b9500274"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0594776668265516`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 128, 218, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.9920952146149693`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"75884a80-7c5f-dc4c-9602-bf0bfeb0950c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5724714926217337`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 128, 219, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.992095214652876*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"12822573-a2b6-a245-8e96-f52e80420c06"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.246105781703911`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 128, 220, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.992095214678873*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"ba19b056-e5a8-154e-adfd-b32de95e27f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 128, 221, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.9920952146989765`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"2c41def5-c18f-ef47-bda2-2a93dd6f1051"], + +Cell[BoxData["22.63949124283989`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9, + 3.992087962144432*^9, 3.992095277908125*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"8ec02c35-78ad-8045-a91c-bfd068e2b14b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970149184284`*^9, 3.991797037687023*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 129, 222, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.992095278012697*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"a5b33038-fea0-7741-aeeb-7a49a752fa24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 129, 223, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.9920952780575542`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"20fa1f4c-f172-9a4b-b892-b0319d036d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 129, 224, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.9920952780906487`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"9d354040-a1a0-2d4b-be51-fedd561b06a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 129, 225, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.992095278115656*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"98749a41-ecbe-5f45-abdd-838e213ef8fd"], + +Cell[BoxData["0.0025787500203033505`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9, + 3.9920879657184753`*^9, 3.9920952869914436`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"4dc1f06d-9408-7e45-a030-2c676d143ef7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970412382812`*^9, 3.991797045066601*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 130, 226, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287123516*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c5275299-3fde-c94d-b347-7da6f61e547b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 130, 227, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287160486*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"9790c932-563b-7140-bff3-9bf4d134623f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 130, 228, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287177513*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"2ae0fe8c-af7c-d840-8392-7d6b67b8d21d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 130, 229, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287202532*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c5eb565b-77c6-e147-90ed-902921f0a965"], + +Cell[BoxData["8.092673350073776`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9, + 3.992087968323471*^9, 3.9920952955711327`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3ae43d36-9223-c94c-8024-3fc8db4fc86d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970522453213`*^9, 3.991797055966772*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 230, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.992095295673092*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"d3f0ed56-bb79-b24e-9ce2-9c0f2416b9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 131, 231, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957031193`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"1e646479-dde8-144f-acca-05609b4f614e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 131, 232, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957211285`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"478cc043-a50a-ab4d-8e73-3c14a1374c59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 131, 233, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957391224`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"2e452b1a-76de-e54d-ac3a-c67b3d435661"], + +Cell[BoxData["132.5629807750473`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9, + 3.9920879700286446`*^9, 3.9920953009150314`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"01afdb5a-a31f-bb44-a07a-08bda2465f7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, 3.9917970642464314`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], + +Cell[BoxData["0.00007873214949058848`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9, + 3.992087970054697*^9, 3.9920953009792404`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"13540a6e-ea57-574b-a2e4-5a933d01b5b0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9}, + CellLabel-> + "In[133]:=",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["6.434497911915048`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9, + 3.992087970080673*^9, 3.9920953010422573`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"efb62571-0061-b941-98f0-9bad1b3dd062"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["5.5671885079343415`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9, + 3.992087970087681*^9, 3.9920953010583305`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"a1e25184-43fd-3640-ac6a-8360e3f757ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["35.82206282954097`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9, + 3.9920879701086807`*^9, 3.9920953010787697`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"d534abfb-a242-8047-9afa-e1ae43e37f18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.026426646734412064`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9, + 3.9920879701327267`*^9, 3.9920953011081505`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"75189e96-af7c-2240-b331-293903e30f54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[138]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.451599099024077`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9, + 3.992087970209774*^9, 3.9920953013575706`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"c10e95dd-7df9-1b4b-b975-dd444da23052"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[139]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.0016185252987367153`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9, + 3.9920879702317944`*^9, 3.9920953013926487`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"c948849b-cafa-214b-be04-78cb33ccab7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[140]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["22.02851365127898`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9, + 3.9920879703093796`*^9, 3.992095301611532*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"2e97305c-0557-904e-88d9-5af3b027d5f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9, + 3.992087970331398*^9, 3.992095301644438*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"deec3469-7db7-ca47-ad1c-02e73ff141ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9, + 3.9920879703544407`*^9, 3.99209530166737*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"c79a8dce-7a4c-fd47-a5d2-18b05310b8d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9, + 3.9920879703774605`*^9, 3.9920953016905537`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"a8c89ebf-b25a-574a-a3c2-763635903336"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9917970976395664`*^9}, + CellLabel-> + "In[144]:=",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 234, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.992095301743532*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"52968881-9fdd-3247-9f0e-12e7d89eb2e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 235, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.9920953017785244`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"4ff70a73-e0a8-874f-95f8-637eaa4857d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 236, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.992095301802532*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"eb36c090-1522-f148-bb8a-712cd538f6ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 237, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.9920953018295383`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"dc46d9f9-3a95-6d48-809e-0bac80064f97"], + +Cell[BoxData["5.451599099024076`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9, + 3.9920879723666058`*^9, 3.992095307537245*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"73a21fc2-aafc-8344-a764-3f06847a2e81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991797103207548*^9}, + CellLabel-> + "In[145]:=",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 238, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.9920953076732616`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e6f13bb-fab0-dc4d-8e0d-399b2b5c3afa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 239, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.992095307708254*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e9c17583-b1c9-4e46-a8d2-6cacf01fbe1c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 240, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.9920953077312775`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4bcdcd5c-830e-bc42-a377-8d13ec350007"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 241, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.992095307749264*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"5c6a4779-23ac-c441-9ba0-1c00ef474065"], + +Cell[BoxData["22.02851365127897`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9, + 3.9920879743627453`*^9, 3.9920953136104984`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"41f44cb4-8774-314f-bb12-e35ad53da4cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, 3.9917971122297535`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.548144520935719`*^-288\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 146, 242, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.9920953139414043`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"dc2c7297-7849-1f45-b5b5-5fc66f484f7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8608421404902835`*^-303\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 146, 243, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095313970402*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a8047b00-b032-3548-99f7-a162f70653a9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.702357102916186`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 244, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095313990404*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a89ef68d-0b7b-164d-9716-87d8b76ebb37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 245, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095314009405*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e3d5e900-1285-7e4f-b1d5-d65cb3bf7280"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.13944043381447724`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9, 3.99208821553434*^9, + 3.992095953676708*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e0995f3d-7180-784d-b12f-3285544284c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.13944043381447724`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920882155785446`*^9, 3.992095953801792*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"f0f8510a-6470-3044-8808-0ee991b89b91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[148]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.97148714582981`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 148, 246, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953916519*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"55d161d1-12aa-034d-b4ea-a77bbce98bf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.921454490510376`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 247, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953945528*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"97756aa7-c1c7-114f-93a9-a9512cb146c2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6314913284830476`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 248, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953962488*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"2c132bc4-3890-cd47-bfeb-5e1de5bd13c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 148, 249, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953981512*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"7d7e446f-7989-cb45-8334-f93cbe9d5025"], + +Cell[BoxData["22.639491242839892`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9, + 3.9920882415644855`*^9, 3.99209601683687*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"ab6f7f89-9dfe-dc42-b50e-08c295130e9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971275265427`*^9, 3.991797131794855*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 149, 250, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169208736`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"12343424-c269-9048-8d13-dd655c8eea75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 149, 251, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.992096016949871*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"b5fccfa1-a08f-cb42-83ee-641a7ff4ae71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 149, 252, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169748383`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"81c5f1ee-d76f-854e-a7f5-3f46c7374ba3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 149, 253, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169948254`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"83ce3613-9f03-8b4a-9532-4ff7b967a63e"], + +Cell[BoxData["0.0030700892719918165`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9, + 3.992088245187561*^9, 3.9920960258598213`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"6ec5dbe3-f6e7-8c4a-9c0d-cb43308fac64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971357813015`*^9, 3.991797138809105*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 150, 254, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.9920960259577084`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"9561cb48-6125-be4d-9e56-92082bf85aa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 150, 255, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.992096025992668*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"f0ed2788-633b-9b4e-bc6f-e4c694432b1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 150, 256, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.9920960260167084`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"d7a166a2-52ca-6b4b-9aba-bee1de03c1a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 150, 257, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.992096026037716*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"39e725f9-aa49-f74a-ba8a-429980004912"], + +Cell[BoxData["8.12066089047551`"], "Output", + CellChangeTimes->{3.9920882479408455`*^9, 3.992096034356451*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"5439bb3b-e8a6-6d4a-b85b-7f43852619c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, 3.991709478503729*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], + +Cell[BoxData["8.211884331115483`"], "Output", + CellChangeTimes->{3.992088247967409*^9, 3.9920960344640045`*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"015f049d-e66a-3c4e-9e41-d9d5f705331a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971437506504`*^9, 3.991797147210884*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 152, 258, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.992096034503969*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"51589503-1b7b-7b46-9ed1-654b3d3d94bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 152, 259, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.9920960345430183`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"a84ca43d-73c0-cd47-a35e-c64bf52eb0e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 152, 260, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.9920960345680065`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"5900028f-c4bd-7f4b-84a6-feb752262ead"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 152, 261, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.992096034584921*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d0d45a8e-b93b-fc4d-882d-2aa6d8215b27"], + +Cell[BoxData["132.59096831544795`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9, + 3.992088249588396*^9, 3.9920960398108215`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"dd5c3f0a-fa8b-9a46-8b76-fcbb457e5272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, 3.9917971576817684`*^9}}, + CellLabel-> + "In[153]:=",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], + +Cell[BoxData["0.00009356175192925738`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9, + 3.9920882496154118`*^9, 3.9920960398707848`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"0dbd93a3-e48f-424a-a43d-1df1388a0395"] +}, Open ]] +}, +WindowSize->{718.5, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[981, 31, 200, 3, 32, "Output",ExpressionUUID->"1f2f37e1-51c2-aa49-ab29-c0b6caf9a546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 28, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1569, 46, 429, 6, 32, "Output",ExpressionUUID->"0d226516-7f6f-0d42-8224-96106a402797"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 28, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[2262, 63, 421, 6, 32, "Output",ExpressionUUID->"074cb25d-ca6d-da48-a3fb-273dd265f29f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2720, 74, 175, 3, 28, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2898, 79, 398, 6, 32, "Output",ExpressionUUID->"8d48d129-5a72-0143-a341-cc4bf8b26681"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3333, 90, 257, 7, 43, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[3593, 99, 419, 6, 32, "Output",ExpressionUUID->"b0db3da0-a949-ab4c-be0b-7052ee9c4be1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4049, 110, 131, 2, 28, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[4183, 114, 405, 6, 32, "Output",ExpressionUUID->"f7c34acf-b2b8-7247-b530-1a9cd747565a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4625, 125, 276, 6, 28, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[4904, 133, 417, 6, 32, "Output",ExpressionUUID->"f6e39c89-ab95-bb4d-88d3-e96aa6fee407"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5358, 144, 257, 7, 28, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[5618, 153, 417, 6, 32, "Output",ExpressionUUID->"82ed812d-f01a-b746-afb8-7d9ff80a17a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6072, 164, 266, 5, 28, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[6341, 171, 434, 6, 32, "Output",ExpressionUUID->"573e6b29-47b4-d04d-bf7c-a3f2ab63a3e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6812, 182, 265, 5, 28, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[7080, 189, 437, 6, 32, "Output",ExpressionUUID->"1f5248fe-f5ee-f94a-9cb2-30a73060f695"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7554, 200, 129, 2, 28, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[7686, 204, 394, 6, 32, "Output",ExpressionUUID->"7c1e72ed-9d9b-5143-a8a7-5a624b06b6ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8117, 215, 129, 2, 28, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[8249, 219, 394, 6, 32, "Output",ExpressionUUID->"102d3e37-23fa-3a4e-b821-07729749ff5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8680, 230, 557, 19, 79, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[9240, 251, 394, 6, 32, "Output",ExpressionUUID->"90fdc215-b4fd-ac45-a6cc-34220152dc28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9671, 262, 557, 19, 79, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[10231, 283, 390, 6, 32, "Output",ExpressionUUID->"07d50c48-a449-a348-b422-86d4648310e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10658, 294, 1492, 48, 80, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[12153, 344, 398, 6, 32, "Output",ExpressionUUID->"5f4faa23-6cfc-b54b-ab03-6a64a24b2bbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12588, 355, 1331, 44, 80, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[13922, 401, 407, 7, 32, "Output",ExpressionUUID->"dbc78de8-1e08-6849-bc49-7f041bb6452b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14366, 413, 1331, 44, 80, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[15700, 459, 410, 7, 32, "Output",ExpressionUUID->"4063585e-143e-2b43-a75f-1b776b8fce82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16147, 471, 1492, 48, 80, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[17642, 521, 391, 6, 32, "Output",ExpressionUUID->"0d442392-bd3d-ff4e-8f68-3ebbc162b4c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18070, 532, 131, 2, 28, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[18204, 536, 373, 6, 32, "Output",ExpressionUUID->"04d06914-3184-d14d-908b-593b185fe88a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18614, 547, 177, 3, 28, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[18794, 552, 374, 6, 32, "Output",ExpressionUUID->"688cb4fe-767a-4342-8955-062fa63b67db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19205, 563, 134, 2, 28, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[19342, 567, 376, 6, 32, "Output",ExpressionUUID->"03852b79-94dd-e64e-8ac2-57f88633e47d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19755, 578, 219, 4, 28, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[19977, 584, 393, 7, 32, "Output",ExpressionUUID->"697312b3-4fa6-1a4c-9b6a-c1f0c713fd0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20407, 596, 134, 2, 28, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[20544, 600, 382, 6, 32, "Output",ExpressionUUID->"64b09692-4bfd-eb41-80fb-6ba22074c6d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20963, 611, 302, 5, 28, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[21268, 618, 321, 5, 32, "Output",ExpressionUUID->"d3e71f0b-2a72-2748-9419-6a731779dad4"] +}, Open ]], +Cell[21604, 626, 173, 2, 28, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[21802, 632, 322, 6, 28, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[22127, 640, 376, 6, 32, "Output",ExpressionUUID->"c77d4c5d-5d04-5a40-8aca-b57a05dc186b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22540, 651, 219, 4, 28, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[22762, 657, 380, 6, 32, "Output",ExpressionUUID->"3983ac4f-577f-2a44-bbd6-03ed5fa13dda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23179, 668, 350, 10, 43, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[23532, 680, 396, 6, 32, "Output",ExpressionUUID->"0426af90-7075-7d44-a5ac-4aaae47b9883"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23965, 691, 350, 10, 43, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[24318, 703, 414, 7, 32, "Output",ExpressionUUID->"50389186-e923-c84f-946b-b3b46aa53d98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24769, 715, 992, 26, 113, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[25764, 743, 386, 6, 32, "Output",ExpressionUUID->"c7d50fa0-7655-3949-9754-84c4bf6981a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26187, 754, 199, 3, 28, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[26389, 759, 378, 6, 32, "Output",ExpressionUUID->"8d07dc3f-1bef-9345-bbf5-a82b89663086"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26804, 770, 273, 4, 28, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[27080, 776, 337, 5, 32, "Output",ExpressionUUID->"94e6e8fd-09ef-5b49-a93a-aa3f77d4d0de"] +}, Open ]], +Cell[27432, 784, 175, 2, 28, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[27632, 790, 344, 6, 47, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[27979, 798, 326, 5, 32, "Output",ExpressionUUID->"b13c1c89-2d69-5b47-9206-7ba98b7bcfd6"] +}, Open ]], +Cell[28320, 806, 173, 2, 28, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[28518, 812, 343, 6, 47, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[28864, 820, 331, 5, 32, "Output",ExpressionUUID->"2350ab51-f952-f54c-9d58-4dd3680622a7"] +}, Open ]], +Cell[29210, 828, 175, 2, 28, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[29410, 834, 349, 6, 47, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[29762, 842, 328, 5, 32, "Output",ExpressionUUID->"56eea41f-21fa-4540-b2c4-3417d606fc85"] +}, Open ]], +Cell[30105, 850, 175, 2, 28, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[30305, 856, 275, 4, 28, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[30583, 862, 330, 5, 32, "Output",ExpressionUUID->"cec57294-4cf1-7d4f-97d1-524ea696524d"] +}, Open ]], +Cell[30928, 870, 173, 2, 28, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[31126, 876, 277, 4, 28, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[31406, 882, 333, 5, 32, "Output",ExpressionUUID->"d72a26d7-325b-f84f-b1d3-d09b92650c97"] +}, Open ]], +Cell[31754, 890, 171, 2, 28, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[31950, 896, 306, 5, 28, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[32259, 903, 326, 5, 32, "Output",ExpressionUUID->"33479ab1-1831-d84f-b5a3-18e49010da28"] +}, Open ]], +Cell[32600, 911, 175, 2, 28, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[32800, 917, 251, 4, 28, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[33054, 923, 326, 5, 32, "Output",ExpressionUUID->"d095e0e9-867b-0545-8112-e3ecb007e777"] +}, Open ]], +Cell[33395, 931, 171, 2, 28, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[33591, 937, 19809, 485, 2217, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[53403, 1424, 391, 6, 32, "Output",ExpressionUUID->"bc32f52b-90bb-1748-9186-3f822f3369ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53831, 1435, 19748, 489, 2304, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[73582, 1926, 394, 6, 32, "Output",ExpressionUUID->"d51decb7-b850-e94b-a633-eccd08eb4f21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74013, 1937, 19748, 483, 2276, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[93764, 2422, 409, 7, 32, "Output",ExpressionUUID->"5b064c3d-5a75-da42-820e-2d64aa12966c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94210, 2434, 22534, 553, 2583, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[116747, 2989, 407, 7, 32, "Output",ExpressionUUID->"f97a5b10-7037-e348-b9c2-17043c2def2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117191, 3001, 22535, 553, 2583, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[139729, 3556, 406, 7, 32, "Output",ExpressionUUID->"4dd43dad-a0f7-0b42-95b8-e0219acd1335"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140172, 3568, 25491, 626, 2890, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[165666, 4196, 403, 7, 32, "Output",ExpressionUUID->"e3523e85-ff1a-c64b-9621-8b0068e58521"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166106, 4208, 130, 2, 28, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[166239, 4212, 372, 6, 32, "Output",ExpressionUUID->"1e6689cb-fde0-a14c-a86b-0589cf6d7588"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166648, 4223, 130, 2, 28, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[166781, 4227, 374, 6, 32, "Output",ExpressionUUID->"91e27dbf-41c9-6945-8df6-00e08f25c9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167192, 4238, 1144, 39, 110, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[168339, 4279, 394, 6, 32, "Output",ExpressionUUID->"7673e0c6-02ca-0a45-8f3c-98de3d2dd0a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168770, 4290, 1041, 35, 110, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[169814, 4327, 409, 7, 32, "Output",ExpressionUUID->"fe14dedb-d5f5-c440-957b-4366a156d6ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170260, 4339, 1144, 39, 110, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[171407, 4380, 395, 6, 32, "Output",ExpressionUUID->"f5b936d8-78bf-f441-b6a3-7f6897cde95c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171839, 4391, 108, 1, 28, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[171950, 4394, 388, 6, 32, "Output",ExpressionUUID->"e617dd14-34ec-b141-9877-14ead2feb413"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172375, 4405, 108, 1, 28, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[172486, 4408, 417, 7, 32, "Output",ExpressionUUID->"db643f4e-6585-f34a-834d-f4884e38f627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172940, 4420, 108, 1, 28, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[173051, 4423, 405, 7, 32, "Output",ExpressionUUID->"7afa0c29-f1d4-4848-96d5-afa83fd7e517"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173493, 4435, 108, 1, 28, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[173604, 4438, 393, 6, 32, "Output",ExpressionUUID->"3a64b02c-f608-7f4f-8c13-0477ab6534f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174034, 4449, 107, 1, 28, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[174144, 4452, 391, 6, 32, "Output",ExpressionUUID->"1082e557-f74c-7943-b608-194fcfb39dc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174572, 4463, 107, 1, 28, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[174682, 4466, 393, 6, 32, "Output",ExpressionUUID->"5b163a5c-0abd-874f-9fcd-d6e6189f2fee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175112, 4477, 497, 16, 56, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[175612, 4495, 407, 7, 32, "Output",ExpressionUUID->"514d73e5-dfac-614b-bc7f-1fb2465b1b8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176056, 4507, 497, 16, 56, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[176556, 4525, 403, 7, 32, "Output",ExpressionUUID->"9fe787f2-9fa5-c149-b9cd-67edb07274a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176996, 4537, 1788, 60, 188, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[178787, 4599, 391, 6, 32, "Output",ExpressionUUID->"21fa67d5-9135-be44-9236-479701c3eb82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179215, 4610, 1101, 36, 133, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[180319, 4648, 408, 7, 32, "Output",ExpressionUUID->"3bbd01b2-c00d-e74c-ae88-fc6e61a80a2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180764, 4660, 1818, 61, 165, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[182585, 4723, 390, 6, 32, "Output",ExpressionUUID->"150268e6-aef4-de48-90ec-24cd40bccdfa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183012, 4734, 2499, 77, 133, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[185514, 4813, 390, 6, 32, "Output",ExpressionUUID->"ac97ed9a-a816-db4d-a59a-9dbb5fc182c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185941, 4824, 2499, 77, 133, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[188443, 4903, 388, 6, 32, "Output",ExpressionUUID->"8174809b-c48f-7843-9e4e-0df6caf60a77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188868, 4914, 234, 4, 28, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[189105, 4920, 343, 5, 32, "Output",ExpressionUUID->"575bccc9-5040-2240-88c9-e6b124d5f0e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189485, 4930, 265, 4, 28, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[189753, 4936, 347, 5, 32, "Output",ExpressionUUID->"0fa3666a-cfa7-3047-86b7-82a3bd007080"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190137, 4946, 1297, 42, 113, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[191437, 4990, 395, 6, 32, "Output",ExpressionUUID->"60caf887-115a-ee4d-8104-7740331b3a98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191869, 5001, 834, 27, 56, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[192706, 5030, 398, 6, 32, "Output",ExpressionUUID->"c0a33838-a30d-2849-947e-04e7918c1035"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193141, 5041, 889, 30, 56, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[194033, 5073, 399, 6, 32, "Output",ExpressionUUID->"bb64f621-728f-fb46-9a5d-15177462bdbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194469, 5084, 554, 18, 52, "Input",ExpressionUUID->"5ab6ac7c-83ae-6940-b5e3-8f463231aa41"], +Cell[195026, 5104, 408, 6, 32, "Output",ExpressionUUID->"61a5d6a8-42ea-0044-8638-fd9ef4da45f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195471, 5115, 661, 21, 52, "Input",ExpressionUUID->"ad27a0b7-bc3a-1b4e-aa65-7473f98c4a9a"], +Cell[196135, 5138, 393, 6, 32, "Output",ExpressionUUID->"f2c71c2c-b3a9-7048-a6ad-cc13c98c9926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196565, 5149, 166, 4, 56, "Input",ExpressionUUID->"ed86276b-f471-6f4e-8c1f-259c300ae2e3"], +Cell[196734, 5155, 419, 6, 32, "Output",ExpressionUUID->"349a9538-20d5-9343-bf63-4b00833da39a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197190, 5166, 232, 5, 55, "Input",ExpressionUUID->"b778afd8-0c57-064d-a11e-d7318164b910"], +Cell[197425, 5173, 367, 5, 32, "Output",ExpressionUUID->"14ac3d20-89fe-e749-945d-6e1b76de23f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197829, 5183, 219, 5, 43, "Input",ExpressionUUID->"6e57b6df-ce1a-784f-8068-542326a39aac"], +Cell[198051, 5190, 395, 6, 32, "Output",ExpressionUUID->"b2994db0-f60e-1e4b-90b8-da26ca3956ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198483, 5201, 177, 4, 43, "Input",ExpressionUUID->"eb50975c-b4ec-eb46-b7be-45bdd474b7dd"], +Cell[198663, 5207, 413, 6, 32, "Output",ExpressionUUID->"bceecd21-34c7-e240-b93f-e3fd1376a2ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199113, 5218, 6051, 184, 498, "Input",ExpressionUUID->"18e7b19c-7ef6-ac40-b366-c555cd77dfe4"], +Cell[205167, 5404, 393, 6, 32, "Output",ExpressionUUID->"fd2104fc-9239-9c43-a8fb-1a68b0221900"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205597, 5415, 364, 8, 42, "Input",ExpressionUUID->"362c980c-4dd4-a246-98d7-f0637b84f583"], +Cell[205964, 5425, 362, 5, 32, "Output",ExpressionUUID->"d25f9328-a161-e649-ab59-e0352fbf631b"] +}, Open ]], +Cell[206341, 5433, 488, 9, 42, "Input",ExpressionUUID->"4b46d0c0-ae96-6346-8059-3d7eedda7d5a"], +Cell[CellGroupData[{ +Cell[206854, 5446, 554, 18, 52, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[207411, 5466, 235, 3, 32, "Output",ExpressionUUID->"1f56ad2a-ebe2-ed43-aed8-707b53ebdbab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207683, 5474, 619, 20, 52, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[208305, 5496, 241, 3, 32, "Output",ExpressionUUID->"3fbd8164-f6b3-a245-8a5a-68a826eee5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208583, 5504, 166, 4, 56, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[208752, 5510, 242, 3, 32, "Output",ExpressionUUID->"99325b7e-8d08-524c-96ba-11147cf7b380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209031, 5518, 166, 4, 55, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[209200, 5524, 240, 3, 32, "Output",ExpressionUUID->"c6bf2375-16bc-2144-af0c-73a6055b684c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209477, 5532, 177, 4, 43, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[209657, 5538, 241, 3, 32, "Output",ExpressionUUID->"087bd074-167b-ce41-b0e3-e0884fa5caaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209935, 5546, 177, 4, 43, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[210115, 5552, 239, 3, 32, "Output",ExpressionUUID->"26f14ab4-2ecc-b34c-a504-fde1491ef3a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210391, 5560, 6051, 184, 498, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[216445, 5746, 241, 3, 32, "Output",ExpressionUUID->"d00c7d73-f327-f24e-a529-7601ff4ddf5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216723, 5754, 364, 8, 42, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[217090, 5764, 238, 3, 32, "Output",ExpressionUUID->"df5e744b-4c6e-314b-952f-51a04746b3ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217365, 5772, 6118, 186, 500, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[223486, 5960, 244, 3, 32, "Output",ExpressionUUID->"727f20d0-cbcf-b64b-88ad-713d668bd8e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223767, 5968, 364, 8, 42, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[224134, 5978, 242, 3, 32, "Output",ExpressionUUID->"5def92cd-3187-424d-a872-4204ea48a66d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224413, 5986, 2659, 87, 187, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[227075, 6075, 242, 3, 32, "Output",ExpressionUUID->"9d56b156-3341-2b47-9af0-b3a81d37da45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227354, 6083, 2599, 84, 165, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[229956, 6169, 245, 3, 32, "Output",ExpressionUUID->"c36d45c7-4dbd-3d4d-9c97-8f343d81e6b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230238, 6177, 3708, 117, 348, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[233949, 6296, 241, 3, 32, "Output",ExpressionUUID->"f5483177-7bc5-1e46-ab07-910bca3edd92"] +}, Open ]], +Cell[234205, 6302, 276, 5, 42, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[234506, 6311, 2075, 59, 228, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[236584, 6372, 614, 12, 60, "Message",ExpressionUUID->"d6cdbe65-8d25-6548-b0fd-25c330196b30"], +Cell[237201, 6386, 617, 12, 84, "Message",ExpressionUUID->"973a7dc9-2a55-974e-a8ef-ad96123bc066"], +Cell[237821, 6400, 624, 13, 84, "Message",ExpressionUUID->"4692edbb-9e20-544a-82a3-c807336945df"], +Cell[238448, 6415, 528, 11, 26, "Message",ExpressionUUID->"8790a6fd-6ed5-884e-8a56-d5e095abda7c"], +Cell[238979, 6428, 245, 4, 32, "Output",ExpressionUUID->"2a87223c-bd46-8e46-8e15-1778bf52e6fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239261, 6437, 2075, 59, 228, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[241339, 6498, 615, 12, 60, "Message",ExpressionUUID->"a1db36eb-e945-424c-88aa-e17dee223e87"], +Cell[241957, 6512, 618, 12, 84, "Message",ExpressionUUID->"971475ec-bf28-134c-94b3-2bc79bca6a5d"], +Cell[242578, 6526, 623, 13, 84, "Message",ExpressionUUID->"96728789-d869-1f42-8203-cf326fe65248"], +Cell[243204, 6541, 531, 11, 26, "Message",ExpressionUUID->"33526f03-2ae8-b646-9bfc-6e2c19be22ce"], +Cell[243738, 6554, 242, 4, 32, "Output",ExpressionUUID->"fc902aac-b437-9346-9d50-5ec1334da407"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244017, 6563, 1961, 53, 115, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[245981, 6618, 20045, 376, 237, "Output",ExpressionUUID->"adb49142-9e13-5c44-86ed-a0f8a1f5fddf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266063, 6999, 2139, 60, 211, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[268205, 7061, 566, 12, 60, "Message",ExpressionUUID->"9613d1d6-ec2d-8b4e-84ce-d80d2f4bf81c"], +Cell[268774, 7075, 569, 12, 60, "Message",ExpressionUUID->"18226e25-871e-8344-b233-03d870d34080"], +Cell[269346, 7089, 571, 12, 60, "Message",ExpressionUUID->"d8671db1-887f-a448-8553-bb2f17f70e0c"], +Cell[269920, 7103, 527, 11, 26, "Message",ExpressionUUID->"d36497ab-6403-6d4b-b7c8-db9111eff71a"], +Cell[270450, 7116, 22132, 410, 233, "Output",ExpressionUUID->"9cce9ccc-63ba-7f49-85cd-6b18572cfa7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292619, 7531, 1890, 51, 120, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[294512, 7584, 9024, 211, 240, "Output",ExpressionUUID->"5b9ba159-9875-924d-a362-62402dccc85c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303573, 7800, 280, 6, 42, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[303856, 7808, 28118, 534, 233, "Output",ExpressionUUID->"bcdf045b-0488-b741-b71d-bf8650035540"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332011, 8347, 324, 10, 43, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[332338, 8359, 243, 4, 32, "Output",ExpressionUUID->"547eade0-de49-9f40-ba2f-67866f7de0f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332618, 8368, 1837, 53, 183, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[334458, 8423, 540, 12, 60, "Message",ExpressionUUID->"b98a9dbc-c8b3-b746-8477-e4134f91c4ce"], +Cell[335001, 8437, 546, 12, 60, "Message",ExpressionUUID->"630f9697-d264-064a-a1ec-a13f7ad7c6c1"], +Cell[335550, 8451, 548, 12, 60, "Message",ExpressionUUID->"b60774b2-bbba-4045-a22f-27d1acee818a"], +Cell[336101, 8465, 507, 11, 26, "Message",ExpressionUUID->"16a4b044-59e5-aa4e-b8c8-7aeab06c5c31"], +Cell[336611, 8478, 22413, 413, 233, "Output",ExpressionUUID->"7380f4fc-b088-7344-943b-94a7f40c1b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359061, 8896, 1616, 48, 113, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[360680, 8946, 600, 12, 60, "Message",ExpressionUUID->"5d58617b-00b9-8847-bb2b-79a5097c6a03"], +Cell[361283, 8960, 605, 12, 60, "Message",ExpressionUUID->"d5e0363e-d496-d342-a1d6-e5721e7b6007"], +Cell[361891, 8974, 607, 12, 60, "Message",ExpressionUUID->"5e792f81-b248-d94e-9d4f-2cf0626a8786"], +Cell[362501, 8988, 526, 11, 26, "Message",ExpressionUUID->"82b2f5ac-bbd6-774a-812c-4c28011fb573"], +Cell[363030, 9001, 244, 4, 32, "Output",ExpressionUUID->"8f3a429f-4c4a-4247-854c-f1967364c2cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363311, 9010, 2300, 65, 223, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[365614, 9077, 613, 12, 60, "Message",ExpressionUUID->"adf45258-d8bd-0d45-9727-1df8d0b6a4d7"], +Cell[366230, 9091, 614, 12, 84, "Message",ExpressionUUID->"bb1dbbb7-5342-564b-85f8-113738804c1e"], +Cell[366847, 9105, 623, 13, 84, "Message",ExpressionUUID->"5ee0de5c-f255-e448-a774-f7d03336c3ab"], +Cell[367473, 9120, 527, 11, 26, "Message",ExpressionUUID->"f7a1703a-6d55-4649-afaf-3723f64cacac"], +Cell[368003, 9133, 243, 4, 32, "Output",ExpressionUUID->"4a0f67fc-5162-e64a-a019-edbd508b4c69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368283, 9142, 2242, 64, 162, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[370528, 9208, 614, 12, 60, "Message",ExpressionUUID->"4f1c8a7a-a965-4147-882d-b4aae11b76c3"], +Cell[371145, 9222, 614, 12, 84, "Message",ExpressionUUID->"b837c9e8-7303-7d42-a2b3-7b69f22d984c"], +Cell[371762, 9236, 622, 13, 84, "Message",ExpressionUUID->"8cd3b322-26a1-fc4f-8a54-32b1cb17b6fb"], +Cell[372387, 9251, 530, 11, 26, "Message",ExpressionUUID->"f479e1f6-a89f-fa42-8da1-817e21a9c8d7"], +Cell[372920, 9264, 248, 4, 32, "Output",ExpressionUUID->"18969214-7402-ba47-9c5a-dd4f823a3b51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373205, 9273, 2242, 64, 162, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[375450, 9339, 611, 12, 60, "Message",ExpressionUUID->"05117271-b40b-0441-9da0-429a3ebf17a5"], +Cell[376064, 9353, 614, 12, 84, "Message",ExpressionUUID->"2facaa62-1f78-5545-86e7-f46d95ac1c40"], +Cell[376681, 9367, 621, 13, 84, "Message",ExpressionUUID->"bdadfef4-6c2c-314c-a2d4-88803e50751c"], +Cell[377305, 9382, 529, 11, 26, "Message",ExpressionUUID->"a56933a2-3a6d-7743-ab0e-75c86c8c88fc"], +Cell[377837, 9395, 242, 4, 32, "Output",ExpressionUUID->"189552eb-1c9c-224b-90b9-7ef245383a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378116, 9404, 236, 6, 47, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[378355, 9412, 245, 4, 32, "Output",ExpressionUUID->"0a8e0955-ce9c-e940-8e56-7347aa883526"] +}, Open ]], +Cell[378615, 9419, 271, 6, 42, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[378911, 9429, 558, 19, 52, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[379472, 9450, 240, 4, 32, "Output",ExpressionUUID->"1df77361-bbd7-3747-bd4e-d686b1c97935"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379749, 9459, 170, 5, 56, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[379922, 9466, 245, 4, 32, "Output",ExpressionUUID->"ac36d08b-3fd3-c748-8d7b-6d3db712f6e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380204, 9475, 181, 5, 43, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[380388, 9482, 242, 4, 32, "Output",ExpressionUUID->"512d5f42-2b52-aa42-a41a-79581b371ea8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380667, 9491, 6055, 185, 498, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[386725, 9678, 245, 4, 32, "Output",ExpressionUUID->"bc9a3d95-1222-0149-a4cb-647439e71140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387007, 9687, 368, 9, 42, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[387378, 9698, 243, 4, 32, "Output",ExpressionUUID->"ff99978a-b4f6-834c-bdd1-38045c81f38e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387658, 9707, 6122, 187, 500, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[393783, 9896, 251, 4, 32, "Output",ExpressionUUID->"0516d552-c612-dc45-8980-bd5254f713d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394071, 9905, 368, 9, 42, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[394442, 9916, 241, 4, 32, "Output",ExpressionUUID->"32843051-db5d-5449-9596-10a1089cea6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394720, 9925, 2663, 88, 187, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[397386, 10015, 248, 4, 32, "Output",ExpressionUUID->"ac6d6644-f912-a84f-86bc-884d933d5061"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397671, 10024, 2603, 85, 165, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[400277, 10111, 241, 4, 32, "Output",ExpressionUUID->"9d9980d8-df46-5644-8bb2-4a0ba6c6e66d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400555, 10120, 3712, 118, 348, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[404270, 10240, 247, 4, 32, "Output",ExpressionUUID->"97e73886-59ac-a242-bcf4-fe47d27b4a97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404554, 10249, 2074, 59, 228, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[406631, 10310, 589, 12, 60, "Message",ExpressionUUID->"cf88e398-8f44-484c-af5c-147dcc94da0d"], +Cell[407223, 10324, 589, 12, 60, "Message",ExpressionUUID->"027405c7-9743-f049-bcb2-e32b622b1e77"], +Cell[407815, 10338, 595, 12, 60, "Message",ExpressionUUID->"be4a183a-d0a8-4647-b98d-ac649536105a"], +Cell[408413, 10352, 529, 11, 26, "Message",ExpressionUUID->"b45ac5df-e8e6-c14f-990f-547ff0f00cad"], +Cell[408945, 10365, 245, 4, 32, "Output",ExpressionUUID->"93a233ef-ddcc-374c-8bda-ebd5bddf6181"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409227, 10374, 2074, 59, 228, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[411304, 10435, 589, 12, 60, "Message",ExpressionUUID->"1be6857f-792f-a043-975f-2ba4a70175d6"], +Cell[411896, 10449, 591, 12, 60, "Message",ExpressionUUID->"a19c660d-f826-be45-82af-ca7529c80f53"], +Cell[412490, 10463, 597, 12, 60, "Message",ExpressionUUID->"5e640cf2-50de-104d-af8b-643b79d82f83"], +Cell[413090, 10477, 531, 11, 26, "Message",ExpressionUUID->"0a93686d-69d8-474d-a0fd-409f62953eee"], +Cell[413624, 10490, 244, 4, 32, "Output",ExpressionUUID->"2e46ddf3-0062-224b-9796-1306bdd2aa7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413905, 10499, 2138, 60, 211, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[416046, 10561, 537, 12, 60, "Message",ExpressionUUID->"93c85051-1f5f-454b-8284-ec6b1503035c"], +Cell[416586, 10575, 538, 12, 60, "Message",ExpressionUUID->"78504fd0-5163-4c43-b557-f5bf3753c331"], +Cell[417127, 10589, 557, 12, 27, "Message",ExpressionUUID->"f8eab59e-ff29-9043-98e0-0d255dae1661"], +Cell[417687, 10603, 505, 11, 26, "Message",ExpressionUUID->"2bcce08d-1c3f-364f-a211-f2a3f5fa9381"], +Cell[418195, 10616, 33070, 590, 233, "Output",ExpressionUUID->"0d2e6a4e-7884-ac4a-b403-2f7c3e1c38cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451302, 11211, 229, 5, 42, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[451534, 11218, 39026, 713, 233, "Output",ExpressionUUID->"86a52464-7f53-8d46-a5d1-a814b9500274"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490597, 11936, 1616, 48, 113, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[492216, 11986, 621, 12, 84, "Message",ExpressionUUID->"75884a80-7c5f-dc4c-9602-bf0bfeb0950c"], +Cell[492840, 12000, 626, 13, 84, "Message",ExpressionUUID->"12822573-a2b6-a245-8e96-f52e80420c06"], +Cell[493469, 12015, 629, 13, 66, "Message",ExpressionUUID->"ba19b056-e5a8-154e-adfd-b32de95e27f1"], +Cell[494101, 12030, 533, 11, 26, "Message",ExpressionUUID->"2c41def5-c18f-ef47-bda2-2a93dd6f1051"], +Cell[494637, 12043, 239, 4, 32, "Output",ExpressionUUID->"8ec02c35-78ad-8045-a91c-bfd068e2b14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494913, 12052, 2272, 64, 223, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[497188, 12118, 589, 12, 60, "Message",ExpressionUUID->"a5b33038-fea0-7741-aeeb-7a49a752fa24"], +Cell[497780, 12132, 593, 12, 60, "Message",ExpressionUUID->"20fa1f4c-f172-9a4b-b892-b0319d036d84"], +Cell[498376, 12146, 597, 12, 60, "Message",ExpressionUUID->"9d354040-a1a0-2d4b-be51-fedd561b06a1"], +Cell[498976, 12160, 529, 11, 26, "Message",ExpressionUUID->"98749a41-ecbe-5f45-abdd-838e213ef8fd"], +Cell[499508, 12173, 251, 4, 32, "Output",ExpressionUUID->"4dc1f06d-9408-7e45-a030-2c676d143ef7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499796, 12182, 2244, 64, 162, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[502043, 12248, 587, 12, 60, "Message",ExpressionUUID->"c5275299-3fde-c94d-b347-7da6f61e547b"], +Cell[502633, 12262, 589, 12, 60, "Message",ExpressionUUID->"9790c932-563b-7140-bff3-9bf4d134623f"], +Cell[503225, 12276, 593, 12, 60, "Message",ExpressionUUID->"2ae0fe8c-af7c-d840-8392-7d6b67b8d21d"], +Cell[503821, 12290, 527, 11, 26, "Message",ExpressionUUID->"c5eb565b-77c6-e147-90ed-902921f0a965"], +Cell[504351, 12303, 245, 4, 32, "Output",ExpressionUUID->"3ae43d36-9223-c94c-8024-3fc8db4fc86d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504633, 12312, 2244, 64, 162, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[506880, 12378, 589, 12, 60, "Message",ExpressionUUID->"d3f0ed56-bb79-b24e-9ce2-9c0f2416b9ce"], +Cell[507472, 12392, 593, 12, 60, "Message",ExpressionUUID->"1e646479-dde8-144f-acca-05609b4f614e"], +Cell[508068, 12406, 597, 12, 60, "Message",ExpressionUUID->"478cc043-a50a-ab4d-8e73-3c14a1374c59"], +Cell[508668, 12420, 531, 11, 26, "Message",ExpressionUUID->"2e452b1a-76de-e54d-ac3a-c67b3d435661"], +Cell[509202, 12433, 247, 4, 32, "Output",ExpressionUUID->"01afdb5a-a31f-bb44-a07a-08bda2465f7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509486, 12442, 236, 6, 47, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[509725, 12450, 246, 4, 32, "Output",ExpressionUUID->"13540a6e-ea57-574b-a2e4-5a933d01b5b0"] +}, Open ]], +Cell[509986, 12457, 268, 6, 42, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[510279, 12467, 558, 19, 52, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[510840, 12488, 245, 4, 32, "Output",ExpressionUUID->"efb62571-0061-b941-98f0-9bad1b3dd062"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511122, 12497, 170, 5, 56, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[511295, 12504, 242, 4, 32, "Output",ExpressionUUID->"a1e25184-43fd-3640-ac6a-8360e3f757ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511574, 12513, 181, 5, 43, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[511758, 12520, 247, 4, 32, "Output",ExpressionUUID->"d534abfb-a242-8047-9afa-e1ae43e37f18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512042, 12529, 6055, 185, 498, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[518100, 12716, 248, 4, 32, "Output",ExpressionUUID->"75189e96-af7c-2240-b331-293903e30f54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518385, 12725, 368, 9, 42, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[518756, 12736, 241, 4, 32, "Output",ExpressionUUID->"c10e95dd-7df9-1b4b-b975-dd444da23052"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519034, 12745, 6122, 187, 500, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[525159, 12934, 249, 4, 32, "Output",ExpressionUUID->"c948849b-cafa-214b-be04-78cb33ccab7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525445, 12943, 368, 9, 42, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[525816, 12954, 245, 4, 32, "Output",ExpressionUUID->"2e97305c-0557-904e-88d9-5af3b027d5f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526098, 12963, 2663, 88, 187, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[528764, 13053, 244, 4, 32, "Output",ExpressionUUID->"deec3469-7db7-ca47-ad1c-02e73ff141ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529045, 13062, 2603, 85, 165, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[531651, 13149, 244, 4, 32, "Output",ExpressionUUID->"c79a8dce-7a4c-fd47-a5d2-18b05310b8d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531932, 13158, 3712, 118, 348, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[535647, 13278, 247, 4, 32, "Output",ExpressionUUID->"a8c89ebf-b25a-574a-a3c2-763635903336"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535931, 13287, 2077, 59, 228, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[538011, 13348, 589, 12, 60, "Message",ExpressionUUID->"52968881-9fdd-3247-9f0e-12e7d89eb2e8"], +Cell[538603, 13362, 595, 12, 60, "Message",ExpressionUUID->"4ff70a73-e0a8-874f-95f8-637eaa4857d2"], +Cell[539201, 13376, 597, 12, 60, "Message",ExpressionUUID->"eb36c090-1522-f148-bb8a-712cd538f6ec"], +Cell[539801, 13390, 533, 11, 26, "Message",ExpressionUUID->"dc46d9f9-3a95-6d48-809e-0bac80064f97"], +Cell[540337, 13403, 243, 4, 32, "Output",ExpressionUUID->"73a21fc2-aafc-8344-a764-3f06847a2e81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540617, 13412, 2075, 59, 228, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[542695, 13473, 591, 12, 60, "Message",ExpressionUUID->"2e6f13bb-fab0-dc4d-8e0d-399b2b5c3afa"], +Cell[543289, 13487, 593, 12, 60, "Message",ExpressionUUID->"e9c17583-b1c9-4e46-a8d2-6cacf01fbe1c"], +Cell[543885, 13501, 599, 12, 60, "Message",ExpressionUUID->"4bcdcd5c-830e-bc42-a377-8d13ec350007"], +Cell[544487, 13515, 531, 11, 26, "Message",ExpressionUUID->"5c6a4779-23ac-c441-9ba0-1c00ef474065"], +Cell[545021, 13528, 245, 4, 32, "Output",ExpressionUUID->"41f44cb4-8774-314f-bb12-e35ad53da4cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545303, 13537, 2143, 60, 211, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[547449, 13599, 536, 12, 60, "Message",ExpressionUUID->"dc2c7297-7849-1f45-b5b5-5fc66f484f7f"], +Cell[547988, 13613, 537, 12, 60, "Message",ExpressionUUID->"a8047b00-b032-3548-99f7-a162f70653a9"], +Cell[548528, 13627, 555, 12, 27, "Message",ExpressionUUID->"a89ef68d-0b7b-164d-9716-87d8b76ebb37"], +Cell[549086, 13641, 503, 11, 26, "Message",ExpressionUUID->"e3d5e900-1285-7e4f-b1d5-d65cb3bf7280"], +Cell[549592, 13654, 33077, 590, 233, "Output",ExpressionUUID->"e0995f3d-7180-784d-b12f-3285544284c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[582706, 14249, 234, 5, 42, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[582943, 14256, 39038, 713, 233, "Output",ExpressionUUID->"f0f8510a-6470-3044-8808-0ee991b89b91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622018, 14974, 1616, 48, 113, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[623637, 15024, 617, 12, 84, "Message",ExpressionUUID->"55d161d1-12aa-034d-b4ea-a77bbce98bf0"], +Cell[624257, 15038, 625, 13, 84, "Message",ExpressionUUID->"97756aa7-c1c7-114f-93a9-a9512cb146c2"], +Cell[624885, 15053, 630, 13, 66, "Message",ExpressionUUID->"2c132bc4-3890-cd47-bfeb-5e1de5bd13c8"], +Cell[625518, 15068, 531, 11, 26, "Message",ExpressionUUID->"7d7e446f-7989-cb45-8334-f93cbe9d5025"], +Cell[626052, 15081, 245, 4, 32, "Output",ExpressionUUID->"ab6f7f89-9dfe-dc42-b50e-08c295130e9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626334, 15090, 2272, 64, 223, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[628609, 15156, 585, 12, 60, "Message",ExpressionUUID->"12343424-c269-9048-8d13-dd655c8eea75"], +Cell[629197, 15170, 587, 12, 60, "Message",ExpressionUUID->"b5fccfa1-a08f-cb42-83ee-641a7ff4ae71"], +Cell[629787, 15184, 593, 12, 60, "Message",ExpressionUUID->"81c5f1ee-d76f-854e-a7f5-3f46c7374ba3"], +Cell[630383, 15198, 527, 11, 26, "Message",ExpressionUUID->"83ce3613-9f03-8b4a-9532-4ff7b967a63e"], +Cell[630913, 15211, 244, 4, 32, "Output",ExpressionUUID->"6ec5dbe3-f6e7-8c4a-9c0d-cb43308fac64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[631194, 15220, 2244, 64, 162, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[633441, 15286, 589, 12, 60, "Message",ExpressionUUID->"9561cb48-6125-be4d-9e56-92082bf85aa7"], +Cell[634033, 15300, 591, 12, 60, "Message",ExpressionUUID->"f0ed2788-633b-9b4e-bc6f-e4c694432b1f"], +Cell[634627, 15314, 597, 12, 60, "Message",ExpressionUUID->"d7a166a2-52ca-6b4b-9aba-bee1de03c1a1"], +Cell[635227, 15328, 529, 11, 26, "Message",ExpressionUUID->"39e725f9-aa49-f74a-ba8a-429980004912"], +Cell[635759, 15341, 193, 3, 32, "Output",ExpressionUUID->"5439bb3b-e8a6-6d4a-b85b-7f43852619c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635989, 15349, 212, 4, 28, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[636204, 15355, 194, 3, 32, "Output",ExpressionUUID->"015f049d-e66a-3c4e-9e41-d9d5f705331a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636435, 15363, 2244, 64, 162, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[638682, 15429, 582, 12, 60, "Message",ExpressionUUID->"51589503-1b7b-7b46-9ed1-654b3d3d94bd"], +Cell[639267, 15443, 588, 12, 60, "Message",ExpressionUUID->"a84ca43d-73c0-cd47-a35e-c64bf52eb0e3"], +Cell[639858, 15457, 592, 12, 60, "Message",ExpressionUUID->"5900028f-c4bd-7f4b-84a6-feb752262ead"], +Cell[640453, 15471, 524, 11, 26, "Message",ExpressionUUID->"d0d45a8e-b93b-fc4d-882d-2aa6d8215b27"], +Cell[640980, 15484, 246, 4, 32, "Output",ExpressionUUID->"dd5c3f0a-fa8b-9a46-8b76-fcbb457e5272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[641263, 15493, 238, 6, 47, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[641504, 15501, 252, 4, 32, "Output",ExpressionUUID->"0dbd93a3-e48f-424a-a43d-1df1388a0395"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb new file mode 100755 index 0000000..c808704 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb @@ -0,0 +1,15770 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 662957, 15762] +NotebookOptionsPosition[ 622585, 15115] +NotebookOutlinePosition[ 623039, 15133] +CellTagsIndexPosition[ 622996, 15130] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"9ccd59f4-b50f-6c4d-9886-000ac16bbd26"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992101157250986*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"23ad788c-d1c4-c648-a53a-b88e6662a5e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"4d114053-0661-9c46-9efb-62b794f6d316"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9921011572700233`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"742bdbfe-14da-8c4e-b89b-2094ee32f1d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"ced22664-e0d6-624d-8572-c84cb7e5fc4e"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9921011572779865`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"55d74540-9694-a24a-92c0-b02c4afc5327"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"1ed6267e-43c1-1c4d-9cac-75c315fa9fbf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9921011572849865`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"191107d5-b6fa-234e-86b2-48a0b998be28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cbb0a58-3499-604e-853b-6f3e8cc9c133"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9921011572929993`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"39cc5908-7c47-f742-a7d0-1a13504d9abc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a9d26615-ac75-5d43-9095-7ee22a3c33f8"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.992101157299999*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"22da2c48-581a-fe47-8b0e-d89677dc7303"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"afacc702-e08b-f746-bb79-b94eeaa27f24"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.992101157306999*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"c6329d89-7905-8644-b610-c664c8b8a967"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c82b30ad-d126-0f4e-ab97-5d5aead5ef82"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9921011573149986`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"cf12ab24-c447-a948-b199-e4ac6ffedb84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"2e0bbff7-5261-7c4c-bce6-fdcc2f61f29d"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992101157322998*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5a6598e6-0595-5a47-9fd4-2933af7fa985"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"a35ada31-bed9-6449-83df-c374bb5ad9a8"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992101157330986*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ce1926fc-0fe9-4744-b19b-9125d51ba8b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e2aa0c35-146e-024c-abf8-7efe27e145b9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.9921011573419876`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"4f6bd922-3beb-cd4e-bdf2-45bee584935a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"2108fa0d-6ba5-ef49-ac71-a3cbb4a4e7cf"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9921011573499985`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7fb75b75-36ef-da48-b462-652f2a86fcdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"e8122927-0ce0-5648-a7ca-ac7dbc32a743"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921011573580055`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"9f543f89-4a6f-c446-affa-eddbfae03610"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"7b11db5f-82f4-f644-9690-d7bdcd8f26c2"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992101157368023*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"a8d4c118-89a1-774d-8b68-acb1c0f3bae1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"321e4fb5-b305-9c48-b98b-e22eee8323a4"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9921011574106674`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"11296915-be13-d64a-8ad6-ed6c8176a220"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"558a79a4-d07f-2943-8bfb-31bc438d7b34"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9921011574207897`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c674a226-5adc-6148-98f2-f4532926ed31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"c6988e85-c3ab-9542-8ac3-eaf150a60a4d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921011574307957`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"77622a22-4b9e-df42-9240-1aab8b48e8c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"4872db5a-8d18-ae4d-86a9-e80539c50c5a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.992101157440668*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"38428511-8eaf-b340-b546-a1344a49d8f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"6a6fafa8-9028-ea40-981c-d6f33a2bf931"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.99210115745006*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"6e27f826-5117-f44e-b5a8-68e67fb7c5e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"957c02af-69f2-044c-b66f-ca8aec73b6ba"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.9921011574580574`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"fc96cea4-773a-d044-bdbb-e1698f16fcc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"1a0834d3-f5c7-b544-ab5a-ad55f704b3fb"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.9921011574671593`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"eed9d627-216e-7e48-8a41-a480f9bced58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"17a3155f-1014-3f47-95c8-649b5592093b"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921011574770584`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e2eae877-2548-0141-9b41-ca661fd54f5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"262ddec4-b25b-0145-9154-91c4534f0366"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.992101157486189*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"2762cc5f-7e1d-0f4c-b680-97001871dff1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"98db454e-b76d-c448-a5fb-db17668fba13"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992101157496174*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a1421cbd-4f29-4443-ba6d-aa624ed9e6ad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"49b4df59-ba96-204d-8a7a-a050e7dc5eaf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"67372b79-e3d7-e740-aa8a-b6f2277896de"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921011575080585`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"9b20a5e2-3962-2446-8ccf-e040fdcf65cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"1db0f49a-d634-c240-a060-6437c979d1d8"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921011575173874`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"d566e4e6-6b36-c147-84d4-2fbd8f97412a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"38ed2f59-f1de-6c43-9d51-88bdd21c2523"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.992101157526268*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0466128c-8a36-a049-8b76-d1a7cf7368d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"e98ec72c-94a3-7a4f-aea3-cc9c0d9f8fbe"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9921011575353775`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"4f6ac787-6dba-a048-b94a-ff7ccc9800e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"071b0853-87fe-2c4d-abbd-372a4824c05d"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9921011575443993`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"129fc845-1a27-4b4a-8a13-b4990133fe49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d18f685d-e63f-3647-b6c2-98e303089120"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9921011575532665`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"241a7478-4b59-fe4d-a1dc-e830c4dd748f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"7ce4bf33-678e-6345-a119-39c36ca77ae4"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9921011575623817`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"f6354a05-0760-6540-ad47-73c9b7319414"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"b514a123-6026-484f-84d7-8e150ce2db52"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"c7106883-e563-8540-866d-1ddabf1f4a4b"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9921011575742664`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"1f9a30e5-a4f9-6d42-9eae-6091e1b974e0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0f6b6481-ff2b-604e-ab4b-84f8f6224cad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"be96ddc4-8bf8-8545-90da-8898239f225a"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9921011575873737`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"1de0f87c-c932-c24a-89c1-bf11c04da45b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"4c4bc4fd-4076-5942-89e5-3d70dd3c09b0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"3a0ba0b6-13d6-1b4e-b15e-a9bb6e05bad2"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.9921011575993958`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"7131298a-cffc-0441-8a08-cfa556588e2c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"a69ee115-40fc-104b-ba38-f14b73376dea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"a205c97c-d165-0947-aa6a-57c755f27d35"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992101157611391*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a0d63818-5af8-0142-8ff8-36d51797889c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"258ac512-03f3-424e-93ee-86aed42f7780"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"c1098943-f83d-634e-a451-074cdf3705ed"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992101157623268*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"5a6437c5-8318-1f45-b730-ae04b16232c5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"44a4b217-3a12-9a49-86c6-7bb730d97e55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"f9f0ed60-c7b0-9640-832c-69d7b64be9e3"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992101157637266*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"d62f5506-7706-cc42-8c58-67026a3d210d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"85153c64-3ee0-b545-802b-0660958a54a9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"81fd5cca-b4e6-eb4f-b249-e58b286958b5"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992101157649267*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"1afbd77d-e4f1-9e4e-a752-ba98d7dd8f68"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"e2b47040-d8c9-5e42-b8f2-74a7171d0d6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"4f430795-a3f2-4043-afa8-6d125e5219dd"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992101157706749*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7420f7af-3ead-3749-b57a-eb08edde6396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"40979b35-fde6-2047-a3c0-d71f140ab8aa"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921011577648582`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"16380e18-1ba2-444a-91a0-c6070e2921b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"19bf37a0-5998-014c-ba51-61b4a081bdf5"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9921011578198395`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"26cd2065-73d9-7344-938f-decccc4dfb84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"a27eec37-110d-6245-9258-0590846070f3"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921011578838234`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"bbb9b121-e262-504c-9c61-e85849cc878d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"dea08646-8790-374a-b1e1-a9f90787270f"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9921011579468555`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5ee9861a-4264-b14c-8de5-482f38cf2131"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"790e8edf-0829-964a-8673-ab402f0052eb"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.99210115801672*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"d5b4f3ac-6f08-6141-bc2d-64ad2febbb93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"ae47a8e6-15de-3a4d-a0e3-606d1abc5204"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992101158031719*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"500adfe9-84db-5a43-a44b-e46eb6948f0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"511ac548-1ba3-b447-aed3-6201a9681039"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9921011580397224`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"02d09e2d-5dc5-4d4e-9301-1aa44abf122b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"71a53709-0931-9b46-9464-a9642603eac2"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.992101158048828*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"b795c298-e60e-5e43-b690-6425a2f89817"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"02b71010-ebeb-5c45-b62e-6e5da40a9039"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9921011580587196`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"bce8972c-aae9-594f-a717-db8b9a6eea60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"4105a2bc-885a-9c49-9823-cadb72617b61"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921011580688286`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"0a8b86b4-75eb-e84f-8bdd-c72755283be1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"c0b972e2-1e2a-924c-b12e-ff655675d5ee"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.9921011580778217`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e0a2bfa6-f075-014f-a694-d286331585d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"7bbd518d-ee7d-f34a-afa5-93d250bf1681"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9921011580868454`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"875e5cc6-c373-d641-9031-615e901dd210"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"959162e6-9a6e-ff45-9bbc-85b0866303eb"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.992101158097843*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"262fb303-2a81-7248-b989-9cbbe23eafbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"8086e113-5e34-1043-804a-fd3fefeeaf1a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992101158106846*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"e10a9c4d-04a8-914e-9890-a9ff43611f53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"c1230acc-9188-a146-be4a-d76917ffbc66"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921011581157207`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"2c8c8238-6710-b542-a3c3-5487b2f0b4c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"70656adf-941f-8147-afa8-d0eb1c319a31"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9921011581248264`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"a3166d3c-9424-2540-8974-1666e9b456af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"8649d9fb-b2b4-6c49-893b-2df07ccbf42c"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992101158133852*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1915069e-4cc5-ed4b-abbb-12dfc4f2569a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"fc6dce02-59c7-ea44-a554-a4bdca467974"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9921011581457176`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"bdd0feb8-60af-344c-b34d-53179761962a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"adae67d7-bc50-7649-b94d-fec5a188ac2e"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992101158154848*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"6ae1ed77-4f9f-894e-93af-1f29b62a8885"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"bfe0d5b4-f04e-e44b-851a-766cd65ca74f"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921011581647224`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ae1c0e86-c544-ea47-a538-4c064b6f2b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"bfed6d3b-d506-874a-8c92-a614da11466e"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992101158175844*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"9db746cf-bd78-e546-83a7-38575de37952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2c5fdb57-2b2e-504d-af64-a4390c61ddf3"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992101158187044*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ff42d3d0-e9e4-6b49-88aa-8b2b8df42faa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"0e044b6a-eca5-8043-907f-b0d8a935429c"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.9921011582012424`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"44bd3aa8-99e1-5a4e-ba1b-32ddb86158a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{3.991846457174755*^9, 3.992088598180334*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], + +Cell[BoxData["0.524334841228278`"], "Output", + CellChangeTimes->{3.991339230490425*^9, 3.9921011582093563`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f1bbbdee-ed4c-1c45-9f1d-f9076c5ff6df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, 3.992088602549412*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], + +Cell[BoxData["0.902604856378696`"], "Output", + CellChangeTimes->{3.991339230517523*^9, 3.9921011582197456`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"08db4283-ed4b-4449-9000-7264777672f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.992101158228859*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"c5fca004-4066-954a-91e6-e6f81e869e6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9, {3.9915581887684402`*^9, 3.991558193612196*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], + +Cell[BoxData["4.6607566161458405`*^-55"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9921011582667217`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"920ed119-6d3d-ef41-b24c-9edc81255f65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}, + 3.9915581864980736`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], + +Cell[BoxData["7.914241537250374`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9921011582825985`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"cf34a479-4552-6d4e-b5a3-dca5051d9d53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["61.44238060379939`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.9921011582916985`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"55dcbc68-472e-9b45-852c-a595ff441c37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["233.5707701444674`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.992101158299721*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"94f3dc60-b60a-6a48-b91e-aef89a6e24ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["1.8016036043009018`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9921011583097134`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"0cb20c04-93ab-4c49-98d8-85a98afa9f47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["5.365887994763638`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.992101158318598*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"47a33522-af54-0a45-b000-1b27fa13dd11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["1253.3145914458948`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.992101158328596*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"dacfb8cd-894d-2443-b9c4-f66e52a81132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["110.6948143526328`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9921011583381596`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"89a0b9ee-2690-a34c-ac14-56ed151c8ba3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.008728179927406914`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.992101158350113*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b7f17378-ae8f-8a4c-8619-70ee881b39c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["9.48599945701404`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9921011584269447`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"991d1bde-412b-8e44-beb9-56079748f38b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.0008140150330969787`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.9921011584387074`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"455fbf97-3fcb-5948-a490-a64b84693d94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["31.061950834919497`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.992101158513544*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"bba0c568-37d5-e043-9bc7-207daf324f5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.992101158525505*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3e21c97f-0daf-5543-a954-ef04b0455527"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.992101158537636*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d352d455-3052-b546-8375-1c606f4f65b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.992101158549719*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"6fe5344e-63e5-dd43-89ea-91a605b576bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918464744109974`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 438, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992101158570717*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"0d8aa19f-2d03-604c-8faf-7a1893a3096f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 439, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921011585857162`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"91d39584-f1e9-1641-8c25-c525b30d1a86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 440, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921011585917187`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"4e985c69-4e22-784c-848a-4a04a11e08e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 441, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.99210115859774*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8a2e98d1-96d0-e548-b622-f83ea2d6e690"], + +Cell[BoxData["9.485999457014051`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.992101160721525*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"354699f2-0a91-c44f-a9e6-8537dac067d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918464780941105`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 442, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992101160776186*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4a14d5fc-c4a8-0243-969b-f80ee10b53e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 443, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921011607821865`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3dcf1e01-9ab3-214b-8ea5-137076d45e2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 444, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992101160788183*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3f73be19-027e-fe4d-8c4c-5cbebd108aa5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 445, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921011607931843`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4740b54e-e341-5e4f-ad37-8c51ce73fa06"], + +Cell[BoxData["31.061950834919486`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9921011628802776`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"090362cc-a4b7-1147-8131-58262e0ffe5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918464867236023`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8252239648657879, + 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8252239648657879, + 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8252239648657879, 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8252239648657897}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8252239648657879, 1.2036577163273166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9, 3.9921013744087257`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a3167d2c-5d61-2b40-a6f1-07bc367eb59a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, 3.9918465034759026`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.927425973998234`*^-276\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 94, 446, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921013746091976`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"2a3613cc-8856-d442-b625-b485082d49aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2094850047253624`*^-289\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 447, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992101374616276*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9c1d0f2a-3e3c-e84f-968d-8f382ef15056"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1116847471864206`*^-303\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 448, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.99210137462125*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4325ddd5-2866-224a-96c8-8f4b8fcd3b9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 449, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921013746272507`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9fa5a028-a5a8-2441-8ae4-c28446848de5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08013634784319816}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9, 3.99210182841634*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c6b9c42d-543e-934c-b745-098fa5a900f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920886200292816`*^9, 3.9920886214341545`*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921018285884457`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f2daac46-dad8-2249-a0db-4787ed63d6c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08013634784319816}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992101828644449*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"3dc75e34-5270-844b-802c-74a3ff117b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991923767707161*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], + +Cell[BoxData["31.37436817341234`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.992101828702856*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"77f349a4-d64f-cf46-b97e-07e7bad3b23d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9919237699816914`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.265679998435527`*^-274\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 450, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101828957815*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"2706148a-c11b-af46-8b16-ab3aefb68e97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.096203614206159`*^-287\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 451, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921018289748096`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"34ab4ebb-0893-9a40-aab7-6cbe40c26f92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.935522410406355`*^-300\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 452, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101828987707*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"c2d37903-5d14-b340-bd5e-b4ee36fc17eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 453, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101829001713*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"532b2c9c-1bba-ff41-89f5-9cd17d43504c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.0242291235614828}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.992102282791353*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"3280d894-c085-6549-9181-aacf8e50ed2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1879779830544592`*^-231\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 99, 454, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992102282870096*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"00b7eb07-73b9-c747-a2f2-79534efb705f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9987880705219257`*^-238\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 99, 455, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921022828800983`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"e08402ab-15fb-4742-9c42-6cfd41908add"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.569778245202013`*^-245\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 99, 456, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992102282886095*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"2f6f0f21-211b-dc4d-bb95-da4fb58b7950"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 457, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921022828920937`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5748e145-acc9-4040-b1f8-1e86d34bb3ee"], + +Cell[BoxData["31.374368173412364`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.992102300936508*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"5b469605-a154-9743-bd68-7280e6f510de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918465455039177`*^9, 3.9918465541706066`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 458, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921023009762993`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"4385c333-92ae-c14d-b940-cd56ce732a47"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 459, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992102300982809*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"799c7baa-0323-c749-9ea1-fd0489794d1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 460, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921023009888096`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"86851959-c648-5743-8719-345e1a58051f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 461, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992102300994808*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bf971445-bcf4-6f43-918c-836dc109e476"], + +Cell[BoxData["1.0545441112797334`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9921023051070595`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"047dc513-0eba-cd43-99e3-69f89ef5084d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846558454563*^9, 3.991846561166006*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 462, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051461678`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2e0bed5e-762a-544b-9d6d-33d50b62d5f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 463, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051531677`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fb525e83-cdea-a343-8254-f578369fa513"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 464, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051591682`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"313c8612-d3ca-7e47-9cbc-3c29087d192e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 465, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051651783`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c05943a9-411a-8641-b8ae-aacbf8b3492d"], + +Cell[BoxData["24.587237933614528`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9921023086969833`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"fc9aba4c-0c07-2343-ad56-16cfc3ecb94d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846565092888*^9, 3.991846568588709*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 466, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308736044*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"6dcf4964-6d63-3641-b23e-cd4323f213f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 467, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308743046*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"97157cbc-6fe5-584b-afac-48a432be4327"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 468, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921023087490444`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f087df99-1dfd-c24c-9f79-db03cd027684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 469, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308755045*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"3a9cb772-c110-724e-86f6-47887d15c2ad"], + +Cell[BoxData["263.6337510697847`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9921023107900906`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"9893f8c6-e819-1140-9d9a-3c90e5d360ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, 3.991846575865097*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], + +Cell[BoxData["0.013098132348733485`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.9921023108199635`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1e8dcfa4-9b9b-bf40-a448-dfd73e13bff0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["6.387731496076312`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9921023108439655`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"c4149dd4-cec3-3e46-a4c0-0c26d6c6a8d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["5.587530835375371`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.9921023108659763`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"d394585e-453b-504e-a65f-eea7e94d3ff3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["35.69164670242484`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.992102310888975*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"13e6abbe-904d-b646-ba9e-ca0b566d5104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.0252727843364644`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.992102310912964*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"34dfacf3-7ca4-ca47-b50c-47b9ddf59a69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["5.574660131075836`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.9921023109917297`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"793939ee-555a-a14f-b5c7-8950988b549e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.0008669452537340954`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.992102311013729*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"1c5b8d9f-802f-2f4e-82fd-de75316d5f45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["30.09879465276791`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9921023110912323`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"279115ac-a48f-f44a-b062-fbdd4a4143f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9921023111142197`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a13a27ee-7e77-9a48-9feb-6b7a8144ea92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.9921023111382313`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"a1acd141-efa8-1848-8820-820934b1e7a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9921023111612186`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"7ce5da1a-7659-6541-9d70-77bb2aec996a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918465999055576`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 115, 470, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.992102311189232*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"57eeb0ea-6382-fc40-99a9-6d8d7b8b8bf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 115, 471, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921023111962414`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"c5a4ddbd-115b-c748-9813-72b25fbeccdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 115, 472, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.992102311202236*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"86efd003-fd1f-0344-b205-7b67c00bdc53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 473, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921023112082176`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"6e635c9b-2ed3-5546-aed7-b81793c581cc"], + +Cell[BoxData["5.5746601310758415`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.992102313580284*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b0ccf111-5f22-c64f-b40b-cc80b048c5d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846603740141*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 474, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313636814*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"54f9d314-4fa3-d740-a0cd-6d818f3d0044"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 475, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313643816*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"65c64c97-79ba-844f-868d-0b913a4f3f71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 476, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.9921023136498184`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"71ecee3b-b3c2-bd41-bfbf-f4d899dabdb1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 477, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313655815*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"3d8fc746-9c71-b342-bd17-dec6be3e4945"], + +Cell[BoxData["30.098794652767896`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.9921023159598904`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0aded2fb-7a9c-f240-8bfa-11e4e842af6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466101881027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7963531636412476}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7963531636412459, 1.243978502179552}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9, 3.992102806865778*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"f1b40fd2-7980-8346-ab14-cf5674e772cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466141799603`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.662607122819456`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 478, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992102807206995*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9e839ac1-e2c8-2c4d-82a0-19193c9fd41e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.08518260994274`*^-295\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 479, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921028072280025`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"7765b859-1c01-0743-84ba-03b719869aa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.019343050275519`*^-308\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 480, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992102807241989*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"006179d3-b320-3944-9aae-e683ba724381"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 481, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921028072550163`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ed158082-d012-b249-a31a-50725a643a42"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13636229430188532`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9, 3.9921032770345783`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"a22520ef-cc3e-854d-84c1-b89f5d659d36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13636229430188532`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921032771586018`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"1b7f9284-ec61-fe47-95a1-ec06d683adbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0594776668265516`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 120, 482, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.99210327726713*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"627ad5ce-21df-cf40-8926-6bf5292da336"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5724714926217337`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 120, 483, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921032772850723`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"f0d830b1-d9cc-fd4b-a582-a01ae019036b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.246105781703911`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 120, 484, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.992103277299036*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"4c66dc37-f4b9-b048-abc1-661649c2aa1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 485, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921032773111305`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"9a3049df-9bf9-4d44-bd39-53307bd19da4"], + +Cell[BoxData["31.374368173412332`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9921033293589497`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1909a5e5-6960-5345-857f-4ecfb3a546b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466382952557`*^9, 3.9918466432862854`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 121, 486, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921033295010395`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"fc528c7c-714d-5c4c-bf5e-509102455a2e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 487, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992103329514044*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"6800c1f2-7581-a848-b1d3-e289f1e3273b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 488, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921033295281677`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"2e2d206a-1224-4344-bdb1-7ecb82086ce7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 489, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992103329549425*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"1cc67c85-c732-f84c-89f6-365b1760ca3e"], + +Cell[BoxData["0.8357011331830262`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.9921033397773533`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"fa6f6401-5cef-5d4f-beb6-006db9a4de09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466470672035`*^9, 3.991846650208416*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 490, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033398636494`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"3ce57a77-3c6d-9a4f-839f-5dcd4c178a63"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 491, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033398926487`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"d49b67a3-ec83-6d41-951b-46c9d580a437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 492, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033399087543`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2cb7d0e9-8e97-0b49-bc34-22e3680d2bc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 493, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992103339922779*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"0f3bfa69-8e37-ba42-b9ac-4d274eb2b67f"], + +Cell[BoxData["8.491420404870748`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.992103349925991*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"e2e338c7-99c3-c644-8941-4f6b9f186bd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184665401457*^9, 3.991846657234188*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 494, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921033500209923`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"3fcf00d2-ecb9-e24e-99db-9fbf4a83ab1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 495, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992103350041889*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"2effae2b-37fd-de4e-ad85-af94a7c35cee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 496, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921033500568924`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"e5474320-47cb-4f4f-8742-02984dce80ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 497, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992103350069895*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"90407195-ddb8-dd40-9140-6d5a24513513"], + +Cell[BoxData["247.53793354104258`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.992103357172613*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"7e753d70-17d1-aa41-9424-56f560bb614d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, 3.991846668968689*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], + +Cell[BoxData["0.018228038574476694`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.992103357232807*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"6f359ccc-f2ea-df45-8324-d3c1f3cdabb7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[126]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["6.434497911915048`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.992103357302887*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"c53513f5-9f67-4b49-a326-46b63fd8b115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["5.5671885079343415`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.9921033573543377`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"c34ec96c-681c-164c-8547-da490ccf1c7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["35.82206282954097`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9921033574292603`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"df14ac07-ba73-c14f-940e-24521ea0e685"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.025189759427078167`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.9921033574868774`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"2967dff1-c855-8345-8544-ba061bff582e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["5.583839553902033`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.992103357693651*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"431adf07-bff5-654a-bdc4-e8d324ad377b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.0008668472448271791`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9921033577529984`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"915e2ed5-03c1-8042-b24d-7d344e476d39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["30.100496144352853`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.9921033579194202`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"7a385866-d9ef-a548-9f8a-a6ef260cf4ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.992103357973875*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"7f856b82-0e34-e249-9323-d4b51f6eb30e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.9921033580262184`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"c045046b-d790-ed42-85e6-54a152135051"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.992103358083399*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"62def4ea-96ef-3b4b-91b1-a0fad8508e30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918466934711*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 136, 498, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033581660004`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"904a71cb-4485-6e42-b43f-768d29311072"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 136, 499, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.992103358178198*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"2a9194d1-fa31-5e4a-9980-ebd885742673"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 136, 500, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033581910744`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"83c2f634-b7ea-b34a-8fcb-80fe407c5782"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 501, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033582016277`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"bda5fa46-976e-ad45-a911-36e5d44989ee"], + +Cell[BoxData["5.583839553902038`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9921033643207607`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"141a8e5f-5e8e-2a4c-b7b5-f8a51f367f8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918466985968094`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 502, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921033644192524`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"4481646a-0c6d-5f4d-b8dd-d6f69274ec0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 503, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992103364439266*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"bffccbf5-6c1a-484f-950f-25d7492a0ee6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 504, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921033644532547`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c9b275cb-e48a-ea47-88af-6846ff84af48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 505, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992103364469261*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"2b19c04e-f165-8a4f-abe5-684757373997"], + +Cell[BoxData["30.100496144352935`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9921033704440746`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"98c6c2bc-4c90-4a40-bb8d-87c90e525ed0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846701939392*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.797482444417265, + 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.797482444417265, 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.797482444417265, 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7974824444172668}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.797482444417265, 1.2423585721227959`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9, 3.992103943505089*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"2351f65c-c49a-a247-9231-90194a30be6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918467058861084`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.188918184111437`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 506, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921039438941193`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"df198f7d-67be-5644-9bdc-ae1db45bdbd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.986298272514912`*^-295\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 507, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.992103943910204*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"61863a16-eeb4-b44a-b148-c97773a833c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[\\\"2.047920729897901`*^-7\\\", \\\"46\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 139, 508, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.992103943923092*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fa64c06e-85cf-b944-a59d-a162e2e0c8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 509, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921039439381065`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"bc26663d-0b94-c940-9d84-7f6ea41b4c35"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13613809914580166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9, 3.9921044039528275`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"9d6bcf65-6dc6-334e-8fc7-c38f5e882bc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13613809914580166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.99210440408914*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"b2a0960c-9f94-c749-bd0e-a5be3d9ca59f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.97148714582981`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 141, 510, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044041968555`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"b28bea99-5ddf-3c4a-a6ac-e42484f9a202"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.921454490510376`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 141, 511, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042149544`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5e5bb057-199c-e44d-bc0c-db027ec04e8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6314913284830476`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 141, 512, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042309513`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"62db4c2f-47af-a340-9030-00e4f1268e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 513, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042458572`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"f265bf8c-8076-ac4d-8311-e45258461b2e"], + +Cell[BoxData["31.374368173412375`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.9921044581499615`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"3bcdd31a-af86-324e-b079-ae778dd7a06f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846744062315*^9, 3.9918467481290073`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 142, 514, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583118553`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"b8859e87-21c4-704f-9f2b-ea285720f99b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 142, 515, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583252583`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"262f6f64-4a4c-b445-b7ea-47725577f046"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 142, 516, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583388996`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5deae5ff-c282-e745-a422-66e358c9efe3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 517, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992104458351675*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"31aa4854-e0de-df4c-9143-3374ced31dad"], + +Cell[BoxData["0.8270623467110724`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.992104468679516*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"25b260d0-51d1-aa45-8cc8-305697504356"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467529108715`*^9, 3.9918467555119896`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 518, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044687735195`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"9e98a6e1-acdb-4f4e-908c-cd07cb25f25d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 519, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044687894745`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"54982d00-8e31-fe47-b233-2f600bf1bada"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 520, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044688010197`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"67486d44-82e7-c043-b04c-2b6805c8a707"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 521, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.992104468812538*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8bb91b49-793d-484c-9f3a-6b4fd0d3293d"], + +Cell[BoxData["8.51940794527246`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9921044787073593`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"3c94e612-828b-3549-94b4-f3499dfb645a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467593835926`*^9, 3.991846761720169*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 522, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478803322*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"890cb829-aa79-1a45-8b4f-c95d2ff7be4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 523, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478828367*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e78fa290-2212-6042-8b79-ac0245f95600"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 524, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478844263*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"975d7b90-5c0a-fa4e-83a3-b47770799399"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 525, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478858265*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"27fd9c4e-9a28-5548-a80a-25b7bc5b29d2"], + +Cell[BoxData["247.56592108144181`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9921044851616917`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"e229ccbb-6f8b-a541-84c8-ca94e9243ef4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, 3.99184676823822*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], + +Cell[BoxData["0.018008938352818648`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.9921044852246685`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"effcf9ca-fa38-634c-a498-3d8843a70996"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.7 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 21, "Input",ExpressionUUID->"9ccd59f4-b50f-6c4d-9886-000ac16bbd26"], +Cell[981, 31, 200, 3, 23, "Output",ExpressionUUID->"23ad788c-d1c4-c648-a53a-b88e6662a5e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 21, "Input",ExpressionUUID->"4d114053-0661-9c46-9efb-62b794f6d316"], +Cell[1569, 46, 429, 6, 23, "Output",ExpressionUUID->"742bdbfe-14da-8c4e-b89b-2094ee32f1d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 21, "Input",ExpressionUUID->"ced22664-e0d6-624d-8572-c84cb7e5fc4e"], +Cell[2262, 63, 421, 6, 23, "Output",ExpressionUUID->"55d74540-9694-a24a-92c0-b02c4afc5327"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2720, 74, 175, 3, 21, "Input",ExpressionUUID->"1ed6267e-43c1-1c4d-9cac-75c315fa9fbf"], +Cell[2898, 79, 401, 6, 23, "Output",ExpressionUUID->"191107d5-b6fa-234e-86b2-48a0b998be28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3336, 90, 257, 7, 31, "Input",ExpressionUUID->"4cbb0a58-3499-604e-853b-6f3e8cc9c133"], +Cell[3596, 99, 421, 6, 23, "Output",ExpressionUUID->"39cc5908-7c47-f742-a7d0-1a13504d9abc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4054, 110, 131, 2, 21, "Input",ExpressionUUID->"a9d26615-ac75-5d43-9095-7ee22a3c33f8"], +Cell[4188, 114, 403, 6, 23, "Output",ExpressionUUID->"22da2c48-581a-fe47-8b0e-d89677dc7303"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4628, 125, 276, 6, 21, "Input",ExpressionUUID->"afacc702-e08b-f746-bb79-b94eeaa27f24"], +Cell[4907, 133, 415, 6, 23, "Output",ExpressionUUID->"c6329d89-7905-8644-b610-c664c8b8a967"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5359, 144, 257, 7, 21, "Input",ExpressionUUID->"c82b30ad-d126-0f4e-ab97-5d5aead5ef82"], +Cell[5619, 153, 417, 6, 23, "Output",ExpressionUUID->"cf12ab24-c447-a948-b199-e4ac6ffedb84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6073, 164, 266, 5, 21, "Input",ExpressionUUID->"2e0bbff7-5261-7c4c-bce6-fdcc2f61f29d"], +Cell[6342, 171, 434, 6, 23, "Output",ExpressionUUID->"5a6598e6-0595-5a47-9fd4-2933af7fa985"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6813, 182, 265, 5, 21, "Input",ExpressionUUID->"a35ada31-bed9-6449-83df-c374bb5ad9a8"], +Cell[7081, 189, 435, 6, 23, "Output",ExpressionUUID->"ce1926fc-0fe9-4744-b19b-9125d51ba8b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7553, 200, 129, 2, 21, "Input",ExpressionUUID->"e2aa0c35-146e-024c-abf8-7efe27e145b9"], +Cell[7685, 204, 396, 6, 23, "Output",ExpressionUUID->"4f6bd922-3beb-cd4e-bdf2-45bee584935a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8118, 215, 129, 2, 21, "Input",ExpressionUUID->"2108fa0d-6ba5-ef49-ac71-a3cbb4a4e7cf"], +Cell[8250, 219, 396, 6, 23, "Output",ExpressionUUID->"7fb75b75-36ef-da48-b462-652f2a86fcdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8683, 230, 557, 19, 59, "Input",ExpressionUUID->"e8122927-0ce0-5648-a7ca-ac7dbc32a743"], +Cell[9243, 251, 396, 6, 23, "Output",ExpressionUUID->"9f543f89-4a6f-c446-affa-eddbfae03610"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9676, 262, 557, 19, 59, "Input",ExpressionUUID->"7b11db5f-82f4-f644-9690-d7bdcd8f26c2"], +Cell[10236, 283, 390, 6, 23, "Output",ExpressionUUID->"a8d4c118-89a1-774d-8b68-acb1c0f3bae1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10663, 294, 1492, 48, 59, "Input",ExpressionUUID->"321e4fb5-b305-9c48-b98b-e22eee8323a4"], +Cell[12158, 344, 398, 6, 23, "Output",ExpressionUUID->"11296915-be13-d64a-8ad6-ed6c8176a220"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12593, 355, 1331, 44, 59, "Input",ExpressionUUID->"558a79a4-d07f-2943-8bfb-31bc438d7b34"], +Cell[13927, 401, 409, 7, 23, "Output",ExpressionUUID->"c674a226-5adc-6148-98f2-f4532926ed31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14373, 413, 1331, 44, 59, "Input",ExpressionUUID->"c6988e85-c3ab-9542-8ac3-eaf150a60a4d"], +Cell[15707, 459, 412, 7, 23, "Output",ExpressionUUID->"77622a22-4b9e-df42-9240-1aab8b48e8c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16156, 471, 1492, 48, 59, "Input",ExpressionUUID->"4872db5a-8d18-ae4d-86a9-e80539c50c5a"], +Cell[17651, 521, 389, 6, 23, "Output",ExpressionUUID->"38428511-8eaf-b340-b546-a1344a49d8f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18077, 532, 131, 2, 21, "Input",ExpressionUUID->"6a6fafa8-9028-ea40-981c-d6f33a2bf931"], +Cell[18211, 536, 370, 6, 23, "Output",ExpressionUUID->"6e27f826-5117-f44e-b5a8-68e67fb7c5e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18618, 547, 177, 3, 21, "Input",ExpressionUUID->"957c02af-69f2-044c-b66f-ca8aec73b6ba"], +Cell[18798, 552, 374, 6, 23, "Output",ExpressionUUID->"fc96cea4-773a-d044-bdbb-e1698f16fcc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19209, 563, 134, 2, 21, "Input",ExpressionUUID->"1a0834d3-f5c7-b544-ab5a-ad55f704b3fb"], +Cell[19346, 567, 378, 6, 23, "Output",ExpressionUUID->"eed9d627-216e-7e48-8a41-a480f9bced58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19761, 578, 219, 4, 21, "Input",ExpressionUUID->"17a3155f-1014-3f47-95c8-649b5592093b"], +Cell[19983, 584, 393, 7, 23, "Output",ExpressionUUID->"e2eae877-2548-0141-9b41-ca661fd54f5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20413, 596, 134, 2, 21, "Input",ExpressionUUID->"262ddec4-b25b-0145-9154-91c4534f0366"], +Cell[20550, 600, 380, 6, 23, "Output",ExpressionUUID->"2762cc5f-7e1d-0f4c-b680-97001871dff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20967, 611, 302, 5, 21, "Input",ExpressionUUID->"98db454e-b76d-c448-a5fb-db17668fba13"], +Cell[21272, 618, 321, 5, 23, "Output",ExpressionUUID->"a1421cbd-4f29-4443-ba6d-aa624ed9e6ad"] +}, Open ]], +Cell[21608, 626, 173, 2, 21, "Input",ExpressionUUID->"49b4df59-ba96-204d-8a7a-a050e7dc5eaf"], +Cell[CellGroupData[{ +Cell[21806, 632, 322, 6, 21, "Input",ExpressionUUID->"67372b79-e3d7-e740-aa8a-b6f2277896de"], +Cell[22131, 640, 376, 6, 23, "Output",ExpressionUUID->"9b20a5e2-3962-2446-8ccf-e040fdcf65cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22544, 651, 219, 4, 21, "Input",ExpressionUUID->"1db0f49a-d634-c240-a060-6437c979d1d8"], +Cell[22766, 657, 380, 6, 23, "Output",ExpressionUUID->"d566e4e6-6b36-c147-84d4-2fbd8f97412a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23183, 668, 350, 10, 31, "Input",ExpressionUUID->"38ed2f59-f1de-6c43-9d51-88bdd21c2523"], +Cell[23536, 680, 394, 6, 23, "Output",ExpressionUUID->"0466128c-8a36-a049-8b76-d1a7cf7368d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23967, 691, 350, 10, 31, "Input",ExpressionUUID->"e98ec72c-94a3-7a4f-aea3-cc9c0d9f8fbe"], +Cell[24320, 703, 414, 7, 23, "Output",ExpressionUUID->"4f6ac787-6dba-a048-b94a-ff7ccc9800e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24771, 715, 992, 26, 43, "Input",ExpressionUUID->"071b0853-87fe-2c4d-abbd-372a4824c05d"], +Cell[25766, 743, 389, 6, 23, "Output",ExpressionUUID->"129fc845-1a27-4b4a-8a13-b4990133fe49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26192, 754, 199, 3, 21, "Input",ExpressionUUID->"d18f685d-e63f-3647-b6c2-98e303089120"], +Cell[26394, 759, 378, 6, 23, "Output",ExpressionUUID->"241a7478-4b59-fe4d-a1dc-e830c4dd748f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26809, 770, 273, 4, 21, "Input",ExpressionUUID->"7ce4bf33-678e-6345-a119-39c36ca77ae4"], +Cell[27085, 776, 337, 5, 23, "Output",ExpressionUUID->"f6354a05-0760-6540-ad47-73c9b7319414"] +}, Open ]], +Cell[27437, 784, 175, 2, 21, "Input",ExpressionUUID->"b514a123-6026-484f-84d7-8e150ce2db52"], +Cell[CellGroupData[{ +Cell[27637, 790, 344, 6, 33, "Input",ExpressionUUID->"c7106883-e563-8540-866d-1ddabf1f4a4b"], +Cell[27984, 798, 326, 5, 23, "Output",ExpressionUUID->"1f9a30e5-a4f9-6d42-9eae-6091e1b974e0"] +}, Open ]], +Cell[28325, 806, 173, 2, 21, "Input",ExpressionUUID->"0f6b6481-ff2b-604e-ab4b-84f8f6224cad"], +Cell[CellGroupData[{ +Cell[28523, 812, 343, 6, 33, "Input",ExpressionUUID->"be96ddc4-8bf8-8545-90da-8898239f225a"], +Cell[28869, 820, 331, 5, 23, "Output",ExpressionUUID->"1de0f87c-c932-c24a-89c1-bf11c04da45b"] +}, Open ]], +Cell[29215, 828, 175, 2, 21, "Input",ExpressionUUID->"4c4bc4fd-4076-5942-89e5-3d70dd3c09b0"], +Cell[CellGroupData[{ +Cell[29415, 834, 349, 6, 33, "Input",ExpressionUUID->"3a0ba0b6-13d6-1b4e-b15e-a9bb6e05bad2"], +Cell[29767, 842, 330, 5, 23, "Output",ExpressionUUID->"7131298a-cffc-0441-8a08-cfa556588e2c"] +}, Open ]], +Cell[30112, 850, 175, 2, 21, "Input",ExpressionUUID->"a69ee115-40fc-104b-ba38-f14b73376dea"], +Cell[CellGroupData[{ +Cell[30312, 856, 275, 4, 21, "Input",ExpressionUUID->"a205c97c-d165-0947-aa6a-57c755f27d35"], +Cell[30590, 862, 328, 5, 23, "Output",ExpressionUUID->"a0d63818-5af8-0142-8ff8-36d51797889c"] +}, Open ]], +Cell[30933, 870, 173, 2, 21, "Input",ExpressionUUID->"258ac512-03f3-424e-93ee-86aed42f7780"], +Cell[CellGroupData[{ +Cell[31131, 876, 277, 4, 21, "Input",ExpressionUUID->"c1098943-f83d-634e-a451-074cdf3705ed"], +Cell[31411, 882, 331, 5, 23, "Output",ExpressionUUID->"5a6437c5-8318-1f45-b730-ae04b16232c5"] +}, Open ]], +Cell[31757, 890, 171, 2, 21, "Input",ExpressionUUID->"44a4b217-3a12-9a49-86c6-7bb730d97e55"], +Cell[CellGroupData[{ +Cell[31953, 896, 306, 5, 21, "Input",ExpressionUUID->"f9f0ed60-c7b0-9640-832c-69d7b64be9e3"], +Cell[32262, 903, 326, 5, 23, "Output",ExpressionUUID->"d62f5506-7706-cc42-8c58-67026a3d210d"] +}, Open ]], +Cell[32603, 911, 175, 2, 21, "Input",ExpressionUUID->"85153c64-3ee0-b545-802b-0660958a54a9"], +Cell[CellGroupData[{ +Cell[32803, 917, 251, 4, 21, "Input",ExpressionUUID->"81fd5cca-b4e6-eb4f-b249-e58b286958b5"], +Cell[33057, 923, 324, 5, 23, "Output",ExpressionUUID->"1afbd77d-e4f1-9e4e-a752-ba98d7dd8f68"] +}, Open ]], +Cell[33396, 931, 171, 2, 21, "Input",ExpressionUUID->"e2b47040-d8c9-5e42-b8f2-74a7171d0d6c"], +Cell[CellGroupData[{ +Cell[33592, 937, 19809, 485, 1329, "Input",ExpressionUUID->"4f430795-a3f2-4043-afa8-6d125e5219dd"], +Cell[53404, 1424, 391, 6, 23, "Output",ExpressionUUID->"7420f7af-3ead-3749-b57a-eb08edde6396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53832, 1435, 19748, 489, 1336, "Input",ExpressionUUID->"40979b35-fde6-2047-a3c0-d71f140ab8aa"], +Cell[73583, 1926, 394, 6, 23, "Output",ExpressionUUID->"16380e18-1ba2-444a-91a0-c6070e2921b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74014, 1937, 19748, 483, 1338, "Input",ExpressionUUID->"19bf37a0-5998-014c-ba51-61b4a081bdf5"], +Cell[93765, 2422, 409, 7, 23, "Output",ExpressionUUID->"26cd2065-73d9-7344-938f-decccc4dfb84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94211, 2434, 22534, 553, 1483, "Input",ExpressionUUID->"a27eec37-110d-6245-9258-0590846070f3"], +Cell[116748, 2989, 409, 7, 23, "Output",ExpressionUUID->"bbb9b121-e262-504c-9c61-e85849cc878d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117194, 3001, 22535, 553, 1482, "Input",ExpressionUUID->"dea08646-8790-374a-b1e1-a9f90787270f"], +Cell[139732, 3556, 406, 7, 23, "Output",ExpressionUUID->"5ee9861a-4264-b14c-8de5-482f38cf2131"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140175, 3568, 25491, 626, 1642, "Input",ExpressionUUID->"790e8edf-0829-964a-8673-ab402f0052eb"], +Cell[165669, 4196, 402, 7, 23, "Output",ExpressionUUID->"d5b4f3ac-6f08-6141-bc2d-64ad2febbb93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166108, 4208, 130, 2, 21, "Input",ExpressionUUID->"ae47a8e6-15de-3a4d-a0e3-606d1abc5204"], +Cell[166241, 4212, 370, 6, 23, "Output",ExpressionUUID->"500adfe9-84db-5a43-a44b-e46eb6948f0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166648, 4223, 130, 2, 21, "Input",ExpressionUUID->"511ac548-1ba3-b447-aed3-6201a9681039"], +Cell[166781, 4227, 374, 6, 23, "Output",ExpressionUUID->"02d09e2d-5dc5-4d4e-9301-1aa44abf122b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167192, 4238, 1144, 39, 41, "Input",ExpressionUUID->"71a53709-0931-9b46-9464-a9642603eac2"], +Cell[168339, 4279, 392, 6, 23, "Output",ExpressionUUID->"b795c298-e60e-5e43-b690-6425a2f89817"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168768, 4290, 1041, 35, 41, "Input",ExpressionUUID->"02b71010-ebeb-5c45-b62e-6e5da40a9039"], +Cell[169812, 4327, 409, 7, 23, "Output",ExpressionUUID->"bce8972c-aae9-594f-a717-db8b9a6eea60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170258, 4339, 1144, 39, 41, "Input",ExpressionUUID->"4105a2bc-885a-9c49-9823-cadb72617b61"], +Cell[171405, 4380, 395, 6, 23, "Output",ExpressionUUID->"0a8b86b4-75eb-e84f-8bdd-c72755283be1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171837, 4391, 108, 1, 21, "Input",ExpressionUUID->"c0b972e2-1e2a-924c-b12e-ff655675d5ee"], +Cell[171948, 4394, 390, 6, 23, "Output",ExpressionUUID->"e0a2bfa6-f075-014f-a694-d286331585d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172375, 4405, 108, 1, 21, "Input",ExpressionUUID->"7bbd518d-ee7d-f34a-afa5-93d250bf1681"], +Cell[172486, 4408, 417, 7, 23, "Output",ExpressionUUID->"875e5cc6-c373-d641-9031-615e901dd210"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172940, 4420, 108, 1, 21, "Input",ExpressionUUID->"959162e6-9a6e-ff45-9bbc-85b0866303eb"], +Cell[173051, 4423, 405, 7, 23, "Output",ExpressionUUID->"262fb303-2a81-7248-b989-9cbbe23eafbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173493, 4435, 108, 1, 21, "Input",ExpressionUUID->"8086e113-5e34-1043-804a-fd3fefeeaf1a"], +Cell[173604, 4438, 393, 6, 23, "Output",ExpressionUUID->"e10a9c4d-04a8-914e-9890-a9ff43611f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174034, 4449, 107, 1, 21, "Input",ExpressionUUID->"c1230acc-9188-a146-be4a-d76917ffbc66"], +Cell[174144, 4452, 393, 6, 23, "Output",ExpressionUUID->"2c8c8238-6710-b542-a3c3-5487b2f0b4c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174574, 4463, 107, 1, 21, "Input",ExpressionUUID->"70656adf-941f-8147-afa8-d0eb1c319a31"], +Cell[174684, 4466, 393, 6, 23, "Output",ExpressionUUID->"a3166d3c-9424-2540-8974-1666e9b456af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175114, 4477, 497, 16, 41, "Input",ExpressionUUID->"8649d9fb-b2b4-6c49-893b-2df07ccbf42c"], +Cell[175614, 4495, 407, 7, 23, "Output",ExpressionUUID->"1915069e-4cc5-ed4b-abbb-12dfc4f2569a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176058, 4507, 497, 16, 41, "Input",ExpressionUUID->"fc6dce02-59c7-ea44-a554-a4bdca467974"], +Cell[176558, 4525, 406, 7, 23, "Output",ExpressionUUID->"bdd0feb8-60af-344c-b34d-53179761962a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177001, 4537, 1788, 60, 81, "Input",ExpressionUUID->"adae67d7-bc50-7649-b94d-fec5a188ac2e"], +Cell[178792, 4599, 389, 6, 23, "Output",ExpressionUUID->"6ae1ed77-4f9f-894e-93af-1f29b62a8885"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179218, 4610, 1101, 36, 41, "Input",ExpressionUUID->"bfe0d5b4-f04e-e44b-851a-766cd65ca74f"], +Cell[180322, 4648, 411, 7, 23, "Output",ExpressionUUID->"ae1c0e86-c544-ea47-a538-4c064b6f2b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180770, 4660, 1818, 61, 81, "Input",ExpressionUUID->"bfed6d3b-d506-874a-8c92-a614da11466e"], +Cell[182591, 4723, 390, 6, 23, "Output",ExpressionUUID->"9db746cf-bd78-e546-83a7-38575de37952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183018, 4734, 2499, 77, 36, "Input",ExpressionUUID->"2c5fdb57-2b2e-504d-af64-a4390c61ddf3"], +Cell[185520, 4813, 390, 6, 23, "Output",ExpressionUUID->"ff42d3d0-e9e4-6b49-88aa-8b2b8df42faa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185947, 4824, 2499, 77, 36, "Input",ExpressionUUID->"0e044b6a-eca5-8043-907f-b0d8a935429c"], +Cell[188449, 4903, 391, 6, 23, "Output",ExpressionUUID->"44bd3aa8-99e1-5a4e-ba1b-32ddb86158a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188877, 4914, 209, 3, 21, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[189089, 4919, 190, 2, 23, "Output",ExpressionUUID->"f1bbbdee-ed4c-1c45-9f1d-f9076c5ff6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189316, 4926, 211, 3, 21, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[189530, 4931, 190, 2, 23, "Output",ExpressionUUID->"08db4283-ed4b-4449-9000-7264777672f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189757, 4938, 1297, 42, 35, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[191057, 4982, 193, 2, 23, "Output",ExpressionUUID->"c5fca004-4066-954a-91e6-e6f81e869e6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191287, 4989, 927, 29, 41, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[192217, 5020, 196, 2, 23, "Output",ExpressionUUID->"920ed119-6d3d-ef41-b24c-9edc81255f65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192450, 5027, 985, 32, 41, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[193438, 5061, 197, 2, 23, "Output",ExpressionUUID->"cf34a479-4552-6d4e-b5a3-dca5051d9d53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193672, 5068, 554, 18, 38, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[194229, 5088, 192, 2, 23, "Output",ExpressionUUID->"55dcbc68-472e-9b45-852c-a595ff441c37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194458, 5095, 647, 21, 38, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[195108, 5118, 187, 2, 23, "Output",ExpressionUUID->"94f3dc60-b60a-6a48-b91e-aef89a6e24ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195332, 5125, 166, 4, 41, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[195501, 5131, 193, 2, 23, "Output",ExpressionUUID->"0cb20c04-93ab-4c49-98d8-85a98afa9f47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195731, 5138, 166, 4, 40, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[195900, 5144, 187, 2, 23, "Output",ExpressionUUID->"47a33522-af54-0a45-b000-1b27fa13dd11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196124, 5151, 177, 4, 32, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[196304, 5157, 191, 2, 23, "Output",ExpressionUUID->"dacfb8cd-894d-2443-b9c4-f66e52a81132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196532, 5164, 177, 4, 32, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[196712, 5170, 190, 2, 23, "Output",ExpressionUUID->"89a0b9ee-2690-a34c-ac14-56ed151c8ba3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196939, 5177, 6051, 184, 242, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[202993, 5363, 193, 2, 23, "Output",ExpressionUUID->"b7f17378-ae8f-8a4c-8619-70ee881b39c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203223, 5370, 364, 8, 29, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[203590, 5380, 189, 2, 23, "Output",ExpressionUUID->"991d1bde-412b-8e44-beb9-56079748f38b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203816, 5387, 6118, 186, 242, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[209937, 5575, 196, 2, 23, "Output",ExpressionUUID->"455fbf97-3fcb-5948-a490-a64b84693d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210170, 5582, 364, 8, 29, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[210537, 5592, 189, 2, 23, "Output",ExpressionUUID->"bba0c568-37d5-e043-9bc7-207daf324f5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210763, 5599, 2659, 87, 121, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[213425, 5688, 189, 2, 23, "Output",ExpressionUUID->"3e21c97f-0daf-5543-a954-ef04b0455527"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213651, 5695, 2599, 84, 121, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[216253, 5781, 190, 2, 23, "Output",ExpressionUUID->"d352d455-3052-b546-8375-1c606f4f65b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216480, 5788, 3708, 117, 178, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[220191, 5907, 190, 2, 23, "Output",ExpressionUUID->"6fe5344e-63e5-dd43-89ea-91a605b576bf"] +}, Open ]], +Cell[220396, 5912, 160, 3, 29, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[220581, 5919, 2073, 58, 83, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[222657, 5979, 550, 11, 44, "Message",ExpressionUUID->"0d8aa19f-2d03-604c-8faf-7a1893a3096f"], +Cell[223210, 5992, 555, 11, 44, "Message",ExpressionUUID->"91d39584-f1e9-1641-8c25-c525b30d1a86"], +Cell[223768, 6005, 557, 11, 44, "Message",ExpressionUUID->"4e985c69-4e22-784c-848a-4a04a11e08e2"], +Cell[224328, 6018, 477, 10, 18, "Message",ExpressionUUID->"8a2e98d1-96d0-e548-b622-f83ea2d6e690"], +Cell[224808, 6030, 190, 2, 23, "Output",ExpressionUUID->"354699f2-0a91-c44f-a9e6-8537dac067d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225035, 6037, 2073, 58, 83, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[227111, 6097, 548, 11, 44, "Message",ExpressionUUID->"4a14d5fc-c4a8-0243-969b-f80ee10b53e3"], +Cell[227662, 6110, 553, 11, 44, "Message",ExpressionUUID->"3dcf1e01-9ab3-214b-8ea5-137076d45e2d"], +Cell[228218, 6123, 553, 11, 44, "Message",ExpressionUUID->"3f73be19-027e-fe4d-8c4c-5cbebd108aa5"], +Cell[228774, 6136, 478, 10, 18, "Message",ExpressionUUID->"4740b54e-e341-5e4f-ad37-8c51ce73fa06"], +Cell[229255, 6148, 190, 2, 23, "Output",ExpressionUUID->"090362cc-a4b7-1147-8131-58262e0ffe5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229482, 6155, 1957, 52, 62, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[231442, 6209, 20479, 383, 166, "Output",ExpressionUUID->"a3167d2c-5d61-2b40-a6f1-07bc367eb59a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251958, 6597, 2139, 59, 83, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[254100, 6658, 511, 11, 30, "Message",ExpressionUUID->"2a3613cc-8856-d442-b625-b485082d49aa"], +Cell[254614, 6671, 513, 11, 30, "Message",ExpressionUUID->"9c1d0f2a-3e3c-e84f-968d-8f382ef15056"], +Cell[255130, 6684, 515, 11, 30, "Message",ExpressionUUID->"4325ddd5-2866-224a-96c8-8f4b8fcd3b9b"], +Cell[255648, 6697, 478, 10, 18, "Message",ExpressionUUID->"9fa5a028-a5a8-2441-8ae4-c28446848de5"], +Cell[256129, 6709, 22454, 414, 163, "Output",ExpressionUUID->"c6b9c42d-543e-934c-b745-098fa5a900f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278620, 7128, 1888, 50, 57, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[280511, 7180, 8995, 209, 168, "Output",ExpressionUUID->"f2daac46-dad8-2249-a0db-4787ed63d6c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289543, 7394, 276, 5, 29, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[289822, 7401, 28468, 539, 163, "Output",ExpressionUUID->"3dc75e34-5270-844b-802c-74a3ff117b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318327, 7945, 234, 6, 35, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[318564, 7953, 188, 2, 23, "Output",ExpressionUUID->"77f349a4-d64f-cf46-b97e-07e7bad3b23d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318789, 7960, 1835, 52, 83, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[320627, 8014, 512, 11, 30, "Message",ExpressionUUID->"2706148a-c11b-af46-8b16-ab3aefb68e97"], +Cell[321142, 8027, 517, 11, 30, "Message",ExpressionUUID->"34ab4ebb-0893-9a40-aab7-6cbe40c26f92"], +Cell[321662, 8040, 517, 11, 30, "Message",ExpressionUUID->"c2d37903-5d14-b340-bd5e-b4ee36fc17eb"], +Cell[322182, 8053, 476, 10, 18, "Message",ExpressionUUID->"532b2c9c-1bba-ff41-89f5-9cd17d43504c"], +Cell[322661, 8065, 22246, 411, 162, "Output",ExpressionUUID->"3280d894-c085-6549-9181-aacf8e50ed2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344944, 8481, 1612, 47, 62, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[346559, 8530, 552, 11, 44, "Message",ExpressionUUID->"00b7eb07-73b9-c747-a2f2-79534efb705f"], +Cell[347114, 8543, 557, 11, 44, "Message",ExpressionUUID->"e08402ab-15fb-4742-9c42-6cfd41908add"], +Cell[347674, 8556, 557, 11, 44, "Message",ExpressionUUID->"2f6f0f21-211b-dc4d-bb95-da4fb58b7950"], +Cell[348234, 8569, 478, 10, 18, "Message",ExpressionUUID->"5748e145-acc9-4040-b1f8-1e86d34bb3ee"], +Cell[348715, 8581, 191, 2, 23, "Output",ExpressionUUID->"5b469605-a154-9743-bd68-7280e6f510de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348943, 8588, 2274, 64, 89, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[351220, 8654, 554, 11, 44, "Message",ExpressionUUID->"4385c333-92ae-c14d-b940-cd56ce732a47"], +Cell[351777, 8667, 555, 11, 44, "Message",ExpressionUUID->"799c7baa-0323-c749-9ea1-fd0489794d1e"], +Cell[352335, 8680, 559, 11, 44, "Message",ExpressionUUID->"86851959-c648-5743-8719-345e1a58051f"], +Cell[352897, 8693, 480, 10, 18, "Message",ExpressionUUID->"bf971445-bcf4-6f43-918c-836dc109e476"], +Cell[353380, 8705, 195, 3, 33, "Output",ExpressionUUID->"047dc513-0eba-cd43-99e3-69f89ef5084d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353612, 8713, 2242, 64, 56, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[355857, 8779, 552, 11, 44, "Message",ExpressionUUID->"2e0bed5e-762a-544b-9d6d-33d50b62d5f5"], +Cell[356412, 8792, 555, 11, 44, "Message",ExpressionUUID->"fb525e83-cdea-a343-8254-f578369fa513"], +Cell[356970, 8805, 557, 11, 44, "Message",ExpressionUUID->"313c8612-d3ca-7e47-9cbc-3c29087d192e"], +Cell[357530, 8818, 480, 10, 18, "Message",ExpressionUUID->"c05943a9-411a-8641-b8ae-aacbf8b3492d"], +Cell[358013, 8830, 197, 3, 33, "Output",ExpressionUUID->"fc9aba4c-0c07-2343-ad56-16cfc3ecb94d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358247, 8838, 2242, 64, 56, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[360492, 8904, 552, 11, 44, "Message",ExpressionUUID->"6dcf4964-6d63-3641-b23e-cd4323f213f3"], +Cell[361047, 8917, 555, 11, 44, "Message",ExpressionUUID->"97157cbc-6fe5-584b-afac-48a432be4327"], +Cell[361605, 8930, 559, 11, 44, "Message",ExpressionUUID->"f087df99-1dfd-c24c-9f79-db03cd027684"], +Cell[362167, 8943, 480, 10, 18, "Message",ExpressionUUID->"3a9cb772-c110-724e-86f6-47887d15c2ad"], +Cell[362650, 8955, 194, 3, 33, "Output",ExpressionUUID->"9893f8c6-e819-1140-9d9a-3c90e5d360ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362881, 8963, 234, 6, 34, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[363118, 8971, 197, 3, 33, "Output",ExpressionUUID->"1e8dcfa4-9b9b-bf40-a448-dfd73e13bff0"] +}, Open ]], +Cell[363330, 8977, 273, 6, 29, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[363628, 8987, 558, 19, 38, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[364189, 9008, 196, 3, 33, "Output",ExpressionUUID->"c4149dd4-cec3-3e46-a4c0-0c26d6c6a8d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364422, 9016, 170, 5, 41, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[364595, 9023, 194, 3, 33, "Output",ExpressionUUID->"d394585e-453b-504e-a65f-eea7e94d3ff3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364826, 9031, 181, 5, 32, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[365010, 9038, 194, 3, 33, "Output",ExpressionUUID->"13e6abbe-904d-b646-ba9e-ca0b566d5104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365241, 9046, 6055, 185, 242, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[371299, 9233, 195, 3, 33, "Output",ExpressionUUID->"34dfacf3-7ca4-ca47-b50c-47b9ddf59a69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371531, 9241, 368, 9, 29, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[371902, 9252, 196, 3, 33, "Output",ExpressionUUID->"793939ee-555a-a14f-b5c7-8950988b549e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372135, 9260, 6122, 187, 242, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[378260, 9449, 196, 3, 33, "Output",ExpressionUUID->"1c5b8d9f-802f-2f4e-82fd-de75316d5f45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378493, 9457, 368, 9, 29, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[378864, 9468, 196, 3, 33, "Output",ExpressionUUID->"279115ac-a48f-f44a-b062-fbdd4a4143f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379097, 9476, 2663, 88, 121, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[381763, 9566, 195, 3, 33, "Output",ExpressionUUID->"a13a27ee-7e77-9a48-9feb-6b7a8144ea92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381995, 9574, 2603, 85, 121, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[384601, 9661, 196, 3, 33, "Output",ExpressionUUID->"a1acd141-efa8-1848-8820-820934b1e7a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384834, 9669, 3712, 118, 178, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[388549, 9789, 195, 3, 33, "Output",ExpressionUUID->"7ce5da1a-7659-6541-9d70-77bb2aec996a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388781, 9797, 2077, 59, 83, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[390861, 9858, 556, 11, 44, "Message",ExpressionUUID->"57eeb0ea-6382-fc40-99a9-6d8d7b8b8bf7"], +Cell[391420, 9871, 562, 11, 44, "Message",ExpressionUUID->"c5a4ddbd-115b-c748-9813-72b25fbeccdd"], +Cell[391985, 9884, 562, 11, 44, "Message",ExpressionUUID->"86efd003-fd1f-0344-b205-7b67c00bdc53"], +Cell[392550, 9897, 480, 10, 18, "Message",ExpressionUUID->"6e635c9b-2ed3-5546-aed7-b81793c581cc"], +Cell[393033, 9909, 193, 3, 33, "Output",ExpressionUUID->"b0ccf111-5f22-c64f-b40b-cc80b048c5d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393263, 9917, 2075, 59, 83, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[395341, 9978, 556, 11, 44, "Message",ExpressionUUID->"54f9d314-4fa3-d740-a0cd-6d818f3d0044"], +Cell[395900, 9991, 560, 11, 44, "Message",ExpressionUUID->"65c64c97-79ba-844f-868d-0b913a4f3f71"], +Cell[396463, 10004, 564, 11, 44, "Message",ExpressionUUID->"71ecee3b-b3c2-bd41-bfbf-f4d899dabdb1"], +Cell[397030, 10017, 478, 10, 18, "Message",ExpressionUUID->"3d8fc746-9c71-b342-bd17-dec6be3e4945"], +Cell[397511, 10029, 195, 3, 33, "Output",ExpressionUUID->"0aded2fb-7a9c-f240-8bfa-11e4e842af6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397743, 10037, 2053, 55, 48, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[399799, 10094, 20193, 379, 176, "Output",ExpressionUUID->"f1b40fd2-7980-8346-ab14-cf5674e772cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420029, 10478, 2117, 60, 83, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[422149, 10540, 516, 11, 30, "Message",ExpressionUUID->"9e839ac1-e2c8-2c4d-82a0-19193c9fd41e"], +Cell[422668, 10553, 520, 11, 30, "Message",ExpressionUUID->"7765b859-1c01-0743-84ba-03b719869aa8"], +Cell[423191, 10566, 521, 11, 30, "Message",ExpressionUUID->"006179d3-b320-3944-9aae-e683ba724381"], +Cell[423715, 10579, 482, 10, 18, "Message",ExpressionUUID->"ed158082-d012-b249-a31a-50725a643a42"], +Cell[424200, 10591, 21918, 406, 173, "Output",ExpressionUUID->"a22520ef-cc3e-854d-84c1-b89f5d659d36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446155, 11002, 280, 6, 29, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[446438, 11010, 27929, 531, 173, "Output",ExpressionUUID->"1b7f9284-ec61-fe47-95a1-ec06d683adbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474404, 11546, 1616, 48, 62, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[476023, 11596, 567, 11, 44, "Message",ExpressionUUID->"627ad5ce-21df-cf40-8926-6bf5292da336"], +Cell[476593, 11609, 577, 12, 44, "Message",ExpressionUUID->"f0d830b1-d9cc-fd4b-a582-a01ae019036b"], +Cell[477173, 11623, 578, 12, 32, "Message",ExpressionUUID->"4c66dc37-f4b9-b048-abc1-661649c2aa1a"], +Cell[477754, 11637, 482, 10, 18, "Message",ExpressionUUID->"9a3049df-9bf9-4d44-bd39-53307bd19da4"], +Cell[478239, 11649, 197, 3, 33, "Output",ExpressionUUID->"1909a5e5-6960-5345-857f-4ecfb3a546b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478473, 11657, 2274, 64, 89, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[480750, 11723, 560, 11, 44, "Message",ExpressionUUID->"fc528c7c-714d-5c4c-bf5e-509102455a2e"], +Cell[481313, 11736, 562, 11, 44, "Message",ExpressionUUID->"6800c1f2-7581-a848-b1d3-e289f1e3273b"], +Cell[481878, 11749, 566, 11, 44, "Message",ExpressionUUID->"2e2d206a-1224-4344-bdb1-7ecb82086ce7"], +Cell[482447, 11762, 480, 10, 18, "Message",ExpressionUUID->"1cc67c85-c732-f84c-89f6-365b1760ca3e"], +Cell[482930, 11774, 197, 3, 33, "Output",ExpressionUUID->"fa6f6401-5cef-5d4f-beb6-006db9a4de09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483164, 11782, 2244, 64, 56, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[485411, 11848, 560, 11, 44, "Message",ExpressionUUID->"3ce57a77-3c6d-9a4f-839f-5dcd4c178a63"], +Cell[485974, 11861, 564, 11, 44, "Message",ExpressionUUID->"d49b67a3-ec83-6d41-951b-46c9d580a437"], +Cell[486541, 11874, 566, 11, 44, "Message",ExpressionUUID->"2cb7d0e9-8e97-0b49-bc34-22e3680d2bc6"], +Cell[487110, 11887, 480, 10, 18, "Message",ExpressionUUID->"0f3bfa69-8e37-ba42-b9ac-4d274eb2b67f"], +Cell[487593, 11899, 192, 3, 33, "Output",ExpressionUUID->"e2e338c7-99c3-c644-8941-4f6b9f186bd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487822, 11907, 2241, 64, 56, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[490066, 11973, 558, 11, 44, "Message",ExpressionUUID->"3fcf00d2-ecb9-e24e-99db-9fbf4a83ab1e"], +Cell[490627, 11986, 560, 11, 44, "Message",ExpressionUUID->"2effae2b-37fd-de4e-ad85-af94a7c35cee"], +Cell[491190, 11999, 564, 11, 44, "Message",ExpressionUUID->"e5474320-47cb-4f4f-8742-02984dce80ff"], +Cell[491757, 12012, 478, 10, 18, "Message",ExpressionUUID->"90407195-ddb8-dd40-9140-6d5a24513513"], +Cell[492238, 12024, 195, 3, 33, "Output",ExpressionUUID->"7e753d70-17d1-aa41-9424-56f560bb614d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492470, 12032, 234, 6, 34, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[492707, 12040, 197, 3, 33, "Output",ExpressionUUID->"6f359ccc-f2ea-df45-8324-d3c1f3cdabb7"] +}, Open ]], +Cell[492919, 12046, 271, 6, 29, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[493215, 12056, 558, 19, 38, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[493776, 12077, 194, 3, 33, "Output",ExpressionUUID->"c53513f5-9f67-4b49-a326-46b63fd8b115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494007, 12085, 170, 5, 41, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[494180, 12092, 197, 3, 33, "Output",ExpressionUUID->"c34ec96c-681c-164c-8547-da490ccf1c7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494414, 12100, 181, 5, 32, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[494598, 12107, 196, 3, 33, "Output",ExpressionUUID->"df14ac07-ba73-c14f-940e-24521ea0e685"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494831, 12115, 6055, 185, 242, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[500889, 12302, 197, 3, 33, "Output",ExpressionUUID->"2967dff1-c855-8345-8544-ba061bff582e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501123, 12310, 368, 9, 29, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[501494, 12321, 194, 3, 33, "Output",ExpressionUUID->"431adf07-bff5-654a-bdc4-e8d324ad377b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501725, 12329, 6122, 187, 350, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[507850, 12518, 198, 3, 22, "Output",ExpressionUUID->"915e2ed5-03c1-8042-b24d-7d344e476d39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508085, 12526, 368, 9, 29, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[508456, 12537, 195, 3, 22, "Output",ExpressionUUID->"7a385866-d9ef-a548-9f8a-a6ef260cf4ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508688, 12545, 2663, 88, 131, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[511354, 12635, 193, 3, 22, "Output",ExpressionUUID->"7f856b82-0e34-e249-9323-d4b51f6eb30e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511584, 12643, 2603, 85, 115, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[514190, 12730, 198, 3, 22, "Output",ExpressionUUID->"c045046b-d790-ed42-85e6-54a152135051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514425, 12738, 3712, 118, 244, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[518140, 12858, 196, 3, 22, "Output",ExpressionUUID->"62def4ea-96ef-3b4b-91b1-a0fad8508e30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518373, 12866, 2073, 59, 160, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[520449, 12927, 557, 11, 42, "Message",ExpressionUUID->"904a71cb-4485-6e42-b43f-768d29311072"], +Cell[521009, 12940, 560, 11, 42, "Message",ExpressionUUID->"2a9194d1-fa31-5e4a-9980-ebd885742673"], +Cell[521572, 12953, 565, 11, 42, "Message",ExpressionUUID->"83c2f634-b7ea-b34a-8fcb-80fe407c5782"], +Cell[522140, 12966, 480, 10, 18, "Message",ExpressionUUID->"bda5fa46-976e-ad45-a911-36e5d44989ee"], +Cell[522623, 12978, 196, 3, 22, "Output",ExpressionUUID->"141a8e5f-5e8e-2a4c-b7b5-f8a51f367f8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522856, 12986, 2077, 59, 160, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[524936, 13047, 557, 11, 42, "Message",ExpressionUUID->"4481646a-0c6d-5f4d-b8dd-d6f69274ec0b"], +Cell[525496, 13060, 560, 11, 42, "Message",ExpressionUUID->"bffccbf5-6c1a-484f-950f-25d7492a0ee6"], +Cell[526059, 13073, 565, 11, 42, "Message",ExpressionUUID->"c9b275cb-e48a-ea47-88af-6846ff84af48"], +Cell[526627, 13086, 478, 10, 18, "Message",ExpressionUUID->"2b19c04e-f165-8a4f-abe5-684757373997"], +Cell[527108, 13098, 197, 3, 22, "Output",ExpressionUUID->"98c6c2bc-4c90-4a40-bb8d-87c90e525ed0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527342, 13106, 2051, 55, 112, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[529396, 13163, 20209, 380, 166, "Output",ExpressionUUID->"2351f65c-c49a-a247-9231-90194a30be6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549642, 13548, 2117, 60, 147, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[551762, 13610, 518, 11, 42, "Message",ExpressionUUID->"df198f7d-67be-5644-9bdc-ae1db45bdbd2"], +Cell[552283, 13623, 519, 11, 42, "Message",ExpressionUUID->"61863a16-eeb4-b44a-b148-c97773a833c7"], +Cell[552805, 13636, 475, 10, 18, "Message",ExpressionUUID->"fa64c06e-85cf-b944-a59d-a162e2e0c8c7"], +Cell[553283, 13648, 482, 10, 18, "Message",ExpressionUUID->"bc26663d-0b94-c940-9d84-7f6ea41b4c35"], +Cell[553768, 13660, 21966, 406, 163, "Output",ExpressionUUID->"9d6bcf65-6dc6-334e-8fc7-c38f5e882bc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[575771, 14071, 280, 6, 29, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[576054, 14079, 27974, 531, 163, "Output",ExpressionUUID->"b2a0960c-9f94-c749-bd0e-a5be3d9ca59f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604065, 14615, 1616, 48, 79, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[605684, 14665, 568, 11, 59, "Message",ExpressionUUID->"b28bea99-5ddf-3c4a-a6ac-e42484f9a202"], +Cell[606255, 14678, 576, 12, 59, "Message",ExpressionUUID->"5e5bb057-199c-e44d-bc0c-db027ec04e8e"], +Cell[606834, 14692, 581, 12, 46, "Message",ExpressionUUID->"62db4c2f-47af-a340-9030-00e4f1268e77"], +Cell[607418, 14706, 482, 10, 18, "Message",ExpressionUUID->"f265bf8c-8076-ac4d-8311-e45258461b2e"], +Cell[607903, 14718, 195, 3, 22, "Output",ExpressionUUID->"3bcdd31a-af86-324e-b079-ae778dd7a06f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608135, 14726, 2272, 64, 156, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[610410, 14792, 557, 11, 42, "Message",ExpressionUUID->"b8859e87-21c4-704f-9f2b-ea285720f99b"], +Cell[610970, 14805, 562, 11, 42, "Message",ExpressionUUID->"262f6f64-4a4c-b445-b7ea-47725577f046"], +Cell[611535, 14818, 565, 11, 42, "Message",ExpressionUUID->"5deae5ff-c282-e745-a422-66e358c9efe3"], +Cell[612103, 14831, 478, 10, 18, "Message",ExpressionUUID->"31aa4854-e0de-df4c-9143-3374ced31dad"], +Cell[612584, 14843, 195, 3, 22, "Output",ExpressionUUID->"25b260d0-51d1-aa45-8cc8-305697504356"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612816, 14851, 2246, 64, 113, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[615065, 14917, 559, 11, 42, "Message",ExpressionUUID->"9e98a6e1-acdb-4f4e-908c-cd07cb25f25d"], +Cell[615627, 14930, 564, 11, 42, "Message",ExpressionUUID->"54982d00-8e31-fe47-b233-2f600bf1bada"], +Cell[616194, 14943, 567, 11, 42, "Message",ExpressionUUID->"67486d44-82e7-c043-b04c-2b6805c8a707"], +Cell[616764, 14956, 480, 10, 18, "Message",ExpressionUUID->"8bb91b49-793d-484c-9f3a-6b4fd0d3293d"], +Cell[617247, 14968, 193, 3, 22, "Output",ExpressionUUID->"3c94e612-828b-3549-94b4-f3499dfb645a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617477, 14976, 2244, 64, 113, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[619724, 15042, 557, 11, 42, "Message",ExpressionUUID->"890cb829-aa79-1a45-8b4f-c95d2ff7be4c"], +Cell[620284, 15055, 562, 11, 42, "Message",ExpressionUUID->"e78fa290-2212-6042-8b79-ac0245f95600"], +Cell[620849, 15068, 565, 11, 42, "Message",ExpressionUUID->"975d7b90-5c0a-fa4e-83a3-b47770799399"], +Cell[621417, 15081, 480, 10, 18, "Message",ExpressionUUID->"27fd9c4e-9a28-5548-a80a-25b7bc5b29d2"], +Cell[621900, 15093, 197, 3, 22, "Output",ExpressionUUID->"e229ccbb-6f8b-a541-84c8-ca94e9243ef4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622134, 15101, 235, 6, 33, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[622372, 15109, 197, 3, 22, "Output",ExpressionUUID->"effcf9ca-fa38-634c-a498-3d8843a70996"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb new file mode 100755 index 0000000..f105527 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb @@ -0,0 +1,17192 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 747803, 17184] +NotebookOptionsPosition[ 707237, 16536] +NotebookOutlinePosition[ 707661, 16553] +CellTagsIndexPosition[ 707618, 16550] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"5d7f3c58-d7ac-3d4c-9c2d-257c77b24176"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9920882497506466`*^9, 3.992096040081213*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c3602a97-797f-f440-a7e0-b2c915dfc2b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"ee8d63c9-a14e-c94a-82d8-c1f927d307bc"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920882497646065`*^9, + 3.992096040154625*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"52dd1fed-951a-bd48-ae2b-baa5f1b7b122"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"ef10bfb7-3507-0940-9784-5e42848fe187"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992088249770609*^9, + 3.9920960401706505`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"d801ab99-6eb9-404e-832e-146cd836f3b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"fd898102-cff3-554d-9374-c174a9ea61d0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.992088249777603*^9, 3.9920960401866264`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"be54d355-3c29-a94d-a5ec-1b1bf27b9726"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"c2890b61-7dba-2c4d-a218-225236f18479"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.992088249791605*^9, 3.9920960401996403`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"88269f3a-ed33-c749-a99e-7fa5a60eb9d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a0a6203e-5cc8-2740-87c4-d31769f55e98"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920882498046093`*^9, 3.9920960402196503`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2cb2927c-7c1c-af4c-8c06-d68bed06dc7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"8050325e-c9cc-7d40-b36b-38d7056e1638"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920882498183975`*^9, 3.99209604023464*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d92d8fa8-4abc-4c4e-adcb-51945dcaea14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"d9f99a55-33da-804c-a5ad-12b4e5c626e2"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.992088249831358*^9, 3.9920960402497883`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"01824095-28ab-6b4b-adc4-af432f4c1dc0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"9477f27d-2081-7c47-8d20-05a3e74706af"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.99208824983893*^9, + 3.9920960402627735`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ba5a9596-dc06-1646-a09f-674494303941"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"99b7f8c4-7cfc-9d4e-810a-d1155882fead"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9920882498584347`*^9, + 3.992096040280588*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"c84439a7-50c9-474f-9c85-fa5503683014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"1b32eb30-e14d-b642-a59f-53a56514d218"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992088249886444*^9, 3.992096040292101*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"d5664c75-ec2e-da44-8339-c3d34ea37979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"f4f33272-860a-3a4b-b2b5-8a2f0726a180"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9920882499034405`*^9, 3.9920960403026505`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a213880e-71da-6745-8d93-8ddb218231df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"b22b95ef-a83a-ce41-b26b-4741d866a314"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9920882499104424`*^9, 3.992096040313648*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d622455d-63c3-f548-aec6-7caeba4a16e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"ea2e33af-6a11-4c42-a04c-b0aac8218771"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992088249946493*^9, 3.9920960403256474`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"6d61b059-a28a-f244-8054-0037e8c4e589"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"1a4025d0-1e4d-3c43-9e67-c53ed88a9262"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9920882499684944`*^9, 3.992096040338949*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1a0dce2d-86d3-424b-9cd4-05a291a81f05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"165bd138-dd1b-0040-aa11-2ff05911b96e"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9920882499924984`*^9, 3.992096040350956*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9b649e47-74bb-5f48-8513-cf31991a9f86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"0856d9b2-bb1c-e64b-b06d-5ce0b8e04c7d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.992088250008505*^9, 3.992096040365471*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"9ab9fdc0-199c-5d4e-80d4-88f7e68384cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d81aa958-b719-f94b-8973-dfd432cb8391"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920882500235844`*^9, 3.9920960403785057`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"858889a7-a250-e74c-98ae-298106da971d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"289fd753-f795-2449-8aae-0330b1a01cc7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.992088250038763*^9, 3.992096040391472*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"3c80f51a-5127-8b49-9cb4-59e3e82ae77d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"64e31945-e1a2-c44d-baa4-fc7ee4b69fd7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.99208825005081*^9, 3.9920960404044876`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"51d36877-108d-7e45-bd1c-7ace8caa5146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"7ca03742-98f1-914b-94f5-c65ad4ad6025"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.99208825005818*^9, 3.992096040417301*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"287eabd6-1cd6-cd48-bac1-4fa3c400e9e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"168d97dc-93a2-534f-a4b0-ebcbec005cc0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.992088250071129*^9, 3.99209604043198*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e5ef94c6-ccd1-9146-9ec7-707b8e927b4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"98921716-e68b-2f40-b378-e9bd41b83c87"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920882500849457`*^9, 3.9920960404461403`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4b3d3331-e7f7-854d-a757-6cbb6de3c53e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"74cc08c4-0239-974a-8ca1-3828485a5e01"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.9920882500987415`*^9, 3.9920960404602356`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"eb8ec8e2-ad57-ec41-836c-4626217b7da6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"881423cb-ae85-f24c-be76-eb8be8221cff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"7a6be152-b33a-7440-943c-43a17ffc3c2a"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.992088250114979*^9, 3.9920960404726295`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"685af7b9-04ab-d54e-84e2-a2767d7b87f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"00fffd24-84e4-6646-8fb0-7d33fe1103d5"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.992088250120569*^9, 3.992096040483757*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e3168fd7-d645-5e43-8f8d-1f8f7d9b332b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"cdc9442f-43cc-cc44-b03e-a45f77c397f5"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9920882501336193`*^9, 3.9920960404953747`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"495ba715-2e96-f14b-b745-b6123572e0a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"0338f402-1d7b-b840-b687-d7c5bfd53e0a"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920882501490326`*^9, 3.9920960405044727`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"39868942-62b9-0241-bd22-a74ab19559b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"04400c68-fee3-384f-bfc1-631bc2edc08b"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9920882501649113`*^9, 3.99209604051548*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f800b105-89e1-3b4e-aceb-4d24ed5a36f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"b9a3aa8d-2d42-8c4d-8e49-036de8ab16d3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920882501796646`*^9, 3.992096040524481*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"24d41400-ee08-7949-8568-b030514c0a94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"b3d5e1fb-2cc9-3742-b581-c83a9a3866e6"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.99208825019392*^9, 3.9920960405334797`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"5ae39dcf-a8a3-a645-87a7-d92f387f2156"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"2f4823d2-c451-d14e-97d6-d2449021df44"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"9024a329-bbda-294f-901e-f3f07122e248"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.992088250209507*^9, 3.9920960405474777`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"207ae76e-6fe4-ae46-9e0c-612fc3b3c20e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"9149c3bf-88f7-0748-b176-ca6074a8a04d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2189ec4b-9841-2440-b849-079a68843a39"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920882502254524`*^9, 3.992096040574049*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"b34947d4-51c0-a842-9aff-5403b859b0dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"4dd1c3e6-1835-424b-af0e-b0392d86b616"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"7d75d998-704d-1440-94c8-65a87558564a"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992088250242529*^9, 3.9920960405960503`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"438e8804-30aa-8840-80e8-0f07515e5762"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8de93d16-a08a-5040-aab8-61be65f54eed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"52c80ed1-89a7-e34c-bd27-bf4f55cd93d1"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992088250259033*^9, 3.9920960406160583`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"89538673-ac1f-3541-a8ef-1f2177571064"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"f571f201-b77b-5f42-b520-778741ce5344"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"a61cd4ad-f1d5-d946-97ee-fe30eb4b8edb"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992088250276556*^9, 3.992096040631035*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"4730a0f7-52d8-4849-88a4-7ad1fc36c60a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"cd574538-0409-044a-bbee-1b1b2deb12a1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"a422dcf3-e699-4543-a94d-1a54ef04fc1e"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992088250292721*^9, 3.99209604064419*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"d6e0f94e-7845-834a-ac1c-0dbcfcf07e26"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"aeb525a9-edf7-3442-b8db-f3a6351001e9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"f6dc2304-b377-084a-9d73-2554c49f7eaa"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.9920882503105984`*^9, 3.9920960406581955`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"c90433e4-3070-2b48-ba85-5acb6b02ffb1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"01a37d7a-6579-7744-9b4f-392c494ab79c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"74ff4393-9419-c14e-af2a-e2c84c9c6bd3"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992088250362713*^9, 3.9920960407774506`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7f2045b0-5726-f448-828c-09426f0ee43a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"9021d8aa-d6fd-7b42-a25b-70fe6d3bc411"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.992088250410885*^9, 3.9920960409336567`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c1b73769-4f4a-b044-86ae-ecd8c032b224"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"54ab8f9a-d4c3-7b41-8dd4-daeb882bf7c7"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992088250452675*^9, 3.992096041176893*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"b78ffbe2-7ce0-1e43-bfae-b3baabf1d008"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"f111cd74-032a-4f40-a28b-983a36c59c39"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992088250505533*^9, 3.992096041374275*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"d6865eb5-7059-5642-86ac-2b202b40a9ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"5f3fa59b-353b-9042-acc3-b8adcd159c91"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.992088250553541*^9, 3.992096041513529*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"e4e814a1-a8b4-2842-9f92-3e0999e695c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"7bffec34-d7d9-9b4f-94ca-33a86f0238f4"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992088250610298*^9, 3.9920960417019463`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"7e7df0b4-9ee2-864d-92c7-b8e6ecffbe46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"60185285-a7e1-224d-812f-278ba4b6916a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992088250623869*^9, 3.992096041735321*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e43536d1-06d4-0548-80cf-38452b2bddbf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"49344be9-a084-ac42-9eea-f2dfcb1724ae"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992088250629383*^9, 3.992096041749569*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"077ec026-8ed8-484c-bf46-a80183b8a110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"b9e988db-c1b8-684d-bf7e-c721a9a3a25b"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.992088250635872*^9, 3.9920960417636585`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ef607ab6-d365-0b45-869e-88ee9c587661"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"afe65164-4298-a646-97a0-bdbe1c07b528"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920882507046375`*^9, 3.992096041779854*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"5f59fd90-a4d0-3645-95f5-a2bef01099a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"febb6e99-aaa5-3544-ac76-8eea1459ab01"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920882507183876`*^9, 3.99209604179578*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9c413ef7-0e65-2140-9236-fa0eb8986002"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"ddd38bfb-9f83-4342-9ac3-9f01416596a3"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.99208825072591*^9, 3.9920960418118095`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"91ca52d4-5117-2b43-aa95-63f537e33f40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"d113303b-fee6-c74b-bd6d-1ec02e5efe9f"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.99208825073938*^9, 3.9920960418322487`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"9732f2d2-a88d-9746-bba9-94ce3ae41a4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"24b19227-a138-ad42-bf41-d7a877ffb1c9"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9920882507538776`*^9, 3.9920960418444576`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b87fecb4-8f31-7f49-942d-50e83c931567"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"abde0b88-7fb6-664a-9233-dd4c18a5dd8e"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992088250759762*^9, 3.992096041862383*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"7e8f81ab-fb5d-1042-9857-2785c2725c73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"62e3f82a-3d30-0047-8c1b-19eb5558d8c0"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.992088250773796*^9, 3.9920960418736134`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"491ff2a4-ba96-9c4d-81af-41067460e3ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"3d22b994-b8ae-194a-a27d-0c225633ecab"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9920882507866726`*^9, 3.9920960418866177`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"7d36b7b2-ec99-5545-afa0-e852d204f811"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"9af85c7a-6b3e-d84f-baea-5073ca78047f"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992088250793751*^9, 3.992096041900614*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"52b50e9d-a034-c54a-a54d-7c064a3217f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"a1929f09-4887-ae47-9754-84c1b85d58a4"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.992088250805893*^9, 3.992096041913143*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"5154ffdb-ecc2-dd46-9740-247dfd418834"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"c154c925-a986-d241-98b4-2f229f652ec2"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992088250821102*^9, 3.9920960419277267`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"1bcd8488-2b6e-fe4a-aaa0-6195c787ad0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"4ade1a5e-e6a2-d043-86ce-7f1fb5b9107d"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9920882508412*^9, 3.9920960419446964`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"12fbfc14-edb8-8f42-88f2-3f59d994fc81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"ec9ecdef-89ad-7942-8c51-8f649ab97318"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.9920882508492336`*^9, 3.9920960419695663`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c334bd6a-b34a-904e-85f5-7bb9ecc0ff69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"47f6be2c-7d29-6249-a2c5-7fd4a4d6c695"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992088250862768*^9, 3.9920960420437107`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"f668c187-d351-ee41-80b5-b2651295f4fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"dc144e14-e7fc-0a47-b6ea-1829a153f446"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.9920882508789196`*^9, 3.992096042079365*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"4244c867-69b8-834a-b9fc-7964731abc20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.197263021899268"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, 3.9920872587839756`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData["0.197263021899268`"], "Output", + CellChangeTimes->{3.99208825089365*^9, 3.992096042103428*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"5de45314-c3a5-c145-9fdb-2eb9f3962e8b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, 3.991844505914568*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.525273658113063"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, 3.992087263880169*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], + +Cell[BoxData["0.525273658113063`"], "Output", + CellChangeTimes->{3.9920882509094296`*^9, 3.9920960421322956`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"2ca0e7ad-a5d4-2040-a283-78ec22da15c2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, 3.9918445068872185`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.992088250927021*^9, + 3.992096042155718*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"04eaee9b-dd92-0542-948f-ec84201abdc0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9, {3.9915580161429977`*^9, 3.991558019706772*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], + +Cell[BoxData["1.7534500135146677`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.992088250933094*^9, + 3.99209604217103*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"66b4f452-0e50-6b49-aeaa-9f4363648229"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}, + 3.991558013605444*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], + +Cell[BoxData["4.6057170799418873`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9920882509483204`*^9, + 3.9920960421846676`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"8193e213-cd10-ae41-b8a1-acf195603f72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["44.385614932060015`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.9920882509638653`*^9, + 3.9920960422169857`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"56bc143a-503b-7744-ac66-e33467848e43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["45.493571246773044`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.992088250979023*^9, + 3.992096042241062*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"d1529553-e751-2246-9698-485328fe7ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["2.1196889634300353`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.9920882509957657`*^9, + 3.9920960422560616`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"60251a30-bb97-dd4e-8362-6b146a7a1b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["12.158383404164557`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.992088251010124*^9, + 3.9920960422675095`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e7884dd5-ccad-bc4a-ace4-00fc39dac13b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["553.1282816429432`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.992088251023756*^9, + 3.9920960422807903`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"d2c85f34-ee98-8f4b-93ff-cb0837cb4166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["94.083698106543`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.992088251039299*^9, + 3.992096042296772*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e86040c9-952a-0f4e-b6fb-a10fc0405b83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.010545443826987293`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.992088251053999*^9, + 3.992096042320696*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"74c6b349-5a34-4247-85c8-7b5939eab9b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["8.630034052406932`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9920882511326733`*^9, + 3.992096042547764*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"d6013f8c-20e0-0d48-b66a-5d67e778771f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.001646404614755063`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.9920882511467133`*^9, + 3.992096042577656*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f7ad8e48-f535-b544-992c-810f1b8caca0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["21.841207926573983`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9920882512216206`*^9, + 3.992096042789713*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f9a10c5f-e0e1-1141-b37d-eca10f77554f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.9920882512357063`*^9, + 3.9920960428140087`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"4aa121c6-d48e-2c47-beab-69855d2dc72f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9920882512518654`*^9, + 3.992096042839115*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"7092a207-b239-cc4c-a9a2-d27b8a535ae4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.9920882512675514`*^9, + 3.9920960428639393`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"390fc299-1cc9-bf4f-8ac1-c63ba460e620"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844522599167*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 262, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.992096042937807*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"34506e82-c915-724e-a831-74a154366a0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 263, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960429849243`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"497dd8d9-1eab-4645-ad96-4b90c8e14cdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 264, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960430096493`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a5fa3bd6-efa8-ca47-a84c-502a75c763e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 265, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960430356483`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"e80b8bfd-72ef-d04e-81b9-b7cc8481af90"], + +Cell[BoxData["8.630034052406936`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.9920882538975773`*^9, + 3.99209605046883*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"5f66b862-cf26-ea43-882b-1a72e60af917"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844527271263*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 266, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506084423`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e411e6e9-97fc-7248-8f6b-4067e2d54897"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 267, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506402054`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"c1575fcf-ea37-704f-8326-ff067ae4be7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 268, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506680756`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9fd03e26-8926-d24f-af8c-55439414ffdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 269, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.992096050689169*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"744a9f62-3832-3542-8b42-c5530f9c4158"], + +Cell[BoxData["21.84120792657401`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.992088256601284*^9, + 3.9920960579478836`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"be32d424-bf45-914a-b721-ef5c4455f3fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844532798546*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5899244582982552, + 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5899244582982552, + 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5899244582982552, 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5899244582982566}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5899244582982552, 1.6164727010145066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9, 3.9920884916901073`*^9, + 3.9920965994463787`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"8cbcd775-391a-794f-86cb-49bd9cf231a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, 3.991844648037607*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.786339800587655`*^-275\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 270, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965998489895`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"9948f367-fae7-3c4a-8ec7-a088bde8b511"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9817946793709456`*^-287\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 271, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965998779984`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"df0d240f-ca5f-f14f-9252-a214eaefa799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.787555322596352`*^-300\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 272, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.992096599897089*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"eabe5fa8-38ae-ce4d-9631-0979ecb68256"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 273, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965999170895`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"8d7c7477-e481-a74d-a0c1-7dfb29f95390"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08808462784837333}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9, 3.992088696774971*^9, + 3.9920971128655396`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"6634751e-80ee-6044-907a-7e25e47f573d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.992087328336006*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9920886968659515`*^9, + 3.9920971130338154`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8ca2b0cd-feb9-9d46-90ee-f4a7e3e9bdc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08808462784837333}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920886968853626`*^9, 3.9920971130957966`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"49eaf9f0-d66d-d248-96e8-9d1b24c5e649"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991844724526314*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], + +Cell[BoxData["20.842886952760505`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.992088696913355*^9, + 3.9920971131586475`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"8707ea8b-950e-8f4c-a93e-7fc03d8c2221"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918447267207756`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67331325968282`*^-279\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 274, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.992097113450323*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d14217c2-0468-2b4f-af36-5738b1135ea8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.379360399631195`*^-292\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 275, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.9920971134813175`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"afff6afa-7b79-d54a-90ff-88e033c818e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4994154234035094`*^-305\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 276, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.9920971135002174`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"7fb5b0dd-013b-3646-b824-248c90e05387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 277, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.992097113520218*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d191cce1-9dc4-4848-bfae-9199e6e4a42e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.03647160061787884}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.992088914306841*^9, + 3.9920975843663845`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"fa07d8a7-b0ec-5443-b356-724e13a86f9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5070048198550655`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 278, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975845660343`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ef871e35-46ba-b245-8f27-60fefbd51296"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2899389042200305`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 279, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975845950394`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"05592ce2-95f9-944d-809e-448a5766e3b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.479630666055037`*^-246\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 280, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975846111336`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"6d14efd6-6474-aa47-9ee8-2ba2f3bbeab8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 281, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.992097584629135*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b8692b98-27aa-2e43-a9e4-db06e05f2ea8"], + +Cell[BoxData["20.84288695276051`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.992088933970873*^9, + 3.9920976309857903`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"b65b523e-3a9a-2345-98f7-5f2133665585"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844712341957*^9, 3.991844718198534*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 282, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631096306*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b6d11303-c7af-144f-89e8-08357295f81f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 283, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631133297*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"104ec450-cf72-4649-b489-757cbd2fb8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 284, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.9920976311512966`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f08ad4f8-b9e9-634d-a88c-8e7647d2e0c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 285, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631168293*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f4d3212b-b508-ea44-abf4-57e8c6aa9fca"], + +Cell[BoxData["4.57410155670111`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.992088939733183*^9, + 3.9920976419556274`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"13585f92-1b74-c241-afd2-3f9eb5f34548"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918447603776054`*^9, 3.991844763418377*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 286, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642060631*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e92d017c-1f33-0340-8d2c-d44333f7f3ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 287, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642100624*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"a9bb0afa-553c-8148-8d0b-426847c1f6d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 288, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.9920976421205864`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"08e7a490-4bff-1c48-8627-f0721870b2bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 289, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642143633*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"6e733448-ab0d-524a-9c1b-34bfad68fb5c"], + +Cell[BoxData["20.350194844654585`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9920889437639008`*^9, + 3.992097652158064*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"83d50851-e908-c945-85b9-aee99d98ad2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844769790985*^9, 3.991844773139332*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 290, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976522560444`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"64993219-98a2-614f-897b-60aff105ebde"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 291, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976523050404`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"957ea713-6fb8-0844-b1a6-d33b79437d65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 292, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976523281364`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"4b8bcb14-8e99-134e-909c-07dc1aa31996"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 293, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.992097652348137*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"65548e04-fa59-1b4a-b4cc-b602fd354e12"], + +Cell[BoxData["130.34574531636503`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9920889440951786`*^9, + 3.992097659821041*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"4c2a980a-0372-9243-ac3e-5bb013d45b18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, 3.9918447845314407`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], + +Cell[BoxData["0.08881229382771318`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9920976598869553`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"e5714781-9438-f048-94ef-f0fbb2b76930"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["2.4513631194298338`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.9920976599170494`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"aaf00355-c108-2648-98ef-3d16547828ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["9.019644802894332`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.992097659936947*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"788b9edb-cd81-f543-ab7d-3572a7f8b79d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["22.110424620172136`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9920976599579926`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"022ed980-baa5-fc40-85d2-bc6a62091d10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04375523320029946`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9920976599739475`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"7e3d6418-4f4c-854d-9c13-61a842dacdc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.236721720364148`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.9920976602064705`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"6dfad148-1b2d-ae43-bc66-54a526877241"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.0018677246212721085`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.992097660236948*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"60a4397a-d5dd-af40-a794-7c297c76bb93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["20.506357230916006`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.992097660491068*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"7fccc06e-6d4d-984b-84bf-e840d287c94d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.992097660517164*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"231db967-fec2-f04b-9750-82f282346ca8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.992097660543783*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"11c26d6b-764b-1647-9eac-1800b643af06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.9920976605654526`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"482139b1-4f62-5e46-af70-d0ca7ba0d29c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844883530533*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 117, 294, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992097660609028*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"e94e3fc3-7c2d-f24d-9dfc-53cb03f93241"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 295, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9920976606538486`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"abffe7e0-de75-c041-bd8d-0f3a225e75f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 296, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992097660675852*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"1cf41d95-f98c-574a-bfa8-95b38645e095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 297, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9920976607008553`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"56cb601b-a020-b445-aab2-fe197181f715"], + +Cell[BoxData["4.236721720364147`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.9920976671489906`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"d7384ead-bc71-7f4d-9258-214fb3f1cd64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991844898486679*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 118, 298, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976672566776`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"503491ad-4cfd-da4a-9dd3-97e70fb83533"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 299, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.99209766728858*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"1ea217e7-ea9a-0043-8c7e-3f5cba400bf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 300, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976673085785`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fb827f59-f541-544a-86c5-d77845e9fec3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 301, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976673316727`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8dad8d7b-a4f3-c743-98d9-617311e55eb0"], + +Cell[BoxData["20.506357230916002`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.992097673728756*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"c42622fe-747c-4c46-9315-b2e79974099b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918449035840626`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9640568054116038}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9640568054116017, 1.037021847841677}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9, 3.9920982469430466`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"5029e9f2-20b7-1945-af71-2ed45e96871e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, 3.9918455284898663`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.192095326265137`*^-283\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 302, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982472980423`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"8316ada4-1b39-b945-8275-22f4c278b609"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6139958284980357`*^-297\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 303, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473209457`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bbbd48df-eefb-fc40-a0dc-56494a64f191"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"8.580675649517413`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 304, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473410473`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"3159a404-3db5-7c4b-81b4-00e0930b9da5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 305, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473619404`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"b6bdf82f-e0dd-8a40-91a9-aa8167f44ede"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.1794249008533784}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9, 3.992098722386711*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"e80a0f85-f1ca-cf4c-8eba-f71539e2e6fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.1794249008533784}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920987224414425`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"e827cb17-b9f8-eb4f-b808-87c688114fe0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3874266998239808`*^-217\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 306, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.99209872248942*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b47ad8a5-1e7f-0544-836e-a97aec236958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.817278930676562`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 307, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722500313*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1ec65752-0c6c-e24f-9d99-6c1a52fe2a34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0502622182804961`*^-228\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 308, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722507313*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"275033f4-6615-084f-875c-34fbd15e95d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 309, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722515312*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"57e5ecd0-fe78-ee4b-be8d-0bc947913088"], + +Cell[BoxData["20.84288695276049`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.992098749460293*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"7d41369b-d08f-b242-95d9-6976f2baa79b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844980123823*^9, 3.991844984423441*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 123, 310, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992098749501276*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ca2f270a-2e0f-3545-8baa-79d8bc3d4d37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 311, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992098749510277*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ee7b7b8a-ab5f-4c4b-903f-e2583f66ff88"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 312, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9920987495177383`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"4d1e67f3-b1f9-d847-ade1-ea330ae4282e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 313, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9920987495257416`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"3e772d08-1987-8f43-bfd9-a520e738fdce"], + +Cell[BoxData["0.011710321811598033`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.992098753258383*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"256c243f-333e-8d4b-80cf-c6eb4f13d3f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918449914836025`*^9, 3.991844997178608*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 124, 314, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.992098753300396*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"7c91c0f5-2ca3-4b4b-b309-f3a21f62e4df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 315, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9920987533093815`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"322aa2d9-45e4-8040-baf3-4c2f3634bf0c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 316, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9920987533173847`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"64f9fa80-2841-3c43-9633-970c06b511f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 317, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.992098753324383*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"94bad9d6-e308-1646-b5cd-7cb9e119223e"], + +Cell[BoxData["4.904598168181687`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.992098756269556*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"38f07d3c-b9eb-e344-b11b-fea2a6c3a15e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845005870302*^9, 3.991845010049778*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 125, 318, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.9920987563085537`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"682aa1c6-ea39-7f48-b438-6c33a42f4d76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 319, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756318556*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"be5061bb-f417-8849-9ecd-eb278a62f897"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 320, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756325556*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"554fd047-5e05-c240-9d49-8790a9efeca8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 321, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756332554*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"b5d5a4a9-256e-994a-b4e4-8b093f517d0b"], + +Cell[BoxData["114.90014863989207`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.9920987581187153`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"8f914f3c-51bc-3e42-bd07-4270783c8bff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, 3.9918450213597164`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], + +Cell[BoxData["0.0004932951198661352`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.992098758146824*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"fa183d38-8ec6-eb46-aea1-f591d27972c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["2.4966041761479913`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.99209875817082*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"821377a3-0b44-3e49-a363-104722fe80db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["8.937548526432023`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9920987581909866`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"d09627d3-0c8d-c24c-ac04-55be6724dbbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["22.313520975615514`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.992098758210987*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"26bff63d-6870-dd45-924b-9872712daf64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.0433698260099947`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.992098758231447*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"deed1754-f24e-f44d-960a-40a55e217506"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.255504957154119`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.9920987583138676`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"429cb130-8ac0-5342-9fba-00b6fed9d703"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.0018670164095528528`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.992098758333868*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"5c5670fc-6879-d743-a950-b0fb7b2cb8c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["20.51024618054348`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.992098758416668*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"59d59b11-f0f0-ee41-9355-7775bd470ee2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.992098758437668*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"ee5bc42e-7dc8-b347-8911-74a0f4692d36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9920987584576664`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"a4252679-4e67-294e-bb8f-fd447cbd8112"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.9920987584776707`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"1d8ec18e-8a57-6547-8bc4-000d51776991"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845055619808*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 138, 322, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.992098758506666*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"001275fb-614d-8448-9fc7-dc3156422b0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 323, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585221004`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"97d11c97-01c8-f940-afd9-e4bcd7931cf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 324, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585301*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"00545248-d898-d64a-815f-d645338b3d17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 325, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585391006`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8061a4f7-154b-e64d-9369-e8eeb9d7ed1d"], + +Cell[BoxData["4.2555049571541215`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.9920987605836296`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"82fd41a2-aa7a-434d-9939-1b7d9f540a7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845062111332*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 139, 326, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9920987606256847`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"37ca5db3-823c-2b4f-bb89-5a41f9a2a4a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 327, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992098760633589*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"50dfe7f9-2f49-bc4f-8ef7-90576177c756"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 328, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992098760641577*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fe9114a3-a297-c244-b89b-65104ce093d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 329, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9920987606485786`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"0dbdee7d-7a9d-214c-811f-76ccf9590577"], + +Cell[BoxData["20.510246180543497`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.992098762688982*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"37881174-f663-884a-83a2-0e6a409d5463"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991845068201048*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9614345395399628, + 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9614345395399628, + 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9614345395399628, 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9614345395399649}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9614345395399628, 1.0398099753953551`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9, 3.9920989689980583`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"24fdc32f-d3b8-3a4a-83ed-aabcc4992bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, 3.9918454954591675`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.191862503219594`*^-282\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 330, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969210045*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ffcd9f00-d21b-b14e-a388-b6e0f70b2ac4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6868683253295287`*^-296\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 331, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969219557*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"559d13cf-7066-5144-8c88-ec7486b27994"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.174895033869737`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 332, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9920989692266006`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bcef89f4-2de6-2f4e-a832-bf3a84c12720"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 333, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969234556*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5a164f18-c166-9e42-8c8a-496687d25f7c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.17863287939476}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9, 3.9920992973838177`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"1332b683-08d0-1e40-a60b-1ecced6a5322"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.17863287939476}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920992974315434`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"324ac577-08c9-2b49-86fb-e33fc9c29d64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.79939548539759`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 334, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9920992974705524`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"b958c607-4c23-f94c-acb5-68950c00b4f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8368432860451523`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 335, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992099297479435*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7a744023-9440-5840-b2fe-c62afdb63205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.962195925704206`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 336, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992099297487438*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a7884327-cab4-6145-8cd9-16b1d7c70e1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 337, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9920992974957943`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8e17eeaf-79a8-384e-a3cd-e365834d4802"], + +Cell[BoxData["20.842886952760505`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.99209932497381*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"f7af3923-be91-4747-bf22-84ca8958cffe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845086901308*^9, 3.991845092064165*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 338, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250157948`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6c491ae5-3c03-0248-9e86-43889fa3c104"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 339, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250237713`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6dc6a0fc-6f88-a547-9938-c756c439070e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 340, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250317726`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"cb852058-c327-e640-852e-23de46ef94a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 341, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250387726`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"38add85e-6da6-e943-ab35-ba1861030e53"], + +Cell[BoxData["0.013572781125747023`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9920993288256893`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"9ba5b485-ee0c-af40-aae1-502982f7926f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845095514675*^9, 3.991845099002287*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 342, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288687973`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0ac1d6e8-df8c-3c4f-ae1a-194db2a23c76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 343, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288777943`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bf6479ea-910b-b64f-97c1-200bd1179913"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 344, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.992099328884796*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a9fc6bdf-c529-be4f-9c55-213ac17f2205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 345, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288927975`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f58e6cff-b459-224d-b86e-09f230d8149a"], + +Cell[BoxData["4.948183019067116`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.992099331857584*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"bb87cb1d-018c-034b-bd1a-7482c9d90b38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845103890877*^9, 3.9918451079172287`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 346, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993318975697`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e9ad4d1a-7191-dc4b-ae6f-c1615226a7a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 347, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993319065704`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"87e8e358-1420-0142-9e16-c5af17644a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 348, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.992099331914572*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"490a9a5d-00a8-0e43-ae8e-0caf5ecc8717"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 349, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993319215717`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"c9dfd152-acaf-ae4b-94ad-9d639249649e"], + +Cell[BoxData["114.94373349077757`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9920993337616463`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"00e6644b-899e-2043-8888-f47a06ba89bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, 3.991845116011841*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], + +Cell[BoxData["0.0005691193066815145`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.992099333790659*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"c87402cc-58bf-fa40-b08e-5ceb3cffdc66"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"5d7f3c58-d7ac-3d4c-9c2d-257c77b24176"], +Cell[981, 31, 224, 3, 32, "Output",ExpressionUUID->"c3602a97-797f-f440-a7e0-b2c915dfc2b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1242, 39, 348, 5, 28, "Input",ExpressionUUID->"ee8d63c9-a14e-c94a-82d8-c1f927d307bc"], +Cell[1593, 46, 455, 7, 32, "Output",ExpressionUUID->"52dd1fed-951a-bd48-ae2b-baa5f1b7b122"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2085, 58, 224, 4, 28, "Input",ExpressionUUID->"ef10bfb7-3507-0940-9784-5e42848fe187"], +Cell[2312, 64, 447, 7, 32, "Output",ExpressionUUID->"d801ab99-6eb9-404e-832e-146cd836f3b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2796, 76, 175, 3, 28, "Input",ExpressionUUID->"fd898102-cff3-554d-9374-c174a9ea61d0"], +Cell[2974, 81, 423, 6, 32, "Output",ExpressionUUID->"be54d355-3c29-a94d-a5ec-1b1bf27b9726"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3434, 92, 257, 7, 43, "Input",ExpressionUUID->"c2890b61-7dba-2c4d-a218-225236f18479"], +Cell[3694, 101, 443, 6, 32, "Output",ExpressionUUID->"88269f3a-ed33-c749-a99e-7fa5a60eb9d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4174, 112, 131, 2, 28, "Input",ExpressionUUID->"a0a6203e-5cc8-2740-87c4-d31769f55e98"], +Cell[4308, 116, 429, 6, 32, "Output",ExpressionUUID->"2cb2927c-7c1c-af4c-8c06-d68bed06dc7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4774, 127, 276, 6, 28, "Input",ExpressionUUID->"8050325e-c9cc-7d40-b36b-38d7056e1638"], +Cell[5053, 135, 438, 6, 32, "Output",ExpressionUUID->"d92d8fa8-4abc-4c4e-adcb-51945dcaea14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5528, 146, 257, 7, 28, "Input",ExpressionUUID->"d9f99a55-33da-804c-a5ad-12b4e5c626e2"], +Cell[5788, 155, 439, 6, 32, "Output",ExpressionUUID->"01824095-28ab-6b4b-adc4-af432f4c1dc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6264, 166, 266, 5, 28, "Input",ExpressionUUID->"9477f27d-2081-7c47-8d20-05a3e74706af"], +Cell[6533, 173, 461, 7, 32, "Output",ExpressionUUID->"ba5a9596-dc06-1646-a09f-674494303941"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7031, 185, 265, 5, 28, "Input",ExpressionUUID->"99b7f8c4-7cfc-9d4e-810a-d1155882fead"], +Cell[7299, 192, 463, 7, 32, "Output",ExpressionUUID->"c84439a7-50c9-474f-9c85-fa5503683014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7799, 204, 129, 2, 28, "Input",ExpressionUUID->"1b32eb30-e14d-b642-a59f-53a56514d218"], +Cell[7931, 208, 416, 6, 32, "Output",ExpressionUUID->"d5664c75-ec2e-da44-8339-c3d34ea37979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8384, 219, 129, 2, 28, "Input",ExpressionUUID->"f4f33272-860a-3a4b-b2b5-8a2f0726a180"], +Cell[8516, 223, 420, 6, 32, "Output",ExpressionUUID->"a213880e-71da-6745-8d93-8ddb218231df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8973, 234, 557, 19, 79, "Input",ExpressionUUID->"b22b95ef-a83a-ce41-b26b-4741d866a314"], +Cell[9533, 255, 418, 6, 32, "Output",ExpressionUUID->"d622455d-63c3-f548-aec6-7caeba4a16e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9988, 266, 557, 19, 79, "Input",ExpressionUUID->"ea2e33af-6a11-4c42-a04c-b0aac8218771"], +Cell[10548, 287, 414, 6, 32, "Output",ExpressionUUID->"6d61b059-a28a-f244-8054-0037e8c4e589"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10999, 298, 1492, 48, 80, "Input",ExpressionUUID->"1a4025d0-1e4d-3c43-9e67-c53ed88a9262"], +Cell[12494, 348, 420, 6, 32, "Output",ExpressionUUID->"1a0dce2d-86d3-424b-9cd4-05a291a81f05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12951, 359, 1331, 44, 80, "Input",ExpressionUUID->"165bd138-dd1b-0040-aa11-2ff05911b96e"], +Cell[14285, 405, 431, 7, 32, "Output",ExpressionUUID->"9b649e47-74bb-5f48-8513-cf31991a9f86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14753, 417, 1331, 44, 80, "Input",ExpressionUUID->"0856d9b2-bb1c-e64b-b06d-5ce0b8e04c7d"], +Cell[16087, 463, 432, 7, 32, "Output",ExpressionUUID->"9ab9fdc0-199c-5d4e-80d4-88f7e68384cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16556, 475, 1492, 48, 80, "Input",ExpressionUUID->"d81aa958-b719-f94b-8973-dfd432cb8391"], +Cell[18051, 525, 415, 6, 32, "Output",ExpressionUUID->"858889a7-a250-e74c-98ae-298106da971d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18503, 536, 131, 2, 28, "Input",ExpressionUUID->"289fd753-f795-2449-8aae-0330b1a01cc7"], +Cell[18637, 540, 393, 6, 32, "Output",ExpressionUUID->"3c80f51a-5127-8b49-9cb4-59e3e82ae77d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19067, 551, 177, 3, 28, "Input",ExpressionUUID->"64e31945-e1a2-c44d-baa4-fc7ee4b69fd7"], +Cell[19247, 556, 395, 6, 32, "Output",ExpressionUUID->"51d36877-108d-7e45-bd1c-7ace8caa5146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19679, 567, 134, 2, 28, "Input",ExpressionUUID->"7ca03742-98f1-914b-94f5-c65ad4ad6025"], +Cell[19816, 571, 397, 6, 32, "Output",ExpressionUUID->"287eabd6-1cd6-cd48-bac1-4fa3c400e9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20250, 582, 219, 4, 28, "Input",ExpressionUUID->"168d97dc-93a2-534f-a4b0-ebcbec005cc0"], +Cell[20472, 588, 412, 7, 32, "Output",ExpressionUUID->"e5ef94c6-ccd1-9146-9ec7-707b8e927b4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20921, 600, 134, 2, 28, "Input",ExpressionUUID->"98921716-e68b-2f40-b378-e9bd41b83c87"], +Cell[21058, 604, 406, 6, 32, "Output",ExpressionUUID->"4b3d3331-e7f7-854d-a757-6cbb6de3c53e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21501, 615, 302, 5, 28, "Input",ExpressionUUID->"74cc08c4-0239-974a-8ca1-3828485a5e01"], +Cell[21806, 622, 347, 5, 32, "Output",ExpressionUUID->"eb8ec8e2-ad57-ec41-836c-4626217b7da6"] +}, Open ]], +Cell[22168, 630, 173, 2, 28, "Input",ExpressionUUID->"881423cb-ae85-f24c-be76-eb8be8221cff"], +Cell[CellGroupData[{ +Cell[22366, 636, 322, 6, 28, "Input",ExpressionUUID->"7a6be152-b33a-7440-943c-43a17ffc3c2a"], +Cell[22691, 644, 398, 6, 32, "Output",ExpressionUUID->"685af7b9-04ab-d54e-84e2-a2767d7b87f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23126, 655, 219, 4, 28, "Input",ExpressionUUID->"00fffd24-84e4-6646-8fb0-7d33fe1103d5"], +Cell[23348, 661, 400, 6, 32, "Output",ExpressionUUID->"e3168fd7-d645-5e43-8f8d-1f8f7d9b332b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23785, 672, 350, 10, 43, "Input",ExpressionUUID->"cdc9442f-43cc-cc44-b03e-a45f77c397f5"], +Cell[24138, 684, 420, 6, 32, "Output",ExpressionUUID->"495ba715-2e96-f14b-b745-b6123572e0a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24595, 695, 350, 10, 43, "Input",ExpressionUUID->"0338f402-1d7b-b840-b687-d7c5bfd53e0a"], +Cell[24948, 707, 438, 7, 32, "Output",ExpressionUUID->"39868942-62b9-0241-bd22-a74ab19559b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25423, 719, 992, 26, 113, "Input",ExpressionUUID->"04400c68-fee3-384f-bfc1-631bc2edc08b"], +Cell[26418, 747, 410, 6, 32, "Output",ExpressionUUID->"f800b105-89e1-3b4e-aceb-4d24ed5a36f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26865, 758, 199, 3, 28, "Input",ExpressionUUID->"b9a3aa8d-2d42-8c4d-8e49-036de8ab16d3"], +Cell[27067, 763, 400, 6, 32, "Output",ExpressionUUID->"24d41400-ee08-7949-8568-b030514c0a94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27504, 774, 273, 4, 28, "Input",ExpressionUUID->"b3d5e1fb-2cc9-3742-b581-c83a9a3866e6"], +Cell[27780, 780, 358, 5, 32, "Output",ExpressionUUID->"5ae39dcf-a8a3-a645-87a7-d92f387f2156"] +}, Open ]], +Cell[28153, 788, 175, 2, 28, "Input",ExpressionUUID->"2f4823d2-c451-d14e-97d6-d2449021df44"], +Cell[CellGroupData[{ +Cell[28353, 794, 344, 6, 47, "Input",ExpressionUUID->"9024a329-bbda-294f-901e-f3f07122e248"], +Cell[28700, 802, 348, 5, 32, "Output",ExpressionUUID->"207ae76e-6fe4-ae46-9e0c-612fc3b3c20e"] +}, Open ]], +Cell[29063, 810, 173, 2, 28, "Input",ExpressionUUID->"9149c3bf-88f7-0748-b176-ca6074a8a04d"], +Cell[CellGroupData[{ +Cell[29261, 816, 343, 6, 47, "Input",ExpressionUUID->"2189ec4b-9841-2440-b849-079a68843a39"], +Cell[29607, 824, 353, 5, 32, "Output",ExpressionUUID->"b34947d4-51c0-a842-9aff-5403b859b0dd"] +}, Open ]], +Cell[29975, 832, 175, 2, 28, "Input",ExpressionUUID->"4dd1c3e6-1835-424b-af0e-b0392d86b616"], +Cell[CellGroupData[{ +Cell[30175, 838, 349, 6, 47, "Input",ExpressionUUID->"7d75d998-704d-1440-94c8-65a87558564a"], +Cell[30527, 846, 352, 5, 32, "Output",ExpressionUUID->"438e8804-30aa-8840-80e8-0f07515e5762"] +}, Open ]], +Cell[30894, 854, 175, 2, 28, "Input",ExpressionUUID->"8de93d16-a08a-5040-aab8-61be65f54eed"], +Cell[CellGroupData[{ +Cell[31094, 860, 275, 4, 28, "Input",ExpressionUUID->"52c80ed1-89a7-e34c-bd27-bf4f55cd93d1"], +Cell[31372, 866, 352, 5, 32, "Output",ExpressionUUID->"89538673-ac1f-3541-a8ef-1f2177571064"] +}, Open ]], +Cell[31739, 874, 173, 2, 28, "Input",ExpressionUUID->"f571f201-b77b-5f42-b520-778741ce5344"], +Cell[CellGroupData[{ +Cell[31937, 880, 277, 4, 28, "Input",ExpressionUUID->"a61cd4ad-f1d5-d946-97ee-fe30eb4b8edb"], +Cell[32217, 886, 353, 5, 32, "Output",ExpressionUUID->"4730a0f7-52d8-4849-88a4-7ad1fc36c60a"] +}, Open ]], +Cell[32585, 894, 171, 2, 28, "Input",ExpressionUUID->"cd574538-0409-044a-bbee-1b1b2deb12a1"], +Cell[CellGroupData[{ +Cell[32781, 900, 306, 5, 28, "Input",ExpressionUUID->"a422dcf3-e699-4543-a94d-1a54ef04fc1e"], +Cell[33090, 907, 347, 5, 32, "Output",ExpressionUUID->"d6e0f94e-7845-834a-ac1c-0dbcfcf07e26"] +}, Open ]], +Cell[33452, 915, 175, 2, 28, "Input",ExpressionUUID->"aeb525a9-edf7-3442-b8db-f3a6351001e9"], +Cell[CellGroupData[{ +Cell[33652, 921, 251, 4, 28, "Input",ExpressionUUID->"f6dc2304-b377-084a-9d73-2554c49f7eaa"], +Cell[33906, 927, 350, 5, 32, "Output",ExpressionUUID->"c90433e4-3070-2b48-ba85-5acb6b02ffb1"] +}, Open ]], +Cell[34271, 935, 171, 2, 28, "Input",ExpressionUUID->"01a37d7a-6579-7744-9b4f-392c494ab79c"], +Cell[CellGroupData[{ +Cell[34467, 941, 19809, 485, 2217, "Input",ExpressionUUID->"74ff4393-9419-c14e-af2a-e2c84c9c6bd3"], +Cell[54279, 1428, 415, 6, 32, "Output",ExpressionUUID->"7f2045b0-5726-f448-828c-09426f0ee43a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54731, 1439, 19748, 489, 2304, "Input",ExpressionUUID->"9021d8aa-d6fd-7b42-a25b-70fe6d3bc411"], +Cell[74482, 1930, 416, 6, 32, "Output",ExpressionUUID->"c1b73769-4f4a-b044-86ae-ecd8c032b224"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74935, 1941, 19748, 483, 2276, "Input",ExpressionUUID->"54ab8f9a-d4c3-7b41-8dd4-daeb882bf7c7"], +Cell[94686, 2426, 429, 7, 32, "Output",ExpressionUUID->"b78ffbe2-7ce0-1e43-bfae-b3baabf1d008"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95152, 2438, 22534, 553, 2583, "Input",ExpressionUUID->"f111cd74-032a-4f40-a28b-983a36c59c39"], +Cell[117689, 2993, 429, 7, 32, "Output",ExpressionUUID->"d6865eb5-7059-5642-86ac-2b202b40a9ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[118155, 3005, 22535, 553, 2583, "Input",ExpressionUUID->"5f3fa59b-353b-9042-acc3-b8adcd159c91"], +Cell[140693, 3560, 426, 7, 32, "Output",ExpressionUUID->"e4e814a1-a8b4-2842-9f92-3e0999e695c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[141156, 3572, 25491, 626, 2890, "Input",ExpressionUUID->"7bffec34-d7d9-9b4f-94ca-33a86f0238f4"], +Cell[166650, 4200, 427, 7, 32, "Output",ExpressionUUID->"7e7df0b4-9ee2-864d-92c7-b8e6ecffbe46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167114, 4212, 130, 2, 28, "Input",ExpressionUUID->"60185285-a7e1-224d-812f-278ba4b6916a"], +Cell[167247, 4216, 392, 6, 32, "Output",ExpressionUUID->"e43536d1-06d4-0548-80cf-38452b2bddbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167676, 4227, 130, 2, 28, "Input",ExpressionUUID->"49344be9-a084-ac42-9eea-f2dfcb1724ae"], +Cell[167809, 4231, 394, 6, 32, "Output",ExpressionUUID->"077ec026-8ed8-484c-bf46-a80183b8a110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168240, 4242, 1144, 39, 110, "Input",ExpressionUUID->"b9e988db-c1b8-684d-bf7e-c721a9a3a25b"], +Cell[169387, 4283, 416, 6, 32, "Output",ExpressionUUID->"ef607ab6-d365-0b45-869e-88ee9c587661"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169840, 4294, 1041, 35, 110, "Input",ExpressionUUID->"afe65164-4298-a646-97a0-bdbe1c07b528"], +Cell[170884, 4331, 431, 7, 32, "Output",ExpressionUUID->"5f59fd90-a4d0-3645-95f5-a2bef01099a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171352, 4343, 1144, 39, 110, "Input",ExpressionUUID->"febb6e99-aaa5-3544-ac76-8eea1459ab01"], +Cell[172499, 4384, 416, 6, 32, "Output",ExpressionUUID->"9c413ef7-0e65-2140-9236-fa0eb8986002"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172952, 4395, 108, 1, 28, "Input",ExpressionUUID->"ddd38bfb-9f83-4342-9ac3-9f01416596a3"], +Cell[173063, 4398, 411, 6, 32, "Output",ExpressionUUID->"91ca52d4-5117-2b43-aa95-63f537e33f40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173511, 4409, 108, 1, 28, "Input",ExpressionUUID->"d113303b-fee6-c74b-bd6d-1ec02e5efe9f"], +Cell[173622, 4412, 438, 7, 32, "Output",ExpressionUUID->"9732f2d2-a88d-9746-bba9-94ce3ae41a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174097, 4424, 108, 1, 28, "Input",ExpressionUUID->"24b19227-a138-ad42-bf41-d7a877ffb1c9"], +Cell[174208, 4427, 431, 7, 32, "Output",ExpressionUUID->"b87fecb4-8f31-7f49-942d-50e83c931567"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174676, 4439, 108, 1, 28, "Input",ExpressionUUID->"abde0b88-7fb6-664a-9233-dd4c18a5dd8e"], +Cell[174787, 4442, 415, 6, 32, "Output",ExpressionUUID->"7e8f81ab-fb5d-1042-9857-2785c2725c73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175239, 4453, 107, 1, 28, "Input",ExpressionUUID->"62e3f82a-3d30-0047-8c1b-19eb5558d8c0"], +Cell[175349, 4456, 415, 6, 32, "Output",ExpressionUUID->"491ff2a4-ba96-9c4d-81af-41067460e3ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175801, 4467, 107, 1, 28, "Input",ExpressionUUID->"3d22b994-b8ae-194a-a27d-0c225633ecab"], +Cell[175911, 4470, 417, 6, 32, "Output",ExpressionUUID->"7d36b7b2-ec99-5545-afa0-e852d204f811"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176365, 4481, 497, 16, 56, "Input",ExpressionUUID->"9af85c7a-6b3e-d84f-baea-5073ca78047f"], +Cell[176865, 4499, 429, 7, 32, "Output",ExpressionUUID->"52b50e9d-a034-c54a-a54d-7c064a3217f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177331, 4511, 497, 16, 56, "Input",ExpressionUUID->"a1929f09-4887-ae47-9754-84c1b85d58a4"], +Cell[177831, 4529, 426, 7, 32, "Output",ExpressionUUID->"5154ffdb-ecc2-dd46-9740-247dfd418834"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178294, 4541, 1788, 60, 188, "Input",ExpressionUUID->"c154c925-a986-d241-98b4-2f229f652ec2"], +Cell[180085, 4603, 413, 6, 32, "Output",ExpressionUUID->"1bcd8488-2b6e-fe4a-aaa0-6195c787ad0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180535, 4614, 1101, 36, 133, "Input",ExpressionUUID->"4ade1a5e-e6a2-d043-86ce-7f1fb5b9107d"], +Cell[181639, 4652, 431, 7, 32, "Output",ExpressionUUID->"12fbfc14-edb8-8f42-88f2-3f59d994fc81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182107, 4664, 1818, 61, 165, "Input",ExpressionUUID->"ec9ecdef-89ad-7942-8c51-8f649ab97318"], +Cell[183928, 4727, 416, 6, 32, "Output",ExpressionUUID->"c334bd6a-b34a-904e-85f5-7bb9ecc0ff69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184381, 4738, 2499, 77, 133, "Input",ExpressionUUID->"47f6be2c-7d29-6249-a2c5-7fd4a4d6c695"], +Cell[186883, 4817, 414, 6, 32, "Output",ExpressionUUID->"f668c187-d351-ee41-80b5-b2651295f4fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187334, 4828, 2499, 77, 133, "Input",ExpressionUUID->"dc144e14-e7fc-0a47-b6ea-1829a153f446"], +Cell[189836, 4907, 413, 6, 32, "Output",ExpressionUUID->"4244c867-69b8-834a-b9fc-7964731abc20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190286, 4918, 211, 3, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[190500, 4923, 187, 2, 32, "Output",ExpressionUUID->"5de45314-c3a5-c145-9fdb-2eb9f3962e8b"] +}, Open ]], +Cell[190702, 4928, 171, 2, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[CellGroupData[{ +Cell[190898, 4934, 209, 3, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[191110, 4939, 192, 2, 32, "Output",ExpressionUUID->"2ca0e7ad-a5d4-2040-a283-78ec22da15c2"] +}, Open ]], +Cell[191317, 4944, 173, 2, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[191515, 4950, 1297, 42, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[192815, 4994, 220, 3, 32, "Output",ExpressionUUID->"04eaee9b-dd92-0542-948f-ec84201abdc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193072, 5002, 929, 29, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[194004, 5033, 218, 3, 32, "Output",ExpressionUUID->"66b4f452-0e50-6b49-aeaa-9f4363648229"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194259, 5041, 983, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[195245, 5075, 223, 3, 32, "Output",ExpressionUUID->"8193e213-cd10-ae41-b8a1-acf195603f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195505, 5083, 554, 18, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[196062, 5103, 220, 3, 32, "Output",ExpressionUUID->"56bc143a-503b-7744-ac66-e33467848e43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196319, 5111, 619, 20, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[196941, 5133, 216, 3, 32, "Output",ExpressionUUID->"d1529553-e751-2246-9698-485328fe7ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197194, 5141, 166, 4, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[197363, 5147, 220, 3, 32, "Output",ExpressionUUID->"60251a30-bb97-dd4e-8362-6b146a7a1b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197620, 5155, 166, 4, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[197789, 5161, 216, 3, 32, "Output",ExpressionUUID->"e7884dd5-ccad-bc4a-ace4-00fc39dac13b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198042, 5169, 177, 4, 43, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[198222, 5175, 214, 3, 32, "Output",ExpressionUUID->"d2c85f34-ee98-8f4b-93ff-cb0837cb4166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198473, 5183, 177, 4, 43, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[198653, 5189, 213, 3, 32, "Output",ExpressionUUID->"e86040c9-952a-0f4e-b6fb-a10fc0405b83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198903, 5197, 6051, 184, 498, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[204957, 5383, 218, 3, 32, "Output",ExpressionUUID->"74c6b349-5a34-4247-85c8-7b5939eab9b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205212, 5391, 364, 8, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[205579, 5401, 217, 3, 32, "Output",ExpressionUUID->"d6013f8c-20e0-0d48-b66a-5d67e778771f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205833, 5409, 6118, 186, 500, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[211954, 5597, 218, 3, 32, "Output",ExpressionUUID->"f7ad8e48-f535-b544-992c-810f1b8caca0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212209, 5605, 364, 8, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[212576, 5615, 216, 3, 32, "Output",ExpressionUUID->"f9a10c5f-e0e1-1141-b37d-eca10f77554f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212829, 5623, 2659, 87, 187, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[215491, 5712, 218, 3, 32, "Output",ExpressionUUID->"4aa121c6-d48e-2c47-beab-69855d2dc72f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215746, 5720, 2599, 84, 165, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[218348, 5806, 219, 3, 32, "Output",ExpressionUUID->"7092a207-b239-cc4c-a9a2-d27b8a535ae4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218604, 5814, 3708, 117, 348, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[222315, 5933, 222, 3, 32, "Output",ExpressionUUID->"390fc299-1cc9-bf4f-8ac1-c63ba460e620"] +}, Open ]], +Cell[222552, 5939, 160, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[222737, 5946, 2071, 58, 228, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[224811, 6006, 592, 12, 84, "Message",ExpressionUUID->"34506e82-c915-724e-a831-74a154366a0f"], +Cell[225406, 6020, 601, 13, 84, "Message",ExpressionUUID->"497dd8d9-1eab-4645-ad96-4b90c8e14cdd"], +Cell[226010, 6035, 605, 13, 66, "Message",ExpressionUUID->"a5fa3bd6-efa8-ca47-a84c-502a75c763e1"], +Cell[226618, 6050, 507, 11, 26, "Message",ExpressionUUID->"e80b8bfd-72ef-d04e-81b9-b7cc8481af90"], +Cell[227128, 6063, 216, 3, 32, "Output",ExpressionUUID->"5f66b862-cf26-ea43-882b-1a72e60af917"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227381, 6071, 2071, 58, 228, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[229455, 6131, 590, 12, 84, "Message",ExpressionUUID->"e411e6e9-97fc-7248-8f6b-4067e2d54897"], +Cell[230048, 6145, 597, 13, 84, "Message",ExpressionUUID->"c1575fcf-ea37-704f-8326-ff067ae4be7f"], +Cell[230648, 6160, 601, 13, 66, "Message",ExpressionUUID->"9fd03e26-8926-d24f-af8c-55439414ffdd"], +Cell[231252, 6175, 501, 11, 26, "Message",ExpressionUUID->"744a9f62-3832-3542-8b42-c5530f9c4158"], +Cell[231756, 6188, 217, 3, 32, "Output",ExpressionUUID->"be32d424-bf45-914a-b721-ef5c4455f3fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[232010, 6196, 1955, 52, 115, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[233968, 6250, 20424, 384, 237, "Output",ExpressionUUID->"8cbcd775-391a-794f-86cb-49bd9cf231a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254429, 6639, 2133, 59, 211, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[256565, 6700, 544, 12, 60, "Message",ExpressionUUID->"9948f367-fae7-3c4a-8ec7-a088bde8b511"], +Cell[257112, 6714, 547, 12, 60, "Message",ExpressionUUID->"df0d240f-ca5f-f14f-9252-a214eaefa799"], +Cell[257662, 6728, 547, 12, 60, "Message",ExpressionUUID->"eabe5fa8-38ae-ce4d-9631-0979ecb68256"], +Cell[258212, 6742, 505, 11, 26, "Message",ExpressionUUID->"8d7c7477-e481-a74d-a0c1-7dfb29f95390"], +Cell[258720, 6755, 22166, 409, 233, "Output",ExpressionUUID->"6634751e-80ee-6044-907a-7e25e47f573d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280923, 7169, 1860, 50, 120, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[282786, 7221, 9022, 210, 240, "Output",ExpressionUUID->"8ca2b0cd-feb9-9d46-90ee-f4a7e3e9bdc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291845, 7436, 276, 5, 42, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[292124, 7443, 28124, 532, 233, "Output",ExpressionUUID->"49eaf9f0-d66d-d248-96e8-9d1b24c5e649"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320285, 7980, 234, 6, 48, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[320522, 7988, 218, 3, 32, "Output",ExpressionUUID->"8707ea8b-950e-8f4c-a93e-7fc03d8c2221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320777, 7996, 1839, 53, 183, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[322619, 8051, 542, 12, 60, "Message",ExpressionUUID->"d14217c2-0468-2b4f-af36-5738b1135ea8"], +Cell[323164, 8065, 548, 12, 60, "Message",ExpressionUUID->"afff6afa-7b79-d54a-90ff-88e033c818e1"], +Cell[323715, 8079, 551, 12, 60, "Message",ExpressionUUID->"7fb5b0dd-013b-3646-b824-248c90e05387"], +Cell[324269, 8093, 507, 11, 26, "Message",ExpressionUUID->"d191cce1-9dc4-4848-bfae-9199e6e4a42e"], +Cell[324779, 8106, 21756, 404, 233, "Output",ExpressionUUID->"fa07d8a7-b0ec-5443-b356-724e13a86f9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346572, 8515, 1616, 48, 113, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[348191, 8565, 579, 12, 60, "Message",ExpressionUUID->"ef871e35-46ba-b245-8f27-60fefbd51296"], +Cell[348773, 8579, 583, 12, 60, "Message",ExpressionUUID->"05592ce2-95f9-944d-809e-448a5766e3b8"], +Cell[349359, 8593, 585, 12, 60, "Message",ExpressionUUID->"6d14efd6-6474-aa47-9ee8-2ba2f3bbeab8"], +Cell[349947, 8607, 505, 11, 26, "Message",ExpressionUUID->"b8692b98-27aa-2e43-a9e4-db06e05f2ea8"], +Cell[350455, 8620, 219, 4, 32, "Output",ExpressionUUID->"b65b523e-3a9a-2345-98f7-5f2133665585"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350711, 8629, 2270, 64, 223, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[352984, 8695, 590, 12, 84, "Message",ExpressionUUID->"b6d11303-c7af-144f-89e8-08357295f81f"], +Cell[353577, 8709, 597, 13, 84, "Message",ExpressionUUID->"104ec450-cf72-4649-b489-757cbd2fb8a0"], +Cell[354177, 8724, 603, 13, 66, "Message",ExpressionUUID->"f08ad4f8-b9e9-634d-a88c-8e7647d2e0c3"], +Cell[354783, 8739, 503, 11, 26, "Message",ExpressionUUID->"f4d3212b-b508-ea44-abf4-57e8c6aa9fca"], +Cell[355289, 8752, 220, 4, 32, "Output",ExpressionUUID->"13585f92-1b74-c241-afd2-3f9eb5f34548"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355546, 8761, 2244, 64, 162, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[357793, 8827, 590, 12, 84, "Message",ExpressionUUID->"e92d017c-1f33-0340-8d2c-d44333f7f3ae"], +Cell[358386, 8841, 597, 13, 84, "Message",ExpressionUUID->"a9bb0afa-553c-8148-8d0b-426847c1f6d8"], +Cell[358986, 8856, 603, 13, 66, "Message",ExpressionUUID->"08e7a490-4bff-1c48-8627-f0721870b2bc"], +Cell[359592, 8871, 503, 11, 26, "Message",ExpressionUUID->"6e733448-ab0d-524a-9c1b-34bfad68fb5c"], +Cell[360098, 8884, 222, 4, 32, "Output",ExpressionUUID->"83d50851-e908-c945-85b9-aee99d98ad2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360357, 8893, 2242, 64, 162, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[362602, 8959, 594, 12, 84, "Message",ExpressionUUID->"64993219-98a2-614f-897b-60aff105ebde"], +Cell[363199, 8973, 601, 13, 84, "Message",ExpressionUUID->"957ea713-6fb8-0844-b1a6-d33b79437d65"], +Cell[363803, 8988, 605, 13, 66, "Message",ExpressionUUID->"4b8bcb14-8e99-134e-909c-07dc1aa31996"], +Cell[364411, 9003, 505, 11, 26, "Message",ExpressionUUID->"65548e04-fa59-1b4a-b4cc-b602fd354e12"], +Cell[364919, 9016, 222, 4, 32, "Output",ExpressionUUID->"4c2a980a-0372-9243-ac3e-5bb013d45b18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365178, 9025, 236, 6, 47, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[365417, 9033, 195, 3, 32, "Output",ExpressionUUID->"e5714781-9438-f048-94ef-f0fbb2b76930"] +}, Open ]], +Cell[365627, 9039, 271, 6, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[365923, 9049, 558, 19, 52, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[366484, 9070, 197, 3, 32, "Output",ExpressionUUID->"aaf00355-c108-2648-98ef-3d16547828ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366718, 9078, 170, 5, 56, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[366891, 9085, 194, 3, 32, "Output",ExpressionUUID->"788b9edb-cd81-f543-ab7d-3572a7f8b79d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367122, 9093, 181, 5, 43, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[367306, 9100, 197, 3, 32, "Output",ExpressionUUID->"022ed980-baa5-fc40-85d2-bc6a62091d10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367540, 9108, 6055, 185, 498, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[373598, 9295, 196, 3, 32, "Output",ExpressionUUID->"7e3d6418-4f4c-854d-9c13-61a842dacdc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373831, 9303, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[374202, 9314, 194, 3, 32, "Output",ExpressionUUID->"6dfad148-1b2d-ae43-bc66-54a526877241"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374433, 9322, 6122, 187, 500, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[380558, 9511, 198, 3, 32, "Output",ExpressionUUID->"60a4397a-d5dd-af40-a794-7c297c76bb93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380793, 9519, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[381164, 9530, 195, 3, 32, "Output",ExpressionUUID->"7fccc06e-6d4d-984b-84bf-e840d287c94d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381396, 9538, 2663, 88, 187, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[384062, 9628, 195, 3, 32, "Output",ExpressionUUID->"231db967-fec2-f04b-9750-82f282346ca8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384294, 9636, 2603, 85, 165, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[386900, 9723, 194, 3, 32, "Output",ExpressionUUID->"11c26d6b-764b-1647-9eac-1800b643af06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387131, 9731, 3712, 118, 348, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[390846, 9851, 199, 3, 32, "Output",ExpressionUUID->"482139b1-4f62-5e46-af70-d0ca7ba0d29c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391082, 9859, 2075, 59, 228, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[393160, 9920, 547, 11, 60, "Message",ExpressionUUID->"e94e3fc3-7c2d-f24d-9dfc-53cb03f93241"], +Cell[393710, 9933, 550, 11, 60, "Message",ExpressionUUID->"abffe7e0-de75-c041-bd8d-0f3a225e75f1"], +Cell[394263, 9946, 554, 11, 60, "Message",ExpressionUUID->"1cf41d95-f98c-574a-bfa8-95b38645e095"], +Cell[394820, 9959, 480, 10, 26, "Message",ExpressionUUID->"56cb601b-a020-b445-aab2-fe197181f715"], +Cell[395303, 9971, 194, 3, 32, "Output",ExpressionUUID->"d7384ead-bc71-7f4d-9258-214fb3f1cd64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395534, 9979, 2075, 59, 228, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[397612, 10040, 547, 11, 60, "Message",ExpressionUUID->"503491ad-4cfd-da4a-9dd3-97e70fb83533"], +Cell[398162, 10053, 545, 11, 60, "Message",ExpressionUUID->"1ea217e7-ea9a-0043-8c7e-3f5cba400bf5"], +Cell[398710, 10066, 554, 11, 60, "Message",ExpressionUUID->"fb827f59-f541-544a-86c5-d77845e9fec3"], +Cell[399267, 10079, 478, 10, 26, "Message",ExpressionUUID->"8dad8d7b-a4f3-c743-98d9-617311e55eb0"], +Cell[399748, 10091, 195, 3, 32, "Output",ExpressionUUID->"c42622fe-747c-4c46-9315-b2e79974099b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399980, 10099, 2053, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[402036, 10156, 20183, 379, 236, "Output",ExpressionUUID->"5029e9f2-20b7-1945-af71-2ed45e96871e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422256, 10540, 2168, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[424427, 10603, 515, 11, 60, "Message",ExpressionUUID->"8316ada4-1b39-b945-8275-22f4c278b609"], +Cell[424945, 10616, 519, 11, 60, "Message",ExpressionUUID->"bbbd48df-eefb-fc40-a0dc-56494a64f191"], +Cell[425467, 10629, 534, 11, 27, "Message",ExpressionUUID->"3159a404-3db5-7c4b-81b4-00e0930b9da5"], +Cell[426004, 10642, 482, 10, 26, "Message",ExpressionUUID->"b6bdf82f-e0dd-8a40-91a9-aa8167f44ede"], +Cell[426489, 10654, 42905, 751, 233, "Output",ExpressionUUID->"e80a0f85-f1ca-cf4c-8eba-f71539e2e6fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469431, 11410, 234, 5, 42, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[469668, 11417, 48866, 875, 233, "Output",ExpressionUUID->"e827cb17-b9f8-eb4f-b808-87c688114fe0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518571, 12297, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[520190, 12347, 565, 11, 84, "Message",ExpressionUUID->"b47ad8a5-1e7f-0544-836e-a97aec236958"], +Cell[520758, 12360, 572, 12, 84, "Message",ExpressionUUID->"1ec65752-0c6c-e24f-9d99-6c1a52fe2a34"], +Cell[521333, 12374, 577, 12, 66, "Message",ExpressionUUID->"275033f4-6615-084f-875c-34fbd15e95d9"], +Cell[521913, 12388, 478, 10, 26, "Message",ExpressionUUID->"57e5ecd0-fe78-ee4b-be8d-0bc947913088"], +Cell[522394, 12400, 192, 3, 32, "Output",ExpressionUUID->"7d41369b-d08f-b242-95d9-6976f2baa79b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522623, 12408, 2270, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[524896, 12474, 549, 11, 60, "Message",ExpressionUUID->"ca2f270a-2e0f-3545-8baa-79d8bc3d4d37"], +Cell[525448, 12487, 550, 11, 60, "Message",ExpressionUUID->"ee7b7b8a-ab5f-4c4b-903f-e2583f66ff88"], +Cell[526001, 12500, 558, 11, 60, "Message",ExpressionUUID->"4d1e67f3-b1f9-d847-ade1-ea330ae4282e"], +Cell[526562, 12513, 482, 10, 26, "Message",ExpressionUUID->"3e772d08-1987-8f43-bfd9-a520e738fdce"], +Cell[527047, 12525, 195, 3, 32, "Output",ExpressionUUID->"256c243f-333e-8d4b-80cf-c6eb4f13d3f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527279, 12533, 2244, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[529526, 12599, 549, 11, 60, "Message",ExpressionUUID->"7c91c0f5-2ca3-4b4b-b309-f3a21f62e4df"], +Cell[530078, 12612, 552, 11, 60, "Message",ExpressionUUID->"322aa2d9-45e4-8040-baf3-4c2f3634bf0c"], +Cell[530633, 12625, 558, 11, 60, "Message",ExpressionUUID->"64f9fa80-2841-3c43-9633-970c06b511f4"], +Cell[531194, 12638, 480, 10, 26, "Message",ExpressionUUID->"94bad9d6-e308-1646-b5cd-7cb9e119223e"], +Cell[531677, 12650, 192, 3, 32, "Output",ExpressionUUID->"38f07d3c-b9eb-e344-b11b-fea2a6c3a15e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531906, 12658, 2242, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[534151, 12724, 551, 11, 60, "Message",ExpressionUUID->"682aa1c6-ea39-7f48-b438-6c33a42f4d76"], +Cell[534705, 12737, 550, 11, 60, "Message",ExpressionUUID->"be5061bb-f417-8849-9ecd-eb278a62f897"], +Cell[535258, 12750, 556, 11, 60, "Message",ExpressionUUID->"554fd047-5e05-c240-9d49-8790a9efeca8"], +Cell[535817, 12763, 480, 10, 26, "Message",ExpressionUUID->"b5d5a4a9-256e-994a-b4e4-8b093f517d0b"], +Cell[536300, 12775, 195, 3, 32, "Output",ExpressionUUID->"8f914f3c-51bc-3e42-bd07-4270783c8bff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536532, 12783, 238, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[536773, 12791, 198, 3, 32, "Output",ExpressionUUID->"fa183d38-8ec6-eb46-aea1-f591d27972c6"] +}, Open ]], +Cell[536986, 12797, 273, 6, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[537284, 12807, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[537845, 12828, 194, 3, 32, "Output",ExpressionUUID->"821377a3-0b44-3e49-a363-104722fe80db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538076, 12836, 170, 5, 56, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[538249, 12843, 196, 3, 32, "Output",ExpressionUUID->"d09627d3-0c8d-c24c-ac04-55be6724dbbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538482, 12851, 181, 5, 43, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[538666, 12858, 193, 3, 32, "Output",ExpressionUUID->"26bff63d-6870-dd45-924b-9872712daf64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538896, 12866, 6055, 185, 498, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[544954, 13053, 193, 3, 32, "Output",ExpressionUUID->"deed1754-f24e-f44d-960a-40a55e217506"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545184, 13061, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[545555, 13072, 196, 3, 32, "Output",ExpressionUUID->"429cb130-8ac0-5342-9fba-00b6fed9d703"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545788, 13080, 6122, 187, 500, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[551913, 13269, 198, 3, 32, "Output",ExpressionUUID->"5c5670fc-6879-d743-a950-b0fb7b2cb8c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552148, 13277, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[552519, 13288, 192, 3, 32, "Output",ExpressionUUID->"59d59b11-f0f0-ee41-9355-7775bd470ee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552748, 13296, 2663, 88, 187, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[555414, 13386, 195, 3, 32, "Output",ExpressionUUID->"ee5bc42e-7dc8-b347-8911-74a0f4692d36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[555646, 13394, 2603, 85, 165, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[558252, 13481, 196, 3, 32, "Output",ExpressionUUID->"a4252679-4e67-294e-bb8f-fd447cbd8112"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558485, 13489, 3712, 118, 348, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[562200, 13609, 199, 3, 32, "Output",ExpressionUUID->"1d8ec18e-8a57-6547-8bc4-000d51776991"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562436, 13617, 2075, 59, 228, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[564514, 13678, 549, 11, 60, "Message",ExpressionUUID->"001275fb-614d-8448-9fc7-dc3156422b0f"], +Cell[565066, 13691, 553, 11, 60, "Message",ExpressionUUID->"97d11c97-01c8-f940-afd9-e4bcd7931cf0"], +Cell[565622, 13704, 554, 11, 60, "Message",ExpressionUUID->"00545248-d898-d64a-815f-d645338b3d17"], +Cell[566179, 13717, 482, 10, 26, "Message",ExpressionUUID->"8061a4f7-154b-e64d-9369-e8eeb9d7ed1d"], +Cell[566664, 13729, 195, 3, 32, "Output",ExpressionUUID->"82fd41a2-aa7a-434d-9939-1b7d9f540a7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566896, 13737, 2075, 59, 228, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[568974, 13798, 549, 11, 60, "Message",ExpressionUUID->"37ca5db3-823c-2b4f-bb89-5a41f9a2a4a1"], +Cell[569526, 13811, 549, 11, 60, "Message",ExpressionUUID->"50dfe7f9-2f49-bc4f-8ef7-90576177c756"], +Cell[570078, 13824, 554, 11, 60, "Message",ExpressionUUID->"fe9114a3-a297-c244-b89b-65104ce093d6"], +Cell[570635, 13837, 480, 10, 26, "Message",ExpressionUUID->"0dbdee7d-7a9d-214c-811f-76ccf9590577"], +Cell[571118, 13849, 195, 3, 32, "Output",ExpressionUUID->"37881174-f663-884a-83a2-0e6a409d5463"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571350, 13857, 2051, 55, 160, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[573404, 13914, 20167, 378, 233, "Output",ExpressionUUID->"24fdc32f-d3b8-3a4a-83ed-aabcc4992bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593608, 14297, 2168, 61, 211, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[595779, 14360, 511, 11, 60, "Message",ExpressionUUID->"ffcd9f00-d21b-b14e-a388-b6e0f70b2ac4"], +Cell[596293, 14373, 515, 11, 60, "Message",ExpressionUUID->"559d13cf-7066-5144-8c88-ec7486b27994"], +Cell[596811, 14386, 532, 11, 27, "Message",ExpressionUUID->"bcef89f4-2de6-2f4e-a832-bf3a84c12720"], +Cell[597346, 14399, 478, 10, 26, "Message",ExpressionUUID->"5a164f18-c166-9e42-8c8a-496687d25f7c"], +Cell[597827, 14411, 42350, 742, 233, "Output",ExpressionUUID->"1332b683-08d0-1e40-a60b-1ecced6a5322"] +}, Open ]], +Cell[CellGroupData[{ +Cell[640214, 15158, 234, 5, 42, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[640451, 15165, 48309, 866, 233, "Output",ExpressionUUID->"324ac577-08c9-2b49-86fb-e33fc9c29d64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688797, 16036, 1616, 48, 113, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[690416, 16086, 566, 11, 84, "Message",ExpressionUUID->"b958c607-4c23-f94c-acb5-68950c00b4f4"], +Cell[690985, 16099, 573, 12, 84, "Message",ExpressionUUID->"7a744023-9440-5840-b2fe-c62afdb63205"], +Cell[691561, 16113, 576, 12, 66, "Message",ExpressionUUID->"a7884327-cab4-6145-8cd9-16b1d7c70e1a"], +Cell[692140, 16127, 480, 10, 26, "Message",ExpressionUUID->"8e17eeaf-79a8-384e-a3cd-e365834d4802"], +Cell[692623, 16139, 194, 3, 32, "Output",ExpressionUUID->"f7af3923-be91-4747-bf22-84ca8958cffe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[692854, 16147, 2270, 64, 223, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[695127, 16213, 551, 11, 60, "Message",ExpressionUUID->"6c491ae5-3c03-0248-9e86-43889fa3c104"], +Cell[695681, 16226, 553, 11, 60, "Message",ExpressionUUID->"6dc6a0fc-6f88-a547-9938-c756c439070e"], +Cell[696237, 16239, 558, 11, 60, "Message",ExpressionUUID->"cb852058-c327-e640-852e-23de46ef94a4"], +Cell[696798, 16252, 482, 10, 26, "Message",ExpressionUUID->"38add85e-6da6-e943-ab35-ba1861030e53"], +Cell[697283, 16264, 199, 3, 32, "Output",ExpressionUUID->"9ba5b485-ee0c-af40-aae1-502982f7926f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697519, 16272, 2242, 64, 162, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[699764, 16338, 551, 11, 60, "Message",ExpressionUUID->"0ac1d6e8-df8c-3c4f-ae1a-194db2a23c76"], +Cell[700318, 16351, 553, 11, 60, "Message",ExpressionUUID->"bf6479ea-910b-b64f-97c1-200bd1179913"], +Cell[700874, 16364, 556, 11, 60, "Message",ExpressionUUID->"a9fc6bdf-c529-be4f-9c55-213ac17f2205"], +Cell[701433, 16377, 482, 10, 26, "Message",ExpressionUUID->"f58e6cff-b459-224d-b86e-09f230d8149a"], +Cell[701918, 16389, 194, 3, 32, "Output",ExpressionUUID->"bb87cb1d-018c-034b-bd1a-7482c9d90b38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702149, 16397, 2244, 64, 162, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[704396, 16463, 551, 11, 60, "Message",ExpressionUUID->"e9ad4d1a-7191-dc4b-ae6f-c1615226a7a4"], +Cell[704950, 16476, 553, 11, 60, "Message",ExpressionUUID->"87e8e358-1420-0142-9e16-c5af17644a90"], +Cell[705506, 16489, 556, 11, 60, "Message",ExpressionUUID->"490a9a5d-00a8-0e43-ae8e-0caf5ecc8717"], +Cell[706065, 16502, 482, 10, 26, "Message",ExpressionUUID->"c9dfd152-acaf-ae4b-94ad-9d639249649e"], +Cell[706550, 16514, 197, 3, 32, "Output",ExpressionUUID->"00e6644b-899e-2043-8888-f47a06ba89bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[706784, 16522, 236, 6, 47, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[707023, 16530, 198, 3, 32, "Output",ExpressionUUID->"c87402cc-58bf-fa40-b08e-5ceb3cffdc66"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb new file mode 100755 index 0000000..cb5865b --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb @@ -0,0 +1,17099 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 743472, 17091] +NotebookOptionsPosition[ 702893, 16442] +NotebookOutlinePosition[ 703347, 16460] +CellTagsIndexPosition[ 703304, 16457] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"8a2f1f0b-8afa-164f-be4c-3eb352a9b787"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992104485435251*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b8ee6b0b-17a2-f54e-9bc0-a250aeffe01e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"e3b4d782-22ad-644f-b4ad-c20cd1052de1"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9921044855001755`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"64ac36ea-5cdb-8049-a345-8676e0a8f0ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"738d1471-6a0a-4f4e-b5a7-3ec1c998e28c"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992104485513193*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"efe5a83f-f1c4-4d49-9907-b1e08e40e221"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"6cbc7ec2-2efb-b14c-a4ee-ce7930f692aa"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.992104485527193*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2cbe006d-ba08-5f41-bbc4-862027de5c00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"8ac8da3e-e91b-974a-b764-a1ec11f5ba7f"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.99210448554418*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"39b97283-3b3e-8246-bf75-eb809c9e7250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"52bc0922-2f51-b046-81ef-dcd0b9f3400f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.992104485563179*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a9b9a1df-768d-bc48-8de0-a3f1fa2abf5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"8ebd13d5-dbd4-4344-872e-069d667ed804"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9921044855762672`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"109ece75-d216-2242-86ca-cda709a522ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"1a8f27df-929b-1f40-9040-a01ae130b44c"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9921044855902023`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1a58f92a-c7e3-0d46-a7e0-b08c4dbc991b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"00c07ca2-7b49-8e4a-b91b-74e30283fdb3"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992104485605318*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"be1600c0-a83a-8843-90af-a30ed0903a04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"4a295acf-90bf-d54b-bc45-5f99546e5852"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992104485617174*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"925d9c00-17d0-1b4b-9c0e-5544d5595ca4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"9a7213dd-de15-ce4a-9139-73c14351235e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.9921044856292763`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"fed78bb9-b363-1949-93be-732a1eb74d8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"e866d22e-3ba3-504e-a3a5-18836e11ba87"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992104485643198*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"fd299361-0514-484b-9f65-11ca62674bf6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"34f25e32-4fb5-0a4e-a6b9-6a0c6530baea"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921044856569176`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b7a60f3c-b405-ed41-8253-627786445100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"2a822672-28e0-b147-8446-35f8b31b7054"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.99210448567194*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"19fa5df6-7344-9941-a3ed-875a41dd8272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"2a42bbc4-8f52-1849-9062-33373609e9ce"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9921044856867523`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1cad65fc-1ecd-f640-8688-cd7799df585e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"96de10d8-ae10-f54f-8c9b-86e202e800df"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.992104485704033*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"809434ef-170e-874d-82dc-a07591655749"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"c3045ecd-5faa-c242-b7f8-8cac99288502"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921044857195835`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"0709fa90-affa-104a-a226-97820d18c141"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ee834bbf-59ef-6741-8395-aa2e26eb5327"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.99210448573464*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"fd752e86-0fd8-d94c-986c-3b345559934c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"5d8334e3-a935-214c-848d-984006460a2b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9921044857493057`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"20a3d54d-274c-8849-b4a6-4df090278a9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"43927710-4b46-9d43-9873-1b123d23cd06"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992104485763609*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbf5b8b3-3bf9-244a-ae54-1932035e2edf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"e26b0d7d-8302-c147-8fdd-12128afa30cd"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.9921044857800274`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"09300a56-6f76-5e4d-a0a0-9b0c4341a494"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"02ae55dc-e83b-c846-a683-605a55391e41"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921044857971687`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"4607d1c7-9985-3d46-ac3e-c1e2df355fec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"d0a548a6-8f0f-aa47-88a0-5fafcaaa02c7"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9921044858117027`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f7daf746-442e-3a4c-9051-5ff4158b18f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"ea7ea516-e529-424d-aae3-5a931107ea45"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992104485827921*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"9635ffca-1643-1944-b633-d2ca7bf0678a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c4aac062-4edc-f04c-b189-54e6d761e4f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"7bd5f262-50a5-b040-a572-06f486e4769d"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921044858519154`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"769e93f2-77d7-6e40-bd07-a54b07850956"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"15738c40-d58e-644f-b4b8-cc87006c8787"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921044858664894`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"fccf0b50-70b4-bf4d-9c8d-1cc99dcb2bc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"3d918e36-cad3-c242-944a-cea3e4582325"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9921044858815193`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6de4bc0c-4ec5-d44a-980c-ad988a9c949c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"2898f460-3b0e-7c48-999a-d19f61427db7"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9921044859001617`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"be910b5a-98a5-234d-8664-e0d6d9608b09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8b4ca0ba-ed32-ac4c-a545-5a3d8c0c1598"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.992104485915243*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"82830324-8fe9-9b43-a6d7-c20ab18a9a6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1ae8276e-c823-5244-9867-b2a5d5d4bc9f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9921044859289*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"02aab143-e4b1-8b43-b7b9-0ed4846f32df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"e9fb66e3-5966-0b4d-9ac9-aa55967ea58d"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.99210448594182*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"9d7b1a33-ebf0-fd45-a3a4-f1ff6ad42c9b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"9572099a-8f42-5347-b7bd-9e0d0ba78041"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"513e129d-29f6-5b40-a359-3ba442747866"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.992104485960243*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"bd39858d-c296-6a49-8d30-da1ba4eb0b2f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"578452cc-c906-0041-b08b-b1e250c795ff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2793dc1e-4db7-a643-b0aa-cd39aa7e12db"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9921044859838276`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"6fb9629f-1ef6-a84e-82ba-516d1f55d2a9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"add321a6-8898-d242-b2b4-4dbc890135be"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5c6f2eba-7090-2a40-b78d-68094322a019"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.9921044860052547`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f9568db4-6b25-9f41-91cf-a09d1a78964e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"9b4d9bf6-575f-624a-b7e9-f803f7391df8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"83e941f0-4754-5c4a-80ed-64a51356eaca"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.9921044860344276`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"f990b083-31c0-634d-a391-44b35833f0d5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e8fb696b-bdef-964b-9caf-220c1722d523"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2165e09c-d7c4-6d49-ae7e-efda0d5ceaf6"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.9921044860600853`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"08d2e6ca-75fd-354a-9b05-6938bee88f68"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"7f6561f9-b201-c84b-a816-6822affcba33"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"ca49a0d5-2e72-f74e-b7b1-186e3d0ce00b"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9921044860902615`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"f09aae4f-ac60-3943-90d2-2cc31ef849ed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"637cd92e-71b3-8a41-b025-20f4ff5aa862"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"6679f29f-2648-824a-80f4-4c1fcf698c25"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992104486115141*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"a3955366-8a4b-444a-8a4a-bb74174d2bcf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"b7ab0632-3e38-a345-b222-9d593459b248"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[48]:=",ExpressionUUID->"db0663a8-6d9e-1641-8ff9-d4dcc3695c77"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992104486269726*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"3049f637-7f3d-4d40-884b-748ce823824c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"de350aee-0eaa-6148-aaa5-5fb96818af5a"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921044865865192`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"132a5223-6af8-9a46-9ac7-dee63502a31f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"69ecc5d4-90ab-8946-a070-e0d9cd5d0bf5"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992104486762232*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6ce8fe5b-2395-1149-8d0a-d85732f7600c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"37d2e9af-fb6f-b44b-8f43-f611039de089"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921044869347553`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"6751334f-d4bb-3346-bef7-ef6460de12ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"efd3751e-efc1-6941-90aa-93c21840c4e4"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.99210448710273*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"b4a56042-c3c7-1244-ad2b-aaf222214a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"494f0fee-fcb1-b24b-a976-bdcf1e446e70"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992104487293392*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"509881ad-90b0-7f4f-9c26-635ee20c3ffa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"01d8d0c9-6ef3-474b-94a3-777dcec63ba0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992104487376211*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"1c8066d5-8880-254e-97f6-1336071adbd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"6aa8b642-2da4-724d-9e7d-4f55c9ca63a9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9921044873975735`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"ffd7b062-2b4c-0f42-bea5-f910c5530526"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"3dd04c66-dec1-1e44-8745-3be8d3ef6405"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9921044874199142`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"b7862a91-87ae-8a40-914c-62903b00ae6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"a0faf3fa-f6a1-4e4f-9a12-948cce7d5b6d"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9921044874415607`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"83805a3b-a131-4d47-92c4-bd4f0ff935da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"e3da3801-16ed-fb4a-a2e3-518e58f23a2f"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921044874625053`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"474df8f6-b40c-ce4a-b8a6-45a40144db5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"236dc901-46df-6a4c-9054-47a8c9036b93"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992104487479624*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"5dddc767-1209-404a-99c7-7a5d2bae0e7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"4f972b0d-2ee8-e24a-a471-0de8a99974b8"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.99210448749864*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"7515121f-3372-9a44-b1be-92a4171f92dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"605692fb-c90e-0145-9e8f-9d030f59acb1"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9921044875167236`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"428ad22c-57c3-254e-8104-6d8a92b998f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"7bf792e0-7bd8-ab4e-b00b-c0f16b4a2ff3"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.9921044875361557`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"c4caf895-dd45-964a-8070-643495e74638"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"898c4602-c5af-c446-ab46-4b29f7b69bdc"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921044875545006`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"d2aa0b37-dcf1-ea4e-8594-1fff1d9fabb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b8a46813-d008-3341-9a41-33be5b783b6d"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9921044875728703`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"3d0b9ac4-bf74-a346-a8f8-41a9d015ac3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"0213daa0-b7ba-7147-a98b-2a224338b7c2"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992104487590353*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"02ada4f0-7c7b-9346-bcb6-35ede67170dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"c0e2ee7d-ea99-6644-a238-e87fa188a4db"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.992104487610319*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9fc44175-9184-fc4f-b6a3-5abd6c569fb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"64b296e5-9704-bd4d-a935-b44718164175"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992104487630335*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"bbe54afa-4c08-6a41-bea2-19a0eb95999c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"14b9de58-04e8-6547-a63b-136c5928c1f2"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921044876510506`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"6815918d-1b13-b24b-8599-722007c8c0ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"4aac5d67-06d2-9a4b-bb40-3087b1e88d8d"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.9921044876752987`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"62e0bcf2-430f-b044-8871-e34da9789d17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"4cd1a2a6-68bf-5743-8f6a-da2dd545cce3"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.9921044877014885`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"968abdb4-68ea-e842-b76b-bfda128d7264"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"cb71509b-26fe-3944-9bfc-3b9ac6ca1e76"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992104487727148*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"6ec09bee-a2b7-de45-84b3-62dae43321e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.197263021899268"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, 3.9920886801241207`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], + +Cell[BoxData["0.197263021899268`"], "Output", + CellChangeTimes->{3.9921044877431545`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"98c0d15d-f91e-5d41-a806-9e3a5eba501b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, 3.991846933469059*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.525273658113063"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, 3.9920886854582596`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], + +Cell[BoxData["0.525273658113063`"], "Output", + CellChangeTimes->{3.9921044877663975`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"a8b0aa04-9977-2e44-9357-f0f1ff0ef6ef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, 3.991846936376911*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9921044877909737`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"b87a5ac1-31b7-a645-addc-1b307fca8c57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9, {3.991558360387518*^9, 3.991558363336605*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], + +Cell[BoxData["1.7534500135146677`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9921044878167534`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"58f1f81c-54e8-aa4c-8f81-87e500fd7f9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}, + 3.991558357640812*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], + +Cell[BoxData["4.6057170799418873`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9921044878417416`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"a9d789aa-373e-ca46-a740-7c861d838c05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["44.385614932060015`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9921044878602524`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"5a3fb563-373e-bd44-a4d0-558873ea7934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["105.8233497590889`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.9921044878822536`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f5c42219-c1fc-c248-a8fe-314a4e89746b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["2.1196889634300353`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.9921044879002533`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"37770140-c372-4a46-be6b-8764449b6458"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["7.971867967597824`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.992104487921383*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"85c353b5-1c0e-514e-b394-211abb4900ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["843.6097721683817`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.992104487940275*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b65d8dbb-979c-584a-967f-38e58066dac7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["94.083698106543`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9921044879572678`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"97073bf7-bbdc-a147-9c69-d7fc26b969a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.010502172472795633`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.992104487974249*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"75d223e6-4172-1641-8fb6-ef9f103ea789"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["8.647794634510944`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.99210448817556*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"9888845e-4f6e-6a4e-bece-ee05eaa67250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.00114031645433252`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9921044882015724`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"70184009-5096-6d47-b0ba-9a07f5631138"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["26.244133914834457`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.992104488382555*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"db25b3b7-1593-684d-8373-4f28071dbb6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.992104488513569*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"83f7940a-0f6e-8d40-b7c0-79d6795191da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.992104488547228*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"08a7db00-702f-824c-8dda-48c6615c64ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.992104488570755*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"588e7fb4-7f6c-3648-8476-b25464baead3"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991846957646223*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 526, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044886446037`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"518b6085-bd6f-ca4d-937c-95bb84cf9872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 527, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992104488681612*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2f8ccafb-cc82-6f44-aa53-b4c14b4ffb2a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 528, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044886964664`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31c890e1-dcbe-f44d-ae5c-efa850e8d757"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 529, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044887079163`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"be6c2de0-1ee9-8e43-90cf-552d40364cfe"], + +Cell[BoxData["8.647794634510939`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.9921044950158176`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"96b94b1c-0402-0f49-bbb3-02d1c57a74ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918469611416626`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 530, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.9921044951594276`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"5372cd13-e015-1248-a2d0-0da05bf65862"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 531, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495181059*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e56d6975-4011-6446-937b-291d94c774bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 532, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495201153*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1956db0b-d68c-c540-a5be-a5b640dd589e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 533, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495216156*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"21d9f63f-406c-514f-a1e5-623264e1c240"], + +Cell[BoxData["26.244133914834457`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.9921045017210445`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"8fd551b3-f4ae-3e42-9d35-cd5edfde01c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846968477251*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6927866918757211, + 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6927866918757211, + 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6927866918757211, 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6927866918757226}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6927866918757211, 1.4095760863209987`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9, 3.992105027943985*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"09febe5e-90e6-e94d-a1cc-e2201f28f26e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, 3.9918469897830563`*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.708592675900099`*^-273\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 534, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281777*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"e4ab42d1-822a-3743-94c1-e9c811984c99"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.3450511557156395`*^-286\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 535, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281887035`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c90f78e1-5a95-264e-bdff-c6672237f3b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.041891807485711`*^-299\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 536, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281937027`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"d34fdfe6-0488-f649-ad53-c56b75a0e58d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 537, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281997185`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"08809b5c-0ef3-b041-91a2-629c9cfec6ea"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08790373129961977}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9, 3.9921054606804256`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"03d34203-c420-7d45-bf09-8a55296e01ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992088703603916*^9, 3.992088704449127*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921054608654137`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d8680fc9-3dd5-9242-88d6-6c0204a87721"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.08790373129961977}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992105460914795*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"7ea6e50a-7a7a-5a40-85ad-69a1f0a00639"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["25.740426680324994`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.992105460967869*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"6b1dba93-6fd7-fe4a-a952-0577b41b6c35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67331325968282`*^-279\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 538, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612074013`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"78ee9f76-782f-e041-83df-6e8cc574dad3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.379360399631195`*^-292\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 539, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612291756`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"010c03d4-ffc9-9d40-9802-a428625a1279"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4994154234035094`*^-305\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 540, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612432327`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"686181e2-47da-9445-b1a7-ee3cb66dade2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 541, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612533207`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"27db1bcc-bbe2-2643-bfc5-3c10714fe263"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.029532277342827942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9, 3.992105954231745*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"52fc4ee9-c583-a346-9ff6-1fc62b974e22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5070048198550655`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 542, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954384218*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1b5f474a-bd97-cc48-bbd3-567e7799a4bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2899389042200305`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 543, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954404211*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"285716bc-98de-a544-832b-342bc0380804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.479630666055037`*^-246\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 544, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954422106*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"4a60ee57-67a6-1e48-8e3e-9f4ae7e348be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 545, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.9921059544341183`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"38c03d50-40a6-8f4e-8738-db716a26149f"], + +Cell[BoxData["25.740426680325015`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.9921060033976307`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"38f3ca83-93f3-034f-aaab-5327b361adf4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847002744938*^9, 3.9918470078833466`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 546, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921060034986324`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"16f89544-512b-414c-81ab-426bf9ff16f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 547, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992106003524523*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"0279d7e2-07c9-c948-97b6-90118cf2ee4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 548, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921060035395393`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"50f75a5e-dbd4-df4b-8c31-74839c206d10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 549, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992106003551527*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"bd349241-f1d5-404c-819c-20c4473bae39"], + +Cell[BoxData["2.816303501126644`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.992106014282585*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"35ef6d93-b062-1043-9217-06ff5569b340"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470141153297`*^9, 3.991847018285223*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 550, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921060143929005`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"7e8542eb-3318-e243-a517-28cee2440579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 551, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921060144100914`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9b040614-9771-e84b-96ec-44e212b50773"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 552, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992106014422661*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"87c9a6d9-f175-f645-9606-7e3068bb32f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 553, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992106014433176*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"553bd1f8-d742-d94c-83e8-fe8f93d67340"], + +Cell[BoxData["20.434042304908548`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.992106023804022*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"a8fbb1da-9dd2-dd47-b90b-f1686e855ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470289577656`*^9, 3.99184703187117*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 554, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023897423*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"e2ebb771-6cc7-ad45-b0e1-036700c6fc80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 555, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023921343*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"f25c1c19-5db5-6044-90b5-3836234e8b9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 556, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023937315*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"4eae3142-befa-3a41-a1f5-98a65ffe0583"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 557, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023949316*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"3892d7d2-4d86-3642-8aa6-322dfa193b31"], + +Cell[BoxData["188.19498375840513`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9921060307628*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a7673b20-9d0f-de48-8480-38339b9a8990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, 3.9918470411375484`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], + +Cell[BoxData["0.04541489237357689`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.992106030820343*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"d5ef1f8f-ed84-8e47-bbae-e6236db9e3e7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["2.4513631194298338`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.992106030851095*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"9678764f-f941-fe41-9875-ace381e90f96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["9.019644802894332`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.992106030873333*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"685ddd9b-d2f9-fb41-bf50-d46127b8f7e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["22.110424620172136`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.9921060308975487`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"69940fa6-9753-934b-ae51-3331b3360f8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.0430197806265059`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9921060309285316`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"ecaf3830-115a-0342-b8eb-c351e28de11a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.2727830778988025`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.992106031104618*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"e073f0d3-0d0e-c840-a388-637841f7acb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.0012422726368387545`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9921060311347656`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"d4b3c6fa-afc8-bc49-b494-5b24ac86c863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["25.144122337633185`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9921060313053856`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"e54744ec-da0e-7b46-81c5-ae97d09576a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.9921060313267956`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"c9fe5282-25cf-df4d-b756-49cfc8c2d988"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.9921060313527355`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"d63ee76e-1761-5c47-9803-38fe986ec427"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9921060313833714`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"8be6a8ef-faf9-ca42-9fd7-1907acac4081"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847118583315*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 558, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314246426`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4cbbe05c-90c7-5c49-824f-9c9e65f612ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 559, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314361115`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"9ce400de-6a85-0042-a7b5-2866ab592321"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 560, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314485435`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"c783e88b-155e-9c4f-bbdc-fb93279cbaa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 561, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314600983`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"9e9de591-708e-e049-a352-a9dfe74fb20a"], + +Cell[BoxData["4.272783077898801`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.9921060380327454`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"c05ea6c2-1004-6d4c-ba91-f69b92e85a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918471223197117`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 562, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038125824*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"f5e4b9df-4333-7e4e-b4f5-9c4884d1bdc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 563, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921060381500816`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"07152520-5ca3-5a41-bd3f-151e526d2001"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 564, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038165613*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"b12622a7-e874-7f42-82cb-df088b1502c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 565, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038177229*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"920aef7a-d83f-6647-8707-85584cd3ce79"], + +Cell[BoxData["25.144122337633203`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.992106044835863*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"557ab69c-77b1-4b49-95ef-cfc9405429a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918471264328136`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9146766031964045, + 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9146766031964045, + 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9146766031964045, 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9146766031964065}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9146766031964045, 1.0916644014563661`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9, 3.992106641835331*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2135d013-5bf5-da4c-9de8-f361f94add3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, 3.991847426207552*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1686492472654984`*^-271\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 566, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992106642210041*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"d6fcfe45-38a6-794e-b25e-e3a3fba7d6d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3194672853092408`*^-285\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 567, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921066422250557`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"c5ff23f7-a281-d548-b0ca-9e84b797052c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.428717028673181`*^-299\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 568, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992106642237072*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"6c0c218e-e080-8147-b566-2bb61b6d29e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 569, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921066422500515`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"b2b2564b-d4d2-9548-b136-1ea0f45f0114"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.17791060319940644`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9, 3.9921077262573833`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1029cbcc-6f84-054d-abfc-68579ab0cc0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.17791060319940644`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992107726457239*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"78fea266-c9b6-1344-815b-e592a4b36902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3874266998239808`*^-217\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 570, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265415897`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"8dcb415c-42a2-3e4d-85cd-b269b93087ad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.817278930676562`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 571, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265549126`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"e2c59d14-9d90-6f4e-b634-bdc876731669"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0502622182804961`*^-228\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 572, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992107726572605*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"fc24092a-477c-0749-943f-ceeddf1f334d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 573, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265856056`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"470da4b0-f630-6a4f-bd7e-f46c6cc3fa3a"], + +Cell[BoxData["25.74042668032499`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.992107803364382*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"43184eec-295e-504b-91f9-1ea4953e0db9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472030801735`*^9, 3.9918472073134327`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 574, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921078035252037`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"828689d2-ae3f-c946-9ae7-b67259295e4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 575, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992107803544195*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"fcace641-ae91-c047-a870-a6c6381df469"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 576, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992107803558218*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"187a9b00-1b38-574b-b50d-6a60daa919f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 577, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921078035761986`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0b3230e1-fbdf-634a-b4ea-4d47d1bffb37"], + +Cell[BoxData["0.0849931596032133`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.9921078135741177`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"5d45f944-e569-854f-9b97-404fa95b9a81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472136550217`*^9, 3.9918472163537464`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 578, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813719118*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c6321387-1f09-f949-bd42-7328714457a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 579, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813738119*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"455817c6-ecb6-bb4d-8311-feeddf2bb0ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 580, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813753113*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3f83d0d4-758a-9841-af38-e018c01da43a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 581, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813770115*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"9b928638-0b2a-644a-a643-a1e94d4dfd65"], + +Cell[BoxData["4.988445628435583`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.992107823127861*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"033dee4e-424d-3745-b121-cf546d247743"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472906473484`*^9, 3.9918472935952396`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 582, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078232337704`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"67fe2714-46b1-ce4c-b01a-21b9bf156e81"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 583, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.99210782326478*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"e950deee-f61e-6149-99db-f2ade8fd4f11"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 584, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078232907753`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"247955c4-a1d4-ed45-a50c-b0eeedfbd72b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 585, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078233087673`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"63963b0a-5deb-8544-9a18-85eecfcd11e3"], + +Cell[BoxData["172.74938708193324`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.9921078301465797`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"a9172cf7-eb97-0c4c-b147-ed16d584d170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, 3.991847300654911*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], + +Cell[BoxData["0.0028952968328727117`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9921078302555466`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"2cd90da5-c5cf-5043-ad40-97115e43c947"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["2.4966041761479913`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.992107830279339*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"613d7f9d-dd7d-f34a-a6e1-5c117e9d6780"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["8.937548526432023`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.9921078302929783`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"29fe2b58-bee7-5c48-bee7-d0c4dd1e55da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["22.313520975615514`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.992107830307661*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3f53a0b4-6d4a-2f4b-9e83-0ff6d899d46d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.04264716549004447`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9921078303272953`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"ac7f7b5d-4757-0a4f-9cbc-985d19a1d282"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.2914084791984415`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.992107830555517*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"470d085e-ba2e-a942-9bfd-c4b0bf514e12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.0012419592892122277`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.992107830594433*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"d9849cd0-29ac-9143-9651-ff255690c5fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["25.14729408175802`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9921078308162613`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"9ce068fa-2d01-0e47-92b5-eb0a87fc4f5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.992107830841627*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"29068a32-feba-a343-97e7-c7ff68997ff0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.9921078308760376`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"80c7b360-9d6c-114e-b28f-37c3e14374f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.992107830900982*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"95bbe068-0dc6-5448-8790-9b300d03cff2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847320104244*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 586, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921078309486694`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"33a28988-5186-6148-b50c-cd31c2ad3ee4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 587, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107830986679*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"69659419-da84-6749-8d63-f5d35bb09c80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 588, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107831009674*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f51a32b6-6626-8b47-b9e9-6880adbee697"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 589, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107831029766*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a10d2556-1be6-4740-a884-9d3f2be699d8"], + +Cell[BoxData["4.29140847919844`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.992107838312769*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"5313bdf6-7d86-db4b-ad5d-edfff8b8fd1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991847326557415*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 590, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.99210783843272*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"3d6e8607-871f-934a-81ff-4c055cffd57c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 591, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921078384697742`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"d452064a-7f30-6041-802e-7e2dd79725e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 592, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992107838490677*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"7ecfc55f-9f4d-ff48-9f84-77f51033e948"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 593, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921078385027695`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"accf6eec-14a7-6f44-ad16-c866e8907f86"], + +Cell[BoxData["25.147294081758016`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9921078451599026`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"e30e78f5-0151-3e40-a5ed-7780bfcfa8c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918473312384872`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9172131614209335, + 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9172131614209335, + 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9172131614209335, 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9172131614209355}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9172131614209335, 1.0887431789666953`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9, 3.992108439144165*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"ab4ad784-6959-e04f-a12e-7fb28f80e604"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, 3.9918474093563137`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7805835694848188`*^-272\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 594, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921084395072155`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"c2a43784-d633-3547-a4c1-ffaee26504a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.350937830630534`*^-286\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 595, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921084395312195`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"d694560e-5fd1-8543-bc26-2c1e5701c66e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9433433895966984`*^-299\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 596, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.992108439548218*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ec515fc1-c065-ab4e-a9a5-aed9f3b47315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 597, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.992108439566221*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"3cce077b-41b4-d24c-88ba-c6ed96071bce"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.1771383970775888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9, 3.9921095011693687`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"23ddd502-7653-d444-8b7a-574bfca96b94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 20}, {0., 0.1771383970775888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921095013102207`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"a0df394f-0e0a-cb4a-95d8-e33451f2dd99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[143]:=",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.79939548539759`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 598, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014032803`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"3babb852-1099-c347-9b4a-763f5878f88f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8368432860451523`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 599, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014242897`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"23a991cf-afc8-f149-a2fe-9c9af7c88ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.962195925704206`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 600, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014452934`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8b2d21d2-5a70-4b40-b2f6-521fa57020f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 601, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014652863`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7d8ff5f9-2c93-2249-a458-740cc6b77fce"], + +Cell[BoxData["25.74042668032497`"], "Output", + CellChangeTimes->{3.992109577787632*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"a23212bd-5f18-5e46-9291-5b25bbccfd84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918473569283657`*^9, 3.991847361118864*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 602, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095779010353`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"8395c74e-b73c-3e41-8b4c-675418cf89a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 603, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577928171*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fb57f23d-225d-3742-8600-d74b7c603eb1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 604, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577945284*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b1ce68ac-2602-8b49-b077-b53d4247fe22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 605, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577966276*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b1df0118-f8c4-3848-839c-cb468795b5cc"], + +Cell[BoxData["0.08020466178123517`"], "Output", + CellChangeTimes->{3.9921095877564564`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"f495d193-7724-c44c-b44a-a00ab6802df9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847365260393*^9, 3.991847368101671*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 606, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095878481464`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"84074ef1-a052-8d43-991d-09f412b338fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 607, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095878761387`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e72afd9f-49d9-ea43-b111-5a10a9811297"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 608, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095879052467`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0f8960e3-6c6a-8546-b199-5d410c147280"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 609, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99210958793524*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bd0e9c97-0964-1746-a859-4da41cb9adde"], + +Cell[BoxData["5.032030479321021`"], "Output", + CellChangeTimes->{3.992109597406786*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"172dd9b2-3b94-494f-a892-21e620033286"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184737148876*^9, 3.9918473756828785`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 610, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109597492836*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"bb1957d6-d6a7-a944-b55e-a7d31d7df8a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 611, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095975059433`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"f98e0cdf-e6be-0245-ba7e-3c529dd78a64"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 612, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99210959753294*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"b5f2ce0b-1a50-b844-9cf1-ec9d2a946b7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 613, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095975628414`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a20fb423-d8d6-8147-9966-da46792edd3e"], + +Cell[BoxData["172.79297193281928`"], "Output", + CellChangeTimes->{3.9921096043889904`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"3ac0f14d-0d65-6b40-abdc-509135677bde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, 3.991847383988016*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], + +Cell[BoxData["0.0027199751927751603`"], "Output", + CellChangeTimes->{3.992109604464899*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"1cc146dc-8972-ec45-a4ee-37a680880d8a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 22, "Input",ExpressionUUID->"8a2f1f0b-8afa-164f-be4c-3eb352a9b787"], +Cell[981, 31, 200, 3, 25, "Output",ExpressionUUID->"b8ee6b0b-17a2-f54e-9bc0-a250aeffe01e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 22, "Input",ExpressionUUID->"e3b4d782-22ad-644f-b4ad-c20cd1052de1"], +Cell[1569, 46, 429, 6, 25, "Output",ExpressionUUID->"64ac36ea-5cdb-8049-a345-8676e0a8f0ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 22, "Input",ExpressionUUID->"738d1471-6a0a-4f4e-b5a7-3ec1c998e28c"], +Cell[2262, 63, 419, 6, 25, "Output",ExpressionUUID->"efe5a83f-f1c4-4d49-9907-b1e08e40e221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2718, 74, 175, 3, 22, "Input",ExpressionUUID->"6cbc7ec2-2efb-b14c-a4ee-ce7930f692aa"], +Cell[2896, 79, 399, 6, 25, "Output",ExpressionUUID->"2cbe006d-ba08-5f41-bbc4-862027de5c00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3332, 90, 257, 7, 34, "Input",ExpressionUUID->"8ac8da3e-e91b-974a-b764-a1ec11f5ba7f"], +Cell[3592, 99, 418, 6, 25, "Output",ExpressionUUID->"39b97283-3b3e-8246-bf75-eb809c9e7250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4047, 110, 131, 2, 22, "Input",ExpressionUUID->"52bc0922-2f51-b046-81ef-dcd0b9f3400f"], +Cell[4181, 114, 403, 6, 25, "Output",ExpressionUUID->"a9b9a1df-768d-bc48-8de0-a3f1fa2abf5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4621, 125, 276, 6, 22, "Input",ExpressionUUID->"8ebd13d5-dbd4-4344-872e-069d667ed804"], +Cell[4900, 133, 417, 6, 25, "Output",ExpressionUUID->"109ece75-d216-2242-86ca-cda709a522ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5354, 144, 257, 7, 22, "Input",ExpressionUUID->"1a8f27df-929b-1f40-9040-a01ae130b44c"], +Cell[5614, 153, 417, 6, 25, "Output",ExpressionUUID->"1a58f92a-c7e3-0d46-a7e0-b08c4dbc991b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6068, 164, 266, 5, 22, "Input",ExpressionUUID->"00c07ca2-7b49-8e4a-b91b-74e30283fdb3"], +Cell[6337, 171, 434, 6, 25, "Output",ExpressionUUID->"be1600c0-a83a-8843-90af-a30ed0903a04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6808, 182, 265, 5, 22, "Input",ExpressionUUID->"4a295acf-90bf-d54b-bc45-5f99546e5852"], +Cell[7076, 189, 435, 6, 25, "Output",ExpressionUUID->"925d9c00-17d0-1b4b-9c0e-5544d5595ca4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7548, 200, 129, 2, 22, "Input",ExpressionUUID->"9a7213dd-de15-ce4a-9139-73c14351235e"], +Cell[7680, 204, 396, 6, 25, "Output",ExpressionUUID->"fed78bb9-b363-1949-93be-732a1eb74d8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8113, 215, 129, 2, 22, "Input",ExpressionUUID->"e866d22e-3ba3-504e-a3a5-18836e11ba87"], +Cell[8245, 219, 394, 6, 25, "Output",ExpressionUUID->"fd299361-0514-484b-9f65-11ca62674bf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8676, 230, 557, 19, 63, "Input",ExpressionUUID->"34f25e32-4fb5-0a4e-a6b9-6a0c6530baea"], +Cell[9236, 251, 396, 6, 25, "Output",ExpressionUUID->"b7a60f3c-b405-ed41-8253-627786445100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9669, 262, 557, 19, 63, "Input",ExpressionUUID->"2a822672-28e0-b147-8446-35f8b31b7054"], +Cell[10229, 283, 389, 6, 25, "Output",ExpressionUUID->"19fa5df6-7344-9941-a3ed-875a41dd8272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10655, 294, 1492, 48, 64, "Input",ExpressionUUID->"2a42bbc4-8f52-1849-9062-33373609e9ce"], +Cell[12150, 344, 398, 6, 25, "Output",ExpressionUUID->"1cad65fc-1ecd-f640-8688-cd7799df585e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12585, 355, 1331, 44, 64, "Input",ExpressionUUID->"96de10d8-ae10-f54f-8c9b-86e202e800df"], +Cell[13919, 401, 407, 7, 25, "Output",ExpressionUUID->"809434ef-170e-874d-82dc-a07591655749"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14363, 413, 1331, 44, 64, "Input",ExpressionUUID->"c3045ecd-5faa-c242-b7f8-8cac99288502"], +Cell[15697, 459, 412, 7, 25, "Output",ExpressionUUID->"0709fa90-affa-104a-a226-97820d18c141"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16146, 471, 1492, 48, 64, "Input",ExpressionUUID->"ee834bbf-59ef-6741-8395-aa2e26eb5327"], +Cell[17641, 521, 388, 6, 25, "Output",ExpressionUUID->"fd752e86-0fd8-d94c-986c-3b345559934c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18066, 532, 131, 2, 22, "Input",ExpressionUUID->"5d8334e3-a935-214c-848d-984006460a2b"], +Cell[18200, 536, 373, 6, 25, "Output",ExpressionUUID->"20a3d54d-274c-8849-b4a6-4df090278a9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18610, 547, 177, 3, 22, "Input",ExpressionUUID->"43927710-4b46-9d43-9873-1b123d23cd06"], +Cell[18790, 552, 372, 6, 25, "Output",ExpressionUUID->"bbf5b8b3-3bf9-244a-ae54-1932035e2edf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19199, 563, 134, 2, 22, "Input",ExpressionUUID->"e26b0d7d-8302-c147-8fdd-12128afa30cd"], +Cell[19336, 567, 378, 6, 25, "Output",ExpressionUUID->"09300a56-6f76-5e4d-a0a0-9b0c4341a494"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19751, 578, 219, 4, 22, "Input",ExpressionUUID->"02ae55dc-e83b-c846-a683-605a55391e41"], +Cell[19973, 584, 393, 7, 25, "Output",ExpressionUUID->"4607d1c7-9985-3d46-ac3e-c1e2df355fec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20403, 596, 134, 2, 22, "Input",ExpressionUUID->"d0a548a6-8f0f-aa47-88a0-5fafcaaa02c7"], +Cell[20540, 600, 382, 6, 25, "Output",ExpressionUUID->"f7daf746-442e-3a4c-9051-5ff4158b18f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20959, 611, 302, 5, 22, "Input",ExpressionUUID->"ea7ea516-e529-424d-aae3-5a931107ea45"], +Cell[21264, 618, 321, 5, 25, "Output",ExpressionUUID->"9635ffca-1643-1944-b633-d2ca7bf0678a"] +}, Open ]], +Cell[21600, 626, 173, 2, 22, "Input",ExpressionUUID->"c4aac062-4edc-f04c-b189-54e6d761e4f5"], +Cell[CellGroupData[{ +Cell[21798, 632, 322, 6, 22, "Input",ExpressionUUID->"7bd5f262-50a5-b040-a572-06f486e4769d"], +Cell[22123, 640, 376, 6, 25, "Output",ExpressionUUID->"769e93f2-77d7-6e40-bd07-a54b07850956"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22536, 651, 219, 4, 22, "Input",ExpressionUUID->"15738c40-d58e-644f-b4b8-cc87006c8787"], +Cell[22758, 657, 380, 6, 25, "Output",ExpressionUUID->"fccf0b50-70b4-bf4d-9c8d-1cc99dcb2bc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23175, 668, 350, 10, 34, "Input",ExpressionUUID->"3d918e36-cad3-c242-944a-cea3e4582325"], +Cell[23528, 680, 396, 6, 25, "Output",ExpressionUUID->"6de4bc0c-4ec5-d44a-980c-ad988a9c949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23961, 691, 350, 10, 34, "Input",ExpressionUUID->"2898f460-3b0e-7c48-999a-d19f61427db7"], +Cell[24314, 703, 414, 7, 25, "Output",ExpressionUUID->"be910b5a-98a5-234d-8664-e0d6d9608b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24765, 715, 992, 26, 90, "Input",ExpressionUUID->"8b4ca0ba-ed32-ac4c-a545-5a3d8c0c1598"], +Cell[25760, 743, 387, 6, 25, "Output",ExpressionUUID->"82830324-8fe9-9b43-a6d7-c20ab18a9a6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26184, 754, 199, 3, 22, "Input",ExpressionUUID->"1ae8276e-c823-5244-9867-b2a5d5d4bc9f"], +Cell[26386, 759, 374, 6, 25, "Output",ExpressionUUID->"02aab143-e4b1-8b43-b7b9-0ed4846f32df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26797, 770, 273, 4, 22, "Input",ExpressionUUID->"e9fb66e3-5966-0b4d-9ac9-aa55967ea58d"], +Cell[27073, 776, 334, 5, 25, "Output",ExpressionUUID->"9d7b1a33-ebf0-fd45-a3a4-f1ff6ad42c9b"] +}, Open ]], +Cell[27422, 784, 175, 2, 22, "Input",ExpressionUUID->"9572099a-8f42-5347-b7bd-9e0d0ba78041"], +Cell[CellGroupData[{ +Cell[27622, 790, 344, 6, 37, "Input",ExpressionUUID->"513e129d-29f6-5b40-a359-3ba442747866"], +Cell[27969, 798, 324, 5, 25, "Output",ExpressionUUID->"bd39858d-c296-6a49-8d30-da1ba4eb0b2f"] +}, Open ]], +Cell[28308, 806, 173, 2, 22, "Input",ExpressionUUID->"578452cc-c906-0041-b08b-b1e250c795ff"], +Cell[CellGroupData[{ +Cell[28506, 812, 343, 6, 37, "Input",ExpressionUUID->"2793dc1e-4db7-a643-b0aa-cd39aa7e12db"], +Cell[28852, 820, 331, 5, 25, "Output",ExpressionUUID->"6fb9629f-1ef6-a84e-82ba-516d1f55d2a9"] +}, Open ]], +Cell[29198, 828, 175, 2, 22, "Input",ExpressionUUID->"add321a6-8898-d242-b2b4-4dbc890135be"], +Cell[CellGroupData[{ +Cell[29398, 834, 349, 6, 37, "Input",ExpressionUUID->"5c6f2eba-7090-2a40-b78d-68094322a019"], +Cell[29750, 842, 330, 5, 25, "Output",ExpressionUUID->"f9568db4-6b25-9f41-91cf-a09d1a78964e"] +}, Open ]], +Cell[30095, 850, 175, 2, 22, "Input",ExpressionUUID->"9b4d9bf6-575f-624a-b7e9-f803f7391df8"], +Cell[CellGroupData[{ +Cell[30295, 856, 275, 4, 22, "Input",ExpressionUUID->"83e941f0-4754-5c4a-80ed-64a51356eaca"], +Cell[30573, 862, 330, 5, 25, "Output",ExpressionUUID->"f990b083-31c0-634d-a391-44b35833f0d5"] +}, Open ]], +Cell[30918, 870, 173, 2, 22, "Input",ExpressionUUID->"e8fb696b-bdef-964b-9caf-220c1722d523"], +Cell[CellGroupData[{ +Cell[31116, 876, 277, 4, 22, "Input",ExpressionUUID->"2165e09c-d7c4-6d49-ae7e-efda0d5ceaf6"], +Cell[31396, 882, 333, 5, 25, "Output",ExpressionUUID->"08d2e6ca-75fd-354a-9b05-6938bee88f68"] +}, Open ]], +Cell[31744, 890, 171, 2, 22, "Input",ExpressionUUID->"7f6561f9-b201-c84b-a816-6822affcba33"], +Cell[CellGroupData[{ +Cell[31940, 896, 306, 5, 22, "Input",ExpressionUUID->"ca49a0d5-2e72-f74e-b7b1-186e3d0ce00b"], +Cell[32249, 903, 328, 5, 25, "Output",ExpressionUUID->"f09aae4f-ac60-3943-90d2-2cc31ef849ed"] +}, Open ]], +Cell[32592, 911, 175, 2, 22, "Input",ExpressionUUID->"637cd92e-71b3-8a41-b025-20f4ff5aa862"], +Cell[CellGroupData[{ +Cell[32792, 917, 251, 4, 22, "Input",ExpressionUUID->"6679f29f-2648-824a-80f4-4c1fcf698c25"], +Cell[33046, 923, 324, 5, 25, "Output",ExpressionUUID->"a3955366-8a4b-444a-8a4a-bb74174d2bcf"] +}, Open ]], +Cell[33385, 931, 171, 2, 22, "Input",ExpressionUUID->"b7ab0632-3e38-a345-b222-9d593459b248"], +Cell[CellGroupData[{ +Cell[33581, 937, 19809, 485, 1773, "Input",ExpressionUUID->"db0663a8-6d9e-1641-8ff9-d4dcc3695c77"], +Cell[53393, 1424, 391, 6, 25, "Output",ExpressionUUID->"3049f637-7f3d-4d40-884b-748ce823824c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53821, 1435, 19748, 489, 1843, "Input",ExpressionUUID->"de350aee-0eaa-6148-aaa5-5fb96818af5a"], +Cell[73572, 1926, 394, 6, 25, "Output",ExpressionUUID->"132a5223-6af8-9a46-9ac7-dee63502a31f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74003, 1937, 19748, 483, 1821, "Input",ExpressionUUID->"69ecc5d4-90ab-8946-a070-e0d9cd5d0bf5"], +Cell[93754, 2422, 407, 7, 25, "Output",ExpressionUUID->"6ce8fe5b-2395-1149-8d0a-d85732f7600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94198, 2434, 22534, 553, 2067, "Input",ExpressionUUID->"37d2e9af-fb6f-b44b-8f43-f611039de089"], +Cell[116735, 2989, 409, 7, 25, "Output",ExpressionUUID->"6751334f-d4bb-3346-bef7-ef6460de12ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117181, 3001, 22535, 553, 2066, "Input",ExpressionUUID->"efd3751e-efc1-6941-90aa-93c21840c4e4"], +Cell[139719, 3556, 403, 7, 25, "Output",ExpressionUUID->"b4a56042-c3c7-1244-ad2b-aaf222214a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140159, 3568, 25491, 626, 2312, "Input",ExpressionUUID->"494f0fee-fcb1-b24b-a976-bdcf1e446e70"], +Cell[165653, 4196, 403, 7, 25, "Output",ExpressionUUID->"509881ad-90b0-7f4f-9c26-635ee20c3ffa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166093, 4208, 130, 2, 22, "Input",ExpressionUUID->"01d8d0c9-6ef3-474b-94a3-777dcec63ba0"], +Cell[166226, 4212, 370, 6, 25, "Output",ExpressionUUID->"1c8066d5-8880-254e-97f6-1336071adbd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166633, 4223, 130, 2, 22, "Input",ExpressionUUID->"6aa8b642-2da4-724d-9e7d-4f55c9ca63a9"], +Cell[166766, 4227, 374, 6, 25, "Output",ExpressionUUID->"ffd7b062-2b4c-0f42-bea5-f910c5530526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167177, 4238, 1144, 39, 88, "Input",ExpressionUUID->"3dd04c66-dec1-1e44-8745-3be8d3ef6405"], +Cell[168324, 4279, 394, 6, 25, "Output",ExpressionUUID->"b7862a91-87ae-8a40-914c-62903b00ae6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168755, 4290, 1041, 35, 88, "Input",ExpressionUUID->"a0faf3fa-f6a1-4e4f-9a12-948cce7d5b6d"], +Cell[169799, 4327, 409, 7, 25, "Output",ExpressionUUID->"83805a3b-a131-4d47-92c4-bd4f0ff935da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170245, 4339, 1144, 39, 88, "Input",ExpressionUUID->"e3da3801-16ed-fb4a-a2e3-518e58f23a2f"], +Cell[171392, 4380, 395, 6, 25, "Output",ExpressionUUID->"474df8f6-b40c-ce4a-b8a6-45a40144db5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171824, 4391, 108, 1, 22, "Input",ExpressionUUID->"236dc901-46df-6a4c-9054-47a8c9036b93"], +Cell[171935, 4394, 388, 6, 25, "Output",ExpressionUUID->"5dddc767-1209-404a-99c7-7a5d2bae0e7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172360, 4405, 108, 1, 22, "Input",ExpressionUUID->"4f972b0d-2ee8-e24a-a471-0de8a99974b8"], +Cell[172471, 4408, 414, 7, 25, "Output",ExpressionUUID->"7515121f-3372-9a44-b1be-92a4171f92dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172922, 4420, 108, 1, 22, "Input",ExpressionUUID->"605692fb-c90e-0145-9e8f-9d030f59acb1"], +Cell[173033, 4423, 407, 7, 25, "Output",ExpressionUUID->"428ad22c-57c3-254e-8104-6d8a92b998f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173477, 4435, 108, 1, 22, "Input",ExpressionUUID->"7bf792e0-7bd8-ab4e-b00b-c0f16b4a2ff3"], +Cell[173588, 4438, 395, 6, 25, "Output",ExpressionUUID->"c4caf895-dd45-964a-8070-643495e74638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174020, 4449, 107, 1, 22, "Input",ExpressionUUID->"898c4602-c5af-c446-ab46-4b29f7b69bdc"], +Cell[174130, 4452, 393, 6, 25, "Output",ExpressionUUID->"d2aa0b37-dcf1-ea4e-8594-1fff1d9fabb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174560, 4463, 107, 1, 22, "Input",ExpressionUUID->"b8a46813-d008-3341-9a41-33be5b783b6d"], +Cell[174670, 4466, 393, 6, 25, "Output",ExpressionUUID->"3d0b9ac4-bf74-a346-a8f8-41a9d015ac3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175100, 4477, 497, 16, 45, "Input",ExpressionUUID->"0213daa0-b7ba-7147-a98b-2a224338b7c2"], +Cell[175600, 4495, 407, 7, 25, "Output",ExpressionUUID->"02ada4f0-7c7b-9346-bcb6-35ede67170dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176044, 4507, 497, 16, 45, "Input",ExpressionUUID->"c0e2ee7d-ea99-6644-a238-e87fa188a4db"], +Cell[176544, 4525, 404, 7, 25, "Output",ExpressionUUID->"9fc44175-9184-fc4f-b6a3-5abd6c569fb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176985, 4537, 1788, 60, 150, "Input",ExpressionUUID->"64b296e5-9704-bd4d-a935-b44718164175"], +Cell[178776, 4599, 389, 6, 25, "Output",ExpressionUUID->"bbe54afa-4c08-6a41-bea2-19a0eb95999c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179202, 4610, 1101, 36, 106, "Input",ExpressionUUID->"14b9de58-04e8-6547-a63b-136c5928c1f2"], +Cell[180306, 4648, 411, 7, 25, "Output",ExpressionUUID->"6815918d-1b13-b24b-8599-722007c8c0ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180754, 4660, 1818, 61, 132, "Input",ExpressionUUID->"4aac5d67-06d2-9a4b-bb40-3087b1e88d8d"], +Cell[182575, 4723, 392, 6, 25, "Output",ExpressionUUID->"62e0bcf2-430f-b044-8871-e34da9789d17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183004, 4734, 2499, 77, 106, "Input",ExpressionUUID->"4cd1a2a6-68bf-5743-8f6a-da2dd545cce3"], +Cell[185506, 4813, 392, 6, 25, "Output",ExpressionUUID->"968abdb4-68ea-e842-b76b-bfda128d7264"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185935, 4824, 2499, 77, 106, "Input",ExpressionUUID->"cb71509b-26fe-3944-9bfc-3b9ac6ca1e76"], +Cell[188437, 4903, 389, 6, 25, "Output",ExpressionUUID->"6ec09bee-a2b7-de45-84b3-62dae43321e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188863, 4914, 213, 3, 22, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[189079, 4919, 168, 2, 25, "Output",ExpressionUUID->"98c0d15d-f91e-5d41-a806-9e3a5eba501b"] +}, Open ]], +Cell[189262, 4924, 171, 2, 22, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[CellGroupData[{ +Cell[189458, 4930, 213, 3, 22, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[189674, 4935, 168, 2, 25, "Output",ExpressionUUID->"a8b0aa04-9977-2e44-9357-f0f1ff0ef6ef"] +}, Open ]], +Cell[189857, 4940, 173, 2, 22, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[190055, 4946, 1297, 42, 90, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[191355, 4990, 197, 2, 25, "Output",ExpressionUUID->"b87a5ac1-31b7-a645-addc-1b307fca8c57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191589, 4997, 925, 29, 45, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[192517, 5028, 198, 2, 25, "Output",ExpressionUUID->"58f1f81c-54e8-aa4c-8f81-87e500fd7f9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192752, 5035, 985, 32, 45, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[193740, 5069, 198, 2, 25, "Output",ExpressionUUID->"a9d789aa-373e-ca46-a740-7c861d838c05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193975, 5076, 554, 18, 42, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[194532, 5096, 193, 2, 25, "Output",ExpressionUUID->"5a3fb563-373e-bd44-a4d0-558873ea7934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194762, 5103, 647, 21, 42, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[195412, 5126, 190, 2, 25, "Output",ExpressionUUID->"f5c42219-c1fc-c248-a8fe-314a4e89746b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195639, 5133, 166, 4, 45, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[195808, 5139, 193, 2, 25, "Output",ExpressionUUID->"37770140-c372-4a46-be6b-8764449b6458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196038, 5146, 166, 4, 44, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[196207, 5152, 190, 2, 25, "Output",ExpressionUUID->"85c353b5-1c0e-514e-b394-211abb4900ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196434, 5159, 177, 4, 34, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[196614, 5165, 188, 2, 25, "Output",ExpressionUUID->"b65d8dbb-979c-584a-967f-38e58066dac7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196839, 5172, 177, 4, 34, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[197019, 5178, 190, 2, 25, "Output",ExpressionUUID->"97073bf7-bbdc-a147-9c69-d7fc26b969a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197246, 5185, 6051, 184, 398, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[203300, 5371, 193, 2, 25, "Output",ExpressionUUID->"75d223e6-4172-1641-8fb6-ef9f103ea789"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203530, 5378, 364, 8, 33, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[203897, 5388, 189, 2, 25, "Output",ExpressionUUID->"9888845e-4f6e-6a4e-bece-ee05eaa67250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204123, 5395, 6118, 186, 386, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[210244, 5583, 194, 2, 25, "Output",ExpressionUUID->"70184009-5096-6d47-b0ba-9a07f5631138"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210475, 5590, 364, 8, 33, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[210842, 5600, 191, 2, 25, "Output",ExpressionUUID->"db25b3b7-1593-684d-8373-4f28071dbb6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211070, 5607, 2659, 87, 132, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[213732, 5696, 189, 2, 25, "Output",ExpressionUUID->"83f7940a-0f6e-8d40-b7c0-79d6795191da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213958, 5703, 2599, 84, 132, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[216560, 5789, 192, 2, 25, "Output",ExpressionUUID->"08a7db00-702f-824c-8dda-48c6615c64ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216789, 5796, 3708, 117, 194, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[220500, 5915, 193, 2, 25, "Output",ExpressionUUID->"588e7fb4-7f6c-3648-8476-b25464baead3"] +}, Open ]], +Cell[220708, 5920, 160, 3, 34, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[220893, 5927, 2071, 58, 92, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[222967, 5987, 562, 11, 50, "Message",ExpressionUUID->"518b6085-bd6f-ca4d-937c-95bb84cf9872"], +Cell[223532, 6000, 563, 11, 50, "Message",ExpressionUUID->"2f8ccafb-cc82-6f44-aa53-b4c14b4ffb2a"], +Cell[224098, 6013, 567, 11, 50, "Message",ExpressionUUID->"31c890e1-dcbe-f44d-ae5c-efa850e8d757"], +Cell[224668, 6026, 480, 10, 20, "Message",ExpressionUUID->"be6c2de0-1ee9-8e43-90cf-552d40364cfe"], +Cell[225151, 6038, 190, 2, 25, "Output",ExpressionUUID->"96b94b1c-0402-0f49-bbb3-02d1c57a74ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225378, 6045, 2073, 58, 92, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[227454, 6105, 562, 11, 50, "Message",ExpressionUUID->"5372cd13-e015-1248-a2d0-0da05bf65862"], +Cell[228019, 6118, 563, 11, 50, "Message",ExpressionUUID->"e56d6975-4011-6446-937b-291d94c774bd"], +Cell[228585, 6131, 565, 11, 50, "Message",ExpressionUUID->"1956db0b-d68c-c540-a5be-a5b640dd589e"], +Cell[229153, 6144, 478, 10, 20, "Message",ExpressionUUID->"21d9f63f-406c-514f-a1e5-623264e1c240"], +Cell[229634, 6156, 191, 2, 25, "Output",ExpressionUUID->"8fd551b3-f4ae-3e42-9d35-cd5edfde01c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229862, 6163, 1955, 52, 69, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[231820, 6217, 20296, 380, 189, "Output",ExpressionUUID->"09febe5e-90e6-e94d-a1cc-e2201f28f26e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252153, 6602, 2137, 59, 126, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[254293, 6663, 512, 11, 48, "Message",ExpressionUUID->"e4ab42d1-822a-3743-94c1-e9c811984c99"], +Cell[254808, 6676, 520, 11, 48, "Message",ExpressionUUID->"c90f78e1-5a95-264e-bdff-c6672237f3b3"], +Cell[255331, 6689, 521, 11, 48, "Message",ExpressionUUID->"d34fdfe6-0488-f649-ad53-c56b75a0e58d"], +Cell[255855, 6702, 480, 10, 20, "Message",ExpressionUUID->"08809b5c-0ef3-b041-91a2-629c9cfec6ea"], +Cell[256338, 6714, 21808, 402, 187, "Output",ExpressionUUID->"03d34203-c420-7d45-bf09-8a55296e01ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278183, 7121, 1884, 50, 81, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[280070, 7173, 8995, 209, 192, "Output",ExpressionUUID->"d8680fc9-3dd5-9242-88d6-6c0204a87721"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289102, 7387, 276, 5, 34, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[289381, 7394, 27820, 527, 187, "Output",ExpressionUUID->"7ea6e50a-7a7a-5a40-85ad-69a1f0a00639"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317238, 7926, 195, 5, 38, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[317436, 7933, 191, 2, 25, "Output",ExpressionUUID->"6b1dba93-6fd7-fe4a-a952-0577b41b6c35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317664, 7940, 1798, 52, 115, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[319465, 7994, 515, 11, 48, "Message",ExpressionUUID->"78ee9f76-782f-e041-83df-6e8cc574dad3"], +Cell[319983, 8007, 519, 11, 48, "Message",ExpressionUUID->"010c03d4-ffc9-9d40-9802-a428625a1279"], +Cell[320505, 8020, 522, 11, 48, "Message",ExpressionUUID->"686181e2-47da-9445-b1a7-ee3cb66dade2"], +Cell[321030, 8033, 480, 10, 20, "Message",ExpressionUUID->"27db1bcc-bbe2-2643-bfc5-3c10714fe263"], +Cell[321513, 8045, 22187, 409, 184, "Output",ExpressionUUID->"52fc4ee9-c583-a346-9ff6-1fc62b974e22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343737, 8459, 1616, 48, 66, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[345356, 8509, 550, 11, 48, "Message",ExpressionUUID->"1b5f474a-bd97-cc48-bbd3-567e7799a4bc"], +Cell[345909, 8522, 554, 11, 48, "Message",ExpressionUUID->"285716bc-98de-a544-832b-342bc0380804"], +Cell[346466, 8535, 556, 11, 48, "Message",ExpressionUUID->"4a60ee57-67a6-1e48-8e3e-9f4ae7e348be"], +Cell[347025, 8548, 480, 10, 20, "Message",ExpressionUUID->"38c03d50-40a6-8f4e-8738-db716a26149f"], +Cell[347508, 8560, 195, 3, 25, "Output",ExpressionUUID->"38f3ca83-93f3-034f-aaab-5327b361adf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347740, 8568, 2272, 64, 178, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[350015, 8634, 562, 11, 48, "Message",ExpressionUUID->"16f89544-512b-414c-81ab-426bf9ff16f9"], +Cell[350580, 8647, 563, 11, 48, "Message",ExpressionUUID->"0279d7e2-07c9-c948-97b6-90118cf2ee4b"], +Cell[351146, 8660, 567, 11, 48, "Message",ExpressionUUID->"50f75a5e-dbd4-df4b-8c31-74839c206d10"], +Cell[351716, 8673, 478, 10, 20, "Message",ExpressionUUID->"bd349241-f1d5-404c-819c-20c4473bae39"], +Cell[352197, 8685, 192, 3, 25, "Output",ExpressionUUID->"35ef6d93-b062-1043-9217-06ff5569b340"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352426, 8693, 2244, 64, 129, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[354673, 8759, 564, 11, 48, "Message",ExpressionUUID->"7e8542eb-3318-e243-a517-28cee2440579"], +Cell[355240, 8772, 567, 11, 48, "Message",ExpressionUUID->"9b040614-9771-e84b-96ec-44e212b50773"], +Cell[355810, 8785, 567, 11, 48, "Message",ExpressionUUID->"87c9a6d9-f175-f645-9606-7e3068bb32f7"], +Cell[356380, 8798, 480, 10, 20, "Message",ExpressionUUID->"553bd1f8-d742-d94c-83e8-fe8f93d67340"], +Cell[356863, 8810, 193, 3, 25, "Output",ExpressionUUID->"a8fbb1da-9dd2-dd47-b90b-f1686e855ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357093, 8818, 2243, 64, 129, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[359339, 8884, 562, 11, 48, "Message",ExpressionUUID->"e2ebb771-6cc7-ad45-b0e1-036700c6fc80"], +Cell[359904, 8897, 565, 11, 48, "Message",ExpressionUUID->"f25c1c19-5db5-6044-90b5-3836234e8b9b"], +Cell[360472, 8910, 567, 11, 48, "Message",ExpressionUUID->"4eae3142-befa-3a41-a1f5-98a65ffe0583"], +Cell[361042, 8923, 480, 10, 20, "Message",ExpressionUUID->"3892d7d2-4d86-3642-8aa6-322dfa193b31"], +Cell[361525, 8935, 191, 3, 25, "Output",ExpressionUUID->"a7673b20-9d0f-de48-8480-38339b9a8990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361753, 8943, 236, 6, 37, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[361992, 8951, 194, 3, 25, "Output",ExpressionUUID->"d5ef1f8f-ed84-8e47-bbae-e6236db9e3e7"] +}, Open ]], +Cell[362201, 8957, 269, 6, 56, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[362495, 8967, 558, 19, 42, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[363056, 8988, 193, 3, 25, "Output",ExpressionUUID->"9678764f-f941-fe41-9875-ace381e90f96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363286, 8996, 170, 5, 45, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[363459, 9003, 194, 3, 25, "Output",ExpressionUUID->"685ddd9b-d2f9-fb41-bf50-d46127b8f7e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363690, 9011, 181, 5, 34, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[363874, 9018, 195, 3, 25, "Output",ExpressionUUID->"69940fa6-9753-934b-ae51-3331b3360f8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364106, 9026, 6055, 185, 393, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[370164, 9213, 195, 3, 25, "Output",ExpressionUUID->"ecaf3830-115a-0342-b8eb-c351e28de11a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370396, 9221, 368, 9, 33, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[370767, 9232, 195, 3, 25, "Output",ExpressionUUID->"e073f0d3-0d0e-c840-a388-637841f7acb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370999, 9240, 6122, 187, 410, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[377124, 9429, 198, 3, 25, "Output",ExpressionUUID->"d4b3c6fa-afc8-bc49-b494-5b24ac86c863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377359, 9437, 368, 9, 33, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[377730, 9448, 195, 3, 25, "Output",ExpressionUUID->"e54744ec-da0e-7b46-81c5-ae97d09576a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377962, 9456, 2663, 88, 132, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[380628, 9546, 195, 3, 25, "Output",ExpressionUUID->"c9fe5282-25cf-df4d-b756-49cfc8c2d988"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380860, 9554, 2603, 85, 132, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[383466, 9641, 198, 3, 25, "Output",ExpressionUUID->"d63ee76e-1761-5c47-9803-38fe986ec427"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383701, 9649, 3712, 118, 235, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[387416, 9769, 199, 3, 25, "Output",ExpressionUUID->"8be6a8ef-faf9-ca42-9fd7-1907acac4081"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387652, 9777, 2075, 59, 183, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[389730, 9838, 558, 11, 48, "Message",ExpressionUUID->"4cbbe05c-90c7-5c49-824f-9c9e65f612ec"], +Cell[390291, 9851, 560, 11, 48, "Message",ExpressionUUID->"9ce400de-6a85-0042-a7b5-2866ab592321"], +Cell[390854, 9864, 563, 11, 48, "Message",ExpressionUUID->"c783e88b-155e-9c4f-bbdc-fb93279cbaa7"], +Cell[391420, 9877, 482, 10, 20, "Message",ExpressionUUID->"9e9de591-708e-e049-a352-a9dfe74fb20a"], +Cell[391905, 9889, 196, 3, 25, "Output",ExpressionUUID->"c05ea6c2-1004-6d4c-ba91-f69b92e85a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392138, 9897, 2077, 59, 183, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[394218, 9958, 554, 11, 48, "Message",ExpressionUUID->"f5e4b9df-4333-7e4e-b4f5-9c4884d1bdc6"], +Cell[394775, 9971, 558, 11, 48, "Message",ExpressionUUID->"07152520-5ca3-5a41-bd3f-151e526d2001"], +Cell[395336, 9984, 559, 11, 48, "Message",ExpressionUUID->"b12622a7-e874-7f42-82cb-df088b1502c4"], +Cell[395898, 9997, 478, 10, 20, "Message",ExpressionUUID->"920aef7a-d83f-6647-8707-85584cd3ce79"], +Cell[396379, 10009, 193, 3, 25, "Output",ExpressionUUID->"557ab69c-77b1-4b49-95ef-cfc9405429a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396609, 10017, 2053, 55, 105, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[398665, 10074, 20336, 381, 189, "Output",ExpressionUUID->"2135d013-5bf5-da4c-9de8-f361f94add3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419038, 10460, 2164, 61, 168, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[421205, 10523, 512, 11, 48, "Message",ExpressionUUID->"d6fcfe45-38a6-794e-b25e-e3a3fba7d6d3"], +Cell[421720, 10536, 517, 11, 48, "Message",ExpressionUUID->"c5ff23f7-a281-d548-b0ca-9e84b797052c"], +Cell[422240, 10549, 517, 11, 48, "Message",ExpressionUUID->"6c0c218e-e080-8147-b566-2bb61b6d29e3"], +Cell[422760, 10562, 480, 10, 20, "Message",ExpressionUUID->"b2b2564b-d4d2-9548-b136-1ea0f45f0114"], +Cell[423243, 10574, 42378, 742, 187, "Output",ExpressionUUID->"1029cbcc-6f84-054d-abfc-68579ab0cc0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465658, 11321, 164, 4, 34, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[465825, 11327, 48335, 866, 187, "Output",ExpressionUUID->"78fea266-c9b6-1344-815b-e592a4b36902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514197, 12198, 1616, 48, 85, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[515816, 12248, 568, 11, 48, "Message",ExpressionUUID->"8dcb415c-42a2-3e4d-85cd-b269b93087ad"], +Cell[516387, 12261, 574, 12, 67, "Message",ExpressionUUID->"e2c59d14-9d90-6f4e-b634-bdc876731669"], +Cell[516964, 12275, 577, 12, 53, "Message",ExpressionUUID->"fc24092a-477c-0749-943f-ceeddf1f334d"], +Cell[517544, 12289, 480, 10, 20, "Message",ExpressionUUID->"470da4b0-f630-6a4f-bd7e-f46c6cc3fa3a"], +Cell[518027, 12301, 192, 3, 25, "Output",ExpressionUUID->"43184eec-295e-504b-91f9-1ea4953e0db9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518256, 12309, 2274, 64, 178, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[520533, 12375, 556, 11, 48, "Message",ExpressionUUID->"828689d2-ae3f-c946-9ae7-b67259295e4c"], +Cell[521092, 12388, 556, 11, 48, "Message",ExpressionUUID->"fcace641-ae91-c047-a870-a6c6381df469"], +Cell[521651, 12401, 559, 11, 48, "Message",ExpressionUUID->"187a9b00-1b38-574b-b50d-6a60daa919f7"], +Cell[522213, 12414, 480, 10, 20, "Message",ExpressionUUID->"0b3230e1-fbdf-634a-b4ea-4d47d1bffb37"], +Cell[522696, 12426, 197, 3, 25, "Output",ExpressionUUID->"5d45f944-e569-854f-9b97-404fa95b9a81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522930, 12434, 2246, 64, 129, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[525179, 12500, 556, 11, 48, "Message",ExpressionUUID->"c6321387-1f09-f949-bd42-7328714457a2"], +Cell[525738, 12513, 558, 11, 48, "Message",ExpressionUUID->"455817c6-ecb6-bb4d-8311-feeddf2bb0ef"], +Cell[526299, 12526, 561, 11, 48, "Message",ExpressionUUID->"3f83d0d4-758a-9841-af38-e018c01da43a"], +Cell[526863, 12539, 480, 10, 20, "Message",ExpressionUUID->"9b928638-0b2a-644a-a643-a1e94d4dfd65"], +Cell[527346, 12551, 194, 3, 25, "Output",ExpressionUUID->"033dee4e-424d-3745-b121-cf546d247743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527577, 12559, 2246, 64, 129, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[529826, 12625, 555, 11, 48, "Message",ExpressionUUID->"67fe2714-46b1-ce4c-b01a-21b9bf156e81"], +Cell[530384, 12638, 554, 11, 48, "Message",ExpressionUUID->"e950deee-f61e-6149-99db-f2ade8fd4f11"], +Cell[530941, 12651, 560, 11, 48, "Message",ExpressionUUID->"247955c4-a1d4-ed45-a50c-b0eeedfbd72b"], +Cell[531504, 12664, 479, 10, 20, "Message",ExpressionUUID->"63963b0a-5deb-8544-9a18-85eecfcd11e3"], +Cell[531986, 12676, 197, 3, 25, "Output",ExpressionUUID->"a9172cf7-eb97-0c4c-b147-ed16d584d170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532220, 12684, 234, 6, 37, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[532457, 12692, 198, 3, 25, "Output",ExpressionUUID->"2cd90da5-c5cf-5043-ad40-97115e43c947"] +}, Open ]], +Cell[532670, 12698, 268, 6, 56, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[532963, 12708, 558, 19, 42, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[533524, 12729, 193, 3, 25, "Output",ExpressionUUID->"613d7f9d-dd7d-f34a-a6e1-5c117e9d6780"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533754, 12737, 170, 5, 45, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[533927, 12744, 194, 3, 25, "Output",ExpressionUUID->"29fe2b58-bee7-5c48-bee7-d0c4dd1e55da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534158, 12752, 181, 5, 34, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[534342, 12759, 195, 3, 25, "Output",ExpressionUUID->"3f53a0b4-6d4a-2f4b-9e83-0ff6d899d46d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534574, 12767, 6055, 185, 393, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[540632, 12954, 196, 3, 25, "Output",ExpressionUUID->"ac7f7b5d-4757-0a4f-9cbc-985d19a1d282"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540865, 12962, 368, 9, 33, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[541236, 12973, 195, 3, 25, "Output",ExpressionUUID->"470d085e-ba2e-a942-9bfd-c4b0bf514e12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[541468, 12981, 6122, 187, 410, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[547593, 13170, 196, 3, 25, "Output",ExpressionUUID->"d9849cd0-29ac-9143-9651-ff255690c5fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547826, 13178, 368, 9, 33, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[548197, 13189, 196, 3, 25, "Output",ExpressionUUID->"9ce068fa-2d01-0e47-92b5-eb0a87fc4f5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548430, 13197, 2663, 88, 132, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[551096, 13287, 195, 3, 25, "Output",ExpressionUUID->"29068a32-feba-a343-97e7-c7ff68997ff0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551328, 13295, 2603, 85, 132, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[553934, 13382, 196, 3, 25, "Output",ExpressionUUID->"80c7b360-9d6c-114e-b28f-37c3e14374f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554167, 13390, 3712, 118, 235, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[557882, 13510, 197, 3, 25, "Output",ExpressionUUID->"95bbe068-0dc6-5448-8790-9b300d03cff2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558116, 13518, 2075, 59, 183, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[560194, 13579, 551, 11, 48, "Message",ExpressionUUID->"33a28988-5186-6148-b50c-cd31c2ad3ee4"], +Cell[560748, 13592, 552, 11, 48, "Message",ExpressionUUID->"69659419-da84-6749-8d63-f5d35bb09c80"], +Cell[561303, 13605, 557, 11, 48, "Message",ExpressionUUID->"f51a32b6-6626-8b47-b9e9-6880adbee697"], +Cell[561863, 13618, 478, 10, 20, "Message",ExpressionUUID->"a10d2556-1be6-4740-a884-9d3f2be699d8"], +Cell[562344, 13630, 193, 3, 25, "Output",ExpressionUUID->"5313bdf6-7d86-db4b-ad5d-edfff8b8fd1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562574, 13638, 2075, 59, 183, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[564652, 13699, 550, 11, 48, "Message",ExpressionUUID->"3d6e8607-871f-934a-81ff-4c055cffd57c"], +Cell[565205, 13712, 556, 11, 48, "Message",ExpressionUUID->"d452064a-7f30-6041-802e-7e2dd79725e2"], +Cell[565764, 13725, 559, 11, 48, "Message",ExpressionUUID->"7ecfc55f-9f4d-ff48-9f84-77f51033e948"], +Cell[566326, 13738, 482, 10, 20, "Message",ExpressionUUID->"accf6eec-14a7-6f44-ad16-c866e8907f86"], +Cell[566811, 13750, 197, 3, 25, "Output",ExpressionUUID->"e30e78f5-0151-3e40-a5ed-7780bfcfa8c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567045, 13758, 2053, 55, 105, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[569101, 13815, 20346, 381, 187, "Output",ExpressionUUID->"ab4ad784-6959-e04f-a12e-7fb28f80e604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[589484, 14201, 2170, 61, 168, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[591657, 14264, 516, 11, 48, "Message",ExpressionUUID->"c2a43784-d633-3547-a4c1-ffaee26504a8"], +Cell[592176, 14277, 518, 11, 48, "Message",ExpressionUUID->"d694560e-5fd1-8543-bc26-2c1e5701c66e"], +Cell[592697, 14290, 520, 11, 48, "Message",ExpressionUUID->"ec515fc1-c065-ab4e-a9a5-aed9f3b47315"], +Cell[593220, 14303, 480, 10, 20, "Message",ExpressionUUID->"3cce077b-41b4-d24c-88ba-c6ed96071bce"], +Cell[593703, 14315, 42430, 742, 187, "Output",ExpressionUUID->"23ddd502-7653-d444-8b7a-574bfca96b94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636170, 15062, 280, 6, 34, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[636453, 15070, 48441, 867, 187, "Output",ExpressionUUID->"a0df394f-0e0a-cb4a-95d8-e33451f2dd99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[684931, 15942, 1616, 48, 85, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[686550, 15992, 544, 11, 48, "Message",ExpressionUUID->"3babb852-1099-c347-9b4a-763f5878f88f"], +Cell[687097, 16005, 553, 12, 67, "Message",ExpressionUUID->"23a991cf-afc8-f149-a2fe-9c9af7c88ae3"], +Cell[687653, 16019, 556, 12, 53, "Message",ExpressionUUID->"8b2d21d2-5a70-4b40-b2f6-521fa57020f1"], +Cell[688212, 16033, 458, 10, 20, "Message",ExpressionUUID->"7d8ff5f9-2c93-2249-a458-740cc6b77fce"], +Cell[688673, 16045, 170, 3, 25, "Output",ExpressionUUID->"a23212bd-5f18-5e46-9291-5b25bbccfd84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688880, 16053, 2272, 64, 178, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[691155, 16119, 529, 11, 48, "Message",ExpressionUUID->"8395c74e-b73c-3e41-8b4c-675418cf89a1"], +Cell[691687, 16132, 530, 11, 48, "Message",ExpressionUUID->"fb57f23d-225d-3742-8600-d74b7c603eb1"], +Cell[692220, 16145, 535, 11, 48, "Message",ExpressionUUID->"b1ce68ac-2602-8b49-b077-b53d4247fe22"], +Cell[692758, 16158, 456, 10, 20, "Message",ExpressionUUID->"b1df0118-f8c4-3848-839c-cb468795b5cc"], +Cell[693217, 16170, 174, 3, 25, "Output",ExpressionUUID->"f495d193-7724-c44c-b44a-a00ab6802df9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693428, 16178, 2242, 64, 129, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[695673, 16244, 529, 11, 48, "Message",ExpressionUUID->"84074ef1-a052-8d43-991d-09f412b338fc"], +Cell[696205, 16257, 532, 11, 48, "Message",ExpressionUUID->"e72afd9f-49d9-ea43-b111-5a10a9811297"], +Cell[696740, 16270, 537, 11, 48, "Message",ExpressionUUID->"0f8960e3-6c6a-8546-b199-5d410c147280"], +Cell[697280, 16283, 455, 10, 20, "Message",ExpressionUUID->"bd0e9c97-0964-1746-a859-4da41cb9adde"], +Cell[697738, 16295, 170, 3, 25, "Output",ExpressionUUID->"172dd9b2-3b94-494f-a892-21e620033286"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697945, 16303, 2243, 64, 129, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[700191, 16369, 527, 11, 48, "Message",ExpressionUUID->"bb1957d6-d6a7-a944-b55e-a7d31d7df8a5"], +Cell[700721, 16382, 532, 11, 48, "Message",ExpressionUUID->"f98e0cdf-e6be-0245-ba7e-3c529dd78a64"], +Cell[701256, 16395, 534, 11, 48, "Message",ExpressionUUID->"b5f2ce0b-1a50-b844-9cf1-ec9d2a946b7d"], +Cell[701793, 16408, 458, 10, 20, "Message",ExpressionUUID->"a20fb423-d8d6-8147-9966-da46792edd3e"], +Cell[702254, 16420, 173, 3, 25, "Output",ExpressionUUID->"3ac0f14d-0d65-6b40-abdc-509135677bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702464, 16428, 236, 6, 37, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[702703, 16436, 174, 3, 25, "Output",ExpressionUUID->"1cc146dc-8972-ec45-a4ee-37a680880d8a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb new file mode 100755 index 0000000..5caa572 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb @@ -0,0 +1,17659 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 839918, 17651] +NotebookOptionsPosition[ 829058, 17458] +NotebookOutlinePosition[ 829512, 17476] +CellTagsIndexPosition[ 829469, 17473] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992072358410898*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ab6a0ef8-17a1-8941-b698-e6dbd76a1d67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9920723587221203`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c0b2575d-83b5-2e43-9501-bfc0f9468d60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992072358741873*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"64a187f2-5108-3342-8eb9-44d126073458"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992072358760414*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"b5f36936-ee7d-994a-949e-613b2f4b985b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920723587802963`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"fd445648-d85a-b941-9549-d3615c6a0746"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992072358788925*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d7186b8d-019d-cd46-a431-aa70cb962ca2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.9920724091531105`*^9, 3.9920724205958576`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992072489656435*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"04db1577-d3ad-3b41-9130-fadbbf127e89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, 3.992072431054064*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9920724896775246`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"7f7561ef-68a6-3f47-9439-d288e785d049"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9920724896949844`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"12b168c6-118d-c843-b1b4-a124a47d8d96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992072489720148*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"65356c5d-f355-cf43-a763-8a3935e50db0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.9920724897242527`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"bbf953bf-6abc-b047-8c0c-6da92f890190"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992072489728773*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"2836f8e5-7061-6548-a77a-aea71fc2a892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920724897447815`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"5ba88409-d125-4445-a96d-37d130b2fab8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920724455357895`*^9, 3.9920724585159454`*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], + +Cell[BoxData["0.363`"], "Output", + CellChangeTimes->{3.9920724897587814`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"59c357fe-858f-ed4a-83ae-1a6160942e76"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, 3.991973037386053*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.140"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.9920724509720345`*^9, 3.992072456152151*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], + +Cell[BoxData["1.14`"], "Output", + CellChangeTimes->{3.9920724897757797`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"db1b66c0-8d24-534c-aec9-a08e81201d62"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, 3.9919730389577026`*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9920724897967834`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"694fb666-7c5d-6b46-b064-cd4fb446f944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9920724898017845`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"77f647fb-6d8a-194a-84d4-0e8bdd31f3a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "9.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9920727555030136`*^9, 3.9920728154370766`*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 9.5}, {0., 0.935538188244949}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, 3.992072677235712*^9, {3.9920727577498055`*^9, + 3.9920728175385494`*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"43d4b5db-4b82-a34d-8e0e-2398135a5e11"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.9920728669646015`*^9, + 3.992072870084917*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.059885579974563105`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.059885579974563105`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"4.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.059885579974563105`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\ +\"}]}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 26, 1, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.9920729946255875`*^9}, + CellLabel-> + "During evaluation of \ +In[26]:=",ExpressionUUID->"954e1a60-cf74-8f4d-a50f-8a960afb805c"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8896347487471602`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6340513437011408`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.9920729947274685`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5dfc574f-dbf7-1343-9c01-acb4d788aa7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9920729767685223`*^9, 3.992072979235941*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.22897427637332954`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"151.58543809415255`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.22897427637332954`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.9920729948158875`*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"2ee84372-c551-7c45-99a5-7f3b805043f9"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8896353692344335`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6340508338428626`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.992072994973898*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"94000403-f487-214f-a357-3d7bbcbdf9c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.9920730290077877`*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9, 3.992073092278166*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"096f5708-1147-0f4f-81a8-96d92d23d609"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.992073041938572*^9}, + CellLabel->"In[29]:=",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992073092320671*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"269388a0-676b-8d41-bab2-abce65c84243"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZugWogWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +hl9aG5QV + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.9026545741090067}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9, 3.9920730924807377`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"d8963d5e-67b4-8249-b3b6-e3116b9a13f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZugWogWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +hl9aG5QV + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 9.5}, {0., 0.935538188244949}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9, 3.992073092550516*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"b794cd9a-5f06-6944-9823-a2f92c3ea431"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9920732438688984`*^9, + 3.992073248614897*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3.5, 8}, {0., 0.9467080420135469}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, 3.992073220886587*^9, + 3.9920732528528633`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"95028175-c414-8e47-8e2e-46597001075d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.992073297212391*^9, + 3.9920732994648457`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\ +\"-\\\", FractionBox[RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"3.5`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\ +\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", RowBox[{\\\"1.2`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}]}], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\ +\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\ +\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.013234713174378451`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"290.17731063060205`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.9920733061762524`*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"2c95e197-62a6-fc4f-8491-d8f95f87badf"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0695380280150142`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.744826975389573`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.992073306240284*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"d43e7738-65a8-c247-b095-a04a22393df5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920747133681335`*^9}, + CellLabel->"In[35]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9, + 3.9920747301854477`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"fa5858ee-6186-a445-bc3e-225a50d374bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.744"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, 3.9920747182260113`*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9, + 3.9920747302294807`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"260bcdc8-66d2-4b4a-a789-a9b90cce1e9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3.5", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}, { + 3.992074767188246*^9, 3.9920747679388447`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7AFQ1vRwMTIEgyEB8IDtX/UQLAFYZKFw0635Hlty4ij +jogpHedaxLeqp5p75rEf8pb39Pwp3sFxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMf/wS9Wc6cO + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3.5, 11}, {0., 0.9124622705136872}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, 3.992074730307644*^9, 3.9920747761967583`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"ce369678-635a-9a43-881f-cdde53b58a76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[40]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7AFQ1vRwMTIEgyEB8IDtX/UQLAFYZKFw0635Hlty4ij +jogpHedaxLeqp5p75rEf8pb39Pwp3sFxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMf/wS9Wc6cO + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3.5, 8}, {0., 0.9467080420135469}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9, + 3.992074730379116*^9, 3.9920747762811165`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"2c323b51-6228-9441-a5bb-0e39d635ebee"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[179]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "14"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992074919211529*^9, 3.992074920818722*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 14}, {0., 0.948165327917452}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.9920749035690727`*^9, + 3.992074923483513*^9}}, + CellLabel->"Out[43]=",ExpressionUUID->"e9a619fb-34ac-cd48-87df-222c74189a44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "14", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "14", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.992074936073736*^9, 3.9920749390024586`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.15280721336484596`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"1.25`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \ +\\\"R2\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\ +\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\ +\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.15280721336484596`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.896770751689165`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"5.091660613240935`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 44, 4, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9920749455536594`*^9}, + CellLabel-> + "During evaluation of \ +In[44]:=",ExpressionUUID->"4e79d79b-8a51-4742-b9a9-5679f28d7b00"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9916073488336765`"}], ",", + RowBox[{"b0", "\[Rule]", "1.2910623243846167`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992074945634577*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"c1b5c169-a14d-574c-bc44-d7920ec8763e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.9920749514842415`*^9, { + 3.992075166896097*^9, 3.9920751711654434`*^9}, {3.9920752362822323`*^9, + 3.9920753098180923`*^9}, {3.9920753900010376`*^9, 3.9920754043162575`*^9}, + 3.992075497028015*^9, 3.992075584585249*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920749683822823`*^9, + 3.9920751785114594`*^9, {3.992075240270527*^9, 3.992075252906048*^9}, { + 3.992075288533251*^9, 3.9920753145484104`*^9}, {3.9920753972013416`*^9, + 3.99207540934503*^9}, 3.992075478795452*^9, 3.992075509000679*^9, + 3.992075603105625*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"b8892d6a-b3a7-514a-ab28-d8f2bb85ca22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.992074955977804*^9, + 3.992075164036129*^9, {3.9920751952035294`*^9, 3.9920751969244137`*^9}, + 3.9920752717631683`*^9, {3.9920753584614925`*^9, 3.9920753614083233`*^9}, { + 3.9920754740320644`*^9, 3.992075484551258*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.9920749684262295`*^9, + 3.99207517855357*^9, {3.9920752161954193`*^9, 3.9920752529412575`*^9}, { + 3.9920752885754013`*^9, 3.9920753145851936`*^9}, 3.992075366222582*^9, { + 3.9920753972370415`*^9, 3.992075409377413*^9}, {3.9920754788239555`*^9, + 3.9920755090370293`*^9}, 3.9920756031411934`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"a82ef174-2523-bd47-93e1-cbc3a3a55955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "14.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{ + 3.9917169014568214`*^9, {3.9920749980955143`*^9, 3.992074999223469*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 14.5}, {0., 4.114750649232968}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964359553013*^9, 3.9919653448206234`*^9, 3.9920749684777527`*^9, + 3.992075014008772*^9, 3.992075178605482*^9, {3.992075216291147*^9, + 3.992075252983261*^9}, {3.9920752886230335`*^9, 3.9920753146312065`*^9}, + 3.9920753662930145`*^9, {3.9920753972833557`*^9, 3.9920754094307175`*^9}, { + 3.992075478878092*^9, 3.992075509084055*^9}, 3.9920756031872044`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"35e37fc9-d740-c24e-8fca-8ca671fd247d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 14}, {0., 0.948165327917452}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.99196436252302*^9, 3.991965349109049*^9, 3.992074968527439*^9, + 3.9920750140672874`*^9, 3.9920751786542797`*^9, {3.9920752163331566`*^9, + 3.9920752530371304`*^9}, {3.9920752886703644`*^9, 3.9920753146831703`*^9}, + 3.9920753663401318`*^9, 3.992075397339094*^9, 3.9920754295141907`*^9, { + 3.9920754789263897`*^9, 3.992075509125164*^9}, 3.992075603234251*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"e1055a35-0ba2-7440-a5f1-1aa601f4f3a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9920756801001415`*^9, 3.9920756812298985`*^9}, { + 3.9920757386390667`*^9, 3.9920757391436634`*^9}, {3.99207624396681*^9, + 3.9920762510207767`*^9}}, + CellLabel-> + "In[180]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 13}, {0., 0.8990174924750326}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992075670296116*^9, + 3.9920756902221565`*^9}, 3.9920762596596813`*^9}, + CellLabel-> + "Out[180]=",ExpressionUUID->"f8fcd9a6-66f2-e54c-a221-39afd2e3a6d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "13", ",", "0.3"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "9", ",", "13", ",", "0.3"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.9920757007900925`*^9, 3.9920757026512547`*^9}, {3.9920757516569443`*^9, + 3.992075754835825*^9}, {3.9920762647418785`*^9, 3.9920762670515327`*^9}, { + 3.99207651724671*^9, 3.9920765187557163`*^9}, {3.9920765778753624`*^9, + 3.9920766097323074`*^9}}, + CellLabel-> + "In[213]:=",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.0415635620352381`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \ +\\\"R2\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"20\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\ +\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.0415635620352381`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"5.091660613240935`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \ +\\\",\\\", \\\"bb0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"2.`\\\", \\\",\\\", \\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 213, 11, + 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{ + 3.9919643917585564`*^9, 3.991965364224392*^9, 3.992075707880884*^9, + 3.9920757578782578`*^9, 3.9920762711321545`*^9, 3.9920765229724483`*^9, { + 3.9920765899755287`*^9, 3.992076613307585*^9}}, + CellLabel-> + "During evaluation of \ +In[213]:=",ExpressionUUID->"ece38aba-7832-ca49-8020-f5e8a18bdb88"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"1.94`", "\[Rule]", "1.9408667255059378`"}], ",", + RowBox[{"1.752`", "\[Rule]", "1.7525649776365884`"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.991964391814556*^9, 3.9919653643031864`*^9, 3.9920757079469643`*^9, + 3.992075757959017*^9, 3.992076271199774*^9, 3.992076522995476*^9, { + 3.992076589996641*^9, 3.9920766133295403`*^9}}, + CellLabel-> + "Out[213]=",ExpressionUUID->"e692359b-eb1a-d74d-9cd1-d465c3ce8fb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.9920757136758537`*^9, { + 3.9920758651249027`*^9, 3.9920759587851334`*^9}, 3.99207601091593*^9, { + 3.992076063767782*^9, 3.9920760977006264`*^9}, {3.992076280530802*^9, + 3.9920762946894436`*^9}, 3.9920763573367577`*^9, 3.992076406024996*^9, + 3.9920765307234936`*^9, 3.9920766434622707`*^9}, + CellLabel-> + "In[218]:=",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.992075723830038*^9, + 3.9920757939592037`*^9, {3.9920758707418213`*^9, 3.992075962122917*^9}, { + 3.99207599920002*^9, 3.992076108968256*^9}, 3.992076301495577*^9, + 3.9920763685964584`*^9, 3.992076409711067*^9, 3.9920765427928886`*^9, { + 3.9920766295246525`*^9, 3.9920766536455975`*^9}}, + CellLabel-> + "Out[218]=",ExpressionUUID->"0c5fe048-04ed-c64c-8d0f-ac40daafc3c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"bb0", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, 3.9920757184348583`*^9, + 3.9920757787290726`*^9, {3.9920758131318684`*^9, 3.992075843522606*^9}, + 3.9920758968969784`*^9, {3.9920759786696815`*^9, 3.992076008079664*^9}, { + 3.9920760382272263`*^9, 3.9920760517099724`*^9}, {3.9920762860447845`*^9, + 3.9920762891448193`*^9}, {3.9920763630484104`*^9, 3.992076436236517*^9}, + 3.9920765348184357`*^9, 3.9920766475067253`*^9}, + CellLabel-> + "In[219]:=",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992075723863159*^9, { + 3.992075793993864*^9, 3.9920761090029907`*^9}, 3.992076301533823*^9, { + 3.992076368627495*^9, 3.9920764396193447`*^9}, 3.992076542824465*^9, { + 3.992076629567671*^9, 3.9920766536763134`*^9}}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9eac5b73-7d63-9d41-9210-139e319f3e4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "14"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9920757826651306`*^9, 3.9920757866591473`*^9}}, + CellLabel-> + "In[220]:=",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, 103, + 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, 88, + 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, 74, + 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, 62, + 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, + 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, + 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzTOK2msHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7/nt/w +vIBc + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, + 55, 41, 140, 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, + 57, 43, 142, 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, 73, + 59, 45, 144, 125, 107, 90, 74, 60, 46, 145, 126, 108, 91, 75, + 61, 47, 146, 127, 109, 92, 76, 62, 48, 147, 128, 110, 93, 77, + 63, 49, 148, 129, 111, 94, 78, 64, 150, 131, 113, 96, 80, 151, + 132, 114, 97, 152, 133, 115, 153, 134, 154, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, 103, + 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, 88, + 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, 74, + 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, 62, + 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, + 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 14}, {0., 3.526617683729599}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, + 3.9920757239130974`*^9, {3.9920757940482006`*^9, 3.992076109068632*^9}, + 3.992076301586649*^9, {3.9920763686886806`*^9, 3.9920764397098274`*^9}, + 3.9920765428714657`*^9, {3.9920766296157017`*^9, 3.9920766537406216`*^9}}, + CellLabel-> + "Out[220]=",ExpressionUUID->"59837e2f-b2ee-744c-b953-7793b424a8ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[221]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, + 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, + 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, + 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, + 107, 90, 74, 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, + 109, 92, 76, 62, 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, + 94, 78, 64, 150, 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, + 115, 153, 134, 154, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzTOK2msHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7/nt/w +vIBc + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, + 69, 55, 41, 140, 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, + 71, 57, 43, 142, 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, + 73, 59, 45, 144, 125, 107, 90, 74, 60, 46, 145, 126, 108, 91, + 75, 61, 47, 146, 127, 109, 92, 76, 62, 48, 147, 128, 110, 93, + 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, 131, 113, 96, 80, + 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, + 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, + 88, 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, + 74, 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, + 62, 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, + 150, 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, + 134, 154, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 13}, {0., 0.8990174924750326}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, + 3.9920757239569855`*^9, {3.9920757940890045`*^9, 3.9920761091225967`*^9}, + 3.992076301642761*^9, {3.992076368743923*^9, 3.9920764397626038`*^9}, + 3.9920765522906075`*^9, {3.992076629673212*^9, 3.9920766537846375`*^9}}, + CellLabel-> + "Out[221]=",ExpressionUUID->"95387063-6ff4-2243-9d4a-4623b1fa42a9"] +}, Open ]] +}, +WindowSize->{1197, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1.3 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"009e3209-82c3-8a40-a760-7e4ecd835b03" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 103, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1490, 46, 115, "Output",ExpressionUUID->"ab6a0ef8-17a1-8941-b698-e6dbd76a1d67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 77, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3981, 131, 887, 25, 88, "Output",ExpressionUUID->"c0b2575d-83b5-2e43-9501-bfc0f9468d60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 250, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6373, 204, 2581, 75, 178, "Output",ExpressionUUID->"64a187f2-5108-3342-8eb9-44d126073458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 266, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10674, 334, 2780, 81, 397, "Output",ExpressionUUID->"b5f36936-ee7d-994a-949e-613b2f4b985b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13491, 420, 1843, 53, 305, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15337, 475, 3752, 111, 307, "Output",ExpressionUUID->"fd445648-d85a-b941-9549-d3615c6a0746"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19126, 591, 2080, 59, 305, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21209, 652, 4819, 140, 291, "Output",ExpressionUUID->"d7186b8d-019d-cd46-a431-aa70cb962ca2"] +}, Open ]], +Cell[26043, 795, 148, 2, 36, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26216, 801, 350, 5, 36, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26569, 808, 303, 5, 41, "Output",ExpressionUUID->"04db1577-d3ad-3b41-9130-fadbbf127e89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26909, 818, 298, 5, 36, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[27210, 825, 304, 5, 41, "Output",ExpressionUUID->"7f7561ef-68a6-3f47-9439-d288e785d049"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27551, 835, 176, 3, 36, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27730, 840, 277, 4, 41, "Output",ExpressionUUID->"12b168c6-118d-c843-b1b4-a124a47d8d96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28044, 849, 258, 7, 55, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[28305, 858, 288, 4, 41, "Output",ExpressionUUID->"65356c5d-f355-cf43-a763-8a3935e50db0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28630, 867, 132, 2, 36, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28765, 871, 279, 4, 41, "Output",ExpressionUUID->"bbf953bf-6abc-b047-8c0c-6da92f890190"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29081, 880, 277, 6, 36, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29361, 888, 291, 4, 41, "Output",ExpressionUUID->"2836f8e5-7061-6548-a77a-aea71fc2a892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29689, 897, 258, 7, 36, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29950, 906, 289, 4, 41, "Output",ExpressionUUID->"5ba88409-d125-4445-a96d-37d130b2fab8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30276, 915, 376, 6, 36, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30655, 923, 156, 2, 41, "Output",ExpressionUUID->"59c357fe-858f-ed4a-83ae-1a6160942e76"] +}, Open ]], +Cell[30826, 928, 173, 2, 36, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[CellGroupData[{ +Cell[31024, 934, 378, 6, 36, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[31405, 942, 155, 2, 41, "Output",ExpressionUUID->"db1b66c0-8d24-534c-aec9-a08e81201d62"] +}, Open ]], +Cell[31575, 947, 173, 2, 36, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[31773, 953, 129, 2, 36, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[31905, 957, 275, 4, 41, "Output",ExpressionUUID->"694fb666-7c5d-6b46-b064-cd4fb446f944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32217, 966, 129, 2, 36, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[32349, 970, 272, 4, 41, "Output",ExpressionUUID->"77f647fb-6d8a-194a-84d4-0e8bdd31f3a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32658, 979, 2019, 51, 205, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[34680, 1032, 19946, 375, 308, "Output",ExpressionUUID->"43d4b5db-4b82-a34d-8e0e-2398135a5e11"] +}, Open ]], +Cell[54641, 1410, 128, 3, 36, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[54794, 1417, 2329, 60, 135, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[57126, 1479, 6295, 90, 226, "Message",ExpressionUUID->"954e1a60-cf74-8f4d-a50f-8a960afb805c"], +Cell[63424, 1571, 363, 7, 41, "Output",ExpressionUUID->"5dfc574f-dbf7-1343-9c01-acb4d788aa7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63824, 1583, 2228, 58, 135, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[66055, 1643, 4479, 64, 187, "Message",ExpressionUUID->"2ee84372-c551-7c45-99a5-7f3b805043f9"], +Cell[70537, 1709, 315, 6, 41, "Output",ExpressionUUID->"94000403-f487-214f-a357-3d7bbcbdf9c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70889, 1720, 328, 5, 36, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[71220, 1727, 225, 3, 41, "Output",ExpressionUUID->"096f5708-1147-0f4f-81a8-96d92d23d609"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71482, 1735, 331, 5, 36, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[71816, 1742, 257, 4, 41, "Output",ExpressionUUID->"269388a0-676b-8d41-bab2-abce65c84243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72110, 1751, 2521, 63, 303, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[74634, 1816, 106642, 2269, 308, "Output",ExpressionUUID->"d8963d5e-67b4-8249-b3b6-e3116b9a13f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181313, 4090, 161, 3, 55, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[181477, 4095, 126125, 2599, 308, "Output",ExpressionUUID->"b794cd9a-5f06-6944-9823-a2f92c3ea431"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307639, 6699, 967, 27, 78, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[308609, 6728, 25387, 464, 308, "Output",ExpressionUUID->"95028175-c414-8e47-8e2e-46597001075d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334033, 7197, 2418, 62, 135, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[336454, 7261, 3865, 58, 165, "Message",ExpressionUUID->"2c95e197-62a6-fc4f-8491-d8f95f87badf"], +Cell[340322, 7321, 338, 7, 41, "Output",ExpressionUUID->"d43e7738-65a8-c247-b095-a04a22393df5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340697, 7333, 251, 4, 36, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[340951, 7339, 203, 3, 41, "Output",ExpressionUUID->"fa5858ee-6186-a445-bc3e-225a50d374bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341191, 7347, 278, 4, 36, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[341472, 7353, 205, 3, 41, "Output",ExpressionUUID->"260bcdc8-66d2-4b4a-a789-a9b90cce1e9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341714, 7361, 1035, 27, 138, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[342752, 7390, 114466, 2429, 308, "Output",ExpressionUUID->"ce369678-635a-9a43-881f-cdde53b58a76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457255, 9824, 163, 3, 55, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[457421, 9829, 139489, 2850, 308, "Output",ExpressionUUID->"2c323b51-6228-9441-a5bb-0e39d635ebee"] +}, Open ]], +Cell[596925, 12682, 242, 5, 55, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[597192, 12691, 839, 23, 78, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[598034, 12716, 16105, 311, 314, "Output",ExpressionUUID->"e9a619fb-34ac-cd48-87df-222c74189a44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614176, 13032, 2224, 58, 135, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[616403, 13092, 3543, 53, 160, "Message",ExpressionUUID->"4e79d79b-8a51-4742-b9a9-5679f28d7b00"], +Cell[619949, 13147, 342, 7, 41, "Output",ExpressionUUID->"c1b5c169-a14d-574c-bc44-d7920ec8763e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620328, 13159, 484, 8, 36, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[620815, 13169, 456, 8, 41, "Output",ExpressionUUID->"b8892d6a-b3a7-514a-ab28-d8f2bb85ca22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621308, 13182, 483, 8, 36, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[621794, 13192, 492, 8, 41, "Output",ExpressionUUID->"a82ef174-2523-bd47-93e1-cbc3a3a55955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622323, 13205, 2617, 66, 332, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[624943, 13273, 24127, 520, 314, "Output",ExpressionUUID->"35e37fc9-d740-c24e-8fca-8ca671fd247d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[649107, 13798, 169, 4, 55, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[649279, 13804, 39035, 788, 314, "Output",ExpressionUUID->"e1055a35-0ba2-7440-a5f1-1aa601f4f3a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688351, 14597, 1028, 28, 78, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[689382, 14627, 24226, 447, 308, "Output",ExpressionUUID->"f8fcd9a6-66f2-e54c-a221-39afd2e3a6d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[713645, 15079, 2594, 65, 159, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[716242, 15146, 3789, 57, 183, "Message",ExpressionUUID->"ece38aba-7832-ca49-8020-f5e8a18bdb88"], +Cell[720034, 15205, 476, 10, 41, "Output",ExpressionUUID->"e692359b-eb1a-d74d-9cd1-d465c3ce8fb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[720547, 15220, 558, 9, 36, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[721108, 15231, 484, 8, 41, "Output",ExpressionUUID->"0c5fe048-04ed-c64c-8d0f-ac40daafc3c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[721629, 15244, 661, 11, 61, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[722293, 15257, 406, 7, 41, "Output",ExpressionUUID->"9eac5b73-7d63-9d41-9210-139e319f3e4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[722736, 15269, 2902, 74, 305, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[725641, 15345, 39983, 847, 308, "Output",ExpressionUUID->"59837e2f-b2ee-744c-b953-7793b424a8ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[765661, 16197, 208, 5, 82, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[765872, 16204, 63170, 1251, 324, "Output",ExpressionUUID->"95387063-6ff4-2243-9d4a-4623b1fa42a9"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb b/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb new file mode 100755 index 0000000..f37205f --- /dev/null +++ b/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb @@ -0,0 +1,24451 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 1161970, 24443] +NotebookOptionsPosition[ 1151302, 24252] +NotebookOutlinePosition[ 1151757, 24270] +CellTagsIndexPosition[ 1151714, 24267] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992080184956051*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"24af5da4-8e1a-d94b-9dd7-dbdef062e25f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.992080185018921*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"79c67680-8b75-ba45-a1b7-0a597bc79b16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.9920801850389633`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5342021b-1033-7b41-8e78-c88b29b165c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.9920801850575066`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"43760380-085a-3046-9f60-d6c350908cb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920801850805206`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"29aa7138-9299-404a-8f91-97c3b5d013cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9920801850925255`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a88d600e-3c08-1d45-a15d-6de34fb244cc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.9920802233383408`*^9, 3.9920802235112057`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.9920802694691143`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"edec7851-e2fe-b34c-ba8c-2c27e7cf738c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992080228915823*^9, + 3.9920802298471394`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9920802695178413`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"95b97c69-6c13-8c42-848c-3b9218e2ce6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9920802695402336`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"22e5a903-bbd5-c04d-9efd-2a9b4d852d75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9920802695572777`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bc8abb20-a9bc-e442-b277-c69265041ffc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992080269574293*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"fdbbbc57-9869-a04c-8059-b93e7adc2132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992080269590317*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4d0fe716-55c3-8545-a8f2-846aef8ddab3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920802696062965`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"49cdc982-2bd5-2546-8fb4-51be0abc3bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920802424061317`*^9, 3.9920802527352333`*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.776`"], "Output", + CellChangeTimes->{3.992080269610302*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"272ce735-8aca-5c4b-889d-e36280a4ae81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992080248063431*^9, 3.9920802506503544`*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.581`"], "Output", + CellChangeTimes->{3.9920802696153336`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"55f2cc96-07e5-9142-917b-d6a538467520"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992080269634321*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e1cf06c1-d62a-3f45-b39c-6c2b90bd80db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9920802696523075`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"6801dedc-9aa7-184c-8e36-cea59050084e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992080286803356*^9, 3.992080301002556*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 12}, {0., 0.9638187117108397}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.9920802769674454`*^9, 3.9920803037732277`*^9}}, + CellLabel->"Out[20]=",ExpressionUUID->"9dc810d6-c12c-0d48-adde-9baf84f7b798"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.9920803101701393`*^9, + 3.99208031135445*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.12801986242496136`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"19\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\ +\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.12801986242496136`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6210328468477426`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 21, 21, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992080326703388*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"06e69d42-b883-6e44-a17a-72d455bd2904"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.862025239162308`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0900378238585975`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992080326789194*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"72636b58-36cc-684a-bbbf-30e537b4e714"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9920803156542473`*^9, 3.992080321023403*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 22, 22, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.9920803268783016`*^9}, + CellLabel-> + "During evaluation of \ +In[22]:=",ExpressionUUID->"53437993-daa8-9f43-b9e1-f8a0870ac774"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8620332616174091`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0900375079842972`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9920803270303917`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"30cd62e4-8ae1-6f4a-b687-a13c823273de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.9920803386412296`*^9, {3.9920803730681324`*^9, + 3.9920804408375397`*^9}, 3.9920804756832542`*^9, 3.992080557066025*^9, { + 3.9920806484568233`*^9, 3.9920806936782017`*^9}, {3.992080740930834*^9, + 3.9920808616870384`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9920803488245525`*^9, {3.992080401227133*^9, 3.992080482589113*^9}, { + 3.9920805611366825`*^9, 3.9920805886262245`*^9}, {3.9920806372867603`*^9, + 3.9920806979408665`*^9}, {3.9920807348684864`*^9, 3.9920808655134754`*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"68a825c5-2d62-bd4b-ab58-0cad8e8154b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.992080343995327*^9, {3.992080392950344*^9, + 3.9920803951592274`*^9}, {3.9920804587844105`*^9, + 3.9920804901381836`*^9}, {3.9920805524090023`*^9, 3.992080553396963*^9}, { + 3.9920805840802174`*^9, 3.9920805848954773`*^9}, {3.992080633192171*^9, + 3.9920806409593945`*^9}, 3.992080730874058*^9, 3.992080807348009*^9}, + CellLabel-> + "In[121]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992080348880472*^9, {3.9920804012681465`*^9, + 3.992080493781149*^9}, {3.992080561177435*^9, 3.992080588667492*^9}, { + 3.992080637328842*^9, 3.992080698001194*^9}, {3.992080734909832*^9, + 3.9920808655449085`*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"c795ebff-477c-e84b-b60d-54cb7fd8a3a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZtkWogWAHJpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +wC9YNFht + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 2.1892889005344744`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9, 3.992080348993929*^9, {3.992080401392269*^9, + 3.992080493958023*^9}, {3.992080561326931*^9, 3.9920805888009205`*^9}, { + 3.992080637458145*^9, 3.9920806981331673`*^9}, {3.9920807350350475`*^9, + 3.9920807700959606`*^9}, {3.9920808001058617`*^9, 3.9920808656757126`*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"bf36d94c-59b7-5248-b79e-9c5a3c231911"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel-> + "In[123]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZtkWogWAHJpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +wC9YNFht + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 12}, {0., 0.9638187117108397}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9, 3.9920803490651245`*^9, {3.9920804014704876`*^9, + 3.9920804940513287`*^9}, {3.992080561403221*^9, 3.9920805888822956`*^9}, { + 3.992080637533407*^9, 3.992080698215103*^9}, {3.9920807351242085`*^9, + 3.992080770168829*^9}, {3.9920808001811714`*^9, 3.992080865755041*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"26985b49-ec40-5d4c-88c7-142b869bc2af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9, + 3.9920809092638626`*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 11}, {0., 0.9289465115382269}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992080902401825*^9, + 3.9920809178351593`*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"d1c158f1-3ce3-f749-86e0-673a21e4dd96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.9920809327777233`*^9, + 3.9920809353930855`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02829238959591647`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.02829238959591647`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02829238959591647`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \ +\\\"-\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"20\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.02829238959591647`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"2.4258259770489514`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 126, 23, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992080938088825*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"a4ae08cd-3440-1d4f-978e-2cd4eaa6d3c2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.4545731920151088`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.460693398022912`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9920809381478424`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"36797d84-b83d-6f43-b3eb-679224a52717"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.204"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920809438889084`*^9, {3.9920809906869946`*^9, + 3.9920810082800407`*^9}, {3.9920810519686737`*^9, + 3.9920810537848873`*^9}, {3.9920811349691257`*^9, + 3.9920811919767513`*^9}, {3.9920812815765057`*^9, 3.992081283558817*^9}, { + 3.9920813136856785`*^9, 3.9920813380617714`*^9}}, + CellLabel-> + "In[195]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, {3.9920809578005753`*^9, + 3.992081058193615*^9}, {3.9920811161886463`*^9, 3.992081185903839*^9}, { + 3.9920812347214775`*^9, 3.992081254661869*^9}, {3.9920812874101887`*^9, + 3.9920813435997143`*^9}}, + CellLabel-> + "Out[195]=",ExpressionUUID->"60592c05-8f3c-cf49-a983-c09cad5885af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.992080950868906*^9, + 3.9920810492350006`*^9}, {3.992081110519993*^9, 3.9920811248669186`*^9}, + 3.9920811820455513`*^9, 3.9920812507491302`*^9, 3.9920813030249195`*^9}, + CellLabel-> + "In[196]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, {3.9920809578456745`*^9, + 3.9920810582276936`*^9}, {3.9920811162191944`*^9, + 3.9920811859358444`*^9}, {3.9920812347525425`*^9, 3.992081254704895*^9}, { + 3.992081287443712*^9, 3.9920813436308136`*^9}}, + CellLabel-> + "Out[196]=",ExpressionUUID->"7c1d395f-a80e-b248-a4f5-cd82e5cc5534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel-> + "In[197]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZi+2qgWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOP5XfgHw9t5n + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 2.865729783395331}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, {3.992080957891964*^9, 3.9920810582876663`*^9}, { + 3.992081116298893*^9, 3.992081185995041*^9}, {3.99208123481258*^9, + 3.992081254776861*^9}, {3.9920812875137577`*^9, 3.9920813437046165`*^9}}, + CellLabel-> + "Out[197]=",ExpressionUUID->"16ceae37-ecda-a248-a0c2-801d6289fe89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[198]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZi+2qgWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOP5XfgHw9t5n + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 11}, {0., 0.9289465115382269}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643184825573`*^9, 3.991965223761923*^9, {3.992080957956999*^9, + 3.9920810583526993`*^9}, {3.9920811163888245`*^9, + 3.9920811860625725`*^9}, {3.992081234875622*^9, 3.99208125485693*^9}, { + 3.9920812875827045`*^9, 3.9920813438146057`*^9}}, + CellLabel-> + "Out[198]=",ExpressionUUID->"667feb4a-081e-4949-afbe-90117f48f666"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[199]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5.5", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9920813857054844`*^9, + 3.9920814032677307`*^9}},ExpressionUUID->"5f40daf9-1e74-0640-ab31-\ +9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 12}, {0., 0.977642504311667}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.99208138230249*^9, + 3.9920813920527496`*^9}}, + CellLabel-> + "Out[201]=",ExpressionUUID->"f946f0a7-e2ef-c94d-b49d-76d10025f655"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5.5", ",", "11", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5.5", ",", "11", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.99208141134778*^9, 3.992081413277691*^9}}, + CellLabel-> + "In[202]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.07787806224997851`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.06715562718130409`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.07787806224997851`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06715562718130409`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.4501559176056817`\\\", \\\" \\\ +\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"11687.731483524447`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 202, 24, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9920814160846043`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"9adc8bfb-20eb-164e-9d4a-601aa062b591"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8487741218982444`"}], ",", + RowBox[{"b0", "\[Rule]", "0.8399433734067453`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992081416176399*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"ddd7fa65-879a-b944-b517-a3c6f4bec358"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.938"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.9920814247140274`*^9, { + 3.9920815088375854`*^9, 3.9920815596085987`*^9}}, + CellLabel-> + "In[217]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920814405016327`*^9, { + 3.992081512727968*^9, 3.9920815638834686`*^9}}, + CellLabel-> + "Out[217]=",ExpressionUUID->"c47e5ed3-d6ff-4449-9cc8-6bdf0b22de8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.99208142899831*^9, + 3.992081506337641*^9}, + CellLabel-> + "In[218]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.992081440554392*^9, { + 3.992081512778509*^9, 3.9920815639235935`*^9}}, + CellLabel-> + "Out[218]=",ExpressionUUID->"84d40c20-4783-ff4e-969f-e0a500e9c7d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9, 3.9920814510665245`*^9}, + CellLabel-> + "In[219]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANS1EDEyNLMBAeCA/U/lEDwR6cZOGw0y55Xrsy4qgj +YkrHuRbxreqp5p557Ie85T09f4p3cBzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzH/8YvFxbRZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 13}, {0., 1.1432124336654814`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964359553013*^9, 3.9919653448206234`*^9, {3.992081440622738*^9, + 3.992081456629139*^9}, {3.992081512939665*^9, 3.9920815640713673`*^9}}, + CellLabel-> + "Out[219]=",ExpressionUUID->"8dd75db1-4386-e741-8ba7-4520f42d767b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[220]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANS1EDEyNLMBAeCA/U/lEDwR6cZOGw0y55Xrsy4qgj +YkrHuRbxreqp5p557Ie85T09f4p3cBzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzH/8YvFxbRZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 12}, {0., 0.977642504311667}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.99196436252302*^9, 3.991965349109049*^9, {3.9920814406818104`*^9, + 3.992081456732828*^9}, {3.9920815130406017`*^9, 3.992081564169176*^9}}, + CellLabel-> + "Out[220]=",ExpressionUUID->"9f71c8bd-ca92-e04a-9a9d-ebd14b022504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5", ",", "9.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992081595352972*^9, 3.992081606111494*^9}}, + CellLabel-> + "In[222]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 9.5}, {0., 0.9557848702249098}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992081591372444*^9, + 3.9920816097054825`*^9}}, + CellLabel-> + "Out[222]=",ExpressionUUID->"c9e615cc-2b0f-0f47-bf4d-5b873dc92ac4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5", ",", "9.5", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.992081641318594*^9, 3.992081644316622*^9}}, + CellLabel-> + "In[223]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]\\) is not a list of numbers with dimensions \\!\\(\ +\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 223, 25, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.9920816476914005`*^9}, + CellLabel-> + "During evaluation of \ +In[223]:=",ExpressionUUID->"48d96df7-49e8-0c48-911b-f839db83e148"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.2284527453565024`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.1485052117970964`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9920816477605286`*^9}, + CellLabel-> + "Out[223]=",ExpressionUUID->"9f9705b9-7374-c140-8a65-ae3e58c720aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.318"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.992081654149027*^9, { + 3.992081689848606*^9, 3.9920817522315235`*^9}, {3.992081787640314*^9, + 3.9920817896300335`*^9}}, + CellLabel-> + "In[250]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.9920816629452457`*^9, { + 3.9920816943048725`*^9, 3.992081756737686*^9}, 3.99208179503796*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"8992064b-8f12-4e46-bb5c-4e8736b54369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.948"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.9920816583697777`*^9, + 3.9920816877592697`*^9}}, + CellLabel-> + "In[251]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.9920816629897366`*^9, { + 3.992081694344692*^9, 3.9920817567682705`*^9}, 3.9920817950681324`*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"a378673a-d3f4-7a4a-ba38-40ab6560dd6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, + 3.992081672384392*^9}, + CellLabel-> + "In[252]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 13}, {0., 1.2977994856441957`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, { + 3.992081663079628*^9, 3.9920817569214325`*^9}, 3.9920817952282734`*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"73cd219e-eeff-c442-814e-237be31eb6e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[253]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 9.5}, {0., 0.9557848702249098}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, { + 3.9920816631567097`*^9, 3.992081757001564*^9}, 3.9920817953133717`*^9}, + CellLabel-> + "Out[253]=",ExpressionUUID->"2f38399e-258a-c842-8d2a-fdf8a5162033"] +}, Open ]] +}, +WindowSize->{1440, 741.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +CellContext->Notebook, +Magnification:>1.1 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 88, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 106, "Output",ExpressionUUID->"24af5da4-8e1a-d94b-9dd7-dbdef062e25f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 67, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 78, "Output",ExpressionUUID->"79c67680-8b75-ba45-a1b7-0a597bc79b16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 77, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2583, 75, 161, "Output",ExpressionUUID->"5342021b-1033-7b41-8e78-c88b29b165c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 78, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10674, 334, 2782, 81, 161, "Output",ExpressionUUID->"43760380-085a-3046-9f60-d6c350908cb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13493, 420, 1843, 53, 258, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15339, 475, 3752, 111, 236, "Output",ExpressionUUID->"29aa7138-9299-404a-8f91-97c3b5d013cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19128, 591, 2080, 59, 258, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21211, 652, 4821, 140, 186, "Output",ExpressionUUID->"a88d600e-3c08-1d45-a15d-6de34fb244cc"] +}, Open ]], +Cell[26047, 795, 153, 3, 31, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26225, 802, 350, 5, 31, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26578, 809, 305, 5, 35, "Output",ExpressionUUID->"edec7851-e2fe-b34c-ba8c-2c27e7cf738c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26920, 819, 329, 6, 31, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27252, 827, 305, 5, 35, "Output",ExpressionUUID->"95b97c69-6c13-8c42-848c-3b9218e2ce6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27594, 837, 175, 3, 31, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27772, 842, 276, 4, 35, "Output",ExpressionUUID->"22e5a903-bbd5-c04d-9efd-2a9b4d852d75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28085, 851, 258, 7, 47, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28346, 860, 290, 4, 35, "Output",ExpressionUUID->"bc8abb20-a9bc-e442-b277-c69265041ffc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28673, 869, 132, 2, 31, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28808, 873, 277, 4, 35, "Output",ExpressionUUID->"fdbbbc57-9869-a04c-8059-b93e7adc2132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29122, 882, 277, 6, 31, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29402, 890, 290, 4, 35, "Output",ExpressionUUID->"4d0fe716-55c3-8545-a8f2-846aef8ddab3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29729, 899, 258, 7, 31, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29990, 908, 289, 4, 35, "Output",ExpressionUUID->"49cdc982-2bd5-2546-8fb4-51be0abc3bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30316, 917, 376, 6, 31, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30695, 925, 154, 2, 35, "Output",ExpressionUUID->"272ce735-8aca-5c4b-889d-e36280a4ae81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30886, 932, 378, 6, 31, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31267, 940, 156, 2, 35, "Output",ExpressionUUID->"55f2cc96-07e5-9142-917b-d6a538467520"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31460, 947, 129, 2, 31, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31592, 951, 273, 4, 35, "Output",ExpressionUUID->"e1cf06c1-d62a-3f45-b39c-6c2b90bd80db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31902, 960, 129, 2, 31, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[32034, 964, 272, 4, 35, "Output",ExpressionUUID->"6801dedc-9aa7-184c-8e36-cea59050084e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32343, 973, 2014, 51, 143, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34360, 1026, 15405, 299, 262, "Output",ExpressionUUID->"9dc810d6-c12c-0d48-adde-9baf84f7b798"] +}, Open ]], +Cell[49780, 1328, 128, 3, 31, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[49933, 1335, 2326, 60, 114, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[52262, 1397, 3670, 53, 113, "Message",ExpressionUUID->"06e69d42-b883-6e44-a17a-72d455bd2904"], +Cell[55935, 1452, 360, 7, 35, "Output",ExpressionUUID->"72636b58-36cc-684a-bbbf-30e537b4e714"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56332, 1464, 2226, 58, 114, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[58561, 1524, 839, 15, 28, "Message",ExpressionUUID->"53437993-daa8-9f43-b9e1-f8a0870ac774"], +Cell[59403, 1541, 317, 6, 35, "Output",ExpressionUUID->"30cd62e4-8ae1-6f4a-b687-a13c823273de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59757, 1552, 538, 9, 31, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[60298, 1563, 439, 7, 35, "Output",ExpressionUUID->"68a825c5-2d62-bd4b-ab58-0cad8e8154b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60774, 1575, 639, 10, 31, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[61416, 1587, 461, 8, 35, "Output",ExpressionUUID->"c795ebff-477c-e84b-b60d-54cb7fd8a3a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61914, 1600, 2525, 64, 153, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[64442, 1666, 105216, 2239, 261, "Output",ExpressionUUID->"bf36d94c-59b7-5248-b79e-9c5a3c231911"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169695, 3910, 165, 4, 46, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[169863, 3916, 120169, 2494, 262, "Output",ExpressionUUID->"26985b49-ec40-5d4c-88c7-142b869bc2af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290069, 6415, 942, 27, 66, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[291014, 6444, 22921, 423, 260, "Output",ExpressionUUID->"d1c158f1-3ce3-f749-86e0-673a21e4dd96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313972, 6872, 2422, 63, 114, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[316397, 6937, 6453, 92, 223, "Message",ExpressionUUID->"a4ae08cd-3440-1d4f-978e-2cd4eaa6d3c2"], +Cell[322853, 7031, 344, 8, 35, "Output",ExpressionUUID->"36797d84-b83d-6f43-b3eb-679224a52717"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323234, 7044, 519, 9, 31, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[323756, 7055, 389, 7, 35, "Output",ExpressionUUID->"60592c05-8f3c-cf49-a983-c09cad5885af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324182, 7067, 434, 7, 31, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[324619, 7076, 392, 7, 35, "Output",ExpressionUUID->"7c1d395f-a80e-b248-a4f5-cd82e5cc5534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325048, 7088, 985, 27, 67, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[326036, 7117, 88364, 1883, 264, "Output",ExpressionUUID->"16ceae37-ecda-a248-a0c2-801d6289fe89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414437, 9005, 167, 4, 46, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[414607, 9011, 110668, 2263, 261, "Output",ExpressionUUID->"667feb4a-081e-4949-afbe-90117f48f666"] +}, Open ]], +Cell[525290, 11277, 242, 5, 46, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[525557, 11286, 826, 24, 66, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[526386, 11312, 32072, 576, 261, "Output",ExpressionUUID->"f946f0a7-e2ef-c94d-b49d-76d10025f655"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558495, 11893, 2231, 59, 75, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[560729, 11954, 3805, 56, 104, "Message",ExpressionUUID->"9adc8bfb-20eb-164e-9d4a-601aa062b591"], +Cell[564537, 12012, 346, 8, 35, "Output",ExpressionUUID->"ddd7fa65-879a-b944-b517-a3c6f4bec358"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564920, 12025, 334, 6, 31, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[565257, 12033, 261, 5, 35, "Output",ExpressionUUID->"c47e5ed3-d6ff-4449-9cc8-6bdf0b22de8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[565555, 12043, 302, 6, 31, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[565860, 12051, 261, 5, 35, "Output",ExpressionUUID->"84d40c20-4783-ff4e-969f-e0a500e9c7d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566158, 12061, 2588, 65, 177, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[568749, 12128, 121982, 2592, 265, "Output",ExpressionUUID->"8dd75db1-4386-e741-8ba7-4520f42d767b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[690768, 14725, 169, 4, 46, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[690940, 14731, 153841, 3124, 260, "Output",ExpressionUUID->"9f71c8bd-ca92-e04a-9a9d-ebd14b022504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[844818, 17860, 922, 26, 66, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[845743, 17888, 24564, 453, 264, "Output",ExpressionUUID->"c9e615cc-2b0f-0f47-bf4d-5b873dc92ac4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[870344, 18346, 2388, 62, 96, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[872735, 18410, 738, 14, 28, "Message",ExpressionUUID->"48d96df7-49e8-0c48-911b-f839db83e148"], +Cell[873476, 18426, 348, 8, 35, "Output",ExpressionUUID->"9f9705b9-7374-c140-8a65-ae3e58c720aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[873861, 18439, 383, 7, 31, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[874247, 18448, 284, 5, 35, "Output",ExpressionUUID->"8992064b-8f12-4e46-bb5c-4e8736b54369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[874568, 18458, 310, 6, 31, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[874881, 18466, 285, 5, 35, "Output",ExpressionUUID->"a378673a-d3f4-7a4a-ba38-40ab6560dd6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[875203, 18476, 2874, 74, 154, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[878080, 18552, 124296, 2638, 261, "Output",ExpressionUUID->"73cd219e-eeff-c442-814e-237be31eb6e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1002413, 21195, 208, 5, 69, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[1002624, 21202, 148662, 3047, 282, "Output",ExpressionUUID->"2f38399e-258a-c842-8d2a-fdf8a5162033"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb b/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb new file mode 100755 index 0000000..70a38ef --- /dev/null +++ b/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb @@ -0,0 +1,21686 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 1027011, 21678] +NotebookOptionsPosition[ 1016157, 21485] +NotebookOutlinePosition[ 1016610, 21503] +CellTagsIndexPosition[ 1016567, 21500] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.99207740605118*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"5b406aee-4fc2-9340-b9a6-63883e6df740"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9920774062078648`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"2f8c3cb4-876a-cc4b-a305-18fed8b0a8f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.9920774062168636`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"068b8951-0b1b-c649-ba5e-6b596ea7740b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.9920774062243156`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"16978456-3321-ed48-b869-1e49679ecafe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920774062328224`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d91d5ce3-0373-6949-9097-37f56378374d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9920774062691994`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a7b3cf3c-a865-d44a-9c20-b068c6459eeb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992077413275131*^9, 3.992077413519266*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992077473412964*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"716bd997-c335-ac4e-b177-762274d0d00d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9920774175124474`*^9, + 3.99207741835557*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.992077473495037*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"9c389a5f-98b4-4447-832e-36bcd73b609a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9920774735130367`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"11cdd205-8c8a-bc4d-9c8a-017bc4cc56cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992077473518036*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b0fb24af-34ae-7344-8ae4-0aa44115a947"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992077473540039*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1284fc79-4993-7545-87b3-dcd15e09d1bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.99207747355604*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a8d0c29a-0fb9-d94d-90e9-e28f17cf7bc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920774735729256`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"943e50b3-9297-464d-83bc-97b9b4b4e5f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920774285182037`*^9, 3.992077444163128*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], + +Cell[BoxData["0.912`"], "Output", + CellChangeTimes->{3.992077473590931*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8ff14c07-62c9-9042-9b60-5ab99da871b9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, 3.991973037386053*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.9920774357863083`*^9, 3.9920774407689705`*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], + +Cell[BoxData["0.619`"], "Output", + CellChangeTimes->{3.992077473595928*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"83f54eda-83d2-0f45-82e3-5563c4d193d8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, 3.9919730389577026`*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9920774736029434`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"2529a8fd-b1e4-6347-97a8-552f293a9fea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992077473619936*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"8cbb7ffe-de29-5448-bfc9-1df8361d29f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9920774961433125`*^9, 3.992077523297741*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 12.5}, {0., 0.9470468281352962}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992077487111929*^9, 3.9920775279481335`*^9}}, + CellLabel->"Out[22]=",ExpressionUUID->"03023f34-b238-6141-96c7-5d6ad5e43c03"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.9920775519289417`*^9, + 3.9920775569107704`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.15045633315923296`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.15045633315923296`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}]}], \\\")\\\"}], \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.15045633315923296`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 23, 12, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992077571108675*^9}, + CellLabel-> + "During evaluation of \ +In[23]:=",ExpressionUUID->"b46d0786-6b41-5a45-98dc-3aee9c45f768"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8768634706036069`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0975973281869416`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.9920775711965847`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"1fd71df1-f503-2649-bf04-260d6dffea03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9920775602460575`*^9, 3.9920775632865067`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.5752742150205966`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"11013.232920103323`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.5752742150205966`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 24, 13, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.992077571291237*^9}, + CellLabel-> + "During evaluation of \ +In[24]:=",ExpressionUUID->"a552e2cd-a567-2348-98ca-0d189880f688"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8768801815039241`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0975962201411917`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9920775714617615`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"69bdad20-1aaa-154b-afff-cd6f37ef9153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.99207757828269*^9, 3.9920776135230103`*^9, { + 3.9920777123690605`*^9, 3.9920777683240814`*^9}, {3.992077817769581*^9, + 3.992077858747114*^9}, {3.9920778982019424`*^9, 3.992077909678976*^9}, + 3.992077950241436*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9920776312944584`*^9, {3.9920777175048714`*^9, 3.9920777722209625`*^9}, { + 3.992077809572027*^9, 3.9920778636568184`*^9}, {3.9920779019513493`*^9, + 3.9920779151595726`*^9}, 3.992077954308384*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f028c659-4a66-534a-915a-64efa844e496"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.9920776196006165`*^9, {3.992077693804096*^9, + 3.9920777086323776`*^9}, 3.992077805190651*^9, 3.9920778860421314`*^9}, + CellLabel->"In[82]:=",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992077631333788*^9, {3.9920776991956215`*^9, + 3.992077772252756*^9}, {3.992077809601555*^9, 3.9920779151906395`*^9}, + 3.9920779543543015`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"0eae1f0d-6416-d545-85b8-fe3f7966b36f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, + 3.9920776475500584`*^9}, + CellLabel->"In[83]:=",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZsZWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+O/5 +BWTQDds= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 13}, {0., 1.9701485006351023`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9, {3.9920776314276695`*^9, 3.9920776521841106`*^9}, { + 3.992077699338787*^9, 3.9920777724079704`*^9}, {3.992077809739979*^9, + 3.9920779153129025`*^9}, 3.992077954480957*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"88719de2-72eb-0049-b6ba-f95aee7973d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZsZWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+O/5 +BWTQDds= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 12.5}, {0., 0.9470468281352962}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9, {3.992077631498291*^9, 3.9920776522489624`*^9}, { + 3.992077699447899*^9, 3.9920777725019646`*^9}, {3.9920778098316326`*^9, + 3.9920779153927155`*^9}, 3.992077954558487*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"2614b7e8-636d-de4c-9b6b-627435f372b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9, + 3.992078155653385*^9}, + CellLabel->"In[86]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 11}, {0., 0.8968976999679797}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, 3.992078102297554*^9, + 3.9920781586898117`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"ccc64668-100a-5841-9412-e97c96d71d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "11", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.992078168397648*^9, + 3.9920781698782787`*^9}}, + CellLabel->"In[87]:=",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\ +\"-\\\", FractionBox[RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", RowBox[{\\\"1.2`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.03325084962819049`\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \ +\\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"0.09975254888457147`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.028900000000000006`\\\", \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.2`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.03325084962819049`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 87, 14, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992078174058605*^9}, + CellLabel-> + "During evaluation of \ +In[87]:=",ExpressionUUID->"4c70003b-d56f-a44f-952a-01dc032ac2bf"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.5401500993780664`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.444036948153865`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9920781741186047`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"8088fb25-11d5-474f-8154-1150c1e3d645"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.100"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920781792274055`*^9, 3.9920782325696163`*^9, { + 3.9920782893194523`*^9, 3.9920782913434505`*^9}, 3.99207832135236*^9, + 3.992078372348366*^9, {3.9920784153861847`*^9, 3.992078420726963*^9}, + 3.9920784547363358`*^9, {3.9920786576555004`*^9, 3.992078666399088*^9}, + 3.9920786982162323`*^9}, + CellLabel-> + "In[168]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.9920781898065643`*^9, + 3.9920782459386597`*^9, {3.9920782955964584`*^9, 3.9920783249456387`*^9}, + 3.992078377056034*^9, 3.9920784247704086`*^9, 3.992078458336664*^9, + 3.9920785064960346`*^9, {3.9920786610130386`*^9, 3.992078670542509*^9}, + 3.9920787028912697`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"e93d7a9d-61b2-6944-9614-42e99bbbb076"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.164"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, 3.9920781838492756`*^9, { + 3.992078221427412*^9, 3.9920782305714703`*^9}, {3.992078310206625*^9, + 3.992078368593624*^9}, {3.992078435439228*^9, 3.992078465266489*^9}, { + 3.992078531635874*^9, 3.9920785926105404`*^9}, 3.9920786475372868`*^9}, + CellLabel-> + "In[169]:=",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.9920781898469105`*^9, { + 3.992078226282812*^9, 3.992078246008318*^9}, {3.992078295629511*^9, + 3.9920783770860634`*^9}, {3.9920784248034267`*^9, 3.992078458369169*^9}, { + 3.9920785065292473`*^9, 3.9920786028757687`*^9}, {3.992078651503311*^9, + 3.9920786705739326`*^9}, 3.9920787029234257`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"8accd57d-0c27-b44a-b094-ceb92ec9ea8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel-> + "In[170]:=",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQBBgbCgXDg2T9qIFiCwSQLj51uzfO2VBGl +iYgplXO741P1U+0989gPec9Hev4U7+A4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4juM4juM4juM4juM4juM4/kt+AfmhNUs= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 2.7645311207418275`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, 3.992078189905487*^9, {3.9920782263605824`*^9, + 3.9920782460965576`*^9}, {3.9920782957005367`*^9, + 3.9920783771604385`*^9}, {3.992078424873436*^9, 3.992078458425234*^9}, { + 3.9920785065883026`*^9, 3.9920786029573746`*^9}, {3.9920786515843906`*^9, + 3.99207867064835*^9}, 3.992078702999031*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"25317bfe-4451-9a47-81a2-5977e9482e73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[171]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQBBgbCgXDg2T9qIFiCwSQLj51uzfO2VBGl +iYgplXO741P1U+0989gPec9Hev4U7+A4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4juM4juM4juM4juM4juM4/kt+AfmhNUs= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 11}, {0., 0.8968976999679797}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643184825573`*^9, 3.991965223761923*^9, 3.992078189974333*^9, { + 3.992078226456953*^9, 3.992078246157568*^9}, {3.9920782957891445`*^9, + 3.9920783772467804`*^9}, {3.992078424947586*^9, 3.992078458485281*^9}, { + 3.9920785066484985`*^9, 3.992078603046728*^9}, {3.9920786516615753`*^9, + 3.992078670727331*^9}, 3.992078703082752*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"679841ea-ec83-384a-a982-08ca29c2c2e1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[234]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.6", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992078766750559*^9, 3.9920787887431946`*^9}}, + CellLabel-> + "In[175]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.600000000000014, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6.6, 12}, {0., 0.9024512949336763}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.9920787525544453`*^9, + 3.9920787922434063`*^9}}, + CellLabel-> + "Out[175]=",ExpressionUUID->"e71f78b2-78b0-c347-a9cc-d69e10fac40b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.6", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.6", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.9920787999115257`*^9, 3.9920788019270935`*^9}}, + CellLabel-> + "In[176]:=",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.08297163602880672`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.08297163602880672`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.471537981295053`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"80934.92795719826`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 176, 15, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992078807136387*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"54ce134e-2370-2448-b61c-e3493430a3ce"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8789025302043902`"}], ",", + RowBox[{"b0", "\[Rule]", "0.8858439747845174`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992078807224064*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"f5d547d9-565a-2a49-af64-7ca4dcb05348"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.992078812308214*^9, { + 3.992078889562443*^9, 3.992078937795889*^9}, {3.992078968596054*^9, + 3.992079019098961*^9}, {3.9920790673609257`*^9, 3.992079086765171*^9}}, + CellLabel-> + "In[223]:=",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920788247257977`*^9, { + 3.9920788822375774`*^9, 3.992078982023176*^9}, {3.9920790139781113`*^9, + 3.992079024667963*^9}, {3.9920790742602997`*^9, 3.9920790918387775`*^9}}, + CellLabel-> + "Out[223]=",ExpressionUUID->"3c9400ca-7330-c849-9e3a-090cc9e10307"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.9920788168109436`*^9, + 3.992078875444191*^9, 3.9920789154529915`*^9, 3.9920789563948193`*^9}, + CellLabel-> + "In[224]:=",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.99207882476519*^9, { + 3.992078882269352*^9, 3.9920789820578938`*^9}, {3.992079014018162*^9, + 3.992079024700884*^9}, {3.9920790742898865`*^9, 3.992079091871784*^9}}, + CellLabel-> + "Out[224]=",ExpressionUUID->"698ef028-0dc8-8e44-8926-fe79072049b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9, 3.992078845126295*^9}, + CellLabel-> + "In[225]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGFmCol6pV579h4GyBp3Jra97uiXP21pFlCYi +plTO7Y5P1U+198xjP+Q9H+n5U7yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4zj+Z34BL9xpfg== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 1.4388968087800817`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964359553013*^9, 3.9919653448206234`*^9, {3.992078824814333*^9, + 3.9920788491820545`*^9}, {3.992078882376375*^9, 3.992078982156996*^9}, { + 3.9920790141192036`*^9, 3.992079024802227*^9}, {3.992079074393759*^9, + 3.9920790919847393`*^9}}, + CellLabel-> + "Out[225]=",ExpressionUUID->"234e7618-02cb-f54f-8a4f-c7fab5258207"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[226]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGFmCol6pV579h4GyBp3Jra97uiXP21pFlCYi +plTO7Y5P1U+198xjP+Q9H+n5U7yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4zj+Z34BL9xpfg== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.600000000000014, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6.6, 12}, {0., 0.9024512949336763}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.99196436252302*^9, 3.991965349109049*^9, {3.992078824857956*^9, + 3.99207884924148*^9}, {3.9920788824601307`*^9, 3.9920789822351875`*^9}, { + 3.9920790141960087`*^9, 3.992079024878128*^9}, {3.9920790744634304`*^9, + 3.992079092077688*^9}}, + CellLabel-> + "Out[226]=",ExpressionUUID->"89fea184-455f-3546-a0e8-128fb01081ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "9.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.992079164618025*^9, {3.99207927277396*^9, 3.9920792767879047`*^9}, + 3.9920793690339336`*^9}, + CellLabel-> + "In[239]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.500000000000014, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6.5, 9.5}, {0., 0.8414787587202844}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9920791498379116`*^9, + 3.9920791713629704`*^9}, {3.992079266971115*^9, 3.992079278994734*^9}, + 3.992079371042183*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"6e4d1a86-4cc3-8c41-a9a0-d8b51631881b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "9.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "9.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.9920791804577827`*^9, 3.992079182306984*^9}, {3.992079292618952*^9, + 3.9920792940878105`*^9}, {3.9920793345892296`*^9, 3.9920793513220825`*^9}}, + CellLabel-> + "In[238]:=",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02256828499983543`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.02256828499983543`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"67485.30689350299`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 238, 20, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.9920791898345623`*^9, 3.992079296821726*^9, 3.9920793545299816`*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"b9b26504-3e2a-ff49-ac49-a3af7b148b85"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.360386904839871`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.1423741744208944`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9920791899390793`*^9, 3.9920792969277706`*^9, 3.992079354578949*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"0590e598-3be4-ee40-b8cb-69d4bcbb4e07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.690"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.992079215853672*^9, + 3.9920794072299767`*^9, 3.9920794803641453`*^9, 3.992079536249756*^9, + 3.9920795981056805`*^9, 3.9920796308652153`*^9, 3.9920796784878006`*^9, { + 3.992079749980589*^9, 3.9920797616154804`*^9}}, + CellLabel-> + "In[296]:=",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.992079233732996*^9, + 3.992079450918684*^9, 3.9920794857337093`*^9, {3.992079526082157*^9, + 3.9920795406103764`*^9}, {3.9920795838618183`*^9, 3.9920796820569*^9}, { + 3.992079741580799*^9, 3.992079765248972*^9}}, + CellLabel-> + "Out[296]=",ExpressionUUID->"41e4511e-3c57-aa43-9368-985849889e6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.942"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, 3.9920792202798786`*^9, + 3.992079413096815*^9, {3.992079474676058*^9, 3.9920794765189915`*^9}, + 3.9920795149665623`*^9, {3.992079575079035*^9, 3.9920796209764957`*^9}, { + 3.992079653889679*^9, 3.992079668896042*^9}, {3.9920797346707287`*^9, + 3.992079747770651*^9}}, + CellLabel-> + "In[297]:=",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992079233775448*^9, + 3.99207945096085*^9, 3.9920794857678013`*^9, {3.9920795261137333`*^9, + 3.992079540644127*^9}, {3.992079583907501*^9, 3.9920796820894985`*^9}, { + 3.992079741615055*^9, 3.9920797652863655`*^9}}, + CellLabel-> + "Out[297]=",ExpressionUUID->"ee4aac96-68cf-2649-9781-4f03c439266a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9920794564677505`*^9, 3.9920794574124985`*^9}}, + CellLabel-> + "In[298]:=",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 13}, {0., 1.8656394062186223`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, + 3.992079238357033*^9, {3.9920794510548935`*^9, 3.99207948591498*^9}, { + 3.992079526257885*^9, 3.992079540791767*^9}, {3.992079584032593*^9, + 3.992079682223818*^9}, {3.992079741757654*^9, 3.992079765431652*^9}}, + CellLabel-> + "Out[298]=",ExpressionUUID->"dd5c5227-5dbe-6947-8308-47ff51798069"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.500000000000014, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6.5, 9.5}, {0., 0.8414787587202844}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, + 3.992079241084484*^9, {3.992079451135378*^9, 3.992079486004778*^9}, { + 3.992079526353161*^9, 3.99207954087969*^9}, {3.992079584117285*^9, + 3.992079682318926*^9}, {3.9920797418505077`*^9, 3.992079765523945*^9}}, + CellLabel-> + "Out[299]=",ExpressionUUID->"f89dcaf2-f901-2c48-b583-e2e056034963"] +}, Open ]] +}, +WindowSize->{1197, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"565e0c81-999b-a345-8efd-c9b240910ac7" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1489, 46, 97, "Output",ExpressionUUID->"5b406aee-4fc2-9340-b9a6-63883e6df740"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3257, 109, 720, 20, 61, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3980, 131, 887, 25, 90, "Output",ExpressionUUID->"2f8c3cb4-876a-cc4b-a305-18fed8b0a8f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4904, 161, 1465, 41, 93, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6372, 204, 2583, 75, 146, "Output",ExpressionUUID->"068b8951-0b1b-c649-ba5e-6b596ea7740b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8992, 284, 1680, 48, 93, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10675, 334, 2782, 81, 146, "Output",ExpressionUUID->"16978456-3321-ed48-b869-1e49679ecafe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13494, 420, 1843, 53, 167, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15340, 475, 3752, 111, 121, "Output",ExpressionUUID->"d91d5ce3-0373-6949-9097-37f56378374d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19129, 591, 2080, 59, 167, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21212, 652, 4821, 140, 121, "Output",ExpressionUUID->"a7b3cf3c-a865-d44a-9c20-b068c6459eeb"] +}, Open ]], +Cell[26048, 795, 153, 3, 28, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26226, 802, 346, 5, 28, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26575, 809, 303, 5, 32, "Output",ExpressionUUID->"716bd997-c335-ac4e-b177-762274d0d00d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26915, 819, 328, 6, 28, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[27246, 827, 303, 5, 32, "Output",ExpressionUUID->"9c389a5f-98b4-4447-832e-36bcd73b609a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27586, 837, 175, 3, 28, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27764, 842, 276, 4, 32, "Output",ExpressionUUID->"11cdd205-8c8a-bc4d-9c8a-017bc4cc56cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28077, 851, 258, 7, 43, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[28338, 860, 277, 4, 32, "Output",ExpressionUUID->"b0fb24af-34ae-7344-8ae4-0aa44115a947"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28652, 869, 132, 2, 28, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28787, 873, 277, 4, 32, "Output",ExpressionUUID->"1284fc79-4993-7545-87b3-dcd15e09d1bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29101, 882, 277, 6, 28, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29381, 890, 290, 4, 32, "Output",ExpressionUUID->"a8d0c29a-0fb9-d94d-90e9-e28f17cf7bc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29708, 899, 258, 7, 28, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29969, 908, 289, 4, 32, "Output",ExpressionUUID->"943e50b3-9297-464d-83bc-97b9b4b4e5f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30295, 917, 374, 6, 28, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30672, 925, 154, 2, 32, "Output",ExpressionUUID->"8ff14c07-62c9-9042-9b60-5ab99da871b9"] +}, Open ]], +Cell[30841, 930, 173, 2, 28, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[CellGroupData[{ +Cell[31039, 936, 380, 6, 28, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[31422, 944, 154, 2, 32, "Output",ExpressionUUID->"83f54eda-83d2-0f45-82e3-5563c4d193d8"] +}, Open ]], +Cell[31591, 949, 173, 2, 28, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[31789, 955, 129, 2, 28, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[31921, 959, 275, 4, 32, "Output",ExpressionUUID->"2529a8fd-b1e4-6347-97a8-552f293a9fea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32233, 968, 129, 2, 28, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[32365, 972, 270, 4, 32, "Output",ExpressionUUID->"8cbb7ffe-de29-5448-bfc9-1df8361d29f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32672, 981, 2018, 51, 133, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[34693, 1034, 19878, 374, 237, "Output",ExpressionUUID->"03023f34-b238-6141-96c7-5d6ad5e43c03"] +}, Open ]], +Cell[54586, 1411, 128, 3, 28, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[54739, 1418, 2335, 60, 103, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[57077, 1480, 6390, 92, 150, "Message",ExpressionUUID->"b46d0786-6b41-5a45-98dc-3aee9c45f768"], +Cell[63470, 1574, 363, 7, 32, "Output",ExpressionUUID->"1fd71df1-f503-2649-bf04-260d6dffea03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63870, 1586, 2234, 58, 103, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[66107, 1646, 4477, 64, 109, "Message",ExpressionUUID->"a552e2cd-a567-2348-98ca-0d189880f688"], +Cell[70587, 1712, 317, 6, 32, "Output",ExpressionUUID->"69bdad20-1aaa-154b-afff-cd6f37ef9153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70941, 1723, 527, 8, 28, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[71471, 1733, 409, 6, 32, "Output",ExpressionUUID->"f028c659-4a66-534a-915a-64efa844e496"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71917, 1744, 431, 6, 28, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[72351, 1752, 385, 6, 32, "Output",ExpressionUUID->"0eae1f0d-6416-d545-85b8-fe3f7966b36f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72773, 1763, 2549, 64, 183, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[75325, 1829, 103327, 2196, 237, "Output",ExpressionUUID->"88719de2-72eb-0049-b6ba-f95aee7973d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178689, 4030, 161, 3, 42, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[178853, 4035, 122735, 2526, 237, "Output",ExpressionUUID->"2614b7e8-636d-de4c-9b6b-627435f372b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301625, 6566, 936, 26, 60, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[302564, 6594, 24249, 446, 237, "Output",ExpressionUUID->"ccc64668-100a-5841-9412-e97c96d71d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326850, 7045, 2416, 62, 103, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[329269, 7109, 4740, 68, 131, "Message",ExpressionUUID->"4c70003b-d56f-a44f-952a-01dc032ac2bf"], +Cell[334012, 7179, 340, 7, 32, "Output",ExpressionUUID->"8088fb25-11d5-474f-8154-1150c1e3d645"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334389, 7191, 532, 9, 28, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[334924, 7202, 459, 8, 32, "Output",ExpressionUUID->"e93d7a9d-61b2-6944-9614-42e99bbbb076"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335420, 7215, 506, 8, 28, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[335929, 7225, 489, 8, 32, "Output",ExpressionUUID->"8accd57d-0c27-b44a-b094-ceb92ec9ea8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336455, 7238, 985, 27, 61, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[337443, 7267, 77316, 1651, 237, "Output",ExpressionUUID->"25317bfe-4451-9a47-81a2-5977e9482e73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414796, 8923, 167, 4, 42, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[414966, 8929, 100823, 2054, 237, "Output",ExpressionUUID->"679841ea-ec83-384a-a982-08ca29c2c2e1"] +}, Open ]], +Cell[515804, 10986, 242, 5, 42, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[516071, 10995, 847, 24, 60, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[516921, 11021, 20180, 381, 237, "Output",ExpressionUUID->"e71f78b2-78b0-c347-a9cc-d69e10fac40b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537138, 11407, 2236, 59, 103, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[539377, 11468, 3801, 56, 106, "Message",ExpressionUUID->"54ce134e-2370-2448-b61c-e3493430a3ce"], +Cell[543181, 11526, 346, 8, 32, "Output",ExpressionUUID->"f5d547d9-565a-2a49-af64-7ca4dcb05348"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543564, 11539, 426, 7, 28, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[543993, 11548, 363, 6, 32, "Output",ExpressionUUID->"3c9400ca-7330-c849-9e3a-090cc9e10307"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544393, 11559, 353, 6, 28, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[544749, 11567, 358, 6, 32, "Output",ExpressionUUID->"698ef028-0dc8-8e44-8926-fe79072049b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545144, 11578, 2586, 65, 205, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[547733, 11645, 78722, 1682, 237, "Output",ExpressionUUID->"234e7618-02cb-f54f-8a4f-c7fab5258207"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626492, 13332, 169, 4, 42, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[626664, 13338, 98245, 2019, 237, "Output",ExpressionUUID->"89fea184-455f-3546-a0e8-128fb01081ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[724946, 15362, 978, 28, 60, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[725927, 15392, 15055, 295, 256, "Output",ExpressionUUID->"6e4d1a86-4cc3-8c41-a9a0-d8b51631881b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[741019, 15692, 2497, 63, 103, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[743519, 15757, 4030, 59, 110, "Message",ExpressionUUID->"b9b26504-3e2a-ff49-ac49-a3af7b148b85"], +Cell[747552, 15818, 393, 8, 32, "Output",ExpressionUUID->"0590e598-3be4-ee40-b8cb-69d4bcbb4e07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[747982, 15831, 481, 8, 28, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[748466, 15841, 406, 7, 32, "Output",ExpressionUUID->"41e4511e-3c57-aa43-9368-985849889e6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[748909, 15853, 534, 9, 28, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[749446, 15864, 408, 7, 32, "Output",ExpressionUUID->"ee4aac96-68cf-2649-9781-4f03c439266a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[749891, 15876, 2902, 74, 183, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[752796, 15952, 124157, 2634, 237, "Output",ExpressionUUID->"dd5c5227-5dbe-6947-8308-47ff51798069"] +}, Open ]], +Cell[CellGroupData[{ +Cell[876990, 18591, 208, 5, 63, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[877201, 18598, 138940, 2884, 237, "Output",ExpressionUUID->"f89dcaf2-f901-2c48-b583-e2e056034963"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt b/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt new file mode 100755 index 0000000..e947e04 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt @@ -0,0 +1,35 @@ +Pu240 +----------------------------- +58-182 2-3 +d = 0.1 +v1 =0.889 +n1 =0.634 +vv1 =1.069 +nn1 =0.744 +v2 =1.991 +n2 =0.921 +vv2 =2.422 +nn2 =1.520 +----------------------------- +118-122 394-395 +d= 1.487 +v1 =1.196 +n1 =0.867 +vv1 =2.100 +nn1 =1.164 +v2 =1.092 +n2 =0.745 +vv2 =1.690 +nn2 =0.942 +----------------------------- +146-94 702-703 +d= 3.0056 +v1 =1.362 +n1 = 0.795 +vv1 =2.204 +nn1 =1.070 +v2 =0.938 +n2 =0.739 +vv2 =1.318 +nn2 =0.948 +----------------------------- \ No newline at end of file diff --git a/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx new file mode 100755 index 0000000000000000000000000000000000000000..a5255e2321b50483c2cd1c36cd64e7535a0df786 GIT binary patch literal 12179 zcmeHt1y@|z(spCPy>WuOJHcIo2X_eW?(QDk8h3YhLV(~dA!r~Ff@|aQF*EmmGm|^- zFSz&gTF0wapW5|Q?OpXK$wEN`0j~gX004j#V04^qp$`E7#6trBm;g9P9Wi@57gIYI z165B4Q)fLU4_h0O0%%B@JOJd&`~Tbii!D%bvk8j^JKL6^h|itMNYR1AAJy~;xS0os z4k>$a@DiQ0wNCPY1j4L%1_mF@G6Ct1t^LXz;+rBeRrnTI*n$DyvzLd|(KkM~BUNaZ z@eHr@eN#|hM}IR~K8N;w26NuZlGa=Q;ydG8=x8$URctr?VkJ^d63e;2eY|>UVxupW?mD=zEDRWR za)bj(gJzciO4iX$*wt)yQ@#U2ScP(9r=LjH?kP7h2?sU^OgeJn;!PBA$!rq{sCZ;d=wnwh1G^0^aq|qkLf`AS_$Z1t@{yFnH~i?^@E)J{;q;D9 z@bOvdoJVRGY2ajPaessM^{)nDyLLQ$EwW%bhicY!WBqL#*@aaJC3fhtt?-5 zWP@CC?o7NMZHh?)A0D%qFbrD&6sY}KUTfXxrUqg`ROP5Ttge+iZ$D`&)Bj6q$sV#$ z1drU|EC_4Z*~t8BjnA+RDfkv&O~r!8vd$>SiI>dNz{KX`g?MH!=A#dzLe{V{83)D< z+mzH0WgggHyNTm$EZcK{8@|7C_;e&Fnz(HJB}4ruNDLfi?bV?G0D4#e0QJQ(9yZMG z_D zG=>2STa5rT8toUG2#m*VtPJ!0@b=28zWYqf@)g55Nj_f7- zNvb93Nhwa~XC8FyP>1eZX&n6O4&?Iid2(AXfwpiV8!Z-+=)r(w6OZ4 zObuOa4~oQb>y+YL$5)VL<#eQmPuaW&5B z%YPrrKsR~g;cyOG9dWaLgzZbx++7JGZ1uF*=pE-S5(~>NE0w`N_2c(LBDiPg3AcU4 zN|~wh4fhJYlbvV`ZA!o6F@J;L@LF!_+n`So6X9%QNL zZ1qqgdaJ}t1m6);%Q!?8Hm*JvKVCtZn$xm;_EVe+&X^r1bBUX2Gj)NEE6?tpfch!cIl>N9EK5rmdaJ^%&dpAx#h(&(j6d{o&sYOiL1W*s zJcCGlB7pSjP-N=ZyF|dzcW&i`??=xr?~h>uKFnTjJjJk{bu!=jkmsSZ<$3j`HO&lD znIbQ`w_O3=$MD&xZ{ahnpdfolMq-;6CU_rk{t1GCg2`zYFVO3F$y4|MIEWVr{*kKw z3dDb>Er^#{Fmm36h z9eSFJvdmESVV)-wLvGicC|gjN;6D1YC=6&XOq&xv82gEf2`D(DqiUicDHu$Q!~KKG zBSe%8XUulN#9@XU;F}*eG?aMZg(YO-m+iA*99EMou54D$)2~Ng!uD9xcEDYT%3*a- zQ)??p2Cdo7bGz8e)vMefPvV&iJovZ#$ew_ipYx>jH+>RUaOYhQX7Zks)_sL{NIQg; zvP2b}0zP3bB;mtS#QwC2&N~I5PPLOw7t#As+TN9OhOx^Nv+a?gg^iby{?Dkb%DekOr!2n5YLtj;$Yy zx^q%GXRTCD$h}dxc4u*DP>9oU-XwImNPV}vsk3wA6|opsKYQG6lv$$jwYrsgXF$}U zZSeEco@Hlb#{EQ`-ldaF3}L}8IC9kgp~qLiY|$-KXZ&a}yw|VGZ|Tsz)@1A8%G3Lf zk4u~Bh)d+=$kboc-?zl;xg`r+a(OTO{PohG(;3tGv}wf-<^KEAo=NrHBzv3-lX@-F8~=G>Ke z^3sh8IOKW2G{06gcC?-3?z&3p=*<~*_^k0|)6fqffiqt!czTF;`&dZ{}(EZaE;n^tw^*-K^lyK#=A%u#Jw ztUY%6O7~1z1T$UDmwVP>JL&o&l#i-$g3Mm61N{XivSj5AOdoKY&r;B|cfZZ0IX~7^ zDz(aYO{dAO+LxuL4C?u|&uC#grc8rIZ37z{;wza?WNqjXJMNq!JM`QcTWP%1vE9Hs z%3HFDejj2>uhhXa2NPMvfyFx_3vJ~{ZmDqlW0d0Du0XyqIPlJ_njKtiHf7jdqGz?i z5q*jYO_WsokGrO)%d@&?wF0duA7XV}Ke+K>An7a$kC z^8S^KGfDK8n`Y3g3^hY8Oi-DU#}3s`4b@lw z(pAS_N>FnDS-$v2sYd^tA0lnQUV1t?k5WV@C>B}|UKHL7AgIzzcghuHVD-iLLAl8u8cXNa0~M!I^yT_nf!O>8<_rrgJ} zMeCj?sTfn;rE=bmDqQ@Pj=JyhmdxJAC5o(w?k?|F9CW>`dLGc--{_GZdTWdlHW+z? z8DQ-k?m?!$|8hvbcqiKCC-31P1{WSmN{AKe@Q{P1u#Wj@&s+43w<6r`3H)XOO~}}F zh=Z#!oECG*(9peCy>gL$)tU)~_(@~x@QEauvLdhTLfNucP;_Uw8QEd3)V2ElEPqmq z-IOEpP#SmbtR#+2$hhQ$gH_3*{D6R>;_^XoHw4FcUE6y}FVaJ+l*MTAxevv=@E$q) zk_>a4`z`B{w-MY)S3eBx`wq2gHhGL3bY#fs*Wkw3wXNHjr;^F08bj*%F^&Dn)uJxO z+4f7a2rdt5HWv>xUhSl!U0HS1)vYdu+V*3l@!gqj#P96yryXz%WFyk{Ajt*b0mOv3Fu|G%_wvt48zpn6uZ&rm zCGl4shRh~c4E@~It#cjJN8rA70KS>#DhqixTFtv1Jy|(!W332ypi#w2C7$1h78qv# z0hc#_eEgATi=REcy8L4}G`?3|g z+~((e%9)c##CK)@?%RBuc$W?b(?gVB!Ng`k_i2Zhp+`+AofT%~n|v{wG{>+X;rjEF;iQ36~h9I%t>IE7Zvt z=#LSJ6!NY_vDufF5SCDTfIUd~z{`M3m4aNgQ8)F57{U@ZFNw{j#Hs;YUHJgH!0~|b zK!yN@z^Y5DGlxov`}5prGh1O)S_R8dq&a3*GukCz<%dA? zB5Hm)@Y3XzUlcfYB8JK3dC1P?RO$;A>I?1a3+tBN)h@m3U77*lJHwf%>ZUt7zNZ=t z1!41LVDV+(@M#12w6XcL^;`$$3>ZIbaF0?&?=Q1byWVLdRU~qVl)w}r7eN&vQb5l_ z&BC$)*r3@U*Lsj<&3 zx6qZj3Rg#4k(PmltK+Pos#Z?JIzD_{!R?ZtUIEUV<#9ydHFfa5 zB0J^sUTCt#5RPyql(yb9f=DH-w(m5);b0iIstxqy=WjNUlO=haP}MvZjKbFN+VpzS z;kwxYy$5Df3X_x8m0t~%2Sk}rak5Ms2IGD;HGrP0E8mEmh2vKWumur&sPgg4Egz3Fo($I4{Ae-wWrs!Ct^2K_-zW zVI;97c}=26LK;sLFBlIIPa2ON|F=Ow17lL{rYZ)39%7`=gC3c9eWLyCwl$Xz{mXJ; z90hoxy*}^eisoO>SUO?(NDCz-4iUHs*D4hHtf2hVv)ImmJv}xtEcJ4Wh&*>0qFXk` z=lz^w%l2s)&U7aW&(0a7S1)BLzrOHE`F8RU;!j45ZDgT5sCu5O#{h-)A4}Izyfqp9 z2N2mAlV>`pKS`Vw_~xN_azyT=OtOF7Omu^pr298CZm>U9R*w;oH9ac${w?_B=hO5{HaR0TqKTKx95kD z1$Vi|hf#kj*~em@CmaOvZ<|RASnNm?>7o8y_0@;E?=!~_cQ&%P4a~4OmFedyUl~L# zChM~8C{QnR!cVU$lPKf2R%^hn%@1y-(;Dj(of0!)JV6i$Q%alY6ph25x4dwbn;oGi zU=&JF@GD=KP7=B*>!bF+eAln|bW`{$?*UyJS>)C@9zW!~8f3y)JAY{*rLo0TrYpIv z_%i9F^wY_&@5SX)}dUk|4ZLq zi2PgLleTNAewi`XHsL+syVR}N&QGh|_0PBFUuJS59D`ohDc%z8x7DLXcUz?>=HZ=L z+XSk3a2aa_L9d!!>~o0ie&fzx=-3TifKHfqRZb3A;cLVL8Jbh*b=+I;LLs!4e`|Oz z+K9P_Pk@cUCs6$s+Tbk0Y!a{FHO?KV;R4-{K{uR?>6^$9cs^HWtyf>dI}{y@&xW%z z|Bn6;A$ZSH4-A?Z%2eFOu$Zo3V8d=Ho? z+P8|W)B0#!1z-#Ac)Y@Jbq~JN@CmQYE^!e~n+jPsR^##|HEVdUfd*0lMLd~^vQ!ne zM;MjTAbNpG7W!_)xG_x^j0|45S?w`$_p66AAp^bgh&+K94(k!b^wVmpk)h3`7zXj7 zZg_n?wOoOfi`nr0LazMg8hDopsq5#0h9MG0+Z? z8gsEb;n&%3^M=d*dKar?Md4AW8&HRlIY#sO)kG(-7;?ffDwI68UL}UH&|5kJ{fjZ% z2(CH%CO?G&D!R3_q=^ks+0sQCV|Z*-5>455;Kxniobf!@zMvp`!l^ci6{*mtdARQo z+6c)@y0J>4-~eJ$^cCrxs)oo|0tX0Cj`3(#AJEyZu|28Jqq%4U(zd?zF}(%@69n&M zb>SI;JD1?=hCfK7rOA`Tu~=_#szUQ_d)4&QDgwp#?E&x(E6tzA%~5^S<-vyRQGi>(6%#XS|@;K)YRLqR4OIRl9e=4=LMU3>y(@gaVG zUtOEAK!s~?TJ453ww*42Az)QabzRu*;XpC!#=O+j|0KHovrg-{lk0dv!L8g_pw2uWi2zP}^2HDBh@P$)LrKK$sm@Jdzr)0hrrSHd;cYK$9 z_kKj}M~7a?d>*w}y&r)L{={PVa5FFgaamYJkJe&8%YC&D{iEj+G$ZdZ($$>XEhCLj4c21m=)+pyY$7A+8ui)bD&Cx_8>&bo%tQv# zw`7Mm=jA&ySr~8nSK+j@{BfvCMBTt*;%Z`^dIBs;;REpMgKMlwx?ejKr47F#E|rDyI}*Qwd;6r@>8ueMnk z_xkP{j>`{vYbHEtgAz-(7^8>F1PlbO_r%7?=dFx&%1X55p??W zxT+6fCu-Uvt?%|;i4=0dS?Tv`_#($Q{SeoCZM z$yKe0YP;K3t~`0#-aHm1(Mm1z$(Ct_E)(0Xuw^1*dkgBuf#2@-=mx*;KpBm&nU zyJs;>F*oCcX9##CrUbTM-=PRxO}j7o7NUTSEi>0X92m~w9!ZdeZ;x}cXKlvMjAgJN zgq20fpp&1BOJJje#>+K_ehwYX=a5y-YHp{$6)|ce$MORC+{>%(y(ZTn5N(2C5XUO~ zu(-48SYadfre@OQEp!Y}*|93Wa#2BzF6d&EVQc(M&wa~54#tXS+|vyXGj?Ic*3vvN zO>+**RP_X3e|YQb16W%+R0An*Q9ppa@``G-)oKCJvW$3SlS8E;F;oz$Czb&rBOz{c zG7A*k7>Ma07@LH{TjQ^It^In0)&ba_|Jj!&5`osm)YOUICB_F}CCB1Vzs;ABL3--I zO&?ity@+fkd={T14l+^J!qJiK*P6pzjy<)LQr7r z&}1R$L={X(=cJs(FR3C%AiG5Z_pGNJTxz`hKxe3cM^L_ukqCDcLM2ngV&!^tpa;(j zztqFXg?qPs*!+oa3RMa*OVSXdx@eSC*NeOt;N4P0VN^7o7h7=f;nrH~lRIT|7-Nb! z&!9Ce3;WfcMvR7Nx`_Cov^@!#SNI_^CpKz#6z)^s7{+nxpknB-t# z4k9bU%UYwSQX(PBH9>o8ez7+G#xo+3RSDkh$`}?mQ?iFrqg;MDwi-lP8_!X&wRE_{ zUB>)ZZc-K339ffduaks7uWGLwxAeX9sqR=p^gv311rUp3ebkz(ZgJ3R$mX#d7n!}n zmY*fOtHsqrR9L2c3%x75(#)kib6q!2D2Eq=`KC3WcZP#NWt~=6KdA%Vu<9L7+{#&{ z@B@joJ)6h9Ve*FkZB$tkZN)2Z!P4e9P8JJyBOS;r2cro2NO$e`?oZD(9(2vG32Y2p z$O#e8qwk(H<2Ofam1yvDWFVgx8e7T}^62nW^sfk6 z`TCNh>}}zj*TP6xh!_ld@pI|R%1*TPbF$#mH?Qvs*KZ;#=^z4= zfzc^C2-~v~e6A(tqh4#&OrQ|Lqc0(@K~0Stbcr==?^oSFQ;v4Zdrqu-nCj;BdDTv{ zonXD{PU@$Cd)zRr`r?kjemB-Q*GDSHgZ!!HVdxG1W%%oN2l}`nP+qtxO}V`P%mDi8 zo~v&BVs`(R&MNv#XVt{sSjoxW!I|0E-pTY|w7mZ{RA2njCsF=4-wVB#UL`#jbX*mR zN-4s~t0@Z+M~}!hMYR>*5^o_r%Aj{Z)g)6oL9+`Z^1kTdwY z{mJk+jxjdzU3eRmIK=ur+ssSL{~sE-#Z6oM$uFJ>d
fA!4w4i5iw%omgWYs*UP zv%_RXdm(6b^^abE&J3ahdg|o^=b<8`-+B{wHAaShX*t}Z+kB-#6o|9Qn!#=4rXkP$ zF>+=6q1Vr!NJsBPN5dt(0l5d`LW>sRl4^d@p5C$5)Bj8o2>STtThNdUAxpIN<9Vod zF&b;apsqv6RLTZQ$Hk&^woSG4->zcb;U7eM zAOMZG3JRZ*tAqD$&mVuF;b~U3vhrF7+@#(Wa?);3E1lWdPt)>XVa-*~@Keab>e2Do zE-VN1Q^Fp+(v_slh26)_H&{ln8P#@e`Z=v6Ezx4&X`5DXgM{auCF2s$;9*p?&c!8m zWK>c_>@WDl>&NFO^rV!C{M~`3bluX{;NaHq+t%t5YzzrQ7P%b*&v*2c*`hga7~l literal 0 HcmV?d00001 diff --git a/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx new file mode 100755 index 0000000000000000000000000000000000000000..e888347c3bbd76339fa6a1ab55b4a5f9cc1300bf GIT binary patch literal 11114 zcmeHtg;yNu^7fzu1Q}cd1Hql(65L&bLvVKw?(VKZLU2oPcMT4~9fG_2$L_uNx4YT> z{(^gZ>$s(@#xzz4cU8SCzaJ6f_0^761nT0EhwlN13KN5CA|7Gys4OfP>T&vaxnF zvUb!}cC$5d(582_vIOTsLsDh~AYZQk-}YaufzpH_*)B$q$hG)`&?cSa;#Yn+)c``goD)34T6wSFPJO^S%&zWwbgI{54i zJ$(mcZP>VR_8RKP*%&|!2$r!&rksQztFNqh4IbBi>*n&uvQaF(L*Xi$4VSUr#T^fCQyn1jL(&mA!l<7Ex*<^GNZR+9(J>%6R@zV%{xY4}%L! zJdu0-#8>MqrQv88+;3`K%7T*b?3{qqXtAOr&D=JLsFtm3#DC5?|ipsVJFpnpNs&*>jP&=^9$Lp9`nAp+9=i$!7E`lCYrN zyd4$mBg?+@)~IGV9m;g;W{2-8=|36p3nwaEeu+?jCrKmX92W`{05JYSA(R)*xLPu} z*w|a>+t^tA7Pm@OmSh(gFQ9q8y%m(22(CS;I5Z8v_^^AzE_E8jTPOD z11hIeayGvyo|2{5rJ7MqZ2g5w4n57@Ne z$)i#e)gl${l#htyK~D&96E2e0?|LiKCk`j25V#sz@Zn@U1g3h_UqVnx-4_lI9sc4x z#KJRF9=54Cvy1;lef*#**DwjGijqlR0wl^O1gmaRBQ{?(FY zuApXKFUV%JcuR*){Yp0J z#rFOk+Rf%S9{>%Vd);`19t&_zoM-bJO72RhvX-ShO1JbHeeOAzqB++%U=Z~AVL zV`JG+tD^6g^-fD}INNBwMk{`*iuHWDOd2%{I_AL(MdR$G@?STj?=VEZwck8Ehyw^-0A2pbsi|Kf9h^0kFS_bAfMt(HmU;iLxT1xm|X1eFR zP;*hcRC$rLR0li!Bb#s5vKXW2?D#R7L~R*R@l;NkgoVyahUe zk@!&>`B8P7;e{E0=Z-ILLh|{`FO4q&1`hxS@xq;d#h5=c=s)oW;wAliVc>uFR;nl? z)y)WMdG!>`=#uV?i8|-VKysk6j{-MPO|?Ky%%G?RdD)`I;4Z z9SZ%jgQhSH4f-Rx^akFze%dSyj-NM_ zWVpe3Ur2;68YY5R%tsiV-kLj%y&in=w?oyNK6e312W5WMb#>r0D&wu^2BC#3*iU|L zMC0eU@De;oZh-NfDPo$N4v{Okv*rh58MhIOj=Vd>ErJp$!eZ8U9zl-a;C?Y8Z>l(l zt=!ZmmE$!>!TUj~wuLj=p^IbV&4Iq@m6w(NyU7><2 zM+b)A4@|%L-Hdb#r425$pf;Q7r(osQQBq_mDEd{5`0nfbLw9l<@z;X0qz>Gg_bYXn z+_j4p?aE(_an8gmG!Bz68_0B@FWnz`Zq%(^N`{Aq-IPd+ogDOf~$ZhX9MEBCgl^*+uTwCBsl(s5?*DtLTSA&PV!DzI;v^;~XF zVo*M-oGZt6zpM8oIMk`zT7Lp-@I{kvoc5TusI?%LU|k%F&Cl}ilqPLietW2**S%7C zvvB5CRq%A2^}eFXz+!((EKQT4*8AD@v3jvow0|1{ zQ<fVNC^=+L;%ZPxosl9d4H@*;$dvlzJ`A$G*KMdd^jg6<$e`XQ}2*^O#G(XU+@Z2iYYY*2frczN-O_ zhvKD_yO5zp0BYT;30E*-GsZ#dWy z;m-+#1(E}?fNVfypf$`$T9g~+%>;lbbFy&+rg=QZKg2)9Kfpi1Kf*u5U+~OGnAmDv zGKYt*T+o&Iv%plhQ|J1}((&#ZNbI=HQkvA)76fDt$cUC3Qgul2QnbjHmK)6rL0x3@ zK%I(vUKhR{C%(=1B*^PJ*XZ;Toc$k{MjJlI@S9wWMIhvD>p$G?r#lSUy$1<0eT?#b z>g}k8)cxFH-vRsT$IW~hQy*UP5}s%U=C_%!X^Wntn)M3}JNGiz2edl^=$1z~_j}aK zt2akAaTgjA?q!B8@6U8-dfeZ0ZDa(knSJ{VT1G^971ZUjP=`Oy$pvfRNAX zG@{{mPD_mHP2!p?4r8-!9W`bh$9r2L(KN!!Z{#-!nTSLURHiTFIZ9kPRskdlR$}<( z<0!)yD#{yW4+^OC7t5BmW#L&6A9OcDW~zN--K#DpS(+jE&dJEZ$XUrz$!W`B%Xw1I z?A68$VMDqJUI+gKuYtF~8{qBi7=DVcB*zXD1_dBz5=~!O!@2mb7x+pKYwXc_nz##7 zp|reu_E&)|pFxeya?O|GNc>W;2z1 zq=QmOE3Iuz(@#%G^h^!i>uBjx1oUYYbTd21{{XhLZup5X5fcF*V*9XJLV2Hz#0u}o|<4d37cxo_~0BzI0 zFE6ha758)VWPI;-#)t%%J;MB<0&AJgGQup=lYOqQd6jcrnQ$G-(4??&01011etU4> z!F%?_b%ncXTZ3hv<9pLS>cb!%ksT9e(VG!Dx<=D;GX995>fw`NB9J=2r3kafGf?a2eA3 zTnYPDy`UA4qVgKIU>LQBRN+d@oK628yWusy{T))nV-Qb$GjB|G8?&CbN$%4~_hV3; zmylUoPU(vLvQ44ujJ(TDcz3UvgLxuataE6!flfiDAZMyTCMO6g1il+mAIi?Bo}UNI z8v_vkb)7zhDfgOnl*WNE%CFV}j|pE#omLXSuJ9J`i@O>Bd8vw`2nVDbE6OKN6KqI5 z+b02*f&3(3rWj~(1X8FtC@RAVT#WemNj0DmMWjl+i%a4jSAvn*1fCeF(dTG!Nr}8M z;haE0{6J&`ZH$kr+0PI_C>HG82DsrKN@@9&Tt*?isLtFs2gtth=$h!_meZR{!(SSs zSY82Ap_qJ9_-VmxAYjO=Zm6~glp9QbZsHg?aYRyxILHB?O@4$_M<_3QeW{GNgD>S4 zXGes}+64}yGiGmYvnpaeMrR5$X}=q2mW^@czBkPi0S3||yt5s9_VI^Edo`{V@KYay zoKjjLC5KT=ZyeP*xP2hBTq5yDoP9d0n~Ozp`I|$TX<^BzDdG7{$V7PRSITUK1o92p zXYCBnP+l+}XrMJwXTt;%eW+nnV2cTq155W{wFoG=%ud;hqDTfH_y}d=lKefIir?1+ zcN+8m}1{7?5pkN>fCb$X&dWnH=W0IFcf)E#>zid4Qln+p>_j|F!DH!Nuy%g^9YB)M}N z#}b^#V%qyzAyJwF-BUJPyxKrMRL#`@zO2Qm>T55W2Kl}|Y6Mv|@|V^kNz)uDPo=~~ zGu6A-OSrRmWOj~r`vwCE%zw=f$g zc4M+heyDO~LMvVk{Q8$g6lzlY>>fyD#$gqEkGSA5oQ} zsrB{O6-1<^x&5N&ac{5goKDs5!Vfq0jM!c2iI5qRCmdVLmU;7Cx=mH8+%PLL!s>cj zZLaQz?{0QOb;js-x5iIRG~9VC+3q)hdY|34?ysKzF<+M9^PvrRDNXp`{Z?B4JzsV- zHL@~d_wOE(rkW)SXE`~zVdQ?;AVoTNYt;x)IR*0S7>q@y> z!oB(`Pjb{u9@~_>TqAWtS8?|*HLd9qWJ!!QbHR{fdu36eRL;&dFQZ{aHQQ zF z>`4mKyg@1}pw3WNBS37((fXK2bFbbVE_3cKO5U8*wNlHc5-oj*vKMx^2_qkJ*e)#a z&8I4*2)aCX@etG*gSP`XCd_L*q_QZe7UH6YmKcg=j^b$jLxZ9qMXTWh^EwEKMjV_R*NHc5lgBNlAD^ z$04yUS!*sc&O0wNxL@_^l~troljG=~lsO{~ZKlYazcVi*zs_rLwIv;NW|*z+dJ^2+ zsZ>8|Vmq3abuPc^vw)nqvJyAVOeMv`LK}8^W4Pu-I@MnuAhOVzOSV*@R5P+pj=^sg zkE!;SvvO>&-uKh-qaJ=BW!50iRv%#hU~p5*?28Lb{2nG?KiCN-A=O%{oI998EID}| z-*6tBlb9|cNYjNQW2caLr#GPTvr+rYR5pcBl^4Dw-tdp${u+$fSM&Tz+Ek`{87_;J zsO@gE&~#i!h*x*EskGV7^;&x*T)|M^Li^9KpR^NPiKZ73VhMT8m7ZeuI?IXSQ?bz|%Q)?}w2;bXsTuYp3j2UX>7c~a zheWBmdA1Y9{dtQrf5Dm&wB+xNHjKokQ-dRj=5eRBh*HD!8Zzdp_24lQ)T59E*K-kD`c2j`Dm?dhHzM(w{v#%_$OgJSUq^C zJ)Zi1@hS7%yrsSy%EsEL*g}JyiIXCQ8BbJ zKWQr8|DZ@V^c-}y>WrgS`lMVOR)4ptSaSTdxefwlQs{ZkT35U4)Na;!Z&vN zOraaHv&8lA`PDxac~Fy+iWgpL>dG$>3+Z1$%fZpj(#YYr%Fcn>u=NHTs1KIFw_%!N&2J_(DLYt#`ZVw zk8>q$a2vGHbLl=17vq%G&~Ha68Ci7NIgv<_eE1v_W`Lw!V_&R@nxSfpY7%wah#qV} zEkC3;@~wbzO|4}m!I|7GlvP_%^s;s>kTz?0r942{bpT*~2*dHs+$Ptf+BSlRYlMp>Pm`lrm6nLU14-@JZS)}KNW%HlaRH1YU3 z2Afdwd49L<#C#!Bh`xbM>JrMH)#Xf3VZj-sgQW3;6Cb$7w1iMo;+=bOjU9^$Q{R7( zovS6g4;oWzO7ElESq8oK&l6#eW5(T-kBv{;WJ<%ES3?5|+^odm@w}e=sS4pRIBQx$ zM;y8;ZJH~LkoSJ3bv~(*0-~?32Uh4)W{aZh{_UEn?Sy;Q}fYW8SSf^Y-| zUTxlvxz&?K(uuZY*_t?+g6ydz!uJTTJIsy5RpV6!rU{FakYzBph>Ra>II5jkXZ(AJ zIKuw;pLHpGD7Qz(ZSa(GkmG8FOk=7&54v<-((dEJ5MD6eVc!%VNtXrre=<&1iJx!#->b>W^6DB z3>>0SWQUAk+tY6&ye4Lwt6DgY1@pe+>h5?BA>!@}CS1Z++4l#x41fx+IA`A_@LAu) z6;?N(Am*%cLiOYzAV(i93a-1-rg=i0UWqVwE06{X3ACCLa$t}`hg4+fq~pOC=PK+v z6`af`$|p5=_wM|RPUo}XTYB<3zdkHTZxcO9#vf$CM8VK)=dK90A7NExu_7c&6SSc~ z%3!8|S!VRC!H*apd-C0M?8*V}8b1nGnjIygsNKNAJhx@nKeF;@+Q(QA8cqB@T_ncs#@0#45 zVF`~r{kjBH%Q>nd8c8<|DK&Vs3u(LR=9%G}lYti|l}&?BGEdBD5pyPxkLkmVNM#6) z==JLBThV}`o@_%_&P;kM^<8vcn!Cx0&BW=OLWR==oN9@R3FdpYQg5OaS%&iBLTi#i zO(uT3Zd^Tt!T}X69_)&qT2~t0jP-oiXOH4As{qZkvn;A!(9aIML7|eZ}2$+JjORs&)63Oa{{#__MYtu+wM`98E4sSo)6#>Iw zJvZ+esmy=(_U!Q|2v@D7j)}{{=O*bckCke3O#al`W{ipx6LYd`oQG5js7=jjH9has zMF!l5)ekaUcpb=5CjW@8gN)c^9C z$eZ_x%ZuBK?@2xmX~UMXVA;${cmMXo>iXg=Fak`Q@y42#^ZTbXOwv2xsfQ#FV?^_I z#731;_u3DSS)$XSG0_tsmh3ceziqRr9-f{5rh5E5N8=c*Hymv{e`A(y?Up)lNj&uW zhVF-4R$JiH<8hx{`L^n}GnD~3?o_JVhs;Zxmo@p9B||{cy+o>io@)Hh%Khi~4>OMP zQhycj*ZHge0Dn6sztH1P(^$U(f1OGB1KRvj3i@S2ILy9K$KUTAT74Yl3#2*4cgue^;Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ +2dda1d801f63"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, + 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ +14a272e65d1f"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ +53babaa73a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ +7d040d3b48f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ +63ec36d318ad"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ +c117a27ff3e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ +598d0b6835be"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ +45830eedfe9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ +303d815946e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ +1a175f609f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918493065908413`*^9, + 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ +4de4791db2f4"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, + 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ +749729cd7104"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ +c889dba5c0d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ +23ddab00799c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ +31d165f1571c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ +e4dea0353ed0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ +547e3a6fa152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ +c3e0f6ab8836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918494889040737`*^9, + 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ +e20e260dbdcb"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, + 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ +c31719ef3a6b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ +8a461d652ab4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ +6a7de047241d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ +ae1cb915c656"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ +0895c02ffd8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ +bead95265db8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ +f19508c6d2f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849569404436*^9, + 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ +346c5f5ac532"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/heavy_case/h____gid_Qw2.nb b/templates/heavy_case/h____gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/templates/heavy_case/h____gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ +5e950c758893"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, + 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ +e7a6896afd10"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ +4493-2440-9c51-9fca28ce324b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ +bc75-4047-98f0-7a0dede3f8a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ +3d78ebb0f21b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"42c1a263-2456-664a-bb33-c5fe841cb412"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ +12d8b19f0936"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d3cb6fbc-3803-0541-80d1-8cab47341c44"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d8687e0f-2f42-0543-a749-78a1ff3c9572"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ +c578eb57eb6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ +562f8b3faecd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a2ecd22c-b766-5347-9e03-9d459620be75"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ +77ebd1a3e048"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ +8e83e9537fdc"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56921c73-2b67-0e4a-9808-5f61de992c7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ +3471356a3614"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1795c3b9-0182-224c-b986-6414d6712c04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c3b31753-a67f-9b45-b822-068e1df11f68"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ +286954db37c5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, + 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ +dd2997d3499c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ +22d7-2843-88e3-f607b95c8af9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"def6b331-c871-b04d-a16e-4fc00b03d009"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ +6af3-374f-9eea-9c2b6faaaf4a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6c8676e-4601-144e-b83c-769e22949175"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ +05d6af1a6e52"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0b8c0718-41d2-4542-8afe-212a15805650"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ +f69c33a31448"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b6f0ccc2-ff83-124b-a341-e143319c7670"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ +194fae57c34e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7797a546-4085-124a-83da-5f3c472cdc4c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ca7472ca-7b27-a54a-84a1-e603fa592207"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ +49e8ffb5e8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ +494cdae35e56"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b9265795-17b8-4e47-bd29-fee31586537e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"072fb53f-7116-0f41-a298-6891351a3192"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"01995149-3665-fe4e-b326-b20429031afd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"52cff8eb-0c77-c944-a54f-e282b00ce766"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ +062a3c04ed96"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cb5a1193-7562-6446-a279-d9f6295d156e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ +3382e7679ba8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4cd45900-7eb0-6b4b-830a-a339e8117392"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ +2462b23d6249"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"61220452-df6a-154e-8b5c-fecd0ab287a1"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, + 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ +e661a25a7ba1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ +7798-8b45-a769-075ac4b3983f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ +00a8-f540-98a0-89164ac4bae9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ +af0307420662"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b82c1933-5313-1d4c-a858-68be8f118333"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ +34313c6ec04d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ +ad38cf07d634"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9c6ce535-b42f-3c43-a89e-eda48c04121e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ +8b4ad9ffca61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ +6a3bc399953c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"71d4e039-c2b8-d74d-819a-80d2051e4273"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"63625e13-15ef-1f45-89dc-998a1b63a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ +{-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ +5dd8190b0268"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ad8c79e-9570-a44d-b593-07aa87056e21"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ +98d71f8a8458"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c516c31a-74b4-f24d-a16a-678221cde87e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5c50b555-9ebe-f94d-801f-34634555f622"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ +57c1fe1d0585"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbafd11a-4be0-b541-81e4-e62191ae7695"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/heavy_case/h____osc_Qw1.nb b/templates/heavy_case/h____osc_Qw1.nb new file mode 100755 index 0000000..0b16837 --- /dev/null +++ b/templates/heavy_case/h____osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, + 3.991567297688427*^9}},ExpressionUUID->"40a7803b-9334-ef42-a720-\ +539edfcf67a8"], + +Cell[BoxData["252"], "Output", + CellChangeTimes->{3.9913196497381973`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.991319786533783*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + +Cell[BoxData[ + RowBox[{"-", "2.5634426229508196`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, + 3.9919752200326233`*^9}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9},ExpressionUUID->"81b490c7-39d4-f348-8914-\ +f54b23f74296"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + +Cell[BoxData[ + RowBox[{"-", "32.27220689122579`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + +Cell[BoxData[ + RowBox[{"-", "81.2532555132978`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + +Cell[BoxData[ + RowBox[{"-", "38.89688349410641`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + +Cell[BoxData[ + RowBox[{"-", "199.04976850122156`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + +Cell[BoxData[ + RowBox[{"-", "0.43849259375441973`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + +Cell[BoxData[ + RowBox[{"-", "0.08210730792808285`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + +Cell[BoxData[ + RowBox[{"-", "10.968150500985438`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + +Cell[BoxData[ + RowBox[{"-", "30.737279670206195`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + +Cell[BoxData[ + RowBox[{"-", "113.55836273207095`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991799412462593*^9},ExpressionUUID->"8ee71d5b-854f-5949-88a2-\ +843ffd08641f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184866880085*^9, + 3.9918486688048573`*^9}},ExpressionUUID->"13f65097-48a8-0b48-8f26-\ +bfa63ff56738"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},ExpressionUUID->"4237f61c-7340-ae4e-a030-\ +5501c3a85c24"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.99132042159643*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},ExpressionUUID->"8a758118-d07d-d243-b7d7-\ +f8e668175458"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, + 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { + 3.9920915619364376`*^9, 3.9920915885645847`*^9}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { + 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, + 3.992091588571615*^9}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, + 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { + 3.9920915619686337`*^9, 3.992091588596325*^9}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { + 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, + 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { + 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, + 3.9920915886284447`*^9}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, + 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { + 3.992091562006651*^9, 3.992091588636162*^9}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { + 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, + 3.992091588657053*^9}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { + 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, + 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 1, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 2, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231788826`*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 83, 3, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423191887*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320423200884*^9}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},ExpressionUUID->"0f581ffd-dfa8-e845-a733-\ +ca6cc08b08a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 5, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 6, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132042625132*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 84, 7, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426261322*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320426270418*^9}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},ExpressionUUID->"1834f328-2171-004d-99c2-\ +8b70b5354bda"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422974, + 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7142433994369213}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS +ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ +++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv +2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq +8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i +l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M +P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 +w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os +bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e +aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L +WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV +ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY +bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq +cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X +Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 +tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL +W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW +zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 +PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI +KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O +SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA +F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 +LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP +vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 +duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn +z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 +d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 +t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid +SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 +bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre +K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV +69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN +xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg +AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d +d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 +ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn +l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX +Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx +e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x +7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe +l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg +4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o +mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas +IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W +JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb +HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ +aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS +KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo +QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ +kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA +ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF +nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 +kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA +rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ +wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk +QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW +KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG +O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn +1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 +k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 +5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 +t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 +iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ +lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU +vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh +kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx +Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ +WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM +1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H +1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ +RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm +S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL +OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I +MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ +fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l +9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO +xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV +nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj +ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o +HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k +U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C +ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 +LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV +Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V +qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 +D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt +p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ +qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w +rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 +iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 +7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S +pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi +itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV +//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f +rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD +YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV +IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U +0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K +MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 +U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 +a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 +2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE +Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 +x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z +sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU +DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL +hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf +oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ +hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC +fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B +7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT +4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT +AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 +iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv +powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC +xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu +yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J +5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ +VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os +vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ +zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy +Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl +KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN +nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH +JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do +338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag ++t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN +yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP +G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ +hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B +49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ +XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 +KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU +m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi +k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw +/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov +evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg +D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ +rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT +xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 +N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU +mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ +5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 +TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg +ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 +YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir +A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 +MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl +WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 +z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E +XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw +GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit +DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail +Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 +qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 +krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 +wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv +ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw +cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM +yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd ++05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy +RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ +ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV +ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS +eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s +lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz +mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI +q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 +ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j +LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD +MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz +/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ +cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn +HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 +kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o +woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ +YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 +9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD +gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU +I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq +P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i +UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX +Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 ++kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX +PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA +HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd +RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH +xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB +Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 +AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd +rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 +o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk +cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH +Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU +Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 +OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz +aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO +h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 +c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA +73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h +AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn +jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc +f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW +WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M +U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof +HbLGog== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ +0a5eeac170a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 17, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042538757`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229043127804`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU +RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER +/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp +zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a +OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf +9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 +Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy +/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE +YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ +BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP +isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx +ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv +NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj +bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu +yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W +NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ +/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 +6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue +9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 +M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe +bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx +G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p +v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA +rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o +YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm +flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR +Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD +4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 +K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu +z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 +alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR +p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK ++h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy +PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB +98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU +hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K +CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR +XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ +8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z +uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x +8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 +C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN +J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS ++P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT +lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g +zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl +17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA +oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE +Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz ++WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ +g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW +Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 +u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ +zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN +1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO +bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l +NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley +UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj +bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG +wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO +Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh +oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB +9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE +Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE +jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU +wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh +hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV +TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N +6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il +mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E +kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV +wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM +lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka +XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E +9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn +gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC +MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae +1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 +JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL +h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD +eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu +igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH +LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG +cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o +ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e +tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p +znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb +QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X +3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP +U0FU/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 90, + 21, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 22, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132366476486*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 90, 23, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236647877655`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236648078594`*^9}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ +540622282b2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 25, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 26, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765679016`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 27, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323676587904*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236766039066`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ +4bb381db84df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 29, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 30, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884141064`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 31, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323688443001*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236884570007`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ +1b0781de8eeb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 33, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 34, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698943981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 35, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698971981*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698986994*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, + 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ +bf0dbc996ac3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ +6ffa36275fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 109, 37, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 38, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323707545618*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 109, + 39, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075757256`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075926247`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ +1ab9142a9a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 110, 41, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 42, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162070637`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 110, + 43, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323716227171*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237162481613`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ +ff25938e6592"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq +kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf +yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 +F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb +d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo +zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 +oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 +VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 +wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr +bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 +W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW +gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF +PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b +nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo +uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 +RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H +5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh +gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS +PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE +MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr +02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey +IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l +PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM +sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord +9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y +caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 +0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s +rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx +zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U +oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG +0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii +9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 +oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH +bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth +9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k +OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 +6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o +d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP +5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 +gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp +6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 +dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc +GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY +5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc +J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 +2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt +zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l +tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 +djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa +J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL +mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm +mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY +EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ +XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg +9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ +OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC +iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD +23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 +BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s +UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ +otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 +XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro +tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y +2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK +2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU +agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s +tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL +24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du +SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 +P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ +g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n +F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH +76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou +j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt +FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 +jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc ++bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5082122808512888}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 112, 46, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461217346`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 112, 47, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461427383`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246159645*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506856045*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068640423`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ +122296a3d634"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 61, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 62, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513053705*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 63, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130617065`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326513069849*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ +9c68738afe07"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 65, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 66, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520226103*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 67, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265202341022`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520242243*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ +766f96e6af5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 119, 69, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 70, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264535427`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 71, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264615555`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326526468542*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917998836260815`*^9, + 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ +14ef82ef0962"], + +Cell[BoxData["0.13787921511838797`"], "Output", + CellChangeTimes->{3.991326529975149*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, + 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ +0f56a212e9c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ +a97b5c6c44f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 135, 73, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 135, 74, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304013824`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 75, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304095325`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265304175396`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ +bed1f30b804b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 136, 77, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 136, 78, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340202503`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 79, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340282536`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340354958`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ +eac61b5b75d3"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT +UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx +8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog +/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ +9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN +x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj +34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo +8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 +EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp +rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX +e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 +2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP +7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa +UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y +DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD +ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 +IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW +UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT ++YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj +2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I +2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA +WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn +VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV +oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 +YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az ++HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF +doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog +My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 +bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB +ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 +NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm +7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT +EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 +m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH +8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 +ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh +ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d +rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf +O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 +YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 +xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK +mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ +Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT +jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP +79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH +mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd +HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 +ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 +XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z +8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ +FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh +2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 +6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 +6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e +BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC +7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX +xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 +ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF +9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh +t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD +wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo +kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb +hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO +C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws +XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw +y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 +F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc +RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF +ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y +tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG +CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ +W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 +Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no +73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly +l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6007907022525477}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 95, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097784023`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909786396*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ +22c641e38d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 97, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 98, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916018362*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 99, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279160263577`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916034359*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ +4f0fc7048689"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 101, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 102, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327922975607*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 144, + 103, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229836063`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229916077`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ +32244819d42b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 105, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 106, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928864023*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 145, + 107, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928871004*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928878006*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991800029528055*^9, + 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ +f0a7464dc747"], + +Cell[BoxData["0.08333108480569339`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[994, 36, 179, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1176, 42, 152, 2, 25, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1365, 49, 147, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1515, 55, 152, 2, 25, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1704, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[1882, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2071, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[2331, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2536, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[2670, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2861, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3140, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3344, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[3604, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], +Cell[3786, 130, 147, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[3936, 136, 147, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[CellGroupData[{ +Cell[4108, 144, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[4240, 148, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4428, 155, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[4560, 159, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4748, 166, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[5308, 187, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5514, 194, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[6074, 215, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6279, 222, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[7774, 272, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7978, 279, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[9312, 325, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9534, 333, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[10868, 379, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11092, 387, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[12587, 437, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12790, 444, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[12924, 448, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13112, 455, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[13248, 459, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13438, 466, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[13575, 470, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13767, 477, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[13989, 483, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14194, 491, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[14331, 495, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14523, 502, 248, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[14774, 509, 152, 2, 25, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14963, 516, 228, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[15194, 523, 152, 2, 25, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15383, 530, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[15605, 536, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15793, 543, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[16146, 555, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16353, 562, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[16706, 574, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16929, 582, 975, 27, 92, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[17907, 611, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18113, 618, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[18315, 623, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], +Cell[18481, 628, 250, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[18734, 635, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[18891, 640, 250, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[19144, 647, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[19301, 652, 251, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[19555, 659, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[19712, 664, 275, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[19990, 671, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[20145, 676, 222, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[20370, 683, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[20525, 688, 226, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[20754, 695, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[20911, 700, 229, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[21143, 707, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[21299, 712, 198, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[21500, 718, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[CellGroupData[{ +Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[41697, 1219, 19748, 489, 1579, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[61448, 1710, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61653, 1717, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[81404, 2202, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[81624, 2210, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[104161, 2765, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104380, 2773, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[126918, 3328, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127140, 3336, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[152634, 3964, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152855, 3972, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[152988, 3976, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153176, 3983, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[153309, 3987, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153497, 3994, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[154644, 4035, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154848, 4042, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[155892, 4079, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156113, 4087, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[157260, 4128, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157466, 4135, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[157577, 4138, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157783, 4145, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[157894, 4148, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158118, 4156, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[158229, 4159, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158451, 4167, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[158562, 4170, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158767, 4177, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[158877, 4180, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159083, 4187, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[159193, 4190, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159398, 4197, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[159898, 4215, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160121, 4223, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[160621, 4241, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160842, 4249, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[162633, 4311, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162838, 4318, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[163942, 4356, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164165, 4364, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[165986, 4427, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166189, 4434, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[167823, 4489, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168029, 4496, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[169663, 4551, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, Open ]], +Cell[169845, 4556, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[169995, 4562, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[170151, 4567, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[170301, 4573, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[CellGroupData[{ +Cell[170480, 4580, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[171780, 4624, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171988, 4631, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[172899, 4664, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173106, 4671, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[173993, 4703, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174203, 4710, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[174764, 4731, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175368, 4745, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[176036, 4769, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176627, 4783, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[176800, 4790, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177414, 4804, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[177653, 4812, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178204, 4825, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[178430, 4833, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179016, 4847, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[179200, 4854, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179804, 4868, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[185862, 5055, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186447, 5069, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[186818, 5080, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[CellGroupData[{ +Cell[187871, 5105, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[188428, 5125, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188631, 5132, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[189253, 5154, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189458, 5161, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[189627, 5167, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189831, 5174, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[190000, 5180, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190203, 5187, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[190383, 5193, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190589, 5200, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[190769, 5206, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190974, 5213, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[197028, 5399, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197236, 5406, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[197603, 5416, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197806, 5423, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[203927, 5611, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204134, 5618, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[204501, 5628, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204706, 5635, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[207368, 5724, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207574, 5731, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[210176, 5817, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210382, 5824, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[214093, 5943, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], +Cell[214277, 5948, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[CellGroupData[{ +Cell[214440, 5955, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[216495, 6016, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +Cell[217054, 6030, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +Cell[217616, 6044, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +Cell[218178, 6058, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218838, 6077, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[220895, 6138, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[221454, 6152, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[222013, 6166, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[222575, 6180, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[223030, 6192, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223233, 6199, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[225174, 6254, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245437, 6637, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[247534, 6699, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[248034, 6712, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[248538, 6725, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[249044, 6738, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[249502, 6750, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], +Cell[293148, 7515, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[293383, 7523, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[CellGroupData[{ +Cell[293617, 7532, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[293832, 7540, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294037, 7547, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[295854, 7602, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[296362, 7615, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[296874, 7628, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[297385, 7641, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[297843, 7653, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320279, 8072, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[321894, 8121, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[322478, 8135, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[323065, 8149, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[323658, 8163, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[324116, 8175, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324322, 8182, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[326574, 8248, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[327134, 8262, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[327697, 8276, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[328260, 8290, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[328718, 8302, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328924, 8309, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[331148, 8375, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[331705, 8389, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[332268, 8403, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[332831, 8417, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[333289, 8429, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333495, 8436, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[335721, 8502, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[336279, 8516, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[336840, 8530, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[337403, 8544, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[337859, 8556, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338063, 8563, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[338279, 8571, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], +Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[338735, 8585, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[339292, 8605, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339496, 8612, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[339665, 8618, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339871, 8625, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[340055, 8632, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340265, 8640, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[346323, 8827, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346532, 8835, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[346903, 8846, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347110, 8854, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[353235, 9043, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353447, 9051, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[353818, 9062, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354024, 9070, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[356690, 9160, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356900, 9168, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[359506, 9255, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359714, 9263, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[363429, 9383, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363637, 9391, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[365692, 9452, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[366267, 9466, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[366843, 9480, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[367424, 9494, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[367884, 9506, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368093, 9514, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[370150, 9575, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[370725, 9589, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[371303, 9603, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[371882, 9617, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[372342, 9629, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372549, 9637, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[374582, 9694, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394996, 10083, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[397117, 10145, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[397619, 10158, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[398126, 10171, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[398636, 10184, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[399094, 10196, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], +Cell[421490, 10614, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[421667, 10619, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[CellGroupData[{ +Cell[421901, 10628, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[423520, 10678, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[424117, 10692, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[424714, 10706, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[425315, 10720, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[425775, 10732, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425983, 10740, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[428233, 10806, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[428808, 10820, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[429384, 10834, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[429965, 10848, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[430423, 10860, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430632, 10868, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[432856, 10934, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[433429, 10948, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[434005, 10962, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[434586, 10976, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[435044, 10988, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435253, 10996, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[437477, 11062, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[438052, 11076, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[438630, 11090, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[439211, 11104, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[439669, 11116, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439879, 11124, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[440095, 11132, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], +Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[440552, 11147, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[441113, 11168, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441323, 11176, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[441496, 11183, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441704, 11191, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[441888, 11198, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442098, 11206, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[448156, 11393, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448368, 11401, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[448739, 11412, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448946, 11420, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[455071, 11609, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455283, 11617, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[455654, 11628, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[455863, 11636, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[458529, 11726, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458739, 11734, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[461345, 11821, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461553, 11829, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[465268, 11949, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465476, 11957, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[467531, 12018, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[468102, 12032, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[468677, 12046, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[469254, 12060, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[469714, 12072, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469923, 12080, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[471980, 12141, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[472551, 12155, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[473126, 12169, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[473703, 12183, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[474163, 12195, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474371, 12203, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[476404, 12260, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496401, 12640, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[498522, 12702, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[499021, 12715, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[499525, 12728, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[500033, 12741, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[500491, 12753, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[522227, 13159, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[522411, 13164, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[522643, 13173, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[524262, 13223, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[524854, 13237, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[525445, 13251, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[526042, 13265, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[526500, 13277, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526710, 13285, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[528959, 13351, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[529528, 13365, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[530101, 13379, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[530678, 13393, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[531137, 13405, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531345, 13413, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[533569, 13479, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[534141, 13493, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[534715, 13507, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[535293, 13521, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[535754, 13533, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535962, 13541, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[538188, 13607, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[538758, 13621, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[539332, 13635, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[539908, 13649, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[540367, 13661, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540577, 13669, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[540791, 13677, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +} +] +*) + diff --git a/templates/heavy_case/h____osc_Qw2.nb b/templates/heavy_case/h____osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/templates/heavy_case/h____osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ +6f058773310c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, + 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ +c82e80965ca9"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ +c44fbe83a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ +656c90598e75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ +62296271f174"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ +2171e7786920"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ +09454f88e7f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ +e19335f7a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ +fb8d284b16bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849803549658*^9, + 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ +f67bfdbd9bc7"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, + 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ +e87abbd4c41c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ +7e9487f745c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ +18c538c3321c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ +a45df2eabf0c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ +30286a178ca1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ +fc6fb6cd41f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849908545643*^9, + 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ +684ff23ed035"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, + 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ +85227a6e6b51"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ +65328572e509"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ +aa229443ac14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ +9a77a5dc787c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ +2e1269faf5ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ +93b70f20e7f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ +cdce838d9efe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ +533b19d33de6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918500011025047`*^9, + 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ +cedeeeb0247a"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/heavy_case/h____pr_Qw1.nb b/templates/heavy_case/h____pr_Qw1.nb new file mode 100755 index 0000000..14330be --- /dev/null +++ b/templates/heavy_case/h____pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ +406cf54e52d1"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, + 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ +7bcc4af89c62"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ +1a154ab4a709"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991848926103155*^9, + 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ +b231aa8028b9"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, + 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ +0ec5d19a7879"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ +3e066daf15d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ +dd23af9a4471"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ +3cf1fdaf28d9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ +4070462057d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ +7a397847208f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ +f1f0210d6caf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ +d3e8d1574bcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918490375675926`*^9, + 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ +76bfd8e40ccb"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, + 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ +6604b8708636"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ +804123b5ccd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ +b799ae260294"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ +7fa9a2a651b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ +0d2700971836"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ +5a08f479e656"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ +ed18c097f8c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918491594691143`*^9, + 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ +6d96abe14e67"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/heavy_case/h____pr_Qw2.nb b/templates/heavy_case/h____pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/templates/heavy_case/h____pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ +299085c765cc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, + 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ +8fab318cd4b7"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ +4265c9fafb97"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991850221900238*^9, + 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ +781173809e57"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, + 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ +092e912c15e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ +9afb90e551d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ +e3924f732df2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ +56c89a9b7467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918503106317043`*^9, + 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ +2a98ba29b602"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850318596199*^9, + 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ +68452b971319"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850325611994*^9, + 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ +b41cb2f3fa92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.99185033265069*^9, + 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ +aca0f3e8a35b"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, + 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ +a3711ba632a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ +cf1adc0753dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ +97489285cc9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ +5ac1cacd7190"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ +0aac70483e3c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ +53cfa72184b4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ +07bad9ba3e82"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"566a849f-fc85-4d42-a545-a46d44cf7346"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ +f29bb610eb30"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/heavy_case/h____фитирование.nb b/templates/heavy_case/h____фитирование.nb new file mode 100755 index 0000000..ea258a0 --- /dev/null +++ b/templates/heavy_case/h____фитирование.nb @@ -0,0 +1,19504 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 949085, 19496] +NotebookOptionsPosition[ 938717, 19312] +NotebookOutlinePosition[ 939139, 19329] +CellTagsIndexPosition[ 939096, 19326] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[7]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, + 3.9921627427606335`*^9}},ExpressionUUID->"f25944e3-b412-7146-ac6d-\ +f008d8c60ab5"], + +Cell[BoxData["236"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, + 3.9919730324857025`*^9},ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-\ +1f910c97a298"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5576271186440679`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["6.525262540876552`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9},ExpressionUUID->"5a7643d0-24aa-4445-a07d-\ +8c03ae610a22"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9},ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-\ +b6cc52ad8d72"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3", ",", "10"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.8911371422921853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[33]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.7724483356680106}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643389546776`*^9, 3.9919652326803303`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.9983911300932561}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.7724483356680106}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[39]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964380582947*^9, 3.9919653530989933`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"141498.48776203764`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9}, + CellLabel-> + "During evaluation of \ +In[40]:=",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, + 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, + 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, + 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, + 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, + 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, + 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, + 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, + 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, + 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, + 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, + 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, + 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, + 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 13}, {0., 1.01270012148501}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, + 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, + 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, + 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, + 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, + 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, + 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, + 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, + 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, + 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, + 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, + 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, + 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, + 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, + 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, + 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, + 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, + 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, + 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, + 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, + 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, + 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, + 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]] +}, +WindowSize->{1428, 741.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1468, 46, 97, "Output",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3236, 109, 720, 20, 61, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3959, 131, 863, 25, 71, "Output",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4859, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6327, 204, 2559, 75, 146, "Output",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8923, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10606, 334, 2758, 81, 146, "Output",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13401, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15247, 475, 3728, 111, 121, "Output",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19012, 591, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21095, 652, 4797, 140, 121, "Output",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] +}, Open ]], +Cell[25907, 795, 153, 3, 28, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26085, 802, 330, 6, 28, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26418, 810, 277, 4, 32, "Output",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26732, 819, 253, 6, 28, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[26988, 827, 276, 4, 32, "Output",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27301, 836, 176, 3, 28, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27480, 841, 250, 3, 32, "Output",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27767, 849, 258, 7, 43, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28028, 858, 263, 3, 32, "Output",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28328, 866, 132, 2, 28, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28463, 870, 252, 3, 32, "Output",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28752, 878, 277, 6, 28, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29032, 886, 266, 3, 32, "Output",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29335, 894, 258, 7, 28, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29596, 903, 262, 3, 32, "Output",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] +}, Open ]], +Cell[29873, 909, 295, 6, 28, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30171, 917, 299, 6, 28, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[CellGroupData[{ +Cell[30495, 927, 129, 2, 28, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[30627, 931, 248, 3, 32, "Output",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30912, 939, 129, 2, 28, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31044, 943, 245, 3, 32, "Output",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31326, 951, 1965, 50, 117, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[33294, 1003, 31761, 569, 237, "Output",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] +}, Open ]], +Cell[65070, 1575, 128, 3, 28, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[65223, 1582, 2276, 59, 68, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[67502, 1643, 5393, 79, 107, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], +Cell[72898, 1724, 339, 7, 32, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73274, 1736, 2168, 58, 68, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[75445, 1796, 4376, 63, 101, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], +Cell[79824, 1861, 297, 7, 32, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80158, 1873, 302, 5, 28, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[80463, 1880, 203, 3, 32, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80703, 1888, 307, 5, 28, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[81013, 1895, 235, 4, 32, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[81285, 1904, 2521, 63, 139, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[83809, 1969, 107321, 2284, 237, "Output",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191167, 4258, 161, 3, 42, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[191331, 4263, 138703, 2809, 237, "Output",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330071, 7077, 911, 25, 60, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[330985, 7104, 45788, 799, 237, "Output",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376810, 7908, 2363, 61, 68, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[379176, 7971, 5452, 79, 110, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], +Cell[384631, 8052, 314, 6, 32, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384982, 8063, 226, 4, 28, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[385211, 8069, 175, 2, 32, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385423, 8076, 252, 4, 28, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[385678, 8082, 177, 2, 32, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385892, 8089, 981, 26, 61, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[386876, 8117, 111871, 2376, 237, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498784, 10498, 163, 3, 42, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[498950, 10503, 157319, 3132, 237, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], +Cell[656284, 13638, 238, 4, 42, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[656547, 13646, 773, 22, 60, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[657323, 13670, 18986, 357, 238, "Output",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[676346, 14032, 2162, 57, 68, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[678511, 14091, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[679348, 14108, 317, 6, 32, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[679702, 14119, 250, 4, 28, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[679955, 14125, 177, 2, 32, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680169, 14132, 249, 4, 28, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[680421, 14138, 179, 2, 32, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680637, 14145, 2560, 64, 161, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[683200, 14211, 23768, 514, 237, "Output",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707005, 14730, 165, 3, 42, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[707173, 14735, 41611, 830, 238, "Output",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[748821, 15570, 851, 24, 60, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[749675, 15596, 39726, 699, 237, "Output",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[789438, 16300, 2333, 60, 87, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[791774, 16362, 4044, 60, 95, "Message",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], +Cell[795821, 16424, 317, 6, 32, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796175, 16435, 251, 4, 28, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[796429, 16441, 179, 2, 32, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796645, 16448, 252, 4, 28, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[796900, 16454, 177, 2, 32, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[797114, 16461, 2844, 72, 140, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[799961, 16535, 49805, 1052, 237, "Output",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[849803, 17592, 204, 4, 63, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[850010, 17598, 88691, 1711, 237, "Output",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]] +} +] +*) + diff --git a/templates/heavy_case/rename.bat b/templates/heavy_case/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/heavy_case/rename.bat @@ -0,0 +1,47 @@ +@echo off +chcp 65001 > nul +if "%~1"=="" ( + echo You must specify the name prefix >&2 + echo E.g. prefix "my_prefix" : >&2 + echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 + exit /b 1 +) else ( + if exist "h____фитирование.nb" ( + rename "h____фитирование.nb" "%~1_фитирование.nb" + ) else ( + echo skipped "h____фитирование.nb" due to absence + ) + + if exist "h____pr_Qw2.nb" ( + rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" + ) else ( + echo skipped "h____pr_Qw2.nb" due to absence + ) + if exist "h____pr_Qw1.nb" ( + rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" + ) else ( + echo skipped "h____pr_Qw1.nb" due to absence + ) + + if exist "h____osc_Qw2.nb" ( + rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" + ) else ( + echo skipped "h____osc_Qw2.nb" due to absence + ) + if exist "h____osc_Qw1.nb" ( + rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" + ) else ( + echo skipped "h____osc_Qw1.nb" due to absence + ) + + if exist "h____gid_Qw2.nb" ( + rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" + ) else ( + echo skipped "h____gid_Qw2.nb" due to absence + ) + if exist "h____gid_Qw1.nb" ( + rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" + ) else ( + echo skipped "h____gid_Qw1.nb" due to absence + ) +) diff --git a/templates/heavy_case/rename.zsh b/templates/heavy_case/rename.zsh new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/heavy_case/rename.zsh @@ -0,0 +1,47 @@ +@echo off +chcp 65001 > nul +if "%~1"=="" ( + echo You must specify the name prefix >&2 + echo E.g. prefix "my_prefix" : >&2 + echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 + exit /b 1 +) else ( + if exist "h____фитирование.nb" ( + rename "h____фитирование.nb" "%~1_фитирование.nb" + ) else ( + echo skipped "h____фитирование.nb" due to absence + ) + + if exist "h____pr_Qw2.nb" ( + rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" + ) else ( + echo skipped "h____pr_Qw2.nb" due to absence + ) + if exist "h____pr_Qw1.nb" ( + rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" + ) else ( + echo skipped "h____pr_Qw1.nb" due to absence + ) + + if exist "h____osc_Qw2.nb" ( + rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" + ) else ( + echo skipped "h____osc_Qw2.nb" due to absence + ) + if exist "h____osc_Qw1.nb" ( + rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" + ) else ( + echo skipped "h____osc_Qw1.nb" due to absence + ) + + if exist "h____gid_Qw2.nb" ( + rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" + ) else ( + echo skipped "h____gid_Qw2.nb" due to absence + ) + if exist "h____gid_Qw1.nb" ( + rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" + ) else ( + echo skipped "h____gid_Qw1.nb" due to absence + ) +) diff --git a/templates/light_case/l___gid_Qw1.nb b/templates/light_case/l___gid_Qw1.nb new file mode 100755 index 0000000..4e19267 --- /dev/null +++ b/templates/light_case/l___gid_Qw1.nb @@ -0,0 +1,10951 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 479918, 10943] +NotebookOptionsPosition[ 454530, 10559] +NotebookOutlinePosition[ 454954, 10576] +CellTagsIndexPosition[ 454911, 10573] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918455833864365`*^9},ExpressionUUID->"e6c462cd-8982-3c4a-8614-\ +a4032c2a753f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, + 3.9918455862781773`*^9}},ExpressionUUID->"abfd70d0-05dc-ae40-8117-\ +a301872389cf"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918455848875866`*^9},ExpressionUUID->"ab6f3c19-7b16-eb44-924b-\ +0479fa42666f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, + 3.991845587331728*^9}},ExpressionUUID->"6e63ff1c-fb16-304a-8e59-\ +6a9d82a9fa7a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9, {3.9915581188955975`*^9, + 3.9915581216343517`*^9}},ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-\ +5d23057d1dfa"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}, + 3.9915581158968887`*^9},ExpressionUUID->"da02f8be-1800-4945-83f1-\ +7acaa76423f4"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"c5ebf9ff-e333-\ +7b4d-b8d5-46482917dc06"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845612037445*^9},ExpressionUUID->"e7569d02-bed5-3743-8058-\ +837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371630745`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133353717906*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918456299851303`*^9},ExpressionUUID->"71739d4a-f3fc-9d4f-b803-\ +99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399644184`*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539979416*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991845637746252*^9},ExpressionUUID->"762274ee-d7cb-9644-9b5c-\ +516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX +URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf +Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 +cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF +XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o +Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF +ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w +BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk +L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg +nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 +g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 +wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d +rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V +guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h +Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI +7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 +KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju +0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ +ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j +tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v +r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN +mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln +Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 +dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO +kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw +6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ +4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb +bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 +G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV +hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm +5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm +d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 +N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw +6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs +M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h +CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc +6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r +2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I +zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc +ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW +H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 +367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL +MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX +rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY +lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm +GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap +xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ +A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht +vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF +bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV +iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R +xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj +9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA +nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh +NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 +5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D +gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB +k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq +Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN +BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq +QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L +JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl +IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf +YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix +J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot +/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb +3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ +X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx +BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu +JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q +PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS +hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w +Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy +qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 +WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9887929549829141}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, + 3.991845656553877*^9}},ExpressionUUID->"c4af1473-2d54-b047-b3e2-\ +18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 252, 225, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 226, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813442087*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 252, + 227, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813450123*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813469118*^9}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR +X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 +PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s +UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ +x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz +61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv +t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ +EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx +Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 +owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 +9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO +hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR +7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo +RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj +aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz +mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am +pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW +o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK +CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf +6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC +/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m +5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd +V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ ++65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 +41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR +7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c +FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K +qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq +EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J +iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB +ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 +cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj +uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee +SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU +W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo +vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb +UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz +/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO +auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS +fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB +J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX +CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb +VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe +pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ +L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ +I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu +GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ +/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs +j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl +/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 +ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW +YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH +wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX +BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 +r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss +K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw +dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 +4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 +hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR +4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr +KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk +QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu +CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj +WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn +90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN +2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 +W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga +OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA +8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ +hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h +WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 +bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv +yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV +t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 +K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa +34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK +YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY +X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 +ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX +jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo +a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH +czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa +mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 +NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E +G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ +ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 +SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 +iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR +C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL +0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 +oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md +f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX +62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b +osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH +D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ +/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp +B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ +Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc +yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc +ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr +JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo +85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq +j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo +AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw +GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi +6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y +B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck ++xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh +uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF +MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK +RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG +FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX +cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj +zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ +mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC +bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN +/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 +9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l +NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 +8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 +CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA +sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw +FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi +CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj +s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh +OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ +cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O +fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 +8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E +1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU +WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J +XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw +vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV +GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd +KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 +nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu +cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 +yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 +VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P +OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV +HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq +Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 +t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv +pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG +iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V +YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 +fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq +6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 +hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl +t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 +6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp +wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK +rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU +0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O +0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ +H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv +DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE +LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 +NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN +cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB +/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO +G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M +r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK +4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz +ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa +TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA +1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E +A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ +/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO +yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY +ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ +CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G +pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 +ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz +KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q +/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG +invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS +hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV +L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm +1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c +J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx +uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C +Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 +T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP +59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK +DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB +XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB +Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf +VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw +iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n +LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 +BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z +f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC +e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs +6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL +hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd +4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 +cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui +BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU +zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk +ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP +Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd +k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R +PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 +CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj +jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf +vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo +WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN +UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t +0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ +6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe +wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph +whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS +4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r +UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 ++j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P +ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP +O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP +KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw +bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC +ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf +jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS +cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F +3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL +Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 +gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 +/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l +u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd +PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv +50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 +zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p +HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb +u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr +DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu +xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M +H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W +7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 +GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A +87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp +WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv +tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT +5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 +pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz +yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f +eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa +8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H +vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F ++lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m +Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 ++a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg +y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR +Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 +0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU +F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT +rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c +OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 +R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER +lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g +JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ +fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu +YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ +mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS +F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 +8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz +ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC +9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M +zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD +sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf +Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW +OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV +7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H +vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O +mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 +5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf +X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX +ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh +Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL +IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT +PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc +9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz +uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 +tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU +BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey +Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s +fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs +2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l +thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw +GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s +6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv +/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq +N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE +43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC +gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr +t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ +MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU +0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q +UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO +2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 +Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 +rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A +b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn +7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi +qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw +18hpWOkpIP0PtXjCHw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"7383cf4d-77c8-1d41-ab20-\ +d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d1a933a5-9ae5-3c4e-953d-5f1d02c204a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"e431227d-0e31-a446-ad0d-\ +76902a9a3bd8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991846110594208*^9},ExpressionUUID->"4e5b3330-e10a-4342-8f3d-\ +b24f9b16b9de"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846112020672*^9},ExpressionUUID->"bb5f3a72-8528-7a48-a67a-\ +a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 235, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803378134*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803386196*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK +ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS +Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 +ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN +7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I +q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F +Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E +8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 +BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q +oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox +nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa +eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY +UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq +kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD +Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 +ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU +NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja +6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS +TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr +/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm +7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc +F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ +tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD +2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM +fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 +dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz +0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj +g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 ++SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI +lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk +t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi +88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH +sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 +q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E +we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ +a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK +c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 +ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV +xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib +PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki +mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs +7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 +6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao +d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT +VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 +FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c +JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm +Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E +0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti +Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX +8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp +I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj +HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 +ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff +tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy ++LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj +Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e +mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc +JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 +qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw +BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc +HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 +p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix +mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD +2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 +o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV +YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld +Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB +T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 +OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR +6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy +dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb +7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 +ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ +qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk +efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB +cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc +I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 +cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T +jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC +luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv +5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP +9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 +ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV +Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm +hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j +9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm +4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq +s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h +Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB +BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj +7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK +idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T +Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop +J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc +HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD ++0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v ++NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy +j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR +8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn +JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N +vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V +SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 +640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP +GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC +DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz +ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 +XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 +9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt +voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX +rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 +bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l +Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 +WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV +YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 +YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT +78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM +V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf +1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are +1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy +7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx +POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB +eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 237, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 256, + 238, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574052296`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 256, 239, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257413231*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352574212303`*^9}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845708089321*^9, + 3.9918457122231236`*^9}},ExpressionUUID->"d3b2932a-2d3f-fa41-a705-\ +f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637201557`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263728153*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352637361546`*^9}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918457167596684`*^9, + 3.991845720288498*^9}},ExpressionUUID->"3a5379d3-3adc-3844-bbe2-\ +4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268822542*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268831545*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352688395576`*^9}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991845728758301*^9, + 3.9918461210058537`*^9},ExpressionUUID->"208e04c0-4af7-a344-9e86-\ +ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727476673`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727556705`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727636833`*^9}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, + 3.9918461306014214`*^9}},ExpressionUUID->"53a3c067-888b-bc49-a5e6-\ +f228162e6070"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9},ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-\ +bb84e7548fdc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846151022602*^9},ExpressionUUID->"a41abb59-b808-8547-b1d9-\ +a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 253, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 254, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756456738`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 275, + 255, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352756546745`*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275662676*^9}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918461538845863`*^9},ExpressionUUID->"779c8db8-6bae-9046-915d-\ +05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 257, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 258, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279532501*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 276, + 259, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795405006`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352795487957`*^9}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846157029255*^9},ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-\ +9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf +pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg +4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E +17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf +FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 +HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW +tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ +1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 +wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF +0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f +c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz +VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO +acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy +idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm +N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 +/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 +Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP +/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d +Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE +/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS +PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 +alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO +z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs +wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 +td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 +/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA +c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO +o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp +0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH +zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH +xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid +s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF +8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf +oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg +QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE +GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 +f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ +f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB +ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR +bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB +bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG +kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE +yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer +z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO +zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn +ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo +at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W +YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb +YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 +Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD +TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL +YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk +iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz +xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI +MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ +E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 +s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 +N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG +vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF +dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc +D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy +YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA +KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK +P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK +bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M +NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR +EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp +PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC +C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 +n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V +5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k +I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb +jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF +DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 +d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 +OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs +5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6152015704378887}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, + 3.9918461709620533`*^9}},ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-\ +db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.219251816068453`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 278, + 261, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8936448232315485`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 278, 262, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542864294*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6158106487006413`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 278, 263, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542873293*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 278, 264, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428812923`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22963416248739862`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"028f7072-05bf-cf40-ac60-\ +9f298ef86e88"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"b564c677-bd9d-0e4f-82de-383dbfb5076a"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5679b5e8-e1a4-b440-bec7-c61c864a5d89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 282, 273, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699413757`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269949375*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372699573765`*^9}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846210534153*^9, + 3.991846213941681*^9}},ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-\ +947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 277, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 278, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767281475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 283, + 279, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767351475`*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337276743145*^9}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846217504902*^9, + 3.991846220659443*^9}},ExpressionUUID->"38ca1203-b2e6-3044-aa85-\ +97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 281, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 282, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284142767*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 284, + 283, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284150778*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372841597614`*^9}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462258948135`*^9, + 3.9918462291469593`*^9}},ExpressionUUID->"087e4064-7024-cb41-8231-\ +fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 285, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 286, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290753483*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 285, + 287, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372907615204`*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133729076952*^9}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, + 3.991846236994051*^9}},ExpressionUUID->"cd9a77e7-d597-394b-a710-\ +f971fc40d827"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9},ExpressionUUID->"13a90bf7-f7dc-7e48-845e-\ +80048a92ff15"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846260820032*^9},ExpressionUUID->"efacefcd-90be-574d-92a2-\ +eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 301, 289, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950922775`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846268674473*^9},ExpressionUUID->"113e0d2a-28bc-cb46-97f5-\ +cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 302, 293, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988505898`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918462728234997`*^9},ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-\ +28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL +ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc +Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 +39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN +PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 +8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk +kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru +nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 +t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 +2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 +N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M +GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV +T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex +5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ +m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm +79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb +ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi +ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T +CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 +EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA +ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey +/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K +ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk +x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN +DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf +Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 +Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN ++5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai +0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR +fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb +FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW +EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe +0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp +c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI +l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 +6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi +tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh +vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X +ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB +dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 +FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf +//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq +T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d +f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 +KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif +OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU +01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq +COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o +8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC +6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D +cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz +HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 +eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb +w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq +rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV +bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD +uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS +VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z +NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V +9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD +AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj +HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ +Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B +v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm ++TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA +OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 +0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ +4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC +ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu +vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV +l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj +IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft +YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ +gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu +Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp +yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv +hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.663943982390173}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846277689621*^9},ExpressionUUID->"0a8036ea-ac95-654b-96a9-\ +78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646736584`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo +yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ +e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt +CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 +SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr +J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX +du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch +VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU +v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt +EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 +uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi +NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L +I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ +bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A +1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f +CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b +RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf +p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 +c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY +doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm +Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 +784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw ++0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s +GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs +uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL +iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G +ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ +nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU +gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 +XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU +m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l +bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy +I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 +zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ +mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK +vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G +UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ +xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 +fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu +FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu +g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ +l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX +V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ +eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 +3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA +G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN +mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H +L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep +5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj +JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT ++jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs +FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v +HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax +9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L +lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 +Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV +lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E +uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh +RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY +ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ +8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI +MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q +4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD +b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ +sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU +0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK +VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv +vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA +0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES +2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO +EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 +OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb +5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl +Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN ++dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi +yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O +GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ +8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho +q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for +sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl +KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob +v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N +1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB +w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg +d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw +7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF +XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi +teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD +A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD +wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 +HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 +yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 +tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn +y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ +71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB +hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy +C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC +ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ +rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 +1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H +7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 +32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l +Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq +gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij +tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp +MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq +2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 +nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM +D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU +RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb +MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr +fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 +GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h ++tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 +PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN +MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 +75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc +5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU +UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw +El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW +q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH +1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK +3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ +lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf +VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy +Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD +25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O +JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI +w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q +hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR +hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv +ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu +jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S +JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue +2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig +DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 +bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 +3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe +etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk +om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe +tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F +X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau +q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 +D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc +PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE +QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc +IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx +bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN +H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 +sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU +K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 +mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi +z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o +YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h +Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 +aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l +cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo +2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 +Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl +z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO +d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da +A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM +VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl +kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC +H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk +4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x +CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl +rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 +pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs +Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US +R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o +IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe +SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U +EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o +0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm +cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru +YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep +KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F +VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs +76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj +6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 +BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi +JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT +/wN9xxCi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"936846c9-ebd9-0340-9945-\ +b210a517ddeb"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"2b65c8b7-2b0d-7840-9c22-f596c7681ee5"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"e2584817-ac95-084f-bbb3-4911b5281f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 308, 309, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 308, 310, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058022385`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339205811241*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392058197193`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184628914184*^9, + 3.9918462932986107`*^9}},ExpressionUUID->"8304a1af-5a77-304f-9cc7-\ +82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 309, 313, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125518837`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918462963096733`*^9, + 3.991846299126808*^9}},ExpressionUUID->"3ed977a3-b24a-0644-a438-\ +d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 310, 317, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219670542*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846303469427*^9, + 3.991846306205721*^9}},ExpressionUUID->"0a258b12-85fc-2a47-9b1a-\ +8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 311, 321, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269341373`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, + 3.991846313322897*^9}},ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-\ +8435ee411a7c"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[2496, 89, 178, 3, 32, "Output",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2711, 97, 913, 30, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[3627, 129, 175, 3, 32, "Output",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3839, 137, 961, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[4803, 171, 177, 3, 32, "Output",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5017, 179, 558, 19, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[5578, 200, 173, 3, 32, "Output",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5788, 208, 623, 21, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[6414, 231, 170, 3, 32, "Output",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6621, 239, 170, 5, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[6794, 246, 173, 3, 32, "Output",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7004, 254, 170, 5, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[7177, 261, 170, 3, 32, "Output",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7384, 269, 181, 5, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[7568, 276, 171, 3, 32, "Output",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7776, 284, 181, 5, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[7960, 291, 173, 3, 32, "Output",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8170, 299, 6055, 185, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[14228, 486, 175, 3, 32, "Output",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14440, 494, 368, 9, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[14811, 505, 170, 3, 32, "Output",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15018, 513, 6122, 187, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[21143, 702, 175, 3, 32, "Output",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21355, 710, 368, 9, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[21726, 721, 172, 3, 32, "Output",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21935, 729, 2663, 88, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[24601, 819, 173, 3, 32, "Output",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24811, 827, 2603, 85, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[27417, 914, 172, 3, 32, "Output",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27626, 922, 3712, 118, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[31341, 1042, 174, 3, 32, "Output",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], +Cell[31530, 1048, 138, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[31693, 1055, 2052, 59, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[33748, 1116, 524, 11, 60, "Message",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], +Cell[34275, 1129, 526, 11, 60, "Message",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], +Cell[34804, 1142, 530, 11, 60, "Message",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], +Cell[35337, 1155, 455, 10, 26, "Message",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], +Cell[35795, 1167, 172, 3, 32, "Output",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36004, 1175, 2054, 59, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[38061, 1236, 524, 11, 60, "Message",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], +Cell[38588, 1249, 526, 11, 60, "Message",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], +Cell[39117, 1262, 528, 11, 60, "Message",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], +Cell[39648, 1275, 456, 10, 26, "Message",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], +Cell[40107, 1287, 170, 3, 32, "Output",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40314, 1295, 1936, 53, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[42253, 1350, 19981, 375, 230, "Output",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62271, 1730, 2118, 60, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[64392, 1792, 490, 11, 60, "Message",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], +Cell[64885, 1805, 493, 11, 60, "Message",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], +Cell[65381, 1818, 508, 11, 27, "Message",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], +Cell[65892, 1831, 456, 10, 26, "Message",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], +Cell[66351, 1843, 61603, 1057, 233, "Output",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127991, 2905, 327, 7, 42, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[128321, 2914, 9707, 222, 240, "Output",ExpressionUUID->"d1a933a5-9ae5-3c4e-953d-5f1d02c204a8"] +}, Open ]], +Cell[138043, 3139, 257, 6, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[CellGroupData[{ +Cell[138325, 3149, 215, 7, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[138543, 3158, 169, 3, 32, "Output",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[138749, 3166, 1814, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[140566, 3221, 502, 11, 60, "Message",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], +Cell[141071, 3234, 506, 11, 60, "Message",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], +Cell[141580, 3247, 509, 11, 60, "Message",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], +Cell[142092, 3260, 456, 10, 26, "Message",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], +Cell[142551, 3272, 28560, 514, 233, "Output",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171148, 3791, 1616, 48, 70, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[172767, 3841, 576, 12, 70, "Message",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], +Cell[173346, 3855, 582, 12, 70, "Message",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], +Cell[173931, 3869, 584, 12, 70, "Message",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], +Cell[174518, 3883, 458, 10, 70, "Message",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], +Cell[174979, 3895, 170, 3, 70, "Output",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175186, 3903, 2249, 64, 70, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[177438, 3969, 522, 11, 70, "Message",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], +Cell[177963, 3982, 526, 11, 70, "Message",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], +Cell[178492, 3995, 528, 11, 70, "Message",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], +Cell[179023, 4008, 458, 10, 70, "Message",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], +Cell[179484, 4020, 175, 3, 70, "Output",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179696, 4028, 2221, 64, 70, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[181920, 4094, 522, 11, 70, "Message",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], +Cell[182445, 4107, 524, 11, 70, "Message",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], +Cell[182972, 4120, 528, 11, 70, "Message",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], +Cell[183503, 4133, 458, 10, 70, "Message",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], +Cell[183964, 4145, 170, 3, 70, "Output",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184171, 4153, 2219, 64, 70, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[186393, 4219, 524, 11, 70, "Message",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], +Cell[186920, 4232, 526, 11, 70, "Message",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], +Cell[187449, 4245, 530, 11, 70, "Message",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], +Cell[187982, 4258, 458, 10, 70, "Message",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], +Cell[188443, 4270, 171, 3, 70, "Output",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188651, 4278, 213, 6, 70, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[188867, 4286, 175, 3, 70, "Output",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], +Cell[189057, 4292, 247, 5, 70, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[189329, 4301, 558, 19, 70, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[189890, 4322, 172, 3, 70, "Output",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190099, 4330, 170, 5, 70, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[190272, 4337, 172, 3, 70, "Output",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190481, 4345, 181, 5, 70, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[190665, 4352, 172, 3, 70, "Output",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190874, 4360, 6055, 185, 70, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[196932, 4547, 174, 3, 70, "Output",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197143, 4555, 368, 9, 70, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[197514, 4566, 173, 3, 70, "Output",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197724, 4574, 6122, 187, 70, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[203849, 4763, 175, 3, 70, "Output",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204061, 4771, 368, 9, 70, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[204432, 4782, 170, 3, 70, "Output",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204639, 4790, 2663, 88, 70, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[207305, 4880, 173, 3, 70, "Output",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207515, 4888, 2603, 85, 70, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[210121, 4975, 172, 3, 70, "Output",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210330, 4983, 3712, 118, 70, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[214045, 5103, 174, 3, 70, "Output",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214256, 5111, 2052, 59, 70, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[216311, 5172, 574, 12, 70, "Message",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], +Cell[216888, 5186, 580, 12, 70, "Message",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], +Cell[217471, 5200, 582, 12, 70, "Message",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], +Cell[218056, 5214, 456, 10, 70, "Message",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], +Cell[218515, 5226, 171, 3, 70, "Output",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218723, 5234, 2054, 59, 70, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[220780, 5295, 574, 12, 70, "Message",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], +Cell[221357, 5309, 578, 12, 70, "Message",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], +Cell[221938, 5323, 582, 12, 70, "Message",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], +Cell[222523, 5337, 458, 10, 70, "Message",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], +Cell[222984, 5349, 169, 3, 70, "Output",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223190, 5357, 2028, 55, 70, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[225221, 5414, 20326, 381, 70, "Output",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245584, 5800, 2120, 60, 70, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[247707, 5862, 502, 11, 70, "Message",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], +Cell[248212, 5875, 504, 11, 70, "Message",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], +Cell[248719, 5888, 507, 11, 70, "Message",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], +Cell[249229, 5901, 458, 10, 70, "Message",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], +Cell[249690, 5913, 41632, 730, 70, "Output",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291359, 6648, 257, 6, 70, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[291619, 6656, 2580, 42, 70, "Message",ExpressionUUID->"b564c677-bd9d-0e4f-82de-383dbfb5076a"], +Cell[294202, 6700, 10201, 227, 70, "Output",ExpressionUUID->"5679b5e8-e1a4-b440-bec7-c61c864a5d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304440, 6932, 1616, 48, 70, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[306059, 6982, 592, 12, 70, "Message",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], +Cell[306654, 6996, 597, 12, 70, "Message",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], +Cell[307254, 7010, 599, 12, 70, "Message",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], +Cell[307856, 7024, 458, 10, 70, "Message",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], +Cell[308317, 7036, 172, 3, 70, "Output",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308526, 7044, 2247, 64, 70, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[310776, 7110, 576, 12, 70, "Message",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], +Cell[311355, 7124, 580, 12, 70, "Message",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], +Cell[311938, 7138, 582, 12, 70, "Message",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], +Cell[312523, 7152, 456, 10, 70, "Message",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], +Cell[312982, 7164, 171, 3, 70, "Output",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313190, 7172, 2219, 64, 70, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[315412, 7238, 574, 12, 70, "Message",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], +Cell[315989, 7252, 578, 12, 70, "Message",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], +Cell[316570, 7266, 580, 12, 70, "Message",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], +Cell[317153, 7280, 458, 10, 70, "Message",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], +Cell[317614, 7292, 173, 3, 70, "Output",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317824, 7300, 2223, 64, 70, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[320050, 7366, 574, 12, 70, "Message",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], +Cell[320627, 7380, 578, 12, 70, "Message",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], +Cell[321208, 7394, 582, 12, 70, "Message",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], +Cell[321793, 7408, 455, 10, 70, "Message",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], +Cell[322251, 7420, 170, 3, 70, "Output",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322458, 7428, 213, 6, 70, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[322674, 7436, 174, 3, 70, "Output",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], +Cell[322863, 7442, 247, 5, 70, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[323135, 7451, 558, 19, 70, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[323696, 7472, 169, 3, 70, "Output",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323902, 7480, 170, 5, 70, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[324075, 7487, 173, 3, 70, "Output",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324285, 7495, 181, 5, 70, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[324469, 7502, 173, 3, 70, "Output",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324679, 7510, 6055, 185, 70, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[330737, 7697, 174, 3, 70, "Output",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330948, 7705, 368, 9, 70, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[331319, 7716, 172, 3, 70, "Output",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331528, 7724, 6122, 187, 70, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[337653, 7913, 172, 3, 70, "Output",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337862, 7921, 368, 9, 70, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[338233, 7932, 170, 3, 70, "Output",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338440, 7940, 2663, 88, 70, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[341106, 8030, 173, 3, 70, "Output",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341316, 8038, 2603, 85, 70, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[343922, 8125, 172, 3, 70, "Output",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344131, 8133, 3712, 118, 70, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[347846, 8253, 172, 3, 70, "Output",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348055, 8261, 2052, 59, 70, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[350110, 8322, 573, 12, 70, "Message",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], +Cell[350686, 8336, 573, 12, 70, "Message",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], +Cell[351262, 8350, 579, 12, 70, "Message",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], +Cell[351844, 8364, 458, 10, 70, "Message",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], +Cell[352305, 8376, 170, 3, 70, "Output",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352512, 8384, 2052, 59, 70, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[354567, 8445, 573, 12, 70, "Message",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], +Cell[355143, 8459, 575, 12, 70, "Message",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], +Cell[355721, 8473, 579, 12, 70, "Message",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], +Cell[356303, 8487, 458, 10, 70, "Message",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], +Cell[356764, 8499, 169, 3, 70, "Output",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356970, 8507, 2030, 55, 70, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[359003, 8564, 20296, 381, 70, "Output",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379336, 8950, 2092, 60, 70, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[381431, 9012, 500, 11, 70, "Message",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], +Cell[381934, 9025, 505, 11, 70, "Message",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], +Cell[382442, 9038, 509, 11, 70, "Message",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], +Cell[382954, 9051, 458, 10, 70, "Message",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], +Cell[383415, 9063, 39609, 697, 70, "Output",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423061, 9765, 257, 6, 70, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[423321, 9773, 2580, 42, 70, "Message",ExpressionUUID->"2b65c8b7-2b0d-7840-9c22-f596c7681ee5"], +Cell[425904, 9817, 10201, 227, 70, "Output",ExpressionUUID->"e2584817-ac95-084f-bbb3-4911b5281f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436142, 10049, 1616, 48, 70, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[437761, 10099, 589, 12, 70, "Message",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], +Cell[438353, 10113, 595, 12, 70, "Message",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], +Cell[438951, 10127, 596, 12, 70, "Message",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], +Cell[439550, 10141, 458, 10, 70, "Message",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], +Cell[440011, 10153, 171, 3, 70, "Output",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440219, 10161, 2248, 64, 70, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[442470, 10227, 573, 12, 70, "Message",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], +Cell[443046, 10241, 573, 12, 70, "Message",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], +Cell[443622, 10255, 579, 12, 70, "Message",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], +Cell[444204, 10269, 458, 10, 70, "Message",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], +Cell[444665, 10281, 174, 3, 70, "Output",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444876, 10289, 2221, 64, 70, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[447100, 10355, 573, 12, 70, "Message",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], +Cell[447676, 10369, 575, 12, 70, "Message",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], +Cell[448254, 10383, 577, 12, 70, "Message",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], +Cell[448834, 10397, 456, 10, 70, "Message",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], +Cell[449293, 10409, 172, 3, 70, "Output",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449502, 10417, 2219, 64, 70, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[451724, 10483, 571, 12, 70, "Message",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], +Cell[452298, 10497, 573, 12, 70, "Message",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], +Cell[452874, 10511, 579, 12, 70, "Message",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], +Cell[453456, 10525, 458, 10, 70, "Message",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], +Cell[453917, 10537, 172, 3, 70, "Output",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454126, 10545, 211, 6, 70, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[454340, 10553, 174, 3, 70, "Output",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/l___gid_Qw2.nb b/templates/light_case/l___gid_Qw2.nb new file mode 100755 index 0000000..426a05d --- /dev/null +++ b/templates/light_case/l___gid_Qw2.nb @@ -0,0 +1,9002 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 293237, 8992] +NotebookOptionsPosition[ 268807, 8617] +NotebookOutlinePosition[ 269261, 8635] +CellTagsIndexPosition[ 269218, 8632] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991847456288412*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918474584496803`*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -2.67879 2.97603 [ +[.15608 .28474 -6 -9 ] +[.15608 .28474 6 0 ] +[.28836 .28474 -6 -9 ] +[.28836 .28474 6 0 ] +[.42063 .28474 -6 -9 ] +[.42063 .28474 6 0 ] +[.55291 .28474 -9 -9 ] +[.55291 .28474 9 0 ] +[.68519 .28474 -9 -9 ] +[.68519 .28474 9 0 ] +[.81746 .28474 -9 -9 ] +[.81746 .28474 9 0 ] +[.94974 .28474 -9 -9 ] +[.94974 .28474 9 0 ] +[.01131 .14844 -24 -4.5 ] +[.01131 .14844 0 4.5 ] +[.01131 .44604 -24 -4.5 ] +[.01131 .44604 0 4.5 ] +[.01131 .59484 -18 -4.5 ] +[.01131 .59484 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .29724 m +.15608 .30349 L +s +[(25)] .15608 .28474 0 1 Mshowa +.28836 .29724 m +.28836 .30349 L +s +[(50)] .28836 .28474 0 1 Mshowa +.42063 .29724 m +.42063 .30349 L +s +[(75)] .42063 .28474 0 1 Mshowa +.55291 .29724 m +.55291 .30349 L +s +[(100)] .55291 .28474 0 1 Mshowa +.68519 .29724 m +.68519 .30349 L +s +[(125)] .68519 .28474 0 1 Mshowa +.81746 .29724 m +.81746 .30349 L +s +[(150)] .81746 .28474 0 1 Mshowa +.94974 .29724 m +.94974 .30349 L +s +[(175)] .94974 .28474 0 1 Mshowa +.125 Mabswid +.05026 .29724 m +.05026 .30099 L +s +.07672 .29724 m +.07672 .30099 L +s +.10317 .29724 m +.10317 .30099 L +s +.12963 .29724 m +.12963 .30099 L +s +.18254 .29724 m +.18254 .30099 L +s +.20899 .29724 m +.20899 .30099 L +s +.23545 .29724 m +.23545 .30099 L +s +.2619 .29724 m +.2619 .30099 L +s +.31481 .29724 m +.31481 .30099 L +s +.34127 .29724 m +.34127 .30099 L +s +.36772 .29724 m +.36772 .30099 L +s +.39418 .29724 m +.39418 .30099 L +s +.44709 .29724 m +.44709 .30099 L +s +.47354 .29724 m +.47354 .30099 L +s +.5 .29724 m +.5 .30099 L +s +.52646 .29724 m +.52646 .30099 L +s +.57937 .29724 m +.57937 .30099 L +s +.60582 .29724 m +.60582 .30099 L +s +.63228 .29724 m +.63228 .30099 L +s +.65873 .29724 m +.65873 .30099 L +s +.71164 .29724 m +.71164 .30099 L +s +.7381 .29724 m +.7381 .30099 L +s +.76455 .29724 m +.76455 .30099 L +s +.79101 .29724 m +.79101 .30099 L +s +.84392 .29724 m +.84392 .30099 L +s +.87037 .29724 m +.87037 .30099 L +s +.89683 .29724 m +.89683 .30099 L +s +.92328 .29724 m +.92328 .30099 L +s +.97619 .29724 m +.97619 .30099 L +s +.25 Mabswid +0 .29724 m +1 .29724 L +s +.02381 .14844 m +.03006 .14844 L +s +[(0.95)] .01131 .14844 1 0 Mshowa +.02381 .44604 m +.03006 .44604 L +s +[(1.05)] .01131 .44604 1 0 Mshowa +.02381 .59484 m +.03006 .59484 L +s +[(1.1)] .01131 .59484 1 0 Mshowa +.125 Mabswid +.02381 .02939 m +.02756 .02939 L +s +.02381 .05915 m +.02756 .05915 L +s +.02381 .08892 m +.02756 .08892 L +s +.02381 .11868 m +.02756 .11868 L +s +.02381 .1782 m +.02756 .1782 L +s +.02381 .20796 m +.02756 .20796 L +s +.02381 .23772 m +.02756 .23772 L +s +.02381 .26748 m +.02756 .26748 L +s +.02381 .327 m +.02756 .327 L +s +.02381 .35676 m +.02756 .35676 L +s +.02381 .38652 m +.02756 .38652 L +s +.02381 .41628 m +.02756 .41628 L +s +.02381 .4758 m +.02756 .4758 L +s +.02381 .50556 m +.02756 .50556 L +s +.02381 .53532 m +.02756 .53532 L +s +.02381 .56508 m +.02756 .56508 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.02499 .01472 L +.02605 .01472 L +.02729 .01473 L +.02846 .01474 L +.03053 .01478 L +.03279 .01482 L +.03527 .01489 L +.0379 .01499 L +.04262 .0152 L +.04749 .01548 L +.05205 .0158 L +.06244 .01675 L +.07305 .01801 L +.08274 .01944 L +.10458 .02358 L +.12357 .02821 L +.14429 .03435 L +.18493 .04963 L +.22406 .06826 L +.26565 .09204 L +.30571 .11858 L +.34426 .14717 L +.38527 .1805 L +.42475 .215 L +.46273 .24996 L +.50315 .28853 L +.54206 .3264 L +.58342 .36674 L +.62326 .40497 L +.66159 .44044 L +.70238 .47601 L +.74164 .50741 L +.77939 .53432 L +.8196 .55879 L +.85828 .57771 L +.87793 .58543 L +.89942 .59234 L +.91995 .59741 L +.92911 .59917 L +.93905 .60073 L +.94426 .60141 L +.94906 .60194 L +.95356 .60236 L +.95851 .60273 L +.96295 .60299 L +.9671 .60316 L +.96939 .60323 L +.97148 .60328 L +.97264 .6033 L +Mistroke +.9739 .60331 L +.97509 .60332 L +.97619 .60332 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo +jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq +so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp +0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq +747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr +D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 +yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 +k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA +s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr +8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC +HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB +K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho +Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi +Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 +0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk +R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO +nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX +zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM +oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw +QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 +cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha +oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj +I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB +MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk +hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh +jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr +BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA +JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV +ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l +jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl +hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR +iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj +/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev +9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr +wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c +vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc +Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 +x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN +QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C +aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 +JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ +Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff +A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt +TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 +JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I +buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr +sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO +yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu +TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx +uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx +1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST +SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy +lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X +pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm +Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y +TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 +YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 6.72103 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .14914 -24 -4.5 ] +[.01131 .14914 0 4.5 ] +[.01131 .28356 -24 -4.5 ] +[.01131 .28356 0 4.5 ] +[.01131 .41798 -24 -4.5 ] +[.01131 .41798 0 4.5 ] +[.01131 .5524 -24 -4.5 ] +[.01131 .5524 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .14914 m +.03006 .14914 L +s +[(0.02)] .01131 .14914 1 0 Mshowa +.02381 .28356 m +.03006 .28356 L +s +[(0.04)] .01131 .28356 1 0 Mshowa +.02381 .41798 m +.03006 .41798 L +s +[(0.06)] .01131 .41798 1 0 Mshowa +.02381 .5524 m +.03006 .5524 L +s +[(0.08)] .01131 .5524 1 0 Mshowa +.125 Mabswid +.02381 .04832 m +.02756 .04832 L +s +.02381 .08193 m +.02756 .08193 L +s +.02381 .11553 m +.02756 .11553 L +s +.02381 .18274 m +.02756 .18274 L +s +.02381 .21635 m +.02756 .21635 L +s +.02381 .24995 m +.02756 .24995 L +s +.02381 .31716 m +.02756 .31716 L +s +.02381 .35077 m +.02756 .35077 L +s +.02381 .38437 m +.02756 .38437 L +s +.02381 .45158 m +.02756 .45158 L +s +.02381 .48519 m +.02756 .48519 L +s +.02381 .51879 m +.02756 .51879 L +s +.02381 .586 m +.02756 .586 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .18263 L +.10458 .34796 L +.12507 .41668 L +.14415 .47199 L +.16371 .51906 L +.18221 .55405 L +.192 .56876 L +.20263 .58172 L +.21228 .59082 L +.2212 .59698 L +.22586 .59936 L +.22843 .60043 L +.23087 .60129 L +.23313 .60195 L +.2356 .60252 L +.23669 .60272 L +.23784 .6029 L +.23886 .60304 L +.23993 .60315 L +.24059 .6032 L +.24132 .60325 L +.2426 .60331 L +.24332 .60332 L +.2441 .60332 L +.24483 .6033 L +.2455 .60328 L +.24679 .6032 L +.24752 .60314 L +.24819 .60307 L +.25074 .60272 L +.253 .60228 L +.2555 .60165 L +.26055 .59995 L +.26547 .59774 L +.27064 .59486 L +.2799 .58832 L +.30075 .56765 L +.3205 .54159 L +.33886 .51282 L +.37791 .44198 L +.41941 .36071 L +.45939 .28487 L +.49785 .21945 L +.53877 .16105 L +.57818 .1166 L +.61606 .08416 L +.63714 .07001 L +.6564 .05921 L +.69523 .04269 L +Mistroke +.71425 .03672 L +.73499 .0315 L +.7547 .02757 L +.77569 .0243 L +.79714 .02174 L +.81732 .01991 L +.83744 .01853 L +.85592 .01756 L +.87479 .01681 L +.89546 .0162 L +.91501 .01578 L +.93594 .01545 L +.95662 .01522 L +.97619 .01507 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL +SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 +7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 +7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN +39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ +15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ +G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ +Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY +xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj +jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt +rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM +S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd +UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 +EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW +Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ +stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav +AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 +z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 +PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J +2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M +llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ +bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk +VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ +uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 +6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL +8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ +M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC +vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q +4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL +kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY +ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp +htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE +ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y +LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S +7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC +o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 +9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 +f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu +gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf +Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg +vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl +XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN +fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq +F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G +9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K +p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB +PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 +gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl +swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd +c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe +6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm +6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V ++koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg +kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj +lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV +nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm +sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 +Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm +Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\ +b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{94.07049642219837, + 205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\ +32b52052d827"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{29.72195338368416, + 78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.031746 0.0147151 12.2218 [ +[.18254 .00222 -3 -9 ] +[.18254 .00222 3 0 ] +[.34127 .00222 -6 -9 ] +[.34127 .00222 6 0 ] +[.5 .00222 -6 -9 ] +[.5 .00222 6 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.81746 .00222 -6 -9 ] +[.81746 .00222 6 0 ] +[.97619 .00222 -6 -9 ] +[.97619 .00222 6 0 ] +[.01131 .13693 -24 -4.5 ] +[.01131 .13693 0 4.5 ] +[.01131 .25915 -24 -4.5 ] +[.01131 .25915 0 4.5 ] +[.01131 .38137 -24 -4.5 ] +[.01131 .38137 0 4.5 ] +[.01131 .50359 -24 -4.5 ] +[.01131 .50359 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.18254 .01472 m +.18254 .02097 L +s +[(5)] .18254 .00222 0 1 Mshowa +.34127 .01472 m +.34127 .02097 L +s +[(10)] .34127 .00222 0 1 Mshowa +.5 .01472 m +.5 .02097 L +s +[(15)] .5 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(20)] .65873 .00222 0 1 Mshowa +.81746 .01472 m +.81746 .02097 L +s +[(25)] .81746 .00222 0 1 Mshowa +.97619 .01472 m +.97619 .02097 L +s +[(30)] .97619 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.15079 .01472 m +.15079 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.27778 .01472 m +.27778 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.40476 .01472 m +.40476 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.53175 .01472 m +.53175 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.78571 .01472 m +.78571 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.9127 .01472 m +.9127 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .13693 m +.03006 .13693 L +s +[(0.01)] .01131 .13693 1 0 Mshowa +.02381 .25915 m +.03006 .25915 L +s +[(0.02)] .01131 .25915 1 0 Mshowa +.02381 .38137 m +.03006 .38137 L +s +[(0.03)] .01131 .38137 1 0 Mshowa +.02381 .50359 m +.03006 .50359 L +s +[(0.04)] .01131 .50359 1 0 Mshowa +.125 Mabswid +.02381 .03916 m +.02756 .03916 L +s +.02381 .0636 m +.02756 .0636 L +s +.02381 .08805 m +.02756 .08805 L +s +.02381 .11249 m +.02756 .11249 L +s +.02381 .16138 m +.02756 .16138 L +s +.02381 .18582 m +.02756 .18582 L +s +.02381 .21026 m +.02756 .21026 L +s +.02381 .23471 m +.02756 .23471 L +s +.02381 .2836 m +.02756 .2836 L +s +.02381 .30804 m +.02756 .30804 L +s +.02381 .33248 m +.02756 .33248 L +s +.02381 .35693 m +.02756 .35693 L +s +.02381 .40581 m +.02756 .40581 L +s +.02381 .43026 m +.02756 .43026 L +s +.02381 .4547 m +.02756 .4547 L +s +.02381 .47914 m +.02756 .47914 L +s +.02381 .52803 m +.02756 .52803 L +s +.02381 .55248 m +.02756 .55248 L +s +.02381 .57692 m +.02756 .57692 L +s +.02381 .60136 m +.02756 .60136 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .10806 L +.10458 .20681 L +.14415 .29388 L +.18221 .37017 L +.22272 .44131 L +.26171 .49847 L +.30316 .54591 L +.32392 .56431 L +.34309 .5781 L +.36173 .58858 L +.37125 .59283 L +.3815 .59658 L +.3917 .59947 L +.40103 .60141 L +.40552 .6021 L +.40789 .6024 L +.41042 .60267 L +.41284 .60289 L +.41504 .60305 L +.41725 .60317 L +.41834 .60322 L +.41933 .60325 L +.4205 .60328 L +.42174 .60331 L +.4229 .60332 L +.42399 .60332 L +.42526 .60331 L +.42644 .60329 L +.42773 .60326 L +.4291 .60321 L +.43163 .60308 L +.434 .60293 L +.43941 .60241 L +.44405 .60181 L +.4483 .60112 L +.45788 .59913 L +.46769 .59645 L +.47681 .59341 L +.49751 .58461 L +.53655 .56157 L +.57805 .52937 L +.61803 .49268 L +.6565 .45377 L +.69742 .4102 L +.73682 .36757 L +.77471 .32713 L +.81505 .2857 L +.85387 .24819 L +.89515 .21147 L +Mistroke +.93491 .17954 L +.97316 .15219 L +.97619 .15016 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf +ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v +9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ +9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg +5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv +X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql +oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD +HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV +i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 +Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy +oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE +PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl +aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o +znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj +k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD +PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF +lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR +ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD +JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U +OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 +hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC +LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN +LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr +hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM +l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 +AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 +poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 +EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F +gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn +eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo +AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka +21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U +uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 +W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn +yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH +bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S +mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO +jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP +4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl +sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS +NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq +i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ +B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz +wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA +LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw +S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo +YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs +QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH +sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE +BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn +2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp +F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE +di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC +z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk +BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA +Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN +CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ +XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 +ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI +3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 +Ww==\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\ +f1f489e06059"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.00529101 -0.551091 0.817918 [ +[.15608 .25433 -6 -9 ] +[.15608 .25433 6 0 ] +[.28836 .25433 -6 -9 ] +[.28836 .25433 6 0 ] +[.42063 .25433 -6 -9 ] +[.42063 .25433 6 0 ] +[.55291 .25433 -9 -9 ] +[.55291 .25433 9 0 ] +[.68519 .25433 -9 -9 ] +[.68519 .25433 9 0 ] +[.81746 .25433 -9 -9 ] +[.81746 .25433 9 0 ] +[.94974 .25433 -9 -9 ] +[.94974 .25433 9 0 ] +[.01131 .02145 -18 -4.5 ] +[.01131 .02145 0 4.5 ] +[.01131 .10324 -18 -4.5 ] +[.01131 .10324 0 4.5 ] +[.01131 .18504 -18 -4.5 ] +[.01131 .18504 0 4.5 ] +[.01131 .34862 -18 -4.5 ] +[.01131 .34862 0 4.5 ] +[.01131 .43041 -18 -4.5 ] +[.01131 .43041 0 4.5 ] +[.01131 .5122 -18 -4.5 ] +[.01131 .5122 0 4.5 ] +[.01131 .59399 -18 -4.5 ] +[.01131 .59399 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15608 .26683 m +.15608 .27308 L +s +[(25)] .15608 .25433 0 1 Mshowa +.28836 .26683 m +.28836 .27308 L +s +[(50)] .28836 .25433 0 1 Mshowa +.42063 .26683 m +.42063 .27308 L +s +[(75)] .42063 .25433 0 1 Mshowa +.55291 .26683 m +.55291 .27308 L +s +[(100)] .55291 .25433 0 1 Mshowa +.68519 .26683 m +.68519 .27308 L +s +[(125)] .68519 .25433 0 1 Mshowa +.81746 .26683 m +.81746 .27308 L +s +[(150)] .81746 .25433 0 1 Mshowa +.94974 .26683 m +.94974 .27308 L +s +[(175)] .94974 .25433 0 1 Mshowa +.125 Mabswid +.05026 .26683 m +.05026 .27058 L +s +.07672 .26683 m +.07672 .27058 L +s +.10317 .26683 m +.10317 .27058 L +s +.12963 .26683 m +.12963 .27058 L +s +.18254 .26683 m +.18254 .27058 L +s +.20899 .26683 m +.20899 .27058 L +s +.23545 .26683 m +.23545 .27058 L +s +.2619 .26683 m +.2619 .27058 L +s +.31481 .26683 m +.31481 .27058 L +s +.34127 .26683 m +.34127 .27058 L +s +.36772 .26683 m +.36772 .27058 L +s +.39418 .26683 m +.39418 .27058 L +s +.44709 .26683 m +.44709 .27058 L +s +.47354 .26683 m +.47354 .27058 L +s +.5 .26683 m +.5 .27058 L +s +.52646 .26683 m +.52646 .27058 L +s +.57937 .26683 m +.57937 .27058 L +s +.60582 .26683 m +.60582 .27058 L +s +.63228 .26683 m +.63228 .27058 L +s +.65873 .26683 m +.65873 .27058 L +s +.71164 .26683 m +.71164 .27058 L +s +.7381 .26683 m +.7381 .27058 L +s +.76455 .26683 m +.76455 .27058 L +s +.79101 .26683 m +.79101 .27058 L +s +.84392 .26683 m +.84392 .27058 L +s +.87037 .26683 m +.87037 .27058 L +s +.89683 .26683 m +.89683 .27058 L +s +.92328 .26683 m +.92328 .27058 L +s +.97619 .26683 m +.97619 .27058 L +s +.25 Mabswid +0 .26683 m +1 .26683 L +s +.02381 .02145 m +.03006 .02145 L +s +[(0.7)] .01131 .02145 1 0 Mshowa +.02381 .10324 m +.03006 .10324 L +s +[(0.8)] .01131 .10324 1 0 Mshowa +.02381 .18504 m +.03006 .18504 L +s +[(0.9)] .01131 .18504 1 0 Mshowa +.02381 .34862 m +.03006 .34862 L +s +[(1.1)] .01131 .34862 1 0 Mshowa +.02381 .43041 m +.03006 .43041 L +s +[(1.2)] .01131 .43041 1 0 Mshowa +.02381 .5122 m +.03006 .5122 L +s +[(1.3)] .01131 .5122 1 0 Mshowa +.02381 .59399 m +.03006 .59399 L +s +[(1.4)] .01131 .59399 1 0 Mshowa +.125 Mabswid +.02381 .03781 m +.02756 .03781 L +s +.02381 .05417 m +.02756 .05417 L +s +.02381 .07053 m +.02756 .07053 L +s +.02381 .08689 m +.02756 .08689 L +s +.02381 .1196 m +.02756 .1196 L +s +.02381 .13596 m +.02756 .13596 L +s +.02381 .15232 m +.02756 .15232 L +s +.02381 .16868 m +.02756 .16868 L +s +.02381 .20139 m +.02756 .20139 L +s +.02381 .21775 m +.02756 .21775 L +s +.02381 .23411 m +.02756 .23411 L +s +.02381 .25047 m +.02756 .25047 L +s +.02381 .28319 m +.02756 .28319 L +s +.02381 .29954 m +.02756 .29954 L +s +.02381 .3159 m +.02756 .3159 L +s +.02381 .33226 m +.02756 .33226 L +s +.02381 .36498 m +.02756 .36498 L +s +.02381 .38134 m +.02756 .38134 L +s +.02381 .39769 m +.02756 .39769 L +s +.02381 .41405 m +.02756 .41405 L +s +.02381 .44677 m +.02756 .44677 L +s +.02381 .46313 m +.02756 .46313 L +s +.02381 .47949 m +.02756 .47949 L +s +.02381 .49584 m +.02756 .49584 L +s +.02381 .52856 m +.02756 .52856 L +s +.02381 .54492 m +.02756 .54492 L +s +.02381 .56128 m +.02756 .56128 L +s +.02381 .57764 m +.02756 .57764 L +s +.02381 .00509 m +.02756 .00509 L +s +.02381 .61035 m +.02756 .61035 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .60332 m +.02499 .60331 L +.02605 .6033 L +.02729 .60328 L +.02846 .60326 L +.03053 .60319 L +.03279 .60309 L +.03527 .60295 L +.0379 .60276 L +.04262 .60232 L +.04749 .60174 L +.05205 .60108 L +.06244 .59913 L +.07305 .59653 L +.08274 .59362 L +.10458 .58527 L +.14429 .56405 L +.18248 .53718 L +.22313 .50297 L +.26226 .46595 L +.30384 .4238 L +.34391 .38185 L +.38246 .3414 L +.42346 .29931 L +.46295 .26047 L +.50092 .22522 L +.54134 .19038 L +.58025 .1597 L +.62161 .13033 L +.66146 .10526 L +.69979 .08415 L +.74057 .06487 L +.77984 .04937 L +.81759 .03723 L +.85779 .02721 L +.87627 .0236 L +.89648 .02036 L +.91652 .01788 L +.92745 .01682 L +.93762 .01604 L +.9426 .01572 L +.94801 .01542 L +.95278 .0152 L +.95783 .01501 L +.96238 .01488 L +.96496 .01483 L +.96738 .01478 L +.9696 .01475 L +.97163 .01473 L +.97275 .01473 L +Mistroke +.97397 .01472 L +.97512 .01472 L +.97619 .01472 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC +MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 +5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX +nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v +yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi +sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG +tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W +tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw +WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq +Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz +IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A +nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc +Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td +rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 +63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp +CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el +jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD +f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA +eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb +uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa +UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au +6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 +BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ +5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX +XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 +jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO +JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme +IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG +gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ +9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ +ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL +bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD +pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN +ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 +ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j +6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE +iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k +d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz ++s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ +6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C +2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K +wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 +xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 +9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 +OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm +yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj +GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz +mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W +ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 +pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu +KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH +65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD +bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ +LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW +2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx +bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU +E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 +7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 +5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 +brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT +OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o +Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL +hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl +D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm +v/odiPr3KLwBMhrzH2bRmaY=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"General", "::", "\<\"stop\"\>"}], ":", + " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ +suppressed during this calculation. \ +\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ +\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ +"Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +Cell[GraphicsData["PostScript", "\<\ +%! +%%Creator: Mathematica +%%AspectRatio: .61803 +MathPictureStart +/Mabs { +Mgmatrix idtransform +Mtmatrix dtransform +} bind def +/Mabsadd { Mabs +3 -1 roll add +3 1 roll add +exch } bind def +%% Graphics +%%IncludeResource: font Courier +%%IncludeFont: Courier +/Courier findfont 10 scalefont setfont +% Scaling calculations +0.0238095 0.0634921 0.0147151 5.37313 [ +[.15079 .00222 -3 -9 ] +[.15079 .00222 3 0 ] +[.27778 .00222 -3 -9 ] +[.27778 .00222 3 0 ] +[.40476 .00222 -3 -9 ] +[.40476 .00222 3 0 ] +[.53175 .00222 -3 -9 ] +[.53175 .00222 3 0 ] +[.65873 .00222 -6 -9 ] +[.65873 .00222 6 0 ] +[.78571 .00222 -6 -9 ] +[.78571 .00222 6 0 ] +[.9127 .00222 -6 -9 ] +[.9127 .00222 6 0 ] +[.01131 .12218 -24 -4.5 ] +[.01131 .12218 0 4.5 ] +[.01131 .22964 -24 -4.5 ] +[.01131 .22964 0 4.5 ] +[.01131 .3371 -24 -4.5 ] +[.01131 .3371 0 4.5 ] +[.01131 .44457 -24 -4.5 ] +[.01131 .44457 0 4.5 ] +[.01131 .55203 -18 -4.5 ] +[.01131 .55203 0 4.5 ] +[ 0 0 0 0 ] +[ 1 .61803 0 0 ] +] MathScale +% Start of Graphics +1 setlinecap +1 setlinejoin +newpath +0 g +.25 Mabswid +[ ] 0 setdash +.15079 .01472 m +.15079 .02097 L +s +[(2)] .15079 .00222 0 1 Mshowa +.27778 .01472 m +.27778 .02097 L +s +[(4)] .27778 .00222 0 1 Mshowa +.40476 .01472 m +.40476 .02097 L +s +[(6)] .40476 .00222 0 1 Mshowa +.53175 .01472 m +.53175 .02097 L +s +[(8)] .53175 .00222 0 1 Mshowa +.65873 .01472 m +.65873 .02097 L +s +[(10)] .65873 .00222 0 1 Mshowa +.78571 .01472 m +.78571 .02097 L +s +[(12)] .78571 .00222 0 1 Mshowa +.9127 .01472 m +.9127 .02097 L +s +[(14)] .9127 .00222 0 1 Mshowa +.125 Mabswid +.05556 .01472 m +.05556 .01847 L +s +.0873 .01472 m +.0873 .01847 L +s +.11905 .01472 m +.11905 .01847 L +s +.18254 .01472 m +.18254 .01847 L +s +.21429 .01472 m +.21429 .01847 L +s +.24603 .01472 m +.24603 .01847 L +s +.30952 .01472 m +.30952 .01847 L +s +.34127 .01472 m +.34127 .01847 L +s +.37302 .01472 m +.37302 .01847 L +s +.43651 .01472 m +.43651 .01847 L +s +.46825 .01472 m +.46825 .01847 L +s +.5 .01472 m +.5 .01847 L +s +.56349 .01472 m +.56349 .01847 L +s +.59524 .01472 m +.59524 .01847 L +s +.62698 .01472 m +.62698 .01847 L +s +.69048 .01472 m +.69048 .01847 L +s +.72222 .01472 m +.72222 .01847 L +s +.75397 .01472 m +.75397 .01847 L +s +.81746 .01472 m +.81746 .01847 L +s +.84921 .01472 m +.84921 .01847 L +s +.88095 .01472 m +.88095 .01847 L +s +.94444 .01472 m +.94444 .01847 L +s +.97619 .01472 m +.97619 .01847 L +s +.25 Mabswid +0 .01472 m +1 .01472 L +s +.02381 .12218 m +.03006 .12218 L +s +[(0.02)] .01131 .12218 1 0 Mshowa +.02381 .22964 m +.03006 .22964 L +s +[(0.04)] .01131 .22964 1 0 Mshowa +.02381 .3371 m +.03006 .3371 L +s +[(0.06)] .01131 .3371 1 0 Mshowa +.02381 .44457 m +.03006 .44457 L +s +[(0.08)] .01131 .44457 1 0 Mshowa +.02381 .55203 m +.03006 .55203 L +s +[(0.1)] .01131 .55203 1 0 Mshowa +.125 Mabswid +.02381 .04158 m +.02756 .04158 L +s +.02381 .06845 m +.02756 .06845 L +s +.02381 .09531 m +.02756 .09531 L +s +.02381 .14904 m +.02756 .14904 L +s +.02381 .17591 m +.02756 .17591 L +s +.02381 .20277 m +.02756 .20277 L +s +.02381 .25651 m +.02756 .25651 L +s +.02381 .28337 m +.02756 .28337 L +s +.02381 .31024 m +.02756 .31024 L +s +.02381 .36397 m +.02756 .36397 L +s +.02381 .39083 m +.02756 .39083 L +s +.02381 .4177 m +.02756 .4177 L +s +.02381 .47143 m +.02756 .47143 L +s +.02381 .4983 m +.02756 .4983 L +s +.02381 .52516 m +.02756 .52516 L +s +.02381 .57889 m +.02756 .57889 L +s +.02381 .60576 m +.02756 .60576 L +s +.25 Mabswid +.02381 0 m +.02381 .61803 L +s +0 0 m +1 0 L +1 .61803 L +0 .61803 L +closepath +clip +newpath +.5 Mabswid +.02381 .01472 m +.06244 .12073 L +.10458 .23188 L +.14415 .32802 L +.18221 .40977 L +.22272 .48259 L +.26171 .53704 L +.28302 .55995 L +.30316 .57709 L +.31285 .58377 L +.32313 .58977 L +.33276 .59437 L +.34157 .59772 L +.35098 .60043 L +.35617 .60154 L +.3611 .60234 L +.3633 .60262 L +.36564 .60287 L +.36785 .60305 L +.36985 .60318 L +.37108 .60323 L +.37222 .60327 L +.37346 .6033 L +.37477 .60332 L +.37591 .60332 L +.37698 .60331 L +.37815 .60328 L +.3794 .60324 L +.38062 .60319 L +.38197 .60311 L +.38469 .60291 L +.38721 .60266 L +.38958 .60237 L +.3949 .60153 L +.40064 .60035 L +.41114 .59744 L +.42077 .59396 L +.43969 .58496 L +.46039 .57209 L +.50095 .53905 L +.54 .49958 L +.58149 .45213 L +.62148 .40358 L +.65994 .3563 L +.70086 .30723 L +.74026 .26259 L +.77815 .22302 L +.81849 .18514 L +.85731 .15313 L +.89859 .12393 L +Mistroke +.93835 .10033 L +.97619 .08171 L +Mfstroke +% End of Graphics +MathPictureEnd +\ +\>"], "Graphics", + ImageSize->{288, 177.938}, + ImageMargins->{{43, 0}, {0, 0}}, + ImageRegion->{{0, 1}, {0, + 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ +eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ +GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM +b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ +1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 +9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX +KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 +1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu +UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV +Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX +r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO +rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q +pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq +b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk ++9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj +oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi +z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp +jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd +dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw +cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 +Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe +TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj +UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE +/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM +opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 +RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ +u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y +XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV +nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi +T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 +OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U +ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY +E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S +Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT +vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ +zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO +nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm +oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU +fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd +G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han +eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao +n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv +6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 +gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF +hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 +d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS +0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 +bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 +wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF +7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 +ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe +37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg +X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu +TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 +CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 +FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX +A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs +LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr +AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo +2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr +rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 +1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 +dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO +endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 +mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK +Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ +\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\ +b13fedb5cf43"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[704, 26, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[859, 31, 149, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[1011, 37, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[1192, 44, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[2468, 87, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2611, 92, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[3527, 124, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3670, 129, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[4634, 163, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4777, 168, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[5312, 188, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5450, 193, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[6078, 216, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6215, 221, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[6362, 227, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6500, 232, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[6647, 238, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6784, 243, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[6942, 249, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7080, 254, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[7238, 260, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7376, 265, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[13408, 451, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13547, 456, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[13892, 466, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[14237, 474, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14374, 479, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[20473, 667, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20613, 672, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[20958, 682, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[21303, 690, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21440, 695, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[24080, 784, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24218, 789, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[26798, 875, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26937, 880, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[30626, 999, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[30743, 1002, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[30906, 1009, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[32961, 1070, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[33306, 1078, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[33651, 1086, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33788, 1091, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[35843, 1152, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[36188, 1160, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[36533, 1168, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36670, 1173, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[38609, 1228, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[38954, 1236, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[39299, 1244, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[39644, 1252, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[40054, 1261, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[48099, 1627, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48327, 1637, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[50472, 1700, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[50817, 1708, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[51162, 1716, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[51507, 1724, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[51917, 1733, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[59968, 2088, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60196, 2098, 327, 7, 34, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[60526, 2107, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70255, 2334, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[70515, 2342, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], +Cell[73098, 2386, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83322, 2618, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[83542, 2627, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83679, 2632, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[85498, 2687, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[85843, 2695, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[86188, 2703, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[86533, 2711, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[86943, 2720, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[95157, 3087, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95385, 3097, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[96978, 3146, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[97323, 3154, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[97461, 3159, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[99715, 3225, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[100060, 3233, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[100405, 3241, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[100545, 3246, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[102769, 3312, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[103114, 3320, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[103459, 3328, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[103596, 3333, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[105820, 3399, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[106165, 3407, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[106510, 3415, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[106648, 3420, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[106864, 3428, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[106983, 3431, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[107253, 3440, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[107788, 3460, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[107925, 3465, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[108072, 3471, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108209, 3476, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[108367, 3482, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108504, 3487, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[114536, 3673, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114675, 3678, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[115020, 3688, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[115365, 3696, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[115501, 3701, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[121600, 3889, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[121739, 3894, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[122084, 3904, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[122429, 3912, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[122566, 3917, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[125206, 4006, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125344, 4011, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[127924, 4097, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[128063, 4102, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[131752, 4221, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131891, 4226, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[133948, 4287, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[134293, 4295, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[134638, 4303, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[134776, 4308, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[136833, 4369, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[137178, 4377, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[137523, 4385, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[137660, 4390, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[139693, 4447, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[140038, 4455, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[140383, 4463, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[140728, 4471, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[141138, 4480, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[150597, 4920, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150825, 4930, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[152976, 4993, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[153321, 5001, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[153666, 5009, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[154011, 5017, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[154421, 5026, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[162994, 5396, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163222, 5406, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[163482, 5414, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], +Cell[166065, 5458, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], +Cell[CellGroupData[{ +Cell[176303, 5690, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[177896, 5739, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[178241, 5747, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178379, 5752, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[180629, 5818, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[180974, 5826, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[181319, 5834, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181457, 5839, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[183679, 5905, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[184024, 5913, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[184369, 5921, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184507, 5926, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[186733, 5992, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[187078, 6000, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[187423, 6008, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187561, 6013, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[187779, 6021, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[187896, 6024, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[188170, 6033, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[188705, 6053, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188843, 6058, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[188990, 6064, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189128, 6069, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[189286, 6075, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189423, 6080, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[195455, 6266, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195594, 6271, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[195939, 6281, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[196284, 6289, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196421, 6294, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[202520, 6482, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202659, 6487, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[203004, 6497, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[203349, 6505, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203485, 6510, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[206125, 6599, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206263, 6604, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[208843, 6690, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208982, 6695, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[212671, 6814, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212810, 6819, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[214867, 6880, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[215212, 6888, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[215557, 6896, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215694, 6901, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[217751, 6962, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[218096, 6970, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[218441, 6978, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218578, 6983, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[220609, 7040, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[220954, 7048, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[221299, 7056, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[221644, 7064, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[222054, 7073, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[231513, 7513, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231741, 7523, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[233890, 7586, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[234235, 7594, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[234580, 7602, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[234925, 7610, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[235335, 7619, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[243908, 7989, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244136, 7999, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[244396, 8007, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], +Cell[246979, 8051, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], +Cell[CellGroupData[{ +Cell[257217, 8283, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[258810, 8332, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[259155, 8340, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259293, 8345, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[261545, 8411, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[261890, 8419, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[262235, 8427, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262372, 8432, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[264596, 8498, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[264941, 8506, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[265286, 8514, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265422, 8519, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[267646, 8585, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[267991, 8593, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[268336, 8601, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268474, 8606, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[268689, 8614, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___osc_Qw1.nb b/templates/light_case/l___osc_Qw1.nb new file mode 100644 index 0000000..b6630a6 --- /dev/null +++ b/templates/light_case/l___osc_Qw1.nb @@ -0,0 +1,14290 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 569020, 14282] +NotebookOptionsPosition[ 528338, 13640] +NotebookOutlinePosition[ 528792, 13658] +CellTagsIndexPosition[ 528749, 13655] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-\ +fe37ee9edd84"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}},ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-\ +b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, + 3.9917930477498703`*^9},ExpressionUUID->"93a900cf-d755-b944-921b-\ +a609f0a955d2"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[365]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5484745762711865`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[367]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[368]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[369]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["5.489843249749507`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, + 3.99179305435186*^9},ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.420231827681518`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, + 3.991793052797516*^9},ExpressionUUID->"2d27be30-fef3-4449-b748-\ +886004fbb723"], + +Cell[BoxData["0.787931405657569`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[372]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9}, + CellLabel-> + "Out[372]=",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[231]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9}, + CellLabel-> + "Out[231]=",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[232]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9}, + CellLabel-> + "Out[232]=",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[234]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.686923100169971`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[235]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.4218526400906269`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.08278118592697929`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.2980016292909601`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel-> + "In[239]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[241]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.9917930777342243`*^9},ExpressionUUID->"6e10280b-ebb3-f646-bb1d-\ +00a00fc0ed1c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, + 3.991843111569187*^9}},ExpressionUUID->"b89c6b57-db32-1742-8cc6-\ +85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel-> + "In[244]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["42"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[245]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["106"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.11011611030478954`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.5641364296081277`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.991972093618887*^9, + 3.9919720982596817`*^9}},ExpressionUUID->"622e209c-a48d-e442-88d4-\ +31c1022a52c8"], + +Cell[BoxData["18.93801245170691`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[249]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, + 3.991793106556059*^9},ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-\ +94e32bbe2818"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, + 3.9918431193894367`*^9}},ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-\ +4b5b928d8058"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9},ExpressionUUID->"59432052-36a9-0e4a-b136-\ +b5ef6e1cf7dc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, + 3.9918431207603054`*^9}},ExpressionUUID->"7620191d-049f-d749-807c-\ +ff7994d2bf64"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9},ExpressionUUID->"2838c52a-e621-824e-8a28-\ +6ddd911b4320"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, + 3.9918431220220585`*^9}},ExpressionUUID->"42e257a2-6901-9d4f-a831-\ +1954f32e9186"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9},ExpressionUUID->"26236e3a-fdac-eb4e-a22f-\ +56d02cebcf41"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, + 3.9918431238010616`*^9}},ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-\ +cdd040915619"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, + 3.9917931115739956`*^9},ExpressionUUID->"02fa1476-84ef-ac4d-a088-\ +22546d6249ff"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, + 3.991843124921198*^9}},ExpressionUUID->"5841a374-f07b-3948-b1fb-\ +c9f1f2e2508c"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, + 3.9917931128910503`*^9},ExpressionUUID->"2fad32fe-2323-a247-8df8-\ +53787ce8fe84"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, + 3.991843126104536*^9}},ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-\ +65c9268fc5eb"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, + 3.991793114539028*^9},ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-\ +1d0e115472c2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, + 3.9918431274461517`*^9}},ExpressionUUID->"dfb148c5-f80e-3f46-b88b-\ +570a723a95bc"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9},ExpressionUUID->"db5cb55e-0710-c147-81f4-\ +1d5b600a6284"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, + 3.991843129574024*^9}},ExpressionUUID->"bc012921-2f5f-014d-9378-\ +a2fad1ed7321"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[258]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["2.125171289585548`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[259]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.17070935194563583`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[260]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "34.511403639297946`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[261]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "83.07900804214765`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9}, + CellLabel-> + "Out[261]=",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "41.56826179685921`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[263]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "203.43164082674423`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9}, + CellLabel-> + "Out[263]=",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[265]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9}, + CellLabel-> + "Out[265]=",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[266]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9}, + CellLabel-> + "Out[266]=",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["172.12502478909397`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "113.59821940674647`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["98.17642406365678`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.686923100169971`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.4218526400906269`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.08278118592697929`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.2980016292909601`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[275]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[276]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "10.231164697136627`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[277]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "26.106849154646998`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[278]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["161.89386009195735`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[279]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "113.59821940674647`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9}, + CellLabel-> + "Out[279]=",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[280]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["72.06957490900979`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9}, + CellLabel-> + "Out[280]=",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[281]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["18.449895895311947`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9}, + CellLabel-> + "Out[281]=",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["415.25946300708097`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{3.991708306458519*^9, + 3.991793259431082*^9},ExpressionUUID->"3ae683e0-3adf-504a-90dd-\ +615dd0a61fd8"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9},ExpressionUUID->"4fc0783d-23dd-314f-a326-\ +64b7548d9620"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[285]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["2.1312101525350907`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9, 3.991708376806082*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[286]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["1.4858228808851638`*^-54"], "Output", + CellChangeTimes->{3.99132042159643*^9, 3.9917083768301735`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel-> + "In[287]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["2.6038386215415245`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9, 3.99170837683708*^9}, + CellLabel-> + "Out[287]=",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{ + 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, + 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, + 3.992086602134493*^9, 3.9920866682814503`*^9, {3.992086776768282*^9, + 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, + 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { + 3.9920915619364376`*^9, 3.9920915885645847`*^9}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"5de7561a-c835-3849-9551-bb5f09fb8931"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, + 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, + 3.992086668289461*^9, {3.992086776775297*^9, 3.9920868041333256`*^9}, + 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { + 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, + 3.992091588571615*^9}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"beba7504-d2e1-a34b-a313-c333191940c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{ + 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, + 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, + 3.992086602164238*^9, 3.9920866683116226`*^9, {3.9920867767991753`*^9, + 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, + 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { + 3.9920915619686337`*^9, 3.992091588596325*^9}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{ + 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, + 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { + 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { + 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, + 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"d7d09352-2c05-664e-adfe-6b091391fe65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{ + 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, + 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, + 3.9920866683466625`*^9, {3.9920867768341465`*^9, 3.9920868041850357`*^9}, + 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { + 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, + 3.9920915886284447`*^9}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"b02669f8-f1a8-2943-9a89-7343edcc9853"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{ + 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, + 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, + 3.99208660222736*^9, 3.9920866683701725`*^9, {3.9920867768552227`*^9, + 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, + 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { + 3.992091562006651*^9, 3.992091588636162*^9}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"11285b94-1266-8642-a7e7-e61a093e4602"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"63e87b25-79d4-3346-a596-4a114e4195fc"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{ + 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, + 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, + 3.992086602254381*^9, {3.992086776882221*^9, 3.9920868042180786`*^9}, + 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { + 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, + 3.992091588657053*^9}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{ + 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, + 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { + 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { + 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, + 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"e77bd64f-d028-c642-9f71-6c1fd3581451"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["33.673965872471406`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[289]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["49.795622284896666`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9}, + CellLabel-> + "Out[289]=",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["0.7402012706407647`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[291]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["2.8877805501281797`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9}, + CellLabel-> + "Out[291]=",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[292]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["143.79882951585392`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9}, + CellLabel-> + "Out[292]=",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["24.92551232631708`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.022775763954669258`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["5.872303105605972`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.012016705373490482`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["8.084482663469702`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, + 3.991972394033249*^9}},ExpressionUUID->"c3247e8e-1dc6-bd47-b085-\ +4abc2b2cf1d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991795120812044*^9},ExpressionUUID->"9522bfa2-96cd-564e-b4a1-\ +30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 301, 87, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 88, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775622177`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 89, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.991708377570215*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 90, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775782185`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], + +Cell[BoxData["5.872303105605971`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991795125308359*^9},ExpressionUUID->"61b1cdf2-7f57-2647-9828-\ +9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 302, 91, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 302, 92, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380758997*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 302, 93, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.9917083807669945`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 94, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380774996*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], + +Cell[BoxData["8.084482663469705`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917951318268585`*^9},ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-\ +abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{91.80048673422974, + 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VlsfB3BzGRvMROZSmYdosH8ZMo+lzOlxnmMqRLmKDAm3awi5pVGF +kgyZmpRX6UookiJFxueR4TGekPBuf5x11mftc77nu/Zee68jTwt2onOwsbEN +42v1fuKD+pYnrR+MDHnrTapmKWTEytOjmRYhxNm3XIndm6OfpWT6AnmW6muu +2oF4zyOg8x/q1H7bUY5dFhFTx23ajD41ZVKPsC/US9TGFH5Elh+vXijBftZ6 +4tYf7c9oTcX3Sw+xR7oao05Xd6I3C+4iBdhSQ4ruv0y+o5X9Evx52NYTUYZh +zT+QhPPGiBzsmj8j/BGFfchyzsr9GvaXOPHIx0ED6IZkXWUWNovHdGRWewix +vYo8n4bNkxLiqjPHQGr84Y1J2LIbbjacqB5Gr9UrEmOx7aR/3WOZjKE0l8Wj +IdjkbQUxtbUspGjBG+eLHaNsnxDYPIHeDxwR88LuFG/XOlk4hTQ5WbmW2IRb +gP+llGnUr696wwh78gbbnfKgGXQjvJJPB3utgtr6KW0KiSTXWUlhZxF15utF +fyHnL9abBLHl7rvGaMz9QjlSasTKDIUMdiSyjlfPI+0UrsP92H76P5pHTP6g +9hCnd3ewZyNOcfGpLCE73XHbdOzYav49qmuXkfSJOYto7GwweOjbvIISj/ve +dcEm8htMQwvZwS9KbIAHu7D+Um+cNAfk+6ZKT03jvkyvqIwUDog9m97YhR21 +jap4FMQJVYetU4qws0rlFSe0uYEVxpdjid3VOlaznMsNS5UuKRrYctNP3IRE +eUCa7dCkCHaRrl2m2hwP6C+EbOqZotCbZ2fYj1WvBbEXldwB2FTdpx/DJgKg +F6ki7zdJoY02AusjawRgYDkj2Rhbs90UBA0F4T2dw3kTdsBg1W0tdSGwcdrI +/WGCQiEczZp7BdaDJHztUsUeUiiZSvi1AXaqvCXqxvH8kI28LTobwSgjq+4S +NsdDhrzEiY1wgWM+zgdbTmezU+HoRhD5/kCGHdvNJL38Q68wvFvp+ag7RqEW +n9Aw8SZRmMxV3Rk9QqGe+2nJ3mvFIPCyb5Yp9thoYe4DMzEQs2U58mHznRz4 +tLtWDCb2r2Fd+kkh0/MHdb2rxEH5xNuHOcMUep6nTxXkSIJkxrjFVQaF8oZ+ +h+86KQPr7JcCRfspZOGc1BNWLAPX9uwWed+H898I7y9myIBIV732eWzdvB2i +cq6y4Jr+p22yF88nzauC22gzLO71vFP3g0LTE71/DcfLwY562XP23RQSPm5a +WWGrAK7KS8/YOinEyOPzcwhQgFtncszvd1Do6fdW6fFEBTAj/G1tsT1sPONV +ahWgIL7q1ZUvuN/2cKer2orQJ7xip/IZf3/k/mS0uBIExajwb2uj0EFffjWr +PmUwKRRNaG6iEAp31j68pAym9kYOBPa2hJydhKQKeEXOX1tspBBbro5xtKMK +ZBkElG7FLu5xP1z+SgXCr5h9iWrA+/NQUZzU3S3AXqazQ/A/3M/U9ssITRUW +i37FfHhJIWmFizHJgztgeLrHuLOYQi/+mVVd4FADY8HCtWbYHjOu7aS8GvC/ +C95bVkShW2+UVI291KCQhzab9JBCCr7P2+Y71KDv8pbr6g9wv6IhZbJJHZby +XjK88ygkIy1LyrlqAqdZnr3bNQrtyD8psIi0QWP93r/vn6cQjYin1Oy0IU1p +u+FSPN5fipk93h7acHl0PNQJm/Nu6aP6CG24G0DGLcbh/XFr5GBmmTZ0jbkI +WsTg8y/b+6aqog6Efd222Hgar0eyjboLjy7Euhuwnw6i0J1QJYeqZj2Q4Ow4 +F3WIQq3haOf5fEOQXFeben0TheS9Ptt5HtsLH9vctWK/zyL6yuMSmdMA65Jc +z7dfm0Xio0/XiNOMIVXyvuWU7Sw6qbPne+Y2U7iYxBOfyD6LaON/GoRHzCC6 +Vjp2tHwGFRuHrclpMYfpu0mWu9xmUN5swKuiLEvIyS2omuKaQfP7JN6/ibGG +hKTU7afvTaNuNs6pvqO28Gl3Ce9Ri2kUtCk4PU7RHtbYRZWwT06hEv+G2n8T +HGBCrENROH0KnZmRnNvu7whj1rLnKP0pRFntP/T2iBNY+0+wHemYRIbuGfuG +HA/AvWv1YQtnJlGb5M2ANzoHgZnomx+iMomk7sW/KNjqDO/UZa0YVyfQ095t +NnaCh2C75LCF/xwLybZP+oaPHwKDBGmRQQ8W0vk3oyi39zB4VyzZrqkeRze5 +ZtQz61wgyluQ95nqOHq8T6Mr4ZkrBNaYfmrOHEPZO//Z8KfQDYJ4NqvGc4+h +lm/5iTop7tBoMr/M+/coqrK9oRQS6wFmkb79izyjaOr4AbYgwhNMzEcPafw7 +gqj9qn4sEy84FkiPZ20fQQXjX+fD9I+AV+dNqqX2J3K5k+/jKeANm6OfDiT5 +/EQV5dZHOJO8oX45+NoD7p/IULpt4cKCN5yz6R1srhxGir2+XR/9j0Jh7EvP +b4HDaJA/0P7GwFH4KiSv1aA4jFrT7HzMnWlw9tjtV6JMJsqKyOE/1UqD6Usz +pwKLmOhFzcqCj6UPtKZnr587zUTrPCBJ57kPDGvpnd7tyERyIm9bNr3wgSP9 +WruyHZhIs9lWgqfGB3pf+R2n7JnIaY/7g85XPlCyErGtzA7nbwpvOvvOB9po +LctqNkwk1f1wXUOnDzCGngjuNWciJS/xbI85H7BxZJQ+2stEht6sggRdArTK +d5Pj25no3tXJMDt9Apr0r6cFY4t8mjYSNyBg5umY5PQ2JmKZzbUX7Cbguaan +67wqE583bOzNxgSwZxhE8m5lIqG5Da4bHQlQy+KwNFJiosFUPd6c4wQoDoUv +T21iIse3O9t9gwkYHBCKi8WuYduVo3mCgA+Wh8l12FfDjPRenyTA+NSUi7o0 +E9m5mh8diiTA6LVIT4gkEz1Tcn22/R8CivN9ybViTJRWHeX/9B4BXfuFaHHr +mOi49hXDiAICkK2+jiy2zYMyXoNCAuSvLtGqhZiI7wrjwZNiAg44+PT8EmSi +hFCHkceVBJSXeZiGCjBRlKpSYNVrAmgJV5rO8DJRwJWmY+U9BGRML1S3cTKR +pRBjT2gvAYvBTM9I7K0JbILa/QRku+/zUsJmhOoVlw0RAPG6Z/7iYKKjdjnj +j8YImE9mySqwM5ELd1hQ6W8CCLEAqQvLDGQeJhVSJEaH1tCMlpsLDPQ6J9Eq +U4IOaz5u+myNvad5WilCig6jxdmWv+cZSFO56auJLB0G9NxjXLAlOyJNvinT +IVG3W0YK/yeN7uoW49Ojg8pFf+XyWQa6yHH7pe8BOjjXPz2gN8lAfBoC2bbO +dNgyj3SnJhjovHtEqM5hOvBaJ8YXY0dUOmxZcaPD5mdWQVuwj5LsGZdpdDg4 +nXxSjsVAOo004r8TdHD7WWu8ZYyBOjKU+RXT6SAkNvU9aZiBSpCg33AGHXoM +6zSdsc+Pz74pvkSHA7K9gwrY2pZvog2u0MEi9tfx/zEZKI3NZ9r2Fh3e+kdx +LjEYaH/w7a8RRXRo+2vr7n+GGEhG5m99oxI6LPvsueSJPdsYfInzER2CdFKt +tbDvqiDbtAo6mEP/96+DDLTU3V2b+5wOGm0m5zSwK22kCz400CEzyqBjrJ+B +kn9zcGc10qFA56V2PTatYOSoazMdmu6HsnKw13M9lx5soYPJ72OJB7GPVbtc +XPhChyLBFIPXfQykuO1yuNIQHTZ8+JFX2stAvzvOfvrJoMNVxmbOi9itCXTN +0mE6BDsmvgrCju7THTEcowOtts5LA7sr+5On/Qwd2tsnpap+MFDmmg1mZ9hJ +WKuQfbWth4FeTHe7n+QkIZD3IrMSm9ldGBrETULideviK9h7Kk1v03hJ+Cgs +fNsLm+EdsWi1gYQvOu8UprtxfxuzjWbCJDCMvql3Yu/euVEViZJA9heX12Cn +CxYd0pEkIeJmpnzq6vjzH2XS8iRwbbW6oYFN5hc1iCqS0LbFkZRcfT799I91 +yiRc8xAp4MRmkMKCXKokfPd9n/n1Ox4XNvcb0ySBVfKHKxn7+bJwDEObhCOs +jpQI7KGfvf/26pIwWxKYQmLvqj1T125AQqdg9bQJ9uCxEtmXQILfQZY7F7aQ +S6TeE2MSHl4/d4f6xkCGJhY2ZaYkCHk3ezGx0yT7T+dbkBC9MQaasZ9ylabn +WJGQ5c0k/oc9MBF5/6oN7j/KyV6BbVAv+jnVgQSU7XL7OjatrH80yYmEUxrp +uenYqTdKOc4dxPM1cUY2Ebs/1FIz3IUEmTm/yFBsQS8x8xA3EqbfBXr6r+ZZ +DngGeJBg3iP3xHv1/c1nk728Sehhv/PRYbUPn9VdFxoJtIrATMvVPErsmRNB +QukIs9F4Na9voMWGJKEuRjRyz2pe8yPGfj8S6Lazd/VX+z05uwQBJKzROm+s +tZp/10pk9zHcj+8/1x2r+ani2/WCSJCteTy8ZTU/YnCfRggJbpquE4rYAkSZ +i2ooCUZWRcflsHfaRwcrnsR5c6U+Mqv5u6wTZcJJqFEiPkphpyhL3BSPIGH3 +m4bHEtiP1w9VbDhDgui7bmFx7L7Fskb+KBIyVXOHRVfzmdF93NEkTPRI6K1a +v816fiUGr+eg0YII9v8BEOUgTQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7142433994369197, 1.372243180027523}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7142433994369213}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7142433994369213}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7142433994369197, 1.372243180027523}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"53a037b2-adfa-594a-9d2f-46330d412a4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, + 3.991795135217745*^9},ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-\ +71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[RowBox[{\\\"8.853605365191904`*^-261\\\", \ +\\\"+\\\", RowBox[{\\\"1.2742895118713662`*^-259\\\", \\\" \\\", \\\"\ +\[ImaginaryI]\\\"}]}], \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 533, 172, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"1.150081977526622`*^-269\\\", \\\"-\\\", \ +RowBox[{\\\"8.13735877285888`*^-270\\\", \\\" \\\", \ +\\\"\[ImaginaryI]\\\"}]}], \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]}]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 533, 173, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940260538*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"1.4259413851482453`*^-279\\\", \\\"+\\\", \ +RowBox[{\\\"6.174183281740049`*^-280\\\", \\\" \\\", \ +\\\"\[ImaginaryI]\\\"}]}], \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]}]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 533, 174, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940269535*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 533, 175, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.9917149402775383`*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9}, + CellLabel-> + "Out[533]=",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-\ +642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"7b17964f-3903-af4c-a72d-\ +552615ef4a37"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9917953353381157`*^9},ExpressionUUID->"982133ce-0d36-4d45-a387-\ +ff35350b5cb9"], + +Cell[BoxData["10.627292063383525`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991795437556492*^9},ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-\ +edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"5ff9501d-78d7-7141-a437-5dd9f758c909"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"371084ac-a371-9848-9c63-34bb732ea61a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"498a6190-c65d-fd44-a483-d79a44a15949"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[305]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.309715528933026`*^-184\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 305, 99, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.907153735473414`*^-188\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 305, 100, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.991708903419855*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0425594616274893`*^-191\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 305, 101, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890342688*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 305, 102, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.991708903434841*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], + +Cell[BoxData["10.627292063383527`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9}, + CellLabel-> + "Out[305]=",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9},ExpressionUUID->"3915107a-86d9-0f46-b139-\ +986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 306, 103, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 306, 104, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098605328`*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 306, 105, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098695354`*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 306, 106, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909877537*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], + +Cell[BoxData["0.2260739757151122`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9}, + CellLabel-> + "Out[306]=",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795355482418*^9, + 3.991795359037939*^9}},ExpressionUUID->"f3705611-962a-7d49-8494-\ +287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 307, 107, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 307, 108, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089155044937`*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 307, 109, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.991708915514496*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 307, 110, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.991708915523493*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], + +Cell[BoxData["9.422377094778273`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9}, + CellLabel-> + "Out[307]=",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991795365232689*^9, + 3.991795367348419*^9}},ExpressionUUID->"1c2bb25c-a24b-4143-a03c-\ +8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 308, 111, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 308, 112, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191482677`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 308, 113, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191572685`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 114, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191662655`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], + +Cell[BoxData["17.858625133306074`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, + 3.9917953861610203`*^9}},ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-\ +b2cb4ed5c458"], + +Cell[BoxData["0.017427950615406845`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9},ExpressionUUID->"f1e753e6-7de9-0b47-aa25-\ +47e49d9ceac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[312]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["13.728880586425175`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["1.159256117025567`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[317]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["15.91528879972694`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[318]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.02865649962164857`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.235201118822964`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.013475770149867995`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["7.634281035327282`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99179485681155*^9},ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 325, 115, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 325, + 116, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997783745*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 325, + 117, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.9917089977927303`*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 325, 118, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997801733*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], + +Cell[BoxData["5.235201118822954`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99179697882374*^9},ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 326, 119, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 326, + 120, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001294739*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 326, + 121, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001302742*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 326, 122, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001311737*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], + +Cell[BoxData["7.634281035327276`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466101881027`*^9},ExpressionUUID->"00de6621-4f9e-8a45-8ea8-\ +edabb8e777e0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"982443ca-3c49-3842-942f-56dbbe6e860e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, + 3.991797003874716*^9}},ExpressionUUID->"f5360edc-957d-9f48-b8b4-\ +746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"16f95f8d-163b-784d-a7d4-d9be610470a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 112, 46, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461217346`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"668c7d88-6569-8648-b105-a03fa8ae5c99"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 112, 47, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913242461427383`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"ebfa0449-48eb-8345-a082-4900c9d8a835"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246159645*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh +pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC +C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe +hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T +4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O ++QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb +dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X +rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd +P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt +SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw +OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB +tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq +YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq +QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h +khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV +JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw +hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq +o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg +PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN +QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS +mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH +hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i +2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv +x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 +GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq +6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY +FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 +jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf +uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en +6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s +jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN +Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld +nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 +kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n +lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 +NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN +cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa +aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu +oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC +gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv +xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb +Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q +pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp +bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE +YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 +Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv +857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG +rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA +vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B +ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 +UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l +49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU +/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj +ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF +vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz +056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm +0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx +4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 +8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ +LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa +D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP +jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU +KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG +Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 +DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x +F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 +yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN +JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa +azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t +c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh +P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa +M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg +5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o +r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D +2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi +ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq +y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt +r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb +32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ +lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M +D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL +QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg +YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY +F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu +Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r +4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH +99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn +4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ +uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"ec297bd0-74ba-874e-beda-39d943d34a34"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, + 3.99179702451466*^9}},ExpressionUUID->"b422dcab-ec5f-5543-9fba-\ +aafac96e937c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.938169890743013`*^-175\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 328, 123, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.17889047361004`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 328, 124, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.991709170478571*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6987772228196017`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 328, 125, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704865704`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 328, 126, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704955845`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], + +Cell[BoxData["10.62729206338334`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970149184284`*^9, + 3.991797037687023*^9}},ExpressionUUID->"2e239e43-8455-8947-be70-\ +b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 329, 127, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 128, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175973011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 129, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175983019*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 329, 130, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.9917091759920235`*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], + +Cell[BoxData["1.1698825507998156`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970412382812`*^9, + 3.991797045066601*^9}},ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-\ +39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 330, 131, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 132, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805532475`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 133, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805632515`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 330, 134, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805722485`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], + +Cell[BoxData["7.488766577772476`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917970522453213`*^9, + 3.991797055966772*^9}},ExpressionUUID->"867b2dc8-7ef3-234b-80bd-\ +e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 331, 135, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 136, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849253387`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 137, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849343395`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 331, 138, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.99170918494335*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], + +Cell[BoxData["15.925014616300276`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, + 3.9917970642464314`*^9}},ExpressionUUID->"b1cee125-11a3-8a43-b076-\ +a72829d187d3"], + +Cell[BoxData["0.10712656920120021`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9},ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-\ +f61f4036bef1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[334]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["20.157626483814337`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[336]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["0.9567032806265168`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9}, + CellLabel-> + "Out[336]=",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["19.284867386709134`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[340]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.02613308078261745`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[341]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[342]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.012890445116466177`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[343]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["7.805684323619363`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[344]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9}, + CellLabel-> + "Out[344]=",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[346]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9}, + CellLabel-> + "Out[346]=",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917970976395664`*^9},ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-\ +9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 347, 139, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 347, 140, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.991709239377041*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 347, 141, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393860435`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 347, 142, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393950424`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991797103207548*^9},ExpressionUUID->"11801718-69ec-bf4e-86d8-\ +e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 348, 143, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 348, 144, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427604694`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 348, 145, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427704697`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 348, 146, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427794952`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], + +Cell[BoxData["7.805684323619356`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466101881027`*^9},ExpressionUUID->"8fb4818f-77bf-6445-8230-\ +c17265c2e6e9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"e447a546-4e4c-eb42-b69e-2528d5182b13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, + 3.9917971122297535`*^9}},ExpressionUUID->"4d882d59-3e42-1040-97a9-\ +33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 82, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730605392`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 138, 83, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913267730685368`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773076536*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 +SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh +IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT +QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu +O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt +BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 +di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x +cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc +op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq +1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv +BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 +tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH +U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa +3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu +wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk +M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf +9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K +jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS +ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs +aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL +SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a +z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t +1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF +lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW +9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh +cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF +SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY +6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx +h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld +kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 +arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g +bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa +P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 +tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt +Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ +kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD +j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us +m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q +R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ +L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 +RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN +GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki +fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ +Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c +r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 +RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp +Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ +NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx +kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj +6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W +bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm +GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 +S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN +ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 +HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT +7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ +NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ +k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 +QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd +vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I +e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ +S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS +IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS +qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ +Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O +crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi +Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa +k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws +Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft +jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 +LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV +tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi ++Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt +hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u ++pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 +Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL +gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo +ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw +yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx +0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v +8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 +DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ ++V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 +VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 +g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx +6WkevnFqfy3DCYX/A6WEJbo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"715f943f-d061-fa48-bb45-\ +20a62a80a7df"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1387495820703128`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 147, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.041608798521609`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 148, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711906605`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4344331657703033`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 350, 149, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.99170937119866*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 350, 150, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.991709371206663*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], + +Cell[BoxData["10.627292063383521`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971275265427`*^9, + 3.991797131794855*^9}},ExpressionUUID->"9b45c184-4df7-db4d-adb2-\ +01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 351, 151, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 351, 152, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377927576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 351, 153, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779375763`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 351, 154, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779455757`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], + +Cell[BoxData["0.7070855058258385`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971357813015`*^9, + 3.991797138809105*^9}},ExpressionUUID->"00ca455f-f3f6-2c4f-8927-\ +9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 352, 155, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 352, 156, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824649506`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 352, 157, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824741554`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 352, 158, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.991709382483162*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, + 3.991709478503729*^9}},ExpressionUUID->"8cac9b30-e121-024d-91d3-\ +cf92fd4a988a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917971437506504`*^9, + 3.991797147210884*^9}},ExpressionUUID->"b454660a-890c-f24b-923b-\ +563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 353, 159, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 353, 160, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.991709386619932*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 353, 161, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866289444`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 353, 162, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866369305`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], + +Cell[BoxData["16.648132369643353`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, + 3.9917971576817684`*^9}},ExpressionUUID->"673f44c9-71c5-b64a-9ddb-\ +ff434e6a2570"], + +Cell[BoxData["0.06047387015151299`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[994, 36, 279, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1276, 43, 236, 5, 25, "Output",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1549, 53, 173, 4, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[1725, 59, 233, 5, 25, "Output",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1995, 69, 180, 4, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2178, 75, 206, 4, 25, "Output",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2421, 84, 262, 8, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[2686, 94, 224, 4, 25, "Output",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2947, 103, 136, 3, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[3086, 108, 210, 4, 25, "Output",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3333, 117, 281, 7, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[3617, 126, 223, 4, 25, "Output",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3877, 135, 262, 8, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[4142, 145, 221, 4, 25, "Output",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4400, 154, 168, 3, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[4571, 159, 241, 4, 25, "Output",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4849, 168, 171, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[5023, 174, 242, 4, 25, "Output",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5302, 183, 133, 3, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[5438, 188, 204, 4, 25, "Output",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5679, 197, 133, 3, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[5815, 202, 203, 4, 25, "Output",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6055, 211, 561, 20, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[6619, 233, 195, 3, 25, "Output",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6851, 241, 561, 20, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[7415, 263, 196, 3, 25, "Output",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7648, 271, 1496, 49, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[9147, 322, 192, 3, 25, "Output",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9376, 330, 1335, 45, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[10714, 377, 212, 4, 25, "Output",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10963, 386, 1335, 45, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[12301, 433, 215, 4, 25, "Output",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12553, 442, 1496, 49, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[14052, 493, 193, 3, 25, "Output",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14282, 501, 135, 3, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[14420, 506, 179, 3, 25, "Output",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14636, 514, 181, 4, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[14820, 520, 179, 3, 25, "Output",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15036, 528, 138, 3, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[15177, 533, 183, 3, 25, "Output",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15397, 541, 223, 5, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[15623, 548, 194, 4, 25, "Output",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15854, 557, 138, 3, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[15995, 562, 183, 3, 25, "Output",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] +}, Open ]], +Cell[16193, 568, 250, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[16446, 575, 154, 3, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[16625, 582, 275, 6, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[16903, 590, 178, 3, 25, "Output",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17118, 598, 223, 5, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[17344, 605, 179, 3, 25, "Output",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17560, 613, 354, 11, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[17917, 626, 198, 3, 25, "Output",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18152, 634, 354, 11, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[18509, 647, 212, 4, 25, "Output",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18758, 656, 973, 27, 92, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[19734, 685, 194, 3, 25, "Output",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19965, 693, 203, 4, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[20171, 699, 179, 3, 25, "Output",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] +}, Open ]], +Cell[20365, 705, 224, 5, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[20592, 712, 156, 3, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[20751, 717, 270, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[21024, 724, 154, 3, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[21181, 729, 271, 5, 22, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[21455, 736, 156, 3, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[21614, 741, 275, 5, 22, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[21892, 748, 156, 3, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[22051, 753, 224, 5, 22, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[22278, 760, 154, 3, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[22435, 765, 226, 5, 22, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[22664, 772, 152, 3, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[22819, 777, 251, 5, 22, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[23073, 784, 156, 3, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[23232, 789, 196, 4, 22, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[23431, 795, 152, 3, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[23608, 802, 19813, 486, 1553, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[43424, 1290, 192, 3, 25, "Output",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[43653, 1298, 19752, 490, 1579, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[63408, 1790, 196, 3, 25, "Output",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63641, 1798, 19752, 484, 1572, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[83396, 2284, 210, 4, 25, "Output",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83643, 2293, 22538, 554, 1766, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[106184, 2849, 209, 4, 25, "Output",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[106430, 2858, 22539, 554, 1773, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[128972, 3414, 211, 4, 25, "Output",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[129220, 3423, 25495, 627, 1984, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[154718, 4052, 212, 4, 25, "Output",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154967, 4061, 134, 3, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[155104, 4066, 177, 3, 25, "Output",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155318, 4074, 134, 3, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[155455, 4079, 179, 3, 25, "Output",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155671, 4087, 1148, 40, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[156822, 4129, 195, 3, 25, "Output",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157054, 4137, 1045, 36, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[158102, 4175, 210, 4, 25, "Output",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158349, 4184, 1148, 40, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[159500, 4226, 196, 3, 25, "Output",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159733, 4234, 112, 2, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[159848, 4238, 194, 3, 25, "Output",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160079, 4246, 112, 2, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[160194, 4250, 212, 4, 25, "Output",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160443, 4259, 112, 2, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[160558, 4263, 213, 4, 25, "Output",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160808, 4272, 112, 2, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[160923, 4276, 195, 3, 25, "Output",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161155, 4284, 111, 2, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[161269, 4288, 195, 3, 25, "Output",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161501, 4296, 111, 2, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[161615, 4300, 194, 3, 25, "Output",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161846, 4308, 501, 17, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[162350, 4327, 212, 4, 25, "Output",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162599, 4336, 501, 17, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[163103, 4355, 210, 4, 25, "Output",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163350, 4364, 1792, 61, 109, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[165145, 4427, 195, 3, 25, "Output",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165377, 4435, 1105, 37, 64, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[166485, 4474, 212, 4, 25, "Output",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166734, 4483, 1822, 62, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[168559, 4547, 192, 3, 25, "Output",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168788, 4555, 2503, 78, 72, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[171294, 4635, 197, 3, 25, "Output",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171528, 4643, 2503, 78, 72, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[174034, 4723, 193, 3, 25, "Output",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] +}, Open ]], +Cell[174242, 4729, 169, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[174414, 4735, 198, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[CellGroupData[{ +Cell[174637, 4743, 1301, 43, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[175941, 4788, 197, 3, 25, "Output",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176175, 4796, 838, 28, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[177016, 4826, 199, 3, 25, "Output",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177252, 4834, 893, 31, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[178148, 4867, 199, 3, 25, "Output",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178384, 4875, 558, 19, 42, "Input",ExpressionUUID->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], +Cell[178945, 4896, 567, 9, 25, "Output",ExpressionUUID->"5de7561a-c835-3849-9551-bb5f09fb8931"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179549, 4910, 665, 22, 42, "Input",ExpressionUUID->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], +Cell[180217, 4934, 554, 9, 25, "Output",ExpressionUUID->"beba7504-d2e1-a34b-a313-c333191940c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180808, 4948, 170, 5, 46, "Input",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], +Cell[180981, 4955, 577, 9, 25, "Output",ExpressionUUID->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181595, 4969, 236, 6, 45, "Input",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], +Cell[181834, 4977, 514, 8, 25, "Output",ExpressionUUID->"d7d09352-2c05-664e-adfe-6b091391fe65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182385, 4990, 223, 6, 35, "Input",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], +Cell[182611, 4998, 549, 9, 25, "Output",ExpressionUUID->"b02669f8-f1a8-2943-9a89-7343edcc9853"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183197, 5012, 181, 5, 35, "Input",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], +Cell[183381, 5019, 567, 9, 25, "Output",ExpressionUUID->"11285b94-1266-8642-a7e7-e61a093e4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183985, 5033, 6055, 185, 310, "Input",ExpressionUUID->"63e87b25-79d4-3346-a596-4a114e4195fc"], +Cell[190043, 5220, 548, 9, 25, "Output",ExpressionUUID->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190628, 5234, 368, 9, 33, "Input",ExpressionUUID->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], +Cell[190999, 5245, 521, 8, 25, "Output",ExpressionUUID->"e77bd64f-d028-c642-9f71-6c1fd3581451"] +}, Open ]], +Cell[191535, 5256, 492, 10, 34, "Input",ExpressionUUID->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], +Cell[CellGroupData[{ +Cell[192052, 5270, 558, 19, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[192613, 5291, 193, 3, 25, "Output",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192843, 5299, 623, 21, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[193469, 5322, 197, 3, 25, "Output",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193703, 5330, 170, 5, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[193876, 5337, 195, 3, 25, "Output",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194108, 5345, 170, 5, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[194281, 5352, 195, 3, 25, "Output",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194513, 5360, 181, 5, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[194697, 5367, 197, 3, 25, "Output",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194931, 5375, 181, 5, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[195115, 5382, 196, 3, 25, "Output",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195348, 5390, 6055, 185, 310, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[201406, 5577, 197, 3, 25, "Output",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201640, 5585, 368, 9, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[202011, 5596, 194, 3, 25, "Output",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202242, 5604, 6122, 187, 353, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[208367, 5793, 199, 3, 25, "Output",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208603, 5801, 368, 9, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[208974, 5812, 196, 3, 25, "Output",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209207, 5820, 2663, 88, 135, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[211873, 5910, 197, 3, 25, "Output",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212107, 5918, 2603, 85, 135, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[214713, 6005, 198, 3, 25, "Output",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214948, 6013, 3712, 118, 197, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[218663, 6133, 198, 3, 25, "Output",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] +}, Open ]], +Cell[218876, 6139, 257, 6, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[219158, 6149, 2052, 59, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[221213, 6210, 580, 12, 50, "Message",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], +Cell[221796, 6224, 582, 12, 50, "Message",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], +Cell[222381, 6238, 584, 12, 50, "Message",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], +Cell[222968, 6252, 481, 10, 20, "Message",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], +Cell[223452, 6264, 196, 3, 25, "Output",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223685, 6272, 2052, 59, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[225740, 6333, 578, 12, 50, "Message",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], +Cell[226321, 6347, 580, 12, 50, "Message",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], +Cell[226904, 6361, 586, 12, 50, "Message",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], +Cell[227493, 6375, 479, 10, 20, "Message",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], +Cell[227975, 6387, 192, 3, 25, "Output",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228204, 6395, 1938, 53, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[230145, 6450, 20226, 378, 191, "Output",ExpressionUUID->"53a037b2-adfa-594a-9d2f-46330d412a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250408, 6833, 2116, 60, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[252527, 6895, 632, 13, 50, "Message",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], +Cell[253162, 6910, 654, 14, 50, "Message",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], +Cell[253819, 6926, 658, 14, 50, "Message",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], +Cell[254480, 6942, 480, 10, 20, "Message",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], +Cell[254963, 6954, 184, 3, 25, "Output",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255184, 6962, 327, 7, 34, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[255514, 6971, 9707, 222, 192, "Output",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265258, 7198, 257, 6, 34, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[265518, 7206, 2580, 42, 70, "Message",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], +Cell[268101, 7250, 10201, 227, 70, "Output",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] +}, Closed]], +Cell[CellGroupData[{ +Cell[278339, 7482, 301, 10, 32, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[278643, 7494, 197, 3, 25, "Output",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278877, 7502, 1814, 53, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[280694, 7557, 506, 11, 50, "Message",ExpressionUUID->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], +Cell[281203, 7570, 512, 11, 50, "Message",ExpressionUUID->"5ff9501d-78d7-7141-a437-5dd9f758c909"], +Cell[281718, 7583, 509, 11, 50, "Message",ExpressionUUID->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], +Cell[282230, 7596, 456, 10, 20, "Message",ExpressionUUID->"371084ac-a371-9848-9c63-34bb732ea61a"], +Cell[282689, 7608, 22336, 412, 187, "Output",ExpressionUUID->"498a6190-c65d-fd44-a483-d79a44a15949"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305062, 8025, 1616, 48, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[306681, 8075, 603, 12, 53, "Message",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], +Cell[307287, 8089, 609, 12, 53, "Message",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], +Cell[307899, 8103, 612, 12, 53, "Message",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], +Cell[308514, 8117, 478, 10, 20, "Message",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], +Cell[308995, 8129, 195, 3, 25, "Output",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309227, 8137, 2274, 64, 131, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[311504, 8203, 579, 12, 50, "Message",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], +Cell[312086, 8217, 583, 12, 50, "Message",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], +Cell[312672, 8231, 587, 12, 50, "Message",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], +Cell[313262, 8245, 480, 10, 20, "Message",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], +Cell[313745, 8257, 195, 3, 25, "Output",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313977, 8265, 2219, 64, 131, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[316199, 8331, 578, 12, 50, "Message",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], +Cell[316780, 8345, 580, 12, 50, "Message",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], +Cell[317363, 8359, 582, 12, 50, "Message",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], +Cell[317948, 8373, 477, 10, 20, "Message",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], +Cell[318428, 8385, 196, 3, 25, "Output",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318661, 8393, 2219, 64, 131, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[320883, 8459, 577, 12, 50, "Message",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], +Cell[321463, 8473, 581, 12, 50, "Message",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], +Cell[322047, 8487, 585, 12, 50, "Message",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], +Cell[322635, 8501, 480, 10, 20, "Message",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], +Cell[323118, 8513, 193, 3, 25, "Output",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323348, 8521, 213, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[323564, 8529, 197, 3, 25, "Output",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] +}, Open ]], +Cell[323776, 8535, 245, 5, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[324046, 8544, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[324607, 8565, 195, 3, 25, "Output",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324839, 8573, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[325012, 8580, 196, 3, 25, "Output",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325245, 8588, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[325429, 8595, 193, 3, 25, "Output",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325659, 8603, 6055, 185, 310, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[331717, 8790, 194, 3, 25, "Output",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331948, 8798, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[332319, 8809, 192, 3, 25, "Output",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332548, 8817, 6122, 187, 353, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[338673, 9006, 199, 3, 25, "Output",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338909, 9014, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[339280, 9025, 192, 3, 25, "Output",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339509, 9033, 2663, 88, 135, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[342175, 9123, 197, 3, 25, "Output",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342409, 9131, 2603, 85, 135, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[345015, 9218, 194, 3, 25, "Output",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345246, 9226, 3712, 118, 197, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[348961, 9346, 196, 3, 25, "Output",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349194, 9354, 2049, 58, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[351246, 9414, 594, 12, 50, "Message",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], +Cell[351843, 9428, 597, 12, 50, "Message",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], +Cell[352443, 9442, 604, 12, 69, "Message",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], +Cell[353050, 9456, 480, 10, 20, "Message",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], +Cell[353533, 9468, 194, 3, 25, "Output",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353764, 9476, 2049, 58, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[355816, 9536, 594, 12, 50, "Message",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], +Cell[356413, 9550, 597, 12, 50, "Message",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], +Cell[357013, 9564, 602, 12, 69, "Message",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], +Cell[357618, 9578, 480, 10, 20, "Message",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], +Cell[358101, 9590, 194, 3, 25, "Output",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358332, 9598, 2030, 55, 54, "Input",ExpressionUUID->"00de6621-4f9e-8a45-8ea8-edabb8e777e0"], +Cell[360365, 9655, 20422, 382, 189, "Output",ExpressionUUID->"982443ca-3c49-3842-942f-56dbbe6e860e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380824, 10042, 2115, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[382942, 10104, 499, 11, 33, "Message",ExpressionUUID->"16f95f8d-163b-784d-a7d4-d9be610470a4"], +Cell[383444, 10117, 504, 11, 33, "Message",ExpressionUUID->"668c7d88-6569-8648-b105-a03fa8ae5c99"], +Cell[383951, 10130, 507, 11, 50, "Message",ExpressionUUID->"ebfa0449-48eb-8345-a082-4900c9d8a835"], +Cell[384461, 10143, 455, 10, 20, "Message",ExpressionUUID->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], +Cell[384919, 10155, 22381, 415, 188, "Output",ExpressionUUID->"ec297bd0-74ba-874e-beda-39d943d34a34"] +}, Open ]], +Cell[407315, 10573, 206, 5, 34, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[CellGroupData[{ +Cell[407546, 10582, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[409165, 10632, 618, 12, 53, "Message",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], +Cell[409786, 10646, 618, 12, 53, "Message",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], +Cell[410407, 10660, 626, 12, 53, "Message",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], +Cell[411036, 10674, 482, 10, 20, "Message",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], +Cell[411521, 10686, 192, 3, 25, "Output",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411750, 10694, 2249, 64, 131, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[414002, 10760, 594, 12, 50, "Message",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], +Cell[414599, 10774, 597, 12, 50, "Message",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], +Cell[415199, 10788, 602, 12, 69, "Message",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], +Cell[415804, 10802, 482, 10, 20, "Message",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], +Cell[416289, 10814, 197, 3, 25, "Output",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416523, 10822, 2221, 64, 131, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[418747, 10888, 592, 12, 50, "Message",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], +Cell[419342, 10902, 597, 12, 50, "Message",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], +Cell[419942, 10916, 602, 12, 69, "Message",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], +Cell[420547, 10930, 480, 10, 20, "Message",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], +Cell[421030, 10942, 196, 3, 25, "Output",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421263, 10950, 2221, 64, 131, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[423487, 11016, 596, 12, 50, "Message",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], +Cell[424086, 11030, 599, 12, 50, "Message",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], +Cell[424688, 11044, 604, 12, 69, "Message",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], +Cell[425295, 11058, 479, 10, 20, "Message",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], +Cell[425777, 11070, 197, 3, 25, "Output",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426011, 11078, 213, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[426227, 11086, 194, 3, 25, "Output",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], +Cell[426436, 11092, 242, 5, 34, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[426703, 11101, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[427264, 11122, 197, 3, 25, "Output",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427498, 11130, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[427671, 11137, 193, 3, 25, "Output",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427901, 11145, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[428085, 11152, 197, 3, 25, "Output",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428319, 11160, 6055, 185, 310, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[434377, 11347, 196, 3, 25, "Output",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434610, 11355, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[434981, 11366, 192, 3, 25, "Output",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435210, 11374, 6122, 187, 353, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[441335, 11563, 197, 3, 25, "Output",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441569, 11571, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[441940, 11582, 196, 3, 25, "Output",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442173, 11590, 2663, 88, 135, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[444839, 11680, 197, 3, 25, "Output",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445073, 11688, 2603, 85, 135, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[447679, 11775, 196, 3, 25, "Output",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447912, 11783, 3712, 118, 197, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[451627, 11903, 196, 3, 25, "Output",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451860, 11911, 2054, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[453917, 11972, 589, 12, 50, "Message",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], +Cell[454509, 11986, 591, 12, 50, "Message",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], +Cell[455103, 12000, 597, 12, 50, "Message",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], +Cell[455703, 12014, 482, 10, 20, "Message",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], +Cell[456188, 12026, 194, 3, 25, "Output",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456419, 12034, 2052, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[458474, 12095, 589, 12, 50, "Message",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], +Cell[459066, 12109, 593, 12, 50, "Message",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], +Cell[459662, 12123, 597, 12, 50, "Message",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], +Cell[460262, 12137, 482, 10, 20, "Message",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], +Cell[460747, 12149, 194, 3, 25, "Output",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460978, 12157, 2030, 55, 54, "Input",ExpressionUUID->"8fb4818f-77bf-6445-8230-c17265c2e6e9"], +Cell[463011, 12214, 20422, 382, 189, "Output",ExpressionUUID->"e447a546-4e4c-eb42-b69e-2528d5182b13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483470, 12601, 2120, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[485593, 12663, 496, 11, 33, "Message",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], +Cell[486092, 12676, 501, 11, 33, "Message",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], +Cell[486596, 12689, 505, 11, 33, "Message",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], +Cell[487104, 12702, 455, 10, 20, "Message",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], +Cell[487562, 12714, 21721, 403, 187, "Output",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], +Cell[509298, 13120, 211, 5, 34, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[CellGroupData[{ +Cell[509534, 13129, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[511153, 13179, 614, 12, 53, "Message",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], +Cell[511770, 13193, 616, 12, 53, "Message",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], +Cell[512389, 13207, 616, 12, 53, "Message",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], +Cell[513008, 13221, 480, 10, 20, "Message",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], +Cell[513491, 13233, 197, 3, 25, "Output",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513725, 13241, 2249, 64, 131, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[515977, 13307, 585, 12, 70, "Message",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], +Cell[516565, 13321, 589, 12, 70, "Message",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], +Cell[517157, 13335, 595, 12, 70, "Message",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], +Cell[517755, 13349, 480, 10, 70, "Message",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], +Cell[518238, 13361, 192, 3, 70, "Output",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518467, 13369, 2221, 64, 70, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[520691, 13435, 589, 12, 70, "Message",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], +Cell[521283, 13449, 593, 12, 70, "Message",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], +Cell[521879, 13463, 597, 12, 70, "Message",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], +Cell[522479, 13477, 480, 10, 70, "Message",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], +Cell[522974, 13490, 189, 4, 70, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[CellGroupData[{ +Cell[523188, 13498, 2221, 64, 70, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[525412, 13564, 584, 12, 70, "Message",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], +Cell[525999, 13578, 589, 12, 70, "Message",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], +Cell[526591, 13592, 595, 12, 70, "Message",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], +Cell[527189, 13606, 480, 10, 70, "Message",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], +Cell[527672, 13618, 197, 3, 70, "Output",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527906, 13626, 215, 6, 70, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[528124, 13634, 198, 3, 70, "Output",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/l___osc_Qw2.nb b/templates/light_case/l___osc_Qw2.nb new file mode 100755 index 0000000..fed1076 --- /dev/null +++ b/templates/light_case/l___osc_Qw2.nb @@ -0,0 +1,10224 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 430808, 10214] +NotebookOptionsPosition[ 405158, 9822] +NotebookOutlinePosition[ 405582, 9839] +CellTagsIndexPosition[ 405539, 9836] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991846457174755*^9},ExpressionUUID->"58382c59-dd64-b449-aa77-\ +b500c631729a"], + +Cell[BoxData["0.62`"], "Output", + CellChangeTimes->{3.991339230490425*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918464585717087`*^9},ExpressionUUID->"1e2a9573-08d6-094d-b2f8-\ +1c2ad58521b5"], + +Cell[BoxData["0.84`"], "Output", + CellChangeTimes->{3.991339230517523*^9}, + CellLabel-> + "Out[315]=",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9, {3.9915581887684402`*^9, + 3.991558193612196*^9}},ExpressionUUID->"edc47846-771c-164b-bedc-\ +99ac8c0783df"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}, + 3.9915581864980736`*^9},ExpressionUUID->"a1f930ec-56b4-2f43-abd0-\ +dd8b8a4708b1"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ea9dfb1b-57ad-\ +0148-b647-106c07557f97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918464744109974`*^9},ExpressionUUID->"b8b3f009-678c-e54b-8a0c-\ +4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 332, 325, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 332, 326, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310973415`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392311143417`*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918464780941105`*^9},ExpressionUUID->"d9fdb976-d745-4c44-9c66-\ +2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 333, 329, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 333, 330, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234676628*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133923469363*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918464867236023`*^9},ExpressionUUID->"a3abef6a-80f9-8c44-ac94-\ +1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK +Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee +8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 +s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP +tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey +E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP +HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay +ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje +fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh +OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n +13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP +WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl +4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ +U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 +tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P +s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 +mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 +t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 +O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy +xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ +Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH +N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv +mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR +gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 +99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA ++m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC +ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ +7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN +v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q +bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 +ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 +KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs +LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW +pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi +ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj +oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O +7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu +/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf +OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 +8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a +z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 +P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg +g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB +KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM +y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx +8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR +3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky +bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD +jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 +wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 +GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB +LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV +Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL +kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN +fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG +xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu +t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 +uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 +PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV +XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H +Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym +mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy +vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ +EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF +DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu +bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG +TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I +9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw +2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 +/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb +7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om +QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD +whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz +9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i +i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5986424829233548}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, + 3.9918465034759026`*^9}},ExpressionUUID->"5b0c09f8-5e46-a545-8946-\ +a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 335, + 333, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 335, 334, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493508564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 335, 335, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493517563*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493525564*^9}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S +UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ +f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP +IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w +4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF +SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC +tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S +r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY +IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm +WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE +b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n +cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA +7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc +HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 +uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG +e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW +g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh +tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E +bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb +36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf +HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf +sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 +fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 +4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q +bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH +czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F +fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb +wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 +PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O +f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 ++p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f +7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 +sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK +TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 +tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp +9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv +AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 +vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz +83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw +sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j +76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy +GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih +ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ +miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO +4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH +vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT +/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY +kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 +O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA +OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB +POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR +4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd +ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd +BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na +AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB +SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC +EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C +QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ +FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB +U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ +FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX +dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm +b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT +mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI +RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U +6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e +j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b +6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 +zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC +rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn +uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F +cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk +RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU +XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD +f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 +vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT +pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy +ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR +6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 +wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r +l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY +tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR +k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z +FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO +wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz +hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ +y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq +XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh +KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK +F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO +bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF +9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK +itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN +qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 +iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS +Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 +OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu +x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 +urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM +EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh +7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh +Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q +mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe +XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS ++Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU +25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw +QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T +BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk +uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k +dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP +y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 +LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 +IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 +rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE +AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 +QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 +aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr +rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf +pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f +5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte +W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 +punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh +3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI +IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB +UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 +CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh +ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St +63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K +Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar +5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z +YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 +t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 +wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a ++b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w +7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS +rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN +D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ +HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp +MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j +Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 +hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT +PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke +Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE +TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz +8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 +wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO +zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs +N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO +2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ ++Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR +WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax +kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl +F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY +1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU +4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ +PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d +HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY +RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma +X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ +IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu +h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D +S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 +e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv +DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ +6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 +8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw +nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L +MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 +l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I +nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW +59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op +cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy +la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK +eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 +ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD +1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q +eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY +9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM +8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu +9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR +D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK +06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde +JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK +7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV +dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 +pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr +Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk +9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 +lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o +xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su +YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l +IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i +AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 +A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"a890eeb1-6bca-424f-a8f9-\ +1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b1f266e4-128a-e44e-90be-\ +31846216bd9c"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991923767707161*^9},ExpressionUUID->"15c72253-d078-7f43-9f29-\ +7ac094706013"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9919237699816914`*^9},ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-\ +eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544639845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk +DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE +i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 +tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM +NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S +RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB +j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd +kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT +u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 +T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j +8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm +bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg +k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl +UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd +5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 +sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 +1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK +Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS +vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH +Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ +Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL +C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf +8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 +oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT +7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW +mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 +6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe +8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 +us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 +0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm +3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v +K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU ++23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY +e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im +r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K +iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac +p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M +knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS +9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq +K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK +Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh ++wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD +LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq +cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl +x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji +J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX +9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d +T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR +GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE +YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q +eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 +nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB +i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 +UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC +4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ ++qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d +UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M +6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l +wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW +ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt +UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry +tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP +3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz +PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP +crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z +fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT +KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 +dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq +RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf +auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY ++xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD +3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause +loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G ++BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu +LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ +KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv +7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw +ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN +RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg +k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp +oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx +8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x +UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ +GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa +jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 +svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 +GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf +aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj +C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 339, 345, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882008745*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918465455039177`*^9, + 3.9918465541706066`*^9}},ExpressionUUID->"55574de4-5bf4-6a47-8b7c-\ +0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 340, 349, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 340, 350, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882726326`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 340, 351, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882816315`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882906322`*^9}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846558454563*^9, + 3.991846561166006*^9}},ExpressionUUID->"a62e28a7-2963-b449-b2d2-\ +4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 341, 353, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 341, 354, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895308939*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 341, 355, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895316965*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895324953*^9}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846565092888*^9, + 3.991846568588709*^9}},ExpressionUUID->"9dbddde0-a221-414e-bf4d-\ +6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 342, 357, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 342, 358, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010938797`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 342, 359, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340901101883*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409011098804`*^9}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, + 3.991846575865097*^9}},ExpressionUUID->"a4f97f96-646f-ae45-96cc-\ +9c4165440b9d"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9},ExpressionUUID->"35c63783-19fc-b040-b8f7-\ +ef972ba7b6ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918465999055576`*^9},ExpressionUUID->"d3f05697-a372-2a42-8c9c-\ +ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 361, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 362, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905047306*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 358, + 363, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905056307*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905064308*^9}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846603740141*^9},ExpressionUUID->"7ddfee1b-0897-3d44-810e-\ +ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 365, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 366, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908964924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 359, + 367, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409089739246`*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908981924*^9}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466101881027`*^9},ExpressionUUID->"edc0f744-d665-ee48-9e1d-\ +32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo +kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv +3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 +ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf +W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d +SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 +AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 +E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH +L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx +C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I +QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 +9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U +PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 +h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ +1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK +UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx +taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb +eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN +ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr +RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q +FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d +2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd +kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo +HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu +AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv +Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN +GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U +BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog +f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 +YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca +gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG +G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 +zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 +27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo +/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW +35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 +cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 +SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou +N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH +oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q +u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA +22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG +DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 +sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV +dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A ++fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE +x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT +ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E +2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M +OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh +sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ +CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ +2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f +pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf +/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI +Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc +9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY +/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR +lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j +KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr +q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a +drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L +lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 +KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS +gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ +77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t +On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI +EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS +etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg +2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs +/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX +sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK +Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf +xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 +wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ +IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O +GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia +70x+Lkfh53XZ2uCv/w8uxqIW + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.42228371308737755`}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466141799603`*^9},ExpressionUUID->"556a1eda-5f63-f94a-8981-\ +af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755664787`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK +FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE +hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux +IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B +8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K +ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS +jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 +CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs +KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC +owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 +9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV +MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 +h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC +Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp +9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ +oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt +GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN +62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw +rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 +M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS +dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ +Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ +bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys +CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp +YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF +Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc +mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn +Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM +PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u +4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K +R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l +F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y +6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q +FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF +0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 +dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG +jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU +s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq +KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g +aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx +0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ +bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 +emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY ++Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix +Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK +ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv +HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt +pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR +URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp +/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K +MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh +VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi +Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i +bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys +Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf +kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 +mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ +emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X +PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC +5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr +ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk +8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr +qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO +6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY +ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 +w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m +Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb +eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo +/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm +N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx +4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq +QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya +LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF +jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm +m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 +d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX +WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D +0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD +uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk +u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT +V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 +ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT +PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 +ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q +bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA +OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC +oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 +YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL +/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-\ +885e51cde7ff"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335870945*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466382952557`*^9, + 3.9918466432862854`*^9}},ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-\ +d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 385, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 386, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342342564516*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 366, + 387, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425725136`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425815163`*^9}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918466470672035`*^9, + 3.991846650208416*^9}},ExpressionUUID->"43c7013a-a6e2-1a44-9690-\ +1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 389, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 390, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342349953579*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 367, + 391, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499625797`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499715805`*^9}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184665401457*^9, + 3.991846657234188*^9}},ExpressionUUID->"41fb449c-01a0-ed48-856e-\ +cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 393, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 394, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356431965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 368, + 395, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356441965*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356450968*^9}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, + 3.991846668968689*^9}},ExpressionUUID->"63e2fa1e-7c56-c749-a270-\ +c9c703386fca"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9},ExpressionUUID->"8b2e971d-5760-5e43-92fb-\ +a0baf224e1e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918466934711*^9},ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 384, 397, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 384, 398, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605818653`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 384, + 399, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605898647`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423605988636`*^9}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918466985968094`*^9},ExpressionUUID->"61250ade-2a8a-1a4d-bb58-\ +5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 385, 401, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 385, 402, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423642935734`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 385, + 403, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364302574*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423643105717`*^9}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846701939392*^9},ExpressionUUID->"020bdd6e-add3-0a46-9b39-\ +04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C +qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P +P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC +usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx +y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM +UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 +4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 +LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 +LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ +tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N +AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T +HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF +K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj +T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt +q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US +zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS +fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ +Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa +eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t +r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB +R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX +ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk +7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i +4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr +1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr +rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd +lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc +8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd +VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX +lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc +2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K +BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB +GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c +hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 +DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ +xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr +PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 +qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U +DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 +gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf +7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 +4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG +u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 +xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm +YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U +Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L +3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi +OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb ++yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj +9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw +kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf +sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz +oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb +sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P +iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV +hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy +53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU +hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz +2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 +ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz +5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ +sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh +ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 +TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C +zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf +YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR +raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk +TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ +G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR +p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u +bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT +wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e +y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 +pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF +U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei +Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef +kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5012481131960849}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918467058861084`*^9},ExpressionUUID->"5cbca01a-701c-5744-b740-\ +3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 387, + 405, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299753895`*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL +FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg +ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX +BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ +e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL +i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx +lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK +ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR +PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU +6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj +7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ +b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 +uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr +tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY +sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ +FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl +UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN +L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk +3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz +SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt +KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y +9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS +GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS +cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR +kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 +tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 +SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj +Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw +KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx +jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB +dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 +PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm +syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet +/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 +XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx +pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT +fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L +Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm +lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl +xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 +SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs +ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B +Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y +xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK +8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS +k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI +fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M +aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF +hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt +GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi +mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm +LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF +5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF +V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu +DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL +mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl +9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ +04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 +Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv +CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ +Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f +hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo ++ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X +hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l +Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw +qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U +eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi +4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN +ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX +B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M +5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 +cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj +66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 +VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US +FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh +kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 +2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca ++FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG +E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O +x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy ++x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 +2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak +vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo +d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC +Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd +sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj +Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr +ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-\ +55e81ecceef1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763643717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991846744062315*^9, + 3.9918467481290073`*^9}},ExpressionUUID->"aa4ca102-401f-6c45-84ea-\ +b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 392, 421, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 392, 422, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700095463`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 392, + 423, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343770018547*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437700265465`*^9}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467529108715`*^9, + 3.9918467555119896`*^9}},ExpressionUUID->"6ecebc3a-297f-ad45-be0e-\ +687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 393, 425, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 393, 426, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772082157`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 427, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134377721661*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437772256165`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918467593835926`*^9, + 3.991846761720169*^9}},ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-\ +f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 394, 429, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 394, 430, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836416245`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 394, + 431, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343783649622*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836576347`*^9}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, + 3.99184676823822*^9}},ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-\ +fd76363577db"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 147, 4, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[726, 28, 157, 3, 32, "Output",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[920, 36, 149, 4, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[1072, 42, 157, 3, 32, "Output",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1266, 50, 1301, 43, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[2570, 95, 176, 3, 32, "Output",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2783, 103, 909, 30, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[3695, 135, 175, 3, 32, "Output",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3907, 143, 963, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[4873, 177, 177, 3, 32, "Output",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5087, 185, 558, 19, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[5648, 206, 172, 3, 32, "Output",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5857, 214, 651, 22, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[6511, 238, 170, 3, 32, "Output",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6718, 246, 170, 5, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[6891, 253, 173, 3, 32, "Output",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7101, 261, 170, 5, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[7274, 268, 169, 3, 70, "Output",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7480, 276, 181, 5, 70, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[7664, 283, 173, 3, 70, "Output",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7874, 291, 181, 5, 70, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[8058, 298, 170, 3, 70, "Output",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8265, 306, 6055, 185, 70, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[14323, 493, 174, 3, 70, "Output",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14534, 501, 368, 9, 70, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[14905, 512, 170, 3, 70, "Output",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15112, 520, 6122, 187, 70, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[21237, 709, 174, 3, 70, "Output",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 717, 368, 9, 70, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[21819, 728, 170, 3, 70, "Output",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22026, 736, 2663, 88, 70, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[24692, 826, 171, 3, 70, "Output",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24900, 834, 2603, 85, 70, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[27506, 921, 171, 3, 70, "Output",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27714, 929, 3712, 118, 70, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[31429, 1049, 171, 3, 70, "Output",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], +Cell[31615, 1055, 138, 3, 70, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[31778, 1062, 2054, 59, 70, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[33835, 1123, 566, 12, 70, "Message",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], +Cell[34404, 1137, 569, 12, 70, "Message",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], +Cell[34976, 1151, 570, 12, 70, "Message",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], +Cell[35549, 1165, 458, 10, 70, "Message",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], +Cell[36010, 1177, 172, 3, 70, "Output",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36219, 1185, 2054, 59, 70, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[38276, 1246, 564, 12, 70, "Message",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], +Cell[38843, 1260, 567, 12, 70, "Message",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], +Cell[39413, 1274, 570, 12, 70, "Message",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], +Cell[39986, 1288, 455, 10, 70, "Message",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], +Cell[40444, 1300, 169, 3, 70, "Output",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40650, 1308, 1938, 53, 70, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[42591, 1363, 19983, 375, 70, "Output",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62611, 1743, 2120, 60, 70, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[64734, 1805, 501, 11, 70, "Message",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], +Cell[65238, 1818, 503, 11, 70, "Message",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], +Cell[65744, 1831, 506, 11, 70, "Message",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], +Cell[66253, 1844, 456, 10, 70, "Message",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], +Cell[66712, 1856, 41581, 727, 70, "Output",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108330, 2588, 327, 7, 70, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[108660, 2597, 9707, 222, 70, "Output",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[118404, 2824, 257, 6, 70, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[118664, 2832, 2580, 42, 70, "Message",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"], +Cell[121247, 2876, 10201, 227, 70, "Output",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131485, 3108, 215, 7, 70, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[131703, 3117, 170, 3, 70, "Output",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131910, 3125, 1816, 53, 70, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[133729, 3180, 506, 11, 70, "Message",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], +Cell[134238, 3193, 512, 11, 70, "Message",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], +Cell[134753, 3206, 509, 11, 70, "Message",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], +Cell[135265, 3219, 456, 10, 70, "Message",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], +Cell[135724, 3231, 22336, 412, 70, "Output",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158097, 3648, 1616, 48, 70, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[159716, 3698, 584, 12, 70, "Message",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], +Cell[160303, 3712, 588, 12, 70, "Message",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], +Cell[160894, 3726, 591, 12, 70, "Message",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], +Cell[161488, 3740, 456, 10, 70, "Message",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], +Cell[161947, 3752, 173, 3, 70, "Output",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162157, 3760, 2251, 64, 70, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[164411, 3826, 566, 12, 70, "Message",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], +Cell[164980, 3840, 569, 12, 70, "Message",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], +Cell[165552, 3854, 572, 12, 70, "Message",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], +Cell[166127, 3868, 458, 10, 70, "Message",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], +Cell[166588, 3880, 171, 3, 70, "Output",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166796, 3888, 2219, 64, 70, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[169018, 3954, 564, 12, 70, "Message",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], +Cell[169585, 3968, 567, 12, 70, "Message",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], +Cell[170155, 3982, 570, 12, 70, "Message",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], +Cell[170728, 3996, 456, 10, 70, "Message",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], +Cell[171187, 4008, 173, 3, 70, "Output",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171397, 4016, 2219, 64, 70, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[173619, 4082, 566, 12, 70, "Message",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], +Cell[174188, 4096, 569, 12, 70, "Message",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], +Cell[174760, 4110, 570, 12, 70, "Message",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], +Cell[175333, 4124, 458, 10, 70, "Message",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], +Cell[175794, 4136, 170, 3, 70, "Output",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176001, 4144, 211, 6, 70, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[176215, 4152, 171, 3, 70, "Output",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], +Cell[176401, 4158, 247, 5, 70, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[176673, 4167, 558, 19, 70, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[177234, 4188, 173, 3, 70, "Output",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177444, 4196, 170, 5, 70, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[177617, 4203, 171, 3, 70, "Output",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177825, 4211, 181, 5, 70, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[178009, 4218, 173, 3, 70, "Output",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178219, 4226, 6055, 185, 70, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[184277, 4413, 175, 3, 70, "Output",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184489, 4421, 368, 9, 70, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[184860, 4432, 172, 3, 70, "Output",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185069, 4440, 6122, 187, 70, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[191194, 4629, 173, 3, 70, "Output",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191404, 4637, 368, 9, 70, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[191775, 4648, 170, 3, 70, "Output",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191982, 4656, 2663, 88, 70, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[194648, 4746, 171, 3, 70, "Output",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194856, 4754, 2603, 85, 70, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[197462, 4841, 171, 3, 70, "Output",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197670, 4849, 3712, 118, 70, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[201385, 4969, 170, 3, 70, "Output",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201592, 4977, 2054, 59, 70, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[203649, 5038, 573, 12, 70, "Message",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], +Cell[204225, 5052, 577, 12, 70, "Message",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], +Cell[204805, 5066, 580, 12, 70, "Message",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], +Cell[205388, 5080, 456, 10, 70, "Message",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], +Cell[205847, 5092, 170, 3, 70, "Output",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206054, 5100, 2052, 59, 70, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[208109, 5161, 573, 12, 70, "Message",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], +Cell[208685, 5175, 577, 12, 70, "Message",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], +Cell[209265, 5189, 582, 12, 70, "Message",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], +Cell[209850, 5203, 456, 10, 70, "Message",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], +Cell[210309, 5215, 170, 3, 70, "Output",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210516, 5223, 2030, 55, 70, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[212549, 5280, 20422, 382, 70, "Output",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[233008, 5667, 2094, 60, 70, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[235105, 5729, 502, 11, 70, "Message",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], +Cell[235610, 5742, 506, 11, 70, "Message",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], +Cell[236119, 5755, 505, 11, 70, "Message",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], +Cell[236627, 5768, 458, 10, 70, "Message",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], +Cell[237088, 5780, 22288, 412, 70, "Output",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259413, 6197, 257, 6, 70, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[259673, 6205, 2580, 42, 70, "Message",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"], +Cell[262256, 6249, 10201, 227, 70, "Output",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272494, 6481, 1616, 48, 70, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[274113, 6531, 595, 12, 70, "Message",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], +Cell[274711, 6545, 595, 12, 70, "Message",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], +Cell[275309, 6559, 599, 12, 70, "Message",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], +Cell[275911, 6573, 456, 10, 70, "Message",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], +Cell[276370, 6585, 171, 3, 70, "Output",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276578, 6593, 2251, 64, 70, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[278832, 6659, 575, 12, 70, "Message",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], +Cell[279410, 6673, 577, 12, 70, "Message",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], +Cell[279990, 6687, 582, 12, 70, "Message",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], +Cell[280575, 6701, 458, 10, 70, "Message",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], +Cell[281036, 6713, 172, 3, 70, "Output",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281245, 6721, 2221, 64, 70, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[283469, 6787, 575, 12, 70, "Message",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], +Cell[284047, 6801, 577, 12, 70, "Message",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], +Cell[284627, 6815, 582, 12, 70, "Message",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], +Cell[285212, 6829, 458, 10, 70, "Message",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], +Cell[285673, 6841, 170, 3, 70, "Output",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285880, 6849, 2218, 64, 70, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[288101, 6915, 573, 12, 70, "Message",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], +Cell[288677, 6929, 577, 12, 70, "Message",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], +Cell[289257, 6943, 580, 12, 70, "Message",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], +Cell[289840, 6957, 456, 10, 70, "Message",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], +Cell[290299, 6969, 173, 3, 70, "Output",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290509, 6977, 211, 6, 70, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[290723, 6985, 173, 3, 70, "Output",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], +Cell[290911, 6991, 245, 5, 70, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[291181, 7000, 558, 19, 70, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[291742, 7021, 173, 3, 70, "Output",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291952, 7029, 170, 5, 70, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[292125, 7036, 173, 3, 70, "Output",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292335, 7044, 181, 5, 70, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[292519, 7051, 173, 3, 70, "Output",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292729, 7059, 6055, 185, 70, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[298787, 7246, 172, 3, 70, "Output",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298996, 7254, 368, 9, 70, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[299367, 7265, 172, 3, 70, "Output",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299576, 7273, 6122, 187, 70, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[305701, 7462, 173, 3, 70, "Output",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305911, 7470, 368, 9, 70, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[306282, 7481, 170, 3, 70, "Output",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306489, 7489, 2663, 88, 70, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[309155, 7579, 171, 3, 70, "Output",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309363, 7587, 2603, 85, 70, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[311969, 7674, 173, 3, 70, "Output",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312179, 7682, 3712, 118, 70, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[315894, 7802, 173, 3, 70, "Output",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316104, 7810, 2048, 58, 70, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[318155, 7870, 568, 12, 70, "Message",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], +Cell[318726, 7884, 573, 12, 70, "Message",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], +Cell[319302, 7898, 576, 12, 70, "Message",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], +Cell[319881, 7912, 458, 10, 70, "Message",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], +Cell[320342, 7924, 172, 3, 70, "Output",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320551, 7932, 2054, 59, 70, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[322608, 7993, 568, 12, 70, "Message",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], +Cell[323179, 8007, 573, 12, 70, "Message",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], +Cell[323755, 8021, 574, 12, 70, "Message",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], +Cell[324332, 8035, 458, 10, 70, "Message",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], +Cell[324793, 8047, 172, 3, 70, "Output",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325002, 8055, 2028, 55, 70, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[327033, 8112, 20375, 384, 70, "Output",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347445, 8501, 2094, 60, 70, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[349542, 8563, 501, 11, 70, "Message",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], +Cell[350046, 8576, 503, 11, 70, "Message",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], +Cell[350552, 8589, 506, 11, 70, "Message",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], +Cell[351061, 8602, 458, 10, 70, "Message",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], +Cell[351522, 8614, 22161, 409, 70, "Output",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373720, 9028, 257, 6, 70, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[373980, 9036, 2580, 42, 70, "Message",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"], +Cell[376563, 9080, 10201, 227, 70, "Output",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386801, 9312, 1616, 48, 70, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[388420, 9362, 590, 12, 70, "Message",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], +Cell[389013, 9376, 589, 12, 70, "Message",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], +Cell[389605, 9390, 593, 12, 70, "Message",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], +Cell[390201, 9404, 456, 10, 70, "Message",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], +Cell[390660, 9416, 170, 3, 70, "Output",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390867, 9424, 2249, 64, 70, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[393119, 9490, 568, 12, 70, "Message",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], +Cell[393690, 9504, 573, 12, 70, "Message",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], +Cell[394266, 9518, 574, 12, 70, "Message",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], +Cell[394843, 9532, 458, 10, 70, "Message",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], +Cell[395304, 9544, 173, 3, 70, "Output",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395514, 9552, 2223, 64, 70, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[397740, 9618, 570, 12, 70, "Message",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], +Cell[398313, 9632, 573, 12, 70, "Message",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], +Cell[398889, 9646, 573, 12, 70, "Message",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], +Cell[399465, 9660, 458, 10, 70, "Message",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], +Cell[399926, 9672, 171, 3, 70, "Output",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400134, 9680, 2221, 64, 70, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[402358, 9746, 570, 12, 70, "Message",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], +Cell[402931, 9760, 573, 12, 70, "Message",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], +Cell[403507, 9774, 574, 12, 70, "Message",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], +Cell[404084, 9788, 458, 10, 70, "Message",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], +Cell[404545, 9800, 173, 3, 70, "Output",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404755, 9808, 212, 6, 70, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[404970, 9816, 172, 3, 70, "Output",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___pr_Qw1.nb b/templates/light_case/l___pr_Qw1.nb new file mode 100755 index 0000000..54edab4 --- /dev/null +++ b/templates/light_case/l___pr_Qw1.nb @@ -0,0 +1,10004 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 429723, 9994] +NotebookOptionsPosition[ 404801, 9618] +NotebookOutlinePosition[ 405225, 9635] +CellTagsIndexPosition[ 405182, 9632] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991844487293215*^9},ExpressionUUID->"8b10a187-c7b7-0f44-8f32-\ +75ec5ae33e70"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, + 3.991844505914568*^9}},ExpressionUUID->"d7190627-18d6-a94b-880e-\ +e3f073ed75cd"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991844489013321*^9},ExpressionUUID->"ff3a0633-5725-474e-a1df-\ +0fae08da0391"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, + 3.9918445068872185`*^9}},ExpressionUUID->"c4cb48f6-8bef-5140-97cb-\ +74fc477176c0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9, {3.9915580161429977`*^9, + 3.991558019706772*^9}},ExpressionUUID->"ee451e0a-03c5-5d4b-809d-\ +1baa2036c180"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}, + 3.991558013605444*^9},ExpressionUUID->"1b7f9814-f540-ee4f-a97a-\ +82e0c001ccbc"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"b80089e4-e129-\ +a84d-a279-8559e98c6042"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844522599167*^9},ExpressionUUID->"d15c8f9d-5cd8-0448-9115-\ +8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326207104`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844527271263*^9},ExpressionUUID->"a596efda-1871-9b45-afb4-\ +f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360588284`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844532798546*^9},ExpressionUUID->"98a8fe78-0965-1043-b897-\ +797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754327`, + 253.30690491292427`}, {-15.794312999313163`, 5.3775620006868365`}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl +kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M +c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN +/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 ++orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 +Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD +VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE +TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG ++GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g +LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r +GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO +zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY +r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 +oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh +xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 +OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ +bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 +fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv +vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO +hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD +1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB +4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW +y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ +lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE +9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM +GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN +15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA +LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 +vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw +/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs +WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ +Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 +BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n +LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 +XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 +7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN +5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs +n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO +GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI +llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys +jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw +frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl +L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM +HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq +TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P +feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 +wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T +1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L +h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp +cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 +luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB +LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 +XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd +i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz +1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr +y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW +gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov +KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA +WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 +c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI +HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR +slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc +QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg +n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W +hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 +RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES +bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK +4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV +IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ +kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 +6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV +fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE +lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj +VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 +E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI +2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c +wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H +f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.819001000320631}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, + 3.991844648037607*^9},ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-\ +23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 118, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934317894`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132819344899*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr +4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X +RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD +OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV +zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn +l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI +1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p +HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t +nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx +T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq +8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT +gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L +kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR +bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R +rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS +HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y +gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg +bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ +wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 +Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO +1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a +MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC +VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy +Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU +OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr +0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 +WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN +FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 +NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW +uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN +BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs +Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy +O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx +e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k +Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU +/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q +6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 +qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu +/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 +hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC +qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij +bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 +i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ +Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja +ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D +d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr +z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA +MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD +Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g +gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv +eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq +t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 ++PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m +848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 +yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt +633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI +4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De +Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM +E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 +Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r +lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy +uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb +tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT +ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ +8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats +MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ +LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy +rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h +EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys +GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv +8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK +E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 +T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 +uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl +dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt +Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh +dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH +E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD +HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ +aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh +2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I +P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq +UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G +c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd +xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn +l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e +zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L +Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 +6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU +4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 +UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C +zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n +TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 +PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa +/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP +4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP +HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 +56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT +fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU +pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV +YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq +mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 +rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM +b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN +ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li +wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp +fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 +EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM +ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj +ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT +T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e +E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv +C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a +Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ +1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs +eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN +4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y +pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE +1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu +6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc +pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 +Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ +Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP +NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc +mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh +27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 +PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c +ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi +0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U +XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA +VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT +gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn +LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp +PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n +23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw +CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i +L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc +KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN +/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 +v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 +1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb +eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 +tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q +sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 +MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa +mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o +aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv +RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 +UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde +aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK +Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ +jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA +LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O +VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP +6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 +Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl +vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny +ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf +PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo +v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ +QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 +JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv +WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ +q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 +HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC +lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK +THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K +LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r +qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk +TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt +XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx +3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y +NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy +Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R +/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD +9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J +eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl +lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c +to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 +mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib +HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 +Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 +RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH +ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w +tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK +EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF +n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 +Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl +kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 ++f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC +XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf ++xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw +5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn +fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 +GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 ++8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx +f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI +cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU ++tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG +aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL +eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ +00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M +z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf +O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD +mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ +3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA +61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu ++HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY +b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J +EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq +OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw +320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq +T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL +uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP +ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E +mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c +aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 +2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t +HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 +cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl +5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs +bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ +pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl +Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 +RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 +u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW +vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 +JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd +9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f +CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS +GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be +/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT +kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI +8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX +Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne +xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ +EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ +MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 +mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl +kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr +wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z +nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo +Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t +RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO +NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T +6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl +w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL +TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L +7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ +RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr +ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag +gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e +gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW +nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 +ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV +JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu +NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ +wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu +acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik +f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 +Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ +Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 +CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 +ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA +lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu +AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN +SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v +q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi +hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L +ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH +ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn +DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL +8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 +iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA +D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA +V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S +MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD +nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ +MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd +Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-\ +de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"54c42de2-e686-7c45-9694-49248a966b4d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-\ +cea12bff5352"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991844724526314*^9},ExpressionUUID->"f431849e-0899-864c-b9d1-\ +1df0491628db"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918447267207756`*^9},ExpressionUUID->"650ee12b-eb50-044b-94e9-\ +ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 126, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479692892*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 172, 127, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294797011433`*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329479709572*^9}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU +cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u +4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf +U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF +PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur +M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw +2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 +W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh +xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV +SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn +q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf +DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz +jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF +g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla +wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo +vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw +aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ +Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN +Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV +weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy +KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL +typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ +HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy +qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC +ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp +ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u +8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT +5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ +O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y +hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N +8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL +FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 +VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD +QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio +X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa +idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 +98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp +E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi +LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev +FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ +N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F +tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 +2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J +o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe +9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG +mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n +sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi +Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN +QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl +WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 +OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 +jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z +I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 +8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY +kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 +cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR +87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs +dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX +Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P +uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 +uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm +szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl +LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef +fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ +8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW +rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ +5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 +nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J +H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq +4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD +o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ +C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt +1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ +d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY +ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 +/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx +8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu +Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc +OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg +nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG +f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz +m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ ++Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea +Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 +B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG +pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft +R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ +//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL +fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa +H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj +1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw +8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y +PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 +OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g +41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 +j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b +LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m +MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W +9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ +v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U +N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb +be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq +XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl +vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF +7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI +1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg +cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD +wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO +D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 131, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298975189075`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897526905*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844712341957*^9, + 3.991844718198534*^9}},ExpressionUUID->"b04a104f-3249-a34a-8102-\ +7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043256874`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918447603776054`*^9, + 3.991844763418377*^9}},ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-\ +528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299111067944`*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844769790985*^9, + 3.991844773139332*^9}},ExpressionUUID->"984387ef-9fd9-3c47-bc3d-\ +b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916371479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, + 3.9918447845314407`*^9}},ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-\ +0ec0037a6c16"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9},ExpressionUUID->"ab8417e8-4709-e943-87cd-\ +c5b8a0910541"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844883530533*^9},ExpressionUUID->"003a047b-90eb-3149-b4f8-\ +a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 145, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 192, + 146, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299197985992`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 192, 147, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299198065968`*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919814598*^9}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991844898486679*^9},ExpressionUUID->"17f0d32c-a57d-2a45-81f1-\ +ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 149, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 193, + 150, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329923669897*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 193, 151, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236779003`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236858997`*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918449035840626`*^9},ExpressionUUID->"fcd15b99-cf8b-0648-a673-\ +70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R +gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj +6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 +eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx +TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY +kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 +AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM +TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ +D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez +H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ +bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 +lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ +rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx +4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW +PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi +4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs +Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw +wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L +k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 +IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB +vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 +Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r +8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 +/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn +edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb +93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG +o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo +GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV +lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he +nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X +vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ +ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN +G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz +Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w +2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF +j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 +ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g +jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz +AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY +1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ +R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n +6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR +Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 +yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA +Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU +9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 +32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn +Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia +EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu +PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG +W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ +eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb +Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU +YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ +t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben +tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 +Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh +fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 +vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz +sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ +3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 +ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa +b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO +dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL +SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR +jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX +XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz +lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy +r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc +IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH +91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 +uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga +BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 +yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl +TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5311368545847414}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, + 3.9918455284898663`*^9}},ExpressionUUID->"76321b6a-1af8-9c49-b2f7-\ +d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 195, + 153, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 195, 154, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173723337*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 195, 155, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173731432*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991330173739336*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR +klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW +lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv +TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc +73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw +RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X +gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 +Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI +PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy +W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx +SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 +V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY +9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw +N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM +vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz +tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 +GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT +0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA +udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF +4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y +Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a +eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl +p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN +TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC +SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw +e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu +HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn +Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l +RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X +udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 +DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM +JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC +PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC +eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn +wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY +XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK +jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb +0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 +GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 +fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN +PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T +MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt +LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH +TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY +565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U +PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F +yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx +3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP +19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 +9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp +zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 +VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP +Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio +aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX +UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo +Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p +ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP +DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo +pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg +5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg +2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW +9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr +BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm +QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF +m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i +o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v +Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH +IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw +kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j +lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO +UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 +w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI +bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc +A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa +l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA +2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug +gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN +VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv +5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l +9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv +r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H +I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp +s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx +NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c +ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc +iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z +pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz +oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv +HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd +Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR +/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI +LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC +eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R +EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM +IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d +JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp +CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe +n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ +QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX +4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM +J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx +baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X +/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby +clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ +SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg +dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs +YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa +LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva +gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i +1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N +ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz +7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ +f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa +wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom +XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ +e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk +XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM +TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD +i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 +LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM +kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj +qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B +uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF +nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 +dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ +kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q +8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 +FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR +CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW +io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU +qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X +B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ +0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r +W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ +zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs +HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB +IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg +FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE +fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC +cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh +DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 +RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d +z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM +rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH +L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"17d8d20d-a69d-c241-a4b7-\ +c5ab6913db6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752237467*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991844980123823*^9, + 3.991844984423441*^9}},ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-\ +152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 169, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 200, + 170, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591525517`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 200, 171, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331759160553*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591685543`*^9}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918449914836025`*^9, + 3.991844997178608*^9}},ExpressionUUID->"3975f6bc-b8e0-0049-badb-\ +74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 173, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 201, + 174, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666041794`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 201, 175, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666131783`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317666211815`*^9}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845005870302*^9, + 3.991845010049778*^9}},ExpressionUUID->"f4f95d15-5683-9549-85ce-\ +3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 177, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 202, + 178, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736361847`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 202, 179, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773644182*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331773653183*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, + 3.9918450213597164`*^9}},ExpressionUUID->"16838e8f-dc9a-d74c-8675-\ +3a4476217af6"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9},ExpressionUUID->"5671b6c5-96eb-9840-bb09-\ +6698022336a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845055619808*^9},ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-\ +9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 218, 181, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 182, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777838663*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 218, + 183, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778466587`*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331777854885*^9}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991845062111332*^9},ExpressionUUID->"7833995d-3f7b-3a4e-944a-\ +db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 219, 185, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 186, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815004997`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 219, + 187, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815094967`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317815164986`*^9}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991845068201048*^9},ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-\ +c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS +N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS +KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 +CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ +2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ +YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP +oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R +iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx +EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 +ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 +hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF +i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn +tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc +f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 +tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py +d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z +znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw +qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I +gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA +TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge +wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo ++AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg +Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL +IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ +vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj +ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE +7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N +UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h +bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON +R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr +JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ +i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY +nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je +4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J +ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v +x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 +7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX +RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy +e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF +G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI +h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 +8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb ++cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa +5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 +qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL ++sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV +ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 +NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag +mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol +A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO +zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf +1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 +KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr +KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 +4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR +R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x +BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv +fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC +nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q +e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ +sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY +XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 +uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B +CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 +GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl +XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo ++nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb +5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb +4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz +rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw +q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS +xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 +QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI +0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 +r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6044061540843444}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, + 3.9918454954591675`*^9}},ExpressionUUID->"485e4bed-973b-f94f-bcff-\ +d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 221, + 189, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033351204*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK +SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx +/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr +12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI +64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs +Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ +g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q +LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o +2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL +6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u +nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr +t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 +MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 +eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M +qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD +y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ +1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh +a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk +LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz +5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 +bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg +PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx +ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg +RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 +Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab ++LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l +8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm +JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 +Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk +7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar +LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 +KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR +zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e +aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ +EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr +xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ +lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh +7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX +jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw +Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 +VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK +wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I +3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h +YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS +a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG ++Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk +30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE +aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ +gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk +pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 +/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 +BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB +DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm +Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU +mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg +srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa +elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp +F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR +vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO +p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe +zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y +c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS +5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD +ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF +aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX +oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD +KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE +ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv +XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y +HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T +SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol +DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN +kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK +J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 +XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw +YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl +49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi +hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV +sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 +NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR +P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy +r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ +sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp +3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L +TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG +cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU +XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB +oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX +flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N +Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j +GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 +8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ +lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr +MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC +ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi +z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq +frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T +VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda +R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a +d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP +cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 +ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ +2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM +uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B +8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 +SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV +rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw +u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B +jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO +FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz +oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE +zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 +hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb +QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe +htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b +gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr +CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d +3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V +Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr +t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS +d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ +TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb +EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK +Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ +KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb +vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU +/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 +JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG +bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD +VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 +0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z +j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ +z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 +dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs +D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ +M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ +3z9DIQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"25060c9f-5d93-6841-93a1-\ +f53bbd9b851a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512885145*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845086901308*^9, + 3.991845092064165*^9}},ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-\ +98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 226, 205, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 206, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200875454`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 226, + 207, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200945435`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335201035423`*^9}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845095514675*^9, + 3.991845099002287*^9}},ExpressionUUID->"ca9a5900-6241-e942-8e6f-\ +ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 227, 209, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 210, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271681843`*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 227, + 211, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527176182*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333527184183*^9}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991845103890877*^9, + 3.9918451079172287`*^9}},ExpressionUUID->"4b76f315-df8b-2e44-9766-\ +11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 228, 213, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 214, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533202278*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 228, + 215, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335332102795`*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333533218281*^9}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, + 3.991845116011841*^9}},ExpressionUUID->"c61261a4-9291-8d4e-84ee-\ +07cf74de18fa"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[704, 26, 152, 3, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[859, 31, 147, 4, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[1009, 37, 154, 3, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[1188, 44, 1301, 43, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[2492, 89, 178, 3, 32, "Output",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2707, 97, 911, 30, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[3621, 129, 175, 3, 32, "Output",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3833, 137, 961, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[4797, 171, 176, 3, 32, "Output",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5010, 179, 558, 19, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[5571, 200, 172, 3, 32, "Output",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5780, 208, 623, 21, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[6406, 231, 172, 3, 32, "Output",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6615, 239, 170, 5, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[6788, 246, 172, 3, 32, "Output",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6997, 254, 170, 5, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[7170, 261, 171, 3, 32, "Output",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7378, 269, 181, 5, 43, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[7562, 276, 170, 3, 32, "Output",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7769, 284, 181, 5, 43, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[7953, 291, 172, 3, 32, "Output",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8162, 299, 6055, 185, 498, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[14220, 486, 172, 3, 32, "Output",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14429, 494, 368, 9, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[14800, 505, 171, 3, 32, "Output",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15008, 513, 6122, 187, 500, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[21133, 702, 173, 3, 32, "Output",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21343, 710, 368, 9, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[21714, 721, 170, 3, 32, "Output",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21921, 729, 2663, 88, 187, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[24587, 819, 171, 3, 32, "Output",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24795, 827, 2603, 85, 165, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[27401, 914, 173, 3, 32, "Output",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27611, 922, 3712, 118, 348, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[31326, 1042, 174, 3, 32, "Output",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], +Cell[31515, 1048, 138, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[31678, 1055, 2052, 59, 228, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[33733, 1116, 557, 12, 66, "Message",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], +Cell[34293, 1130, 559, 12, 66, "Message",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], +Cell[34855, 1144, 561, 12, 85, "Message",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], +Cell[35419, 1158, 458, 10, 26, "Message",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], +Cell[35880, 1170, 172, 3, 32, "Output",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36089, 1178, 2052, 59, 228, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[38144, 1239, 555, 12, 66, "Message",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], +Cell[38702, 1253, 559, 12, 66, "Message",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], +Cell[39264, 1267, 561, 12, 85, "Message",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], +Cell[39828, 1281, 458, 10, 26, "Message",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], +Cell[40289, 1293, 172, 3, 32, "Output",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40498, 1301, 1936, 53, 115, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[42437, 1356, 20449, 382, 238, "Output",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62923, 1743, 2114, 60, 211, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[65040, 1805, 500, 11, 60, "Message",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], +Cell[65543, 1818, 503, 11, 60, "Message",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], +Cell[66049, 1831, 506, 11, 60, "Message",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], +Cell[66558, 1844, 455, 10, 26, "Message",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], +Cell[67016, 1856, 57321, 985, 233, "Output",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[124374, 2846, 327, 7, 42, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[124704, 2855, 9707, 222, 240, "Output",ExpressionUUID->"54c42de2-e686-7c45-9694-49248a966b4d"] +}, Open ]], +Cell[134426, 3080, 257, 6, 42, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[CellGroupData[{ +Cell[134708, 3090, 215, 7, 48, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[134926, 3099, 172, 3, 32, "Output",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[135135, 3107, 1816, 53, 183, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[136954, 3162, 508, 11, 60, "Message",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], +Cell[137465, 3175, 508, 11, 60, "Message",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], +Cell[137976, 3188, 511, 11, 60, "Message",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], +Cell[138490, 3201, 456, 10, 26, "Message",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], +Cell[138949, 3213, 26000, 472, 234, "Output",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164986, 3690, 1616, 48, 113, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[166605, 3740, 584, 12, 85, "Message",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], +Cell[167192, 3754, 588, 12, 85, "Message",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], +Cell[167783, 3768, 592, 12, 85, "Message",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], +Cell[168378, 3782, 456, 10, 26, "Message",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], +Cell[168837, 3794, 169, 3, 32, "Output",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169043, 3802, 2247, 64, 223, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[171293, 3868, 555, 12, 66, "Message",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], +Cell[171851, 3882, 557, 12, 66, "Message",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], +Cell[172411, 3896, 563, 12, 85, "Message",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], +Cell[172977, 3910, 458, 10, 26, "Message",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], +Cell[173438, 3922, 173, 3, 32, "Output",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173648, 3930, 2221, 64, 162, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[175872, 3996, 555, 12, 66, "Message",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], +Cell[176430, 4010, 557, 12, 66, "Message",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], +Cell[176990, 4024, 561, 12, 85, "Message",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], +Cell[177554, 4038, 458, 10, 26, "Message",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], +Cell[178015, 4050, 173, 3, 32, "Output",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178225, 4058, 2219, 64, 162, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[180447, 4124, 557, 12, 66, "Message",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], +Cell[181007, 4138, 557, 12, 66, "Message",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], +Cell[181567, 4152, 563, 12, 85, "Message",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], +Cell[182133, 4166, 456, 10, 26, "Message",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], +Cell[182592, 4178, 173, 3, 32, "Output",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182802, 4186, 213, 6, 47, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[183018, 4194, 171, 3, 32, "Output",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], +Cell[183204, 4200, 245, 5, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[183474, 4209, 558, 19, 52, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[184035, 4230, 172, 3, 32, "Output",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184244, 4238, 170, 5, 56, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[184417, 4245, 173, 3, 32, "Output",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184627, 4253, 181, 5, 43, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[184811, 4260, 173, 3, 32, "Output",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185021, 4268, 6055, 185, 498, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[191079, 4455, 172, 3, 32, "Output",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191288, 4463, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[191659, 4474, 170, 3, 32, "Output",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191866, 4482, 6122, 187, 500, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[197991, 4671, 175, 3, 32, "Output",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198203, 4679, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[198574, 4690, 172, 3, 32, "Output",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198783, 4698, 2663, 88, 187, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[201449, 4788, 173, 3, 32, "Output",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201659, 4796, 2603, 85, 165, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[204265, 4883, 171, 3, 32, "Output",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204473, 4891, 3712, 118, 348, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[208188, 5011, 174, 3, 32, "Output",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208399, 5019, 2052, 59, 228, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[210454, 5080, 578, 12, 85, "Message",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], +Cell[211035, 5094, 583, 12, 85, "Message",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], +Cell[211621, 5108, 586, 12, 85, "Message",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], +Cell[212210, 5122, 456, 10, 26, "Message",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], +Cell[212669, 5134, 170, 3, 32, "Output",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212876, 5142, 2052, 59, 228, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[214931, 5203, 576, 12, 85, "Message",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], +Cell[215510, 5217, 581, 12, 85, "Message",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], +Cell[216094, 5231, 586, 12, 85, "Message",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], +Cell[216683, 5245, 458, 10, 26, "Message",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], +Cell[217144, 5257, 172, 3, 32, "Output",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217353, 5265, 2030, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[219386, 5322, 20011, 378, 237, "Output",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239434, 5705, 2146, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[241583, 5768, 501, 11, 60, "Message",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], +Cell[242087, 5781, 503, 11, 60, "Message",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], +Cell[242593, 5794, 505, 11, 60, "Message",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], +Cell[243101, 5807, 456, 10, 26, "Message",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], +Cell[243560, 5819, 32548, 580, 233, "Output",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], +Cell[276123, 6402, 211, 5, 42, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[CellGroupData[{ +Cell[276359, 6411, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[277978, 6461, 596, 12, 85, "Message",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], +Cell[278577, 6475, 599, 12, 85, "Message",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], +Cell[279179, 6489, 605, 12, 85, "Message",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], +Cell[279787, 6503, 456, 10, 26, "Message",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], +Cell[280246, 6515, 170, 3, 32, "Output",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280453, 6523, 2247, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[282703, 6589, 580, 12, 85, "Message",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], +Cell[283286, 6603, 583, 12, 85, "Message",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], +Cell[283872, 6617, 584, 12, 85, "Message",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], +Cell[284459, 6631, 458, 10, 26, "Message",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], +Cell[284920, 6643, 170, 3, 32, "Output",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285127, 6651, 2221, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[287351, 6717, 580, 12, 85, "Message",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], +Cell[287934, 6731, 583, 12, 85, "Message",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], +Cell[288520, 6745, 586, 12, 85, "Message",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], +Cell[289109, 6759, 458, 10, 26, "Message",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], +Cell[289570, 6771, 171, 3, 32, "Output",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289778, 6779, 2219, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[292000, 6845, 580, 12, 85, "Message",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], +Cell[292583, 6859, 583, 12, 85, "Message",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], +Cell[293169, 6873, 584, 12, 85, "Message",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], +Cell[293756, 6887, 456, 10, 26, "Message",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], +Cell[294215, 6899, 170, 3, 32, "Output",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294422, 6907, 215, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[294640, 6915, 174, 3, 32, "Output",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], +Cell[294829, 6921, 247, 5, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[295101, 6930, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[295662, 6951, 173, 3, 32, "Output",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295872, 6959, 170, 5, 56, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[296045, 6966, 173, 3, 32, "Output",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296255, 6974, 181, 5, 43, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[296439, 6981, 171, 3, 32, "Output",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296647, 6989, 6055, 185, 498, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[302705, 7176, 173, 3, 32, "Output",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302915, 7184, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[303286, 7195, 172, 3, 32, "Output",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303495, 7203, 6122, 187, 500, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[309620, 7392, 175, 3, 32, "Output",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309832, 7400, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[310203, 7411, 171, 3, 32, "Output",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310411, 7419, 2663, 88, 187, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[313077, 7509, 173, 3, 32, "Output",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313287, 7517, 2603, 85, 165, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[315893, 7604, 171, 3, 32, "Output",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316101, 7612, 3712, 118, 348, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[319816, 7732, 174, 3, 32, "Output",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320027, 7740, 2052, 59, 228, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[322082, 7801, 572, 12, 85, "Message",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], +Cell[322657, 7815, 573, 12, 85, "Message",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], +Cell[323233, 7829, 579, 12, 85, "Message",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], +Cell[323815, 7843, 456, 10, 26, "Message",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], +Cell[324274, 7855, 169, 3, 32, "Output",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324480, 7863, 2052, 59, 228, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[326535, 7924, 570, 12, 85, "Message",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], +Cell[327108, 7938, 575, 12, 85, "Message",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], +Cell[327686, 7952, 579, 12, 85, "Message",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], +Cell[328268, 7966, 458, 10, 26, "Message",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], +Cell[328729, 7978, 171, 3, 32, "Output",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328937, 7986, 2028, 55, 160, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[330968, 8043, 20011, 378, 237, "Output",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351016, 8426, 2146, 61, 211, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[353165, 8489, 501, 11, 70, "Message",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], +Cell[353669, 8502, 505, 11, 70, "Message",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], +Cell[354177, 8515, 506, 11, 70, "Message",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], +Cell[354686, 8528, 456, 10, 70, "Message",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], +Cell[355145, 8540, 31008, 556, 70, "Output",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], +Cell[386168, 9099, 211, 5, 70, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[CellGroupData[{ +Cell[386404, 9108, 1616, 48, 70, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[388023, 9158, 593, 12, 70, "Message",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], +Cell[388619, 9172, 595, 12, 70, "Message",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], +Cell[389217, 9186, 602, 12, 70, "Message",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], +Cell[389822, 9200, 456, 10, 70, "Message",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], +Cell[390281, 9212, 172, 3, 70, "Output",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390490, 9220, 2247, 64, 70, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[392740, 9286, 572, 12, 70, "Message",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], +Cell[393315, 9300, 575, 12, 70, "Message",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], +Cell[393893, 9314, 579, 12, 70, "Message",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], +Cell[394475, 9328, 458, 10, 70, "Message",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], +Cell[394936, 9340, 173, 3, 70, "Output",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395146, 9348, 2219, 64, 70, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[397368, 9414, 572, 12, 70, "Message",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], +Cell[397943, 9428, 575, 12, 70, "Message",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], +Cell[398521, 9442, 577, 12, 70, "Message",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], +Cell[399101, 9456, 456, 10, 70, "Message",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], +Cell[399560, 9468, 172, 3, 70, "Output",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399769, 9476, 2221, 64, 70, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[401993, 9542, 572, 12, 70, "Message",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], +Cell[402568, 9556, 573, 12, 70, "Message",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], +Cell[403144, 9570, 579, 12, 70, "Message",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], +Cell[403726, 9584, 456, 10, 70, "Message",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], +Cell[404185, 9596, 173, 3, 70, "Output",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404395, 9604, 213, 6, 70, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[404611, 9612, 174, 3, 70, "Output",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___pr_Qw2.nb b/templates/light_case/l___pr_Qw2.nb new file mode 100755 index 0000000..ecaf494 --- /dev/null +++ b/templates/light_case/l___pr_Qw2.nb @@ -0,0 +1,10302 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 443558, 10292] +NotebookOptionsPosition[ 419104, 9917] +NotebookOutlinePosition[ 419528, 9934] +CellTagsIndexPosition[ 419485, 9931] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918469322950954`*^9},ExpressionUUID->"7c3e9316-835f-9e4b-9a49-\ +3b4d17d5ac6f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, + 3.991846933469059*^9}},ExpressionUUID->"583d3f2a-de58-8142-9cfe-\ +a0e52258d17f"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918469351421127`*^9},ExpressionUUID->"20139eb5-401a-4b4a-9fa1-\ +5ac66a5ce03b"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, + 3.991846936376911*^9}},ExpressionUUID->"8f81c5bb-6006-6b49-93bb-\ +3460180e6492"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9, {3.991558360387518*^9, + 3.991558363336605*^9}},ExpressionUUID->"c6441294-7eb2-2949-9da6-\ +67254244512f"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}, + 3.991558357640812*^9},ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-\ +68faf6ac59e1"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0a12571c-0d3c-\ +324d-9fb1-59d5c707bb07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991846957646223*^9},ExpressionUUID->"61186e9c-fdd7-7943-9937-\ +691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 434, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787730139*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 435, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877381363`*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343787747137*^9}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918469611416626`*^9},ExpressionUUID->"9256a2f6-45c2-e140-bcdd-\ +85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 438, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134379117865*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 439, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911866493`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911946507`*^9}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846968477251*^9},ExpressionUUID->"2543960d-965e-7a4e-aecb-\ +694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{115.12306105754324`, + 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK +kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB +QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf +41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 +bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 +urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR +rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 +sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM +w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms +l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo +waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml +Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 +4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d +FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta +CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE +5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv +f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf +FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ +WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C +uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 +3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU +qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 +qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu +Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa +Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k +IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 +hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ +EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ +yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd +Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr +F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa +vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U +HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL +W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs +nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP +wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d +hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz +2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf +81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo +dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF +Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 +CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF +NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ +LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ +ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE +965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz +hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v +DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx +HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px +XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 +z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg +fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e +IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m +fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv +J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu +liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE +f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU +c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc +MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE +M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX +hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv +JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q +12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd +7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB +qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 +3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ +cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ +PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb +tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk +Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv +ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP +cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 +/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE +EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N +KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af +rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS +8X7ZCUqv+v+2j8xX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7504249066936067}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7504249066936067}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, + 3.9918469897830563`*^9}},ExpressionUUID->"e19ad739-7d82-2c45-9f2a-\ +a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 418, 443, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991344062205559*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134406221356*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ +494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L +A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ +HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq +DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ +bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn +5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ +Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC +H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF +7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ ++1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 +gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq +rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG +C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ +Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe +elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 +df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ +vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB +B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD +TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti +B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 +wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls +L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN +3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI +ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya +zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u +TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X +WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF +ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s +Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff +QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn +t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi +Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV +7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih +Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde +vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA +dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 +BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G +LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD +55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK ++Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM +zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk +rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a +uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 +8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 +ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt +FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK ++fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em +6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 +q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY +Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF +pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU +XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz +qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb +6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 +e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud +zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg +7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY +jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L +EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 +0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e +ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn +9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY +hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy +8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp +Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd +Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM +VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW +w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 +uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj +yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt +r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt +06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 +XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP +R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np +bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe +GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb +bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl +X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq +Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb +Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 +q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E +97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo +JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT +bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr +PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A +kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me +BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF +bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z ++FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 +2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG +lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 +7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U +sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw +pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa +vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW +g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn +hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 +C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 +mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i +3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg +GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ +cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI +hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R +E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ +T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv ++isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 +VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq +LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu +2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY +hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL +bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ +Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo +wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 +uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m +MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV +LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY +esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX +Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS +oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 +2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F +cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 +hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU +s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k +7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe +ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 +H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX +BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ +HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR +XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz +oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 +YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO +8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK ++5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR +T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 +g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn +ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz +95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC +nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf +TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ +MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k +Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH +lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn +0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr +zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD +F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 +GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ +V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu +e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW +zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V +vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 +twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 +uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx +5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 +uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc +0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX +Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO +/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r +ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht +Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI +W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF +6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU +HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A +9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e +E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V +M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb +IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg +7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf +AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 +oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 +vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC +1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 +P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy +0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg +l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ +riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG +/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c +4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 +BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st +/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq +DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp +13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj +mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q +JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI +Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 +1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F +4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk +Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha ++OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl +jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl +dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX +jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 +25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB +dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM +4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 +A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 +VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd +zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo +9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 +NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh +qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq +zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd +ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo +oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I +DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf +lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl +5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL +M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs +h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j +1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv +U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg +75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS +kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG +hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN +RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 +a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x +UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 +ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu +8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX +u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI +RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj +ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC +sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR +i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww +lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou +LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 +Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE +QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK +74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK +nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF +xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH +KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY +uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 +9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr +oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E +iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w +L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U +ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t +Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW +38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs +grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB +TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj +yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL +GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l +TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq +WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw +PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 +/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx +JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 +qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl +p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx +N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x +hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn +izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE +LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM +rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE +p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 +YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH +FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX +piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz +X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 ++VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO +phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg +9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC +ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU +ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 +HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t +BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF +ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM +mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI +FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM +xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"0442afd4-ab7e-8942-9b0e-\ +e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"9478c59b-a5b4-1043-afe6-\ +75ae56a5fd89"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel-> + "In[420]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellLabel-> + "In[421]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 450, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387076412*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 421, 451, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387088339*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913453870973415`*^9}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy +GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi +4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai +bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa +uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk +vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb +hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS +SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP +F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw +2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr +w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD +JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY +/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH +zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 +8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 +HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX +csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw +uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh +XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e +w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e +caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN +C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ +EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf +hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N +SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z +20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp +HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S +TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC ++3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b +g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW +221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 +88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 +H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH +F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC +akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS +f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp ++zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP +KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR +HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE +Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e +7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso +ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 +Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw +ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL +jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs +6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa +d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn +jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 +TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 +IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv +gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp +OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna +SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 +NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk +Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 +i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov +GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 +6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf +FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL +Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV +ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h +hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi +xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA +2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 +M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK +/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg +qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ +PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe +HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h +xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy +NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N +hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf +LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 +Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ +497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE +zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf +Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN +kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU +BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS +gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK +Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s +h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg +8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 +BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW +wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS +9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm +oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb +reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu ++7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN +8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc +Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H +OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D +3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh +zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l +sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO +hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP +8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 +vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs +zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz +0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T +7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON +EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ +8VF94vJg1Az+B+ielp4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 455, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785767502*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457857765007`*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847002744938*^9, + 3.9918470078833466`*^9}},ExpressionUUID->"94c81ca6-5acf-1648-b9d8-\ +a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 458, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792242544*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 459, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922505417`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457922595577`*^9}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470141153297`*^9, + 3.991847018285223*^9}},ExpressionUUID->"d789fb78-c161-1741-b7b8-\ +90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 462, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991830807`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 463, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345799191578*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457992005787`*^9}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918470289577656`*^9, + 3.99184703187117*^9}},ExpressionUUID->"98f8448c-bc27-4646-9fd2-\ +f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 466, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046114445`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 467, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345804619444*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046274433`*^9}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, + 3.9918470411375484`*^9}},ExpressionUUID->"c0718b2f-c4a4-934b-afa0-\ +c67e8ff1bd9c"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9},ExpressionUUID->"73fa861d-79d1-6043-8b49-\ +ac6d11636734"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847118583315*^9},ExpressionUUID->"33a64b79-213d-c445-8c32-\ +436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 469, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 441, + 470, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085563755`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085733776`*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918471223197117`*^9},ExpressionUUID->"a558e928-6d30-db4d-81da-\ +8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 473, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 442, + 474, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812552984*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812570959*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471264328136`*^9},ExpressionUUID->"c2f625be-331c-a24f-ad5b-\ +6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi +CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 +j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu +7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF +KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 +zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW +kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 +8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 +wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v +lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt +p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t +k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X +HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc +BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ +y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG +gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh +hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB +gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U +1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n +I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq +h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp +Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ +ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a +bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f +hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj +3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx +5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf +t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw +pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD +6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p +ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia +12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 +Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r +jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q +ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 +D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h +tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T +BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth +YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT +NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya +0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv +o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 +MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn +opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS +DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B +Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH +imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L +I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX +7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v ++j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj +3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo +8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g +HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 +uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG +hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj +K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s +RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD +YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R +uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp +voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp +4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn +YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 +r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW +bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw +PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za +oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ +Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL +QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z +PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu +T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN +caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L +V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 +y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K +VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb +KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy +icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F +8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo +5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4834141591801878}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, + 3.991847426207552*^9}},ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-\ +88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 444, + 477, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080043894*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW +QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx +/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu ++ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 +jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D +y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP +Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs +mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f +oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo +7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM +b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv +gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 +Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN +kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla +bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi +mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk ++8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ +8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q +mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L +nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD +F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ +HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd +H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv +40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ +Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw +00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA +3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY +8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj +qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe +zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ +6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW +/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF +X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU ++iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar +CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma +uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM +LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 +pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY +W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt +yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn +SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW +lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA +ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ +hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc +Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z +tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb +SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 +5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS +hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi +H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 +vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q +3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT +v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir +So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb +3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX +h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP +A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 +JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z +kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv +bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ +oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB +K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq +w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK +UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI +V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV +6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 +CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R +WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z +jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL +c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d +MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE +S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP +nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ +KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT +s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 +PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 +nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV +7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx +yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR +17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J +2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW +jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 +vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j +aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 +OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g +jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN +pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD +c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN +5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR +zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 +Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 +OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv +q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr +YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX +W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh +9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 +Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u +T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb +3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k +yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E +8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt +tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr +fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 +RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 +ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS +FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx +jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH +k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j +I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 +DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh +xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs +GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 +0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu +FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX +SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI +zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 +XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l +tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf +2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 +ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb +My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ +1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 +d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi +t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y +/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL +HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws +V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt +zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy +yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r +lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX +3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw +sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs +FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 +lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw +OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP +3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC +kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y +MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR +heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"b4bea72a-7a20-\ +da43-afca-38c9d924f08e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711508217`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711683846`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472030801735`*^9, + 3.9918472073134327`*^9}},ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-\ +9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 493, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 449, + 494, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578275551*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782930756`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472136550217`*^9, + 3.9918472163537464`*^9}},ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-\ +46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 497, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 450, + 498, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347585937319*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859543304`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918472906473484`*^9, + 3.9918472935952396`*^9}},ExpressionUUID->"36639f46-66ce-b34a-8a89-\ +e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 501, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 451, + 502, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593173849*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475931908703`*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, + 3.991847300654911*^9}},ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-\ +20d331e64105"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9},ExpressionUUID->"bb206cb0-d23b-e24e-876b-\ +f9f1b2cbe57a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847320104244*^9},ExpressionUUID->"61630af4-ce16-4645-bd89-\ +fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 505, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 506, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475978828144`*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 467, + 507, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597891815*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597900812*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991847326557415*^9},ExpressionUUID->"b8324bb7-c44f-6342-bd59-\ +920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 509, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 510, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134760189851*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 468, + 511, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019065113`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476019158936`*^9}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473312384872`*^9},ExpressionUUID->"a8eb6c66-2550-3146-b69f-\ +2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK +niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB +QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL +uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV +HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh +GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM +JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI +Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 +YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud +1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 +20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB +bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y +waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D +6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX +YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy +hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj +u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb +bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO +F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu +bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa +Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K +G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl +zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW +Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm +WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 +Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 +5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK +Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez +bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd +bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x +1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl +qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc +oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp +0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb +/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN +BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn +27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj +O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy +IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO +3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ ++ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC +DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE +1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A +rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 +yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN +C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy +yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP +r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz +MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI +9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl +Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 +80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt +M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 +kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo +7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg +sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W ++uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU +UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n +t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE +z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV +BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH +ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 +TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th +/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl +lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH +dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP +sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs +t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz +Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE +mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m +ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t ++1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq +k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg +c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu +wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX +wTw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5511670383120088}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, + 3.9918474093563137`*^9}},ExpressionUUID->"29fc72a2-353e-bf42-8947-\ +0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 470, + 513, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 470, 514, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652572174`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 470, 515, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652662163`*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347865275215*^9}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ +Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH +/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a +j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ +HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 +PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L +sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 +y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To +OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA +XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV +WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl +Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw +kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H +JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 +maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt +NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe +vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ +ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv +ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B +1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS +pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk +VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU +Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj +SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs ++TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F +jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL +c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt +t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA +t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 +PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp +cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr +ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe +DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd +dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 +TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU +RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP +Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh +nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 +PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv +Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac +X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU +CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e +N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T +3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T +sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z +bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O +s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 +hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih +Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v +JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O +fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci +vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ +2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL +lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z +Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu +1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl +qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 +B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 +YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 +6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ +T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw +RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w +n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P +r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik +ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 +pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l +HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh +S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 +EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK +rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 +GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu +OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo +lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l +HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 +lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 +dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR +ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX +7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu +fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg +eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn +YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE +9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS +WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ +Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 +85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV +icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ +xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum +j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l +rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ +dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu +hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w +cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH +ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD +69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 +w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme +MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn +PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 +wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G +XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu +6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH +x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD +5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m +zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ +tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u +wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe +Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF +oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl +9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY +caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU +Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo +f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 +3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN +hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf +Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis +j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB +LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 +eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo +qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O +03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 +NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 +cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 +pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu +KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA +YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn +yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me +g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ +V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw +EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg +5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv +fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo +9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"dbee741a-c3af-b241-a21b-\ +4f79ecc0fe0c"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + 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->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], + ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a616c950-333c-c34e-b37c-e912edc150ff"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918473569283657`*^9, + 3.991847361118864*^9}},ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-\ +733ef0de97b0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e36a792d-6d34-e344-80e0-65db5822f94f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991847365260393*^9, + 3.991847368101671*^9}},ExpressionUUID->"b5bf5915-d0df-a045-96bd-\ +1dffa35c1421"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"69e9eac8-2173-184e-8807-5fd844762da7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"baaf252e-485c-b643-a22f-956a9ee4c418"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184737148876*^9, + 3.9918473756828785`*^9}},ExpressionUUID->"0f4fb648-c81c-bf44-8487-\ +747d613813fd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"51550cf4-6c37-c443-851d-569d8808cf04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, + 3.991847383988016*^9}},ExpressionUUID->"2d256a7e-c4c8-f746-8004-\ +9b6b43692a68"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[1013, 37, 154, 3, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[2496, 89, 178, 3, 32, "Output",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2711, 97, 907, 30, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[3621, 129, 177, 3, 32, "Output",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3835, 137, 963, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[4801, 171, 178, 3, 32, "Output",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5016, 179, 558, 19, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[5577, 200, 172, 3, 32, "Output",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5786, 208, 651, 22, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[6440, 232, 167, 3, 32, "Output",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6644, 240, 170, 5, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[6817, 247, 172, 3, 32, "Output",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7026, 255, 170, 5, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[7199, 262, 173, 3, 32, "Output",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7409, 270, 181, 5, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[7593, 277, 171, 3, 32, "Output",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7801, 285, 181, 5, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[7985, 292, 172, 3, 32, "Output",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8194, 300, 6055, 185, 498, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[14252, 487, 174, 3, 32, "Output",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14463, 495, 368, 9, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[14834, 506, 172, 3, 32, "Output",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15043, 514, 6122, 187, 500, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[21168, 703, 175, 3, 32, "Output",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21380, 711, 368, 9, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[21751, 722, 172, 3, 32, "Output",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21960, 730, 2663, 88, 187, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[24626, 820, 171, 3, 32, "Output",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24834, 828, 2603, 85, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[27440, 915, 173, 3, 32, "Output",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27650, 923, 3712, 118, 348, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[31365, 1043, 174, 3, 70, "Output",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], +Cell[31554, 1049, 138, 3, 70, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[31717, 1056, 2052, 59, 70, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[33772, 1117, 559, 12, 70, "Message",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], +Cell[34334, 1131, 560, 12, 70, "Message",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], +Cell[34897, 1145, 565, 12, 70, "Message",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], +Cell[35465, 1159, 456, 10, 70, "Message",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], +Cell[35924, 1171, 170, 3, 70, "Output",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36131, 1179, 2054, 59, 70, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[38188, 1240, 559, 12, 70, "Message",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], +Cell[38750, 1254, 559, 12, 70, "Message",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], +Cell[39312, 1268, 565, 12, 70, "Message",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], +Cell[39880, 1282, 458, 10, 70, "Message",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], +Cell[40341, 1294, 170, 3, 70, "Output",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40548, 1302, 1936, 53, 70, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[42487, 1357, 20196, 379, 70, "Output",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62720, 1741, 2118, 60, 70, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[64841, 1803, 503, 11, 70, "Message",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], +Cell[65347, 1816, 505, 11, 70, "Message",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], +Cell[65855, 1829, 506, 11, 70, "Message",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], +Cell[66364, 1842, 455, 10, 70, "Message",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], +Cell[66822, 1854, 55770, 961, 70, "Output",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[122629, 2820, 327, 7, 70, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[122959, 2829, 9707, 222, 70, "Output",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132703, 3056, 257, 6, 70, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[132963, 3064, 2580, 42, 70, "Message",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], +Cell[135546, 3108, 10201, 227, 70, "Output",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] +}, Open ]], +Cell[CellGroupData[{ +Cell[145784, 3340, 199, 6, 70, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[145986, 3348, 173, 3, 70, "Output",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[146196, 3356, 1798, 52, 70, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[147997, 3410, 506, 11, 70, "Message",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], +Cell[148506, 3423, 508, 11, 70, "Message",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], +Cell[149017, 3436, 509, 11, 70, "Message",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], +Cell[149529, 3449, 458, 10, 70, "Message",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], +Cell[149990, 3461, 24818, 454, 70, "Output",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174845, 3920, 1616, 48, 70, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[176464, 3970, 582, 12, 70, "Message",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], +Cell[177049, 3984, 588, 12, 70, "Message",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], +Cell[177640, 3998, 590, 12, 70, "Message",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], +Cell[178233, 4012, 458, 10, 70, "Message",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], +Cell[178694, 4024, 171, 3, 70, "Output",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178902, 4032, 2249, 64, 70, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[181154, 4098, 557, 12, 70, "Message",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], +Cell[181714, 4112, 560, 12, 70, "Message",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], +Cell[182277, 4126, 565, 12, 70, "Message",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], +Cell[182845, 4140, 458, 10, 70, "Message",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], +Cell[183306, 4152, 172, 3, 70, "Output",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183515, 4160, 2221, 64, 70, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[185739, 4226, 559, 12, 70, "Message",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], +Cell[186301, 4240, 562, 12, 70, "Message",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], +Cell[186866, 4254, 563, 12, 70, "Message",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], +Cell[187432, 4268, 458, 10, 70, "Message",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], +Cell[187893, 4280, 170, 3, 70, "Output",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188100, 4288, 2220, 64, 70, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[190323, 4354, 559, 12, 70, "Message",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], +Cell[190885, 4368, 562, 12, 70, "Message",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], +Cell[191450, 4382, 563, 12, 70, "Message",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], +Cell[192016, 4396, 458, 10, 70, "Message",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], +Cell[192477, 4408, 171, 3, 70, "Output",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192685, 4416, 213, 6, 70, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[192901, 4424, 173, 3, 70, "Output",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], +Cell[193089, 4430, 243, 5, 70, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[193357, 4439, 558, 19, 70, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[193918, 4460, 170, 3, 70, "Output",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194125, 4468, 170, 5, 70, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[194298, 4475, 173, 3, 70, "Output",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194508, 4483, 181, 5, 70, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[194692, 4490, 171, 3, 70, "Output",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194900, 4498, 6055, 185, 70, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[200958, 4685, 172, 3, 70, "Output",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201167, 4693, 368, 9, 70, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[201538, 4704, 172, 3, 70, "Output",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201747, 4712, 6122, 187, 70, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[207872, 4901, 173, 3, 70, "Output",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208082, 4909, 368, 9, 70, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[208453, 4920, 170, 3, 70, "Output",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208660, 4928, 2663, 88, 70, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[211326, 5018, 171, 3, 70, "Output",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211534, 5026, 2603, 85, 70, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[214140, 5113, 173, 3, 70, "Output",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214350, 5121, 3712, 118, 70, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[218065, 5241, 174, 3, 70, "Output",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218276, 5249, 2052, 59, 70, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[220331, 5310, 579, 12, 70, "Message",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], +Cell[220913, 5324, 582, 12, 70, "Message",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], +Cell[221498, 5338, 584, 12, 70, "Message",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], +Cell[222085, 5352, 458, 10, 70, "Message",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], +Cell[222546, 5364, 172, 3, 70, "Output",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222755, 5372, 2054, 59, 70, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[224812, 5433, 577, 12, 70, "Message",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], +Cell[225392, 5447, 580, 12, 70, "Message",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], +Cell[225975, 5461, 583, 12, 70, "Message",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], +Cell[226561, 5475, 456, 10, 70, "Message",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], +Cell[227020, 5487, 171, 3, 70, "Output",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227228, 5495, 2030, 55, 70, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[229261, 5552, 20493, 384, 70, "Output",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249791, 5941, 2142, 61, 70, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[251936, 6004, 501, 11, 70, "Message",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], +Cell[252440, 6017, 504, 11, 70, "Message",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], +Cell[252947, 6030, 508, 11, 70, "Message",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], +Cell[253458, 6043, 456, 10, 70, "Message",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], +Cell[253917, 6055, 31462, 562, 70, "Output",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], +Cell[285394, 6620, 138, 3, 70, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[CellGroupData[{ +Cell[285557, 6627, 1616, 48, 70, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[287176, 6677, 596, 12, 70, "Message",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], +Cell[287775, 6691, 602, 12, 70, "Message",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], +Cell[288380, 6705, 605, 12, 70, "Message",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], +Cell[288988, 6719, 458, 10, 70, "Message",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], +Cell[289449, 6731, 171, 3, 70, "Output",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289657, 6739, 2251, 64, 70, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[291911, 6805, 577, 12, 70, "Message",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], +Cell[292491, 6819, 580, 12, 70, "Message",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], +Cell[293074, 6833, 586, 12, 70, "Message",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], +Cell[293663, 6847, 458, 10, 70, "Message",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], +Cell[294124, 6859, 173, 3, 70, "Output",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294334, 6867, 2223, 64, 70, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[296560, 6933, 579, 12, 70, "Message",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], +Cell[297142, 6947, 580, 12, 70, "Message",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], +Cell[297725, 6961, 586, 12, 70, "Message",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], +Cell[298314, 6975, 458, 10, 70, "Message",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], +Cell[298775, 6987, 171, 3, 70, "Output",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298983, 6995, 2223, 64, 70, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[301209, 7061, 576, 12, 70, "Message",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], +Cell[301788, 7075, 580, 12, 70, "Message",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], +Cell[302371, 7089, 584, 12, 70, "Message",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], +Cell[302958, 7103, 458, 10, 70, "Message",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], +Cell[303419, 7115, 173, 3, 70, "Output",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303629, 7123, 211, 6, 70, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[303843, 7131, 172, 3, 70, "Output",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], +Cell[304030, 7137, 242, 5, 70, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[304297, 7146, 558, 19, 70, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[304858, 7167, 171, 3, 70, "Output",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305066, 7175, 170, 5, 70, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[305239, 7182, 171, 3, 70, "Output",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305447, 7190, 181, 5, 70, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[305631, 7197, 173, 3, 70, "Output",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305841, 7205, 6055, 185, 70, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[311899, 7392, 173, 3, 70, "Output",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312109, 7400, 368, 9, 70, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[312480, 7411, 172, 3, 70, "Output",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312689, 7419, 6122, 187, 70, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[318814, 7608, 173, 3, 70, "Output",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319024, 7616, 368, 9, 70, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[319395, 7627, 172, 3, 70, "Output",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319604, 7635, 2663, 88, 70, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[322270, 7725, 173, 3, 70, "Output",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322480, 7733, 2603, 85, 70, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[325086, 7820, 171, 3, 70, "Output",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325294, 7828, 3712, 118, 70, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[329009, 7948, 174, 3, 70, "Output",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329220, 7956, 2052, 59, 70, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[331275, 8017, 574, 12, 70, "Message",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], +Cell[331852, 8031, 580, 12, 70, "Message",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], +Cell[332435, 8045, 580, 12, 70, "Message",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], +Cell[333018, 8059, 456, 10, 70, "Message",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], +Cell[333477, 8071, 172, 3, 70, "Output",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333686, 8079, 2052, 59, 70, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[335741, 8140, 576, 12, 70, "Message",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], +Cell[336320, 8154, 577, 12, 70, "Message",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], +Cell[336900, 8168, 582, 12, 70, "Message",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], +Cell[337485, 8182, 458, 10, 70, "Message",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], +Cell[337946, 8194, 172, 3, 70, "Output",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338155, 8202, 2030, 55, 70, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[340188, 8259, 20021, 378, 70, "Output",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360246, 8642, 2148, 61, 70, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[362397, 8705, 502, 11, 70, "Message",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], +Cell[362902, 8718, 506, 11, 70, "Message",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], +Cell[363411, 8731, 508, 11, 70, "Message",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], +Cell[363922, 8744, 456, 10, 70, "Message",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], +Cell[364381, 8756, 30015, 538, 70, "Output",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394433, 9299, 257, 6, 70, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[394693, 9307, 2580, 42, 70, "Message",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], +Cell[397276, 9351, 10201, 227, 70, "Output",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407514, 9583, 1590, 47, 70, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[409107, 9632, 342, 6, 70, "Message",ExpressionUUID->"a616c950-333c-c34e-b37c-e912edc150ff"], +Cell[409452, 9640, 101, 0, 70, "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409590, 9645, 2249, 64, 70, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[411842, 9711, 342, 6, 70, "Message",ExpressionUUID->"e36a792d-6d34-e344-80e0-65db5822f94f"], +Cell[412187, 9719, 342, 6, 70, "Message",ExpressionUUID->"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], +Cell[412532, 9727, 101, 0, 70, "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412670, 9732, 2219, 64, 70, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[414892, 9798, 342, 6, 70, "Message",ExpressionUUID->"69e9eac8-2173-184e-8807-5fd844762da7"], +Cell[415237, 9806, 342, 6, 70, "Message",ExpressionUUID->"baaf252e-485c-b643-a22f-956a9ee4c418"], +Cell[415582, 9814, 100, 0, 70, "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[415719, 9819, 2220, 64, 70, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[417942, 9885, 342, 6, 70, "Message",ExpressionUUID->"51550cf4-6c37-c443-851d-569d8808cf04"], +Cell[418287, 9893, 342, 6, 70, "Message",ExpressionUUID->"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], +Cell[418632, 9901, 101, 0, 70, "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418770, 9906, 213, 6, 70, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[418986, 9914, 102, 0, 70, "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___фитирование.nb b/templates/light_case/l___фитирование.nb new file mode 100755 index 0000000..363059e --- /dev/null +++ b/templates/light_case/l___фитирование.nb @@ -0,0 +1,19515 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 949577, 19507] +NotebookOptionsPosition[ 939001, 19321] +NotebookOutlinePosition[ 939430, 19338] +CellTagsIndexPosition[ 939387, 19335] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f2a90593-115c-de44-8f24-6de33df6648b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8b3f93db-b3c7-424c-9986-dc1259368d6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"102aabbc-1533-474c-951d-59388b43ad5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"a609f3b3-2e7b-c84a-8d9f-cb941f860dd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"6a630b0c-42f4-984c-884e-404c558d5b15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[7]:=",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"be7cd485-6549-2e4c-9334-a6ea35992cb7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["236"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"e3b25e5e-6736-a648-891b-4696491c8d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, + 3.9919730324857025`*^9},ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-\ +27b74e082a15"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d911d281-5ae1-4d49-b5b0-c6546cdfc5be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bcf151b6-5173-c247-aba5-eb7fd8f6a86f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.5576271186440679`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"350b5d4a-86e1-c849-ba14-ee9245de64e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"6cca14fb-0b20-5c4b-8c36-bbb7924cbaae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"e02386c8-e0d3-da40-aa79-384e341f88dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["6.525262540876552`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"7d44928b-5597-4c41-a044-ed2430117c2f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9},ExpressionUUID->"b434072c-f5c4-6447-b47b-\ +7d3a3a643eea"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, + 3.991973037386053*^9}},ExpressionUUID->"1935e637-3724-824c-87cd-\ +00d2f710210f"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9},ExpressionUUID->"7fa441ac-4845-2444-8deb-\ +6f46879ae66e"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, + 3.9919730389577026`*^9}},ExpressionUUID->"14ffdd04-4daa-654b-9670-\ +b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"78b1ad6b-d494-5646-b4b7-b29e7e90830c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8b62cd71-8cae-934b-abf4-1f9850737b8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3", ",", "10"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"5a5c92c3-41e2-064d-b5d2-46e09854e847"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"f57ff81d-6ce2-364f-ac54-19a36740af5f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"5273f557-7b7b-1643-a2ef-aed4e837e804"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"2bc8c06e-f76e-aa44-8574-c8d86155e9c7"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"02a25572-d787-1f4f-a51d-88b9a7b63990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"51561161-e79b-0a4d-a2e0-24f5080dd421"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"bb3f1b4a-feec-e74a-ac02-560e86fef7a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.8911371422921853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"875773db-bcfc-1448-b266-a824cadcd26d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"1487f4e5-3a4c-5142-bedc-93d10f72fd42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "3", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"d4d5b049-5a60-9e47-bedb-22d6496d63a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"060018be-9f59-004a-bc1d-6354aea179dd"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"6cf44e77-7f0a-294f-a9b3-653c811fc1b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"88019e92-bf16-8a45-a573-5f6813f5148f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"8c4c8ddd-1d64-5140-8a2a-94f43856c639"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"9bca3267-03f7-a141-a4ec-87d73dc54051"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"720ff5be-57e1-6f4a-aa23-c266601c741f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[33]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.7724483356680106}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643389546776`*^9, 3.9919652326803303`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"aba9a02b-2505-4945-a17e-371421067ae1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"8bd43971-5c9d-f149-ad34-37666d95187d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"43aa812a-89e9-5947-904d-2615bf9ae477"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"578091c0-706c-0447-9f27-d650cd07679a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"22e5d09f-3856-2342-9ec4-a0a4e99d8f81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.9983911300932561}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"b505676b-c402-c146-bfcf-a5681355af6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro +GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI +o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h +ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ +AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD +u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf +Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU +bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 +zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD +2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT +Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 +ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK +C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX +jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ +EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO +6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 +v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm +JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq +i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY +cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 +YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 +SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF +RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O +osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor +En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O +4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY +N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa +zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx +6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 +68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R +c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 +1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK +Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI +wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V +h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw +WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq +r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 +EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N +O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk +N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 +nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl +sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN +Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 +DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 +ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 +Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx +uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 +2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z +nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B +NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX +irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf +cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ +6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa +uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax +eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP +wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT +tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L +h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 +1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 +vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 +UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i +rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 +KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p +laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp ++RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 +YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ +PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ +4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz +6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP +yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z +SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb +I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs +Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa +pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 +QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD +IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY +PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH +adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 +3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws +cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 +bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F +sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf +IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 +fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu +dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS +k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 +d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ +k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl +1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz +f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ +Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy +xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 +ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx +vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg +ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS +9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 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, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ +SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 +d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd +D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z +Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd +gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 +w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p +3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 +LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 +UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ +L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc +Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX ++ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ +chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 +EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR +esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k +xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N +AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD +ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB +cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF +ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g +md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF +9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB +wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA +w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF +J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 +IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j +bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.7724483356680106}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"15fc73ff-4b7c-f44a-82a3-ff74d75cafb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[39]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964380582947*^9, 3.9919653530989933`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"df194134-7ead-2c4f-9c2d-231ed351fc78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"141498.48776203764`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9}, + CellLabel-> + "During evaluation of \ +In[40]:=",ExpressionUUID->"54d66a50-0e46-b544-bf38-fca60fb0db69"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"21ffc138-d7e5-a242-93d6-e6d84ceeed52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"184d1816-0e1f-0a4e-9713-21fa217a12d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"9160ea6a-6e14-4f45-8dac-9f0d210cb102"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, + 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, + 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, + 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, + 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, + 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, + 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, + 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, + 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, + 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, + 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, + 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, + 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, + 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 13}, {0., 1.01270012148501}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"60c79d8a-ab18-2345-a320-f5f0be289d63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, + 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, + 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, + 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, + 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, + 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, + 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, + 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, + 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, + 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, + 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, + 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, + 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, + 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, + 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, + 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, + 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, + 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, + 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, + 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, + 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, + 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, + 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 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, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + 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]], + ImagePadding->All, + 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, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"9c7d505e-3287-7646-a881-56734fa29a1e"] +}, Open ]] +}, +WindowSize->{693.75, 729.75}, +WindowMargins->{{Automatic, -6.75}, {Automatic, 6}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"009e3209-82c3-8a40-a760-7e4ecd835b03" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1468, 46, 97, "Output",ExpressionUUID->"f2a90593-115c-de44-8f24-6de33df6648b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3236, 109, 720, 20, 61, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3959, 131, 863, 25, 71, "Output",ExpressionUUID->"8b3f93db-b3c7-424c-9986-dc1259368d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4859, 161, 1465, 41, 197, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6327, 204, 2559, 75, 305, "Output",ExpressionUUID->"102aabbc-1533-474c-951d-59388b43ad5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8923, 284, 1680, 48, 204, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10606, 334, 2758, 81, 305, "Output",ExpressionUUID->"a609f3b3-2e7b-c84a-8d9f-cb941f860dd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13401, 420, 1843, 53, 234, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15247, 475, 3728, 111, 236, "Output",ExpressionUUID->"6a630b0c-42f4-984c-884e-404c558d5b15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19012, 591, 2080, 59, 296, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21095, 652, 4797, 140, 294, "Output",ExpressionUUID->"be7cd485-6549-2e4c-9334-a6ea35992cb7"] +}, Open ]], +Cell[25907, 795, 153, 3, 28, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26085, 802, 300, 5, 28, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26388, 809, 277, 4, 32, "Output",ExpressionUUID->"e3b25e5e-6736-a648-891b-4696491c8d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26702, 818, 253, 6, 28, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[26958, 826, 276, 4, 32, "Output",ExpressionUUID->"d911d281-5ae1-4d49-b5b0-c6546cdfc5be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27271, 835, 176, 3, 28, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27450, 840, 250, 3, 32, "Output",ExpressionUUID->"bcf151b6-5173-c247-aba5-eb7fd8f6a86f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27737, 848, 258, 7, 43, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[27998, 857, 263, 3, 32, "Output",ExpressionUUID->"350b5d4a-86e1-c849-ba14-ee9245de64e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28298, 865, 132, 2, 28, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28433, 869, 252, 3, 32, "Output",ExpressionUUID->"6cca14fb-0b20-5c4b-8c36-bbb7924cbaae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28722, 877, 277, 6, 28, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29002, 885, 266, 3, 32, "Output",ExpressionUUID->"e02386c8-e0d3-da40-aa79-384e341f88dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29305, 893, 258, 7, 28, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29566, 902, 262, 3, 32, "Output",ExpressionUUID->"7d44928b-5597-4c41-a044-ed2430117c2f"] +}, Open ]], +Cell[29843, 908, 295, 6, 28, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30141, 916, 154, 3, 28, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[30298, 921, 299, 6, 28, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[30600, 929, 154, 3, 28, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[30779, 936, 129, 2, 28, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[30911, 940, 248, 3, 32, "Output",ExpressionUUID->"78b1ad6b-d494-5646-b4b7-b29e7e90830c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31196, 948, 129, 2, 28, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[31328, 952, 245, 3, 32, "Output",ExpressionUUID->"8b62cd71-8cae-934b-abf4-1f9850737b8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31610, 960, 1965, 50, 215, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[33578, 1012, 31761, 569, 237, "Output",ExpressionUUID->"5a5c92c3-41e2-064d-b5d2-46e09854e847"] +}, Open ]], +Cell[65354, 1584, 128, 3, 28, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[65507, 1591, 2276, 59, 147, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[67786, 1652, 5393, 79, 208, "Message",ExpressionUUID->"f57ff81d-6ce2-364f-ac54-19a36740af5f"], +Cell[73182, 1733, 339, 7, 32, "Output",ExpressionUUID->"5273f557-7b7b-1643-a2ef-aed4e837e804"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73558, 1745, 2168, 58, 147, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[75729, 1805, 4376, 63, 166, "Message",ExpressionUUID->"2bc8c06e-f76e-aa44-8574-c8d86155e9c7"], +Cell[80108, 1870, 297, 7, 32, "Output",ExpressionUUID->"02a25572-d787-1f4f-a51d-88b9a7b63990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80442, 1882, 302, 5, 28, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[80747, 1889, 203, 3, 32, "Output",ExpressionUUID->"51561161-e79b-0a4d-a2e0-24f5080dd421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80987, 1897, 307, 5, 28, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[81297, 1904, 235, 4, 32, "Output",ExpressionUUID->"bb3f1b4a-feec-e74a-ac02-560e86fef7a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[81569, 1913, 2521, 63, 283, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[84093, 1978, 107321, 2284, 237, "Output",ExpressionUUID->"875773db-bcfc-1448-b266-a824cadcd26d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191451, 4267, 161, 3, 42, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[191615, 4272, 138703, 2809, 237, "Output",ExpressionUUID->"1487f4e5-3a4c-5142-bedc-93d10f72fd42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330355, 7086, 911, 25, 112, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[331269, 7113, 45788, 799, 237, "Output",ExpressionUUID->"d4d5b049-5a60-9e47-bedb-22d6496d63a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377094, 7917, 2363, 61, 147, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[379460, 7980, 5452, 79, 216, "Message",ExpressionUUID->"060018be-9f59-004a-bc1d-6354aea179dd"], +Cell[384915, 8061, 314, 6, 32, "Output",ExpressionUUID->"6cf44e77-7f0a-294f-a9b3-653c811fc1b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385266, 8072, 226, 4, 28, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[385495, 8078, 175, 2, 32, "Output",ExpressionUUID->"88019e92-bf16-8a45-a573-5f6813f5148f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385707, 8085, 252, 4, 28, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[385962, 8091, 177, 2, 32, "Output",ExpressionUUID->"8c4c8ddd-1d64-5140-8a2a-94f43856c639"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386176, 8098, 981, 26, 106, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[387160, 8126, 111871, 2376, 237, "Output",ExpressionUUID->"9bca3267-03f7-a141-a4ec-87d73dc54051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499068, 10507, 163, 3, 42, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[499234, 10512, 157319, 3132, 237, "Output",ExpressionUUID->"720ff5be-57e1-6f4a-aa23-c266601c741f"] +}, Open ]], +Cell[656568, 13647, 238, 4, 42, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[656831, 13655, 773, 22, 91, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[657607, 13679, 18986, 357, 238, "Output",ExpressionUUID->"aba9a02b-2505-4945-a17e-371421067ae1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[676630, 14041, 2162, 57, 147, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[678795, 14100, 834, 15, 26, "Message",ExpressionUUID->"8bd43971-5c9d-f149-ad34-37666d95187d"], +Cell[679632, 14117, 317, 6, 32, "Output",ExpressionUUID->"43aa812a-89e9-5947-904d-2615bf9ae477"] +}, Open ]], +Cell[CellGroupData[{ +Cell[679986, 14128, 250, 4, 28, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[680239, 14134, 177, 2, 32, "Output",ExpressionUUID->"578091c0-706c-0447-9f27-d650cd07679a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680453, 14141, 249, 4, 28, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[680705, 14147, 179, 2, 32, "Output",ExpressionUUID->"22e5d09f-3856-2342-9ec4-a0a4e99d8f81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680921, 14154, 2560, 64, 305, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[683484, 14220, 23768, 514, 237, "Output",ExpressionUUID->"b505676b-c402-c146-bfcf-a5681355af6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707289, 14739, 165, 3, 42, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[707457, 14744, 41611, 830, 238, "Output",ExpressionUUID->"15fc73ff-4b7c-f44a-82a3-ff74d75cafb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[749105, 15579, 851, 24, 112, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[749959, 15605, 39726, 699, 237, "Output",ExpressionUUID->"df194134-7ead-2c4f-9c2d-231ed351fc78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[789722, 16309, 2333, 60, 166, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[792058, 16371, 4044, 60, 173, "Message",ExpressionUUID->"54d66a50-0e46-b544-bf38-fca60fb0db69"], +Cell[796105, 16433, 317, 6, 32, "Output",ExpressionUUID->"21ffc138-d7e5-a242-93d6-e6d84ceeed52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796459, 16444, 251, 4, 28, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[796713, 16450, 179, 2, 32, "Output",ExpressionUUID->"184d1816-0e1f-0a4e-9713-21fa217a12d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796929, 16457, 252, 4, 28, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[797184, 16463, 177, 2, 32, "Output",ExpressionUUID->"9160ea6a-6e14-4f45-8dac-9f0d210cb102"] +}, Open ]], +Cell[CellGroupData[{ +Cell[797398, 16470, 2844, 72, 387, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[800245, 16544, 49805, 1052, 237, "Output",ExpressionUUID->"60c79d8a-ab18-2345-a320-f5f0be289d63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[850087, 17601, 204, 4, 63, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[850294, 17607, 88691, 1711, 237, "Output",ExpressionUUID->"9c7d505e-3287-7646-a881-56734fa29a1e"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/rename.bat b/templates/light_case/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/light_case/rename.bat @@ -0,0 +1,47 @@ +@echo off +chcp 65001 > nul +if "%~1"=="" ( + echo You must specify the name prefix >&2 + echo E.g. prefix "my_prefix" : >&2 + echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 + exit /b 1 +) else ( + if exist "h____фитирование.nb" ( + rename "h____фитирование.nb" "%~1_фитирование.nb" + ) else ( + echo skipped "h____фитирование.nb" due to absence + ) + + if exist "h____pr_Qw2.nb" ( + rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" + ) else ( + echo skipped "h____pr_Qw2.nb" due to absence + ) + if exist "h____pr_Qw1.nb" ( + rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" + ) else ( + echo skipped "h____pr_Qw1.nb" due to absence + ) + + if exist "h____osc_Qw2.nb" ( + rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" + ) else ( + echo skipped "h____osc_Qw2.nb" due to absence + ) + if exist "h____osc_Qw1.nb" ( + rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" + ) else ( + echo skipped "h____osc_Qw1.nb" due to absence + ) + + if exist "h____gid_Qw2.nb" ( + rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" + ) else ( + echo skipped "h____gid_Qw2.nb" due to absence + ) + if exist "h____gid_Qw1.nb" ( + rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" + ) else ( + echo skipped "h____gid_Qw1.nb" due to absence + ) +)